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