33 lines
563 B
Plaintext
33 lines
563 B
Plaintext
GLOBALS
|
|
DEFINE usuarios,clave CHAR(50)
|
|
END GLOBALS
|
|
|
|
MAIN
|
|
DEFINE carga STRING
|
|
DEFER INTERRUPT
|
|
|
|
|
|
CALL startlog("impdgii.log")
|
|
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
|
|
CONNECT TO "decomarmol" USER usuarios USING clave
|
|
|
|
|
|
|
|
LET carga = 'DELETE FROM DGII.dbo.DGII_RNC'
|
|
PREPARE borra FROM carga
|
|
EXECUTE borra
|
|
|
|
|
|
|
|
LET carga ='f:\\DGII_RNC3.csv'
|
|
|
|
LOAD FROM carga DELIMITER ',' INSERT INTO DGII_RNC(rnc,column1)
|
|
|
|
|
|
CALL fgl_winmessage("CARGA","PRODCESO TERMINADO","STOP")
|
|
CLOSE WINDOW w1
|
|
END MAIN
|