Uso del componente JvValidateEdit
 

Hola

Tengo un problema.. estoy usando el JvValidateEdit.. y quisiera realizar un proceso de calculo con el dato ingresado.. pero no se como realizarlo.. antes tenia un TEdit...y funcaba bien... pero por formato quise utilizar ese...

Tengo un JvValidateEdit con las sgtes propiedades

Name: vCtd
CheckChars : 0123456789,
DisplayFormat : dfFloat
MaxLength : 7

bueno, la idea es básicamente que me permita el ingreso de valores tales como 0,01 hasta 9999,94 (por eso lo del largo)

Además, tengo dos JvValidateEdit con las sgtes propiedades

Name: vUni / vTot
CheckChars : 0123456789.
DisplayFormat : dfCurrency
MaxLength : 9.... ( hasta $ 999.999.999 )

bueno, resulta que debo realizar el calculo sgte

vT

Código Delphi [-]
ot.Text := FloatToStr(StrToFloat(vCtd.Text)*StrToFloat(vUni.Text));

bueno..eso me arroja el sgte error

exception class EConvertError with message "$ 15,00' is not a valid floating point value'


quizas es por que un valor esta en formato Currency para que me pueda tomar el tipo de moneda y el otro float...para que me tome la cantidad hasta con 2 decimales...

Alguien ha trabajado esto con dicho componente ??? o puede que no se trabaje como StrToFloat / FloatToStr

Salu2:p:D

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 ???

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.

Gracias Contraveneno...

justo lo que necesitaba...

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

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;

Tenias razon Contraveneno

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:p:D

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:p:D

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

¿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.

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:p:D

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

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..

Hola Delfino...

en realidad no se como funcionaria eso del dataset...(o puede que sepa, pero no le veo la aplicación en mi caso).... el problema es que como tengo el sistema en red... entonces quiero evitar guardar los datos en una tabla temporal...en caso de que desistan de crear la Factura u Orden... solo limpio el StringGrid ( NiceGrid) y con eso basta...

Salu2:p:D

bueno, si el uso del nicegrid es solo para mostrar los datos temporalmente, sin utilizar nada especial de este componente. Creo que sería mejor una tabla en memoria utilizando el TjvMemorydata que viene el la pestaña JV Data Controls (o data access :P).

En esta tabla tu defines los campos que quieres, que según veo, son 4, un entero, un string y dos tipo moneda.

Esta tabla en memoria funciona exactamente igual que si tuvieras un TTable enlazado a tu base de datos, pero obviamente al ser en memoria, no afecta en nada a tu base de datos.

Lo mejor de todo, en este caso, es que no tendrías por que preocuparte ni por formatos ni por conversiones ni por regionalismos, ya que todo lo manejarías directo al tipo de datos que tu defines.

Por ejemplo, para agregar un elemento ("item" en inglés) o artículo, harías algo así:

Código Delphi [-]
with Datamodule.TablaMemoria do begin
 Append;
 FieldByName('CTD').AsInteger := CTD.AsInteger;
 FieldByname('Descripcion').AsString := edtDescripcion.Text;
 FieldByName('ValorUnit').AsCurrency := edtValorUnitario.AsCurrency; 
 FieldByName('ValorTotal').AsCurrency := edtValorTotal.AsCurrency;
 Post;
end; //with

Los datos tipo moneda, te los va amostrar con formato de moneda, tal como este configurada la región en la computadora (con "," como separador de miles o como separador de decimales, no importa, tu programa lo tomará como este configurado el sistema operativo).

Para guardarlo en tu base de datos, podrías hacer algo así;

Código Delphi [-]
with UnDataModule.UnQuery do begin
 If active then close;
 SQL.Clear;
 SQL.Add('Insert into UnaTabla(CTD, Descripcion, ValorUnit, ValorTotal)');
 SQL.Add('Values(:vCTD, :vDescripcion, :vValorUnit, :vValorTotal)');
 Parameters.ParamByname('vCTD').AsInteger := UnaTablaEnMemoria.FieldByName('CTD').AsInteger;
 Parameters.ParamByname('vDescripcion').AsString := UnaTablaEnMemoria.FieldByName('Descripcion').AsString;
 Parameters.ParamByName('vValorUnit').AsCurrency := UnaTablaEnMemoria.FieldByName('ValorUnit').AsCurrency;
 Parameters.ParamByName('vValorTotal').AsCurrency := UnaTablaEnMemoria.FieldByName('ValorTotal').AsCurrency;

 ExecSQL;
