Números a letras

[[Caral]]

Hola
Pones el componente en el form.
Pon esta 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;

Luego indicas de donde sacas el dato y donde lo quieres pones.

Código Delphi [-]
var
 n: String;
begin
  n:= Deletrear(StrToFloat(QRExpression1.Text) );
  QRlabel1.Text:= (n);

A ver como va la cosa.
Saludos

[ContraVeneno]

http://www.clubdelphi.com/trucos/ind...ll=0&scrollb=0

revisa hasta el final

[metroyd]

Empezado por ContraVeneno

http://www.clubdelphi.com/trucos/ind...ll=0&scrollb=0

revisa hasta el final

Esta funcion (la ultima) que parametros le envio?? La puedo incluir en cualquier form???

[metroyd]

Probé esto:

Código Delphi [-]
form17.qrlabel22.caption:= form17.QRExpr2.Value.strResult

Y el resultado son caracteres extraños. O sea, el problema viene desde como asignar el resultado de un QRExpr a una variable o label.

[metroyd]

Gracias a los que me ayudaron.
El problema lo resolvi mediante el evento OnPrint del QRExpression:

Código Delphi [-]
procedure TForm17.QRExpr2Print(sender: TObject; var Value: String);

// AQUI METI LA FUNCION QUE ME DIJISTE
   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;
 // FIN DE LA FUNCION

 var
    n:string;
begin
   form17.qrlabel37.Caption:=FOrmatfloat('#,##0.00',strtofloat(value));
   n:= Deletrear(StrToFloat(Value));
   form17.QRLabel39.Caption:=uppercase('( '+n+' PESOS 00/100 M.N.)');
   value:=form17.QRLabel37.Caption;

end;

[benjineo]

a mi me sale el mismo error, pero solo con cantidades como de 3450.00 pero con las pequenias si funciona bien(250.00)!!!....ya le movi al onprint y nada!..alguein sugiere algo?

[[Caral]]

Hola
Si el dato es obtenido de un campo se necesita ponerlo en el evento before del componente table o query que se use.
NO el evento del reporte, el del query o table, segun sea el caso ya que necesita obtener el dato primero.
Saludos

[ContraVeneno]

Empezado por metroyd

Esta funcion (la ultima) que parametros le envio?? La puedo incluir en cualquier form???

La puedes incluir en cualquier formulario, le envías un valor tipo moneda y te regresa un texto

[metroyd]

ME MARCA EL SIGUIENTE ERROR:

Project sistema.exe raised exception Class EConverter error with message "" is not a valid floating point value.

Mi codigo es:

Código Delphi [-]
procedure TForm18.BitBtn1Click(Sender: TObject);
   // AQUI METI LA FUNCION QUE ME DIJISTE
   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;
 // FIN DE LA FUNCION
var
  npages:integer;
  n:string;
begin
IF DE.Date > A.Date THEN BEGIN
         Application.MessageBox('ERROR EN LAS FECHAS','SISTEMA MULTAS',MB_ICONERROR);
     END
     ELSE BEGIN
         Form17:= TForm17.Create(Application);

        datamodule4.buscar.close;
        datamodule4.buscar.SQL.Clear;
        datamodule4.buscar.SQL.Add('SELECT multas.folio,agentes.clave_agente, agentes.nombre, agentes.rfc, multas.importe_agente, sum(multas.importe_agente) AS total_agente,'
        +'sum(multas.importe_agente) * 2 AS total_cien FROM agentes,multas,'
        +'detalle_multa_age WHERE multas.fecha_pago >= "'+QuotedStr(FormatDateTime('yyyy-mm-dd',de.date))+'" AND multas.fecha_pago <= "'+QuotedStr(FormatDateTime('yyyy-mm-dd',a.date))+'"'
        +' AND detalle_multa_age.nombre = agentes.nombre and detalle_multa_age.folio = multas.folio group by clave_agente');
        datamodule4.buscar.Open;

        form17.qrlabel4.Caption:=FormatDateTime('d mmm yyyy',DE.DATE);
        form17.qrlabel5.Caption:=FormatDateTime('d mmm yyyy',A.DATE);


        form17.QuickRep1.DataSet:=datamodule4.buscar;
        form17.QRDBText1.DataSet:=datamodule4.buscar;
        form17.QRDBText2.DataSet:=datamodule4.buscar;
        form17.QRDBText3.DataSet:=datamodule4.buscar;
        form17.QRDBText4.DataSet:=datamodule4.buscar;
        form17.QRDBText5.DataSet:=datamodule4.buscar;

        form17.QRDBText1.DataField:='clave_agente';
        form17.QRDBText2.DataField:='nombre';
        form17.QRDBText3.DataField:='rfc';
        form17.QRDBText4.DataField:='total_agente';
        form17.QRDBText5.DataField:='total_cien';
      
  // AQUI VIENE EL PROCESO QUE QUIERO HACER
        form17.QRExpr2.Expression:='SUM(total_cien)';
        form17.QRExpr3.Expression:='SUM(total_agente)';

    // ACCEDER AL RESULTADO DEL QREXPRE2:
         N:= Deletrear(StrToFloat(form17.QRExpr2.Value.strResult));
        form17.QRLabel22.Caption:=N;

        form17.QuickRep1.Prepare;

        nPages:=form17.QuickRep1.QRPrinter.PageCount;
        form17.QRLabel6.Caption:=FormatDateTime('d mmmm yyyy',DATE);
        form17.QRLabel20.Caption:=inttostr(npages);
        form17.QuickRep1.PreviewModal;
         form17.Close;

     END;

end;