Index: BL/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r738 -r754 --- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 738) +++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 754) @@ -1176,6 +1176,7 @@ #define ASMcond (WSLn.ItemASM?1(1A,3.E)) #define FScond (WSLn.ItemFS'?1(1"",1"A")) #define DWVcond (WSLn.ItemDWV'?1(1"",1"0")) + #define AfwijkRugHgt ($L(WSLn.ItemRSTL)) #define isBulkVPK (WSLn.ItemVPK'?1(1"S",1"")) #define TipOnSynchro (..CalcIBFromWSLijn(WSLn)>520) #define Vertaal(%v) ##class(Res.Vertaling).GetVertalingPlus("TBW",%v,"L",actTaal,,1) @@ -1234,6 +1235,7 @@ Set:($$$FScond ) tmpLB=tmpLB_$LB("FS", $$$FCase(##class(Prod.GAMeta.BT.TBFrontSteun).TaalAfhOmsClass("",WSLn.ItemFS,actTaal,,,DC)) ) ; ##class(cspBasis.GAProdTBox).WebTextValue("Frontsteun",actTaal,"L")_": "_WSLn.ItemFS) Set:($$$DWVcond ) tmpLB=tmpLB_$LB("DWV", $$$FCase(##class(Prod.GAMeta.BT.TBDwarsVerdeling).TaalAfhOmsClass("",WSLn.ItemDWV,actTaal,,,DC)) ) ; ##class(cspBasis.GAProdTBox).WebTextValue("Dwarsverdeling",actTaal,"L")_": "_WSLn.ItemDWV) Set:($L(OpvullijstInfo)) tmpLB=tmpLB_$LB("OPVL",OpvullijstInfo) + Set:($$$AfwijkRugHgt ) tmpLB=tmpLB_$LB("RSTL","Verlaagde rug ("_(WSLn.ItemRSTL)_")") Set:($$$isBulkVPK ) tmpLB=tmpLB_$LB("VPK",##class(cspBasis.GAProdTBox).WebTextValue("VerpakBulk",actTaal,"L")_" - "_##class(cspBasis.GAProdTBox).WebTextValue("VPK_"_WSLn.ItemVPK_"_kort",actTaal,"L")) Set:($IsObject(ActieTeksten)) tmpLB=tmpLB_$LB("ACTIE",ActieTeksten.GetNext("")) ; Moet uitgebreid worden naar alle acties, te overlopen met een iterator (added by WimV on 21/12/2010)