roberto
355542a949
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@111 93f398dd-4eb6-7a46-baf6-13f46f578da2
58 lines
1.8 KiB
ObjectPascal
58 lines
1.8 KiB
ObjectPascal
unit uViewContactoDatosBancarios;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, dxLayoutControl, cxControls, cxContainer, cxEdit,
|
|
cxTextEdit, cxDBEdit, DB, uDADataTable, uDAInterfaces;
|
|
|
|
type
|
|
IViewDatosBancarios = interface(IViewBase)
|
|
['{2C3C0C39-F0AE-4FC2-A198-91D901890801}']
|
|
end;
|
|
|
|
TfrViewClienteDatosBancarios = class(TfrViewBase, IViewDatosBancarios)
|
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
|
dxLayoutControl1: TdxLayoutControl;
|
|
dxLayoutControl1Item1: TdxLayoutItem;
|
|
eEntidad: TcxDBTextEdit;
|
|
dxLayoutControl1Item2: TdxLayoutItem;
|
|
eSucursal: TcxDBTextEdit;
|
|
dxLayoutControl1Item3: TdxLayoutItem;
|
|
eCuenta: TcxDBTextEdit;
|
|
dxLayoutControl1Item4: TdxLayoutItem;
|
|
eDC: TcxDBTextEdit;
|
|
dxLayoutControl1Item5: TdxLayoutItem;
|
|
eTitular: TcxDBTextEdit;
|
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
|
dxLayoutControl1Group3: TdxLayoutGroup;
|
|
dxLayoutControl1Group4: TdxLayoutGroup;
|
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
|
dsDatosBancarios: TDADataSource;
|
|
dxLayoutControl1Item6: TdxLayoutItem;
|
|
eIBAN: TcxDBTextEdit;
|
|
dxLayoutControl1Item7: TdxLayoutItem;
|
|
eSWIFT: TcxDBTextEdit;
|
|
dxLayoutControl1Group5: TdxLayoutGroup;
|
|
procedure eIBANPropertiesValidate(Sender: TObject;
|
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
uses uIBANUtils, uStringsUtils;
|
|
|
|
procedure TfrViewClienteDatosBancarios.eIBANPropertiesValidate(Sender: TObject;
|
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
|
begin
|
|
inherited;
|
|
|
|
if not EsCadenaVacia(DisplayValue) then
|
|
if not EsCodigoIBANValido(DisplayValue) then
|
|
showmessage('Código IBAN incorrecto');
|
|
end;
|
|
|
|
end.
|