Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml
===================================================================
diff -u -r44524 -r47230
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 44524)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 47230)
@@ -22,12 +22,12 @@
 
 <Method name="Genereer">
 <Description>
-Do ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeGenerator).%New().Genereer(1,20000)</Description>
+Do ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeGenerator).%New().Genereer(1,120000)</Description>
 <FormalSpec>Vanaf:%Integer,Aantal:%Integer</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set Dev=0 ;$$OPEN^vhDEV("c:\scratch","LadeCode "_Vanaf_" tot "_(Vanaf+Aantal-1)_".txt","W")
-	;Set Dev=$$OPEN^vhDEV(,"LadeCode "_Vanaf_" tot "_(Vanaf+Aantal-1)_".txt","W","T")
+	Set Dev=$$OPEN^vhDEV(,"LadeCode "_Vanaf_" tot "_(Vanaf+Aantal-1)_".txt","W","T")
 	Use Dev
 	Write "CodeNr	CodeGeformateerd	CodeBarcode	Formaat",!
 	For CodeNr=Vanaf:1:Vanaf+Aantal-1 
Index: AX/Uitgaand/EC/impl/ExportDefaults.cls.xml
===================================================================
diff -u -r40518 -r47230
--- AX/Uitgaand/EC/impl/ExportDefaults.cls.xml	(.../ExportDefaults.cls.xml)	(revision 40518)
+++ AX/Uitgaand/EC/impl/ExportDefaults.cls.xml	(.../ExportDefaults.cls.xml)	(revision 47230)
@@ -47,7 +47,8 @@
 	Set ..TijdstipUTC=$zdt($H,-2)
 	Set ..PrijsDatum=+$H+1
 	Set ..OldGenerationID=..GeefOldGenerationID()
-	Set ..NewGenerationID=..GeefNewGenerationID()
+	Set ..NewGenerationID=..OldGenerationID
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -60,7 +61,6 @@
 </Method>
 
 <Method name="GeefNewGenerationID">
-<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..OldGenerationID+1
 ]]></Implementation>
Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r44523 -r47230
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 44523)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 47230)
@@ -44,7 +44,6 @@
 	{
 		Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaults).%New()
 	}
-	Set ..ExportDefaults.NewGenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..ExportSamenvatting=##class(AX.Uitgaand.EC.impl.ExportSamenvatting).%New(..ExportDefaults)
 	Set ..Tijdstip=$zdt($H,3)
 	Set ..Debug=1
@@ -56,6 +55,7 @@
 <Description>
 d ##class(AX.Uitgaand.EC.Service).%New().GenerateAndExportAll()</Description>
 <Implementation><![CDATA[
+	Set ..ExportDefaults.NewGenerationID=..ExportDefaults.GeefNewGenerationID() ; OldGenerationID+1
 	Do ..GenerateAll()	
 	Do ..ExportAll()
 ]]></Implementation>
@@ -66,8 +66,9 @@
 d ##class(AX.Uitgaand.EC.Service).%New().ExportVeranderdeVoorraad()</Description>
 <Implementation><![CDATA[
 	Do ..InitLog()
-	d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New(..ExportDefaults, ..ExportSamenvatting).ExportVeranderde()
-	;d ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijn).%New(..ExportDefaults, ..ExportSamenvatting).ExportVeranderde()
+
+	Do ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New(..ExportDefaults, ..ExportSamenvatting).ExportVeranderde()
+
 	Do ..ZetLog("Export veranderde voorraad en productietijd")
 	
 	Do ..ExportBestandsSamenvatting()
Index: AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml
===================================================================
diff -u -r46865 -r47230
--- AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 46865)
+++ AX/Uitgaand/EC/Productie/impl/ExportLevertermijnJSON.cls.xml	(.../ExportLevertermijnJSON.cls.xml)	(revision 47230)
@@ -93,7 +93,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set px=..BuildProxy(ProductGroep)
-	Set String=""""_ProductGroep_""": { "_px.VolgNr_", """_px.Omschrijving_""", "_px.AantalDagen_", """_$ZD(px.VroegsteLeverDatum,3)_""" }"
+	Set String="{ ""ProductGroep"" : """_ProductGroep_""""
+	Set String=String_", ""VolgNr"" : "_px.VolgNr
+	Set String=String_", ""Omschrijving"" : """_px.Omschrijving_""""
+	Set String=String_", ""AantalDagen"" : "_px.AantalDagen
+	Set String=String_", ""VroegsteLeverDatum"" : """_$ZD(px.VroegsteLeverDatum,3)_""" }"
 	Quit String
 ]]></Implementation>
 </Method>
@@ -141,14 +145,14 @@
 <Implementation><![CDATA[
 	Set ..Stream=##class(%IO.FileStream).%New()
 	Do ..Stream.Open(..LocalPad_"\"_..FileName,"NW",,,.sc)
-	Do ..Stream.WriteLine("{",,.sc)
+	Do ..Stream.WriteLine("{""ProductieDagen"" : [",,.sc)
 ]]></Implementation>
 </Method>
 
 <Method name="CloseOutput">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..Stream.WriteLine("}")
+	Do ..Stream.WriteLine("]}")
 	Do ..Stream.Flush(.sc)
 	Do ..Stream.Close(.sc)
 ]]></Implementation>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/GaNaarProduct.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/GaNaarProduct.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/GaNaarProduct.cls.xml	(revision 47230)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.GaNaarProduct">
+<Super>%Persistent</Super>
+
+<Method name="Verwerk">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	#Dim Code as %String
+	#Dim Registratie as APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie
+	Set Code =..VraagCode()
+	Set Registratie=..OpzoekenCode(Code)
+	If $isObject(Registratie)
+	{
+		Do RAADPL^PRODUKT(Registratie.PRNr)
+	}
+	Else
+	{
+		Write "Code niet gevonden"
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VraagCode">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Write @F11,@F1
+	Write @FMTI,"Inlezen van lade code - ",QN,@FMTi
+	Set FP=2201
+	Write @F,"Geef Code in :"
+	Set FP=2301
+	Write @F
+	Read Code
+	Quit Code
+]]></Implementation>
+</Method>
+
+<Method name="OpzoekenCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Code:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set it=..GeefZoekIterator(..GeefSQLViaCode(Code))
+	Set PRNr=""
+	While it.HasNext()
+	{
+		Set rs=it.Next()
+		Set RegistratieID=rs.Data("ID")
+		Set Registratie=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%OpenId(RegistratieID)
+	}
+	Quit Registratie
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLViaCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Code:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Code=$$UPTRIMAN^vhRtn1(Code)
+	Set SqlStatement="Select ID from APPS_VKP_Maatwerk_LadeRegistratie_impl.Registratie where RegistratieCode='"_Code_"'"
+]]></Implementation>
+</Method>
+
+<Method name="GeefZoekIterator">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SqlStatement:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	Set ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(ResultSet)
+	Quit ResultSetIterator
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VKP.MaaD9EA.GaNaarProductD</DataLocation>
+<DefaultData>GaNaarProductDefaultData</DefaultData>
+<IdLocation>^APPS.VKP.MaaD9EA.GaNaarProductD</IdLocation>
+<IndexLocation>^APPS.VKP.MaaD9EA.GaNaarProductI</IndexLocation>
+<StreamLocation>^APPS.VKP.MaaD9EA.GaNaarProductS</StreamLocation>
+<Data name="GaNaarProductDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>