"Помогите, пожалуйста, добить проблему: чтобы в журнале "Расчеты через казначейство" ставилась галка при проведении документа "Кассовое выбытие". Все ваши рекомендации сделала: поле "Текст" вставила, установила свойство "Показывать пиктограммы", в формуле поставила "НомерПиктограммы()", в форму списка внесла картинку, состоящую из линейки пиктограмм. Что подредактировать в модуле, не знаю.<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>СпЗнач.ДобавитьЗначение("ЗапросНаАннулированиеЗаявки","Запрос на аннулирование заявки");"