@echo off
echo    éíííííííííííííííííííííííííííííííííííííííííííííííííííííííííí»
echo    º       shapes de los errores encontrados en archivos      º
echo    èíííííííííííííííííííííííííííííííííííííííííííííííííííííííííí¼

for /f "delims=! usebackq" %%c in (`sqlplus -s %conexion% @%path_sql%t`) do set res=%%c
fme.exe %path_fme%errores_archivos.fmw --comuna %res% --destdataset_oracle8i_db orcl_qa --out_user qa_datac --out_password qa_dc
echo  %res%
pause

select nombre_comuna from var_comuna

FOR /F "usebackq delims=!" %%i IN (`sqlplus -s QA_DATAC/qa_dc@orcl_qa @%PATH_SQL%t1`) DO (
set valor= %%I
)

select count(*) from  errores_geom

PROMPT CREATE TABLE comuna
CREATE TABLE comuna (
  id_provincia        NUMBER(5,0)   NULL,
  lat                 NUMBER(11,8)  NULL,
  lon                 NUMBER(11,8)  NULL,
  id_centro_urbano    NUMBER(4,0)   NULL,
  cod_subdere         VARCHAR2(5)   NULL,
  id_comuna           NUMBER(4,0)   NULL,
  id_region           VARCHAR2(4)   NULL,
  nombre_comuna       VARCHAR2(300) NULL,
  poblacion_rural     NUMBER        NULL,
  poblacion_urbana    NUMBER        NULL,
  poblacion_ult_censo NUMBER        NULL,
  codigo_ine          VARCHAR2(10)  NULL
)
/


GRANT ALTER,DEBUG,DELETE,FLASHBACK,INDEX,INSERT,ON COMMIT REFRESH,QUERY REWRITE,REFERENCES,SELECT,UPDATE ON comuna TO configuracion;

PROMPT CREATE OR REPLACE PROCEDURE prueba
CREATE OR REPLACE PROCEDURE prueba(szPAIS IN VARCHAR2)
AS
lpNIVEL3 NUMBER(2,0);
lpNIVEL2 NUMBER(2,0);
lpNIVEL1 NUMBER(2,0);
lpNIVEL5 NUMBER(2,0);
SQL_STR VARCHAR2(1000);
lpCOD_PAIS NUMBER(3,0);
lpNIVEL    NUMBER(3,0);

CURSOR C_TAB_FK IS
                  SELECT TABLE_NAME, OWNER, CONSTRAINT_NAME NOMBRE_FK
                    FROM CONFIGURACION.CONSTRAINTS
                   WHERE CONSTRAINT_TYPE = 'R'
                     AND OWNER = szPAIS
                     AND TABLE_NAME IN (SELECT DISTINCT TABLE_NAME
                                          FROM CONFIGURACION.MAPPAIS_COLUMN
                                         WHERE ESQUEMA =szPAIS
                                           AND FK <> 'N'
                                         )
                     AND CONSTRAINT_NAME <>'AMARRE_DIRECCIONES_AMARRE_FK1'
                    ORDER BY TABLE_NAME;

-- CONTIENE LAS COLUMNAS DE UNA TABLA DONDE SE CREARA LA FK
-- CAMPO FK CONTIENE EL NOMBRE DE LA TABLA QUE SE REFERENCIA
CURSOR C_COL_FK IS
               SELECT COLUMN_NAME, FK, CONSTRAINTS_NAME
                 FROM MAPPAIS_COLUMN
                WHERE FK <> 'N'
                  AND CONSTRAINTS_NAME IN(SELECT NOMBRE
                          FROM CONFIGURACION.MAPPAIS_CNS_LIST)
                  AND ESQUEMA = szPAIS;


--- CONTIENE LAS COLUMNAS QUE SE REFERENCIAN
CURSOR C_COLPRI_FK IS
               SELECT COLUMN_REF
                 FROM MAPPAIS_COLUMN
                WHERE FK <> 'N'
                  AND CONSTRAINTS_NAME IN(SELECT NOMBRE
                          FROM CONFIGURACION.MAPPAIS_CNS_LIST)
                  AND ESQUEMA = szPAIS;

--CURSOR PARA CREAR LAS TABLAS CONTIENE LOS  NOMBRES DE LAS TABLAS DE 'X' ESQUEMA
CURSOR C_TAB IS
               SELECT
                      DISTINCT ESQUEMA,TABLE_NAME
                 FROM
                      CONFIGURACION.MAPPAIS_COLUMN
                WHERE ESQUEMA = szPAIS;

