Index: EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml =================================================================== diff -u -r37331 -r38425 --- EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml (.../LadeEigenschappenLBX.cls.xml) (revision 37331) +++ EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml (.../LadeEigenschappenLBX.cls.xml) (revision 38425) @@ -166,6 +166,11 @@ + +%String + + + %String "LBX" @@ -281,6 +286,9 @@ NietMeeleveren + +RugHoogte + Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml =================================================================== diff -u -r38196 -r38425 --- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 38196) +++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 38425) @@ -61,6 +61,11 @@ If Product.NietMeeleveren.TiponBlumotionSynchronisatieAdapter do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieAdapter") If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang") If Product.NietMeeleveren.TIPONComponents do Eigenschappen.NietMeeleveren.Insert("TiponSynchronisatieSet"_"TiponSynchronisatieStang") + If $$$HasLength(Product.RugHoogte) { + Set Eigenschappen.RugHoogte = Product.RugHoogte + } Else { + Set Eigenschappen.RugHoogte = Product.LadeHoogte + } Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesLBX) } ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%ClassName($$$True)) { @@ -144,7 +149,6 @@ Continue:PropertyName="RugHoogte" Do ..ConverterData.Add(PropertyName,PropertyName) } - Do ..ConverterData.Add("LadeHoogte", "RugHoogte") Do ..ConverterData.Add("VerpakkingType","VerpakkingType","set Output = ##class(DOM.PM.enu.LBXVerpakkingType).V1()") Do ..ConverterData.Add("VoorwandTypeVanCBinnenlade","VoorwandTypeVanCBinnenlade", "Set Output = $Case(Input, ""L"":""GlasLaag"", ""H"":""GlasHoog"", ""R"":""Reling"", :Input)") Do ..ConverterData.Add("VoorwandTypeVanMBinnenlade","VoorwandTypeVanMBinnenlade", "Set Output = $Case(Input, ""G"":""Glas"", ""M"":""Metaal"", :Input)")