Бухгалтерия / Говнокод #15531 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 iMoxa, (Updated )

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

  • ava Voittamaton # Ссылка на оригинал 0

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

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

    • ava Voittamaton # Ссылка на оригинал 0 ⇈

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

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

  • ava nixel # Ссылка на оригинал 0

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

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

    А не использовать ли нам bbcode?

    ↑
    8
    ↓