Временная таблица в Browse
Добавлено: 18 май 2010, 17:21
Можно ли из временной таблицы такого типа
table struct MyTable
(
nRec : comp,
cmcNrec : comp,
nname: string,
iid : word,
sstavka: double
)
with index
(
MyTable0 = nRec (Unique,Surrogate),
MyTable1 = cmcNrec
);
передать данные в Browse. Отсюда нужны поля nname,iid,sstavka.
При таком описании в броузере каждая запись постоянно повторяется:
browse br
Fields
MyTable.nname;
MyTable.iid;
MyTable.sstavka;
End;
Записывваются данные в таблицу так:
If (Modifier Getfirst Shbusl = Tsok)
{
Do
{
If (Modifier Getfirst Shb_tar Where (( Shbusl.nrec == Shb_tar.cshbusl)) = Tsok)
{
Do
{
If (Modifier Getfirst Kattar Where (( Shb_tar.ckattar == Kattar.nrec)) = Tsok)
{
Do
{
If (Modifier Getfirst Trstv Where (( Kattar.nrec == Trstv.ckattar)) = Tsok)
{
Do
{
insert MyTable
set
MyTable.nname = shbusl.name,
MyTable.iid = trstv.id,
MyTable.sstavka = trstv.stavka;
}
While (Modifier Getnext Trstv Where (( Kattar.nrec == Trstv.ckattar)) = Tsok);
}
}
While (Modifier Getnext Kattar Where (( Shb_tar.ckattar == Kattar.nrec)) = Tsok);
}
}
While (Modifier Getnext Shb_tar Where (( Shbusl.nrec == Shb_tar.cshbusl)) = Tsok);
}
}
While (Modifier Getnext Shbusl = Tsok);
}
table struct MyTable
(
nRec : comp,
cmcNrec : comp,
nname: string,
iid : word,
sstavka: double
)
with index
(
MyTable0 = nRec (Unique,Surrogate),
MyTable1 = cmcNrec
);
передать данные в Browse. Отсюда нужны поля nname,iid,sstavka.
При таком описании в броузере каждая запись постоянно повторяется:
browse br
Fields
MyTable.nname;
MyTable.iid;
MyTable.sstavka;
End;
Записывваются данные в таблицу так:
If (Modifier Getfirst Shbusl = Tsok)
{
Do
{
If (Modifier Getfirst Shb_tar Where (( Shbusl.nrec == Shb_tar.cshbusl)) = Tsok)
{
Do
{
If (Modifier Getfirst Kattar Where (( Shb_tar.ckattar == Kattar.nrec)) = Tsok)
{
Do
{
If (Modifier Getfirst Trstv Where (( Kattar.nrec == Trstv.ckattar)) = Tsok)
{
Do
{
insert MyTable
set
MyTable.nname = shbusl.name,
MyTable.iid = trstv.id,
MyTable.sstavka = trstv.stavka;
}
While (Modifier Getnext Trstv Where (( Kattar.nrec == Trstv.ckattar)) = Tsok);
}
}
While (Modifier Getnext Kattar Where (( Shb_tar.ckattar == Kattar.nrec)) = Tsok);
}
}
While (Modifier Getnext Shb_tar Where (( Shbusl.nrec == Shb_tar.cshbusl)) = Tsok);
}
}
While (Modifier Getnext Shbusl = Tsok);
}