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

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

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

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

1. Производится загрузка Центра оплат:

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

  Перем mProgId;

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

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

  Исключение

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

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

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

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

  Попытка

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

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

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

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

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

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

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


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

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

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

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

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

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


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

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

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

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

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

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

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

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

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


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

Источник — «http://wiki.megatec.ru/index.php?title=Мастер-Центр_оплат.Примеры&oldid=12814»