66 lines
1.7 KiB
Plaintext
66 lines
1.7 KiB
Plaintext
{
|
|
==========================================================================
|
|
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
|