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