{
==========================================================================
PROGRAMA      : IRPRRP005
OBJETIVO      : Catalagogo de Repuestos con Existencias
REALIZADO POR : JUAN F. SOTO
FECHA         : DICIEMBRE 1, 1994.
==========================================================================
}
DATABASE marmotech    
GLOBALS
 DEFINE trx RECORD LIKE irtb00006.*
 DEFINE p_fecha1,p_fecha2 DATE,
        cantidad DECIMAL(12,2),
        opt1 CHAR(1)

 DEFINE datos RECORD
        cod_n      SMALLINT,
        cod_grupo  SMALLINT,
        cod_tipo   SMALLINT,
        cod_sec    SMALLINT,
        cantidad   DECIMAL(12,2)
 END RECORD

END GLOBALS

MAIN
CALL cierra()
END MAIN
FUNCTION cierra()

OPTIONS
  PROMPT LINE 12

DISPLAY "R A Y . O . V A C  D O M I N I C A N A, S. A."
AT 1,20
DISPLAY "CIERRE TRANSACCIONES PRODUCTOS TERMINADOS"
AT 2,22

PROMPT "Fecha Inicial, Formato (dd/mm/yy)? " FOR p_fecha1
PROMPT "Fecha Final, Formato (dd/mm/yy)? " FOR p_fecha2
PROMPT "Esta seguro de proceder (S/N)? " FOR opt1

DISPLAY "En Proceso... Espere Por Favor" AT 23,1 ATTRIBUTE (BOLD)

# Introduce Informacion al Historico
INSERT INTO irtb00003 SELECT *FROM irtb00006
WHERE fecha between p_fecha1 and p_fecha2

# Borra las Informacion del historico
DELETE FROM irtb00006 WHERE fecha between p_fecha1 and p_fecha2

DECLARE busca CURSOR FOR
SELECT cod_n,cod_grupo,cod_tipo,cod_sec,sum(cantidad_2) 
FROM irtb00003
WHERE fecha <= p_fecha2 and status_t is null GROUP BY 1,2,3,4

FOREACH busca INTO datos.*

 INSERT INTO irtb00006(num_doc,fecha,cod_mov,cod_n,cod_grupo,cod_tipo,cod_sec,
                       cantidad_2,us_crea,fech_crea)
 VALUES (1,p_fecha2,99,datos.cod_n,datos.cod_grupo,datos.cod_tipo,datos.cod_sec,
         datos.cantidad,user,current)

END FOREACH
END FUNCTION