VIDEO - ENUMCONTROL
EnumControl (Function) - http://doc.windev.com
Exemplo - http://doc.windev.com
Tambem quero agradecer Jose JOrge Matos
PROCEDURE matos_f_formulario_consulta_desabilitar_campos(_nome_tab)
MyWindow..Title="Consulta"
i is int = 1 //Bloqueia os Controles
nBloqueia is int = 0
_controle is string = EnumControl(MyWindow,i)
WHILE _controle<>""
i++
nBloqueia=0
IF _controle=_nome_tab THEN nBloqueia=1 // Se Controle for Tab Nao Bloqueia
IF _controle="BTN_Cancel" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
IF nBloqueia=0 THEN {_controle}..State = Grayed // Bloquear esses controle
_controle=EnumControl(MyWindow,i)
END
i=0 // bloqueia tudo o que esta dentro do controle
_controle=""
j is int
NbPane is int = {_nome_tab}..Occurrence
TabNum is int = 0
FOR i = 1 TO NbPane
j = 1
_controle = Upper(EnumControl({_nome_tab}[i],j))
WHILE _controle <> ""
j++
nBloqueia=0
IF Left(_controle,11)="BTN_PROXIMO" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
IF Left(_controle,12)="BTN_ANTERIOR" THEN nBloqueia=1 // Se controle for Botao Cancela nao Bloqueia
IF nBloqueia=0 THEN
{_controle}..State=DisplayOnly
{_controle}..Color=LightBlue
END
_controle = Upper(EnumControl({_nome_tab}[i],j))
END
END
//exemplo
//http://doc.windev.com/en-US/?1000003025005&name=enumcontrol_function
//http://doc.windev.com/en-US/?3025005&name=EnumControl#wlanguage_error_ELTPARAGRAPHE000259
---------------------------------------------------------------------
GLOBAL
gn_Tipo_inc_alt_exc is int // 1=inclusao //2=alteracao //3-exclusao //4-consulta
---------------------------------------------------------------------
Na tabela , no botao consulta
// Is a row selected?
IF TableSelect(TABLE_cadastro_geral)=-1 THEN RETURN
gn_Tipo_inc_alt_exc=4
// Open the form of cadastro_geral file in modification mode
Open(WIN_Form_cadastro_geral)
// Refresh the table
TableDisplay(TABLE_cadastro_geral,taCurrentSelection)
---------------------------------------------------------------------
no formulario
IF gn_Tipo_inc_alt_exc =4 THEN matos_f_formulario_consulta_desabilitar_campos("TAB_NoName1")
