упп 1,0 релиз 8,1,0,17

Документ проведен, предположим 2 недели назад, его надо напечатать. Вылезает оконце: Документ изменен. Для печати перепроведите документ.
После проводки все печатается. Но, есть докумы, которые перепроводить низззя.
Как решить сию задачу?

косяк. при открытии формы документа, что-то меняется. смотри отладчиком.

Изменений в документе соответственно не было.

(0) Значит, при открытии форма модифицируется.

не косяк, а чьи-то кривые ручки, проставившие переопределение чего-то в ПриОткрытии документа.

Были, см, напр. (1)
Чудесов не бывает.

(5) к (2)

(5) [Чудесов не бывает.]
учёт в УПП 1.0 супер чудо

(7) Ну,хорошо.. бывают исключения ;d

(7) +1)) приходилось сталкиваться))

Гы, Поступления? Или Реализация.
Смотри при активизации строки ТЧ, там реквизиты аналитики присваивают тип. Плохо присваивают.

(10) вопрос даже не в том. плохо или хорошо, вопрос в том. нахрена это делать в проведенном документе. и там такое на каждом шагу.

Бух пока жаловался на списание и принятие ОС.

(11)Это ко мне вопрос? Я бы с удовольствием занялась выяснением этого вопроса, но у меня самолет через 4 часа :(

Это утверждение =)

(13) это не вопрос) это констатация.

или так =Р

ох ты ж ёжик...
вот такая фигня там лежит:
Процедура ПриОткрытии()

      Если ЭтоНовый() Тогда // проверить объект на то, что он еще не внесен в ИБ

              // Заполнить реквизиты значениями по умолчанию.
              мРаботаСДиалогами.ЗаполнитьШапкуДокумента(ЭтотОбъект, глТекущийПользователь);
              мРаботаСДиалогами.УстановитьНомерДокумента(ЭтотОбъект);
              ЗаполнитьДаннымиПоУмолчанию(ЭтотОбъект);

      КонецЕсли;

      // Проверка ведения однофирменности
      ЭлементыФормы.Организация.ТолькоПросмотр = НЕ УчетПоВсемОрганизациям;

      // Заполнить подменю выбора печатных форм.
      СоответствиеМакетов = ЭтотОбъект.ПолучитьСписокПечатныхФорм();
      мРаботаСДиалогами.УстановитьПодменюВыбораПечатнойФормы(ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ПодменюПечати,
                                           СоответствиеМакетов,
                                           Новый
Действие("КоманднаяПанельФормыДействиеВыбратьПечатнуюФормы"));

      // Установить печатную форму по умолчанию.
      мРаботаСДиалогами.УстановитьКнопкуПечати(ЭтотОбъект.Метаданные().Имя,
ЭтаФорма, СоответствиеМакетов);

      мРаботаСДиалогами.УстановитьЗаголовокФормыДокумента("", ЭтотОбъект, ЭтаФорма);

      ЗаполнитьСписокРеквизитовЗависимыхОтТиповУчета();

//++++++++++Н           Иванченко А. Ю. СиДата
//      мРаботаСДиалогами.ВидимостьРеквизитовПоТипуУчета(ЭтотОбъект,
ЭтаФорма, мСтрокаРеквизитыНалУчета);
              ОтражатьВБухгалтерскомУчете=Истина;
//++++++++++К

      // Установим видимость и доступность реквизитов
      УстановитьВидимость();

      // Установить активный реквизит.
      мРаботаСДиалогами.АктивизироватьРеквизитВФорме(ЭтотОбъект, ЭтаФорма);
      мТекущаяДатаДокумента = Дата;

КонецПроцедуры // ПриОткрытии()

ЗаполнитьСписокРеквизитовЗависимыхОтТиповУчета();

Вот это подозрительно.

мРаботаСДиалогами.АктивизироватьРеквизитВФорме(ЭтотОбъект, ЭтаФорма);
И вот это я бы глянула.

Ставлю точку останова:
ЗаполнитьСписокРеквизитовЗависимыхОтТиповУчета();  --> пусто

