#define DISC_NORMAL 0 >#define DISC_RATE 1 >#define _MAXLNS 10 >#define _MAXWLNS 10 >#define RATE_UNKNOWN 0 >#define RATE_PAY 1 >#define RATE_INV 2 >#define CHANGETHIS this.fp1521() &&this.BGMAudit() &&this.fp1601() >*#define TESTING 1 >LPARAMETERS loServer >LOCAL loProcess >#include WCONNECT.H >#DEFINE TIMEOUT 14400 >#DEFINE TOL_PATH "D:\BTS\Tolerance\" > >loProcess=CREATEOBJECT("task",loServer) >IF VARTYPE(loProcess)#"O" > WAIT WINDOW NOWAIT "Unable to create Process object..." > RETURN .f. >ENDIF >loProcess.Process >RETURN > >DEFINE CLASS Task as WebProcess>