Index: vhDeploy/D20201209xKischHttpPostGerelateerd.cls.xml
===================================================================
diff -u
--- vhDeploy/D20201209xKischHttpPostGerelateerd.cls.xml	(revision 0)
+++ vhDeploy/D20201209xKischHttpPostGerelateerd.cls.xml	(revision 62990)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20201209xKischHttpPostGerelateerd">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItem - Kisch en HttpPost instellingen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	;instellingen over hoe poster moet gebruikt worden
+	#dim ConfigMgr as TECH.Config.ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+	Do ConfigMgr.SetBoolean("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender."_ "Kisch" _"_GebruikSSL",1)	
+	If ConfigMgr.GeefOmgeving() = "PROD" {
+		Do ConfigMgr.SetBoolean("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender." _ "Kisch"_"_GebruikEchteHttpPoster",$$$True)
+		Do ConfigMgr.SetString("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender."_"Kisch"_"_RunsInTestmode",$$$False)
+	} else {
+		Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender."_"Kisch"_"_RunsInTestmode",$$$True)
+		If ##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam() = "CACHEACCEPT2010" {
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender." _ "Kisch"_"_GebruikEchteHttpPoster",$$$True)
+		} else {
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender." _ "Kisch"_"_GebruikEchteHttpPoster",$$$False)
+		}
+	}
+	
+	;Item dat bepaalt of code uitgevoerd word of niet, manueel te activeren als Kisch klaar is.
+	Do ConfigMgr.SetBoolean("KischHTTPPostEnabled",$$$False)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/Test.cls.xml
===================================================================
diff -u -r59929 -r62990
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/Test.cls.xml	(.../Test.cls.xml)	(revision 59929)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/Test.cls.xml	(.../Test.cls.xml)	(revision 62990)
@@ -165,6 +165,32 @@
 	Do DupontHttpVerzenderMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test Kisch">
+<Implementation><![CDATA[
+	#dim Offerte as APPS.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	Do Offerte.ZetPersonalityID(5) ;Kisch
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("KischHTTPPostEnabled",$$$True,..#Applicatie)
+	Set MailVerzenderHandelMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel).%New()
+	Do MailVerzenderHandelMock.VerwachtMethodCall("Rapporteer",Offerte).DanDoeNiks()
+
+	Set VanHoeckeMailVerzenderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke).%New()
+	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Set SFSHttpVerzenderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS).%New()
+	Set DaroHttpVerzenderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Daro).%New()
+	Set HaefeleHttpVerzenderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New()
+	Set GalimbertiHttpVerzenderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Galimberti).%New()
+	Set DupontHttpVerzenderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Dupont).%New()
+	Set KischHttpVerzenderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch).%New()
+	Do KischHttpVerzenderMock.VerwachtMethodCall("Verzend",Offerte).DanDoeNiks()
+	
+	Set BesteldeOfferteMelder = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder).%New(MailVerzenderHandelMock,VanHoeckeMailVerzenderMock,WinkelkarRepositoryMock,SFSHttpVerzenderMock,DaroHttpVerzenderMock,HaefeleHttpVerzenderMock,GalimbertiHttpVerzenderMock,DupontHttpVerzenderMock,KischHttpVerzenderMock)
+	Do BesteldeOfferteMelder.VerwittigVerwerker(Offerte)
+
+	Do MailVerzenderHandelMock.Verifieer()
+	Do KischHttpVerzenderMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml
===================================================================
diff -u -r61354 -r62990
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 61354)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder.cls.xml	(.../BesteldeOfferteMelder.cls.xml)	(revision 62990)
@@ -38,6 +38,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HttpZenderKisch">
+<Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Offerte">
 <Type>APPS.VKP.Offerte</Type>
 <Private>1</Private>
