52 lines
1.6 KiB
Plaintext
52 lines
1.6 KiB
Plaintext
{
|
|
------------------------------------------------------------------------------
|
|
PROGRAMA : CPPRRP008
|
|
OBJETIVO : Reportar los suplidores con saldos en cero
|
|
PROGRAMADOR : Juan soto
|
|
FECHA : Octubre 28, 1993"
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
database juviar end
|
|
define variable fecha date end
|
|
input
|
|
prompt for fecha using "Entre fecha del reporte " end
|
|
output report to printer end
|
|
select
|
|
b.cod_sp,
|
|
b.cod_sp_sec,
|
|
b.nom_sp,
|
|
sum(a.valor) valor
|
|
from cotb00001 b,outer cptb00001 a
|
|
where b.cod_sp = a.cod_sp and
|
|
b.cod_sp_sec = a.cod_sp_sec and
|
|
a.status_t is null and
|
|
b.status_t is null and
|
|
a.fecha_orig >= $fecha
|
|
group by 1,2,3
|
|
having sum(a.valor) = 0
|
|
order by 2 end
|
|
|
|
format
|
|
page header
|
|
print column 1, "cpprrp008"
|
|
print column 17, "R A Y .O. V A C D O M I N I C A N A, S. A.",
|
|
column 70, today using "dd/mm/yy"
|
|
print column 29, "REPORTE SALDO EN CERO",
|
|
column 70, time
|
|
print column 34, "AL ",fecha using "dd/mm/yy"
|
|
skip 2 lines
|
|
print column 1, "Suplidores",
|
|
column 50,"Balance"
|
|
print column 1, "--------",
|
|
column 50,"-------"
|
|
|
|
skip 2 lines
|
|
on every row
|
|
print column 1, cod_sp using "&&","-",cod_sp_sec using "&&&&",
|
|
2 spaces,nom_sp,
|
|
column 53, valor using "##.##"
|
|
on last row
|
|
print column 1, "Total de registros impresos==> ",
|
|
count using "#,###"
|
|
end
|