Windev21 Aulas,Estudos e Desenvolvimento

terça-feira, 7 de março de 2017

Aula 1085 - WinDev Tabela 051/... - TableDisableFilter

Video no Youtube Se Gostou clique aqui para dar joinha

//Nessa dica de hoje,
//Vou mostrar como resolvi um problema
//nos filtros
//depois de usar o tableenablefilter e mudar
//o tipo de ordem dava problema
//ai usei o tableenablefilter

https://doc.windev.com/en-US/?1000017150&name=TableDisableFilter

//------------------------
//Dentro da Ordem

TableDisableFilter(TABLE_cliente)// Desabilitar Filtros

gn_classificacao=COMBO_Ordem // Razao social =1 // Codigo =2
EDT_PROCURA=""
//Control Alt Espaco
SWITCH gn_classificacao
    CASE 1 // Razão Social
        //EDT_PROCURA..Caption="Nome:"
    TableEnableFilter(TABLE_cliente.COL_razao_social_nome,filterStartsWith,EDT_PROCURA)
    CASE 2 // codigo
        //EDT_PROCURA..Caption="Código:"
        TableEnableFilter(TABLE_cliente.COL_Id_empresa_cliente,filterGreaterOrEqual,0)
    CASE 3 // nome fantasia
        //EDT_PROCURA..Caption="Fantasia:"
        TableEnableFilter(TABLE_cliente.COL_nome_fantasia,filterStartsWith,EDT_PROCURA)
    CASE 4 // cnpjf/cpf
        //EDT_PROCURA..Caption="Cnpj/Cpf:"
        TableEnableFilter(TABLE_cliente.COL_cnpj_cpf,filterStartsWith,EDT_PROCURA)
    CASE 5 // inscricao estadual
        //EDT_PROCURA..Caption="Inscrição:"
        TableEnableFilter(TABLE_cliente.COL_InsEst,filterStartsWith,EDT_PROCURA)
    CASE 6 // Telefone
        //EDT_PROCURA..Caption="Fone:"
        TableEnableFilter(TABLE_cliente.COL_Telefone,filterStartsWith,EDT_PROCURA)
    OTHER CASE
END
mostra_cli(gn_classificacao)
ReturnToCapture(EDT_PROCURA)

//--------------------

PROCEDURE mostra_cli(n_tipo_ordem is int=1)
SWITCH n_tipo_ordem
    CASE 1 // Nome
        QRY_cliente_ler.parametro_ordem="cliente.razao_social_nome "+gs_ordem_consulta // "cliente.razao_social_nome asc"
    CASE 2 // Codigo
        QRY_cliente_ler.parametro_ordem="cliente.id_empresa_cliente "+gs_ordem_consulta
    CASE 3 // Fantasia
        QRY_cliente_ler.parametro_ordem="cliente.nome_fantasia "+gs_ordem_consulta
    CASE 4 // cnpjf/cpf
        QRY_cliente_ler.parametro_ordem="cliente.cnpj_cpf "+gs_ordem_consulta
    CASE 5 // inscricao estadual
        QRY_cliente_ler.parametro_ordem="cliente.inscricao_estadual "+gs_ordem_consulta
    CASE 6 // Telefone
        QRY_cliente_ler.parametro_ordem="cliente.telefone "+gs_ordem_consulta
    OTHER CASE
        QRY_cliente_ler.parametro_ordem="cliente.razao_social_nome "+gs_ordem_consulta
END
IF filtro_somente_cliente_fornecedor=1 THEN
    QRY_cliente_ler.param_somente_cliente=Null
    QRY_cliente_ler.param_somente_fornecedor=Null
ELSE
   IF filtro_somente_cliente_fornecedor=2 THEN
        QRY_cliente_ler.param_somente_cliente=1
        QRY_cliente_ler.param_somente_fornecedor=Null
   ELSE
        QRY_cliente_ler.param_somente_cliente=Null
        QRY_cliente_ler.param_somente_fornecedor=1
   END
END
// gn_somente_cliente_fornecedor=1 // 1=todos 2=Somente Cliente 3=Somente Fornecedore
//1-Normal
//2-Inativo
//3-Bloqueado
//4-Sem Contrato
//5-Todos
IF filtro_situacao=5 THEN // 5=Todos
ELSE
    IF filtro_somente_cliente_fornecedor=1 // todos THEN
        QRY_cliente_ler.param_situacao_cliente=filtro_situacao
        QRY_cliente_ler.param_situacao_fornecedor=filtro_situacao
    ELSE
        IF filtro_somente_cliente_fornecedor=2 THEN //somente clientes
            QRY_cliente_ler.param_situacao_cliente=filtro_situacao
            QRY_cliente_ler.param_situacao_fornecedor=Null
        ELSE // somente fornecedore
            QRY_cliente_ler.param_situacao_cliente=Null
            QRY_cliente_ler.param_situacao_fornecedor=filtro_situacao
        END
    END
