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'
Width = 191
end
object cxGridViewIBAN: TcxGridDBColumn
DataBinding.FieldName = 'IBAN'
Width = 90
end
object cxGridViewSWIFT: TcxGridDBColumn
DataBinding.FieldName = 'SWIFT'
Width = 65
end
object cxGridViewENTIDAD: TcxGridDBColumn
DataBinding.FieldName = 'ENTIDAD'
Width = 48
@ -47,16 +55,6 @@ inherited frViewDatosBancarios: TfrViewDatosBancarios
VisibleForCustomization = False
Width = 57
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
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);
var
AController: IEmpresasController;
ALista : TStringList;
AListaIBAN : TStringList;
i : integer;
begin
AController := TEmpresasController.Create;
try
ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
try
@ -52,12 +50,8 @@ begin
try
Clear;
Add('');
for i := 0 to ALista.Count - 1 do
Add(ALista.Names[i]);
if AListaIBAN.Count > 0 then
begin
Add('--------------');
for i := 0 to AListaIBAN.Count - 1 do
Add(AListaIBAN.Names[i]);
end;
@ -66,7 +60,6 @@ begin
end;
end;
finally
FreeANDNIL(ALista);
FreeANDNIL(AListaIBAN);
end;
finally

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

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