diff --git a/Database/Script.txt b/Database/Script.txt
index c7737e67..e69de29b 100644
--- a/Database/Script.txt
+++ b/Database/Script.txt
@@ -1,215 +0,0 @@
-ALTER TABLE ALBARANES_CLIENTE
-ADD ID_ALBARAN_DEV TIPO_ID;
-
-ALTER TABLE ALBARANES_PROVEEDOR
-ADD ID_ALBARAN_DEV TIPO_ID;
-
-DROP VIEW V_ALBARANES_CLIENTE;
-
-CREATE VIEW V_ALBARANES_CLIENTE(
-    ID,
-    ID_EMPRESA,
-    ID_CLIENTE,
-    NOMBRE,
-    FECHA_ALBARAN,
-    REFERENCIA,
-    REFERENCIA_CLIENTE,
-    TIPO,
-    ID_ALBARAN_DEV,
-    REFERENCIA_ALB_DEV,
-    ID_FAC_ALB_DEV,
-    REFERENCIA_FAC_ALB_DEV,
-    SITUACION,
-    ID_ALMACEN,
-    NOMBRE_ALMACEN,
-    ID_PEDIDO,
-    REF_PEDIDO,
-    ID_FACTURA,
-    REF_FACTURA,
-    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,
-    FECHA_PREVISTA_ENVIO,
-    FECHA_ENVIO,
-    FECHA_RECEPCION,
-    ID_AGENTE,
-    AGENTE,
-    NUM_COPIAS)
-AS
-SELECT
-  ALBARANES_CLIENTE.ID,
-  ALBARANES_CLIENTE.ID_EMPRESA,
-  ALBARANES_CLIENTE.ID_CLIENTE,
-  CLIENTES.NOMBRE,
-  ALBARANES_CLIENTE.FECHA_ALBARAN,
-  ALBARANES_CLIENTE.REFERENCIA,
-  ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
-  ALBARANES_CLIENTE.TIPO,
-  ALBARANES_CLIENTE.ID_ALBARAN_DEV,
-  ALB_DEV.REFERENCIA,
-  ALB_DEV.ID_FACTURA,
-  FAC_CLI_ALB_DEV.REFERENCIA,
-  V_ALB_CLI_SITUACION.SITUACION,
-  ALBARANES_CLIENTE.ID_ALMACEN,
-  ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
-  ALBARANES_CLIENTE.ID_PEDIDO,
-  PEDIDOS_CLIENTE.REFERENCIA AS REF_PEDIDO,
-  ALBARANES_CLIENTE.ID_FACTURA,
-  FACTURAS_CLIENTE.REFERENCIA AS REF_FACTURA,
-  ALBARANES_CLIENTE.CALLE,
-  ALBARANES_CLIENTE.CODIGO_POSTAL,
-  ALBARANES_CLIENTE.POBLACION,
-  ALBARANES_CLIENTE.PROVINCIA,
-  ALBARANES_CLIENTE.PERSONA_CONTACTO,
-  ALBARANES_CLIENTE.TELEFONO,
-  ALBARANES_CLIENTE.IMPORTE_NETO,
-  ALBARANES_CLIENTE.IMPORTE_PORTE,
-  ALBARANES_CLIENTE.DESCUENTO,
-  ALBARANES_CLIENTE.IMPORTE_DESCUENTO,
-  ALBARANES_CLIENTE.BASE_IMPONIBLE,
-  ALBARANES_CLIENTE.IVA,
-  ALBARANES_CLIENTE.IMPORTE_IVA,
-  ALBARANES_CLIENTE.IMPORTE_TOTAL,
-  ALBARANES_CLIENTE.OBSERVACIONES,
-  ALBARANES_CLIENTE.INCIDENCIAS,
-  ALBARANES_CLIENTE.INCIDENCIAS_ACTIVAS,
-  ALBARANES_CLIENTE.FECHA_ALTA,
-  ALBARANES_CLIENTE.FECHA_MODIFICACION,
-  ALBARANES_CLIENTE.USUARIO,
-  ALBARANES_CLIENTE.ID_FORMA_PAGO,
-  ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
-  ALBARANES_CLIENTE.FECHA_ENVIO,
-  ALBARANES_CLIENTE.FECHA_RECEPCION,
-  CLIENTES_DATOS.ID_AGENTE,
-  AGENTES.NOMBRE,
-  IMPRESIONES.NUM_COPIAS
-
-FROM
-  ALBARANES_CLIENTE
-  INNER JOIN V_ALB_CLI_SITUACION ON (V_ALB_CLI_SITUACION.ID = ALBARANES_CLIENTE.ID)
-  INNER JOIN CONTACTOS CLIENTES ON (CLIENTES.ID = ALBARANES_CLIENTE.ID_CLIENTE)
-  LEFT OUTER JOIN ALBARANES_CLIENTE ALB_DEV ON (ALB_DEV.ID = ALBARANES_CLIENTE.ID_ALBARAN_DEV)
-  LEFT OUTER JOIN FACTURAS_CLIENTE FAC_CLI_ALB_DEV ON (FAC_CLI_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
-  LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = ALBARANES_CLIENTE.ID_CLIENTE)
-  LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
-  LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = ALBARANES_CLIENTE.ID_PEDIDO)
-  LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = ALBARANES_CLIENTE.ID_FACTURA)
-  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_CLIENTE.ID_ALMACEN)
-  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'ALBARANESCLIENTE'))
-;
-
-DROP VIEW V_ALBARANES_PROVEEDOR;
-
-CREATE VIEW V_ALBARANES_PROVEEDOR(
-    ID,
-    ID_EMPRESA,
-    ID_PROVEEDOR,
-    NOMBRE,
-    FECHA_ALBARAN,
-    REFERENCIA,
-    REFERENCIA_PROVEEDOR,
-    TIPO,
-    ID_ALBARAN_DEV,
-    REFERENCIA_ALB_DEV,
-    ID_FAC_ALB_DEV,
-    REFERENCIA_FAC_ALB_DEV,
-    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,
-    NUM_COPIAS)
-AS
-SELECT
-  ALBARANES_PROVEEDOR.ID,
-  ALBARANES_PROVEEDOR.ID_EMPRESA,
-  ALBARANES_PROVEEDOR.ID_PROVEEDOR,
-  CONTACTOS.NOMBRE,
-  ALBARANES_PROVEEDOR.FECHA_ALBARAN,
-  ALBARANES_PROVEEDOR.REFERENCIA,
-  ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
-  ALBARANES_PROVEEDOR.TIPO,
-  ALBARANES_PROVEEDOR.ID_ALBARAN_DEV,
-  ALB_DEV.REFERENCIA,
-  ALB_DEV.ID_FACTURA,
-  FAC_PROV_ALB_DEV.REFERENCIA,
-  ALBARANES_PROVEEDOR.ID_ALMACEN,
-  ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
-  ALBARANES_PROVEEDOR.ID_PEDIDO,
-  PEDIDOS_PROVEEDOR.REFERENCIA AS REF_PED_PROVEEDOR,
-  ALBARANES_PROVEEDOR.ID_FACTURA,
-  FACTURAS_PROVEEDOR.REFERENCIA AS REF_FACTURA,
-  ALBARANES_PROVEEDOR.REF_FACTURA_PROV,
-  ALBARANES_PROVEEDOR.CALLE,
-  ALBARANES_PROVEEDOR.CODIGO_POSTAL,
-  ALBARANES_PROVEEDOR.POBLACION,
-  ALBARANES_PROVEEDOR.PROVINCIA,
-  ALBARANES_PROVEEDOR.PERSONA_CONTACTO,
-  ALBARANES_PROVEEDOR.TELEFONO,
-  ALBARANES_PROVEEDOR.IMPORTE_NETO,
-  ALBARANES_PROVEEDOR.IMPORTE_PORTE,
-  ALBARANES_PROVEEDOR.DESCUENTO,
-  ALBARANES_PROVEEDOR.IMPORTE_DESCUENTO,
-  ALBARANES_PROVEEDOR.BASE_IMPONIBLE,
-  ALBARANES_PROVEEDOR.IVA,
-  ALBARANES_PROVEEDOR.IMPORTE_IVA,
-  ALBARANES_PROVEEDOR.IMPORTE_TOTAL,
-  ALBARANES_PROVEEDOR.OBSERVACIONES,
-  ALBARANES_PROVEEDOR.INCIDENCIAS,
-  ALBARANES_PROVEEDOR.INCIDENCIAS_ACTIVAS,
-  ALBARANES_PROVEEDOR.FECHA_ALTA,
-  ALBARANES_PROVEEDOR.FECHA_MODIFICACION,
-  ALBARANES_PROVEEDOR.USUARIO,
-  ALBARANES_PROVEEDOR.ID_FORMA_PAGO,
-  IMPRESIONES.NUM_COPIAS
-FROM
-  ALBARANES_PROVEEDOR
-  INNER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_PROVEEDOR.ID_PROVEEDOR)
-  LEFT OUTER JOIN ALBARANES_PROVEEDOR ALB_DEV ON (ALB_DEV.ID = ALBARANES_PROVEEDOR.ID_ALBARAN_DEV)
-  LEFT OUTER JOIN FACTURAS_PROVEEDOR FAC_PROV_ALB_DEV ON (FAC_PROV_ALB_DEV.ID = ALB_DEV.ID_FACTURA)
-  LEFT OUTER JOIN PEDIDOS_PROVEEDOR ON (PEDIDOS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_PEDIDO)
-  LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = ALBARANES_PROVEEDOR.ID_FACTURA)
-  LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = ALBARANES_PROVEEDOR.ID_ALMACEN)
-  LEFT JOIN IMPRESIONES ON ((IMPRESIONES.ID_TABLA = ALBARANES_PROVEEDOR.ID) AND (IMPRESIONES.TABLA = 'ALBARANESPROVEEDOR'))
-;
\ No newline at end of file
diff --git a/Source/Base/GUIBase/GUIBase.res b/Source/Base/GUIBase/GUIBase.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/GUIBase/GUIBase.res and b/Source/Base/GUIBase/GUIBase.res differ
diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj
index ad4ca58e..c5f56759 100644
--- a/Source/Cliente/FactuGES.bdsproj
+++ b/Source/Cliente/FactuGES.bdsproj
@@ -149,7 +149,7 @@
 			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
 			<VersionInfo Name="MajorVer">3</VersionInfo>
 			<VersionInfo Name="MinorVer">0</VersionInfo>
