Добрый день!

Есть обработка кот создает документы. После заполнения реквизитов выполняется код

Док.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);

Ошибок никак не появляется, но документы не сохраняются и не проводятся

Если в форме нажать кнопку "Провести", появляется такая ошибка:

"{Документ.БлабЛа.Форма.ФормаДокумента(50)}: Ошибка при установке значения атрибута контекста (Изменил): Документ не выбран
   Изменил=глТекущийПользователь;
по причине:
Документ не выбран"

В чем ошибка понять не могу, переменная заполнена, тип совпадает.

Помогите кто знает!!!

точку останова в строке 50 поставь, отладчик врать не будет

"Изменил" - реквизит документа? переменную с таким именем не объявлял в модуле?

и вообще побольше бы кода для анализа

Ошибок никак не появляется, но документы не сохраняются и не проводятся

все делается в попытке/исключении?

код передзаписью документа

Изменил=глТекущийПользователь;
   ЭлементыФормы.ВерхняяПанельФормы.Кнопки.Автор.Текст="Создал: "+Автор+". Изменил: "+Изменил;

ошибка вылазит когда выполняеться присвоение. "Изменил" это реквизит, тип справочникссылка.пользователи. переменная "глТекущийПользователь" того же типа. реквизит заполнен

Попытку не использую, т.к. это в модуле формы. я только обработку трогаю(внешняя)

Еще такой момент: если вручную документ создавать то проводится нормально

а что перед
Док.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
?

там идет заполнение реквизитов, установка даты (прошлой), номера :


   Док.Организация = СтрОрг.Организация;                                                    
   Док.Дата = (формат(НаборЗаписей.Fields("aDay").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aMonth").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aYear").Value, "ЧЦ=2; ЧВН=" )+" 00:00:00");
   Док.Автор = ПараметрыСеанса.ТекущийПользователь.Ссылка;
   Док.Изменил = ПараметрыСеанса.ТекущийПользователь.Ссылка;
   Док.Количество = НаборЗаписей.Fields("aIn").Value;
   Док.Комментарий = ТекущаяДата();
       док.УстановитьНовыйНомер(Док.Организация.Префикс);

блин, а где Док объявляется и чему присваивается? еще коду, да побольше :)

а если кнопку не "провести", а "записать" нажать?

+ "Если в форме нажать кнопку "Провести", появляется такая ошибка:" - откуда форма взялась?

(11) кстати да, если документы не сохранялись, откуда форма появилась?

создаю документ:
док = документы.блабла.СоздатьДокумент();

с записыванием ошибка такаяже

А вот так показываю форму:
Док.ПолучитьФорму("ФормаДокумента").Открыть();

(13) переменная Док после этого не меняется?

можно документ не записывать а сразу формы показать, он тогда как новый идет и при закрытии спрашивает сохранять или нет

(13) на кнопке "провести" запись висит?

нет только реквизиты его. все это делается в цикле

(15) что это значит? про обработчик проведения?? если да то нет ничего там, только перед записью из 2х строк

(17) да покажи ты весь код уже... или стесняешься?

между

док = документы.блабла.СоздатьДокумент();

и

Док.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);

есть открытие формы? сама переменная док нигде не переопределяется? да вообще много чего может быть.

+(19) не боись, покажи

Пока НЕ НаборЗаписей.eof Цикл

Если (НаборЗаписей.Fields("aIn").Value > 0) И (НаборЗаписей.Fields("aOut").Value > 0) Тогда

Сообщить("   "+Строка(НаборЗаписей.Fields("ID_Enter").Value)+"  "+Строка(НаборЗаписей.Fields("aIn").Value)+" "+Строка(НаборЗаписей.Fields("aOut").Value));


СтрОрг = Счетчики.Найти(Строка(НаборЗаписей.Fields("ID_Enter").Value),"Идентификатор");
Если строрг<>Неопределено и строрг.получать тогда
док = документы.КоличествоПокупателей.СоздатьДокумент();

