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

    Всего: 1

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

    −140

    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
    Говно = 0;
    		ТекущийДокумент.ВыбратьСтроки();
    		Пока ТекущийДокумент.ПолучитьСтроку() = 1 Цикл
    			Если (ТекущийДокумент.ДатаПоставкиЭА < ТекущаяДата()) и (ПустоеЗначение(ТекущийДокумент.ДатаПоставкиЭА) = 0) и (ТекущийДокумент.Аннулирован = 0) и (ТекущийДокумент.Аннулирована = 0) Тогда
    				Если (ТекущийДокумент.СостояниеСтрокиЗаказа = Перечисление.СостояниеЗаказа.Сделан) или (ПустоеЗначение(ТекущийДокумент.СостояниеСтрокиЗаказа) = 1) Тогда
    					Говно = 1;
    					Прервать;
    				КонецЕсли;
    			КонецЕсли;
    		КонецЦикла;
    		Если Говно = 1 Тогда
    			Возврат "FONT["+ПолучитьЦвет(0,0,0)+"] BRUSH["+ПолучитьЦвет(128,128,0)+"]";		
    		КонецЕсли;
    
    Код окрашивает строку в цвет говна:)
    К коду претензий не имею, но говно-код получается.

    Unknown181538, 26 Июля 2011

    Комментарии (17)