Бухгалтерия 7.7 Добавить колонку в форму журнала

Вопрос: Как добавить новую колонку в форму списка журнала? Так чтобы она не была привязана ни к какой графе, для вывода в нее пиктограммы, которая будет формироваться программно в модуле этой формы. Типа второй колонки в журнале "Платежные документы"

Вставить поле "Текст", установить свойство "Показывать пиктограммы", в форму списка внести картинку, состоящую из линейки пиктограмм (формат пиктограмм можно посмотреть в файле "IMAGECOL.BMP", вроде 16х16 пикселей), в модуле задавать картинку (ИДКолонки = <Номер пиктограммы в линейке>).

> Вставить поле "Текст"<br>Вот за это спасибо! Не могла создать саму пустую колонку! <br><br>> в форму списка внести картинку, состоящую из линейки пиктограмм (формат пиктограмм можно посмотреть в файле "IMAGECOL.BMP", вроде 16х16 пикселей), в модуле задавать картинку (ИДКолонки = <Номер пиктограммы в линейке>).<br>Это непонятно.<br>Колонку создала,установила свойство "Показывать пиктограммы", в "Формула" поставила "ВыводПиктограммы()". <br>В модуле(примерная структура, что-то типа):<br><br>Функция ВыводПиктограммы() <br>Если а=Истина тогда<br> возврат пикто1<br>Иначе <br> возврат пикто2<br>КонецЕсли<br>КонецФункции<br><br>Вопросы: <br>1)Что значит "в форму списка внести картинку, состоящую из линейки пиктограмм (формат пиктограмм можно посмотреть в файле "IMAGECOL.BMP", вроде 16х16 пикселей)". Какие конкретные действия я для этого должна сделать?<br>2) Что именно должно стоять вместо "пикто1" и "пикто2"? Хотя это наверное станет понятно, если пойму первое..<br>

1) ПКМ на многострочной части журнала - закладка "Картинка".<br>2) Функция должна возвращать номер пиктограмки из колекции картинок (посмотрите наконец в "пэйнте" файл "IMAGECOL.BMP").

Спасибо! Все получилось. Я файл посмотрела, но никак не могла понять, как он "цепляется" к таблице. Еще раз спасибо!

