89 lines
2.6 KiB
Plaintext
89 lines
2.6 KiB
Plaintext
{
|
|
---------------------------------------------------------------------------
|
|
PROGRAMA : COPRRP102.ACE
|
|
OBJETIVO : BUSCAR LOS RECIBOS DE ENTRADA QUE ENTRAN EN LA PROYECCION
|
|
PROGRAMADOR: JUAN F. SOTO
|
|
FECHA : MARZO 19, 1993
|
|
---------------------------------------------------------------------------
|
|
}
|
|
database rayovac end
|
|
define
|
|
variable fech_in date
|
|
variable fech_fi date
|
|
variable hora char(5)
|
|
variable cierre1 char(2)
|
|
variable tipo1 char(2)
|
|
variable num_oc1 integer
|
|
end
|
|
input
|
|
prompt for fech_in using "Entre Fecha Inicial: "
|
|
prompt for fech_fi using "Entre Fecha Final: "
|
|
end
|
|
|
|
output
|
|
left margin 2
|
|
report to printer
|
|
end
|
|
|
|
select unique
|
|
a.tipo,
|
|
a.num_oc,
|
|
a.cod_n,
|
|
a.cod_grupo,
|
|
a.cod_tipo,
|
|
a.cod_sec,
|
|
d.fecha,
|
|
d.cantidad_2,
|
|
b.descrip_esp,
|
|
b.unidad_med,
|
|
c.cierre
|
|
from cotb00025 a,intb00001 b,cotb00014 c, intb00006 d where
|
|
d.fecha between $fech_in and $fech_fi and
|
|
a.cod_n = b.cod_n and a.cod_grupo = b.cod_grupo and
|
|
a.cod_tipo = b.cod_tipo and a.cod_sec = b.cod_Sec and
|
|
a.cod_n = d.cod_n and a.cod_grupo = d.cod_grupo and
|
|
a.cod_tipo = d.cod_tipo and a.cod_sec = d.cod_sec and
|
|
(a.tipo = c.tipo and a.num_oc = c.num_oc and
|
|
a.tipo = d.tipo and a.num_oc = d.orden_compra) and
|
|
c.status_t is null
|
|
order by 2,3,4,5,6,7 end
|
|
|
|
format
|
|
page header
|
|
let hora = time
|
|
print column 1, "coprrp101",
|
|
column 17, "R A Y .O. V A C D O M I N I C A N A, S. A.",
|
|
column 73, "Pag. ", pageno using "###"
|
|
print column 29, "Sistema de Compras",
|
|
column 73, today using "dd/mm/yy"
|
|
print column 25,"Reporte Entregas Parciales",
|
|
column 76, hora
|
|
skip 1 line
|
|
print column 1, "De: ",fech_in using "dd/mm/yy",
|
|
2 spaces, "A: ",fech_fi using "dd/mm/yy"
|
|
print
|
|
"============================================================================" ,
|
|
"===="
|
|
print column 1, "Orden",
|
|
7 spaces, "Fecha",
|
|
4 spaces, "M a t e r i a l ",
|
|
36 spaces, "Cantidad"
|
|
print
|
|
"============================================================================" ,
|
|
"===="
|
|
skip 1 line
|
|
|
|
on every row
|
|
LET tipo1 = tipo
|
|
let num_oc1 = num_oc
|
|
|
|
print column 1,tipo," ", num_oc using "######",
|
|
1 spaces, fecha using "dd/mm/yy",
|
|
1 spaces, cod_n using "&","-",cod_grupo using "&","-",
|
|
cod_tipo using "&&","-",cod_sec using "&&&",
|
|
1 spaces, descrip_esp," ",unidad_med,
|
|
1 spaces, cantidad_2 using "##,###,###.##"
|
|
after group of 2
|
|
skip 1 line
|
|
end
|