|
|
| Sets default value to all row type variable fields |
 |
| FileName |
Register or Block ID, for example QTVc Record |
| IVrw |
Variable of Row Type, for example QTVc Row |
| stp |
Row Type |
|
global
procedure QTAddHidLine()
BEGIN
record QTVc QTr;
row QTVc QTrw;
Integer wn,rownr;
Integer normalmode;
string 20 tstr;
normalmode = 0;//Rs_normal
wn = CurWindow;
GetWindowRecord(wn,QTr);
if ((QTr.Closed==0) and (QTr.Rejected==0)) then begin
rownr = WindowActiveRow(wn);
DeselectWindow(wn,false);
if (rownr<0) then begin rownr = 0; end;
ClearRow(QTr,QTrw,10);
QTrw.Spec = " ";
QTrw.stp = 10;
MatRowInsert(QTr,rownr,QTrw);
PutWindowRecord(wn,QTr);
end;
RETURN;
END;
««