Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Daro.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Daro.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Daro.cls.xml	(revision 52319)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Daro">
+<Super>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Logger:vhLib.Logger="",OfferteGenerator:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator="",HttpPoster:TECH.Http.Poster=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(Logger,OfferteGenerator,HttpPoster)
+
+	If ..RunsInTestmode() {
+		Set ..HttpPoster = ##class(TECH.Http.impl.Poster).%New()
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPersonality">
+<Private>1</Private>
+<ReturnType>DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.DaroPersonality).Instance()
+]]></Implementation>
+</Method>
+
+<Method name="RunsInTestmode">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Daro_RunsInTestmode")
+]]></Implementation>
+</Method>
+
+<Method name="GeefHttpMessage">
+<FormalSpec>XMLStream:%Stream</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Http.Message</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieServer As %String = "tobedetermined"
+	#dim TestServerIP As %String = "192.168.25.xx"
+
+	#dim HttpMessage As TECH.Http.Message = ##class(TECH.Http.Message).%New()
+
+	If ..RunsInTestmode() {
+		Set HttpMessage.Server = TestServerIP
+	} Else {
+		Set HttpMessage.Server = ProductieServer
+	}
+	
+	Set HttpMessage.Server = "tobedetermined"
+	Set HttpMessage.Location = "/xic34/sap/xi/adapter_plain"   ; Productie : "xic34"    <->    Test : "xic30" 
+	Set HttpMessage.ContentType = "text/xml"
+	Set HttpMessage.ContextEncoding = "UTF-8"
+	Set HttpMessage.Data = XMLStream
+
+	Do HttpMessage.Params.InsertKeyValue("namespace", "http://tobedetermined/xi/ch/vanhoecke")
+	Do HttpMessage.Params.InsertKeyValue("interface", "SI_VANHOECKE_out_ORDERS2")
+	Do HttpMessage.Params.InsertKeyValue("service", "VANHOECKE")
+	Do HttpMessage.Params.InsertKeyValue("party", "VANHOECKE")
+	Do HttpMessage.Params.InsertKeyValue("QOS", "EO")
+	Do HttpMessage.Params.InsertKeyValue("sap-user", "VANHOECKE")
+	Do HttpMessage.Params.InsertKeyValue("sap-password", "xxxxxxx")
+	Do HttpMessage.Params.InsertKeyValue("sap-client", "100")
+	Do HttpMessage.Params.InsertKeyValue("sap-language", "EN")
+	
+	Quit HttpMessage
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: zTryout/KCA/Daro/HttpVerzender.cls.xml
===================================================================
diff -u
--- zTryout/KCA/Daro/HttpVerzender.cls.xml	(revision 0)
+++ zTryout/KCA/Daro/HttpVerzender.cls.xml	(revision 52319)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.Daro.HttpVerzender">
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// ##class(zTryout.KCA.Daro.HttpVerzender).%New().DoIt()
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+SELECT ID,AangemaaktDoor,AangemaaktOp,AutomatischeVerwerking,BestelOpmerking,BestelStatus,DocumentReferenties,EmailAdresBesteller,ExterneId,GewijzigdDoor,GewijzigdOp,InstanceVersion,KlantBestellingId,KlantID,LeverAdres,LeverDatum,LeverancierOfferteId,OfferteVanHandel,Oorsprong,OrderID,PersonalityID,WensLeverDatum,WinkelkarID,CarbonNeutral_ID,CarbonNeutral_Omschrijving,CarbonNeutral_Prijs,VerzendingItem_AankoopPrijs,VerzendingItem_AantalPalletten,VerzendingItem_Code,VerzendingItem_Duurtijd,VerzendingItem_LeverDag,VerzendingItem_LeverDatum,VerzendingItem_LeverTijd,VerzendingItem_Omschrijving,VerzendingItem_TransportFirma,VerzendingItem_VerkoopPrijs 
+FROM "APPS_VKP_impl"."Offerte" where KlantID = 'K||23968' and offertevanhandel is not null order by LeverDatum desc;
+*/
+]]></Content>
+</UDLText>
+
+<Method name="DoIt">
+<Implementation><![CDATA[
+	// 291938
+	// 282670
+	// 283588
+	// 	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	// Do RuntimeContext.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+
+	// 306941 -
+	
+	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	Do RuntimeContext.ZetPersonalityID(##class(DOM.common.enu.Personality).Daro())
+	Do RuntimeContext.ZetTaal(##class(DOM.enu.Taal).Nederlands())
+
+	
+	#dim OfferteRepo As APPS.VKP.Offerte.impl.OfferteRepository = ##class(APPS.VKP.Offerte.impl.OfferteRepository).%New()
+	#dim Offerte As APPS.VKP.Offerte = OfferteRepo.GeefViaID(306941)
+	write !,Offerte.GeefKlantID()
+	write !,Offerte.GeefPersonality()
+	
+	#dim BesteldeOfferteMelder as APPS.VKP.Offerte.impl.BesteldeOfferteMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New()
+	
+	Do BesteldeOfferteMelder.VerwittigVerwerker(Offerte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r49636 -r52319
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 49636)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 52319)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HttpZenderDaro">
+<Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Daro</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="HttpZenderHaefele">
 <Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE</Type>
 <Private>1</Private>
@@ -38,6 +43,7 @@
 	set ..MailVerzenderHandel = $$$Inject(MailVerzenderHandel,##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel).%New())
 	set ..MailVerzenderVanHoecke = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke).%New()
 	set ..HttpZenderSFS = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS).%New()
+	set ..HttpZenderDaro = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Daro).%New()
 	set ..HttpZenderHaefele = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -88,7 +94,9 @@
 
 <Method name="VerwerkDaro">
 <FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+<Implementation><![CDATA[
+	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+	;Do ..HttpZenderDaro.Verzend(..Offerte)
 ]]></Implementation>
 </Method>