Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml =================================================================== diff -u -r38714 -r38879 --- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 38714) +++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 38879) @@ -130,19 +130,19 @@ 1 @@ -244,7 +244,7 @@ Do ConvertData.Add("LadeDiepte","ItemLD") Do ConvertData.Add("BodemKleur","ItemKB", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)") Do ConvertData.Add("CorpusBreedte","ItemCB") - Do ConvertData.Add("ZijwandVerhogingType","ItemBX", "Set Output = $Case(Input, ""NoGallery"":""ZR"", ""SimpleGallery"":""ER"", ""DesignElement"":""INSCHF"", ""InschuifElement"":""INSCHF"", :Input)") + Do ConvertData.Add("ZijwandVerhogingType","ItemBX", "Set Output = $Case(Input, ""NoGallery"":""ZR"", ""SimpleGallery"":""ER"", ""DesignElement"":""INSCHF"", :Input)") Do ConvertData.Add("Draagkracht","ItemDK") Do ConvertData.Add("HeeftZijstabilisering","ItemSB") Do ConvertData.Add("VerpakkingType","ItemVPK", "Set Output = $Case(Input, ""Pallet"":""P"", ""Probox"":""X"", ""V1"":""S"", :""S"")") Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml =================================================================== diff -u -r38600 -r38879 --- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 38600) +++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 38879) @@ -255,7 +255,7 @@ #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatHelder8mm() - Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() + Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks() @@ -272,7 +272,7 @@ #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Glas() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).FloatGezuurd8mm() - Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() + Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks() @@ -289,7 +289,7 @@ #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).MetallicGrijs() - Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() + Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks() @@ -306,7 +306,7 @@ #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).ZijdeWit() - Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() + Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks() @@ -323,7 +323,7 @@ #dim TeConverterenProduct = ..GeefTeConverterenProduct() Set TeConverterenProduct.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() Set TeConverterenProduct.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart() - Set TeConverterenProduct.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() + Set TeConverterenProduct.ZijwandVerhogingType = "DesignElement" Set TBXLadeCodeBepalerStub = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.TBXLadeCodeBepaler).%New() Do TBXLadeCodeBepalerStub.IndienMethodCall("BepaalLadeCode","L","M","C",0,"V","GA").DanDoeNiks() Index: vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml =================================================================== diff -u -r38877 -r38879 --- vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml (.../LadeEigenschappenTBX.cls.xml) (revision 38877) +++ vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenTBX.cls.xml (.../LadeEigenschappenTBX.cls.xml) (revision 38879) @@ -108,7 +108,7 @@ Set Kenmerken.HeeftZijstabilisering = $$$True Set Kenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() Set Kenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart() - Set Kenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() + Set Kenmerken.ZijwandVerhogingType = "DesignElement" Set Kenmerken.BodemKleur = "DG" Set Kenmerken.RugHoogte = "C" Set Kenmerken.IsBinnenlade = $$$False Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml =================================================================== diff -u -r38877 -r38879 --- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 38877) +++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 38879) @@ -108,7 +108,7 @@ Set Resultaat.HeeftZijstabilisering = $$$True Set Resultaat.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Aluminium() Set Resultaat.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).TerraZwart() - Set Resultaat.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).InschuifElement() + Set Resultaat.ZijwandVerhogingType = "DesignElement" Set Resultaat.BodemKleur = "DG" Set Resultaat.RugHoogte = "C" Set Resultaat.IsBinnenlade = $$$False