Index: zTryout/JWI/GoederenReceptie/MaakSimpeleToelevering.cls.xml
===================================================================
diff -u
--- zTryout/JWI/GoederenReceptie/MaakSimpeleToelevering.cls.xml	(revision 0)
+++ zTryout/JWI/GoederenReceptie/MaakSimpeleToelevering.cls.xml	(revision 44745)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.GoederenReceptie.MaakSimpeleToelevering">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="BalikoToelevering">
+<Implementation><![CDATA[
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+
+	Set Service = ##class(APPS.AKP.ToeleveringLevenCyclusService).%New()	
+	#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)
+	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)
+	Do ToeleveringLijn.ZetEenheidsPrijs(0)
+	Do ToeleveringLijn.ZetNettoprijs(0)
+	Do ToeleveringLijn.ZetBestelBevestigingNr("AX ontvanstjournaal lijn")
+	Do ToeleveringLijn.ZetTotaalBedrag(0)
+	Do ToeleveringLijn.ZetGrootteOrde(##class(DOM.PM.enu.GrootteOrde).Eenheid())
+	; TODO
+	;Do ToeleveringLijn.ZetLeveringsWeekVoorziene("")
+	Do ToeleveringLijn.ZetUrgentiecode("")	
+	Do Service.BewaarToelevering(Toelevering)
+	
+	w !,"TOENr ",Toelevering.GeefID()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>