Multiplicaion de compos en DBGrid

[simon]

Hola muy buena tarde......


tengo un DBGrid, con tres campos, Cantidad, Precio y subtotal.
lo que quiero hacer es lo siguiente:

Subtotal = Cantidad X precio, pero es usando un DBGrib, como puedo hacerlo.
tengo la idea pero no se como hacerlo.

mucha gracias

[__marcsc]

Hola,

no tiene demasiada importancia que tengas un DBGrid. Lo que tendrías que hacer sería crear un campo calculado en el DataSet al cual tienes asociado tu grid.

Saludos!

[roman]

Dado que Subtotal lo quieres obtener a partir de Cantidad y Precio supongo que no se trata de un campo que esté presente en la tabla.

Lo que necesitas es un campo calculado.

En el editor de campos de la tabla agregas un campo nuevo y le indicas que será un campo calculado. En el evento OnCalcFields de la tabla asignas el valor al campo:

Código Delphi [-]
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  DataSet['Subtotal'] := DataSet['Cantidad']*DataSet['Precio'];
end;

Y ¡listo!. Con esto, se mostrará la columna 'Subtotal' mostrando el valor del producto.

// Saludos

[roman]

Veo que se me adelantó marcsc.

Aprovecho para mandar este hilo al foro de "Conexión con bases de datos" que es más adecuado.

// Saludos

[simon]

gracias por la ayuda probe la rutina pero me esta dando un error y es el siguiente

 	   Dts_PedidosDetalle['Sub_Total'] :=
Dts_PedidosDetalle['Cantidad_Pedido'] * Dts_PedidosDetalle['Precio_Unitario_Articulo'];

[Error] Un_Pedidos.pas(267): Class does not have a default property
[Error] Un_Pedidos.pas(267): Class does not have a default property
[Error] Un_Pedidos.pas(267): Class does not have a default property
[Fatal Error] SistemaFacturacin.dpr(11): Could not compile used unit 'Un_Pedidos.pas'

[jachguate]

Pues los fields que usas no tienen una propiedad por defecto, asi que vas a tener que usar las propiedades Value, o bien AsInteger o AsFloat según corresponda.

dataset['field'].AsFloat (por ejemplo)

Hasta luego.

[roman]

El ejemplo que puse debe funcionar tal cual. La componente TDataSet, y cualquiera de sus descendientes, tiene a FieldValues como propiedad por default. Realmente no sé que se supone que es Dts_PedidosDetalle ni tampóco sé por qué usa éste en lugar del parámetro DataSet que pasa el evento OnCalcFields.

Otra cosa es que no sea muy eficiente usar FieldValues por el uso de variants. Para optimizar habría que poner algo como

Código Delphi [-]
DataSet.FieldByName('Sub_total').AsFloat :=
  DataSet.FieldByName('Cantidad_Pedido')*DataSet.FieldByName('Precio_Unitario_Articulo');

// Saludos

[simon]

muy buen dia, gracias por el code Ramon....

cuando escribo el primer dataSet. este si me permite usar el FieldByName('Campo').AsFloat, pero despues del := en lo campos que quiero calcular no me permite usar el FieldByName si no el FieldByValues.

y si lo folso escribiendolo me da el siguiente erro

[Error] Un_Pedidos.pas(267): Operator not applicable to this operand type

detalles de los campo.

Cantidad = Numerica
Precido = Moneda
Sub_Total = Moneda
calSub_Total = campo calculo

primero quiero multiplicar Sub_total = Cantida * Precio, para luego sumar todos los sub_totales.

espero me entienda mil gracias

[simon]

mucha gracias por la ayuda ya pude resolver el problema, era que estaba declarando el campo calculado como una variable.


gracias y pasen un feliz resto del dia

[click]

ya tengo mi campo calculado y ya me da bien los resultados, pero como le hago para el gran total? , hay alguna especie de calcular el total?