From 7684f42dc143d367040deb431a6f8871ee148723 Mon Sep 17 00:00:00 2001 From: david Date: Fri, 13 Dec 2013 11:37:18 +0000 Subject: [PATCH] =?UTF-8?q?Funciones=20de=20validaci=C3=B3n=20de=20c=C3=B3?= =?UTF-8?q?digo=20IBAN.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@204 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- Source/ApplicationBase/ApplicationBase.dpk | 2 +- Source/ApplicationBase/ApplicationBase.dproj | 9 +- Source/ApplicationBase/ApplicationBase.res | Bin 384 -> 4748 bytes .../uDatosBancariosEmpresaController.pas | 6 +- Source/Base/Base.dpk | 5 +- Source/Base/Base.dproj | 139 ++++-- Source/Base/Utiles/TIBAN/.gitignore | 3 + Source/Base/Utiles/TIBAN/IBAN.pas | 453 +++++++++++++++++ Source/Base/Utiles/TIBAN/IBANMetrics.pas | 266 ++++++++++ Source/Base/Utiles/TIBAN/LICENSE.txt | 470 ++++++++++++++++++ Source/Base/Utiles/TIBAN/README.md | 6 + Source/Base/Utiles/TIBAN/errorcodes.txt | 11 + Source/Base/Utiles/uIBANUtils.pas | 26 + .../Contactos_controller.identcache | Bin 3476 -> 3476 bytes .../uDatosBancariosContactoController.pas | 5 +- Source/Servidor/FactuGES_Server.RES | Bin 23212 -> 23212 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 17 files changed, 1341 insertions(+), 62 deletions(-) create mode 100644 Source/Base/Utiles/TIBAN/.gitignore create mode 100644 Source/Base/Utiles/TIBAN/IBAN.pas create mode 100644 Source/Base/Utiles/TIBAN/IBANMetrics.pas create mode 100644 Source/Base/Utiles/TIBAN/LICENSE.txt create mode 100644 Source/Base/Utiles/TIBAN/README.md create mode 100644 Source/Base/Utiles/TIBAN/errorcodes.txt create mode 100644 Source/Base/Utiles/uIBANUtils.pas diff --git a/Source/ApplicationBase/ApplicationBase.dpk b/Source/ApplicationBase/ApplicationBase.dpk index c17b8d7..cdcb891 100644 --- a/Source/ApplicationBase/ApplicationBase.dpk +++ b/Source/ApplicationBase/ApplicationBase.dpk @@ -68,7 +68,7 @@ contains uViewPerfilUsuario in 'Usuarios\Views\uViewPerfilUsuario.pas' {frViewPerfilUsuario: TFrame}, uIEditorPerfilesUsuario in 'Usuarios\Controller\View\uIEditorPerfilesUsuario.pas', uIEditorPerfilUsuario in 'Usuarios\Controller\View\uIEditorPerfilUsuario.pas', - uEditorUsuarios in 'Usuarios\Views\uEditorUsuarios.pas' {fEditorUsuarios: TForm}, + uEditorUsuarios in 'Usuarios\Views\uEditorUsuarios.pas' {fEditorUsuarios: T}, uViewUsuarios in 'Usuarios\Views\uViewUsuarios.pas' {frViewUsuarios: TFrame}, uEditorUsuario in 'Usuarios\Views\uEditorUsuario.pas' {fEditorUsuario: TFrame}, uViewUsuario in 'Usuarios\Views\uViewUsuario.pas' {frViewUsuario: TFrame}, diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj index 12af8e7..5ab31c7 100644 --- a/Source/ApplicationBase/ApplicationBase.dproj +++ b/Source/ApplicationBase/ApplicationBase.dproj @@ -55,11 +55,10 @@ MainSource - - - - - + + + + diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas index 411aba1..ebdfe04 100644 --- a/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas +++ b/Source/ApplicationBase/Empresas/Controller/uDatosBancariosEmpresaController.pas @@ -30,7 +30,7 @@ implementation uses uDataModuleEmpresas, schEmpresasClient_Intf, uIEditorDatosBancarioEmpresa, - uEditorRegistryUtils, cxControls; + uEditorRegistryUtils, cxControls, uIBANUtils; constructor TDatosBancariosEmpresaController.Create; begin @@ -51,7 +51,11 @@ begin try if not ADatosBancarios.IBANIsNull then + begin ADatosBancarios.IBAN := StringReplace(ADatosBancarios.IBAN, ' ', '', [rfReplaceAll]); // Quitar espacios + if EsCodigoIBANValido(ADatosBancarios.IBAN) then + raise Exception.Create('Comprueba que el código IBAN indicado es correcto.'); + end; if ADatosBancarios.SUFIJO_PRESENTADORIsNull then ADatosBancarios.SUFIJO_PRESENTADOR := ADatosBancarios.SUFIJO_ACREEDOR; diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk index 0b06d54..68859af 100644 --- a/Source/Base/Base.dpk +++ b/Source/Base/Base.dpk @@ -119,6 +119,9 @@ contains uDataModuleImpresiones in '..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas' {DataModuleImpresiones: TDataModule}, uDataModuleRegistroCorreos in '..\Modulos\Registro de correos\Data\uDataModuleRegistroCorreos.pas' {DataModuleRegistroCorreos: TDataModule}, uValidacionUtils in 'Utiles\uValidacionUtils.pas', - RegExpr in 'Utiles\RegExpr.pas'; + RegExpr in 'Utiles\RegExpr.pas', + IBANMetrics in 'Utiles\TIBAN\IBANMetrics.pas', + IBAN in 'Utiles\TIBAN\IBAN.pas', + uIBANUtils in 'Utiles\uIBANUtils.pas'; end. diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 545b3a9..5157b67 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -45,6 +45,38 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Microsoft Office 2000 Sample Automation Server Wrapper Components Microsoft Office XP Sample Automation Server Wrapper Components Base.dpk @@ -62,58 +94,6 @@
DataModuleRegistroCorreos
TDataModule - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
fConfigurarConexion
@@ -138,14 +118,61 @@
dmBase
TDataModule + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -155,6 +182,7 @@ + @@ -166,6 +194,13 @@ + + + + + + +