Вызов интерфейса из frm
Добавлено: 27 дек 2023, 15:33
Доброго дня, столкнулся с проблемкой. Из frm отчёта нужно вызвать интерфейс и передать в него нрек документа. Вроде всё компилируется, и нрек передаётся в файл интерфейса, но проблема, что интерфейс не отображается пишет: Не найден объект IVIPIFCIFC SBYT_CMR::DOVERVYBOR, описывающий интерфейс вызова.
Код PRJ файла:
Код FRM файла:
Код Vih файла:
Код Vip файла:
По итогу Функция DirectoryFile отрабатывает и сообщение с нреком накладной выводит, но после интерфейс не запускается а пишет сообщение: Интерфейс SBYT_CMR::DOVERVYBOR не найден...
может сможете подсказать что я делаю не так
Код PRJ файла:
Код: Выделить всё
#make 'g:\Рабочая папка\Исходники Галактики\СБЫТ\CMR\интерфейс выбора.vip'
#include "g:\Рабочая папка\Исходники Галактики\СБЫТ\CMR\_callingFunction.vih"
#make 'g:\Рабочая папка\Исходники Галактики\СБЫТ\CMR\Бланк_CMR_v3.1.frm' Код: Выделить всё
...
ss:string
psNrec:Comp
igetPath:M_MnPlan::DoverVybor
_Dover:String
...
.begin
psNrec := НАКЛАДНАЯ_НРЕК
ss:=igetPath.DirectoryFile(psNrec);
RunInterface(Sbyt_CMR::DoverVybor, _Dover);
End.
Код: Выделить всё
#component 'M_MnPlan'
ObjInterface objDirectoryFile;
function DirectoryFile(PSNrec:comp) : string;
End;
vipinterface DoverVybor implements objDirectoryFile parameters ( i : string ); Код: Выделить всё
#component 'M_MnPlan'
#include _callingFunction.vih
interface DoverVybor 'Выбор Доверенности';
show at (0,3,35,16);
...
function DirectoryFile(PSNrec:comp) : string;
{
NrecOrg := PSNrec;
Dover := string(NrecOrg,0,0);
Message('Nrec Накладной: ' + Dover);
};
HandleEvent может сможете подсказать что я делаю не так