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 y recuperar la caja o banco en la lista de pagos

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

14
Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas
View File

@ -32,8 +32,8 @@ uses
type type
IPagosClienteController = interface(ISujeto) IPagosClienteController = interface(ISujeto)
['{1864471E-74FA-4E96-BA8D-21357DA38B0F}'] ['{1864471E-74FA-4E96-BA8D-21357DA38B0F}']
function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean; function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String): Boolean;
procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer); procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String);
function Eliminar(APagoCliente : IBizPagosCliente): Boolean; function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
function EliminarTodo(APagossCliente : IBizPagosCliente): Boolean; function EliminarTodo(APagossCliente : IBizPagosCliente): Boolean;
end; end;
@ -47,8 +47,8 @@ type
public public
constructor Create; virtual; constructor Create; virtual;
destructor Destroy; override; destructor Destroy; override;
function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean; function Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String): Boolean;
procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer); procedure Modificar(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String);
function Eliminar(APagoCliente : IBizPagosCliente): Boolean; function Eliminar(APagoCliente : IBizPagosCliente): Boolean;
function EliminarTodo(APagosCliente : IBizPagosCliente): Boolean; function EliminarTodo(APagosCliente : IBizPagosCliente): Boolean;
end; end;
@ -63,7 +63,7 @@ uses
{ TPagosClienteController } { TPagosClienteController }
function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer): Boolean; function TPagosClienteController.Anadir(APagosCliente: IBizPagosCliente; Const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String): Boolean;
{ Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser { Si el pago introducido es un pago y no una devolución devolvemos true en caso de ser
una devolución devolvemos false} una devolución devolvemos false}
begin begin
@ -82,6 +82,7 @@ begin
APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosCliente.CUENTA := IntToStr(IdSubCuenta); APagosCliente.CUENTA := IntToStr(IdSubCuenta);
APagosCliente.SUBCUENTA := SubCuenta;
APagosCliente.ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO; APagosCliente.ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO;
APagosCliente.ASIENTO_PUNTEADO := -1; APagosCliente.ASIENTO_PUNTEADO := -1;
@ -152,12 +153,13 @@ begin
end; end;
end; end;
procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer); procedure TPagosClienteController.Modificar(APagosCliente: IBizPagosCliente; const Fecha: String; Const IgnorarContabilidad: Integer; Const IdSubCuenta: Integer; Const SubCuenta: String);
begin begin
APagosCliente.DataTable.Edit; APagosCliente.DataTable.Edit;
APagosCliente.FECHA_PAGO := StrToDate(Fecha); APagosCliente.FECHA_PAGO := StrToDate(Fecha);
APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad; APagosCliente.IGNORAR_CONTABILIDAD := IgnorarContabilidad;
APagosCliente.CUENTA := IntToStr(IdSubCuenta); APagosCliente.CUENTA := IntToStr(IdSubCuenta);
APagosCliente.SUBCUENTA := SubCuenta;
APagosCliente.DataTable.Post; APagosCliente.DataTable.Post;
end; end;

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

@ -44,8 +44,8 @@ type
procedure Anadir(ARecibosCliente : IBizRecibosCliente); procedure Anadir(ARecibosCliente : IBizRecibosCliente);
function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean; function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String); procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = '');
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
@ -120,8 +120,8 @@ type
procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente); procedure RecuperarCliente(AReciboCliente : IBizRecibosCliente);
procedure Anadir(ARecibosCliente : IBizRecibosCliente); procedure Anadir(ARecibosCliente : IBizRecibosCliente);
function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; ASubCuenta: Integer = 0): Boolean; function AnadirPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String); procedure ModificarPago(ARecibosCliente : IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = '');
function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean; function Eliminar(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false): Boolean;
function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarPago(ARecibosCliente : IBizRecibosCliente): Boolean;
function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean; function EliminarTodo(ARecibosCliente : IBizRecibosCliente): Boolean;
@ -179,7 +179,7 @@ begin
ARecibosCliente.Insert; ARecibosCliente.Insert;
end; end;
function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; ASubCuenta: Integer = 0): Boolean; function TRecibosClienteController.AnadirPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad: Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = ''): Boolean;
begin begin
Result := False; Result := False;
@ -197,7 +197,7 @@ begin
//Finalmente añadimos el pago (cobro o devolucion) //Finalmente añadimos el pago (cobro o devolucion)
if PagosController.Anadir(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, ASubCuenta) then if PagosController.Anadir(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, AIdSubcuenta, ASubCuenta) then
begin begin
ARecibosCliente.Edit; ARecibosCliente.Edit;
ARecibosCliente.SITUACION := CTE_COBRADO; ARecibosCliente.SITUACION := CTE_COBRADO;
@ -866,7 +866,7 @@ begin
end; end;
end; end;
procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String); procedure TRecibosClienteController.ModificarPago(ARecibosCliente: IBizRecibosCliente; FechaPago: String =''; AIgnorarContabilidad : Integer = 1; AIdSubCuenta: Integer = 0; ASubCuenta: String = '');
begin begin
if Length(FechaPago) > 0 then if Length(FechaPago) > 0 then
PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta); PagosController.Modificar(ARecibosCliente.Pagos, FechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta);

