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