@@ -49,7 +54,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MailVerzenderHandel:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel,VanHoeckeMailVerzender:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,HttpZenderSFS:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS,HttpZenderDaro:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Daro,HttpZenderHaefele:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE,HttpZenderGalimberti:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Galimberti,HttpZenderDupont:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Dupont</FormalSpec>
+<FormalSpec>MailVerzenderHandel:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.Handel,VanHoeckeMailVerzender:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.MailVerzender.VanHoecke,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,HttpZenderSFS:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.SFS,HttpZenderDaro:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Daro,HttpZenderHaefele:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE,HttpZenderGalimberti:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Galimberti,HttpZenderDupont:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Dupont,HttpZenderKisch:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -63,6 +68,7 @@
 	set ..HttpZenderHaefele = $$$Inject(HttpZenderHaefele,##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.HaefeleBE).%New())
 	set ..HttpZenderGalimberti = $$$Inject(HttpZenderGalimberti,##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Galimberti).%New())
 	Set ..HttpZenderDupont = $$$Inject(HttpZenderDupont,##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Dupont).%New())
+	Set ..HttpZenderKisch = $$$Inject(HttpZenderKisch,##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -161,7 +167,11 @@
 
 <Method name="VerwerkKisch">
 <FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
-<Implementation><![CDATA[	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+<Implementation><![CDATA[
+	Do ..MailVerzenderHandel.Rapporteer(..Offerte)
+	If ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("KischHTTPPostEnabled",$$$False) {
+		Do ..HttpZenderKisch.Verzend(..Offerte)
+	}
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml	(revision 62990)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch</Super>
+
+<Method name="Verzend">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml	(revision 62990)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>Logger:vhLib.Logger="",OfferteGenerator:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator="",HttpPoster:TECH.Http.Poster=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verzend">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Verzend",Offerte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/Kisch.cls.xml	(revision 62990)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.Kisch">
+<Super>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender,TECH.Mockable</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[
+
+	#dim KischOfferteGenerator As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.Kisch = ""
+	Set KischOfferteGenerator = $$$Inject(OfferteGenerator,##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.Kisch).%New())
+
+	Do ##super(Logger,KischOfferteGenerator,HttpPoster)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPersonality">
+<Private>1</Private>
+<ReturnType>DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.KischPersonality).Instance() // Eigenlijk moet hij de personality van de winkelkar nemen...
+]]></Implementation>
+</Method>
+
+<Method name="GeefHttpMessage">
+<FormalSpec>XMLStream:%Stream</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Http.Message</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductieServerIP As %String = ""
+	#dim TestServerIP As %String = "kisch.propellor.eu"
+	
+	#dim HttpMessage As TECH.Http.Message = ##class(TECH.Http.Message).%New()
+		
+	If ..RunsInTestmode() {
+		Set HttpMessage.Server = TestServerIP
+	} Else {
+		Set HttpMessage.Server = ProductieServerIP
+	}
+	Set HttpMessage.Port = 443
+	Set HttpMessage.Location = "/propellor/public/vanhoecke.cfm"
+	Set HttpMessage.ContentType = "text/xml"
+	Set HttpMessage.ContextEncoding = "UTF-8"
+	Set HttpMessage.Data = XMLStream
+	
+	Quit HttpMessage
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Kisch.cls.xml
===================================================================
diff -u
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Kisch.cls.xml	(revision 0)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator/Kisch.cls.xml	(revision 62990)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator.Kisch">
+<Super>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteGenerator</Super>
+
+<Property name="DoorHandelMeeleverensMelder">
+<Type>APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",UrlBepaler:APPS.EC.Webshop.impl.OfferteUrlBepaler="",TotaalEnPrijsBerekenaar:APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar="",KlantDataBepaler:DOM.VKP.KlantDataBepaler="",PersonalityService:DOM.common.PersonalityService="",ProductAPI:DOM.PM.ProductAPI="",DoorHandelMeeleverensMelder:APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(WinkelkarService,WinkelkarRepository,UrlBepaler,TotaalEnPrijsBerekenaar,KlantDataBepaler,PersonalityService,ProductAPI)
+
+	Set ..DoorHandelMeeleverensMelder = $$$Inject(DoorHandelMeeleverensMelder, ##class(APPS.VKP.Offerte.impl.DoorHandelMeeleverensMelder).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetMaatwerkOmschrijvingen">
+<FormalSpec>OfferteLijn:APPS.VKP.Offerte.impl.BesteldeOfferteMelder.HttpVerzender.dto.OfferteLijn002,MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..ZetDeNieuweMaatwerkOmschrijvingen(OfferteLijn,MaatwerkLijn)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKortTekst">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductAPI.GeefProduct(PRNr).GeefKorttekst()
+]]></Implementation>
+</Method>
+
+<Method name="GeefIdentNr">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$$Replace( ..ProductAPI.GeefProduct(PRNr).GeefIdentNr(),".","")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r62891 -r62990
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 62891)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/HttpVerzender/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 62990)
@@ -364,7 +364,7 @@
 <Implementation><![CDATA[
 	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	#dim IsVersie002Compliant As %Boolean = $$$False
-	If (##class(TECH.StringUtils).Equals(..Winkelkar.GeefPersonalityID() , Personality.HaefeleBE, Personality.HaefeleNL,Personality.HaefeleDE, Personality.Daro,Personality.Galimberti, Personality.Dupont )) {
+	If (##class(TECH.StringUtils).Equals(..Winkelkar.GeefPersonalityID() , Personality.HaefeleBE, Personality.HaefeleNL,Personality.HaefeleDE, Personality.Daro,Personality.Galimberti, Personality.Dupont, Personality.Kisch )) {
 		Set IsVersie002Compliant = $$$True
 	}
 	Quit IsVersie002Compliant