90
Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm
View File

@ -95,58 +95,102 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
871 871
303) 303)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited eSituacion: TcxDBTextEdit inherited eSituacion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited edtFechaVencimiento: TcxDBDateEdit inherited edtFechaVencimiento: TcxDBDateEdit
Left = 326 Left = 326
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 326 ExplicitLeft = 326
ExplicitWidth = 67 ExplicitWidth = 67
Width = 67 Width = 67
end end
inherited eFechaEmision: TcxDBTextEdit inherited eFechaEmision: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eImporteTotal: TcxDBCurrencyEdit inherited eImporteTotal: TcxDBCurrencyEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNombreCliente: TcxDBTextEdit inherited eNombreCliente: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eNifCif: TcxDBTextEdit inherited eNifCif: TcxDBTextEdit
Left = 588 Left = 588
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 588 ExplicitLeft = 588
ExplicitWidth = 286 ExplicitWidth = 286
Width = 286 Width = 286
end end
inherited eRemesa: TcxDBTextEdit inherited eRemesa: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited edtFechaEmision: TcxDBDateEdit inherited edtFechaEmision: TcxDBDateEdit
DataBinding.DataField = 'FECHA_EMISION' DataBinding.DataField = 'FECHA_EMISION'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 62 ExplicitWidth = 62
Width = 62 Width = 62
end end
inherited rRefReciboCompensado: TcxDBTextEdit inherited rRefReciboCompensado: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
inherited eDescripcion: TcxDBTextEdit inherited eDescripcion: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 201 ExplicitWidth = 201
Width = 201 Width = 201
end end
@ -157,6 +201,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
Width = 201 Width = 201
ExplicitWidth = 201 ExplicitWidth = 201
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 181 ExplicitWidth = 181
Width = 181 Width = 181
end end
@ -176,32 +224,56 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
end end
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtCalle: TcxDBTextEdit inherited edtCalle: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtPoblacion: TcxDBTextEdit inherited edtPoblacion: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 153 ExplicitWidth = 153
Width = 153 Width = 153
end end
inherited edtProvincia: TcxDBTextEdit inherited edtProvincia: TcxDBTextEdit
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 228 Left = 228
DataBinding.DataSource = frViewReciboCliente1.DADataSource DataBinding.DataSource = frViewReciboCliente1.DADataSource
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 228 ExplicitLeft = 228
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
@ -209,6 +281,10 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
ExplicitLeft = 118 ExplicitLeft = 118
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 271 ExplicitWidth = 271
Width = 271 Width = 271
end end
@ -329,6 +405,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 871 Width = 871
ExplicitWidth = 871 ExplicitWidth = 871
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 inherited ToolButton3: TToolButton
ExplicitWidth = 98 ExplicitWidth = 98
end end
@ -361,6 +449,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
inherited eImporte: TcxDBCurrencyEdit inherited eImporte: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged
ExplicitWidth = 150
Width = 150
end end
inherited eOtrosGastos: TcxDBCurrencyEdit inherited eOtrosGastos: TcxDBCurrencyEdit
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable

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

@ -152,7 +152,8 @@ procedure TfEditorReciboCliente.frViewPagosCliente1actAnadirExecute(Sender: TObj
var var
AFechaPago: String; AFechaPago: String;
AIgnorarContabilidad: Integer; AIgnorarContabilidad: Integer;
ASubCuenta: Integer; AIdSubCuenta: Integer;
ASubCuenta: String;
begin begin
inherited; inherited;
@ -173,14 +174,15 @@ begin
begin begin
AFechaPago := DateToStr(FechaPago); AFechaPago := DateToStr(FechaPago);
AIgnorarContabilidad := IgnorarContabilidad; AIgnorarContabilidad := IgnorarContabilidad;
ASubCuenta := IdSubcuenta; AIdSubCuenta := IdSubcuenta;
ASubcuenta := frViewListaSubcuentas1.cbSubCuentas.Text;
end end
finally finally
Release; Release;
end; end;
end; end;
FController.AnadirPago(Recibo, AFechaPago, AIgnorarContabilidad, ASubCuenta); FController.AnadirPago(Recibo, AFechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubCuenta);
//Solo podremos modificar el recibo si esta pendiente o devuelto //Solo podremos modificar el recibo si esta pendiente o devuelto
if (Recibo.SITUACION = CTE_COBRADO) then if (Recibo.SITUACION = CTE_COBRADO) then
@ -278,7 +280,7 @@ begin
AIdSubCuenta := IdSubcuenta; AIdSubCuenta := IdSubcuenta;
ASubcuenta := frViewListaSubcuentas1.cbSubCuentas.Text; ASubcuenta := frViewListaSubcuentas1.cbSubCuentas.Text;
if not SoloLectura then if not SoloLectura then
FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, AIdSubCuenta); FController.ModificarPago(Recibo, AFechaPago, AIgnorarContabilidad, AIdSubCuenta, ASubcuenta);
end; end;
finally finally
Release; Release;