"Помогите, пожалуйста, добить проблему: чтобы в журнале "Расчеты через казначейство" ставилась галка при проведении документа "Кассовое выбытие". Все ваши рекомендации сделала: поле "Текст" вставила, установила свойство "Показывать пиктограммы", в формуле поставила "НомерПиктограммы()", в форму списка внесла картинку, состоящую из линейки пиктограмм. Что подредактировать в модуле, не знаю.<br>Модуль выглядит так:<br><br>Перем гСписокКолонок;<br>Перем гИдФормы; <br>Перем ДатаПроведения_;<br><br>//******************************************************************************<br>//<br>//<br>Процедура ПечатьДокумента() <br> <br> Парам=СоздатьОбъект("СписокЗначений");<br> Парам.Установить("Действие","Печать");<br> ОткрытьФорму(ТекущийДокумент,Парам);<br> <br>КонецПроцедуры <br><br>//******************************************************************************<br>//<br>Функция НомерПиктограммы()<br><br> Если ТекущийДокумент.Выбран() = 0 Тогда<br> Возврат 0;<br> КонецЕсли;<br> <br> СуммаВыписки = 0; <br> НомПикт=0;<br> ДатаПроведения_="""";<br> <br> ПодчДок = СоздатьОбъект("Документ");<br> Если ПодчДок.ВыбратьПодчиненныеДокументы(ТекущийДокумент.ДатаДок,,ТекущийДокумент) = 1 Тогда<br> Пока ПодчДок.ПолучитьДокумент() = 1 Цикл<br> Если (ПодчДок.Вид() = "СписаниеСоСчета") Или (ПодчДок.Вид() = "ПоступлениеНаСчет")Тогда<br> СуммаВыписки = СуммаВыписки+ПодчДок.Итог("Сумма");<br> //НомПикт = 5;<br> //ДатаВыписки = ПодчДок.ДатаДок;<br> ДатаПроведения_ = ПодчДок.ДатаДок;<br> КонецЕсли;<br> <br> КонецЦикла; <br> Если СуммаВыписки<>0 Тогда<br> Если СуммаВыписки<ТекущийДокумент.СуммаДокумента Тогда<br> НомПикт=4;<br> Иначе<br> НомПикт = 5; <br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br> <br> Возврат НомПикт;<br> <br>КонецФункции // НомерПиктограммы()<br><br>//******************************************************************************<br>//<br>//<br>Процедура ПоКнопкеЭкспортИмпорт() <br> <br> ОткрытьФорму("Обработка.Казначейство_Главная");<br> <br>КонецПроцедуры<br><br>//******************************************************************************<br>//<br>//<br>Процедура ПоКнопкеДействия()<br> Если ТекущийДокумент.Выбран()= 0 Тогда <br> Предупреждение("Не выбран документ !");<br> Возврат;<br> Иначе<br> Меню = СоздатьОбъект("СписокЗначений");<br> Меню.ДобавитьЗначение("ПечатьДокумента","Печать документа");<br> Меню.ДобавитьЗначение("Реестр",       "Реестр документов"); <br> Меню.ДобавитьЗначение("РеестрЗКР",      "Реестр заявок на кассовый расход"); <br> ВидОтчета = """";<br> Если Меню.ВыбратьЗначение(ВидОтчета,,,,1)=1 Тогда<br> Если ВидОтчета="ПечатьДокумента" Тогда <br> ПечатьДокумента();<br> ИначеЕсли ВидОтчета = "Реестр" Тогда <br> глПечатьЖурналаДокументов(Контекст, "РасчетыЧерезКазначейство");<br> ИначеЕсли ВидОтчета = "РеестрЗКР" Тогда <br> <br> Расшифровка = СоздатьОбъект("СписокЗначений"); <br> Расшифровка.Установить("Дата1",       НачМесяца(ТекущийДокумент.ДатаДок));<br> Расшифровка.Установить("Дата2",       КонМесяца(ТекущийДокумент.ДатаДок));<br> Расшифровка.Установить("ВыбраннаяФирма", ТекущийДокумент.ВыбраннаяФирма);<br> Расшифровка.Установить("ВидДокумента", "ЗКР"); <br> <br> Если ((глЕстьРеквизитШапки("РазделЛицевогоСчета",ТекущийДокумент.Вид()) = 1) ИЛИ <br> (глЕстьРеквизитМнЧ("РазделЛицевогоСчета", ТекущийДокумент.Вид()) = 1))Тогда<br> <br> ТекущийДокумент.ПолучитьСтрокуПоНомеру(1); <br> Если ТекущийДокумент.РазделЛицевогоСчета.ВладелецСчета = ТекущийДокумент.ВыбраннаяФирма Тогда<br> Расшифровка.Установить("ЛицевойСчет", ТекущийДокумент.РазделЛицевогоСчета);                  <br> КонецЕсли; <br> <br> КонецЕсли;<br> <br> глРасшифровка = Расшифровка;<br> глОбновить = 2;<br> глФлагРасшифровки = 1;<br> ОткрытьФорму("Отчет.РеестрПП"); <br> глФлагРасшифровки = 0; <br> глОбновить = 0; <br> <br> КонецЕсли;<br> КонецЕсли;<br> КонецЕсли;<br>КонецПроцедуры <br><br>//******************************************************************************<br>//<br>//<br>Процедура Отбор() <br> <br> Поз=СпЗнач.ТекущаяСтрока();<br> УстановитьОтбор(СпЗнач.ПолучитьЗначение(Поз)); <br><br>КонецПроцедуры // Отбор<br><br>//******************************************************************************<br>// Предопределенная процедура.<br>//<br>Процедура ПриОткрытии() <br> <br> //глУстановитьВидимостьКолонок(Контекст, гИдФормы, гСписокКолонок, 1); <br> <br> Если ТипЗначенияСтр(Форма.Параметр) = "Документ" Тогда<br> глАктивизироватьДокумент(Контекст, Форма.Параметр);<br> КонецЕсли; <br> <br>КонецПроцедуры<br>//******************************************************************************<br>// Предопределенная процедура<br>//<br>Процедура ПриПовторномОткрытии()<br> <br> Если ТипЗначенияСтр(Форма.Параметр) = "Документ" Тогда<br> глАктивизироватьДокумент(Контекст, Форма.Параметр);<br> КонецЕсли;<br><br>КонецПроцедуры // ПриПовторномОткрытии()<br>////////////////////////////////////////////////////////­////////////////////////<br><br>гИдФормы = "Журнал_РасчетыЧерезКазначейство_ФормаСписка";<br><br>// Список колонок видимостью которых будем управлять<br>гСписокКолонок = СоздатьОбъект("СписокЗначений"); <br>гСписокКолонок.ДобавитьЗначение("ВыбраннаяФирма", "Учреждение"); <br>гСписокКолонок.ДобавитьЗначение("ЛицевойСчет" , "Лицевой счет"); <br>гСписокКолонок.ДобавитьЗначение("Контрагент" , "Контрагент");<br>гСписокКолонок.ДобавитьЗначение("Сумма" , "Сумма документа"); <br>гСписокКолонок.ДобавитьЗначение("ДатаПроведения", "Дата проведения"); <br>гСписокКолонок.Пометка(1, 1); <br>гСписокКолонок.Пометка(4, 1); <br><br>СпЗнач.УдалитьВсе();<br>СпЗнач.ДобавитьЗначение("""","Все документы");<br>СпЗнач.ДобавитьЗначение("ЗаявкаНаКассовыйРасход","Заявка на кассовый расход"); <br>СпЗнач.ДобавитьЗначение("ЗаявкаНаНаличные","Заявка на наличные"); <br>СпЗнач.ДобавитьЗначение("РеквизитыЧеков","Реквизиты чека (в заявку на наличные)"); <br>СпЗнач.ДобавитьЗначение("ЗаявкаНаВозврат","Заявка на возврат");<br>СпЗнач.ДобавитьЗначение("ЗапросНаАннулированиеЗаявки","Запрос на аннулирование заявки");"

1) Вы выбираете подчиненные документы только на день документа (ПодчДок.ВыбратьПодчиненныеДокументы(ТекущийДокумент.ДатаДок,,ТекущийДокумент)), возможно выписки сделаны в другие дни и подчиненных документов в выборке попросту нет?<br><br>2) Если я правильно понял, то при наличии хотя бы каких-нибудь выписок, но на общую сумму меньше чем сумма документа-основания, должна выводиться картинка №4, если сумма выписок равна или больше чем сумма документа-основания, то картинка №5. В противом случае не выводится никакая картинка. Для чего тогда служат картинки №1..№3?<br><br>3) Для каких целей при выводе пиктограммы Вы определяете переменную "ДатаПроведения_"?

1) Подчиненные документы есть.<br><br>2)3) Так написано в модуле. У нас типовая конфигурация для Бухгалтерии для распорядителей бюджетных средств, ред.3.1, релиз 7.70.334.<br><br>

А Вы на картинку, привязанную в журнале, смотрели? Там есть вообще 5 пиктограмм?

Конечно смотрела - я сама картинку привязывала - там 7 пиктограмм.