1. 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) RSS

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