Index: APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Hein.cls.xml
===================================================================
diff -u
--- APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Hein.cls.xml	(revision 0)
+++ APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Hein.cls.xml	(revision 45605)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.Hein">
+<Super>APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.Base</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Verstuurder:APPS.OV.OrderBevestiging.Verstuurder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Verstuurder = $$$Implementation(Verstuurder, ##class(APPS.OV.OrderBevestiging.impl.Verstuurder.Hein).%New())
+	
+	Quit ##super(..Verstuurder)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantID">
+<Private>1</Private>
+<ReturnType>DOM.common.PartijID</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.VKP.enu.Klant).Hein()
+]]></Implementation>
+</Method>
+
+<Method name="GeefExtraOmschrijvingVoorOrderVerwerkingException">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit "WachtrijAfhandelaar Hein"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhDeploy/D20170919xMailOntvangerHein.cls.xml
===================================================================
diff -u
--- vhDeploy/D20170919xMailOntvangerHein.cls.xml	(revision 0)
+++ vhDeploy/D20170919xMailOntvangerHein.cls.xml	(revision 45605)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20170919xMailOntvangerHein">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Mail ontvangers voor VHisie4 bestellingen Hein</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.OV.OrderBevestiging.Hein_MailNaar",$lb("","Erika.Kohler@hein-beschlag.de"))
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.OV.OrderBevestiging.Hein_MailNaarCC",$lb("","nbr@vanhoecke.be"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/OV/impl/OrderVerwerkingAPI.cls.xml
===================================================================
diff -u -r31706 -r45605
--- APPS/OV/impl/OrderVerwerkingAPI.cls.xml	(.../OrderVerwerkingAPI.cls.xml)	(revision 31706)
+++ APPS/OV/impl/OrderVerwerkingAPI.cls.xml	(.../OrderVerwerkingAPI.cls.xml)	(revision 45605)
@@ -24,6 +24,9 @@
 	} elseif (KlantID = ##class(DOM.VKP.enu.Klant).Bruynzeel()) {
 		set Afhandelaar = ##class(APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.Bruynzeel).%New()
 		set OrderBevestiger = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestiger.OrderBevestigerMetWachtrij).%New(Afhandelaar)
+	} elseif (KlantID = ##class(DOM.VKP.enu.Klant).Hein()){
+		set Afhandelaar = ##class(APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.Hein).%New()
+		set OrderBevestiger = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestiger.OrderBevestigerMetWachtrij).%New(Afhandelaar)
 	} else {
 		set OrderBevestiger = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestiger.OrderBevestigerDummy).%New()
 	}
@@ -42,6 +45,8 @@
 		Set WachtrijAfhandelaar = ##class(APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.Bruynzeel).%New()
 	} Elseif (KlantID = ##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek()) {
 		Set WachtrijAfhandelaar = ##class(APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.DKG).%New()
+	} Elseif (KlantID = ##class(DOM.VKP.enu.Klant).Hein()) {
+		Set WachtrijAfhandelaar = ##class(APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.Hein).%New()
 	} Else {
 		Set WachtrijAfhandelaar = ##class(APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.Dummy).%New()
 	}
Index: APPS/OV/OrderBevestiging/impl/Verstuurder/Hein.cls.xml
===================================================================
diff -u
--- APPS/OV/OrderBevestiging/impl/Verstuurder/Hein.cls.xml	(revision 0)
+++ APPS/OV/OrderBevestiging/impl/Verstuurder/Hein.cls.xml	(revision 45605)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.OV.OrderBevestiging.impl.Verstuurder.Hein">
+<Super>APPS.OV.OrderBevestiging.impl.Verstuurder.Base</Super>
+
+<Method name="GeefOntvanger">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.OV.OrderBevestiging.Hein_MailNaar")
+]]></Implementation>
+</Method>
+
+<Method name="GeefOntvangerCC">
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.OV.OrderBevestiging.Hein_MailNaarCC")
+]]></Implementation>
+</Method>
+
+<Method name="MaakBijlage">
+<FormalSpec>BestandNaam:TECH.String,OrderBevestigingen:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DataExporter As TECH.DataExporter.DataExporter = ##class(TECH.Context).Instance().GeefFileAPI().GeefDataExporter()
+	#dim ExportInfo As TECH.DataExporter.ExportInfo = ..GeefExportInfo()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OrderBevestigingen)
+
+	While (Iterator.HasNext()) {
+		#dim OrderBevestiging As APPS.OV.OrderBevestiging.data.Order = Iterator.Next()
+		#dim LijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OrderBevestiging.Lijnen)
+		
+		While (LijnIterator.HasNext()) {
+			#dim OrderBevestigingLijn As APPS.OV.OrderBevestiging.data.OrderLijn = LijnIterator.Next()
+			#dim GeformatteerdeOrderBevestigingLijn As APPS.OV.OrderBevestiging.data.OrderLijn = ..GeefGeformatteerdeOrderBevestigingLijn(OrderBevestigingLijn)
+
+			Do ExportInfo.Data.Insert(GeformatteerdeOrderBevestigingLijn)
+		}
+	}	
+	
+	Do DataExporter.ZetScheidingsTeken(";")
+	Do DataExporter.Export(BestandNaam, ExportInfo)
+]]></Implementation>
+</Method>
+
+<Method name="GeefExportInfo">
+<Private>1</Private>
+<ReturnType>TECH.DataExporter.ExportInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim ExportInfo As TECH.DataExporter.ExportInfo = ##class(TECH.DataExporter.ExportInfo).%New()
+	
+	Set ExportInfo.ExporteerHoofding = 0
+	
+	Do ExportInfo.Velden.Insert("LeverancierNr")
+	Do ExportInfo.Velden.Insert("OrderID")
+	Do ExportInfo.Velden.Insert("PakketReferentie")
+	Do ExportInfo.Velden.Insert("PositieNrOrder")
+	Do ExportInfo.Velden.Insert("BevestigingNrLeverancier")
+	Do ExportInfo.Velden.Insert("PrijsPerStuk")
+	Do ExportInfo.Velden.Insert("VroegsteLeverDatum")
+	Do ExportInfo.Velden.Insert("AantalStuks")
+	
+	Quit ExportInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeformatteerdeOrderBevestigingLijn">
+<FormalSpec>OrderBevestigingLijn:APPS.OV.OrderBevestiging.data.OrderLijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim GeformatteerdeOrderBevestigingLijn As APPS.OV.OrderBevestiging.data.OrderLijn = OrderBevestigingLijn.%ConstructClone($$$True)
+	
+	Set GeformatteerdeOrderBevestigingLijn.PrijsPerStuk = $$EXTNUM^vhLib.DataTypes(OrderBevestigingLijn.PrijsPerStuk, 0, "", 2)
+	
+	Quit GeformatteerdeOrderBevestigingLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>