| ( |
|
|
|||
| Specifies if Application runs in Server Mode | |||
global
updating procedure SaveOffLineLastIVCashNr(LongInt sernr)
begin
record OffLineSetBlock OffLineSetRec;
record LocalOffLineNrBlock LastRecNr;
Integer offlinecomp;
BlockLoad(OffLineSetRec);
offlinecomp = StringToInt(OffLineSetRec.OffLineComp);
if (offlinecomp>0) or (ServingClient==false) then begin
BlockLoad(LastRecNr);
LastRecNr.LastIVCashNr = sernr;
BlockStore(LastRecNr);
end;
return;
end;
 |
|
| Related topics: | |