Код: Выделить всё
interface orgcube 'Сопоставление каталогов контрагентов', cyan, EscClose;
show at (,,115,50);
create view
var
tek_User : string;
as select *
from KATORG, CUBEKATAL
where ((
1 == CUBEKATAL.WTABLE
and tek_User == CUBEKATAL.USERNAME
and KATORG.CORPOIN == CUBEKATAL.ID
));
browse brCor 'Соответствие контрагентов' (,,sci1Esc);
table KATORG;
fields
KATORG.UNN 'ИНН' :[15];
KATORG.NAME 'Наименование' :[40];
CUBEKATAL.CODE 'ИНН' :[15],protect,pickbutton;
CUBEKATAL.NAME 'Наименование' :[40],protect,pickbutton;
end;
TableEvent table KATORG
cmUpdateRecord:
{
update current KATORG;
}
end;
HandleEvent
cmpick:
{
case CurField of
#CUBEKATAL.CODE, #CUBEKATAL.NAME:
{
RunInterface('GetCubeOrg',tek_User, KATORG.CORPOIN);
}
end;
}
cmDel:
{
case CurField of
#CUBEKATAL.CODE, #CUBEKATAL.NAME:
{
update current KATORG set KATORG.CORPOIN := 0;
}
end;
}
cminit:
{
tek_User := sGetTune('USER.OWNNAME');
}
end;
end.