|
|
| Determines if the OK sign from a record is allowed to be removed or not. FALSE is returned if the specified date is part of a locked date range. |
 |
| RegisterName |
The name of the regiter |
| TransactionDate |
The date to check |
|
global
updating function LongInt ExpVcRecordCheck(var record ExpVc Expr,record ExpVc Exp2r,LongInt stat,LongInt long4)
begin
LongInt res;
record ExpTBlock ExpTRec;
record AccVc Accr;
record PRVc PRr;
record INVc INr;
record TRVc gTRp;
row ExpVc Exprw;
Integer i,rwcnt,prstat,errcode;
LongInt oldnr,newnr;
Boolean transf,gentrans,check,unokf,found;
Integer insertmode,updatemode;
string 255 errstr;
string 255 tstr,ckey;
Integer theerrno;
record ExpVc oldExpr;
record APAccBlock APAccb;
// -- //
if (unokf) then begin
if (IsUnOKAllowed("ExpVc",Expr.TransDate)==false) then begin
RecordCheckError(1046,"",-1,"TransDate");
res = -1;
end;
goto LExpVcRecordCheck;
end;
// -- //
return;
end;
««