мРаботаСДиалогами.АктивизироватьРеквизитВФорме(ЭтотОбъект, ЭтаФорма);  -->
ЭтотОбъект - Списание ОС 00001 от такого то числа.
ЭтаФорма   - Форма.

Ставлю напротив каммент, ни чего не меняется.

(20)При чем тут пусто? Ты процедуру посмотри, что там творяется?

А после активироватьРеквизит - посмотри что активирует и нет ли в модуле процедур обработки активации этого реквизита.

(20)Перейди в процедуру-то

(22) ух, ты такая скоростная

Ну, еще как вариант: по-очереди закоменти эти две строки, и посмотри - будет модифицированность или нет.

(24)Я нервничаю, мне себя надо чем-то отвлечь :)

а паника паника !!!
как в процедуру перейти?

я еще, не на столько разбираюсь =(

(27)ф11 в режиме отладки, ф12 в режиме конфигурирования.

Там в меню есть "Отладка" - там много прикольных фишечек :)

Процедура ЗаполнитьСписокРеквизитовЗависимыхОтТиповУчета() Экспорт

   мСтрокаРеквизитыБухУчета = "СчетСписанияБУ, СубконтоБУ, ОС.СтоимостьБУ, ОС.АмортизацияБУ, ОС.АмортизацияЗаМесяцБУ, ОС.ОстСтоимостьБУ"; //, ОС.СписаноНаЗатратыБУ
   мСтрокаРеквизитыНалУчета = "СчетСписанияНУ, СубконтоНУ, ОС.СтоимостьНУ, ОС.АмортизацияНУ, ОС.АмортизацияЗаМесяцНУ, ОС.ОстСтоимостьНУ";

КонецПроцедуры // ЗаполнитьСписокРеквизитовЗависимыхОтТиповУчета()

Прожал ф11 дальше, ни куда больше не зашел. Вернулся обратно к ЗаполнитьСписокРеквизитовЗависимыхОтТиповУчета();

Процедура лежит в модуле объекта.

Глянь что в ПередОткрытием()

Ни чего нет.
Есть ПриОткрытии, ОбработкаВыбора и ПослеЗаписи

(32)Нормально. Активируется что?

мРаботаСДиалогами.АктивизироватьРеквизитВФорме(ЭтотОбъект, ЭтаФорма);
Вот в этой процедуре что происходит?

