--インストールマスタ演習の勘定科目マスタに追加するクエリ --変数宣言 DECLARE @演習CD varchar(40) --カーソル宣言 DEALLOCATE EnshuCur --同一セッション内で使う場合必要 --インストールマスタ演習の「演習CD」配列作成 DECLARE EnshuCur CURSOR FOR SELECT TC2演習M.演習CD FROM TC2演習M WHERE TC2演習M.演習CD LIKE 'SYS%' OR TC2演習M.演習CD IN ('jikkyotext01', 'jikkyotext02') GROUP BY TC2演習M.演習CD --カーソルオープン OPEN EnshuCur --カーソル行から変数に代入 FETCH NEXT FROM EnshuCur INTO @演習CD --配列ループ while (@@fetch_status <> -1) --エラーまたはEOFでない間ループ begin if (@@fetch_status <> -2) --EOFで無ければ処理 begin if not exists(SELECT 勘定CD FROM TDA勘定科目M WHERE 演習CD = @演習CD AND 勘定CD = '8519') begin INSERT INTO TDA勘定科目M ( システムCD , 演習CD , 勘定CD , 業種CD , 勘定名称 , 勘定略名称 , 勘定区分 , 勘定細目 , 所有会社CD , 貸借区分 , データ区分 , 費用区分 , 分析用区分 , チェック区分 , 特別勘定区分 , 集計先勘定 , 集計区分 , 諸表集計CD , キャッシュフロー計算書集計CD , 株主資本等変動計算書集計CD , 製造原価報告書集計CD , 作成区分 , 更新日時 ) VALUES ( 'SFC' , @演習CD , '8519' , 'S' , '図書教育費' , '図書教育費' , 'P' , 'E' , '' , 'D' , '1' , 'F' , 'DC' , '' , '' , '' , '' , 'P300' , 'C210' , 'S280' , '' , null , '2023/09/12' ) end end --カーソル行から変数に代入 FETCH NEXT FROM EnshuCur INTO @演習CD end --カーソルクローズ CLOSE EnshuCur