63 lines
3.0 KiB
Plaintext
63 lines
3.0 KiB
Plaintext
GLOBALS
|
|
DEFINE usuario,clave STRING,fecha_trx DATE
|
|
END GLOBALS
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL arg_val(1) RETURNING usuario
|
|
CALL arg_val(2) RETURNING clave
|
|
CONNECT TO "marmotech" AS "IFMX" USER usuario USING clave
|
|
CONNECT TO "smarmotech" AS "SQL_C" USER usuario USING clave
|
|
CALL importar()
|
|
END MAIN
|
|
FUNCTION importar()
|
|
DISPLAY "EN PROCESO...."
|
|
{
|
|
SET CONNECTION "IFMX"
|
|
SELECT CONVERT(CHAR(10),MAX(a.fecha_oc),103) INTO fecha_trx FROM prtb00012 a
|
|
SET CONNECTION "SQL_C"
|
|
|
|
#LET fecha_trx = TODAY - 7
|
|
DISPLAY "fecha ",fecha_Trx
|
|
DISPLAY "CARGANDO PRTB12..."
|
|
UNLOAD TO "prtb12.txt" SELECT a.num_oc,CAST(a.fecha_oc AS VARCHAR(10)),a.nombre_file,a.sec_vend,
|
|
a.tipo_cliente,a.sec_cliente,a.direccion,a.telefono,
|
|
a.cond_pago,a.cantidad_i,a.precio_i,
|
|
a.cantidad_mo,a.precio_mo,a.transporte,a.itbis,a.cotizacion_no,'PROCESO'
|
|
|
|
FROM prtb00012 a,vetb00060 b
|
|
WHERE a.fech_crea>= fecha_trx AND
|
|
a.tipo_cliente = b.tipo_cliente AND
|
|
b.paga_itbis = "S" and
|
|
a.status_t IS null
|
|
DISPLAY "CARGANDO PRTB13... "
|
|
UNLOAD TO "prtb13.txt" SELECT a.num_oc,a.secuencia,a.cod_n,a.cod_grupo,a.cod_tipo,
|
|
a.cod_Sec,a.cantidad,a.precio,a.descuento,'PROCESO'
|
|
FROM prtb00013 a,prtb00012 b,vetb00060 c
|
|
WHERE a.num_oc = b.num_oc AND b.fecha_oc >= fecha_trx AND
|
|
b.tipo_cliente = c.tipo_cliente AND c.paga_itbis = "S" AND
|
|
b.status_t IS null
|
|
|
|
}
|
|
SET CONNECTION "IFMX"
|
|
DISPLAY "IMPORTANDO..."
|
|
SELECT CONVERT(CHAR(10),MAX(a.fecha_oc),103) INTO fecha_trx FROM prtb00012 a
|
|
BEGIN WORK
|
|
DELETE FROM tmpprtb00012
|
|
DELETE FROM tmpprtb00013
|
|
|
|
DELETE FROM prtb00012 WHERE fech_crea >= fecha_trx
|
|
DELETE FROM prtb00013 WHERE fech_crea >= fecha_trx
|
|
|
|
LOAD FROM "prtb12.txt" INSERT INTO TMPprtb00012 (num_oc,fecha_oc,nombre_file,sec_vend,
|
|
tipo_cliente,sec_cliente,direccion,telefono,
|
|
cond_pago,cantidad_i,precio_i,
|
|
cantidad_mo,precio_mo,transporte,itbis,cotizacion_no,us_crea)
|
|
|
|
LOAD FROM "prtb13.txt" INSERT INTO TMPprtb00013 (num_oc,secuencia,cod_n,cod_grupo,cod_tipo,
|
|
cod_Sec,cantidad,precio,descuento,us_crea)
|
|
INSERT INTO prtb00012 SELECT * FROM tmpprtb00012
|
|
INSERT INTO prtb00013 SELECT * FROM tmpprtb00013
|
|
|
|
COMMIT WORK
|
|
DISPLAY "TERMINE..."
|
|
END FUNCTION |