Uso del componente JvValidateEdit

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

[ContraVeneno]

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

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.

[[BlueSteel]]

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

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

[[BlueSteel]]

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

[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

[microbiano]

ya instalaste las jedi?.

por si es asi el componente se encuentra en la paleta JV data acces.

[userdelphi]

Empezado por microbiano

ya instalaste las jedi?.

por si es asi el componente se encuentra en la paleta JV data acces.

Muchas Gracias ya instale el Jedi y encontre el TjvMemorydata , a lo primero habia descargado el jedi pero ni idea de como se instalaba, pero luego encontte en este club que otro flaco pregunto lo mismo y le guiaron y asi hice y ya , ahora voy a buscar como usar desde cero el componente TjvMemorydata porque la verdad ni idea, si tienen un link se los agradezco.



Muchas gracias