1. Список говнокодов пользователя iMoxa

    Всего: 2

  2. 1C / Говнокод #15648

    −163

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    ВЫБОР
      КОГДА ПеремещениеТоваровТовары.ЕдиницаИзмерения = ПеремещениеТоваровТовары.Номенклатура.ЕдиницаХраненияОстатков
       ТОГДА ПеремещениеТоваровТовары.Количество * ПеремещениеТоваровТовары.Номенклатура.ЕдиницаХраненияОстатков.Коэффициент * ПеремещениеТоваровТовары.Номенклатура.бит_п_МассаНетто
      КОГДА ПеремещениеТоваровТовары.ЕдиницаИзмерения = ПеремещениеТоваровТовары.Номенклатура.ЕдиницаДляОтчетов
       ТОГДА ПеремещениеТоваровТовары.Количество * ПеремещениеТоваровТовары.Номенклатура.ЕдиницаДляОтчетов.Коэффициент * ПеремещениеТоваровТовары.Номенклатура.бит_п_МассаНетто
      КОГДА ПеремещениеТоваровТовары.ЕдиницаИзмерения = ПеремещениеТоваровТовары.Номенклатура.ЕдиницаИзмеренияМест
       ТОГДА ПеремещениеТоваровТовары.Количество * ПеремещениеТоваровТовары.Номенклатура.ЕдиницаИзмеренияМест.Коэффициент * ПеремещениеТоваровТовары.Номенклатура.бит_п_МассаНетто
      КОГДА ПеремещениеТоваровТовары.ЕдиницаИзмерения = ПеремещениеТоваровТовары.Номенклатура.бит_п_ЕдиницаПаллет
       ТОГДА ПеремещениеТоваровТовары.Количество * ПеремещениеТоваровТовары.Номенклатура.бит_п_ЕдиницаПаллет.Коэффициент * ПеремещениеТоваровТовары.Номенклатура.бит_п_МассаНетто
    КОНЕЦ

    iMoxa, 02 Апреля 2014

    Комментарии (11)
  3. 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)