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