FishEye: Tag 30074 refers to a dead (removed) revision in file `APPS/Halux/Docs/impl/MaatwerkProductEtiketBuilder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 30074 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/Docs/impl/TestMaatwerkProductEtiketBuilder.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/Docs/EtiketBuilder.cls.xml
===================================================================
diff -u -r30042 -r30074
--- APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 30042)
+++ APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 30074)
@@ -12,7 +12,7 @@
 	#dim ProductID As DOM.common.ProductID = ProductOrderLijn.GeefProductID()
 	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Order.GeefKlantID())
 	
-	Set MPEtiketBuilder = ##class(APPS.Halux.Docs.impl.MaatwerkProductEtiketBuilder).%New()	
+	Set MPEtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()	
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = MPEtiketBuilder.MaakBasisMaatwerkProductEtiket(ProductID,Partij,Aantal)		
 	Set Etiket = MPEtiketBuilder.VulInOrderInfo(Etiket,Order,Partij,ProductOrderLijn)
 	Set Etiket.ProductieWeek = MPEtiketBuilder.FormateerProductieWeek(ProductOrderLijn.GeefLeverdag())
@@ -31,7 +31,7 @@
 	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
 	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Toelevering.GeefKlantID())
 	
-	Set MPEtiketBuilder = ##class(APPS.Halux.Docs.impl.MaatwerkProductEtiketBuilder).%New()	
+	Set MPEtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()	
 	#dim Etiket As BL.Etiket.LadeKlantEtiket = MPEtiketBuilder.MaakBasisMaatwerkProductEtiket(ProductID,Partij,Aantal)	
 	Set Etiket = MPEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = MPEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())
@@ -59,7 +59,7 @@
 	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
 	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Toelevering.GeefKlantID())
 	
-	Set MPEtiketBuilder = ##class(APPS.Halux.Docs.impl.MaatwerkProductEtiketBuilder).%New()	
+	Set MPEtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()	
 	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = MPEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,Aantal)		
 	Set Etiket = MPEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = MPEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())
@@ -88,7 +88,7 @@
 	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
 	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Toelevering.GeefKlantID())
 	
-	Set MPEtiketBuilder = ##class(APPS.Halux.Docs.impl.MaatwerkProductEtiketBuilder).%New()	
+	Set MPEtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()	
 	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = MPEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,1)		
 	Set Etiket = MPEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = MPEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())		
Index: APPS/Halux/Docs/impl/MaatwerkProductEtiketBuilder.cls.xml
===================================================================
diff -u -r30045 -r30074
--- APPS/Halux/Docs/impl/MaatwerkProductEtiketBuilder.cls.xml	(.../MaatwerkProductEtiketBuilder.cls.xml)	(revision 30045)
+++ APPS/Halux/Docs/impl/MaatwerkProductEtiketBuilder.cls.xml	(.../LadeKlantEtiketBuilder.cls.xml)	(revision 30074)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.Halux.Docs.impl.MaatwerkProductEtiketBuilder">
+<Class name="APPS.Halux.Docs.impl.LadeKlantEtiketBuilder">
 <Super>%RegisteredObject</Super>
 
 <Parameter name="AantalInfosOpEtiket">
@@ -126,9 +126,8 @@
 	Set Etiket.Diepte = ..GeefVertalingLabel("DIEPTE",Partij.GeefTaal(),"D")_": "
 	Set Etiket.WandDikte = ..GeefVertalingLabel("WANDDIKTE",Partij.GeefTaal(),"WD")_": "
 	
-	Set LadeEigenschapProductVisitor = ##class(APPS.Halux.Docs.impl.LadeEigenschapProductVisitor).%New(Etiket)
-	Set BezoekbaarProduct = ##class(DOM.PM.BezoekbaarProduct).%New(ProductID)
-	Do BezoekbaarProduct.Accept(LadeEigenschapProductVisitor)
+	Set LadeEigenschappenEtiketAanvuller = ##class(APPS.Halux.Docs.impl.LadeEigenschapProductVisitor).%New()  ; APPS.Halux.Docs.impl.LadeKlantEtiketBuilder.LadeEigenschappenEtiketAanvuller
+	Do LadeEigenschappenEtiketAanvuller.VulAan(Etiket,ProductID)
 	
 	Quit Etiket
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml	(revision 30074)
@@ -0,0 +1,245 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Docs.impl.LadeKlantEtiketBuilder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Data">
+<Type>vhUnitTest.APPS.Halux.Docs.TestDataEtiketten</Type>
+</Property>
+
+<Parameter name="Type">
+<Type>%String</Type>
+<Default>IntegratieTest</Default>
+</Parameter>
+
+<Property name="EtiketBuilder">
+<Type>APPS.Halux.Docs.impl.LadeKlantEtiketBuilder</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestName)
+	
+	Do ##class(vhUnitTest.DOM.PM.Maatwerk.TestData).MaakData()
+	
+	Set ..Data = ##class(vhUnitTest.APPS.Halux.Docs.TestDataEtiketten).%New()
+	Set ..EtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()
+	Do ..Data.MaakData()
+]]></Implementation>
+</Method>
+
+<Method name="TestMaakBasisMaatwerkProductEtiket">
+<Implementation><![CDATA[
+	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(..Data.Order.GeefKlantID())
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
+	Do $$$AssertEquals(Etiket.Aantal,1)
+	Do $$$AssertEquals(Etiket.Barcode,"TWBNV2")
+	Do $$$AssertEquals(Etiket.BarcodeTekst,"T.WB.NV.2")
+	Do $$$AssertEquals(Etiket.Kleur,"WA/LG")
+	Do $$$AssertEquals(Etiket.ProductID,700)
+	Do $$$AssertEquals(Etiket.ProductImg,"GENERIEK\TBX\tbx_DY2_BD_x2.JPG")
+	Do $$$AssertEquals(Etiket.Taal,"N")
+	Do $$$AssertEquals(Etiket.Dossier,"")
+	
+	Do $$$AssertEquals(Etiket.Breedte,"B: 900")
+	Do $$$AssertEquals(Etiket.Diepte,"D: 500")
+	Do $$$AssertEquals(Etiket.WandDikte,"WD: 16")
+	Do $$$AssertEquals(Etiket.LadeCode,"DY2")
+]]></Implementation>
+</Method>
+
+<Method name="TestVulInOrderInfo">
+<Implementation><![CDATA[
+	Set EtiketBuilder = ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New()
+	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(..Data.Order.GeefKlantID())
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..GeefProductOrderLijn()
+	
+	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")
+	Do ProductOrderLijn.ZetProjectReferentie("UT ProjectRef")
+	
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
+	Do EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	
+	Do $$$AssertEquals(Etiket.KlantBarcode,"","Standaard gebruiken klanten geen KlantBarcode.")
+	Do $$$AssertEquals(Etiket.VerzendWijze,"OD2")
+	Do $$$AssertEquals(Etiket.OrderID,..Data.Order.GeefID())
+	Do $$$AssertEquals(Etiket.LogoImg,"Logo\Logo VHZwart.svg")
+	Do $$$AssertEquals(Etiket.LblInfo1,"Klant")
+	Do $$$AssertEquals(Etiket.Info1,"UNITTEST KLANT")
+	Do $$$AssertEquals(Etiket.Info2,"UT Order Ref")
+	Do $$$AssertEquals(Etiket.Info3,"UT CommRef")
+	Do $$$AssertEquals(Etiket.Info4,"UT PakketRef / UT ProjectRef")
+	Do $$$AssertEquals(Etiket.Info5,"","ExtraRef, wordt momenteel niet gebruikt.")
+]]></Implementation>
+</Method>
+
+<Method name="TestVulInOrderInfoProjectPakketReferenties">
+<Implementation><![CDATA[
+	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(..Data.Order.GeefKlantID())
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..GeefProductOrderLijn()
+	
+	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")	
+	Do ProductOrderLijn.ZetProjectReferentie("")	
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	Do $$$AssertEquals(Etiket.Info4,"UT PakketRef")
+	
+	Do ProductOrderLijn.ZetPakketReferentie("")	
+	Do ProductOrderLijn.ZetProjectReferentie("UT ProjectRef")	
+	Set Etiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	Do $$$AssertEquals(Etiket.Info4,"UT ProjectRef")
+	
+	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")
+	Do ProductOrderLijn.ZetProjectReferentie("UT ProjectRef")
+	Set Etiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	Do $$$AssertEquals(Etiket.Info4,"UT PakketRef / UT ProjectRef")
+]]></Implementation>
+</Method>
+
+<Method name="TestFormateerProductieWeek">
+<Implementation><![CDATA[	Do $$$AssertEquals(..EtiketBuilder.FormateerProductieWeek(62831),"1302","Jaar 2013, week 2")
+]]></Implementation>
+</Method>
+
+<Method name="TestKlantBarcode">
+<Implementation><![CDATA[
+	#dim PartijMetKlantBarcode As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).NevesBelgium())
+	#dim Order As DOM.VKP.Order = ..Data.MaaktDataOrder(##class(DOM.VKP.enu.Klant).NevesBelgium())	
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(101)
+	
+	Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")	
+	Do ProductOrderLijn.ZetProjectReferentie("2B058108160")	
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantBarcode,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn)
+	
+	Do $$$AssertEquals(Etiket.Info1,"UT Order Ref")
+	Do $$$AssertEquals(Etiket.Info2,"UT CommRef")
+	Do $$$AssertEquals(Etiket.Info3,"UT PakketRef")
+	Do $$$AssertEquals(Etiket.Info4,"2B058108160")
+	Do $$$AssertEquals(Etiket.KlantBarcode,"2B058108160")
+	Do $$$AssertEquals(Etiket.Layout,"MaatwerkProductBAR 8x11","Etiket met ruimte voor KlantBarcode is gekozen.")
+	
+	Do ..Data.VerwijderDataOrder(Order.GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="TestToonKlantNummerIpvKlantNaam">
+<Implementation><![CDATA[
+	#dim PartijMetToonKlantNummer As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).GroupNivelles())
+	#dim Order As DOM.VKP.Order = ..Data.MaaktDataOrder(##class(DOM.VKP.enu.Klant).GroupNivelles())	
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(101)
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetToonKlantNummer,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetToonKlantNummer,ProductOrderLijn)
+	
+	Do $$$AssertEquals(Etiket.Info1,"@4451")
+	
+	Do ..Data.VerwijderDataOrder(Order.GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="TestKlantOrderNummer">
+<Implementation><![CDATA[
+	#dim PartijMetKlantOrderNummer As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).SFS())
+	#dim Order As DOM.VKP.Order = ..Data.MaaktDataOrder(##class(DOM.VKP.enu.Klant).SFS())	
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(101)
+	
+	Set Order.GeefDocumentReferenties().KlantOrderNummer = "123456UT"
+	Do Order.Save()
+	
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantOrderNummer,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantOrderNummer,ProductOrderLijn)
+	
+	Do $$$AssertEquals(Etiket.Info1,"123456UT")
+	Do $$$AssertEquals(Etiket.Info2,"UT Order Ref")
+	
+	Do ..Data.VerwijderDataOrder(Order.GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="TestEigenLogo">
+<Implementation><![CDATA[
+	#dim PartijMetKlantOrderNummer As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(##class(DOM.VKP.enu.Klant).SFS())
+	
+	#dim Order As DOM.VKP.Order = ..Data.MaaktDataOrder(##class(DOM.VKP.enu.Klant).SFS())	
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijnViaVolgnummer(101)
+	
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantOrderNummer,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantOrderNummer,ProductOrderLijn)
+	
+	Do $$$AssertEquals(Etiket.LblInfo1,"Order Ref.","Als eigen logo aanwezig is, wordt de klantnaam niet meer getoond en schuift Order Referentie op naar boven.")
+	Do $$$AssertEquals(Etiket.LblInfo2,"Commissie Ref.","Commissie Ref schuift op naar boven.")
+	Do $$$AssertEquals(Etiket.LogoImg,"Logo\"_^IPCom("CS","LOGO"_##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(PartijMetKlantOrderNummer.GeefID()),0))
+	
+	Do ..Data.VerwijderDataOrder(Order.GeefID())
+]]></Implementation>
+</Method>
+
+<Method name="TestAfleverAdres">
+<Implementation><![CDATA[
+	#Dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(..Data.Order.GeefKlantID())
+	#Dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..GeefProductOrderLijn()
+	#Dim AfleverAdres As DOM.VKP.LeverAdres = ..GeefAdres("TestAdresNaam")
+
+	Do ..Data.Order.ZetAfleveradres(AfleverAdres)
+	Do ..Data.Order.Save()
+	
+	#Dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,Partij,1)
+	Do ..EtiketBuilder.VulInOrderInfo(Etiket,..Data.Order,Partij,ProductOrderLijn)
+	
+	Do $$$AssertEquals(Etiket.LblInfo1,"Klant")
+	Do $$$AssertEquals(Etiket.Info1,"TestAdresNaam")
+	Do $$$AssertEquals(Etiket.LblInfo2,"Order Ref.")
+	Do $$$AssertEquals(Etiket.Info2,"UT Order Ref")
+	Do $$$AssertEquals(Etiket.LblInfo3,"Commissie Ref.")
+	Do $$$AssertEquals(Etiket.Info3,"UT CommRef")
+	Do $$$AssertEquals(Etiket.LblInfo4,"")
+	Do $$$AssertEquals(Etiket.Info4,"")
+	
+	Do ..Data.Order.ZetAfleveradres(##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres())
+	Do ..Data.Order.Save()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdres">
+<FormalSpec>AdresNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#Dim LeverAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	
+	Do LeverAdres.ZetNaam(AdresNaam)
+	Do LeverAdres.ZetToenaam("TestToenaam")
+	Do LeverAdres.ZetAanspreking("TestAanspreking")
+	Do LeverAdres.ZetStraat("TestStraat")
+	Do LeverAdres.ZetPostcode("9800")
+	Do LeverAdres.ZetGemeente("TestGemeente")
+	Do LeverAdres.ZetLandNr(##class(DOM.common.enu.Land).Bulgarije())
+	
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijn">
+<Private>1</Private>
+<ReturnType>DOM.VKP.ProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..Data.Order.GeefOrderLijnViaVolgnummer(101)
+	Quit ProductOrderLijn
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.PM.Maatwerk.TestData).VerwijderData()
+	Do ..Data.VerwijderData()
+	Do ##super(TestName)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>