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';
 
 
@@ -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)
 );
 
 
@@ -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)
 );
 
 
@@ -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)
 );
 
 
@@ -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)
 );
 
 
@@ -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;