Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Тх=СоздатьОбъект("Текст");
- Имя=СокрЛП(Константа.ПутьВыгрузки)+"vyg.csv";
- Тх.Записать(Имя); Тх.Открыть(Имя);
- Стр="ОКПО;ТипТовара;Код;Наименование;Подтип;Производитель;Количество;ЦенаСНДС;СуммаСНДС;СкидкаПоСтроке";
- Тх.ДобавитьСтроку(Стр);
- ВыбратьСтроки();
- Пока ПолучитьСтроку()=1 Цикл
- //Если Число(Товар.Код)=30 Тогда
- // Продолжить
- //КонецЕсли; // исключить контейнеры
- Стр=СокрЛП(Клиент.ОКПО)+";"+СокрЛП(Товар.ТипТовара)+";"+СокрЛП(Товар.Код)+";"+СокрЛП(Товар.Наименование)+";"+СокрЛП(Товар.Подтип)+";"+СокрЛП(Товар.Производитель)+";"+СокрЛП(Количество)+";"+СокрЛП(ЦенаСНДС)+";"+СокрЛП(СуммаСНДС)+";"+СокрЛП(СкидкаПоСтроке);
- Тх.ДобавитьСтроку(Стр);
- КонецЦикла;
- Тх.Записать(Имя)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement