|
|
| Deletes row from the record matrix |
 |
| Namer |
record from which the matrix row has to be removed |
| i |
number of the row to be removed |
|
//First row in the matrix has row number 0
global
function LongInt TSVcRecordDuplicate(var record TSVc TSr,record TSVc TS2r,LongInt stat,LongInt long4)
BEGIN
LongInt res;
Integer i,rwcnt;
row TSVc TSrw;
TSr.SerNr = -1;
TSr.RegDate = CurrentDate;
TSr.OKFlag = 0;
TSr.OKMark = 0;
rwcnt = MatRowCnt(TSr);
for (i=rwcnt-1;i>=0;i=i-1) begin
MatRowGet(TSr,i,TSrw);
if ((TSrw.ovst!=0) or (TSrw.stp!=1)) then begin
MatRowDelete(TSr,i);
end;
end;
TSVcRecordDuplicate = res;
RETURN;
END;
««