Tabla de objetivos y escalas<\/td><\/tr>
1<\/td>	325000<\/td>	10000000<\/td><\/tr>
2<\/td>	100000<\/td>	1534076<\/td><\/tr>
3<\/td>	50000<\/td>	600000<\/td><\/tr>
4<\/td>	12500<\/td>	150000<\/td><\/tr>
5<\/td>	3000<\/td>	60000<\/td><\/tr>
6<\/td>	2500<\/td>	15000<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\n La tabla DSID para archivos S57 contiene dos atributos: el nombre del archivo S57 y la escala de compilaci\u00f3n de datos, as\u00ed como el atributo \u00abprop\u00f3sito\u00bb. Este atributo se encuentra en la misma tabla DSID utilizada para recuperar la escala con el nombre DSID_INTU.<\/p>\n\n\n\n Como los comandos ogr2ogr s\u00f3lo cargan tablas espaciales por defecto, necesitaremos ejecutar un comando especial solicitando que se cargue la tabla DSID:<\/p>\n\n\n\n ogr2ogr -skipfailures -append -update -f PostgreSQL PG: \u00abdbname\u2026 \u00ab DSID<\/p>\n\n\n\n <\/span>Importaci\u00f3n de \u00abprimitivas\u00a0\u00bb<\/span><\/h2>\n\n\n\n Un fichero S57 tiene, por tanto, una serie de tablas que contienen informaci\u00f3n geom\u00e9trica, denominadas \u00abprimitivas\u00bb:<\/p>\n\n\n\n \n IsolatedNode (puntos)<\/li>\n\n\n\n ConnectedNode (puntos)<\/li>\n\n\n\n Edge (polil\u00edneas)<\/li>\n\n\n\n Face(pol\u00edgonos)<\/li>\n<\/ul>\n\n\n\n La tabla de atributos de los distintos objetos S57 s\u00f3lo contiene los atributos de los objetos.<\/p>\n\n\n\n Lo que complica la tarea es que hay dos atributos que se refieren a las geometr\u00edas: posacc (la precisi\u00f3n estimada de la posici\u00f3n, un valor cuantitativo) y quapos (calidad de la posici\u00f3n, una variable cualitativa).<\/p>\n\n\n\n Estos dos atributos se encuentran en las tablas primitivas.<\/p>\n\n\n\n Para pasar de la estructura S57 a una estructura SIG (shapefile<\/a>, geopackage, postgis) utilizamos la biblioteca GDAL y su comando ogr2ogr.<\/p>\n\n\n\n Este comando crea tablas SIG a partir de la estructura S57, creando una tabla por cada objeto S57, asignando la geometr\u00eda correspondiente de las tablas de primitivas a cada entidad y a\u00f1adiendo los atributos del objeto S57 a cada entidad. La traza de las primitivas utilizadas para la geometr\u00eda de cada entidad puede encontrarse en el campo NAME_RCID de las tablas SIG, siempre que se hayan a\u00f1adido las opciones -oo \u00abRETURN_LINKAGES=ON\u00bb -oo \u00abLNAM_REFS=ON\u00bb a la l\u00ednea de comandos de ogr2ogr.<\/p>\n\n\n\n La siguiente figura muestra una capa de tipo punto. El valor indicado en el campo NAME_RCID es el RCID del punto utilizado en la tabla IsolatedNode.<\/p>\n\n\n\n $\"table$ <\/a><\/figure>\n\n\n\n La siguiente figura muestra un ejemplo de capa de tipo lineal. Los valores indicados en el campo NAME_RCID son los de los RCID de las polil\u00edneas utilizadas en la tabla Edge.<\/p>\n\n\n\n $\"table$ <\/a><\/figure>\n\n\n\n La siguiente figura muestra un ejemplo de capa de tipo poligonal. Los valores indicados en el campo NAME_RCID son los de las polil\u00edneas utilizadas en la tabla Edge.<\/p>\n\n\n\n $\"table$ <\/a><\/figure>\n\n\n\n Para recuperar los atributos QUAPOS y POSACC de cada entidad en las tablas de tipo punto, necesitamos recuperar los valores del punto IsolatedNode y asignarlos a las tablas de los distintos objetos ENC.<\/p>\n\n\n\n Si los identificadores fueran directamente los RCID de las tablas ENC, podr\u00edamos hacer un join entre cada tabla (soundg, obstrn,\u2026) y IsolatedNode. Pero como se puede ver en las im\u00e1genes anteriores, el atributo NAME_RCID es de tipo stringlist, lo que bloquea esta soluci\u00f3n. Por lo tanto, hemos desarrollado una consulta SQL que realiza este trabajo al cargar los datos de los esquemas de importaci\u00f3n en el esquema ENC.<\/p>\n\n\n\n <\/span>Esquemas PostgreSQL<\/span><\/h1>\n\n\n\n Para crear tablas de importaci\u00f3n en un esquema espec\u00edfico, es necesario utilizar la opci\u00f3n active_schema de ogr2ogr. Con esta opci\u00f3n, PostgreSQL permite crear tablas con el mismo nombre en varios esquemas diferentes. S\u00f3lo hay una excepci\u00f3n, el esquema P\u00fablico. Si se utiliza un nombre de tabla en este esquema, se ignora la opci\u00f3n active_schema. Por lo tanto, debe tener cuidado de no crear tablas S57 en el esquema P\u00fablico. Si esto ocurre, tendr\u00e1 que eliminarlas manualmente una a una.<\/p>\n\n\n\n <\/span>Creaci\u00f3n con una consulta SQL<\/span><\/h2>\n\n\n\n La siguiente consulta crea los cuatro esquemas necesarios:<\/p>\n\n\n\n <\/div>createschemas.sql<\/div> <\/div><\/div> <\/strong><\/p>\n\n\n\n CREATE SCHEMA IF NOT EXISTS encm AUTHORIZATION pg_database_owner; GRANT ALL ON SCHEMA encm TO pg_database_owner; CREATE SCHEMA IF NOT EXISTS pointsenc AUTHORIZATION pg_database_owner; GRANT ALL ON SCHEMA pointsenc TO pg_database_owner; CREATE SCHEMA IF NOT EXISTS linesenc AUTHORIZATION pg_database_owner; GRANT ALL ON SCHEMA linesenc TO pg_database_owner; CREATE SCHEMA IF NOT EXISTS polysenc AUTHORIZATION pg_database_owner; GRANT ALL ON SCHEMA polysenc TO pg_database_owner;<\/p>\n\n\n\n <\/div><\/div><\/p>\n\n\n\n <\/span>Crear con pgAdmin<\/span><\/h2>\n\n\n\n Para crear esquemas, abra pgAdmin4, y en Esquemas abra el men\u00fa contextual->Crear-Esquema<\/p>\n\n\n\n $\"ctreate$ <\/a><\/figure>\n\n\n\n Introduzca el nombre deseado para el esquema:<\/p>\n\n\n\n $\"create$ <\/a><\/figure>\n\n\n\n Repita esta operaci\u00f3n para crear los cuatro esquemas necesarios para nuestra base de datos ENC.<\/p>\n\n\n\n $\"postgresql$ <\/a><\/figure>\n\n\n\n \n ATENCI\u00d3N: Los dos m\u00e9todos de creaci\u00f3n no dan el mismo resultado. Cuando se utiliza pgAdmin, los nombres de los esquemas distinguen entre may\u00fasculas y min\u00fasculas y van entre comillas (\u00abENCpoints\u00bb, por ejemplo). Cuando usas SQL, los nombres siempre estar\u00e1n en min\u00fasculas y no habr\u00e1 comillas (puntosenc, por ejemplo). Para evitar esto, no uses may\u00fasculas en pgAdmin.<\/em><\/p><\/blockquote><\/figure>\n<\/blockquote>\n\n\n\n En el resto de este art\u00edculo utilizaremos los nombres de la consulta SQL. Si decide utilizar may\u00fasculas, tendr\u00e1 que modificar los nombres de los esquemas en el c\u00f3digo proporcionado..<\/strong><\/em><\/p>\n\n\n\n <\/span>Preparaci\u00f3n de los esquemas de importaci\u00f3n<\/span><\/h2>\n\n\n\n La fase de importaci\u00f3n de tablas con ogr2ogr no se limita a la simple ejecuci\u00f3n del comando de transcodificaci\u00f3n S57->Postgresql.<\/p>\n\n\n\n Una vez poblado el esquema con las tablas de clases del fichero S57, a\u00f1adiremos la tabla DSID, que servir\u00e1 para recuperar el nombre del fichero S57, la escala de compilaci\u00f3n de datos y la finalidad del mapa.<\/p>\n\n\n\n Antes debemos a\u00f1adir estos atributos a todas las tablas no vac\u00edas resultantes del comando ogr2ogr, aprovechando para crear tambi\u00e9n los atributos QUAPOS y POSACC que se rellenar\u00e1n m\u00e1s adelante.<\/p>\n\n\n\n El principio de este paso es el siguiente:<\/p>\n\n\n\n \n En el fichero batch (.bat), ejecute el comando para cargar un tipo de geometr\u00eda.<\/li>\n\n\n\n Una vez ejecutada esta l\u00ednea de c\u00f3digo, se carga la tabla DSID en el mismo esquema.<\/li>\n\n\n\n Un trigger AFTER INSERT sobre la tabla dsid en el esquema comienza borrando las tablas vac\u00edas, luego crea los atributos enc_chart, scale, purpose, posacc y quapos en todas las tablas. A\u00f1ade los valores de enc_chart, scale y purpose a todos los registros de las tablas.<\/li>\n<\/ol>\n\n\n\n Este procedimiento se realiza para cada tipo de geometr\u00eda: punto, l\u00ednea y pol\u00edgono.<\/p>\n\n\n\n Para que este procedimiento funcione, necesitamos configurar algunos elementos en la base de datos Postgresql.<\/p>\n\n\n\n <\/span>Tablas DSID para esquemas de importaci\u00f3n<\/span><\/h2>\n\n\n\n Como utilizaremos un disparador en estas tablas, es necesario crearlas antes de la primera carga. As\u00ed, en cada esquema de importaci\u00f3n, crearemos una tabla<\/p>\n\n\n\n \n Pointsdsid en el esquema pointsenc<\/li>\n\n\n\n Linesdsid en el esquema linesenc<\/li>\n\n\n\n Polysdsid en el esquema polysenc<\/li>\n<\/ul>\n\n\n\n <\/div> create_DSID_tables.sql<\/div> <\/div><\/div> <\/p>\n\n\n\n -- Cr\u00e9ation de la s\u00e9quence pointsdsid_ogc_fid_seq CREATE SEQUENCE IF NOT EXISTS pointsenc.pointsdsid_ogc_fid_seq START WITH 1 INCREMENT BY 1 NO MINVALUE NO MAXVALUE CACHE 1;<\/code><\/pre>\n\n\n\n-- Cr\u00e9ation de la s\u00e9quence polysdsid_ogc_fid_seq<\/code><\/pre>\n\n\n\nCREATE SEQUENCE IF NOT EXISTS polysenc.polysdsid_ogc_fid_seq START WITH 1 INCREMENT BY 1 NO MINVALUE NO MAXVALUE CACHE 1;<\/code><\/pre>\n\n\n\n -- Cr\u00e9ation de la s\u00e9quence linesdsid_ogc_fid_seq<\/code><\/pre>\n\n\n\nCREATE SEQUENCE IF NOT EXISTS linesenc.linesdsid_ogc_fid_seq START WITH 1 INCREMENT BY 1 NO MINVALUE NO MAXVALUE CACHE 1; -- Table: pointsenc.pointsdsid<\/code><\/pre>\n\n\n\n-- DROP TABLE IF EXISTS pointsenc.pointsdsid;<\/code><\/pre>\n\n\n\nCREATE TABLE IF NOT EXISTS pointsenc.pointsdsid ( ogc_fid integer NOT NULL DEFAULT nextval('pointsenc.pointsdsid_ogc_fid_seq'::regclass), dsid_expp numeric(3,0), dsid_intu numeric(3,0), dsid_dsnm character varying COLLATE pg_catalog.\"default\", dsid_edtn character varying COLLATE pg_catalog.\"default\", dsid_updn character varying COLLATE pg_catalog.\"default\", dsid_uadt character varying(8) COLLATE pg_catalog.\"default\", dsid_isdt character varying(8) COLLATE pg_catalog.\"default\", dsid_sted numeric(11,6), dsid_prsp numeric(3,0), dsid_psdn character varying COLLATE pg_catalog.\"default\", dsid_pred character varying COLLATE pg_catalog.\"default\", dsid_prof numeric(3,0), dsid_agen numeric(5,0), dsid_comt character varying COLLATE pg_catalog.\"default\", dssi_dstr numeric(3,0), dssi_aall numeric(3,0), dssi_nall numeric(3,0), dssi_nomr numeric(10,0), dssi_nocr numeric(10,0), dssi_nogr numeric(10,0), dssi_nolr numeric(10,0), dssi_noin numeric(10,0), dssi_nocn numeric(10,0), dssi_noed numeric(10,0), dssi_nofa numeric(10,0), dspm_hdat numeric(3,0), dspm_vdat numeric(3,0), dspm_sdat numeric(3,0), dspm_cscl numeric(10,0), dspm_duni numeric(3,0), dspm_huni numeric(3,0), dspm_puni numeric(3,0), dspm_coun numeric(3,0), dspm_comf numeric(10,0), dspm_somf numeric(10,0), dspm_comt character varying COLLATE pg_catalog.\"default\", CONSTRAINT pointsdsid_pkey PRIMARY KEY (ogc_fid) )<\/code><\/pre>\n\n\n\nTABLESPACE pg_default;<\/code><\/pre>\n\n\n\nALTER TABLE IF EXISTS pointsenc.pointsdsid OWNER to postgres; -- Table: polysenc.polysdsid<\/code><\/pre>\n\n\n\n-- DROP TABLE IF EXISTS polysenc.polysdsid;<\/code><\/pre>\n\n\n\nCREATE TABLE IF NOT EXISTS polysenc.polysdsid ( ogc_fid integer NOT NULL DEFAULT nextval('polysenc.polysdsid_ogc_fid_seq'::regclass), dsid_expp numeric(3,0), dsid_intu numeric(3,0), dsid_dsnm character varying COLLATE pg_catalog.\"default\", dsid_edtn character varying COLLATE pg_catalog.\"default\", dsid_updn character varying COLLATE pg_catalog.\"default\", dsid_uadt character varying(8) COLLATE pg_catalog.\"default\", dsid_isdt character varying(8) COLLATE pg_catalog.\"default\", dsid_sted numeric(11,6), dsid_prsp numeric(3,0), dsid_psdn character varying COLLATE pg_catalog.\"default\", dsid_pred character varying COLLATE pg_catalog.\"default\", dsid_prof numeric(3,0), dsid_agen numeric(5,0), dsid_comt character varying COLLATE pg_catalog.\"default\", dssi_dstr numeric(3,0), dssi_aall numeric(3,0), dssi_nall numeric(3,0), dssi_nomr numeric(10,0), dssi_nocr numeric(10,0), dssi_nogr numeric(10,0), dssi_nolr numeric(10,0), dssi_noin numeric(10,0), dssi_nocn numeric(10,0), dssi_noed numeric(10,0), dssi_nofa numeric(10,0), dspm_hdat numeric(3,0), dspm_vdat numeric(3,0), dspm_sdat numeric(3,0), dspm_cscl numeric(10,0), dspm_duni numeric(3,0), dspm_huni numeric(3,0), dspm_puni numeric(3,0), dspm_coun numeric(3,0), dspm_comf numeric(10,0), dspm_somf numeric(10,0), dspm_comt character varying COLLATE pg_catalog.\"default\", CONSTRAINT polysdsid_pkey PRIMARY KEY (ogc_fid) )<\/code><\/pre>\n\n\n\nTABLESPACE pg_default;<\/code><\/pre>\n\n\n\nALTER TABLE IF EXISTS polysenc.polysdsid OWNER to postgres; -- Table: linesenc.linesdsid<\/code><\/pre>\n\n\n\n-- DROP TABLE IF EXISTS linesenc.linesdsid;<\/code><\/pre>\n\n\n\nCREATE TABLE IF NOT EXISTS linesenc.linesdsid ( ogc_fid integer NOT NULL DEFAULT nextval('linesenc.linesdsid_ogc_fid_seq'::regclass), dsid_expp numeric(3,0), dsid_intu numeric(3,0), dsid_dsnm character varying COLLATE pg_catalog.\"default\", dsid_edtn character varying COLLATE pg_catalog.\"default\", dsid_updn character varying COLLATE pg_catalog.\"default\", dsid_uadt character varying(8) COLLATE pg_catalog.\"default\", dsid_isdt character varying(8) COLLATE pg_catalog.\"default\", dsid_sted numeric(11,6), dsid_prsp numeric(3,0), dsid_psdn character varying COLLATE pg_catalog.\"default\", dsid_pred character varying COLLATE pg_catalog.\"default\", dsid_prof numeric(3,0), dsid_agen numeric(5,0), dsid_comt character varying COLLATE pg_catalog.\"default\", dssi_dstr numeric(3,0), dssi_aall numeric(3,0), dssi_nall numeric(3,0), dssi_nomr numeric(10,0), dssi_nocr numeric(10,0), dssi_nogr numeric(10,0), dssi_nolr numeric(10,0), dssi_noin numeric(10,0), dssi_nocn numeric(10,0), dssi_noed numeric(10,0), dssi_nofa numeric(10,0), dspm_hdat numeric(3,0), dspm_vdat numeric(3,0), dspm_sdat numeric(3,0), dspm_cscl numeric(10,0), dspm_duni numeric(3,0), dspm_huni numeric(3,0), dspm_puni numeric(3,0), dspm_coun numeric(3,0), dspm_comf numeric(10,0), dspm_somf numeric(10,0), dspm_comt character varying COLLATE pg_catalog.\"default\", CONSTRAINT linesdsid_pkey PRIMARY KEY (ogc_fid) )<\/code><\/pre>\n\n\n\nTABLESPACE pg_default;<\/code><\/pre>\n\n\n\nALTER TABLE IF EXISTS linesenc.linesdsid OWNER to postgres;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/span>Configuraci\u00f3n de activadores AFTER INSERT<\/span><\/h2>\n\n\n\nDespu\u00e9s de insertar una fila en la tabla DSID del esquema, estos activadores<\/p>\n\n\n\n \neliminar\u00e1n cualquier tabla vac\u00eda del esquema<\/li>\n\n\n\n comprobar\u00e1n si los campos adicionales ya existen y, en caso contrario, crear\u00e1n los 5 atributos ‘(enc_chart, scale, purpose,posacc y quapos),<\/li>\n\n\n\n a\u00f1ada los valores del registro DSID a los atributos enc_chart, scale y purpose,<\/li>\n\n\n\n y finalmente borrar el registro de la tabla DSID.<\/li>\n<\/ul>\n\n\n\nExiste una funci\u00f3n para cada tipo de geometr\u00eda,<\/p>\n\n\n\n \ncreate_fields_and_update_values_pointsenc()<\/li>\n\n\n\n create_fields_and_update_values_linesenc()<\/li>\n\n\n\n create_fields_and_update_values_polysenc()<\/li>\n<\/ul>\n\n\n\na continuaci\u00f3n, una consulta SQL para configurar desencadenadores en cada una de las tablas DSID (pointsDSID,linesDSID,polysDSID)<\/p>\n\n\n\n <\/div>create_fields_and_update_values_pointsenc()<\/div><\/div><\/div><\/p>\n\n\n\nCREATE OR REPLACE FUNCTION create_fields_and_update_values_pointsenc()<\/code><\/pre>\n\n\n\nRETURNS TRIGGER AS $$ DECLARE table_record RECORD; tables_import RECORD; enc_chart_value TEXT; scale_value NUMERIC; purpose_value NUMERIC; empty_tables int; BEGIN --Le code suivant permet de supprimer les tables vides d'un sch\u00e9ma d'import: FOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'pointsenc' AND table_name != 'pointsdsid' LOOP -- Composer une requ\u00eate dynamique pour v\u00e9rifier si la table est vide EXECUTE format('SELECT COUNT() FROM pointsenc.%I', table_record.table_name) INTO empty_tables;<\/code><\/pre>\n\n\n\n-- Si le nombre de lignes est \u00e9gal \u00e0 z\u00e9ro, supprimer la table\n IF empty_tables = 0 THEN\n EXECUTE format('DROP TABLE IF EXISTS pointsenc.%I CASCADE', table_record.table_name);\n RAISE NOTICE 'Table pointsenc.%I supprim\u00e9e car elle est vide.', table_record.table_name;\n END IF;\nEND LOOP;\n\n-- Parcours de toutes les tables du sch\u00e9ma pointsenc \nFOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'pointsenc' AND table_name != 'pointsdsid' LOOP\n -- V\u00e9rifie si les champs enc_chart et scale n'existent pas dans la table actuelle\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'pointsenc' AND table_name = table_record.table_name AND column_name IN ('enc_chart', 'scale','purpose')\n ) THEN\n -- Cr\u00e9e le champ enc_chart de type texte\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN enc_chart TEXT', table_record.table_name);\n -- Cr\u00e9e le champ scale de type num\u00e9rique\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN scale NUMERIC', table_record.table_name);\n -- Cr\u00e9e le champ purpose de type num\u00e9rique\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN purpose NUMERIC', table_record.table_name);\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'pointsenc' AND table_name = table_record.table_name AND column_name IN ('posacc','quapos')\n ) THEN\n -- Cr\u00e9e le champ POSACC de type num\u00e9rique\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN posacc NUMERIC(10,0)', table_record.table_name);\n -- Cr\u00e9e le champ QUAPOS de type num\u00e9rique\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN quapos INTEGER', table_record.table_name);\n END IF;\n RAISE NOTICE 'Champs enc_chart, scale , purpose, POSACC et QUIAPOS cr\u00e9\u00e9s dans la table %', table_record.table_name;\n\n END IF;\n -- Obtient la valeur de enc_chart \u00e0 partir de la table DSID pour DSID_DSNM\n SELECT DSID_DSNM INTO enc_chart_value FROM pointsdsid LIMIT 1;\n -- Obtient la valeur de scale \u00e0 partir de la table DSID pour DSPM_CSCL\n SELECT DSPM_CSCL INTO scale_value FROM pointsdsid LIMIT 1;\n -- Obtient la valeur de purpose \u00e0 partir de la table DSID pour DSID_INTU\n SELECT DSID_INTU INTO purpose_value FROM pointsdsid LIMIT 1;\n\n -- Met \u00e0 jour les enregistrements avec les valeurs trouv\u00e9es dans la table DSID\n EXECUTE format('UPDATE pointsenc.%I SET enc_chart = $1 WHERE enc_chart IS NULL', table_record.table_name) USING enc_chart_value;\n EXECUTE format('UPDATE pointsenc.%I SET scale = $1 WHERE scale IS NULL', table_record.table_name) USING scale_value;\n EXECUTE format('UPDATE pointsenc.%I SET purpose = $1 WHERE purpose IS NULL', table_record.table_name) USING purpose_value;\n\n\nEND LOOP;\n\n-- Efface l'enregistrement de la table DSID\nDELETE FROM pointsenc.pointsdsid;\n\nRETURN NULL;<\/code><\/pre>\n\n\n\nEND; $$ LANGUAGE plpgsql;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/div>create_fields_and_update_values_linesenc()<\/div><\/div><\/div><\/p>\n\n\n\n\n\nCREATE OR REPLACE FUNCTION create_fields_and_update_values_linesenc() RETURNS TRIGGER AS $$ DECLARE table_record RECORD; tables_import RECORD; enc_chart_value TEXT; scale_value NUMERIC; purpose_value NUMERIC; empty_tables int; BEGIN --Le code suivant permet de supprimer les tables vides d'un sch\u00e9ma d'import: FOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'linesenc' AND table_name != 'linesdsid' LOOP -- Composer une requ\u00eate dynamique pour v\u00e9rifier si la table est vide EXECUTE format('SELECT COUNT() FROM linesenc.%I', table_record.table_name) INTO empty_tables;<\/code><\/pre>\n\n\n\n-- Si le nombre de lignes est \u00e9gal \u00e0 z\u00e9ro, supprimer la table\n IF empty_tables = 0 THEN\n EXECUTE format('DROP TABLE IF EXISTS linesenc.%I CASCADE', table_record.table_name);\n RAISE NOTICE 'Table linesenc.%I supprim\u00e9e car elle est vide.', table_record.table_name;\n END IF;\nEND LOOP;\n\n-- Parcours de toutes les tables du sch\u00e9ma linesenc \nFOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'linesenc' AND table_name != 'linesdsid' LOOP\n -- V\u00e9rifie si les champs enc_chart et scale n'existent pas dans la table actuelle\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'linesenc' AND table_name = table_record.table_name AND column_name IN ('enc_chart', 'scale','purpose')\n ) THEN\n -- Cr\u00e9e le champ enc_chart de type texte\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN enc_chart TEXT', table_record.table_name);\n -- Cr\u00e9e le champ scale de type num\u00e9rique\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN scale NUMERIC', table_record.table_name);\n -- Cr\u00e9e le champ purpose de type num\u00e9rique\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN purpose NUMERIC', table_record.table_name);\n RAISE NOTICE 'Champs enc_chart, scale et purpose cr\u00e9\u00e9s dans la table %', table_record.table_name;\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'linesenc' AND table_name = table_record.table_name AND column_name IN ('posacc','quapos')\n ) THEN\n -- Cr\u00e9e le champ POSACC de type num\u00e9rique\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN POSACC NUMERIC(10,0)', table_record.table_name);\n -- Cr\u00e9e le champ QUAPOS de type num\u00e9rique\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN QUAPOS INTEGER', table_record.table_name);\n END IF;\n RAISE NOTICE 'Champs enc_chart, scale et purpose cr\u00e9\u00e9s dans la table %', table_record.table_name;\n\n END IF;\n -- Obtient la valeur de enc_chart \u00e0 partir de la table DSID pour DSID_DSNM\n SELECT DSID_DSNM INTO enc_chart_value FROM linesenc.linesdsid LIMIT 1;\n -- Obtient la valeur de scale \u00e0 partir de la table DSID pour DSPM_CSCL\n SELECT DSPM_CSCL INTO scale_value FROM linesenc.linesdsid LIMIT 1;\n -- Obtient la valeur de purpose \u00e0 partir de la table DSID pour DSID_INTU\n SELECT DSID_INTU INTO purpose_value FROM linesenc.linesdsid LIMIT 1;\n\n -- Met \u00e0 jour les enregistrements avec les valeurs trouv\u00e9es dans la table DSID\n EXECUTE format('UPDATE linesenc.%I SET enc_chart = $1 WHERE enc_chart IS NULL', table_record.table_name) USING enc_chart_value;\n EXECUTE format('UPDATE linesenc.%I SET scale = $1 WHERE scale IS NULL', table_record.table_name) USING scale_value;\n EXECUTE format('UPDATE linesenc.%I SET purpose = $1 WHERE purpose IS NULL', table_record.table_name) USING purpose_value;\nEND LOOP;\n\n-- Efface l'enregistrement de la table DSID\nDELETE FROM linesenc.linesdsid;\n\nRETURN NULL;<\/code><\/pre>\n\n\n\nEND; $$ LANGUAGE plpgsql;\n\n<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/div>create_fields_and_update_values_polysenc()<\/div><\/div><\/div><\/p>\n\n\n\nCREATE OR REPLACE FUNCTION create_fields_and_update_values_polysenc() RETURNS TRIGGER AS $$ DECLARE table_record RECORD; tables_import RECORD; enc_chart_value TEXT; scale_value NUMERIC; purpose_value NUMERIC; empty_tables int; BEGIN --Le code suivant permet de supprimer les tables vides d'un sch\u00e9ma d'import: FOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'polysenc' AND table_name != 'polysdsid' LOOP -- Composer une requ\u00eate dynamique pour v\u00e9rifier si la table est vide EXECUTE format('SELECT COUNT() FROM polysenc.%I', table_record.table_name) INTO empty_tables;<\/code><\/pre>\n\n\n\n-- Si le nombre de lignes est \u00e9gal \u00e0 z\u00e9ro, supprimer la table\n IF empty_tables = 0 THEN\n EXECUTE format('DROP TABLE IF EXISTS polysenc.%I CASCADE', table_record.table_name);\n RAISE NOTICE 'Table polysenc.%I supprim\u00e9e car elle est vide.', table_record.table_name;\n END IF;\nEND LOOP;\n\n-- Parcours de toutes les tables du sch\u00e9ma polysenc \nFOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'polysenc' AND table_name != 'polysdsid' LOOP\n -- V\u00e9rifie si les champs enc_chart et scale n'existent pas dans la table actuelle\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'polysenc' AND table_name = table_record.table_name AND column_name IN ('enc_chart', 'scale','purpose')\n ) THEN\n -- Cr\u00e9e le champ enc_chart de type texte\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN enc_chart TEXT', table_record.table_name);\n -- Cr\u00e9e le champ scale de type num\u00e9rique\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN scale NUMERIC', table_record.table_name);\n -- Cr\u00e9e le champ purpose de type num\u00e9rique\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN purpose NUMERIC', table_record.table_name);\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'polysenc' AND table_name = table_record.table_name AND column_name IN ('posacc','quapos')\n ) THEN\n -- Cr\u00e9e le champ POSACC de type num\u00e9rique\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN POSACC NUMERIC(10,0)', table_record.table_name);\n -- Cr\u00e9e le champ QUAPOS de type num\u00e9rique\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN QUAPOS INTEGER', table_record.table_name);\n END IF;\n RAISE NOTICE 'Champs enc_chart, scale et purpose cr\u00e9\u00e9s dans la table %', table_record.table_name;\n\n END IF;\n -- Obtient la valeur de enc_chart \u00e0 partir de la table DSID pour DSID_DSNM\n SELECT DSID_DSNM INTO enc_chart_value FROM polysenc.polysdsid LIMIT 1;\n -- Obtient la valeur de scale \u00e0 partir de la table DSID pour DSPM_CSCL\n SELECT DSPM_CSCL INTO scale_value FROM polysenc.polysdsid LIMIT 1;\n -- Obtient la valeur de purpose \u00e0 partir de la table DSID pour DSID_INTU\n SELECT DSID_INTU INTO purpose_value FROM polysenc.polysdsid LIMIT 1;\n\n -- Met \u00e0 jour les enregistrements avec les valeurs trouv\u00e9es dans la table DSID\n EXECUTE format('UPDATE polysenc.%I SET enc_chart = $1 WHERE enc_chart IS NULL', table_record.table_name) USING enc_chart_value;\n EXECUTE format('UPDATE polysenc.%I SET scale = $1 WHERE scale IS NULL', table_record.table_name) USING scale_value;\n EXECUTE format('UPDATE polysenc.%I SET purpose = $1 WHERE purpose IS NULL', table_record.table_name) USING purpose_value;\nEND LOOP;\n\n-- Efface l'enregistrement de la table DSID\nDELETE FROM polysenc.polysdsid;\n\nRETURN NULL;<\/code><\/pre>\n\n\n\nEND; $$ LANGUAGE plpgsql;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/div>createtriggersfields()<\/div><\/div><\/div><\/p>\n\n\n\nCREATE OR REPLACE TRIGGER check_update AFTER INSERT ON linesenc.linesdsid FOR EACH ROW EXECUTE PROCEDURE create_fields_and_update_values_linesenc();<\/code><\/pre>\n\n\n\nCREATE OR REPLACE TRIGGER check_update AFTER INSERT ON polysenc.polysdsid FOR EACH ROW EXECUTE PROCEDURE create_fields_and_update_values_polysenc();<\/code><\/pre>\n\n\n\nCREATE OR REPLACE TRIGGER check_update AFTER INSERT ON pointsenc.pointsdsid FOR EACH ROW EXECUTE PROCEDURE create_fields_and_update_values_pointsenc();<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/span>Flujo de trabajo para cargar archivos S57<\/span><\/h1>\n\n\n\n<\/span>Comandos ogr2ogr para crear tablas Postgis<\/span><\/h2>\n\n\n\nCon todos estos elementos en la mano, aqu\u00ed est\u00e1 el archivo .bat con las l\u00edneas de comando ogr2ogr para crear las tablas en los esquemas de importaci\u00f3n:<\/p>\n\n\n\n <\/div>Commandes ogr2ogr<\/div><\/div><\/div><\/strong><\/p>\n\n\n\n\n\n@echo off setlocal enabledelayedexpansion<\/code><\/pre>\n\n\n\nREM V\u00e9rifie qu’un r\u00e9pertoire a \u00e9t\u00e9 fourni if \u00ab\u00a0%~1″==\u00a0\u00bb\u00a0\u00bb ( echo Usage: %0 directory000 exit \/b 1 )<\/p>\n\n\n\n REM R\u00e9cup\u00e8re l’argument set \u00ab\u00a0directory=%~1\u00a0\u00bb<\/p>\n\n\n\n REM It\u00e8re sur tous les fichiers .000 dans le r\u00e9pertoire for \/r \u00ab\u00a0%directory%\u00a0\u00bb %%i in (.000) do ( echo Traitement du fichier: %%i<\/p>\n\n\n\n ogr2ogr -skipfailures -append -update -s_srs EPSG:4326<\/a> -t_srs EPSG:4326 ^\n -where \"OGR_GEOMETRY='POINT' or OGR_GEOMETRY='MULTIPOINT'\" ^\n -oo RETURN_PRIMITIVES=ON -oo SPLIT_MULTIPOINT=ON -oo RETURN_LINKAGES=ON -oo LNAM_REFS=ON -oo ADD_SOUNDG_DEPTH=ON ^\n -nlt MULTIPOINT -f PostgreSQL ^\n PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=pointsenc\" %%i\n\nogr2ogr -skipfailures -append -update -nln pointsDSID -f PostgreSQL PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=pointsenc\" %%i DSID\n\nogr2ogr -skipfailures -append -update -s_srs EPSG:4326 -t_srs EPSG:4326 ^\n -where \"OGR_GEOMETRY='LINESTRING' or OGR_GEOMETRY='MULTILINESTRING'\" ^\n -oo RETURN_PRIMITIVES=ON -oo SPLIT_MULTIPOINT=ON -oo RETURN_LINKAGES=ON -oo LNAM_REFS=ON ^\n -f PostgreSQL PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=linesenc\" %%i\n\nogr2ogr -skipfailures -append -update -nln linesDSID -f PostgreSQL ^\n PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=linesenc\" %%i DSID\n\nogr2ogr -skipfailures -append -update -s_srs EPSG:4326 -t_srs EPSG:4326 ^\n -where \"OGR_GEOMETRY='POLYGON' or OGR_GEOMETRY='MULTIPOLYGON'\" ^\n -oo RETURN_PRIMITIVES=ON -oo SPLIT_MULTIPOINT=ON -oo RETURN_LINKAGES=ON -oo LNAM_REFS=ON ^\n -f PostgreSQL PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=polysenc\" %%i\n\nogr2ogr -skipfailures -append -update -nln polysDSID -f PostgreSQL ^\n PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=polysenc\" %%i DSID<\/code><\/pre>\n\n\n\n)<\/p>\n\n\n\necho Traitement termin\u00e9. pause\n\n<\/code><\/pre>\n\n\n\n<\/div><\/div><\/p>\n\n\n\n Necesita cambiar la informaci\u00f3n de conexi\u00f3n para su base de datos PostgreSQL\/POstgis:<\/p>\n\n\n\n PostgreSQL PG: \u00abdbname=\u201cpostgis_34_sample\u201d host=\u201clocalhost\u201d port=\u201c5434\u201d user=\u201cpostgres\u201d password=\u201cxxxxxx\u201d<\/em><\/p>\n\n\n\n Para ejecutar estas l\u00edneas de comando, simplemente abra la ventana shell de OSGeo4W:<\/p>\n\n\n\n<\/a><\/figure>\n\n\n\nSe abre la ventana Shell<\/p>\n\n\n\n<\/a><\/figure>\n\n\n\n<\/p>\n\n\n\n Introduzca la siguiente l\u00ednea de comandos:<\/p>\n\n\n\n .\\Path\/ mass_load_s57_postgis.bat repertorio_enc<\/strong><\/p>\n\n\n\n Repertoire_enc es el directorio que contiene los archivos .000 para las tarjetas enc. Todos los archivos .000 de este directorio se cargar\u00e1n en los esquemas de importaci\u00f3n.<\/p>\n\n\n\n El resultado ser\u00e1 una serie de tablas creadas en cada esquema de importaci\u00f3n. Sin embargo, algunas tablas estar\u00e1n completamente vac\u00edas. Si el tipo de geometr\u00eda es posible para una clase de objeto, se crear\u00e1 la tabla, pero si no hay ocurrencias en el fichero S57 que se est\u00e1 procesando, la tabla no tendr\u00e1 registros.<\/p>\n\n\n\n <\/span>Carga de la base de datos a partir de los esquemas de importaci\u00f3n<\/span><\/h2>\n\n\n\nLa funci\u00f3n clone_tables_with_prefix carga la base de datos ENC con las tablas de los tres esquemas de importaci\u00f3n.<\/p>\n\n\n\n \nEn primer lugar, elimina de cada esquema de importaci\u00f3n las tablas vac\u00edas creadas por ogr2ogr si en el archivo .000 no se ha utilizado un tipo de geometr\u00eda esperado.<\/li>\n\n\n\n En segundo lugar, comprueba para cada esquema de importaci\u00f3n si la tabla correspondiente ya existe en la base de datos ENC. Si no existe, crea la tabla con el prefijo correspondiente al tipo de geometr\u00eda (pt_, li_, pl_).<\/li>\n\n\n\n La funci\u00f3n a\u00f1ade los registros de la tabla de importaci\u00f3n a la tabla ENC.<\/li>\n\n\n\n Para las tablas de tipo punto, actualiza los atributos posacc y quapos de la tabla utilizando los valores de la tabla IsolatedNode.<\/li>\n\n\n\n Para las tablas de l\u00edneas y pol\u00edgonos, actualiza los atributos posacc y quapos de la tabla utilizando los valores de la tabla Edge.<\/li>\n\n\n\n Finalmente, la funci\u00f3n vac\u00eda todas las tablas de los esquemas de importaci\u00f3n, dej\u00e1ndolas listas para ser cargadas de nuevo con mis comandos ogr2ogr.<\/li>\n<\/ul>\n\n\n\nAntes de usar esta funci\u00f3n necesitas instalar la funci\u00f3n delete_all_records_in_schema<\/strong>:<\/p>\n\n\n\n Copia la consulta en una ventana SQL de pgAdmin y ejec\u00fatala.<\/p>\n\n\n\n <\/div> delete_all_records_in_schema <\/div><\/div><\/div><\/p>\n\n\n\n-- FUNCTION: public.delete_all_records_in_schema(text)<\/code><\/pre>\n\n\n\n-- DROP FUNCTION IF EXISTS public.delete_all_records_in_schema(text);<\/code><\/pre>\n\n\n\nCREATE OR REPLACE FUNCTION public.delete_all_records_in_schema( schema_name text) RETURNS void LANGUAGE 'plpgsql' COST 100 VOLATILE PARALLEL UNSAFE AS $BODY$ DECLARE table_record RECORD; BEGIN -- R\u00e9cup\u00e9rer toutes les tables du sch\u00e9ma sp\u00e9cifi\u00e9 FOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = schema_name AND table_type = 'BASE TABLE' LOOP -- Construction de la requ\u00eate DELETE pour chaque table EXECUTE format('DELETE FROM %I.%I', schema_name, table_record.table_name); END LOOP; END; $BODY$;<\/code><\/pre>\n\n\n\nALTER FUNCTION public.delete_all_records_in_schema(text) OWNER TO postgres;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n La base de datos ENC se actualiza ejecutando el comando<\/p>\n\n\n\n SELECT clone_table_with_prefix()<\/em><\/strong><\/p>\n\n\n\n No olvide sustituir el nombre del esquema (enc2) por el nombre de su esquema enc..<\/p>\n\n\n\n <\/div>clone_table_with_prefix<\/div><\/div><\/div><\/p>\n\n\n\nCREATE OR REPLACE FUNCTION clone_tables_with_prefix() RETURNS void AS $$ DECLARE table_nom text; BEGIN -- Clonage des tables dans le sch\u00e9ma ENC et mise \u00e0 jour des tables existantes<\/code><\/pre>\n\n\n\n-- Boucle sur les tables du sch\u00e9ma pointsENC\nFOR table_nom IN (SELECT table_name as table_nom FROM information_schema.tables WHERE table_schema = 'pointsenc' AND table_name NOT IN ('pointsdsid','isolatednode','connectednode'))\nLOOP\n -- Construction de la requ\u00eate dynamique pour cr\u00e9er ou mettre \u00e0 jour la table dans ENC\n EXECUTE format('CREATE TABLE IF NOT EXISTS enc2.pt_%I AS SELECT * FROM pointsenc.%I', table_nom, table_nom);\n EXECUTE format('INSERT INTO enc2.pt_%I SELECT * FROM pointsenc.%I ON CONFLICT DO NOTHING', table_nom, table_nom);\n EXECUTE format('UPDATE enc2.pt_%I SET posacc = isolatednode.posacc, quapos = isolatednode.quapos FROM pointsenc.IsolatedNode isolatednode WHERE enc2.pt_%I.NAME_RCID[1] = isolatednode.RCID AND enc2.pt_%I.enc_chart = isolatednode.enc_chart;', table_nom, table_nom,table_nom);\n\nEND LOOP;\n\n-- Boucle sur les tables du sch\u00e9ma LinesENC\nFOR table_nom IN (SELECT table_name as table_nom FROM information_schema.tables WHERE table_schema = 'linesenc' AND table_name NOT IN ('linesdsid','edge'))\nLOOP\n -- Construction de la requ\u00eate dynamique pour cr\u00e9er ou mettre \u00e0 jour la table dans ENC\n EXECUTE format('CREATE TABLE IF NOT EXISTS enc2.li_%I AS SELECT * FROM linesenc.%I', table_nom, table_nom);\n EXECUTE format('INSERT INTO enc2.li_%I SELECT * FROM linesenc.%I ON CONFLICT DO NOTHING', table_nom, table_nom);\n EXECUTE format('UPDATE enc2.li_%I SET posacc = edge.posacc, quapos = edge.quapos FROM linesenc.edge edge WHERE enc2.li_%I.NAME_RCID[1] = edge.RCID AND enc2.li_%I.enc_chart = edge.enc_chart;', table_nom, table_nom,table_nom);\n\nEND LOOP;\n\n-- Boucle sur les tables du sch\u00e9ma PolysENC\nFOR table_nom IN (SELECT table_name as table_nom FROM information_schema.tables WHERE table_schema = 'polysenc' AND table_name NOT IN ( 'polysdsid','m_qual','m_srel'))\nLOOP\n -- Construction de la requ\u00eate dynamique pour cr\u00e9er ou mettre \u00e0 jour la table dans ENC\n EXECUTE format('CREATE TABLE IF NOT EXISTS enc2.pl_%I AS SELECT * FROM polysenc.%I', table_nom, table_nom);\n EXECUTE format('INSERT INTO enc2.pl_%I SELECT * FROM polysenc.%I ON CONFLICT DO NOTHING', table_nom, table_nom);\n EXECUTE format('UPDATE enc2.pl_%I SET posacc = edge.posacc, quapos = edge.quapos FROM linesenc.edge edge WHERE enc2.pl_%I.NAME_RCID[1] = edge.RCID AND enc2.pl_%I.enc_chart = edge.enc_chart;', table_nom, table_nom,table_nom);\n\nEND LOOP;\nEXECUTE (SELECT delete_all_records_in_schema('pointsenc'));\nEXECUTE (SELECT delete_all_records_in_schema('linesenc'));\nEXECUTE (SELECT delete_all_records_in_schema('polysenc'));<\/code><\/pre>\n\n\n\nEXECUTE (SELECT update_sbdare()); END; $$ LANGUAGE plpgsql;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/span>Tratamiento especial de la tabla pt_SBDARE<\/span><\/h2>\n\n\n\nDespu\u00e9s de la primera ejecuci\u00f3n del script anterior, si los ficheros cargados ten\u00edan valores para las naturalezas de fondo, deber\u00edas tener una tabla pt_sbdare en el esquema ENC. Esta es la \u00fanica tabla que requiere un procesamiento especial para la simbolog\u00eda por defecto que proporcionamos. De hecho, el procesamiento de los valores de los dos atributos necesarios para crear la etiqueta de naturaleza de fondo (NATSUR y NATQUA) es muy complejo debido a la naturaleza de los atributos (StringLists) y a las innumerables combinaciones posibles.<\/p>\n\n\n\n La soluci\u00f3n aplicada en este caso es la siguiente:<\/p>\n\n\n\n \nUna tabla natsurf lista las posibles combinaciones de valores de las tuplas natqua y natsur con la etiqueta correspondiente.<\/li>\n\n\n\n Una funci\u00f3n update_sbdare procesa las dos listas de cadenas para componer las tuplas de valores y concatena adecuadamente las etiquetas de la tabla natsurf.<\/li>\n\n\n\n La funci\u00f3n actualiza los registros de la tabla pt_sbdare cuyo valor ‘label’ es cero.<\/li>\n<\/ul>\n\n\n\nCuando se cargan por primera vez los esquemas de importaci\u00f3n, la tabla pt_sbdare no existe. Una vez creada por una importaci\u00f3n, se puede definir un trigger que ejecute la funci\u00f3n autom\u00e1ticamente a continuaci\u00f3n.<\/p>\n\n\n\n Por lo tanto, es necesario :<\/p>\n\n\n\n \nImportar la tabla natsurf en el esquema ENC<\/li>\n\n\n\n Crear la funci\u00f3n update_sbdare<\/li>\n\n\n\n Ejecutar la funci\u00f3n manualmente por primera vez<\/li>\n<\/ul>\n\n\n\n.<\/p>\n\n\n\n <\/span>Importar la tabla natsurf<\/span><\/h2>\n\n\n\nCargue la siguiente consulta en una ventana SQL de pgAdmin y ejec\u00fatela. Se supone que ha creado un esquema ‘enc’ para su base de datos. Si no es el caso, edite la tabla, sustituyendo ‘enc.natsurf’ por ‘su_esquema.natsurf’.<\/p>\n\n\n\n <\/div> natsurf.sql <\/div><\/div><\/div><\/strong><\/p>\n\n\n\nSET standard_conforming_strings = ON; DROP TABLE IF EXISTS enc.natsurf CASCADE; BEGIN; CREATE TABLE enc.natsurf(); ALTER TABLE enc.natsurf ADD COLUMN \"ogc_fid\" SERIAL CONSTRAINT \"natsurf_pk\" PRIMARY KEY; ALTER TABLE enc.natsurf ADD COLUMN \"fid\" NUMERIC(20,0); ALTER TABLE enc.natsurf ADD COLUMN \"natsurt\" VARCHAR; ALTER TABLE enc.natsurf ADD COLUMN \"natquat\" VARCHAR; ALTER TABLE enc.natsurf ADD COLUMN \"etiq\" VARCHAR; INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (1, '1', '0', 'M'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (2, '1', '1', 'fM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (3, '1', '2', 'mM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (4, '1', '3', 'cM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (5, '1', '4', 'bkM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (6, '1', '5', 'syM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (7, '1', '6', 'soM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (8, '1', '7', 'sfM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (9, '1', '8', 'vM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (10, '1', '9', 'caM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (11, '1', '10', 'hM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (12, '2', '0', 'Cy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (13, '2', '1', 'fCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (14, '2', '2', 'mCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (15, '2', '3', 'cCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (16, '2', '4', 'bkCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (17, '2', '5', 'syCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (18, '2', '6', 'soCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (19, '2', '7', 'sfCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (20, '2', '8', 'vCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (21, '2', '9', 'caCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (22, '2', '10', 'hCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (23, '3', '0', 'Si'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (24, '3', '1', 'fSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (25, '3', '2', 'mSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (26, '3', '3', 'cSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (27, '3', '4', 'bkSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (28, '3', '5', 'sySi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (29, '3', '6', 'soSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (30, '3', '7', 'sfSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (31, '3', '8', 'vSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (32, '3', '9', 'caSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (33, '3', '10', 'hSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (34, '4', '0', 'S'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (35, '4', '1', 'fS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (36, '4', '2', 'mS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (37, '4', '3', 'cS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (38, '4', '4', 'bkS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (39, '4', '5', 'syS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (40, '4', '6', 'soS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (41, '4', '7', 'sfS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (42, '4', '8', 'vS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (43, '4', '9', 'caS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (44, '4', '10', 'hS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (45, '5', '0', 'St'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (46, '5', '1', 'fSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (47, '5', '2', 'mSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (48, '5', '3', 'cSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (49, '5', '4', 'bkSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (50, '5', '5', 'sySt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (51, '5', '6', 'soSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (52, '5', '7', 'sfSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (53, '5', '8', 'vSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (54, '5', '9', 'caSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (55, '5', '10', 'hSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (56, '6', '0', 'G'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (57, '6', '1', 'fG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (58, '6', '2', 'mG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (59, '6', '3', 'cG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (60, '6', '4', 'bkG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (61, '6', '5', 'syG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (62, '6', '6', 'soG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (63, '6', '7', 'sfG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (64, '6', '8', 'vG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (65, '6', '9', 'caG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (66, '6', '10', 'hG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (67, '7', '0', 'P'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (68, '7', '1', 'fP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (69, '7', '2', 'mP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (70, '7', '3', 'cP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (71, '7', '4', 'bkP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (72, '7', '5', 'syP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (73, '7', '6', 'soP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (74, '7', '7', 'sfP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (75, '7', '8', 'vP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (76, '7', '9', 'caP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (77, '7', '10', 'hP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (78, '8', '0', 'Cb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (79, '8', '1', 'fCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (80, '8', '2', 'mCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (81, '8', '3', 'cCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (82, '8', '4', 'bkCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (83, '8', '5', 'syCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (84, '8', '6', 'soCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (85, '8', '7', 'sfCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (86, '8', '8', 'vCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (87, '8', '9', 'caCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (88, '8', '10', 'hCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (89, '9', '0', 'R'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (90, '9', '1', 'fR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (91, '9', '2', 'mR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (92, '9', '3', 'cR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (93, '9', '4', 'bkR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (94, '9', '5', 'syR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (95, '9', '6', 'soR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (96, '9', '7', 'sfR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (97, '9', '8', 'vR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (98, '9', '9', 'caR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (99, '9', '10', 'hR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (100, '11', '0', 'L'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (101, '11', '1', 'fL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (102, '11', '2', 'mL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (103, '11', '3', 'cL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (104, '11', '4', 'bkL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (105, '11', '5', 'syL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (106, '11', '6', 'soL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (107, '11', '7', 'sfL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (108, '11', '8', 'vL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (109, '11', '9', 'caL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (110, '11', '10', 'hL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (111, '14', '0', 'Co'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (112, '14', '1', 'fCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (113, '14', '2', 'mCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (114, '14', '3', 'cCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (115, '14', '4', 'bkCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (116, '14', '5', 'syCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (117, '14', '6', 'soCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (118, '14', '7', 'sfCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (119, '14', '8', 'vCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (120, '14', '9', 'caCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (121, '14', '10', 'hCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (122, '17', '0', 'Sh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (123, '17', '1', 'fSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (124, '17', '2', 'mSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (125, '17', '3', 'cSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (126, '17', '4', 'bkSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (127, '17', '5', 'sySh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (128, '17', '6', 'soSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (129, '17', '7', 'sfSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (130, '17', '8', 'vSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (131, '17', '9', 'caSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (132, '17', '10', 'hSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (133, '18', '0', 'Bo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (134, '18', '1', 'fBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (135, '18', '2', 'mBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (136, '18', '3', 'cBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (137, '18', '4', 'bkBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (138, '18', '5', 'syBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (139, '18', '6', 'soBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (140, '18', '7', 'sfBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (141, '18', '8', 'vBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (142, '18', '9', 'caBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (143, '18', '10', 'hBo'); COMMIT;<\/code><\/pre>\n\n\n\n<\/div><\/div><\/p>\n\n\n\n <\/span>Creaci\u00f3n de la funci\u00f3n update_sbdare<\/span><\/h2>\n\n\n\nCargue la siguiente consulta en una ventana SQL de pgAdmin y ejec\u00fatela. Se supone que ha creado un esquema ‘enc’ para su base de datos. Si no es as\u00ed, edite la tabla sustituyendo ‘enc.’ por ‘su_esquema’.<\/p>\n\n\n\n <\/div> update_sbdare.sql<\/div><\/div><\/div><\/strong><\/p>\n\n\n\n\n\nCREATE OR REPLACE FUNCTION update_sbdare() RETURNS VOID AS $$ DECLARE rec_row RECORD; natsurt VARCHAR[4]; natquat VARCHAR[4]; S VARCHAR[3]; flag INT := 0; etiq VARCHAR(25); etiquet VARCHAR(25); BEGIN -- V\u00e9rifier si le champ 'Label' existe d\u00e9j\u00e0 IF EXISTS ( SELECT 1 FROM information_schema.columns WHERE table_schema = 'enc2' AND table_name = 'pt_sbdare' AND column_name = 'label' ) THEN<\/code><\/pre>\n\n\n\n-- Parcourir les lignes de la table enc.pt_sbdare\nFOR rec_row IN SELECT * FROM enc2.pt_sbdare WHERE label IS NULL LOOP\n -- R\u00e9initialiser les variables \u00e0 chaque it\u00e9ration de la boucle\n natsurt := ARRAY['','','',''];\n S := ARRAY[',',',',','];\n flag :=0;\n\n -- Extraire les parties de natsur\n FOR i IN 1..4 LOOP\n --sortie anticip\u00e9e\n IF i=4 AND flag=1 THEN\n EXIT;\n END IF;\n\n -- V\u00e9rifier si rec_row.natsur[i] est NULL\n IF rec_row.natsur[i] IS NULL THEN\n IF flag=0 THEN\n natsurt[i] := '0';\n ELSE\n natsurt[i+1] := '0';\n END IF;\n -- V\u00e9rifier si rec_row.natsur[i] contient un '\/'\n ELSIF strpos(rec_row.natsur[i], '\/') = 0 THEN\n IF flag=0 THEN\n natsurt[i] := rec_row.natsur[i];\n IF rec_row.natqua[i] IS NOT NULL THEN\n natquat[i] := rec_row.natqua[i];\n ELSE\n natquat[i] := '0';\n END IF;\n ELSE\n natsurt[i+1] := rec_row.natsur[i];\n IF rec_row.natqua[i] IS NOT NULL THEN\n natquat[i+1] := rec_row.natqua[i];\n ELSE\n natquat[i] := '0';\n END IF;\n END IF;\n\n ELSE\n -- Extraire les parties avant et apr\u00e8s le '\/'\n IF i < 5 THEN\n natsurt[i] := split_part(rec_row.natsur[i], '\/', 1);\n natsurt[i+1] := split_part(rec_row.natsur[i], '\/', 2);\n IF rec_row.natqua[i] IS NOT NULL THEN\n natquat[i] := rec_row.natqua[i];\n ELSE\n natquat[i] := '0';\n END IF;\n S[i] := '\/';\n flag :=1; -- nous avons trouv\u00e9 une valeur avec un '\/'\n ELSE\n natsurt[i] := split_part(rec_row.natsur[i], '\/', 1);\n END IF;\n END IF;\n END LOOP;\n\n etiquet :='';\n etiq :='';\n\n FOR i IN 1..4 LOOP\n IF natsurt[i] <> '0' THEN\n -- Ex\u00e9cutez la requ\u00eate SQL pour r\u00e9cup\u00e9rer le label en fonction de natsurt[i] et natquat[i]\n EXECUTE 'SELECT etiq FROM enc2.natsurf WHERE NATSURT = $1 AND NATQUAT = $2' INTO etiq USING natsurt[i], natquat[i];\n\n IF i =1 THEN\n etiquet := etiq ;\n ELSE\n etiquet := etiquet \|\| S[i-1] \|\| etiq;\n END IF;\n END IF;\n END LOOP;\n\n -- Mettre \u00e0 jour la ligne avec les valeurs extraites\n UPDATE enc2.pt_sbdare\n SET\n label = etiquet\n WHERE pt_sbdare.ogc_fid = rec_row.ogc_fid;\nEND LOOP;<\/code><\/pre>\n\n\n\nEND IF; END; $$ LANGUAGE plpgsql;\n\n<\/code><\/pre>\n\n\n\n<\/div><\/div><\/p>\n\n\n\n <\/span>Ejecuci\u00f3n manual de la funci\u00f3n para la primera actualizaci\u00f3n<\/span><\/h2>\n\n\n\nEn una ventana SQL de pgAdmin, introduzca la consulta<\/p>\n\n\n\n ALTER TABLE enc.pt_sbdare ADD COLUMN label VARCHAR(25);<\/em><\/strong><\/p>\n\n\n\n SELECT update_sbdare()<\/em><\/strong><\/p>\n\n\n\n El resultado ser\u00e1 el atributo ‘label’ en la tabla pt_sbdare. Posteriormente, al ejecutar clone_tables_with_prefix(), la actualizaci\u00f3n se realizar\u00e1 autom\u00e1ticamente.<\/p>\n\n\n\n \n","protected":false},"excerpt":{"rendered":"Este tema comprende dos art\u00edculos. El primero trata de la importaci\u00f3n de ficheros ENC S57 en una base de datos Postgresql\/postgis. El segundo trata de la creaci\u00f3n de una simbolog\u00eda autom\u00e1tica equivalente a las cartas n\u00e1uticas.…<\/p>\n","protected":false},"author":1,"featured_media":13952,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"give_campaign_id":0,"_bbp_topic_count":0,"_bbp_reply_count":0,"_bbp_total_topic_count":0,"_bbp_total_reply_count":0,"_bbp_voice_count":0,"_bbp_anonymous_reply_count":0,"_bbp_topic_count_hidden":0,"_bbp_reply_count_hidden":0,"_bbp_forum_subforum_count":0,"sfsi_plus_gutenberg_text_before_share":"","sfsi_plus_gutenberg_show_text_before_share":"","sfsi_plus_gutenberg_icon_type":"","sfsi_plus_gutenberg_icon_alignemt":"","sfsi_plus_gutenburg_max_per_row":"","_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[3216,1340],"tags":[3268,2735,2038,2801,3270,1365,3266,1369,2739,3272,3274],"class_list":["post-13032","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-postgis-fr-es","category-postgresql-es","tag-bat-es","tag-enc-es","tag-mapa","tag-ogr2ogr-es","tag-pgadmin-es","tag-postgis-es","tag-primitivas","tag-qgis-es","tag-s57-es","tag-sql-es","tag-trigger-es"],"aioseo_notices":[],"jetpack_featured_media_url":"https:\/\/i0.wp.com\/www.sigterritoires.fr\/wp-content\/uploads\/2025\/04\/banniere.jpg?fit=1024%2C1024&ssl=1","jetpack_shortlink":"https:\/\/wp.me\/p6XU0A-3oc","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/posts\/13032","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/comments?post=13032"}],"version-history":[{"count":0,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/posts\/13032\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/media\/13952"}],"wp:attachment":[{"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/media?parent=13032"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/categories?post=13032"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/tags?post=13032"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}

\n
\n
Contenu <\/p>\n Toggle<\/span>
El formato S57 y el SIG<\/a>
Tipos de geometr\u00eda<\/a><\/li>
Tratamiento de las sondas batim\u00e9tricas<\/a><\/li>
Recuperaci\u00f3n de identificadores \u00abpadre<\/a><\/li>
Tratamiento de tipo \u00ab\u00a0lista\u00a0\u00bb<\/a><\/li>
Gesti\u00f3n de la informaci\u00f3n duplicada<\/a><\/li>
Importaci\u00f3n de \u00abprimitivas\u00a0\u00bb<\/a><\/li><\/ul><\/li>
Esquemas PostgreSQL<\/a>
Creaci\u00f3n con una consulta SQL<\/a><\/li>
Crear con pgAdmin<\/a><\/li>
Preparaci\u00f3n de los esquemas de importaci\u00f3n<\/a><\/li>
Tablas DSID para esquemas de importaci\u00f3n<\/a><\/li>
Configuraci\u00f3n de activadores AFTER INSERT<\/a><\/li><\/ul><\/li>
Flujo de trabajo para cargar archivos S57<\/a>
Comandos ogr2ogr para crear tablas Postgis<\/a><\/li>
Carga de la base de datos a partir de los esquemas de importaci\u00f3n<\/a><\/li>
Tratamiento especial de la tabla pt_SBDARE<\/a><\/li>
Importar la tabla natsurf<\/a><\/li>
Creaci\u00f3n de la funci\u00f3n update_sbdare<\/a><\/li>
Ejecuci\u00f3n manual de la funci\u00f3n para la primera actualizaci\u00f3n<\/a><\/li><\/ul><\/li><\/ul><\/nav><\/div>\n\n\n\n\n
<\/span>El formato S57 y el SIG<\/span><\/h1>\n\n\n\n
Si va a empezar a trabajar con archivos S57 en un SIG, hay algunas cosas que debe tener en cuenta para navegar sin problemas.<\/p>\n\n\n\n
En primer lugar, la estructura de los ficheros S57 no se corresponde con las estructuras adoptadas en los SIG.<\/p>\n\n\n\n
En un SIG tienes un objeto geogr\u00e1fico que est\u00e1 representado por una tabla con dos tipos de informaci\u00f3n: la geometr\u00eda de las entidades del objeto y los atributos de estas entidades.<\/p>\n\n\n\n
Si tiene otros objetos con geometr\u00edas id\u00e9nticas, la informaci\u00f3n geom\u00e9trica se duplica, una vez en cada tabla.<\/p>\n\n\n\n
En el formato S57, el objetivo principal es optimizar el almacenamiento de la informaci\u00f3n y, por tanto, no duplicarla. Si un objeto tiene una entidad puntual, se crear\u00e1 un punto. Si otros objetos tienen entidades situadas en este punto, se utilizar\u00e1 la referencia del punto ya creado. De este modo, un punto s\u00f3lo se describe una vez en el fichero. Lo mismo ocurre con las polil\u00edneas y las superficies. Por tanto, un fichero S57 tendr\u00e1 una serie de tablas con informaci\u00f3n geom\u00e9trica, denominadas \u00abprimitivas\u00bb:<\/p>\n\n\n\n
\n
IsolatedNode (puntos)<\/li>\n\n\n\n
ConnectedNode (puntos)<\/li>\n\n\n\n
Edge (polil\u00edneas)<\/li>\n\n\n\n
Face (pol\u00edgonos)<\/li>\n<\/ul>\n\n\n\n
La tabla de atributos de los distintos objetos S57 s\u00f3lo contiene los atributos de los objetos.<\/p>\n\n\n\n
<\/span>Tipos de geometr\u00eda<\/span><\/h2>\n\n\n\n
Las \u00abcapas\u00bb S57 son clases de objetos. Por ejemplo, las diferentes zonas terrestres se codifican en la clase de objeto LNDARE.<\/p>\n\n\n\n
La definici\u00f3n de esta clase de objeto es :<\/p>\n\n\n\n
Geo objeto: Superficie terrestre (LNDARE) (P,L,A)
Atributos: CONDTN OBJNAM NOBJNM STATUS INFORM NINFOM<\/p>\n\n\n\n
Aunque todos los objetos LNDARE tienen los mismos atributos, no ocurre lo mismo con el tipo de geometr\u00eda. La informaci\u00f3n (P, L, A) indica que en esta clase de objetos se pueden encontrar puntos, l\u00edneas y pol\u00edgonos. A diferencia de las normas SIG, los tres tipos de geometr\u00eda coexisten dentro de la misma clase de objetos.<\/p>\n\n\n\n
Para pasar del formato S57 a una base de datos Postgresql\/Postgis, utilizaremos la librer\u00eda GDAL, incluida con QGis.<\/p>\n\n\n\n
Las operaciones con GDAL se realizar\u00e1n en la l\u00ednea de comandos en una ventana de OSGeo4W.<\/p>\n\n\n\n
La sintaxis b\u00e1sica para procesar un archivo S57 (extensi\u00f3n .000) e importarlo a una base de datos Postgtresql\/Postgis es la siguiente:<\/p>\n\n\n\n
ogr2ogr -f PostgreSQL PG: \u00abdbname=\u201cpostgis_34_sample\u201d host=\u201clocalhost\u201d port=\u201c5434\u201d user=\u201cpostgres\u201d password=\u201cpsw\u201d active_schema=\u201cschema\u201d\u00bb Archivo .000<\/p>\n\n\n\n
Veremos las diferentes opciones a utilizar y su funci\u00f3n, pero por ahora a\u00f1adiremos las opciones -skipfailures -append -update.<\/p>\n\n\n\n
ogr2ogr -skipfailures -append \u2013update -f PostgreSQL PG:\"dbname='postgis_34_sample' host='localhost' port='5434' user='postgres' password='psw' active_schema='schema'\" fichier.000<\/em><\/code><\/pre>\n\n\n\nLa primera permite que el procesamiento contin\u00fae aunque se detecten errores. Las dos siguientes nos permiten no sobrescribir las tablas postgresql de salida si existen, sino actualizarlas a\u00f1adiendo los datos del fichero S57 de entrada.<\/p>\n\n\n\n Sea cual sea el formato elegido para la integraci\u00f3n en QGis, tendremos que crear una capa para cada tipo de geometr\u00eda. Si no lo hacemos, GDAL crear\u00e1 el tipo de capa bas\u00e1ndose en la primera entidad encontrada durante la conversi\u00f3n. Si es de tipo punto, la capa creada ser\u00e1 de tipo punto y las entidades l\u00edneas y pol\u00edgonos ser\u00e1n ignoradas. Del mismo modo, si la primera entidad es de tipo l\u00ednea, se ignorar\u00e1n los puntos y pol\u00edgonos.<\/p>\n\n\n\n Tambi\u00e9n hay que tener en cuenta que el formato S57 no tiene restricciones sobre las clases de objetos: si no hay ninguna clase de objeto en el \u00e1rea cubierta por el fichero S57, no habr\u00e1 nada sobre \u00e9l en el fichero (ninguna capa vac\u00eda). Del mismo modo, si s\u00f3lo hay un tipo de geometr\u00eda presente, aunque los tres tipos sean posibles, no habr\u00e1 rastro de los otros tipos de geometr\u00eda.<\/p>\n\n\n\n Por consiguiente, el tratamiento de un fichero S57 con ogr2ogr debe dividirse en tres etapas, una para cada tipo de geometr\u00eda. Las siguientes opciones permiten procesar cada clase de objeto S57 seleccionando un solo tipo de geometr\u00eda::<\/p>\n\n\n\n
-where \u00ab OGR_GEOMETRY=\u2019POINT\u2019 or OGR_GEOMETRY=\u2019MULTIPOINT\u2019 \u00bb<\/code><\/pre>\n\n\n\n-where \u00ab OGR_GEOMETRY=\u2019LINESTRING\u2019 or OGR_GEOMETRY=\u2019MULTILINESTRING\u2019 \u00bb<\/code><\/pre>\n\n\n\n-where \u00ab OGR_GEOMETRY=\u2019POLYGON\u2019 or OGR_GEOMETRY=\u2019MULTIPOLYGON\u2019 \u00bb<\/code><\/pre>\n\n\n\nPara determinados tipos de controlador, GDAL permite crear prefijos en las tablas de salida. En este caso podr\u00edas crear todas las tablas (puntos, l\u00edneas, pol\u00edgonos) en un \u00fanico esquema prefij\u00e1ndolas con pt_, li_ y pl_, por ejemplo. El problema es que el controlador S57 de GDAL no permite esta opci\u00f3n. Por tanto, tendremos que crear tres esquemas distintos, en los que se crear\u00e1n las tablas en funci\u00f3n del tipo de geometr\u00eda. Cada esquema contendr\u00e1 una tabla con el mismo nombre pero con una geometr\u00eda diferente.<\/p>\n\n\n\n Aqu\u00ed utilizaremos tres esquemas de importaci\u00f3n para los comandos ogr2ogr, en los que importaremos tablas de un fichero S57. Los llamaremos pointsenc, linesenc y polysenc. Tambi\u00e9n crearemos un esquema llamado ENC para la base de datos completa. Para cada mapa ENC importaremos su contenido en los tres esquemas de importaci\u00f3n con ogr2ogr y luego ejecutaremos consultas SQL para actualizar la base de datos del esquema ENC con las nuevas tablas importadas. Tanto si tiene que cargar un \u00fanico archivo S57 como un lote de archivos S57 simult\u00e1neamente, el proceso es el siguiente:<\/p>\n\n\n\n \nCargar clases de objetos Point en el esquema pointsENC con ogr2ogr<\/li>\n\n\n\n Carga de clases de objetos Lines en el esquema LinesENC con ogr2ogr<\/li>\n\n\n\n Carga de clases de objetos Polygon en el esquema PolysENC con ogr2ogr<\/li>\n\n\n\n Eliminar tablas vac\u00edas de los tres esquemas<\/li>\n\n\n\n Actualizaci\u00f3n de tablas existentes en el esquema ENC a partir de los tres esquemas de importaci\u00f3n<\/li>\n\n\n\n Clonaci\u00f3n de tablas de los tres esquemas de importaci\u00f3n que no estaban presentes en el esquema ENC<\/li>\n\n\n\n Supresi\u00f3n de tablas de los tres esquemas de importaci\u00f3n<\/li>\n<\/ol>\n\n\n\n<\/span>Tratamiento de las sondas batim\u00e9tricas<\/span><\/h2>\n\n\n\nLas sondas batim\u00e9tricas plantean varios problemas durante la conversi\u00f3n del formato. El primero es que el valor de profundidad no est\u00e1 contenido en un atributo, sino como Z en la geometr\u00eda (XYZ). El segundo es que las sondas no son de tipo Punto, sino Multipunto. Para obtener el valor de las sondas directamente en un campo de atributo, es necesario a\u00f1adir dos par\u00e1metros a la l\u00ednea de comandos de ogr2ogr:<\/p>\n\n\n\n -oo SPLIT_MULTIPOINT=ON -oo ADD_SOUNDG_DEPTH=ON<\/p>\n\n\n\n El primero convierte las entidades multipunto en puntos individuales, y el segundo a\u00f1ade un campo de atributo \u00abDEPTH\u00bb a la tabla de salida con el valor Z de la geometr\u00eda.<\/p>\n\n\n\n <\/span>Recuperaci\u00f3n de identificadores \u00abpadre<\/span><\/h2>\n\n\n\nAlgunos objetos pueden agruparse por un objeto padre no geogr\u00e1fico. Por ejemplo, los sectores de incendio se codifican con un sector por registro en la tabla \u00abLUCES\u00bb. Los distintos sectores de un mismo incendio no tienen ning\u00fan atributo particular que pueda indicar que corresponden a la misma entidad. Esta informaci\u00f3n figura en un registro \u00abpadre\u00bb. Para recuperar este identificador como atributo de la tabla \u00abLIGTHS\u00bb, es necesario a\u00f1adir una opci\u00f3n a la l\u00ednea de comandos:<\/p>\n\n\n\n -oo RETURN_LINKAGES=O<\/p>\n\n\n\n Esta opci\u00f3n crea un atributo name_rcid com\u00fan a todos los sectores de un mismo sem\u00e1foro, pero tambi\u00e9n crea una serie de campos (name_rcnm,ORNT,USAG,MASK).<\/p>\n\n\n\n <\/span>Tratamiento de tipo \u00ab\u00a0lista\u00a0\u00bb<\/span><\/h2>\n\n\n\nAdem\u00e1s de los tipos de campo tradicionales (entero, real, texto), el formato S57 utiliza un tipo especial: las listas de cadenas de caracteres o enteros. Estos tipos de campo se encuentran en PostgreSQL, pero no en shapefiles y geopackage<\/a>. Por lo tanto, no es necesario transformar las listas S57 en cadenas de caracteres de la misma manera que para estos formatos. De hecho, se desaconseja totalmente, ya que complicar\u00eda el procesamiento de los atributos de tipo lista.<\/p>\n\n\n\n <\/span>Gesti\u00f3n de la informaci\u00f3n duplicada<\/span><\/h2>\n\n\n\nCuando carga varios mapas ENC en la misma base de datos, puede encontrarse con una duplicaci\u00f3n de informaci\u00f3n cuando la cobertura de dos o m\u00e1s mapas se solapa.<\/p>\n\n\n\n Estos duplicados pueden ser de dos tipos diferentes:<\/p>\n\n\n\n Duplicados \u00abverdaderos\u00bb, en los que todos los atributos son iguales. Son poco frecuentes porque resultan de la superposici\u00f3n de dos superposiciones cartogr\u00e1ficas de escala muy similar. Sin embargo, tambi\u00e9n pueden ser el resultado de un error al recargar un archivo S57 duplicado. Estos duplicados pueden eliminarse.<\/p>\n\n\n\n Duplicados \u00abfalsos\u00bb, en los que la informaci\u00f3n de la capa est\u00e1 duplicada pero los identificadores del registro no son necesariamente id\u00e9nticos. Se producen cuando se cargan en la misma base de datos zonas cartografiadas a diferentes escalas. Adem\u00e1s, dependiendo de la escala, la misma informaci\u00f3n (por ejemplo, un obst\u00e1culo) puede tener una geometr\u00eda diferente (punto en el mapa, \u00e1rea en otro). Este tipo de duplicaciones no deben suprimirse, sino gestionarse.<\/p>\n\n\n\n Para gestionar estas duplicaciones, y tambi\u00e9n para garantizar que la informaci\u00f3n se muestra correctamente, es necesario a\u00f1adir atributos de mapa a las capas. Una vez integradas en una capa, las entidades procedentes de archivos diferentes no tienen ning\u00fan atributo que permita rastrearlas hasta su fuente.<\/p>\n\n\n\n Hemos incluido el c\u00f3digo necesario en el procedimiento de importaci\u00f3n SQL para a\u00f1adir el nombre del fichero, la escala de compilaci\u00f3n de datos y la finalidad del gr\u00e1fico a todas las tablas del esquema.<\/p>\n\n\n\n En cuanto al nombre, puede ser \u00fatil en el mantenimiento posterior de la base de datos para poder seleccionar las entidades correspondientes a un fichero fuente S57.<\/p>\n\n\n\n Si bien el nombre del mapa tiene una utilidad relativa, no puede decirse lo mismo de la escala, ya que se trata de un criterio esencial en la b\u00fasqueda de duplicados. Cuando se mezclan entidades procedentes de varios ficheros S57, los datos de diferentes escalas coexistir\u00e1n m\u00e1s o menos felizmente.<\/p>\n\n\n\n Adem\u00e1s de la escala, hay un dato que puede ser muy \u00fatil: la finalidad del mapa. Se trata de un valor comprendido entre 1 y 6 y corresponde al objetivo principal del mapa:<\/p>\n\n\n\n \n1: Visi\u00f3n general<\/li>\n\n\n\n 2: General<\/li>\n\n\n\n 3: Costero<\/li>\n\n\n\n 4: Aproximaci\u00f3n<\/li>\n\n\n\n 5: Puerto<\/li>\n\n\n\n 6 : Atraque<\/li>\n<\/ul>\n\n\n\nHemos importado 4500 archivos S57 en la base de datos del proyecto utilizando PostgreSQL\/Postgis. Los valores m\u00ednimo y m\u00e1ximo de la escala de todos los mapas para el objetivo 5 son 3000 y 60000. Los valores m\u00ednimo y m\u00e1ximo de escala para el objetivo 6 son 2500 y 15000. Est\u00e1 claro que los valores de escala de los mapas m\u00e1s detallados se encuentran dentro de los mapas de tipo 5.<\/p>\n\n\n\n He aqu\u00ed el resultado para todos los objetivos:<\/p>\n\n\n\n Tabla de objetivos y escalas<\/td><\/tr> Purpose<\/td> min_scale<\/td> max_scale<\/td><\/tr><\/thead> 1<\/td> 325000<\/td> 10000000<\/td><\/tr> 2<\/td> 100000<\/td> 1534076<\/td><\/tr> 3<\/td> 50000<\/td> 600000<\/td><\/tr> 4<\/td> 12500<\/td> 150000<\/td><\/tr> 5<\/td> 3000<\/td> 60000<\/td><\/tr> 6<\/td> 2500<\/td> 15000<\/td><\/tr><\/tbody><\/table><\/figure>\n\n\n\nLa tabla DSID para archivos S57 contiene dos atributos: el nombre del archivo S57 y la escala de compilaci\u00f3n de datos, as\u00ed como el atributo \u00abprop\u00f3sito\u00bb. Este atributo se encuentra en la misma tabla DSID utilizada para recuperar la escala con el nombre DSID_INTU.<\/p>\n\n\n\n Como los comandos ogr2ogr s\u00f3lo cargan tablas espaciales por defecto, necesitaremos ejecutar un comando especial solicitando que se cargue la tabla DSID:<\/p>\n\n\n\n ogr2ogr -skipfailures -append -update -f PostgreSQL PG: \u00abdbname\u2026 \u00ab DSID<\/p>\n\n\n\n <\/span>Importaci\u00f3n de \u00abprimitivas\u00a0\u00bb<\/span><\/h2>\n\n\n\nUn fichero S57 tiene, por tanto, una serie de tablas que contienen informaci\u00f3n geom\u00e9trica, denominadas \u00abprimitivas\u00bb:<\/p>\n\n\n\n \nIsolatedNode (puntos)<\/li>\n\n\n\n ConnectedNode (puntos)<\/li>\n\n\n\n Edge (polil\u00edneas)<\/li>\n\n\n\n Face(pol\u00edgonos)<\/li>\n<\/ul>\n\n\n\nLa tabla de atributos de los distintos objetos S57 s\u00f3lo contiene los atributos de los objetos.<\/p>\n\n\n\n Lo que complica la tarea es que hay dos atributos que se refieren a las geometr\u00edas: posacc (la precisi\u00f3n estimada de la posici\u00f3n, un valor cuantitativo) y quapos (calidad de la posici\u00f3n, una variable cualitativa).<\/p>\n\n\n\n Estos dos atributos se encuentran en las tablas primitivas.<\/p>\n\n\n\n Para pasar de la estructura S57 a una estructura SIG (shapefile<\/a>, geopackage, postgis) utilizamos la biblioteca GDAL y su comando ogr2ogr.<\/p>\n\n\n\n Este comando crea tablas SIG a partir de la estructura S57, creando una tabla por cada objeto S57, asignando la geometr\u00eda correspondiente de las tablas de primitivas a cada entidad y a\u00f1adiendo los atributos del objeto S57 a cada entidad. La traza de las primitivas utilizadas para la geometr\u00eda de cada entidad puede encontrarse en el campo NAME_RCID de las tablas SIG, siempre que se hayan a\u00f1adido las opciones -oo \u00abRETURN_LINKAGES=ON\u00bb -oo \u00abLNAM_REFS=ON\u00bb a la l\u00ednea de comandos de ogr2ogr.<\/p>\n\n\n\n La siguiente figura muestra una capa de tipo punto. El valor indicado en el campo NAME_RCID es el RCID del punto utilizado en la tabla IsolatedNode.<\/p>\n\n\n\n <\/a><\/figure>\n\n\n\nLa siguiente figura muestra un ejemplo de capa de tipo lineal. Los valores indicados en el campo NAME_RCID son los de los RCID de las polil\u00edneas utilizadas en la tabla Edge.<\/p>\n\n\n\n<\/a><\/figure>\n\n\n\nLa siguiente figura muestra un ejemplo de capa de tipo poligonal. Los valores indicados en el campo NAME_RCID son los de las polil\u00edneas utilizadas en la tabla Edge.<\/p>\n\n\n\n<\/a><\/figure>\n\n\n\nPara recuperar los atributos QUAPOS y POSACC de cada entidad en las tablas de tipo punto, necesitamos recuperar los valores del punto IsolatedNode y asignarlos a las tablas de los distintos objetos ENC.<\/p>\n\n\n\n Si los identificadores fueran directamente los RCID de las tablas ENC, podr\u00edamos hacer un join entre cada tabla (soundg, obstrn,\u2026) y IsolatedNode. Pero como se puede ver en las im\u00e1genes anteriores, el atributo NAME_RCID es de tipo stringlist, lo que bloquea esta soluci\u00f3n. Por lo tanto, hemos desarrollado una consulta SQL que realiza este trabajo al cargar los datos de los esquemas de importaci\u00f3n en el esquema ENC.<\/p>\n\n\n\n<\/span>Esquemas PostgreSQL<\/span><\/h1>\n\n\n\nPara crear tablas de importaci\u00f3n en un esquema espec\u00edfico, es necesario utilizar la opci\u00f3n active_schema de ogr2ogr. Con esta opci\u00f3n, PostgreSQL permite crear tablas con el mismo nombre en varios esquemas diferentes. S\u00f3lo hay una excepci\u00f3n, el esquema P\u00fablico. Si se utiliza un nombre de tabla en este esquema, se ignora la opci\u00f3n active_schema. Por lo tanto, debe tener cuidado de no crear tablas S57 en el esquema P\u00fablico. Si esto ocurre, tendr\u00e1 que eliminarlas manualmente una a una.<\/p>\n\n\n\n<\/span>Creaci\u00f3n con una consulta SQL<\/span><\/h2>\n\n\n\nLa siguiente consulta crea los cuatro esquemas necesarios:<\/p>\n\n\n\n <\/div>createschemas.sql<\/div><\/div><\/div><\/strong><\/p>\n\n\n\nCREATE SCHEMA IF NOT EXISTS encm AUTHORIZATION pg_database_owner; GRANT ALL ON SCHEMA encm TO pg_database_owner; CREATE SCHEMA IF NOT EXISTS pointsenc AUTHORIZATION pg_database_owner; GRANT ALL ON SCHEMA pointsenc TO pg_database_owner; CREATE SCHEMA IF NOT EXISTS linesenc AUTHORIZATION pg_database_owner; GRANT ALL ON SCHEMA linesenc TO pg_database_owner; CREATE SCHEMA IF NOT EXISTS polysenc AUTHORIZATION pg_database_owner; GRANT ALL ON SCHEMA polysenc TO pg_database_owner;<\/p>\n\n\n\n <\/div><\/div><\/p>\n\n\n\n <\/span>Crear con pgAdmin<\/span><\/h2>\n\n\n\nPara crear esquemas, abra pgAdmin4, y en Esquemas abra el men\u00fa contextual->Crear-Esquema<\/p>\n\n\n\n <\/a><\/figure>\n\n\n\nIntroduzca el nombre deseado para el esquema:<\/p>\n\n\n\n<\/a><\/figure>\n\n\n\nRepita esta operaci\u00f3n para crear los cuatro esquemas necesarios para nuestra base de datos ENC.<\/p>\n\n\n\n<\/a><\/figure>\n\n\n\n\nATENCI\u00d3N: Los dos m\u00e9todos de creaci\u00f3n no dan el mismo resultado. Cuando se utiliza pgAdmin, los nombres de los esquemas distinguen entre may\u00fasculas y min\u00fasculas y van entre comillas (\u00abENCpoints\u00bb, por ejemplo). Cuando usas SQL, los nombres siempre estar\u00e1n en min\u00fasculas y no habr\u00e1 comillas (puntosenc, por ejemplo). Para evitar esto, no uses may\u00fasculas en pgAdmin.<\/em><\/p><\/blockquote><\/figure>\n<\/blockquote>\n\n\n\n En el resto de este art\u00edculo utilizaremos los nombres de la consulta SQL. Si decide utilizar may\u00fasculas, tendr\u00e1 que modificar los nombres de los esquemas en el c\u00f3digo proporcionado..<\/strong><\/em><\/p>\n\n\n\n<\/span>Preparaci\u00f3n de los esquemas de importaci\u00f3n<\/span><\/h2>\n\n\n\nLa fase de importaci\u00f3n de tablas con ogr2ogr no se limita a la simple ejecuci\u00f3n del comando de transcodificaci\u00f3n S57->Postgresql.<\/p>\n\n\n\n Una vez poblado el esquema con las tablas de clases del fichero S57, a\u00f1adiremos la tabla DSID, que servir\u00e1 para recuperar el nombre del fichero S57, la escala de compilaci\u00f3n de datos y la finalidad del mapa.<\/p>\n\n\n\n Antes debemos a\u00f1adir estos atributos a todas las tablas no vac\u00edas resultantes del comando ogr2ogr, aprovechando para crear tambi\u00e9n los atributos QUAPOS y POSACC que se rellenar\u00e1n m\u00e1s adelante.<\/p>\n\n\n\n El principio de este paso es el siguiente:<\/p>\n\n\n\n\nEn el fichero batch (.bat), ejecute el comando para cargar un tipo de geometr\u00eda.<\/li>\n\n\n\n Una vez ejecutada esta l\u00ednea de c\u00f3digo, se carga la tabla DSID en el mismo esquema.<\/li>\n\n\n\nUn trigger AFTER INSERT sobre la tabla dsid en el esquema comienza borrando las tablas vac\u00edas, luego crea los atributos enc_chart, scale, purpose, posacc y quapos en todas las tablas. A\u00f1ade los valores de enc_chart, scale y purpose a todos los registros de las tablas.<\/li>\n<\/ol>\n\n\n\nEste procedimiento se realiza para cada tipo de geometr\u00eda: punto, l\u00ednea y pol\u00edgono.<\/p>\n\n\n\n Para que este procedimiento funcione, necesitamos configurar algunos elementos en la base de datos Postgresql.<\/p>\n\n\n\n<\/span>Tablas DSID para esquemas de importaci\u00f3n<\/span><\/h2>\n\n\n\nComo utilizaremos un disparador en estas tablas, es necesario crearlas antes de la primera carga. As\u00ed, en cada esquema de importaci\u00f3n, crearemos una tabla<\/p>\n\n\n\n\nPointsdsid en el esquema pointsenc<\/li>\n\n\n\n Linesdsid en el esquema linesenc<\/li>\n\n\n\n Polysdsid en el esquema polysenc<\/li>\n<\/ul>\n\n\n\n<\/div>create_DSID_tables.sql<\/div><\/div><\/div><\/p>\n\n\n\n-- Cr\u00e9ation de la s\u00e9quence pointsdsid_ogc_fid_seq CREATE SEQUENCE IF NOT EXISTS pointsenc.pointsdsid_ogc_fid_seq START WITH 1 INCREMENT BY 1 NO MINVALUE NO MAXVALUE CACHE 1;<\/code><\/pre>\n\n\n\n-- Cr\u00e9ation de la s\u00e9quence polysdsid_ogc_fid_seq<\/code><\/pre>\n\n\n\nCREATE SEQUENCE IF NOT EXISTS polysenc.polysdsid_ogc_fid_seq START WITH 1 INCREMENT BY 1 NO MINVALUE NO MAXVALUE CACHE 1;<\/code><\/pre>\n\n\n\n -- Cr\u00e9ation de la s\u00e9quence linesdsid_ogc_fid_seq<\/code><\/pre>\n\n\n\nCREATE SEQUENCE IF NOT EXISTS linesenc.linesdsid_ogc_fid_seq START WITH 1 INCREMENT BY 1 NO MINVALUE NO MAXVALUE CACHE 1; -- Table: pointsenc.pointsdsid<\/code><\/pre>\n\n\n\n-- DROP TABLE IF EXISTS pointsenc.pointsdsid;<\/code><\/pre>\n\n\n\nCREATE TABLE IF NOT EXISTS pointsenc.pointsdsid ( ogc_fid integer NOT NULL DEFAULT nextval('pointsenc.pointsdsid_ogc_fid_seq'::regclass), dsid_expp numeric(3,0), dsid_intu numeric(3,0), dsid_dsnm character varying COLLATE pg_catalog.\"default\", dsid_edtn character varying COLLATE pg_catalog.\"default\", dsid_updn character varying COLLATE pg_catalog.\"default\", dsid_uadt character varying(8) COLLATE pg_catalog.\"default\", dsid_isdt character varying(8) COLLATE pg_catalog.\"default\", dsid_sted numeric(11,6), dsid_prsp numeric(3,0), dsid_psdn character varying COLLATE pg_catalog.\"default\", dsid_pred character varying COLLATE pg_catalog.\"default\", dsid_prof numeric(3,0), dsid_agen numeric(5,0), dsid_comt character varying COLLATE pg_catalog.\"default\", dssi_dstr numeric(3,0), dssi_aall numeric(3,0), dssi_nall numeric(3,0), dssi_nomr numeric(10,0), dssi_nocr numeric(10,0), dssi_nogr numeric(10,0), dssi_nolr numeric(10,0), dssi_noin numeric(10,0), dssi_nocn numeric(10,0), dssi_noed numeric(10,0), dssi_nofa numeric(10,0), dspm_hdat numeric(3,0), dspm_vdat numeric(3,0), dspm_sdat numeric(3,0), dspm_cscl numeric(10,0), dspm_duni numeric(3,0), dspm_huni numeric(3,0), dspm_puni numeric(3,0), dspm_coun numeric(3,0), dspm_comf numeric(10,0), dspm_somf numeric(10,0), dspm_comt character varying COLLATE pg_catalog.\"default\", CONSTRAINT pointsdsid_pkey PRIMARY KEY (ogc_fid) )<\/code><\/pre>\n\n\n\nTABLESPACE pg_default;<\/code><\/pre>\n\n\n\nALTER TABLE IF EXISTS pointsenc.pointsdsid OWNER to postgres; -- Table: polysenc.polysdsid<\/code><\/pre>\n\n\n\n-- DROP TABLE IF EXISTS polysenc.polysdsid;<\/code><\/pre>\n\n\n\nCREATE TABLE IF NOT EXISTS polysenc.polysdsid ( ogc_fid integer NOT NULL DEFAULT nextval('polysenc.polysdsid_ogc_fid_seq'::regclass), dsid_expp numeric(3,0), dsid_intu numeric(3,0), dsid_dsnm character varying COLLATE pg_catalog.\"default\", dsid_edtn character varying COLLATE pg_catalog.\"default\", dsid_updn character varying COLLATE pg_catalog.\"default\", dsid_uadt character varying(8) COLLATE pg_catalog.\"default\", dsid_isdt character varying(8) COLLATE pg_catalog.\"default\", dsid_sted numeric(11,6), dsid_prsp numeric(3,0), dsid_psdn character varying COLLATE pg_catalog.\"default\", dsid_pred character varying COLLATE pg_catalog.\"default\", dsid_prof numeric(3,0), dsid_agen numeric(5,0), dsid_comt character varying COLLATE pg_catalog.\"default\", dssi_dstr numeric(3,0), dssi_aall numeric(3,0), dssi_nall numeric(3,0), dssi_nomr numeric(10,0), dssi_nocr numeric(10,0), dssi_nogr numeric(10,0), dssi_nolr numeric(10,0), dssi_noin numeric(10,0), dssi_nocn numeric(10,0), dssi_noed numeric(10,0), dssi_nofa numeric(10,0), dspm_hdat numeric(3,0), dspm_vdat numeric(3,0), dspm_sdat numeric(3,0), dspm_cscl numeric(10,0), dspm_duni numeric(3,0), dspm_huni numeric(3,0), dspm_puni numeric(3,0), dspm_coun numeric(3,0), dspm_comf numeric(10,0), dspm_somf numeric(10,0), dspm_comt character varying COLLATE pg_catalog.\"default\", CONSTRAINT polysdsid_pkey PRIMARY KEY (ogc_fid) )<\/code><\/pre>\n\n\n\nTABLESPACE pg_default;<\/code><\/pre>\n\n\n\nALTER TABLE IF EXISTS polysenc.polysdsid OWNER to postgres; -- Table: linesenc.linesdsid<\/code><\/pre>\n\n\n\n-- DROP TABLE IF EXISTS linesenc.linesdsid;<\/code><\/pre>\n\n\n\nCREATE TABLE IF NOT EXISTS linesenc.linesdsid ( ogc_fid integer NOT NULL DEFAULT nextval('linesenc.linesdsid_ogc_fid_seq'::regclass), dsid_expp numeric(3,0), dsid_intu numeric(3,0), dsid_dsnm character varying COLLATE pg_catalog.\"default\", dsid_edtn character varying COLLATE pg_catalog.\"default\", dsid_updn character varying COLLATE pg_catalog.\"default\", dsid_uadt character varying(8) COLLATE pg_catalog.\"default\", dsid_isdt character varying(8) COLLATE pg_catalog.\"default\", dsid_sted numeric(11,6), dsid_prsp numeric(3,0), dsid_psdn character varying COLLATE pg_catalog.\"default\", dsid_pred character varying COLLATE pg_catalog.\"default\", dsid_prof numeric(3,0), dsid_agen numeric(5,0), dsid_comt character varying COLLATE pg_catalog.\"default\", dssi_dstr numeric(3,0), dssi_aall numeric(3,0), dssi_nall numeric(3,0), dssi_nomr numeric(10,0), dssi_nocr numeric(10,0), dssi_nogr numeric(10,0), dssi_nolr numeric(10,0), dssi_noin numeric(10,0), dssi_nocn numeric(10,0), dssi_noed numeric(10,0), dssi_nofa numeric(10,0), dspm_hdat numeric(3,0), dspm_vdat numeric(3,0), dspm_sdat numeric(3,0), dspm_cscl numeric(10,0), dspm_duni numeric(3,0), dspm_huni numeric(3,0), dspm_puni numeric(3,0), dspm_coun numeric(3,0), dspm_comf numeric(10,0), dspm_somf numeric(10,0), dspm_comt character varying COLLATE pg_catalog.\"default\", CONSTRAINT linesdsid_pkey PRIMARY KEY (ogc_fid) )<\/code><\/pre>\n\n\n\nTABLESPACE pg_default;<\/code><\/pre>\n\n\n\nALTER TABLE IF EXISTS linesenc.linesdsid OWNER to postgres;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/span>Configuraci\u00f3n de activadores AFTER INSERT<\/span><\/h2>\n\n\n\nDespu\u00e9s de insertar una fila en la tabla DSID del esquema, estos activadores<\/p>\n\n\n\n \neliminar\u00e1n cualquier tabla vac\u00eda del esquema<\/li>\n\n\n\n comprobar\u00e1n si los campos adicionales ya existen y, en caso contrario, crear\u00e1n los 5 atributos ‘(enc_chart, scale, purpose,posacc y quapos),<\/li>\n\n\n\n a\u00f1ada los valores del registro DSID a los atributos enc_chart, scale y purpose,<\/li>\n\n\n\n y finalmente borrar el registro de la tabla DSID.<\/li>\n<\/ul>\n\n\n\nExiste una funci\u00f3n para cada tipo de geometr\u00eda,<\/p>\n\n\n\n \ncreate_fields_and_update_values_pointsenc()<\/li>\n\n\n\n create_fields_and_update_values_linesenc()<\/li>\n\n\n\n create_fields_and_update_values_polysenc()<\/li>\n<\/ul>\n\n\n\na continuaci\u00f3n, una consulta SQL para configurar desencadenadores en cada una de las tablas DSID (pointsDSID,linesDSID,polysDSID)<\/p>\n\n\n\n <\/div>create_fields_and_update_values_pointsenc()<\/div><\/div><\/div><\/p>\n\n\n\nCREATE OR REPLACE FUNCTION create_fields_and_update_values_pointsenc()<\/code><\/pre>\n\n\n\nRETURNS TRIGGER AS $$ DECLARE table_record RECORD; tables_import RECORD; enc_chart_value TEXT; scale_value NUMERIC; purpose_value NUMERIC; empty_tables int; BEGIN --Le code suivant permet de supprimer les tables vides d'un sch\u00e9ma d'import: FOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'pointsenc' AND table_name != 'pointsdsid' LOOP -- Composer une requ\u00eate dynamique pour v\u00e9rifier si la table est vide EXECUTE format('SELECT COUNT(*) FROM pointsenc.%I', table_record.table_name) INTO empty_tables;<\/code><\/pre>\n\n\n\n-- Si le nombre de lignes est \u00e9gal \u00e0 z\u00e9ro, supprimer la table\n IF empty_tables = 0 THEN\n EXECUTE format('DROP TABLE IF EXISTS pointsenc.%I CASCADE', table_record.table_name);\n RAISE NOTICE 'Table pointsenc.%I supprim\u00e9e car elle est vide.', table_record.table_name;\n END IF;\nEND LOOP;\n\n-- Parcours de toutes les tables du sch\u00e9ma pointsenc \nFOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'pointsenc' AND table_name != 'pointsdsid' LOOP\n -- V\u00e9rifie si les champs enc_chart et scale n'existent pas dans la table actuelle\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'pointsenc' AND table_name = table_record.table_name AND column_name IN ('enc_chart', 'scale','purpose')\n ) THEN\n -- Cr\u00e9e le champ enc_chart de type texte\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN enc_chart TEXT', table_record.table_name);\n -- Cr\u00e9e le champ scale de type num\u00e9rique\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN scale NUMERIC', table_record.table_name);\n -- Cr\u00e9e le champ purpose de type num\u00e9rique\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN purpose NUMERIC', table_record.table_name);\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'pointsenc' AND table_name = table_record.table_name AND column_name IN ('posacc','quapos')\n ) THEN\n -- Cr\u00e9e le champ POSACC de type num\u00e9rique\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN posacc NUMERIC(10,0)', table_record.table_name);\n -- Cr\u00e9e le champ QUAPOS de type num\u00e9rique\n EXECUTE format('ALTER TABLE pointsenc.%I ADD COLUMN quapos INTEGER', table_record.table_name);\n END IF;\n RAISE NOTICE 'Champs enc_chart, scale , purpose, POSACC et QUIAPOS cr\u00e9\u00e9s dans la table %', table_record.table_name;\n\n END IF;\n -- Obtient la valeur de enc_chart \u00e0 partir de la table DSID pour DSID_DSNM\n SELECT DSID_DSNM INTO enc_chart_value FROM pointsdsid LIMIT 1;\n -- Obtient la valeur de scale \u00e0 partir de la table DSID pour DSPM_CSCL\n SELECT DSPM_CSCL INTO scale_value FROM pointsdsid LIMIT 1;\n -- Obtient la valeur de purpose \u00e0 partir de la table DSID pour DSID_INTU\n SELECT DSID_INTU INTO purpose_value FROM pointsdsid LIMIT 1;\n\n -- Met \u00e0 jour les enregistrements avec les valeurs trouv\u00e9es dans la table DSID\n EXECUTE format('UPDATE pointsenc.%I SET enc_chart = $1 WHERE enc_chart IS NULL', table_record.table_name) USING enc_chart_value;\n EXECUTE format('UPDATE pointsenc.%I SET scale = $1 WHERE scale IS NULL', table_record.table_name) USING scale_value;\n EXECUTE format('UPDATE pointsenc.%I SET purpose = $1 WHERE purpose IS NULL', table_record.table_name) USING purpose_value;\n\n\nEND LOOP;\n\n-- Efface l'enregistrement de la table DSID\nDELETE FROM pointsenc.pointsdsid;\n\nRETURN NULL;<\/code><\/pre>\n\n\n\nEND; $$ LANGUAGE plpgsql;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/div>create_fields_and_update_values_linesenc()<\/div><\/div><\/div><\/p>\n\n\n\n\n\nCREATE OR REPLACE FUNCTION create_fields_and_update_values_linesenc() RETURNS TRIGGER AS $$ DECLARE table_record RECORD; tables_import RECORD; enc_chart_value TEXT; scale_value NUMERIC; purpose_value NUMERIC; empty_tables int; BEGIN --Le code suivant permet de supprimer les tables vides d'un sch\u00e9ma d'import: FOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'linesenc' AND table_name != 'linesdsid' LOOP -- Composer une requ\u00eate dynamique pour v\u00e9rifier si la table est vide EXECUTE format('SELECT COUNT(*) FROM linesenc.%I', table_record.table_name) INTO empty_tables;<\/code><\/pre>\n\n\n\n-- Si le nombre de lignes est \u00e9gal \u00e0 z\u00e9ro, supprimer la table\n IF empty_tables = 0 THEN\n EXECUTE format('DROP TABLE IF EXISTS linesenc.%I CASCADE', table_record.table_name);\n RAISE NOTICE 'Table linesenc.%I supprim\u00e9e car elle est vide.', table_record.table_name;\n END IF;\nEND LOOP;\n\n-- Parcours de toutes les tables du sch\u00e9ma linesenc \nFOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'linesenc' AND table_name != 'linesdsid' LOOP\n -- V\u00e9rifie si les champs enc_chart et scale n'existent pas dans la table actuelle\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'linesenc' AND table_name = table_record.table_name AND column_name IN ('enc_chart', 'scale','purpose')\n ) THEN\n -- Cr\u00e9e le champ enc_chart de type texte\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN enc_chart TEXT', table_record.table_name);\n -- Cr\u00e9e le champ scale de type num\u00e9rique\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN scale NUMERIC', table_record.table_name);\n -- Cr\u00e9e le champ purpose de type num\u00e9rique\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN purpose NUMERIC', table_record.table_name);\n RAISE NOTICE 'Champs enc_chart, scale et purpose cr\u00e9\u00e9s dans la table %', table_record.table_name;\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'linesenc' AND table_name = table_record.table_name AND column_name IN ('posacc','quapos')\n ) THEN\n -- Cr\u00e9e le champ POSACC de type num\u00e9rique\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN POSACC NUMERIC(10,0)', table_record.table_name);\n -- Cr\u00e9e le champ QUAPOS de type num\u00e9rique\n EXECUTE format('ALTER TABLE linesenc.%I ADD COLUMN QUAPOS INTEGER', table_record.table_name);\n END IF;\n RAISE NOTICE 'Champs enc_chart, scale et purpose cr\u00e9\u00e9s dans la table %', table_record.table_name;\n\n END IF;\n -- Obtient la valeur de enc_chart \u00e0 partir de la table DSID pour DSID_DSNM\n SELECT DSID_DSNM INTO enc_chart_value FROM linesenc.linesdsid LIMIT 1;\n -- Obtient la valeur de scale \u00e0 partir de la table DSID pour DSPM_CSCL\n SELECT DSPM_CSCL INTO scale_value FROM linesenc.linesdsid LIMIT 1;\n -- Obtient la valeur de purpose \u00e0 partir de la table DSID pour DSID_INTU\n SELECT DSID_INTU INTO purpose_value FROM linesenc.linesdsid LIMIT 1;\n\n -- Met \u00e0 jour les enregistrements avec les valeurs trouv\u00e9es dans la table DSID\n EXECUTE format('UPDATE linesenc.%I SET enc_chart = $1 WHERE enc_chart IS NULL', table_record.table_name) USING enc_chart_value;\n EXECUTE format('UPDATE linesenc.%I SET scale = $1 WHERE scale IS NULL', table_record.table_name) USING scale_value;\n EXECUTE format('UPDATE linesenc.%I SET purpose = $1 WHERE purpose IS NULL', table_record.table_name) USING purpose_value;\nEND LOOP;\n\n-- Efface l'enregistrement de la table DSID\nDELETE FROM linesenc.linesdsid;\n\nRETURN NULL;<\/code><\/pre>\n\n\n\nEND; $$ LANGUAGE plpgsql;\n\n<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/div>create_fields_and_update_values_polysenc()<\/div><\/div><\/div><\/p>\n\n\n\nCREATE OR REPLACE FUNCTION create_fields_and_update_values_polysenc() RETURNS TRIGGER AS $$ DECLARE table_record RECORD; tables_import RECORD; enc_chart_value TEXT; scale_value NUMERIC; purpose_value NUMERIC; empty_tables int; BEGIN --Le code suivant permet de supprimer les tables vides d'un sch\u00e9ma d'import: FOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'polysenc' AND table_name != 'polysdsid' LOOP -- Composer une requ\u00eate dynamique pour v\u00e9rifier si la table est vide EXECUTE format('SELECT COUNT(*) FROM polysenc.%I', table_record.table_name) INTO empty_tables;<\/code><\/pre>\n\n\n\n-- Si le nombre de lignes est \u00e9gal \u00e0 z\u00e9ro, supprimer la table\n IF empty_tables = 0 THEN\n EXECUTE format('DROP TABLE IF EXISTS polysenc.%I CASCADE', table_record.table_name);\n RAISE NOTICE 'Table polysenc.%I supprim\u00e9e car elle est vide.', table_record.table_name;\n END IF;\nEND LOOP;\n\n-- Parcours de toutes les tables du sch\u00e9ma polysenc \nFOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = 'polysenc' AND table_name != 'polysdsid' LOOP\n -- V\u00e9rifie si les champs enc_chart et scale n'existent pas dans la table actuelle\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'polysenc' AND table_name = table_record.table_name AND column_name IN ('enc_chart', 'scale','purpose')\n ) THEN\n -- Cr\u00e9e le champ enc_chart de type texte\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN enc_chart TEXT', table_record.table_name);\n -- Cr\u00e9e le champ scale de type num\u00e9rique\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN scale NUMERIC', table_record.table_name);\n -- Cr\u00e9e le champ purpose de type num\u00e9rique\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN purpose NUMERIC', table_record.table_name);\n IF NOT EXISTS (\n SELECT column_name FROM information_schema.columns\n WHERE table_schema = 'polysenc' AND table_name = table_record.table_name AND column_name IN ('posacc','quapos')\n ) THEN\n -- Cr\u00e9e le champ POSACC de type num\u00e9rique\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN POSACC NUMERIC(10,0)', table_record.table_name);\n -- Cr\u00e9e le champ QUAPOS de type num\u00e9rique\n EXECUTE format('ALTER TABLE polysenc.%I ADD COLUMN QUAPOS INTEGER', table_record.table_name);\n END IF;\n RAISE NOTICE 'Champs enc_chart, scale et purpose cr\u00e9\u00e9s dans la table %', table_record.table_name;\n\n END IF;\n -- Obtient la valeur de enc_chart \u00e0 partir de la table DSID pour DSID_DSNM\n SELECT DSID_DSNM INTO enc_chart_value FROM polysenc.polysdsid LIMIT 1;\n -- Obtient la valeur de scale \u00e0 partir de la table DSID pour DSPM_CSCL\n SELECT DSPM_CSCL INTO scale_value FROM polysenc.polysdsid LIMIT 1;\n -- Obtient la valeur de purpose \u00e0 partir de la table DSID pour DSID_INTU\n SELECT DSID_INTU INTO purpose_value FROM polysenc.polysdsid LIMIT 1;\n\n -- Met \u00e0 jour les enregistrements avec les valeurs trouv\u00e9es dans la table DSID\n EXECUTE format('UPDATE polysenc.%I SET enc_chart = $1 WHERE enc_chart IS NULL', table_record.table_name) USING enc_chart_value;\n EXECUTE format('UPDATE polysenc.%I SET scale = $1 WHERE scale IS NULL', table_record.table_name) USING scale_value;\n EXECUTE format('UPDATE polysenc.%I SET purpose = $1 WHERE purpose IS NULL', table_record.table_name) USING purpose_value;\nEND LOOP;\n\n-- Efface l'enregistrement de la table DSID\nDELETE FROM polysenc.polysdsid;\n\nRETURN NULL;<\/code><\/pre>\n\n\n\nEND; $$ LANGUAGE plpgsql;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/div>createtriggersfields()<\/div><\/div><\/div><\/p>\n\n\n\nCREATE OR REPLACE TRIGGER check_update AFTER INSERT ON linesenc.linesdsid FOR EACH ROW EXECUTE PROCEDURE create_fields_and_update_values_linesenc();<\/code><\/pre>\n\n\n\nCREATE OR REPLACE TRIGGER check_update AFTER INSERT ON polysenc.polysdsid FOR EACH ROW EXECUTE PROCEDURE create_fields_and_update_values_polysenc();<\/code><\/pre>\n\n\n\nCREATE OR REPLACE TRIGGER check_update AFTER INSERT ON pointsenc.pointsdsid FOR EACH ROW EXECUTE PROCEDURE create_fields_and_update_values_pointsenc();<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/span>Flujo de trabajo para cargar archivos S57<\/span><\/h1>\n\n\n\n<\/span>Comandos ogr2ogr para crear tablas Postgis<\/span><\/h2>\n\n\n\nCon todos estos elementos en la mano, aqu\u00ed est\u00e1 el archivo .bat con las l\u00edneas de comando ogr2ogr para crear las tablas en los esquemas de importaci\u00f3n:<\/p>\n\n\n\n <\/div>Commandes ogr2ogr<\/div><\/div><\/div><\/strong><\/p>\n\n\n\n\n\n@echo off setlocal enabledelayedexpansion<\/code><\/pre>\n\n\n\nREM V\u00e9rifie qu’un r\u00e9pertoire a \u00e9t\u00e9 fourni if \u00ab\u00a0%~1″==\u00a0\u00bb\u00a0\u00bb ( echo Usage: %0 directory000 exit \/b 1 )<\/p>\n\n\n\n REM R\u00e9cup\u00e8re l’argument set \u00ab\u00a0directory=%~1\u00a0\u00bb<\/p>\n\n\n\n REM It\u00e8re sur tous les fichiers .000 dans le r\u00e9pertoire for \/r \u00ab\u00a0%directory%\u00a0\u00bb %%i in (*.000) do ( echo Traitement du fichier: %%i<\/p>\n\n\n\n ogr2ogr -skipfailures -append -update -s_srs EPSG:4326<\/a> -t_srs EPSG:4326 ^\n -where \"OGR_GEOMETRY='POINT' or OGR_GEOMETRY='MULTIPOINT'\" ^\n -oo RETURN_PRIMITIVES=ON -oo SPLIT_MULTIPOINT=ON -oo RETURN_LINKAGES=ON -oo LNAM_REFS=ON -oo ADD_SOUNDG_DEPTH=ON ^\n -nlt MULTIPOINT -f PostgreSQL ^\n PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=pointsenc\" %%i\n\nogr2ogr -skipfailures -append -update -nln pointsDSID -f PostgreSQL PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=pointsenc\" %%i DSID\n\nogr2ogr -skipfailures -append -update -s_srs EPSG:4326 -t_srs EPSG:4326 ^\n -where \"OGR_GEOMETRY='LINESTRING' or OGR_GEOMETRY='MULTILINESTRING'\" ^\n -oo RETURN_PRIMITIVES=ON -oo SPLIT_MULTIPOINT=ON -oo RETURN_LINKAGES=ON -oo LNAM_REFS=ON ^\n -f PostgreSQL PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=linesenc\" %%i\n\nogr2ogr -skipfailures -append -update -nln linesDSID -f PostgreSQL ^\n PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=linesenc\" %%i DSID\n\nogr2ogr -skipfailures -append -update -s_srs EPSG:4326 -t_srs EPSG:4326 ^\n -where \"OGR_GEOMETRY='POLYGON' or OGR_GEOMETRY='MULTIPOLYGON'\" ^\n -oo RETURN_PRIMITIVES=ON -oo SPLIT_MULTIPOINT=ON -oo RETURN_LINKAGES=ON -oo LNAM_REFS=ON ^\n -f PostgreSQL PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=polysenc\" %%i\n\nogr2ogr -skipfailures -append -update -nln polysDSID -f PostgreSQL ^\n PG:\"dbname=postgis_34_sample host=localhost port=5432 user=postgres password=1touria+ active_schema=polysenc\" %%i DSID<\/code><\/pre>\n\n\n\n)<\/p>\n\n\n\necho Traitement termin\u00e9. pause\n\n<\/code><\/pre>\n\n\n\n<\/div><\/div><\/p>\n\n\n\n Necesita cambiar la informaci\u00f3n de conexi\u00f3n para su base de datos PostgreSQL\/POstgis:<\/p>\n\n\n\n PostgreSQL PG: \u00abdbname=\u201cpostgis_34_sample\u201d host=\u201clocalhost\u201d port=\u201c5434\u201d user=\u201cpostgres\u201d password=\u201cxxxxxx\u201d<\/em><\/p>\n\n\n\n Para ejecutar estas l\u00edneas de comando, simplemente abra la ventana shell de OSGeo4W:<\/p>\n\n\n\n<\/a><\/figure>\n\n\n\nSe abre la ventana Shell<\/p>\n\n\n\n<\/a><\/figure>\n\n\n\n<\/p>\n\n\n\n Introduzca la siguiente l\u00ednea de comandos:<\/p>\n\n\n\n .\\Path\/ mass_load_s57_postgis.bat repertorio_enc<\/strong><\/p>\n\n\n\n Repertoire_enc es el directorio que contiene los archivos .000 para las tarjetas enc. Todos los archivos .000 de este directorio se cargar\u00e1n en los esquemas de importaci\u00f3n.<\/p>\n\n\n\n El resultado ser\u00e1 una serie de tablas creadas en cada esquema de importaci\u00f3n. Sin embargo, algunas tablas estar\u00e1n completamente vac\u00edas. Si el tipo de geometr\u00eda es posible para una clase de objeto, se crear\u00e1 la tabla, pero si no hay ocurrencias en el fichero S57 que se est\u00e1 procesando, la tabla no tendr\u00e1 registros.<\/p>\n\n\n\n <\/span>Carga de la base de datos a partir de los esquemas de importaci\u00f3n<\/span><\/h2>\n\n\n\nLa funci\u00f3n clone_tables_with_prefix carga la base de datos ENC con las tablas de los tres esquemas de importaci\u00f3n.<\/p>\n\n\n\n \nEn primer lugar, elimina de cada esquema de importaci\u00f3n las tablas vac\u00edas creadas por ogr2ogr si en el archivo .000 no se ha utilizado un tipo de geometr\u00eda esperado.<\/li>\n\n\n\n En segundo lugar, comprueba para cada esquema de importaci\u00f3n si la tabla correspondiente ya existe en la base de datos ENC. Si no existe, crea la tabla con el prefijo correspondiente al tipo de geometr\u00eda (pt_, li_, pl_).<\/li>\n\n\n\n La funci\u00f3n a\u00f1ade los registros de la tabla de importaci\u00f3n a la tabla ENC.<\/li>\n\n\n\n Para las tablas de tipo punto, actualiza los atributos posacc y quapos de la tabla utilizando los valores de la tabla IsolatedNode.<\/li>\n\n\n\n Para las tablas de l\u00edneas y pol\u00edgonos, actualiza los atributos posacc y quapos de la tabla utilizando los valores de la tabla Edge.<\/li>\n\n\n\n Finalmente, la funci\u00f3n vac\u00eda todas las tablas de los esquemas de importaci\u00f3n, dej\u00e1ndolas listas para ser cargadas de nuevo con mis comandos ogr2ogr.<\/li>\n<\/ul>\n\n\n\nAntes de usar esta funci\u00f3n necesitas instalar la funci\u00f3n delete_all_records_in_schema<\/strong>:<\/p>\n\n\n\n Copia la consulta en una ventana SQL de pgAdmin y ejec\u00fatala.<\/p>\n\n\n\n <\/div> delete_all_records_in_schema <\/div><\/div><\/div><\/p>\n\n\n\n-- FUNCTION: public.delete_all_records_in_schema(text)<\/code><\/pre>\n\n\n\n-- DROP FUNCTION IF EXISTS public.delete_all_records_in_schema(text);<\/code><\/pre>\n\n\n\nCREATE OR REPLACE FUNCTION public.delete_all_records_in_schema( schema_name text) RETURNS void LANGUAGE 'plpgsql' COST 100 VOLATILE PARALLEL UNSAFE AS $BODY$ DECLARE table_record RECORD; BEGIN -- R\u00e9cup\u00e9rer toutes les tables du sch\u00e9ma sp\u00e9cifi\u00e9 FOR table_record IN SELECT table_name FROM information_schema.tables WHERE table_schema = schema_name AND table_type = 'BASE TABLE' LOOP -- Construction de la requ\u00eate DELETE pour chaque table EXECUTE format('DELETE FROM %I.%I', schema_name, table_record.table_name); END LOOP; END; $BODY$;<\/code><\/pre>\n\n\n\nALTER FUNCTION public.delete_all_records_in_schema(text) OWNER TO postgres;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n La base de datos ENC se actualiza ejecutando el comando<\/p>\n\n\n\n SELECT clone_table_with_prefix()<\/em><\/strong><\/p>\n\n\n\n No olvide sustituir el nombre del esquema (enc2) por el nombre de su esquema enc..<\/p>\n\n\n\n <\/div>clone_table_with_prefix<\/div><\/div><\/div><\/p>\n\n\n\nCREATE OR REPLACE FUNCTION clone_tables_with_prefix() RETURNS void AS $$ DECLARE table_nom text; BEGIN -- Clonage des tables dans le sch\u00e9ma ENC et mise \u00e0 jour des tables existantes<\/code><\/pre>\n\n\n\n-- Boucle sur les tables du sch\u00e9ma pointsENC\nFOR table_nom IN (SELECT table_name as table_nom FROM information_schema.tables WHERE table_schema = 'pointsenc' AND table_name NOT IN ('pointsdsid','isolatednode','connectednode'))\nLOOP\n -- Construction de la requ\u00eate dynamique pour cr\u00e9er ou mettre \u00e0 jour la table dans ENC\n EXECUTE format('CREATE TABLE IF NOT EXISTS enc2.pt_%I AS SELECT * FROM pointsenc.%I', table_nom, table_nom);\n EXECUTE format('INSERT INTO enc2.pt_%I SELECT * FROM pointsenc.%I ON CONFLICT DO NOTHING', table_nom, table_nom);\n EXECUTE format('UPDATE enc2.pt_%I SET posacc = isolatednode.posacc, quapos = isolatednode.quapos FROM pointsenc.IsolatedNode isolatednode WHERE enc2.pt_%I.NAME_RCID[1] = isolatednode.RCID AND enc2.pt_%I.enc_chart = isolatednode.enc_chart;', table_nom, table_nom,table_nom);\n\nEND LOOP;\n\n-- Boucle sur les tables du sch\u00e9ma LinesENC\nFOR table_nom IN (SELECT table_name as table_nom FROM information_schema.tables WHERE table_schema = 'linesenc' AND table_name NOT IN ('linesdsid','edge'))\nLOOP\n -- Construction de la requ\u00eate dynamique pour cr\u00e9er ou mettre \u00e0 jour la table dans ENC\n EXECUTE format('CREATE TABLE IF NOT EXISTS enc2.li_%I AS SELECT * FROM linesenc.%I', table_nom, table_nom);\n EXECUTE format('INSERT INTO enc2.li_%I SELECT * FROM linesenc.%I ON CONFLICT DO NOTHING', table_nom, table_nom);\n EXECUTE format('UPDATE enc2.li_%I SET posacc = edge.posacc, quapos = edge.quapos FROM linesenc.edge edge WHERE enc2.li_%I.NAME_RCID[1] = edge.RCID AND enc2.li_%I.enc_chart = edge.enc_chart;', table_nom, table_nom,table_nom);\n\nEND LOOP;\n\n-- Boucle sur les tables du sch\u00e9ma PolysENC\nFOR table_nom IN (SELECT table_name as table_nom FROM information_schema.tables WHERE table_schema = 'polysenc' AND table_name NOT IN ( 'polysdsid','m_qual','m_srel'))\nLOOP\n -- Construction de la requ\u00eate dynamique pour cr\u00e9er ou mettre \u00e0 jour la table dans ENC\n EXECUTE format('CREATE TABLE IF NOT EXISTS enc2.pl_%I AS SELECT * FROM polysenc.%I', table_nom, table_nom);\n EXECUTE format('INSERT INTO enc2.pl_%I SELECT * FROM polysenc.%I ON CONFLICT DO NOTHING', table_nom, table_nom);\n EXECUTE format('UPDATE enc2.pl_%I SET posacc = edge.posacc, quapos = edge.quapos FROM linesenc.edge edge WHERE enc2.pl_%I.NAME_RCID[1] = edge.RCID AND enc2.pl_%I.enc_chart = edge.enc_chart;', table_nom, table_nom,table_nom);\n\nEND LOOP;\nEXECUTE (SELECT delete_all_records_in_schema('pointsenc'));\nEXECUTE (SELECT delete_all_records_in_schema('linesenc'));\nEXECUTE (SELECT delete_all_records_in_schema('polysenc'));<\/code><\/pre>\n\n\n\nEXECUTE (SELECT update_sbdare()); END; $$ LANGUAGE plpgsql;<\/code><\/pre>\n\n\n\n<\/div><\/div>\n\n\n\n <\/span>Tratamiento especial de la tabla pt_SBDARE<\/span><\/h2>\n\n\n\nDespu\u00e9s de la primera ejecuci\u00f3n del script anterior, si los ficheros cargados ten\u00edan valores para las naturalezas de fondo, deber\u00edas tener una tabla pt_sbdare en el esquema ENC. Esta es la \u00fanica tabla que requiere un procesamiento especial para la simbolog\u00eda por defecto que proporcionamos. De hecho, el procesamiento de los valores de los dos atributos necesarios para crear la etiqueta de naturaleza de fondo (NATSUR y NATQUA) es muy complejo debido a la naturaleza de los atributos (StringLists) y a las innumerables combinaciones posibles.<\/p>\n\n\n\n La soluci\u00f3n aplicada en este caso es la siguiente:<\/p>\n\n\n\n \nUna tabla natsurf lista las posibles combinaciones de valores de las tuplas natqua y natsur con la etiqueta correspondiente.<\/li>\n\n\n\n Una funci\u00f3n update_sbdare procesa las dos listas de cadenas para componer las tuplas de valores y concatena adecuadamente las etiquetas de la tabla natsurf.<\/li>\n\n\n\n La funci\u00f3n actualiza los registros de la tabla pt_sbdare cuyo valor ‘label’ es cero.<\/li>\n<\/ul>\n\n\n\nCuando se cargan por primera vez los esquemas de importaci\u00f3n, la tabla pt_sbdare no existe. Una vez creada por una importaci\u00f3n, se puede definir un trigger que ejecute la funci\u00f3n autom\u00e1ticamente a continuaci\u00f3n.<\/p>\n\n\n\n Por lo tanto, es necesario :<\/p>\n\n\n\n \nImportar la tabla natsurf en el esquema ENC<\/li>\n\n\n\n Crear la funci\u00f3n update_sbdare<\/li>\n\n\n\n Ejecutar la funci\u00f3n manualmente por primera vez<\/li>\n<\/ul>\n\n\n\n.<\/p>\n\n\n\n <\/span>Importar la tabla natsurf<\/span><\/h2>\n\n\n\nCargue la siguiente consulta en una ventana SQL de pgAdmin y ejec\u00fatela. Se supone que ha creado un esquema ‘enc’ para su base de datos. Si no es el caso, edite la tabla, sustituyendo ‘enc.natsurf’ por ‘su_esquema.natsurf’.<\/p>\n\n\n\n <\/div> natsurf.sql <\/div><\/div><\/div><\/strong><\/p>\n\n\n\nSET standard_conforming_strings = ON; DROP TABLE IF EXISTS enc.natsurf CASCADE; BEGIN; CREATE TABLE enc.natsurf(); ALTER TABLE enc.natsurf ADD COLUMN \"ogc_fid\" SERIAL CONSTRAINT \"natsurf_pk\" PRIMARY KEY; ALTER TABLE enc.natsurf ADD COLUMN \"fid\" NUMERIC(20,0); ALTER TABLE enc.natsurf ADD COLUMN \"natsurt\" VARCHAR; ALTER TABLE enc.natsurf ADD COLUMN \"natquat\" VARCHAR; ALTER TABLE enc.natsurf ADD COLUMN \"etiq\" VARCHAR; INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (1, '1', '0', 'M'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (2, '1', '1', 'fM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (3, '1', '2', 'mM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (4, '1', '3', 'cM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (5, '1', '4', 'bkM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (6, '1', '5', 'syM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (7, '1', '6', 'soM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (8, '1', '7', 'sfM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (9, '1', '8', 'vM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (10, '1', '9', 'caM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (11, '1', '10', 'hM'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (12, '2', '0', 'Cy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (13, '2', '1', 'fCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (14, '2', '2', 'mCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (15, '2', '3', 'cCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (16, '2', '4', 'bkCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (17, '2', '5', 'syCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (18, '2', '6', 'soCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (19, '2', '7', 'sfCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (20, '2', '8', 'vCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (21, '2', '9', 'caCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (22, '2', '10', 'hCy'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (23, '3', '0', 'Si'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (24, '3', '1', 'fSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (25, '3', '2', 'mSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (26, '3', '3', 'cSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (27, '3', '4', 'bkSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (28, '3', '5', 'sySi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (29, '3', '6', 'soSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (30, '3', '7', 'sfSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (31, '3', '8', 'vSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (32, '3', '9', 'caSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (33, '3', '10', 'hSi'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (34, '4', '0', 'S'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (35, '4', '1', 'fS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (36, '4', '2', 'mS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (37, '4', '3', 'cS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (38, '4', '4', 'bkS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (39, '4', '5', 'syS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (40, '4', '6', 'soS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (41, '4', '7', 'sfS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (42, '4', '8', 'vS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (43, '4', '9', 'caS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (44, '4', '10', 'hS'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (45, '5', '0', 'St'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (46, '5', '1', 'fSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (47, '5', '2', 'mSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (48, '5', '3', 'cSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (49, '5', '4', 'bkSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (50, '5', '5', 'sySt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (51, '5', '6', 'soSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (52, '5', '7', 'sfSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (53, '5', '8', 'vSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (54, '5', '9', 'caSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (55, '5', '10', 'hSt'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (56, '6', '0', 'G'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (57, '6', '1', 'fG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (58, '6', '2', 'mG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (59, '6', '3', 'cG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (60, '6', '4', 'bkG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (61, '6', '5', 'syG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (62, '6', '6', 'soG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (63, '6', '7', 'sfG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (64, '6', '8', 'vG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (65, '6', '9', 'caG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (66, '6', '10', 'hG'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (67, '7', '0', 'P'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (68, '7', '1', 'fP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (69, '7', '2', 'mP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (70, '7', '3', 'cP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (71, '7', '4', 'bkP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (72, '7', '5', 'syP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (73, '7', '6', 'soP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (74, '7', '7', 'sfP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (75, '7', '8', 'vP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (76, '7', '9', 'caP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (77, '7', '10', 'hP'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (78, '8', '0', 'Cb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (79, '8', '1', 'fCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (80, '8', '2', 'mCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (81, '8', '3', 'cCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (82, '8', '4', 'bkCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (83, '8', '5', 'syCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (84, '8', '6', 'soCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (85, '8', '7', 'sfCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (86, '8', '8', 'vCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (87, '8', '9', 'caCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (88, '8', '10', 'hCb'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (89, '9', '0', 'R'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (90, '9', '1', 'fR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (91, '9', '2', 'mR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (92, '9', '3', 'cR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (93, '9', '4', 'bkR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (94, '9', '5', 'syR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (95, '9', '6', 'soR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (96, '9', '7', 'sfR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (97, '9', '8', 'vR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (98, '9', '9', 'caR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (99, '9', '10', 'hR'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (100, '11', '0', 'L'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (101, '11', '1', 'fL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (102, '11', '2', 'mL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (103, '11', '3', 'cL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (104, '11', '4', 'bkL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (105, '11', '5', 'syL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (106, '11', '6', 'soL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (107, '11', '7', 'sfL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (108, '11', '8', 'vL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (109, '11', '9', 'caL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (110, '11', '10', 'hL'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (111, '14', '0', 'Co'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (112, '14', '1', 'fCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (113, '14', '2', 'mCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (114, '14', '3', 'cCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (115, '14', '4', 'bkCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (116, '14', '5', 'syCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (117, '14', '6', 'soCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (118, '14', '7', 'sfCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (119, '14', '8', 'vCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (120, '14', '9', 'caCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (121, '14', '10', 'hCo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (122, '17', '0', 'Sh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (123, '17', '1', 'fSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (124, '17', '2', 'mSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (125, '17', '3', 'cSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (126, '17', '4', 'bkSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (127, '17', '5', 'sySh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (128, '17', '6', 'soSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (129, '17', '7', 'sfSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (130, '17', '8', 'vSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (131, '17', '9', 'caSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (132, '17', '10', 'hSh'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (133, '18', '0', 'Bo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (134, '18', '1', 'fBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (135, '18', '2', 'mBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (136, '18', '3', 'cBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (137, '18', '4', 'bkBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (138, '18', '5', 'syBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (139, '18', '6', 'soBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (140, '18', '7', 'sfBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (141, '18', '8', 'vBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (142, '18', '9', 'caBo'); INSERT INTO enc.natsurf (\"fid\", \"natsurt\", \"natquat\", \"etiq\") VALUES (143, '18', '10', 'hBo'); COMMIT;<\/code><\/pre>\n\n\n\n<\/div><\/div><\/p>\n\n\n\n <\/span>Creaci\u00f3n de la funci\u00f3n update_sbdare<\/span><\/h2>\n\n\n\nCargue la siguiente consulta en una ventana SQL de pgAdmin y ejec\u00fatela. Se supone que ha creado un esquema ‘enc’ para su base de datos. Si no es as\u00ed, edite la tabla sustituyendo ‘enc.’ por ‘su_esquema’.<\/p>\n\n\n\n <\/div> update_sbdare.sql<\/div><\/div><\/div><\/strong><\/p>\n\n\n\n\n\nCREATE OR REPLACE FUNCTION update_sbdare() RETURNS VOID AS $$ DECLARE rec_row RECORD; natsurt VARCHAR[4]; natquat VARCHAR[4]; S VARCHAR[3]; flag INT := 0; etiq VARCHAR(25); etiquet VARCHAR(25); BEGIN -- V\u00e9rifier si le champ 'Label' existe d\u00e9j\u00e0 IF EXISTS ( SELECT 1 FROM information_schema.columns WHERE table_schema = 'enc2' AND table_name = 'pt_sbdare' AND column_name = 'label' ) THEN<\/code><\/pre>\n\n\n\n-- Parcourir les lignes de la table enc.pt_sbdare\nFOR rec_row IN SELECT * FROM enc2.pt_sbdare WHERE label IS NULL LOOP\n -- R\u00e9initialiser les variables \u00e0 chaque it\u00e9ration de la boucle\n natsurt := ARRAY['','','',''];\n S := ARRAY[',',',',','];\n flag :=0;\n\n -- Extraire les parties de natsur\n FOR i IN 1..4 LOOP\n --sortie anticip\u00e9e\n IF i=4 AND flag=1 THEN\n EXIT;\n END IF;\n\n -- V\u00e9rifier si rec_row.natsur[i] est NULL\n IF rec_row.natsur[i] IS NULL THEN\n IF flag=0 THEN\n natsurt[i] := '0';\n ELSE\n natsurt[i+1] := '0';\n END IF;\n -- V\u00e9rifier si rec_row.natsur[i] contient un '\/'\n ELSIF strpos(rec_row.natsur[i], '\/') = 0 THEN\n IF flag=0 THEN\n natsurt[i] := rec_row.natsur[i];\n IF rec_row.natqua[i] IS NOT NULL THEN\n natquat[i] := rec_row.natqua[i];\n ELSE\n natquat[i] := '0';\n END IF;\n ELSE\n natsurt[i+1] := rec_row.natsur[i];\n IF rec_row.natqua[i] IS NOT NULL THEN\n natquat[i+1] := rec_row.natqua[i];\n ELSE\n natquat[i] := '0';\n END IF;\n END IF;\n\n ELSE\n -- Extraire les parties avant et apr\u00e8s le '\/'\n IF i < 5 THEN\n natsurt[i] := split_part(rec_row.natsur[i], '\/', 1);\n natsurt[i+1] := split_part(rec_row.natsur[i], '\/', 2);\n IF rec_row.natqua[i] IS NOT NULL THEN\n natquat[i] := rec_row.natqua[i];\n ELSE\n natquat[i] := '0';\n END IF;\n S[i] := '\/';\n flag :=1; -- nous avons trouv\u00e9 une valeur avec un '\/'\n ELSE\n natsurt[i] := split_part(rec_row.natsur[i], '\/', 1);\n END IF;\n END IF;\n END LOOP;\n\n etiquet :='';\n etiq :='';\n\n FOR i IN 1..4 LOOP\n IF natsurt[i] <> '0' THEN\n -- Ex\u00e9cutez la requ\u00eate SQL pour r\u00e9cup\u00e9rer le label en fonction de natsurt[i] et natquat[i]\n EXECUTE 'SELECT etiq FROM enc2.natsurf WHERE NATSURT = $1 AND NATQUAT = $2' INTO etiq USING natsurt[i], natquat[i];\n\n IF i =1 THEN\n etiquet := etiq ;\n ELSE\n etiquet := etiquet || S[i-1] || etiq;\n END IF;\n END IF;\n END LOOP;\n\n -- Mettre \u00e0 jour la ligne avec les valeurs extraites\n UPDATE enc2.pt_sbdare\n SET\n label = etiquet\n WHERE pt_sbdare.ogc_fid = rec_row.ogc_fid;\nEND LOOP;<\/code><\/pre>\n\n\n\nEND IF; END; $$ LANGUAGE plpgsql;\n\n<\/code><\/pre>\n\n\n\n<\/div><\/div><\/p>\n\n\n\n <\/span>Ejecuci\u00f3n manual de la funci\u00f3n para la primera actualizaci\u00f3n<\/span><\/h2>\n\n\n\nEn una ventana SQL de pgAdmin, introduzca la consulta<\/p>\n\n\n\n ALTER TABLE enc.pt_sbdare ADD COLUMN label VARCHAR(25);<\/em><\/strong><\/p>\n\n\n\n SELECT update_sbdare()<\/em><\/strong><\/p>\n\n\n\n El resultado ser\u00e1 el atributo ‘label’ en la tabla pt_sbdare. Posteriormente, al ejecutar clone_tables_with_prefix(), la actualizaci\u00f3n se realizar\u00e1 autom\u00e1ticamente.<\/p>\n\n\n\n \n","protected":false},"excerpt":{"rendered":"Este tema comprende dos art\u00edculos. El primero trata de la importaci\u00f3n de ficheros ENC S57 en una base de datos Postgresql\/postgis. El segundo trata de la creaci\u00f3n de una simbolog\u00eda autom\u00e1tica equivalente a las cartas n\u00e1uticas.…<\/p>\n","protected":false},"author":1,"featured_media":13952,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"give_campaign_id":0,"_bbp_topic_count":0,"_bbp_reply_count":0,"_bbp_total_topic_count":0,"_bbp_total_reply_count":0,"_bbp_voice_count":0,"_bbp_anonymous_reply_count":0,"_bbp_topic_count_hidden":0,"_bbp_reply_count_hidden":0,"_bbp_forum_subforum_count":0,"sfsi_plus_gutenberg_text_before_share":"","sfsi_plus_gutenberg_show_text_before_share":"","sfsi_plus_gutenberg_icon_type":"","sfsi_plus_gutenberg_icon_alignemt":"","sfsi_plus_gutenburg_max_per_row":"","_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[3216,1340],"tags":[3268,2735,2038,2801,3270,1365,3266,1369,2739,3272,3274],"class_list":["post-13032","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-postgis-fr-es","category-postgresql-es","tag-bat-es","tag-enc-es","tag-mapa","tag-ogr2ogr-es","tag-pgadmin-es","tag-postgis-es","tag-primitivas","tag-qgis-es","tag-s57-es","tag-sql-es","tag-trigger-es"],"aioseo_notices":[],"jetpack_featured_media_url":"https:\/\/i0.wp.com\/www.sigterritoires.fr\/wp-content\/uploads\/2025\/04\/banniere.jpg?fit=1024%2C1024&ssl=1","jetpack_shortlink":"https:\/\/wp.me\/p6XU0A-3oc","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/posts\/13032","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/comments?post=13032"}],"version-history":[{"count":0,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/posts\/13032\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/media\/13952"}],"wp:attachment":[{"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/media?parent=13032"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/categories?post=13032"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sigterritoires.fr\/index.php\/wp-json\/wp\/v2\/tags?post=13032"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}