Small_green_yojik
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
Формирую долги по поставщикам. ТиС (7.70.932).
Код:
//Заполняем остатки по поставщикам
ТекстЗапроса2=
"
|Период с НаДату по НаДату;
|
|Долг=Регистр.Поставщики.СуммаРуб;
|КредДокумент=Регистр.Поставщики.КредДокумент;
|
|Функция Остаток=КонОст(Долг);
|Группировка КредДокумент;
|";
Таблица.ВывестиСекцию("Шапка2");
Если Запрос.Выполнить(ТекстЗапроса2)=0 Тогда
Возврат;
КонецЕсли;
ТаблКонтрОст=СоздатьОбъект("ТаблицаЗначений");
ТабКонтр=СоздатьОбъект("ТаблицаЗначений");
ТабКонтр.НоваяКолонка("Контрагент",2,);
ТабКонтр.НоваяКолонка("Остаток",1,,2,);
Запрос.Выгрузить(ТаблКонтрОст,1,);
ТаблКонтрОст.Свернуть("КредДокумент","Остаток");
ТаблКонтрОст.ВыбратьСтроки();
Пока ТаблКонтрОст.ПолучитьСтроку() = 1 Цикл
Если ПустоеЗначение(ТаблКонтрОст.КредДокумент)=0 Тогда
ТабКонтр.НоваяСтрока();
ТабКонтр.Остаток=ТаблКонтрОст.Остаток;
ТабКонтр.Контрагент=ТаблКонтрОст.КредДокумент.Контрагент;
КонецЕсли;
КонецЦикла;
ТабКонтр.ВыбратьСтроки();
Пока ТабКонтр.ПолучитьСтроку() = 1 Цикл
Таблица.ВывестиСекцию("Строка2");
КонецЦикла;
Таблица.ВывестиСекцию("Подвал2");
|
Выводятся ТабКонтр.Контрагент и ТабКонтр.Остаток.
НО ввиду того, что в документе СтрокаАвансОтчетаОплата реквизит контрагент находится в табличной части, колонка контрагент не заполняется.
Пробовал в ТаблКонтрОст.КредДокумент искать сумму ТабКонтр.Остаток и, при нахождении строки заполнять контрагента - не помогло: суммы не совпадают (что удивило).
Буду благодарен за помощь. |
Программы » 
Варезник » 
Если был бэкап - восстанавливай и давай буху задачу вбить руками последние день два. А на вопли типа почему - отвечай: "потому что зажали денег на SQL" 