-			<VersionInfo Name="Release">8</VersionInfo>
+			<VersionInfo Name="Release">9</VersionInfo>
 			<VersionInfo Name="Build">0</VersionInfo>
 			<VersionInfo Name="Debug">False</VersionInfo>
 			<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -162,13 +162,13 @@
 		<VersionInfoKeys>
 			<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
 			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-			<VersionInfoKeys Name="FileVersion">3.0.8.0</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.9.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
 			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
-			<VersionInfoKeys Name="ProductVersion">3.0.8.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.9.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
 		</VersionInfoKeys>  <Excluded_Packages>
       <Excluded_Packages Name="C:\Documents and Settings\Usuario\Mis documentos\Borland Studio Projects\Bpl\EasyListviewD10.bpl">Muststang Peak EasyListview Runtime Package</Excluded_Packages>
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index 543e1bc2..86c194e1 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 3,0,8,0
-PRODUCTVERSION 3,0,8,0
+FILEVERSION 3,0,9,0
+PRODUCTVERSION 3,0,9,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,9 +13,9 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "3.0.8.0\0"
+              VALUE "FileVersion", "3.0.9.0\0"
               VALUE "InternalName", "FactuGES\0"
-              VALUE "ProductVersion", "3.0.8.0\0"
+              VALUE "ProductVersion", "3.0.9.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index de62162b..5ed3458f 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm b/Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm
index eb280a99..5c21052f 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleAgentes.dfm
@@ -1,4 +1,30 @@
 inherited DataModuleAgentes: TDataModuleAgentes
