Re: convertir numeros a letras

Tenes que reemplazar todas las " por '

carlos

Calabaza Calabaza escribió:
> Hola amigos
>
> Tengo el siguiente problema googleando encontre una funcion para pasar
> de numeros a letras bueno, e logrado cargar la funcion pero me da un
> error y queria que me ayuden a interpretarlo correctamente (para
> aprender) y tambien a solucionarlo.
> Situacion:
> Mis conocimientos: sobre funciones son basicas, pero estoy leyendo a
> cada rato la documentacion.
>
> Uso: PostgreSQL 8.0.3 on i686-pc-mingw32, compiled by GCC gcc.exe
> (GCC) 3.4.2 (mingw-special)
>
> Ejecuto la funcion asi:
> Select cletra1(9999);
>
> El error es el siguiente:
>
> ERROR: column "00" does not exist
> CONTEXT: SQL statement "SELECT "00""
> PL/pgSQL function "cletra1" line 31 at assignment
>
> Y ahora lo importante a continuación el va el codigo de la funcion:
>
> create or replace function cletra1(numeric) returns varchar as
> $$
> declare
>
> ptotal alias for $1;
>
> total numeric;
> total1 numeric;
> cent2 numeric;
> cent numeric;
> cent1 char(2);
> mil numeric;
> millon numeric;
> millones numeric;
> sav numeric;
> unit numeric;
> deci numeric;
> centi numeric;
> factor numeric;
> sav1 numeric;
> depesos numeric;
> lletra varchar;
> letras varchar;
>
> begin
>
> total := ptotal;
>
> total1:= total;
> total := trunc(total);
> cent2 := total1 - total;
> cent := cent2*100;
> cent1 := "00";
>
> if total=0 then
> lletra := "CERO";
> return "CERO";
> end if;
>
> mil:=0;
> millon:=0;
> millones:=0;
> depesos:=0;
> sav:=1;
> unit:=1;
> deci:=1;
> centi:=1;
> factor:=1;
> sav1:=1;
> letras:=" ";
>
> while total > 0 loop
> if total > 1999999 then
> depesos := 1;
> factor := 1000000;
> millones := 1;
> millon := 0;
> else
> if total > 999999 then
> depesos := 1;
> factor := 1000000;
> millon := 1;
> else
> if total > 999 then
> factor := 1000;
> mil := 1;
> else
> factor := 1;
> mil := 0;
> end if;
> end if;
> end if;
>
> sav := total;
>
> total := trunc(total/factor);
> sav := sav-(total*factor);
> if sav 0 then
> depesos := 0;
> end if;
>
> centi:=TRUNC(total/100);
>
> if centi = 0 then
> letras := rtrim(letras)||" ";
> end if;
> if centi = 1 then
> if total = 100 then
> letras := rtrim(letras)||" CIEN";
> else
> letras := rtrim(letras)||" CIENTO";
> end if;
> end if;
> if centi = 2 then
> letras := rtrim(letras)||" DOSCIENTOS";
> end if;
> if centi = 3 then
> letras := rtrim(letras)||" TRESCIENTOS";
> end if;
> if centi = 4 then
> letras := rtrim(letras)||" CUATROCIENTOS";
> end if;
> if centi = 5 then
> letras := rtrim(letras)||" QUINIENTOS";
> end if;
> if centi = 6 then
> letras := rtrim(letras)||" SEISCIENTOS";
> end if;
> if centi = 7 then
> letras := rtrim(letras)||" SETECIENTOS";
> end if;
> if centi = 8 then
> letras := rtrim(letras)||" OCHOCIENTOS";
> end if;
> if centi = 9 then
> letras := rtrim(letras)||" NOVECIENTOS";
> end if;
>
> total:=total - (centi*100);
> deci :=trunc(total/10);
> unit :=total-(deci*10);
>
> if total >= 30 then
> if deci = 3 then
> letras := rtrim(letras)||" TREINTA";
> end if;
> if deci = 4 then
> letras := rtrim(letras)||" CUARENTA";
> end if;
> if deci = 5 then
> letras := rtrim(letras)||" CINCUENTA";
> end if;
> if deci = 6 then
> letras := rtrim(letras)||" SESENTA";
> end if;
> if deci = 7 then
> letras := rtrim(letras)||" SETENTA";
> end if;
> if deci = 8 then
> letras := rtrim(letras)||" OCHENTA";
> end if;
> if deci = 9 then
> letras := rtrim(letras)||" NOVENTA";
> end if;
> if unit > 0 then
> letras := rtrim(letras)||" Y";
> end if;
> else
> unit := total;
> end if;
>
> if unit = 0 then
> letras := rtrim(letras)||" ";
> end if;
> if unit = 1 then
> letras := rtrim(letras)||" UN";
> end if;
> if unit = 2 then
> letras := rtrim(letras)||" DOS";
> end if;
> if unit = 3 then
> letras := rtrim(letras)||" TRES";
> end if;
> if unit = 4 then
> letras := rtrim(letras)||" CUATRO";
> end if;
> if unit = 5 then
> letras := rtrim(letras)||" CINCO";
> end if;
> if unit = 6 then
> letras := rtrim(letras)||" SEIS";
> end if;
> if unit = 7 then
> letras := rtrim(letras)||" SIETE";
> end if;
> if unit = 8 then
> letras := rtrim(letras)||" OCHO";
> end if;
> if unit = 9 then
> letras := rtrim(letras)||" NUEVE";
> end if;
> if unit = 10 then
> letras := rtrim(letras)||" DIEZ";
> end if;
> if unit = 11 then
> letras := rtrim(letras)||" ONCE";
> end if;
> if unit = 12 then
> letras := rtrim(letras)||" DOCE";
> end if;
> if unit = 13 then
> letras := rtrim(letras)||" TRECE";
> end if;
> if unit = 14 then
> letras := rtrim(letras)||" CATORCE";
> end if;
> if unit = 15 then
> letras := rtrim(letras)||" QUINCE";
> end if;
> if unit = 16 then
> letras := rtrim(letras)||" DIECISEIS";
> end if;
> if unit = 17 then
> letras := rtrim(letras)||" DIECISIETE";
> end if;
> if unit = 18 then
> letras := rtrim(letras)||" DIECIOCHO";
> end if;
> if unit = 19 then
> letras := rtrim(letras)||" DIECINUEVE";
> end if;
> if unit = 20 then
> letras := rtrim(letras)||" VEINTE";
> end if;
> if unit = 21 then
> letras := rtrim(letras)||" VEINTIUNO";
> end if;
> if unit = 22 then
> letras := rtrim(letras)||" VEINTIDOS";
> end if;
> if unit = 23 then
> letras := rtrim(letras)||" VEINTITRES";
> end if;
> if unit = 24 then
> letras := rtrim(letras)||" VEINTICUATRO";
> end if;
> if unit = 25 then
> letras := rtrim(letras)||" VEINTICINCO";
> end if;
> if unit = 26 then
> letras := rtrim(letras)||" VEINTISEIS";
> end if;
> if unit = 27 then
> letras := rtrim(letras)||" VEINTISIETE";
> end if;
> if unit = 28 then
> letras := rtrim(letras)||" VEINTIOCHO";
> end if;
> if unit = 29 then
> letras := rtrim(letras)||" VEINTINUEVE";
> end if;
> if millones=1 then
> letras := rtrim(letras)||" MILLONES";
> millones := 0;
> else
> if millon=1 then
> letras := rtrim(letras)||" MILLON";
> millon := 0;
> else
> if mil=1 then
> letras := rtrim(letras)||" MIL";
> mil := 0;
> end if;
> end if;
> end if;
> total:=sav;
> end loop;
>
> if cent=0 then
> cent1:="00";
> else
> cent1:=cast(cent as char(2));
> end if;
> if depesos=1 then
> letras := rtrim(letras)||" DE PESOS "||cent1||"/100 M.N.";
> else
> letras := rtrim(letras)||" PESOS "||cent1||"/100 M.N.";
> end if;
>
> lletra := "("||ltrim(letras)||")";
>
> return lletra;
> end
> $$
> language 'plpgsql';
>
> De antemano muchas gracias.