Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Parameters.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Parameters.cls.xml	(revision 0)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Parameters.cls.xml	(revision 59968)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters">
+<Modified>0</Modified>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Dossiercode">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ActieParameters">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SpecifiekEtiket">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ActieParameters:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ActieParameters = ActieParameters
+	Set ..SpecifiekEtiket = (..ActieParameters.Count() > 0)
+	
+	If (..IsSpecifiekEtiket()) {
+		Set ..ToeleveringID = ..ActieParameters.GetAt(1)
+		Set ..Dossiercode = ..ActieParameters.GetAt(2)
+		Set ..Aantal = ..ActieParameters.GetAt(3)
+		
+		Do ..VerwijderActieParameters()
+	} Else {
+		Set ..ToeleveringID = ""
+		Set ..Dossiercode = ""
+		Set ..Aantal = 1
+
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ToeleveringID
+]]></Implementation>
+</Method>
+
+<Method name="GeefDossiercode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Dossiercode
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Aantal
+]]></Implementation>
+</Method>
+
+<Method name="IsSpecifiekEtiket">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..SpecifiekEtiket
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderActieParameters">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..ActieParameters.RemoveAt(3)
+	Do ..ActieParameters.RemoveAt(2)
+	Do ..ActieParameters.RemoveAt(1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>