Код: Выделить всё
#include galnet.ccm;
#include galnet.csc;
//#include galnet.inc;
end;
//Начало интерфейса
interface ietalon (,,Sci13Esc) EscClose, Cyan;//(,,Sci1478EscIns) EscClose, Cyan;
Show At (,,93,25);
var ketalon,kgroup,ckatstan,knrec:comp;
res:word;
mcname:string;
etalmc:string;
groupmcname:string;
idwindow:longInt;
idwindow2:longInt;
getnrec : longInt;
i:integer;
j:longint;
logic:boolean;
/*table struct marktable
(
nRec : comp,
cmcnrec: comp
)
with index
(
mark01 = nRec(Unique,Surrogate),
mark02 = cmcnrec
);*/
//function funrec:comp; forward;
create view
var wnrec:comp;
Markers : longInt;
FieldMarkers : longInt;
IndexNo : longInt;
Markers2 : longInt;
FieldMarkers2 : longInt;
IndexNo2 : longInt;
(MarkerStr2,MarkerStr)
as select
if (SearchMarker(Markers2, k4.nrec, IndexNo2) = True, 'v', ' '),
if (SearchMarker(Markers, katmc.nrec, IndexNo) = True, 'v', ' '),
*
from katmc k4(katmc02),katmc,katmc k1, ppkatstan,ppkatstanmc
where((wnrec==ppkatstan.atl_nrec
and ppkatstan.atl_nrec==ppkatstanmc.cppkatstan
and ppkatstanmc.cmc ==katmc.nrec
and ppkatstan.cmc==k1.nrec
and (7=k1.isarch)
and ppkatstan.cgroupmc==groupmc.nrec
//and 0==k4.isarch
));
parameters kgroup,ketalon,ckatstan;
//-------------------------------------------------------------------------------------------------------------------------
cmClose:
{
message(GetMarkerCount(Markers));
ketalon:=k1.nrec;
kgroup:=groupmc.nrec;
message('ketalon= '+ketalon);
message('kgroup= '+kgroup);
message('ckatstan= '+ckatstan);
}
end.
//конец интерфейса
Вызов ietalon происходит из другого интерфейса в по cmEdit
Код: Выделить всё
//------------------------------------------------------------------------------------------------------------------------
cmEdit:
{
kgroupnrec:=groupmc.nrec;
ketalonnrec:=k1.nrec;
kstan:=ppkatstan.atl_nrec;
res:=RunInterface('ietalon',kgroupnrec,ketalonnrec,kstan);
message(kgroupnrec+'='+ketalonnrec+'='+ppkatstan.atl_nrec);
if getfirst ppkatstan where((kstan==ppkatstan.atl_nrec))=tsOk
{
ppkatstan.cmc:=ketalonnrec;
ppkatstan.cgroupmc:=kgroupnrec;
update current ppkatstan;
}
rescanpanel(#ppkatstan);
}
//------------------------------------------------------------------------------------------------------------------------
Не могу понять в чём может быть причина такого поведения параметров?