Base de datos: adaptada a UTF-8.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@311 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Database/scripts/factuges.sql

@@ -4,11 +4,10 @@
 
 SET SQL DIALECT 3;
 
-SET NAMES ISO8859_1;
+SET NAMES UTF8;
 
 CREATE DATABASE 'FACTUGES.FDB' PAGE_SIZE 4096
-DEFAULT CHARACTER SET ISO8859_1;
+DEFAULT CHARACTER SET UTF8;
-
 
 /******************************************************************************/
 /****                        User Defined Functions                        ****/
@@ -28,16 +27,16 @@ DECLARE EXTERNAL FUNCTION "MOD"
 
 
 DECLARE EXTERNAL FUNCTION STRLEN
-    CSTRING(32767)
+    CSTRING(254)
     RETURNS INTEGER BY VALUE
     ENTRY_POINT 'IB_UDF_strlen' MODULE_NAME 'ib_udf';
 
 
 DECLARE EXTERNAL FUNCTION SUBSTR
-    CSTRING(255),
+    CSTRING(254),
     SMALLINT,
     SMALLINT
-    RETURNS CSTRING(255) FREE_IT
+    RETURNS CSTRING(254) FREE_IT
     ENTRY_POINT 'IB_UDF_substr' MODULE_NAME 'ib_udf';
 
 
