Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arregla fallo al meter la fecha manualmente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@522 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2010-06-22 17:02:38 +00:00
parent 0c042482c0
commit a0734611ca
4 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -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;

2
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm
View File

@ -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

4
Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas
View File

@ -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;

9
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.pas
View File

@ -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;