Uso del componente JvValidateEdit

[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

[ContraVeneno]

Para asignar el valor al campo en la base de datos, es prácticamente lo mismo:

Código Delphi [-]
with UnDataModule.UnQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Update UnaTabla');
 SQL.Add('Set Total = :vTotal');
 SQL.Add('Where UnRegistro = :pUnRegistro');
 Parameters.ParamByname('vTotal').AsCurrency := vTot_Brut.AsCurrency;
 Parameters.ParamByName('pUnRegistro').AsString := IDRegistro.AsString;
 ExecSQL;
end; //with
.... //o para un Insert:
with UnDataModule.UnQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Insert into UnaTabla(IDRegistro, Total)');
 SQL.Add('Values(:vUnRegistro, :vTotal');
 Parameters.ParamByname('vTotal').AsCurrency := vTot_Brut.AsCurrency;
 Parameters.ParamByName('vUnRegistro').AsString := IDRegistro.AsString;
 ExecSQL;
end; //with

[ContraVeneno]

¿Para qué estas utilizando el stringgrid?

¿solo para mostrar información?
¿utilizas algo especial del NiceGrid?
¿Podría ser cualquier otro grid?

Te pregunto esto, porque si no utilizas nada especial del nicegrid, es decir, que solo lo utilizas para mostrar los datos, pues podrías utilizar mejor una tabla en memoria. Esto te permitiría manejar cada una de las columnas de acuerdo al tipo de dato que se requiere: los enteros como enteros con el formato que quieras pero sin perder la posibilidad de obtener el valor como entero, las monedas como monedas con el formato que quieras sin perder la posibilidad de obtener el valor como moneda, las cadenas como cadenas...; a diferencia del nicegrid, en donde todo se guarda como cadena.

[[BlueSteel]]

Empezado por ContraVeneno

¿Para qué estas utilizando el stringgrid?

¿solo para mostrar información?
¿utilizas algo especial del NiceGrid?
¿Podría ser cualquier otro grid?

Bueno, resulta que cuando realizo mis Form de Maestro / Detalle tales como : Facturas de Venta / Facturas de Compra / Ordenes de Compra / Salidas de Bodega... etc...etc... en vez de almacenar el detalle en una tabla... lo almaceno en un StringGrid o NiceGrid (Ahora).... entonces me queda un form como el que sigue (aun no esta terminado del todo...)



Bueno,.. esa es la historia de por que manejo un StringGrid o NiceGrid...

Salu2

PS: Existe otra solución para realizar el calculo directo y transformar el texto '$ 9,00' a Currency

[Delfino]

Puedes ahorrarte codigo utilizando el ClientDataset y creando en el un DatasetField q tenga los datos detalle, en la ayuda de Delphi esta explicado..

Si necesitas enlazar el JValidateEdit al cds haz uso del JvDatasource tb..