Может быть, кто-нибудь расскажет, почему?
Добавлено: 10 июн 2002, 12:40
При таком написании интерфейса:
interface leave_1 'NameOfInterface';
table struct lnach(clsch: comp, vidopl: longint, summa: double);
create view as select lnach.*, klvidopl.* from klvidopl, lnach
where ((lnach.vidopl == klvidopl.vidopl))
;// and ('+' = klvidopl.vhvo[15] or '+' = klvidopl.vhvo[16]);
var
curm: word;
cury: integer;
screen rlscr;
buttons
cmIClose;
<<
<.Закрыть.>
>>
end;
handleevent
cmInit:{
if(getfirst xarpred = tsOk){
curm := month(xarpred.datotch);
cury := year(xarpred.datotch);
} else {
message('Can''t determine date of account');
closeinterface(cmCancel);
}
}
cmIClose:{
closeInterface(cmDefault);
}
end;
end.
результат работы такой, который и ожидался, но стоит только снять комметарии с дополнительного условия в описании логической таблицы, попытка найти первую запись таблицы xarpred терпит крах... ???
interface leave_1 'NameOfInterface';
table struct lnach(clsch: comp, vidopl: longint, summa: double);
create view as select lnach.*, klvidopl.* from klvidopl, lnach
where ((lnach.vidopl == klvidopl.vidopl))
;// and ('+' = klvidopl.vhvo[15] or '+' = klvidopl.vhvo[16]);
var
curm: word;
cury: integer;
screen rlscr;
buttons
cmIClose;
<<
<.Закрыть.>
>>
end;
handleevent
cmInit:{
if(getfirst xarpred = tsOk){
curm := month(xarpred.datotch);
cury := year(xarpred.datotch);
} else {
message('Can''t determine date of account');
closeinterface(cmCancel);
}
}
cmIClose:{
closeInterface(cmDefault);
}
end;
end.
результат работы такой, который и ожидался, но стоит только снять комметарии с дополнительного условия в описании логической таблицы, попытка найти первую запись таблицы xarpred терпит крах... ???