Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml =================================================================== diff -u -r58081 -r58083 --- APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml (.../CodeGenerator.cls.xml) (revision 58081) +++ APPS/VKP/Maatwerk/LadeRegistratie/impl/CodeGenerator.cls.xml (.../CodeGenerator.cls.xml) (revision 58083) @@ -46,7 +46,7 @@ Do FileWriter.WriteLine("CodeNr,CodeGeformateerd,CodeBarcode,Formaat") #dim CodeNr As %String - #dim AantalGegenereerdeCodes As %Integer + #dim AantalGegenereerdeCodes As %Integer = 0 Try { For CodeNr=Vanaf:1:Vanaf+Aantal-1 { @@ -59,13 +59,15 @@ Set OrgaluxLadecode.Basisgetal = CodeNr Set OrgaluxLadecode.GegenereerdeCode = Prefix_..Calculator.Code Do ..OrgaluxLadecodeRepository.Bewaar(OrgaluxLadecode) + Set AantalGegenereerdeCodes = $Increment(AantalGegenereerdeCodes) } } } Catch { #dim Exception As TECH.Exceptions.Exceptiontry = ##class(TECH.ExceptionHandler).Catch() Do FileWriter.WriteLine("Er is een fout opgetreden bij de codegeneratie. Laatste code = '"_CodeNr_"'") Do FileWriter.Close() + Write "Er werden '"_AantalGegenereerdeCodes_"' van de '"_Aantal_"' gegenereerd." Do ##class(TECH.ExceptionHandler).Rethrow(Exception) }