Windev Bloqueio Campo EnumControl

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")

---