Код: Выделить всё
.LinkForm ’NformRD90a_1_2’ Prototype is ’NformRD90a’
.NameInList ’1234567890’
table struct stmp
(
nrec : comp "nrec",
fio : string[61] "ФИО"
);
Create view vdb
as select *
from Stmp;
.Fields
vdb.stmp.fio
.EndFields
.{ NformRD90aCycle CheckEnter
Insert Stmp (Stmp.nrec, Stmp.fio) values (PERSNREC, FIO)
.}
if( getFirst stmp = tsOk )
do
{
^
}
while getNext stmp = tsOk;
.endform
P. S. На самом деле, есть подозрение, что тут в Create view надо добавить еще одну, "живую", табличку. Но инфы по этому поводу нету...