+  inherited DADesigntimeCall1: TDADesigntimeCall
+    RemoteRequest.Params = <
+      item
+        Name = 'Result'
+        ParamType = fResult
+        DataType = rtBoolean
+      end
+      item
+        Name = 'User'
+        ParamType = fIn
+        DataType = rtString
+        Value = 'Luis'
+      end
+      item
+        Name = 'Password'
+        ParamType = fIn
+        DataType = rtString
+        Value = '1'
+      end
+      item
+        Name = 'LoginInfo'
+        ParamType = fOut
+        DataType = rtUserDefined
+        UserClassName = 'TRdxLoginInfo'
+      end>
+  end
   object tbl_Agentes: TDACDSDataTable
     RemoteUpdatesOptions = []
     Fields = <
@@ -469,7 +495,7 @@ inherited DataModuleAgentes: TDataModuleAgentes
         Name = 'ID_AGENTE'
         DataType = datInteger
         BlobType = dabtUnknown
-        Value = ''
+        Value = 4
         ParamType = daptInput
       end>
     MasterMappingMode = mmParams
diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
index 05d6584a..7f76b354 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
@@ -481,6 +481,18 @@ inherited DataModuleClientes: TDataModuleClientes
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'EMAIL_ADMINISTRACION'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'VENCIMIENTO_FACTURAS_1'
         DataType = datInteger
diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
index 4dbc0fee..da433a71 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
@@ -389,6 +389,18 @@ inherited DataModuleProveedores: TDataModuleProveedores
         Lookup = False
         LookupCache = False
       end
+      item
+        Name = 'EMAIL_ADMINISTRACION'
+        DataType = datString
+        Size = 255
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
+      end
       item
         Name = 'VENCIMIENTO_FACTURAS_1'
         DataType = datInteger
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index b6ff64d2..b384359a 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -4971,9 +4971,9 @@ object srvContactos: TsrvContactos
     DiagramData = 
       '<Diagrams>'#13#10'  <Diagram Name="New Diagram" Left="200" Top="200" W' +
       'idth="400" Height="300">'#13#10'    <Entity Name="Contactos" Left="223' +
-      ',77" Top="0,00" />'#13#10'    <Entity Name="ContactosCategorias" Left=' +
-      '"0,00" Top="26,50" />'#13#10'    <Entity Name="DatosBancarios" Left="4' +
-      '79,77" Top="0,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
+      ',77" Top="0,00" />'#13#10'    <Entity Name="DatosBancarios" Left="479,' +
+      '77" Top="0,00" />'#13#10'    <Entity Name="ContactosCategorias" Left="' +
+      '0,00" Top="26,50" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
   end
   object bpContactos: TDABusinessProcessor
     Schema = schContactos
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.bdsproj b/Source/Modulos/Contactos/Views/Contactos_view.bdsproj
index c1f237f8..ce4c8ce0 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.bdsproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.bdsproj
@@ -223,7 +223,7 @@
       <Excluded_Packages Name="C:\Documents and Settings\David\Mis documentos\Borland Studio Projects\Bpl\dxGDIPlusD10.bpl">ExpressGDI+ Library by Developer Express Inc.</Excluded_Packages>
     </Excluded_Packages>
   </Delphi.Personality>
-<!-- EurekaLog First Line
+	<!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
 Activate=1
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ
diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
index a1bc3c55..e16807fe 100644
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@@ -65,6 +65,7 @@ inherited fEditorCliente: TfEditorCliente
   inherited pgPaginas: TPageControl
     Width = 876
     Height = 570
+    ActivePage = pagDescuentos
     ExplicitWidth = 876
     ExplicitHeight = 570
     inherited pagGeneral: TTabSheet
