Index: EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml
===================================================================
diff -u -r53335 -r53843
--- EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml (.../LadeEigenschappenLBX.cls.xml) (revision 53335)
+++ EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml (.../LadeEigenschappenLBX.cls.xml) (revision 53843)
@@ -193,15 +193,13 @@
-%String
+%Boolean
%Library.CacheSerialState
-listnode
-
Type
Index: vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml
===================================================================
diff -u -r53509 -r53843
--- vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml (.../LadeEigenschappenLBX.cls.xml) (revision 53509)
+++ vhTest/Utils/EXT/Unishop/PurchaseOrder001/CreateOrder/LadeEigenschappenLBX.cls.xml (.../LadeEigenschappenLBX.cls.xml) (revision 53843)
@@ -70,7 +70,7 @@
set Kenmerken.MatKleur = ""
set Kenmerken.MatMateriaal = ""
set Kenmerken.VerpakkingType = Enum.VerpakkingType.V1
- set Kenmerken.MeenemerSet = ##class(APPS.PM.enu.LBXMeenemerSet).Zonder()
+ set Kenmerken.MeenemerSet = $$$False
quit Kenmerken
]]>
Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r53610 -r53843
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 53610)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 53843)
@@ -79,6 +79,11 @@
} Else {
Set Eigenschappen.RugHoogte = Product.LadeHoogte
}
+ If (Product.MeenemerSet = $$$True) {
+ Set Eigenschappen.MeenemerSet = ##class(APPS.PM.enu.LBXMeenemerSet).VolledigeSet()
+ } Else {
+ Set Eigenschappen.MeenemerSet = ##class(APPS.PM.enu.LBXMeenemerSet).Zonder()
+ }
Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesLBX)
}
ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%ClassName($$$True)) {
@@ -238,6 +243,7 @@
#dim PropertyName As %String = PropertyIterator.Next()
Continue:PropertyName="NietMeeleveren"
Continue:PropertyName="RugHoogte"
+ Continue:PropertyName="MeenemerSet"
Do ..ConverterData.Add(PropertyName,PropertyName)
}
Do ..ConverterData.Add("VerpakkingType","VerpakkingType","set Output = ##class(DOM.PM.enu.LBXVerpakkingType).V1()")