[JorgeBec]

Aqui va

este es el proceso...

procedure TfrmGastos.BitBtn1Click(Sender: TObject);
begin
  try
     if edGastos.Value = 0 then
        showmessage('Falta ingresar los gastos de fabricación...')
     else
     begin
       qryTotalizado.First;
       qryUpdate.Params[0].asfloat := qryTotalizadoUni.value;
       qryUpdate.Params[1].asfloat := edGastos.value;
       qryUpdate.ExecSQL;
     end;

     showMessage('Proceso Terminado...');
  except
     on E:Exception do Errores(E.Message);
  end;

end;

este proceso es el de Actualizar el Grid...

procedure TfrmGastos.BitBtn3Click(Sender: TObject);
begin
     GridGtos.DataSource.DataSet.Refresh;
end;

y este lo que tiene el componente llamado qryUpdate...

UPDATE Ventas V 
SET 
     impgtosfab = (V.unidades / :pTotal) * :pTotGtos
WHERE 
         V.codigoprod = (SELECT codigoprod FROM Producto P WHERE P.codigoprod = V.codigoprod AND P.gtosfab = '*')