Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tarea #1310 -> En la ficha de una factura de proveedor, sólo listas las cuentas bancarias en formato IBAN

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1092 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2014-01-28 17:14:23 +00:00
parent 4860d4439b
commit b1427efcf2
3 changed files with 8 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm
View File

@ -19,6 +19,14 @@ inherited frViewDatosBancarios: TfrViewDatosBancarios
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
Width = 191 Width = 191
end end
object cxGridViewIBAN: TcxGridDBColumn
DataBinding.FieldName = 'IBAN'
Width = 90
end
object cxGridViewSWIFT: TcxGridDBColumn
DataBinding.FieldName = 'SWIFT'
Width = 65
end
object cxGridViewENTIDAD: TcxGridDBColumn object cxGridViewENTIDAD: TcxGridDBColumn
DataBinding.FieldName = 'ENTIDAD' DataBinding.FieldName = 'ENTIDAD'
Width = 48 Width = 48
@ -47,16 +55,6 @@ inherited frViewDatosBancarios: TfrViewDatosBancarios
VisibleForCustomization = False VisibleForCustomization = False
Width = 57 Width = 57
end end
object cxGridViewIBAN: TcxGridDBColumn
DataBinding.FieldName = 'IBAN'
Visible = False
VisibleForCustomization = False
end
object cxGridViewSWIFT: TcxGridDBColumn
DataBinding.FieldName = 'SWIFT'
Visible = False
VisibleForCustomization = False
end
end end
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar

7
Source/Modulos/Facturas de proveedor/Views/uEditorElegirDomiciliacion.pas
View File

@ -35,14 +35,12 @@ uses uFactuGES_App;
procedure TfEditorElegirDomiciliacion.FormShow(Sender: TObject); procedure TfEditorElegirDomiciliacion.FormShow(Sender: TObject);
var var
AController: IEmpresasController; AController: IEmpresasController;
ALista : TStringList;
AListaIBAN : TStringList; AListaIBAN : TStringList;
i : integer; i : integer;
begin begin
AController := TEmpresasController.Create; AController := TEmpresasController.Create;
try try
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva); AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
try try
@ -52,12 +50,8 @@ begin
try try
Clear; Clear;
Add(''); Add('');
for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]);
if AListaIBAN.Count > 0 then if AListaIBAN.Count > 0 then
begin begin
Add('--------------');
for i := 0 to AListaIBAN.Count - 1 do for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]); Add(AListaIBAN.Names[i]);
end; end;
@ -66,7 +60,6 @@ begin
end; end;
end; end;
finally finally
FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN); FreeANDNIL(AListaIBAN);
end; end;
finally finally

7
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -160,14 +160,12 @@ end;
procedure TfrViewFacturaProveedor.RellenarCuentasBancarias; procedure TfrViewFacturaProveedor.RellenarCuentasBancarias;
var var
AController : IEmpresasController; AController : IEmpresasController;
ALista : TStringList;
AListaIBAN : TStringList; AListaIBAN : TStringList;
AListaProveedor : TStringList; AListaProveedor : TStringList;
i : integer; i : integer;
begin begin
AController := TEmpresasController.Create; AController := TEmpresasController.Create;
try try
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva); AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FFactura.ID_PROVEEDOR); AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FFactura.ID_PROVEEDOR);
@ -178,12 +176,8 @@ begin
try try
Clear; Clear;
Add(''); Add('');
for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]);
if AListaIBAN.Count > 0 then if AListaIBAN.Count > 0 then
begin begin
Add('--------------');
for i := 0 to AListaIBAN.Count - 1 do for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]); Add(AListaIBAN.Names[i]);
end; end;
@ -200,7 +194,6 @@ begin
end; end;
end; end;
finally finally
FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN); FreeANDNIL(AListaIBAN);
end; end;
finally finally