Index: EXT/Unishop/PurchaseOrder001/Service.cls.xml
===================================================================
diff -u -r33312 -r35237
--- EXT/Unishop/PurchaseOrder001/Service.cls.xml	(.../Service.cls.xml)	(revision 33312)
+++ EXT/Unishop/PurchaseOrder001/Service.cls.xml	(.../Service.cls.xml)	(revision 35237)
@@ -28,7 +28,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New()
-	set ..OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New()
+	set ..OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New( , ..GeefKlantDataSubObjectTOBEVoorAlpnach())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -65,6 +65,18 @@
 	quit Response
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKlantDataSubObjectTOBEVoorAlpnach">
+<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
+<Implementation><![CDATA[
+	Set KlantDataSubObjectTOBE = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	Set KlantDataSubObjectTOBE.Taal = ##class(DOM.enu.Taal).Duits()
+	Set KlantDataSubObjectTOBE.GebruikerID = "SFS_83723_1000"
+	Set KlantDataSubObjectTOBE.KlantID = "SFS_83723"
+	Set KlantDataSubObjectTOBE.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
+	Quit KlantDataSubObjectTOBE
+]]></Implementation>
+</Method>
 </Class>