Мастер-Центр оплат.Примеры — различия между версиями
| [досмотренная версия] | [досмотренная версия] |
Borzenkov (обсуждение | вклад) |
Borzenkov (обсуждение | вклад) |
||
| Строка 1: | Строка 1: | ||
Пример из тестовой обработки:<br> | Пример из тестовой обработки:<br> | ||
| − | 1. Производится | + | 1. Производится загрузка Центра оплат: |
| + | |||
| + | Перем глМастерТурКомпонента Экспорт; | ||
| + | |||
| + | Функция глУстановитьКомпонентуМастерТур() Экспорт | ||
| + | Перем mProgId; | ||
| + | Перем МастерТур; | ||
| + | mProgId = "pc2mt.1"; | ||
| + | Попытка | ||
| + | ПодключитьВнешнююКомпоненту(mProgId); | ||
| + | МастерТур=Новый("AddIn.pc2mt"); | ||
| + | Исключение | ||
| + | Предупреждение("Не удалось создать объект МастерТур " + ОписаниеОшибки()); | ||
| + | КонецПопытки; | ||
| + | Возврат МастерТур; | ||
| + | КонецФункции | ||
| + | Процедура КН_ПодключитьсяНажатие(Элемент) | ||
| + | Попытка | ||
| + | глМастерТурКомпонента = глУстановитьКомпонентуМастерТур(); | ||
| + | Исключение | ||
| + | Сообщить(ОписаниеОшибки()); | ||
| + | КонецПопытки; | ||
| + | |||
| + | ВозврЗн=глМастерТурКомпонента.Подключиться(СокрЛП(Сервер),СокрЛП(DBName),СокрЛП(Логин),СокрЛП(Пароль),"100",СокрЛП(ВиртульныйGUIDБазыДанных)); | ||
| + | Пароль=""; | ||
| + | Если ВозврЗн=1 Тогда | ||
| + | ТЗ = Новый ТаблицаЗначений; | ||
| + | ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокВалют(0,""); | ||
| + | ЭлементыФормы.ТП_СписокВалют.Значение=ТЗ; | ||
| + | |||
| + | ТЗ = Новый ТаблицаЗначений; | ||
| + | ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСвойствПартнеров(0,); | ||
| + | ЭлементыФормы.ТП_ТипыСвойствПартнеровСчета.Значение=ТЗ; | ||
| + | |||
| + | ТЗ = Новый ТаблицаЗначений; | ||
| + | ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСостоянийПутевок(); | ||
| + | ЭлементыФормы.ТП_ТипыСостоянийПутевокСчета.Значение=ТЗ; | ||
| + | |||
| + | ТЗ = Новый ТаблицаЗначений; | ||
| + | ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокТиповСвойствПартнеров(0,); | ||
| + | ЭлементыФормы.ТП_ТипыСвойствПартнеровПартнеры.Значение=ТЗ; | ||
| + | |||
| + | КонецЕсли; | ||
| + | КонецПроцедуры | ||
| + | |||
| + | |||
| + | 1. Производится подключение:<br> | ||
| + | ВозврЗн=глМастерТурКомпонента.Подключиться(СокрЛП(Сервер),СокрЛП(DBName),СокрЛП(Логин),СокрЛП(Пароль),"100",СокрЛП(ВиртульныйGUIDБазыДанных)); | ||
| + | |||
2. Вызывается список валют из базы МТ.<br> | 2. Вызывается список валют из базы МТ.<br> | ||
| + | ТЗ = Новый ТаблицаЗначений; | ||
| + | ТЗ=глМастерТурКомпонента.Т8_ПолучитьСписокВалют(0,""); | ||
| + | ЭлементыФормы.ТП_СписокВалют.Значение=ТЗ; | ||
3. На конкретную дату вызывается курс выбранной валюты из базы МТ.<br> | 3. На конкретную дату вызывается курс выбранной валюты из базы МТ.<br> | ||
Версия 13:19, 6 ноября 2013
Пример из тестовой обработки:
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,ПолеДопОтбора);
ЭлементыФормы.ТП_Договоры.Значение=ТЗ;
