Index: BL/PPS/common/impl/OnderdelenEtiketPrinterGekoppeldeIK.cls.xml =================================================================== diff -u -r40848 -r71814 --- BL/PPS/common/impl/OnderdelenEtiketPrinterGekoppeldeIK.cls.xml (.../OnderdelenEtiketPrinterGekoppeldeIK.cls.xml) (revision 40848) +++ BL/PPS/common/impl/OnderdelenEtiketPrinterGekoppeldeIK.cls.xml (.../OnderdelenEtiketPrinterGekoppeldeIK.cls.xml) (revision 71814) @@ -9,7 +9,7 @@ -LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler="" +LogoBepaler:BL.Flow.Levering.LabelLogoBepaler="" %Status vhUnitTest.TestCase -vhTest.Fake.DOM.AKP.Toelevering +vhTest.Mock.DOM.AKP.Toelevering 1 @@ -66,7 +66,9 @@ Set ..ToeleveringID = $$$DummyInteger Set ..OrderID = $$$DummyInteger - Set ..ToeleveringStub = ##class(vhTest.Fake.DOM.AKP.Toelevering).%New(..ToeleveringID, $$$DummyInteger, ..OrderID) + Set ..ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New() + Do ..ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(..OrderID) + Do ..ToeleveringStub.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Set ..ToeleveringAPIStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance() Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..ToeleveringID).DanReturn(..ToeleveringStub) @@ -82,9 +84,6 @@ Do ..LegacyPartijAPIStub.IndienMethodCall("GeefKlantNummerVoorPartijID",$$$ElkeWaarde).DanReturn($$$DummyString) Set ..DummyKlant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New() - - Set ..LogoBepalerMock = ##class(vhTest.Mock.BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New() - Do ..LogoBepalerMock.IndienMethodCall("GeefLogo",..DummyKlant).DanReturn("DummyLogo") Set ..VerkoopAPIStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance() Do ..VerkoopAPIStub.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..DummyKlant) @@ -101,7 +100,7 @@ #dim Categorie As APPS.Halux.common.enu.Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox() Do ..ProductieService.IndienMethodCall("GeefCategorieVoorToelevering", ..ToeleveringStub).DanReturn(Categorie) - #dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New(..LogoBepalerMock, ..ProductieService) + #dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New(, ..ProductieService) #dim pxCommissie As BL.PPS.TBX.sub.pxCommissie = OnderdelenEtiketPrinterBase.EtikettenCommissieOne(..ToeleveringID, $$$DummyInteger, $$$DummyString) Do $$$AssertEquals(pxCommissie.Device,"Halux_Productie") ]]> @@ -112,7 +111,7 @@ #dim Categorie As APPS.Halux.common.enu.Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox() Do ..ProductieService.IndienMethodCall("GeefCategorieVoorToelevering", ..ToeleveringStub).DanReturn(Categorie) - #dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New(..LogoBepalerMock, ..ProductieService) + #dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New(, ..ProductieService) #dim pxCommissie As BL.PPS.TBX.sub.pxCommissie = OnderdelenEtiketPrinterBase.EtikettenCommissieOne(..ToeleveringID, $$$DummyInteger, $$$DummyString) Do $$$AssertEquals(pxCommissie.Device,"Halux_Productie_Keller") Index: BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml =================================================================== diff -u -r70939 -r71814 --- BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml (.../OnderdelenEtiketPrinterBijLade.cls.xml) (revision 70939) +++ BL/PPS/common/impl/OnderdelenEtiketPrinterBijLade.cls.xml (.../OnderdelenEtiketPrinterBijLade.cls.xml) (revision 71814) @@ -22,7 +22,7 @@ -LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler="" +LogoBepaler:BL.Flow.Levering.LabelLogoBepaler="" %Status -BL.PPS.common.impl.OnderdelendoosLogoBepaler +BL.Flow.Levering.LabelLogoBepaler 1 @@ -52,13 +52,13 @@ -LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler,ProductieService:APPS.Halux.common.ProductieService="" +LogoBepaler:BL.Flow.Levering.LabelLogoBepaler,ProductieService:APPS.Halux.common.ProductieService="" 1 1 %Status 1