Пояснения по коду программы Приходной накладной
Показывать по
10
20
40
сообщений
- 1
- 2
03.03.2010
22:33
#11
"Ага, ясно.
В модуле документа в процедуру ОбработкаПроведения() пишем примерно так:
СпрСерии=СоздатьОбъект("Справочник.Серии");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если ПустоеЗначение(Серии)=0 Тогда
Если СпрСерии.НайтиЭлемент(Серии)=1 Тогда
СпрСерии.ДатаГосРегистрации=ДатРегистрации;
СпрСерии.Записать();
КонецЕсли;
КонецЕсли;
КонецЦикла;"
В модуле документа в процедуру ОбработкаПроведения() пишем примерно так:
СпрСерии=СоздатьОбъект("Справочник.Серии");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если ПустоеЗначение(Серии)=0 Тогда
Если СпрСерии.НайтиЭлемент(Серии)=1 Тогда
СпрСерии.ДатаГосРегистрации=ДатРегистрации;
СпрСерии.Записать();
КонецЕсли;
КонецЕсли;
КонецЦикла;"
03.03.2010
23:45
#12
"> Ага, ясно.
> В модуле документа в процедуру ОбработкаПроведения() пишем примерно так:
> СпрСерии=СоздатьОбъект("Справочник.Серии");
> ВыбратьСтроки();
> Пока ПолучитьСтроку()=1 Цикл
> Если ПустоеЗначение(Серии)=0 Тогда
> Если СпрСерии.НайтиЭлемент(Серии)=1 Тогда
> СпрСерии.ДатаГосРегистрации=ДатРегистрации;
> СпрСерии.Записать();
> КонецЕсли;
> КонецЕсли;
> КонецЦикла;
f при распроведения дока ?"
> В модуле документа в процедуру ОбработкаПроведения() пишем примерно так:
> СпрСерии=СоздатьОбъект("Справочник.Серии");
> ВыбратьСтроки();
> Пока ПолучитьСтроку()=1 Цикл
> Если ПустоеЗначение(Серии)=0 Тогда
> Если СпрСерии.НайтиЭлемент(Серии)=1 Тогда
> СпрСерии.ДатаГосРегистрации=ДатРегистрации;
> СпрСерии.Записать();
> КонецЕсли;
> КонецЕсли;
> КонецЦикла;
f при распроведения дока ?"
04.03.2010
08:09
#13
Я бы делал при проведении. Потому что в обработку отмены проведения можно затолкать откат движений. А если сделать в ПриЗаписи(), то получится, что фиксирование значения будет происходить для всех подряд документов, в том числе и для тех, которые просто являются "проектами", "черновиками"
- 1
- 2
Читают тему
(гостей: 1)