Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,137 @@
+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