Печать формы 0504403 Ведомость в кассу. (ЗиК бюджетного учреждения, редакция 1.0 (1.0.9.1)
04.02.2010
12:06
#1
"В печатной форме в поле дата ведомости "с.. по.." не учитываются праздники.
По-быстрому правится на основе РегистраСведений (РегламентированныйПроизводственныйКалендарь). В модуле объекта Документа.ВедомостьВКассу (строка 265) вставить код:
ЗапросПраздники = Новый Запрос;
ЗапросПраздники.УстановитьПараметр("НачДата",Дата);
ЗапросПраздники.УстановитьПараметр("КонДата",Дата + 7 * 24*60*60);
ЗапросПраздники.УстановитьПараметр("ВидДня",Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий);
ЗапросПраздники.Текст =
"ВЫБРАТЬ
| РегламентированныйПроизводственныйКалендарь.ДатаКалендаря,
| РегламентированныйПроизводственныйКалендарь.ВидДня
|ИЗ
| РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
|ГДЕ
|(РегламентированныйПроизводственныйКалендарь.ДатаКалендаря Между &НачДата и &КонДата) И
|(РегламентированныйПроизводственныйКалендарь.ВидДня = &ВидДня)";
Выборка = ЗапросПраздники.Выполнить();
РезультатТЗ = Выборка.Выгрузить();
В строке вывода параметра "ИнтервалПо" вставить:
ОбластьМакетаШапкаДокумента.Параметры.ИнтервалПо = ДатаДляИнтервала(РезультатТЗ[1].ДатаКалендаря);"
По-быстрому правится на основе РегистраСведений (РегламентированныйПроизводственныйКалендарь). В модуле объекта Документа.ВедомостьВКассу (строка 265) вставить код:
ЗапросПраздники = Новый Запрос;
ЗапросПраздники.УстановитьПараметр("НачДата",Дата);
ЗапросПраздники.УстановитьПараметр("КонДата",Дата + 7 * 24*60*60);
ЗапросПраздники.УстановитьПараметр("ВидДня",Перечисления.ВидыДнейПроизводственногоКалендаря.Рабочий);
ЗапросПраздники.Текст =
"ВЫБРАТЬ
| РегламентированныйПроизводственныйКалендарь.ДатаКалендаря,
| РегламентированныйПроизводственныйКалендарь.ВидДня
|ИЗ
| РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
|ГДЕ
|(РегламентированныйПроизводственныйКалендарь.ДатаКалендаря Между &НачДата и &КонДата) И
|(РегламентированныйПроизводственныйКалендарь.ВидДня = &ВидДня)";
Выборка = ЗапросПраздники.Выполнить();
РезультатТЗ = Выборка.Выгрузить();
В строке вывода параметра "ИнтервалПо" вставить:
ОбластьМакетаШапкаДокумента.Параметры.ИнтервалПо = ДатаДляИнтервала(РезультатТЗ[1].ДатаКалендаря);"
Читают тему
(гостей: 1)