Ver Mensaje Individual
  #5  
Antiguo 22-06-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita