Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeCalculator.cls.xml	(revision 44524)
@@ -0,0 +1,178 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator">
+<Description>
+Omzetten van een numeriek waarde naar een alfanumerieke code.
+Dit volgens een bepaald formaat en met een checkdigit
+Mogelijke codes in de format zijn
+- "A" Alfa karakters
+- "N" Numerieke karakters
+- "X" Alfanumerieke karakters
+- "C" Checkdigit (modulo 7)
+- " " Spacer</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="AlfaValue">
+<Default>ABCDEFGHKLMNPRSTUVWXYZ</Default>
+</Parameter>
+
+<Parameter name="NumValue">
+<Default>123456789</Default>
+</Parameter>
+
+<Parameter name="AlfaNumValue">
+<Default>123456789ABCDEFGHKLMNPRSTUVWXYZ</Default>
+</Parameter>
+
+<Parameter name="NulValue">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="Spacer">
+<Default> </Default>
+</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>
+</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>
+
+<Property name="CodeNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="CodeGeformateerd">
+<Type>%String</Type>
+</Property>
+
+<Property name="Code">
+<Type>%String</Type>
+</Property>
+
+<Method name="Bereken">
+<Description>
+Omzetten van een numerieke waarde naar een alfanumerieke code</Description>
+<FormalSpec>CodeNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set ..CodeNr=CodeNr
+	Set SomCombinaties=0
+	Set ..CodeGeformateerd=""
+	Set ..Code=""
+	Set ..CodeFormat=""
+	For I=1:1:$L(..#Formats,";") 
+	{
+		Set Format=$P(..#Formats,";",I)
+		Set AantalCombinaties=..AantalCombinaties(Format)
+		If ..CodeNr '> (SomCombinaties+AantalCombinaties)
+		{
+			Set ..CodeGeformateerd=..ConverteerNaarCode(CodeNr-SomCombinaties,Format)
+			Set ..CodeFormat=Format
+		}
+		Set SomCombinaties=SomCombinaties+AantalCombinaties
+		Quit:..CodeGeformateerd'=""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefCombinaties">
+<Description>
+Overzicht van de formaten en de corresponderende combinaties</Description>
+<FormalSpec><![CDATA[&arCominaties:%String]]></FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	For I=1:1:$L(..#Formats,";") 
+	{
+		Set Format=$P(..#Formats,";",I)
+		Set Aantal=..AantalCombinaties(Format)
+		Set arCombinaties($I(arCombinaties))=Format_"\"_Aantal
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotaalAantalCombinaties">
+<Description>
+Hoeveel combinaties zijn er mogelijk met de vooropgestelde formaten</Description>
+<Implementation><![CDATA[
+	Set Totaal=0
+	For I=1:1:$L(..#Formats,";") 
+	{
+		Set Format=$P(..#Formats,";",I)
+		Set Aantal=..AantalCombinaties(Format)
+		Set Totaal=Totaal+Aantal
+	}
+	Quit Totaal
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[/* -------------------------------------- */
+]]></Content>
+</UDLText>
+
+<Method name="CodeGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $TR(..CodeGeformateerd,..#Spacer)
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerNaarCode">
+<FormalSpec>Aantal:%Integer,Format:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Result=""
+	Set CheckDigit=..BerekenCheckDigit(Aantal)
+	For I=$L(Format):-1:1
+	{
+		Set FormatChar=$E(Format,I)
+		If FormatChar=" " ; spacer
+		{
+			Set Result=..#Spacer_Result
+		}
+		ElseIf FormatChar="C" ;checkdigit
+		{
+				Set Result=CheckDigit_Result
+		}
+		Else
+		{
+			Set FormatValue=$case(FormatChar,"A":..#AlfaValue,"N":..#NumValue,"X":..#AlfaNumValue)
+			If Aantal>0 
+			{
+				Set PosInValue=Aantal#$L(FormatValue)
+		
+				Set Aantal=Aantal\$L(FormatValue)
+				Set Result=$E(FormatValue,$S(PosInValue:PosInValue,1:$L(FormatValue)))_Result
+			}
+			Else 
+			{
+				Set Result=..#NulValue_Result
+			}
+		}
+	}
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="BerekenCheckDigit">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit (Aantal#7)+1
+]]></Implementation>
+</Method>
+
+<Method name="AantalCombinaties">
+<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>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(revision 44524)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Calculator">
+<Type>APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator</Type>
+</Property>
+
+<Parameter name="OngewensteWoorden">
+<Default>SEX;ASS;FCK;KUT;LUL;SEKS;FUCK;SHIT;HOMO</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Calculator=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeCalculator).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Genereer">
+<Description>
+Do ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeGenerator).%New().Genereer(1,20000)</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")
+	Use Dev
+	Write "CodeNr	CodeGeformateerd	CodeBarcode	Formaat",!
+	For CodeNr=Vanaf:1:Vanaf+Aantal-1 
+	{
+		Do ..Calculator.Bereken(CodeNr)
+		If ..BevatGeenOngewensteWoorden()
+		{
+			Write ..Calculator.CodeNr,*9,..Calculator.CodeGeformateerd,*9,..Calculator.Code,*9,..Calculator.CodeFormat,!		
+		}
+	}
+	Do CLOSE^vhDEV(Dev)
+]]></Implementation>
+</Method>
+
+<Method name="ControleerOpDubbels">
+<Description>
+Do ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeGenerator).%New().ControleerOpDubbels()</Description>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	kill ^||memCode
+	Set Vanaf=1
+	Set Aantal=..Calculator.GeefTotaalAantalCombinaties()
+	Set OngewenstAantal=0
+	For CodeNr=Vanaf:1:Vanaf+Aantal-1 
+	{
+		Do ..Calculator.Bereken(CodeNr)
+		If ..BevatGeenOngewensteWoorden()
+		{
+			If $D(^||memCode(..Calculator.Code))
+			{
+				Write CodeNr," ",..Calculator.Code," ",..Calculator.CodeFormat," = ",^||memCode(..Calculator.Code),!
+			}
+		
+			Set ^||memCode(..Calculator.Code)=..Calculator.CodeNr_"\"_..Calculator.CodeFormat
+		}
+		Else
+		{
+			Write "Ongewenst ",CodeNr," ",..Calculator.Code," ",..Calculator.CodeFormat,!
+			Set OngewenstAantal=OngewenstAantal+1
+		}
+	}
+	Kill ^||memCode
+	Write "Ongewenst aantal ",OngewenstAantal,!
+]]></Implementation>
+</Method>
+
+<Method name="ToonCombinaties">
+<Description>
+Do ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeGenerator).%New().ToonCombinaties()</Description>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Kill arCombinaties
+	Do ..Calculator.GeefCombinaties(.arCombinaties)
+	For I=1:1:arCombinaties
+	{
+		Write $P(arCombinaties(I),"\"),*9,$P(arCombinaties(I),"\",2),!
+	}
+	Write "Totaal",*9,..Calculator.GeefTotaalAantalCombinaties(),!
+	Write "Bepaalde woorden worden er uit gefilterd dus het totaal aantal ligt lager",!
+]]></Implementation>
+</Method>
+
+<Method name="BevatGeenOngewensteWoorden">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set OngewensteWoorden=..#OngewensteWoorden
+	Set Code=..Calculator.Code
+	Set Ongewenst=0
+	For I=1:1:$L(OngewensteWoorden,";")
+	{
+		Set Ongewenst=Code[$P(OngewensteWoorden,";",I)
+		Quit:Ongewenst
+	}
+	Quit 'Ongewenst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>