PROCEDURE UI_EsconteMostraTodos(bEsconteMostra is boolean)
Botao,NomeMes is string = "" NumNomeMes, Mes is int
LOOP(12) NumNomeMes++ IF NumNomeMes = 1 THEN NomeMes = "JAN" ELSE IF NumNomeMes = 2 THEN NomeMes = "FEV" ELSE IF NumNomeMes = 3 THEN NomeMes = "MAR" ELSE IF NumNomeMes = 4 THEN NomeMes = "ABR" ELSE IF NumNomeMes = 5 THEN NomeMes = "MAI" ELSE IF NumNomeMes = 6 THEN NomeMes = "JUN" ELSE IF NumNomeMes = 7 THEN NomeMes = "JUL" ELSE IF NumNomeMes = 8 THEN NomeMes = "AGO" ELSE IF NumNomeMes = 9 THEN NomeMes = "SET" ELSE IF NumNomeMes = 10 THEN NomeMes = "OUT" ELSE IF NumNomeMes = 11 THEN NomeMes = "NOV" ELSE IF NumNomeMes = 12 THEN NomeMes = "DEZ" END LOOP(12) Mes ++ Botao = "BTN_"+NomeMes+"_" + NumToString(Mes,"02.00f") IF bEsconteMostra = True {Botao,indControl}..Visible = True ELSE {Botao,indControl}..Visible = False END END Mes = 0 END |