vhLib.Macro,APPS.TBXWeb
1
%RegisteredObject
62021,57618.61281
61775,52031.029454
0
0
%List
WS.TBX.Order
%String
%String
%String
vhLib.Logger
%New method to
provide notification that a new instance of an object is being created.
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)
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