Windev21 Aulas,Estudos e Desenvolvimento: fevereiro 2017

terça-feira, 28 de fevereiro de 2017

Nessa aula vou mostrar Diversos Filtros e Ordem
vou Fazer filtros por Letras
Filtros maior,menor,etc..
Ordem diversas na mesma query

-- Select

SELECT
    cliente.id_cliente AS cli_id_cliente,
    cliente.foto AS cli_foto,
    cliente.id_empresa_cliente AS cli_id_empresa_cliente
FROM
    cliente
ORDER BY {parametro_ordem}

--cliente.razao_social_nome
--cliente.id_empresa_cliente

-- Segredo = no lado do order by , fiz um parametro
//----------------------------------------

//codigo da windows
gn_classificacao is int=1
mostra_cli(gn_classificacao)

//Selection a row of combo_ordem
gn_classificacao=COMBO_Ordem // Razao social =1 // Codigo =2
EDT_PROCURA=""
//Control Alt Espaco
SWITCH gn_classificacao
    CASE 1 // Razão Social
        TableEnableFilter(TABLE_cliente.COL_razao_social_nome,filterStartsWith,EDT_PROCURA)
    CASE 2 // codigo
        TableEnableFilter(TABLE_cliente.COL_Id_empresa_cliente,filterGreaterOrEqual,0)
    CASE 3 // nome fantasia
        TableEnableFilter(TABLE_cliente.COL_nome_fantasia,filterStartsWith,EDT_PROCURA)
    CASE 4 // cnpjf/cpf
        TableEnableFilter(TABLE_cliente.COL_cnpj_cpf,filterStartsWith,EDT_PROCURA)
    CASE 5 // inscricao estadual
        TableEnableFilter(TABLE_cliente.COL_InsEst,filterStartsWith,EDT_PROCURA)
    CASE 6 // Telefone
        TableEnableFilter(TABLE_cliente.COL_Telefone,filterStartsWith,EDT_PROCURA)
    OTHER CASE
END
mostra_cli(gn_classificacao)
ReturnToCapture(EDT_PROCURA)
//-----------------------------

//Whenever modifying edt_procura
SWITCH gn_classificacao
    CASE 1 // Razão Social
        TableEnableFilter(TABLE_cliente.COL_razao_social_nome,filterContains,EDT_PROCURA)// IF CBOX_Procurarazao=True
    CASE 2 // codigo
        TableEnableFilter(TABLE_cliente.COL_Id_empresa_cliente,filterEqual,EDT_PROCURA)
    CASE 3 // nome fantasia
        TableEnableFilter(TABLE_cliente.COL_nome_fantasia,filterContains,EDT_PROCURA)// IF CBOX_Procurarazao=True
    CASE 4 // cnpjf/cpf
        TableEnableFilter(TABLE_cliente.COL_cnpj_cpf,filterContains,EDT_PROCURA)
    CASE 5 // inscricao estadual
        TableEnableFilter(TABLE_cliente.COL_InsEst,filterContains,EDT_PROCURA)
    CASE 6 // Telefone
        TableEnableFilter(TABLE_cliente.COL_Telefone,filterContains,EDT_PROCURA)
    OTHER CASE
END

// Filtro Letras

PROCEDURE filtro_letra(s_recebe_letra is string="") // a ou b ou c , etc..
//Inicio
TableEnableFilter(TABLE_cliente.COL_razao_social_nome,filterStartsWith,s_recebe_letra)

//Para cada letra coloque abaixo
filtro_letra("A")
//---------------------------------------

//Igual
SWITCH gn_classificacao
    CASE 1 // Razão Social
        TableEnableFilter(TABLE_cliente.COL_razao_social_nome,filterEqual,EDT_PROCURA)// IF CBOX_Procurarazao=True
    CASE 2 // codigo
        TableEnableFilter(TABLE_cliente.COL_Id_empresa_cliente,filterEqual,EDT_PROCURA)
    CASE 3 // nome fantasia
        TableEnableFilter(TABLE_cliente.COL_nome_fantasia,filterEqual,EDT_PROCURA)// IF CBOX_Procurarazao=True
    CASE 4 // cnpjf/cpf
        TableEnableFilter(TABLE_cliente.COL_cnpj_cpf,filterEqual,EDT_PROCURA)
    CASE 5 // inscricao estadual
        TableEnableFilter(TABLE_cliente.COL_InsEst,filterEqual,EDT_PROCURA)
    CASE 6 // Telefone
        TableEnableFilter(TABLE_cliente.COL_Telefone,filterEqual,EDT_PROCURA)
    OTHER CASE
END

//Menor ou Igual
// filterLessOrEqual

//Menor
// filterLess

//Maior ou igual
// filterGreaterOrEqual

//Maior
//filterGreater

