Мастер-Центр оплат.Примеры

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

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

Перем глМастерТурКомпонента Экспорт;
Функция глУстановитьКомпонентуМастерТур()
Перем mProgId;

  Перем МастерТур;
          
  mProgId = "pc2mt.1";

  Попытка
 
     ПодключитьВнешнююКомпоненту(mProgId);
			
     МастерТур=Новый("AddIn.pc2mt");

  Исключение

     Предупреждение("Не удалось создать объект МастерТур " + ОписаниеОшибки());

  КонецПопытки;

  Возврат МастерТур;

КонецФункции

Процедура КН_ПодключитьсяНажатие(Элемент)

  Попытка

     глМастерТурКомпонента = глУстановитьКомпонентуМастерТур();

  Исключение
	
     Сообщить(ОписаниеОшибки());

  КонецПопытки;

  ВозврЗн=глМастерТурКомпонента.Подключиться(СокрЛП(Сервер),СокрЛП(DBName),СокрЛП(Логин),СокрЛП(Пароль),"100",СокрЛП(ВиртульныйGUIDБазыДанных));

  Пароль="";
	
  Если ВозврЗн=1 Тогда
	   
     ТЗ = Новый ТаблицаЗначений;

     ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокВалют(0,"");

     ЭлементыФормы.ТП_СписокВалют.Значение=ТЗ;

     ТЗ = Новый ТаблицаЗначений;

     ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСвойствПартнеров(0,);

     ЭлементыФормы.ТП_ТипыСвойствПартнеровСчета.Значение=ТЗ;
	

     ТЗ = Новый ТаблицаЗначений;

     ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСостоянийПутевок();

     ЭлементыФормы.ТП_ТипыСостоянийПутевокСчета.Значение=ТЗ;

     ТЗ = Новый ТаблицаЗначений;

     ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСвойствПартнеров(0,);

     ЭлементыФормы.ТП_ТипыСвойствПартнеровПартнеры.Значение=ТЗ;
			
  КонецЕсли;

КонецПроцедуры

2. Сразу после подключения производится вызов списка валют из базы МТ:

  ТЗ = Новый ТаблицаЗначений;

  ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокВалют(0,"");

  ЭлементыФормы.ТП_СписокВалют.Значение=ТЗ;

3. На конкретную дату вызывается курс выбранной валюты из базы МТ.

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

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

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