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

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

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

Запостил: jah jah, (Updated )

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

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

      у вас там двухзвенка в 2020?
      Ответить
  • Всегда было интересно, у программистов на «1C» есть какая-то специальная раскладка клавиатуры, или они каждый раз для ввода «|», «&», «[», «]» и других спецсимволов переключают язык ввода туда-обратно?
    Ответить
      • Мне больше всего нравятся названия типа «COMОбъект», где буквы «COM» — латинские, а слово «Объект» набрано кириллицей. Если случайно набрать «СОМ» вместо «COM», то работать не будет.
        Ответить
            • всегда было интересно, в чем смысл форсить «CORBA», когда есть надежный протокол «Remote Desktop Protocol», при помощи которого на удаленном сервере можно выполнить гораздо больший спектр бизнес-задач
              Ответить
        • > Если случайно набрать «СОМ» вместо «COM», то работать не будет.
          Попрошу не путать, а то могут и напутать.

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

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

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

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

          Основной способ зароботка темы -- блог. В блоге он пишет посты типа "я пукнул". Посты собирают кучу комментов, и это дает теме возможность делать там рекламу.
          Ответить
          • > Основной способ зароботка темы -- блог.
            И продажа лошкам дизайнерских автогенерированных вореций.
            Ответить
        • в «Оптимусе» и прочих «Розеткусах» мне больше всего нравится то, что синевласый мудак в своем же блоге кричал, что названия типа «Мясоедов» ебаное говно, произведенное людьми без фантазии.
          Ответить
        • Зато у него был мини-оргазм, когда Эппл добавила свою конченную тач-полоску
          Ответить
          • ты же макоблядь, срочно подбери иное определение для конченной тач-полоски, которое бы содержало понятия "продуманность", "восхищение", "экосистема", "элитарность"
            Ответить
            • Продуманное нинужно, неистово восхищающее экосистему тёмаблядей и напирающее грыжей на элитарность
              Ответить

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

Переведи на "PHP", guest!

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


    8