|
|
| This prints the current hal call stack for debugging purposes |
Global
Procedure PlanMn(record RcVc RepSpec)
begin
Integer wn, mwn;
Record RebVc REr;
Record RecVc RCr;
Record INVc INr;
Row RecVc RCrw;
Record TBBUVc PRr;
Row TBBUVc PRrw;
longInt i, desc, PreFin, PreBase, temp;
Val rwcnt, cant;
Date fecha;
String 20 texto;
HalCallStack; <<<-------------------- it prints a report window with "PlanMn"
mwn = FindWindow("TBBUDClass");
GetWindowRecord(mwn,PRr);
REr.Code=RepSpec.f2;
if(ReadFirstMain(REr,1,true)) then begin
desc=REr.vra0;
end else begin
......
««
