RELATORIO MANUAL E GRAFICO

RELATORIO MANUAL E GRAFICO

PROCEDURE RPT_APREDENDO(gID_EMPRESA,gDATA_INICIAL,gDATA_FINAL,gFiltro)
gsSQL = [
    SELECT
        duplicata_pagar.id_duplicata_pagar as dup_id_duplicata_pagar,
        duplicata_pagar.id_empresa as dup_id_empresa,
        duplicata_pagar.id_fornecedor as dup_id_fornecedor,
        fornecedor.nome_fantasia as for_nome_fantasia,
        duplicata_pagar.titulo as dup_titulo,
        duplicata_pagar.data_emissao as dup_data_emissao,
        duplicata_pagar.data_vencimento as dup_data_vencimento,   
        duplicata_pagar.data_pagamento as dup_data_pagamento,   
        duplicata_pagar.valor_titulo as dup_valor_titulo
    FROM duplicata_pagar 
    INNER JOIN FORNECEDOR ON (duplicata_pagar.id_fornecedor=fornecedor.id_fornecedor)
    WHERE duplicata_pagar.id_empresa='%1'
    AND duplicata_pagar.data_pagamento is null
    AND duplicata_pagar.data_vencimento BETWEEN '%2' AND '%3'
    %4
]
gsSQL_FILTRO_1 is string
IF gFiltro="" THEN
    gsSQL_FILTRO_1=""
ELSE
   gsSQL_FILTRO_1="AND duplicata_pagar.id_fornecedor IN ("+gFiltro+")"
END
gsSQL=StringBuild(gsSQL,gID_EMPRESA,gDATA_INICIAL,gDATA_FINAL,gsSQL_FILTRO_1)
//info(gssql)
HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL)
HReadFirst(gdsQry)

======================== reading
IF HOut() THEN
    RESULT False
ELSE
    RESULT True  
END
======================= body
ITEM_id_empresa=gdsQry.dup_id_empresa
ITEM_id_fornecedor=gdsQry.dup_id_fornecedor
ITEM_titulo=gdsQry.dup_titulo
ITEM_data_emissao=gdsQry.dup_data_emissao
ITEM_data_vencimento=gdsQry.dup_data_vencimento
ITEM_data_pagamento=gdsQry.dup_data_pagamento
ITEM_Valor_titulo=gdsQry.dup_valor_titulo
ITEM_nome_fantasia=gdsQry.for_nome_fantasia
HReadNext(gdsQry)