Advertisement
Guest User

ayy lmao xd

a guest
Jan 24th, 2020
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.19 KB | None | 0 0
  1. Тх=СоздатьОбъект("Текст");
  2. Имя=СокрЛП(Константа.ПутьВыгрузки)+"vyg.csv";
  3. Тх.Записать(Имя); Тх.Открыть(Имя);
  4. Стр="ОКПО;ТипТовара;Код;Наименование;Подтип;Производитель;Количество;ЦенаСНДС;СуммаСНДС;СкидкаПоСтроке";
  5. Тх.ДобавитьСтроку(Стр);
  6. ВыбратьСтроки();
  7. Пока ПолучитьСтроку()=1 Цикл
  8. //Если Число(Товар.Код)=30 Тогда
  9. // Продолжить
  10. //КонецЕсли; // исключить контейнеры
  11. Стр=СокрЛП(Клиент.ОКПО)+";"+СокрЛП(Товар.ТипТовара)+";"+СокрЛП(Товар.Код)+";"+СокрЛП(Товар.Наименование)+";"+СокрЛП(Товар.Подтип)+";"+СокрЛП(Товар.Производитель)+";"+СокрЛП(Количество)+";"+СокрЛП(ЦенаСНДС)+";"+СокрЛП(СуммаСНДС)+";"+СокрЛП(СкидкаПоСтроке);
  12. Тх.ДобавитьСтроку(Стр);
  13. КонецЦикла;
  14. Тх.Записать(Имя)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement