SCHEMA dbdgii
GLOBALS
  DEFINE usuarios,clave STRING
END GLOBALS

MAIN
   DEFER INTERRUPT
   CALL STARTLOG("dgii.log")
   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave
   
   CONNECT to "smarmotech_dgi" USER  usuarios USING clave

   CALL import_empresas() 
END MAIN
FUNCTION import_empresas()
  DEFINE pempresas_t RECORD LIKE empresastmp.*,
  idx INT
  
  DECLARE  BUSCA CURSOR FOR
     SELECT * FROM empresastmp
     LET idx = 0
     DISPLAY "EN PROCESO...."
     FOREACH busca INTO pempresas_t.*

       SELECT A.RNC FROM empresas a WHERE a.rnc = pempresas_t.rnc
       IF STATUS = NOTFOUND THEN
          INSERT INTO empresas VALUES (pempresas_t.*)
          DISPLAY "INSERTE ",pempresas_t.rnc," ",pempresas_t.nombre_empresa
          LET idx = idx + 1
       END IF
     END FOREACH
     DISPLAY "REGISTROS ADICIONADOS = ",idx
END FUNCTION