If this method returns an error then the object will not be created.]]> wsID:%String,Shop:%String="",Requester:%String="" 1 1 %Status quiten Set stPreProcessing = ..PreProcessing() If $$$ISERR(stPreProcessing) Do Quit $$$ERROR($$$GeneralError,"Preprocessing error") . Do ..Logger.ErrorMail("PREPROCESSING_FAILED",$$ParseStatus^vhLib.System(stPreProcessing)) ; Ordertype order niet van het juiste begin type If $$$ISERR(..OrderStartTypeValid()) Do Quit $$$ERROR($$$GeneralError,"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 _"* "_"Domain Shop = *"_..WebServer()_"*" . Do ..Logger.ErrorMail("WEBDOMAIN_INVALID",Info) ; testen of order lijnen bevat die niet konden berekend worden. Set ..lbLineErrors = ..DetectLineErrors(..WSOrd) ; indien parameter stop bij lijn fouten actief If (..#HaltOnLineErrors && $LL(..lbLineErrors) ) Do Quit $$$ERROR($$$GeneralError,"Error in several lines") . Do ..Logger.Error("TBX_LINE_ERRORS",..WSOrd.mID _" "_ $$$LCVT(lbLineErrors)) Set NewBT = ..GetOrderResultType() ; order type wijzigen alvorens bon te bewaren If (NewBT'=..WSOrd.BonType) Do . Set OldBT = ..WSOrd.BonType . Set ..WSOrd.BonType = NewBT . Do ..Logger.Info("BONTYPE_SET",OldBT _ " ---> " _ NewBT) if (..Shop = "VHEPN") && (..Requester'="VHEPN" ) { Do ..WSOrd.AddToSubmitToVHLog("1") } else { Set ..WSOrd.SubmitTS=$ZDT($H,3) } ; bon bewaren Set stSaved = 1 Set stSaved = ..WSOrd.%Save() 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)) Do ..Logger.Info("ORDER_PROCESSED") Quit $$$OK ]]> %String 1 %String 1 %Status 1 %Status 1 Boolean WSOrd 1 %List 1 %Status 1 %String " ]]> 1 %List %String 1 %String 1 %String %String %String