Имя: Пароль:
1C
1С v8
При выгрузке в ЦСВ добавляет все товары в первую строку
,
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);
            Сообщить("Файл сформирован. Выгружено "+ Товары.Количество()+ " элементов");
            НовыйФайл.Закрыть();
        
КонецПроцедуры
Основная теорема систематики: Новые системы плодят новые проблемы.