Index: vhPowerTools/APPS/MAG/KardexDropEtikettenGenerator.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/MAG/KardexDropEtikettenGenerator.cls.xml	(revision 0)
+++ vhPowerTools/APPS/MAG/KardexDropEtikettenGenerator.cls.xml	(revision 67850)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.MAG.KardexDropEtikettenGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="AlfaValue">
+<Type>%String</Type>
+<Default>ABCDEFGHIJKLMNOPQRSTUVWXYZ</Default>
+</Parameter>
+
+<Property name="FileApi">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileApi:TECH.File.FileAPI</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..FileApi = $$$Inject(FileApi, ##class(TECH.File.impl.FileAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Genereer">
+<FormalSpec>Vanaf:%Integer,Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim Path As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory"),"KardexDropEtiketten")
+	#dim FileWriter As TECH.File.FileWriter = ..FileApi.GeefFileWriter()
+	
+	Do FileWriter.Open(Path_"KardexDropEtiketten_"_Vanaf_"_tot_"_(Vanaf + Aantal - 1)_".txt", 1)
+	Do FileWriter.WriteLine("%BTW% /AF=""C:\Bartender\Templates\KardexDrop_5x10.btw"" /PRN=""Halux_Productie_TAOR"" /R=3 /P  /D=<Trigger File Name> /CLOSE")
+	Do FileWriter.WriteLine("%END%")
+	Do FileWriter.WriteLine("Rij;Eindletter;Barcode")
+	
+	#dim Rijteller As %Integer = 0
+	#dim LetterTeller As %String = Rijteller
+	While LetterTeller < Aantal {
+		#dim EenhedenVanTeller As %String = (Rijteller + Vanaf )# 10
+		#dim CijferGedeelte As %String = Rijteller + Vanaf
+		#dim Letter As %String = $Extract(..#AlfaValue,(LetterTeller+1)#26)
+		If Letter = "" {
+			Set Letter = "Z"
+		}
+		#dim AlfanumeriekGedeelte As %String = $E("000000000"_CijferGedeelte _ Letter,$L(CijferGedeelte _ Letter)+1,*)
+		#dim Barcode = "K-"_AlfanumeriekGedeelte
+		If $$$Not(EenhedenVanTeller = 0) {
+			Do FileWriter.WriteLine(CijferGedeelte_";"_$Extract(AlfanumeriekGedeelte,*-1,*)_";"_Barcode)
+		} Else {
+			Set LetterTeller  = LetterTeller - 1
+		}
+		Set LetterTeller = LetterTeller + 1
+		
+		Set Rijteller = Rijteller + 1
+	}
+	
+	
+	
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>