Index: BL/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r22 -r45 --- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 22) +++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 45) @@ -1072,7 +1072,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(WSLn.ItemOPVL)) tmpLB=tmpLB_$LB("OPVL",##class(cspBasis.GAProdTBox).WebTextValue("Opvullijst",actTaal,"L")_": "_WSLn.ItemOPVL) - Set:($$$isBulkVPK ) tmpLB=tmpLB_$LB("VPK",##class(cspBasis.GAProdTBox).WebTextValue("VerpakBulk",actTaal,"L")_" - "_WSLn.ItemVPK) + 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) Quit tmpLB Index: csp/vhisie/TBX/Main/tmpDev.mac.rou =================================================================== diff -u -r25 -r45 --- csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 25) +++ csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 45) @@ -544,7 +544,7 @@ . ; Button SubmitToAdmin . Do:(%RemoteIP?1(1"192.168.".E,1"127.0.0.1")) MShowSubmitAdminVerw(TBXContext.IsDomeinVHEPN()||(VERW="VHEPN"),WSOrd) . ; Button ChangeBulk - . Set arShow("ChangeBulk","BTN")=(%RemoteIP?1"192.168.".E) + . Set arShow("ChangeBulk","BTN")=(%RemoteIP?1(1"192.168.".E,1"127.0.0.1")) . If arShow("ChangeBulk","BTN") Do . . Do ophOrdToAdminSetSesData . . Set arShow("ChangeBulk","EXPAND")=blnAllowBulk