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
2008-02-29 18:57:26 +00:00 · 2008-02-29 18:57:26 +00:00 · 4af4cbafdc
commit 4af4cbafdc
parent 781f67ad43
4 changed files with 36 additions and 37 deletions
--- a/Database/scripts/factuges.sql
+++ b/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),
-	DURACION			VARCHAR(255)
+    CONTRATO            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_EMPRESA   	TIPO_ID NOT NULL,
-    ID_CONTACTO  	TIPO_ID NOT NULL
+    ID              TIPO_ID NOT NULL,
+    ID_EMPRESA       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,
-    CLIENTE_FINAL        VARCHAR(255) COLLATE ES_ES
+    REFERENCIA_CLIENTE   VARCHAR(255),
+    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,
-	DURACION)
+    CONTRATO,
+    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;
--- a/Database/scripts/factuges_sysdata.sql
+++ b/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');
--- a/Source/Servidor/uDataModuleServer.dfm
+++ b/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>
--- a/Source/Servidor/uDataModuleServer.pas
+++ b/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;