/**************************************************************************************************** **ファイル: SPM演習データクリア.sql **名前:    SPM演習データクリア **説明: 選択された演習データをクリア **適用Ver. Ver1.03以降 ** **戻り値: なし ** **呼び出し元: ** **パラメータ **Input Output **------------ ------------ **システムCD **演習CD ** **作成者: 山崎 **作成日: 不明 ***************************************************************************************************** **修正履歴 ***************************************************************************************************** **日付: 作業者: 作業内容: **-------- ---------- ------------------------------------------------------------------ **2005/06/06 大沼 Fixed:001 クリア対象テーブルに不備があったので追加 ***************************************************************************************************** */ if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習データクリア]') and OBJECTPROPERTY(id, N'IsProcedure') = 1) drop procedure [dbo].[SPM演習データクリア] GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS OFF GO CREATE PROCEDURE dbo.SPM演習データクリア @システムCD varchar(12), @演習CD varchar(12) AS begin transaction DELETE FROM TGA入出庫明細TRN FROM TGA入出庫TRN INNER JOIN TGA入出庫明細TRN ON TGA入出庫TRN.システムCD = TGA入出庫明細TRN.システムCD AND TGA入出庫TRN.演習CD = TGA入出庫明細TRN.演習CD AND TGA入出庫TRN.会社CD = TGA入出庫明細TRN.会社CD AND TGA入出庫TRN.作成会社CD = TGA入出庫明細TRN.作成会社CD AND TGA入出庫TRN.文書種類CD = TGA入出庫明細TRN.文書種類CD AND TGA入出庫TRN.文書内容CD = TGA入出庫明細TRN.文書内容CD INNER JOIN TDA会社M ON TGA入出庫TRN.システムCD = TDA会社M.システムCD AND TGA入出庫TRN.演習CD = TDA会社M.演習CD AND TGA入出庫TRN.会社CD = TDA会社M.会社CD WHERE TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD AND (TGA入出庫TRN.処理時期区分 <> 0 OR TDA会社M.学生番号 <> '') if @@error <> 0 begin rollback select -1 return End DELETE FROM TGA入出庫TRN FROM TGA入出庫TRN INNER JOIN TDA会社M ON TGA入出庫TRN.システムCD = TDA会社M.システムCD AND TGA入出庫TRN.演習CD = TDA会社M.演習CD AND TGA入出庫TRN.会社CD = TDA会社M.会社CD WHERE TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD AND (TGA入出庫TRN.処理時期区分 <> 0 OR TDA会社M.学生番号 <> '') if @@error <> 0 begin rollback select -1 return End DELETE FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TGB銀行口座入出金TRN FROM TGB銀行口座入出金TRN INNER JOIN TGB銀行口座F ON TGB銀行口座入出金TRN.システムCD = TGB銀行口座F.システムCD AND TGB銀行口座入出金TRN.演習CD = TGB銀行口座F.演習CD AND TGB銀行口座入出金TRN.銀行CD = TGB銀行口座F.銀行CD AND TGB銀行口座入出金TRN.口座区分 = TGB銀行口座F.口座区分 AND TGB銀行口座入出金TRN.口座番号 = TGB銀行口座F.口座番号 INNER JOIN TDA会社M ON TGB銀行口座F.システムCD = TDA会社M.システムCD AND TGB銀行口座F.演習CD = TDA会社M.演習CD AND TGB銀行口座F.会社CD = TDA会社M.会社CD WHERE TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @演習CD AND (TGB銀行口座入出金TRN.処理時期区分 <> 0 OR TDA会社M.学生番号 <> '') if @@error <> 0 begin rollback select -1 return End DELETE FROM TGB銀行口座F FROM TGB銀行口座F INNER JOIN TDA会社M ON TGB銀行口座F.システムCD = TDA会社M.システムCD AND TGB銀行口座F.演習CD = TDA会社M.演習CD AND TGB銀行口座F.会社CD = TDA会社M.会社CD WHERE TGB銀行口座F.システムCD = @システムCD AND TGB銀行口座F.演習CD = @演習CD AND TDA会社M.学生番号 <> '' if @@error <> 0 begin rollback select -1 return End DELETE FROM TGC保険契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TGC出庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TGC寄託者台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TGC運送契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TGK現金入出金TRN FROM TGK現金入出金TRN INNER JOIN TDA会社M ON TGK現金入出金TRN.システムCD = TDA会社M.システムCD AND TGK現金入出金TRN.演習CD = TDA会社M.演習CD AND TGK現金入出金TRN.会社CD = TDA会社M.会社CD WHERE TGK現金入出金TRN.システムCD = @システムCD AND TGK現金入出金TRN.演習CD = @演習CD AND (TGK現金入出金TRN.処理時期区分 <> 0 OR TDA会社M.学生番号 <> '') DELETE FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSC運送書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSC運送費請求書F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSC運送費請求書手動F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSC運送費請求書手動明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK伝票明細F FROM TSK伝票F INNER JOIN TSK伝票明細F ON TSK伝票F.システムCD = TSK伝票明細F.システムCD AND TSK伝票F.演習CD = TSK伝票明細F.演習CD AND TSK伝票F.会社CD = TSK伝票明細F.会社CD AND TSK伝票F.伝票区分 = TSK伝票明細F.伝票区分 AND TSK伝票F.伝票番号 = TSK伝票明細F.伝票番号 INNER JOIN TDA会社M ON TSK伝票F.システムCD = TDA会社M.システムCD AND TSK伝票F.演習CD = TDA会社M.演習CD AND TSK伝票F.会社CD = TDA会社M.会社CD WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND (TSK伝票F.伝票処理区分 <> 0 OR TDA会社M.学生番号 <> '') if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK伝票仕入売上明細F FROM TSK伝票F INNER JOIN TSK伝票仕入売上明細F ON TSK伝票F.システムCD = TSK伝票仕入売上明細F.システムCD AND TSK伝票F.演習CD = TSK伝票仕入売上明細F.演習CD AND TSK伝票F.会社CD = TSK伝票仕入売上明細F.会社CD AND TSK伝票F.伝票区分 = TSK伝票仕入売上明細F.伝票区分 AND TSK伝票F.伝票番号 = TSK伝票仕入売上明細F.伝票番号 INNER JOIN TDA会社M ON TSK伝票F.システムCD = TDA会社M.システムCD AND TSK伝票F.演習CD = TDA会社M.演習CD AND TSK伝票F.会社CD = TDA会社M.会社CD WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND (TSK伝票F.伝票処理区分 <> 0 OR TDA会社M.学生番号 <> '') if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK伝票F FROM TSK伝票F INNER JOIN TDA会社M ON TSK伝票F.システムCD = TDA会社M.システムCD AND TSK伝票F.演習CD = TDA会社M.演習CD AND TSK伝票F.会社CD = TDA会社M.会社CD WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND (TSK伝票F.伝票処理区分 <> 0 OR TDA会社M.学生番号 <> '') if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK帳簿_仕訳日記帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK帳簿_仕訳日記帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK帳簿_仕訳日記帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK帳簿_損益計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK帳簿_貸借対照表F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_商品有高帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTA損益計画F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTA社員台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTK摘要M WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTK記帳チェックF WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTM名刺データ2F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTM名刺データF WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End DELETE FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End /* TC6演習履歴M */ delete from TC6演習履歴M where システムCD = @システムCD AND 演習CD = @演習CD if @@error <> 0 begin rollback select -1 return End /* マスターは元データ以外を クリア */ /* TDA会社M */ delete from TDA会社M where システムCD = @システムCD AND 演習CD = @演習CD and 学生番号 <> '' if @@error <> 0 begin rollback select -1 return End /* TDA勘定科目M */ delete from TDA勘定科目M where システムCD = @システムCD AND 演習CD = @演習CD and 作成区分 <> 1 if @@error <> 0 begin rollback select -1 return End /* TDA商品M */ delete from TDA商品M where (システムCD = @システムCD AND 演習CD = @演習CD ) and ( 作成区分 <> 1 OR 所有会社CD <> '' ) if @@error <> 0 begin rollback select -1 return End /* TDA報告書書式M */ delete from TDA報告書書式M where システムCD = @システムCD AND 演習CD = @演習CD and 作成区分 <> 1 if @@error <> 0 begin rollback select -1 return End commit select 0 GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO