Error convertir numero a letras

Iniciado por pompyarro, 17 Agosto 2017, 07:20 AM

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario

pompyarro

17 Agosto 2017, 07:20 AM
Hola a todos estoy implementando una clase para convertir numeros a letras en php7

esto es lo que tengo en el archivo donde llamo la clases para convertir:

Código [Seleccionar]

<?php
      //Convertimos el total en letras
      require_once "Letras.php";
      $V=new EnLetras();
      $con_letra=strtoupper($V->ValorEnLetras($regv->total_venta,'PESOS'));
?>


con esto tendria en la variable $con_letra el resultado de la conversion

en la clase Letras.php tengo lo siguiente:

Código [Seleccionar]

<?php

  class EnLetras
  {
    var $Void = "";
    var $SP = " ";
    var $Dot = ".";
    var $Zero = "0";
    var $Neg = "Menos";

    function ValorEnLetras($x, $Moneda )
    {
      $s="";
      $Ent="";
      $Frc="";
      $Signo="";

      if(floatVal($x) < 0)
      {
        $Signo = $this->Neg . " ";
      }
      else
      {
        $Signo = "";
      }

      if(intval(number_format($x,2,'.','') )!=$x) //<- averiguar si tiene decimales
      {
        $s = number_format($x,2,'.','');
      }
      else
      {
        $s = number_format($x,0,'.','');
      }

      $Pto = strpos($s, $this->Dot);

      if ($Pto === false)
      {
        $Ent = $s;
        $Frc = $this->Void;
      }
      else
      {
        $Ent = substr($s, 0, $Pto );
        $Frc =  substr($s, $Pto+1);
      }

      if($Ent == $this->Zero || $Ent == $this->Void)
        $s = "Cero ";
      elseif( strlen($Ent) > 7)
      {
        $s = $this->SubValLetra(intval( substr($Ent, 0,  strlen($Ent) - 6))) .
               "Millones " . $this->SubValLetra(intval(substr($Ent,-6, 6)));
      }
      else
      {
        $s = $this->SubValLetra(intval($Ent));
      }

      if (substr($s,-9, 9) == "Millones " || substr($s,-7, 7) == "Millon ")
      $s = $s . "de ";
      $s = $s . $Moneda;

      if($Frc != $this->Void)
      {
         $s = $s . " Con " . $this->SubValLetra(intval($Frc)) . "Centavos";
         //$s = $s . " " . $Frc . "/100";
      }
      return ($Signo . $s . " MCTE");
    }


    function SubValLetra($numero)
    {
      $Ptr="";
      $n=0;
      $i=0;
      $x ="";
      $Rtn ="";
      $Tem ="";

      $x = trim("$numero");
      $n = strlen($x);

      $Tem = $this->Void;
      $i = $n;

      while( $i > 0)
      {
        $Tem = $this->Parte(intval(substr($x, $n - $i, 1).
                           str_repeat($this->Zero, $i - 1 )));
        If( $Tem != "Cero" )
          $Rtn .= $Tem . $this->SP;
        $i = $i - 1;
      }
      //--------------------- GoSub FiltroMil ------------------------------
      $Rtn=str_replace(" Mil Mil", " Un Mil", $Rtn );
      while(1)
      {
        $Ptr = strpos($Rtn, "Mil ");
        If(!($Ptr===false))
        {
          If(! (strpos($Rtn, "Mil ",$Ptr + 1) === false ))
          {
            $this->ReplaceStringFrom($Rtn, "Mil ", "", $Ptr);
          }
          Else
          {
            break;
          }
        }
        else break;
      }

      //--------------------- GoSub FiltroCiento ------------------------------
      $Ptr = -1;
      do
      {
        $Ptr = strpos($Rtn, "Cien ", $Ptr+1);
        if(!($Ptr===false))
        {
          $Tem = substr($Rtn, $Ptr + 5 ,1);
          if( $Tem == "M" || $Tem == $this->Void);
          else
          {
            $this->ReplaceStringFrom($Rtn, "Cien", "Ciento", $Ptr);
          }
        }
      }

      while(!($Ptr === false));

      //--------------------- FiltroEspeciales ------------------------------
      $Rtn=str_replace("Diez Un", "Once", $Rtn );
      $Rtn=str_replace("Diez Dos", "Doce", $Rtn );
      $Rtn=str_replace("Diez Tres", "Trece", $Rtn );
      $Rtn=str_replace("Diez Cuatro", "Catorce", $Rtn );
      $Rtn=str_replace("Diez Cinco", "Quince", $Rtn );
      $Rtn=str_replace("Diez Seis", "Dieciseis", $Rtn );
      $Rtn=str_replace("Diez Siete", "Diecisiete", $Rtn );
      $Rtn=str_replace("Diez Ocho", "Dieciocho", $Rtn );
      $Rtn=str_replace("Diez Nueve", "Diecinueve", $Rtn );
      $Rtn=str_replace("Veinte Un", "Veintiun", $Rtn );
      $Rtn=str_replace("Veinte Dos", "Veintidos", $Rtn );
      $Rtn=str_replace("Veinte Tres", "Veintitres", $Rtn );
      $Rtn=str_replace("Veinte Cuatro", "Veinticuatro", $Rtn );
      $Rtn=str_replace("Veinte Cinco", "Veinticinco", $Rtn );
      $Rtn=str_replace("Veinte Seis", "Veintiseís", $Rtn );
      $Rtn=str_replace("Veinte Siete", "Veintisiete", $Rtn );
      $Rtn=str_replace("Veinte Ocho", "Veintiocho", $Rtn );
      $Rtn=str_replace("Veinte Nueve", "Veintinueve", $Rtn );

      //--------------------- FiltroUn ------------------------------
      If(substr($Rtn,0,1) == "M")
      {
        $Rtn = "Un " . $Rtn;
      }
      //--------------------- Adicionar Y ------------------------------
      for($i=65; $i<=88; $i++)
      {
        If($i != 77)
        {
          $Rtn=str_replace("a " . Chr($i), "* y " . Chr($i), $Rtn);
        }
      }
      $Rtn=str_replace("*", "a" , $Rtn);
      return($Rtn);
    }


    function ReplaceStringFrom(&$x, $OldWrd, $NewWrd, $Ptr)
    {
      $x = substr($x, 0, $Ptr)  . $NewWrd . substr($x, strlen($OldWrd) + $Ptr);
    }

    function Parte($x)
    {
      $Rtn='';
      $t='';
      $i='';
      Do
      {
        switch($x)
        {
          Case 0:  $t = "Cero";break;
          Case 1:  $t = "Un";break;
          Case 2:  $t = "Dos";break;
          Case 3:  $t = "Tres";break;
          Case 4:  $t = "Cuatro";break;
          Case 5:  $t = "Cinco";break;
          Case 6:  $t = "Seis";break;
          Case 7:  $t = "Siete";break;
          Case 8:  $t = "Ocho";break;
          Case 9:  $t = "Nueve";break;
          Case 10: $t = "Diez";break;
          Case 20: $t = "Veinte";break;
          Case 30: $t = "Treinta";break;
          Case 40: $t = "Cuarenta";break;
          Case 50: $t = "Cincuenta";break;
          Case 60: $t = "Sesenta";break;
          Case 70: $t = "Setenta";break;
          Case 80: $t = "Ochenta";break;
          Case 90: $t = "Noventa";break;
          Case 100: $t = "Cien";break;
          Case 200: $t = "Doscientos";break;
          Case 300: $t = "Trescientos";break;
          Case 400: $t = "Cuatrocientos";break;
          Case 500: $t = "Quinientos";break;
          Case 600: $t = "Seiscientos";break;
          Case 700: $t = "Setecientos";break;
          Case 800: $t = "Ochocientos";break;
          Case 900: $t = "Novecientos";break;
          Case 1000: $t = "Mil";break;
          Case 1000000: $t = "Millon";break;
        }

        If($t == $this->Void)
        {
          $i = $i ++;
          $x = $x / 1000;
          If($x== 0)
          {
            $i = 0;
          }
        }
        else
        {
          break;
        }
      }

      while($i != 0);
      $Rtn = $t;
      Switch($i)
      {
        Case 0: $t = $this->Void;break;
        Case 1: $t = " Mil";break;
        Case 2: $t = " Millones";break;
        Case 3: $t = " Billones";break;
      }
      return($Rtn . $t);
    }
  }
