vhUnitTest.TestCase ItemWD als IsInteriorCabinetWidth = false"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.CorpusWandDikte = "18" Set TeConverterenProduct.IsBinnenbreedte = $$$False Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemWD,"18") } Method "Test: ProductFeatures: CorpusWandDikte: 'B' -> ItemWD als IsInteriorCabinetWidth = true"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.IsBinnenbreedte = $$$True Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemWD,"B") } Method "Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks -> 'L'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs() Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L") } Method "Test: ProductFeatures: Opvullijsten: HeeftOpvullijstRechts -> 'R'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs() Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"R") } Method "Test: ProductFeatures: Opvullijsten: HeeftOpvullijstLinks en -Rechts -> 'L+R'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftOpvullijstLinks = $$$True Set TeConverterenProduct.HeeftOpvullijstRechts = $$$True Set TeConverterenProduct.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Grijs() Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemOPVL,"L+R") } Method "Test: ProductFeatures: NumberOfFrontSupports: 1,2,3 -> gewoon overnemen"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.FrontOndersteuningAantal = 2 Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemFS,"2") } Method "Test: ProductFeatures: NumberOfFrontSupports: geen -> 'Auto'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.FrontOndersteuningAantal = "" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemFS,"A") } Method "Test: ProductFeatures: InsideBoxSystem = No -> 'Z'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "No" Set TeConverterenProduct.IsBinnenlade = $$$True Set TeConverterenProduct.RugHoogte = "K" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"Z") } Method "Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte M -> 'M'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch" Set TeConverterenProduct.IsBinnenlade = $$$True Set TeConverterenProduct.RugHoogte = "M" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"M") } Method "Test: ProductFeatures: InsideBoxSystem: greep en meenemer, rughoogte C -> 'M'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "HandleAndLatch" Set TeConverterenProduct.IsBinnenlade = $$$True Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R") } Method "Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte M -> 'G'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "Handle" Set TeConverterenProduct.IsBinnenlade = $$$True Set TeConverterenProduct.RugHoogte = "M" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"G") } Method "Test: ProductFeatures: InsideBoxSystem: Wel greep, geen meenemer, rughoogte C -> 'G'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "Handle" Set TeConverterenProduct.IsBinnenlade = $$$True Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"R") } Method "Test: ProductFeatures: InsideBoxSystem: Greep ingevuld, maar niet IsBinnenlade -> 'X' "() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GreepEnMeenemer = "Handle" Set TeConverterenProduct.IsBinnenlade = $$$False Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBGRP,"X") } Method "Test: ProductFeatures: Zijwandverhoging: Glas -> FG8"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm() Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemKV,"FG8") } Method "Test: ProductFeatures: Zijwandverhoging: Glas verzuurd -> FZ8"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm() Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemKV,"FZ8") } Method "Test: ProductFeatures: Zijwandverhoging: Alu Grijs Metallic -> ALU_punt_MG"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs() Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.MG") } Method "Test: ProductFeatures: Zijwandverhoging: Alu Zijdewit -> ALU_punt_SW"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit() Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.SW") } Method "Test: ProductFeatures: Zijwandverhoging: Alu Terrazwart -> ALU_punt_BZ"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart() Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemKV,"ALU.BZ") } Method "Test: ProductFeatures: GeleiderTechnologie: Als B, dan I"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion() Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBM,"I") } Method "Test: ProductFeatures - ZijwandverhogingType -> ItemBX - InschuifElement"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF") } Method "Test: ProductFeatures: AntislipMat: HeeftMat ingevuld en matkleur -> ItemASM"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftMat = $$$True Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip() Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemASM,"Z") } Method "Test: ProductFeatures: AntislipMat: HeeftMat false"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftMat = $$$False Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.MATKleur).ZwartAntislip() Set DummyTBXLadeCodeBepaler = ##class(vhTest.Dummy.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(DummyTBXLadeCodeBepaler) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do $$$AssertEquals(WebOrderLijn.ItemASM,"") } Method "Test: ProductFeatures: LadeCodeKenmerken -> ItemLT"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftMat = $$$True Set TeConverterenProduct.Klasse = "L" Set TeConverterenProduct.ZijkantHoogte = "C" Set TeConverterenProduct.MatKleur = ##class(DOM.PM.enu.TBXAntislipmat).Grijs() #dim TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Do TBXLadeCodeBepalerStub.VerwachtMethodCall("BepaalLadeCode",TeConverterenProduct.Klasse, TeConverterenProduct.ZijkantHoogte, TeConverterenProduct.RugHoogte, TeConverterenProduct.IsBinnenlade, "V", $$$ElkeWaarde).ExactAantalKeer(1) #dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New(TBXLadeCodeBepalerStub) #dim WebOrderLijn As WS.TBX.EM.OrderLijn = ProductConverter.ConverteerEdiNaarLegacy(TeConverterenProduct) Do TBXLadeCodeBepalerStub.Verifieer() } */ ]]>