Index: ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml
===================================================================
diff -u -r39319 -r39324
--- ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 39319)
+++ ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 39324)
@@ -40,6 +40,7 @@
Set Eigenschappen.Toepassing = Product.Klasse
Set Eigenschappen.Variant = "TBX"
+ Do ..ConverteerFrontOndersteuning(Product, .Eigenschappen)
Do ..ConverteerRugHoogte(Product, .Eigenschappen)
Do ..ConverteerNietMeeleveren(Product, .Eigenschappen)
Do ..ConverteerZijwand(Product, .Eigenschappen)
@@ -48,6 +49,21 @@
]]>
+
+
+1
+
+
+
1
Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml
===================================================================
diff -u -r39252 -r39324
--- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 39252)
+++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 39324)
@@ -14,6 +14,8 @@
Set Resultaat.CorpusBreedte = 600
Set Resultaat.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30()
Set Resultaat.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta()
+ Set Resultaat.FrontOndersteuningAantal = ""
+ Set Resultaat.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto()
Set Resultaat.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
Set Resultaat.GreepEnMeenemer = "No"
Set Resultaat.HeeftDwarsverdeling = $$$False
Index: ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml
===================================================================
diff -u -r39317 -r39324
--- ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 39317)
+++ ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 39324)
@@ -41,6 +41,7 @@
Set Eigenschappen.AantalDwarsverdelingen = Product.DwarsverdelingAantal
+ Do ..ConverteerFrontOndersteuning(Product, .Eigenschappen)
Do ..ConverteerRugHoogte(Product, .Eigenschappen)
Do ..ConverteerNietMeeleveren(Product, .Eigenschappen)
Do ..ConverteerZijwand(Product, .Eigenschappen)
@@ -74,6 +75,15 @@
]]>
+
+
+1
+
+
+
1
Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r39219 -r39324
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39219)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39324)
@@ -101,11 +101,17 @@
1
Index: vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml
===================================================================
diff -u -r39319 -r39324
--- vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39319)
+++ vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39324)
@@ -16,6 +16,8 @@
Set TbxKenmerken.DwarsverdelingAantal = ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder()
Set TbxKenmerken.Familie = "Lade"
Set TbxKenmerken.FrontBevestiging = ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta()
+ Set TbxKenmerken.FrontOndersteuningType = ##class(ECON.PM.Maatwerk.enu.TBXFrontOndersteuningType).Auto()
+ Set TbxKenmerken.FrontOndersteuningAantal = ""
Set TbxKenmerken.GeleiderTechnologie = ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion()
Set TbxKenmerken.GreepEnMeenemer = ##class(ECON.PM.Maatwerk.enu.TBXGreepEnMeenemer).Zonder()
Set TbxKenmerken.HeeftAfwijkendeRughoogte = $$$False
Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml
===================================================================
diff -u -r39217 -r39324
--- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 39217)
+++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 39324)
@@ -110,7 +110,11 @@
If ##class(TECH.StringUtils).Equals(Product.FrontOndersteuningAantal, 1,2,3) {
Set TBXProduct.ItemFS = Product.FrontOndersteuningAantal
} ElseIf (Product.FrontOndersteuningAantal="") {
- Set TBXProduct.ItemFS = "A"
+ If Product.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto(){
+ Set TBXProduct.ItemFS = "A"
+ } Else {
+ Set TBXProduct.ItemFS = "HS"
+ }
}
]]>
Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r39223 -r39324
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 39223)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 39324)
@@ -86,6 +86,14 @@
}
Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTBX)
+ If ##class(TECH.StringUtils).Equals(Product.FrontOndersteuningAantal, 1,2,3) {
+ Set Eigenschappen.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator()
+ Set Eigenschappen.FrontOndersteuningAantal = Product.FrontOndersteuningAantal
+ } ElseIf (Product.FrontOndersteuningAantal="") {
+ Set Eigenschappen.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto()
+ Set Eigenschappen.FrontOndersteuningAantal = ""
+ }
+
If (KlantId = ##class(DOM.VKP.enu.Klant).Labonorm()) && (Product.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Pallet()) {
Set Eigenschappen.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Procom()
}
@@ -187,6 +195,8 @@
#dim PropertyName As %String = PropertyIterator.Next()
Continue:PropertyName="NietMeeleveren"
Continue:PropertyName="TussenrugMateriaal"
+ Continue:PropertyName="FrontOndersteuningAantal"
+ Continue:PropertyName="FrontOndersteuningType"
Do ..ConverterData.Add(PropertyName,PropertyName)
}