diff --git a/Output/Debug/Cliente/Articulos_controller.bpl b/Output/Debug/Cliente/Articulos_controller.bpl
index dee20121..c81fde10 100644
Binary files a/Output/Debug/Cliente/Articulos_controller.bpl and b/Output/Debug/Cliente/Articulos_controller.bpl differ
diff --git a/Output/Debug/Cliente/Articulos_data.bpl b/Output/Debug/Cliente/Articulos_data.bpl
index 0118e586..24b891eb 100644
Binary files a/Output/Debug/Cliente/Articulos_data.bpl and b/Output/Debug/Cliente/Articulos_data.bpl differ
diff --git a/Output/Debug/Cliente/Articulos_model.bpl b/Output/Debug/Cliente/Articulos_model.bpl
index b9ba5a9d..7e6f6b2d 100644
Binary files a/Output/Debug/Cliente/Articulos_model.bpl and b/Output/Debug/Cliente/Articulos_model.bpl differ
diff --git a/Output/Debug/Cliente/Articulos_plugin.bpl b/Output/Debug/Cliente/Articulos_plugin.bpl
index e1834d04..10175ad3 100644
Binary files a/Output/Debug/Cliente/Articulos_plugin.bpl and b/Output/Debug/Cliente/Articulos_plugin.bpl differ
diff --git a/Output/Debug/Cliente/Articulos_view.bpl b/Output/Debug/Cliente/Articulos_view.bpl
index 7471d492..0daa77ca 100644
Binary files a/Output/Debug/Cliente/Articulos_view.bpl and b/Output/Debug/Cliente/Articulos_view.bpl differ
diff --git a/Output/Debug/Cliente/Base.bpl b/Output/Debug/Cliente/Base.bpl
index c7763fb8..2241b244 100644
Binary files a/Output/Debug/Cliente/Base.bpl and b/Output/Debug/Cliente/Base.bpl differ
diff --git a/Output/Debug/Servidor/FactuGES_Server.exe b/Output/Debug/Servidor/FactuGES_Server.exe
index 6d6db398..d8236170 100644
Binary files a/Output/Debug/Servidor/FactuGES_Server.exe and b/Output/Debug/Servidor/FactuGES_Server.exe differ
diff --git a/Output/Debug/Servidor/ServerLog.txt b/Output/Debug/Servidor/ServerLog.txt
index e69de29b..c0ad2fa9 100644
--- a/Output/Debug/Servidor/ServerLog.txt
+++ b/Output/Debug/Servidor/ServerLog.txt
@@ -0,0 +1,1246 @@
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Connect]
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID
+  FROM
+    USUARIOS
+  WHERE USUARIO = :USUARIO AND
+        PASS = :PASS AND
+        ACTIVO = 1
+
+  Plan: PLAN (USUARIOS NATURAL)
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  Plan: PLAN JOIN (R INDEX (RDB$INDEX_4), F INDEX (RDB$INDEX_2))
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = USUARIOS
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  Plan: PLAN SORT (JOIN (RR INDEX (RDB$INDEX_42), RI INDEX (RDB$INDEX_6)))
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = USUARIOS
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID
+  FROM
+    USUARIOS
+  WHERE USUARIO = :USUARIO AND
+        PASS = :PASS AND
+        ACTIVO = 1
+
+  USUARIO = Administrador
+  PASS = luisleon07
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    PERFILES.PERFIL
+  FROM
+    PERFILES, PERFILES_USUARIOS
+  WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO
+  AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL
+
+  Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES))
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = PERFILES
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = PERFILES
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    PERFILES.PERFIL
+  FROM
+    PERFILES, PERFILES_USUARIOS
+  WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO
+  AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL
+
+  ID_USUARIO = 1
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID_EMPRESA
+  FROM
+    EMPRESAS_USUARIOS
+  WHERE ID_USUARIO = :ID_USUARIO
+
+  Plan: PLAN (EMPRESAS_USUARIOS NATURAL)
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = EMPRESAS_USUARIOS
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = EMPRESAS_USUARIOS
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID_EMPRESA
+  FROM
+    EMPRESAS_USUARIOS
+  WHERE ID_USUARIO = :ID_USUARIO
+
+  ID_USUARIO = 1
+
+
>
+[20/07/2007 14:35:49]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID
+  FROM
+    USUARIOS
+  WHERE USUARIO = :USUARIO AND
+        PASS = :PASS AND
+        ACTIVO = 1
+
+  Plan: PLAN (USUARIOS NATURAL)
+
+
>
+[20/07/2007 14:35:49]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID
+  FROM
+    USUARIOS
+  WHERE USUARIO = :USUARIO AND
+        PASS = :PASS AND
+        ACTIVO = 1
+
+  USUARIO = Luis
+  PASS = 1
+
+
>
+[20/07/2007 14:35:49]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    PERFILES.PERFIL
+  FROM
+    PERFILES, PERFILES_USUARIOS
+  WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO
+  AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL
+
+  Plan: PLAN JOIN (PERFILES_USUARIOS NATURAL, PERFILES INDEX (PK_PERFILES))
+
+
>
+[20/07/2007 14:35:49]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    PERFILES.PERFIL
+  FROM
+    PERFILES, PERFILES_USUARIOS
+  WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO
+  AND PERFILES.ID = PERFILES_USUARIOS.ID_PERFIL
+
+  ID_USUARIO = 2
+
+
>
+[20/07/2007 14:35:49]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID_EMPRESA
+  FROM
+    EMPRESAS_USUARIOS
+  WHERE ID_USUARIO = :ID_USUARIO
+
+  Plan: PLAN (EMPRESAS_USUARIOS NATURAL)
+
+
>
+[20/07/2007 14:35:49]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID_EMPRESA
+  FROM
+    EMPRESAS_USUARIOS
+  WHERE ID_USUARIO = :ID_USUARIO
+
+  ID_USUARIO = 2
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, 
+    PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, 
+    MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, 
+    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,
+    REGISTRO_MERCANTIL, IVA
+  FROM
+    EMPRESAS WHERE (ID IN (1)) 
+
+  Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS))
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = EMPRESAS
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = EMPRESAS
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, 
+    PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, 
+    MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, 
+    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,
+    REGISTRO_MERCANTIL, IVA
+  FROM
+    EMPRESAS WHERE (ID IN (1)) 
+
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, 
+    SUFIJO_N19, SUFIJO_N58
+  FROM
+    EMPRESAS_DATOS_BANCO
+WHERE ID_EMPRESA = :ID_EMPRESA
+
+  Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO))
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = EMPRESAS_DATOS_BANCO
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = EMPRESAS_DATOS_BANCO
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, 
+    SUFIJO_N19, SUFIJO_N58
+  FROM
+    EMPRESAS_DATOS_BANCO
+WHERE ID_EMPRESA = :ID_EMPRESA
+
+  ID_EMPRESA = 1
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, 
+    PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, 
+    MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, 
+    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,
+    REGISTRO_MERCANTIL, IVA
+  FROM
+    EMPRESAS WHERE (ID IN (1)) 
+
+  Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS))
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, 
+    PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, 
+    MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, 
+    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,
+    REGISTRO_MERCANTIL, IVA
+  FROM
+    EMPRESAS WHERE (ID IN (1)) 
+
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, 
+    SUFIJO_N19, SUFIJO_N58
+  FROM
+    EMPRESAS_DATOS_BANCO
+WHERE ID_EMPRESA = :ID_EMPRESA
+
+  Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO))
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, 
+    SUFIJO_N19, SUFIJO_N58
+  FROM
+    EMPRESAS_DATOS_BANCO
+WHERE ID_EMPRESA = :ID_EMPRESA
+
+  ID_EMPRESA = 1
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, 
+    PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, 
+    MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, 
+    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,
+    REGISTRO_MERCANTIL, IVA
+  FROM
+    EMPRESAS WHERE (EMPRESAS.ID = 1) AND (ID IN (1)) 
+
+  Plan: PLAN (EMPRESAS INDEX (PK_EMPRESAS))
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, 
+    PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, 
+    MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, 
+    FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,
+    REGISTRO_MERCANTIL, IVA
+  FROM
+    EMPRESAS WHERE (EMPRESAS.ID = 1) AND (ID IN (1)) 
+
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, 
+    SUFIJO_N19, SUFIJO_N58
+  FROM
+    EMPRESAS_DATOS_BANCO
+WHERE ID_EMPRESA = :ID_EMPRESA
+
+  Plan: PLAN (EMPRESAS_DATOS_BANCO INDEX (FK_EMPRESAS_DATOS_BANCO))
+
+
>
+[20/07/2007 14:35:52]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENTA, 
+    SUFIJO_N19, SUFIJO_N58
+  FROM
+    EMPRESAS_DATOS_BANCO
+WHERE ID_EMPRESA = :ID_EMPRESA
+
+  ID_EMPRESA = 1
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN, REFERENCIA, REFERENCIA_PROVEEDOR,
+    TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,
+    ID_FACTURA, REF_FACTURA, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA,
+    PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,
+    IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL,
+    OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION,
+    USUARIO, ID_FORMA_PAGO
+  FROM
+    V_ALBARANES_PROVEEDOR WHERE (ID_EMPRESA = 1) AND ((IMPORTE_TOTAL >>= 0)) AND (ID_EMPRESA IN (1)) 
+
+  Plan: PLAN JOIN (JOIN (JOIN (JOIN (V_ALBARANES_PROVEEDOR ALBARANES_PROVEEDOR INDEX (FK_ALBARAN_PROVEEDOR2), V_ALBARANES_PROVEEDOR CONTACTOS INDEX (PK_CONTACTOS)), V_ALBARANES_PROVEEDOR PEDIDOS_PROVEEDOR INDEX (PK_PEDIDOS_PROVEEDOR)), V_ALBARANES_PROVEEDOR FACTURAS_PROVEEDOR INDEX (PK_FACTURAS_PROVEEDOR)), V_ALBAR
+
+
>
+[20/07/2007 14:35:55]ANES_PROVEEDOR ALMACENES INDEX (PK_ALMACENES))
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = V_ALBARANES_PROVEEDOR
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = V_ALBARANES_PROVEEDOR
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, ID_EMPRESA, ID_PROVEEDOR, NOMBRE, FECHA_ALBARAN, REFERENCIA, REFERENCIA_PROVEEDOR,
+    TIPO, ID_ALMACEN, NOMBRE_ALMACEN, ID_PEDIDO, REF_PED_PROVEEDOR,
+    ID_FACTURA, REF_FACTURA, REF_FACTURA_PROV, CALLE, CODIGO_POSTAL, POBLACION, PROVINCIA,
+    PERSONA_CONTACTO, TELEFONO, IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,
+    IMPORTE_DESCUENTO, BASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL,
+    OBSERVACIONES, INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION,
+    USUARIO, ID_FORMA_PAGO
+  FROM
+    V_ALBARANES_PROVEEDOR WHERE (ID_EMPRESA = 1) AND ((IMPORTE_TOTAL >>= 0)) AND (ID_EMPRESA IN (1)) 
+
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ALBARANES_PROVEEDOR_DETALLES.ID, ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN,
+    ALBARANES_PROVEEDOR_DETALLES.POSICION, ALBARANES_PROVEEDOR_DETALLES.TIPO_DETALLE,
+    ALBARANES_PROVEEDOR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,
+    ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, ALBARANES_PROVEEDOR_DETALLES.IMPORTE_TOTAL,
+    ALBARANES_PROVEEDOR_DETALLES.VISIBLE,
+
+    ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESCUENTO,
+    ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,
+    ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR
+
+FROM ALBARANES_PROVEEDOR_DETALLES
+LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID
+WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALBARAN
+ORDER BY POSICION;
+
+  Plan: PLAN SORT (JOIN (ALBARANES_PROVEEDOR_DETALLES INDEX (IDX_ALBARANES_PROV_DETALLES), ARTICULOS INDEX (PK_ARTICULOS)))
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = ALBARANES_PROVEEDOR_DETALLES
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = ALBARANES_PROVEEDOR_DETALLES
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = ARTICULOS
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = ARTICULOS
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:55]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ALBARANES_PROVEEDOR_DETALLES.ID, ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN,
+    ALBARANES_PROVEEDOR_DETALLES.POSICION, ALBARANES_PROVEEDOR_DETALLES.TIPO_DETALLE,
+    ALBARANES_PROVEEDOR_DETALLES.CONCEPTO, ALBARANES_PROVEEDOR_DETALLES.CANTIDAD,
+    ALBARANES_PROVEEDOR_DETALLES.IMPORTE_UNIDAD, ALBARANES_PROVEEDOR_DETALLES.IMPORTE_TOTAL,
+    ALBARANES_PROVEEDOR_DETALLES.VISIBLE,
+
+    ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO, ALBARANES_PROVEEDOR_DETALLES.DESCUENTO,
+    ALBARANES_PROVEEDOR_DETALLES.IMPORTE_PORTE,
+    ARTICULOS.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR
+
+FROM ALBARANES_PROVEEDOR_DETALLES
+LEFT JOIN ARTICULOS ON ALBARANES_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID
+WHERE ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = :ID_ALBARAN
+ORDER BY POSICION;
+
+  ID_ALBARAN = 40
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT ALMACENES.ID, ALMACENES.ID_EMPRESA, ALMACENES.NOMBRE, ALMACENES.CALLE,
+       ALMACENES.PROVINCIA, ALMACENES.POBLACION, ALMACENES.CODIGO_POSTAL,
+       ALMACENES.TELEFONO, ALMACENES.MOVIL, ALMACENES.FAX, ALMACENES.PERSONA_CONTACTO,
+       ALMACENES.OBSERVACIONES, ALMACENES.FECHA_ALTA, ALMACENES.FECHA_MODIFICACION,
+       ALMACENES.USUARIO
+
+FROM ALMACENES WHERE (ALMACENES.ID_EMPRESA = 1) 
+
+  Plan: PLAN (ALMACENES INDEX (FK_ALMACENES_EMPRESAS))
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = ALMACENES
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = ALMACENES
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT ALMACENES.ID, ALMACENES.ID_EMPRESA, ALMACENES.NOMBRE, ALMACENES.CALLE,
+       ALMACENES.PROVINCIA, ALMACENES.POBLACION, ALMACENES.CODIGO_POSTAL,
+       ALMACENES.TELEFONO, ALMACENES.MOVIL, ALMACENES.FAX, ALMACENES.PERSONA_CONTACTO,
+       ALMACENES.OBSERVACIONES, ALMACENES.FECHA_ALTA, ALMACENES.FECHA_MODIFICACION,
+       ALMACENES.USUARIO
+
+FROM ALMACENES WHERE (ALMACENES.ID_EMPRESA = 1) 
+
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, 
+    DC, CUENTA
+  FROM
+    FORMAS_PAGO
+
+  Plan: PLAN (FORMAS_PAGO NATURAL)
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = FORMAS_PAGO
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = FORMAS_PAGO
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, REFERENCIA, DESCRIPCION, TITULAR, ENTIDAD, SUCURSAL, 
+    DC, CUENTA
+  FROM
+    FORMAS_PAGO
+
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE
+  FROM
+    FORMAS_PAGO_PLAZOS
+  WHERE
+    FORMAS_PAGO_PLAZOS.ID_FORMA_PAGO = :ID_FORMA_PAGO
+
+  Plan: PLAN (FORMAS_PAGO_PLAZOS INDEX (FK_FORMAS_PAGO_PLAZOS))
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = FORMAS_PAGO_PLAZOS
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = FORMAS_PAGO_PLAZOS
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE
+  FROM
+    FORMAS_PAGO_PLAZOS
+  WHERE
+    FORMAS_PAGO_PLAZOS.ID_FORMA_PAGO = :ID_FORMA_PAGO
+
+  ID_FORMA_PAGO = 8
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, CALLE, 
+    POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, 
+    MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, 
+    NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, 
+    REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB
+  FROM
+    V_PROVEEDORES WHERE (ID = 0) AND (ID_EMPRESA = 1) AND (ID_EMPRESA IN (1)) 
+
+  Plan: PLAN JOIN (V_PROVEEDORES V_CONTACTOS EMPRESAS_CONTACTOS INDEX (PK_EMPRESAS_CONTACTOS), V_PROVEEDORES V_CONTACTOS CONTACTOS_CATEGORIAS INDEX (PK_CONTACTOS_CATEGORIAS), V_PROVEEDORES V_CONTACTOS CONTACTOS INDEX (PK_CONTACTOS), V_PROVEEDORES PROVEEDORES_DATOS INDEX (PK_PROVEEDORES_DATOS))
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = V_PROVEEDORES
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = V_PROVEEDORES
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:35:59]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, CALLE, 
+    POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, 
+    MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, 
+    NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, 
+    REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB
+  FROM
+    V_PROVEEDORES WHERE (ID = 0) AND (ID_EMPRESA = 1) AND (ID_EMPRESA IN (1)) 
+
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, CALLE, 
+    POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, 
+    MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, 
+    NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, 
+    REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB
+  FROM
+    V_PROVEEDORES WHERE (ID_EMPRESA = 1) AND (ID_EMPRESA IN (1)) 
+
+  Plan: PLAN JOIN (V_PROVEEDORES PROVEEDORES_DATOS NATURAL, V_PROVEEDORES V_CONTACTOS EMPRESAS_CONTACTOS INDEX (PK_EMPRESAS_CONTACTOS), V_PROVEEDORES V_CONTACTOS CONTACTOS_CATEGORIAS INDEX (PK_CONTACTOS_CATEGORIAS), V_PROVEEDORES V_CONTACTOS CONTACTOS INDEX (PK_CONTACTOS))
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, CALLE, 
+    POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, 
+    MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, 
+    NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, 
+    REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB
+  FROM
+    V_PROVEEDORES WHERE (ID_EMPRESA = 1) AND (ID_EMPRESA IN (1)) 
+
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO))
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = CONTACTOS_DATOS_BANCO
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = CONTACTOS_DATOS_BANCO
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 3
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_CATEGORIAS INDEX (IDX_CONTACTOS_CATEGORIAS))
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = CONTACTOS_CATEGORIAS
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = CONTACTOS_CATEGORIAS
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 3
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_CATEGORIAS INDEX (IDX_CONTACTOS_CATEGORIAS))
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 121
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO))
+
+
>
+[20/07/2007 14:36:01]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 121
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, CALLE, 
+    POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, 
+    MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, 
+    NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, 
+    REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB
+  FROM
+    V_PROVEEDORES WHERE (ID_EMPRESA = 1) AND (ID_EMPRESA IN (1)) 
+
+  Plan: PLAN JOIN (V_PROVEEDORES PROVEEDORES_DATOS NATURAL, V_PROVEEDORES V_CONTACTOS EMPRESAS_CONTACTOS INDEX (PK_EMPRESAS_CONTACTOS), V_PROVEEDORES V_CONTACTOS CONTACTOS_CATEGORIAS INDEX (PK_CONTACTOS_CATEGORIAS), V_PROVEEDORES V_CONTACTOS CONTACTOS INDEX (PK_CONTACTOS))
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID, ID_CATEGORIA, REFERENCIA, NIF_CIF, NOMBRE, CALLE, 
+    POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, 
+    MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, 
+    NOTAS, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, ID_EMPRESA, 
+    REGIMEN_IVA, DESCUENTO, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB
+  FROM
+    V_PROVEEDORES WHERE (ID_EMPRESA = 1) AND (ID_EMPRESA IN (1)) 
+
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO))
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 3
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_CATEGORIAS INDEX (IDX_CONTACTOS_CATEGORIAS))
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 3
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO))
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = <NULL>>
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_CATEGORIAS INDEX (IDX_CONTACTOS_CATEGORIAS))
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 444
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_CATEGORIAS INDEX (IDX_CONTACTOS_CATEGORIAS))
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT 
+    ID_CONTACTO, ID_CATEGORIA
+  FROM
+    CONTACTOS_CATEGORIAS
+  WHERE
+    ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 3
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  Plan: PLAN (CONTACTOS_DATOS_BANCO INDEX (IDX_CONTACTOS_DATOS_BANCO))
+
+
>
+[20/07/2007 14:36:02]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT
+    ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA
+  FROM
+    CONTACTOS_DATOS_BANCO
+  WHERE ID_CONTACTO = :ID_CONTACTO
+
+  ID_CONTACTO = 3
+
+
>
+[20/07/2007 14:36:04]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFERENCIA, V_ARTICULOS.DESCRIPCION,
+       V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,
+       V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,
+       V_ARTICULOS.REFERENCIA_PROV,
+       V_ARTICULOS.PRECIO_COSTE,
+       V_ARTICULOS.PRECIO_PORTE,
+       V_ARTICULOS.DESCUENTO,
+       V_ARTICULOS.PRECIO_NETO,
+       V_ARTICULOS.INVENTARIABLE,
+       V_ARTICULOS.ID_PROVEEDOR,
+       V_ARTICULOS.NOMBRE_PROVEEDOR,
+       V_ARTICULOS.ELIMINADO
+FROM V_ARTICULOS WHERE (V_ARTICULOS.ID_EMPRESA = 1) 
+
+  Plan: PLAN JOIN (V_ARTICULOS ARTICULOS INDEX (FK_ARTICULOS_EMPRESA), V_ARTICULOS CONTACTOS INDEX (PK_CONTACTOS))
+
+
>
+[20/07/2007 14:36:04]
+[Application: FactuGES (Servidor)]
+: [Start transaction]
+
+
>
+[20/07/2007 14:36:04]
+[Application: FactuGES (Servidor)]
+: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not (F.RDB$DEFAULT_VALUE is NULL and R.RDB$DEFAULT_VALUE is NULL))) 
+
+  RELATION = V_ARTICULOS
+
+
>
+[20/07/2007 14:36:04]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT RDB$FIELD_NAME, RDB$FIELD_POSITION FROM RDB$RELATION_CONSTRAINTS RR JOIN RDB$INDEX_SEGMENTS RI ON      RR.RDB$INDEX_NAME = RI.RDB$INDEX_NAME WHERE RDB$RELATION_NAME = :relation_name AND       RDB$CONSTRAINT_TYPE = 'PRIMARY KEY ' ORDER BY RDB$FIELD_POSITION 
+
+  RELATION_NAME = V_ARTICULOS
+
+
>
+[20/07/2007 14:36:04]
+[Application: FactuGES (Servidor)]
+: [Commit (Hard commit)]
+
+
>
+[20/07/2007 14:36:04]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFERENCIA, V_ARTICULOS.DESCRIPCION,
+       V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,
+       V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,
+       V_ARTICULOS.REFERENCIA_PROV,
+       V_ARTICULOS.PRECIO_COSTE,
+       V_ARTICULOS.PRECIO_PORTE,
+       V_ARTICULOS.DESCUENTO,
+       V_ARTICULOS.PRECIO_NETO,
+       V_ARTICULOS.INVENTARIABLE,
+       V_ARTICULOS.ID_PROVEEDOR,
+       V_ARTICULOS.NOMBRE_PROVEEDOR,
+       V_ARTICULOS.ELIMINADO
+FROM V_ARTICULOS WHERE (V_ARTICULOS.ID_EMPRESA = 1) 
+
+
+
>
+[20/07/2007 14:36:05]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFERENCIA, V_ARTICULOS.DESCRIPCION,
+       V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,
+       V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,
+       V_ARTICULOS.REFERENCIA_PROV,
+       V_ARTICULOS.PRECIO_COSTE,
+       V_ARTICULOS.PRECIO_PORTE,
+       V_ARTICULOS.DESCUENTO,
+       V_ARTICULOS.PRECIO_NETO,
+       V_ARTICULOS.INVENTARIABLE,
+       V_ARTICULOS.ID_PROVEEDOR,
+       V_ARTICULOS.NOMBRE_PROVEEDOR,
+       V_ARTICULOS.ELIMINADO
+FROM V_ARTICULOS WHERE (V_ARTICULOS.ID_EMPRESA = 1) 
+
+  Plan: PLAN JOIN (V_ARTICULOS ARTICULOS INDEX (FK_ARTICULOS_EMPRESA), V_ARTICULOS CONTACTOS INDEX (PK_CONTACTOS))
+
+
>
+[20/07/2007 14:36:05]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFERENCIA, V_ARTICULOS.DESCRIPCION,
+       V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,
+       V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,
+       V_ARTICULOS.REFERENCIA_PROV,
+       V_ARTICULOS.PRECIO_COSTE,
+       V_ARTICULOS.PRECIO_PORTE,
+       V_ARTICULOS.DESCUENTO,
+       V_ARTICULOS.PRECIO_NETO,
+       V_ARTICULOS.INVENTARIABLE,
+       V_ARTICULOS.ID_PROVEEDOR,
+       V_ARTICULOS.NOMBRE_PROVEEDOR,
+       V_ARTICULOS.ELIMINADO
+FROM V_ARTICULOS WHERE (V_ARTICULOS.ID_EMPRESA = 1) 
+
+
+
>
+[20/07/2007 14:36:08]
+[Application: FactuGES (Servidor)]
+: [Prepare] SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFERENCIA, V_ARTICULOS.DESCRIPCION,
+       V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,
+       V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,
+       V_ARTICULOS.REFERENCIA_PROV,
+       V_ARTICULOS.PRECIO_COSTE,
+       V_ARTICULOS.PRECIO_PORTE,
+       V_ARTICULOS.DESCUENTO,
+       V_ARTICULOS.PRECIO_NETO,
+       V_ARTICULOS.INVENTARIABLE,
+       V_ARTICULOS.ID_PROVEEDOR,
+       V_ARTICULOS.NOMBRE_PROVEEDOR,
+       V_ARTICULOS.ELIMINADO
+FROM V_ARTICULOS WHERE (V_ARTICULOS.ID_EMPRESA = 1) 
+
+  Plan: PLAN JOIN (V_ARTICULOS ARTICULOS INDEX (FK_ARTICULOS_EMPRESA), V_ARTICULOS CONTACTOS INDEX (PK_CONTACTOS))
+
+
>
+[20/07/2007 14:36:08]
+[Application: FactuGES (Servidor)]
+: [Execute] SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFERENCIA, V_ARTICULOS.DESCRIPCION,
+       V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA,
+       V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,
+       V_ARTICULOS.REFERENCIA_PROV,
+       V_ARTICULOS.PRECIO_COSTE,
+       V_ARTICULOS.PRECIO_PORTE,
+       V_ARTICULOS.DESCUENTO,
+       V_ARTICULOS.PRECIO_NETO,
+       V_ARTICULOS.INVENTARIABLE,
+       V_ARTICULOS.ID_PROVEEDOR,
+       V_ARTICULOS.NOMBRE_PROVEEDOR,
+       V_ARTICULOS.ELIMINADO
+FROM V_ARTICULOS WHERE (V_ARTICULOS.ID_EMPRESA = 1) 
+
+
+
>
diff --git a/Source/Lib/Base.dcp b/Source/Lib/Base.dcp
index a098f72e..c5abbad3 100644
Binary files a/Source/Lib/Base.dcp and b/Source/Lib/Base.dcp differ
diff --git a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
index 080f5d61..0abc53ba 100644
--- a/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
+++ b/Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
@@ -9,9 +9,9 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_Articulos = '{9AAD4D21-615D-4BE2-B2E8-3BF830A2479D}';
-  RID_Articulos_Refresh = '{967630B5-0B84-4880-AE01-B46476C58DBA}';
-  RID_ArticulosParaCliente = '{A240E121-C16A-4429-9334-534EAC01A64F}';
+  RID_Articulos = '{CD3F7AC8-2E99-468B-A2B4-DDCB9DF05381}';
+  RID_Articulos_Refresh = '{992EF741-76AC-4B91-A1A5-BDEC941728C0}';
+  RID_ArticulosParaCliente = '{4666CBEF-C5F0-4DA1-9E9D-0BE39BE9D21E}';
 
   { Data table names }
   nme_Articulos = 'Articulos';
