Бухгалтерия / Говнокод #16777 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 jerokee, (Updated )

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

  • ava guest # Ссылка на оригинал 0

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

    • ava guest # Ссылка на оригинал 0 ⇈

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

    • ava jerokee # Ссылка на оригинал 0 ⇈

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

  • ava Mortum # Ссылка на оригинал 0

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

    • ava Vasiliy # Ссылка на оригинал 0 ⇈

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

  • ava guest # Ссылка на оригинал 0

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

      • ava Elvenfighter # Ссылка на оригинал 0 ⇈

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

        • ava bormand # Ссылка на оригинал 0 ⇈

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

          • ava inkanus-gray # Ссылка на оригинал 0 ⇈

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

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

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

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

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

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

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

          • ava 3.14159265 # Ссылка на оригинал 0 ⇈

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

  • ava monobogdan # Ссылка на оригинал 0

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

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

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