Uso del componente JvValidateEdit

[[Lepe]]

StrToFloat solo aceptará números y el punto decimal para convertir el texto a número. Que yo sepa, el error lo dá por el símbolo de dolar y por la coma.

Saludos

[[BlueSteel]]

Empezado por Lepe

StrToFloat solo aceptará números y el punto decimal para convertir el texto a número. Que yo sepa, el error lo dá por el símbolo de dolar y por la coma.

Saludos

Ok... pero el mi caso el separador de decimales es la coma...

Existe alguna forma para realizar el calculo ???

[ContraVeneno]

Hombre, amigo, te la estás complicando demasiado:

Código Delphi [-]
ot.AsAsFloat := vCtd.AsFloat*vUni.AsFloat;
// o lo que es mas o menos lo mismo, pero sin tantos decimales
ot.AsCurrency := vCtd.AsCurrency*vUni.AsCurrency;

//funciona igual para asignar valores:
vCtd.AsCurrency := UnDatamodule.UnDataset.FieldByname('UnCampoMoneda').AsCurrency;

El componente TjvValidateEdit, soporta: AsFloat, AsInteger, AsString, AsCurrency y no recuerdo que más.

[[BlueSteel]]

Gracias Contraveneno...

justo lo que necesitaba...

Código Delphi [-]
 
vTot.Text := FloatToStr( vCtd.AsFloat * vUni.AsCurrency );

[ContraVeneno]

Que bien...

solo por curiosidad
¿porque no usar un TjvValidateEdit tambien para el total?
A mi me quita muchos problemas si todos los controles que van a llevar números, son TjvvalidateEdit.

Código Delphi [-]
vTot.AsCurrency :=  vCtd.AsCurrency * vUni.AsCurrency;

[[BlueSteel]]

Tenias razon Contraveneno

Empezado por ContraVeneno

Que bien...

solo por curiosidad
¿porque no usar un TjvValidateEdit tambien para el total?

solo necesitaba hacer

Código Delphi [-]
 
vTot.AsCurrency :=  vCtd.AsCurrency * vUni.AsCurrency;

Bueno... arreglado esto.. tengo otro problema...Estoy trabajando con un StrinGrid (NiceGrid)... en donde voy ingresando los valores que tengo en los TJvValidateEdit...

Como son en formato Currency..

Ej.. si es 9 los paso como $9,00 (separador de decimales es coma)

ahora, si quiero eliminar una fila del Grid... eso lo se hacer, pero no se como restar la cantidad que esta dentro de la celda... se dar con la posición de ella...

por ejemplo, si quiro restar los $9,00 que mencione.. realizo el proceso siguiente (fijando en la fila correspondiente)

Código Delphi [-]
 
vTot_Bru.AsCurrency := vTot_Bru.AsCurrency - StrToFloat(Items_Paso.Cells[3,Items_Paso.Row]);

a un vTot_Bru le asigno el resultado.. pero me da el siguiente error...
'$9,00' is not a valid floating point value.

Como tendré que hacerlo para restar las cantidades que tengo el la Grid.. y/o sumar en el caso que sea necesario..... Recordar que las estoy pasando con formato... por lo cual se estan almacenando como texto...


El otro problema que voy a tener será almacenarlas en la tabla del SQLServer... ya que el campo es de tipo Money....

Editado: Recordar que el valor puede venir con decimales...

Salu2

[[BlueSteel]]

Tengo una solución, aunque no es muy buena cumple con la funcion...

deje otro componente JvValidateEdit escondido llamado vPaso

entonces realizo el siguiente codigo

Código Delphi [-]
vPaso.Text := Items_Paso.Cells[3,Items_Paso.Row];  // traspaso como texto
vTot_Bru.AsCurrency := vTot_Bru.AsCurrency - vPaso.AsCurrency; // Aqui solo resto...

Bueno, si existe una solución mejor... favor indicar

Salu2