vhLib.Macro,APPS.TBXWeb 1 %RegisteredObject 0 0 %ListOfDataTypes WS.TBX.OrderAbstract APPS.TBXWeb.enu.TBXHandel APPS.TBXWeb.enu.TBXHandel %Boolean 1 %String vhLib.Logger 1 wsID:%String,Shop:APPS.TBXWeb.enu.TBXHandel="",Requester:APPS.TBXWeb.enu.TBXHandel="" 1 1 %Status 1 %Status quiten Set stPreProcessing = ..PreProcessing() If $$$ISERR(stPreProcessing) Do Quit $$$ERROR($$$GeneralError,"Preprocessing error") . Do ..Logger.ErrorMail("PREPROCESSING_FAILED",$$ParseStatus^vhLib.System(stPreProcessing)) ; Order is reeds besteld If (..OrderIsReedsBesteld()) Do Quit $$$ERROR($$$errOrderAlreadyConfirmed,"WSOrder is already confirmed") . Do ..Logger.ErrorMail("ORDERSTARTTYPE_INVALID",..WSOrd.%Id()_" : "_..WSOrd.BonType) ; Ordertype order niet van het juiste begin type If $$$Not(..OrderStartTypeValid()) Do Quit $$$ERROR($$$errStartTypeIncorrect,"WSOrder start type not correct") . Do ..Logger.ErrorMail("ORDERSTARTTYPE_INVALID",..WSOrd.%Id()_" : "_..WSOrd.BonType) If '(..IsValidWebDomain()) Do Quit $$$ERROR($$$GeneralError,"WSOrder has no valid WebDomain for this shop") . Set Info = "WSOrd.WebDomain = *"_..WSOrd.WebDomain _"* "_"Requester = *"_..Requester_"*" . Do ..Logger.ErrorMail("WEBDOMAIN_INVALID",Info) ; testen of order lijnen bevat die niet konden berekend worden. Set ..LijnenMetFout = ..GeefLijnenMetFout() ; indien parameter stop bij lijn fouten actief If (..#HaltOnLineErrors) && (..LijnenMetFout.Count()) Do Quit $$$ERROR($$$GeneralError,"Error in several lines") . Do ..Logger.ErrorMail("TBX_LINE_ERRORS",..WSOrd.mID _" ("_ ##class(TECH.ListUtils).ListToPieces(..LijnenMetFout,", ")_")") Set NewBT = ..GetOrderResultType() ; order type wijzigen alvorens bon te bewaren If (NewBT'=..WSOrd.BonType) { Set OldBT = ..WSOrd.BonType Do ..WSOrd.ZetBonType(NewBT) Do ..Logger.Info("BONTYPE_SET",OldBT _ " ---> " _ NewBT) } if (..Shop = "VHEPN") && (..Requester'="VHEPN" ) { Do ..WSOrd.AddToSubmitToVHLog("1") } else { Do ..WSOrd.ZetSubmitTS($H) } ; bon bewaren Set stSaved = ..BewaarOrder() If 'stSaved Do Quit stSaved . Do ..Logger.ErrorMail("SAVE_ORDER_FAILED",$$ParseStatus^vhLib.System(stSaved)) Do ..Logger.Info("ORDER_SAVED") ; Post processing verwerking starten -> indien post processing errors --> quiten Do ..Logger.Info("POSTPROCESSING_STARTED") Set stPostProcessing = ..PostProcessing() if 'stPostProcessing Do Quit $$$ERROR($$$GeneralError,"Post processing error") . Do ..Logger.ErrorMail("POSTPROCESSING_FAILED",$$ParseStatus^vhLib.System(stPostProcessing)) . Set lbExtras="" . Set lbExtras=lbExtras_$LB(..%ClassName(0)) . Do ##class(cspBasis.GAProdTBox).AddToLog("SUBMIT_FAILED",..WSOrd.WebDomain,..WSOrd.KLNummer,"shop="_..Shop,..WSOrd.mID,..Requester,..Taal,,lbExtras) Do ..Logger.Info("ORDER_PROCESSED") Quit $$$OK ]]> %Boolean 1 %Status 1 %Status 1 %Status 1 %Boolean 1 %Boolean 1 %String 1 %ListOfDataTypes 1 %Status 1 %String " ]]> 1 1 %List 1 %String 1 %String 1 %String %String %String 1 %String 1 %String