Curso WinDev - Pivo - Pvt - 004 - Condição Periodo Data - Dicionário

---

---

Video youtube

---

Nessa aula vou mostrar como fazer condicão datas pivo, e tambem vou mostrar Dicionário

This class will show you how to condition pivo dates, and will also show Dictionary

Cette classe va vous montrer comment conditionner les dates de pivo, et sera également montrer Dictionnaire 

---

http://doc.windev.com/en-US/?1000029008&name=automatic_features_pivot_table_controls

http://doc.pcsoft.fr/fr-FR/?1000029008&name=fonctionnalites_automatiques_des_champs_tableau_croise_dynamique

---

---

Blog - WinDev - Pivo - 001/... - Criar Pivo e Listar
Blog - WinDev - Pivo - 002/... Criar Pivo e Listar Com Sql
Blog - WinDev - Pivo - 003/... Pivo Condição Cliente
Blog - WinDev - Pivo - 004/... condição Periodo Data
Blog - WinDev - Pivo - 005/... Expandir - Recolher
Blog - WinDev - Pivo - 006/... Marcar Cor com condições no Valor
Blog - WinDev - Pivo - 007/... Exportar Pivo Para Excel 
Blog - WinDev - Pivo - 008/... Filtro no Pivo

---

//Code Sql de Req_Duplicata_recebeR_cliente_Vencimento
SELECT DISTINCT
duplicata_receber.id_empresa_cliente AS cli_empresa_cliente,
cliente.razao_social_nome AS cli_razao_social,
duplicata_receber.data_vencimento AS dup_data_vencimento,
duplicata_receber.valor_titulo AS dup_Valor_titulo
FROM
duplicata_receber
INNER JOIN
cliente ON cliente.id_empresa_cliente = duplicata_receber.id_empresa_cliente
WHERE
duplicata_receber.id_empresa_cliente={parametro_id_empresa_cliente}
AND
duplicata_receber.data_vencimento BETWEEN {parametro_data_inicial} AND {parametro_data_final}

---

---

//Clic sur btn_Calculer

IF SAI_codigo_cliente=0 THEN
    IF SAI_DateDébut="" THEN
        HExecuteQuery(REQ_duplicata_receber_cliente_vencimento,hRequêteDéfaut,Null,Null,Null)
    ELSE
        HExecuteQuery(REQ_duplicata_receber_cliente_vencimento,hRequêteDéfaut,Null,SAI_DateDébut,SAI_DateFin)
    END
ELSE
    IF SAI_DateDébut="" THEN
        HExecuteQuery(REQ_duplicata_receber_cliente_vencimento,hRequêteDéfaut,SAI_codigo_cliente,Null,Null)   
    ELSE
        HExecuteQuery(REQ_duplicata_receber_cliente_vencimento,hRequêteDéfaut,SAI_codigo_cliente,SAI_DateDébut,SAI_DateFin)
    END
END
TCDCalculeTout(TCD_cliente_vencimento)

---

---

---

Desabilitar todos campos formulario

PROCEDURE matos_f_formulario_consulta_desabilitar_campos(_nome_tab)
//esta em utiltarios_matos
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