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() } Method "Test: ProductFeatures: Dwarsverdeling: HasCrossDividers false -> aantal = 0"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftDwarsverdeling = $$$False Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee() 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.ItemDWV,"") } Method "Test: ProductFeatures: Dwarsverdeling: HasCrossDividers true en aantal <= 3"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.HeeftDwarsverdeling = $$$True Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee() 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.ItemDWV,"2") } Method "Test: ProductFeatures: Frontbevestiging: Indien binnenlade, altijd 'Z'"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() 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.ItemFB,"Z") } Method "Test: ProductFeatures: Verlaagde rug enkel invullen indien rughoogte '= ladehoogte"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.RugHoogte = "M" Set TeConverterenProduct.LadeHoogte = "C" 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.ItemRSTL,"M") } Method "Test: ProductFeatures: Verlaagde rug leeg indien rughoogte = ladehoogte"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.RugHoogte = "M" Set TeConverterenProduct.LadeHoogte = "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.ItemRSTL,"") } Method "Test: Sifonlade 1 smalle uitsparing 150"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.Klasse = "SY2" Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 1 Set TeConverterenProduct.UitsparingDataBreedteX = 120 Set TeConverterenProduct.UitsparingDataBreedteZ1 = 150 Set TeConverterenProduct.UitsparingDataBreedteY = 140 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.ItemSPZK,"S;120;140;150") } Method "Test: Sifonlade 1 brede uitsparing 250"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.Klasse = "SY2" Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 1 Set TeConverterenProduct.UitsparingDataBreedteX = 120 Set TeConverterenProduct.UitsparingDataBreedteZ1 = 250 Set TeConverterenProduct.UitsparingDataBreedteY = 140 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.ItemSPZK,"B;120;140;250") } Method "Test: Sifonlade 1 uitsparing Maatwerk"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.Klasse = "SY2" Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 1 Set TeConverterenProduct.UitsparingDataBreedteX = 120 Set TeConverterenProduct.UitsparingDataBreedteZ1 = 42 Set TeConverterenProduct.UitsparingDataBreedteY = 140 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.ItemSPZK,"M.;120;140;42") } Method "Test: Sifonlade 2 uitsparingen 150/150"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.Klasse = "SY2" Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2 Set TeConverterenProduct.UitsparingDataBreedteX = 120 Set TeConverterenProduct.UitsparingDataBreedteZ1 = 150 Set TeConverterenProduct.UitsparingDataBreedteM = 60 Set TeConverterenProduct.UitsparingDataBreedteZ2 = 150 Set TeConverterenProduct.UitsparingDataBreedteY = 140 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.ItemSPZK,"SS;120;140;60;150;150") } Method "Test: Sifonlade 2 uitsparingen 250/250"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.Klasse = "SY2" Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2 Set TeConverterenProduct.UitsparingDataBreedteX = 120 Set TeConverterenProduct.UitsparingDataBreedteZ1 = 250 Set TeConverterenProduct.UitsparingDataBreedteM = 60 Set TeConverterenProduct.UitsparingDataBreedteZ2 = 250 Set TeConverterenProduct.UitsparingDataBreedteY = 140 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.ItemSPZK,"BB;120;140;60;250;250") } Method "Test: Sifonlade 2 uitsparingen 150/250"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.Klasse = "SY2" Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2 Set TeConverterenProduct.UitsparingDataBreedteX = 120 Set TeConverterenProduct.UitsparingDataBreedteZ1 = 150 Set TeConverterenProduct.UitsparingDataBreedteM = 60 Set TeConverterenProduct.UitsparingDataBreedteZ2 = 250 Set TeConverterenProduct.UitsparingDataBreedteY = 140 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.ItemSPZK,"SB;120;140;60;150;250") } Method "Test: Sifonlade 2 uitsparingen 250/150"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.Klasse = "SY2" Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2 Set TeConverterenProduct.UitsparingDataBreedteX = 120 Set TeConverterenProduct.UitsparingDataBreedteZ1 = 250 Set TeConverterenProduct.UitsparingDataBreedteM = 60 Set TeConverterenProduct.UitsparingDataBreedteZ2 = 150 Set TeConverterenProduct.UitsparingDataBreedteY = 140 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.ItemSPZK,"BS;120;140;60;250;150") } Method "Test: Sifonlade 2 uitsparingen maatwerk"() { #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.Klasse = "SY2" Set TeConverterenProduct.UitsparingDataAantalUitsparingen = 2 Set TeConverterenProduct.UitsparingDataBreedteX = 120 Set TeConverterenProduct.UitsparingDataBreedteZ1 = 42 Set TeConverterenProduct.UitsparingDataBreedteM = 60 Set TeConverterenProduct.UitsparingDataBreedteZ2 = 42 Set TeConverterenProduct.UitsparingDataBreedteY = 140 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.ItemSPZK,"MM;120;140;60;42;42") } Method GeefTeConverterenProduct() { /* Set TeConverterenProduct = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade() Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXLadeKleur).MG() Set TeConverterenProduct.LadeDiepte = 350 Set TeConverterenProduct.HeeftDwarsverdeling = $$$True Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee() Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65() Set TeConverterenProduct.HeeftZijstabilisering = $$$True Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Pallet() Set TeConverterenProduct.CorpusBreedte = 1000 Set TeConverterenProduct.CorpusWandDikte = 16 Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm() Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set TeConverterenProduct.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Tipon() Set TeConverterenProduct.RugHoogte = "C" Set TeConverterenProduct.HeeftMat = $$$False Set TeConverterenProduct.MatMateriaal = "" Set TeConverterenProduct.MatKleur = "" Set TeConverterenProduct.GreepEnMeenemer = "No" Set TeConverterenProduct.IsBinnenlade = $$$False Set TeConverterenProduct.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).MG() Set TeConverterenProduct.LadeHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).K() Set TeConverterenProduct.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M() Set TeConverterenProduct.Klasse = "L" Quit TeConverterenProduct }*/ ]]>