END
IF filtro_id_representante=0 THEN
ELSE
    QRY_cliente_ler.Param_representante_inicial=filtro_id_representante // caso nao informar nao executara esse filtro
    QRY_cliente_ler.Param_representante_final=filtro_id_representante
END

HExecuteQuery(QRY_cliente_ler,hQueryDefault)
TableDisplay(TABLE_cliente)

cy_valor_receber is currency=0
cy_valor_pagar is currency=0
cy_valor_diferenca is currency=0

//QRY_cliente_ler

SELECT
    cliente.id_cliente AS cli_id_cliente,
    cliente.foto AS cli_foto,
    cliente.id_empresa_cliente AS cli_id_empresa_cliente,
    cliente.juridica_fisica AS cli_juridica_fisica,
    cliente.cnpj_cpf AS cli_cnpj_cpf,
    cliente.inscricao_estadual AS cli_inscricao_est,
    cliente.razao_social_nome AS cli_razao_social,
    cliente.nome_fantasia AS cli_fantasia,
    cliente.data_cadastro AS cli_data_cadastro,
    cliente.telefone AS cli_telefone,
    cliente.id_empresa_representante AS cli_id_empresa_representante,
    representante.nome AS rep_nome,
    cliente.endereco_cidade AS cli_cidade,
    cliente.endereco_uf AS cli_uf,
    cliente.tabela_cliente AS tab_cli,
    cliente.valor_contrato AS cli_valor_contrato,
    cliente.valor_receber AS cli_valor_receber,
    cliente.valor_pagar AS cli_valor_pagar,
    cliente.tabela_fornecedor AS tab_for,
    cliente.id_centro_custo AS cli_centro_custo,
    cliente.endereco_cmun AS cli_cmun,
    CASE cliente.situacao_cliente
        WHEN 1 THEN ''
        WHEN 2 THEN 'inat.'
        WHEN 3 THEN 'bloq.'
        WHEN 4 THEN 'monit'
        WHEN 5 THEN 's/con'
    END,
    CASE cliente.situacao_fornecedor
        WHEN 1 THEN ''
        WHEN 2 THEN 'inat.'
        WHEN 3 THEN 'bloq.'
        WHEN 4 THEN 'monit'
        WHEN 5 THEN 's/con'
    END
FROM
    cliente
LEFT OUTER JOIN
    representante
    ON cliente.id_empresa_representante=representante.id_Empresa_representante
WHERE
   ( cliente.situacao_cliente={param_situacao_cliente}
     OR
       cliente.situacao_fornecedor={param_situacao_fornecedor} )
AND
    cliente.id_empresa_representante BETWEEN {Param_representante_inicial} AND {Param_representante_final}
AND
    cliente.tabela_cliente={param_somente_cliente}
AND
    cliente.tabela_fornecedor={param_somente_fornecedor}
    ORDER BY {parametro_ordem}

segunda-feira, 6 de março de 2017

Aula 1084 - WinDev String - 036/... - String - Fazer uma Caixa

Video no Youtube Se Gostou clique aqui para dar joinha

//Nessa dica de hoje,
//Vou ensinar como fazer
//com uma String
//Uma caixa
//Para colocar alguns itens Dentro

https://doc.windev.com/en-US/?3024015&name=Functions_for_character_strings

domingo, 5 de março de 2017

Aula 1083 - WinDev Tabela 050/.. - Tabela Ordem Crescente/Decrescente____

Video no Youtube Se Gostou clique aqui para dar joinha

Video Complemtar da aula

https://doc.windev.com/en-US/?2034001&name=SQL_statements

//Nessa dica de hoje,
//Vou Ensinar como colocar
//Em ordem Crescente e Decrescente

//colocar em ordem crescente
gs_ordem_consulta="asc"
mostra_cli(gn_classificacao)
ReturnToCapture(EDT_PROCURA)

//--------------------------
//colocar em ordem descrescente
gs_ordem_consulta="desc"
mostra_cli(gn_classificacao)
ReturnToCapture(EDT_PROCURA)

// ordem crescente
gs_ordem_consulta is string="asc"
mostra_cli(gn_classificacao)

