Массово проставить цены в накладных на перемещение : Супермаг Плюс (Супермаг 2000)

smdocgetlastincomepricefi_iw(vDocID, '0');

// получение последней цены
        public static double GetLastPrice(string strArticle, int intLocId)
        {
            double dLastPrice;
            using (var conOra = new OracleConnection(connString))
            {
                conOra.Open();
                const string txtSql = "declare " +
                                      "vArticle varchar2(10) := :article; " +
                                      "nLocID number(5,0) := :locid;  " +
                                      "nLastPrice number(8,3); " +
                                      "begin " +
                                      "SELECT coalesce(ITEMPRICE,0) into nLastPrice " +
                                      "FROM (SELECT A2.CREATEDAT, " +
                                      "A2.ID, " +
                                      "A2.LOCATIONTO, " +
                                      "B2.ARTICLE, " +
                                      "B2.ITEMPRICE, " +
                                      "B2.QUANTITY, " +
                                      "B2.TOTALPRICE, " +
                                      "ROW_NUMBER() OVER(PARTITION BY B2.ARTICLE ORDER BY A2.CREATEDAT DESC) RN " +
                                      "FROM SUPERMAG.SMDOCUMENTS A2, SUPERMAG.SMSPEC B2 " +
                                      "WHERE A2.DOCTYPE = B2.DOCTYPE " +
                                      "AND A2.ID = B2.DOCID " +
                                      "AND A2.DOCSTATE IN (2, 3) " +
                                      "AND A2.OPCODE=0 " +
                                      "AND A2.LOCATIONTO = :locid " +
                                      "AND A2.DOCTYPE in ('WI') " +
                                      "AND B2.ARTICLE IN (:article)) " +
                                      "WHERE RN = 1; " +
                                      ":nLastPrice := nLastPrice; " +
                                      "end;";

                using (var cmd = new OracleCommand(txtSql, conOra))
                {
                    cmd.Parameters.Add(new OracleParameter("article", OracleType.VarChar));
                    cmd.Parameters["article"].Value = strArticle;
                    cmd.Parameters.Add(new OracleParameter("locid", OracleType.Int16));
                    cmd.Parameters["locid"].Value = 1;
                    OracleParameter parNRec = cmd.Parameters.Add(":nLastPrice", OracleType.Number);
                    parNRec.Direction = ParameterDirection.Output;
                    try
                    {
                        cmd.ExecuteNonQuery();
                        dLastPrice = Convert.ToDouble(parNRec.Value);
                    }
                    catch (Exception exp)
                    {
                        Console.WriteLine(String.Format("Поиск последней цены привел к ошибке {0}\r\n", exp.Message));
                        dLastPrice = 0;
                    }
                }
            }
            return dLastPrice;
        }

UPDATE SUPERMAG.SMSPEC F SET F.ITEMPRICE=NVL(
(
SELECT LP.ITEMPRICE
FROM (SELECT B2.ARTICLE,B2.ITEMPRICE, ROW_NUMBER() OVER(PARTITION BY B2.ARTICLE ORDER BY A2.CREATEDAT DESC) RN
FROM SUPERMAG.SMDOCUMENTS A2, SUPERMAG.SMSPEC B2
WHERE A2.DOCTYPE = B2.DOCTYPE
AND A2.ID = B2.DOCID
AND A2.DOCSTATE IN (2, 3)
AND A2.OPCODE=0
AND A2.LOCATIONTO = (select h.location from supermag.smdocuments h where h.id='0000000001' and h.doctype='SO')
AND A2.DOCTYPE in ('WI')
AND B2.ARTICLE in (select r.article from supermag.smspec r where r.docid='0000000001' and r.doctype='SO')
AND A2.CREATEDAT>=(select h.createdat from supermag.smdocuments h where h.id='0000000001' and h.doctype='SO')
) LP
WHERE LP.RN = 1
AND LP.ARTICLE=F.ARTICLE
),F.ITEMPRICE)
 WHERE F.DOCTYPE='SO' AND F.DOCID='0000000001'
;
COMMIT;

UPDATE SUPERMAG.SMSPEC F SET F.TOTALPRICE=F.QUANTITY*F.ITEMPRICE WHERE F.DOCTYPE='SO' AND F.DOCID='0000000001';
COMMIT;

UPDATE SUPERMAG.SMDOCUMENTS D 
SET 
D.TOTALSUM=(SELECT SUM(F.TOTALPRICE) FROM SUPERMAG.SMSPEC F WHERE F.DOCTYPE=D.DOCTYPE AND F.DOCID=D.ID),
D.TOTALSUMCUR=(SELECT SUM(F.TOTALPRICE) FROM SUPERMAG.SMSPEC F WHERE F.DOCTYPE=D.DOCTYPE AND F.DOCID=D.ID)
WHERE  D.DOCTYPE='SO' AND D.ID='0000000001';
COMMIT;

declare
core_result pls_integer;
begin
if supermag.core.getproc is null then 
  core_result := supermag.Core.StartSMApp();
end if;
  supermag.documents.lockdoc('IW', 'НПххххххххх');
  smdocgetlastincomepricefi_iw('НПххххххххх', '1');
  smdocsetlastincomepricesiw('НПххххххххх', 1, '1');
  commit;
  supermag.documents.unlockdoc('IW', 'НПххххххххх');
end;