@@ -202,6 +203,15 @@ inherited fEditorCliente: TfEditorCliente
             ExplicitWidth = 345
             Width = 345
           end
+          inherited eMailAdministracion: TcxDBHyperLinkEdit
+            Left = 557
+            Top = 315
+            Properties.Prefix = 'mailto:'
+            ExplicitLeft = 557
+            ExplicitTop = 315
+            ExplicitWidth = 74
+            Width = 74
+          end
           inherited eTlfParticular: TcxDBTextEdit
             Left = 557
             Top = 57
@@ -210,14 +220,6 @@ inherited fEditorCliente: TfEditorCliente
             ExplicitWidth = 103
             Width = 103
           end
-          inherited eMailAdministracion: TcxDBHyperLinkEdit
-            Left = 557
-            Top = 315
-            ExplicitLeft = 557
-            ExplicitTop = 315
-            ExplicitWidth = 74
-            Width = 74
-          end
           inherited eTlfTrabajo: TcxDBTextEdit
             Left = 557
             Top = 30
@@ -308,22 +310,22 @@ inherited fEditorCliente: TfEditorCliente
           LookAndFeel = dxLayoutOfficeLookAndFeel
           ExplicitWidth = 868
           inherited eEntidad: TcxDBTextEdit
-            ExplicitWidth = 221
-            Width = 221
+            ExplicitWidth = 337
+            Width = 337
           end
           inherited eSucursal: TcxDBTextEdit
             Left = 534
             ExplicitLeft = 534
-            ExplicitWidth = 208
-            Width = 208
+            ExplicitWidth = 312
+            Width = 312
           end
           inherited eCuenta: TcxDBTextEdit
-            ExplicitWidth = 388
-            Width = 388
+            ExplicitWidth = 608
+            Width = 608
           end
           inherited eTitular: TcxDBTextEdit
-            ExplicitWidth = 509
-            Width = 509
+            ExplicitWidth = 729
+            Width = 729
           end
         end
       end
@@ -352,66 +354,76 @@ inherited fEditorCliente: TfEditorCliente
           LookAndFeel = dxLayoutOfficeLookAndFeel
           ExplicitWidth = 868
           inherited Label1: TLabel
-            Left = 482
+            Left = 536
             Top = 30
             Width = 279
             Caption = 
               'Puede indicar el d'#237'a de mes que el cliente desea realizar el pag' +
               'o de sus recibos.'
-            ExplicitLeft = 482
+            ExplicitLeft = 536
             ExplicitTop = 30
             ExplicitWidth = 279
           end
           inherited eAgente: TcxDBLookupComboBox
             Top = 162
             ExplicitTop = 162
-            ExplicitWidth = 197
-            Width = 197
+            ExplicitWidth = 354
+            Width = 354
           end
-          inherited eDiasVencimiento: TcxDBSpinEdit
-            Left = 611
+          inherited eDiasVencimiento1: TcxDBSpinEdit
+            Left = 665
             Top = 62
-            ExplicitLeft = 611
+            ExplicitLeft = 665
             ExplicitTop = 62
-            ExplicitWidth = 160
-            Width = 160
           end
           inherited cbRegimenIVA: TcxDBComboBox
             Top = 30
             ExplicitTop = 30
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 354
+            Width = 354
           end
           inherited cbRecargoEquivalencia: TcxDBCheckBox
             Top = 111
             ExplicitTop = 111
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 354
+            Width = 354
           end
           inherited cbFormaPago: TcxDBLookupComboBox
             Top = 57
             ExplicitTop = 57
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 216
+            Width = 216
           end
           inherited bFormasPago: TButton
-            Left = 322
+            Left = 376
             Top = 57
-            ExplicitLeft = 322
+            ExplicitLeft = 376
             ExplicitTop = 57
           end
           inherited eIVA: TcxDBLookupComboBox
             Top = 84
             ExplicitTop = 84
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 216
+            Width = 216
           end
           inherited bTiposIVA: TButton
-            Left = 322
+            Left = 376
             Top = 84
