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)")