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


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





































Teste

Teste
teste