Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml =================================================================== diff -u -r70961 -r71027 --- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml (.../IngegevenKenmerkenNaarImosDataConverter.cls.xml) (revision 70961) +++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml (.../IngegevenKenmerkenNaarImosDataConverter.cls.xml) (revision 71027) @@ -246,7 +246,7 @@ #dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstVanProductenEnAfmetingen) While Iterator.HasNext() { - Set Rol = $Replace($Replace(Iterator.Next(), " ", "_"), "-", "_") + Set Rol = $Extract($Replace($Replace(Iterator.Next(), " ", "_"), "-", "_"),1 ,28) Set Afmeting = Iterator.Next() Set Eenheid = Iterator.Next() Index: vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerComponentCuttings/Test.cls.xml =================================================================== diff -u -r70820 -r71027 --- vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerComponentCuttings/Test.cls.xml (.../Test.cls.xml) (revision 70820) +++ vhUnitTest/APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter/FormateerComponentCuttings/Test.cls.xml (.../Test.cls.xml) (revision 71027) @@ -21,7 +21,7 @@ Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New() #dim Resultaat As %String = ..Converter.FormateerComponentCuttings("TIP-ON unit pocket right;491;mm;TIP-ON unit pocket left;[41.0;infDouble];mm;Track right;720;mm;Pocket profile bottom left;[43.0;infDouble];mm;Door cover strip;2000;mm;Track left;[-infDouble;infDouble];mm;Roller profile right;491;mm;Pocket profile bottom right;493;mm;Pocket cover strip single door application;[0.0;infDouble];mm;Pocket cover strip double door application;1912;mm;Pocket profile top right;493;mm;Roller profile left;[41.0;infDouble];mm;Pocket profile top left;[43.0;infDouble];mm") - Do $$$AssertEquals(Resultaat, "|TIP_ON_unit_pocket_right:=491|TIP_ON_unit_pocket_left:=41|Track_right:=720|Pocket_profile_bottom_left:=43|Door_cover_strip:=2000|Track_left:=NULL|Roller_profile_right:=491|Pocket_profile_bottom_right:=493|Pocket_cover_strip_single_door_application:=0|Pocket_cover_strip_double_door_application:=1912|Pocket_profile_top_right:=493|Roller_profile_left:=41|Pocket_profile_top_left:=43") + Do $$$AssertEquals(Resultaat, "|TIP_ON_unit_pocket_right:=491|TIP_ON_unit_pocket_left:=41|Track_right:=720|Pocket_profile_bottom_left:=43|Door_cover_strip:=2000|Track_left:=NULL|Roller_profile_right:=491|Pocket_profile_bottom_right:=493|Pocket_cover_strip_single_do:=0|Pocket_cover_strip_double_do:=1912|Pocket_profile_top_right:=493|Roller_profile_left:=41|Pocket_profile_top_left:=43") ]]> @@ -30,7 +30,7 @@ Set RvgKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).%New() #dim Resultaat As %String = ..Converter.FormateerComponentCuttings("TIP-ON unit pocket right;491;mm;TIP-ON unit pocket left;[41.0;infDouble];mm;Track right;720;mm;Pocket profile bottom left;[43.0;infDouble];mm;Door cover strip;2000;mm;Track left;[-infDouble;infDouble];mm;Roller profile right;491;mm;Pocket profile bottom right;493;mm;Pocket cover strip single door application;[0.0;infDouble];mm;Pocket cover strip double door application;1912;mm;Pocket profile top right;493;mm;Roller profile left;[41.0;infDouble];mm;Pocket profile top left;[43.0;infDouble];mm;") - Do $$$AssertEquals(Resultaat, "|TIP_ON_unit_pocket_right:=491|TIP_ON_unit_pocket_left:=41|Track_right:=720|Pocket_profile_bottom_left:=43|Door_cover_strip:=2000|Track_left:=NULL|Roller_profile_right:=491|Pocket_profile_bottom_right:=493|Pocket_cover_strip_single_door_application:=0|Pocket_cover_strip_double_door_application:=1912|Pocket_profile_top_right:=493|Roller_profile_left:=41|Pocket_profile_top_left:=43") + Do $$$AssertEquals(Resultaat, "|TIP_ON_unit_pocket_right:=491|TIP_ON_unit_pocket_left:=41|Track_right:=720|Pocket_profile_bottom_left:=43|Door_cover_strip:=2000|Track_left:=NULL|Roller_profile_right:=491|Pocket_profile_bottom_right:=493|Pocket_cover_strip_single_do:=0|Pocket_cover_strip_double_do:=1912|Pocket_profile_top_right:=493|Roller_profile_left:=41|Pocket_profile_top_left:=43") ]]>