Procedure Abre_TabDynamic(sWindowName is string<window name>, sCaption, *)
sAlias is string = sWindowName+"|"+sCaption
bEnabled is boolean = NOT KeyPressed(kpControl)
sCurrentAlias is string = TAB_GLOBAL
MyWindow.DisplayEnabled=False
IF TAB_GLOBAL.Visible = False THEN
TAB_GLOBAL.Visible = True
END
IF TabStatus(TAB_GLOBAL,sAlias) = paneNotFound THEN
NewTab is Control <- TabOpen(TAB_GLOBAL,sCaption,sWindowName,MyParameters[3 to])
NewTab..Alias = sAlias
ELSE IF bEnabled
TAB_GLOBAL = sAlias
END
IF NOT bEnabled THEN
TAB_GLOBAL=sCurrentAlias
END
MyWindow.DisplayEnabled=True
Abre_TabDynamic(IW_MEDICAO_FATOR_ABATIMENTO,"ABATIMENTOS MEDIÇÃO")
muda o TAB_GLOBAL pelo nome de seu TAB
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/