Мастер-Центр оплат.Примеры — различия между версиями

Материал из Megatec
Перейти к: навигация, поиск
[досмотренная версия][досмотренная версия]
Строка 40: Строка 40:
 
       КонецЕсли;<br>
 
       КонецЕсли;<br>
 
   КонецПроцедуры<br>
 
   КонецПроцедуры<br>
 
  
 
'''2. При выборе строки с конкретной валютой вызывается курс выбранной валюты из базы данных МТ на конкретную дату:'''<br>
 
'''2. При выборе строки с конкретной валютой вызывается курс выбранной валюты из базы данных МТ на конкретную дату:'''<br>
Строка 51: Строка 50:
 
[[Файл:ЦентрОплатМастерТур1.jpg]]<br>
 
[[Файл:ЦентрОплатМастерТур1.jpg]]<br>
  
4. Производится отбор путевок:
+
'''3. Производится отбор путевок:'''
  
ТЗ = Новый ТаблицаЗначений;<br>
+
  Процедура КН_ОтобратьНажатие(Элемент)<br>
ТЗ=глМастерТурКомпонента.[[Т8_ВыбратьПутевкиЗаПериод]](ДатаНачала,ДатаКонца,СДО0,ПолеДопОтбора);<br>
+
      ТЗ = Новый ТаблицаЗначений;<br>
ЭлементыФормы.ТП_Договоры.Значение=ТЗ;<br>
+
      ТЗ=глМастерТурКомпонента.Т8_ВыбратьПутевкиЗаПериод(ДатаНачала,ДатаКонца,СДО0,ПолеДопОтбора);<br>
 +
      ЭлементыФормы.ТП_Договоры.Значение=ТЗ;<br>
 +
  КонецПроцедуры<br>
  
 
[[Файл:ЦентрОплатМастерТур2.jpg]]<br>
 
[[Файл:ЦентрОплатМастерТур2.jpg]]<br>

Версия 13:50, 6 ноября 2013

Пример из тестовой обработки:

1. Производится загрузка Центра оплат, подключение к базе МТ и заполнения нескольких вспомогательных таблиц значений:

  Перем глМастерТурКомпонента;
Функция глУстановитьКомпонентуМастерТур()
Перем mProgId;
Перем МастерТур;
mProgId = "pc2mt.1";
Попытка
ПодключитьВнешнююКомпоненту(mProgId);
МастерТур=Новый("AddIn.pc2mt");
Исключение
Предупреждение("Не удалось создать объект МастерТур " + ОписаниеОшибки());
КонецПопытки;
Возврат МастерТур;
КонецФункции
  Процедура КН_ПодключитьсяНажатие(Элемент)
Попытка
глМастерТурКомпонента = глУстановитьКомпонентуМастерТур();
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
ВозврЗн=глМастерТурКомпонента.Подключиться(СокрЛП(Сервер),СокрЛП(DBName),СокрЛП(Логин),СокрЛП(Пароль),"100",СокрЛП(ВиртульныйGUIDБазыДанных));
Пароль="";
Если ВозврЗн=1 Тогда
ТЗ = Новый ТаблицаЗначений;
ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокВалют(0,"");
ЭлементыФормы.ТП_СписокВалют.Значение=ТЗ;
ТЗ = Новый ТаблицаЗначений;
ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСвойствПартнеров(0,);
ЭлементыФормы.ТП_ТипыСвойствПартнеровСчета.Значение=ТЗ;
ТЗ = Новый ТаблицаЗначений;
ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСостоянийПутевок();
ЭлементыФормы.ТП_ТипыСостоянийПутевокСчета.Значение=ТЗ;
ТЗ = Новый ТаблицаЗначений;
ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСвойствПартнеров(0,);
ЭлементыФормы.ТП_ТипыСвойствПартнеровПартнеры.Значение=ТЗ;
КонецЕсли;
КонецПроцедуры

2. При выборе строки с конкретной валютой вызывается курс выбранной валюты из базы данных МТ на конкретную дату:

  Процедура ТП_СписокВалютПриАктивизацииСтроки(Элемент)
     ТЗ = Новый ТаблицаЗначений;
     ТЗ=глМастерТурКомпонента.Т8_ВернутьКроссКурсПоКодамВалют("рб",ЭлементыФормы.ТП_СписокВалют.ТекущаяСтрока.КодВалюты,ДатаНачалаКурса,ДатаКонцаКурса,0);
     ЭлементыФормы.ТП_КурсыВалют.Значение=ТЗ;
  КонецПроцедуры

ЦентрОплатМастерТур1.jpg

3. Производится отбор путевок:

  Процедура КН_ОтобратьНажатие(Элемент)
ТЗ = Новый ТаблицаЗначений;
ТЗ=глМастерТурКомпонента.Т8_ВыбратьПутевкиЗаПериод(ДатаНачала,ДатаКонца,СДО0,ПолеДопОтбора);
ЭлементыФормы.ТП_Договоры.Значение=ТЗ;
КонецПроцедуры

ЦентрОплатМастерТур2.jpg


Мастер-Центр оплат.Мастер-Тур