-            ExplicitLeft = 322
+            ExplicitLeft = 376
             ExplicitTop = 84
           end
+          inherited eDiasVencimiento2: TcxDBSpinEdit
+            Left = 665
+            Top = 89
+            ExplicitLeft = 665
+            ExplicitTop = 89
+          end
+          inherited eDiasVencimiento3: TcxDBSpinEdit
+            Left = 665
+            Top = 116
+            ExplicitLeft = 665
+            ExplicitTop = 116
+          end
           inherited dxLayoutGroup1: TdxLayoutGroup
             inherited dxLayoutControl1Group5: TdxLayoutGroup
               inherited dxLayoutControl1Item2: TdxLayoutItem
@@ -493,12 +505,12 @@ inherited fEditorCliente: TfEditorCliente
         inherited cxGrid: TcxGrid
           Width = 868
           Height = 517
-          ExplicitWidth = 648
-          ExplicitHeight = 437
+          ExplicitWidth = 868
+          ExplicitHeight = 517
         end
         inherited ToolBar1: TToolBar
           Width = 868
-          ExplicitWidth = 648
+          ExplicitWidth = 868
           inherited ToolButton1: TToolButton
             ExplicitWidth = 62
           end
diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
index ded8797b..bec73e72 100644
--- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
@@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
   ClientWidth = 632
   Scaled = False
   ExplicitWidth = 640
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
index 40ba5448..fae88417 100644
--- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm
@@ -168,6 +168,13 @@ inherited fEditorProveedor: TfEditorProveedor
             ExplicitWidth = 172
             Width = 172
           end
+          inherited eMailAdministracion: TcxDBHyperLinkEdit
+            Top = 301
+            Properties.Prefix = 'mailto:'
+            ExplicitTop = 301
+            ExplicitWidth = 33
+            Width = 33
+          end
           inherited eTlfTrabajo: TcxDBTextEdit
             Left = 460
             Top = 30
@@ -192,12 +199,6 @@ inherited fEditorProveedor: TfEditorProveedor
             ExplicitWidth = 172
             Width = 172
           end
-          inherited eMailAdministracion: TcxDBHyperLinkEdit
-            Top = 301
-            ExplicitTop = 301
-            ExplicitWidth = 33
-            Width = 33
-          end
           inherited eNombre: TcxDBTextEdit
             Top = 57
             ExplicitTop = 57
@@ -257,19 +258,23 @@ inherited fEditorProveedor: TfEditorProveedor
           Width = 703
           LookAndFeel = dxLayoutOfficeLookAndFeel
           ExplicitWidth = 703
+          inherited eEntidad: TcxDBTextEdit
+            ExplicitWidth = 202
+            Width = 202
+          end
           inherited eSucursal: TcxDBTextEdit
             Left = 399
             ExplicitLeft = 399
-            ExplicitWidth = 177
-            Width = 177
+            ExplicitWidth = 282
+            Width = 282
           end
           inherited eCuenta: TcxDBTextEdit
-            ExplicitWidth = 242
-            Width = 242
+            ExplicitWidth = 443
+            Width = 443
           end
           inherited eTitular: TcxDBTextEdit
-            ExplicitWidth = 363
-            Width = 363
+            ExplicitWidth = 564
+            Width = 564
           end
         end
       end
@@ -308,14 +313,14 @@ inherited fEditorProveedor: TfEditorProveedor
           inherited cbRegimenIVA: TcxDBComboBox
             Top = 30
             ExplicitTop = 30
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 320
+            Width = 320
           end
           inherited cbFormaPago: TcxDBLookupComboBox
             Top = 57
             ExplicitTop = 57
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 182
+            Width = 182
           end
           inherited bFormasPago: TButton
             Left = 295
@@ -326,8 +331,8 @@ inherited fEditorProveedor: TfEditorProveedor
           inherited eIVA: TcxDBLookupComboBox
             Top = 84
             ExplicitTop = 84
