Тов.ВыбратьДокументы(Дата1,Дата2);
   Пока Тов.ПолучитьДокумент()=1 Цикл
       ном = 0;
       номстрок = 1;
       СколькоСтрок = Тов.КоличествоСтрок();
       Пока номстрок <= СколькоСтрок цикл
           Тов.ПолучитьСтрокуПоНомеру(номстрок);
           номстрок = номстрок + 1;
           Если Тов.ТипТранз = 11 тогда
               СписокПараметров.УдалитьВсе();
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.НомерДок)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.ДатаДок)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.СчетКредита)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.Товар.Код)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.Товар.VIN)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.Товар)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.ТипТранз)+"'");
               СписокПараметров.ДобавитьЗначение(Строка(Тов.Количество)+"'");
               СписокПараметров.ДобавитьЗначение(Строка(Тов.Всего));
               СтарКол=Тов.Количество;
               СтарВсего = Тов.Всего;
               Стр=СписокПараметров.ВСтрокуСРазделителями();                                                
               Текст.ДобавитьСтроку(Стр);        
               ном = ном+1;
           ИначеЕсли Тов.ТипТранз = 12 тогда
               Текст.УдалитьСтроку(ном);
               
           ИначеЕсли Тов.ТипТранз = 17 тогда    
               
               СписокПараметров.УдалитьВсе();
               
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.НомерДок)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.ДатаДок)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.СчетКредита)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.Товар.Код)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.Товар.VIN)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.Товар)+"'");
               СписокПараметров.ДобавитьЗначение(СокрЛП(Тов.ТипТранз)+"'");
               СписокПараметров.ДобавитьЗначение(Строка(СтарКол)+"'");
               СписокПараметров.ДобавитьЗначение(Строка(СтарВсего-Тов.Всего));
               
               Стр=СписокПараметров.ВСтрокуСРазделителями();                                                
               Текст.УдалитьСтроку(ном);
               Текст.ДобавитьСтроку(Стр);      
                               
           Иначе
               СписокПараметров.УдалитьВсе();
           КонецЕсли;
           ;
           Сообщить(Тов.НомерДок);
       
   КонецЦикла;
   
КонецЦикла;
Текст.Записать(ИмяФайла)

Сразу скажу метод Пока Тов.ПолучитьСтроку() = 1 я уже пробовал эффект один и тот же

удаляем из ТЧ или из текста всетаки?

из текстовика

(3) Чтоб удалять из Текста, туда сначала нужно добавить? Или нет?!

там же он по очереди добавляет, как я понял из отладчика

gjnjve xnj ujdyjrjl

ну да, просто есть одинаковые строки идущие друг за другом и вот предыдущие надо удалить и оставить последнюю.

(7) а не добавлять такую строку ?

я сначала удаляю старою строку, а затем на ее место ставлю новую.

(7) То есть ты добавляешь в конец списка, а где-то в начале при этом удаляешь?
Круто!

(9) А надо - удалить все строки, а потом добавить только нужные.

почему я добавляю в конец и удаляю с конца

Может просто не нужно добавлять то что нужно потом удалить?  Ну это так, в порядке бреда
Либо в ТЗ добавить все, потом отсортировать по признаку удаления и нужный блок поместить в текстовик

и тем более как я могу удалить из документа эти "ненужные" мне строки, остальным то они очень нужны.

так как видно из кода, отсортировать не получиться, т.к. там идут взаимосвязь с предыдущей строкой.

(14) Ты никаких строк из документа не удаляешь.

"000001'","03.01.12'","41.2'","59833'","406.1005033'","????????? ??????????? ???? 406'","11'","1'","250"
"000001'","03.01.12'","41.2'","35524'","406.1006170-10'","??????????? ???? ?????? 406'","11'","1'","25"
"000001'","03.01.12'","41.2'","53449'","406-1006160-10'","??????????? ???? ??????? 406'","11'","1'","30"
"000001'","03.01.12'","41.2'","35522'","406.1006150-10'","??????????? ???? ??????? 406-1006150-10'","11'","1'","20"
"000001'","03.01.12'","41.2'","77054'","4052'","??????? ?????????????? ?????? 406??. (? ?????????????)'","11'","1'","692"
"000001'","03.01.12'","41.2'","61790'","3163-8110020-96'","???????????????? 3163'","11'","1'","1900"
"000001'","03.01.12'","41.2'","69217'","???007'","??????? ???????? ??? (2 ????.)L=120?? ??????'","11'","1'","90"

вот примерный выход в текстовик

(12) ну-ну.

и помещай не помещай в отдельную ТЗ ничего от этого не измениться.

самое что интересное, он если удаляет именно 5ю строку, то в с конца он удаляет правильную только с конца текстовика 5ю строку! прям чудеса да и только!

(20) Позовите программиста.

это не ответ, так как по идее все гладко.

NS

16 - 18.06.12 - 18:24
(14) Ты никаких строк из документа не удаляешь.

они то как раз и удаляются

(22) Где движения по тексту?

(23) Какая строка в коде удаляет строки из документа?

+(24) Откуда растут ноги у этих строчек?
           ИначеЕсли Тов.ТипТранз = 12 тогда
               Текст.УдалитьСтроку(ном);

это я удаляю строку в текстовике под номером переменной ном из цикла

а там как раз номер строки предыдущей, то есть последней

(27) > (24)

Если тебе нужно удалить предыдущую строку - то

Текст.УдалитьСтроку(ном);
ном=ном-1;

Ты кассу чтоли обрабатываешь? Только сейчас просек.

да-да это отчет о продажах с транзакциями

Уберите дятла от кассы! а то надолбит!!!

Зачем, за ним потом можно это все разгрести за вдвое большие бабки.

Ура я сделал!!! только через ТЗ!!!

Надо еще посмотреть, что ты там "сделал"...

Медленно, но надежно:

       Для Счетчик = -Тов.КоличествоСтрок() По - 1  Цикл
       Тов.ПолучитьСтрокуПоНомеру(-Счетчик);
       Если Тов.ТипТранз = 12 Тогда
           Тов.УдалитьСтроку(-Счетчик);
       КонецЕсли;
   КонецЦикла;

+(37) сор не в ту степь)