Функция АктивизироватьРеквизитВФорме(ДокументОбъект, ФормаДокумента ,СтруктураРеквизитов = неопределено,ТабличнаяЧасть = неопределено,СтраницыСТабЧастями = неопределено) Экспорт

   Если Не ДокументОбъект.Проведен Тогда
       
       Если СтруктураРеквизитов = Неопределено Тогда
           // Структура - порядок активизации реквизитов.
           // Активизируется первый не заполненный.
           СтруктураРеквизитов = Новый Структура();
           СтруктураРеквизитов.Вставить("Дата");
           СтруктураРеквизитов.Вставить("Организация");      
           СтруктураРеквизитов.Вставить("СчетОрганизации");
           СтруктураРеквизитов.Вставить("Склад");
           СтруктураРеквизитов.Вставить("БанковскийСчет");
           СтруктураРеквизитов.Вставить("ФизЛицо");
           СтруктураРеквизитов.Вставить("Контрагент");
           СтруктураРеквизитов.Вставить("ДоговорКонтрагента");
           СтруктураРеквизитов.Вставить("Касса");
           СтруктураРеквизитов.Вставить("Получатель");
           СтруктураРеквизитов.Вставить("Плательщик");
           СтруктураРеквизитов.Вставить("ПодразделениеОрганизации");
       КонецЕсли;
       
       Для каждого Элемент Из СтруктураРеквизитов Цикл
           
           // Определим, есть ли ЭУ с таким именем.
           ЭлементУправления = ФормаДокумента.ЭлементыФормы.Найти(Элемент.Ключ);
           Если ЭлементУправления <> Неопределено Тогда // есть такой
               Если ЭлементУправления.Видимость И ЭлементУправления.Доступность И НЕ ЗначениеЗаполнено(ЭлементУправления.Значение) Тогда
                   
                   // Нашли не заполненный ЭУ. Делаем его текущим и прекращаем цикл.
                   ФормаДокумента.ТекущийЭлемент = ЭлементУправления;
                   Возврат(Истина);
                   Прервать;
               КонецЕсли;
               ТекущийРеквезит = ЭлементУправления;
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;
   
   //если в документе есть ТЧ то необходимой фокус передать ей
   Если ТабличнаяЧасть <> Неопределено Тогда
       ЭлементУправления = ФормаДокумента.ЭлементыФормы.Найти(ТабличнаяЧасть.Имя);
       Если ТипЗнч(ЭлементУправления) = Тип("ТабличноеПоле") Тогда
           ФормаДокумента.ТекущийЭлемент = ЭлементУправления;
           Возврат(Истина);
       ИначеЕсли СтраницыСТабЧастями <> неопределено Тогда
           
           ЭлементУправления = ФормаДокумента.ЭлементыФормы.Найти(СтраницыСТабЧастями.НайтиПоЗначению(ТабличнаяЧасть.Имя));
           Если ТипЗнч(ЭлементУправления) = Тип("ТабличноеПоле") Тогда
               ФормаДокумента.ТекущийЭлемент = ЭлементУправления;
               Возврат(Истина);
           КонецЕсли;
           
       КонецЕсли;
   КонецЕсли;
   //Если все поля заполнены но нет ТЧ то передадим фокус панели, в результате
   //визуально будет казаться что фокус не установлен ни на одном ЭФ.
   //Хотелось бы фокус установить на кнопке "Закрыть", но пока технически не предоставляется
   //такой возможности.
   ЭлементУправления = ФормаДокумента.ЭлементыФормы.Найти("ОсновныеДействияФормы");
   Если ЭлементУправления <> Неопределено Тогда
           ФормаДокумента.ТекущийЭлемент = ЭлементУправления;
           Возврат(Истина);
   КонецЕсли;
   
Возврат(Ложь);

КонецФункции// АктивизироватьРеквизитВФорме()

Кстати, выведи вообще в отладчик Модифицированность, прошлепай всю процедуру по ф10 и посмотри, после какой строчки переходит модифицированность в Да.

О_о

(37)Нормально, не должно ничего слетать.

(39)Поставь точку останова в начале процедуры. Начни отладку. В конфигураторе открой табло, там добавь строчку, введи ЭтотОбъет.Модифицированность(). Потом шлепай ф10 и смотри на значение.

написал ЭтотОбъет.Модифицированность() в Столбец "Выражение"
в "Значение" выдало {(1,1)}: Переменная не определена (ЭтотОбъет)

скопировал без буквы к )

объеКт

:)

ЭЭЭ

посмотри процедуру приактивизациистроки!

была такая фигня в УПП

Везде Ложь/булево
на  УстановитьВидимость();
изменилось на истина/булево

(47)Там не активируется тч - она же не передается в процедуру. Там активизироваться основные действия должны

(49)О как! Давай процедуру.

(50) строка сама по себе активизируется при открытии

(52)Там принудительная активация идет же, смотри процедуру ПриОткрытии.

да-да, там тоже встречались засады

приактивизациистроки нет такой

(53) вот именно

смотри коммент//если в документе есть ТЧ то необходимой фокус передать ей

