Uso del componente JvValidateEdit

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

[[BlueSteel]]

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

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

[ContraVeneno]

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;

[[BlueSteel]]

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

[userdelphi]

[quote=ContraVeneno;281017]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).
UnaTablaEnMemoria.EmptyTable;


Hola ContraVeneno

aqui mencionas la tabla memoria. donde la busco porque en data controls y data acces no la vi, como se llama?? asi se lllama? TjvMemorydata

gracias