Тема: RUNMODAL
Показать сообщение отдельно
Старый 09.04.2008, 14:23   #8  
by_HT is offline
by_HT
Участник
 
195 / 10 (1) +
Регистрация: 12.10.2007
В Форма Client, запускается кодеюнит:
Код:
import."Import Client Bank"(DateFrom, DateTo, "Bank Account No.");
В кодеюните, выполняем запуск формы FormSCB, но перед этим переходим в функцию: Open Form SCB.Rek";

Код:
SCB.SETFILTER(Type,'=%1',SCB.Type::Rek);
IF SCB.FIND('-') THEN BEGIN "Open Form SCB.Rek";
COMMIT;
FormSCB.RUNMODAL;
END;
в функции Open Form SCB.Rek":

Код:
tParam:=tParam::Rek;
IF Setup."Account Type"= Setup."Account Type"::Êëèåíò THEN bParam :=1 ELSE
IF Setup."Account Type"= Setup."Account Type"::Ïîñòàâùèê THEN bParam :=2 ELSE
bParam:=0;
SCB.SETFILTER(Type,'=%1',SCB.Type::Rek);
FormSCB.SetParam(bParam,tParam); 
FormSCB.SETTABLEVIEW(SCB); 
FormSCB.SETRECORD(SCB); 
FormSCB.CAPTION('заголовок');
EXIT;