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

    +1

    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
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    Запрос = Новый Запрос;
    	Запрос.Текст = "ВЫБРАТЬ
    	|	БИТ_Отель_ДоговорыЭквайринга.Ссылка
    	|ИЗ
    	|	Справочник.БИТ_Отель_ДоговорыЭквайринга КАК БИТ_Отель_ДоговорыЭквайринга
    	|ГДЕ
    	|	БИТ_Отель_ДоговорыЭквайринга.ДоговорВзаиморасчетов = &ДоговорВзаиморасчетов";
    	
    	Запрос.УстановитьПараметр("ДоговорВзаиморасчетов", СтруктураПарам.БИТ_Отель_ДоговорЭквайринга.ДоговорВзаиморасчетов);
    	
    	Результат = Запрос.Выполнить().Выгрузить();
    	
    	Струк = Новый Структура;
    	Струк.Вставить("ВидОплаты", ВидОплаты);
    	
    	Если Результат.Количество() Тогда
    		РезОтбора =	Результат[0].Ссылка.ТарифыЗаРасчетноеОбслуживание.НайтиСтроки(Струк);
    		Если РезОтбора.Количество() Тогда
    			ПроцентТорговойУступки = РезОтбора[0].ПроцентТорговойУступки;
    		Иначе
    			ПроцентТорговойУступки = 0;
    			Предупреждение("Не указан процент торговой уступки!");
    			ЭлементыФормы.ПанельДокумента.ТекущаяСтраница = ЭлементыФормы.ПанельДокумента.Страницы.Эквайринг;
    			ЭлементыФормы.ПроцентТорговойУступки.ОтметкаНезаполненного = Истина;
    			ЭлементыФормы.СуммаТорговойУступки.ОтметкаНезаполненного = Истина;
    			ТекущийЭлемент = ЭлементыФормы.ПроцентТорговойУступки;
    		КонецЕсли;
    	Иначе
    		ПроцентТорговойУступки = 0;
    		Предупреждение("Не указан процент торговой уступки!");
    		ЭлементыФормы.ПанельДокумента.ТекущаяСтраница = ЭлементыФормы.ПанельДокумента.Страницы.Эквайринг;
    		ЭлементыФормы.ПроцентТорговойУступки.ОтметкаНезаполненного = Истина;
    		ЭлементыФормы.СуммаТорговойУступки.ОтметкаНезаполненного = Истина;
    		ТекущийЭлемент = ЭлементыФормы.ПроцентТорговойУступки;
    	КонецЕсли;

    уже шестой год я работаю с этой "конфой", жаль что ее целиком нельзя сюда выложить, там, не считая исходной бух части, сплошной креатив каких то ДЦП на обеденной перемене классе во втором.

    Запостил: jah, 31 Июля 2020

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

    • Всегда было интересно, на кой хрен выгружать запрос? в чем проблема выборку нормально сделать и никаких всратых проверок дополнительных на количество.
      Ответить
      • всегда было интересно, какого "приложения" на 1С выглядят как пхп, который ещё ельцина застал
        в котором и запросы в БД, и юзер интерфейс всё в одном месте навалено у стены

        у вас там двухзвенка в 2020?
        Ответить
    • Всегда было интересно, у программистов на «1C» есть какая-то специальная раскладка клавиатуры, или они каждый раз для ввода «|», «&», «[», «]» и других спецсимволов переключают язык ввода туда-обратно?
      Ответить
      • хаха, ты прав
        https://helpme1c.ru/specialnaya-raskladka-klaviatury-dlya-programmistov-1s
        Ответить
        • Мне больше всего нравятся названия типа «COMОбъект», где буквы «COM» — латинские, а слово «Объект» набрано кириллицей. Если случайно набрать «СОМ» вместо «COM», то работать не будет.
          Ответить
          • подожди-подожди
            но какие же сом-объекты возможны в прыщах?
            https://v8.1c.ru/upload/platforma/bazovye-mehanizmy/mnogoplatformennost-sistemy.png
            Ответить
            • CORBA
              Ответить
              • всегда было интересно, в чем смысл форсить «CORBA», когда есть надежный протокол «Remote Desktop Protocol», при помощи которого на удаленном сервере можно выполнить гораздо больший спектр бизнес-задач
                Ответить
          • > Если случайно набрать «СОМ» вместо «COM», то работать не будет.
            Попрошу не путать, а то могут и напутать.

            Блядь, откуда эту фразу притащили? Каждый раз когда её вижу — хихикаю как ебанутый.
            Ответить
            • Фраза из «Театра абсурда „НОМ“». Есть у них песня «Дедушкин табак»:
              Я – Собчак, я – Собчак, попрошу не путать!
              Я – Собчак, я – Собчак, Петербурга мэр!
              Я – Собчак, я – Собчак, могут ведь напутать –
              Скажут, он, мол, не Собчак вовсе, а Колчак!
              Ответить
      • почти уверен, что они закупают клавиатуры Оптимус чтобы их есть, на которые можно наебенить своих символов
        Ответить
        • Клавиатуры «Оптимус»:
          • Популярис — снят с производства
          • Максимус — снят с производства
          • Мини-три — снят с производства
          • Мини-шесть — концепт
          • Аукс — концепт
          • Управлятор — концепт
          • Тактус — концепт

          У «Тёмы» есть хотя бы одна клава, которая НЕ концепт И НЕ снята с производства?
          Ответить
          • ну я могу сказать, что создание своего кастомного устройства из пластика - это инвестиция, и вообще нужен RND, а не макакоператор иллюстратора
            а так, почти уверен, что клавиатуры его не взлетели, потому что не было поддержки Linux
            Ответить
            • Сразу вспоминаю утопистов, которые говорили: вот появятся тридэпринтеры, и заживём. Ни КБ, ни промышленные предприятия больше не будут нужны. Каждый сможет изготовить сам себе любой предмет. Нарисовал на компе красивую картинку, хуяк-хуяк — готово.

              Тридэпринтеры появились. Только почему-то по-прежнему огромен спрос на изделия, разработанные и выпущенные не криворукими прокладками между монитором и креслом, а серьёзными предприятиями.
              Ответить
              • Потому что 3д печать это долго, дорого и хуёво.
                Ответить
              • на ДДД-принтере можно заебись отпрототипировать, а также на нем можно сделать ебанутые полости, которые нельзя сделать литьем

                но полости не дохуя кому нужны, а в тираже изготовление корпуса будет стоит на несколько порядков дороже, чем классическое литье
                просто изготовление литьем - это ты тратишь несколько десятков килобаксов на пресс-форму, но потом получаешь изделия за доли доллара
                Ответить
          • Тёмус обосромус

            Основной способ зароботка темы -- блог. В блоге он пишет посты типа "я пукнул". Посты собирают кучу комментов, и это дает теме возможность делать там рекламу.
            Ответить
            • > Основной способ зароботка темы -- блог.
              И продажа лошкам дизайнерских автогенерированных вореций.
              Ответить
              • Я у мамы дизайнер, ёпта:
                https://www.artlebedev.ru/grain-holding/flour-and-grains-bag/
                Ответить
                • Норм диз
                  Ответить
                  • Мне тоже нравится. Перенёс рисунок со старой жестяной банки на пакет. Дизайн, проверенный временем! Умели же раньше делать!
                    Ответить
                    • 2010 год
                      Насколько я понимаю, рязаночка на прилавке выглядит не так.
                      (Заплатили и не поехали?)
                      Ответить
                      • Ноунеймовская мука того же «Грейнхолдинга», который производит «Рязаночку», сейчас выглядит именно так. А для «Рязаночки», да, уже взяли новый дизайн.
                        Ответить
          • в «Оптимусе» и прочих «Розеткусах» мне больше всего нравится то, что синевласый мудак в своем же блоге кричал, что названия типа «Мясоедов» ебаное говно, произведенное людьми без фантазии.
            Ответить
            • так ведь ещё столько слов в запасе - коитус, анус, кунилингус, анилингус
              Ответить
              • Вантуз.
                Ответить
                • коронавирус
                  Ответить
                  • инканус

                    вам шах
                    Ответить
                    • «Opus».
                      Ответить
                    • Дефекатус
                      Ответить
                      • уклонение
                        Ответить
                        • Stertorus

                          Клавиатура для сами понимаете чего
                          Ответить
                          • Осетинус
                            Ответить
                            • Петухинус
                              Ответить
                              • Гомоиконус
                                Ответить
                                • (((L I S P )( L I S P ) ( L I S P ) ( L I S P )))
                                  * (     \             \            )    \       *
                                  B(       )             \          )      )      B
                                  e(       `.             )         )       :     e
                                  a`        )             )        \)       )     a
                                  t \       ) )       )  \\\   --__ \\       :    t
                                  i  \      \)   _--~~          ~--__) \     )    i  
                                  n   \      \_-~                    ~-_\    )    n
                                  g    \_     \        _.--------.______\)   )    g
                                        \     \______(( _ ___ _ (_(__H  \   )      
                                  t      \   .  S ___)  ______ (_(____t  )  )     t
                                  h       (\ )   I ____)) APPLY\ (_____D  )_)     h
                                  e      ( (\)   C_____)  EVAL )  (___P   )  \    e
                                        (   (   _P_____)\______)  )) _) )     \    
                                  a     (    \  )__   \\_________)) (__)       )  a
                                  v    ( \    \____)   `----   --'             )  v
                                  e    (  \_          ___\       )_          _) ) e
                                  r   (              )    (     )  \            ) r
                                  a   (             )    (   λ   )  \           ) a
                                  g   (          ) )    (         )  \           )g
                                  e   (         ) )      (__)(___)    )          )e
                                  s  (           )        (    )       )         )s
                                  *  (          )         (    )       )         )*
                                  (((L I S P )( L I S P ) ( L I S P ) ( L I S P )))
                                  Ответить
                                  • > λ

                                    АХАХАХАХАХА БЛЯД )))))

                                    Кто автор этого «гоатсе»? Хочу пожать лапу.
                                    Ответить
                                    • Судя по всему — товарищ j123123: https://govnokod.ru/20110#comment330333. Более ранних копий этой гомоиконы в базе «NGK» не обнаружено.
                                      Ответить
                                • Клавиатура из двух скобок
                                  Ответить
              • Кактусванус
                Ответить
          • Зато у него был мини-оргазм, когда Эппл добавила свою конченную тач-полоску
            Ответить
            • ты же макоблядь, срочно подбери иное определение для конченной тач-полоски, которое бы содержало понятия "продуманность", "восхищение", "экосистема", "элитарность"
              Ответить
              • Продуманное нинужно, неистово восхищающее экосистему тёмаблядей и напирающее грыжей на элитарность
                Ответить

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