|
|
| Close a form already open |
if (nonblank(formcode)) then begin
if (OpenForm(formcode)) then begin
CommonDocumentFields(RepSpec);
NumberofDocumentPages(APSDefrw.FPCode,acnt);
DoPrintAPSForm(RepSpec,VEp,ARSSum,ARSOnAccBal,ARSIntSum,ARSSumLate,ARSARSum,ARSStartBal,ARSSumNotLate,ARSLateCount,ARSNotLateCount,
ARSs0,ARSs1,ARSs16,ARSs31,ARSs61,ARSs91,ARSs121,ARSs151,aRwtype,aInvoiceNr,alatedays,aRemndr,aInvDate,aDueDate,aIntVal,aRVal,aSum4,aVEInvNo,a,CurncyCode,acnt);
CloseForm;
end else begin
printf = false;
MessageBox(1546,formcode);
end;
end else begin
printf = false;
if (intdocnr==1) then begin
MessageBox(1624, " " & USetStr(1623));
end;
end;
««
