Index: vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerStukLijst/Test.cls.xml
===================================================================
diff -u -r70817 -r70820
--- vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerStukLijst/Test.cls.xml (.../Test.cls.xml) (revision 70817)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerStukLijst/Test.cls.xml (.../Test.cls.xml) (revision 70820)
@@ -21,7 +21,7 @@
Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
#dim Resultaat As %String = ..Converter.FormateerStukLijst("1;0.119.043.2;2;0.192.515.2")
- Do $$$AssertEquals(Resultaat, "|Artikel1ID:=0.119.043.2||Artikel1Korttekst:=802L1050DL1LT L S|Artikel1Aantal:=1|Artikel2ID:=0.192.515.2||Artikel2Korttekst:=801P600E.R2POCKET R EV1|Artikel2Aantal:=2")
+ Do $$$AssertEquals(Resultaat, "|Artikel1ID:=0.119.043.2|Artikel1Korttekst:=802L1050DL1LT L S|Artikel1Aantal:=1|Artikel2ID:=0.192.515.2|Artikel2Korttekst:=801P600E.R2POCKET R EV1|Artikel2Aantal:=2")
]]>
@@ -30,7 +30,7 @@
Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New()
#dim Resultaat As %String = ..Converter.FormateerStukLijst("1;0.119.043.2;2;0.192.515.2;")
- Do $$$AssertEquals(Resultaat, "|Artikel1ID:=0.119.043.2||Artikel1Korttekst:=802L1050DL1LT L S|Artikel1Aantal:=1|Artikel2ID:=0.192.515.2||Artikel2Korttekst:=801P600E.R2POCKET R EV1|Artikel2Aantal:=2")
+ Do $$$AssertEquals(Resultaat, "|Artikel1ID:=0.119.043.2|Artikel1Korttekst:=802L1050DL1LT L S|Artikel1Aantal:=1|Artikel2ID:=0.192.515.2|Artikel2Korttekst:=801P600E.R2POCKET R EV1|Artikel2Aantal:=2")
]]>
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerComponentCuttings/Test.cls.xml
===================================================================
diff -u -r70817 -r70820
--- vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerComponentCuttings/Test.cls.xml (.../Test.cls.xml) (revision 70817)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerComponentCuttings/Test.cls.xml (.../Test.cls.xml) (revision 70820)
@@ -20,17 +20,17 @@
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_2.xml
===================================================================
diff -u -r70817 -r70820
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_2.xml (.../322222_2.xml) (revision 70817)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_2.xml (.../322222_2.xml) (revision 70820)
@@ -64,7 +64,7 @@
801_rechts
1
- PROGRAMME:=REVEGO|CABINET_DESIGN:=ohne_Sockel|DECOR_NAME_POCKET:=egger w1000 st9 _ premium white|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKET:=w1000 st9|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|SCUFF_GUARD:=nein|SUPPLIER_POCKET:=Egger|OPTIONS:=Wooden components without Fronts|NOMINAL_LENGTH:=500|EXACT_NOMINAL_LENGTH:=155|NOMINAL_LENGTH_TRIMMED:=450|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|SERVICE_LEVEL:=Voorgemonteerd|APPLICATION:=801_rechts|TYPE_OF_MATERIAL_SURFACE_POCKET:=Melamine|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3|Track_right:=834|Artikel1ID:=0.275.985.8||Artikel1Korttekst:=801V605B.L1P-VERB L S|Artikel1Aantal:=1|Artikel2ID:=0.648.409.6||Artikel2Korttekst:=956A1004 O TIP-ON V1R736|Artikel2Aantal:=1|Artikel3ID:=0.648.765.0||Artikel3Korttekst:=801T1000.L2ST L ZN|Artikel3Aantal:=1|Artikel4ID:=0.818.647.1||Artikel4Korttekst:=801P500E.L2POCKET L EV1|Artikel4Aantal:=1
+ PROGRAMME:=REVEGO|CABINET_DESIGN:=ohne_Sockel|DECOR_NAME_POCKET:=egger w1000 st9 _ premium white|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKET:=w1000 st9|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|SCUFF_GUARD:=nein|SUPPLIER_POCKET:=Egger|OPTIONS:=Wooden components without Fronts|NOMINAL_LENGTH:=500|EXACT_NOMINAL_LENGTH:=155|NOMINAL_LENGTH_TRIMMED:=450|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|SERVICE_LEVEL:=Voorgemonteerd|APPLICATION:=801_rechts|TYPE_OF_MATERIAL_SURFACE_POCKET:=Melamine|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3|Track_right:=834|Artikel1ID:=0.275.985.8|Artikel1Korttekst:=801V605B.L1P-VERB L S|Artikel1Aantal:=1|Artikel2ID:=0.648.409.6|Artikel2Korttekst:=956A1004 O TIP-ON V1R736|Artikel2Aantal:=1|Artikel3ID:=0.648.765.0|Artikel3Korttekst:=801T1000.L2ST L ZN|Artikel3Aantal:=1|Artikel4ID:=0.818.647.1|Artikel4Korttekst:=801P500E.L2POCKET L EV1|Artikel4Aantal:=1
0.00,0.00,0.00
0.00,0.00,0.00
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_1.xml
===================================================================
diff -u -r70817 -r70820
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_1.xml (.../322222_1.xml) (revision 70817)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_1.xml (.../322222_1.xml) (revision 70820)
@@ -64,7 +64,7 @@
801_links
1
- PROGRAMME:=REVEGO|CABINET_DESIGN:=ohne_Sockel|DECOR_NAME_POCKET:=egger w1000 st9 _ premium white|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKET:=w1000 st9|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|SCUFF_GUARD:=nein|SUPPLIER_POCKET:=Egger|OPTIONS:=Wooden components without Fronts|NOMINAL_LENGTH:=500|EXACT_NOMINAL_LENGTH:=155|NOMINAL_LENGTH_TRIMMED:=450|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|SERVICE_LEVEL:=Voorgemonteerd|APPLICATION:=801_links|TYPE_OF_MATERIAL_SURFACE_POCKET:=Melamine|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3|Track_right:=834|Artikel1ID:=0.275.985.8||Artikel1Korttekst:=801V605B.L1P-VERB L S|Artikel1Aantal:=1|Artikel2ID:=0.648.409.6||Artikel2Korttekst:=956A1004 O TIP-ON V1R736|Artikel2Aantal:=1|Artikel3ID:=0.648.765.0||Artikel3Korttekst:=801T1000.L2ST L ZN|Artikel3Aantal:=1|Artikel4ID:=0.818.647.1||Artikel4Korttekst:=801P500E.L2POCKET L EV1|Artikel4Aantal:=1
+ PROGRAMME:=REVEGO|CABINET_DESIGN:=ohne_Sockel|DECOR_NAME_POCKET:=egger w1000 st9 _ premium white|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKET:=w1000 st9|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|SCUFF_GUARD:=nein|SUPPLIER_POCKET:=Egger|OPTIONS:=Wooden components without Fronts|NOMINAL_LENGTH:=500|EXACT_NOMINAL_LENGTH:=155|NOMINAL_LENGTH_TRIMMED:=450|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|SERVICE_LEVEL:=Voorgemonteerd|APPLICATION:=801_links|TYPE_OF_MATERIAL_SURFACE_POCKET:=Melamine|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3|Track_right:=834|Artikel1ID:=0.275.985.8|Artikel1Korttekst:=801V605B.L1P-VERB L S|Artikel1Aantal:=1|Artikel2ID:=0.648.409.6|Artikel2Korttekst:=956A1004 O TIP-ON V1R736|Artikel2Aantal:=1|Artikel3ID:=0.648.765.0|Artikel3Korttekst:=801T1000.L2ST L ZN|Artikel3Aantal:=1|Artikel4ID:=0.818.647.1|Artikel4Korttekst:=801P500E.L2POCKET L EV1|Artikel4Aantal:=1
0.00,0.00,0.00
0.00,0.00,0.00
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_3.xml
===================================================================
diff -u -r70817 -r70820
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_3.xml (.../322222_3.xml) (revision 70817)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Revego.Aansturing/TestUnoLinks/StartBatch/322222_3.xml (.../322222_3.xml) (revision 70820)
@@ -64,7 +64,7 @@
801_rechts
1
- PROGRAMME:=REVEGO|CABINET_DESIGN:=ohne_Sockel|DECOR_NAME_POCKET:=egger w1000 st9 _ premium white|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKET:=w1000 st9|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|SCUFF_GUARD:=nein|SUPPLIER_POCKET:=Egger|OPTIONS:=Wooden components without Fronts|NOMINAL_LENGTH:=500|EXACT_NOMINAL_LENGTH:=155|NOMINAL_LENGTH_TRIMMED:=450|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|SERVICE_LEVEL:=Voorgemonteerd|APPLICATION:=801_rechts|TYPE_OF_MATERIAL_SURFACE_POCKET:=Melamine|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3|Track_right:=834|Artikel1ID:=0.275.985.8||Artikel1Korttekst:=801V605B.L1P-VERB L S|Artikel1Aantal:=1|Artikel2ID:=0.648.409.6||Artikel2Korttekst:=956A1004 O TIP-ON V1R736|Artikel2Aantal:=1|Artikel3ID:=0.648.765.0||Artikel3Korttekst:=801T1000.L2ST L ZN|Artikel3Aantal:=1|Artikel4ID:=0.818.647.1||Artikel4Korttekst:=801P500E.L2POCKET L EV1|Artikel4Aantal:=1
+ PROGRAMME:=REVEGO|CABINET_DESIGN:=ohne_Sockel|DECOR_NAME_POCKET:=egger w1000 st9 _ premium white|SELECTION_OF_THE_DECOR_VIA_DECOR_NUMBER_POCKET:=w1000 st9|FIXED_SHELF_THICKNESS:=18|FRONT_WIDTH:=870|FRONT_THICKNESS:=18|FRONT_HEIGHT:=1900|FRONT_PROTRUSION:=730|MOUNTING_WIDTH:=876|INSTALLATION_DEPTH:=595|INSTALLATION_HEIGHT:=1928|SCUFF_GUARD:=nein|SUPPLIER_POCKET:=Egger|OPTIONS:=Wooden components without Fronts|NOMINAL_LENGTH:=500|EXACT_NOMINAL_LENGTH:=155|NOMINAL_LENGTH_TRIMMED:=450|POCKET_BACK_THICKNESS:=320|POCKET_DEPTH:=575|POCKET_HEIGTH:=1915|SERVICE_LEVEL:=Voorgemonteerd|APPLICATION:=801_rechts|TYPE_OF_MATERIAL_SURFACE_POCKET:=Melamine|TOP_GAP:=5|BOTTOM_GAP:=10|SIDE_GAP:=3|Track_right:=834|Artikel1ID:=0.275.985.8|Artikel1Korttekst:=801V605B.L1P-VERB L S|Artikel1Aantal:=1|Artikel2ID:=0.648.409.6|Artikel2Korttekst:=956A1004 O TIP-ON V1R736|Artikel2Aantal:=1|Artikel3ID:=0.648.765.0|Artikel3Korttekst:=801T1000.L2ST L ZN|Artikel3Aantal:=1|Artikel4ID:=0.818.647.1|Artikel4Korttekst:=801P500E.L2POCKET L EV1|Artikel4Aantal:=1
0.00,0.00,0.00
0.00,0.00,0.00
Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml
===================================================================
diff -u -r70817 -r70820
--- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml (.../IngegevenKenmerkenNaarImosDataConverter.cls.xml) (revision 70817)
+++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml (.../IngegevenKenmerkenNaarImosDataConverter.cls.xml) (revision 70820)
@@ -238,6 +238,8 @@
Set StringMetProductenEnDimensies = $Extract(StringMetProductenEnDimensies, 1, $length(StringMetProductenEnDimensies)-1)
}
+ Set StringMetProductenEnDimensies = $Replace(StringMetProductenEnDimensies,";infDouble]", "")
+
#dim Rol, Afmeting, Eenheid, FormatCuttings As %String = ""
#dim LijstVanProductenEnAfmetingen As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(StringMetProductenEnDimensies,";")
#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstVanProductenEnAfmetingen)
@@ -247,6 +249,12 @@
Set Afmeting = Iterator.Next()
Set Eenheid = Iterator.Next()
+ If (##class(TECH.StringUtils).Contains(Afmeting, "-infDoubl")) {
+ Set Afmeting = "NULL"
+ } Else {
+ Set Afmeting = +($Replace(Afmeting, "[", ""))
+ }
+
Set FormatCuttings = FormatCuttings _ "|" _ Rol _ ":=" _ Afmeting
}
@@ -273,7 +281,7 @@
Set ProductId = ..ProductAPI.GeefProductIdVoorIdentNummer(IdentNummer)
Set Korttekst = ..GeefKorttekstVanProduct(ProductId)
- Set GeformateerdeStukLijst = GeformateerdeStukLijst _ "|Artikel" _AantalProducten_"ID:=" _ IdentNummer _ "|" _ "|Artikel" _AantalProducten_ "Korttekst:=" _Korttekst_ "|Artikel" _AantalProducten_ "Aantal:=" _ Aantal
+ Set GeformateerdeStukLijst = GeformateerdeStukLijst _ "|Artikel" _AantalProducten_"ID:=" _ IdentNummer _ "|Artikel" _AantalProducten_ "Korttekst:=" _Korttekst_ "|Artikel" _AantalProducten_ "Aantal:=" _ Aantal
}
Quit GeformateerdeStukLijst