end; //with

Si te fijas, en ningún momento hago conversiones de cadena a moneda, ni tampoco me preocupo por formatos ya que los toma directo del sistema operativo.
Y tienes todos los eventos necesarios para hacer cambios. AfterInsert, beforeinsert, beforedelete, afterdelete, beforepost, afterpost, etc, etc, etc, etc.


Edito: -----
Incluso, podrías dejar solo el Grid enlazado a la tabla en memoria y hacer los camios directamente sobre el mismo grid, sin necesidad de que pongas los valores en validateedits aparte y luego meterlos en el grid. Puedes hacer todas las validaciones que requieras directo en la tabla en memoria. Incluso puedes enlazar el campo del artículo, a una tabla de artículos en tu base de datos si defines el campo como ftDataset. En fin, que las posibilidades son mucho mucho mayores.



Y en caso de que se arrepientan, lo único que tendrías que hacer sería:

Código Delphi [-]
 UnaTablaEnMemoria.EmptyTable;

Gracias ContraVeneno...

Sabes,, voy a ver si puedo implementar lo que dices...

Aunque tengo la sgte duda... ¿cuando salgo del formulario...? los datos se perderán ??? o quedan en momoria.. (digo para crear proceso de limpiado...)... como defino que se guardarán en momoria.??? lo hace por defecto ???


Bueno... probare ahorita lo que indicastes...

Salu2:p:D

Edite varias veces mi mensaje anterior, verifica que hayas leído todo :o

Suponiendo que la tabla en memoria (Componente TjvMemoryData) está en un datamodule aparte, pues no se perderían, siempre y cuando no destruyas el datamodule. Si está dentro del mismo formulario y solo lo ocultas, pues tampoco se pierden. Mientras el TjvMemoryData esté activo, los valores ahí seguiran. A menos que hagas cualquiera de estas cosas:

Código Delphi [-]
TablaMemoria.Active := False;
//O tambien:
TablaMemoria.Close;
//o como ya había mencionado:
TablaMemoria.EmptyTable;

Cualquiera de esas tres opciones, borrará los datos.

El guardar los datos en memoria, lo hace el componente directamente, no tienes que preocuparte por eso. Tu utiliza al componente como cualquier TTable.

Hola ContraVeneno

sabes, realice el proceso que me indicas.. y puse los componenetes que mencionabas...

en el boton agregar puse el sgte codigo

Código Delphi [-]
with TablaMemoria do
begin
     Append;
     FieldByName('ctd').AsFloat := vCtd.asFloat;
     FieldByname('descripcion').AsString := vDes.Text;
     FieldByName('vunit').AsCurrency := vUni.AsCurrency;
     FieldByName('vtotal').AsCurrency := vTot.AsCurrency;
     Post;
end;
TablaMemoria.Refresh;

Ahora, realiza el proceso de agregar, pero no me muestra nada de lo ingresado, se puede observar en la imagen sgte..

Salu2:p

PS: como hago para que la imagen se muestre dentro del mismo post ??? o necesita una característica en específica...

ya me muestra.... pero ahora como elimino un dato ???
 

Ya lo solucione.. empece a instruciar. y cambie la propiedad required de cada campo...

Mi consulta sería como eliminar una fila seleccionada...?? se puede... hay que tener en cuenta que no tiene codigo definido... y si lo realizo por la cantidad puede existir otro item con la misma cantidad....

Salu2:p:D

Código Delphi [-]
TablaMemoria.Delete;

Eso elimina la fila seleccionada.

Para llevar las sumatorias, podrías utilizar el evento AfterPost y AfterDelete enlazados hacia el mismo evento.

Ok...
 

Gracias...

Ahora me funciona super...

Estoy reacomodando algunas cosas y traspasando otras... y lo encontre muy bueno...

Salu2:p:D