@@ -253,7 +252,7 @@ CREATE TABLE ALBARANES_CLIENTE (
     ID_ALMACEN            TIPO_ID,
     ID_PEDIDO             TIPO_ID,
     ID_FACTURA            TIPO_ID,
-	TIPO                  VARCHAR(1),
+    TIPO                  VARCHAR(1),
     REFERENCIA            VARCHAR(255),
     CALLE                 VARCHAR(255),
     CODIGO_POSTAL         VARCHAR(10),
@@ -279,7 +278,7 @@ CREATE TABLE ALBARANES_CLIENTE (
     FECHA_ENVIO           DATE,
     FECHA_RECEPCION       DATE,
     FECHA_PREVISTA_ENVIO  DATE,
-    REFERENCIA_CLIENTE    VARCHAR(255) COLLATE ES_ES
+    REFERENCIA_CLIENTE    VARCHAR(255)
 );
 
 
@@ -308,7 +307,7 @@ CREATE TABLE ALBARANES_PROVEEDOR (
     FECHA_ALBARAN         DATE,
     ID_PEDIDO             TIPO_ID,
     ID_FACTURA            TIPO_ID,
-	TIPO                  VARCHAR(1),
+    TIPO                  VARCHAR(1),
     REFERENCIA            VARCHAR(255),
     CALLE                 VARCHAR(255),
     CODIGO_POSTAL         VARCHAR(10),
@@ -389,7 +388,7 @@ CREATE TABLE ARTICULOS (
     DESCUENTO           TIPO_PORCENTAJE,
     PRECIO_NETO         TIPO_IMPORTE,
     PRECIO_PORTE        TIPO_IMPORTE,
-	FABRICANTE	        VARCHAR(255),
+    FABRICANTE            VARCHAR(255),
     FECHA_ALTA          TIMESTAMP,
     FECHA_MODIFICACION  TIMESTAMP,
     USUARIO             TIPO_USUARIO,
@@ -431,7 +430,7 @@ CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
 
 
 CREATE TABLE CLIENTES_GRUPOS (
-	ID            TIPO_ID NOT NULL,
+    ID            TIPO_ID NOT NULL,
     DESCRIPCION  VARCHAR(255)
 );
 
@@ -451,7 +450,7 @@ CREATE TABLE COMISIONES_LIQUIDADAS (
 
 
 CREATE TABLE CONFIGURACION (
-	ID          TIPO_ID NOT NULL,
+    ID          TIPO_ID NOT NULL,
     CODIGO      VARCHAR(50) NOT NULL,
     VALOR       VARCHAR(255) NOT NULL,
     ID_EMPRESA  TIPO_ID
@@ -531,14 +530,14 @@ CREATE TABLE EMPLEADOS_DATOS (
     FORMACION_COMPLE    TIPO_NOTAS,
     FORMACION_RECIBIDA  TIPO_NOTAS,
     EXPERIENCIA         TIPO_NOTAS,
-	CONTRATO			VARCHAR(255),
+    CONTRATO            VARCHAR(255),
-	DURACION			VARCHAR(255)
+    DURACION            VARCHAR(255)
 );
 
 
 CREATE TABLE EMPLEADOS_GRUPOS (
     ID                  TIPO_ID NOT NULL,
-    DESCRIPCION			VARCHAR(255)
+    DESCRIPCION            VARCHAR(255)
 );
 
 
@@ -570,9 +569,9 @@ CREATE TABLE EMPRESAS (
 
 
 CREATE TABLE EMPRESAS_CONTACTOS (
-    ID          	TIPO_ID NOT NULL,
+    ID              TIPO_ID NOT NULL,
-    ID_EMPRESA   	TIPO_ID NOT NULL,
+    ID_EMPRESA       TIPO_ID NOT NULL,
-    ID_CONTACTO  	TIPO_ID NOT NULL
+    ID_CONTACTO      TIPO_ID NOT NULL
 );
 
 
@@ -590,7 +589,7 @@ CREATE TABLE EMPRESAS_DATOS_BANCO (
 
 
 CREATE TABLE EMPRESAS_USUARIOS (
-    ID      	TIPO_ID NOT NULL,
+    ID          TIPO_ID NOT NULL,
     ID_EMPRESA  TIPO_ID NOT NULL,
     ID_USUARIO  TIPO_ID NOT NULL
 );
@@ -835,7 +834,7 @@ CREATE TABLE PEDIDOS_CLIENTE (
     ID_FORMA_PAGO         TIPO_ID,
     REF_TIENDA_WEB        INTEGER,
     FECHA_PREVISTA_ENVIO  DATE,
-    REFERENCIA_CLIENTE    VARCHAR(255) COLLATE ES_ES
+    REFERENCIA_CLIENTE    VARCHAR(255)
 );
 
 
@@ -911,7 +910,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
 
 
 CREATE TABLE PERMISOS (
-	ID          TIPO_ID NOT NULL,
+    ID          TIPO_ID NOT NULL,
     ID_USUARIO  TIPO_ID,
     MODULO      VARCHAR(50),
     NOMBRECOMP  VARCHAR(50),
@@ -920,7 +919,7 @@ CREATE TABLE PERMISOS (
 
 
 CREATE TABLE PERMISOSEX (
-	ID          TIPO_ID NOT NULL,
+    ID          TIPO_ID NOT NULL,
     ID_USUARIO  TIPO_ID,
     MODULO      VARCHAR(50),
     NOMBRECOMP  VARCHAR(50),
@@ -934,7 +933,7 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
     ID_EMPRESA           TIPO_ID,
     ID_CLIENTE           TIPO_ID,
     REFERENCIA           VARCHAR(255),
-	REFERENCIA_AUX       VARCHAR(255),
+    REFERENCIA_AUX       VARCHAR(255),
     FECHA_PRESUPUESTO    DATE,
     FECHA_DECISION       DATE,
     SITUACION            VARCHAR(255),
@@ -955,8 +954,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
     IMPORTE_IVA          TIPO_IMPORTE,
     IMPORTE_TOTAL        TIPO_IMPORTE,
     ID_FORMA_PAGO        TIPO_ID,
-    REFERENCIA_CLIENTE   VARCHAR(255) COLLATE ES_ES,
+    REFERENCIA_CLIENTE   VARCHAR(255),
-    CLIENTE_FINAL        VARCHAR(255) COLLATE ES_ES
+    CLIENTE_FINAL        VARCHAR(255)
 );
 
 
@@ -995,7 +994,7 @@ CREATE TABLE PROVEEDORES_DATOS (
 
 CREATE TABLE PROVEEDORES_GRUPOS (
     ID                    TIPO_ID NOT NULL,
-    DESCRIPCION			  VARCHAR(255)
+    DESCRIPCION              VARCHAR(255)
 );
 
 
@@ -1041,7 +1040,7 @@ CREATE TABLE REFERENCIAS (
     ID_EMPRESA   TIPO_ID,
     CODIGO       VARCHAR(50) NOT NULL,
     VALOR        VARCHAR(255) NOT NULL,
-    DESCRIPCION  VARCHAR(255) COLLATE ES_ES
+    DESCRIPCION  VARCHAR(255)
 );
 
 
@@ -1404,7 +1403,7 @@ CREATE VIEW V_ARTICULOS(
 AS
 SELECT ARTICULOS.ID, ARTICULOS.ID_EMPRESA, ARTICULOS.REFERENCIA, ARTICULOS.DESCRIPCION,
        ARTICULOS.UNIDAD_MEDIDA, ARTICULOS.FAMILIA, ARTICULOS.IMAGEN, 
-	   ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,
+       ARTICULOS.COMISIONABLE, ARTICULOS.FECHA_ALTA,
        ARTICULOS.FECHA_MODIFICACION, ARTICULOS.USUARIO,
        ARTICULOS.REFERENCIA_PROV,
        ARTICULOS.PRECIO_COSTE,
@@ -1517,7 +1516,7 @@ CREATE VIEW V_CLIENTES(
     ID_FORMA_PAGO,
     TIENDA_WEB,
     CODIGO_ASIGNADO,
-	DESCUENTO)
+    DESCUENTO)
 AS
 SELECT
   V_CONTACTOS.ID,
@@ -1596,8 +1595,8 @@ CREATE VIEW V_EMPLEADOS(
     FORMACION_COMPLE,
     FORMACION_RECIBIDA,
     EXPERIENCIA,
-	CONTRATO,
+    CONTRATO,
-	DURACION)
+    DURACION)
 AS
 SELECT V_CONTACTOS.ID,
   V_CONTACTOS.ID_CATEGORIA,
@@ -2220,7 +2219,7 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
     FECHA_PRESUPUESTO,
     FECHA_DECISION,
     REFERENCIA,
-	REFERENCIA_AUX,
+    REFERENCIA_AUX,
     SITUACION,
     ID_CLIENTE,
     NIF_CIF,
@@ -2802,7 +2801,7 @@ declare variable num_filas integer;
 declare variable contador integer;
 declare variable existe numeric(11,2);
 declare variable total_acumulado numeric(11,2);
-declare variable concepto_capitulo varchar(2000) character set iso8859_1;
+declare variable concepto_capitulo varchar(2000);
 begin
     existe = 0;
     total_acumulado = 0.0;

Database/scripts/factuges_sysdata.sql

@@ -1,6 +1,6 @@
 SET SQL DIALECT 3;
 
-SET NAMES ISO8859_1;
+SET NAMES UTF8;
 
 INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (1, 'CLIENTE');
 INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (2, 'PROVEEDOR');

Source/Servidor/uDataModuleServer.dfm

@@ -42,7 +42,7 @@ object dmServer: TdmServer
         ConnectionString = 
           'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' +
           'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' +
-          'harset=ISO8859_1;'
+          'harset=UTF8;'
         ConnectionType = 'Interbase'
         Default = True
       end>

Source/Servidor/uDataModuleServer.pas

@@ -184,13 +184,13 @@ begin
     + ';Database=' + FDBPath
     + ';UserID=' + FDBUser
     + ';Password=' + Decrypt(FDBPass)
-    + ';Dialect=3;Charset=ISO8859_1;';
+    + ';Dialect=3;Charset=UTF8;';
 
 {  Result := 'FIB?Server=' + FDBServer + '/' + FDBPort
     + ';Database=' + FDBPath
     + ';UserID=' + FDBUser
     + ';Password=' + Decrypt(FDBPass)
-    + ';Dialect=3;Charset=ISO8859_1;';}
+    + ';Dialect=3;Charset=UTF8;';}
 end;
 
 procedure TdmServer.LeerConfiguracion;