|
При выгрузке в ЦСВ добавляет все товары в первую строку | ☑ | ||
---|---|---|---|---|
0
Gen833
20.01.14
✎
16:10
|
При выгрузке в ЦСВ добавляет все товары в первую строку т. е. товар№строки;№1;цена,ПЛУ;№строки;№2;цена,ПЛУ;№строки;№3;цена,ПЛУ; и тд.
мне надо так: №строки;№1;цена,ПЛУ; №строки;№2;цена,ПЛУ; №строки;№3;цена,ПЛУ; Процедура ВыгрузитьCSV(Товары); ИмяФайла = Весы.ПутьCSV + "\tov1.csv"; //СоздатьФайл НовыйФайл = Новый ЗаписьТекста(ИмяФайла,КодировкаТекста.ANSI); Стр=""; Для каждого СтрокаТовары Из Товары Цикл Если ЗначениеЗаполнено(СтрокаТовары.Цена) Тогда НомерТовара = СтрокаТовары.PLU; Цена = СтрокаТовары.цена; Имя1 = СтрокаТовары.Товар; Имя2 =СтрокаТОвары.Товар; Цена = СтрокаТовары.цена; срокГодности="0"; Тара="0"; Код = Формат (СтрокаТовары.Артикул,"ЧГ=0"); НомСообщ = "0"; ГрКод = "0"; НовыйФайл.Записать(Строка(НомерТовара) +";"+Строка(Имя1) +";" + СокрЛП(Имя2) +";" + Строка(цел(Цена)) +";" + Строка(срокГодности) +";"+ Строка(Тара) +";" + Строка(код) +";" + Строка(ГрКод) +";" + Строка(НомСообщ) +";" + "0"+";" + Строка(ТекущаяДата())+ ";" + "0"+";0;;"); КонецЕсли; КонецЦикла; Сообщить("Файл сформирован. Выгружено "+ Товары.Количество()+ " элементов"); НовыйФайл.Закрыть(); КонецПроцедуры |
|||
1
Gen833
20.01.14
✎
16:11
|
№строки;№1;цена,ПЛУ
№строки;№2;цена,ПЛУ №строки;№3;цена,ПЛУ вот так |
|||
2
Steel_Wheel
20.01.14
✎
16:13
|
+ Символы.ПС добавь внутрь если
|
|||
3
Gen833
20.01.14
✎
16:16
|
№строки;Товар№1;цена,ПЛУ
№строки;Товар№2;цена,ПЛУ №строки;ТОвар№3;цена,ПЛУ |
|||
4
Gen833
20.01.14
✎
16:21
|
помогли мне, вот решение
Процедура ВыгрузитьCSV(Товары); ИмяФайла = Весы.ПутьCSV + "\tov1.csv"; //СоздатьФайл НовыйФайл = Новый ТекстовыйДокумент; ; Для каждого СтрокаТовары Из Товары Цикл Если ЗначениеЗаполнено(СтрокаТовары.Цена) Тогда НомерТовара = СтрокаТовары.PLU; Цена = СтрокаТовары.цена; Имя1 = СтрокаТовары.Товар; Имя2 =СтрокаТОвары.Товар; Цена = СтрокаТовары.цена; срокГодности="0"; Тара="0"; Код = Формат (СтрокаТовары.Артикул,"ЧГ=0"); НомСообщ = "0"; ГрКод = "0"; НовыйФайл.ДобавитьСтроку(Строка(НомерТовара) +";"+Строка(Имя1) +";" + СокрЛП(Имя2) +";" + Строка(цел(Цена)) +";" + Строка(срокГодности) +";"+ Строка(Тара) +";" + Строка(код) +";" + Строка(ГрКод) +";" + Строка(НомСообщ) +";" + "0"+";" + Строка(ТекущаяДата())+ ";" + "0"+";0;;"); КонецЕсли; КонецЦикла; НовыйФайл.Записать(ИмяФайла,КодировкаТекста.ANSI); Сообщить("Файл сформирован. Выгружено "+ Товары.Количество()+ " элементов"); НовыйФайл.Закрыть(); КонецПроцедуры |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |