Es necesario usar un cursor en este caso

[Andres95]

Código:

Update Productos
set    StockActual_Alm1 = StockInicial_Alm1 + R.Result
From   Productos  P
Inner join
      (Select  Productos.CodProducto
              ,(sum (isnull (CD.Cantidad ,0) * isnull (CD.Equivalente,0)))  - 
               (sum (isnull (VD.Cantidad ,0) * isnull (CD.Equivalente,0)))  AS Result
      From Productos 
      left join 
           VentasDetalle VD 
      on   Productos.CodProducto = VD.CodProducto
      left join 
           ComprasDetalle CD 
      on   Productos.CodProducto = CD.CodProducto
      Group by 
           Productos.CodProducto) R
On   P.CodProducto = R.CodProducto