BEGIN TRAN

DECLARE
    @ITEMNO VARCHAR( 24 ) -- код товара
    ,@_ITEMNO VARCHAR( 24 )-- текущая позиция
    ,@D DATETIME -- дата периода
    ,@OPENUM INT -- начальный остаток
    ,@_OPENUM INT -- расчетный остаток для след. периода
    ,@OPENCOST DECIMAL( 18 , 2 )-- начальная стоимость
    ,@_OPENCOST DECIMAL( 18 , 2 )-- расчетная стоимость для след. периода
    ,@INPUTUM INT -- поступление, кол-во
    ,@INPUTCOST DECIMAL( 18 , 2 )-- стоимость поступивщего
    ,@OUTUM INT -- выбытие, кол-во
    ,@OUTCOST DECIMAL( 18 , 2 )-- расчетная себестоимость
    ,@I INT -- номер периода

DECLARE C CURSOR FOR
SELECT TOP  100  PERCENT ITEMNO,PDATE,OH,AMOH,P,AMP,S
FROM INV01 WHERE PDATE >= :StartPeriod
ORDER BY ITEMNO,PDATE

OPEN C

FETCH NEXT FROM C INTO @ITEMNO,@D,@OPENUM,@OPENCOST,@INPUTUM,@INPUTCOST,@OUTUM
SET @_ITEMNO = @ITEMNO
SET @I =  0 
SET @_OPENUM = @OPENUM
SET @_OPENCOST = @OPENCOST

WHILE @@FETCH_STATUS =  0 
BEGIN
SET @OUTCOST =  0 
IF (@_OPENUM + @INPUTUM) >  0 
    SET @OUTCOST = (@_OPENCOST + @INPUTCOST)/(@_OPENUM + @INPUTUM)*@OUTUM

-- Обновление расчетной таблицы
IF @I >  0 
    UPDATE INV01 SET
    OH = @_OPENUM
    ,AMOH = @_OPENCOST
    ,CMS = @OUTCOST
    WHERE ITEMNO = @ITEMNO AND PDATE = @D
ELSE
    UPDATE INV01 SET CMS = @OUTCOST
    WHERE ITEMNO = @ITEMNO AND PDATE = @D
-- Расчет остатков для следующего периода
SET @_OPENUM = @_OPENUM + @INPUTUM - @OUTUM
SET @_OPENCOST = (@_OPENCOST + @INPUTCOST) - @OUTCOST


FETCH NEXT FROM C INTO @ITEMNO,@D,@OPENUM,@OPENCOST,@INPUTUM,@INPUTCOST,@OUTUM
SET @I = @I +  1 

IF @ITEMNO <> @_ITEMNO
BEGIN
        SET @_ITEMNO = @ITEMNO
        SET @I =  0 
        SET @_OPENUM = @OPENUM
        SET @_OPENCOST = @OPENCOST
END -- новая позиция

END -- все позиции обработаны

CLOSE C
DEALLOCATE C

IF @@ERROR <>  0 
ROLLBACK TRAN
ELSE
COMMIT TRAN;

-- Курсор Потребности
DECLARE MS CURSOR FOR
select
d.itemid, -- Продукт
d.id, -- Запись BOM
d.trlineid, -- Строка заявки
d.nodelevel, -- уровень вложенности
d.custid,
d.whid,
d.parentid,
d.btype, -- тип накладной
d.margin as margin,
d.pqty, -- число заявок
t.vatprc, -- ндс (тип реализации)
c.postcode
from invtrbom d
inner join org c on c.id = d.custid
inner join invtrline t on t.id = d.trlineid
where
d.batchid = :pBatchId
.....

OPEN MS

FETCH NEXT FROM MS INTO @mitemid,@qty,@lineid,@trlineid,@nodelevel,@custid,@whid,@parentid,@btype,@margin,@pqty,@pvatprc,@postgrp
WHILE @@FETCH_STATUS =  0 
BEGIN

    DECLARE C CURSOR FOR
    select
    d.id, -- складская запись
    d.itemid, -- продукт
    round(d.qty, 3 ) as oh, -- в наличии
    d.price, -- учетная цена
    d.sertnum,
    d.rdate,
    case when isnull(@pvatprc, 0 ) =  18  then @pvatprc else isnull(d.vatprc, 0 ) end as vat
    from ##invtmp d
    where ((d.itemid = @mitemid) or (d.parentid is not null and d.parentid = ...

    OPEN C
....