@@ -109,6 +109,7 @@ const
   fld_ArticulosParaClienteID_PROVEEDOR = 'ID_PROVEEDOR';
   fld_ArticulosParaClienteINVENTARIABLE = 'INVENTARIABLE';
   fld_ArticulosParaClienteNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
+  fld_ArticulosParaClienteELIMINADO = 'ELIMINADO';
 
   { ArticulosParaCliente field indexes }
   idx_ArticulosParaClienteID = 0;
@@ -129,11 +130,12 @@ const
   idx_ArticulosParaClienteID_PROVEEDOR = 15;
   idx_ArticulosParaClienteINVENTARIABLE = 16;
   idx_ArticulosParaClienteNOMBRE_PROVEEDOR = 17;
+  idx_ArticulosParaClienteELIMINADO = 18;
 
 type
   { IArticulos }
   IArticulos = interface(IDAStronglyTypedDataTable)
-  ['{F386AF9A-07F2-46B7-A1C5-D2894A4999F9}']
+  ['{CA8B6ED7-3DFA-47B8-B5D0-31D191D38B20}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -270,7 +272,7 @@ type
 
   { IArticulos_Refresh }
   IArticulos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{708A0430-C17A-49B6-9C0D-7F604E77420E}']
+  ['{3F6FFE15-16A8-4FC3-869E-0465A8C2B083}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -371,7 +373,7 @@ type
 
   { IArticulosParaCliente }
   IArticulosParaCliente = interface(IDAStronglyTypedDataTable)
-  ['{696D0B00-6A67-46B0-AABC-1D2936C0F368}']
+  ['{E86734CD-8850-47A1-9A1F-DF10538B5379}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -409,6 +411,8 @@ type
     procedure SetINVENTARIABLEValue(const aValue: Integer);
     function GetNOMBRE_PROVEEDORValue: String;
     procedure SetNOMBRE_PROVEEDORValue(const aValue: String);
+    function GetELIMINADOValue: Integer;
+    procedure SetELIMINADOValue(const aValue: Integer);
 
 
     { Properties }
@@ -430,6 +434,7 @@ type
     property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
     property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
     property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
   end;
 
   { TArticulosParaClienteDataTableRules }
@@ -473,6 +478,8 @@ type
     procedure SetINVENTARIABLEValue(const aValue: Integer); virtual;
     function GetNOMBRE_PROVEEDORValue: String; virtual;
     procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
+    function GetELIMINADOValue: Integer; virtual;
+    procedure SetELIMINADOValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -493,6 +500,7 @@ type
     property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
     property INVENTARIABLE: Integer read GetINVENTARIABLEValue write SetINVENTARIABLEValue;
     property NOMBRE_PROVEEDOR: String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
+    property ELIMINADO: Integer read GetELIMINADOValue write SetELIMINADOValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1041,6 +1049,16 @@ begin
   DataTable.Fields[idx_ArticulosParaClienteNOMBRE_PROVEEDOR].AsString := aValue;
 end;
 
+function TArticulosParaClienteDataTableRules.GetELIMINADOValue: Integer;
+begin
+  result := DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger;
+end;
+
+procedure TArticulosParaClienteDataTableRules.SetELIMINADOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ArticulosParaClienteELIMINADO].AsInteger := aValue;
+end;
+
 
 initialization
   RegisterDataTableRules(RID_Articulos, TArticulosDataTableRules);
diff --git a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
index 45ce4d34..a901799a 100644
--- a/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
+++ b/Source/Modulos/Articulos/Model/schArticulosServer_Intf.pas
@@ -9,14 +9,14 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_ArticulosDelta = '{396DBBBF-56A0-489F-86EC-2BE6CA6C8B65}';
-  RID_Articulos_RefreshDelta = '{69DB90A1-014F-41FC-9B91-8432EA3F95C9}';
-  RID_ArticulosParaClienteDelta = '{5629F1BB-3C94-4F82-9BDC-09D1A8405E47}';
+  RID_ArticulosDelta = '{43530E4A-4CC7-4251-9AA8-0061B8C9C052}';
+  RID_Articulos_RefreshDelta = '{115B6297-C598-4900-92EA-D308C93328E8}';
+  RID_ArticulosParaClienteDelta = '{5CC30710-52CC-49FF-AC98-37F07D612A35}';
 
 type
   { IArticulosDelta }
   IArticulosDelta = interface(IArticulos)
-  ['{396DBBBF-56A0-489F-86EC-2BE6CA6C8B65}']
+  ['{43530E4A-4CC7-4251-9AA8-0061B8C9C052}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -171,7 +171,7 @@ type
 
   { IArticulos_RefreshDelta }
   IArticulos_RefreshDelta = interface(IArticulos_Refresh)
-  ['{69DB90A1-014F-41FC-9B91-8432EA3F95C9}']
+  ['{115B6297-C598-4900-92EA-D308C93328E8}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -284,7 +284,7 @@ type
 
   { IArticulosParaClienteDelta }
   IArticulosParaClienteDelta = interface(IArticulosParaCliente)
-  ['{5629F1BB-3C94-4F82-9BDC-09D1A8405E47}']
+  ['{5CC30710-52CC-49FF-AC98-37F07D612A35}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -304,6 +304,7 @@ type
     function GetOldID_PROVEEDORValue : Integer;
     function GetOldINVENTARIABLEValue : Integer;
     function GetOldNOMBRE_PROVEEDORValue : String;
+    function GetOldELIMINADOValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -324,6 +325,7 @@ type
     property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
     property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
     property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
+    property OldELIMINADO : Integer read GetOldELIMINADOValue;
   end;
 
   { TArticulosParaClienteBusinessProcessorRules }
@@ -385,6 +387,9 @@ type
     function GetNOMBRE_PROVEEDORValue: String; virtual;
     function GetOldNOMBRE_PROVEEDORValue: String; virtual;
     procedure SetNOMBRE_PROVEEDORValue(const aValue: String); virtual;
+    function GetELIMINADOValue: Integer; virtual;
+    function GetOldELIMINADOValue: Integer; virtual;
+    procedure SetELIMINADOValue(const aValue: Integer); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -423,6 +428,8 @@ type
     property OldINVENTARIABLE : Integer read GetOldINVENTARIABLEValue;
     property NOMBRE_PROVEEDOR : String read GetNOMBRE_PROVEEDORValue write SetNOMBRE_PROVEEDORValue;
     property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
+    property ELIMINADO : Integer read GetELIMINADOValue write SetELIMINADOValue;
+    property OldELIMINADO : Integer read GetOldELIMINADOValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1224,6 +1231,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteNOMBRE_PROVEEDOR] := aValue;
 end;
 
+function TArticulosParaClienteBusinessProcessorRules.GetELIMINADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO];
+end;
+
+function TArticulosParaClienteBusinessProcessorRules.GetOldELIMINADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ArticulosParaClienteELIMINADO];
+end;
+
+procedure TArticulosParaClienteBusinessProcessorRules.SetELIMINADOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ArticulosParaClienteELIMINADO] := aValue;
+end;
+
 
 initialization
   RegisterBusinessProcessorRules(RID_ArticulosDelta, TArticulosBusinessProcessorRules);
diff --git a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
index 0370d841..10e5e15f 100644
--- a/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
+++ b/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
@@ -738,10 +738,10 @@ object srvArticulos: TsrvArticulos
               'E,'#10'       V_ARTICULOS.PRECIO_PORTE,'#10'       CLIENTES_DTOS_PROVEED' +
               'ORES.DESCUENTO,'#10'       V_ARTICULOS.PRECIO_NETO,'#10'       V_ARTICUL' +
               'OS.INVENTARIABLE,'#10'       V_ARTICULOS.ID_PROVEEDOR,'#10'       V_ARTI' +
-              'CULOS.NOMBRE_PROVEEDOR'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES' +
-              '_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = ' +
-              'V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.ID_CLIE' +
-              'NTE = :ID_CLIENTE))'
+              'CULOS.NOMBRE_PROVEEDOR,'#10'       V_ARTICULOS.ELIMINADO'#10'FROM V_ARTI' +
+              'CULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DT' +
+              'OS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLI' +
+              'ENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -815,6 +815,10 @@ object srvArticulos: TsrvArticulos
               item
                 DatasetField = 'INVENTARIABLE'
                 TableField = 'INVENTARIABLE'
+              end
+              item
+                DatasetField = 'ELIMINADO'
+                TableField = 'ELIMINADO'
               end>
           end>
         Name = 'ArticulosParaCliente'
@@ -1022,6 +1026,18 @@ object srvArticulos: TsrvArticulos
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'ELIMINADO'
+            DataType = datInteger
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            DisplayLabel = 'Eliminado'
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
diff --git a/Source/Modulos/Lib/Articulos_controller.dcp b/Source/Modulos/Lib/Articulos_controller.dcp
index adbf0379..3e4f9e3f 100644
Binary files a/Source/Modulos/Lib/Articulos_controller.dcp and b/Source/Modulos/Lib/Articulos_controller.dcp differ
diff --git a/Source/Modulos/Lib/Articulos_data.dcp b/Source/Modulos/Lib/Articulos_data.dcp
index 6eedc752..68061a25 100644
Binary files a/Source/Modulos/Lib/Articulos_data.dcp and b/Source/Modulos/Lib/Articulos_data.dcp differ
diff --git a/Source/Modulos/Lib/Articulos_model.dcp b/Source/Modulos/Lib/Articulos_model.dcp
index 0a7c06a8..5ec43858 100644
Binary files a/Source/Modulos/Lib/Articulos_model.dcp and b/Source/Modulos/Lib/Articulos_model.dcp differ
diff --git a/Source/Modulos/Lib/Articulos_plugin.dcp b/Source/Modulos/Lib/Articulos_plugin.dcp
index 8f9b21fd..364df8b0 100644
Binary files a/Source/Modulos/Lib/Articulos_plugin.dcp and b/Source/Modulos/Lib/Articulos_plugin.dcp differ
diff --git a/Source/Modulos/Lib/Articulos_view.dcp b/Source/Modulos/Lib/Articulos_view.dcp
index d1d96db3..0054882e 100644
Binary files a/Source/Modulos/Lib/Articulos_view.dcp and b/Source/Modulos/Lib/Articulos_view.dcp differ
diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj
index 706242eb..ebdcbf8d 100644
--- a/Source/Servidor/FactuGES_Server.bdsproj
+++ b/Source/Servidor/FactuGES_Server.bdsproj
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<PersonalityInfo>
 		<Option>
@@ -175,13 +175,12 @@
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductVersion">2.1.3.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-			<VersionInfoKeys Name="CompileDate">miércoles, 18 de julio de 2007 12:33</VersionInfoKeys></VersionInfoKeys>
-		<Excluded_Packages>
-			<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
-		</Excluded_Packages>
-	</Delphi.Personality>
+			<VersionInfoKeys Name="CompileDate">miércoles, 18 de julio de 2007 12:33</VersionInfoKeys></VersionInfoKeys>  <Excluded_Packages>
+      <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
+    </Excluded_Packages>
+  </Delphi.Personality>
 	<ModelSupport>False</ModelSupport>
-	<!-- EurekaLog First Line
+<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1