FishEye: Tag 31709 refers to a dead (removed) revision in file `APPS/OV/OrderBevestiging/impl/OrderBevestigerDummy.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/OV/OrderBevestiging/impl/OrderBevestigerSFS.cls.xml
===================================================================
diff -u -r29059 -r31709
--- APPS/OV/OrderBevestiging/impl/OrderBevestigerSFS.cls.xml	(.../OrderBevestigerSFS.cls.xml)	(revision 29059)
+++ APPS/OV/OrderBevestiging/impl/OrderBevestigerSFS.cls.xml	(.../OrderBevestigerSFS.cls.xml)	(revision 31709)
@@ -20,7 +20,7 @@
 </Method>
 
 <Method name="VerstuurOrderBevestiging">
-<FormalSpec>OrderID:%String</FormalSpec>
+<FormalSpec>OrderID:TECH.String</FormalSpec>
 <Implementation><![CDATA[
   	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
  
Index: APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerSFS.cls.xml
===================================================================
diff -u
--- APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerSFS.cls.xml	(revision 0)
+++ APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerSFS.cls.xml	(revision 31709)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.OV.OrderBevestiging.impl.OrderBevestiger.OrderBevestigerSFS">
+<Super>TECH.RegisteredObject,APPS.OV.OrderBevestiging.OrderBevestiger</Super>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerstuurOrderBevestiging">
+<FormalSpec>OrderID:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+  	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
+ 
+ 	If Order.GeefOorsprong() = ##class(BL.Flow.Offerte.enu.Oorsprong).EDIBestand() {
+	 
+	#dim StuurViaMail As %Boolean = $$$Not(##class(TECH.Config.ConfigMgr).Instance().GetBoolean("APPS.OV.impl.SFSOrderBevestiging_PostHttpRequest"))
+ 
+	#dim stMaakStream As %Status = $$$OK 
+	#dim dtoOrderBevestiging As APPS.OV.dto.EDIOrderBevestiging = ..MaakEDIOrderBevestigingDTO(OrderID)
+	#dim Stream As %Stream = ..MaakEDIOrderBevestigingStream(dtoOrderBevestiging)
+	#dim IsUNIShop As %Boolean = (dtoOrderBevestiging.EDIBron = ##class(BL.Flow.Offerte.enu.Oorsprong).UniShop())
+	If (IsUNIShop) { Set StuurViaMail = 1 }
+	if '$IsObject(Stream) do  quit stMaakStream
+	. set stMaakStream = $$$ERROR($$$GeneralError,"Failed creating EDI Order stream")
+ 
+	if $$$Not(StuurViaMail) {
+	 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+	 	Set HttpRequest.Server="extranet.sfsservices.biz"
+	 	Do HttpRequest.SetParam("namespace", "http://sfs.biz/xi/ch/vanhoecke")
+	 	Do HttpRequest.SetParam("interface", "SI_VANHOECKE_ORGALUX_ORDRSP_outb")
+	 	Do HttpRequest.SetParam("service", "VANHOECKE")
+	 	Do HttpRequest.SetParam("party", "VANHOECKE")
+	 	Do HttpRequest.SetParam("QOS", "EO")
+	 	Do HttpRequest.SetParam("sap-user", "VANHOECKE")
+	 	Do HttpRequest.SetParam("sap-password", "hoec4s!f")
+	 	Do HttpRequest.SetParam("sap-client", "100")
+	 	Do HttpRequest.SetParam("sap-language", "EN")
+	 	Set HttpRequest.ContentType = "text/xml"
+	 	Set HttpRequest.ContentEncoding = "UTF-8"
+	 	Do HttpRequest.EntityBody.CopyFrom(Stream)
+	    #dim stPost As %Status = HttpRequest.Post("/xic34/sap/xi/adapter_plain",0)   ; Productie : "xic34"    <->    Test : "xic30" 
+	 } else {
+		 #dim MailTo As %list = $listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.OV.impl.SFSOrderBevestiging_TestMailNaar"))
+		 set stPost=$$SendMiniMailForced^vhLib.Mail($$$SystemMail("OV_OrderBevestiging"),MailTo,"SFS Order : "_OrderID,Stream,1)
+	 }
+ 
+	 If $$$ISERR(stPost) Do  Quit stPost
+	 . Do ..Logger.ErrorMail("SFS_ORDRSP_POST_FAILED","OrderNr = "_OrderID_" Error = "_$$ParseStatus^vhLib.System(stPost))
+
+	 Quit:StuurViaMail $$$OK   // geen verdere afhandeling indien in test mode :D
+  
+	 #dim Result As %Status = $$$OK 
+	 If ( HttpRequest.HttpResponse.StatusCode = 200 ) Set Result = $$$OK
+	 Else  Set Result = $$$ERROR($$$GeneralError,HttpRequest.HttpResponse.ReasonPhrase)
+
+	 if Result { 
+	 	do ..Logger.Info("SFS_ORDRSP_POST_SUCCESS","OrderNr = "_OrderID) 
+	 } else {
+	 	#dim ErrorInfo As %String = HttpRequest.HttpResponse.ReasonPhrase
+	 	Do ..Logger.ErrorMail("SFS_ORDRSP_HTTPRESPONSE_INVALID","OrderNr = "_OrderID_" Error = "_ErrorInfo)
+	 }
+	 
+	 quit
+ }
+]]></Implementation>
+</Method>
+
+<Method name="MaakEDIOrderBevestigingStream">
+<FormalSpec>dtoOrderBevestiging:APPS.OV.dto.EDIOrderBevestiging</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	#define AllowEmptyProxy 	0
+	#define NoXMLDeclaration	0
+	#define IndentTags			1
+
+	Quit:'$IsObject(dtoOrderBevestiging) ""
+	
+	#dim TopTag As %String
+	
+	Set Stream=##class(%FileBinaryStream).%New()
+	#dim sc As %Status = $$ProxyToXMLStream^vhLib(dtoOrderBevestiging, .Stream, .TopTag,$$$IndentTags, $$$AllowEmptyProxy, $$$NoXMLDeclaration)
+	if $$$ISERR(sc) {
+		do ..Logger.ErrorMail("ProxyToXMLStream_Failed",$$ParseStatus^vhLib(sc))
+	}
+	
+	Quit:($$$ISERR(sc)) ""
+	
+	Quit Stream
+]]></Implementation>
+</Method>
+
+<Method name="MaakEDIOrderBevestigingDTO">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.OV.dto.EDIOrderBevestiging</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderBevestigingMaker As APPS.OV.OrderBevestiging.impl.OrderBevestigingMaker = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestigingMaker).%New()	
+	
+	Quit OrderBevestigingMaker.MaakEDIOrderBevestigingDTO(OrderID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 31709 refers to a dead (removed) revision in file `APPS/OV/OrderBevestiging/impl/OrderBevestigerMetWachtrij.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerMetWachtrij.cls.xml
===================================================================
diff -u -r31323 -r31709
--- APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerMetWachtrij.cls.xml	(.../OrderBevestigerMetWachtrij.cls.xml)	(revision 31323)
+++ APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerMetWachtrij.cls.xml	(.../OrderBevestiger/OrderBevestigerMetWachtrij.cls.xml)	(revision 31709)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.OV.OrderBevestiging.impl.OrderBevestigerMetWachtrij">
+<Class name="APPS.OV.OrderBevestiging.impl.OrderBevestiger.OrderBevestigerMetWachtrij">
 <Super>TECH.RegisteredObject,APPS.OV.OrderBevestiging.OrderBevestiger</Super>
 
 <Property name="OrderBevestigingService">
