rab._loop
{
ls:=rab.sumvidop.clsch;
vrem._loop
{
srch:=vrem.lstab.chasf;
}
srsum:=rab.sumvidop.summa;
rz:=rab.sumvidop.razr;
zarprof.insert svedpr set
svedpr.fcls:=ls,
svedpr.fcpod:=rab.katpodr.nrec,
svedpr.fcnr:=rab.sumvidop.nrec,
svedpr.fcdol:=rab.sumvidop.cappoint,
svedpr.frazr[mm]:=rz,
svedpr.fch[mm]:=srch,
svedpr.frub[mm]:=srsum;
if rab.sumvidop.clsch=1000000000759h then message(zarprof.svedpr.frub[mm]+chr(13)+srsum+chr(13)+rab.sumvidop.summa);
}
Message выдаёт нечто вроде
---------------------------
Информация
---------------------------
0.00
1791.12
1791.12
---------------------------
ОК
---------------------------
Спасибо, что поломали голову...
1. в конструкции "insert set" не надо использовать таблы разных вьюшек - странно что на это не жалуетесь - раньше галка падала по рантайм.
2. масиивы то же не надо использовать - их раньше и компилятор не пропускал.
сделайте так
zarprof.svedpr.fcls:=ls ;
zarprof.svedpr.fcpod:=rab.katpodr.nrec ;
zarprof.svedpr.fcnr:=rab.sumvidop.nrec ;
zarprof.svedpr.fcdol:=rab.sumvidop.cappoint ;
zarprof.svedpr.frazr[mm]:=rz ;
zarprof.svedpr.fch[mm]:=srch ;
zarprof.svedpr.frub[mm]:=srsum;
zarprof.insert current svedpr ;