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

    −129

    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
    //Тут был код
    
    //!Проверки на корректность данных.
    		ИначеЕсли (Строка(Лист.Cells(Счетчик,8).value) = "") ИЛИ (Строка(Лист.Cells(Счетчик,8).value) = "") ИЛИ ((Лист.Cells(Счетчик,8).value) = 0) ИЛИ ((Лист.Cells(Счетчик,8).value) = 0)  Тогда
    			Сообщить("У номенклатуры в строке №"+Счетчик+" не хватает данных по ценам! Позиция не добавлена!", СтатусСообщения.Важное);
    		ИначеЕсли ((Лист.Cells(Счетчик,8).value) < 0) ИЛИ ((Лист.Cells(Счетчик,8).value) < 0) Тогда 
    			Сообщить("У номенклатуры в строке №"+Счетчик+" отрицательная цена! Позиция не добавлена!", СтатусСообщения.Важное);
    		Иначе
    			Мас.Добавить(Строка(Лист.Cells(Счетчик, 1).value));
    			ЭлементСправочника = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Строка(Лист.Cells(Счетчик, 1).value));
    
    
    //Там дальше код

    Фрагмент обработки найден в конфиге клиента. До фрагмента - открытие файла excel. После - распихивание данных с него по регистрам. Гениальная проверка на корректность гениальна.

    Запостил: CreatorOfBullshit, 08 Декабря 2010

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

    • Правило 1с - 2 раза проверь, один раз присвой!:)
      Ответить
    • комменты оригинальные ?? ?)))) жесть !
      Ответить
      • //Тут был код и //Там дальше код это я прилепил для наглядности. fail
        Ответить
        • если что-нибудь может быть понято неправильно - оно будет понято неправильно
          смирись
          Ответить
    • //там была стена
      //а там не было мозга
      Ответить
      • //Там была сексуальная тёлка, звала..
        //А там был тёплый туалет и журнал плей-бой...
        //Выбор был не легок..
        Ответить
    • >>ИначеЕсли

      ЕслиЧо надо
      Ответить
      • ИначеЕсли (Строка(Лист.Cells(Счетчик,8).value) = "") ИЛИ (Строка(Лист.Cells(Счетчик,8).value) = "") ИЛИ ((Лист.Cells(Счетчик,8).value) = 0) ИЛИ ((Лист.Cells(Счетчик,8).value) = 0) Тогда
        Похуй;
        ИначеЕсли ((Лист.Cells(Счетчик,8).value) < 0) ИЛИ ((Лист.Cells(Счетчик,8).value) < 0) Тогда
        ОдетьКастетИСпортивныеШтаны.НаколотитьБа бло;
        Иначе
        Пацаны.ЗамутитьДвижуху;
        Ответить

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