--インストールマスタ演習の勘定科目マスタに追加するクエリ

--変数宣言
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