-- CONTIENE LAS COLUMNAS DE UNA TABLA DE 'X' ESQUEMA
        CURSOR C_COL IS
               SELECT
                      ESQUEMA, TABLE_NAME, COLUMN_NAME, TYPE_COLUMN
                 FROM
                      CONFIGURACION.MAPPAIS_COLUMN
                WHERE ESQUEMA = szPAIS
                  AND TABLE_NAME IN(SELECT TABLE_NAME FROM CONFIGURACION.MAPPAIS_TAB_LIST);

--
CURSOR C_TAB_PK IS
                  SELECT TABLE_NAME, OWNER, CONSTRAINT_NAME NOMBRE_PK
                    FROM CONFIGURACION.CONSTRAINTS
                   WHERE CONSTRAINT_TYPE = 'P'
                     AND OWNER = szPAIS
                     AND TABLE_NAME IN ((SELECT DISTINCT TABLE_NAME
                                          FROM CONFIGURACION.MAPPAIS_COLUMN
                                         WHERE ESQUEMA =szPAIS
                                           AND PK = 'Y'));

-- CONTIENE LAS COLUMNAS DE UNA TABLA
CURSOR C_COL_PK IS
               SELECT COLUMN_NAME
                 FROM MAPPAIS_COLUMN
                WHERE PK = 'Y'
                  AND TABLE_NAME IN(SELECT TABLE_NAME
                          FROM CONFIGURACION.MAPPAIS_TAB_LIST)
                  AND ESQUEMA = szPAIS;



--- VARIABLES QUE MANEJAN LA CREACION DE LA QUERY PARA LAS FK
        R_TAB_FK    C_TAB_FK%ROWTYPE;
        R_COL_FK    C_COL_FK%ROWTYPE;
        R_COL_FKPRI C_COLPRI_FK%ROWTYPE;

---VARIABLE QUE ALMACENA EL STRING, CON LA INSTRUCCION DE CREACION DE LAS FK
szQURYFK VARCHAR2(10000);

---VARIABLES QUE MANEJAN CURSORES PARA PK
        R_TAB_PK C_TAB_PK%ROWTYPE;
        R_COL_PK C_COL_PK%ROWTYPE;
        szQURY VARCHAR2(10000);

--- VARIABLES QUE MANEJAN LA CREACION DE LAS TABLAS
        R_TAB C_TAB%ROWTYPE;
        R_COL C_COL%ROWTYPE;
        szQUERY VARCHAR2(10000);
        szTAB VARCHAR2(100);
----------------------------------------


---VARIABLES QUE MANEJAN LA CREACION DE LAS PK
szQRY VARCHAR2(10000);

BEGIN
lpNIVEL5    :=5;
lpNIVEL3    :=3;
lpNIVEL2    :=2;
lpNIVEL1    :=1;
lpCOD_PAIS  :=598;
lpNIVEL     :=3;

--------------------------------------------------------------------------------
--COMUNA
EXECUTE IMMEDIATE 'ALTER TABLE '||SZPAIS||'.COMUNA NOLOGGING';
EXECUTE IMMEDIATE 'INSERT /* + APPEND */ INTO '||SZPAIS||'.COMUNA (NOMBRE_COMUNA, ID_CENTRO_URBANO, CODIGO_INE, LAT, LON, ID_COMUNA
                  ,ID_PROVINCIA, ID_REGION, COD_SUBDERE, POBLACION_ULT_CENSO, POBLACION_URBANA, POBLACION_RURAL)
       SELECT
                  DISTINCT
                  CAST (B.NOMBRE_DIV_GEO AS VARCHAR2(50))       AS NOMBRE_COMUNA,
                  CAST (C.ID_CENTRO_URBANO AS NUMBER(4,0))      AS ID_CENTRO_URBANO,
                  CAST (NULL AS VARCHAR2(10))                   AS CODIGO_INE,
                  CAST (B.LAT AS NUMBER(11,8))                  AS LAT,
                  CAST (B.LON AS NUMBER(11,8))                  AS LON,
                  CAST (B.ID_DIV_GEO AS NUMBER(4,0))            AS ID_COMUNA,
                  CAST (Z.ID_PROVINCIA AS NUMBER(5,0))          AS ID_PROVINCIA,
                  CAST (Z.ID_REGION AS VARCHAR2(3))             AS ID_REGION,
                  CAST (B.CODIGO_SUBDERE AS VARCHAR2(5))        AS COD_SUBDERE,
                  CAST (B.POBLACION_ULT_CENSO AS NUMBER(12,0))  AS POBLACION_ULT_CENSO,
                  CAST (B.POBLACION_URBANA AS NUMBER(12,0))     AS POBLACION_URBANA,
                  CAST (B.POBLACION_RURAL AS NUMBER(12,0))      AS POBLACION_RURAL
         FROM     FOTOFULL_LATAM_1.DIVISION_GEOPOLITICA B
   INNER JOIN     FOTOFULL_LATAM_1.CENTRO_URBANO C
           ON     B.ID_CENTRO_URBANO = C.ID_CENTRO_URBANO
          AND     B.COD_PAIS = C.COD_PAIS
   INNER JOIN     (    SELECT P.ID_DIV_GEO,
                              P.ID_DIV_GEO AS ID_PROVINCIA,
                              R.ID_DIV_GEO_OLD AS ID_REGION
                        FROM  FOTOFULL_LATAM_1.DIVISION_GEOPOLITICA P
                  INNER JOIN  FOTOFULL_LATAM_1.DIVISION_GEOPOLITICA R
                          ON  P.ID_DIV_GEO_PADRE = R.ID_DIV_GEO
                         AND  P.COD_PAIS         = R.COD_PAIS
                         AND  P.COD_PAIS = '||LPCOD_PAIS||'
                         AND  P.ID_NIVEL = '||LPNIVEL3||'
                         AND  R.ID_NIVEL ='||LPNIVEL2||'
                   ) Z
           ON     B.ID_DIV_GEO_PADRE = Z.ID_DIV_GEO
          AND     B.COD_PAIS ='||LPCOD_PAIS||'
          AND     B.ID_NIVEL = '||LPNIVEL||'';
 COMMIT ;


