 |
| Namer |
Record |
| i |
Row number |
| Namerw |
Row from record |
|
function string 255 NumberSeriesComment_VIVc(LongInt sernr)
BEGIN
string 255 res;
record VISerBlock VISerb;
row VISerBlock VISerw;
Integer i,rwcnt;
BlockLoad(VISerb);
rwcnt = MatRowCnt(VISerb);
for (i=0;i<rwcnt;i=i+1) begin
MatRowGet(VISerb,i,VISerw);
if ((sernr>=VISerw.TSerStart) and (sernr<=VISerw.TSerEnd)) then begin
res = VISerw.TSerCom;
goto LNumberSeriesComment_VIVc;
end;
end;
LNumberSeriesComment_VIVc:;
NumberSeriesComment_VIVc = res;
RETURN;
END;
««