From 63158c42e500a31824f8eb9e55977a5f8461af90 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 22 Jun 2010 18:24:56 +0000 Subject: [PATCH] #398 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.Tecsitel_FactuGES2/trunk@1004 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controller/uRecibosClienteController.pas | 11 +++++------ .../Recibos de cliente/Views/uEditorFechaPago.dfm | 4 +++- .../Recibos de cliente/Views/uEditorFechaPago.pas | 11 +++++++---- .../Views/uEditorReciboCliente.dfm | 14 ++++++++++++++ .../Controller/uRecibosProveedorController.pas | 10 +++++----- .../Views/uEditorFechaPagoProveedor.dfm | 2 +- .../Views/uEditorFechaPagoProveedor.pas | 9 ++++++--- 7 files changed, 41 insertions(+), 20 deletions(-) diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index d6d03777..28105be3 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -812,26 +812,25 @@ 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)'); - //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); 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 64b58308..6ac4a165 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm @@ -37,7 +37,9 @@ object fEditorFechaPago: TfEditorFechaPago object eFechaPago: TcxDateEdit Left = 77 Top = 64 - Properties.OnChange = eFechaPagoPropertiesChange + Properties.ImmediatePost = True + Properties.PostPopupValueOnTab = True + 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..f249614b 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; @@ -29,17 +29,19 @@ var fEditorFechaPago: TfEditorFechaPago; implementation - {$R *.dfm} -procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject); +uses uStringsUtils; + +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 +52,7 @@ end; procedure TfEditorFechaPago.SetFechaPago(const Value: TDateTime); begin FFechaPago := Value; + eFechaPago.EditValue := FFechaPago; end; end. diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index 4d85dc51..fc0a96ae 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -40,6 +40,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited lblDesbloquear: TcxLabel Left = 593 ExplicitLeft = 593 + AnchorX = 638 + AnchorY = 14 end end inherited TBXDock: TTBXDock @@ -316,6 +318,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inherited ToolBar1: TToolBar Width = 677 ExplicitWidth = 677 + inherited ToolButton1: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 113 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 113 + end inherited ToolButton3: TToolButton ExplicitWidth = 98 end diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas index 9de9797b..0b3c275c 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 ea65ef1d..d7c98940 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 c331b881..200abc36 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,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 +48,7 @@ end; procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime); begin FFechaPago := Value; + eFechaPago.EditValue := FFechaPago; end; end.