ApplyUpdatesでハングする。 (ID:14525)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

SQL_SVR.StartTransaction;
これは、関係のない変数です。       bTra      := 2;  
エラーの場合ロールバックをする為の変数

ここでハングアップします。      QryBody.ApplyUpdates;

QryHead.ApplyUpdates;
                                SQL_SVR.Commit;

■QryBodyのＳＱＬ
  if :Sikibetu = '0'
    begin
      SELECT a.年度,
           a.期,
           a.伝票ＮＯ,
           a.伝票行ＮＯ,
           a.単品コード,
           a.ロットＮＯ,
           数量 = CONVERT(MONEY, a.数量),
           a.ＪＤＮＥＴ受注数,
           a.重量,
           a.単価,
           a.金額,
           a.納期,
           a.？？？工数,
           a.受注日,
           a.ＪＤＮＥＴ発注日,
           a.ＪＤＮＥＴ納期指定,
           a.ＪＤＮＥＴ発注ＮＯ,
           a.明細摘要,
           a.同一ロット指定,
           a.ロット管理不可,
           h.使用期限,
           a.承認合格,
           a.輸出納入先,
           a.購入品区分,
           a.品切保留区分,
           a.評価区分,
           a.復活品区分,
           a.入目,
           a.試用品区分,
           a.ロット管理有無,
           a.在庫更新区分,
           a.実在庫更新サイン,
           b.包装区分,
           b.容量,
           b.単位,
           単品重量 = b.重量,
           b.規格,
           b.製造区分,
           元箱ロケ = b.元箱ロケーション,
           元箱ロケ動線 = b.元箱ロケーション動線,
           b.品名コード,
           c.品名,
           移動年度 = 0,
           移動期 = 0,
           移動ＮＯ = convert(char(6), ' '),
           移動行ＮＯ = 0,
           旧伝票行ＮＯ = a.伝票行ＮＯ
      FROM 入出庫明細 a,
           単品 b,
           品名 c,
           入出庫 e,
           ロット別品質保持 h
     WHERE a.年度 = :Nendo
       AND a.期 = :Ki
       AND a.伝票ＮＯ = :DenpyoNo
       AND a.年度 = e.年度
       AND a.期 = e.期
       AND a.伝票ＮＯ = e.伝票ＮＯ
       AND e.エントリー区分 = '2'
       AND e.識別区分 = :Sikibetu
       AND a.単品コード = b.単品コード
       AND b.品名コード *= c.品名コード
       AND a.単品コード *= h.単品コード
       AND a.ロットＮＯ *= h.ロットＮＯ
  end
else
  begin
    SELECT a.年度,
           a.期,
           a.伝票ＮＯ,
           a.伝票行ＮＯ,
           a.単品コード,
           a.ロットＮＯ,
           数量 = CONVERT(MONEY, a.数量),
           a.ＪＤＮＥＴ受注数,
           a.重量,
           a.単価,
           a.金額,
           a.納期,
           a.？？？工数,
           a.受注日,
           a.ＪＤＮＥＴ発注日,
           a.ＪＤＮＥＴ納期指定,
           a.ＪＤＮＥＴ発注ＮＯ,
           a.明細摘要,
           a.同一ロット指定,
           a.ロット管理不可,
           h.使用期限,
           a.承認合格,
           a.輸出納入先,
           a.購入品区分,
           a.品切保留区分,
           a.評価区分,
           a.復活品区分,
           a.入目,
           a.試用品区分,
           a.ロット管理有無,
           a.在庫更新区分,
           a.実在庫更新サイン,
           b.包装区分,
           b.容量,
           b.単位,
           単品重量 = b.重量,
           b.規格,
           b.製造区分,
           元箱ロケ = CONVERT(char(6), ' '),
           元箱ロケ動線 = 0,
           b.品名コード,
           c.品名,
           移動年度 = 0,
           移動期 = 0,
           移動ＮＯ = convert(char(6), ' '),
           移動行ＮＯ = 0,
           旧伝票行ＮＯ = a.伝票行ＮＯ
      FROM 入出庫明細 a,
           食品単品 b,
           品名 c,
           入出庫 e,
           ロット別品質保持 h
     WHERE a.年度 = :Nendo
       AND a.期 = :Ki
       AND a.伝票ＮＯ = :DenpyoNo
       AND a.年度 = e.年度
       AND a.期 = e.期
       AND a.伝票ＮＯ = e.伝票ＮＯ
       AND e.エントリー区分 = '2'
       AND e.日次更新サイン = '0'
       AND e.識別区分 = :Sikibetu
       AND a.単品コード = b.単品コード
       AND b.品名コード *= c.品名コード
       AND a.単品コード *= h.単品コード
       AND a.ロットＮＯ *= h.ロットＮＯ
    end

■ＵＰＤＡＴＥＯＢＪＣＴのＳＱＬ

delete from 入出庫明細
where
  年度 = :OLD_年度 and
  期 = :OLD_期 and
  伝票ＮＯ = :OLD_伝票ＮＯ
  and
 伝票行ＮＯ = :OLD_旧伝票行ＮＯ

insert into 入出庫明細
  (年度, 期, 伝票ＮＯ, 伝票行ＮＯ, 単品コード, ロットＮＯ, 数量, ＪＤＮＥＴ受注数, 
   重量, 単価, 金額, 納期, ？？？工数, 受注日, ＪＤＮＥＴ発注日,
   ＪＤＮＥＴ納期指定, ＪＤＮＥＴ発注ＮＯ, 明細摘要, 同一ロット指定,
   ロット管理不可, 使用期限, 承認合格, 輸出納入先, 購入品区分,
   品切保留区分, 評価区分, 復活品区分, 入目, 試用品区分,
   ロット管理有無, 在庫更新区分, 実在庫更新サイン)
values
  (:年度, :期, :伝票ＮＯ, :伝票行ＮＯ, :単品コード, :ロットＮＯ, :数量, 0, 
   :重量, 0, 0, Null, 0, Null, 0, 
   0, ' ', :明細摘要, '0', 
   '0', :使用期限, ' ', ' ', :購入品区分,
   '0', :評価区分, :復活品区分, :入目, :試用品区分,
   :ロット管理有無, :在庫更新区分, :実在庫更新サイン)

update 入出庫明細
set
  年度 = :年度,
  期 = :期,
  伝票ＮＯ = :伝票ＮＯ,
  伝票行ＮＯ = :伝票行ＮＯ,
  単品コード = :単品コード,
  ロットＮＯ = :ロットＮＯ,
  数量 = :数量,
  重量 = :重量,
  明細摘要 = :明細摘要,
  使用期限 = :使用期限,
  購入品区分 = :購入品区分,
  評価区分 = :評価区分,
  復活品区分 = :復活品区分,
  入目 = :入目,
  試用品区分 = :試用品区分,
  ロット管理有無 = :ロット管理有無,
  在庫更新区分 = :在庫更新区分,
  実在庫更新サイン = :実在庫更新サイン
where
  年度 = :OLD_年度 and
  期 = :OLD_期 and
  伝票ＮＯ = :OLD_伝票ＮＯ and
  伝票行ＮＯ = :OLD_旧伝票行ＮＯ

UPADTEのSET項目は３項目ぐらいにしても同様でした。

関係しそうなソースをのせます。

←解決時は質問者本人がここをチェックしてください。

戻る