gifts2017

Тюнинг Бух 7.7.: Микрографики в ТЧ документа.

Опубликовал Александр Рытов (Арчибальд) в раздел Программирование - Практика программирования

Как вставить в документ что-то вроде диаграммы распределения сумм…

 

Посмотрев на публикацию Микрографики в табличной части , я начал прикидывать, в каком документе стандартной бухгалтерии были бы они полезны. Выбор пал на Остатки НЗП - наверное, полезно видеть, как распределены по статьям обездвиженные деньги.

Конечно, придется слегка поконфигурировать. Для начала добавляем в табличную часть документа текстовое поле достаточной ширины с заголовком, скажем, Процент итога и в его свойствах на закладке «Дополнительно» задаем вызов функции.

 

Затем в модуль формы добавляем описание этой функции

 

И, сохранив конфигурацию, получаем результат:

 

Ничего сложного!

 

См. также

Подписаться Добавить вознаграждение

Комментарии

1. MaxDavid (MaxDavid) 25.01.11 11:24
Ish_2 в комментах к воьмерочной версии подсказал, как обойтись без цикла:

Заготовка = "||||||||||||||||||||||||||||||||||||||||||||||||||";
лРез = Лев(Заготовка, лКолПалок);

Привожу только для полноты картины.
TaTaPuH-Magic; +1 Ответить 1
2. Александр Шишкин (Шёпот теней) 25.01.11 11:26
АРЧИ

... и просто ... и гениально ...

... ох и талантлив ... чего уж ...

... вот ...

п.с. при желании можно сделать и вертикальные столбцы ... приняв столбцы таблицы за столбцы графика а строки за деление по вертикальной оси ...
3. Александр Рытов (Арчибальд) 25.01.11 11:28
(1) Лень было полсотни палок ставить ;)
А поскольку это для диалога, время некритично.
4. Ирина Пятакова (Alraune) 25.01.11 11:34
А мы все о переходе на 8.2... 7.7 будет жить вечно)))
5. Александр Рытов (Арчибальд) 25.01.11 11:38
6. Игорь Исхаков (Ish_2) 25.01.11 11:40
Оперативен, плодовит. Как обычно..
А циклы - таки всунул . Из вредности ?

Впрочем, узнаю эту "семерочную" страсть к циклам и переборам ..
Из тех далёких , дремучих , "ершовских" времен.
7. Александр Шишкин (Шёпот теней) 25.01.11 11:50
(6) ... здраСССьте ... а повашему запрос это што такое ... ? ... )))

... вотУЖЖЖвот ...
8. Александр Шишкин (Шёпот теней) 25.01.11 11:51
(4) ... вы не пользователи 8.2. ... вы заложники 8...9.....10...... вот ...
9. Александр Рытов (Арчибальд) 25.01.11 11:51
(6) Я не вреден. Я бесполезен. :D
10. Александр Шишкин (Шёпот теней) 25.01.11 12:20
(9) ... ещё и злоРадно скромен ... ))) ... вОООт ...
11. Александр Маляев (maljaev) 25.01.11 16:26
12. Антон (anton.fly7) 25.01.11 23:30
13. Игорь Высоковских (via) 27.01.11 16:29
Так универсальнее будет:


Функция глДоля(ИтогоСумма,ТекСумма,СПроцентами=1) Экспорт
Если ИтогоСумма>0 Тогда
ТекПроцент=Цел(100*ТекСумма/ИтогоСумма);
Возврат СтрЗаменить(Формат("","С"+Цел(ТекПроцент/2+0.5))," ","l")+?(СПроцентами=1," "+Формат(ТекПроцент,"Ч(0)2")+"% ","");
КонецЕсли;
КонецФункции
14. Александр Рытов (Арчибальд) 28.01.11 07:37
16. vladal (Vladal) 26.01.12 18:46
(5) "Боже упаси" - переход на 8 или вечность 77?
17. Александр Рытов (Арчибальд) 27.01.12 08:22
18. Юрий Осипов (yuraos) 12.02.13 09:12
Я с помощью подобного же приема делал прогресс бар в семерошных формах.
Правда это не я сам выдумал.
В обработке "Установка ТА" (что на прямых запросах) подсмотрел
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа