diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
index d6d0377..27aee6f 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas	
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas	
@@ -812,7 +812,7 @@ end;
 procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente);
 var
   AEditor : IEditorFechaPago;
-  FechaPago: String;
+  AFechaPago: String;
 begin
   if not Assigned(ARecibosCliente) then
     raise Exception.Create ('Recibos de cliente no asignado (ModificarPago)');
@@ -822,16 +822,16 @@ begin
   CreateEditor('EditorFechaPago', IEditorFechaPago, AEditor);
   if Assigned(AEditor) then
     try
-      FechaPago := '';
+      AEditor.FechaPago := ARecibosCliente.Pagos.FECHA_PAGO;
       if (AEditor.ShowModal = mrOk) then
-        FechaPago := DateToStr(AEditor.FechaPago);
+        AFechaPago := DateToStr(AEditor.FechaPago);
     finally
       AEditor.Release;
       AEditor := NIL;
     end;
 
-  if Length(FechaPago) > 0 then
-     PagosController.Modificar(ARecibosCliente.Pagos, FechaPago);
+  if Length(AFechaPago) > 0 then
+     PagosController.Modificar(ARecibosCliente.Pagos, AFechaPago);
 end;
 
 function TRecibosClienteController.Nuevo: IBizRecibosCliente;
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
index 64b5830..6367e2e 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm	
@@ -37,7 +37,7 @@ object fEditorFechaPago: TfEditorFechaPago
   object eFechaPago: TcxDateEdit
     Left = 77
     Top = 64
-    Properties.OnChange = eFechaPagoPropertiesChange
+    Properties.OnEditValueChanged = eFechaPagoPropertiesEditValueChanged
     Style.LookAndFeel.Kind = lfStandard
     Style.LookAndFeel.NativeStyle = True
     StyleDisabled.LookAndFeel.Kind = lfStandard
diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
index 722b27c..8937342 100644
--- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas	
+++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas	
@@ -5,7 +5,8 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
-  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPago;
+  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPago,
+  cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
 
 type
   TfEditorFechaPago = class(TfEditorBasico, IEditorFechaPago)
@@ -16,7 +17,7 @@ type
     Label2: TLabel;
     Panel1: TPanel;
     procedure FormShow(Sender: TObject);
-    procedure eFechaPagoPropertiesChange(Sender: TObject);
+    procedure eFechaPagoPropertiesEditValueChanged(Sender: TObject);
   private
     FFechaPago : TDateTime;
     function GetFechaPago: TDateTime;
@@ -32,14 +33,16 @@ implementation
 
 {$R *.dfm}
 
-procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject);
+procedure TfEditorFechaPago.eFechaPagoPropertiesEditValueChanged(
+  Sender: TObject);
 begin
   FechaPago := eFechaPago.Date;
 end;
 
 procedure TfEditorFechaPago.FormShow(Sender: TObject);
 begin
-  eFechaPago.Date := Date;
+  if (length(eFechaPago.Text) = 0) then
+     eFechaPago.Date := Date;
 end;
 
 function TfEditorFechaPago.GetFechaPago: TDateTime;
@@ -50,6 +53,7 @@ end;
 procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime);
 begin
   FFechaPago := Value;
+  eFechaPago.EditValue := FFechaPago;  
 end;
 
 end.
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index 9de9797..0b3c275 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
@@ -786,22 +786,22 @@ end;
 procedure TRecibosProveedorController.ModificarPago(ARecibosProveedor: IBizRecibosProveedor);
 var
   AEditor : IEditorFechaPagoProveedor;
-  FechaPago: String;
+  AFechaPago: String;
 begin
   //Pedimos la fecha del pago
   CreateEditor('EditorFechaPagoProveedor', IEditorFechaPagoProveedor, AEditor);
   if Assigned(AEditor) then
     try
-      FechaPago:= '';
+      AEditor.FechaPago:= ARecibosProveedor.Pagos.FECHA_PAGO;
       if (AEditor.ShowModal = mrOk) then
-        FechaPago := DateToStr(AEditor.FechaPago);
+        AFechaPago := DateToStr(AEditor.FechaPago);
     finally
       AEditor.Release;
       AEditor := NIL;
     end;
 
-  if Length(FechaPago) > 0 then
-    PagosController.Modificar(ARecibosProveedor.Pagos, FechaPago);
+  if Length(AFechaPago) > 0 then
+    PagosController.Modificar(ARecibosProveedor.Pagos, AFechaPago);
 end;
 
 function TRecibosProveedorController.Nuevo: IBizRecibosProveedor;
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm
index ea65ef1..d7c9894 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm	
@@ -41,7 +41,7 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor
   object eFechaPago: TcxDateEdit
     Left = 77
     Top = 64
-    Properties.OnChange = eFechaPagoPropertiesChange
+    Properties.OnEditValueChanged = eFechaPagoPropertiesEditValueChanged
     Style.LookAndFeel.Kind = lfStandard
     Style.LookAndFeel.NativeStyle = True
     StyleDisabled.LookAndFeel.Kind = lfStandard
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas
index c331b88..500c61f 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas	
@@ -5,7 +5,8 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
-  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor;
+  cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor,
+  cxGraphics, cxLookAndFeels, cxLookAndFeelPainters;
 
 type
   TfEditorFechaPagoProveedor = class(TfEditorBasico, IEditorFechaPagoProveedor)
@@ -16,7 +17,7 @@ type
     Label2: TLabel;
     Panel1: TPanel;
     procedure FormShow(Sender: TObject);
-    procedure eFechaPagoPropertiesChange(Sender: TObject);
+    procedure eFechaPagoPropertiesEditValueChanged(Sender: TObject);
   private
     FFechaPago : TDateTime;
     function GetFechaPago: TDateTime;
@@ -28,14 +29,16 @@ type
 implementation
 {$R *.dfm}
 
-procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesChange(Sender: TObject);
+procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesEditValueChanged(
+  Sender: TObject);
 begin
   FechaPago := eFechaPago.Date;
 end;
 
 procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject);
 begin
-  eFechaPago.Date := Date;
+  if (length(eFechaPago.Text) = 0) then
+     eFechaPago.Date := Date;
 end;
 
 function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime;
@@ -46,6 +49,7 @@ end;
 procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime);
 begin
   FFechaPago := Value;
+  eFechaPago.EditValue := FFechaPago;  
 end;
 
 end.