Posted By

luman on 05/26/08


Tagged

form CC validation banco


Versions (?)

Calcular dígito de control de una Cuenta Corriente


 / Published in: PHP
 

URL: http://bulma.net/body.phtml?nIdNoticia=1396

  1. function CalculoCC($IentOfi,$InumCta)
  2. {
  3. $APesos = Array(1,2,4,8,5,10,9,7,3,6); // Array de "pesos"
  4. $DC1=0;
  5. $DC2=0;
  6. $x=8;
  7. while($x>0) {
  8. $digito=$IentOfi[$x-1];
  9. $DC1=$DC1+($APesos[$x+2-1]*($digito));
  10. $x = $x - 1;
  11. }
  12. $Resto = $DC1%11;
  13. $DC1=11-$Resto;
  14. if ($DC1==10) $DC1=1;
  15. if ($DC1==11) $DC1=0; // Dígito control Entidad-Oficina
  16.  
  17. $x=10;
  18. while($x>0) {
  19. $digito=$InumCta[$x-1];
  20. $DC2=$DC2+($APesos[$x-1]*($digito));
  21. $x = $x - 1;
  22. }
  23. $Resto = $DC2%11;
  24. $DC2=11-$Resto;
  25. if ($DC2==10) $DC1=1;
  26. if ($DC2==11) $DC1=0; // Dígito Control C/C
  27.  
  28. $DigControl=($DC1)."".($DC2); // los 2 números del D.C.
  29. return $DigControl;
  30. }
  31.  
  32.  
  33.  
  34. $parte1=$cc1."".$cc2;
  35. $parte2=$cc4;
  36. $mensaje="No es correcto los Datos Bancarios";
  37. $cc="";
  38. if (($cc1<>"") && ($cc2<>"") && ($cc3<>"") && ($cc4<>"") ){
  39. $resultado=CalculoCC($parte1,$parte2);
  40. if ($resultado==$cc3){
  41. $mensaje="Datos Bancarios Correctos";
  42. $cc=$cc1."-".$cc2."-".$cc3."-".$cc4;
  43. }
  44. }
  45. echo $mensaje;

Report this snippet  

You need to login to post a comment.