ИначеЕсли строрг=Неопределено тогда
Сообщить("Для идентификатора " + Строка(НаборЗаписей.Fields("ID_Enter").Value) + " не найдена организация");
перейти ~метка1;
КонецЕсли;
Док.Организация = СтрОрг.Организация;                                                    
Док.Дата = (формат(НаборЗаписей.Fields("aDay").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aMonth").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aYear").Value, "ЧЦ=2; ЧВН=" )+" 00:00:00");
//   сообщить(формат(НаборЗаписей.Fields("aDay").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aMonth").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aYear").Value, "ЧЦ=2; ЧВН=" )+" 00:00:00");
Док.Автор = ПараметрыСеанса.ТекущийПользователь.Ссылка;
Док.Изменил = ПараметрыСеанса.ТекущийПользователь.Ссылка;
Док.Количество = НаборЗаписей.Fields("aIn").Value;
Док.Комментарий = ТекущаяДата();
               док.УстановитьНовыйНомер(Док.Организация.Префикс);
//док.Ссылка = док.ПолучитьСсылкуНового();
//Если Сохранять или Проводить Тогда
//Док.Записать(РежимЗаписиДокумента.Запись,РежимПроведенияДокумента.Неоперативный);
//                КонецЕсли;
Если Проводить Тогда
Док.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
               КонецЕсли;
Если Показывать или Док.Организация.Пустая() Тогда
Док.ПолучитьФорму("ФормаДокумента").Открыть();
               КонецЕсли;

КонецЕсли;
~метка1:НаборЗаписей.MoveNext();
Инт = Инт+1;
КонецЦикла;

(21) OMG, хоть отформатируй и быстро спрячь метку, а то убьют

~метка1 o_0

дааа я не такой ка к все))))

а после создания документа его записывать не надо?

Для удобства:

Пока НЕ НаборЗаписей.eof Цикл
  Если (НаборЗаписей.Fields("aIn").Value > 0) И    (НаборЗаписей.Fields("aOut").Value > 0) Тогда

     СтрОрг = Счетчики.Найти(Строка(НаборЗаписей.Fields("ID_Enter").Value),"Идентификатор");
     Если строрг<>Неопределено и строрг.получать тогда
        док = документы.КоличествоПокупателей.СоздатьДокумент();
     ИначеЕсли строрг=Неопределено тогда
        Сообщить("Для идентификатора " + Строка(НаборЗаписей.Fields("ID_Enter").Value) + " не найдена организация");
        перейти ~метка1;
     КонецЕсли;
     Док.Организация = СтрОрг.Организация;                                                    
     Док.Дата = (формат(НаборЗаписей.Fields("aDay").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aMonth").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aYear").Value, "ЧЦ=2; ЧВН=" )+" 00:00:00");
     Док.Автор = ПараметрыСеанса.ТекущийПользователь.Ссылка;
     Док.Изменил = ПараметрыСеанса.ТекущийПользователь.Ссылка;
     Док.Количество = НаборЗаписей.Fields("aIn").Value;
     Док.Комментарий = ТекущаяДата();
     Док.УстановитьНовыйНомер(Док.Организация.Префикс);

     Если Проводить Тогда
        Док.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
     КонецЕсли;
     Если Показывать или Док.Организация.Пустая() Тогда
        Док.ПолучитьФорму("ФормаДокумента").Открыть();
     КонецЕсли;

  КонецЕсли;
~метка1:НаборЗаписей.MoveNext();
  Инт = Инт+1;
КонецЦикла;

(24) "То, чот ты не такой как все, не означает, что ты на что-то годен". Цитата. Ничего личного.

(25) необязательно. Будет в уме

если без меток, то так:

Пока НЕ НаборЗаписей.eof Цикл
   Если (НаборЗаписей.Fields("aIn").Value > 0) И (НаборЗаписей.Fields("aOut").Value > 0) Тогда
       
       СтрОрг = Счетчики.Найти(Строка(НаборЗаписей.Fields("ID_Enter").Value),"Идентификатор");
       Если строрг<>Неопределено и строрг.получать тогда
           док = документы.КоличествоПокупателей.СоздатьДокумент();
           
       ИначеЕсли строрг=Неопределено тогда
           Сообщить("Для идентификатора " + Строка(НаборЗаписей.Fields("ID_Enter").Value) + " не найдена организация");
           НаборЗаписей.MoveNext();
           Инт = Инт+1;
           Продолжить;
       КонецЕсли;
       Док.Организация = СтрОрг.Организация;                                                    
       Док.Дата = (формат(НаборЗаписей.Fields("aDay").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aMonth").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aYear").Value, "ЧЦ=2; ЧВН=" )+" 00:00:00");
       Док.Автор = ПараметрыСеанса.ТекущийПользователь.Ссылка;
       Док.Изменил = ПараметрыСеанса.ТекущийПользователь.Ссылка;
       Док.Количество = НаборЗаписей.Fields("aIn").Value;
       Док.Комментарий = ТекущаяДата();
       док.УстановитьНовыйНомер(Док.Организация.Префикс);
       Если Проводить Тогда
           Док.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
       КонецЕсли;
       Если Показывать или Док.Организация.Пустая() Тогда
           Док.ПолучитьФорму("ФормаДокумента").Открыть();
       КонецЕсли;
       
   КонецЕсли;
   НаборЗаписей.MoveNext();
   Инт = Инт+1;
