10 раз переделыааю код и все равно возвращаюсь в начало
Процедура ЗаполняемПЛраб()
тз.выбратьстроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
//================создаем новый!=====================
ДокМ=СоздатьОбъект("Документ.ПутевойЛистГрузовой");
ДокМ.Новый();
глЗаполнитьШапку(ДокМ);
ДокМ.ДатаДок = ТЗ.ДатаДок;
ДокМ.Автомобиль = ТЗ.Автомобиль.ТекущийЭлемент();
Докм.ПоказанияСпидометраНаНачало=ТЗ.КоличествоНачПокСпид;
Докм.ПоказанияСпидометраНаКонец=ТЗ.КоличествоКонПокСпид;
Докм.ПробегGPS=ТЗ.GPS;
Докм.ПробегНорма=ТЗ.Км;
Докм.СуммаЗаправки=ТЗ.ПоступилоСумма;
Докм.ПоступилоГСМ=ТЗ.ПоступилоЛитр;
Докм.Автор=глПользователь;
//================создаем новый!=======================================================
//=========================проверям на наличие уже созданного пл=======================
ДокПЛ=СоздатьОбъект("Документ.ПутевойЛистГрузовой");
ДокПЛ.ВыбратьДокументы(Дата1,Дата2);
Пока ДокПл.ПолучитьДокумент()=1 Цикл
Если ДокПЛ.ПометкаУдаления() = 0 Тогда // (ДокПЛ.Проведен() = 0) И
//================находим документ и редактируем его!=====================
Если (ДокПЛ.Автомобиль=ДокМ.Автомобиль) и (ДокПЛ.ДатаДок=ДокМ.ДатаДок) Тогда
Если Вопрос("ПЛ № "+ДокПЛ+" уже записан (№ "+ДокПЛ.Номердок+"). РЕДАКТИРОВАТЬ?", "Да+Нет") = "Да" Тогда
ДокМ=ДокПЛ;
Если ДокМ.Проведен()=1 Тогда
ДокМ.СделатьНеПроведенным();
КонецЕсли;
КонецЕсли;
Докм.ПоказанияСпидометраНаНачало=ТЗ.КоличествоНачПокСпид;
Докм.ПоказанияСпидометраНаКонец=ТЗ.КоличествоКонПокСпид;
Докм.ПробегGPS=ТЗ.GPS;
Докм.ПробегНорма=ТЗ.Км;
Докм.СуммаЗаправки=ТЗ.ПоступилоСумма;
Докм.ПоступилоГСМ=ТЗ.ПоступилоЛитр;
Докм.Автор=глПользователь;
ДокМ.Записать();
Сообщить("Редактирован! "+ДокМ.ТекущийДокумент());
КонецЕсли;
//================находим документ и редактируем его!=====================
КонецЕсли;
КонецЦикла;
Попытка
ДокМ.Записать();
Сообщить("Создан новый ПЛ "+ ДокМ);
Исключение
КонецПопытки;
//===========================================================
КонецЦикла;
сообщить("Ок.");
КонецПроцедуры
создаю новый
сообщает:
Создан новый ПЛ ПутевойЛистГрузовой ЗЕ-0000001 (04.01.17)
Создан новый ПЛ ПутевойЛистГрузовой ЗЕ-0000002 (05.01.17)
Создан новый ПЛ ПутевойЛистГрузовой ЗЕ-0000003 (06.01.17)
Ок.
Здесь все хорошо.
теперь провераю на наличие дока и редактирую его
сообщает:
Редактирован! ПутевойЛистГрузовой ЗЕ-0000001 (04.01.17)
Редактирован! ПутевойЛистГрузовой ЗЕ-0000002 (05.01.17)
Редактирован! ПутевойЛистГрузовой ЗЕ-0000003 (06.01.17)
Редактирован! ПутевойЛистГрузовой ЗЕ-0000002 (05.01.17)
Редактирован! ПутевойЛистГрузовой ЗЕ-0000003 (06.01.17)
Редактирован! ПутевойЛистГрузовой ЗЕ-0000003 (06.01.17)
Ок.
************************************************************************
Редактирован! ПутевойЛистГрузовой ЗЕ-0000002 (05.01.17)
Редактирован! ПутевойЛистГрузовой ЗЕ-0000003 (06.01.17)
Редактирован! ПутевойЛистГрузовой ЗЕ-0000003 (06.01.17)
Почему 2 строчка задваеветься, а 3 вовсе троит?