?>


y no logro ponerla totalmente funcional.
realice muchas pruebas y obtuve lo siguiente:

0 a 999 funciona
1.000 a 1.999 funciona pero aparece Un Mil y debe ser Mil
de 2.000 a 999.999 no funciona correctamente
1.000.000 a 1.001.999 funciona
1.002.000 a 9.999.999 no funciona correctamente
10.000.000 a 10.001.999 funciona
10.002.000 a 10.999.999 no funciona correctamente
11.000.000 a 11.001.999 funciona
11.002.000 a 11.999.999 no funciona correctamente
12.000.000 a 12.001.999 funciona
12.002.000 a 12.999.999 no funciona correctamente
13.000.000 a 13.001.999 funciona
13.002.000 a 13.999.999 no funciona correctamente
14.000.000 a 14.001.999 funciona
14.002.000 a 14.999.999 no funciona correctamente
15.000.000 a 11.001.999 funciona
15.002.000 a 15.999.999 no funciona correctamente
16.000.000 a 16.001.999 funciona
16.002.000 a 16.999.999 no funciona correctamente
17.000.000 a 17.001.999 funciona
17.002.000 a 17.999.999 no funciona correctamente
18.000.000 a 18.001.999 funciona
18.002.000 a 18.999.999 no funciona correctamente
19.000.000 a 19.001.999 funciona
19.002.000 a 19.999.999 no funciona correctamente
20.000.000 a 20.001.999 funciona
20.002.000 a 29.999.999 no funciona correctamente
.
.
.

