From a0734611ca4f1407379a0e51beb8779bf77a3b21 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 22 Jun 2010 17:02:38 +0000 Subject: [PATCH] Se arregla fallo al meter la fecha manualmente git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@522 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Controller/uRecibosClienteController.pas | 8 ++++---- .../Recibos de cliente/Views/uEditorFechaPago.dfm | 2 +- .../Recibos de cliente/Views/uEditorFechaPago.pas | 4 ++-- .../Recibos de cliente/Views/uEditorReciboCliente.pas | 9 +++++---- 4 files changed, 12 insertions(+), 11 deletions(-) diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index d069bbf8..f849e8cc 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -45,7 +45,7 @@ type function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean; function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; - procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0); + procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String); function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean; @@ -121,7 +121,7 @@ type procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente); procedure Anadir(ARecibosCliente : IBizRecibosCliente); function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; - procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0); + procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String); function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean; function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean; @@ -866,10 +866,10 @@ begin end; end; -procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0); +procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String); begin if Length(FechaPago) > 0 then - PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta); + PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta); 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 c51b6647..18b2cf69 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm @@ -46,7 +46,7 @@ object fEditorFechaPago: TfEditorFechaPago object eFechaPago: TcxDateEdit Left = 121 Top = 84 - 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 cdb7980d..98ef0192 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas @@ -23,9 +23,9 @@ type bAceptar: TButton; bCancelar: TButton; procedure FormShow(Sender: TObject); - procedure eFechaPagoPropertiesChange(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure FormCreate(Sender: TObject); + procedure eFechaPagoPropertiesEditValueChanged(Sender: TObject); private FFechaPago : TDateTime; @@ -63,7 +63,7 @@ begin frViewListaSubCuentas1.eContabilizar.Enabled := False; end; -procedure TfEditorFechaPago.eFechaPagoPropertiesChange(Sender: TObject); +procedure TfEditorFechaPago.eFechaPagoPropertiesEditValueChanged(Sender: TObject); begin FechaPago := eFechaPago.Date; end; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas index e9cb632a..30121a0c 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas @@ -239,8 +239,8 @@ procedure TfEditorReciboCliente.frViewPagosCliente1actModificarExecute(Sender: T var AFechaPago: String; AIgnorarContabilidad: Integer; - ASubCuenta: Integer; - + AIdSubCuenta: Integer; + ASubCuenta: String; begin inherited; @@ -275,9 +275,10 @@ begin begin AFechaPago := DateToStr(FechaPago); AIgnorarContabilidad := IgnorarContabilidad; - ASubCuenta := IdSubcuenta; + AIdSubCuenta := IdSubcuenta; + ASubcuenta := frViewListaSubcuentas1.cbSubCuentas.Text; if not SoloLectura then - FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta); + FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, AIdSubCuenta); end; finally Release;