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

    • ava EvilWisp 08.12.2010 07:25 # 0

      Правило 1с - 2 раза проверь, один раз присвой!:)
      Ответить

    • ava Maxim546 08.12.2010 12:53 # 0

      комменты оригинальные ?? ?)))) жесть !
      Ответить

      • ava CreatorOfBullshit 08.12.2010 18:00 # 0

        //Тут был код и //Там дальше код это я прилепил для наглядности. fail
        Ответить

        • ava bugmenot 08.12.2010 23:03 # 0

          если что-нибудь может быть понято неправильно - оно будет понято неправильно
          смирись
          Ответить

    • ava KirAmp 08.12.2010 14:43 # 0

      //там была стена
      //а там не было мозга
      Ответить

      • ava Maxim546 08.12.2010 14:46 # 0

        //Там была сексуальная тёлка, звала..
        //А там был тёплый туалет и журнал плей-бой...
        //Выбор был не легок..
        Ответить

    • ava Sauron 08.12.2010 14:47 # +2

      >>ИначеЕсли

      ЕслиЧо надо
      Ответить

      • ava Maxim546 08.12.2010 14:50 # 0

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

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