Peter H.
WX12 - HFCS: Scheduled Tasks and hDeclareExternal() May 30, 2008 10:04PM |
Paul Turner
Re: WX12 - HFCS: Scheduled Tasks and hDeclareExternal() May 31, 2008 01:07AM |
Peter H.
Re: WX12 - HFCS: Scheduled Tasks and hDeclareExternal() May 31, 2008 01:45AM |
Peter Holemans
SOLUTION FOUND: WX12 - HFCS: Scheduled Tasks and hDeclareExternal() June 13, 2008 01:25PM |
SP_EmailFrozenStatusExpiration() //Local variables ... //For use in a scheduled environment we need to declare all the files we will use as external resources or that will be used by a stored query used in the code HDeclareExternal("Affiliate.FIC","Affiliate") HDeclareExternal("Affiliate_Customer.FIC","Affiliate_Customer") HDeclareExternal("City.FIC","City") HDeclareExternal("Region.FIC","Region") HDeclareExternal("Country.FIC","Country") HDeclareExternal("Coworker.FIC","Coworker") HDeclareExternal("CoworkerRole.FIC","CoworkerRole") HDeclareExternal("Customer.FIC","Customer") HDeclareExternal("CustomerContact.FIC","CustomerContact") HDeclareExternal("Language.FIC","Language") HDeclareExternal("MeetingRequest.FIC","MeetingRequest") HDeclareExternal("Status.FIC","Status") HDéclareExterne("StatusHierarchy.FIC","StatusHierarchy") HDéclareExterne("SystemSetting.FIC","SystemSetting") HDéclareExterne("LogBook.FIC","LogBook") WHEN EXCEPTION IN //Write start entry in logbook first LogBook.Type="SCHEDULED_TASK" LogBook.Originator="SP_EmailFrozenStatusExpiration" LogBook.Description="Launched on: "+Today()+" at "+ TimeToString(Now(),"HH:MMS:CC") LogBook.CreatedBy=RéseauUtilisateur() LogBook.CreatedOn=Today()+Now() HAdd(LogBook) //Do Logic Qry_Affiliate_Customer_SelectExpiredFrozenStatus.pFrozenStatusID = lint_FrozenStatusID Qry_Affiliate_Customer_SelectExpiredFrozenStatus.pToday = Today() IF HExécuteRequête(Qry_Affiliate_Customer_SelectExpiredFrozenStatus) THEN FOR ALL Qry_Affiliate_Customer_SelectExpiredFrozenStatus //Get the record HReadSeekFirst(Affiliate_Customer,AffiliateCustomerID,Qry_Affiliate_Customer_SelectExpiredFrozenStatus.AffiliateCustomerID) IF HFound(Affiliate_Customer) THEN HTransactionStart() ... //etc... END END END //Write end entry in logbook LogBook.Type="SCHEDULED_TASK" LogBook.Originator="SP_EmailFrozenStatusExpiration" LogBook.Description="Completed on: "+Today()+" at "+ TimeToString(Now(),"HH:MMS:CC") LogBook.CreatedBy=RéseauUtilisateur() LogBook.CreatedOn=Today()+Now() HAdd(LogBook) DO //Write error entry in logbook LogBook.Type="SCHEDULED_TASK" LogBook.Originator="SP_EmailFrozenStatusExpiration" LogBook.Description="Failed on: "+Today()+" at "+ TimeToString(Now(),"HH:MMS:CC")+CR+CR+"System Error:"+CR+RepeatString("_",30)+CR+ErreurInfo(errComplet)+CR+CR+"Database Error:"+CR+RepeatString("_",30)+CR+HErreurInfo(hErrComplet) LogBook.CreatedBy=RéseauUtilisateur() LogBook.CreatedOn=Today()+Now() HAdd(LogBook) END
Paul Turner
Re: SOLUTION FOUND: WX12 - HFCS: Scheduled Tasks and hDeclareExternal() June 16, 2008 01:47AM |
Peter Holemans
Re: SOLUTION FOUND: WX12 - HFCS: Scheduled Tasks and hDeclareExternal() June 16, 2008 05:11PM |
Paul Turner
Re: SOLUTION FOUND: WX12 - HFCS: Scheduled Tasks and hDeclareExternal() June 19, 2008 02:13AM |