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