Index: zTryout/JWI/GoederenReceptie/MaakSimpeleToelevering.cls.xml
===================================================================
diff -u -r44745 -r48932
--- zTryout/JWI/GoederenReceptie/MaakSimpeleToelevering.cls.xml	(.../MaakSimpeleToelevering.cls.xml)	(revision 44745)
+++ zTryout/JWI/GoederenReceptie/MaakSimpeleToelevering.cls.xml	(.../MaakSimpeleToelevering.cls.xml)	(revision 48932)
@@ -7,17 +7,27 @@
 <Implementation><![CDATA[
 	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 
-	Set Service = ##class(APPS.AKP.ToeleveringLevenCyclusService).%New()	
+	;Set Service = ##class(APPS.AKP.ToeleveringLevenCyclusService).%New()	
+	#dim ToeleveringAPI as DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	#Dim LeverancierNr as %String = "5938"
 	#dim LeverancierID as %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefLeverancierPartijID(LeverancierNr)	
 
-	#dim Toelevering As DOM.AKP.Toelevering = Service.MaakToeleveringMetLeverancierGegevens(LeverancierID)
+	;#dim Toelevering As DOM.AKP.Toelevering = Service.MaakToeleveringMetLeverancierGegevens(LeverancierID)
+	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.MaakNieuwToelevering(LeverancierID)
+
 	Do Toelevering.ZetAanmaakDatum(DateTimeAPI.CurrentDate() )
 	Do Toelevering.ZetMunt("EUR")
+	Do Toelevering.ZetBestelBevestigingNr("ontvangstjournaal")
+	Do Toelevering.ZetAanmaakDatum(DateTimeAPI.CurrentDate() )
+	Do Toelevering.ZetMunt("EUR")
 	Do Toelevering.ZetReferentie("AX ontvangstjournaal")
 
 	#dim ProductNr = "1710538"
-	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, LeverancierID, ProductNr, 25)
+	;#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, LeverancierID, ProductNr, 25)
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(ProductNr)
+	Do ToeleveringLijn.ZetAantal(25)
+	Do ToeleveringLijn.ZetMunt("EUR")
+
 	Do ToeleveringLijn.ZetEenheidsPrijs(0)
 	Do ToeleveringLijn.ZetNettoprijs(0)
 	Do ToeleveringLijn.ZetBestelBevestigingNr("AX ontvanstjournaal lijn")
@@ -26,7 +36,7 @@
 	; TODO
 	;Do ToeleveringLijn.ZetLeveringsWeekVoorziene("")
 	Do ToeleveringLijn.ZetUrgentiecode("")	
-	Do Service.BewaarToelevering(Toelevering)
+	Do ToeleveringAPI.Bewaar(Toelevering)
 	
 	w !,"TOENr ",Toelevering.GeefID()
 ]]></Implementation>
Index: zTryout/JWI/KlantAanmaken.cls.xml
===================================================================
diff -u
--- zTryout/JWI/KlantAanmaken.cls.xml	(revision 0)
+++ zTryout/JWI/KlantAanmaken.cls.xml	(revision 48932)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.KlantAanmaken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MaakKlant">
+<FormalSpec>KlantNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set dtoKlant = ##class(DOM.common.dto.Partij).%New()
+	#dim TypeTemplateKlant as DOM.CRM.enu.TypeTemplateKlant = ##class(DOM.CRM.enu.TypeTemplateKlant).Onderneming() ; Consument/Medewerker
+	Set dtoKlant.KlantNummer = KlantNr
+	Set dtoKlant.KlantNaam = "WILLEMS test req"
+	/*
+	Set dtoKlant.Toenaam = "WHATEVER"
+	Set dtoKlant.Aanspreking = "NV"
+	Set dtoKlant.KlantNummer = ""
+	*/
+	Set Adres =  ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	Set dtoKlant.Adres = Adres
+	/*
+	Do dtoKlant.Adres.ZetAanspreking("aanspreking")
+	Do dtoKlant.Adres.ZetGemeente("KRUIBEKE")
+	Do dtoKlant.Adres.ZetLandNr(1019)
+	Do dtoKlant.Adres.ZetNaam("AdresNaam")
+	Do dtoKlant.Adres.ZetPostcode("9150")
+	Do dtoKlant.Adres.ZetStraat("Bazelstraat")
+	*/
+	;Do dtoKlant.Adres.ZetTaal("N")
+	/*
+	Do dtoKlant.Adres.ZetToenaam("AdresToenaam")
+	Do dtoKlant.Adres.ZetType("")
+	*/
+	;Set dtoKlant.Taal = "N"
+	/*
+	Set dtoKlant.Telefoon1 = "021234567"
+	Set dtoKlant.Fax = "027654321"
+	Set dtoKlant.BTWNummer = 123
+	Set dtoKlant.Email = "ikke@email.com"
+	Set dtoKlant.Muntcode ="EUR"
+	Set dtoKlant.Prijsklase = ""
+	Set dtoKlant.Opmerking1 = ""
+	Set dtoKlant.FrequentieAanbrengerCommissie = ##class(DOM.CRM.enu.FrequentieAanbrengerCommissie).PerFactuur()
+	*/
+	#dim PartijID As DOM.common.PartijID = ##class(APPS.KlantBeheer.KlantLevenCyclusService).%New().MaakKlant(dtoKlant,TypeTemplateKlant)
+	
+	W !,"Partij Id :" _ PartijID
+	
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(PartijID)
+	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(PartijID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>