@@ -9,21 +9,21 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Afhandelaar:APPS.OV.OrderBevestiging.OrderBevestigingWachtrijAfhandelaar</FormalSpec>
+<FormalSpec>Afhandelaar:APPS.OV.OrderBevestiging.WachtrijAfhandelaar</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..OrderBevestigingService = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestigingWachtrijService).%New(Afhandelaar)
+	Set ..OrderBevestigingService = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestigingWachtrijService).%New(Afhandelaar)
 	
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerstuurOrderBevestiging">
-<FormalSpec>OrderID:%String</FormalSpec>
-<Implementation><![CDATA[	do ..OrderBevestigingService.PlaatsInWachtRij(OrderID)
+<FormalSpec>OrderID:TECH.String</FormalSpec>
+<Implementation><![CDATA[	Do ..OrderBevestigingService.PlaatsInWachtRij(OrderID)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerDummy.cls.xml
===================================================================
diff -u -r29059 -r31709
--- APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerDummy.cls.xml	(.../OrderBevestigerDummy.cls.xml)	(revision 29059)
+++ APPS/OV/OrderBevestiging/impl/OrderBevestiger/OrderBevestigerDummy.cls.xml	(.../OrderBevestiger/OrderBevestigerDummy.cls.xml)	(revision 31709)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.OV.OrderBevestiging.impl.OrderBevestigerDummy">
+<Class name="APPS.OV.OrderBevestiging.impl.OrderBevestiger.OrderBevestigerDummy">
 <Super>TECH.RegisteredObject,APPS.OV.OrderBevestiging.OrderBevestiger</Super>
 
 <Method name="VerstuurOrderBevestiging">
-<FormalSpec>OrderID:%String</FormalSpec>
+<FormalSpec>OrderID:TECH.String</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 31709 refers to a dead (removed) revision in file `APPS/OV/OrderBevestiging/impl/OrderBevestigerSFS/OrderBevestigingMaker.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/OV/OrderBevestiging/impl/OrderBevestigingMaker.cls.xml
===================================================================
diff -u -r29059 -r31709
--- APPS/OV/OrderBevestiging/impl/OrderBevestigingMaker.cls.xml	(.../OrderBevestigerSFS/OrderBevestigingMaker.cls.xml)	(revision 29059)
+++ APPS/OV/OrderBevestiging/impl/OrderBevestigingMaker.cls.xml	(.../OrderBevestigingMaker.cls.xml)	(revision 31709)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.OV.OrderBevestiging.impl.OrderBevestigerSFS.OrderBevestigingMaker">
+<Class name="APPS.OV.OrderBevestiging.impl.OrderBevestigingMaker">
 <ClassType/>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>