From 025b5ad8234696a2f8819d3d81dc86419e9228bc Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 22 Jun 2010 17:58:46 +0000 Subject: [PATCH] No recupera la fecha del pago de los recibos si la modificamos y no coge bien la fecha cuendo la metemos manualmente git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@331 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- .../Controller/uRecibosClienteController.pas | 10 +++++----- .../Recibos de cliente/Views/uEditorFechaPago.dfm | 2 +- .../Recibos de cliente/Views/uEditorFechaPago.pas | 8 +++++--- .../Controller/uRecibosProveedorController.pas | 10 +++++----- .../Views/uEditorFechaPagoProveedor.dfm | 2 +- .../Views/uEditorFechaPagoProveedor.pas | 8 +++++--- 6 files changed, 22 insertions(+), 18 deletions(-) diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index d35de395..106d154d 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -929,22 +929,22 @@ end; procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente); var AEditor : IEditorFechaPago; - FechaPago: String; + AFechaPago: String; begin //Pedimos la fecha del pago 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); AEditor.Release; finally 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 b4b83e15..98a461e3 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 722b27cc..d8a797d9 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas @@ -16,7 +16,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 +32,15 @@ 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 +51,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 f6019238..7bdedd40 100644 --- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas +++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas @@ -756,22 +756,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); AEditor.Release; finally 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 59e52778..f2deb7ca 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm @@ -37,7 +37,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 c331b881..c2e244e9 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas @@ -16,7 +16,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 +28,15 @@ 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 +47,7 @@ end; procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime); begin FFechaPago := Value; + eFechaPago.EditValue := FFechaPago; end; end.