terça-feira, 9 de setembro de 2014

Windev Cnpj formatado Tabela


Windev Cnpj formatado Tabela

------------- empresa------------
IF Val(TABLE_empresa.COL_jud_fis)=1 THEN // se for juridica
    //TABLE_empresa.COL_IdInscricao_cnpj_cpf..DisplayMask = "99.999.999.9999-99" // nao funciona
    TABLE_empresa.COL_IdInscricao_cnpj_cpf = Left(TABLE_empresa.COL_IdInscricao_cnpj_cpf,2) + "." + Middle(TABLE_empresa.COL_IdInscricao_cnpj_cpf,3,3) + "." + Middle(TABLE_empresa.COL_IdInscricao_cnpj_cpf,6,3) + "." + Middle(TABLE_empresa.COL_IdInscricao_cnpj_cpf,9,4) + "-" + Middle(TABLE_empresa.COL_IdInscricao_cnpj_cpf,13,2)
END

-------- CADASTRO GERAL -----
IF Val(TABLE_cadastro_geral.COL_Juridica_Fisica)=1 THEN // se for juridica
    TABLE_cadastro_geral.COL_IdInscricao_cnpj_cpf = Left(TABLE_cadastro_geral.COL_IdInscricao_cnpj_cpf,2) + "." + Middle(TABLE_cadastro_geral.COL_IdInscricao_cnpj_cpf,3,3) + "." + Middle(TABLE_cadastro_geral.COL_IdInscricao_cnpj_cpf,6,3) + "." + Middle(TABLE_cadastro_geral.COL_IdInscricao_cnpj_cpf,9,4) + "-" + Middle(TABLE_cadastro_geral.COL_IdInscricao_cnpj_cpf,13,2)
END

------  FORNECEDOR --------------
IF Val(TABLE_fornecedor.COL_tipo_jur_fis)=1 THEN // se for juridica
    TABLE_fornecedor.COL_IdInscricao_cnpj_cpf = Left(TABLE_fornecedor.COL_IdInscricao_cnpj_cpf,2) + "." + Middle(TABLE_fornecedor.COL_IdInscricao_cnpj_cpf,3,3) + "." + Middle(TABLE_fornecedor.COL_IdInscricao_cnpj_cpf,6,3) + "." + Middle(TABLE_fornecedor.COL_IdInscricao_cnpj_cpf,9,4) + "-" + Middle(TABLE_fornecedor.COL_IdInscricao_cnpj_cpf,13,2)
END




segunda-feira, 8 de setembro de 2014

Windev Coluna Valor em Branco

x
Como faco para ficar em branco, quando o valor for zero, estou usando current


Quando você configura uma coluna como Currency mesmo que passe um valor nulo (0 ou " "), será exibido a string "$ 0,00".

Se você não quer que um valor nulo seja exibido, a solução é configurar a coluna como Text e tratar por conta própria a exibição dos dados na coluna.

No evento Displaying a row of Table insira o código:

Código: [Selecionar]
IF Val(Tabela[Tabela].ColunaDesejada) = 0 then
   Tabela[Tabela].ColunaDesejada = ""
ELSE
   Tabela[Tabela].ColunaDesejada = NumToString(Val(Tabela[Tabela].ColunaDesejada),"10,2fS")
END








HReadSeekFirst - Ler com Chave

HReadSeekFirst - Ler com Chave

HReset(ncm)
                    HReadSeekFirst(ncm,ncm.id_empresa_antigoid_codigo_ncm_antigo,[material.id_empresa,material.antigo_classificao_fiscal])
                    IF HFound(ncm) THEN
                       Info(ncm.id_ncm)
                    END

http://doc.windev.com/?3044036&lang=en-US&productversion=xxA190056s


sábado, 6 de setembro de 2014

Windev Tabela Coluna - Alterar ou Esconder coluna tempo Execucao

Windev Tabela Coluna - Alterar coluna tempo Execucao



TABLE_duplicata.COL_observacao..Caption = " "

TABLE_duplicata.COL_data_pagamento..Visible=False


quinta-feira, 4 de setembro de 2014

Windev - Tabela - Query - Varias Opcoes

Windev - Tabela - Query - Varias Opcoes

VAMOS CRIAR UMA WINDOW VAZIA

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

VAMOS CRIAR UMA TABELA VAZIA VIA PROGRAMACAO

===========================
 
VAMOS CRIAR UMA QUERY

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

DEPOIS DE CRIADA A QUERY

===========================
 
VAMOS CRIAR UM RADIO BUTTON, QUE SERA CHAMADO DE RADIO_OPCAO
  ONDE CONTERA AS SEGUINTES OPCOES
      Abertas
      Pagas
      Todas

===========================
     
CRIAR UMA NOVA LOCAL_PROCEDURE
  CHAMADA
     MOSTRA_DUPLICATA 
     
TableDeleteAll(TABLE_duplicata)  // LIMPA A TABELA
IF RADIO_OPCAO..Value=1 THEN  // SE OPCAO FOR IGUAL 1 VAI EXECUTAR ESSA OPCAO
    HExecuteQuery(QRY_dup_pagar_aberto) // EXCECUTE A QUERY
    FOR EACH QRY_dup_pagar_aberto   // PERCORRE A QUERY
        TableAddLine(TABLE_duplicata,
        QRY_dup_pagar_aberto.IdDuplicata_Pagar,
        QRY_dup_pagar_aberto.IdEmpresa,
        QRY_dup_pagar_aberto.titulo,
        QRY_dup_pagar_aberto.data_emissao,
        QRY_dup_pagar_aberto.data_vencimento,
        QRY_dup_pagar_aberto.data_pagamento,
        QRY_dup_pagar_aberto.valor_titulo,0) // ADICIONA ESSA LINHA NA TABELA
    END
END
IF RADIO_OPCAO..Value=3 THEN
    cyValor_aberto is currency
    cyValor_pago is currency
    HExecuteQuery(QRY_dup_pagar_todos)
    FOR EACH QRY_dup_pagar_todos
        dAtapagamento is Date
        dAtapagamento = QRY_dup_pagar_todos.data_pagamento
        IF dAtapagamento = "" THEN
            cyValor_aberto = QRY_dup_pagar_todos.valor_titulo
            cyValor_pago = 0
        ELSE
            cyValor_aberto = 0
            cyValor_pago = QRY_dup_pagar_todos.valor_titulo       
        END
        TableAddLine(TABLE_duplicata,
        QRY_dup_pagar_todos.IdDuplicata_Pagar,
        QRY_dup_pagar_todos.IdEmpresa,
        QRY_dup_pagar_todos.titulo,
        QRY_dup_pagar_todos.data_emissao,
        QRY_dup_pagar_todos.data_vencimento,
        QRY_dup_pagar_todos.data_pagamento,
        cyValor_aberto,
        cyValor_pago)
    END
   
END
TableDisplay(TABLE_duplicata) // MOSTRA TODA TABELA


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





































quarta-feira, 3 de setembro de 2014

Windev Duplicata Busca fornecedores

Para fazer uma busca de cadastro Vision

Criar um botao
Criar uma vision Fornecedor ou buscar uma que ja exista
Entrar no codigo da vision
e digitar

IF Open(WIN_VISION_fornecedor) = True THEN
    ListDisplay(COMBO_IdFornecedor,taCurrentFirst)
    EDT_IdFornecedor=COMBO_IdFornecedor
END









Teste

Teste
teste