Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller/InfoWaardenBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller/InfoWaardenBepaler.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller/InfoWaardenBepaler.cls.xml	(revision 30927)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataInfoAanvuller.InfoWaardenBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AfleverAdresNaamBepaler">
+<Type>APPS.Halux.Docs.impl.AfleverAdresNaamBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderReferentieBepaler">
+<Type>APPS.Halux.Docs.impl.OrderReferentieBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantInstellingenService">
+<Type>APPS.common.KlantInstellingenService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InfoWaarden">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..AfleverAdresNaamBepaler = ##class(APPS.Halux.Docs.impl.AfleverAdresNaamBepaler).%New()
+	Set ..OrderReferentieBepaler = ##class(APPS.Halux.Docs.impl.OrderReferentieBepaler).%New()
+	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Set ..KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfoWaarden">
+<FormalSpec>PartijID:DOM.common.PartijID,ProductOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set ..InfoWaarden = ##class(%ListOfDataTypes).%New()
+	
+	If ProductOrderLijn = "" {
+		Do ..VoegToe(..AfleverAdresNaamBepaler.GeefKlant(PartijID))
+		Do ..VoegToe("VOORRAAD")
+	} Else {
+		#dim Order As DOM.VKP.Order = ProductOrderLijn.GeefOrder()
+		
+		If $$$Not(..VerkoopAPI.GeefKlant(PartijID).HeeftEigenLogo()){
+			Do ..VoegToe(..AfleverAdresNaamBepaler.GeefAfleverAdresNaam(Order))
+		}
+		
+		#dim DocRef As DOM.VKP.DocumentReferenties = Order.GeefDocumentReferenties()
+		If ..KlantInstellingenService.GebruiktKlantOrderNummer(PartijID) && (DocRef.KlantOrderNummer'=""){
+			Do ..VoegToe(DocRef.KlantOrderNummer)
+		}
+		#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(PartijID)
+		Do ..VoegToe(..OrderReferentieBepaler.GeefOrderReferentie(Partij,DocRef))
+		Do ..VoegToe(DocRef.CommissieReferentie)
+		Do ..VoegToe(ProductOrderLijn.GeefPakketReferentie())
+		Do ..VoegToe(ProductOrderLijn.GeefProjectReferentie())
+	}
+	
+	Quit ..InfoWaarden
+]]></Implementation>
+</Method>
+
+<Method name="VoegToe">
+<FormalSpec>Waarde:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do:(Waarde'="") ..InfoWaarden.Insert(Waarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller.cls.xml
===================================================================
diff -u -r30912 -r30927
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller.cls.xml	(.../KlantEtiketDataInfoAanvuller.cls.xml)	(revision 30912)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller.cls.xml	(.../KlantEtiketDataInfoAanvuller.cls.xml)	(revision 30927)
@@ -4,7 +4,7 @@
 <Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoAanvuller</Super>
 
 <Property name="InfoWaardenBepaler">
-<Type>APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.OnGemonteerd.EtiketPrinter.EtiketBepaler.InfoWaardenBepaler</Type>
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataInfoAanvuller.InfoWaardenBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -31,7 +31,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..KlantEtiketInput = KlantEtiketInput
-	Set ..InfoWaardenBepaler = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.OnGemonteerd.EtiketPrinter.EtiketBepaler.InfoWaardenBepaler).%New()
+	Set ..InfoWaardenBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataInfoAanvuller.InfoWaardenBepaler).%New()
 	Set ..ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Set ..OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	Quit $$$OK
FishEye: Tag 30927 refers to a dead (removed) revision in file `APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/OnGemonteerd/EtiketPrinter/EtiketBepaler/InfoWaardenBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?