34 lines
901 B
Plaintext
34 lines
901 B
Plaintext
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 |