Процедура УстановитьВидимость()

   ЭлементыФормы.НадписьОрганизация.Видимость    = ЭлементыФормы.Организация.Видимость;
   ЭлементыФормы.СубконтоБУ.Доступность          = НЕ (мОбщегоНазначения.ЗначениеНеЗаполнено(СчетСписанияБУ) ИЛИ (СчетСписанияБУ.ВидыСубконто.Количество() = 0));
   ЭлементыФормы.СубконтоНУ.Доступность          = НЕ (мОбщегоНазначения.ЗначениеНеЗаполнено(СчетСписанияНУ) ИЛИ (СчетСписанияНУ.ВидыСубконто.Количество() = 0));
   ЭлементыФормы.НадписьСчетСписанияНУ.Видимость = ОтражатьВНалоговомУчете;
   ЭлементыФормы.НадписьСубконтоНУ.Видимость     = ОтражатьВНалоговомУчете;

   мНалоговыйУчетУСН.УстановитьВидимостьРеквизитовУСН(ЭлементыФормы, Организация, Дата);

КонецПроцедуры //УстановитьВидимость()

(55)Давай смотри уже УстановитьВидимость(), а то я улечу сейчас уже.

НЕТ, не отпущу!!!!!!

(57)И чо? ЧТ в параметрах не передается! Код несколько приоритетнее каментов.

короче, что за док? у меня есть 1.0 релиз. сам посмотрю

(60)Меня там муж ждет :)

(61) спокойно! тебе перед полетом стрессы противопоказаны))

Ну, кроме
   мНалоговыйУчетУСН.УстановитьВидимостьРеквизитовУСН(ЭлементыФормы, Организация, Дата);

ничего подозрительного не вижу.
Пройдись так же отладчиком, посмотри, когда меняется модифицированность.

Списание ОС и Принятие ОС

(64)Для меня полет сам по себе стресс, у меня сейчас истерика начнется :)

ща, смотрю ужО

(67) а что ж ты? поехала бы на поезде))

какой муж?!! =))
у меня паника была, когда я с питера в ростов летел, самолет на 5 часов задержали, из-за поломки....

(69)Дак это... 5 дней выходных, я даже туда-обратно на поезде не успею :)

(70)ААА, не надо меня пугать, я без посторонней помощи справлюсь!

Прожал ф10 по Процедура УстановитьВидимость()
везде истина/булево

(17) ОтражатьВБухгалтерскомУчете=Истина;

Без паники! все будет отлично!

Когда я на АН-24 в Кустанай летела 5 часов, я даже в туалет боялась выйти - двруг этот запорожец с моторчиком перевернется?

ОтражатьВБухгалтерскомУчете=Истина;

не оно косячит?

ставил остонов - Истина

(77)А, похоже оно, если оно не закомментировано.

(78)перед УстановитьВидимость() строка ОтражатьВБухгалтерскомУчете=Истина; закоментирована или нет?

Какой останов? Идет прямое присваевание реквизиту

нет без комментов

Видно же его невооруженным взглядом, полсотни постов ниочем

ДАААААА

(83)Там перед ней закоментирована функция криво, часть параметров вне коментов, я и проглядела :)
Так что, (82) спасибо за разговор.

я ВАС обожаю!!!

Спасибо!

Катёна, удачно долететь!

У меня более свежая версия. значит, а тут да. проглядели)

(83) а то тут в каждой теме не так, млин.

=)

(88)Спасибо :)

Со списанием разобрались.
Принятие к учету ОС другая проблема.

Процедура ПриОткрытии()

   Если ЭтоНовый() Тогда // проверить объект на то, что он еще не внесен в ИБ

       // Заполнить реквизиты значениями по умолчанию.
       мРаботаСДиалогами.ЗаполнитьШапкуДокумента(ЭтотОбъект, глТекущийПользователь);
       мРаботаСДиалогами.УстановитьНомерДокумента(ЭтотОбъект);
       ЗаполнитьДаннымиПоУмолчанию(ЭтотОбъект);
       
//+++++++++Н        Иванченко А. Ю. СиДата
       ОтражатьВБухгалтерскомУчете=Истина;
       КоэффициентУскоренияБУ=1;
