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

    −122

    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
    Процедура Сформировать()
	СпрКонтр = СоздатьОбъект("Справочник.Контрагенты");
	СпрКонтр.ВыбратьЭлементы();
	Пока СпрКонтр.ПолучитьЭлемент()=1 Цикл
		Сообщить(СпрКонтр.Наименование);
		Спр = СоздатьОбъект("Справочник.ТорговыеТочки");
		Спр.ИспользоватьВладельца(СпрКонтр.ТекущийЭлемент());
		Спр.ВыбратьЭлементы();
		
		Пока Спр.ПолучитьЭлемент()=1 Цикл
			Сообщить(Спр.Наименование);
			Х = СокрЛп(Спр.Код);
			У = "";
			Если Х="80002963" Тогда У = "68000550";
			ИначеЕсли Х="80002964" Тогда У = "68000549";
			ИначеЕсли Х="80004172" Тогда У = "68000551";
....................................
			ИначеЕсли Х="80004503" Тогда У = "68000811";
			ИначеЕсли Х="80003952" Тогда У = "68001300";
	                КонецЕсли;
			Если У <> "" Тогда
				Спр.CASID = У;
				Спр.Записать();
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;
	Сообщить("Обработка завершена!");
КонецПроцедуры

    Прислали обработку проставления определенного значения реквизита... Чуть со стула не упали... Всего 619 условий...

    Запостил: jerokee, 30 Сентября 2014

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

    • ava guest 30.09.2014 08:55 # 0

      в 1с что, словарь завести нельзя? не верю...
      Ответить

      • ava guest 30.09.2014 09:28 # +3

        можно, и словарь, но тогда этого не было бы здесь.
        Ответить

      • ava jerokee 30.09.2014 09:31 # 0

        А накуя? Для "заполнения" этого кода подразделение передало (внимание!) CSV-файл... Не судьба была организовать построчное считывание этого файла и занесение информации?
        При этом, вместо тупого перебора всего справочника было бы проще и бысрее использованить "НайтиПоКоду".
        Ответить

    • ava Vasiliy 30.09.2014 11:20 # +2

      Филиал Хогвартса.
      Ответить

    • ava Mortum 02.10.2014 10:46 # 0

      Это ещё цветочки. Видел, как при проведении документов вместо запросов перебирались справочники. Девочка, дописывавшая это, не осилила простые запросы с несколькими условиями в 7.7.
      Ответить

      • ava Vasiliy 02.10.2014 11:44 # +1

        Что Девочке ваш гиковский перфоманс, у неё мысли о шопинге.
        Ответить

    • ava guest 03.10.2014 11:22 # −3

      Программировать на русском языке, это уже обасаться
      Ответить

      • ava bormand 03.10.2014 11:30 # +1

        Русофоб детектед.
        Ответить

        • ava Elvenfighter 03.10.2014 12:32 # +3

          Так більш зрозуміло
          Процедура Сформувати()
    ДовКонтр = СтворитиОб'єкт("Довідник.Контрагенти");
    ДовКонтр.ВибратиЕлементи();
    Доки ДовКонтр.ОтриматиЕлемент()=1 Цикл
        Повідомити(ДовКонтр.Найменування);
        Дов = СтворитиОб'єкт("Довідник.ТорговіТочки");
        Дов.ВикористовуватиВласника(ДовКонтр.ПоточнийЕлемент());
        Дов.ВибратиЕлементи();
        
        Доки Дов.ОтриматиЕлемент()=1 Цикл
            Повідомити(Дов.Найменування);
            Х = СкорЛп(Дов.Код);
            У = "";
            Якщо Х="80002963" Тоді У = "68000550";
            ІнакшеЯкщо Х="80002964" Тоді У = "68000549";
            ІнакшеЯкщо Х="80004172" Тоді У = "68000551";
....................................
            ІнакшеЯкщо Х="80004503" Тоді У = "68000811";
            ІнакшеЯкщо Х="80003952" Тоді У = "68001300";
                    КінецьЯкщо;
            Якщо У <> "" Тоді
                Дов.CASID = У;
                Дов.Записати();
            КінецьЯкщо;
        КінецьЦиклу;
    КінецьЦиклу;
    Повідомити("Обробка завершена!");
КінецьПроцедури
          Ответить

          • ava bormand 03.10.2014 13:31 # +3

            > КінецьЦиклу
            От і циклу кінець, а хто слухав - молодець.
            Ответить

            • ava inkanus-gray 03.10.2014 17:14 # +1

              Кінець фільму. Юність в чоботях. Виконується першого разу.

              Здоров, небо у хмарах,
              Здоров, юність в чоботях,
              Зникни ти, моя туга,
              Ось він я, привіт, війска!

              Ех, колії-поїзди,
              Як я потрапив сюди?

              Тут не те що в громадянці,
              На якоїсь громадянці,
              Життя зовні й із вивороту
              Сам попробуй вивчи.
              Для смутку немає причин.

              Важко бути собою,
              Якщо ступають ряди.

              Тільки серце птахом б'ється,
              І радіє, і сміється,
              І йому не вдається
              Під конвоєм співати в груди.
              Знати б, що там надалі.

              Десь інде тече річка,
              Десь інде дім, де чекають нас взад.
              Це не смуток трохи,
              Оце вітер лоскоче очі.
              Ответить

            • ava 3.14159265 03.10.2014 19:13 # +2

              Конечно это ржака, но вот интересно, ученые еще не разгадали тайну спонтанного самозарождения хохлотредов?
              Ответить

    • ava monobogdan 25.08.2021 07:47 # 0

      Действительно, Даня пропал сразу после приезда из больницы, и Он был рад его вновь видеть. Он снова улыбнулся.
      Ответить

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