Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml =================================================================== diff -u -r35893 -r35921 --- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml (.../ProductValidator.cls.xml) (revision 35893) +++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductValidator.cls.xml (.../ProductValidator.cls.xml) (revision 35921) @@ -49,8 +49,9 @@ Set ..GreepEnMeenemerValidator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.GreepEnMeenemerValidator).%New(..Product) Set ..InschuifElementValidator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.InschuifElementValidator).%New(..Product) Set ..MatValidator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.MatValidator).%New(..Product) + Set ..DwarsverdelingValidator = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.Validator.DwarsverdelingValidator).%New(..Product) - Quit ..CorpusWandDikteValidator.IsValid() && ..OpvullijstValidator.IsValid() && ..FrontOndersteuningValidator.IsValid() && ..GreepEnMeenemerValidator.IsValid() && ..InschuifElementValidator.IsValid() && ..MatValidator.IsValid() + Quit ..CorpusWandDikteValidator.IsValid() && ..OpvullijstValidator.IsValid() && ..FrontOndersteuningValidator.IsValid() && ..GreepEnMeenemerValidator.IsValid() && ..InschuifElementValidator.IsValid() && ..MatValidator.IsValid() && ..DwarsverdelingValidator.IsValid() ]]> Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml =================================================================== diff -u -r35920 -r35921 --- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 35920) +++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 35921) @@ -47,6 +47,7 @@ Do ..ConvertInschuifElement(Product,WebOrderLijn) Do ..ConvertMat(Product,WebOrderLijn) Do ..ConvertLadeCodeKenmerken(Product,WebOrderLijn) + Do ..ConvertDwarsverdelingen(Product,WebOrderLijn) Quit WebOrderLijn ]]> @@ -171,6 +172,18 @@ ]]> + + +1 + + + 1 TECH.ObjectUtils.ObjectConvertData @@ -180,7 +193,6 @@ Do ConvertData.Add("BodemKleur","ItemKB") Do ConvertData.Add("CorpusBreedte","ItemCB") Do ConvertData.Add("FrontBevestiging","ItemFB") - Do ConvertData.Add("Dwarsverdeling","ItemDWV") Do ConvertData.Add("ZijwandVerhogingType","ItemBX", "Set Output = $Case(Input, ""Reling"":""ER"", """":""ZR"", ""Zonder"":""ZR"", ""InschuifElement"":""INSCHF"", :Input)") Do ConvertData.Add("Draagkracht","ItemDK") Do ConvertData.Add("HeeftZijstabilisering","ItemSB") Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml =================================================================== diff -u -r35920 -r35921 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 35920) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 35921) @@ -68,7 +68,8 @@ #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.BodemKleur = ##class(DOM.PM.enu.TBXZijkantKleur).WI() Set TeConverterenProduct.LadeDiepte = "400" - Set TeConverterenProduct.Dwarsverdeling = ##class(DOM.PM.enu.TBXDwarsverdeling).Een() + Set TeConverterenProduct.HeeftDwarsverdeling = $$$True + Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Een() Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht50() Set TeConverterenProduct.HeeftZijstabilisering = $$$False Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen() @@ -367,12 +368,39 @@ ]]> + + + + + + + + + + +TECH.RegisteredObject,TECH.Validator.Validator + + +APPS.EDI.common.dto.v001.LadeTBX +1 + + + +Product:APPS.EDI.common.dto.v001.LadeTBX +1 +%Status + + + + +%Boolean + + + + + + Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/DwarsverdelingValidator/Test.cls.xml =================================================================== diff -u --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/DwarsverdelingValidator/Test.cls.xml (revision 0) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/Validator/DwarsverdelingValidator/Test.cls.xml (revision 35921) @@ -0,0 +1,54 @@ + + + +vhUnitTest.TestCase + + + + + + + + + + + + + + + + + + + +