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
===========================