КонецЦикла;

открывается за раз куча форм?

(24) но и переделывать все я тоже смысла не вижу. Вот когда наступлю на граблю, тогда и отрекусь от меток

по ходу так

(32) к (30)

(30) если пользователь хочет, то пусть смотрит, нет так у него галочка есть

у тебя это все в попытке?
ошибок не выводит потому как

Попытка
       Если Проводить Тогда
           Док.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
       КонецЕсли;
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки

что в процедурах про запись документа?
т.е. в модуле дока .. не помню - что-то типа ПередЗаписью ПриЗаписи

есть ситуации когда ни одно из условий не выполняется в:

Если строрг<>Неопределено и строрг.получать тогда

ИначеЕсли строрг=Неопределено тогда

конецесли;

?

может дата кривая? Куда-нибудь в 31-й век попадают документы.

Было в попытке, но без нее все работает аналогично.

Есть только ПередЗаписью в модуле формы:
Изменил=глТекущийПользователь;
ЭлементыФормы.ВерхняяПанельФормы.Кнопки.Автор.Текст="Создал: "+Автор+". Изменил: "+Изменил;


Модуль документа вообще пустой

Док.ПолучитьФорму("ФормаДокумента").Открыть();
на этом разве останавливается выполнение программы?

(просто так, любопытно, как автор думает) Что происходит после строки?

Док.ПолучитьФорму("ФормаДокумента").Открыть()

