Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml
===================================================================
diff -u -r47230 -r57944
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 47230)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 57944)
@@ -23,10 +23,11 @@
 <Method name="Genereer">
 <Description>
 Do ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeGenerator).%New().Genereer(1,120000)</Description>
-<FormalSpec>Vanaf:%Integer,Aantal:%Integer</FormalSpec>
+<FormalSpec>Vanaf:%Integer,Aantal:%Integer,Prefix:%String</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("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",!
@@ -35,7 +36,8 @@
 		Do ..Calculator.Bereken(CodeNr)
 		If ..BevatGeenOngewensteWoorden()
 		{
-			Write ..Calculator.CodeNr,*9,..Calculator.CodeGeformateerd,*9,..Calculator.Code,*9,..Calculator.CodeFormat,!		
+			Write ..Calculator.CodeNr,*9,Prefix_..Calculator.CodeGeformateerd,*9,Prefix_..Calculator.Code,*9,..Calculator.CodeFormat,!	
+			Set ^OrgaluxQR(CodeNr) = $LB(Prefix_..Calculator.Code, $H)	
 		}
 	}
 	Do CLOSE^vhDEV(Dev)
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator.cls.xml
===================================================================
diff -u -r44524 -r57944
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator.cls.xml	(.../CodeCalculator.cls.xml)	(revision 44524)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator.cls.xml	(.../CodeCalculator.cls.xml)	(revision 57944)
@@ -33,12 +33,10 @@
 </Parameter>
 
 <Parameter name="Formats">
-<Default>AAA CNN;NNC AAA;AA NC AA;CN AA NN;CN AA AA;AA AA CN;AA CN NN;NC NN AA</Default>
+<Default>A AAA CNN;A NNC AAA;A AA NC AA;A CN AA NN;A CN AA AA;A AA AA CN;A AA CN NN;A NC NN AA</Default>
 </Parameter>
 
 <Property name="CodeFormat">
-<Description>
-Parameter Formats = "N;A;X;CNN AAA;AA CN AA;NC AA NN;NC AA AA;AA AA CN;AA CN NN;NC NN AA";</Description>
 <Type>%String</Type>
 </Property>
 
@@ -169,7 +167,7 @@
 <FormalSpec>Format:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ($L(..#AlfaValue)**($L(Format,"A")-1))*($L(..#NumValue)**($L(Format,"N")-1)*$L(..#AlfaNumValue)**($L(Format,"X")-1))
+<Implementation><![CDATA[	Quit ($L(..#AlfaValue)**($L(Format,"A")-1))*($L(..#NumValue)**($L(Format,"N")-1))*($L(..#AlfaNumValue)**($L(Format,"X")-1))
 ]]></Implementation>
 </Method>
 </Class>