From 3c31071bc2be67523a4f7c4e9e47043bbfcc61db Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 22 Jun 2010 19:01:47 +0000 Subject: [PATCH] #401 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.Noviseda_FactuGES2/trunk@129 f33bb606-9f5c-448d-9c99-757f00063c96 --- .../Controller/uRecibosClienteController.pas | 10 +++++----- .../Recibos de cliente/Views/uEditorFechaPago.dfm | 2 +- .../Recibos de cliente/Views/uEditorFechaPago.pas | 12 ++++++++---- .../Controller/uRecibosProveedorController.pas | 10 +++++----- .../Views/uEditorFechaPagoProveedor.dfm | 2 +- .../Views/uEditorFechaPagoProveedor.pas | 12 ++++++++---- 6 files changed, 28 insertions(+), 20 deletions(-) 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.