-            ExplicitWidth = 121
-            Width = 121
+            ExplicitWidth = 182
+            Width = 182
           end
           inherited bTiposIVA: TButton
             Left = 295
@@ -340,8 +345,8 @@ inherited fEditorProveedor: TfEditorProveedor
             Top = 62
             ExplicitLeft = 499
             ExplicitTop = 62
-            ExplicitWidth = 73
-            Width = 73
+            ExplicitWidth = 182
+            Width = 182
           end
         end
       end
diff --git a/Source/Servidor/FactuGES_Server.bdsproj b/Source/Servidor/FactuGES_Server.bdsproj
index bed582e9..be6a3a77 100644
--- a/Source/Servidor/FactuGES_Server.bdsproj
+++ b/Source/Servidor/FactuGES_Server.bdsproj
@@ -154,7 +154,7 @@
 			<VersionInfo Name="AutoIncBuild">False</VersionInfo>
 			<VersionInfo Name="MajorVer">3</VersionInfo>
 			<VersionInfo Name="MinorVer">0</VersionInfo>
-			<VersionInfo Name="Release">7</VersionInfo>
+			<VersionInfo Name="Release">9</VersionInfo>
 			<VersionInfo Name="Build">0</VersionInfo>
 			<VersionInfo Name="Debug">False</VersionInfo>
 			<VersionInfo Name="PreRelease">False</VersionInfo>
@@ -167,15 +167,15 @@
 		<VersionInfoKeys>
 			<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
 			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
-			<VersionInfoKeys Name="FileVersion">3.0.7.0</VersionInfoKeys>
+			<VersionInfoKeys Name="FileVersion">3.0.9.0</VersionInfoKeys>
 			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
 			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
 			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
 			<VersionInfoKeys Name="ProductName">FactuGES Server</VersionInfoKeys>
-			<VersionInfoKeys Name="ProductVersion">3.0.7.0</VersionInfoKeys>
+			<VersionInfoKeys Name="ProductVersion">3.0.9.0</VersionInfoKeys>
 			<VersionInfoKeys Name="Comments"></VersionInfoKeys>
-			<VersionInfoKeys Name="CompileDate">lunes, 22 de septiembre de 2008 14:11</VersionInfoKeys></VersionInfoKeys>
+			<VersionInfoKeys Name="CompileDate">martes, 30 de septiembre de 2008 19:31</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>
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 5a1fd662..91bf181e 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "c:\Codigo Luis Leon\Source\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 3,0,7,0
-PRODUCTVERSION 3,0,7,0
+FILEVERSION 3,0,9,0
+PRODUCTVERSION 3,0,9,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "3.0.7.0\0"
+              VALUE "FileVersion", "3.0.9.0\0"
               VALUE "ProductName", "FactuGES Server\0"
-              VALUE "ProductVersion", "3.0.7.0\0"
-              VALUE "CompileDate", "martes, 30 de septiembre de 2008 19:31\0"
+              VALUE "ProductVersion", "3.0.9.0\0"
+              VALUE "CompileDate", "jueves, 16 de octubre de 2008 18:02\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index 34368991..c155847e 100644
Binary files a/Source/Servidor/FactuGES_Server.res and b/Source/Servidor/FactuGES_Server.res differ
diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm
index 89cb3d7b..edea1797 100644
--- a/Source/Servidor/uDataModuleServer.dfm
+++ b/Source/Servidor/uDataModuleServer.dfm
@@ -59,9 +59,9 @@ object dmServer: TdmServer
       item
         Name = 'IBX'
         ConnectionString = 
-          'IBX?Server=localhost;Database=C:\Codigo Luis Leon\Database\FACTU' +
-          'GES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO88' +
-          '59_1;'
+          'IBX?Server=localhost;Database=C:\Codigo Luis Leon\Database\Copia' +
+          ' de FACTUGES(con varios dias de vencimiento).FDB;UserID=sysdba;P' +
+          'assword=masterkey;Dialect=3;Charset=ISO8859_1;'
         Default = True
         Tag = 0
       end>