lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix: bug #34192: Some Spanish bank accounts give control key error, although they are correct

Browse Source
This commit is contained in:
Juanjo Menent 2011-09-02 10:09:15 +00:00
parent e730e81019
commit 61871d1b49
1 changed files with 48 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
htdocs/lib/bank.lib.php
View File

@ -157,34 +157,58 @@ function checkBanForAccount($account)
*/ */
function CheckES($IentOfi,$InumCta) function CheckES($IentOfi,$InumCta)
{ {
$APesos = Array(1,2,4,8,5,10,9,7,3,6); // Array de "pesos" if (empty($IentOfi)||empty($InumCta)||strlen($IentOfi)!=8||strlen($InumCta)!=10)
$DC1=0; {
$DC2=0; $keycontrol ="";
$x=8; return $keycontrol;
while($x>0) {
$digito=$IentOfi[$x-1];
$DC1=$DC1+($APesos[$x+2-1]*($digito));
$x = $x - 1;
} }
$Resto = $DC1%11;
$DC1=11-$Resto;
if ($DC1==10) $DC1=1;
if ($DC1==11) $DC1=0; // Digito control Entidad-Oficina
$x=10; $ccc= $IentOfi . $InumCta;
while($x>0) { $numbers = "1234567890";
$digito=$InumCta[$x-1];
$DC2=$DC2+($APesos[$x-1]*($digito)); $i = 0;
$x = $x - 1;
while ($i<=strlen($ccc)-1)
{
if (strpos($numbers,substr($ccc,$i,1)) === false)
{
$keycontrol ="";
return $keycontrol;
}
$i++;
} }
$Resto = $DC2%11;
$DC2=11-$Resto;
if ($DC2==10) $DC1=1;
if ($DC2==11) $DC1=0; // Digito Control C/C
$DigControl=($DC1)."".($DC2); // los 2 numeros del D.C. $values = array(1,2,4,8,5,10,9,7,3,6);
return $DigControl; $sum = 0;
for($i=2; $i<10; $i++)
{
$sum += $values[$i] * substr($IentOfi, $i-2, 1);
}
$key = 11-$sum%11;
if ($key==10) $key=1;
if ($key==11) $key=0;
$keycontrol = $key;
$sum = 0;
for($i=0; $i<11; $i++)
{
$sum += $values[$i] * substr($InumCta,$i, 1);
}
$key = 11-$sum%11;
if ($key==10) $key=1;
if ($key==11) $key=0;
$keycontrol .= $key;
return $keycontrol;
} }
?> ?>