If en TJvDBLookUpCombo

[mantraxer21]

Estimados:

Tengo un formulario que tiene 1 componente TJvDBLookUpCombo, que llamaremos "Productos" , 1 Componente TDBEdit llamado "Cantidad" y por último otro llamado "Kilos".

La idea es que dependiendo del Producto seleccionado y luego el usuario ingrese la cantidad, en el dbedit del "kilo" se almacene el Kilo del Producto, osea Producto * Cantidad = Kilo

Estoy trabajando con "DATASET" y SU RESPECTIVO "DATASOURCE" .

Estaba pensando en un ciclo If (pues son más menos 10 productos), nosé si me pueden hechar una mano ?

Gracias

[afunez2007]

deberias de poncer un poco del codigo que tienes, asi te podremos ayudar mejor

Saludos

[mantraxer21]

Código Delphi [-]
If Producto.Value = '1' then

Begin
 GridDetalle.Columns[4]:= GridDetalle.Columns[3]*0.900;
end;

En la Columnba 4 de mi Grilla (dbUltimGrid) se encuentra el campo "Kilo", y en el 3 se encuentra la Cantidad


Saludos

[[Chris]]

No se sabe lo que quieres hacer. Explicate mejor y dinos cúal es tu obtetivo.

[afunez2007]

Empezado por mantraxer21

Código Delphi [-]If Producto.Value = '1' then Begin GridDetalle.Columns[4]:= GridDetalle.Columns[3]*0.900; end;


En la Columnba 4 de mi Grilla (dbUltimGrid) se encuentra el campo "Kilo", y en el 3 se encuentra la Cantidad


Saludos

Asumo que estos grids estan trabajando con querys o tablas, por lo cual debes pensar en ese punto y no centrarte tanto en el grid:
Asumiendo que el grid este asociado a una table1, en el evento closeup debes rellenar los dbedits y luego deberas tener un boton que te agregue las lineas a la tabla, es decir que haga el post y refresque los datos para que se reflejen en el grid.

[mantraxer21]

Claro

Efectivamente trabaja con una tabla y los campos (Cantidad, IdProducto, kilos)

En este caso tengo un DataSet y en el evento "CalcFields" pude el codigo

Código Delphi [-]
If Producto.Value = '1' then  
Begin  GridDetalle.Columns[4]:= GridDetalle.Columns[3]*0.900; 
end;

Cosa que me manda errores !!!, nosé si toy haciendo bien :S

[afunez2007]

Empezado por mantraxer21

Claro

Efectivamente trabaja con una tabla y los campos (Cantidad, IdProducto, kilos)

En este caso tengo un DataSet y en el evento "CalcFields" pude el codigo

Código Delphi [-]If Producto.Value = '1' then Begin GridDetalle.Columns[4]:= GridDetalle.Columns[3]*0.900; end;


Cosa que me manda errores !!!, nosé si toy haciendo bien :S

Es lo que te decia, estas haciendo referencia al grid y no a la tabla, prueba algo asi:
1.- En el evento on closeup del combo:

Código Delphi [-]
edtidprod.value:=table1.fieldbyname('IdProducto').value;

2.-Calcular kilo (este podria estar en el onclik de un boton):

Código Delphi [-]
kilo.value:=edtidprod.value*table1.fieldbyname('cantidad').value;