66 lines
1.6 KiB
Plaintext
66 lines
1.6 KiB
Plaintext
{
|
|
=============================================================================
|
|
PROGRAMA : VEPRMT008
|
|
OBJETIVO : BORRAR LAS FACTURAS DE ANOS ANTERIORES
|
|
PROGRAMADOR : JUAN F. SOTO
|
|
FECHA : DICIEMBRE 19, 1994.
|
|
=============================================================================
|
|
}
|
|
DATABASE marmotech
|
|
GLOBALS
|
|
DEFINE tabla2 RECORD LIKE vetb00002.*
|
|
DEFINE tabla3 RECORD LIKE vetb00003.*
|
|
DEFINE p_ano SMALLINT
|
|
DEFINE fecha1,fecha2 DATE
|
|
DEFINE decide CHAR(1),
|
|
reg INTEGER
|
|
|
|
END GLOBALS
|
|
MAIN
|
|
CALL veprmt08()
|
|
END MAIN
|
|
|
|
FUNCTION veprmt08()
|
|
OPTIONS
|
|
ERROR LINE 24,
|
|
PROMPT LINE 12
|
|
CLEAR SCREEN
|
|
DISPLAY "R A Y .O. V A C D O M I N I C A N A, S. A." AT 1,15
|
|
DISPLAY "CIERRE FACTURACION" AT 2,20
|
|
|
|
PROMPT "Entre Ano a Cerrar? " FOR p_ano
|
|
PROMPT "Esta Seguro de Seguir(S/N)? " FOR decide
|
|
LET decide = upshift(decide)
|
|
IF decide = "N" THEN
|
|
RETURN
|
|
END IF
|
|
SELECT fecha_inicio INTO fecha1
|
|
FROM prdtable
|
|
WHERE mes = 1 AND ano = p_ano
|
|
|
|
SELECT fecha_corte INTO fecha2
|
|
FROM prdtable
|
|
WHERE mes = 12 AND ano = p_ano
|
|
|
|
DECLARE busca CURSOR FOR
|
|
SELECT *FROM vetb00002
|
|
WHERE fecha_factura between fecha1 and fecha2
|
|
|
|
FOREACH busca INTO tabla2.*
|
|
INSERT INTO vetb00034 values (tabla2.*)
|
|
END FOREACH
|
|
|
|
DECLARE busca1 CURSOR FOR
|
|
SELECT a.rowid,a.* FROM vetb00003 a,vetb00002 b
|
|
WHERE b.fecha_factura between fecha1 and fecha2 and
|
|
a.factura = b.factura and
|
|
a.fech_crea between b.fech_crea and b.fech_crea
|
|
|
|
FOREACH busca1 INTO reg,tabla3.*
|
|
INSERT INTO vetb00035 values (tabla3.*)
|
|
DELETE FROM vetb00003 WHERE rowid = reg
|
|
END FOREACH
|
|
|
|
DELETE FROM vetb00002 WHERE fecha_factura between fecha1 and fecha2
|
|
END FUNCTION
|