- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("НомерПартииДляСерии") Тогда
ДополнительныеСвойства.Удалить("НомерПартииДляСерии");
КонецЕсли;
Если ЭтоНовый() И РежимЗаписи = РежимЗаписиДокумента.Проведение Тогда
Записать(РежимЗаписиДокумента.Запись);
Записать(РежимЗаписиДокумента.Проведение);
Иначе
Если Не ЭтоНовый() И Не РежимЗаписи = РежимЗаписиДокумента.ОтменаПроведения Тогда
НомерСтрокиДокумента = 0;
бит_п_ОбщегоНазначения.ПроверитьИСформироватьСериюНоменклатуры(Ссылка, Продукция, НомерСтрокиДокумента);
бит_п_ОбщегоНазначения.ПроверитьИСформироватьСериюНоменклатуры(Ссылка, Брак, НомерСтрокиДокумента);
КонецЕсли;
КонецЕсли;
Если ЭтоНовый() И РежимЗаписи = РежимЗаписиДокумента.Запись Тогда
Если ДополнительныеСвойства.Свойство("НеобходимоФормироватьСерию") = Ложь Тогда
ДополнительныеСвойства.Вставить("НеобходимоФормироватьСерию", Истина);
Записать(РежимЗаписиДокумента.Запись);
Записать(РежимЗаписиДокумента.Запись);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
У меня нет слов.
НО(!!!) ... это работает как надо :D .