Index: APPS/TBXWeb/impl/SFSOrderHandler.cls.xml
===================================================================
diff -u -r320 -r461
--- APPS/TBXWeb/impl/SFSOrderHandler.cls.xml	(.../SFSOrderHandler.cls.xml)	(revision 320)
+++ APPS/TBXWeb/impl/SFSOrderHandler.cls.xml	(.../SFSOrderHandler.cls.xml)	(revision 461)
@@ -4,6 +4,7 @@
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>AbstractOrderHandler</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="HaltOnLineErrors">
 <Default>1</Default>
@@ -67,6 +68,11 @@
  Set HttpRequest.ContentEncoding = "UTF-8"
  Do HttpRequest.EntityBody.CopyFrom(Stream)
  
+ Set lbExtras=""
+ Set lbExtras=lbExtras_$LB("HttpPostServer"_HttpRequest.Server) 
+ Set:($L(..WSOrd.Opmerking1)) lbExtras=lbExtras_$LB("MailComment="_..WSOrd.Opmerking1)
+ Do ##class(cspBasis.GAProdTBox).AddToLog("SUBMIT_ORDER",..GeefOrderDomein(),..WSOrd.KLNummer,"shop="_..Shop,..WSOrd.mID,..Requester,..Taal,,lbExtras)
+
  If $$$Not(flagTest) Set stPost = HttpRequest.Post("/xic34/sap/xi/adapter_plain",0) 	
  Else  Set stPost=$$SendMiniMail^vhLib("""SFS_POSTER"" <AdminTBX@vanhoecke.be>",$lb("ICT_SupportTBX@vanhoecke.be"),"SFS POST for WSid : "_..WSOrd.%Id(),Stream,1)
  
@@ -82,6 +88,9 @@
  Else  Do
  . Set ErrorInfo = HttpRequest.HttpResponse.ReasonPhrase
  . Do ..Logger.Error("SFS_HTTPRESPONSE_INVALID","wsID = "_..WSOrd.mID_" Error = "_ErrorInfo)
+ . Set lbExtras=""
+ . Set lbExtras=lbExtras_$LB(..%ClassName(0))
+ . Do ##class(cspBasis.GAProdTBox).AddToLog("SUBMIT_FAILED",..GeefOrderDomein(),..WSOrd.KLNummer,"shop="_..Shop,..WSOrd.mID,..Requester,..Taal,,lbExtras)
  
  Quit Result
 ]]></Implementation>