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