18 lines
372 B
Plaintext
18 lines
372 B
Plaintext
MAIN
|
|
|
|
CONNECT TO "smarmotech" USER 'root' USING ''
|
|
|
|
CALL importa()
|
|
END MAIN
|
|
FUNCTION importa()
|
|
DEFINE proceso STRING
|
|
DISPLAY "EN PROCESO DGII0"
|
|
WHENEVER ERROR CONTINUE
|
|
BEGIN WORK
|
|
DELETE FROM empresas
|
|
LOAD FROM 'DGII_RNC.TXT' INSERT INTO empresas
|
|
COMMIT WORK
|
|
# PREPARE importar FROM proceso
|
|
# EXECUTE importar
|
|
DISPLAY "TERMINE"
|
|
END FUNCTION |