diff --git a/Source/Modulos/Contactos/Controller/uAgentesController.pas b/Source/Modulos/Contactos/Controller/uAgentesController.pas
index 83051c7..38bc90b 100644
--- a/Source/Modulos/Contactos/Controller/uAgentesController.pas
+++ b/Source/Modulos/Contactos/Controller/uAgentesController.pas
@@ -28,6 +28,7 @@ type
     function Buscar(const ID: Integer): IBizContacto; override;
     function BuscarTodos: IBizContacto; override;
     function Nuevo : IBizContacto; override;
+    function Guardar(AContacto : IBizContacto): Boolean; override;
     procedure Ver(AContacto : IBizContacto); override;
     procedure VerTodos(AContactos: IBizContacto); override;
     function ElegirContacto(AContactos : IBizContacto;
@@ -171,6 +172,15 @@ begin
   Result := True;
 end;
 
+function TAgentesController.Guardar(AContacto: IBizContacto): Boolean;
+begin
+  if inherited Guardar(AContacto) then
+  begin
+     (AContacto as IBizAgente).ObjetivosAlbaranes.DataTable.Refresh;
+     (AContacto as IBizAgente).ObjetivosFacturas.DataTable.Refresh;     
+  end;
+end;
+
 function TAgentesController.Nuevo: IBizContacto;
 var
   AContacto : IBizAgente;
diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas
index d1b1da5..1f32bec 100644
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@@ -45,7 +45,7 @@ type
 
     procedure Eliminar(const ID : Integer); overload; virtual;
     function Eliminar(AContacto : IBizContacto): Boolean; overload; virtual;
-    function Guardar(AContacto : IBizContacto): Boolean;
+    function Guardar(AContacto : IBizContacto): Boolean; virtual;
     procedure DescartarCambios(AContacto : IBizContacto); virtual;
     function Existe(const ID: Integer) : Boolean; virtual;
     procedure Anadir(AContacto : IBizContacto); virtual;
diff --git a/Source/Modulos/Contactos/Model/uBizAgentesServer.pas b/Source/Modulos/Contactos/Model/uBizAgentesServer.pas
index feb9d65..dc5f7ac 100644
--- a/Source/Modulos/Contactos/Model/uBizAgentesServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizAgentesServer.pas
@@ -24,7 +24,7 @@ implementation
 
 uses
   uDataModuleServer, uDAClasses, SysUtils, DateUtils,
-  schContactosClient_Intf, uBusinessUtils;
+  schContactosClient_Intf, uBusinessUtils, Dialogs;
 
 const
   REF_AGENTES = 'REF_AGENTES';
@@ -82,7 +82,7 @@ begin
       ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_AgentesID];
       ParamByName('FECHA_ALTA_EMPRESA').Value := aChange.NewValueByName[fld_AgentesFECHA_ALTA_EMPRESA];
       ParamByName('FECHA_BAJA').Value := aChange.NewValueByName[fld_AgentesFECHA_BAJA];
-      ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_AgentesCAUSA_BAJA];            
+      ParamByName('CAUSA_BAJA').Value := aChange.NewValueByName[fld_AgentesCAUSA_BAJA];
       Execute;
     end;
   finally
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 63351d2..9c371d7 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,13 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType />
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.2.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.2.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 30 de enero de 2012 15:13</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.2.1.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.2.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 31 de enero de 2012 10:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>