Index: APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml =================================================================== diff -u -r72149 -r72369 --- APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml (.../IngegevenKenmerkenNaarImosDataConverter.cls.xml) (revision 72149) +++ APPS/Halux/PPS/Document/impl/RVG/VoorbereidingSpecialWorkshop/IngegevenKenmerkenNaarImosDataConverter.cls.xml (.../IngegevenKenmerkenNaarImosDataConverter.cls.xml) (revision 72369) @@ -68,7 +68,7 @@ #dim Value As %String = $Property(RvgKenmerken, PropertyNaam) #dim GeconverteerdeProperty As %String = $Extract(..ConverteerRvgProperty(PropertyNaam, RvgKenmerken),1 ,28) - #dim GeconverteerdeWaarde As %String = ..ConverteerRvgValue(Value, Property) + #dim GeconverteerdeWaarde As %String = $Extract(..ConverteerRvgValue(Value, Property),1 ,50) Set GeconverteerdeWaarde = ##class(TECH.StringUtils).Replace(GeconverteerdeWaarde, "-", "_") Set GeconverteerdeWaarde = ##class(TECH.StringUtils).Replace(GeconverteerdeWaarde, "?", "_") Set GeconverteerdeWaarde = ##class(TECH.StringUtils).Replace(GeconverteerdeWaarde, "/", "_") @@ -342,10 +342,10 @@ Set FrontKleur = ##class(TECH.StringUtils).Replace(FrontKleur, " ", "_") If ($$$HasLength(PocketMateriaal) && $$$HasLength(PocketKleur)) { - Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_POCKET" _ ..#GelijkAanTeken_PocketMateriaal_"_"_PocketKleur_ ..#Delimiter + Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_POCKET" _ ..#GelijkAanTeken_$Extract(PocketMateriaal_"_"_PocketKleur, 1 ,50)_ ..#Delimiter If ($$$Not(RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront())) && ($$$HasLength(FrontMateriaal) && $$$HasLength(FrontKleur)) { - Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_FRONT" _ ..#GelijkAanTeken_FrontMateriaal_"_"_FrontKleur_ ..#Delimiter - Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_POCKET_AND_FRONT" _ ..#GelijkAanTeken_PocketMateriaal_"_"_PocketKleur_"_"_FrontMateriaal_"_"_FrontKleur_ ..#Delimiter + Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_FRONT" _ $Extract(..#GelijkAanTeken_FrontMateriaal_"_"_FrontKleur, 1 ,50)_ ..#Delimiter + Set EtraGeconcateneerdeVelden = EtraGeconcateneerdeVelden _ "BOARD_MATERIAL_POCKET_AND_FRONT" _ $Extract(..#GelijkAanTeken_PocketMateriaal_"_"_PocketKleur_"_"_FrontMateriaal_"_"_FrontKleur, 1 ,50)_ ..#Delimiter } }