Проблема с browse
Добавлено: 28 ноя 2005, 16:44
Почему-то в списке получается только одна МЦ:
Я точно знаю, что их там много...
Приношу свои извинения. Все решается описанием панели:
Код: Выделить всё
Interface Sel_Kau_MC 'Выбор МЦ для аналитики' DoAccept, EscClose, Cyan;
show at (,,,);
view
var
p_kod, p_name: string;
kod_gr : string;
c_mc : comp;
as select katmc.name, katmc.barkod, katmc.nrec, groupmc.nrec, groupmc.kod
where ((
kod_gr == groupmc.kod
and groupmc.nrec == katmc.cgroupmc
)) order o1 by katmc.name;
parameters p_kod, p_name, c_mc;
browse b1;
katmc.name 'Название' : [20], protect;
katmc.barkod 'Ном.номер': [10], protect;
end;
HandleEvent
cmInit: {
...
// определение kod_gr
setorder(tiO1);
if getfirst katmc = tsOK then {};
}
cmDefault: { c_mc:=katmc.nrec; CloseInterface(cmOK);}
cmCancel: { c_mc:=0; CloseInterface(cmCancel);}
end;
end.
Приношу свои извинения. Все решается описанием панели:
Код: Выделить всё
panel P_MC table katmc;
browse b1;
...
end;
end;