|
0
Nast
19.07.11
✎
13:46
|
Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПолеОбъекта) экспорт
Если Объект[ИмяТабличнойЧасти].Количество() > 0 Тогда
ТекстВопроса = "Перед заполнением табличная часть будет очищена. Заполнить?";
Ответ = Вопрос(ТекстВопроса, РежимДиалогаВопрос.ДаНет, , КодВозвратаДиалога.Да, Объект.Метаданные().Синоним);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
Объект[ИмяТабличнойЧасти].Очистить();
КонецЕсли;
Запрос= Новый Запрос;
Запрос.УстановитьПараметр("Дата",КонецДня(Объект.Дата));
Запрос.УстановитьПараметр("Организация",Объект.Организация);
Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками);
Запрос.Текст=
"ВЫБРАТЬ
| ХозрасчетныйОстатки.Субконто1 КАК Контрагент,
| ХозрасчетныйОстатки.Субконто2 КАК Договор,
| ХозрасчетныйОстатки.СуммаОстатокДт КАК Сумма,
| ХозрасчетныйОстатки.ВалютнаяСуммаОстаток КАК ВалСумма,
| ХозрасчетныйОстатки.Счет,
| ХозрасчетныйОстатки.Организация КАК Организация
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, Счет = &Счет, , Организация = &Организация) КАК ХозрасчетныйОстатки";
Выборка=Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
СтрокаТабличнойЧасти = Объект[ИмяТабличнойЧасти].Добавить();
СтрокаТабличнойЧасти.ДоговорКонтрагента=Выборка.Договор;
СтрокаТабличнойЧасти.Контрагент=Выборка.Контрагент;
СтрокаТабличнойЧасти.СуммаВзаиморасчетов=Выборка.Сумма;
СтрокаТабличнойЧасти.СуммаРегл=Выборка.Сумма;
СтрокаТабличнойЧасти.СуммаУпр=Выборка.Сумма;
СтрокаТабличнойЧасти.СчетУчетаРасчетовСКонтрагентом=ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками;
КонецЦикла;
КонецПроцедуры
Надо заполнить табличную часть документа остатками на счете 62.1.
Почему не заполняется?
|
|