y asi sucesivamente


lo que me permite deducir que el error esta en los numeros del 2000 al 999.999


Alguien me puede hechar una manito para solucionarlo

Mil gracias.

engel lex

#1
17 Agosto 2017, 07:46 AM
te recomiendo que intentes hacer un debug de tu php para que puedas buscar el error visualmente

no se que IDE usas pero en general la librería necesaria es xdebug... busca como se implementa en tu ide

aquí la descarga personalizada
https://xdebug.org/wizard.php
El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.

pompyarro

#2
17 Agosto 2017, 08:14 AM
Amigo soy novato en esto el sistema lo estoy haciendo en php7, todo lo estoy haciendo en sublimetext, me puedes indicar como lo hago, mil gracias

engel lex

#3
17 Agosto 2017, 08:34 AM
aquí como implementar xdebug en sublime text

https://www.sitepoint.com/debugging-xdebug-sublime-text-3/

si nunca has usado un depudador/debugger, procura leer un poquito en internet, no tiene mucha ciencia... (pero para esta altura que ya manejas clases, es algo que deberías conocer bien)
El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.

pompyarro

#4
17 Agosto 2017, 09:36 AM Ultima modificación: 17 Agosto 2017, 09:59 AM por pompyarro
Hola he estado mirando con xdebug en sublime y el error esta en

Código [Seleccionar]

//--------------------- GoSub FiltroMil ------------------------------
      $Rtn=str_replace(" Mil Mil", " Un Mil", $Rtn );
      while(1)
      {
        $Ptr = strpos($Rtn, "Mil ");
        If(!($Ptr===false))
        {
          If(! (strpos($Rtn, "Mil ",$Ptr + 1) === false ))
          {
            $this->ReplaceStringFrom($Rtn, "Mil ", "", $Ptr);
          }
          Else
          {
            break;
          }
        }
        else break;
      }


desde la instrucción

Código [Seleccionar]

If(!($Ptr===false))


siempre pasa a

Código [Seleccionar]

else break;


entonces nunca entra y de ahí el error, me puede colaborar con eso, mil gracias.

engel lex

#5
17 Agosto 2017, 15:28 PM
tienes que ver con el xdebug donde te esta la condición...

veo  que usas los If y Else en mayúscula... eso va en minúscula...

usa watchers en las variables para ver donde la condicion se te niega... literalmente con el xdebug estás viendo el codigo paso a paso y tu sabes la logica que querías aplicar, allí debes ver si se aplica como querías o si no entendiste una documentación
El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
Imprimir
Ir Arriba Páginas1
Acciones del Usuario