Конфігурація бухгалтерия+торговля+производство+зарплата+кадры+Cash&Carry+розница+(торговля)+урб support, присутній як бухгалтерський облік так і оперативний, документи по оперативному і бух. обліку при проведенні записують дані в Регистр.Остатки. Задача вигрузити в текстовий файл згруповані залишки ТМЦ на кожну дату в періоді.
написав таке:
Код
Результат на кожну дату один й той самий результат, та ще й відрізняється від реального.
Будь-ласка допоможіть, (сильно не сваріть, ятільки вчуся)
Sirius83 @ Вчера, 23:12
,
Хочу поправити, результат у всіх строках на кожну дату отримуємо такий який відповідає результату на ВыбКонПериода.
Sirius83 @ Сегодня, 2:23
,
Сам запитав, сам і відповім.
Процедура Сформировать()
КаталогВыгрузкиФайлы = КаталогВыгрузки + "\CSVFiles";
Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку("ProductID;Data;Qty;Summ");
ДатаТек = ДатаНачало;
Пока ДатаТек <= ВыбКонПериода Цикл
Запр = СоздатьОбъект("Запрос");
ТекстЗапр = "
|Период с ДатаНачало по ДатаТек;
|ТМЦ = Регистр.Остатки.ТМЦ;
|Кво = Регистр.Остатки.Кво;
|СуммаОсн = Регистр.Остатки.СуммаОсн;
|Условие (ТМЦ в выбТМЦ);
|Группировка ТМЦ;
|Функция ККво = КонОст(Кво);
|Функция КСуммаОсн = КонОст(СуммаОсн);";
Если Запр.Выполнить(ТекстЗапр)=0 Тогда
Возврат;
КонецЕсли;
Пока Запр.Группировка("ТМЦ")=1 Цикл
Если Запр.ТМЦ.Выбран()=0 Тогда
Продолжить;
КонецЕсли;
Если Запр.ТМЦ.ЭтоГруппа()=0 Тогда
Текст.ДобавитьСтроку(СокрЛП(Запр.ТМЦ.Код) + ";" + ПреобразоватьДату(ДатаТек) + ";" + ОбработкаСтроки(СокрЛП(Запр.ККво)) + ";" + СтрЗаменить(СокрЛП(Запр.КСуммаОсн), ",", "."));
КонецЕсли;
КонецЦикла;
ДатаТек = ДатаТек + 1;
КонецЦикла;
Текст.ДобавитьСтроку("");
Текст.Записать(КаталогВыгрузкиФайлы + "\Stocks.csv");
КонецПроцедуры
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua