Index: DOM/VKP/Maatwerk/LadeRegistratie/impl/OrgaluxLadecodeRepository.cls.xml
===================================================================
diff -u
--- DOM/VKP/Maatwerk/LadeRegistratie/impl/OrgaluxLadecodeRepository.cls.xml	(revision 0)
+++ DOM/VKP/Maatwerk/LadeRegistratie/impl/OrgaluxLadecodeRepository.cls.xml	(revision 57945)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.Maatwerk.LadeRegistratie.impl.OrgaluxLadecodeRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.VKP.Maatwerk.LadeRegistratie.impl.OrgaluxLadecode</Default>
+</Parameter>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml
===================================================================
diff -u -r57944 -r57945
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 57944)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 57945)
@@ -7,6 +7,10 @@
 <Type>APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator</Type>
 </Property>
 
+<Property name="OrgaluxLadecodeRepository">
+<Type>DOM.VKP.Maatwerk.LadeRegistratie.impl.OrgaluxLadecodeRepository</Type>
+</Property>
+
 <Parameter name="OngewensteWoorden">
 <Default>SEX;ASS;FCK;KUT;LUL;SEKS;FUCK;SHIT;HOMO</Default>
 </Parameter>
@@ -15,6 +19,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Calculator=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator).%New()
+	Set ..OrgaluxLadecodeRepository = ##class(DOM.VKP.Maatwerk.LadeRegistratie.impl.OrgaluxLadecodeRepository).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -27,7 +32,6 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set Dev=0 ;$$OPEN^vhDEV("c:\scratch","LadeCode "_Vanaf_" tot "_(Vanaf+Aantal-1)_".txt","W")
-	//Set Dev=$$OPEN^vhDEV("c:\temp","LadeCode "_Vanaf_" tot "_(Vanaf+Aantal-1)_".txt","W")
 	Set Dev=$$OPEN^vhDEV(,"LadeCode "_Vanaf_" tot "_(Vanaf+Aantal-1)_".txt","W","T")
 	Use Dev
 	Write "CodeNr	CodeGeformateerd	CodeBarcode	Formaat",!
@@ -37,7 +41,12 @@
 		If ..BevatGeenOngewensteWoorden()
 		{
 			Write ..Calculator.CodeNr,*9,Prefix_..Calculator.CodeGeformateerd,*9,Prefix_..Calculator.Code,*9,..Calculator.CodeFormat,!	
-			Set ^OrgaluxQR(CodeNr) = $LB(Prefix_..Calculator.Code, $H)	
+			
+			Set OrgaluxLadecode = ##class(DOM.VKP.Maatwerk.LadeRegistratie.impl.OrgaluxLadecode).%New()
+			Set OrgaluxLadecode.Basisgetal = CodeNr
+			Set OrgaluxLadecode.GegenereerdeCode = Prefix_..Calculator.Code
+			Set OrgaluxLadecode.Horolog = $H
+			Do ..OrgaluxLadecodeRepository.Bewaar(OrgaluxLadecode)
 		}
 	}
 	Do CLOSE^vhDEV(Dev)
Index: DOM/VKP/Maatwerk/LadeRegistratie/impl/OrgaluxLadecode.cls.xml
===================================================================
diff -u
--- DOM/VKP/Maatwerk/LadeRegistratie/impl/OrgaluxLadecode.cls.xml	(revision 0)
+++ DOM/VKP/Maatwerk/LadeRegistratie/impl/OrgaluxLadecode.cls.xml	(revision 57945)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.Maatwerk.LadeRegistratie.impl.OrgaluxLadecode">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="Basisgetal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="GegenereerdeCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Horolog">
+<Type>TECH.Horolog</Type>
+</Property>
+
+<Index name="BasisgetalIndex">
+<Properties>Basisgetal</Properties>
+</Index>
+
+<Index name="GegenereerdeCodeIndex">
+<Properties>GegenereerdeCode</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.VKP.MaD5C3.OrgaluxLadeB7AFD</DataLocation>
+<DefaultData>OrgaluxLadecodeDefaultData</DefaultData>
+<IdLocation>^DOM.VKP.MaD5C3.OrgaluxLadeB7AFD</IdLocation>
+<IndexLocation>^DOM.VKP.MaD5C3.OrgaluxLadeB7AFI</IndexLocation>
+<StreamLocation>^DOM.VKP.MaD5C3.OrgaluxLadeB7AFS</StreamLocation>
+<Data name="OrgaluxLadecodeDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Basisgetal</Value>
+</Value>
+<Value name="3">
+<Value>GegenereerdeCode</Value>
+</Value>
+<Value name="4">
+<Value>Horolog</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>