Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml
===================================================================
diff -u -r65390 -r65391
--- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml (.../Test.cls.xml) (revision 65390)
+++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml (.../Test.cls.xml) (revision 65391)
@@ -109,19 +109,19 @@
#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order)
#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ..GeefLadeKlantEtiketBuilder(Partij, ..#ProductId, $$$True, $$$False, 1000)
- #dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId,Partij,1)
- Do EtiketBuilder.VulInOrderInfo(Etiket, Order ,Partij, ProductOrderLijn, "")
+ #dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, Partij, 1)
+ Do EtiketBuilder.VulInOrderInfo(Etiket, Order , Partij, ProductOrderLijn, "")
- Do $$$AssertEquals(Etiket.KlantBarcode,"","Standaard gebruiken klanten geen KlantBarcode.")
- Do $$$AssertEquals(Etiket.VerzendWijze,"VerzendingWijze")
- Do $$$AssertEquals(Etiket.OrderID,Order.GeefID())
- Do $$$AssertEquals(Etiket.LogoImg,"Logo\Logo VHZwart.svg")
- Do $$$AssertEquals(Etiket.LblInfo1,"Klant")
- Do $$$AssertEquals(Etiket.Info1,"UT AfleverAdresNaam")
- 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.")
+ Do $$$AssertEquals(Etiket.KlantBarcode, "", "Standaard gebruiken klanten geen KlantBarcode.")
+ Do $$$AssertEquals(Etiket.VerzendWijze, "VerzendingWijze")
+ Do $$$AssertEquals(Etiket.OrderID, Order.GeefID())
+ Do $$$AssertEquals(Etiket.LogoImg, "Logo\Logo VHZwart.svg")
+ Do $$$AssertEquals(Etiket.LblInfo1, "Klant")
+ Do $$$AssertEquals(Etiket.Info1, "UT AfleverAdresNaam")
+ 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.")
Do ..VerifieerMocks()
]]>
@@ -162,11 +162,11 @@
#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order)
#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ..GeefLadeKlantEtiketBuilder(PartijMetKlantBarcode, ..#ProductId, $$$True, $$$False, 1000)
- #dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId,PartijMetKlantBarcode,1)
- Do EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn,"")
+ #dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId, PartijMetKlantBarcode, 1)
+ Do EtiketBuilder.VulInOrderInfo(Etiket, Order, PartijMetKlantBarcode, ProductOrderLijn, "")
- Do $$$AssertEquals(Etiket.KlantBarcode,"UT PakketRef")
- Do $$$AssertEquals(Etiket.Layout,"MaatwerkProductBAR 8x11","Etiket met ruimte voor KlantBarcode is gekozen.")
+ Do $$$AssertEquals(Etiket.KlantBarcode, "UT PakketRef")
+ Do $$$AssertEquals(Etiket.Layout, "MaatwerkProductBAR 8x11", "Etiket met ruimte voor KlantBarcode is gekozen.")
Do ..VerifieerMocks()
]]>
@@ -175,7 +175,7 @@
@@ -186,15 +186,15 @@
#dim ProductOrderLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ..GeefStandaardProductOrderLijn(Order, "2B058108160")
#dim EtiketBuilder As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ..GeefLadeKlantEtiketBuilder(PartijMetKlantBarcode, ..#ProductId, $$$True, $$$False, 1000)
- #dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#ProductId,PartijMetKlantBarcode,1)
- Do EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn,"")
+ #dim Etiket As BL.Etiket.LadeKlantEtiket = EtiketBuilder.MaakBasisMaatwerkProductEtiket(..#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 $$$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 ..VerifieerMocks()
]]>
@@ -208,15 +208,15 @@
Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")
Do ProductOrderLijn.ZetProjectReferentie("B058108160")
- #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantBarcode,1)
- Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn,"")
+ #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,"B058108160")
- Do $$$AssertEquals(Etiket.KlantBarcode,"")
- Do $$$AssertEquals(Etiket.Layout,"MaatwerkProduct 8x11")
+ Do $$$AssertEquals(Etiket.Info1, "UT Order Ref")
+ Do $$$AssertEquals(Etiket.Info2, "UT CommRef")
+ Do $$$AssertEquals(Etiket.Info3, "UT PakketRef")
+ Do $$$AssertEquals(Etiket.Info4, "B058108160")
+ Do $$$AssertEquals(Etiket.KlantBarcode, "")
+ Do $$$AssertEquals(Etiket.Layout, "MaatwerkProduct 8x11")
Do ..Data.VerwijderDataOrder(Order.GeefID())
]]>
@@ -231,11 +231,11 @@
Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")
Do ProductOrderLijn.ZetProjectReferentie("ProjectReferentieVoorOpBarcode")
- #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantBarcode,1)
- Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn,"")
+ #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID, PartijMetKlantBarcode, 1)
+ Do ..EtiketBuilder.VulInOrderInfo(Etiket, Order, PartijMetKlantBarcode, ProductOrderLijn, "")
- Do $$$AssertEquals(Etiket.KlantBarcode,"ProjectReferentieVoorOpBarcode")
- Do $$$AssertEquals(Etiket.Layout,"MaatwerkProduct 5x10")
+ Do $$$AssertEquals(Etiket.KlantBarcode, "ProjectReferentieVoorOpBarcode")
+ Do $$$AssertEquals(Etiket.Layout, "MaatwerkProduct 5x10")
Do ..Data.VerwijderDataOrder(Order.GeefID())
]]>
@@ -250,12 +250,12 @@
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,"")
+ #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID, PartijMetKlantBarcode, 1)
+ Do ..EtiketBuilder.VulInOrderInfo(Etiket, Order, PartijMetKlantBarcode, ProductOrderLijn, "")
- Do $$$AssertEquals(Etiket.KlantBarcode,"2B058108160")
- Do $$$AssertEquals(Etiket.Layout,"MaatwerkProductBAR 8x11")
- Do $$$AssertEquals(Etiket.ProductImg,"GENERIEK\TBX\tbx_DY2_BD_x2.JPG")
+ Do $$$AssertEquals(Etiket.KlantBarcode, "2B058108160")
+ Do $$$AssertEquals(Etiket.Layout, "MaatwerkProductBAR 8x11")
+ Do $$$AssertEquals(Etiket.ProductImg, "GENERIEK\TBX\tbx_DY2_BD_x2.JPG")
Do ..Data.VerwijderDataOrder(Order.GeefID())
]]>
@@ -270,12 +270,12 @@
Do ProductOrderLijn.ZetPakketReferentie("UT PakketRef")
Do ProductOrderLijn.ZetProjectReferentie("0000105973917 / 201811966 / Eggo Roeselare")
- #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID,PartijMetKlantBarcode,1)
- Do ..EtiketBuilder.VulInOrderInfo(Etiket,Order,PartijMetKlantBarcode,ProductOrderLijn,"")
+ #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakBasisMaatwerkProductEtiket(..Data.ProductID, PartijMetKlantBarcode, 1)
+ Do ..EtiketBuilder.VulInOrderInfo(Etiket, Order, PartijMetKlantBarcode, ProductOrderLijn, "")
- Do $$$AssertEquals(Etiket.KlantBarcode,"0000105973917")
- Do $$$AssertEquals(Etiket.Layout,"MaatwerkProductBAR 8x11")
- Do $$$AssertEquals(Etiket.ProductImg,"GENERIEK\TBX\tbx_DY2_BD_x2.JPG")
+ Do $$$AssertEquals(Etiket.KlantBarcode, "0000105973917")
+ Do $$$AssertEquals(Etiket.Layout, "MaatwerkProductBAR 8x11")
+ Do $$$AssertEquals(Etiket.ProductImg, "GENERIEK\TBX\tbx_DY2_BD_x2.JPG")
Do ..Data.VerwijderDataOrder(Order.GeefID())
]]>
@@ -284,9 +284,9 @@
@@ -295,10 +295,10 @@
#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,"")
+ #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 $$$AssertEquals(Etiket.Info1, "@4451")
Do ..Data.VerwijderDataOrder(Order.GeefID())
]]>
@@ -313,11 +313,11 @@
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,"")
+ #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 $$$AssertEquals(Etiket.Info1, "123456UT")
+ Do $$$AssertEquals(Etiket.Info2, "UT Order Ref")
Do ..Data.VerwijderDataOrder(Order.GeefID())
]]>
@@ -330,12 +330,12 @@
#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,"")
+ #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 $$$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())
]]>
@@ -350,17 +350,17 @@
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,"")
+ #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 $$$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()
@@ -466,7 +466,7 @@
APPS.Halux.Docs.impl.LadeKlantEtiketBuilder