//== monta query
x
PROCEDURE mostra_cli(n_tipo_ordem is int=1)
SWITCH n_tipo_ordem
    CASE 1 // Nome
        QRY_cliente_ler.parametro_ordem="cliente.razao_social_nome "+gs_ordem_consulta // "cliente.razao_social_nome asc"
    CASE 2 // Codigo
        QRY_cliente_ler.parametro_ordem="cliente.id_empresa_cliente "+gs_ordem_consulta
    CASE 3 // Fantasia
        QRY_cliente_ler.parametro_ordem="cliente.nome_fantasia "+gs_ordem_consulta
    CASE 4 // cnpjf/cpf
        QRY_cliente_ler.parametro_ordem="cliente.cnpj_cpf "+gs_ordem_consulta
    CASE 5 // inscricao estadual
        QRY_cliente_ler.parametro_ordem="cliente.inscricao_estadual "+gs_ordem_consulta
    CASE 6 // Telefone
        QRY_cliente_ler.parametro_ordem="cliente.telefone "+gs_ordem_consulta
    OTHER CASE
        QRY_cliente_ler.parametro_ordem="cliente.razao_social_nome "+gs_ordem_consulta
END
HExecuteQuery(QRY_cliente_ler,hQueryDefault)
TableDisplay(TABLE_cliente)

//Query qry_cliente_ler
SELECT
    cliente.id_cliente AS cli_id_cliente,
    cliente.foto AS cli_foto,
    cliente.id_empresa_cliente AS cli_id_empresa_cliente,
    cliente.juridica_fisica AS cli_juridica_fisica,
    cliente.cnpj_cpf AS cli_cnpj_cpf,
    cliente.inscricao_estadual AS cli_inscricao_est,
    cliente.razao_social_nome AS cli_razao_social,
    cliente.nome_fantasia AS cli_fantasia,
    cliente.data_cadastro AS cli_data_cadastro,
    cliente.telefone AS cli_telefone,
    cliente.id_empresa_representante AS cli_id_empresa_representante,
    representante.nome AS rep_nome,
    cliente.endereco_cidade AS cli_cidade,
    cliente.endereco_uf AS cli_uf,
    cliente.tabela_cliente AS tab_cli,
    cliente.valor_contrato AS cli_valor_contrato,
    cliente.valor_receber AS cli_valor_receber,
    cliente.valor_pagar AS cli_valor_pagar,
    cliente.tabela_fornecedor AS tab_for,
    cliente.id_centro_custo AS cli_centro_custo,
    cliente.endereco_cmun AS cli_cmun,
    CASE cliente.situacao_cliente
        WHEN 1 THEN ''
        WHEN 2 THEN 'inat.'
        WHEN 3 THEN 'bloq.'
        WHEN 4 THEN 'monit'
        WHEN 5 THEN 's/con'
    END,
    CASE cliente.situacao_fornecedor
        WHEN 1 THEN ''
        WHEN 2 THEN 'inat.'
        WHEN 3 THEN 'bloq.'
        WHEN 4 THEN 'monit'
        WHEN 5 THEN 's/con'
    END
FROM
    cliente
LEFT OUTER JOIN
    representante
    ON cliente.id_empresa_representante=representante.id_empresa_representante
WHERE
   ( cliente.situacao_cliente={param_situacao_cliente}
     OR
       cliente.situacao_fornecedor={param_situacao_fornecedor} )
AND
    cliente.id_empresa_representante BETWEEN {Param_representante_inicial} AND {Param_representante_final}
AND
    cliente.tabela_cliente={param_somente_cliente}
AND
    cliente.tabela_fornecedor={param_somente_fornecedor}
    ORDER BY {parametro_ordem}

//cliente.razao_social_nome
//cliente.id_empresa_cliente

O segredo está na ultima linha
ORDER BY
e entre chaves coloquei
{ }
parametro_ordem
exemplo:
order by asc -> por ordem crescente
order by desc -> por ordem decresente

sábado, 4 de março de 2017

Aula 1082 - WinDev ListBox 013/.. - ListBox Ver se Existe - ListSeek

Video no Youtube Se Gostou clique aqui para dar joinha

//Nessa dica de hoje,
//vou mostrar como procurar,
//para ver se existe ou nao no listbok

// http://doc.windev.com/en-US/?3049003&name=listseek_function
s_Existe_ is string=ListSeek(LISTE_EstadosProgramacao,SAI_Uf)

IF s_Existe_ <> -1 THEN
    // quer quizer que existe
    Info("Existe"+LISTE_EstadosProgramacao)
ELSE
    Info("Nao Existe Tabela")
END

// http://doc.windev.com/en-US/?3049003&name=listseek_function

s_Existe_ is string=ListSeek(LISTE_EstadosProgramacao,SAI_Uf)

IF s_Existe_ <> -1 THEN
    // quer quizer que existe
    Info("Existe"+LISTE_EstadosProgramacao)
ELSE
    Info("Nao Existe Tabela")
END