Index: ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml =================================================================== diff -u -r65360 -r65902 --- ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 65360) +++ ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 65902) @@ -105,8 +105,11 @@ 1 %Numeric 0) 1 - Quit 0 + #dim MinTolerantieOpIB As %String = EdiKenmerken.MinTolerantieOpIB + If ($$$Trim(EdiKenmerken.MinTolerantieOpIB) = "") { + Set MinTolerantieOpIB = $$$If( $$$Not(EdiKenmerken.IsBinnenbreedte) && (EdiKenmerken.CorpusWandDikte>0), 1, 0) + } + Quit MinTolerantieOpIB ]]> Index: ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml =================================================================== diff -u -r65360 -r65902 --- ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 65360) +++ ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 65902) @@ -42,6 +42,7 @@ Set EdiKenmerken.GreepEnMeenemer = $Case(EconKenmerken.GreepEnMeenemer,"Zonder":"No","Greep":"Handle","Meenemer":"HandleAndLatch",:"No") Set EdiKenmerken.AantalDwarsverdelingen = EconKenmerken.DwarsverdelingAantal Set EdiKenmerken.NietMeeleveren = ..GeefNietMeeleveren(EconKenmerken) + Set EdiKenmerken.MinTolerantieOpIB = ..GeefMinTolerantieOpIB(EconKenmerken) Do ..ConverteerFrontOndersteuning(EconKenmerken, .EdiKenmerken) Do ..ConverteerZijwand(EconKenmerken, .EdiKenmerken) @@ -58,6 +59,29 @@ ]]> + +EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken +1 + + + + +EconKenmerken:ECON.PM.Maatwerk.dto.TbxKenmerken +1 +%Integer + + + 1 @@ -234,6 +258,7 @@ Continue:PropertyName="FrontBevestiging" Continue:PropertyName="FrontOndersteuningAantal" Continue:PropertyName="LadeHoogte" + Continue:PropertyName="MinTolerantieOpIB" Continue:PropertyName="ZijwandHoogte" Continue:PropertyName="DesignCode" Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml =================================================================== diff -u -r65360 -r65902 --- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 65360) +++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 65902) @@ -103,6 +103,7 @@ Set Product.RugHoogte = Product.LadeHoogte } Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTBX) + Set Eigenschappen.MinTolerantieOpIB = ($$$Not(Product.IsBinnenbreedte))&&(Product.CorpusWandDikte>0) ; MinTolerantieOpIB bestaat niet in de EXT-laag, dus wordt hier berekend in ExtNaarEdi. If Product.Klasse = ##class(DOM.PM.enu.TBXToepassing).Lade() { Set Eigenschappen.RugwandMateriaal = $Case(Product.RugwandMateriaal, "W":##class(DOM.PM.enu.TBXRugwandMateriaal).Hout(), "S":##class(DOM.PM.enu.TBXRugwandMateriaal).Staal(), :##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) } @@ -291,6 +292,7 @@ Continue:PropertyName="BodemKleur" Continue:PropertyName="LadeKleur" Continue:PropertyName="DesignCode" + Continue:PropertyName="MinTolerantieOpIB" Do ..ConverterData.Add(PropertyName,PropertyName) }