END;
/

:ALLEXEC
CLS
COLOR  F6
::LOS COMENTARIOS SON PARA USTEDES QUIENES ME AYUDEN NO ESTAN EN EL CODIGO ORIGINAL

::ELIMINO UN .TXT QUE TIENE ALMACENADOS LAS COMUNAS DE UNOS ARCHIVOS CON CARTOGRAFIAS
DEL /F %LIST_WDG_PATH%LIST_COMUNAS.TXT
::LEE UN REPOSITORIO TOMA LOS ARCHIVOS NECESARIOS Y LOS IMPRIME EN EL TXT
FOR %%x in (%LIST_WDG_PATH%*.dwg) DO (echo %%x>>%LIST_WDG_PATH%LIST_COMUNAS.TXT
)
::ELIMINA UN TXT CON UNA COMUNA
DEL /F %LIST_WDG_PATH%COMUNAS.TXT
::TOMA LA LISTA DE COMUNAS Y ENTREGA EL NOMBRE DEL ARCHIVO A %%x
ADEMAS GENERA UN TXT CON CADA COMUNA DEL LISTADO
FOR /F "delims=!" %%x in (%LIST_WDG_PATH%LIST_COMUNAS.TXT) DO (echo %%x>%LIST_WDG_PATH%COMUNAS.TXT

::VARIABLE NECESARIA PARA EJECUTAR UN STORE PROCEDURE EN ORACLE
SET /A VARFULL=1
::ELIMINA TXT DONDE SE EJECUTAN LOS STORE PROCEDURE
DEL  %PATH_SQL%ESTADISTICA.SQL
::IMPRIME EN ESTADISITICA.TXT LA INSTRUCCION PARA EJECUTAR EL STORE PROCEDURE (SP)
ECHO EXEC sp_log_FULL(%VARFULL%);>>"%PATH_SQL%ESTADISTICA.SQL"
::AGREGA CODIGO A ESTADISTICA
ECHO COMMIT;>>"%PATH_SQL%ESTADISTICA.SQL"
::AGREGA SALIDA A ESTADISTICA
ECHO EXIT;>>"%PATH_SQL%ESTADISTICA.SQL"
::STRING DE CONEXION PARA ORACLE
    sqlplus %conexion% @"%PATH_SQL%ESTADISTICA.SQL"

::LLAMADA A UN BAT QUE GENERA LA CARGA DE LOS ARCHIVOS A LA BD EN ORACLE
CALL "%PATH_SCRIPT%carga.bat"

:LO MISMO QUE ARRIBA SOLO EL VARFULL TIENE OTRO VALOR PARA EJECUTAR EL SP DE UNA MANERA DISTINTA
SET /A VARFULL=2
DEL "%PATH_SQL%ESTADISTICA.SQL"
ECHO EXEC sp_log_FULL(%VARFULL%);>>"%PATH_SQL%ESTADISTICA.SQL" 
ECHO COMMIT;>>"%PATH_SQL%ESTADISTICA.SQL"
ECHO EXIT;>>"%PATH_SQL%ESTADISTICA.SQL"
    sqlplus %conexion% @"%PATH_SQL%ESTADISTICA.SQL"
)