Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml
===================================================================
diff -u -r57992 -r57993
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 57992)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml	(.../CodeGenerator.cls.xml)	(revision 57993)
@@ -38,35 +38,33 @@
 <Description>
 Do ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.CodeGenerator).%New().Genereer(1,120000,"BA")</Description>
 <FormalSpec>Vanaf:%Integer,Aantal:%Integer,Prefix:%String</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	New Dev, CodeNr, FileWriter, Exception
 	
 	#dim FileWriter As TECH.File.FileWriter = ..FileApi.GeefFileWriter()	
 	Do FileWriter.Open("c:\temp\LadeCode "_Vanaf_" tot "_(Vanaf + Aantal - 1)_".txt", 1)
 	
 	Do FileWriter.WriteLine("CodeNr,CodeGeformateerd,CodeBarcode,Formaat")
 	
-	try {
+	#dim CodeNr As %String
+	Try {
 		For CodeNr=Vanaf:1:Vanaf+Aantal-1 
 		{
 			Do ..Calculator.Bereken(CodeNr)
 			If ..BevatGeenOngewensteWoorden()
 			{
 				Do FileWriter.WriteLine(..Calculator.CodeNr_","_Prefix_..Calculator.CodeGeformateerd_","_Prefix_..Calculator.Code_","_..Calculator.CodeFormat)
 				
-				New OrgaluxLadecode
 				Set OrgaluxLadecode = ##class(DOM.VKP.Maatwerk.LadeRegistratie.impl.OrgaluxLadecode).%New()
 				Set OrgaluxLadecode.Basisgetal = CodeNr
 				Set OrgaluxLadecode.GegenereerdeCode = Prefix_..Calculator.Code
 				Set OrgaluxLadecode.Horolog = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 				Do ..OrgaluxLadecodeRepository.Bewaar(OrgaluxLadecode)
 			}
 		}	
-	} catch {
-		Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exceptiontry = ##class(TECH.ExceptionHandler).Catch()
 		
-		Write !, "Er is een fout opgetreden bij de codegeneratie. Laatste code = '"_CodeNr_"'" 
+		Do FileWriter.WriteLine("Er is een fout opgetreden bij de codegeneratie. Laatste code = '"_CodeNr_"'")
 		Do FileWriter.Close()
 		
 		Do ##class(TECH.ExceptionHandler).Rethrow(Exception)