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