1. 1C / Говнокод #15531

    −168

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
	
	Если ОбменДанными.Загрузка Тогда
		Возврат;
	КонецЕсли; 
	
	Если ДополнительныеСвойства.Свойство("НомерПартииДляСерии") Тогда
		ДополнительныеСвойства.Удалить("НомерПартииДляСерии");
	КонецЕсли;

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

    У меня нет слов.
    НО(!!!) ... это работает как надо :D .

    Запостил: iMoxa, 19 Марта 2014

    Комментарии (4) RSS

    • ava Voittamaton 19.03.2014 16:04 # 0

      Записать(РежимЗаписиДокумента.Запись);
      Записать(РежимЗаписиДокумента.Запись);

      На всякий случай :)
      Ответить

      • ava Voittamaton 19.03.2014 16:05 # 0

        Хотя, это для выполнения следующего кода:
        НомерСтрокиДокумента = 0;

        бит_п_ОбщегоНазначения.ПроверитьИСформир оватьСериюНоменклатуры(Ссылка, Продукция, НомерСтрокиДокумента);
        бит_п_ОбщегоНазначения.ПроверитьИСформир оватьСериюНоменклатуры(Ссылка, Брак, НомерСтрокиДокумента);
        Ответить

    • ava nixel 26.03.2014 18:00 # 0

      Автор, название "Русская платина" вам что-нибудь говорит?
      Ответить

    Добавить комментарий