Windev21 Aulas,Estudos e Desenvolvimento

quinta-feira, 26 de fevereiro de 2015

---------------------------------------------------------------------------------------------------------------
Combox - Editavel
Combox - Ensinando
Combox - Estado Grava Uf
Combox - Limpar informações
Combox - Popular Manualmente
Combox - Selecionar
---------------------------------------------------------------------------------------------------------------

http://doc.windev.com/en-US/?1013023&name=combo_box_control

1. Combo box Automatico

==============================================================
2. Combo Box Programacao

    Coloca Dados Agenda

   // Limpa Conteudo Combox
ListDeleteAll(COMBO_programação)
// Mostra Id e Nome da Agenda
gsSQL = [
    SELECT
        sq_agenda.id_agenda as age_id,
        sq_agenda.nome as age_nome
    FROM
            sq_agenda
]
     // Posso acrescentar na lista do combox
ListAdd(COMBO_programação,"Todos Grupos"+TAB+gLink("Todos"))
    // Ler Todos itens Retornados Pelo Select
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
    HReadFirst(gdsQry)
    WHILE NOT HOut()
        // Adiciona cada Iten no combox
        ListAdd(COMBO_programação,gdsQry.age_nome+TAB+gLink(gdsQry.age_id))
        HReadNext(gdsQry)
    END
    HFreeQuery(gdsQry)
END
//COMBO_programação..Sorted=True

---------------------------------------------
Seleciona um item combox

COMBO_programação = "Todos"
ListSelectPlus(COMBO_programação)

---------------------------------------------

=========================================================

3. Combox Tabela

Matos Função - Cpf Validar

VIDEO - PROCEDURE CPF PARA VALIDAR

Aqui vou mostrar com fazer uma rotina/procedure para validar um cpf
e usar isso em outros programas apenas chamando a funcao

------------------------------------------------------------------------------------------------------------------
IF matos_f_cpf_validar(EDT_Id_inscricao_cnpj_cpf)=0 THEN
            Info("Cpf Invalido")
            SetFocus(EDT_Id_inscricao_cnpj_cpf)
        ELSE
            SetFocus(EDT_CAD_Id_razao_social_nome)
        END

------------------------------------------------------------------------------------------------------------------
PROCEDURE matos_f_cpf_validar(pCPF is string)
_CPF    is string
_Peso     is 2-byte unsigned int
_Resto     is 1-byte int
_Digito is 1-byte int
FOR i=1 _TO_ Length(pCPF)
    IF 47 < Asc(pCPF[[i]]) < 58 THEN
        _CPF+=pCPF[[i]]
    END
END
IF Length(_CPF) <> 11 THEN RESULT False
FOR i=1 TO 10
    _Peso = _Peso + (Asc(_CPF[[1 TO 10]][[i]]) -48) * (10-i+2)
END
_Resto = modulo(_Peso,11)
IF _Resto < 2 THEN
    _Digito = 0
ELSE
    _Digito = 11 - _Resto
END
//Trace(pCPF)   // Trace Para Conferencia
//Trace("Val(tmpCPF[[11]])["+_CPF[[11]]+"]")
//Trace("tmpDigito9["+_Digito+"]")
IF Val(_CPF[[11]]) <> _Digito THEN
    RESULT False
ELSE
    RESULT True
END