Бухгалтерия / Говнокод #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 )

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

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

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

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


    8