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

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

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

Windev Ancorar coluna Dentro da Tabela

Windev Ancorar coluna Dentro da Tabela

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


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

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

Select

Select