//+++++++++К

       Если НЕ мНалоговыйУчетУСН.ПрименениеУСН(Организация, Дата) Тогда

           СпециальныйКоэффициентНУ = 1;

       КонецЕсли;

   КонецЕсли;

   // Проверка ведения однофирменности
   ЭлементыФормы.Организация.ТолькоПросмотр = НЕ УчетПоВсемОрганизациям;

   // Заполняем подменю, вызываемое нажатием кнопки "Операция" командной панели
   // формы, значениями перечисления "Вид операции" данного вида документа.
   // В качестве обработки выбора вида операции назначается процедура
   // ДействияФормыДействиеУстановитьОперацию модуля формы.

   мРаботаСДиалогами.УстановитьПодменюВыбораВидаОперации(ЭлементыФормы.ДействияФормы.Кнопки.ПодменюВидаОперации,
                                       ВидОперации.Метаданные().ЗначенияПеречисления,
                                       Новый Действие("ДействияФормыДействиеУстановитьОперацию"));

   // Заполнить подменю выбора печатных форм.
   СоответствиеМакетов = ЭтотОбъект.ПолучитьСписокПечатныхФорм();
   мРаботаСДиалогами.УстановитьПодменюВыбораПечатнойФормы(ЭлементыФормы.ОсновныеДействияФормы.Кнопки.ПодменюПечати,
                                        СоответствиеМакетов,
                                        Новый Действие("ДействияФормыДействиеВыбратьПечатнуюФормы"));

   // Установить печатную форму по умолчанию.
   мРаботаСДиалогами.УстановитьКнопкуПечати(ЭтотОбъект.Метаданные().Имя, ЭтаФорма, СоответствиеМакетов);

   // Отобразить в заголовке формы вид операции.
   мРаботаСДиалогами.УстановитьЗаголовокФормыДокумента(Строка(ВидОперации), ЭтотОбъект, ЭтаФорма);

   ВалютаРегл = Константы.ВалютаРегламентированногоУчета.Получить();

   ЭлементыФормы.РеглВалюта.Заголовок  = ВалютаРегл;
   ЭлементыФормы.РеглВалюта1.Заголовок = ВалютаРегл;
   ЭлементыФормы.РеглВалюта2.Заголовок = ВалютаРегл;
   ЭлементыФормы.РеглВалюта3.Заголовок = ВалютаРегл;

   ПараметрВыработкиБУПриИзменении(ЭлементыФормы.ПараметрВыработкиБУ);
   УстановитьВидимость();

   // Установить активный реквизит.
   мРаботаСДиалогами.АктивизироватьРеквизитВФорме(ЭтотОбъект, ЭтаФорма);
   мТекущаяДатаДокумента = Дата;
   
//+++++++++++Н        Иванченко А. Ю.
   ПриВыбореДокументаПриобретения(ДокументПриобретения);
//+++++++++++К

КонецПроцедуры // ПриОткрытии()

Комментирую вот этот кусочек:

//+++++++++++Н        Иванченко А. Ю.
   ПриВыбореДокументаПриобретения(ДокументПриобретения);
//+++++++++++К

Проблема исчезает. Захожу в процедуру:
Процедура ПриВыбореДокументаПриобретения(Элемент)
   Если ДокументПриобретения=Документы.ПоступлениеТоваровУслуг.ПустаяСсылка() Тогда
       ЭлементыФормы.НомерДокументаПриобретения.Доступность=Истина;
       ЭлементыФормы.ДатаПриобретенияОС.Доступность=Истина;
   Иначе
       ЭлементыФормы.НомерДокументаПриобретения.Доступность=Ложь;
       ЭлементыФормы.ДатаПриобретенияОС.Доступность=Ложь;
       НомерДокументаПриобретения=ДокументПриобретения.Номер;
       ДатаПриобретенияОС=ДокументПриобретения.Дата;
   КонецЕсли;
КонецПроцедуры

Делаю модифицированность, ставит Истина/Булево на строчке:
ДатаПриобретенияОС=ДокументПриобретения.Дата;

Чего дальше делать не знаю =(

в процедуре ставлю комменты на против:

НомерДокументаПриобретения=ДокументПриобретения.Номер;
ДатаПриобретенияОС=ДокументПриобретения.Дата;

все работает.