Index: BL/Prod/sub/pxVoorraadIdentificatie.cls.xml =================================================================== diff -u -r40889 -r41220 --- BL/Prod/sub/pxVoorraadIdentificatie.cls.xml (.../pxVoorraadIdentificatie.cls.xml) (revision 40889) +++ BL/Prod/sub/pxVoorraadIdentificatie.cls.xml (.../pxVoorraadIdentificatie.cls.xml) (revision 41220) @@ -124,7 +124,7 @@ Set ..BasisType=$S(BasisType?1"BODEM".E:"BODEM", BasisType?1"RUG".E:"RUG", 1:BasisType) Set ..BasisTypeOms=$S(..BasisType=BasisType:"", 1:BasisType) Set KleurDelim=" / " - Do ..ZetKleur(KleurDelim) + Do ..ZetKleur("TB",KleurDelim) Do ..ZetAfmeting() Do:(..BasisType="BODEM") ..MaakKorteVersieBodemKleur(KleurDelim) } @@ -141,6 +141,7 @@ If $L(KenmerkWaarde) { Set ..BasisType = "BODEM" Set ..Afmeting = "D "_KenmerkWaarde + Do ..ZetKleur("LBX_PPS_Bodem") } ]]> @@ -154,6 +155,7 @@ Set ..BasisType = "RUG" #dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure()) Set ..Afmeting = "H "_RugUtils.GeefRugHoogteInMm(KenmerkWaarde) + Do ..ZetKleur("LBX_PPS_Rug") } ]]> @@ -214,7 +216,7 @@ Set ..BasisType=$S(HKOnderdeel?1"HK".E:$E(HKOnderdeel,3,99), 1:HKOnderdeel) Set ..BasisType=$$$Trim($TR(..BasisType,"_"," ")) Set ..BasisTypeOms=BasisType - Do ..ZetKleur() + Do ..ZetKleur("TB",) Set RugHoogte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",PRNr,"RugHoogte"),1) If RugHoogte'="" { Set ..Afmeting=RugHoogte @@ -227,11 +229,12 @@ -Delim:%String +GroepID:%String,Delim:%String="\"