137 lines
2.8 KiB
Plaintext
137 lines
2.8 KiB
Plaintext
DEFINE creacion,selec STRING
|
|
MAIN
|
|
|
|
#CONNECT TO "db_cedulados+dbmsnc_11" AS "MSSQL"
|
|
|
|
#CONNECT TO "movilsoluciones+dbmmys_5_7" AS "MYSQL"
|
|
CONNECT TO "sqlcedula" AS "MSSQL"
|
|
CONNECT TO "cedula" AS "MYSQL"
|
|
|
|
LET creacion ="
|
|
|
|
CREATE TABLE CEDULADOS(
|
|
MUN_CED varchar(3) NULL,
|
|
SEQ_CED varchar(7) NULL,
|
|
VER_CED varchar(1) NULL,
|
|
NOMBRES varchar(30) NULL,
|
|
APELLIDO1 varchar(30) NULL,
|
|
APELLIDO2 varchar(30) NULL,
|
|
FECHA_NAC datetime NULL,
|
|
LUGAR_NAC varchar(30) NULL,
|
|
CALLE varchar(25) NULL,
|
|
CASA varchar(5) NULL,
|
|
EDIFICIO varchar(25) NULL,
|
|
PISO varchar(2) NULL,
|
|
APTO varchar(5) NULL,
|
|
TELEFONO varchar(20) NULL,
|
|
COD_MUNICIPIO varchar(3) NULL,
|
|
COD_CIUDAD varchar(2) NULL,
|
|
COD_SECTOR varchar(4) NULL,
|
|
COD_PIEL numeric(2, 0) NULL,
|
|
COD_SANGRE numeric(2, 0) NULL,
|
|
SEXO varchar(1) NULL,
|
|
COD_PROF numeric(3, 0) NULL,
|
|
EST_CIVIL varchar(1) NULL,
|
|
NPADRE varchar(40) NULL,
|
|
NMADRE varchar(40) NULL,
|
|
ESTATUS varchar(1) NULL,
|
|
CEDULA VARCHAR(13))
|
|
|
|
|
|
"
|
|
#SET CONNECTION "MYSQL"
|
|
#PREPARE comando FROM creacion
|
|
#EXECUTE comando
|
|
SET CONNECTION "MSSQL"
|
|
LET selec = "SELECT MUN_CED,
|
|
SEQ_CED,
|
|
VER_CED ,
|
|
NOMBRES ,
|
|
APELLIDO1 ,
|
|
APELLIDO2 ,
|
|
FECHA_NAC ,
|
|
LUGAR_NAC ,
|
|
CALLE ,
|
|
CASA ,
|
|
EDIFICIO ,
|
|
PISO ,
|
|
APTO ,
|
|
TELEFONO ,
|
|
COD_MUNICIPIO ,
|
|
COD_CIUDAD ,
|
|
COD_SECTOR ,
|
|
COD_PIEL ,
|
|
COD_SANGRE ,
|
|
SEXO ,
|
|
COD_PROF ,
|
|
EST_CIVIL ,
|
|
NPADRE ,
|
|
NMADRE ,
|
|
ESTATUS ,
|
|
CEDULA
|
|
FROM cedulados
|
|
"
|
|
DISPLAY "INICIO "
|
|
UNLOAD TO "cedulados.csv" selec
|
|
DISPLAY "TERMINE"
|
|
|
|
|
|
SET CONNECTION "MYSQL"
|
|
DISPLAY "mysql inicio"
|
|
DELETE FROM cedulados
|
|
LOAD FROM "cedulados.csv" INSERT INTO cedulados
|
|
DISPLAY "mysql termino"
|
|
|
|
#CALL insertar()
|
|
|
|
END MAIN
|
|
|
|
FUNCTION insertar()
|
|
DEFINE cedulas dynamic ARRAY OF RECORD
|
|
MUN_CED varchar(3) ,
|
|
SEQ_CED varchar(7),
|
|
VER_CED varchar(1) ,
|
|
NOMBRES varchar(30),
|
|
APELLIDO1 varchar(30) ,
|
|
APELLIDO2 varchar(30) ,
|
|
FECHA_NAC DATETIME YEAR TO minute ,
|
|
LUGAR_NAC varchar(30) ,
|
|
CALLE varchar(25) ,
|
|
CASA varchar(5) ,
|
|
EDIFICIO varchar(25) ,
|
|
PISO varchar(2) ,
|
|
APTO varchar(5) ,
|
|
TELEFONO varchar(20) ,
|
|
COD_MUNICIPIO varchar(3) ,
|
|
COD_CIUDAD varchar(2) ,
|
|
COD_SECTOR varchar(4) ,
|
|
COD_PIEL numeric(2, 0) ,
|
|
COD_SANGRE numeric(2, 0) ,
|
|
SEXO varchar(1) ,
|
|
COD_PROF numeric(3, 0) ,
|
|
EST_CIVIL varchar(1) ,
|
|
NPADRE varchar(40) ,
|
|
NMADRE varchar(40) ,
|
|
ESTATUS varchar(1) ,
|
|
CEDULA VARCHAR(13)
|
|
|
|
END RECORD,
|
|
i int
|
|
|
|
SET CONNECTION "MSSQL"
|
|
DECLARE buscar CURSOR FOR
|
|
SELECT * FROM cedulados
|
|
|
|
LET i = 1
|
|
DISPLAY "EN PROCESO"
|
|
FOREACH buscar INTO cedulas[i].*
|
|
LET i = i + 1
|
|
END FOREACH
|
|
DISPLAY "TERMINE DE LEER DATOS"
|
|
|
|
SET CONNECTION "MYSQL"
|
|
FOR i = 1 TO cedulas.getLength()
|
|
INSERT INTO cedulados VALUES (cedulas[i].*)
|
|
END FOR
|
|
|
|
END FUNCTION |