События browse
Добавлено: 02 апр 2004, 09:42
Здравствуйте.
Не могу понять, почему событие обрабатывается не там, где я его описал.
Вот код
Interface GRANaklSpec 'Спецификация накладной' DoAccept,EscClose,cyan;
Create View
var
katsoprnrec: comp;
As Select * From KatSopr, SpSopr, KatMC, KatOrg, KlVal, KatNotes, KatOtpEd
where
((KatSopr.nRec == SpSopr.cSopr and
KatSopr.cOrgBase==KatOrg.nRec and
KatSopr.cNote == KatNotes.nRec and
KatSopr.cValut == KlVal.nrec and
SpSopr.cMCUSL == KatMC.nRec and
SpSopr.cOtpEd == KatOtpEd.nRec)) and
KatSopr.nRec = KatSoprNrec;
parameters KatSoprNrec;
panel pnlKatSopr;
show at (,,,10);
table KatSopr;
screen scrFields
fields
KatSopr.desgr:[20],protect;
KatSopr.descr:[20],protect;
KatSopr.nSopr:[20],protect;
KatSopr.dSopr:[20],protect;
KatNotes.Name:[20],protect;
KatOrg.Name:[20],protect;
KatSopr.Summa:[20],protect;
KatSopr.NREC:[20],protect;
<<
Группа Дескр. Номер накладной Выписана
.@@@@@@@@@@.@@@@@@@@@@.@@@@@@@@@@@@@ .@@@@@@@@@@
Статус .@@@@@@@@@@@@@@@@@@@@@@@@
Контрагент .@@@@@@@@@@@@@@@@@@@@@@@@
На сумму .@@@@@@@@@@@@@@@@@@@@@@@@
NREC .@@@@@@@@@@@@@@@@@@@@@@@@
>>
end;
end;
panel pnlSpSopr;
show at (,11,,);
browse brKatMC;
table SpSopr;
fields
KatMC.Barkod 'Код'('Код'):[20],protect;
KatMC.Name 'Матценность'('Матценность'):[20],protect;
KatOtpEd.Name 'ЕдИз'('ЕдИз'):[20],protect;
SpSopr.Kol 'Количество'('Количество'):[20],protect;
SpSopr.Price 'Цена'('Цена'):[20,'6`666`666`666.88'],protect;
SpSopr.Kol*SpSopr.Price 'Стоимость'('Стоимость'):[20,'6`666`666`666.88'],protect;
end;
handleevent
cmInit:{};
cmClose:{};
cmSetDefault:
{
RunInterface('GetMC',SpSopr.cMCUSL);
}
cmDone:{};
end;
end;
handleevent
cmInit:{};
cmClose:{};
cmDone:{};
end;
end.
Почему-то F7 срабатывает только в первой панели, а во второй просто добавляет новую пустую строку.
Не могу понять, почему событие обрабатывается не там, где я его описал.
Вот код
Interface GRANaklSpec 'Спецификация накладной' DoAccept,EscClose,cyan;
Create View
var
katsoprnrec: comp;
As Select * From KatSopr, SpSopr, KatMC, KatOrg, KlVal, KatNotes, KatOtpEd
where
((KatSopr.nRec == SpSopr.cSopr and
KatSopr.cOrgBase==KatOrg.nRec and
KatSopr.cNote == KatNotes.nRec and
KatSopr.cValut == KlVal.nrec and
SpSopr.cMCUSL == KatMC.nRec and
SpSopr.cOtpEd == KatOtpEd.nRec)) and
KatSopr.nRec = KatSoprNrec;
parameters KatSoprNrec;
panel pnlKatSopr;
show at (,,,10);
table KatSopr;
screen scrFields
fields
KatSopr.desgr:[20],protect;
KatSopr.descr:[20],protect;
KatSopr.nSopr:[20],protect;
KatSopr.dSopr:[20],protect;
KatNotes.Name:[20],protect;
KatOrg.Name:[20],protect;
KatSopr.Summa:[20],protect;
KatSopr.NREC:[20],protect;
<<
Группа Дескр. Номер накладной Выписана
.@@@@@@@@@@.@@@@@@@@@@.@@@@@@@@@@@@@ .@@@@@@@@@@
Статус .@@@@@@@@@@@@@@@@@@@@@@@@
Контрагент .@@@@@@@@@@@@@@@@@@@@@@@@
На сумму .@@@@@@@@@@@@@@@@@@@@@@@@
NREC .@@@@@@@@@@@@@@@@@@@@@@@@
>>
end;
end;
panel pnlSpSopr;
show at (,11,,);
browse brKatMC;
table SpSopr;
fields
KatMC.Barkod 'Код'('Код'):[20],protect;
KatMC.Name 'Матценность'('Матценность'):[20],protect;
KatOtpEd.Name 'ЕдИз'('ЕдИз'):[20],protect;
SpSopr.Kol 'Количество'('Количество'):[20],protect;
SpSopr.Price 'Цена'('Цена'):[20,'6`666`666`666.88'],protect;
SpSopr.Kol*SpSopr.Price 'Стоимость'('Стоимость'):[20,'6`666`666`666.88'],protect;
end;
handleevent
cmInit:{};
cmClose:{};
cmSetDefault:
{
RunInterface('GetMC',SpSopr.cMCUSL);
}
cmDone:{};
end;
end;
handleevent
cmInit:{};
cmClose:{};
cmDone:{};
end;
end.
Почему-то F7 срабатывает только в первой панели, а во второй просто добавляет новую пустую строку.