Ver Mensaje Individual
  #1  
Antiguo 22-07-2006
supermilloriver supermilloriver is offline
Miembro
 
Registrado: jul 2005
Posts: 32
Reputación: 0
supermilloriver Va por buen camino
GetText de campo currency

Holis:
Estoy visualizando en una grilla un sencillo query sobre una tablas Paradox en donde muestro datos de Clientes y sus Trabajos Encargados; El query es el siguiente:

Código SQL [-]
SELECT C.NroCliente, C.Apellido, C.Nombre,
C.Direccion, C.CaractTelefono, C.Telefono, C.Localidad, C.Observaciones,
SUM(Saldo) as Saldo
FROM Clientes C LEFT OUTER JOIN OrdenesDeTrabajo OC ON C.NroCliente = OC.NroCliente
GROUP BY C.NroCliente, C.Apellido, C.Nombre,
C.Direccion, C.CaractTelefono,C.Telefono, C.Localidad, C.Observaciones
ORDER BY C.Apellido, C.Nombre

Como veran, si el Cliente nunca encargo un trabajo, entonces Saldo sería null... en realidad en la grilla me aparece NAN (¿¿??). Entonces yo hice el siguiente método:

Código Delphi [-]
procedure TFNavClientes.QDatosAMostrarSaldoGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
inherited;
if (Sender.IsNull) or (Sender.AsString = 'NAN') then
text := '$ 0.00'
else
text := Sender.asString;
end;

El problema que tengo es que, en el caso de que por ejemplo Saldo sea 20,50, al convertirlo a string por el else, me muestra '20', yo lo que quiero es que si saldo no es null y no es nan, se muestre como si el SaldoGetText no se hubiera ejecutado.

Observacion: Saldo es de tipo Currency...

1000 gracias
Gabriel

Última edición por dec fecha: 22-07-2006 a las 18:19:25.
Responder Con Cita