Конфігурація бухгалтерия+торговля+производство+зарплата+кадры+Cash&Carry+розница+(торговля)+урб support, присутній як бухгалтерський облік так і оперативний, документи по оперативному і бух. обліку при проведенні записують дані в Регистр.Остатки. Задача вигрузити в текстовий файл згруповані залишки ТМЦ на кожну дату в періоді.
написав таке:
Код Процедура Сформировать()
КаталогВыгрузкиФайлы = КаталогВыгрузки + "\CSVFiles";
Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("ProductID;Data;Qty;Summ");
ДатаТек = ДатаНачало;
Запр = СоздатьОбъект("Запрос");
ТекстЗапр = "
|Период с ДатаНачало по ВыбКонПериода;
|ТМЦ = Регистр.Остатки.ТМЦ;
|Кво = Регистр.Остатки.Кво;
|СуммаОсн = Регистр.Остатки.СуммаОсн;
|Условие (ТМЦ в выбТМЦ);
|Группировка ТМЦ;
|Функция ККво = КонОст(Кво);
|Функция КСуммаОсн = КонОст(СуммаОсн);";
Если Запр.Выполнить(ТекстЗапр)=0 Тогда
Возврат;
КонецЕсли;
Пока ДатаТек <= ВыбКонПериода Цикл
Пока Запр.Группировка("ТМЦ")=1 Цикл
Если Запр.ТМЦ.Выбран()=0 Тогда
Продолжить;
КонецЕсли;
Если Запр.ТМЦ.ЭтоГруппа()=1 Тогда
Продолжить;
Иначе
Текст.ДобавитьСтроку(СокрЛП(Запр.ТМЦ.Код) + ";" + ПреобразоватьДату(ДатаТек) + ";" + ОбработкаСтроки(СокрЛП(Запр.ККво)) + ";" + СтрЗаменить(СокрЛП(Запр.КСуммаОсн), ",", "."));
КонецЕсли;
КонецЦикла;
ДатаТек = ДатаТек + 1;
КонецЦикла;
Текст.ДобавитьСтроку("");
Текст.Записать(КаталогВыгрузкиФайлы + "\Stocks.csv");
КонецПроцедуры
Результат на кожну дату один й той самий результат, та ще й відрізняється від реального.
Будь-ласка допоможіть, (сильно не сваріть, ятільки вчуся)
Сообщение отредактировал Vofka - 25.06.18, 12:58