//Contem
//filterContains

//Inicio
// filterStartsWith

//Final
//filterEndsWith

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"
    CASE 2 // Codigo
        QRY_cliente_ler.parametro_ordem="cliente.id_empresa_cliente"
    CASE 3 // Fantasia
        QRY_cliente_ler.parametro_ordem="cliente.nome_fantasia"
    CASE 4 // cnpjf/cpf
        QRY_cliente_ler.parametro_ordem="cliente.cnpj_cpf"
    CASE 5 // inscricao estadual
        QRY_cliente_ler.parametro_ordem="cliente.inscricao_estadual"
    CASE 6 // Telefone
        QRY_cliente_ler.parametro_ordem="cliente.telefone"
    OTHER CASE
        QRY_cliente_ler.parametro_ordem="cliente.razao_social_nome"
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

segunda-feira, 27 de fevereiro de 2017

Aula 1077 - WinDev Dicas 018/... - Static - Apertando ALT - Altera Borda

Video no Youtube Se Gostou clique aqui para dar joinha

Essa dica de Hoje Agradeco ao Grande Amigo Wladimir

Ficando em Cima do Controle Static
Apertando a tecla ALT
no lado vai aparecer para configurar Borda

Backup e Restore Projeto Windev - 001
Dicionario e Supecontrole - 002
Cd - CdEject CdList - Abre e Lista CD - 003
Dicionario e SuperControle - 004
Cnpj - Formatar com Pontos Barra Ifen - 005
Controlfindhighlight - Pesquizar Palavras entre edts - 006
Som - Emitir - Beep - 007
Valor Minimo e Maximo - MinValue / MaxValue - Dicas - 008
Vazio - Empty - Ver se combox,tabela,ou etc Esta Vazio - 009 - Dicas
Pdf - Ler Pdf com Active X - 010
Baixar Titulos Contas Receber - Dica - 011
Saldo Anterior Caixa - Como Calcular - Dica - 012
Anos - Mostrar Anos Pagamentos Recebimentos - Dica - 013
Mes Por Extenso - MonthNumberInAlpha - Dicas - 014
Clone Tabela - Meses com Varios Anos - Dicas - 015
Tecla Atalho - Control + Alt + Espaco - WinDev - dicas - 016/...
ControleCreate - Criar bloco Notas - Notes - WinDev - Dicas - 017/...
Alt - Static - Apertando Alt em Cima Static - Altera borda - Windev - Dicas 018/...
Guardar Valor - WinDev - Dicas 019/...

domingo, 26 de fevereiro de 2017

Aula 1076 - Windev Tabela - 048/... - Bloquear ou Liberar Lupa/Mover Coluna Tabela

Video no Youtube Se Gostou clique aqui para dar joinha

Hoje Minha dica
é como colocar ou eliminar
Lupa nas colunas
Movimentar ou não as colunas

Tambem vou Mostrar Novidade No WinDev22
Poder selecionar as colunas, que não serão exportadas

help1

sábado, 25 de fevereiro de 2017

Aula 1075 - Windev Window - 008/... - Criar Window Cadastrar Veiculo

Video no Youtube Se Gostou clique aqui para dar joinha

Help1

//Rotina para chamar janela com parametros
veiculo_cadastra()
INTERNAL PROCEDURE veiculo_Cadastra()
    HReadSeekFirst(veiculo,id_placa,EDT_Veiculo_placa)
    IF HFound(veiculo) THEN
    ELSE

         _placa is string=EDT_Veiculo_placa
        _id_empresa_cliente is int=cliente.id_empresa_cliente
        _cnpj is string=cliente.cnpj_cpf
        Open(WIN_cadastrar_veiculo,_placa,_id_empresa_cliente,_cnpj)
    end
end

//---------------------
//Cadastrar o veiculo
HReadSeekFirst(veiculo,id_placa,EDT_Id_placa) //Ler veiculo para ver se placa existe
IF HFound(veiculo) THEN //Se encontrou não faz nada
    Info("Veiculo já existe")
ELSE //Cadastrar veiculo
    HReset(veiculo)
    veiculo.marca=EDT_Marca
    veiculo.cor=EDT_Cor
    veiculo.ano_modelo=EDT_Ano_modelo
    veiculo.ano_fabricacao=EDT_Ano_fabricacao
    veiculo.id_placa=EDT_Id_placa
    veiculo.id_cliente=EDT_Id_cliente
    veiculo.descricao=EDT_Id_placa
    veiculo.cnpj_cpf_cliente=EDT_Cnpj_cpf_cliente
    //colocando os dados no veiculo
    HAdd(veiculo) // Gravar novo veiculo
    Info("Veiculo Cadastrado Com Sucesso")
END
Close(WIN_cadastrar_veiculo) //Fechando janela