QuickReport, Resultado en letras

[Lenny]

Gracias por la pronta respuesta, se ve complicado, pero intentare verlo desde otro enfoque y como tu me dices, si encuentro alguna solucion la comparto con ustedes, gracias nuevamente y si a alguien se le ocurre alguna solucion, BIENVENIDA SEA!!!

PD: Como instalo / utilizo el compoenten ATEXTO en Delphi 2010???

EDIT: Ya lo instale, estare probando se ve muy interesante, GRACIAS CARAL!!!

[Lenny]

Bueno, despues de tanto buscar y gracias a la sugerencia de CARAL y el componente ATEXTO encontre la solucion:

Código Delphi [-]
procedure TFCLIENTE.QRExpr3Print(sender: TObject; var Value: string);
function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := numero;
Result := letras.AsString;
finally
letras.Free;
end;
end;
var
n:string;
begin
n:= Deletrear(StrToFloat(Value));
QRExpr3.Caption:=uppercase(''+n+'');
value:=QRExpr3.Caption;
end;

Coloque esto en el evento "OnPrint" y funciona a la perfeccion.

No quiero llevarme el credito de esta solucion, solo hice pequeños cambios a una solucion anterior. Curiosamente lo saque de otro post de un usuario con un problema similar y CARAL lo estuvo ayudando y esta era una de las sugerencias, nuevamente gracias!!!

[[Caral]]

Hola
Viendo este codigo que me parece muy interesante pregunto:
No sera lo mismo independizando la funcion?.

Código Delphi [-]
function Deletrear(numero: real) : string; 
var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := numero;
Result := letras.AsString;
finally
letras.Free;
end;
end;


procedure TFCLIENTE.QRExpr3Print(sender: TObject; var Value: string);
var n:string;
begin
n:= Deletrear(StrToFloat(Value));
QRExpr3.Caption:=uppercase(''+n+'');
value:=QRExpr3.Caption;
end;

Saludos

[Lenny]

Jajajajajaja, Tienes toda la razon, casi siempre suelo REINVENTAR la rueda mil veces y buscar soluciones "chasquillas" cometiendo el error de no corregirlas u optimizarlas una vez funcionan, lo hare como dices, gracias nuevamente Caral!!!

[[Caral]]

Hola
Pues la verdad es que lo dije como pregunta por que no se si funcionara o no.
Da la impresion de que tendria que, pero no lo se.
Si funciona, dilo, sera bueno aprender algo mas.
Saludos

[Lenny]

CARAL!!! FUNCIONA A LA PERFECCION!!!

Código Delphi [-]
implementation

{$R *.dfm}

uses BD;

function Deletrear(numero: real) : string; var
letras: TLetras;
begin
letras := TLetras.Create(nil);
try
letras.Numero := numero;
Result := letras.AsString;
finally
letras.Free;
end;
end;

procedure TFCLIENTE.QRExpr3Print(sender: TObject; var Value: string);
var
n:string;
begin
n:= Deletrear(StrToFloat(Value));
QRExpr3.Caption:=uppercase(''+n+'');
value:=QRExpr3.Caption;
end;

end.

Asi tal cual funciona de maravillas, lo unico a tener en cuenta, es que en Chile no trabajamos con decimales, por lo cual hay que cambiar la propiedad "MASK" de los QRExpr a ###,###,##0, pero OJO!!! al que quieras convertir en Letras deve quedar asi ########0 o si no nos genera error, al menos de esta manera me funciona a mi, gracias nuevamente Caral por las sugerencias, un abrazo!!!

[[Caral]]

Hola
Con gusto.
Me alegra poder ayudar y aprender a la vez.
Saludos