мда, алгоритм вообще кривой
Пока НЕ НаборЗаписей.eof Цикл
   Если (НаборЗаписей.Fields("aIn").Value > 0) И (НаборЗаписей.Fields("aOut").Value > 0) Тогда
       
       СтрОрг = Счетчики.Найти(Строка(НаборЗаписей.Fields("ID_Enter").Value),"Идентификатор");
       Если строрг<>Неопределено и строрг.получать тогда
           док = документы.КоличествоПокупателей.СоздатьДокумент();
           Сообщить("Создали новый док");
       ИначеЕсли строрг=Неопределено тогда
           Сообщить("Для идентификатора " + Строка(НаборЗаписей.Fields("ID_Enter").Value) + " не найдена организация");
           НаборЗаписей.MoveNext();
           Инт = Инт+1;
           Продолжить;
       КонецЕсли;
       Док.Организация = СтрОрг.Организация;                                                    
       Док.Дата = (формат(НаборЗаписей.Fields("aDay").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aMonth").Value, "ЧЦ=2; ЧВН=" )+"."+формат(НаборЗаписей.Fields("aYear").Value, "ЧЦ=2; ЧВН=" )+" 00:00:00");
       Док.Автор = ПараметрыСеанса.ТекущийПользователь.Ссылка;
       Док.Изменил = ПараметрыСеанса.ТекущийПользователь.Ссылка;
       Док.Количество = НаборЗаписей.Fields("aIn").Value;
       Док.Комментарий = ТекущаяДата();
       док.УстановитьНовыйНомер(Док.Организация.Префикс);
       Если Проводить Тогда
           Сообщить("попытались провести док");
Док.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
       КонецЕсли;
       Если Показывать или Док.Организация.Пустая() Тогда
           Док.ПолучитьФорму("ФормаДокумента").Открыть();
       КонецЕсли;
       
   КонецЕсли;
   НаборЗаписей.MoveNext();
   Инт = Инт+1;
КонецЦикла;

что в окне сообщений после выполнения?

(39) дата в документ садиться

(38) условие работает как надо

(45) да, я прогнал, сорри

(41) (42) идет дальше, просто открываются формы документов

короче - точку останова за записи - и смотреть ссылку в объекте после записи

(43) а там вы товарищ срочку добавили
Сообщить("Создали новый док");

(43) по вашему напишет что создали документ (2 раза в моем случае)

(49) и ? я там две строчки добавил - посмотреть ка в условия заходит

почему два раза?

(48) вот тут еще интересный момент. ссылка то пустая, хоть до хоть после. но и когда вручную делаю тоже(хотя тогда проводиться)

(51)(52) инт вообще только для того чтобы потом сказать сколько сделали.
никакой нагрузки смысловой

2 раза т.к. по условию и по наличию данных. на это тоже не стоит обращать внимания

... ты давай сюда выложи сообщение которое выводится при выполнении кода из (43)

(43) это не пойдет мне, т.к. если он не нашел то надо просто показать документ с незаполненным реквизитом(тем который ненашли). а по вашей методике мы это пропустим

(53) вот это шокирует

    Если строрг<>Неопределено и строрг.получать тогда
        док = документы.КоличествоПокупателей.СоздатьДокумент();

то есть получается, если строрг.получать не равно ИСТИНА у тебя вообще получается бред. Документы не создаются, а формы открываются тем не менее.

(55)


Для идентификатора 2~474~160 не найдена организация
//тут еще куча аналогичных строк
Создали новый док
попытались провести док
Создали новый док
попытались провести док
Для идентификатора 660~295~818 не найдена организация

(55)создаем новый док только 2 раза т.к. тока 2 галочки.

апочему я In не использую

(53) читать внимательней, там сразу за этим переход на метку где все пропущено уже

(58) а как ищешь организацию? Что-то в коде нет этого поиска.

(60)для (57) ответ

(53) до записи ссылка и должна быть пустая, а вот то что после пустая - это уже что-то нездоровое
у тебя в модуле документа (не формы документа) точно ничего нет?

(58) организация сидит в таблице, в ней я и ищю
СтрОрг = Счетчики.Найти(Строка(НаборЗаписей.Fields("ID_Enter").Value),"Идентификатор");

(60) Если у тебя
строрг.получать=Ложь
то в строрг=Неопределено не зайдет

(63) совсем пусто там

(66) а модуль проведения тогда где?

(62) сам вчитайся повнимательнее в код: переход на метку у тебя идет только если СтрОрг = Неопределено. Вник?

(65) пипец, тогда я не прогнал в (38)

(65)
  Если строрг<>Неопределено и строрг.получать тогда
     док = документы.КоличествоПокупателей.СоздатьДокумент();
           
  ИначеЕсли строрг=Неопределено  или не строрг.получать тогда
     Сообщить("Для идентификатора " + Строка(НаборЗаписей.Fields("ID_Enter").Value) + " не найдена организация");
     НаборЗаписей.MoveNext();
     Инт = Инт+1;
     Продолжить;
  КонецЕсли;

Тут был касяк, согласен. но он выявлялся только когда мы галочки снимали. а я этого не делал

(68) да нашол, но опять же в этом случае этого не случалось

(67) есть общий модуль, там событие ПередЗаписьюДокументовПередЗаписью

сейчас его ковырну досканально

(71) без
           Док.ПолучитьФорму("ФормаДокумента").Открыть();
пробовал?

(73) конечно, на форме есть галочка которая рулит показывать или нет. эффект одинаковый

(72) модуль посмотрел, ничего интересного одни если и все проскакиваю

а Основной реквизит формы какой у тебя там задан?

(76) непонял что значит основной реквизит. Думаю это наименование

а может ли быть касяк изза того что я через 1 переменную прогоняю все документы?
т.е. когда второй документ фактически перекрывает первый

(77) нет - это объект документ - другими словами "контекст", который у тебя теряется в строке 50.

еще такой момент: после проведения ссылка заполнена и флажок проведен у документа стоит, а в списке документов его нет

(79) это внутри транзакции, а если потом отмена тразакции: Отказ = Истина; то всё херится. Откатывается назад.

!!!!!!!!!!!!!!!!!!!ВСЕ!!!!!!!!!!!!!!!!!!!!!!!

трабл был в транзакции. ПоЛучаеться я начинал транзакцию, но не заканчивал!

перемудрил одним словом

Всем участвующим спасибо за содействие. Отдельное спасибо уважаемому hhhh, за наводку на мысль!