if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SP0アクセスログログインID一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SP0アクセスログログインID一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SP0アクセスログ一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SP0アクセスログ一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SP0アクセスログ更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SP0アクセスログ更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SP0伝票採番取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SP0伝票採番取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類入出金フラグ適用]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類入出金フラグ適用]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類削除2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類削除2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類挿入2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類挿入2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類発信2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類発信2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類返信取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類返信取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類返信済みフラグ適用]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類返信済みフラグ適用]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行取引書類開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行取引書類開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座一覧3]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座一覧3]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座一覧4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座一覧4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金組戻]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金組戻]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金通帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金通帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座入出金通帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座入出金通帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座挿入銀行自社別段]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座挿入銀行自社別段]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPB銀行口座残高一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPB銀行口座残高一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC保険一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC保険一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC保険削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC保険削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC保険取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC保険取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC保険更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC保険更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC出庫一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC出庫一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC出庫削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC出庫削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC出庫取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC出庫取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC出庫更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC出庫更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC寄託一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC寄託一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC寄託入庫更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC寄託入庫更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC寄託出庫数更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC寄託出庫数更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC寄託削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC寄託削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC寄託取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC寄託取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC寄託受付]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC寄託受付]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC寄託更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC寄託更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送受信書類削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送受信書類削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送契約一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送契約一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送契約削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送契約削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送契約取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送契約取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送契約更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送契約更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送書類一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送書類一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送書類削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送書類削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送書類取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送書類取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送書類挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送書類挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送書類更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送書類更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送書類発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送書類発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送書類開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送書類開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求先一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求先一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求先未請求一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求先未請求一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書手動一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書手動一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書手動削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書手動削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書手動取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書手動取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書手動挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書手動挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書手動更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書手動更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書手動発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書手動発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPC運送費請求書開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPC運送費請求書開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類一覧3]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類一覧3]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類一覧4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類一覧4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類一覧先着]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類一覧先着]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類取得4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類取得4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類取得台帳突合]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類取得台帳突合]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類挿入2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類挿入2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類挿入4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類挿入4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類更新2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類更新2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類更新4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類更新4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類検認]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類検認]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類発信2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類発信2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類発信4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類発信4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類返信済みフラグ適用]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類返信済みフラグ適用]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD仕入売上書類開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD仕入売上書類開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫一覧4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫一覧4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫一覧9]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫一覧9]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫取得2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫取得2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫取得4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫取得4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫受付]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫受付]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫受付4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫受付4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫挿入2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫挿入2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫挿入3]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫挿入3]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫挿入4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫挿入4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫挿入4dummy]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫挿入4dummy]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫更新2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫更新2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫更新3]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫更新3]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫更新4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫更新4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫書類開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫書類開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫書類開封2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫書類開封2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫発信2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫発信2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫発信3]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫発信3]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫発信4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫発信4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD入出庫非受付]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD入出庫非受付]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD出入庫組戻]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD出入庫組戻]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD在庫チェック]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD在庫チェック]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託依頼取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託依頼取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託依頼受付]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託依頼受付]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託依頼挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託依頼挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託依頼更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託依頼更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託依頼発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託依頼発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託入庫一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託入庫一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託入庫取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託入庫取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託出庫依頼書挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託出庫依頼書挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託商品明細一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託商品明細一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託商品明細取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託商品明細取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託商品明細更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託商品明細更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託在庫挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託在庫挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託在庫挿入2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託在庫挿入2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託在庫繰越商品削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託在庫繰越商品削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託在庫繰越商品挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託在庫繰越商品挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託在庫繰越商品更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託在庫繰越商品更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託書類開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託書類開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託確認文書挿入倉庫]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託確認文書挿入倉庫]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託確認文書挿入管理部]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託確認文書挿入管理部]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD寄託確認文書開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD寄託確認文書開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD材料出庫挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD材料出庫挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD材料出庫更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD材料出庫更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD製造指図書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD製造指図書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD製造指図書削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD製造指図書削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD製造指図書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD製造指図書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD製造指図書挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD製造指図書挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPD製造指図書更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPD製造指図書更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPKキャッシュフロー]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPKキャッシュフロー]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK仕入明細取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK仕入明細取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_仕入伝票一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_仕入伝票一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_仕入伝票取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_仕入伝票取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_仕入伝票挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_仕入伝票挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_仕入伝票更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_仕入伝票更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_仕入伝票消費税更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_仕入伝票消費税更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_仕入明細取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_仕入明細取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_伝票取得全区分]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_伝票取得全区分]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_入金伝票一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_入金伝票一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_入金伝票取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_入金伝票取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_入金伝票挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_入金伝票挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_入金伝票更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_入金伝票更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_出金伝票一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_出金伝票一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_出金伝票取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_出金伝票取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_出金伝票挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_出金伝票挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_出金伝票更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_出金伝票更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_売上伝票一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_売上伝票一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_売上伝票取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_売上伝票取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_売上伝票挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_売上伝票挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_売上伝票更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_売上伝票更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_売上伝票消費税更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_売上伝票消費税更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_売上明細取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_売上明細取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_振替伝票一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_振替伝票一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_振替伝票取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_振替伝票取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_振替伝票挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_振替伝票挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_振替伝票更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_振替伝票更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_材料仕入伝票一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_材料仕入伝票一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_材料仕入伝票取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_材料仕入伝票取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_材料仕入伝票挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_材料仕入伝票挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_材料仕入伝票更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_材料仕入伝票更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_材料仕入明細取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_材料仕入明細取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票_製造部振替伝票一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票_製造部振替伝票一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票前番号]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票前番号]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票次番号]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票次番号]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK伝票集計取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK伝票集計取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK勘定残高データ取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK勘定残高データ取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK売上明細取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK売上明細取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK契約書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK契約書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK契約書削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK契約書削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK契約書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK契約書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK契約書受諾]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK契約書受諾]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK契約書挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK契約書挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK契約書発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK契約書発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK契約書開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK契約書開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売M取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売M取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売M更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売M更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売TRN削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売TRN削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売TTL削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売TTL削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売一覧取得_先生]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売一覧取得_先生]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売一覧取得_先生ORG]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売一覧取得_先生ORG]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売一覧取得_生徒]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売一覧取得_生徒]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売一覧取得_生徒ORG]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売一覧取得_生徒ORG]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売出荷FON]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売出荷FON]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売削除FON]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売削除FON]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売取得_合計]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売取得_合計]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売取得_明細]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売取得_明細]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売更新_TRN]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売更新_TRN]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売更新_TTL]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売更新_TTL]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売買上票印刷FON]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売買上票印刷FON]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売返品_TRN]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売返品_TRN]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売返品_TTL]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売返品_TTL]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売販売領収書印刷FON]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売販売領収書印刷FON]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK小売返品更新1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK小売返品更新1]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳伝票番号一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳伝票番号一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳取得伝票番号]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳取得伝票番号]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳取得伝票貸方]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳取得伝票貸方]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳挿入_振替伝票]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳挿入_振替伝票]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳挿入_振替伝票削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳挿入_振替伝票削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳帳更新_振替伝票]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳帳更新_振替伝票]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳日記帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳日記帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳日記帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳日記帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳日記帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳日記帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳集計表取引日一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳集計表取引日一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳集計表取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳集計表取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳集計表挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳集計表挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_仕訳集計表更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_仕訳集計表更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_八桁精算表取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_八桁精算表取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_八桁精算表挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_八桁精算表挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_八桁精算表更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_八桁精算表更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_合計残高試算表取引日一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_合計残高試算表取引日一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_合計残高試算表取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_合計残高試算表取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_合計残高試算表取得日付指定]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_合計残高試算表取得日付指定]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_合計残高試算表挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_合計残高試算表挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_合計残高試算表更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_合計残高試算表更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_合計残高試算表更新日付指定]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_合計残高試算表更新日付指定]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_損益計算書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_損益計算書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_損益計算書挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_損益計算書挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_損益計算書更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_損益計算書更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_期首残高挿入元帳]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_期首残高挿入元帳]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_株主資本等変動計算書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_株主資本等変動計算書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_株主資本等変動計算書取得M]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_株主資本等変動計算書取得M]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_株主資本等変動計算書挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_株主資本等変動計算書挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_株主資本等変動計算書更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_株主資本等変動計算書更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_総勘定元帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_総勘定元帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_総勘定元帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_総勘定元帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_総勘定元帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_総勘定元帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_貸借対照表取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_貸借対照表取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_貸借対照表挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_貸借対照表挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK帳簿_貸借対照表更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK帳簿_貸借対照表更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形取得裏書]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形取得裏書]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形組戻]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形組戻]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形返却]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形返却]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK手形顛末済一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK手形顛末済一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK演習出庫連動入庫一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK演習出庫連動入庫一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK演習出庫非受付一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK演習出庫非受付一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK演習手形一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK演習手形一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK現金入出金一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK現金入出金一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK現金入出金削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK現金入出金削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK現金入出金取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK現金入出金取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK現金入出金履歴一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK現金入出金履歴一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK現金入出金挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK現金入出金挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK現金入出金日集計]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK現金入出金日集計]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK現金入出金更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK現金入出金更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK現金入出金残高]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK現金入出金残高]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳取得2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳取得2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳更新2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳更新2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳更新_代表取締役]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳更新_代表取締役]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳更新_離職]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳更新_離職]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK社員台帳更新会社更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK社員台帳更新会社更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK精算表修正仕訳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK精算表修正仕訳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK精算表修正仕訳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK精算表修正仕訳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK給与明細一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK給与明細一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK給与明細削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK給与明細削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK給与明細取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK給与明細取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK給与明細更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK給与明細更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK給与明細社員一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK給与明細社員一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越商品仕訳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越商品仕訳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越商品仕訳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越商品仕訳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越商品削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越商品削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越商品挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越商品挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越商品更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越商品更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越残高設定挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越残高設定挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越残高設定挿入10]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越残高設定挿入10]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越残高設定挿入5]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越残高設定挿入5]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK繰越残高設定更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK繰越残高設定更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_仕訳帳勘定科目照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_仕訳帳勘定科目照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_仕訳帳取引日照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_仕訳帳取引日照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_仕訳帳照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_仕訳帳照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_仕訳帳照会_伝票貸方]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_仕訳帳照会_伝票貸方]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_仕訳集計表照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_仕訳集計表照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_仕訳集計表照会FromTo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_仕訳集計表照会FromTo]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_八桁精算表照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_八桁精算表照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_合計残高試算表照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_合計残高試算表照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_株主資本等変動計算書照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_株主資本等変動計算書照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_総勘定元帳照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_総勘定元帳照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_財務諸表]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_財務諸表]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記帳簿_財務諸表2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記帳簿_財務諸表2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK自動転記補助簿照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK自動転記補助簿照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_仕入帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_仕入帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_仕入帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_仕入帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_仕入帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_仕入帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_原価計算表取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_原価計算表取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_原価計算表挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_原価計算表挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_原価計算表更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_原価計算表更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_受取手形記入帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_受取手形記入帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_受取手形記入帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_受取手形記入帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_受取手形記入帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_受取手形記入帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_商品有高帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_商品有高帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_商品有高帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_商品有高帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_商品有高帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_商品有高帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_売上帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_売上帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_売上帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_売上帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_売上帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_売上帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_売掛金元帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_売掛金元帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_売掛金元帳取得_取引先別残高一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_売掛金元帳取得_取引先別残高一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_売掛金元帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_売掛金元帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_売掛金元帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_売掛金元帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_小口現金出納帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_小口現金出納帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_小口現金出納帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_小口現金出納帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_小口現金出納帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_小口現金出納帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_当座預金出納帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_当座預金出納帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_当座預金出納帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_当座預金出納帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_当座預金出納帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_当座預金出納帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_支払手形記入帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_支払手形記入帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_支払手形記入帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_支払手形記入帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_支払手形記入帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_支払手形記入帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_期首残高削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_期首残高削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_期首残高挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_期首残高挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_期首残高挿入売掛金元帳]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_期首残高挿入売掛金元帳]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_期首残高挿入当座預金出納帳]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_期首残高挿入当座預金出納帳]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_期首残高挿入買掛金元帳]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_期首残高挿入買掛金元帳]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_材料仕入帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_材料仕入帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_材料仕入帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_材料仕入帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_材料仕入帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_材料仕入帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_材料元帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_材料元帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_材料元帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_材料元帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_材料元帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_材料元帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_現金出納帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_現金出納帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_現金出納帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_現金出納帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_現金出納帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_現金出納帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_製造間接費配賦表取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_製造間接費配賦表取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_製造間接費配賦表挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_製造間接費配賦表挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_製造間接費配賦表更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_製造間接費配賦表更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_買掛金元帳取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_買掛金元帳取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_買掛金元帳取得_取引先別残高一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_買掛金元帳取得_取引先別残高一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_買掛金元帳挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_買掛金元帳挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK補助簿_買掛金元帳更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK補助簿_買掛金元帳更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK領収書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK領収書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK領収書削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK領収書削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK領収書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK領収書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK領収書挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK領収書挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK領収書更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK領収書更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK領収書発信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK領収書発信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK領収書返却]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK領収書返却]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPK領収書開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPK領収書開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL_分析情報取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL_分析情報取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL合併残高F_削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL合併残高F_削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL合併残高F_登録]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL合併残高F_登録]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL合併残高情報取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL合併残高情報取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL合併精算表挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL合併精算表挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL合併精算表更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL合併精算表更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL合併財務諸表]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL合併財務諸表]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL合併財務諸表2区分]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL合併財務諸表2区分]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL損益分岐点取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL損益分岐点取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPL残高取得_SJ合計残高試算表及び整理記入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPL残高取得_SJ合計残高試算表及び整理記入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMウェイトフラグ更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMウェイトフラグ更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMグループ_参加可能演習一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMグループ_参加可能演習一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMグループ_所属ユーザー一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMグループ_所属ユーザー一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMグループ一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMグループ一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMグループ参加演習更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMグループ参加演習更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMグループ取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMグループ取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMグループ更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMグループ更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMシステム一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMシステム一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMシステム情報デフォルト更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMシステム情報デフォルト更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMシステム情報一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMシステム情報一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMシステム情報取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMシステム情報取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMシステム情報更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMシステム情報更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMユーザーログイン日更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMユーザーログイン日更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMユーザー一括挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMユーザー一括挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMユーザー一括更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMユーザー一括更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMユーザー一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMユーザー一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMユーザー削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMユーザー削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMユーザー取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMユーザー取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMユーザー更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMユーザー更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPMユーザー更新_戻り先]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPMユーザー更新_戻り先]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社ユーザ取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社ユーザ取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社全部一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社全部一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社全部一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社全部一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社削除OLD]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社削除OLD]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社市場一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社市場一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社市場一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社市場一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社手形裏書譲渡可能一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社手形裏書譲渡可能一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社更新_代表取締役]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社更新_代表取締役]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM会社自社登録]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM会社自社登録]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM削除ユーザー一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM削除ユーザー一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目取得特別勘定]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目取得特別勘定]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目取得現金]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目取得現金]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目取得繰越仕入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目取得繰越仕入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目取得繰越商品]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目取得繰越商品]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目更新2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目更新2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目更新3]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目更新3]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目更新会社学生]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目更新会社学生]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目更新特別勘定区分]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目更新特別勘定区分]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目更新諸表集計先]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目更新諸表集計先]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目次科目]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目次科目]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目詳細一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目詳細一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目詳細一覧全部]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目詳細一覧全部]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目詳細取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目詳細取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目詳細取得2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目詳細取得2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM勘定科目詳細取得全部]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM勘定科目詳細取得全部]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM同時同業ユーザーデータコピー]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM同時同業ユーザーデータコピー]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM同時同業会社作成]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM同時同業会社作成]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM商品一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM商品一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM商品一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM商品一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM商品全部一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM商品全部一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM商品削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM商品削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM商品取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM商品取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM商品市場一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM商品市場一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM商品市場一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM商品市場一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM商品更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM商品更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM報告書書式一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM報告書書式一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM報告書書式挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM報告書書式挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM報告書書式更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM報告書書式更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM寄託会社一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM寄託会社一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM寄託会社取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM寄託会社取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM寄託会社取得2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM寄託会社取得2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM寄託受付番号取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM寄託受付番号取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM市場一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM市場一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM市場削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM市場削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM市場取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM市場取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM市場更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM市場更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM摘要一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM摘要一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM摘要削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM摘要削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM摘要取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM摘要取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM摘要更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM摘要更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM摘要表示一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM摘要表示一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM期首残高マスタ複製勘定]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM期首残高マスタ複製勘定]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM期首残高マスタ複製繰越]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM期首残高マスタ複製繰越]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM材料一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM材料一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM材料一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM材料一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM材料削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM材料削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM材料取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM材料取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM材料更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM材料更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM株主資本等変動計算書書式一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM株主資本等変動計算書書式一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM株主資本等変動計算書書式挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM株主資本等変動計算書書式挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM株主資本等変動計算書書式更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM株主資本等変動計算書書式更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習_不参加グループ一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習_不参加グループ一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習_不参加ユーザー一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習_不参加ユーザー一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習_参加グループ一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習_参加グループ一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習_参加ユーザー一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習_参加ユーザー一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習_参加ユーザー一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習_参加ユーザー一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習_参加不参加グループ一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習_参加不参加グループ一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習データクリア]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習データクリア]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習データ学生クリア]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習データ学生クリア]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習会社履歴]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習会社履歴]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習参加グループ挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習参加グループ挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習参加グループ更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習参加グループ更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習参加グループ登録]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習参加グループ登録]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習参加ユーザー挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習参加ユーザー挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習参加ユーザー更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習参加ユーザー更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習取得_小売販売]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習取得_小売販売]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新0]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新0]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新1]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新22]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新22]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新2old]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新2old]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新3]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新3]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新4]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新4]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新_実践日]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新_実践日]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新_小売販売]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新_小売販売]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新コピー元名称]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新コピー元名称]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新データコピー]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新データコピー]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新データコピー会社学生繰越]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新データコピー会社学生繰越]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新データコピー繰越]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新データコピー繰越]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新データコピー自社]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新データコピー自社]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新会社学生繰越解除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新会社学生繰越解除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習更新補助簿整合]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習更新補助簿整合]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習状況メール送信一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習状況メール送信一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習状況照会]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習状況照会]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習登録1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習登録1]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習登録期末繰越先]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習登録期末繰越先]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習管理者一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習管理者一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習詳細一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習詳細一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM演習選択ユーザー一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM演習選択ユーザー一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM経費労務費取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM経費労務費取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM経費労務費挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM経費労務費挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM経費労務費更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM経費労務費更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM経費労務費集計取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM経費労務費集計取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM表記名称取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM表記名称取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM表記名称更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM表記名称更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェックOLD]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェックOLD]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック一覧OLD]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック一覧OLD]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック商品]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック商品]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入伝票]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入伝票]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入伝票2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入伝票2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入元帳]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入元帳]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入元帳2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入元帳2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入現物受取手形]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入現物受取手形]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入現物受取手形全会社]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入現物受取手形全会社]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入現物支払手形]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入現物支払手形]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入現物支払手形全会社]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入現物支払手形全会社]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入現物現金]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入現物現金]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入現物預金]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入現物預金]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入現物預金2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入現物預金2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入現物預金2全会社]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入現物預金2全会社]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入補助簿]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入補助簿]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入補助簿個別]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入補助簿個別]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入補助簿個別2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入補助簿個別2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入集計]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入集計]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入集計2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入集計2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入集計更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入集計更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入集計更新全部]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入集計更新全部]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック挿入集計更新同時同業会社]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック挿入集計更新同時同業会社]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM記帳チェック現物]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM記帳チェック現物]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM選択可能会社取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM選択可能会社取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM部品展開表取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM部品展開表取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM部品展開表商品一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM部品展開表商品一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM部品展開表挿入]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM部品展開表挿入]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM部品展開表更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM部品展開表更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPM部品展開表材料一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPM部品展開表材料一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNFAX一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNFAX一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNFAX作成]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNFAX作成]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNFAX削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNFAX削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNFAX取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNFAX取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNFAX開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNFAX開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール作成]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール作成]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール作成2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール作成2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール受信一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール受信一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール受信一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール受信一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール完全削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール完全削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール復元]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール復元]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール送信]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール送信]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール送信一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール送信一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール開封]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール開封]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPNメール開封2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPNメール開封2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN受信文書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN受信文書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN受信文書一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN受信文書一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN受発信文書削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN受発信文書削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN学生メール受信一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN学生メール受信一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN学生メール送信一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN学生メール送信一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN学生受信文書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN学生受信文書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN学生発信文書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN学生発信文書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN文書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN文書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN発信文書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN発信文書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPN発信文書一覧2]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPN発信文書一覧2]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPPポータル会社取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPPポータル会社取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPPポータル会社更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPPポータル会社更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPPポータル商品再採番]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPPポータル商品再採番]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPPポータル商品削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPPポータル商品削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPPポータル商品取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPPポータル商品取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPPポータル商品更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPPポータル商品更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPPポータル商品表示順更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPPポータル商品表示順更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR仕入売上実績]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR仕入売上実績]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR他社在庫一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR他社在庫一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR入出庫在庫]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR入出庫在庫]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR入出庫在庫会計期間内]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR入出庫在庫会計期間内]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR入出庫在庫単価]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR入出庫在庫単価]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR入出庫在庫明細]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR入出庫在庫明細]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR入出庫在庫明細仕入売上伝票]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR入出庫在庫明細仕入売上伝票]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR分析_収益性情報取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR分析_収益性情報取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR分析_損益実績取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR分析_損益実績取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR分析_損益計画取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR分析_損益計画取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR分析_損益計画更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR分析_損益計画更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR文書番号一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR文書番号一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR文書種類一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR文書種類一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR書類集計一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR書類集計一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR材料入出庫在庫]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR材料入出庫在庫]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR材料入出庫在庫会計期間内]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR材料入出庫在庫会計期間内]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR材料入出庫在庫単価]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR材料入出庫在庫単価]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR製品入出庫在庫]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR製品入出庫在庫]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPR製品入出庫在庫会計期間内]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPR製品入出庫在庫会計期間内]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPT名刺デザイン一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPT名刺デザイン一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPT名刺データ2取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPT名刺データ2取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPT名刺データ2更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPT名刺データ2更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPT名刺データ取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPT名刺データ取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPT名刺データ更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPT名刺データ更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU保険請求領収書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU保険請求領収書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU保険請求領収書削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU保険請求領収書削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU保険請求領収書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU保険請求領収書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU保険請求領収書更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU保険請求領収書更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU倉庫料請求領収書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU倉庫料請求領収書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU倉庫料請求領収書削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU倉庫料請求領収書削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU倉庫料請求領収書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU倉庫料請求領収書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU倉庫料請求領収書更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU倉庫料請求領収書更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU運送費請求領収書一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU運送費請求領収書一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU運送費請求領収書削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU運送費請求領収書削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU運送費請求領収書取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU運送費請求領収書取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPU運送費請求領収書更新]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPU運送費請求領収書更新]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV区分情報一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV区分情報一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV演習メール拒否削除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV演習メール拒否削除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV演習メール拒否登録]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV演習メール拒否登録]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV演習履歴取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV演習履歴取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV演習履歴登録]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV演習履歴登録]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV自社情報取得]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV自社情報取得]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV選択可能会社一覧]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV選択可能会社一覧]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV選択可能会社選択解除]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV選択可能会社選択解除]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV選択可能会社選択解除会社]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV選択可能会社選択解除会社]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SPV選択可能会社選択解除生徒]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[SPV選択可能会社選択解除生徒]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[VVK摘要F]') and OBJECTPROPERTY(id, N'IsView') = 1)
drop view [dbo].[VVK摘要F]
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO










CREATE VIEW dbo.VVK摘要F
AS
SELECT          システムCD, 演習CD, 摘要CD, 会社CD, 摘要, NULL AS 学生番号, 
                      'T' AS 摘要区分, 0 AS 自社フラグ
FROM            TTK摘要M
UNION
SELECT          システムCD, 演習CD, 会社CD, NULL, 会社略名称, 学生番号, 'K', 
                      自社フラグ
FROM            TDA会社M










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SP0アクセスログログインID一覧
  @システムCD varchar(12)

AS

SELECT ログインID FROM TC0アクセスログ WHERE システムCD = @システムCD GROUP BY ログインID ORDER BY ログインID









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SP0アクセスログ一覧
  @システムCD varchar(12)
, @ログインID varchar(12)

AS

SELECT * FROM TC0アクセスログ WHERE システムCD = @システムCD AND ログインID LIKE @ログインID ORDER BY ログイン試行日時 DESC









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SP0アクセスログ更新
  @システムCD varchar(12)
, @ログインID varchar(12)
, @ログインパスワード varchar(12)
, @リモートアドレス varchar(30)
, @接続成否 varchar(2)
, @保存日数 int

AS

begin transaction

INSERT INTO TC0アクセスログ (システムCD, ログイン試行日時, ログインID, ログインパスワード, リモートアドレス, 接続成否)
VALUES (@システムCD, GETDATE(), @ログインID, @ログインパスワード, @リモートアドレス, @接続成否)

if @@error <> 0 begin
	rollback transaction
	select -1  return
end

DELETE
FROM TC0アクセスログ
WHERE ログイン試行日時 < GETDATE() - @保存日数

if @@error <> 0 begin
	rollback transaction
	select -1  return
end

commit transaction






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

CREATE PROCEDURE dbo.SP0伝票採番取得
@システムCD varchar(12), @演習CD varchar(12)    , @会社CD varchar(20)   , @取引日 datetime, @伝票区分 varchar(12)

AS

declare @番号  int
declare @伝票番号 varchar(12)

begin transaction

	if @伝票区分 = 'D6'
	begin
		if exists(SELECT * FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票処理区分 = 9 AND 伝票番号 <> '9999999')
		begin
			select @番号 = (SELECT MAX(伝票番号) FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票処理区分 = 9 AND 伝票番号 <> '9999999')
			select @番号 = @番号 + 1			
		end
		else
		begin 
			select @番号 = '9000001'
		end
	end
	else
	begin

	
	
		SET @番号 = 1
		While @番号 < 1000
		begin
			set @伝票番号 = (YEAR(@取引日)-2000) * 100000 + MONTH(@取引日) * 1000 + @番号
			set @伝票番号 = REPLACE(STR(@伝票番号, 7), ' ','0')
			if not(exists(SELECT 伝票番号 FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号))
			begin
				Break
			end
			SET @番号 = @番号 + 1
		end
		

	end

commit transaction
select @伝票番号
return @伝票番号










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE  PROCEDURE dbo.SPB銀行取引書類一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS

declare @フラグ int
declare @フラグ銀行 int
declare @フラグ文書 int

SET @フラグ = 1
If @作成会社CD = ''
begin
	SET @フラグ = 0
end

SET @フラグ銀行 = 1
If @会社CD = ''
begin
	SET @フラグ銀行 = 0
end

SET @フラグ文書 = 1
If @文書種類CD = ''
begin
	SET @フラグ文書 = 0
end

SELECT TSB銀行取引申込書類F.*, TTX文書F.開封フラグ, 振込先.会社CD AS 振込先CD
FROM TSB銀行取引申込書類F
LEFT OUTER JOIN TTX文書F
	ON TSB銀行取引申込書類F.システムCD = TTX文書F.システムCD
	AND TSB銀行取引申込書類F.演習CD = TTX文書F.演習CD
	AND TSB銀行取引申込書類F.会社CD = TTX文書F.会社CD
	AND TSB銀行取引申込書類F.作成会社CD = TTX文書F.作成会社CD
	AND TSB銀行取引申込書類F.文書種類CD = TTX文書F.文書種類CD
	AND TSB銀行取引申込書類F.文書内容CD = TTX文書F.文書内容CD
/*	AND TSB銀行取引申込書類F.取引先CD = TTX文書F.取引先CD この行はいらない気が */
LEFT OUTER JOIN TGB銀行口座F 振込先
	ON TSB銀行取引申込書類F.システムCD = 振込先.システムCD
	AND TSB銀行取引申込書類F.演習CD = 振込先.演習CD
	AND TSB銀行取引申込書類F.振込先銀行CD = 振込先.銀行CD
	AND TSB銀行取引申込書類F.振込先口座区分 = 振込先.口座区分
	AND TSB銀行取引申込書類F.振込先口座番号 = 振込先.口座番号
INNER JOIN TDA会社M
	ON TSB銀行取引申込書類F.システムCD = TDA会社M.システムCD
	AND TSB銀行取引申込書類F.演習CD = TDA会社M.演習CD
	AND TSB銀行取引申込書類F.会社CD = TDA会社M.会社CD
WHERE TSB銀行取引申込書類F.システムCD = @システムCD
	AND TSB銀行取引申込書類F.演習CD = @演習CD
--	AND TSB銀行取引申込書類F.会社CD = @会社CD
	AND ((1 = @フラグ銀行 AND TSB銀行取引申込書類F.会社CD = @会社CD) OR (0 = @フラグ銀行 AND TDA会社M.業種CD = 'B'))
	AND ((1 = @フラグ AND TSB銀行取引申込書類F.作成会社CD = @作成会社CD) OR (0 = @フラグ AND TSB銀行取引申込書類F.作成会社CD != @会社CD))
--	AND TSB銀行取引申込書類F.文書種類CD = @文書種類CD
	AND ((1 = @フラグ文書 AND TSB銀行取引申込書類F.文書種類CD = @文書種類CD) OR (0 = @フラグ文書))
ORDER BY TSB銀行取引申込書類F.処理日 DESC










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行取引書類入出金フラグ適用
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

UPDATE TSB銀行取引申込書類F 
SET 入出金フラグ = 1
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行取引書類削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	UPDATE TSB銀行取引申込書類F 
	SET 削除フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
	作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE         TTX文書F
	SET                削除フラグ = 1
	FROM            TTX文書F INNER JOIN TSB銀行取引申込書類F ON 
              TTX文書F.システムCD = TSB銀行取引申込書類F.システムCD AND 
              TTX文書F.演習CD = TSB銀行取引申込書類F.演習CD AND 
              TTX文書F.会社CD = TSB銀行取引申込書類F.会社CD AND 
              TTX文書F.作成会社CD = TSB銀行取引申込書類F.作成会社CD AND 
              TTX文書F.文書種類CD = TSB銀行取引申込書類F.文書種類CD AND 
              TTX文書F.文書内容CD = TSB銀行取引申込書類F.文書内容CD
	WHERE 
              (TSB銀行取引申込書類F.システムCD = @システムCD) AND
              (TSB銀行取引申込書類F.演習CD = @演習CD) AND
              (TSB銀行取引申込書類F.会社CD = @会社CD) AND
              (TSB銀行取引申込書類F.作成会社CD = @作成会社CD) AND
              (TSB銀行取引申込書類F.文書種類CD = @文書種類CD) AND
              (TSB銀行取引申込書類F.文書内容CD = @文書内容CD)


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行取引書類削除2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	DELETE FROM TTX文書F
	FROM TTX文書F
	INNER JOIN TSB銀行取引申込書類F
		ON TTX文書F.システムCD = TSB銀行取引申込書類F.システムCD
		AND TTX文書F.演習CD = TSB銀行取引申込書類F.演習CD AND 
              TTX文書F.会社CD = TSB銀行取引申込書類F.会社CD AND 
              TTX文書F.作成会社CD = TSB銀行取引申込書類F.作成会社CD AND 
              TTX文書F.文書種類CD = TSB銀行取引申込書類F.文書種類CD AND 
              TTX文書F.文書内容CD = TSB銀行取引申込書類F.文書内容CD
	WHERE 
              (TSB銀行取引申込書類F.システムCD = @システムCD) AND
              (TSB銀行取引申込書類F.演習CD = @演習CD) AND
              (TSB銀行取引申込書類F.会社CD = @会社CD) AND
              (TSB銀行取引申込書類F.作成会社CD = @作成会社CD) AND
              (TSB銀行取引申込書類F.文書種類CD = @文書種類CD) AND
              (TSB銀行取引申込書類F.文書内容CD = @文書内容CD)

	DELETE FROM TSB銀行取引申込書類F 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
	作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行取引書類取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

declare @番号 int

begin transaction

SELECT TSB銀行取引申込書類F.*
	, TGA手形F.手形番号
FROM TSB銀行取引申込書類F
LEFT OUTER JOIN TGA手形F
	ON TSB銀行取引申込書類F.システムCD = TGA手形F.システムCD
	AND TSB銀行取引申込書類F.演習CD = TGA手形F.演習CD
--	AND TSB銀行取引申込書類F.会社CD = TGA手形F.会社CD
--	手形作成会社で結合しないと銀行側から見れない（081010小野）
	AND TSB銀行取引申込書類F.手形作成会社CD = TGA手形F.会社CD
	AND TSB銀行取引申込書類F.手形作成会社CD = TGA手形F.作成会社CD
	AND TSB銀行取引申込書類F.手形文書種類CD = TGA手形F.文書種類CD
	AND TSB銀行取引申込書類F.手形文書内容CD = TGA手形F.文書内容CD
WHERE TSB銀行取引申込書類F.システムCD = @システムCD
	AND TSB銀行取引申込書類F.演習CD = @演習CD
	AND TSB銀行取引申込書類F.会社CD = @会社CD
	AND TSB銀行取引申込書類F.作成会社CD = @作成会社CD
	AND TSB銀行取引申込書類F.文書種類CD = @文書種類CD
	AND TSB銀行取引申込書類F.文書内容CD = @文書内容CD

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行取引書類挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20),@文書種類CD varchar(2), @文書内容CD varchar(20)
, @処理日 datetime, @取引先CD varchar(20), @口座区分 varchar(12), @口座番号  varchar(40)
, @金額 money
, @受付区分 varchar(12)
/* BA */, @暗証番号 varchar(40)
/* BB */, @振込先銀行CD varchar(20), @振込先口座区分 varchar(12), @振込先口座番号 varchar(12), @振込手数料 money
/* BE, BF, BG */, @手形作成会社CD varchar(20), @手形文書種類CD varchar(2), @手形文書内容CD varchar(20)
/* BG */, @割引利率 float, @割引利率適用日数 int, @割引利息金額 money
, @先方処理日 datetime, @先方文書種類CD varchar(12), @先方文書内容CD varchar(20)
, @先方摘要 varchar(40), @摘要 varchar(40)
, @発行フラグ smallint, @返信フラグ  smallint, @削除フラグ smallint, @学生番号 varchar(40)
/* 口座開設の名義人管理のための追加
, @振込先会社CD varchar(20), @口座名義人 varchar(20), @口座名義人住所 varchar(40) , @口座名義人TEL  varchar(14), @口座名義人郵便番号 varchar(8)
*/
AS

declare @番号 int

begin transaction

	if @文書内容CD = ''
	begin
		SET @番号 = 1
		While @番号 <= 10000
		begin
			if not(exists(SELECT 文書内容CD FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = Convert(varchar, @番号)))
			begin
				SET @文書内容CD = Convert(varchar, @番号)
				Break
			end
			SET @番号 = @番号 + 1
		end
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSB銀行取引申込書類F
	 (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 
	取引先CD, 先方文書種類CD, 先方文書内容CD, 先方処理日, 口座区分, 口座番号, 
	処理日, 暗証番号, 金額, 受付区分, 
	振込先銀行CD , 振込先口座区分 , 振込先口座番号, 振込手数料, 
	手形作成会社CD, 手形文書種類CD, 手形文書内容CD, 
	割引利率, 割引利率適用日数, 割引利息金額,
	先方摘要, 摘要, 学生番号, 発行フラグ, 返信フラグ, 削除フラグ, 送受信区分 )
	VALUES     
	 (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, 
	@取引先CD, @先方文書種類CD, @先方文書内容CD, @先方処理日, @口座区分, @口座番号, 
	@処理日, @暗証番号, @金額, @受付区分, 
	@振込先銀行CD , @振込先口座区分 , @振込先口座番号, @振込手数料, 
	@手形作成会社CD, @手形文書種類CD, @手形文書内容CD, 
	@割引利率, @割引利率適用日数, @割引利息金額,
	@先方摘要, @摘要, @学生番号, @発行フラグ, @返信フラグ, @削除フラグ, 'S' )

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction

SELECT @文書内容CD
















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行取引書類挿入2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20),
@送受信区分 varchar(2), @取引先CD varchar(20), @口座区分 varchar(1), @口座番号 varchar(12),
@暗証番号 varchar(20), @金額 money,
@処理日 datetime, @受付区分 varchar(2), @摘要 varchar(40),
@振込先銀行CD varchar(20), @振込先口座区分 varchar(12), @振込先口座番号 varchar(12), 
@振込先会社CD varchar(20), @振込入金金額 money, @振込手数料 money,
@振込元銀行CD varchar(20), @振込元口座区分 varchar(12), @振込元口座番号 varchar(12), --11/11/21追加 
@手形小切手出金銀行CD varchar(20), @手形小切手出金口座区分 varchar(12), @手形小切手出金口座番号 varchar(12),
@手形小切手出金金額 varchar(20), 
@手形作成会社CD varchar(20), @手形文書種類CD varchar(2), @手形文書内容CD varchar(20),
@手形支払期日 datetime, @手形金額 money,
@割引利率 float, @割引利率適用日数 int, @割引利息金額 money,
@先方処理日 datetime, @先方文書種類CD varchar(2), @先方文書内容CD varchar(20), @先方摘要 varchar(40),
@学生番号 varchar(12)

AS

declare @番号 int

begin transaction

	if @文書内容CD = ''
	begin
		SET @番号 = 1
		While @番号 <= 10000
		begin
			if not(exists(SELECT 文書内容CD FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = Convert(varchar, @番号)))
			begin
				SET @文書内容CD = Convert(varchar, @番号)
				Break
			end
			SET @番号 = @番号 + 1
		end
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSB銀行取引申込書類F
	 (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD,
	送受信区分,
	取引先CD, 口座区分, 口座番号,
	暗証番号, 金額, 
	処理日, 受付区分, 摘要,
	振込先銀行CD, 振込先口座区分, 振込先口座番号, 
	振込先会社CD, 振込入金金額, 振込手数料,
	振込元銀行CD, 振込元口座区分, 振込元口座番号, 
	手形小切手出金銀行CD,  手形小切手出金口座区分, 手形小切手出金口座番号,
	手形小切手出金金額, 
	手形作成会社CD, 手形文書種類CD, 手形文書内容CD,
	手形支払期日, 手形金額, 割引利率,
	割引利率適用日数, 割引利息金額, 
	先方処理日, 先方文書種類CD, 先方文書内容CD, 先方摘要,
	発行フラグ, 返信フラグ, 削除フラグ, 学生番号
	 )
	VALUES     
	 (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD,
	@送受信区分,
	@取引先CD, @口座区分, @口座番号,
	@暗証番号, @金額, 
	@処理日, @受付区分, @摘要,
	@振込先銀行CD, @振込先口座区分, @振込先口座番号, 
	@振込先会社CD, @振込入金金額, @振込手数料,
	@振込元銀行CD, @振込元口座区分, @振込元口座番号, 
	@手形小切手出金銀行CD,  @手形小切手出金口座区分, @手形小切手出金口座番号,
	@手形小切手出金金額, 
	@手形作成会社CD, @手形文書種類CD, @手形文書内容CD,
	@手形支払期日, @手形金額, @割引利率,
	@割引利率適用日数, @割引利息金額, 
	@先方処理日, @先方文書種類CD, @先方文書内容CD, @先方摘要,
	0 , 0, 0, @学生番号
	)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction

SELECT @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行取引書類発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction
	SELECT @取引先CD = (SELECT 取引先CD FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手に書類を作成 */
	SELECT * INTO #TMP_TSB銀行取引申込書類F FROM TSB銀行取引申込書類F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TSB銀行取引申込書類F SET 会社CD = @取引先CD, 送受信区分 = 'R'
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


	INSERT INTO TSB銀行取引申込書類F SELECT * FROM #TMP_TSB銀行取引申込書類F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TSB銀行取引申込書類F SET 発行フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	UPDATE TSB銀行取引申込書類F SET 返信フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	end
commit transaction

select @文書内容CD
















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPB銀行取引書類発信2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction
	SELECT @取引先CD = (SELECT 取引先CD FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 */
--	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
--	begin
--		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
--	end
--	else
--	begin
--		select @番号 = 0
--	end 

--	SET @文書CD = @番号 + 1

--	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
--	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手に書類を作成 */
	SELECT * INTO #TMP_TSB銀行取引申込書類F FROM TSB銀行取引申込書類F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TSB銀行取引申込書類F SET 会社CD = @取引先CD, 送受信区分 = 'R'
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


	INSERT INTO TSB銀行取引申込書類F SELECT * FROM #TMP_TSB銀行取引申込書類F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 */
--	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
--	begin
--		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
--	end
--	else
--	begin
--		select @番号 = 0
--	end 
	
--	SET @文書CD = @番号 + 1

--	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
--	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TSB銀行取引申込書類F SET 発行フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	UPDATE TSB銀行取引申込書類F SET 返信フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	end
commit transaction

select @文書内容CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行取引書類返信取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @先方文書種類CD varchar(2), @先方文書内容CD varchar(20)

AS

declare @番号 int

begin transaction

SELECT * FROM TSB銀行取引申込書類F
WHERE システムCD = @システムCD AND  演習CD = @演習CD AND  会社CD = @会社CD AND  作成会社CD = @作成会社CD AND  先方文書種類CD = @先方文書種類CD AND 先方文書内容CD = @先方文書内容CD

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行取引書類返信済みフラグ適用
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	UPDATE TSB銀行取引申込書類F 
	SET 返信フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
	作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行取引書類開封
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

		UPDATE         TTX文書F
		SET                開封フラグ = 1
		FROM            TTX文書F INNER JOIN
                      TSB銀行取引申込書類F ON 
                      TTX文書F.システムCD = TSB銀行取引申込書類F.システムCD AND 
                      TTX文書F.演習CD = TSB銀行取引申込書類F.演習CD AND 
                      TTX文書F.会社CD = TSB銀行取引申込書類F.会社CD AND
                      TTX文書F.作成会社CD = TSB銀行取引申込書類F.作成会社CD AND
                      TTX文書F.文書種類CD = TSB銀行取引申込書類F.文書種類CD AND 
                      TTX文書F.文書内容CD = TSB銀行取引申込書類F.文書内容CD
		WHERE           (TSB銀行取引申込書類F.システムCD = @システムCD) AND 
                      (TSB銀行取引申込書類F.演習CD = @演習CD) AND 
                      (TSB銀行取引申込書類F.会社CD = @会社CD) AND 
                      (TSB銀行取引申込書類F.作成会社CD = @作成会社CD) AND 
                      (TSB銀行取引申込書類F.文書種類CD = @文書種類CD) AND 
                      (TSB銀行取引申込書類F.文書内容CD = @文書内容CD)


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPB銀行口座一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @銀行CD varchar(20), @口座区分 varchar(12)

AS

declare @学生番号 varchar(40)
declare @番号 int

begin transaction

	declare @演習区分  varchar(40) 

	if @口座区分 = ''
	begin
		SELECT @口座区分 = '%'
	end
	if @銀行CD = ''
	begin
		SELECT @銀行CD = '%'
	end

	SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

	if @会社CD = ''
	begin 
		SELECT @会社CD = '%'
		SELECT @学生番号 = '%'
	end
	else
	begin
		if @演習区分 = 'G'
		begin 
			SELECT @学生番号 = '%'
		end
		else
		begin
			SET @学生番号 = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
		end
	end

	SELECT          TGB銀行口座F.演習CD, TGB銀行口座F.銀行CD, TDA会社M.会社略名称 AS 銀行略名称, TGB銀行口座F.口座区分, 
                      TGB銀行口座F.口座番号, TGB銀行口座F.会社CD, TGB銀行口座F.暗証番号, 
                      ISNULL(SUM(TGB銀行口座入出金TRN.金額 * CASE WHEN RIGHT(TGB銀行口座入出金TRN.銀行取引区分, 1) 
                      = 'N' THEN 1 ELSE - 1 END), 0) AS 残高
	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
		AND TDA会社M.業種CD = 'B'
	 LEFT OUTER JOIN
                      TGB銀行口座入出金TRN ON 
                      TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD AND 
                      TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD AND 
                      TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD AND 
                      TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分 AND 
                      TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
	WHERE TGB銀行口座F.システムCD = @システムCD
		 AND TGB銀行口座F.演習CD = @演習CD
		 AND TGB銀行口座F.銀行CD LIKE @銀行CD
		 AND TGB銀行口座F.会社CD LIKE @会社CD
		 AND TGB銀行口座F.口座区分 LIKE @口座区分
		AND TDA会社M.学生番号 LIKE @学生番号
	GROUP BY     TGB銀行口座F.演習CD, TGB銀行口座F.システムCD, TGB銀行口座F.銀行CD, TGB銀行口座F.口座区分, 
                      TGB銀行口座F.口座番号, TGB銀行口座F.会社CD, TGB銀行口座F.暗証番号, TDA会社M.会社略名称
	ORDER BY TGB銀行口座F.会社CD, TGB銀行口座F.銀行CD, TGB銀行口座F.口座区分

commit transaction
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行口座一覧2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @銀行CD varchar(20), @口座区分 varchar(12), @学生番号 varchar(40)

AS

--declare @番号 int

begin transaction

declare @演習区分 varchar(40) 

if @口座区分 = ''
begin
	SELECT @口座区分 = '%'
end
if @銀行CD = ''
begin
	SELECT @銀行CD = '%'
end

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

if @会社CD = ''
begin 
	SELECT @会社CD = '%'
end
if @演習区分 = 'G'
begin 
	SELECT @学生番号 = '%'
end

SELECT TGB銀行口座F.演習CD
	, TGB銀行口座F.銀行CD
--	, 銀行.会社名称 AS 銀行名称
--	, 銀行.会社略名称 AS 銀行略名称
	, TGB銀行口座F.会社CD
--	, 会社.会社名称 AS 会社名称
--	, 会社.会社略名称 AS 会社略名称
	, TGB銀行口座F.口座区分
	, TGB銀行口座F.口座番号
	, TGB銀行口座F.暗証番号
	, A.口座区分名称
	, ISNULL(SUM(TGB銀行口座入出金TRN.金額 * CASE WHEN RIGHT(TGB銀行口座入出金TRN.銀行取引区分, 1) = 'N' THEN 1 ELSE - 1 END), 0) AS 残高
	, 銀行.会社名称 AS 銀行名称
	, 銀行.会社略名称 AS 銀行略名称
	, 会社.会社名称 AS 会社名称
	, 会社.会社略名称 AS 会社略名称
	, 会社.市場CD AS 市場CD
	, 会社.学生番号 AS 学生番号
	, 会社.自社フラグ AS 自社フラグ
FROM TGB銀行口座F 
INNER JOIN TDA会社M 銀行
	ON TGB銀行口座F.システムCD = 銀行.システムCD
	AND TGB銀行口座F.演習CD = 銀行.演習CD
	AND TGB銀行口座F.銀行CD = 銀行.会社CD 
INNER JOIN TDA会社M 会社
	ON TGB銀行口座F.システムCD = 会社.システムCD
	AND TGB銀行口座F.演習CD = 会社.演習CD
	AND TGB銀行口座F.会社CD = 会社.会社CD 
INNER JOIN (SELECT システムCD, 区分CD, データ識別, 区分名称 AS 口座区分名称 FROM TC9区分M WHERE システムCD = @システムCD AND データ識別 = '口座区分') A
	ON TGB銀行口座F.システムCD = A.システムCD
	AND TGB銀行口座F.口座区分 = A.区分CD
LEFT OUTER JOIN TGB銀行口座入出金TRN
	ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
	AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
	AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
	AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
	AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND TGB銀行口座F.銀行CD LIKE @銀行CD
	AND TGB銀行口座F.会社CD LIKE @会社CD
	AND TGB銀行口座F.口座区分 LIKE @口座区分
	AND 会社.学生番号 LIKE @学生番号
	AND (@演習区分 <> 'G' OR (@演習区分 = 'G' AND (銀行.学生番号 = '' OR 銀行.自社フラグ = 1))) --模擬実践では同時同業コピー銀行の口座を除外
GROUP BY TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.銀行CD
	, TGB銀行口座F.口座区分
	, TGB銀行口座F.口座番号
	, TGB銀行口座F.会社CD
	, TGB銀行口座F.暗証番号
	, 銀行.会社名称
	, 銀行.会社略名称
	, 会社.会社名称
	, 会社.会社略名称
	, A.口座区分名称
	, 会社.市場CD
	, 会社.学生番号
	, 会社.自社フラグ
ORDER BY TGB銀行口座F.会社CD
	, TGB銀行口座F.銀行CD
	, TGB銀行口座F.口座区分

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE  PROCEDURE dbo.SPB銀行口座一覧3
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @銀行CD varchar(20), @口座区分 varchar(12)

AS

begin transaction

	SELECT * FROM TGB銀行口座F
	WHERE TGB銀行口座F.システムCD = @システムCD
		 AND TGB銀行口座F.演習CD = @演習CD
		 AND TGB銀行口座F.会社CD = @会社CD
		 AND TGB銀行口座F.銀行CD = @銀行CD
		 AND TGB銀行口座F.口座区分 = @口座区分

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行口座一覧4
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

declare @学生番号 varchar(40)
declare @番号 int

declare @演習区分 varchar(40) 
SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT TGB銀行口座F.演習CD
	, TGB銀行口座F.銀行CD
	, TGB銀行口座F.口座区分
	, TGB銀行口座F.口座番号
	, TGB銀行口座F.会社CD
	, TGB銀行口座F.暗証番号
	, ISNULL(SUM(TGB銀行口座入出金TRN.金額 * CASE WHEN RIGHT(TGB銀行口座入出金TRN.銀行取引区分, 1) = 'N' THEN 1 ELSE - 1 END), 0) AS 残高
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
LEFT OUTER JOIN TGB銀行口座入出金TRN
	ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
	AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
	AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
	AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
	AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND TGB銀行口座F.会社CD LIKE @会社CD
	AND TDA会社M.業種CD = 'B' --業種が銀行以外に変更された幽霊口座を除外するため銀行のみで絞り込む
GROUP BY TGB銀行口座F.演習CD, TGB銀行口座F.システムCD
	, TGB銀行口座F.銀行CD
	, TGB銀行口座F.口座区分
	, TGB銀行口座F.口座番号
	, TGB銀行口座F.会社CD
	, TGB銀行口座F.暗証番号
ORDER BY TGB銀行口座F.会社CD
	, TGB銀行口座F.銀行CD
	, TGB銀行口座F.口座区分




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行口座入出金
@システムCD varchar(12), @演習CD varchar(12), @銀行CD varchar(20), @口座区分 varchar(12), @口座番号  varchar(40)
,@処理時期区分 smallint, @処理日 datetime, @金額 money, @銀行取引区分 varchar(12), @摘要 varchar(40), @学生番号 varchar(40)

AS

declare @番号 int
declare @入出金CD int

begin transaction

	if @処理時期区分 = 0 
	begin
		DELETE FROM TGB銀行口座入出金TRN  WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号 AND 処理時期区分 = @処理時期区分)
	end	

	if exists(SELECT 入出金CD FROM TGB銀行口座入出金TRN WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号))
	begin
		SELECT @番号 = (SELECT MAX(CONVERT(int, 入出金CD) )
			FROM TGB銀行口座入出金TRN 
			WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号)
			GROUP BY 口座番号, 口座区分, 銀行CD, 演習CD
			)

		SELECT @入出金CD = @番号 + 1	
	end
	else
	begin
		SELECT @入出金CD = 1
	end 

	SELECT @入出金CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT INTO TGB銀行口座入出金TRN (システムCD, 演習CD, 銀行CD, 口座区分, 口座番号, 入出金CD, 処理日, 金額, 銀行取引区分, 処理時期区分, 摘要, 学生番号)
VALUES        (@システムCD, @演習CD, @銀行CD, @口座区分, @口座番号, @入出金CD, @処理日, @金額, @銀行取引区分,  @処理時期区分, @摘要, @学生番号)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end
commit transaction

select @口座番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPB銀行口座入出金一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @銀行CD varchar(20), @口座区分 varchar(12), @口座番号 varchar(12)

AS

if @口座番号 = '' 
begin
	SELECT @口座番号 = '%'
end

if @口座区分 = '' 
begin
	SELECT @口座区分 = '%'
end

if @銀行CD = '' 
begin
	SELECT @銀行CD = '%'
end

if @会社CD = '' 
begin
	SELECT @会社CD = '%'
end

SELECT TGB銀行口座F.会社CD
	, TGB銀行口座F.暗証番号
	, TGB銀行口座入出金TRN.*
	, A.区分名称 As 銀行取引区分名称
FROM TGB銀行口座F 
INNER JOIN TGB銀行口座入出金TRN
	ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
	AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
	AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
	AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
	AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号 
INNER JOIN (SELECT  区分名称, 区分CD  FROM TC9区分M WHERE システムCD = @システムCD AND データ識別 = '銀行取引区分') A
	ON TGB銀行口座入出金TRN.銀行取引区分 = A.区分CD
INNER JOIN TDA会社M --業種「B」で絞り込むよう変更（161221小野）
	ON TGB銀行口座F.システムCD = TDA会社M.システムCD
	AND TGB銀行口座F.演習CD = TDA会社M.演習CD
	AND TGB銀行口座F.銀行CD = TDA会社M.会社CD
	AND TDA会社M.業種CD = 'B'
WHERE (TGB銀行口座F.システムCD LIKE @システムCD)
	AND (TGB銀行口座F.演習CD LIKE @演習CD)
	AND (TGB銀行口座F.会社CD LIKE @会社CD)
	AND (TGB銀行口座F.銀行CD LIKE @銀行CD)
	AND (TGB銀行口座F.口座区分 LIKE @口座区分)
	AND (TGB銀行口座F.口座番号 LIKE @口座番号)
--ORDER BY TGB銀行口座入出金TRN.処理日, TGB銀行口座F.銀行CD, TGB銀行口座F.口座区分, RIGHT(TGB銀行口座入出金TRN.銀行取引区分, 1), TGB銀行口座入出金TRN.入出金CD
ORDER BY TGB銀行口座入出金TRN.処理日, TGB銀行口座F.銀行CD, TGB銀行口座F.口座区分, TGB銀行口座入出金TRN.入出金CD --取引区分を優先ソートしないよう変更（080408小野）




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPB銀行口座入出金一覧2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @銀行CD varchar(20),  @口座区分 varchar(12), @口座番号 varchar(12)
AS

	SELECT          TGB銀行口座F.*,  TGB銀行口座入出金TRN.*, A.区分名称 As 銀行取引区分名称
	FROM            TGB銀行口座F 

	INNER JOIN
                      TGB銀行口座入出金TRN ON 
                      TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD AND 
                      TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD AND 
                      TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD AND 
                      TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分 AND 
                      TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号 
	INNER JOIN
		(SELECT  区分名称, 区分CD  FROM TC9区分M WHERE システムCD = @システムCD AND データ識別 = '銀行取引区分') A ON
		TGB銀行口座入出金TRN.銀行取引区分 = A.区分CD
	WHERE   (@口座区分 = 'T' AND (
                      (TGB銀行口座F.システムCD = @システムCD) AND 
                      (TGB銀行口座F.演習CD = @演習CD) AND 
                      (TGB銀行口座F.会社CD = @会社CD) AND
                      (TGB銀行口座F.銀行CD = @銀行CD) AND
                      (TGB銀行口座F.口座区分 = @口座区分) 
		 ) ) Or (@口座区分 <> 'T' AND (
                      (TGB銀行口座F.システムCD = @システムCD) AND 
                      (TGB銀行口座F.演習CD = @演習CD) AND 
                      (TGB銀行口座F.会社CD = @会社CD) AND
                      (TGB銀行口座F.銀行CD = @銀行CD) AND
                      (TGB銀行口座F.口座区分 = @口座区分) AND 
                      (TGB銀行口座F.口座番号 = @口座番号)
		 ) )
	ORDER BY     TGB銀行口座入出金TRN.処理日, TGB銀行口座F.銀行CD, TGB銀行口座F.口座区分, RIGHT(TGB銀行口座入出金TRN.銀行取引区分, 1), TGB銀行口座入出金TRN.入出金CD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行口座入出金削除
@システムCD varchar(12), @演習CD varchar(12)
, @銀行CD varchar(20), @口座区分 varchar(12), @口座番号 varchar(12), @入出金CD varchar(12) 

AS

begin transaction

DELETE FROM TGB銀行口座入出金TRN
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @演習CD
	AND TGB銀行口座入出金TRN.銀行CD = @銀行CD
	AND TGB銀行口座入出金TRN.口座区分 = @口座区分
	AND TGB銀行口座入出金TRN.口座番号 = @口座番号
	AND TGB銀行口座入出金TRN.入出金CD = @入出金CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行口座入出金取得
@システムCD varchar(12), @演習CD varchar(12), @銀行CD varchar(20), @口座区分 varchar(12), @口座番号  varchar(40)
,@処理時期区分 smallint, @処理日 datetime, @金額 money, @銀行取引区分 varchar(12), @摘要 varchar(40), @学生番号 varchar(40)

AS

declare @番号 int
declare @入出金CD int

begin transaction

	if @処理時期区分 = 0 
	begin
		DELETE FROM TGB銀行口座入出金TRN  WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号)
	end	

	if exists(SELECT 入出金CD FROM TGB銀行口座入出金TRN WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号))
	begin
		SELECT @番号 = (SELECT MAX(CONVERT(int, 入出金CD) )
			FROM TGB銀行口座入出金TRN 
			WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号)
			GROUP BY 演習CD, 銀行CD, 口座区分, 口座番号
			)

		SELECT @入出金CD = @番号 + 1	
	end
	else
	begin
		SELECT @入出金CD = 1
	end 

	SELECT @入出金CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT INTO TGB銀行口座入出金TRN (システムCD, 演習CD, 銀行CD, 口座区分, 口座番号, 入出金CD, 処理日, 金額, 銀行取引区分, 処理時期区分, 摘要, 学生番号)
VALUES        (@システムCD, @演習CD, @銀行CD, @口座区分, @口座番号, @入出金CD, @処理日, @金額, @銀行取引区分,  @処理時期区分, @摘要, @学生番号)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end
commit transaction

select @口座番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行口座入出金挿入
@システムCD varchar(12), @演習CD varchar(12), @銀行CD varchar(20), @口座区分 varchar(12), @口座番号  varchar(40)
,@処理時期区分 smallint, @処理日 datetime, @金額 money, @銀行取引区分 varchar(12), @摘要 varchar(40), @学生番号 varchar(40)
, @結果通知銀行CD varchar(20)
, @結果通知種類CD varchar(2)
, @結果通知内容CD varchar(20)

AS

declare @番号 int
declare @入出金CD int

begin transaction

	if @銀行CD <> '' 
	begin
		if @処理時期区分 = 0 
		begin
			DELETE FROM TGB銀行口座入出金TRN  WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号 AND 処理時期区分 = @処理時期区分)
		end	
	
		if exists(SELECT 入出金CD FROM TGB銀行口座入出金TRN WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号))
		begin
			SELECT @番号 = (SELECT MAX(CONVERT(int, 入出金CD) )
				FROM TGB銀行口座入出金TRN 
				WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号)
				GROUP BY 演習CD, 銀行CD, 口座区分, 口座番号
				)
	
			SELECT @入出金CD = @番号 + 1	
		end
		else
		begin
			SELECT @入出金CD = 1
		end 
	
		SELECT @入出金CD
		
		if @@error <> 0 
		   begin
		       rollback transaction
		       select -1  return
		   end
		
		INSERT INTO TGB銀行口座入出金TRN (システムCD, 演習CD, 銀行CD, 口座区分, 口座番号, 入出金CD, 処理日, 金額, 銀行取引区分, 処理時期区分, 摘要, 学生番号, 結果通知銀行CD, 結果通知種類CD, 結果通知内容CD)
		VALUES        (@システムCD, @演習CD, @銀行CD, @口座区分, @口座番号, @入出金CD, @処理日, @金額, @銀行取引区分,  @処理時期区分, @摘要, @学生番号, @結果通知銀行CD, @結果通知種類CD, @結果通知内容CD)
	end 
if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end
commit transaction

select @口座番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行口座入出金組戻
@システムCD varchar(12), @演習CD varchar(12)
, @結果通知銀行CD varchar(20)
, @結果通知種類CD varchar(2)
, @結果通知内容CD varchar(20)

AS

begin transaction

DELETE
FROM TGB銀行口座入出金TRN
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 結果通知銀行CD = @結果通知銀行CD
	AND 結果通知種類CD = @結果通知種類CD
	AND 結果通知内容CD = @結果通知内容CD
		
if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行口座入出金通帳挿入
@システムCD varchar(12), @演習CD varchar(12), @銀行CD varchar(20), @口座区分 varchar(12), @口座番号  varchar(40)
,@処理時期区分 smallint, @処理日 datetime, @金額 money, @銀行取引区分 varchar(12), @摘要 varchar(40), @学生番号 varchar(40)

AS

declare @入出金CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(CONVERT(int, 入出金CD)) AS 入出金CD FROM YTMP_TGB銀行口座入出金TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号 GROUP BY システムCD, 演習CD, 銀行CD, 口座区分, 口座番号)
	begin
		SELECT @番号 = (SELECT MAX(CONVERT(int, 入出金CD)) AS 入出金CD FROM YTMP_TGB銀行口座入出金TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号 GROUP BY システムCD, 演習CD, 銀行CD, 口座区分, 口座番号)
		SELECT @入出金CD = @番号 + 1	
	end
	else
	begin
		SELECT @入出金CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT INTO YTMP_TGB銀行口座入出金TRN (システムCD, 演習CD, 銀行CD, 口座区分, 口座番号, 入出金CD, 処理日, 金額, 銀行取引区分, 処理時期区分, 摘要, 学生番号)
VALUES        (@システムCD, @演習CD, @銀行CD, @口座区分, @口座番号, @入出金CD, @処理日, @金額, @銀行取引区分,  @処理時期区分, @摘要, @学生番号)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction












GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPB銀行口座入出金通帳更新
@システムCD varchar(12), @演習CD varchar(12), @銀行CD varchar(20), @口座区分 varchar(12), @口座番号  varchar(40)

AS
begin transaction

	DELETE FROM TGB銀行口座入出金TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TGB銀行口座入出金TRN
	SELECT      *
	FROM           YTMP_TGB銀行口座入出金TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TGB銀行口座入出金TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号

commit transaction

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE  PROCEDURE dbo.SPB銀行口座削除
@システムCD varchar(12), @演習CD varchar(12), @銀行CD varchar(20), @口座区分 varchar(12), @口座番号 varchar(40)

AS

DELETE FROM TGB銀行口座入出金TRN  
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号

DELETE FROM TGB銀行口座F  
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



















CREATE  PROCEDURE dbo.SPB銀行口座取得
@システムCD varchar(12), @演習CD varchar(12), @銀行CD varchar(20), @口座区分 varchar(12), @口座番号 varchar(40)

AS

declare @番号 int

begin transaction

	SELECT * FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND 口座番号 = @口座番号

commit transaction



















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行口座挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @銀行CD varchar(20), @口座区分 varchar(12), @口座番号 varchar(40)
,@処理日 datetime, @暗証番号 varchar(40), @金額 money, @摘要 varchar(40), @学生番号 varchar(40)

AS

declare @番号 int
declare @自社フラグ smallint	--マスタ会社確認のため

begin transaction

SET @自社フラグ = (SELECT 自社フラグ FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)

--マスタ会社の場合
if @自社フラグ <> 1
begin
	if @口座番号 = ''
	begin
		--採番
		--※?500001～?999999の範囲で採番する
		--※3999999は銀行自社別段なので採番から除外
		if @口座区分 = 'F'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 1500000 AND CONVERT(int, 口座番号) < 2000000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 1500000 AND CONVERT(int, 口座番号) < 2000000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 1500001
			end
		end
		else
		if @口座区分 = 'T'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 2500000 AND CONVERT(int, 口座番号) < 3000000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 2500000 AND CONVERT(int, 口座番号) < 3000000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 2500001
			end
		end
		else
		if @口座区分 = 'B'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 3500000 AND CONVERT(int, 口座番号) < 3999999)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 3500000 AND CONVERT(int, 口座番号) < 3999999)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 3500001
			end
		end
		else
		if @口座区分 = 'M'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 4500000 AND CONVERT(int, 口座番号) < 5000000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 4500000 AND CONVERT(int, 口座番号) < 5000000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 4500001
			end
		end
		else
		if @口座区分 = 'L'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 5500000 AND CONVERT(int, 口座番号) < 6000000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 5500000 AND CONVERT(int, 口座番号) < 6000000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 5500001
			end
		end
	end
end
--生徒自社の場合
else
begin
	if @口座番号 = ''
	begin
		--採番
		--※?000001～?499999の範囲で採番する
		if @口座区分 = 'F'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 1000000 AND CONVERT(int, 口座番号) < 1500000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 1000000 AND CONVERT(int, 口座番号) < 1500000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 1000001
			end
		end
		else
		if @口座区分 = 'T'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 2000000 AND CONVERT(int, 口座番号) < 2500000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 2000000 AND CONVERT(int, 口座番号) < 2500000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 2000001
			end
		end
		else
		if @口座区分 = 'B'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 3000000 AND CONVERT(int, 口座番号) < 3500000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 3000000 AND CONVERT(int, 口座番号) < 3500000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 3000001
			end
		end
		else
		if @口座区分 = 'M'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 4000000 AND CONVERT(int, 口座番号) < 4500000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 4000000 AND CONVERT(int, 口座番号) < 4500000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 4000001
			end
		end
		else
		if @口座区分 = 'L'
		begin
			if exists(SELECT 口座番号 FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 5000000 AND CONVERT(int, 口座番号) < 5500000)
			begin
				SELECT @番号 = (SELECT MAX(CONVERT(int, 口座番号)) FROM TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 銀行CD = @銀行CD AND 口座区分 = @口座区分 AND CONVERT(int, 口座番号) > 5000000 AND CONVERT(int, 口座番号) < 5500000)
				SELECT @口座番号 = @番号 + 1
			end
			else
			begin
				SELECT @口座番号 = 5000001
			end
		end
	end
end

INSERT INTO TGB銀行口座F (システムCD, 演習CD, 会社CD, 銀行CD, 口座区分, 口座番号, 処理日, 暗証番号, 摘要, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @銀行CD, @口座区分, @口座番号, @処理日, @暗証番号, @摘要, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @口座番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPB銀行口座挿入銀行自社別段
@システムCD varchar(12), @演習CD varchar(12), @処理日 datetime

AS

begin transaction

INSERT INTO TGB銀行口座F (システムCD, 演習CD, 会社CD
	, 銀行CD
	, 口座区分
	, 口座番号
	, 処理日
	, 暗証番号, 摘要, 学生番号)
SELECT @システムCD, @演習CD, TDA会社M.会社CD
	, TDA会社M.会社CD	--自社銀行
	, 'B'		--別段
	, '3999999'
	, @処理日	--会計開始日
	, '', '', ''
FROM TDA会社M
LEFT OUTER JOIN TGB銀行口座F
	ON TDA会社M.システムCD = TGB銀行口座F.システムCD
	AND TDA会社M.演習CD = TGB銀行口座F.演習CD
	AND TDA会社M.会社CD = TGB銀行口座F.会社CD
	AND TDA会社M.会社CD = TGB銀行口座F.銀行CD	--自社銀行
	AND TGB銀行口座F.口座区分 = 'B'	--別段
WHERE TDA会社M.システムCD = @システムCD
	AND TDA会社M.演習CD = @演習CD
	AND TDA会社M.業種CD = 'B'	--銀行会社のみ
	AND TGB銀行口座F.口座番号 IS NULL	--結合結果がNULLの会社にのみ挿入する

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPB銀行口座残高一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @銀行CD varchar(20), @口座区分 varchar(12), @集計日 datetime

AS

--SPB銀行口座一覧に集計日を付加したもの

declare @学生番号 varchar(40)
declare @番号 int
declare @演習区分  varchar(40) 

if @口座区分 = ''
begin
	SELECT @口座区分 = '%'
end
if @銀行CD = ''
begin
	SELECT @銀行CD = '%'
end

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

if @会社CD = ''
begin 
	SELECT @会社CD = '%'
	SELECT @学生番号 = '%'
end
else
begin
	if @演習区分 = 'G'
	begin 
		SELECT @学生番号 = '%'
	end
	else
	begin
		SET @学生番号 = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	end
end

SELECT          TGB銀行口座F.演習CD, TGB銀行口座F.銀行CD, TDA会社M.会社略名称 AS 銀行略名称, TGB銀行口座F.口座区分, 
                      TGB銀行口座F.口座番号, TGB銀行口座F.会社CD, TGB銀行口座F.暗証番号, 
                      ISNULL(SUM(TGB銀行口座入出金TRN.金額 * CASE WHEN RIGHT(TGB銀行口座入出金TRN.銀行取引区分, 1) 
                      = 'N' THEN 1 ELSE - 1 END), 0) AS 残高
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
		AND TDA会社M.業種CD = 'B'
LEFT OUTER JOIN
                      TGB銀行口座入出金TRN ON 
                      TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD AND 
                      TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD AND 
                      TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD AND 
                      TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分 AND 
                      TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
WHERE TGB銀行口座F.システムCD = @システムCD
		 AND TGB銀行口座F.演習CD = @演習CD
		 AND TGB銀行口座F.銀行CD LIKE @銀行CD
		 AND TGB銀行口座F.会社CD LIKE @会社CD
		 AND TGB銀行口座F.口座区分 LIKE @口座区分
		AND TDA会社M.学生番号 LIKE @学生番号
	AND TGB銀行口座入出金TRN.処理日 <= @集計日 --集計日以前
GROUP BY     TGB銀行口座F.演習CD, TGB銀行口座F.システムCD, TGB銀行口座F.銀行CD, TGB銀行口座F.口座区分, 
                    TGB銀行口座F.口座番号, TGB銀行口座F.会社CD, TGB銀行口座F.暗証番号, TDA会社M.会社略名称
ORDER BY TGB銀行口座F.会社CD, TGB銀行口座F.銀行CD, TGB銀行口座F.口座区分




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC保険一覧
@システムCD varchar(12),  @演習CD  varchar(12) , @会社CD  varchar(20)    

/*
+   SM保険一覧
+   TSK保険情報の取得を行う
+
*/

AS

SELECT TGC保険契約F.*, TDA会社M.会社名称, TC9区分M.区分名称, TC9区分M.区分CD
FROM TC9区分M INNER JOIN (TGC保険契約F 
INNER JOIN TDA会社M ON 
TGC保険契約F.システムCD = TDA会社M.システムCD AND 
TGC保険契約F.演習CD = TDA会社M.演習CD AND 
TGC保険契約F.取引先CD = TDA会社M.会社CD
) ON
 TC9区分M.システムCD = TGC保険契約F.システムCD AND
 TC9区分M.区分CD = TGC保険契約F.保険種別
  where TGC保険契約F.システムCD = @システムCD
    and TGC保険契約F.演習CD = @演習CD
    and TGC保険契約F.会社CD = @会社CD
ORDER BY TGC保険契約F.申込番号 DESC


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC保険削除
@システムCD varchar(12),  @演習CD      varchar(12)        ,  @会社CD  varchar(20),     @申込番号  smallint

AS

/* 対象データの削除 */
delete 
from TGC保険契約F
where システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD 
    and  申込番号   =   @申込番号

if @@error <> 0
   begin
       select -1  return
   end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC保険取得
@システムCD varchar(12),  @演習CD  varchar(12) , @会社CD  varchar(20) , @申込番号  smallint 

/*
+   SH保険情報取得
+   TGC保険契約F情報の取得を行う
+
*/

AS

SELECT TGC保険契約F.*
  from  TGC保険契約F
  where TGC保険契約F.システムCD = @システムCD
     and TGC保険契約F.演習CD = @演習CD
     and TGC保険契約F.会社CD = @会社CD
     and  TGC保険契約F.申込番号 = @申込番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPC保険更新
@システムCD varchar(12), @処理区分  smallint
, @演習CD varchar(12)        , @会社CD varchar(20)
, @申込番号  smallint          , @取引先CD varchar(20) 
, @保険種別     varchar(10)
, @保険区分 varchar(2)
, @申込年月日 datetime       , @保険開始年月日  datetime
, @保険終了年月日 datetime     , @商品CD varchar(20)      , @単価 money      , @数量 float
, @保険対象金額 money
, @料率 float                       , @請求金額 money            , @備考 varchar(40)

AS

begin transaction

if @処理区分 = 1
begin

/* 対象データの登録 */
if exists(SELECT * FROM TGC保険契約F where システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD)
begin 
	SELECT @申込番号 = (SELECT MAX(申込番号) AS 申込番号 FROM TGC保険契約F WHERE システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD GROUP BY 演習CD, 会社CD)
	SELECT @申込番号 = @申込番号 + 1
end
else
begin
	SELECT @申込番号 = 1
end

insert TGC保険契約F (
  システムCD             ,   演習CD             , 会社CD 
,  申込番号             , 取引先CD  
, 保険種別
, 保険区分
, 申込年月日          , 保険開始年月日  
, 保険終了年月日     , 商品CD             , 単価              , 数量 
, 保険対象金額
, 料率                  , 請求金額             , 備考        
)
values (
 @システムCD           ,  @演習CD           , @会社CD
,  @申込番号           , @取引先CD  
, @保険種別
, @保険区分
, @申込年月日        , @保険開始年月日  
, @保険終了年月日   , @商品CD             , @単価           , @数量 
, @保険対象金額
, @料率                , @請求金額           , @備考              
)

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

end

if @処理区分 = 2
begin

/* 対象データの更新 */
update TGC保険契約F
  set  取引先CD       =   @取引先CD 
      , 保険種別    =   @保険種別
      , 保険区分    =   @保険区分
      , 申込年月日    =   @申込年月日
      , 保険開始年月日    =   @保険開始年月日
      , 保険終了年月日    =   @保険終了年月日
      , 商品CD    =   @商品CD
      , 単価    =   @単価
      , 数量    =   @数量
      , 保険対象金額    =   @保険対象金額
      , 料率    =   @料率
      , 請求金額    =   @請求金額
      , 備考    =   @備考
from TGC保険契約F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  申込番号     =   @申込番号 
    and  会社CD     =   @会社CD

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

end

commit transaction

select @申込番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC出庫一覧
@システムCD varchar(12),  @演習CD  varchar(12) , @会社CD  varchar(20)    

/*
+   TC出庫一覧
+   TC出庫情報の取得を行う
+
*/

AS

SELECT TGC出庫F.*, TDA商品M.商品名称, TDA会社M.会社名称, TGC出庫F.出庫番号, TDA商品M.商品略名称, TDA会社M.会社略名称
FROM TDA商品M INNER JOIN (TDA会社M 
INNER JOIN TGC出庫F ON 
TDA会社M.システムCD = TGC出庫F.システムCD AND 
TDA会社M.演習CD = TGC出庫F.演習CD AND 
TDA会社M.会社CD = TGC出庫F.会社CD
) 
ON 
TDA商品M.システムCD = TGC出庫F.システムCD AND 
TDA商品M.演習CD = TGC出庫F.演習CD AND 
TDA商品M.商品CD = TGC出庫F.商品CD
  where TGC出庫F.システムCD = @システムCD
    and TGC出庫F.演習CD = @演習CD
    and TGC出庫F.会社CD = @会社CD
ORDER BY TGC出庫F.出庫番号 DESC


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC出庫削除
@システムCD varchar(12),  @演習CD      varchar(12)        ,  @会社CD  varchar(20),     @出庫番号  smallint

AS

/* 対象データの削除 */
delete 
from TGC出庫F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD 
    and  出庫番号   =   @出庫番号

if @@error <> 0
   begin
       select -1  return
   end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC出庫取得
@システムCD varchar(12),  @演習CD  varchar(12) , @会社CD  varchar(20) , @出庫番号  smallint 

/*
+   SS出庫情報取得
+   TGC出庫F情報の取得を行う
+
*/

AS

SELECT TGC出庫F.*, 
TGC寄託者台帳F.寄託者名称, TGC寄託者台帳F.寄託開始年月日, TGC寄託者台帳F.寄託保管期日, 
TGC寄託者台帳F.寄託数量, TGC寄託者台帳F.倉庫場所, TGC寄託者台帳F.倉庫種別, TGC寄託者台帳F.入庫年月日, TGC寄託者台帳F.寄託数量,
TGC寄託者台帳F.入庫数量, TGC寄託者台帳F.総出庫数, TGC寄託者台帳F.残高, TGC出庫F.保管料金, TGC出庫F.荷役料金, 
TGC寄託者台帳F.従量率, TGC寄託者台帳F.従価率, TGC寄託者台帳F.荷役料率
FROM TGC寄託者台帳F 
RIGHT OUTER JOIN TGC出庫F ON 
  (TGC寄託者台帳F.システムCD = TGC出庫F.システムCD)
 AND (TGC寄託者台帳F.演習CD = TGC出庫F.演習CD)
 AND (TGC寄託者台帳F.会社CD = TGC出庫F.会社CD)
 AND (TGC寄託者台帳F.寄託受付番号 = TGC出庫F.寄託受付番号)
  where TGC出庫F.システムCD = @システムCD
     and TGC出庫F.演習CD = @演習CD
     and TGC出庫F.会社CD = @会社CD
     and  TGC出庫F.出庫番号 = @出庫番号

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC出庫更新
@システムCD varchar(12), 
  @処理区分  smallint             , @演習CD varchar(12)         , @会社CD varchar(20)
, @出庫番号  smallint             , @寄託受付番号 smallint
, @商品CD    varchar(20)     , @寄託者CD varchar(20)       , @出庫年月日  datetime
, @期数 smallint                   , @出庫数量 float                 
, @請求倉庫料金 money          , @保管料金 money
, @荷役料金 money              , @摘要 varchar(40)

AS

if @処理区分 = 1
begin
/* 対象データの登録 */

	if exists(SELECT * FROM TGC出庫F where TGC出庫F.システムCD = @システムCD and TGC出庫F.演習CD = @演習CD and TGC出庫F.会社CD = @会社CD)
	begin 
		SELECT @出庫番号 = (SELECT MAX(出庫番号) AS 出庫番号 FROM TGC出庫F WHERE システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD GROUP BY 演習CD, 会社CD)
		SELECT @出庫番号 = @出庫番号 + 1
	end
	else
	begin
		SELECT @出庫番号 = 1
	end

insert TGC出庫F
(
 システムCD , 演習CD , 会社CD 
, 出庫番号 , 寄託受付番号 
, 商品CD , 寄託者CD , 出庫年月日 
, 期数 ,出庫数量 
, 請求倉庫料金 , 保管料金 
, 荷役料金 , 摘要 
)

values 
(
 @システムCD , @演習CD , @会社CD
, @出庫番号 , @寄託受付番号 
, @商品CD , @寄託者CD , @出庫年月日 
, @期数 , @出庫数量 
, @請求倉庫料金 , @保管料金 
, @荷役料金 , @摘要 
 
)
if @@error <> 0
 begin
 select -1 return
 end
end

if @処理区分 = 2
begin
/* 対象データの更新 */
update TGC出庫F
 set 
    寄託受付番号= @寄託受付番号
    , 商品CD= @商品CD
    , 寄託者CD= @寄託者CD 
    , 出庫年月日= @出庫年月日    
    , 期数=@期数 
    , 出庫数量= @出庫数量              
    , 請求倉庫料金= @請求倉庫料金
    , 保管料金= @保管料金 
    , 荷役料金=  @荷役料金 
    , 摘要= @摘要   
from TGC出庫F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD
    and  出庫番号     =   @出庫番号 

if @@error <> 0
   begin
       select -1  return
   end
end

select @出庫番号












GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC寄託一覧
@システムCD varchar(12),  @演習CD  varchar(12) , @会社CD  varchar(20)    

/*
+   SK寄託一覧
+   SK寄託一覧情報の取得を行う
+
*/

AS

SELECT TGC寄託者台帳F.*, TDA商品M.商品名称, TDA商品M.商品略名称, TGC寄託者台帳F.寄託受付番号
FROM TGC寄託者台帳F INNER JOIN TDA商品M ON 
 (TGC寄託者台帳F.システムCD = TDA商品M.システムCD)
AND (TGC寄託者台帳F.演習CD = TDA商品M.演習CD)
AND (TGC寄託者台帳F.商品CD = TDA商品M.商品CD) 
  where TGC寄託者台帳F.システムCD = @システムCD
    and TGC寄託者台帳F.演習CD = @演習CD
    and TGC寄託者台帳F.会社CD = @会社CD
ORDER BY TGC寄託者台帳F.寄託受付番号 DESC


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPC寄託入庫更新
@システムCD varchar(12),  @演習CD varchar(12), @会社CD varchar(20) , @作成会社CD varchar(20) ,@文書種類CD varchar(20), @文書内容CD varchar(20),
@取引先CD varchar(20), @寄託会社CD varchar(20), @運送会社CD varchar(20)
AS

/* 対象データの更新 */
	update TGA入出庫TRN set  有効フラグ= '1'
	where  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD
	if @@error <> 0
	   begin
	       select -1  return
	   end





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC寄託出庫数更新
@システムCD varchar(12),   @処理区分     smallint        , @演習CD varchar(12)         , @会社CD varchar(20) 
, @寄託受付番号  smallint     ,  @総出庫数  float               , @残高 float 

AS

/* if @処理区分 = 2 */
begin
/* 対象データの更新 */
update TGC寄託者台帳F
  set 
      寄託受付番号= @寄託受付番号
    , 総出庫数=@総出庫数  
    , 残高=@残高                   
from TGC寄託者台帳F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD
    and  寄託受付番号     =   @寄託受付番号 

if @@error <> 0
   begin
       select -1  return
   end
end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC寄託削除
@システムCD varchar(12),@演習CD      varchar(12)        ,  @会社CD  varchar(20),     @寄託受付番号  smallint

AS

/* 対象データの削除 */
delete 
from TGC寄託者台帳F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD 
    and  寄託受付番号   =   @寄託受付番号

if @@error <> 0
   begin
       select -1  return
   end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPC寄託取得
@システムCD varchar(12), @演習CD  varchar(12) , @会社CD  varchar(20) , @寄託受付番号  smallint 

/*
+   SK寄託情報取得一件情報取得
+   SK寄託情報取得一件を行う
+
*/

AS

SELECT SUM(TGC出庫F.出庫数量) AS 総出庫数
	, TGC寄託者台帳F.演習CD
	, TGC寄託者台帳F.会社CD
	, TGC寄託者台帳F.寄託受付番号
	, TGC寄託者台帳F.寄託者CD
	, TGC寄託者台帳F.寄託者名称
	, TGC寄託者台帳F.商品CD
	, TGC寄託者台帳F.寄託開始年月日
	, TGC寄託者台帳F.寄託保管期日
	, TGC寄託者台帳F.寄託数量
	, TGC寄託者台帳F.倉庫場所
	, TGC寄託者台帳F.倉庫種別
	, TGC寄託者台帳F.入庫年月日
	, TGC寄託者台帳F.入庫数量
	, TGC寄託者台帳F.単価
	, TGC寄託者台帳F.単量
	, TGC寄託者台帳F.荷姿
	, TGC寄託者台帳F.才数
	, TGC寄託者台帳F.摘要
	, TGC寄託者台帳F.残高
	, TGC寄託者台帳F.火災保険料金
	, TGC寄託者台帳F.火災保険料率
	, TGC寄託者台帳F.保管料金
	, TGC寄託者台帳F.荷役料金
	, TGC寄託者台帳F.従量率
	, TGC寄託者台帳F.従価率
	, TGC寄託者台帳F.荷役料率
	, TGC寄託者台帳F.倉荷証券請求フラグ
	, TGC寄託者台帳F.倉荷証券発行フラグ
	, TGC寄託者台帳F.倉荷証券回収フラグ
	, TGC寄託者台帳F.倉荷証券番号
	, TGC寄託者台帳F.倉荷証券回収日
	, TGC寄託者台帳F.倉荷証券発行手数料
	, TGC寄託者台帳F.学生番号
FROM TGC寄託者台帳F
LEFT OUTER JOIN TGC出庫F
	ON TGC寄託者台帳F.システムCD = TGC出庫F.システムCD
	AND TGC寄託者台帳F.演習CD = TGC出庫F.演習CD
	AND TGC寄託者台帳F.会社CD = TGC出庫F.会社CD
	AND TGC寄託者台帳F.寄託受付番号 = TGC出庫F.寄託受付番号
WHERE TGC寄託者台帳F.システムCD = @システムCD
	AND TGC寄託者台帳F.演習CD = @演習CD
	AND TGC寄託者台帳F.会社CD = @会社CD
	AND TGC寄託者台帳F.寄託受付番号 = @寄託受付番号
GROUP BY TGC寄託者台帳F.演習CD
	, TGC寄託者台帳F.会社CD
	, TGC寄託者台帳F.寄託受付番号
	, TGC寄託者台帳F.寄託者CD
	, TGC寄託者台帳F.寄託者名称
	, TGC寄託者台帳F.商品CD
	, TGC寄託者台帳F.寄託開始年月日
	, TGC寄託者台帳F.寄託保管期日
	, TGC寄託者台帳F.寄託数量
	, TGC寄託者台帳F.倉庫場所
	, TGC寄託者台帳F.倉庫種別
	, TGC寄託者台帳F.入庫年月日
	, TGC寄託者台帳F.入庫数量
	, TGC寄託者台帳F.単価
	, TGC寄託者台帳F.単量
	, TGC寄託者台帳F.荷姿
	, TGC寄託者台帳F.才数
	, TGC寄託者台帳F.摘要
	, TGC寄託者台帳F.残高
	, TGC寄託者台帳F.火災保険料金
	, TGC寄託者台帳F.火災保険料率
	, TGC寄託者台帳F.保管料金
	, TGC寄託者台帳F.荷役料金
	, TGC寄託者台帳F.従量率
	, TGC寄託者台帳F.従価率
	, TGC寄託者台帳F.荷役料率
	, TGC寄託者台帳F.倉荷証券請求フラグ
	, TGC寄託者台帳F.倉荷証券発行フラグ
	, TGC寄託者台帳F.倉荷証券回収フラグ
	, TGC寄託者台帳F.倉荷証券番号
	, TGC寄託者台帳F.倉荷証券回収日
	, TGC寄託者台帳F.倉荷証券発行手数料
	, TGC寄託者台帳F.学生番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO








CREATE PROCEDURE dbo.SPC寄託受付
@システムCD varchar(12),  @演習CD varchar(12), @会社CD varchar(20) , @作成会社CD varchar(20), @取引先CD varchar(20) ,@文書種類CD varchar(20), @文書内容CD varchar(20),
@寄託会社CD varchar(20), @運送会社CD varchar(20)

AS

/* 対象データの更新 */
	update TGC寄託者TRN set  有効フラグ= '1'
	where システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 
				作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 
				運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	if @@error <> 0
	   begin
	       select -1  return
	   end





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPC寄託更新
@システムCD varchar(12), @処理区分 smallint, @演習CD varchar(12), @会社CD varchar(20) 
, @寄託受付番号 smallint, @寄託者CD varchar(20), @寄託者名称 varchar(40)
, @商品CD varchar(20), @寄託開始年月日 datetime, @寄託保管期日 datetime
, @寄託数量 float, @倉庫場所 varchar(30), @倉庫種別 varchar(10)
, @入庫年月日 datetime, @入庫数量 float
, @単価 money
, @単量 real
, @荷姿 varchar(30)
, @才数 real
, @摘要 varchar(40)
, @総出庫数 float, @残高 float, @火災保険料金 money
, @火災保険料率 float, @保管料金 money, @荷役料金 money
, @従量率 float, @従価率 float, @荷役料率 float
--, @倉荷証券番号 smallint
, @倉荷証券番号 varchar(20)
, @倉荷証券発行手数料 money

AS

if @処理区分 = 1
begin
/* 対象データの登録 */

	if exists(SELECT * FROM TGC寄託者台帳F where システムCD = @システムCD and 演習CD = @演習CD and  会社CD = @会社CD)
	begin 
		SELECT @寄託受付番号 = (SELECT MAX( 寄託受付番号) AS 寄託受付番号MAX FROM TGC寄託者台帳F where システムCD = @システムCD and  演習CD = @演習CD and  会社CD = @会社CD GROUP BY  演習CD,  会社CD)
		SELECT @寄託受付番号 = @寄託受付番号 + 1
	end
	else
	begin
		SELECT @寄託受付番号 = 1
	end

	insert TGC寄託者台帳F (
	  システムCD             , 	  演習CD             , 会社CD 
	, 寄託受付番号        , 寄託者CD               , 寄託者名称
	, 商品CD             , 寄託開始年月日          , 寄託保管期日  
	, 寄託数量             , 倉庫場所                  , 倉庫種別
	, 入庫年月日       , 入庫数量
    , 単価, 単量, 荷姿, 才数
    , 摘要
	, 総出庫数             , 残高                       , 火災保険料金
	, 火災保険料率       , 保管料金                  , 荷役料金 
	, 従量率               , 従価率                     , 荷役料率 
	, 倉荷証券番号       , 倉荷証券発行手数料   
	)
	values (
	  @システムCD             , 	  @演習CD             , @会社CD 
	, @寄託受付番号        , @寄託者CD               , @寄託者名称
	, @商品CD             , @寄託開始年月日          , @寄託保管期日  
	, @寄託数量             , @倉庫場所                  , @倉庫種別 
	, @入庫年月日          , @入庫数量
    , @単価, @単量, @荷姿, @才数
    , @摘要 
	, @総出庫数             , @残高                       , @火災保険料金 
	, @火災保険料率        , @保管料金                  , @荷役料金 
	, @従量率                , @従価率                     , @荷役料率 
	, @倉荷証券番号        , @倉荷証券発行手数料 
	)

	if @@error <> 0
	begin
		select -1
		return
	end

end

if @処理区分 = 2
begin
/* 対象データの更新 */
	update TGC寄託者台帳F
	  set 
	      寄託受付番号= @寄託受付番号
	    , 寄託者CD= @寄託者CD
	    , 寄託者名称= @寄託者名称
	    , 商品CD= @商品CD
	    , 寄託開始年月日=@寄託開始年月日
	    , 寄託保管期日=@寄託保管期日
	    , 寄託数量=@寄託数量   
	    , 倉庫場所=@倉庫場所
	    , 倉庫種別=@倉庫種別
	    , 入庫年月日=@入庫年月日 
	    , 入庫数量=@入庫数量         
	    , 単価=@単価         
	    , 単量=@単量         
	    , 荷姿=@荷姿         
	    , 才数=@才数         
	    , 摘要=@摘要
	    , 総出庫数=@総出庫数  
	    , 残高=@残高                   
	    , 火災保険料金=@火災保険料金
	    , 火災保険料率 =@火災保険料率    
	    , 保管料金=@保管料金     
	    , 荷役料金=@荷役料金 
	    , 従量率=@従量率             
	    , 従価率=@従価率               
	    , 荷役料率=@荷役料率
	    , 倉荷証券番号=@倉荷証券番号  
	    , 倉荷証券発行手数料=@倉荷証券発行手数料
	from TGC寄託者台帳F
	where   システムCD     =   @システムCD
	    and  演習CD     =   @演習CD
	    and  会社CD     =   @会社CD
	    and  寄託受付番号     =   @寄託受付番号 

	if @@error <> 0
	begin
		select -1
		return
	end
end

select @寄託受付番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPC運送受信書類削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

		UPDATE         TTX文書F
		SET                削除フラグ = 1
		FROM            TTX文書F INNER JOIN
                      TSC運送書類F ON 
TTX文書F.システムCD = TSC運送書類F.システムCD AND 
TTX文書F.会社CD = TSC運送書類F.会社CD AND 
TTX文書F.文書種類CD = TSC運送書類F.文書種類CD AND 
TTX文書F.[文書内容CD] = TSC運送書類F.文書内容CD
		WHERE
           (TSC運送書類F.システムCD = @システムCD) AND
           (TSC運送書類F.演習CD = @演習CD) AND
           (TSC運送書類F.会社CD = @会社CD) AND 
           (TSC運送書類F.文書種類CD = @文書種類CD) AND
           (TSC運送書類F.文書内容CD = @文書内容CD) 


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送契約一覧
@システムCD varchar(12), @演習CD  varchar(12) , @会社CD  varchar(20)    

/*
+   SK運送契約一覧
+   SK運送契約一覧情報の取得を行う
+
*/

AS

SELECT TGC運送契約F.*, TDA会社M.会社略名称, TDA会社M.会社名称, TDA商品M.商品略名称, 
         TDA商品M.商品名称, TDA商品M.標準販売単価, TDA商品M.商品重量, TDA商品M.商品容積
FROM (TGC運送契約F INNER JOIN TDA会社M ON (TGC運送契約F.システムCD = TDA会社M.システムCD) AND (TGC運送契約F.演習CD = TDA会社M.演習CD) AND
       (TGC運送契約F.取引先CD = TDA会社M.会社CD)) INNER JOIN TDA商品M ON
       (TDA商品M.システムCD = TGC運送契約F.システムCD) AND (TDA商品M.演習CD = TGC運送契約F.演習CD) AND (TGC運送契約F.商品CD = TDA商品M.商品CD)
  where TGC運送契約F.システムCD = @システムCD
    and TGC運送契約F.演習CD = @演習CD
    and TGC運送契約F.会社CD = @会社CD

ORDER BY TGC運送契約F.申込番号 DESC


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送契約削除
@システムCD varchar(12), @演習CD      varchar(12)        ,  @会社CD  varchar(20),     @申込番号  smallint

AS

/* 対象データの削除 */
delete 
from TGC運送契約F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD 
    and  申込番号   =   @申込番号

if @@error <> 0
   begin
       select -1  return
   end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送契約取得
@システムCD varchar(12), @演習CD  varchar(12) , @会社CD  varchar(20) , @申込番号  smallint 

/*
+   SK運送契約情報取得一件情報取得
+   SK運送契約情報取得一件を行う
+
*/

AS

SELECT TGC運送契約F.*
FROM TGC運送契約F
  where TGC運送契約F.システムCD = @システムCD
     and TGC運送契約F.演習CD = @演習CD
     and TGC運送契約F.会社CD = @会社CD
     and  TGC運送契約F.申込番号 = @申込番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPC運送契約更新
@システムCD varchar(12), @処理区分 smallint, @演習CD varchar(12), @会社CD varchar(20) 
, @申込番号 smallint, @取引先CD varchar(20), @申込年月日 datetime 
, @荷受取引先CD varchar(20), @荷送取引先CD varchar(20), @商品CD varchar(20)
, @数量 float
, @単価 money
, @運賃 money, @地区割増料 money, @保険料金 money
, @料率 real
, @荷造料金 money, @請求金額 money
, @備考 varchar(40) 
, @計算用1 varchar(20) 
, @計算用2 varchar(20) 
, @計算用3 varchar(20) 
, @計算用4 varchar(20) 
, @計算用5 varchar(20) 
, @計算用6 varchar(20) 
, @計算用7 varchar(20) 
, @計算用8 varchar(20) 

AS

declare @番号 int 

if @処理区分 = 1
begin
/* 対象データの登録 */

	if exists(SELECT 申込番号 FROM TGC運送契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	begin
		select @番号 = (SELECT MAX(申込番号) FROM TGC運送契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	end
	else
	begin
		select @番号 = 0
	end 
	SELECT @申込番号 = @番号 + 1

insert TGC運送契約F
(
 システムCD   ,   演習CD         , 会社CD 
, 申込番号        , 取引先CD               , 申込年月日
,荷受取引先CD   ,  荷送取引先CD         , 商品CD
, 数量
, 単価 
, 運賃 ,  地区割増料   , 保険料金
, 料率
, 荷造料金        , 請求金額 
, 備考  
, 計算用1
, 計算用2
, 計算用3
, 計算用4
, 計算用5
, 計算用6
, 計算用7
, 計算用8
)

values 
(
  @システムCD             ,   @演習CD             , @会社CD 
, @申込番号        , @取引先CD               , @申込年月日
,@荷受取引先CD   ,  @荷送取引先CD         , @商品CD
, @数量
, @単価
, @運賃 ,  @地区割増料   , @保険料金 
, @料率
, @荷造料金        , @請求金額 
, @備考  
, @計算用1
, @計算用2
, @計算用3
, @計算用4
, @計算用5
, @計算用6
, @計算用7
, @計算用8
)
if @@error <> 0
   begin
       select -1  return
   end
end

if @処理区分 = 2
begin
/* 対象データの更新 */
update TGC運送契約F
  set 
 申込番号=@申込番号 
, 取引先CD=@取引先CD
, 申込年月日=@申込年月日
,荷受取引先CD=@荷受取引先CD
,荷送取引先CD=@荷送取引先CD
, 商品CD=@商品CD
, 数量=@数量
, 単価=@単価
, 運賃=@運賃
, 地区割増料=@地区割増料
, 保険料金=@保険料金
, 料率=@料率
, 荷造料金=@荷造料金
, 請求金額=@請求金額 
, 備考=@備考  
, 計算用1 = @計算用1  
, 計算用2 = @計算用2  
, 計算用3 = @計算用3  
, 計算用4 = @計算用4  
, 計算用5 = @計算用5  
, 計算用6 = @計算用6  
, 計算用7 = @計算用7  
, 計算用8 = @計算用8  
from TGC運送契約F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD
    and  申込番号     =   @申込番号 

if @@error <> 0
   begin
       select -1  return
   end
end

select @申込番号





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPC運送書類一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS

declare @フラグ int

	SET @フラグ = 1
	If @作成会社CD = ''
	begin
		SET @フラグ = 0
	end

	SELECT          TSC運送書類F.文書内容CD, TSC運送書類F.取引先CD, 
              TSC運送書類F.会社CD, TSC運送書類F.作成会社CD, TSC運送書類F.処理日, 
              TSC運送書類F.納入期日, TSC運送書類F.摘要, 
              TSC運送書類F.発行フラグ, TSC運送書類F.削除フラグ, TTX文書F.文書CD, 
              TTX文書F.開封フラグ, 返信フラグ,
              取引先.会社名称 AS 取引先名称, 取引先.会社略名称 AS 取引先略名称, 
              作成会社.会社名称 AS 作成会社名称, 作成会社.会社略名称 AS 作成会社略名称 
	FROM            TSC運送書類F LEFT OUTER JOIN
              TTX文書F ON
              TSC運送書類F.システムCD = TTX文書F.システムCD AND 
              TSC運送書類F.演習CD = TTX文書F.演習CD AND 
              TSC運送書類F.会社CD = TTX文書F.会社CD AND 
              TSC運送書類F.文書種類CD = TTX文書F.文書種類CD AND 
              TSC運送書類F.文書内容CD = TTX文書F.文書内容CD AND
	    TSC運送書類F.作成会社CD = TTX文書F.作成会社CD 
		INNER JOIN
                      TDA会社M 取引先 ON 
                      TSC運送書類F.システムCD = 取引先.システムCD AND 
                      TSC運送書類F.演習CD = 取引先.演習CD AND 
                      TSC運送書類F.取引先CD = 取引先.会社CD LEFT OUTER JOIN
                      TDA会社M 作成会社 ON 
                      TSC運送書類F.システムCD = 作成会社.システムCD AND 
                      TSC運送書類F.演習CD = 作成会社.演習CD AND 
                      TSC運送書類F.作成会社CD = 作成会社.会社CD 
		WHERE   
		TSC運送書類F.システムCD = @システムCD AND TSC運送書類F.演習CD = @演習CD AND TSC運送書類F.会社CD = @会社CD
		AND ((1 = @フラグ AND TSC運送書類F.作成会社CD = @作成会社CD) OR (0 = @フラグ AND TSC運送書類F.作成会社CD != @会社CD))
		 AND TSC運送書類F.文書種類CD = @文書種類CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送書類削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	UPDATE TSC運送書類F 
	SET 削除フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
	作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE         TTX文書F
	SET                削除フラグ = 1
	FROM            TTX文書F INNER JOIN TSC運送書類F ON 
              TTX文書F.システムCD = TSC運送書類F.システムCD AND 
              TTX文書F.演習CD = TSC運送書類F.演習CD AND 
              TTX文書F.会社CD = TSC運送書類F.会社CD AND 
              TTX文書F.作成会社CD = TSC運送書類F.作成会社CD AND 
              TTX文書F.文書種類CD = TSC運送書類F.文書種類CD AND 
              TTX文書F.文書内容CD = TSC運送書類F.文書内容CD
	WHERE 
              (TSC運送書類F.システムCD = @システムCD) AND
              (TSC運送書類F.演習CD = @演習CD) AND
              (TSC運送書類F.会社CD = @会社CD) AND
              (TSC運送書類F.作成会社CD = @作成会社CD) AND
              (TSC運送書類F.文書種類CD = @文書種類CD) AND
              (TSC運送書類F.文書内容CD = @文書内容CD)

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO









CREATE PROCEDURE dbo.SPC運送書類取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

SELECT TSC運送書類F.*
	, TSC運送書類明細F.文書内容SEQ
	, TSC運送書類明細F.商品CD
	, TSC運送書類明細F.数量
	, TSC運送書類明細F.単価
	, TDA商品M.市場CD 
FROM TSC運送書類F
	INNER JOIN TSC運送書類明細F ON TSC運送書類F.システムCD = TSC運送書類明細F.システムCD
		AND TSC運送書類F.演習CD = TSC運送書類明細F.演習CD
		AND TSC運送書類F.会社CD = TSC運送書類明細F.会社CD
		AND TSC運送書類F.作成会社CD = TSC運送書類明細F.作成会社CD
		AND TSC運送書類F.文書種類CD = TSC運送書類明細F.文書種類CD
		AND TSC運送書類F.文書内容CD = TSC運送書類明細F.文書内容CD
	LEFT OUTER JOIN	TDA商品M ON TDA商品M.システムCD = TSC運送書類明細F.システムCD
		AND TDA商品M.演習CD = TSC運送書類明細F.演習CD --070918小野
		AND TDA商品M.商品CD = TSC運送書類明細F.商品CD --070918小野 
WHERE TSC運送書類F.システムCD = @システムCD
	AND TSC運送書類F.演習CD = @演習CD
	AND TSC運送書類F.会社CD = @会社CD
	AND TSC運送書類F.作成会社CD = @作成会社CD
	AND TSC運送書類F.文書種類CD = @文書種類CD
	AND TSC運送書類F.文書内容CD = @文書内容CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送書類挿入
@システムCD varchar(12),@演習CD varchar(12),@会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), 
@処理日 datetime, @取引先CD  varchar(20),@運送先CD  varchar(20),
@先方文書種類CD  varchar(2), @先方文書内容CD  varchar(20), @先方処理日 datetime,
@納入期日 datetime, @納入場所区分  varchar(12), @運賃諸掛区分  varchar(12),
@運送会社CD varchar(20), @運送費 money, @運送費請求フラグ smallint, @摘要  varchar(40), @支払方法  varchar(40), @発行フラグ  varchar(12),@学生番号 varchar(12),

@文書内容SEQ1 smallint, @商品CD1 varchar(20), @数量1 int, @単価1 money,
@文書内容SEQ2 smallint, @商品CD2 varchar(20), @数量2 int, @単価2 money,
@文書内容SEQ3 smallint, @商品CD3 varchar(20), @数量3 int, @単価3 money,
@文書内容SEQ4 smallint, @商品CD4 varchar(20), @数量4 int, @単価4 money,
@文書内容SEQ5 smallint, @商品CD5 varchar(20), @数量5 int, @単価5 money

AS

declare @番号  int   

begin transaction
/* 文書内容CD */
	if @文書内容CD = ''
	begin
		SET @番号 = 1
		While @番号 <= 10000
		begin
			if not(exists(SELECT 文書内容CD FROM TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = Convert(varchar, @番号)))
			begin
				SET @文書内容CD = Convert(varchar, @番号)
				Break
			end
			SET @番号 = @番号 + 1
		end
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSC運送書類F　登録 */
INSERT INTO TSC運送書類F
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理日, 取引先CD,運送先CD, 
                      先方文書内容CD, 先方文書種類CD, 先方処理日, 納入期日, 
                      納入場所区分, 運賃諸掛区分, 運送会社CD, 運送費, 運送費請求フラグ, 摘要, 支払方法, 発行フラグ, 
                      学生番号)
                      VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理日, @取引先CD,  @運送先CD, 
                     @先方文書内容CD, @先方文書種類CD, @先方処理日, @納入期日, 
                     @納入場所区分, @運賃諸掛区分, @運送会社CD, @運送費, @運送費請求フラグ, @摘要, @支払方法, @発行フラグ, 
                      @学生番号)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSC運送書類F　登録 */
if @文書内容SEQ1 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @商品CD1, @数量1, @単価1)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ2 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @商品CD2, @数量2, @単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ3 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @商品CD3, @数量3, @単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ4 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @商品CD4, @数量4, @単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ5 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @商品CD5, @数量5, @単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end
commit transaction

select @文書内容CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送書類更新
@システムCD varchar(12),@演習CD varchar(12),@会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), 
@処理日 datetime, @取引先CD  varchar(20),@運送先CD  varchar(20),
@先方文書内容CD  varchar(20), @先方文書種類CD  varchar(2), @先方処理日 datetime,
@納入期日 datetime, @納入場所区分  varchar(12), @運賃諸掛区分  varchar(12),
@運送会社CD varchar(20), @運送費 money,  @運送費請求フラグ smallint, @摘要  varchar(40), @支払方法  varchar(40), @発行フラグ  varchar(12),@学生番号 varchar(12),
@文書内容SEQ1 smallint, @商品CD1 varchar(20), @数量1 int, @単価1 money,
@文書内容SEQ2 smallint, @商品CD2 varchar(20), @数量2 int, @単価2 money,
@文書内容SEQ3 smallint, @商品CD3 varchar(20), @数量3 int, @単価3 money,
@文書内容SEQ4 smallint, @商品CD4 varchar(20), @数量4 int, @単価4 money,
@文書内容SEQ5 smallint, @商品CD5 varchar(20), @数量5 int, @単価5 money

AS

declare @番号  int   

begin transaction

	UPDATE TSC運送書類F 
	SET 処理日 = @処理日, 取引先CD = @取引先CD, 運送先CD = @運送先CD,先方文書内容CD = @先方文書内容CD, 先方文書種類CD = @先方文書種類CD,
	先方処理日 = @先方処理日, 納入期日 = @納入期日, 納入場所区分 = @納入場所区分, 運賃諸掛区分 = @運賃諸掛区分, 
	運送会社CD = @運送会社CD, 運送費 = @運送費, 運送費請求フラグ = @運送費請求フラグ, 摘要 = @摘要, 支払方法 = @支払方法, 発行フラグ = @発行フラグ, 学生番号 = @学生番号
	WHERE 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end
	
	DELETE FROM TSC運送書類明細F
	WHERE 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSC運送書類明細F　登録 */
if @文書内容SEQ1 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD,  @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @商品CD1, @数量1, @単価1)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ2 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD,  @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @商品CD2, @数量2, @単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ3 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD,  @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @商品CD3, @数量3, @単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ4 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD,  @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @商品CD4, @数量4, @単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ5 is not null 
  begin 
		INSERT INTO TSC運送書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES         (@システムCD, @演習CD,  @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @商品CD5, @数量5, @単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end
commit transaction

select @文書内容CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送書類発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction
	SELECT @取引先CD = (SELECT 取引先CD FROM TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手に書類を作成 */
	SELECT * INTO #TMP_TSC運送書類F FROM TSC運送書類F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * INTO #TMP_TSC運送書類明細F FROM TSC運送書類明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	UPDATE #TMP_TSC運送書類F SET 会社CD = @取引先CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TSC運送書類明細F SET 会社CD = @取引先CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TSC運送書類F SELECT * FROM #TMP_TSC運送書類F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TSC運送書類明細F SELECT * FROM #TMP_TSC運送書類明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TSC運送書類F SET 発行フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 返信済みフラグを更新 */
	UPDATE TSC運送書類F SET 返信フラグ = 1


	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	end
commit transaction

select @文書内容CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPC運送書類開封
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20),@文書種類CD varchar(2), @文書内容CD varchar(20)

AS
		UPDATE         TTX文書F
		SET                開封フラグ = 1
		FROM            TTX文書F INNER JOIN
                      TSC運送書類F ON 
                      TTX文書F.システムCD = TSC運送書類F.システムCD AND 
                      TTX文書F.演習CD = TSC運送書類F.演習CD AND 
                      TTX文書F.会社CD = TSC運送書類F.会社CD AND 
                      TTX文書F.作成会社CD = TSC運送書類F.作成会社CD AND 
                      TTX文書F.文書種類CD = TSC運送書類F.文書種類CD AND 
                      TTX文書F.文書内容CD = TSC運送書類F.文書内容CD
		WHERE
                      (TSC運送書類F.システムCD = @システムCD) AND
                      (TSC運送書類F.演習CD = @演習CD) AND
                      (TSC運送書類F.会社CD = @会社CD) AND 
                      (TSC運送書類F.作成会社CD = @作成会社CD) AND 
                      (TSC運送書類F.文書種類CD = @文書種類CD) AND
                      (TSC運送書類F.文書内容CD = @文書内容CD)


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求一覧
@システムCD varchar(12),  @演習CD varchar(12), @運送会社CD varchar(20), @会社CD varchar(20), @処理日 datetime

/*
+   SC運送費請求書詳細
+   SC運送費請求書詳細情報の取得を行う
+
*/
AS

SELECT         *
FROM 		TSA仕入売上書類F
WHERE      
 システムCD = @システムCD
 AND 演習CD = @演習CD
 AND 運送会社CD = @運送会社CD
 AND 処理日 <= @処理日
 AND 文書種類CD IN ('KN', 'KP' , 'KV')
 AND (運賃諸掛区分 = 'U' OR 運賃諸掛区分 = 'K')
 AND 発行フラグ = 1
 AND 会社CD = @会社CD
 AND 運送費 <> 0
ORDER BY 処理日
















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求先一覧
@システムCD varchar(12),@演習CD varchar(12), @運送会社CD varchar(20), @処理日 datetime

AS
SELECT             演習CD,
		 会社CD As 請求先CD, 
                     Sum(運送費) AS 運送費の合計, 
                     Count(取引先CD) AS 件数
FROM              TSA仕入売上書類F 
WHERE   
 システムCD = @システムCD 
 AND 演習CD = @演習CD 
 AND 運送会社CD = @運送会社CD 
 AND 処理日 <= @処理日 
 AND 文書種類CD IN ('KN', 'KP' , 'KV')
 AND (運賃諸掛区分 = 'U' OR 運賃諸掛区分 = 'K')
 AND 発行フラグ = 1
 AND 運送費 <> 0
GROUP BY       演習CD, 会社CD
















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPC運送費請求先未請求一覧
@システムCD varchar(12),@演習CD varchar(12), @運送会社CD varchar(20), @処理日 datetime

AS

SELECT TSA仕入売上書類F.演習CD
	, TSA仕入売上書類F.会社CD AS 請求先CD
	, SUM(TSA仕入売上書類F.運送費) AS 運送費の合計
	, COUNT(TSA仕入売上書類F.取引先CD) AS 件数
FROM (
	SELECT TSA仕入売上書類F.システムCD
		, TSA仕入売上書類F.演習CD
		, TSA仕入売上書類F.会社CD
		, TSA仕入売上書類F.文書種類CD
		, TSA仕入売上書類F.文書内容CD
	FROM TSA仕入売上書類F
	INNER JOIN TSC運送費請求書F
		ON TSA仕入売上書類F.システムCD = TSC運送費請求書F.システムCD
		AND TSA仕入売上書類F.演習CD = TSC運送費請求書F.演習CD
		AND TSA仕入売上書類F.運送会社CD = TSC運送費請求書F.会社CD
		AND (
			CHARINDEX(',' + TSA仕入売上書類F.会社CD + ':' + CONVERT(varchar, TSA仕入売上書類F.文書内容CD), TSC運送費請求書F.納品請求書番号群) > 0
				OR CHARINDEX(',' + TSA仕入売上書類F.会社CD + ':' + TSA仕入売上書類F.文書種類CD + ':' + CONVERT(varchar, TSA仕入売上書類F.文書内容CD), TSC運送費請求書F.納品請求書番号群) > 0
				OR CHARINDEX(TSA仕入売上書類F.会社CD + ':' + CONVERT(varchar, TSA仕入売上書類F.文書内容CD), TSC運送費請求書F.納品請求書番号群) = 1
				OR CHARINDEX(TSA仕入売上書類F.会社CD + ':' + TSA仕入売上書類F.文書種類CD + ':' + CONVERT(varchar, TSA仕入売上書類F.文書内容CD), TSC運送費請求書F.納品請求書番号群) = 1
		)
	WHERE TSA仕入売上書類F.システムCD = @システムCD
		AND TSA仕入売上書類F.演習CD = @演習CD
		AND TSA仕入売上書類F.運送会社CD = @運送会社CD
) A
RIGHT OUTER JOIN TSA仕入売上書類F
	ON A.システムCD = TSA仕入売上書類F.システムCD
	AND A.演習CD = TSA仕入売上書類F.演習CD
	AND A.会社CD = TSA仕入売上書類F.会社CD
	AND A.文書種類CD = TSA仕入売上書類F.文書種類CD
	AND A.文書内容CD = TSA仕入売上書類F.文書内容CD
WHERE A.演習CD IS NULL
	AND TSA仕入売上書類F.システムCD = @システムCD 
	AND TSA仕入売上書類F.演習CD = @演習CD 
	AND TSA仕入売上書類F.運送会社CD = @運送会社CD 
	AND TSA仕入売上書類F.処理日 <= @処理日 
	AND TSA仕入売上書類F.発行フラグ = 1
	AND TSA仕入売上書類F.運送費 <> 0
	AND TSA仕入売上書類F.文書種類CD IN ('KN', 'KP', 'KV')
	AND (TSA仕入売上書類F.運賃諸掛区分 = 'U' OR TSA仕入売上書類F.運賃諸掛区分 = 'K')
GROUP BY TSA仕入売上書類F.演習CD
	, TSA仕入売上書類F.会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

	SELECT  会社CD,  'CA' As 文書種類CD, 文書内容CD, 処理日, 取引先CD, 摘要, 支払方法, 発行フラグ, 学生番号, 削除フラグ, 納品請求書番号群 
	FROM TSC運送費請求書F 
	WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPC運送費請求書取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(12)

AS

if exists(SELECT * FROM TSC運送費請求書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND @作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
begin
	--自動
	SELECT 'CA' As 文書区分, *
	FROM TSC運送費請求書F
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 会社CD = @会社CD
		AND 作成会社CD = @作成会社CD
		AND 文書種類CD = @文書種類CD
		AND 文書内容CD = @文書内容CD
end
else
begin
	--手動
	SELECT 'CD' As 文書区分, *
	FROM TSC運送費請求書手動F
	INNER JOIN TSC運送費請求書手動明細F
		ON TSC運送費請求書手動F.システムCD = TSC運送費請求書手動明細F.システムCD
		AND TSC運送費請求書手動F.演習CD = TSC運送費請求書手動明細F.演習CD
		AND TSC運送費請求書手動F.会社CD = TSC運送費請求書手動明細F.会社CD
		AND TSC運送費請求書手動F.作成会社CD = TSC運送費請求書手動明細F.作成会社CD
		AND TSC運送費請求書手動F.文書種類CD = TSC運送費請求書手動明細F.文書種類CD
		AND TSC運送費請求書手動F.文書内容CD = TSC運送費請求書手動明細F.文書内容CD
	WHERE TSC運送費請求書手動F.システムCD = @システムCD
		AND TSC運送費請求書手動F.演習CD = @演習CD
		AND TSC運送費請求書手動F.会社CD = @会社CD
		AND TSC運送費請求書手動F.作成会社CD = @作成会社CD
		AND TSC運送費請求書手動F.文書種類CD = @文書種類CD
		AND TSC運送費請求書手動F.文書内容CD = @文書内容CD
	ORDER BY 文書内容SEQ
end




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書手動一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS
begin transaction
	declare @フラグ int
	SET @フラグ = 1
	If @作成会社CD = ''
	begin
		SET @フラグ = 0
	end

	SELECT TSC運送費請求書手動F.*, TTX文書F.開封フラグ
	FROM            TSC運送費請求書手動F LEFT OUTER JOIN
                     TTX文書F ON TSC運送費請求書手動F.システムCD = TTX文書F.システムCD AND 
                     TSC運送費請求書手動F.演習CD = TTX文書F.演習CD AND 
                     TSC運送費請求書手動F.会社CD = TTX文書F.会社CD AND 
                     TSC運送費請求書手動F.文書種類CD = TTX文書F.文書種類CD AND 
                     TSC運送費請求書手動F.文書内容CD = TTX文書F.文書内容CD AND 
                     TSC運送費請求書手動F.取引先CD = TTX文書F.取引先CD
	WHERE           (TSC運送費請求書手動F.システムCD = @システムCD) AND  (TSC運送費請求書手動F.演習CD = @演習CD)
	 AND (TSC運送費請求書手動F.会社CD = @会社CD) 
	AND ((1 = @フラグ AND TSC運送費請求書手動F.作成会社CD = @作成会社CD) OR (0 = @フラグ AND TSC運送費請求書手動F.作成会社CD != @会社CD))
	AND(TSC運送費請求書手動F.文書種類CD = @文書種類CD)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書手動削除
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction

DELETE FROM TSC運送費請求書手動F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD 

DELETE FROM TSC運送費請求書手動明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

commit transaction

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書手動取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction
		SELECT          *
		FROM            TSC運送費請求書手動F INNER JOIN
                      TSC運送費請求書手動明細F ON 
                      TSC運送費請求書手動F.システムCD = TSC運送費請求書手動明細F.システムCD AND 
                      TSC運送費請求書手動F.演習CD = TSC運送費請求書手動明細F.演習CD AND 
                      TSC運送費請求書手動F.会社CD = TSC運送費請求書手動明細F.会社CD AND 
                      TSC運送費請求書手動F.作成会社CD = TSC運送費請求書手動明細F.作成会社CD AND 
                      TSC運送費請求書手動F.文書種類CD = TSC運送費請求書手動明細F.文書種類CD AND 
                      TSC運送費請求書手動F.文書内容CD = TSC運送費請求書手動明細F.文書内容CD
		WHERE         
                      (TSC運送費請求書手動F.システムCD = @システムCD) AND 
                      (TSC運送費請求書手動F.演習CD = @演習CD) AND 
                      (TSC運送費請求書手動F.会社CD = @会社CD) AND 
                      (TSC運送費請求書手動F.作成会社CD = @作成会社CD) AND 
                      (TSC運送費請求書手動F.文書種類CD = @文書種類CD) AND 
                      (TSC運送費請求書手動F.文書内容CD = @文書内容CD) 
		ORDER BY 文書内容SEQ

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書手動挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20), 
@処理日 datetime, @取引先CD  varchar(20),  @支払方法  varchar(40), @摘要  varchar(40), @発行フラグ  varchar(12), @削除フラグ  varchar(12), @学生番号 varchar(12),
@文書内容SEQ1 smallint, @運送日1 datetime, @運送先CD1 varchar(20), @運送費1 money,
@文書内容SEQ2 smallint, @運送日2 datetime, @運送先CD2 varchar(20), @運送費2 money,
@文書内容SEQ3 smallint, @運送日3 datetime, @運送先CD3 varchar(20), @運送費3 money,
@文書内容SEQ4 smallint, @運送日4 datetime, @運送先CD4 varchar(20), @運送費4 money,
@文書内容SEQ5 smallint, @運送日5 datetime, @運送先CD5 varchar(20), @運送費5 money

AS

declare @番号 int   

begin transaction
/* 文書内容CD */

	if @文書内容CD = ''
	begin
		SET @番号 = 1
		While @番号 <= 10000
		begin
			if not(exists(SELECT 文書内容CD FROM TSC運送費請求書手動F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = Convert(varchar, @番号)))
			begin
				SET @文書内容CD = Convert(varchar, @番号)
				Break
			end
			SET @番号 = @番号 + 1
		end
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT INTO TSC運送費請求書手動F
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD,文書内容CD, 処理日, 取引先CD, 摘要, 支払方法, 発行フラグ, 学生番号, 削除フラグ)
VALUES       (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理日, @取引先CD, @摘要, @支払方法, @発行フラグ, @学生番号, @削除フラグ)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSC運送書類F　登録 */
if @文書内容SEQ1 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD,文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES        (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @運送日1, @運送先CD1, @運送費1)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

if @文書内容SEQ2 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD,文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES        (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @運送日2, @運送先CD2, @運送費2)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

if @文書内容SEQ3 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD,文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES        (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @運送日3, @運送先CD3, @運送費3)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

if @文書内容SEQ4 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD,文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES        (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @運送日4, @運送先CD4, @運送費4)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

if @文書内容SEQ5 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD,文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES        (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @運送日5, @運送先CD5, @運送費5)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

commit transaction

select @文書内容CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書手動更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20), 
@処理日 datetime, @取引先CD  varchar(20),  @支払方法  varchar(40), @摘要  varchar(40), @発行フラグ  varchar(12), @削除フラグ  varchar(12), @学生番号 varchar(12),
@文書内容SEQ1 smallint, @運送日1 datetime, @運送先CD1 varchar(20), @運送費1 money,
@文書内容SEQ2 smallint, @運送日2 datetime, @運送先CD2 varchar(20), @運送費2 money,
@文書内容SEQ3 smallint, @運送日3 datetime, @運送先CD3 varchar(20), @運送費3 money,
@文書内容SEQ4 smallint, @運送日4 datetime, @運送先CD4 varchar(20), @運送費4 money,
@文書内容SEQ5 smallint, @運送日5 datetime, @運送先CD5 varchar(20), @運送費5 money

AS

begin transaction
/* 文書内容CD */

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

UPDATE TSC運送費請求書手動F
SET 処理日 = @処理日, 取引先CD = @取引先CD, 摘要 = @摘要, 支払方法 = @支払方法, 発行フラグ = @発行フラグ, 学生番号 = @学生番号, 削除フラグ = @削除フラグ
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

DELETE TSC運送費請求書手動明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSC運送書類F　登録 */
if @文書内容SEQ1 is not null 
  begin 

	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @運送日1, @運送先CD1, @運送費1)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

if @文書内容SEQ2 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @運送日2, @運送先CD2, @運送費2)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

if @文書内容SEQ3 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @運送日3, @運送先CD3, @運送費3)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

if @文書内容SEQ4 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @運送日4, @運送先CD4, @運送費4)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

if @文書内容SEQ5 is not null 
  begin 
	INSERT INTO TSC運送費請求書手動明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 運送日, 運送先CD, 運送費)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @運送日5, @運送先CD5, @運送費5)
	if @@error <> 0
   	begin
	       	rollback transaction
       		select -1  return
   	end
  end

commit transaction

select @文書内容CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書手動発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction
	SELECT @取引先CD = (SELECT 取引先CD FROM TSC運送費請求書手動F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TSC運送費請求書手動F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TSC運送費請求書手動F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手に書類を作成 */
	SELECT * INTO #TMP_TSC運送費請求書手動F FROM TSC運送費請求書手動F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * INTO #TMP_TSC運送費請求書手動明細F FROM TSC運送費請求書手動明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	UPDATE #TMP_TSC運送費請求書手動F SET 会社CD = @取引先CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TSC運送費請求書手動明細F SET 会社CD = @取引先CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TSC運送費請求書手動F SELECT * FROM #TMP_TSC運送費請求書手動F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TSC運送費請求書手動明細F SELECT * FROM #TMP_TSC運送費請求書手動明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TSC運送費請求書手動F SET 発行フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 返信済みフラグを更新 */
	UPDATE TSC運送費請求書手動F SET 返信フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	end
commit transaction

select @文書内容CD

























GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPC運送費請求書挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20),
@処理日 datetime, @取引先CD varchar(20),
@納品請求書番号群 varchar(8000),
@支払方法 varchar(40), @摘要 varchar(40), @発行フラグ smallint, @削除フラグ smallint, @学生番号 varchar(12)

AS

declare @番号1 int   
declare @番号2 int   

begin transaction

if exists(SELECT @文書内容CD FROM TSC運送費請求書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
begin
	select @番号1 = (SELECT MAX(CONVERT(int, 文書内容CD)) FROM TSC運送費請求書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
end
else
begin
	select @番号1 = 0
end 

select @文書内容CD = (@番号1 + 1)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TSC運送費請求書F (システムCD,  演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理日, 取引先CD, 納品請求書番号群, 支払方法, 摘要, 発行フラグ, 削除フラグ, 学生番号 )
VALUES ( @システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理日, @取引先CD, @納品請求書番号群, @支払方法, @摘要, @発行フラグ, @削除フラグ, @学生番号 )

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPC運送費請求書更新
@システムCD varchar(12),@演習CD varchar(12),@会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), 
@処理日 datetime, @取引先CD  varchar(20),
@納品請求書番号群  varchar(8000),
@支払方法  varchar(40),  @摘要  varchar(40), @発行フラグ smallint, @削除フラグ smallint, @学生番号 varchar(12)

AS

begin transaction

UPDATE TSC運送費請求書F
SET 処理日 = @処理日
	, 取引先CD = @取引先CD
	, 納品請求書番号群 = @納品請求書番号群
	, 支払方法 = @支払方法
	, 摘要 = @摘要
	, 発行フラグ = @発行フラグ
	, 削除フラグ = @削除フラグ
	, 学生番号 = @学生番号
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 作成会社CD = @作成会社CD
	AND 文書種類CD = @文書種類CD
	AND 文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction
	SELECT @取引先CD = (SELECT 取引先CD FROM TSC運送費請求書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TSC運送費請求書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TSC運送費請求書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手に書類を作成 */
	SELECT * INTO #TMP_TSC運送費請求書F FROM TSC運送費請求書F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TSC運送費請求書F SET 会社CD = @取引先CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TSC運送費請求書F SELECT * FROM #TMP_TSC運送費請求書F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TSC運送費請求書F SET 発行フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 返信済みフラグを更新 */
	UPDATE TSC運送費請求書F SET 返信フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	end
commit transaction

select @文書内容CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPC運送費請求書開封
@システムCD varchar(12),@演習CD varchar(12),@会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20)
AS
		UPDATE         TTX文書F
		SET                開封フラグ = 1
		FROM            TTX文書F INNER JOIN
                      TSC運送費請求書F ON 
                      TTX文書F.システムCD = TSC運送費請求書F.システムCD AND 
                      TTX文書F.演習CD = TSC運送費請求書F.演習CD AND 
                      TTX文書F.会社CD = TSC運送費請求書F.会社CD AND 
                      TTX文書F.作成会社CD = TSC運送費請求書F.作成会社CD AND 
                      TTX文書F.文書種類CD = TSC運送費請求書F.文書種類CD AND 
                      TTX文書F.文書内容CD = TSC運送費請求書F.文書内容CD
		WHERE          
                      (TSC運送費請求書F.システムCD = @システムCD) AND
                      (TSC運送費請求書F.演習CD = @演習CD) AND
                      (TSC運送費請求書F.会社CD = @会社CD) AND
                      (TSC運送費請求書F.作成会社CD = @作成会社CD) AND
                      (TSC運送費請求書F.文書種類CD = @文書種類CD) AND
                      (TSC運送費請求書F.文書内容CD = @文書内容CD)

		UPDATE         TTX文書F
		SET                開封フラグ = 1
		FROM            TTX文書F INNER JOIN
                      TSC運送費請求書手動F ON 
                      TTX文書F.システムCD = TSC運送費請求書手動F.システムCD AND 
                      TTX文書F.演習CD = TSC運送費請求書手動F.演習CD AND 
                      TTX文書F.会社CD = TSC運送費請求書手動F.会社CD AND 
                      TTX文書F.作成会社CD = TSC運送費請求書手動F.作成会社CD AND 
                      TTX文書F.文書種類CD = TSC運送費請求書手動F.文書種類CD AND 
                      TTX文書F.文書内容CD = TSC運送費請求書手動F.文書内容CD
		WHERE          
                      (TSC運送費請求書手動F.システムCD = @システムCD) AND
                      (TSC運送費請求書手動F.演習CD = @演習CD) AND
                      (TSC運送費請求書手動F.会社CD = @会社CD) AND
                      (TSC運送費請求書手動F.作成会社CD = @作成会社CD) AND
                      (TSC運送費請求書手動F.文書種類CD = @文書種類CD) AND
                      (TSC運送費請求書手動F.文書内容CD = @文書内容CD)

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD仕入売上書類一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS

declare @フラグ int

SET @フラグ = 1

If @作成会社CD = ''
begin
	SET @フラグ = 0
end

SELECT TSA仕入売上書類F.文書種類CD
	, TSA仕入売上書類F.文書内容CD
	, TSA仕入売上書類F.取引先CD
	, TSA仕入売上書類F.会社CD
	, TSA仕入売上書類F.作成会社CD
	, TSA仕入売上書類F.処理日
	, TSA仕入売上書類F.納入期日
	, TSA仕入売上書類F.摘要
	, TSA仕入売上書類F.発行フラグ
	, TSA仕入売上書類F.返信フラグ
	, TSA仕入売上書類F.検認フラグ
	, TSA仕入売上書類F.削除フラグ
	, TSA仕入売上書類F.先方文書種類CD
	, TSA仕入売上書類F.先方文書内容CD
	, TTX文書F.文書CD
	, ISNULL(TTX文書F.開封フラグ, 0) AS 開封フラグ
	, 作成会社.会社名称 AS 作成会社名称
	, 作成会社.会社略名称 AS 作成会社略名称
	, 取引先.会社名称 AS 取引先名称
	, 取引先.会社略名称 AS 取引先略名称
FROM TSA仕入売上書類F
INNER JOIN TDA会社M 取引先
	ON TSA仕入売上書類F.システムCD = 取引先.システムCD
	AND TSA仕入売上書類F.演習CD = 取引先.演習CD
	AND TSA仕入売上書類F.取引先CD = 取引先.会社CD
LEFT OUTER JOIN TDA会社M 作成会社
	ON TSA仕入売上書類F.システムCD = 作成会社.システムCD
	AND TSA仕入売上書類F.演習CD = 作成会社.演習CD
	AND TSA仕入売上書類F.作成会社CD = 作成会社.会社CD
LEFT OUTER JOIN TTX文書F
	ON TSA仕入売上書類F.システムCD = TTX文書F.システムCD
	AND TSA仕入売上書類F.演習CD = TTX文書F.演習CD
	AND TSA仕入売上書類F.会社CD = TTX文書F.会社CD
	AND TSA仕入売上書類F.作成会社CD = TTX文書F.作成会社CD
	AND TSA仕入売上書類F.文書種類CD = TTX文書F.文書種類CD
	AND TSA仕入売上書類F.文書内容CD = TTX文書F.文書内容CD
WHERE TSA仕入売上書類F.システムCD = @システムCD
	AND TSA仕入売上書類F.演習CD = @演習CD
	--会社CD=''なら全取得
	AND (@会社CD = '' OR TSA仕入売上書類F.会社CD = @会社CD)
	--会社CD=''なら全作成会社を取得
	AND (@会社CD = '' OR ((1 = @フラグ AND TSA仕入売上書類F.作成会社CD = @作成会社CD) OR (0 = @フラグ AND TSA仕入売上書類F.作成会社CD != @会社CD)))
	--文書種類CD=''なら全取得
	AND (@文書種類CD = '' OR TSA仕入売上書類F.文書種類CD = @文書種類CD)
ORDER BY TSA仕入売上書類F.処理日 DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO








CREATE PROCEDURE dbo.SPD仕入売上書類一覧2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS
	declare @フラグ int
	SET @フラグ = 1
	If @作成会社CD = ''
	begin
		SET @フラグ = 0
	end

		SELECT          TSA仕入売上書類F.文書種類CD, TSA仕入売上書類F.文書内容CD,  TSA仕入売上書類F.先方文書内容CD,
                      TSA仕入売上書類F.取引先CD, TSA仕入売上書類F.会社CD, 
                      TSA仕入売上書類F.作成会社CD, TSA仕入売上書類F.処理日, 
                      TSA仕入売上書類F.納入期日, TSA仕入売上書類F.摘要, 
                      TSA仕入売上書類F.発行フラグ, TSA仕入売上書類F.返信フラグ, 
                      TSA仕入売上書類F.削除フラグ, TTX文書F.文書CD, TSA仕入売上書類F.寄託会社CD, TSA仕入売上書類F.運送会社CD,
                      ISNULL(TTX文書F.開封フラグ, 0) AS 開封フラグ, 
                      作成会社.会社名称 AS 作成会社名称, 
                      作成会社.会社略名称 AS 作成会社略名称, 取引先.会社名称 AS 取引先名称, 
                      取引先.会社略名称 AS 取引先略名称
		FROM            TSA仕入売上書類F INNER JOIN
                      TDA会社M 取引先 ON 
                      TSA仕入売上書類F.システムCD = 取引先.システムCD AND 
                      TSA仕入売上書類F.演習CD = 取引先.演習CD AND 
                      TSA仕入売上書類F.取引先CD = 取引先.会社CD LEFT OUTER JOIN
                      TDA会社M 作成会社 ON 
                      TSA仕入売上書類F.システムCD = 作成会社.システムCD AND 
                      TSA仕入売上書類F.演習CD = 作成会社.演習CD AND 
                      TSA仕入売上書類F.作成会社CD = 作成会社.会社CD LEFT OUTER JOIN
                      TTX文書F ON TSA仕入売上書類F.システムCD = TTX文書F.システムCD AND 
                      TSA仕入売上書類F.演習CD = TTX文書F.演習CD AND 
                      TSA仕入売上書類F.会社CD = TTX文書F.会社CD AND 
                      TSA仕入売上書類F.作成会社CD = TTX文書F.作成会社CD AND 
                      TSA仕入売上書類F.文書種類CD = TTX文書F.文書種類CD AND 
                      TSA仕入売上書類F.文書内容CD = TTX文書F.文書内容CD
		WHERE   
		TSA仕入売上書類F.システムCD = @システムCD AND TSA仕入売上書類F.演習CD = @演習CD AND TSA仕入売上書類F.会社CD = @会社CD
		AND ((1 = @フラグ AND TSA仕入売上書類F.作成会社CD = @作成会社CD) OR (0 = @フラグ AND TSA仕入売上書類F.作成会社CD != @会社CD))
		AND TSA仕入売上書類F.文書種類CD = @文書種類CD
		ORDER BY TSA仕入売上書類F.処理日 DESC





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD仕入売上書類一覧3
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS
	declare @フラグ int
	SET @フラグ = 1
	If @作成会社CD = ''
	begin
		SET @フラグ = 0
	end

		SELECT          TSA仕入売上書類F.文書種類CD, TSA仕入売上書類F.文書内容CD,  TSA仕入売上書類F.先方文書内容CD,
                      TSA仕入売上書類F.取引先CD, TSA仕入売上書類F.会社CD, 
                      TSA仕入売上書類F.作成会社CD, TSA仕入売上書類F.処理日, 
                      TSA仕入売上書類F.納入期日, TSA仕入売上書類F.摘要, 
                      TSA仕入売上書類F.発行フラグ, TSA仕入売上書類F.返信フラグ, 
                      TSA仕入売上書類F.削除フラグ, TTX文書F.文書CD, TSA仕入売上書類F.寄託会社CD, TSA仕入売上書類F.運送会社CD,
                      ISNULL(TTX文書F.開封フラグ, 0) AS 開封フラグ, 
                      作成会社.会社名称 AS 作成会社名称, 
                      作成会社.会社略名称 AS 作成会社略名称, 取引先.会社名称 AS 取引先名称, 
                      取引先.会社略名称 AS 取引先略名称,
		  TSA仕入売上書類明細F.数量 AS 数量, TDA商品M.商品名称 AS 商品名
		FROM            TSA仕入売上書類F INNER JOIN
                      TDA会社M 取引先 ON 
                      TSA仕入売上書類F.システムCD = 取引先.システムCD AND 
                      TSA仕入売上書類F.演習CD = 取引先.演習CD AND 
                      TSA仕入売上書類F.取引先CD = 取引先.会社CD 
		LEFT OUTER JOIN
                      TDA会社M 作成会社 ON 
                      TSA仕入売上書類F.システムCD = 作成会社.システムCD AND 
                      TSA仕入売上書類F.演習CD = 作成会社.演習CD AND 
                      TSA仕入売上書類F.作成会社CD = 作成会社.会社CD 
		LEFT OUTER JOIN
                      TTX文書F ON TSA仕入売上書類F.システムCD = TTX文書F.システムCD AND 
                      TSA仕入売上書類F.演習CD = TTX文書F.演習CD AND 
                      TSA仕入売上書類F.会社CD = TTX文書F.会社CD AND 
                      TSA仕入売上書類F.作成会社CD = TTX文書F.作成会社CD AND 
                      TSA仕入売上書類F.文書種類CD = TTX文書F.文書種類CD AND 
                      TSA仕入売上書類F.文書内容CD = TTX文書F.文書内容CD
		/*061204 一覧に商品名と数量を表示させたい意向を受け、以下を追加*/
		LEFT OUTER JOIN TSA仕入売上書類明細F ON
		  TSA仕入売上書類F.演習CD = TSA仕入売上書類明細F.演習CD AND
		  TSA仕入売上書類F.システムCD = TSA仕入売上書類明細F.システムCD AND 
		  TSA仕入売上書類F.会社CD = TSA仕入売上書類明細F.会社CD AND
		  TSA仕入売上書類F.文書種類CD = TSA仕入売上書類明細F.文書種類CD AND
		  TSA仕入売上書類F.文書内容CD = TSA仕入売上書類明細F.文書内容CD 
		LEFT OUTER JOIN TDA商品M ON
		  TSA仕入売上書類明細F.演習CD = TDA商品M.演習CD AND
		  TSA仕入売上書類明細F.システムCD = TDA商品M.システムCD AND
		  TSA仕入売上書類明細F.商品CD = TDA商品M.商品CD 
		/*ここまで*/
		WHERE   
		TSA仕入売上書類F.システムCD = @システムCD AND TSA仕入売上書類F.演習CD = @演習CD AND TSA仕入売上書類F.会社CD = @会社CD
		AND ((1 = @フラグ AND TSA仕入売上書類F.作成会社CD = @作成会社CD) OR (0 = @フラグ AND TSA仕入売上書類F.作成会社CD != @会社CD))
		AND TSA仕入売上書類F.文書種類CD = @文書種類CD
		ORDER BY TSA仕入売上書類F.処理日 DESC





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO







CREATE  PROCEDURE dbo.SPD仕入売上書類一覧4
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS
	declare @フラグ int
	SET @フラグ = 1
	If @作成会社CD = ''
	begin
		SET @フラグ = 0
	end

		SELECT          TSA仕入売上書類F.文書種類CD, TSA仕入売上書類F.文書内容CD, TSA仕入売上書類F.先方文書種類CD, TSA仕入売上書類F.先方文書内容CD,
                      TSA仕入売上書類F.取引先CD, TSA仕入売上書類F.会社CD, 
                      TSA仕入売上書類F.作成会社CD, TSA仕入売上書類F.処理日,  TSA仕入売上書類F.先方処理日, 
                      TSA仕入売上書類F.納入期日, TSA仕入売上書類F.摘要, 
                      TSA仕入売上書類F.発行フラグ, TSA仕入売上書類F.返信フラグ, 
                      TSA仕入売上書類F.削除フラグ, TTX文書F.文書CD, TSA仕入売上書類F.寄託会社CD, TSA仕入売上書類F.運送会社CD,TSA仕入売上書類F.先方寄託会社CD,
                      ISNULL(TTX文書F.開封フラグ, 0) AS 開封フラグ, 
                      作成会社.会社名称 AS 作成会社名称, 
                      作成会社.会社略名称 AS 作成会社略名称, 取引先.会社名称 AS 取引先名称, 
                      取引先.会社略名称 AS 取引先略名称
		FROM            TSA仕入売上書類F INNER JOIN
                      TDA会社M 取引先 ON 
                      TSA仕入売上書類F.システムCD = 取引先.システムCD AND 
                      TSA仕入売上書類F.演習CD = 取引先.演習CD AND 
                      TSA仕入売上書類F.取引先CD = 取引先.会社CD LEFT OUTER JOIN
                      TDA会社M 作成会社 ON 
                      TSA仕入売上書類F.システムCD = 作成会社.システムCD AND 
                      TSA仕入売上書類F.演習CD = 作成会社.演習CD AND 
                      TSA仕入売上書類F.作成会社CD = 作成会社.会社CD LEFT OUTER JOIN
                      TTX文書F ON TSA仕入売上書類F.システムCD = TTX文書F.システムCD AND 
                      TSA仕入売上書類F.演習CD = TTX文書F.演習CD AND 
                      TSA仕入売上書類F.会社CD = TTX文書F.会社CD AND 
                      TSA仕入売上書類F.作成会社CD = TTX文書F.作成会社CD AND 
                      TSA仕入売上書類F.文書種類CD = TTX文書F.文書種類CD AND 
                      TSA仕入売上書類F.文書内容CD = TTX文書F.文書内容CD
		WHERE   
		TSA仕入売上書類F.システムCD = @システムCD AND TSA仕入売上書類F.演習CD = @演習CD AND TSA仕入売上書類F.会社CD = @会社CD
		AND ((1 = @フラグ AND TSA仕入売上書類F.作成会社CD = @作成会社CD) OR (0 = @フラグ AND TSA仕入売上書類F.作成会社CD != @会社CD))
		AND TSA仕入売上書類F.文書種類CD = @文書種類CD
		ORDER BY TSA仕入売上書類F.処理日 DESC






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD仕入売上書類一覧先着
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS

declare @フラグ int

SET @フラグ = 1

If @作成会社CD = ''
begin
	SET @フラグ = 0
end

SELECT TSA仕入売上書類F.文書種類CD
	, TSA仕入売上書類F.文書内容CD
	, TSA仕入売上書類F.取引先CD
	, TSA仕入売上書類F.会社CD
	, TSA仕入売上書類F.作成会社CD
	, TSA仕入売上書類F.処理日
	, TSA仕入売上書類F.納入期日
	, TSA仕入売上書類F.摘要
	, TSA仕入売上書類F.発行フラグ
	, TSA仕入売上書類F.返信フラグ
	, TSA仕入売上書類F.検認フラグ
	, TSA仕入売上書類F.削除フラグ
	, TSA仕入売上書類F.先方文書種類CD
	, TSA仕入売上書類F.先方文書内容CD
	, TSA仕入売上書類F.送信日時
	, TTX文書F.文書CD
	, ISNULL(TTX文書F.開封フラグ, 0) AS 開封フラグ
	, 作成会社.会社名称 AS 作成会社名称
	, 作成会社.会社略名称 AS 作成会社略名称
	, 取引先.会社名称 AS 取引先名称
	, 取引先.会社略名称 AS 取引先略名称
FROM TSA仕入売上書類F
INNER JOIN TDA会社M 取引先
	ON TSA仕入売上書類F.システムCD = 取引先.システムCD
	AND TSA仕入売上書類F.演習CD = 取引先.演習CD
	AND TSA仕入売上書類F.取引先CD = 取引先.会社CD
LEFT OUTER JOIN TDA会社M 作成会社
	ON TSA仕入売上書類F.システムCD = 作成会社.システムCD
	AND TSA仕入売上書類F.演習CD = 作成会社.演習CD
	AND TSA仕入売上書類F.作成会社CD = 作成会社.会社CD
LEFT OUTER JOIN TTX文書F
	ON TSA仕入売上書類F.システムCD = TTX文書F.システムCD
	AND TSA仕入売上書類F.演習CD = TTX文書F.演習CD
	AND TSA仕入売上書類F.会社CD = TTX文書F.会社CD
	AND TSA仕入売上書類F.作成会社CD = TTX文書F.作成会社CD
	AND TSA仕入売上書類F.文書種類CD = TTX文書F.文書種類CD
	AND TSA仕入売上書類F.文書内容CD = TTX文書F.文書内容CD
WHERE TSA仕入売上書類F.システムCD = @システムCD
	AND TSA仕入売上書類F.演習CD = @演習CD
	--会社CD=''なら全取得
	AND (@会社CD = '' OR TSA仕入売上書類F.会社CD = @会社CD)
	--会社CD=''なら全作成会社を取得
	AND (@会社CD = '' OR ((1 = @フラグ AND TSA仕入売上書類F.作成会社CD = @作成会社CD) OR (0 = @フラグ AND TSA仕入売上書類F.作成会社CD != @会社CD)))
	--文書種類CD=''なら全取得
	AND (@文書種類CD = '' OR TSA仕入売上書類F.文書種類CD = @文書種類CD)
ORDER BY TSA仕入売上書類F.送信日時




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPD仕入売上書類削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	UPDATE TSA仕入売上書類F 
	SET 削除フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
	作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE         TTX文書F
	SET                削除フラグ = 1
	FROM            TTX文書F INNER JOIN TSA仕入売上書類F ON 
              TTX文書F.システムCD = TSA仕入売上書類F.システムCD AND 
              TTX文書F.演習CD = TSA仕入売上書類F.演習CD AND 
              TTX文書F.会社CD = TSA仕入売上書類F.会社CD AND 
              TTX文書F.作成会社CD = TSA仕入売上書類F.作成会社CD AND 
              TTX文書F.文書種類CD = TSA仕入売上書類F.文書種類CD AND 
              TTX文書F.文書内容CD = TSA仕入売上書類F.文書内容CD
	WHERE 
              (TSA仕入売上書類F.システムCD = @システムCD) AND
              (TSA仕入売上書類F.演習CD = @演習CD) AND
              (TSA仕入売上書類F.会社CD = @会社CD) AND
              (TSA仕入売上書類F.作成会社CD = @作成会社CD) AND
              (TSA仕入売上書類F.文書種類CD = @文書種類CD) AND
              (TSA仕入売上書類F.文書内容CD = @文書内容CD)


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPD仕入売上書類取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

SELECT TSA仕入売上書類F.*
	, TSA仕入売上書類明細F.文書内容SEQ
	, TSA仕入売上書類明細F.商品CD
	, TSA仕入売上書類明細F.数量
	, TSA仕入売上書類明細F.単価
	, TSA仕入売上書類明細F.消費税率 --191029小野
	, TSA仕入売上書類明細F.運送単価 --070919小野
	, TTX文書F.開封フラグ
	, TDA商品M.市場CD 
	, TDA商品M.標準消費税率 --191101小野
FROM TSA仕入売上書類F
INNER JOIN TSA仕入売上書類明細F
	ON TSA仕入売上書類F.システムCD = TSA仕入売上書類明細F.システムCD
	AND TSA仕入売上書類F.演習CD = TSA仕入売上書類明細F.演習CD
	AND TSA仕入売上書類F.会社CD = TSA仕入売上書類明細F.会社CD
	AND TSA仕入売上書類F.作成会社CD = TSA仕入売上書類明細F.作成会社CD
	AND TSA仕入売上書類F.文書種類CD = TSA仕入売上書類明細F.文書種類CD
	AND TSA仕入売上書類F.文書内容CD = TSA仕入売上書類明細F.文書内容CD
LEFT OUTER JOIN TTX文書F
	ON TTX文書F.システムCD = TSA仕入売上書類F.システムCD
	AND TTX文書F.演習CD = TSA仕入売上書類F.演習CD
	AND TTX文書F.会社CD = TSA仕入売上書類F.会社CD
	AND TTX文書F.作成会社CD = TSA仕入売上書類F.作成会社CD
	AND TTX文書F.文書種類CD = TSA仕入売上書類F.文書種類CD
	AND TTX文書F.文書内容CD = TSA仕入売上書類F.文書内容CD
LEFT OUTER JOIN TDA商品M
	ON TDA商品M.商品CD = TSA仕入売上書類明細F.商品CD
WHERE TSA仕入売上書類F.システムCD = @システムCD
	AND TSA仕入売上書類F.演習CD = @演習CD
	AND TSA仕入売上書類F.会社CD = @会社CD
	AND TSA仕入売上書類F.作成会社CD = @作成会社CD
	AND TSA仕入売上書類F.文書種類CD = @文書種類CD
	AND TSA仕入売上書類F.文書内容CD = @文書内容CD
	AND TDA商品M.演習CD = @演習CD



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO







CREATE  PROCEDURE dbo.SPD仕入売上書類取得4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	SELECT          TSA仕入売上書類F.*, TSA仕入売上書類明細F.文書内容SEQ, 
              TSA仕入売上書類明細F.商品CD, TSA仕入売上書類明細F.数量, 
              TSA仕入売上書類明細F.単価, TTX文書F.開封フラグ, TDA商品M.市場CD, TSA仕入売上書類明細F.運送単価 
	FROM            TSA仕入売上書類F INNER JOIN
              TSA仕入売上書類明細F ON 
              TSA仕入売上書類F.システムCD = TSA仕入売上書類明細F.システムCD AND 
              TSA仕入売上書類F.演習CD = TSA仕入売上書類明細F.演習CD AND 
              TSA仕入売上書類F.会社CD = TSA仕入売上書類明細F.会社CD AND 
              TSA仕入売上書類F.作成会社CD = TSA仕入売上書類明細F.作成会社CD AND 
              TSA仕入売上書類F.文書種類CD = TSA仕入売上書類明細F.文書種類CD AND
              TSA仕入売上書類F.文書内容CD = TSA仕入売上書類明細F.文書内容CD 
		LEFT OUTER JOIN
                      TTX文書F ON 
                      TTX文書F.システムCD = TSA仕入売上書類F.システムCD AND 
                      TTX文書F.演習CD = TSA仕入売上書類F.演習CD AND 
                      TTX文書F.会社CD = TSA仕入売上書類F.会社CD AND 
                      TTX文書F.作成会社CD = TSA仕入売上書類F.作成会社CD AND 
                      TTX文書F.文書種類CD = TSA仕入売上書類F.文書種類CD AND 
                      TTX文書F.文書内容CD = TSA仕入売上書類F.文書内容CD 
		LEFT OUTER JOIN
		TDA商品M ON
		TDA商品M.システムCD = TSA仕入売上書類明細F.システムCD AND 
		TDA商品M.演習CD = TSA仕入売上書類明細F.演習CD AND
		TDA商品M.商品CD = TSA仕入売上書類明細F.商品CD 
	WHERE
	TSA仕入売上書類F.システムCD = @システムCD AND TSA仕入売上書類F.演習CD = @演習CD AND TSA仕入売上書類F.会社CD = @会社CD
	AND TSA仕入売上書類F.作成会社CD = @作成会社CD 	AND TSA仕入売上書類F.文書種類CD = @文書種類CD AND TSA仕入売上書類F.文書内容CD = @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO








CREATE PROCEDURE dbo.SPD仕入売上書類取得台帳突合
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	SELECT  
		TSA仕入売上書類F.*, 
		TSA仕入売上書類明細F.文書内容SEQ, 
		TSA仕入売上書類明細F.商品CD, 
		TSA仕入売上書類明細F.数量, 
		TSA仕入売上書類明細F.単価, 
		TTX文書F.開封フラグ, 
		TDA商品M.市場CD,
		TGC寄託者台帳F.寄託受付番号,
		TGC寄託者台帳F.寄託数量
	FROM            TSA仕入売上書類F INNER JOIN
              TSA仕入売上書類明細F ON 
              TSA仕入売上書類F.システムCD = TSA仕入売上書類明細F.システムCD AND 
              TSA仕入売上書類F.演習CD = TSA仕入売上書類明細F.演習CD AND 
              TSA仕入売上書類F.会社CD = TSA仕入売上書類明細F.会社CD AND 
              TSA仕入売上書類F.作成会社CD = TSA仕入売上書類明細F.作成会社CD AND 
              TSA仕入売上書類F.文書種類CD = TSA仕入売上書類明細F.文書種類CD AND
              TSA仕入売上書類F.文書内容CD = TSA仕入売上書類明細F.文書内容CD 
		LEFT OUTER JOIN
                      TTX文書F ON 
                      TTX文書F.システムCD = TSA仕入売上書類F.システムCD AND 
                      TTX文書F.演習CD = TSA仕入売上書類F.演習CD AND 
                      TTX文書F.会社CD = TSA仕入売上書類F.会社CD AND 
                      TTX文書F.作成会社CD = TSA仕入売上書類F.作成会社CD AND 
                      TTX文書F.文書種類CD = TSA仕入売上書類F.文書種類CD AND 
                      TTX文書F.文書内容CD = TSA仕入売上書類F.文書内容CD
		LEFT OUTER JOIN
		TDA商品M ON
		TDA商品M.商品CD = TSA仕入売上書類明細F.商品CD 
		LEFT OUTER JOIN
			TGC寄託者台帳F ON
				TGC寄託者台帳F.寄託者CD = @会社CD AND
				TGC寄託者台帳F.商品CD = TSA仕入売上書類明細F.商品CD 
	WHERE
	TSA仕入売上書類F.システムCD = @システムCD AND TSA仕入売上書類F.演習CD = @演習CD AND TSA仕入売上書類F.会社CD = @会社CD
	AND TSA仕入売上書類F.作成会社CD = @作成会社CD 	AND TSA仕入売上書類F.文書種類CD = @文書種類CD AND TSA仕入売上書類F.文書内容CD = @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPD仕入売上書類挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD  varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), 
@送受信区分 varchar(2), @処理日 datetime, @取引先CD  varchar(20), 
@先方文書内容CD  varchar(20), @先方文書種類CD  varchar(2), @先方処理日 datetime,
@納入期日 datetime, @納入場所区分  varchar(12), @運賃諸掛区分  varchar(12),
@運送会社CD varchar(20), @運送費 money, @運送費請求フラグ smallint, @摘要  varchar(40), @摘要2  varchar(40), @支払方法  varchar(40), 
@発行フラグ  smallint, @返信フラグ  smallint, @削除フラグ  smallint, @学生番号 varchar(12),
@文書内容SEQ1 smallint, @商品CD1 varchar(20), @数量1 int, @単価1 money, @消費税率1 real, @運送単価1 money,
@文書内容SEQ2 smallint, @商品CD2 varchar(20), @数量2 int, @単価2 money, @消費税率2 real, @運送単価2 money,
@文書内容SEQ3 smallint, @商品CD3 varchar(20), @数量3 int, @単価3 money, @消費税率3 real, @運送単価3 money,
@文書内容SEQ4 smallint, @商品CD4 varchar(20), @数量4 int, @単価4 money, @消費税率4 real, @運送単価4 money,
@文書内容SEQ5 smallint, @商品CD5 varchar(20), @数量5 int, @単価5 money, @消費税率5 real, @運送単価5 money

AS

declare @番号  int   

begin transaction
/* 文書内容CD */

	if @文書内容CD = ''
	begin
		SET @番号 = 1
		While @番号 <= 10000
		begin
			if not(exists(SELECT 文書内容CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = Convert(varchar, @番号)))
			begin
				SET @文書内容CD = Convert(varchar, @番号)
				Break
			end
			SET @番号 = @番号 + 1
		end
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

/* １．TSA仕入売上書類F　登録 */
INSERT INTO TSA仕入売上書類F
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理日, 送受信区分, 取引先CD, 
                      先方文書内容CD, 先方文書種類CD, 先方処理日, 納入期日, 
                      納入場所区分, 運賃諸掛区分, 運送会社CD, 運送費, 運送費請求フラグ, 摘要, 摘要2, 支払方法, 発行フラグ,  返信フラグ,  削除フラグ, 
                      学生番号)
VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理日, @送受信区分, @取引先CD, 
                     @先方文書内容CD, @先方文書種類CD, @先方処理日, @納入期日, 
                     @納入場所区分, @運賃諸掛区分, @運送会社CD, @運送費, @運送費請求フラグ, @摘要, @摘要2, @支払方法, @発行フラグ, @返信フラグ, @削除フラグ, 
                      @学生番号)

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

/* ２．TSA仕入売上書類F　登録 */
if @文書内容SEQ1 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @商品CD1, @数量1, @単価1, @消費税率1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
end

if @文書内容SEQ2 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @商品CD2, @数量2, @単価2, @消費税率2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
end

if @文書内容SEQ3 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @商品CD3, @数量3, @単価3, @消費税率3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
end

if @文書内容SEQ4 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @商品CD4, @数量4, @単価4, @消費税率4, @運送単価4)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end

if @文書内容SEQ5 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @商品CD5, @数量5, @単価5, @消費税率5, @運送単価5)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end

commit transaction

select @文書内容CD



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD仕入売上書類挿入2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD  varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), 
@送受信区分 varchar(2), @処理日 datetime, @取引先CD  varchar(20), 
@先方文書内容CD  varchar(20), @先方文書種類CD  varchar(2), @先方処理日 datetime,
@納入期日 datetime, @納入場所区分  varchar(12), @運賃諸掛区分  varchar(12),
@運送会社CD varchar(20), @運送費 money, @運送費請求フラグ smallint, @摘要  varchar(40), @支払方法  varchar(40), 
@発行フラグ  smallint, @返信フラグ  smallint, @削除フラグ  smallint, @学生番号 varchar(12), @寄託会社CD varchar(20),
@文書内容SEQ1 smallint, @商品CD1 varchar(20), @数量1 int, @単価1 money,
@文書内容SEQ2 smallint, @商品CD2 varchar(20), @数量2 int, @単価2 money,
@文書内容SEQ3 smallint, @商品CD3 varchar(20), @数量3 int, @単価3 money,
@文書内容SEQ4 smallint, @商品CD4 varchar(20), @数量4 int, @単価4 money,
@文書内容SEQ5 smallint, @商品CD5 varchar(20), @数量5 int, @単価5 money

AS

declare @番号  int   

begin transaction
/* 文書内容CD */

	if @文書内容CD = ''
	begin
		SET @番号 = 1
		While @番号 <= 10000
		begin
			if not(exists(SELECT 文書内容CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = Convert(varchar, @番号)))
			begin
				SET @文書内容CD = Convert(varchar, @番号)
				Break
			end
			SET @番号 = @番号 + 1
		end
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

/* １．TSA仕入売上書類F　登録 */
INSERT INTO TSA仕入売上書類F
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理日, 送受信区分, 取引先CD, 
                      先方文書内容CD, 先方文書種類CD, 先方処理日, 納入期日, 
                      納入場所区分, 運賃諸掛区分, 運送会社CD, 運送費, 運送費請求フラグ, 摘要, 支払方法, 発行フラグ,  返信フラグ,  削除フラグ, 
                      学生番号, 寄託会社CD)
VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理日, @送受信区分, @取引先CD, 
                     @先方文書内容CD, @先方文書種類CD, @先方処理日, @納入期日, 
                     @納入場所区分, @運賃諸掛区分, @運送会社CD, @運送費, @運送費請求フラグ, @摘要, @支払方法, @発行フラグ, @返信フラグ, @削除フラグ, 
                      @学生番号, @寄託会社CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSA仕入売上書類F　登録 */
if @文書内容SEQ1 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @商品CD1, @数量1, @単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ2 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @商品CD2, @数量2, @単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ3 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @商品CD3, @数量3, @単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ4 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @商品CD4, @数量4, @単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ5 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @商品CD5, @数量5, @単価5)

	if @@error <> 0
   	begin
       	rollback transaction


       	select -1  return
   	end



  end
commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPD仕入売上書類挿入4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD  varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), 
@送受信区分 varchar(2), @処理日 datetime, @取引先CD  varchar(20), 
@先方文書内容CD  varchar(20), @先方文書種類CD  varchar(2), @先方処理日 datetime,
@納入期日 datetime, @納入場所区分  varchar(12), @運賃諸掛区分  varchar(12),
@運送会社CD varchar(20), @運送費 money, @運送費請求フラグ smallint, @摘要  varchar(40), @摘要2  varchar(40), @支払方法  varchar(40), 
@発行フラグ  smallint, @返信フラグ  smallint, @削除フラグ  smallint, @学生番号 varchar(12), @寄託会社CD varchar(20), @先方寄託会社CD varchar(20),
@文書内容SEQ1 smallint, @商品CD1 varchar(20), @数量1 int, @単価1 money, @消費税率1 real, @運送単価1 money,
@文書内容SEQ2 smallint, @商品CD2 varchar(20), @数量2 int, @単価2 money, @消費税率2 real, @運送単価2 money,
@文書内容SEQ3 smallint, @商品CD3 varchar(20), @数量3 int, @単価3 money, @消費税率3 real, @運送単価3 money,
@文書内容SEQ4 smallint, @商品CD4 varchar(20), @数量4 int, @単価4 money, @消費税率4 real, @運送単価4 money,
@文書内容SEQ5 smallint, @商品CD5 varchar(20), @数量5 int, @単価5 money, @消費税率5 real, @運送単価5 money

AS

declare @番号  int   

begin transaction
/* 文書内容CD */

	if @文書内容CD = ''
	begin
		SET @番号 = 1
		While @番号 <= 10000
		begin
			if not(exists(SELECT 文書内容CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = Convert(varchar, @番号)))
			begin
				SET @文書内容CD = Convert(varchar, @番号)
				Break
			end
			SET @番号 = @番号 + 1
		end
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

/* １．TSA仕入売上書類F　登録 */
INSERT INTO TSA仕入売上書類F
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理日, 送受信区分, 取引先CD, 
                      先方文書内容CD, 先方文書種類CD, 先方処理日, 納入期日, 
                      納入場所区分, 運賃諸掛区分, 運送会社CD, 運送費, 運送費請求フラグ, 摘要, 摘要2, 支払方法, 発行フラグ,  返信フラグ,  削除フラグ, 
                      学生番号, 寄託会社CD, 先方寄託会社CD)
VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理日, @送受信区分, @取引先CD, 
                     @先方文書内容CD, @先方文書種類CD, @先方処理日, @納入期日, 
                     @納入場所区分, @運賃諸掛区分, @運送会社CD, @運送費, @運送費請求フラグ, @摘要, @摘要2, @支払方法, @発行フラグ, @返信フラグ, @削除フラグ, 
                      @学生番号, @寄託会社CD, @先方寄託会社CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSA仕入売上書類F　登録 */
if @文書内容SEQ1 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @商品CD1, @数量1, @単価1, @消費税率1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
end

if @文書内容SEQ2 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @商品CD2, @数量2, @単価2, @消費税率2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
end

if @文書内容SEQ3 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @商品CD3, @数量3, @単価3, @消費税率3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
end

if @文書内容SEQ4 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @商品CD4, @数量4, @単価4, @消費税率4, @運送単価4)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end

if @文書内容SEQ5 is not null 
begin 
	INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
	VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @商品CD5, @数量5, @単価5, @消費税率5, @運送単価5)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end

commit transaction

select @文書内容CD



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPD仕入売上書類更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD  varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), @旧文書内容CD varchar(20), 
@送受信区分 varchar(2), @処理日 datetime, @取引先CD  varchar(20), 
@先方文書内容CD  varchar(20), @先方文書種類CD  varchar(2), @先方処理日 datetime,
@納入期日 datetime, @納入場所区分  varchar(12), @運賃諸掛区分  varchar(12),
@運送会社CD varchar(20), @運送費 money, @運送費請求フラグ smallint, @摘要  varchar(40), @摘要2  varchar(40), @支払方法  varchar(40), 
@発行フラグ  varchar(12), @返信フラグ  varchar(12), @削除フラグ  varchar(12), @学生番号 varchar(12),
@文書内容SEQ1 smallint, @商品CD1 varchar(20), @数量1 int, @単価1 money, @消費税率1 real, @運送単価1 money,
@文書内容SEQ2 smallint, @商品CD2 varchar(20), @数量2 int, @単価2 money, @消費税率2 real, @運送単価2 money,
@文書内容SEQ3 smallint, @商品CD3 varchar(20), @数量3 int, @単価3 money, @消費税率3 real, @運送単価3 money,
@文書内容SEQ4 smallint, @商品CD4 varchar(20), @数量4 int, @単価4 money, @消費税率4 real, @運送単価4 money,
@文書内容SEQ5 smallint, @商品CD5 varchar(20), @数量5 int, @単価5 money, @消費税率5 real, @運送単価5 money

AS

declare @番号  int   

begin transaction

	UPDATE TSA仕入売上書類F 
	SET 文書内容CD = @文書内容CD, 送受信区分 = @送受信区分, 処理日 = @処理日, 取引先CD = @取引先CD, 先方文書内容CD = @先方文書内容CD, 先方文書種類CD = @先方文書種類CD,
	先方処理日 = @先方処理日, 納入期日 = @納入期日, 納入場所区分 = @納入場所区分, 運賃諸掛区分 = @運賃諸掛区分, 
	運送会社CD = @運送会社CD, 運送費 = @運送費, 運送費請求フラグ = @運送費請求フラグ, 摘要 = @摘要, 摘要2 = @摘要2, 支払方法 = @支払方法, 発行フラグ = @発行フラグ, 学生番号 = @学生番号
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @旧文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end
	
	DELETE FROM TSA仕入売上書類明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @旧文書内容CD
	
	DELETE FROM TSA仕入売上書類明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSA仕入売上書類明細F　登録 */
if @文書内容SEQ1 is not null 
  begin 
select @文書内容CD
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @商品CD1, @数量1, @単価1, @消費税率1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ2 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @商品CD2, @数量2, @単価2, @消費税率2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ3 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @商品CD3, @数量3, @単価3, @消費税率3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ4 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @商品CD4, @数量4, @単価4, @消費税率4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ5 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @商品CD5, @数量5, @単価5, @消費税率5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end
commit transaction

select @文書内容CD



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD仕入売上書類更新2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD  varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), @旧文書内容CD varchar(20), 
@送受信区分 varchar(2), @処理日 datetime, @取引先CD  varchar(20), 
@先方文書内容CD  varchar(20), @先方文書種類CD  varchar(2), @先方処理日 datetime,
@納入期日 datetime, @納入場所区分  varchar(12), @運賃諸掛区分  varchar(12),
@運送会社CD varchar(20), @運送費 money, @運送費請求フラグ smallint, @摘要  varchar(40), @支払方法  varchar(40), 
@発行フラグ  varchar(12), @返信フラグ  varchar(12), @削除フラグ  varchar(12), @学生番号 varchar(12), @寄託会社CD varchar(20),
@文書内容SEQ1 smallint, @商品CD1 varchar(20), @数量1 int, @単価1 money,
@文書内容SEQ2 smallint, @商品CD2 varchar(20), @数量2 int, @単価2 money,
@文書内容SEQ3 smallint, @商品CD3 varchar(20), @数量3 int, @単価3 money,
@文書内容SEQ4 smallint, @商品CD4 varchar(20), @数量4 int, @単価4 money,
@文書内容SEQ5 smallint, @商品CD5 varchar(20), @数量5 int, @単価5 money

AS

declare @番号  int   

begin transaction

	UPDATE TSA仕入売上書類F 
	SET 文書内容CD = @文書内容CD, 送受信区分 = @送受信区分, 処理日 = @処理日, 取引先CD = @取引先CD, 先方文書内容CD = @先方文書内容CD, 先方文書種類CD = @先方文書種類CD,
	先方処理日 = @先方処理日, 納入期日 = @納入期日, 納入場所区分 = @納入場所区分, 運賃諸掛区分 = @運賃諸掛区分, 
	運送会社CD = @運送会社CD, 運送費 = @運送費, 運送費請求フラグ = @運送費請求フラグ, 摘要 = @摘要, 支払方法 = @支払方法, 発行フラグ = @発行フラグ, 学生番号 = @学生番号, 寄託会社CD = @寄託会社CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @旧文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end
	
	DELETE FROM TSA仕入売上書類明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @旧文書内容CD
	
	DELETE FROM TSA仕入売上書類明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSA仕入売上書類明細F　登録 */
if @文書内容SEQ1 is not null 
  begin 
select @文書内容CD
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @商品CD1, @数量1, @単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ2 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @商品CD2, @数量2, @単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ3 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @商品CD3, @数量3, @単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ4 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @商品CD4, @数量4, @単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ5 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @商品CD5, @数量5, @単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end
commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPD仕入売上書類更新4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD  varchar(20), @文書種類CD  varchar(12), @文書内容CD varchar(20), @旧文書内容CD varchar(20), 
@送受信区分 varchar(2), @処理日 datetime, @取引先CD  varchar(20), 
@先方文書内容CD  varchar(20), @先方文書種類CD  varchar(2), @先方処理日 datetime,
@納入期日 datetime, @納入場所区分  varchar(12), @運賃諸掛区分  varchar(12),
@運送会社CD varchar(20), @運送費 money, @運送費請求フラグ smallint, @摘要  varchar(40), @摘要2  varchar(40), @支払方法  varchar(40), 
@発行フラグ  varchar(12), @返信フラグ  varchar(12), @削除フラグ  varchar(12), @学生番号 varchar(12), @寄託会社CD varchar(20), @先方寄託会社CD varchar(20),
@文書内容SEQ1 smallint, @商品CD1 varchar(20), @数量1 int, @単価1 money, @消費税率1 real, @運送単価1 money,
@文書内容SEQ2 smallint, @商品CD2 varchar(20), @数量2 int, @単価2 money, @消費税率2 real, @運送単価2 money,
@文書内容SEQ3 smallint, @商品CD3 varchar(20), @数量3 int, @単価3 money, @消費税率3 real, @運送単価3 money,
@文書内容SEQ4 smallint, @商品CD4 varchar(20), @数量4 int, @単価4 money, @消費税率4 real, @運送単価4 money,
@文書内容SEQ5 smallint, @商品CD5 varchar(20), @数量5 int, @単価5 money, @消費税率5 real, @運送単価5 money

AS

declare @番号  int   

begin transaction

	UPDATE TSA仕入売上書類F 
	SET 文書内容CD = @文書内容CD, 送受信区分 = @送受信区分, 処理日 = @処理日, 取引先CD = @取引先CD, 先方文書内容CD = @先方文書内容CD, 
	先方文書種類CD = @先方文書種類CD,先方処理日 = @先方処理日, 納入期日 = @納入期日, 納入場所区分 = @納入場所区分, 運賃諸掛区分 = @運賃諸掛区分, 
	運送会社CD = @運送会社CD, 運送費 = @運送費, 運送費請求フラグ = @運送費請求フラグ, 摘要 = @摘要, 摘要2 = @摘要2, 支払方法 = @支払方法, 発行フラグ = @発行フラグ, 
	学生番号 = @学生番号, 寄託会社CD = @寄託会社CD, 先方寄託会社CD = @先方寄託会社CD 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @旧文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end
	
	DELETE FROM TSA仕入売上書類明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @旧文書内容CD
	
	DELETE FROM TSA仕入売上書類明細F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSA仕入売上書類明細F　登録 */
if @文書内容SEQ1 is not null 
  begin 
select @文書内容CD
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ1, @商品CD1, @数量1, @単価1, @消費税率1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ2 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ2, @商品CD2, @数量2, @単価2, @消費税率2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ3 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ3, @商品CD3, @数量3, @単価3, @消費税率3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ4 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ4, @商品CD4, @数量4, @単価4, @消費税率4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @文書内容SEQ5 is not null 
  begin 
		INSERT INTO TSA仕入売上書類明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 商品CD, 数量, 単価, 消費税率, 運送単価)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ5, @商品CD5, @数量5, @単価5, @消費税率5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end
commit transaction

select @文書内容CD



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD仕入売上書類検認
@システムCD varchar(12), @演習CD varchar(12), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(2), @フラグ varchar(2)

AS

begin transaction

if @フラグ <> '1'
begin
	UPDATE TSA仕入売上書類F SET 検認フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
end
else
begin
	UPDATE TSA仕入売上書類F SET 検認フラグ = 0
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
end
		
if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD仕入売上書類発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20), @処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction

	SELECT @取引先CD = (SELECT 取引先CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)


	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

	/* 自分の文書を作成 */
		if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
		end
		else
		begin
			select @番号 = 0
		end 
	
		SET @文書CD = @番号 + 1
	
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 相手に書類を作成 */
		SELECT * INTO #TMP_TSA仕入売上書類F FROM TSA仕入売上書類F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		SELECT * INTO #TMP_TSA仕入売上書類明細F FROM TSA仕入売上書類明細F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
		
		UPDATE #TMP_TSA仕入売上書類F SET 会社CD = @取引先CD, 送信日時 = GETDATE() --送信日時を記録（170410小野）
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		UPDATE #TMP_TSA仕入売上書類明細F SET 会社CD = @取引先CD
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		INSERT INTO TSA仕入売上書類F SELECT * FROM #TMP_TSA仕入売上書類F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		INSERT INTO TSA仕入売上書類明細F SELECT * FROM #TMP_TSA仕入売上書類明細F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 発信文書を作成 */
		if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
		end
		else
		begin
			select @番号 = 0
		end 
		
		SET @文書CD = @番号 + 1
		
		/*
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
		*/
		/* 061106 */
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @取引先CD)
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 発行済みフラグを更新 */
		UPDATE TSA仕入売上書類F SET 発行フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 返信済みフラグを更新 */
		UPDATE TSA仕入売上書類F SET 返信フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD
	
	/* 返信済みフラグを更新 （先方開封済み注文請書の場合）　*/
		UPDATE TSA仕入売上書類F SET 返信フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD
		
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end

	end
commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPD仕入売上書類発信2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @運送会社CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction
	SELECT @取引先CD = (SELECT 取引先CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @運送会社CD = (SELECT 運送会社CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)


	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

	/* 自分の文書を作成 */
		if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
		end
		else
		begin
			select @番号 = 0
		end 
	
		SET @文書CD = @番号 + 1
		
		/*
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
		*/
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @運送会社CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 相手に書類を作成 */
		SELECT * INTO #TMP_TSA仕入売上書類F FROM TSA仕入売上書類F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		SELECT * INTO #TMP_TSA仕入売上書類明細F FROM TSA仕入売上書類明細F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
		
		UPDATE #TMP_TSA仕入売上書類F SET 会社CD = @運送会社CD, 送信日時 = GETDATE() --送信日時を記録（170410小野）
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		UPDATE #TMP_TSA仕入売上書類明細F SET 会社CD = @運送会社CD 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		INSERT INTO TSA仕入売上書類F SELECT * FROM #TMP_TSA仕入売上書類F 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @運送会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		INSERT INTO TSA仕入売上書類明細F SELECT * FROM #TMP_TSA仕入売上書類明細F 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @運送会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 発信文書を作成 */
		if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @運送会社CD AND 送受信区分 = 'R')
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @運送会社CD AND 送受信区分 = 'R')
		end
		else
		begin
			select @番号 = 0
		end 
		
		SET @文書CD = @番号 + 1
	
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @運送会社CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 発行済みフラグを更新 */
		UPDATE TSA仕入売上書類F SET 発行フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 返信済みフラグを更新 */
		UPDATE TSA仕入売上書類F SET 返信フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD
	
	/* 返信済みフラグを更新 （先方開封済み注文請書の場合）　*/
		UPDATE TSA仕入売上書類F SET 返信フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD
		
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end

	end
commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD仕入売上書類発信4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction

if @文書種類CD = 'KS' 
begin
	SELECT @取引先CD = (SELECT 寄託会社CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
end
else
begin
	SELECT @取引先CD = (SELECT 取引先CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
end
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)


	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

	/* 自分の文書を作成 */
		if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
		end
		else
		begin
			select @番号 = 0
		end 
	
		SET @文書CD = @番号 + 1
	
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 相手に書類を作成 */
		SELECT * INTO #TMP_TSA仕入売上書類F FROM TSA仕入売上書類F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		SELECT * INTO #TMP_TSA仕入売上書類明細F FROM TSA仕入売上書類明細F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

		if @文書種類CD = 'KS'
		begin
			UPDATE #TMP_TSA仕入売上書類F SET 会社CD = @取引先CD, 先方文書種類CD = @文書種類CD, 先方文書内容CD = @文書内容CD, 送信日時 = GETDATE() --送信日時を記録（170410小野） 
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
		end else
		begin
			UPDATE #TMP_TSA仕入売上書類F SET 会社CD = @取引先CD, 先方処理日 = @処理日, 先方文書種類CD = @文書種類CD, 先方文書内容CD = @文書内容CD, 寄託会社CD = 先方寄託会社CD, 先方寄託会社CD = 寄託会社CD, 送信日時 = GETDATE() --送信日時を記録（170410小野）
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
		end
	
		UPDATE #TMP_TSA仕入売上書類明細F SET 会社CD = @取引先CD
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		INSERT INTO TSA仕入売上書類F SELECT * FROM #TMP_TSA仕入売上書類F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		INSERT INTO TSA仕入売上書類明細F SELECT * FROM #TMP_TSA仕入売上書類明細F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 発信文書を作成 */
		if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
		end
		else
		begin

			select @番号 = 0
		end 
		
		SET @文書CD = @番号 + 1
	
		/*
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
		*/

		/* 061106修正 */
		INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
		VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 発行済みフラグを更新 */
		UPDATE TSA仕入売上書類F SET 発行フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end
	
	/* 返信済みフラグを更新 */
		UPDATE TSA仕入売上書類F SET 返信フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD
	
	/* 返信済みフラグを更新 （先方開封済み注文請書の場合）　*/
		UPDATE TSA仕入売上書類F SET 返信フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @先方文書内容CD
		
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end

	end
commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPD仕入売上書類返信済みフラグ適用
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction
	
	UPDATE TSA仕入売上書類F SET 返信フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

commit transaction

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPD仕入売上書類開封
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	UPDATE         TTX文書F
	SET                開封フラグ = 1
	FROM            TTX文書F INNER JOIN TSA仕入売上書類F ON 
              TTX文書F.システムCD = TSA仕入売上書類F.システムCD AND 
              TTX文書F.演習CD = TSA仕入売上書類F.演習CD AND 
              TTX文書F.会社CD = TSA仕入売上書類F.会社CD AND 
              TTX文書F.作成会社CD = TSA仕入売上書類F.作成会社CD AND 
              TTX文書F.文書種類CD = TSA仕入売上書類F.文書種類CD AND 
              TTX文書F.文書内容CD = TSA仕入売上書類F.文書内容CD
	WHERE 
              (TSA仕入売上書類F.システムCD = @システムCD) AND
              (TSA仕入売上書類F.演習CD = @演習CD) AND
              (TSA仕入売上書類F.会社CD = @会社CD) AND
              (TSA仕入売上書類F.作成会社CD = @作成会社CD) AND
              (TSA仕入売上書類F.文書種類CD = @文書種類CD) AND
              (TSA仕入売上書類F.文書内容CD = @文書内容CD)


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD入出庫一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS

SELECT TGA入出庫TRN.*
	, 取引先.会社名称 AS 取引先名称
	, 取引先.会社略名称 AS 取引先略名称
	, 会社.会社名称 AS 会社名称
	, 会社.会社略名称 AS 会社略名称
	, 作成会社.会社名称 AS 作成会社名称
	, 作成会社.会社略名称 AS 作成会社略名称
FROM TGA入出庫TRN
LEFT OUTER JOIN TDA会社M 取引先
	ON TGA入出庫TRN.システムCD = 取引先.システムCD
	AND TGA入出庫TRN.演習CD = 取引先.演習CD
	AND TGA入出庫TRN.取引先CD = 取引先.会社CD 
LEFT OUTER JOIN TDA会社M 会社
	ON TGA入出庫TRN.システムCD = 会社.システムCD
	AND TGA入出庫TRN.演習CD = 会社.演習CD
	AND TGA入出庫TRN.会社CD = 会社.会社CD
LEFT OUTER JOIN TDA会社M 作成会社
	ON TGA入出庫TRN.システムCD = 作成会社.システムCD
	AND TGA入出庫TRN.演習CD = 作成会社.演習CD
	AND TGA入出庫TRN.作成会社CD = 作成会社.会社CD
WHERE (TGA入出庫TRN.システムCD = @システムCD)
	AND (TGA入出庫TRN.演習CD = @演習CD) 
	AND (TGA入出庫TRN.会社CD = @会社CD)
	AND ((@作成会社CD = '') OR (@作成会社CD <> '' AND TGA入出庫TRN.作成会社CD = @作成会社CD))
	AND (TGA入出庫TRN.文書種類CD = @文書種類CD)
ORDER BY TGA入出庫TRN.処理日 DESC
/*             AND (TGA入出庫TRN.処理時期区分 <> 0) */
/*               AND ( (@取引先CD = '' And TGA入出庫TRN.会社CD = @会社CD) OR (@取引先CD <> '' And TGA入出庫TRN.取引先CD = @取引先CD) ) */




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD入出庫一覧4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS
	SELECT          TGA入出庫TRN.*,
		取引先.会社名称 AS 取引先名称, 取引先.会社略名称 AS 取引先略名称, 
              会社.会社名称 AS 会社名称, 会社.会社略名称 AS 会社略名称,
              作成会社.会社名称 AS 作成会社名称, 作成会社.会社略名称 AS 作成会社略名称
	FROM TGA入出庫TRN
	LEFT OUTER JOIN TDA会社M 取引先 ON TGA入出庫TRN.システムCD = 取引先.システムCD AND TGA入出庫TRN.演習CD = 取引先.演習CD AND TGA入出庫TRN.取引先CD = 取引先.会社CD 
	LEFT OUTER JOIN TDA会社M 会社 ON TGA入出庫TRN.システムCD = 会社.システムCD AND TGA入出庫TRN.演習CD = 会社.演習CD  AND TGA入出庫TRN.会社CD = 会社.会社CD
	LEFT OUTER JOIN TDA会社M 作成会社 ON TGA入出庫TRN.システムCD = 作成会社.システムCD AND TGA入出庫TRN.演習CD = 作成会社.演習CD  AND TGA入出庫TRN.作成会社CD = 作成会社.会社CD
	WHERE           (TGA入出庫TRN.システムCD = @システムCD) AND (TGA入出庫TRN.演習CD = @演習CD) 
              AND (TGA入出庫TRN.会社CD = @会社CD)
              AND ( (@作成会社CD = '') OR (@作成会社CD <> '' And TGA入出庫TRN.作成会社CD = @作成会社CD) )
              AND (TGA入出庫TRN.文書種類CD = @文書種類CD)
	    AND (TGA入出庫TRN.処理時期区分 <> 0) 
	ORDER BY TGA入出庫TRN.処理日 DESC
             
/*               AND ( (@取引先CD = '' And TGA入出庫TRN.会社CD = @会社CD) OR (@取引先CD <> '' And TGA入出庫TRN.取引先CD = @取引先CD) ) */





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE    PROCEDURE dbo.SPD入出庫一覧9
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS
	SELECT          TGA入出庫TRN.*,
		取引先.会社名称 AS 取引先名称, 取引先.会社略名称 AS 取引先略名称, 
              会社.会社名称 AS 会社名称, 会社.会社略名称 AS 会社略名称,
              作成会社.会社名称 AS 作成会社名称, 作成会社.会社略名称 AS 作成会社略名称
	FROM TGA入出庫TRN
	LEFT OUTER JOIN TDA会社M 取引先 ON TGA入出庫TRN.システムCD = 取引先.システムCD AND TGA入出庫TRN.演習CD = 取引先.演習CD AND TGA入出庫TRN.取引先CD = 取引先.会社CD 
	LEFT OUTER JOIN TDA会社M 会社 ON TGA入出庫TRN.システムCD = 会社.システムCD AND TGA入出庫TRN.演習CD = 会社.演習CD  AND TGA入出庫TRN.会社CD = 会社.会社CD
	LEFT OUTER JOIN TDA会社M 作成会社 ON TGA入出庫TRN.システムCD = 作成会社.システムCD AND TGA入出庫TRN.演習CD = 作成会社.演習CD  AND TGA入出庫TRN.作成会社CD = 作成会社.会社CD
	WHERE           (TGA入出庫TRN.システムCD = @システムCD) AND (TGA入出庫TRN.演習CD = @演習CD) 
              AND (TGA入出庫TRN.会社CD = @会社CD)
              AND ( (@作成会社CD = '') OR (@作成会社CD <> '' And TGA入出庫TRN.作成会社CD = @作成会社CD) )
              AND (TGA入出庫TRN.文書種類CD = @文書種類CD)
/*	    AND (TGA入出庫TRN.処理時期区分 <> 0) 
*/
	ORDER BY TGA入出庫TRN.有効フラグ ASC, TGA入出庫TRN.先方処理日 DESC, TGA入出庫TRN.取引先CD DESC, TGA入出庫TRN.処理日 DESC
             
/*               AND ( (@取引先CD = '' And TGA入出庫TRN.会社CD = @会社CD) OR (@取引先CD <> '' And TGA入出庫TRN.取引先CD = @取引先CD) ) */








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPD入出庫削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPD入出庫取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS


	SELECT          TGA入出庫TRN.*, TGA入出庫明細TRN.入出庫SEQ, TGA入出庫明細TRN.商品CD, 
              TGA入出庫明細TRN.数量, TGA入出庫明細TRN.単価, 
              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
	WHERE           (TGA入出庫TRN.システムCD = @システムCD) AND (TGA入出庫TRN.演習CD = @演習CD) 
              AND (TGA入出庫TRN.会社CD = @会社CD) 
              AND (@作成会社CD = '' Or (@作成会社CD <> '' And TGA入出庫TRN.作成会社CD = @作成会社CD) )
              AND (TGA入出庫TRN.文書種類CD = @文書種類CD) AND (TGA入出庫TRN.文書内容CD = @文書内容CD)






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPD入出庫取得2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS


	SELECT          TGA入出庫TRN.*, TGA入出庫明細TRN.入出庫SEQ, TGA入出庫明細TRN.商品CD, 
              TGA入出庫明細TRN.数量, TGA入出庫明細TRN.単価, 
              TGA入出庫明細TRN.運送単価, TDA商品M.市場CD 
	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
		LEFT OUTER JOIN
		TDA商品M ON
		TDA商品M.システムCD = TGA入出庫明細TRN.システムCD AND
		TDA商品M.演習CD = TGA入出庫明細TRN.演習CD AND 
		TDA商品M.商品CD = TGA入出庫明細TRN.商品CD 
	WHERE           (TGA入出庫TRN.システムCD = @システムCD) AND (TGA入出庫TRN.演習CD = @演習CD) 
              AND (TGA入出庫TRN.会社CD = @会社CD) 
              AND (@作成会社CD = '' Or (@作成会社CD <> '' And TGA入出庫TRN.作成会社CD = @作成会社CD) )
              AND (TGA入出庫TRN.文書種類CD = @文書種類CD) AND (TGA入出庫TRN.文書内容CD = @文書内容CD)





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD入出庫取得4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS


	SELECT          TGA入出庫TRN.*, TGA入出庫明細TRN.入出庫SEQ, TGA入出庫明細TRN.商品CD, 
              TGA入出庫明細TRN.数量, TGA入出庫明細TRN.単価, TGA入出庫明細TRN.元単価, 
              TGA入出庫明細TRN.運送単価, TDA商品M.市場CD 
	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
		LEFT OUTER JOIN
		TDA商品M ON
		TDA商品M.システムCD = TGA入出庫明細TRN.システムCD AND
		TDA商品M.演習CD = TGA入出庫明細TRN.演習CD AND 
		TDA商品M.商品CD = TGA入出庫明細TRN.商品CD 
	WHERE           (TGA入出庫TRN.システムCD = @システムCD) AND (TGA入出庫TRN.演習CD = @演習CD) 
              AND (TGA入出庫TRN.会社CD = @会社CD) 
              AND (@作成会社CD = '' Or (@作成会社CD <> '' And TGA入出庫TRN.作成会社CD = @作成会社CD) )
              AND (TGA入出庫TRN.文書種類CD = @文書種類CD) AND (TGA入出庫TRN.文書内容CD = @文書内容CD)





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



















CREATE  PROCEDURE dbo.SPD入出庫受付
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction
/* 発行済みフラグを更新 */
	UPDATE TGA入出庫TRN SET 返信フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE TGA入出庫TRN SET 有効フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

commit transaction

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO








CREATE   PROCEDURE dbo.SPD入出庫受付4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20) 
, @寄託会社CD varchar(20), @入庫年月日 datetime, @寄託開始年月日 datetime, @寄託保管期日 datetime, @処理日 datetime
, @新単価1 money, @新単価2 money, @新単価3 money, @新単価4 money, @新単価5 money

AS

declare @番号  int   

begin transaction

/* 作成会社と取引先を入れ替えるためにその前提で採番をやり直す */
if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @会社CD AND 文書種類CD = @文書種類CD)
begin
	select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @会社CD AND 文書種類CD = @文書種類CD)
end
else
begin
	select @番号 = 0
end 

select @番号 = (@番号 + 1)

/* TGA入出庫明細TRNの作成会社を自社に入れ替え＆文書内容CDを採番で更新 */
UPDATE	TGA入出庫明細TRN SET 作成会社CD = @会社CD, 文書内容CD = @番号
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
WHERE	(TGA入出庫TRN.システムCD = @システムCD) AND
	(TGA入出庫TRN.演習CD = @演習CD) AND
	(TGA入出庫TRN.会社CD = @会社CD) AND
	(TGA入出庫TRN.作成会社CD = @作成会社CD) AND
	(TGA入出庫TRN.文書種類CD = @文書種類CD) AND
	(TGA入出庫TRN.文書内容CD = @文書内容CD)

--UPDATE TGA入出庫明細TRN SET 作成会社CD = @取引先CD
--WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

/* TGA入出庫TRNの作成会社と取引先を入れ替え＆文書内容CDを採番で更新＆有効フラグを更新 */
UPDATE TGA入出庫TRN SET 有効フラグ = 1, 作成会社CD = @会社CD, 取引先CD = @作成会社CD, 文書内容CD = @番号, 処理日 = @処理日
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

/* TGC寄託在庫Fを更新（先方文書種類CD=SS,先方文書内容CD=採番 に更新）*/
--UPDATE TGC寄託在庫F SET 入庫年月日 = @入庫年月日, 寄託開始年月日 = @寄託開始年月日, 寄託保管期日 = @寄託保管期日, 寄託受付番号 = @番号
--WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @寄託会社CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = @文書内容CD
UPDATE TGC寄託在庫F SET 入庫年月日 = @入庫年月日, 寄託開始年月日 = @寄託開始年月日, 寄託保管期日 = @寄託保管期日, 先方文書種類CD = 'SS', 先方文書内容CD = @番号
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @寄託会社CD AND 作成会社CD = @作成会社CD AND 寄託依頼会社CD = @会社CD AND 先方文書種類CD = 'SU' AND 先方文書内容CD = @文書内容CD
--UPDATE TGC寄託在庫明細F SET 寄託受付番号 = @番号
--WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @寄託会社CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = @文書内容CD

if @@error <> 0 begin
	rollback transaction
	select -1  return
end


/* 運送費買主負担時はTGA入出庫明細TRNの単価に運送単価を組み入れる */

if @新単価1 is not null begin

	UPDATE	TGA入出庫明細TRN
	SET 単価 = @新単価1
	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
	WHERE (TGA入出庫TRN.システムCD = @システムCD) AND
		(TGA入出庫TRN.演習CD = @演習CD) AND
		(TGA入出庫TRN.会社CD = @会社CD) AND
		(TGA入出庫TRN.作成会社CD = @会社CD) AND
		(TGA入出庫TRN.文書種類CD = @文書種類CD) AND
		(TGA入出庫TRN.文書内容CD = @番号) AND
		(TGA入出庫明細TRN.入出庫SEQ = 1)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

end

if @新単価2 is not null begin

	UPDATE	TGA入出庫明細TRN
	SET 単価 = @新単価2
	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
	WHERE (TGA入出庫TRN.システムCD = @システムCD) AND
		(TGA入出庫TRN.演習CD = @演習CD) AND
		(TGA入出庫TRN.会社CD = @会社CD) AND
		(TGA入出庫TRN.作成会社CD = @会社CD) AND
		(TGA入出庫TRN.文書種類CD = @文書種類CD) AND
		(TGA入出庫TRN.文書内容CD = @番号) AND
		(TGA入出庫明細TRN.入出庫SEQ = 2)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

end

if @新単価3 is not null begin

	UPDATE	TGA入出庫明細TRN
	SET 単価 = @新単価3
	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
	WHERE (TGA入出庫TRN.システムCD = @システムCD) AND
		(TGA入出庫TRN.演習CD = @演習CD) AND
		(TGA入出庫TRN.会社CD = @会社CD) AND
		(TGA入出庫TRN.作成会社CD = @会社CD) AND
		(TGA入出庫TRN.文書種類CD = @文書種類CD) AND
		(TGA入出庫TRN.文書内容CD = @番号) AND
		(TGA入出庫明細TRN.入出庫SEQ = 3)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

end

if @新単価4 is not null begin

	UPDATE	TGA入出庫明細TRN
	SET 単価 = @新単価4
	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
	WHERE (TGA入出庫TRN.システムCD = @システムCD) AND
		(TGA入出庫TRN.演習CD = @演習CD) AND
		(TGA入出庫TRN.会社CD = @会社CD) AND
		(TGA入出庫TRN.作成会社CD = @会社CD) AND
		(TGA入出庫TRN.文書種類CD = @文書種類CD) AND
		(TGA入出庫TRN.文書内容CD = @番号) AND
		(TGA入出庫明細TRN.入出庫SEQ = 4)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

end

if @新単価5 is not null begin

	UPDATE	TGA入出庫明細TRN
	SET 単価 = @新単価5
	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
	WHERE (TGA入出庫TRN.システムCD = @システムCD) AND
		(TGA入出庫TRN.演習CD = @演習CD) AND
		(TGA入出庫TRN.会社CD = @会社CD) AND
		(TGA入出庫TRN.作成会社CD = @会社CD) AND
		(TGA入出庫TRN.文書種類CD = @文書種類CD) AND
		(TGA入出庫TRN.文書内容CD = @番号) AND
		(TGA入出庫明細TRN.入出庫SEQ = 5)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

end



commit transaction

select @番号 --採番された文書内容CD
















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO










CREATE  PROCEDURE dbo.SPD入出庫挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @先方仕入売上種類CD varchar(12), @先方仕入売上内容CD varchar(12)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

declare @番号  int   

begin transaction

	if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
	end
	else
	begin
		select @番号 = 0
	end 

select @文書内容CD = (@番号 + 1)

	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 先方仕入売上種類CD, 先方仕入売上内容CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 1, @学生番号, @先方仕入売上種類CD, @先方仕入売上内容CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD入出庫挿入2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @寄託会社CD varchar(20), @運送会社CD varchar(20)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

declare @番号  int   

begin transaction

	if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 
				作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 
				運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD)
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 
				作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 
				運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD)
	end
	else
	begin
		select @番号 = 0
	end 

select @文書内容CD = (@番号 + 1)

	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
			取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 寄託会社CD, 運送会社CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 0, @学生番号, @寄託会社CD, @運送会社CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE  PROCEDURE dbo.SPD入出庫挿入3
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @先方仕入売上種類CD varchar(12), @先方仕入売上内容CD varchar(12)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money ,@元単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money ,@元単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money ,@元単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money ,@元単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money ,@元単価5 money

AS

declare @番号  int   

begin transaction

		if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
	begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
	end
	else
	begin
		select @番号 = 0
	end 

select @文書内容CD = (@番号 + 1)

	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 先方仕入売上種類CD, 先方仕入売上内容CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 0, @学生番号, @先方仕入売上種類CD, @先方仕入売上内容CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPD入出庫挿入4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @寄託会社CD varchar(20), @先方寄託会社CD varchar(20), @運送会社CD varchar(20)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

declare @番号  int   

begin transaction

	if exists(SELECT 文書内容CD FROM TGA入出庫TRN 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN 
				WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
	end
	else
	begin
		select @番号 = 0
	end 

select @文書内容CD = (@番号 + 1)

	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND  文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 寄託会社CD, 先方寄託会社CD, 運送会社CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 1, @学生番号, @寄託会社CD, @先方寄託会社CD, @運送会社CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO








CREATE PROCEDURE dbo.SPD入出庫挿入4dummy
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @寄託会社CD varchar(20), @先方寄託会社CD varchar(20), @運送会社CD varchar(20)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

declare @番号  int   

begin transaction

	if exists(SELECT 文書内容CD FROM TGA入出庫TRN 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN 
				WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
	end
	else
	begin
		select @番号 = 0
	end 

select @文書内容CD = (@番号 + 1)

	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND  文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 寄託会社CD, 先方寄託会社CD, 運送会社CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 0, @学生番号, @寄託会社CD, @先方寄託会社CD, @運送会社CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 
		INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







/*

	入出庫トラン＆明細トラン出力
*/

CREATE  PROCEDURE dbo.SPD入出庫更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @先方仕入売上種類CD varchar(12), @先方仕入売上内容CD varchar(12)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

declare @番号  int   

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
/* AND 会社CD = @会社CD*/

	if  @文書内容CD = '' 
	begin
		if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
		end
		else
		begin	
			select @番号 = 0
		end 
	
		select @文書内容CD = (@番号 + 1)
	end


	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 先方仕入売上種類CD, 先方仕入売上内容CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 1, @学生番号, @先方仕入売上種類CD, @先方仕入売上内容CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPD入出庫更新2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @寄託会社CD varchar(20), @運送会社CD varchar(20)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money ,@元単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money ,@元単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money ,@元単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money ,@元単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money ,@元単価5 money

AS

declare @番号  int   

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
/* AND 会社CD = @会社CD*/

	if  @文書内容CD = '' 
	begin
		if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 
				作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 
				運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD)
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN 
					WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 
						作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 
						運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD)
		end
		else
		begin	
			select @番号 = 0
		end 
	
		select @文書内容CD = (@番号 + 1)
	end


	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
			取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 寄託会社CD, 運送会社CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 1, @学生番号, @寄託会社CD, @運送会社CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @元単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @元単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @元単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @元単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @元単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE  PROCEDURE dbo.SPD入出庫更新3
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @先方仕入売上種類CD varchar(12), @先方仕入売上内容CD varchar(12)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money ,@元単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money ,@元単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money ,@元単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money ,@元単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money ,@元単価5 money

AS

declare @番号  int   

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
/* AND 会社CD = @会社CD*/

	if  @文書内容CD = '' 
	begin
		if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
		end
		else
		begin	
			select @番号 = 0
		end 
	
		select @文書内容CD = (@番号 + 1)
	end


	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 先方仕入売上種類CD, 先方仕入売上内容CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 1, @学生番号, @先方仕入売上種類CD, @先方仕入売上内容CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPD入出庫更新4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @寄託会社CD varchar(20), @先方寄託会社CD varchar(20), @運送会社CD varchar(20)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money ,@元単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money ,@元単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money ,@元単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money ,@元単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money ,@元単価5 money

AS

declare @番号  int   

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
/* AND 会社CD = @会社CD*/

	if  @文書内容CD = '' 
	begin
		if exists(SELECT 文書内容CD FROM TGA入出庫TRN 
				WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGA入出庫TRN 
					WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
		end
		else
		begin	
			select @番号 = 0
		end 
	
		select @文書内容CD = (@番号 + 1)
	end


	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND  文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGA入出庫TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 寄託会社CD, 先方寄託会社CD, 運送会社CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 1, @学生番号, @寄託会社CD, @先方寄託会社CD,@運送会社CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @元単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @元単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @元単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @元単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 

	INSERT INTO TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 元単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @元単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO







CREATE PROCEDURE dbo.SPD入出庫書類開封
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	UPDATE         TTX文書F
	SET                開封フラグ = 1
	FROM            TTX文書F INNER JOIN TGA入出庫TRN ON 
              TTX文書F.システムCD = TGA入出庫TRN.システムCD AND 
              TTX文書F.演習CD = TGA入出庫TRN.演習CD AND 
              TTX文書F.会社CD = TGA入出庫TRN.会社CD AND 
              TTX文書F.作成会社CD = TGA入出庫TRN.作成会社CD AND 
              TTX文書F.文書種類CD = TGA入出庫TRN.文書種類CD AND 
              TTX文書F.文書内容CD = TGA入出庫TRN.文書内容CD
	WHERE 
              (TGA入出庫TRN.システムCD = @システムCD) AND
              (TGA入出庫TRN.演習CD = @演習CD) AND
              (TGA入出庫TRN.会社CD = @会社CD) AND
              (TGA入出庫TRN.作成会社CD = @作成会社CD) AND
              (TGA入出庫TRN.文書種類CD = @文書種類CD) AND
              (TGA入出庫TRN.文書内容CD = @文書内容CD)






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO








CREATE PROCEDURE dbo.SPD入出庫書類開封2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

UPDATE TTX文書F
SET 開封フラグ = 1
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD AND 作成会社CD = @作成会社CD AND 送受信区分 = 'R'

/*	UPDATE         TTX文書F
	SET                開封フラグ = 1
	FROM            TTX文書F INNER JOIN TGA入出庫TRN ON 
              TTX文書F.システムCD = TGA入出庫TRN.システムCD AND 
              TTX文書F.演習CD = TGA入出庫TRN.演習CD AND 
              TTX文書F.会社CD = TGA入出庫TRN.会社CD AND 
              TTX文書F.作成会社CD = TGA入出庫TRN.作成会社CD AND 
              TTX文書F.文書種類CD = TGA入出庫TRN.文書種類CD AND 
              TTX文書F.文書内容CD = TGA入出庫TRN.文書内容CD
	WHERE 
              (TGA入出庫TRN.システムCD = @システムCD) AND
              (TGA入出庫TRN.演習CD = @演習CD) AND
              (TGA入出庫TRN.会社CD = @会社CD) AND
              (TGA入出庫TRN.作成会社CD = @作成会社CD) AND
              (TGA入出庫TRN.文書種類CD = @文書種類CD) AND
              (TGA入出庫TRN.文書内容CD = @文書内容CD)
*/







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE  PROCEDURE dbo.SPD入出庫発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction
	SELECT @取引先CD = (SELECT 取引先CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手に書類を作成 */
	SELECT * INTO #TMP_TGA入出庫TRN FROM TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * INTO #TMP_TGA入出庫明細TRN FROM TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	UPDATE #TMP_TGA入出庫TRN SET 会社CD = @取引先CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TGA入出庫明細TRN SET 会社CD = @取引先CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

SELECT * FROM #TMP_TGA入出庫TRN
	INSERT INTO TGA入出庫TRN SELECT * FROM #TMP_TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TGA入出庫明細TRN SELECT * FROM #TMP_TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TGA入出庫TRN SET 発行フラグ = 1, 有効フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TGA入出庫TRN SET 有効フラグ = 0
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	end
commit transaction

select @文書内容CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPD入出庫発信2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)
declare @単価 money 


begin transaction
	SELECT @取引先CD = (SELECT 取引先CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手に書類を作成 */
	SELECT * INTO #TMP_TGA入出庫TRN FROM TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * INTO #TMP_TGA入出庫明細TRN FROM TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	UPDATE #TMP_TGA入出庫TRN SET 会社CD = @取引先CD, 文書種類CD = @先方文書種類CD, 先方文書種類CD = @文書種類CD 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TGA入出庫明細TRN SET 会社CD = @取引先CD, 単価 = 元単価 ,文書種類CD = @先方文書種類CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * FROM #TMP_TGA入出庫TRN
	INSERT INTO TGA入出庫TRN SELECT * FROM #TMP_TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TGA入出庫明細TRN SELECT * FROM #TMP_TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TGA入出庫TRN SET 発行フラグ = 1

	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


if @@error <> 0 
   begin
       rollback transaction

       select -1  return
   end
/* 有効フラグを更新 */

	UPDATE TGA入出庫TRN SET 有効フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @文書内容CD

	/*SELECT @単価 = (SELECT 単価 FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @会社CD AND 文書種類CD = 'KU' AND 文書内容CD = @文書内容CD)

	UPDATE TGA入出庫明細TRN SET 単価 = @単価
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	*/

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	end
commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD入出庫発信3
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12), @取引先CD varchar(20), @寄託会社CD varchar(20), @運送会社CD varchar(20)

AS

declare @番号  int   
declare @文書CD  int   

declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)
declare @単価 money 


begin transaction
	
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TGA入出庫TRN 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
			取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 
			文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TGA入出庫TRN 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 
		文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TGA入出庫TRN 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
			取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 
			文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
								取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 
								文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手に書類を作成 */
	SELECT * INTO #TMP_TGA入出庫TRN FROM TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * INTO #TMP_TGA入出庫明細TRN FROM TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	UPDATE #TMP_TGA入出庫TRN SET 会社CD = @取引先CD, 文書種類CD = @先方文書種類CD, 先方文書種類CD = @文書種類CD , 有効フラグ = 0 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TGA入出庫明細TRN SET 会社CD = @取引先CD, 単価 = 元単価 ,元単価 = 単価, 文書種類CD = @先方文書種類CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * FROM #TMP_TGA入出庫TRN
	INSERT INTO TGA入出庫TRN SELECT * FROM #TMP_TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 
取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TGA入出庫明細TRN SELECT * FROM #TMP_TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発行済みフラグを更新 */
	UPDATE TGA入出庫TRN SET 発行フラグ = 1, 有効フラグ = 1 

	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction

       select -1  return
   end


	/*SELECT @単価 = (SELECT 単価 FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @会社CD AND 文書種類CD = 'KU' AND 文書内容CD = @文書内容CD)

	UPDATE TGA入出庫明細TRN SET 単価 = @単価
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	*/

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	end
commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD入出庫発信4
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @取引先CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @発行フラグ int , @返信フラグ int, @削除フラグ int , @有効フラグ int, @学生番号 varchar(12)

AS

declare @番号  int   
declare @発信先文書内容CD varchar(2)
declare @先方文書種類CD varchar(2)

begin transaction
	
	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if (SELECT 発行フラグ FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
	begin

/* 自分の文書を作成 
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 相手文書を一時テーブルに作成 */
	SELECT * INTO #TMP_TGA入出庫TRN FROM TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * INTO #TMP_TGA入出庫明細TRN FROM TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

/* 一時テーブルの情報を整形 */
/* 先方文書内容CDと取引先の文書内容CDが同じであるとは限らないので、採番し更新 */
/* 採番基準は作成会社と取引先を入れ替える前の状態 */

	if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD)
--	if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @取引先CD AND 取引先CD = @作成会社CD AND 文書種類CD = @先方文書種類CD)
--	if exists(SELECT 文書内容CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD)
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD)
--		select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @取引先CD AND 取引先CD = @作成会社CD AND 文書種類CD = @先方文書種類CD)
--		select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @取引先CD AND 文書種類CD = @先方文書種類CD)
	end
	else
	begin
		select @番号 = 0
	end 
	SET @発信先文書内容CD = @番号 + 1
	
	UPDATE #TMP_TGA入出庫TRN SET 会社CD = @取引先CD, 文書種類CD = @先方文書種類CD, 文書内容CD = @発信先文書内容CD,
		先方文書種類CD = @文書種類CD, 先方文書内容CD = @文書内容CD, 発行フラグ=@発行フラグ, 返信フラグ=@返信フラグ, 削除フラグ=@削除フラグ, 
		有効フラグ = @有効フラグ, 寄託会社CD = 先方寄託会社CD, 先方寄託会社CD = 寄託会社CD, 先方処理日 = 処理日, 処理日 = null 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TGA入出庫明細TRN SET 会社CD = @取引先CD , 文書種類CD = @先方文書種類CD, 文書内容CD = @発信先文書内容CD   
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

/* 一時テーブルを本テーブルに挿入 */
	SELECT * FROM #TMP_TGA入出庫TRN

	DELETE FROM TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @発信先文書内容CD

	DELETE FROM TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @発信先文書内容CD

	INSERT INTO TGA入出庫TRN SELECT * FROM #TMP_TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @発信先文書内容CD

	INSERT INTO TGA入出庫明細TRN SELECT * FROM #TMP_TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @先方文書種類CD AND 文書内容CD = @発信先文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 発信文書を作成 
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/

/* 出庫側の発行フラグを更新し、発行済みとする */
	UPDATE TGA入出庫TRN SET 発行フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

end
commit transaction

select @発信先文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE    PROCEDURE dbo.SPD入出庫非受付
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction
/* 発行済みフラグを更新 */
--	UPDATE TGA入出庫TRN SET 削除フラグ = 1
--	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

--	UPDATE TGA入出庫TRN SET 有効フラグ = 0
--	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	DELETE FROM TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	DELETE FROM TGA入出庫TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

commit transaction











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD出入庫組戻
@システムCD varchar(12),@演習CD varchar(12), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction

DELETE FROM TGA入出庫TRN
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 作成会社CD = @作成会社CD
	AND 文書種類CD = @文書種類CD
	AND 文書内容CD = @文書内容CD

DELETE FROM TGA入出庫明細TRN
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 作成会社CD = @作成会社CD
	AND 文書種類CD = @文書種類CD
	AND 文書内容CD = @文書内容CD

--入庫側の明細はJOINして削除する必要があるので先に
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
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @演習CD
	AND TGA入出庫TRN.取引先CD = @作成会社CD
	AND TGA入出庫TRN.先方文書種類CD = @文書種類CD
	AND TGA入出庫TRN.先方文書内容CD = @文書内容CD

DELETE FROM TGA入出庫TRN
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 取引先CD = @作成会社CD
	AND 先方文書種類CD = @文書種類CD
	AND 先方文書内容CD = @文書内容CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD在庫チェック
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
declare @cnt int

	--TGA入出庫TRNの在庫チェック
	SELECT @cnt = (SELECT count(*) FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD LIKE @会社CD + '%' AND 文書種類CD = 'SS')
	if @cnt > 0
	begin
		SELECT 1
	end else
	begin
		--TGC寄託者台帳Fの在庫チェック
		SELECT @cnt = (SELECT count(*) FROM TGC寄託者台帳F WHERE 寄託者CD = @会社CD)
		if @cnt > 0
		begin
			SELECT 1
		end else
		begin
			--どちらにも在庫がなければ0を返す
			SELECT 0
		end
	end





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO








CREATE PROCEDURE dbo.SPD寄託一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2)

AS

SELECT 
	TGC寄託者TRN.*,
	取引先.会社名称 AS 取引先名称, 
	取引先.会社略名称 AS 取引先略名称, 
	会社.会社名称 AS 会社名称, 
	会社.会社略名称 AS 会社略名称,
	作成会社.会社名称 AS 作成会社名称, 
	作成会社.会社略名称 AS 作成会社略名称,
	TGC寄託者明細TRN.数量 AS 数量,
	TGC寄託者明細TRN.商品CD AS 商品CD, 
	TDA商品M.商品名称 AS 商品名称
FROM 
	TGC寄託者TRN
	LEFT OUTER JOIN TDA会社M 取引先 
		ON TGC寄託者TRN.システムCD = 取引先.システムCD AND TGC寄託者TRN.演習CD = 取引先.演習CD AND TGC寄託者TRN.取引先CD = 取引先.会社CD 
	LEFT OUTER JOIN TDA会社M 会社 
		ON TGC寄託者TRN.システムCD = 会社.システムCD AND TGC寄託者TRN.演習CD = 会社.演習CD  AND TGC寄託者TRN.会社CD = 会社.会社CD
	LEFT OUTER JOIN TDA会社M 作成会社 
		ON TGC寄託者TRN.システムCD = 作成会社.システムCD AND TGC寄託者TRN.演習CD = 作成会社.演習CD  AND TGC寄託者TRN.作成会社CD = 作成会社.会社CD
	LEFT OUTER JOIN TGC寄託者明細TRN 
		ON  TGC寄託者TRN.システムCD = TGC寄託者明細TRN.システムCD AND TGC寄託者TRN.演習CD = TGC寄託者明細TRN.演習CD AND 
			TGC寄託者TRN.会社CD = TGC寄託者明細TRN.会社CD AND TGC寄託者TRN.作成会社CD = TGC寄託者明細TRN.作成会社CD AND 
			TGC寄託者TRN.文書種類CD = TGC寄託者明細TRN.文書種類CD AND TGC寄託者TRN.文書内容CD = TGC寄託者明細TRN.文書内容CD
	LEFT OUTER JOIN TDA商品M
		ON TGC寄託者明細TRN.システムCD = TDA商品M.システムCD AND TGC寄託者明細TRN.演習CD = TDA商品M.演習CD AND 
			TGC寄託者明細TRN.商品CD = TDA商品M.商品CD
	
WHERE 
	(TGC寄託者TRN.システムCD = @システムCD) AND 
	(TGC寄託者TRN.演習CD = @演習CD) AND 
	(TGC寄託者TRN.会社CD = @会社CD) AND 
	( (@作成会社CD = '') OR (@作成会社CD <> '' And TGC寄託者TRN.作成会社CD = @作成会社CD) ) AND 
	(TGC寄託者TRN.文書種類CD = @文書種類CD)

ORDER BY TGC寄託者TRN.処理日 DESC





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO







CREATE PROCEDURE dbo.SPD寄託依頼取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20),
@取引先CD varchar(20), @寄託会社CD varchar(20), @運送会社CD varchar(20)
AS


	SELECT          TGC寄託者TRN.*, TGC寄託者明細TRN.入出庫SEQ, TGC寄託者明細TRN.商品CD, 
              TGC寄託者明細TRN.数量, TGC寄託者明細TRN.単価, 
              TGC寄託者明細TRN.運送単価, TDA商品M.市場CD 
	FROM            TGC寄託者TRN INNER JOIN
              TGC寄託者明細TRN ON 
              TGC寄託者TRN.システムCD = TGC寄託者明細TRN.システムCD AND
              TGC寄託者TRN.演習CD = TGC寄託者明細TRN.演習CD AND
              TGC寄託者TRN.会社CD = TGC寄託者明細TRN.会社CD AND
              TGC寄託者TRN.作成会社CD = TGC寄託者明細TRN.作成会社CD AND
              TGC寄託者TRN.文書種類CD = TGC寄託者明細TRN.文書種類CD AND 
              TGC寄託者TRN.文書内容CD = TGC寄託者明細TRN.文書内容CD
	LEFT OUTER JOIN
		TDA商品M ON
		TDA商品M.システムCD = TGC寄託者明細TRN.システムCD AND
		TDA商品M.演習CD = TGC寄託者明細TRN.演習CD AND
		TDA商品M.商品CD = TGC寄託者明細TRN.商品CD 
	WHERE           
             (TGC寄託者TRN.システムCD = @システムCD) AND (TGC寄託者TRN.演習CD = @演習CD) 
              AND (TGC寄託者TRN.会社CD = @会社CD) 
              AND (@作成会社CD = '' Or (@作成会社CD <> '' And TGC寄託者TRN.作成会社CD = @作成会社CD) )
              AND (TGC寄託者TRN.文書種類CD = @文書種類CD) AND (TGC寄託者TRN.文書内容CD = @文書内容CD)
	    AND (TGC寄託者TRN.取引先CD = @取引先CD) AND (TGC寄託者TRN.寄託会社CD = @寄託会社CD) AND (TGC寄託者TRN.運送会社CD = @運送会社CD)





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO








CREATE PROCEDURE dbo.SPD寄託依頼受付
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), 
@文書内容CD varchar(20), @取引先CD varchar(20), @寄託会社CD varchar(20), @運送会社CD varchar(20)
AS

begin transaction
/* 発行済みフラグを更新 */
	UPDATE TGC寄託者TRN SET 返信フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

commit transaction





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO







CREATE PROCEDURE dbo.SPD寄託依頼挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12), @寄託会社CD varchar(20), @運送会社CD varchar(20)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

declare @番号  int   

begin transaction

	if exists(SELECT 文書内容CD FROM TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 
				作成会社CD = @作成会社CD  AND 寄託会社CD = @寄託会社CD AND 
				運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD)
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGC寄託者TRN 
				WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
					寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD)
	end
	else
	begin
		select @番号 = 0
	end 

select @文書内容CD = (@番号 + 1)

	DELETE FROM TGC寄託者明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD  AND 
			文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
			 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGC寄託者TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号, 寄託会社CD, 運送会社CD)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 1, @学生番号, @寄託会社CD, @運送会社CD)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 
		INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 
		INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 
		INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 
		INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 
		INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
		VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction


select @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO








CREATE PROCEDURE dbo.SPD寄託依頼更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(12), @文書内容CD varchar(12)
,@処理時期区分 smallint
,@処理日 datetime , @取引先CD varchar(20), @先方文書内容CD varchar(12), @先方文書種類CD varchar(12), @先方処理日 datetime
,@運賃諸掛区分 varchar(12), @運送費 money, @学生番号 varchar(12)
,@入出庫SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money
,@入出庫SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money
,@入出庫SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money
,@入出庫SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money
,@入出庫SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

declare @番号  int   

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
/* AND 会社CD = @会社CD*/

	if  @文書内容CD = '' 
	begin
		if exists(SELECT 文書内容CD FROM TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
		begin
			select @番号 = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD)
		end
		else
		begin	
			select @番号 = 0
		end 
	
		select @文書内容CD = (@番号 + 1)
	end


	DELETE FROM TGC寄託者明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	DELETE FROM TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* １．TSK伝票F　登録 */
INSERT INTO TGC寄託者TRN
                      (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号)
VALUES          (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @処理時期区分, @処理日, @取引先CD, @先方文書内容CD, @先方文書種類CD, @先方処理日, @運賃諸掛区分, @運送費, 0, 0, 0, 1, @学生番号)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．明細　登録 */
if @商品CD1 is not null 
  begin 

	INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @入出庫SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 

	INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 

	INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 

	INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 

	INSERT INTO TGC寄託者明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
	VALUES  (@システムCD, @演習CD, @会社CD, @作成会社CD,  @文書種類CD, @文書内容CD, @入出庫SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

commit transaction

select @文書内容CD













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO







CREATE PROCEDURE dbo.SPD寄託依頼発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @学生番号 varchar(12), @取引先CD varchar(20), @寄託会社CD varchar(20), @運送会社CD varchar(20)

AS

declare @番号  int   
declare @文書CD  int   

declare @先方文書種類CD varchar(2)
declare @先方文書内容CD varchar(20)

begin transaction

	SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TGC寄託者TRN 
					WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
						取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TGC寄託者TRN 
					WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
						取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	if @処理日 is null or @処理日 = ''
	begin
		SELECT @処理日 = (SELECT 処理日 FROM TGC寄託者TRN 
					WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
						取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

if (SELECT 発行フラグ FROM TGC寄託者TRN WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 
							作成会社CD = @作成会社CD AND 取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 
							運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD) = 0
begin

	/* 自分の文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
	    select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
	    select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @作成会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

	if @@error <> 0 
   	begin
       	rollback transaction
       	select -1  return
   	end

	/* 相手に書類を作成 */
	SELECT * INTO #TMP_TGC寄託者TRN FROM TGC寄託者TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * INTO #TMP_TGC寄託者明細TRN FROM TGC寄託者明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	UPDATE #TMP_TGC寄託者TRN SET 会社CD = @寄託会社CD, 有効フラグ = 0 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TGC寄託者明細TRN SET 会社CD = @寄託会社CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	SELECT * FROM #TMP_TGC寄託者TRN
	INSERT INTO TGC寄託者TRN SELECT * FROM #TMP_TGC寄託者TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @寄託会社CD AND 作成会社CD = @作成会社CD AND 
		取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TGC寄託者明細TRN SELECT * FROM #TMP_TGC寄託者明細TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @寄託会社CD AND 作成会社CD = @作成会社CD AND 
		文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	if @@error <> 0 
   	begin
       	rollback transaction
       	select -1  return
  	 end

	/* 発信文書を作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @寄託会社CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @寄託会社CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @寄託会社CD, 'R', @文書CD, @作成会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

	if @@error <> 0 
   	begin
      	 rollback transaction
       	select -1  return
  	 end

	/* 発行済みフラグを更新 */
	UPDATE TGC寄託者TRN SET 発行フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		取引先CD = @取引先CD AND 寄託会社CD = @寄託会社CD AND 運送会社CD = @運送会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	if @@error <> 0 
   	begin
       	rollback transaction
       	select -1  return
  	 end

end

commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD寄託入庫一覧
@システムCD varchar(12) ,@演習CD varchar(12) ,@会社CD varchar(20)

AS

SELECT TGC寄託在庫F.*
FROM TGC寄託在庫F
INNER JOIN TGA契約書F
	ON TGA契約書F.システムCD = TGC寄託在庫F.システムCD
	AND TGA契約書F.演習CD = TGC寄託在庫F.演習CD
	AND TGA契約書F.会社CD = TGC寄託在庫F.寄託依頼会社CD
	AND TGA契約書F.取引先CD = TGC寄託在庫F.会社CD
WHERE TGC寄託在庫F.システムCD = @システムCD
	AND TGC寄託在庫F.演習CD = @演習CD
	AND TGC寄託在庫F.会社CD = @会社CD
--	AND TGA契約書F.会社CD = @会社CD
ORDER BY TGC寄託在庫F.有効フラグ ASC
	, TGC寄託在庫F.入庫年月日 DESC
	, TGC寄託在庫F.寄託依頼会社CD DESC
	, TGC寄託在庫F.寄託受付番号 DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD寄託入庫取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @寄託依頼会社CD varchar(20), @寄託受付番号 varchar(2) 

AS

	SELECT      TGC寄託在庫F.*, TGC寄託在庫明細F.寄託受付番号SEQ, TGC寄託在庫明細F.商品CD, 
              TGC寄託在庫明細F.数量, TGC寄託在庫明細F.仕入単価, TGC寄託在庫明細F.運送単価, 
              TGC寄託在庫明細F.総出庫数,TGC寄託在庫明細F.摘要, TGC寄託在庫明細F.火災保険料金,
              TGC寄託在庫明細F.荷役料金, TGC寄託在庫明細F.荷役料率, TGC寄託在庫明細F.従量率,
              TGC寄託在庫明細F.従価率, TGC寄託在庫明細F.保管料金, TGC寄託在庫明細F.倉荷証券番号,
              TGC寄託在庫明細F.倉荷証券発行手数料, TGC寄託在庫明細F.倉荷証券発行フラグ,
              TGC寄託在庫明細F.倉荷証券請求フラグ, TGC寄託在庫明細F.倉荷証券回収フラグ,
              TGC寄託在庫明細F.倉荷証券回収日, TDA商品M.市場CD 
	FROM        TGC寄託在庫F 
	INNER JOIN  TGC寄託在庫明細F ON 
              TGC寄託在庫F.システムCD = TGC寄託在庫明細F.システムCD AND
              TGC寄託在庫F.演習CD = TGC寄託在庫明細F.演習CD AND
              TGC寄託在庫F.会社CD = TGC寄託在庫明細F.会社CD AND
              TGC寄託在庫F.作成会社CD = TGC寄託在庫明細F.作成会社CD AND
              TGC寄託在庫F.寄託依頼会社CD = TGC寄託在庫明細F.寄託依頼会社CD AND 
              TGC寄託在庫F.寄託受付番号 = TGC寄託在庫明細F.寄託受付番号
	LEFT OUTER JOIN TDA商品M ON 
							TDA商品M.システムCD = TGC寄託在庫明細F.システムCD AND
							TDA商品M.演習CD = TGC寄託在庫明細F.演習CD AND 
							TDA商品M.商品CD = TGC寄託在庫明細F.商品CD 
	WHERE       (TGC寄託在庫F.システムCD = @システムCD) AND 
							(TGC寄託在庫F.演習CD = @演習CD) AND 
							(TGC寄託在庫F.会社CD = @会社CD) AND 
							(TGC寄託在庫F.作成会社CD = @作成会社CD) AND 
							(TGC寄託在庫F.寄託依頼会社CD = @寄託依頼会社CD) AND 
              (TGC寄託在庫F.寄託受付番号 = @寄託受付番号)





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD寄託出庫依頼書挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
,@処理日 datetime, @先方処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   

begin transaction

	/* 出庫依頼書作成 */
		/* データコピー */
		SELECT * INTO #TMP_TSA仕入売上書類F FROM TSA仕入売上書類F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		SELECT * INTO #TMP_TSA仕入売上書類明細F FROM TSA仕入売上書類明細F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
		
		/* コピーデータの更新 */
		UPDATE #TMP_TSA仕入売上書類F SET 処理日 = @処理日 , 先方処理日 = @先方処理日 , 文書種類CD = 'KS' , 発行フラグ = 0, 返信フラグ = 0 
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
		UPDATE #TMP_TSA仕入売上書類明細F SET 文書種類CD = 'KS'
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

		/* データ挿入の前に既存データがあれば削除 */
		DELETE FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD  AND 文書種類CD = 'KS' AND 文書内容CD = @文書内容CD
		DELETE FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD  AND 文書種類CD = 'KS' AND 文書内容CD = @文書内容CD

		/* コピーデータを挿入 */
		INSERT INTO TSA仕入売上書類F SELECT * FROM #TMP_TSA仕入売上書類F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = 'KS' AND 文書内容CD = @文書内容CD
	
		INSERT INTO TSA仕入売上書類明細F SELECT * FROM #TMP_TSA仕入売上書類明細F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = 'KS' AND 文書内容CD = @文書内容CD
	
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end

commit transaction

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD寄託商品明細一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TGC寄託在庫F.*
	, TGC寄託在庫明細F.*
	, TDA商品M.* 
FROM TGC寄託在庫明細F 
LEFT OUTER JOIN  TGC寄託在庫F
	ON TGC寄託在庫明細F.システムCD = TGC寄託在庫F.システムCD
	AND TGC寄託在庫明細F.演習CD = TGC寄託在庫F.演習CD
	AND TGC寄託在庫明細F.会社CD = TGC寄託在庫F.会社CD
	AND TGC寄託在庫明細F.作成会社CD = TGC寄託在庫F.作成会社CD
	AND TGC寄託在庫明細F.寄託依頼会社CD = TGC寄託在庫F.寄託依頼会社CD
	AND TGC寄託在庫明細F.寄託受付番号 = TGC寄託在庫F.寄託受付番号
INNER JOIN TGA契約書F
	ON TGA契約書F.システムCD = TGC寄託在庫F.システムCD
	AND TGA契約書F.演習CD = TGC寄託在庫F.演習CD
	AND TGA契約書F.会社CD = TGC寄託在庫F.寄託依頼会社CD
	AND TGA契約書F.取引先CD = TGC寄託在庫F.会社CD
LEFT OUTER JOIN TDA商品M
	ON TDA商品M.システムCD = TGC寄託在庫明細F.システムCD
	AND TDA商品M.演習CD = TGC寄託在庫明細F.演習CD
	AND TDA商品M.商品CD = TGC寄託在庫明細F.商品CD 
WHERE TGC寄託在庫明細F.システムCD = @システムCD
	AND TGC寄託在庫明細F.演習CD = @演習CD
	AND TGC寄託在庫明細F.会社CD = @会社CD
ORDER BY TGC寄託在庫明細F.寄託依頼会社CD
	, TGC寄託在庫明細F.寄託受付番号
	, TGC寄託在庫明細F.寄託受付番号SEQ




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD寄託商品明細取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @寄託依頼会社CD varchar(20), @寄託受付番号 varchar(2), @寄託受付番号SEQ varchar(2)

AS

	SELECT      TGC寄託在庫F.*, TGC寄託在庫明細F.*, TDA商品M.* 
	FROM        TGC寄託在庫明細F 
	LEFT OUTER JOIN  TGC寄託在庫F ON 
		TGC寄託在庫明細F.システムCD = TGC寄託在庫F.システムCD AND 
		TGC寄託在庫明細F.演習CD = TGC寄託在庫F.演習CD AND 
		TGC寄託在庫明細F.会社CD = TGC寄託在庫F.会社CD AND
		TGC寄託在庫明細F.作成会社CD = TGC寄託在庫F.作成会社CD AND
		TGC寄託在庫明細F.寄託依頼会社CD = TGC寄託在庫F.寄託依頼会社CD AND
		TGC寄託在庫明細F.寄託受付番号 = TGC寄託在庫F.寄託受付番号 
	LEFT OUTER JOIN TDA商品M ON 
		TDA商品M.システムCD = TGC寄託在庫明細F.システムCD AND
		TDA商品M.演習CD = TGC寄託在庫明細F.演習CD AND 
		TDA商品M.商品CD = TGC寄託在庫明細F.商品CD 
	WHERE       
		TGC寄託在庫明細F.システムCD = @システムCD AND 
		TGC寄託在庫明細F.演習CD = @演習CD AND 
		TGC寄託在庫明細F.会社CD = @会社CD AND
		TGC寄託在庫明細F.作成会社CD = @作成会社CD AND
		TGC寄託在庫明細F.寄託依頼会社CD = @寄託依頼会社CD AND
		TGC寄託在庫明細F.寄託受付番号 = @寄託受付番号 AND
		TGC寄託在庫明細F.寄託受付番号SEQ = @寄託受付番号SEQ





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPD寄託商品明細更新 
@システムCD varchar(12),
@演習CD varchar(12), 
@会社CD varchar(20), 
@作成会社CD varchar(20), 
@寄託依頼会社CD varchar(20), 
@寄託受付番号 varchar(2), 
@寄託受付番号SEQ varchar(2), 
@寄託開始年月日 datetime, 
@寄託保管期日 datetime,
@入庫年月日 datetime, 
@倉庫場所 varchar(30), 
@倉庫種別 varchar(10), 
@数量 int, 
@火災保険料金 money, 
@火災保険料率 float, 
@荷役料率 float, 
@従価率 float, 
@従量率 float,
@倉荷証券番号 varchar(20), 
@倉荷証券発行手数料 money,
@摘要 varchar(40)

AS

begin transaction

	UPDATE TGC寄託在庫F SET 
	寄託開始年月日 = @寄託開始年月日,
	寄託保管期日 = @寄託保管期日,
	入庫年月日 = @入庫年月日,
	倉庫場所 = @倉庫場所,
	倉庫種別 = @倉庫種別 
	WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end

  
	UPDATE TGC寄託在庫明細F SET 
	数量 = @数量,
	火災保険料金 = @火災保険料金,
	火災保険料率 = @火災保険料率,
	荷役料率 = @荷役料率,
	従価率 = @従価率,
	従量率 = @従量率,
	倉荷証券番号 = @倉荷証券番号,
	倉荷証券発行手数料 = @倉荷証券発行手数料,
	摘要 = @摘要 
	WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 
		寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号 AND 寄託受付番号SEQ = @寄託受付番号SEQ 

	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end


commit transaction










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO








CREATE  PROCEDURE dbo.SPD寄託在庫挿入
@システムCD varchar(12),
@演習CD varchar(12), 
@会社CD varchar(20), 
@作成会社CD varchar(20), 
@寄託依頼会社CD varchar(20), 
@寄託開始年月日 datetime, 
@寄託保管期日 datetime, 
@入庫年月日 datetime, 
@倉庫場所 varchar(30),
@倉庫種別 varchar(10),
@処理日 datetime ,
@学生番号 varchar(20),
@摘要 varchar(40),
@火災保険料金 float, 
@火災保険料率 float, 
@荷役料金 money, 
@荷役量率 float,
@従量率 float, 
@従価率 float, 
@保管料金 money, 
@倉荷証券番号 smallint, 
@倉荷証券発行手数料 money,
@寄託受付番号SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money,
@寄託受付番号SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money,
@寄託受付番号SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money,
@寄託受付番号SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money,
@寄託受付番号SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

declare @寄託受付番号 int

begin transaction

	if exists(SELECT 寄託受付番号 FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 寄託依頼会社CD = @寄託依頼会社CD)
--	if exists(SELECT 寄託受付番号 FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 寄託依頼会社CD = @寄託依頼会社CD)
	begin
		select @寄託受付番号 = (SELECT MAX(CONVERT(int, 寄託受付番号)) AS 寄託受付番号 FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 寄託依頼会社CD = @寄託依頼会社CD)
--		select @寄託受付番号 = (SELECT MAX(CONVERT(int, 寄託受付番号)) AS 寄託受付番号 FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 寄託依頼会社CD = @寄託依頼会社CD)
	end else
	begin
		select @寄託受付番号 = 0
	end 

	select @寄託受付番号 = (@寄託受付番号 + 1)

	DELETE FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  作成会社CD = @作成会社CD AND 寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号
	DELETE FROM TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  作成会社CD = @作成会社CD AND 寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号
--	DELETE FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号
--	DELETE FROM TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

/* TGC寄託在庫Fデータ挿入 */
INSERT INTO TGC寄託在庫F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 処理日, 削除フラグ, 有効フラグ, 学生番号)
VALUES 
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @処理日, 0, 0, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

/* TGC寄託在庫明細Fデータ挿入 */
if @商品CD1 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

if @商品CD2 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

if @商品CD3 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

if @商品CD4 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

if @商品CD5 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

commit transaction

select @寄託受付番号








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD寄託在庫挿入2
@システムCD varchar(12),
@演習CD varchar(12), 
@会社CD varchar(20), 
@作成会社CD varchar(20), 
@寄託依頼会社CD varchar(20), 
@先方文書種類CD varchar(2), 
@先方文書内容CD varchar(20), 
@寄託受付番号 int,
@寄託開始年月日 datetime, 
@寄託保管期日 datetime, 
@入庫年月日 datetime, 
@倉庫場所 varchar(30),
@倉庫種別 varchar(10),
@処理日 datetime ,
@学生番号 varchar(20),
@摘要 varchar(40),
@火災保険料金 float, 
@火災保険料率 float, 
@荷役料金 money, 
@荷役量率 float,
@従量率 float, 
@従価率 float, 
@保管料金 money, 
@倉荷証券番号 smallint, 
@倉荷証券発行手数料 money,
@寄託受付番号SEQ1 smallint, @商品CD1  varchar(20) ,@数量1 int ,@単価1 money, @運送単価1 money,
@寄託受付番号SEQ2 smallint, @商品CD2  varchar(20) ,@数量2 int ,@単価2 money, @運送単価2 money,
@寄託受付番号SEQ3 smallint, @商品CD3  varchar(20) ,@数量3 int ,@単価3 money, @運送単価3 money,
@寄託受付番号SEQ4 smallint, @商品CD4  varchar(20) ,@数量4 int ,@単価4 money, @運送単価4 money,
@寄託受付番号SEQ5 smallint, @商品CD5  varchar(20) ,@数量5 int ,@単価5 money, @運送単価5 money

AS

begin transaction

if @寄託受付番号 is null or @寄託受付番号 = '' begin

--	if exists(SELECT 寄託受付番号 FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 寄託依頼会社CD = @寄託依頼会社CD)
	if exists(SELECT 寄託受付番号 FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 寄託依頼会社CD = @寄託依頼会社CD)
	begin
--		select @寄託受付番号 = (SELECT MAX(CONVERT(int, 寄託受付番号)) AS 寄託受付番号 FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 寄託依頼会社CD = @寄託依頼会社CD)
		select @寄託受付番号 = (SELECT MAX(CONVERT(int, 寄託受付番号)) AS 寄託受付番号 FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 寄託依頼会社CD = @寄託依頼会社CD)
	end
	else
	begin
		select @寄託受付番号 = 0
	end 

	select @寄託受付番号 = (@寄託受付番号 + 1)
end 

--	DELETE FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  作成会社CD = @作成会社CD AND 寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号
--	DELETE FROM TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  作成会社CD = @作成会社CD AND 寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号
	DELETE FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号
	DELETE FROM TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 寄託依頼会社CD = @寄託依頼会社CD AND 寄託受付番号 = @寄託受付番号

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

/* TGC寄託在庫Fデータ挿入 */
INSERT INTO TGC寄託在庫F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託開始年月日, 寄託保管期日, 入庫年月日, 処理日, 削除フラグ, 有効フラグ, 学生番号, 先方文書種類CD, 先方文書内容CD)
VALUES 
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託開始年月日, @寄託保管期日, @入庫年月日, @処理日, 0, 0, @学生番号, @先方文書種類CD, @先方文書内容CD)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

/* TGC寄託在庫明細Fデータ挿入 */
if @商品CD1 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ1, @商品CD1, @数量1, @単価1, @運送単価1)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

if @商品CD2 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ2, @商品CD2, @数量2, @単価2, @運送単価2)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

if @商品CD3 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ3, @商品CD3, @数量3, @単価3, @運送単価3)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

if @商品CD4 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ4, @商品CD4, @数量4, @単価4, @運送単価4)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

if @商品CD5 is not null 
begin 

INSERT INTO TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @会社CD, @作成会社CD, @寄託依頼会社CD, @寄託受付番号, @寄託受付番号SEQ5, @商品CD5, @数量5, @単価5, @運送単価5)

	if @@error <> 0 
	begin
		rollback transaction
		select -1  return
	end

end

commit transaction

select @寄託受付番号










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPD寄託在庫繰越商品削除
@システムCD varchar(12),
@演習CD varchar(12),
@会社CD varchar(20),
@処理日 datetime,
@学生番号 varchar(20)

AS


begin transaction


DELETE FROM TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = 0
DELETE FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = 0

	
commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPD寄託在庫繰越商品挿入
@システムCD varchar(12),
@演習CD varchar(12), 
@会社CD varchar(20),
@寄託会社CD varchar(20),
@学生番号 varchar(20),
@商品CD varchar(20),
@数量 int,
@単価 money,
@運送単価 money

AS

declare @寄託受付番号SEQ smallint


begin transaction


if @@error <> 0
begin
	rollback transaction
	select -1  return
end

SELECT @寄託受付番号SEQ = (SELECT MAX(寄託受付番号SEQ) FROM YTMP_TGC寄託在庫明細F WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = 0))
if @寄託受付番号SEQ Is Null 
begin
	SELECT @寄託受付番号SEQ = 1
end		
else
begin
	SELECT @寄託受付番号SEQ = @寄託受付番号SEQ + 1
end 

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

INSERT INTO YTMP_TGC寄託在庫明細F 
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 寄託受付番号SEQ, 商品CD, 数量, 仕入単価, 運送単価)
VALUES  
(@システムCD, @演習CD, @寄託会社CD, @会社CD, @会社CD, 0, @寄託受付番号SEQ, @商品CD, @数量, @単価, @運送単価)

if @@error <> 0
begin
	rollback transaction
	select -1  return
end


commit transaction


SELECT @寄託受付番号SEQ









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD寄託在庫繰越商品更新
@システムCD varchar(12),
@演習CD varchar(12), 
@会社CD varchar(20),
@寄託会社CD varchar(20),
@学生番号 varchar(20)

AS

begin transaction

--繰越商品が存在すれば一旦削除する
if exists(SELECT * FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = 0)
begin
	DELETE FROM TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = 0
	DELETE FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = 0
end

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

--寄託在庫Fに挿入
INSERT INTO TGC寄託在庫F
(システムCD, 演習CD, 会社CD, 作成会社CD, 寄託依頼会社CD, 寄託受付番号, 削除フラグ, 有効フラグ, 学生番号)
VALUES
(@システムCD, @演習CD, @寄託会社CD, @会社CD, @会社CD, 0, 0, 1, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

--SPD寄託在庫繰越商品挿入で作成したテンポラリを寄託在庫明細Fに挿入
INSERT INTO TGC寄託在庫明細F
SELECT *
FROM YTMP_TGC寄託在庫明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = 0

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

--テンポラリ削除
DELETE FROM  YTMP_TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 寄託依頼会社CD = @会社CD AND 寄託受付番号 = 0

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPD寄託書類開封
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	UPDATE         TTX文書F
	SET                開封フラグ = 1
	FROM            TTX文書F INNER JOIN TGC寄託者TRN ON 
              TTX文書F.システムCD = TGC寄託者TRN.システムCD AND 
              TTX文書F.演習CD = TGC寄託者TRN.演習CD AND 
              TTX文書F.会社CD = TGC寄託者TRN.会社CD AND 
              TTX文書F.作成会社CD = TGC寄託者TRN.作成会社CD AND 
              TTX文書F.文書種類CD = TGC寄託者TRN.文書種類CD AND 
              TTX文書F.文書内容CD = TGC寄託者TRN.文書内容CD
	WHERE 
              (TGC寄託者TRN.システムCD = @システムCD) AND
              (TGC寄託者TRN.演習CD = @演習CD) AND
              (TGC寄託者TRN.会社CD = @会社CD) AND
              (TGC寄託者TRN.作成会社CD = @作成会社CD) AND
              (TGC寄託者TRN.文書種類CD = @文書種類CD) AND
              (TGC寄託者TRN.文書内容CD = @文書内容CD)






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO







CREATE  PROCEDURE dbo.SPD寄託確認文書挿入倉庫
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20),
@作成会社CD varchar(20), @元文書種類CD varchar(20), @文書種類CD varchar(20),
--@文書内容CD varchar(20), @発信先文書内容CD varchar(20), @処理日 datetime, @学生番号 varchar(12)
@文書内容CD varchar(20), @処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
--declare @先方文書種類CD varchar(2)
--declare @先方文書内容CD varchar(20)

begin transaction

--元文書書類CDから取引先CDを取得
SELECT @取引先CD = (SELECT 取引先CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @元文書種類CD AND 文書内容CD = @文書内容CD)
--SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
--SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

if @処理日 is null or @処理日 = '' begin
	--元文書書類CDから処理日を取得
	SELECT @処理日 = (SELECT 処理日 FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @元文書種類CD AND 文書内容CD = @文書内容CD)
end

/* 自分の文書を作成 */
if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S') begin
	select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
end else begin
	select @番号 = 0
end 

SET @文書CD = @番号 + 1

INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @作成会社CD)

if @@error <> 0 begin
       rollback transaction
       select -1  return
end

/* 発信文書を作成 */
if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R') begin
	select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
end else begin
	select @番号 = 0
end 

SET @文書CD = @番号 + 1

/*
INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/
/* 061106 */
INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
--VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @発信先文書内容CD, 0, 0, @作成会社CD)
VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @作成会社CD)

if @@error <> 0 begin
       rollback transaction
       select -1  return
end

commit transaction

select @文書内容CD







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO








CREATE   PROCEDURE dbo.SPD寄託確認文書挿入管理部
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20),
@作成会社CD varchar(20), @元文書種類CD varchar(20), @文書種類CD varchar(20),
--@文書内容CD varchar(20), @発信先文書内容CD varchar(20), @処理日 datetime, @学生番号 varchar(12)
@文書内容CD varchar(20), @処理日 datetime, @学生番号 varchar(12)

AS

declare @番号  int   
declare @文書CD  int   
declare @取引先CD varchar(20)
--declare @先方文書種類CD varchar(2)
--declare @先方文書内容CD varchar(20)

begin transaction

--元文書書類CDから取引先CDを取得
SELECT @取引先CD = (SELECT 取引先CD FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @元文書種類CD AND 文書内容CD = @文書内容CD)
--SELECT @先方文書種類CD = (SELECT 先方文書種類CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
--SELECT @先方文書内容CD = (SELECT 先方文書内容CD FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

if @処理日 is null or @処理日 = '' begin
	--元文書書類CDから処理日を取得
	SELECT @処理日 = (SELECT 処理日 FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @元文書種類CD AND 文書内容CD = @文書内容CD)
end

/* 自分の文書を作成 */
if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S') begin
	select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
end else begin
	select @番号 = 0
end 

SET @文書CD = @番号 + 1

INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @作成会社CD)

if @@error <> 0 begin
       rollback transaction
       select -1  return
end

/* 発信文書を作成 */
if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R') begin
	select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
end else begin
	select @番号 = 0
end 

SET @文書CD = @番号 + 1

/*
INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
*/
/* 061106 */
INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
--VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @発信先文書内容CD, 0, 0, @作成会社CD)
VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @作成会社CD)

if @@error <> 0 begin
       rollback transaction
       select -1  return
end

commit transaction

select @文書内容CD








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO









CREATE  PROCEDURE dbo.SPD寄託確認文書開封
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

UPDATE TTX文書F
SET 開封フラグ = 1
FROM TTX文書F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD材料出庫挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @商品CD varchar(20), @数量 int, @単価 money, @運送単価 money

AS

declare @文書内容CD smallint
declare @入出庫SEQ smallint

begin transaction

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

SELECT @文書内容CD = (SELECT MAX(文書内容CD) FROM TGA入出庫TRN WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = 'ZU'))
if @文書内容CD Is Null 
begin
	SELECT @文書内容CD = 1
end		
else
begin
	SELECT @文書内容CD = @文書内容CD + 1
end 

SELECT @入出庫SEQ = (SELECT MAX(入出庫SEQ) FROM YTMP_TGA入出庫明細TRN WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書内容CD = @文書内容CD))
if @入出庫SEQ Is Null 
begin
	SELECT @入出庫SEQ = 1
end		
else
begin
	SELECT @入出庫SEQ = @入出庫SEQ + 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO YTMP_TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
VALUES  (@システムCD, @演習CD, @会社CD, @会社CD, 'ZU', @文書内容CD, @入出庫SEQ, @商品CD, @数量, @単価, @運送単価)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD材料出庫更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @文書内容CD varchar(20), @処理日 datetime, @学生番号 varchar(20)

AS

begin transaction

if exists(SELECT * FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = 'ZU' AND 文書内容CD = @文書内容CD)
begin
	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = 'ZU' AND 文書内容CD = @文書内容CD
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = 'ZU' AND 文書内容CD = @文書内容CD
end
	
if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TGA入出庫TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @会社CD, 'ZU', @文書内容CD, 1, @処理日, null, null, null, null, null, null, 0, 0, 0, 1, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TGA入出庫明細TRN
SELECT *
FROM YTMP_TGA入出庫明細TRN
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

DELETE FROM YTMP_TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD製造指図書一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TGD製造指図書F.会社CD
	, TDA会社M.会社名称 AS 製造会社名
	, TGD製造指図書F.文書内容CD
	, TGD製造指図書F.製造状況区分
	, TGD製造指図書F.処理日
	, TGD製造指図書F.完了日
	, 入出庫明細.先方文書種類CD
	, 入出庫明細.先方文書内容CD
	, 商品明細.商品CD
	, TDA商品M.商品名称 AS 商品名称
	, 商品明細.数量 AS 商品数量
	, 商品明細.単価 AS 商品単価
FROM TGD製造指図書F
LEFT JOIN TGA入出庫TRN 入出庫明細
	ON TGD製造指図書F.システムCD = 入出庫明細.システムCD
	AND TGD製造指図書F.演習CD = 入出庫明細.演習CD
	AND TGD製造指図書F.会社CD = 入出庫明細.会社CD
	AND TGD製造指図書F.製造状況区分 = 入出庫明細.文書種類CD
	AND TGD製造指図書F.商品入庫CD = 入出庫明細.文書内容CD
--	AND 入出庫明細.文書種類CD = 'PS'
LEFT JOIN TGA入出庫明細TRN 商品明細
	ON TGD製造指図書F.システムCD = 商品明細.システムCD
	AND TGD製造指図書F.演習CD = 商品明細.演習CD
	AND TGD製造指図書F.会社CD = 商品明細.会社CD
	AND TGD製造指図書F.製造状況区分 = 商品明細.文書種類CD
	AND TGD製造指図書F.商品入庫CD = 商品明細.文書内容CD
--	AND 商品明細.文書種類CD = 'PS'
LEFT JOIN TDA商品M
	ON TDA商品M.システムCD = 商品明細.システムCD
	AND TDA商品M.演習CD = 商品明細.演習CD
	AND TDA商品M.所有会社CD = 商品明細.会社CD
	AND TDA商品M.商品CD = 商品明細.商品CD
LEFT JOIN TDA会社M
	ON TDA会社M.システムCD = 商品明細.システムCD
	AND TDA会社M.演習CD = 商品明細.演習CD
	AND TDA会社M.会社CD = 商品明細.会社CD
WHERE TGD製造指図書F.システムCD = @システムCD
	AND TGD製造指図書F.演習CD = @演習CD
	AND (@会社CD = '' OR TGD製造指図書F.会社CD = @会社CD)
ORDER BY TGD製造指図書F.処理日 DESC, TGD製造指図書F.文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD製造指図書削除
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @文書内容CD varchar(20)

AS

DELETE FROM TGD製造指図書F WHERE システムCD = @システムCD AND 会社CD = @会社CD AND 演習CD = @演習CD AND 文書内容CD = @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD製造指図書取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @文書内容CD varchar(20)

AS

SELECT TGD製造指図書F.会社CD
	,TGD製造指図書F.文書内容CD
	,TGD製造指図書F.製造状況区分
	,TGD製造指図書F.商品入庫CD
	,TGD製造指図書F.材料出庫CD
	,TGD製造指図書F.処理日
	,TGD製造指図書F.完了日
	,TGD製造指図書F.経費
	,TGD製造指図書F.労務費
	,入出庫明細.先方文書種類CD
	,入出庫明細.先方文書内容CD
	,商品明細.入出庫SEQ AS 商品入出庫SEQ
	,商品明細.商品CD
	,TDA商品M.商品名称 AS 商品名称
	,TDA商品M.ロット AS ロット
	,TDA商品M.単位 AS 単位
	,商品明細.数量 AS 商品数量
	,商品明細.単価 AS 商品単価
	,材料明細.入出庫SEQ AS 材料入出庫SEQ
	,材料明細.商品CD AS 材料CD
	,TDA材料M.材料名称 AS 材料名称
	,材料明細.数量 AS 材料数量
	,材料明細.単価 AS 材料単価
FROM TGD製造指図書F
LEFT JOIN TGA入出庫TRN 入出庫明細
	ON TGD製造指図書F.システムCD = 入出庫明細.システムCD
	AND TGD製造指図書F.演習CD = 入出庫明細.演習CD
	AND TGD製造指図書F.会社CD = 入出庫明細.会社CD
	AND TGD製造指図書F.製造状況区分 = 入出庫明細.文書種類CD
	AND TGD製造指図書F.商品入庫CD = 入出庫明細.文書内容CD
--	AND 入出庫明細.文書種類CD = 'PS'
LEFT JOIN TGA入出庫明細TRN 商品明細
	ON TGD製造指図書F.システムCD = 商品明細.システムCD
	AND TGD製造指図書F.演習CD = 商品明細.演習CD
	AND TGD製造指図書F.会社CD = 商品明細.会社CD
	AND TGD製造指図書F.製造状況区分 = 商品明細.文書種類CD
	AND TGD製造指図書F.商品入庫CD = 商品明細.文書内容CD
--	AND 商品明細.文書種類CD = 'PS'
LEFT JOIN TDA商品M
	ON TDA商品M.システムCD = 商品明細.システムCD
	AND TDA商品M.演習CD = 商品明細.演習CD
	AND TDA商品M.所有会社CD = 商品明細.会社CD
	AND TDA商品M.商品CD = 商品明細.商品CD
LEFT JOIN TGA入出庫明細TRN 材料明細
	ON TGD製造指図書F.システムCD = 材料明細.システムCD
	AND TGD製造指図書F.演習CD = 材料明細.演習CD
	AND TGD製造指図書F.会社CD = 材料明細.会社CD
	AND TGD製造指図書F.材料出庫CD = 材料明細.文書内容CD
	AND 材料明細.文書種類CD = 'ZU'
LEFT JOIN TDA材料M
	ON TDA材料M.システムCD = 材料明細.システムCD
	AND TDA材料M.演習CD = 材料明細.演習CD
	AND (TDA材料M.所有会社CD = 材料明細.会社CD OR TDA材料M.所有会社CD = '' OR TDA材料M.所有会社CD IS NULL)
	AND TDA材料M.材料CD = 材料明細.商品CD
WHERE TGD製造指図書F.システムCD = @システムCD
	AND TGD製造指図書F.演習CD = @演習CD
	AND TGD製造指図書F.会社CD = @会社CD
	AND TGD製造指図書F.文書内容CD = @文書内容CD
ORDER BY 材料入出庫SEQ




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPD製造指図書挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @製造状況区分 varchar(2)
, @商品入庫CD varchar(20)
, @材料出庫CD varchar(20)
, @処理日 datetime
, @経費 money
, @労務費 money
, @学生番号 varchar(12)

AS

declare @文書内容CD smallint

begin transaction

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

SELECT @文書内容CD = (SELECT MAX(文書内容CD) FROM TGD製造指図書F WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD))
if @文書内容CD Is Null 
begin
	SELECT @文書内容CD = 1
end		
else
begin
	SELECT @文書内容CD = @文書内容CD + 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TGD製造指図書F (システムCD, 演習CD, 会社CD, 文書内容CD, 製造状況区分, 商品入庫CD, 材料出庫CD, 処理日, 経費, 労務費, 削除フラグ, 学生番号)
VALUES  (@システムCD, @演習CD, @会社CD, @文書内容CD, @製造状況区分, @商品入庫CD, @材料出庫CD, @処理日, @経費, @労務費, 0, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPD製造指図書更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @文書内容CD varchar(20)
, @製造状況区分 varchar(2), @商品入庫CD varchar(20), @材料出庫CD varchar(20), @完了日 datetime

AS

begin transaction

UPDATE TGD製造指図書F
SET 商品入庫CD = @商品入庫CD
	,製造状況区分 = @製造状況区分
	,材料出庫CD = @材料出庫CD
	,完了日 = @完了日
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 文書内容CD = @文書内容CD

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPKキャッシュフロー
@システムCD varchar(12), @演習CD  varchar(12)  , @会社CD  varchar(20)  
AS

declare @1001 money , @1002 money  , @1003 money , @1004 money , @1009 money
declare @1011 money , @1012 money  , @1013 money , @1014 money , @1015 money , @1999 money
declare @2001 money , @2002 money  , @2003 money , @2004 money , @2999 money
declare @3001 money , @3002 money  , @3003 money , @3004 money , @3999 money
declare @4999 money , @5999 money , @6999 money
declare @kin1 money , @kin2 money , @kin3 money , @kin4 money , @kin5 money  , @kin6 money
create table #meisai 
(
   勘定CD        varchar(25)  null
,  勘定区分       varchar(1)  null
,  貸借区分       varchar(1)  null
,  費用区分       varchar(1)  null
,  分析区分       varchar(2)  null
,  借方金額       money      null
,  貸方金額       money      null
,  伝票処理区分 smallint
)

create table #list 
(
   勘定CD        varchar(25)  null
,  分類名称      varchar(10)  null
,  勘定名称      varchar(50)  null
,  金額左         money      null
,  金額右         money      null
)

/* 対象伝票データの抽出 --> #meisai  */
insert #meisai 
SELECT          TSK伝票明細F.勘定CD, TDA勘定科目M.勘定区分, TDA勘定科目M.貸借区分, 
                      TDA勘定科目M.費用区分, TDA勘定科目M.分析用区分, TSK伝票明細F.借方金額, 
                      TSK伝票明細F.貸方金額, 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
WHERE           (TSK伝票F.削除フラグ = 0) AND (TDA勘定科目M.業種CD = 'S')
 AND TSK伝票F.システムCD         =   @システムCD
 AND TSK伝票F.演習CD         =   @演習CD
 and   TSK伝票F.会社CD  =   @会社CD
 and   TDA勘定科目M.システムCD   =   @システムCD
 and   TDA勘定科目M.演習CD   =   @演習CD

/* 営業活動によるキャッシュ・フロー */
/*　営業収入　*/
/*  売上 */
set @kin1 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定区分 = 'P' and 費用区分 = 'S'),0)
/*  売上債権の増減 */
set @kin2 = isnull((select (sum(貸方金額)  -  sum(借方金額))  from #meisai 
where 勘定CD in ('1131','1133')  and 伝票処理区分 <> 0),0)
/*  仮受消費税の増減 */
set @kin3 = isnull((select (sum(貸方金額)  -  sum(借方金額))  from #meisai 
where 勘定CD in ( '4167')  and 伝票処理区分 <> 0),0)
set @1001 = @kin1 + @kin2 + @kin3

/*　商品の仕入支出　*/
/*  売上原価 */
set @kin1 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定区分 = 'P' and 費用区分 = 'G'),0)
/*  棚卸資産増減 */
set @kin2 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD in ( '1210','1213','1222') and 伝票処理区分 <> 0),0)
/*  仕入債務の増減 */
set @kin3 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD in ('4120') and 伝票処理区分 <> 0),0)
/*  仮払消費税の増減 */
set @kin4 = isnull((select (sum(借方金額)  -  sum(貸方金額))  from #meisai 
where 勘定CD in ( '1457')  and 伝票処理区分 <> 0),0)
set @1002 =-(@kin1 + @kin2 + @kin3 + @kin4)

/*　人件費支出　*/
/*  人件費 */
set @kin1 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD in ( '8410') ),0)
/*  未払人件費の増減 */
set @kin2 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD in ( '4146','4170','4171','4172','4173')  and 伝票処理区分 <> 0),0)
set @1003 =-(@kin1 + @kin2)

/*　その他の営業支出　*/
/*  その他の経費１ */
set @kin1 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD >= '8300' and 勘定CD <= '8399' ),0)
/*  その他の経費２ */
set @kin2 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD >= '8470' and 勘定CD <= '8599' ),0)
/*  貸し倒れ引当金戻入れ */
set @kin3 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定CD in ( '9902') ),0)
/*  貸倒引当金・未払消費税 増減 */
set @kin4 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定CD in ( '1139','1432','4147') and 伝票処理区分 <> 0 ),0)
set @1004 = -(@kin1 + @kin2 + @kin3 + @kin4)
/*　営業収入　小計　*/
set @1009 = @1001 + @1002 + @1003 + @1004




/*  利息および雑収入 */
set @1011 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 

where 勘定CD in ( '8610','8790') ),0)

/*  利息の支払額 */
set @kin1 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD in ( '8810') ),0)
set @1012 = -(@kin1)

/*  法人税等の支払額 */
/*  法人税等 */
set @kin1 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定CD in ( '9950') ),0)
/*  未払法人税等 */
set @kin2 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定CD in ('1711')  and 伝票処理区分 <> 0),0)
set @kin3 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD in ( '4148')  and 伝票処理区分 <> 0),0)
set @1013 = -(@kin1 + @kin2 + @kin3)

/*  その他の未収債権等の増減 */
set @1014 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定CD in ('1121','1122','1223','1270','1280','1410','1431','1450','1421','1425','1448','1455', '3130','3140','3150') and 伝票処理区分 <> 0 ),0)
/*  その他の未払債務等の増減 */
set @1015 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定CD in ( '4111','4140', '4141','4142','4150','4160','4165','4175','5100') and 伝票処理区分 <> 0 ),0)

/* 営業活動によるキャッシュ・フロー 合計　*/
set @1999 = @1009 + @1011 + @1012 + @1013 + @1014 + @1015
/* 投資活動によるキャッシュフロー */
/*  有価証券・固定資産取得による支払額 */
/*  有価証券取得 */
set @kin1 = isnull((select (sum(借方金額))  from #meisai 
where 勘定CD in ( '1140','2611','2615') and 伝票処理区分 <> 0 ),0)
/*  固定資産取得 */
set @kin2 = isnull((select ( sum(借方金額))  from #meisai 
where 勘定CD >= '2111'  and 勘定CD <='2420' and 伝票処理区分 <> 0 ),0)
set @2001 =-(@kin1+ @kin2)

/*  有価証券・固定資産売却による収入 */
/*  有価証券・固定資産売却損益 */
set @kin1 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定CD in ('8625','8630','8880','8890','9901','9910') ),0)
/*  有価証券減少 */
set @kin2 = isnull((select (sum(貸方金額))  from #meisai 
where 勘定CD in ( '1140','2611','2615') and 伝票処理区分 <> 0 ),0)
/*  固定資産減少 */
set @kin3 = isnull((select (sum(貸方金額))  from #meisai 
where 勘定CD >= '2111'  and 勘定CD <='2420' and 伝票処理区分 <> 0 ),0)
set @2002 = (@kin1 + @kin2 + @kin3)

/*  貸付による支出 */
/*  貸付金発生 */
set @kin1 = isnull((select ( sum(借方金額))  from #meisai 
where 勘定CD in ( '1440','1441') and 伝票処理区分 <> 0),0)
set @2003 = -(@kin1)

/*  貸付金回収による収入 */
/*  貸付金回収 */
set @2004 = isnull((select ( sum(貸方金額))  from #meisai 
where 勘定CD in ( '1440','1441') and 伝票処理区分 <> 0),0)

/* 投資活動によるキャッシュフロー 合計　*/
set @2999 = @2001 + @2002 + @2003 + @2004

/* 財務活動によるキャッシュフロー */
/*  社債・株式の発行による収入 */
/*  資本勘定の増減 */
set @3001 = isnull((select (sum(貸方金額) -  sum(借方金額))  from #meisai 
where 勘定CD >= '5110' and  勘定CD <=  '7330'  and 伝票処理区分<>0),0)

/*  借り入れによる収入 */
/*  借り入れ金金発生 */
set @3002 = isnull((select ( sum(貸方金額))  from #meisai 
where 勘定CD in ('4115', '4129') and 伝票処理区分<>0),0)

/*  借り入金返済による支出 */
/*  借入金返済 */
set @kin1 = isnull((select ( sum(借方金額))  from #meisai 
where 勘定CD in ('4115', '4129') and 伝票処理区分<>0),0)
set @3003 = -(@kin1)

/*  配当金の支払額 */
/*  未払配当金の減少 */
set @kin1 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD in ('4145') and 伝票処理区分 <> 0),0)
set @3004 = -(@kin1)

/* 財務活動によるキャッシュフロー 合計　*/
set @3999 = @3001 + @3002 + @3003 + @3004

/*  現金および現金同等物の期首残高 */
/*set @5999 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai */
set @5999 = isnull((select (sum(借方金額))  from #meisai 
where 勘定CD between '1111' and '1119'  and 伝票処理区分=0),0)

/*  現金および現金同等物の期末残高 */
set @6999 = isnull((select (sum(借方金額) -  sum(貸方金額))  from #meisai 
where 勘定CD between '1111' and '1119' ),0)

/*  現金および現金同等物の増減額 */
set @4999 = @6999-@5999

/*　リストファイル作成　*/
insert into #list  values ('1000','Ⅰ',' 営業活動によるキャッシュ・フロー',null,null)
insert into #list  values ('1001','','営業収入',@1001,null)   /* 営業収入 */
insert into #list  values ('1002','','商品の仕入支出',@1002,null)   /* 売上原価 */
insert into #list  values ('1003','','人件費等支出',@1003,null)   /* 人件費等 */
insert into #list  values ('1004','','その他の営業支出',@1004,null)   /* 未払消費税 */
insert into #list  values ('1009','','小計',@1009,null)   /* 小計 */
insert into #list  values ('1011','','利息の受取額',@1011,null)   /* 受取利息 */
insert into #list  values ('1012','','利息の支払額',@1012,null)   /* 支払利息 */
insert into #list  values ('1013','','法人税等の支払額',@1013,null)   /* 法人税等 */
insert into #list  values ('1014','','その他未収債権等による増減要因',@1014,null)   /* 未収債権 */
insert into #list  values ('1015','','その他未払債務等による増減要因',@1015,null)   /* 未払債務 */
insert into #list  values ('1999','','営業活動によるキャッシュ・フロー　　計',null,@1999)   /* 合計-1 */
insert into #list  values ('2000','Ⅱ','投資活動によるキャッシュ・フロー',null,null)   /* ﾀｲﾄﾙ２ */
insert into #list  values ('2001','','有価証券・有形固定資産の取得による支出',@2001,null)   /* 資産取得 */
insert into #list  values ('2002','','有価証券・有形固定資産の売却による収入',@2002,null)   /* 資産売却 */
insert into #list  values ('2003','','貸付による支出',@2003,null)   /* 資産取得 */
insert into #list  values ('2004','','貸付金の回収による収入',@2004,null)   /* 資産売却 */
insert into #list  values ('2999','','投資活動によるキャッシュ・フロー　　計',null,@2999)   /* 合計-２ */
insert into #list  values ('3000','Ⅲ','財務活動によるキャッシュ・フロー',null,null)   /* ﾀｲﾄﾙ３ */
insert into #list  values ('3001','','社債・株式の発行による収入',@3001,null)   /* 株式発行 */
insert into #list  values ('3002','','借入による収入',@3002,null)   /* 借入金 */
insert into #list  values ('3003','','借入金の返済による支出',@3003,null)   /* 借入金返済 */
insert into #list  values ('3004','','配当金の支払額',@3004,null)   /* 配当金 */
insert into #list  values ('3999','','財務活動によるキャッシュ・フロー　　計',null,@3999)   /* 合計-３ */
insert into #list  values ('4999','Ⅳ','現金及び現金同等物の増加額',null,@4999)   /* 合計-４ */
insert into #list  values ('5999','Ⅴ','現金及び現金同等物期首残高',null,@5999)   /* 合計-５ */
insert into #list  values ('6999','Ⅵ','現金及び現金同等物期末残高',null,@6999)   /* 合計-６ */

select * from #list order by 勘定CD













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK仕入明細取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS
	SELECT * FROM TSK伝票仕入売上明細F 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号= @伝票番号 AND 伝票区分 = 'd3'
	ORDER BY 仕入売上明細SEQ

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK伝票_仕入伝票一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

	SELECT          MIN(TSK伝票F.取引日) AS 取引日の先頭, TSK伝票F.伝票番号, 
                      MIN(TSK伝票F.伝票区分) AS 伝票区分の先頭, MIN(TSK伝票F.伝票摘要) 
                      AS 伝票摘要の先頭, SUM(TSK伝票明細F.借方金額) AS 借方金額の合計, 
                      SUM(TSK伝票明細F.貸方金額) AS 貸方金額の合計, 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.伝票番号
	WHERE            (TSK伝票F.システムCD = @システムCD) AND (TSK伝票F.演習CD = @演習CD) AND (TSK伝票F.会社CD = @会社CD)  AND (TSK伝票F.伝票区分 = 'D3') 
	GROUP BY     TSK伝票F.伝票番号, TSK伝票F.伝票処理区分, TSK伝票F.伝票区分,  TSK伝票F.削除フラグ
	ORDER BY     MIN(TSK伝票F.取引日), TSK伝票F.伝票番号

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK伝票_仕入伝票取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS
	SELECT          TSK伝票F.*, TSK伝票明細F.伝票SEQ, TSK伝票明細F.勘定CD, 
                      TSK伝票明細F.借方金額, TSK伝票明細F.貸方金額, TSK伝票明細F.会社CD, 
                      TSK伝票明細F.摘要CD, TSK伝票明細F.摘要, TC5学生M.氏名, TDA勘定科目M.勘定名称, TDA勘定科目M.特別勘定区分, 摘要会社.会社略名称 AS 摘要会社名称
	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 
                      LEFT OUTER JOIN TDA会社M 摘要会社 ON TSK伝票明細F.システムCD = 摘要会社.システムCD AND TSK伝票明細F.演習CD = 摘要会社.演習CD AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
                      LEFT OUTER JOIN
                      TC5学生M ON TSK伝票F.システムCD = TC5学生M.システムCD AND TSK伝票F.学生番号 = TC5学生M.学生番号
	WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND TSK伝票F.会社CD = @会社CD AND TSK伝票明細F.伝票番号 = @伝票番号 AND TSK伝票F.伝票区分 = 'D3'
	ORDER BY TSK伝票明細F.伝票SEQ








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPK伝票_仕入伝票挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票区分  varchar(2), @伝票番号 varchar(20), @伝票処理区分 smallint
,@伝票摘要  varchar(40),@仕入売上区分 varchar(4) , @取引先CD varchar(20)   
,@取引日 datetime , @学生番号 varchar(12),@通常返品区分 varchar(12)
,@伝票SEQ1 smallint, @商品CD1  varchar(20) ,@受注数量1 int ,@受注単価1 money ,@消費税率1 real
,@伝票SEQ2 smallint, @商品CD2  varchar(20) ,@受注数量2 int ,@受注単価2 money ,@消費税率2 real
,@伝票SEQ3 smallint, @商品CD3  varchar(20) ,@受注数量3 int ,@受注単価3 money ,@消費税率3 real
,@伝票SEQ4 smallint, @商品CD4  varchar(20) ,@受注数量4 int ,@受注単価4 money ,@消費税率4 real
,@伝票SEQ5 smallint, @商品CD5  varchar(20) ,@受注数量5 int ,@受注単価5 money ,@消費税率5 real
,@仕入勘定CD  varchar(25),@仕入相手勘定CD  varchar(25),@仕入借方金額 money   ,@仕入貸方金額 money  ,@仕入貸借区分 varchar(1)  
,@借方消費税勘定CD  varchar(25),@借方消費税相手勘定CD  varchar(25),@借方消費税借方金額 money   ,@借方消費税貸方金額 money  ,@借方消費税貸借区分 varchar(1)  
,@貸方買掛金勘定CD  varchar(25),@貸方買掛金相手勘定CD  varchar(25),@貸方買掛金借方金額 money   ,@貸方買掛金貸方金額 money  ,@貸方買掛金貸借区分 varchar(1)  

AS

declare @番号  varchar(12) 

begin transaction

/* 伝票番号採番 */

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if @伝票番号 = ''
	begin
		execute @番号 = SP0伝票採番取得  @システムCD, @演習CD, @会社CD, @取引日, @伝票区分
		select @伝票番号 = REPLACE(STR(@番号, 7), ' ','0')
	end

	DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

/* １．TSK伝票F　登録 */
insert TSK伝票F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票処理区分, 取引日, 伝票摘要, 作成日, 学生番号, 通常返品区分, 取引先CD, 削除フラグ)
values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票処理区分, @取引日, @伝票摘要, getdate(), @学生番号, @通常返品区分 ,@取引先CD, 0)
if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSK伝票仕入売上明細F登録　登録 */
if @商品CD1 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ1, @商品CD1, @受注数量1, @受注単価1, @消費税率1, @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ2, @商品CD2, @受注数量2, @受注単価2, @消費税率2,  @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ3, @商品CD3, @受注数量3, @受注単価3, @消費税率3, @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ4, @商品CD4, @受注数量4, @受注単価4, @消費税率4,  @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ5, @商品CD5, @受注数量5, @受注単価5, @消費税率5,  @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

/* ３．TSK伝票明細F　登録 */
/**  仕入借方勘定作成  **/ 
if @仕入勘定CD is not null
  begin 
    insert TSK伝票明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 1, @仕入勘定CD, @仕入借方金額, @仕入貸方金額, @仕入貸借区分, @仕入相手勘定CD, @取引先CD, null)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end
/**  借方消費税勘定作成  **/ 
if @借方消費税勘定CD is not null
  begin 

    insert TSK伝票明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要) 
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 2, @借方消費税勘定CD, @借方消費税借方金額, @借方消費税貸方金額, @借方消費税貸借区分, @借方消費税相手勘定CD, null, null)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end
/**  貸方買掛金勘定作成  **/ 
if @貸方買掛金勘定CD is not null
  begin 
    insert TSK伝票明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要) 
    values(@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 3, @貸方買掛金勘定CD, @貸方買掛金借方金額, @貸方買掛金貸方金額, @貸方買掛金貸借区分, @貸方買掛金相手勘定CD, @取引先CD, null)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPK伝票_仕入伝票更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(40), @旧伝票番号 varchar(12)
,@伝票処理区分 smallint
,@伝票摘要  varchar(40),@仕入売上区分 varchar(4) , @取引先CD varchar(20)   
,@取引日 datetime , @学生番号 varchar(12),@通常返品区分 varchar(12)
,@伝票SEQ1 smallint, @商品CD1  varchar(20) ,@受注数量1 int ,@受注単価1 money ,@消費税率1 real
,@伝票SEQ2 smallint, @商品CD2  varchar(20) ,@受注数量2 int ,@受注単価2 money ,@消費税率2 real
,@伝票SEQ3 smallint, @商品CD3  varchar(20) ,@受注数量3 int ,@受注単価3 money ,@消費税率3 real
,@伝票SEQ4 smallint, @商品CD4  varchar(20) ,@受注数量4 int ,@受注単価4 money ,@消費税率4 real
,@伝票SEQ5 smallint, @商品CD5  varchar(20) ,@受注数量5 int ,@受注単価5 money ,@消費税率5 real
,@仕入勘定CD  varchar(25),@仕入相手勘定CD  varchar(25),@仕入借方金額 money   ,@仕入貸方金額 money  ,@仕入貸借区分 varchar(1)  
,@借方消費税勘定CD  varchar(25),@借方消費税相手勘定CD  varchar(25),@借方消費税借方金額 money   ,@借方消費税貸方金額 money  ,@借方消費税貸借区分 varchar(1)  
,@貸方買掛金勘定CD  varchar(25),@貸方買掛金相手勘定CD  varchar(25),@貸方買掛金借方金額 money   ,@貸方買掛金貸方金額 money  ,@貸方買掛金貸借区分 varchar(1)  

AS

declare @番号  varchar(12) 

begin transaction

exec SPK伝票_削除 @システムCD, @演習CD, @会社CD, @伝票区分, @旧伝票番号

execute @伝票番号 = SPK伝票_仕入伝票挿入 @システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票処理区分
,@伝票摘要,@仕入売上区分, @取引先CD
,@取引日 , @学生番号 ,@通常返品区分 
,@伝票SEQ1 , @商品CD1   ,@受注数量1  ,@受注単価1 ,@消費税率1
,@伝票SEQ2 , @商品CD2   ,@受注数量2  ,@受注単価2 ,@消費税率2
,@伝票SEQ3 , @商品CD3   ,@受注数量3  ,@受注単価3 ,@消費税率3
,@伝票SEQ4 , @商品CD4   ,@受注数量4  ,@受注単価4 ,@消費税率4
,@伝票SEQ5 , @商品CD5   ,@受注数量5  ,@受注単価5 ,@消費税率5
,@仕入勘定CD  ,@仕入相手勘定CD ,@仕入借方金額    ,@仕入貸方金額  ,@仕入貸借区分
,@借方消費税勘定CD  ,@借方消費税相手勘定CD  ,@借方消費税借方金額   ,@借方消費税貸方金額   ,@借方消費税貸借区分
,@貸方買掛金勘定CD  ,@貸方買掛金相手勘定CD  ,@貸方買掛金借方金額   ,@貸方買掛金貸方金額   ,@貸方買掛金貸借区分

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_仕入伝票消費税更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @伝票番号 varchar(40)
, @仮払消費税勘定 varchar(25), @仮払消費税 money
, @買掛金勘定 varchar(25), @買掛金 money

AS

begin transaction

--存在しない場合はINSERTする必要があるため一旦削除
DELETE FROM TSK伝票明細F
where システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 伝票区分 = 'D3'
	AND 伝票番号 = @伝票番号
	AND 勘定CD = @仮払消費税勘定

if @仮払消費税 > 0
begin
	INSERT INTO TSK伝票明細F (システムCD
		, 演習CD
		, 会社CD
		, 伝票区分
		, 伝票番号
		, 伝票SEQ
		, 勘定CD
		, 借方金額)
	VALUES (@システムCD
		, @演習CD
		, @会社CD
		, 'D3'
		, @伝票番号
		, 5
		, @仮払消費税勘定
		, @仮払消費税)
end

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

update TSK伝票明細F
set 貸方金額 = @買掛金
where システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 伝票区分 = 'D3'
	AND 伝票番号 = @伝票番号
	AND 勘定CD = @買掛金勘定

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





















CREATE    PROCEDURE dbo.SPK伝票_仕入明細取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS
	SELECT TSK伝票仕入売上明細F.*, TDA商品M.標準販売単価, TDA商品M.商品名称, TDA商品M.商品略名称
	FROM TSK伝票仕入売上明細F 
	LEFT OUTER 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.会社CD = @会社CD
	 AND TSK伝票仕入売上明細F.伝票番号= @伝票番号
	 AND TSK伝票仕入売上明細F.伝票区分 = 'D3'
	ORDER BY 仕入売上明細SEQ














GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






--伝票を5伝票通しで重複チェックするための取得プロシージャ
CREATE PROCEDURE dbo.SPK伝票_伝票取得全区分
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS
	SELECT          TSK伝票F.*, TSK伝票明細F.伝票SEQ, TSK伝票明細F.勘定CD, 
                      TSK伝票明細F.借方金額, TSK伝票明細F.貸方金額, TSK伝票明細F.会社CD, 
                      TSK伝票明細F.摘要CD, TSK伝票明細F.摘要, TC5学生M.氏名, TDA勘定科目M.勘定名称, TDA勘定科目M.特別勘定区分, 摘要会社.会社略名称 AS 摘要会社名称
	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 
                      LEFT OUTER JOIN TDA会社M 摘要会社 ON TSK伝票明細F.システムCD = 摘要会社.システムCD AND TSK伝票明細F.演習CD = 摘要会社.演習CD AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
                      LEFT OUTER JOIN
                      TC5学生M ON TSK伝票F.システムCD = TC5学生M.システムCD AND TSK伝票F.学生番号 = TC5学生M.学生番号
	WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND TSK伝票F.会社CD = @会社CD AND TSK伝票明細F.伝票番号 = @伝票番号
	ORDER BY TSK伝票明細F.伝票SEQ






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK伝票_入金伝票一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT          MIN(TSK伝票F.取引日) AS 取引日の先頭, TSK伝票F.伝票番号, 
                      MIN(TSK伝票F.伝票区分) AS 伝票区分の先頭, MIN(TSK伝票F.伝票摘要) 
                      AS 伝票摘要の先頭, SUM(TSK伝票明細F.借方金額) AS 借方金額の合計, 
                      SUM(TSK伝票明細F.貸方金額) AS 貸方金額の合計, 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.伝票番号
WHERE            (TSK伝票F.システムCD = @システムCD) AND (TSK伝票F.演習CD = @演習CD) AND (TSK伝票F.会社CD = @会社CD)  AND (TSK伝票F.伝票区分 = 'd1') 
GROUP BY     TSK伝票F.伝票番号, TSK伝票F.伝票処理区分, TSK伝票F.伝票区分, 
                      TSK伝票F.削除フラグ
ORDER BY     MIN(TSK伝票F.取引日), TSK伝票F.伝票番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_入金伝票取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK伝票F.*
	, TSK伝票明細F.伝票SEQ
	, TSK伝票明細F.勘定CD
	, TSK伝票明細F.借方金額
	, TSK伝票明細F.貸方金額
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.摘要CD
	, TSK伝票明細F.摘要
	, TC5学生M.氏名
	, TDA勘定科目M.勘定名称
	, TDA勘定科目M.特別勘定区分
	, 摘要会社.会社略名称 AS 摘要会社名称
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 (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
--LEFT OUTER JOIN TDA会社M 摘要会社
--	ON TSK伝票明細F.システムCD = 摘要会社.システムCD
--	AND TSK伝票明細F.演習CD = 摘要会社.演習CD
--	AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
LEFT OUTER JOIN (
	SELECT システムCD, 演習CD, 会社CD, 会社名称, 会社略名称
	FROM TDA会社M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
	UNION
	SELECT システムCD, 演習CD, 摘要CD, 摘要, 摘要
	FROM TTK摘要M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) 摘要会社
	ON TSK伝票明細F.システムCD = 摘要会社.システムCD
	AND TSK伝票明細F.演習CD = 摘要会社.演習CD
	AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
LEFT OUTER JOIN TC5学生M
	ON TSK伝票F.システムCD = TC5学生M.システムCD
	AND TSK伝票F.学生番号 = TC5学生M.学生番号
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票明細F.伝票番号 = @伝票番号
	AND TSK伝票F.伝票区分 = 'D1'
ORDER BY TSK伝票明細F.伝票SEQ




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_入金伝票挿入
@システムCD varchar(12),@演習CD varchar(12)    , @会社CD varchar(20)   , @伝票区分 varchar(2), @伝票番号  varchar(20)      
,@取引日 datetime , @伝票摘要  varchar(40)  
,@伝票処理区分 smallint    ,@学生番号 varchar(12)
/* 伝票明細 */
,@LNO1 smallint         ,@勘定CD1 varchar(25)  , @借方金額1 money   , @貸方金額1 money
,@貸借区分1 varchar(1)  ,@摘要CD1 varchar(20)  ,@摘要1  varchar(100)     , @相手勘定CD1 varchar(25)
,@LNO2 smallint         ,@勘定CD2 varchar(25)  , @借方金額2 money   , @貸方金額2 money
,@貸借区分2 varchar(1)  ,@摘要CD2 varchar(20)  ,@摘要2  varchar(100)     , @相手勘定CD2 varchar(25)
,@LNO3 smallint         ,@勘定CD3 varchar(25)  , @借方金額3 money   , @貸方金額3 money
,@貸借区分3 varchar(1)  ,@摘要CD3 varchar(20)   ,@摘要3  varchar(100)     , @相手勘定CD3 varchar(25)
,@LNO4 smallint         ,@勘定CD4 varchar(25)  , @借方金額4 money   , @貸方金額4 money
,@貸借区分4 varchar(1)  ,@摘要CD4 varchar(20)   ,@摘要4  varchar(100)     , @相手勘定CD4 varchar(25)
,@LNO5 smallint         ,@勘定CD5 varchar(25)  , @借方金額5 money   , @貸方金額5 money
,@貸借区分5 varchar(1)  ,@摘要CD5 varchar(20)   ,@摘要5  varchar(100)     , @相手勘定CD5 varchar(25)
,@LNO6 smallint         ,@勘定CD6 varchar(25)  , @借方金額6 money   , @貸方金額6 money
,@貸借区分6 varchar(1)  ,@摘要CD6 varchar(20)   ,@摘要6  varchar(100)     , @相手勘定CD6 varchar(25)
AS

declare @番号  varchar(12) 

begin transaction

/* 伝票番号採番 */

	if @伝票番号 = ''
	begin
		execute @番号 = SP0伝票採番取得  @システムCD, @演習CD, @会社CD, @取引日, @伝票区分
		select @伝票番号 = REPLACE(STR(@番号, 7), ' ','0')
	end

	DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 伝票F登録 */
insert TSK伝票F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票処理区分, 取引日, 伝票摘要, 作成日, 学生番号, 削除フラグ)
values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票処理区分, @取引日, @伝票摘要, getdate(), @学生番号, 0)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* 伝票明細F追加 */
if @勘定CD1 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO1, @勘定CD1, @借方金額1, @貸方金額1, @貸借区分1, @相手勘定CD1, @摘要CD1, @摘要1)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD2 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO2, @勘定CD2, @借方金額2, @貸方金額2, @貸借区分2, @相手勘定CD2, @摘要CD2, @摘要2)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD3 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO3, @勘定CD3, @借方金額3, @貸方金額3, @貸借区分3, @相手勘定CD3, @摘要CD3, @摘要3)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD4 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO4, @勘定CD4, @借方金額4, @貸方金額4, @貸借区分4, @相手勘定CD4, @摘要CD4, @摘要4)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD5 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO5, @勘定CD5, @借方金額5, @貸方金額5, @貸借区分5, @相手勘定CD5, @摘要CD5, @摘要5)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD6 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要) 
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO6, @勘定CD6, @借方金額6, @貸方金額6, @貸借区分6, @相手勘定CD6, @摘要CD6, @摘要6)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_入金伝票更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(20), @旧伝票番号 varchar(12)
,@取引日 datetime , @伝票摘要  varchar(40)  
,@伝票処理区分 smallint    ,@学生番号 varchar(12)
/* 伝票明細 */
, @LNO1 smallint       , @勘定CD1 varchar(25), @借方金額1 money , @貸方金額1 money
, @貸借区分1 varchar(1), @摘要CD1 varchar(20), @摘要1  varchar(100)   , @相手勘定CD1 varchar(25)
, @LNO2 smallint       , @勘定CD2 varchar(25), @借方金額2 money , @貸方金額2 money
, @貸借区分2 varchar(1), @摘要CD2 varchar(20), @摘要2  varchar(100)   , @相手勘定CD2 varchar(25)
, @LNO3 smallint       , @勘定CD3 varchar(25), @借方金額3 money , @貸方金額3 money
, @貸借区分3 varchar(1), @摘要CD3 varchar(20) , @摘要3  varchar(100)   , @相手勘定CD3 varchar(25)
, @LNO4 smallint       , @勘定CD4 varchar(25), @借方金額4 money , @貸方金額4 money
, @貸借区分4 varchar(1), @摘要CD4 varchar(20) , @摘要4  varchar(100)   , @相手勘定CD4 varchar(25)
, @LNO5 smallint       , @勘定CD5 varchar(25), @借方金額5 money , @貸方金額5 money
, @貸借区分5 varchar(1), @摘要CD5 varchar(20) , @摘要5  varchar(100)   , @相手勘定CD5 varchar(25)
, @LNO6 smallint       , @勘定CD6 varchar(25), @借方金額6 money , @貸方金額6 money
, @貸借区分6 varchar(1), @摘要CD6 varchar(20) , @摘要6  varchar(100)   , @相手勘定CD6 varchar(25)

AS

declare @番号  varchar(12) 

begin transaction

exec SPK伝票_削除 @システムCD, @演習CD, @会社CD, @伝票区分, @旧伝票番号

execute @伝票番号 = SPK伝票_入金伝票挿入 @システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @取引日, @伝票摘要, @伝票処理区分, @学生番号 
, @LNO1, @勘定CD1, @借方金額1, @貸方金額1, @貸借区分1, @摘要CD1, @摘要1, @相手勘定CD1
, @LNO2, @勘定CD2, @借方金額2, @貸方金額2, @貸借区分2, @摘要CD2, @摘要2, @相手勘定CD2
, @LNO3, @勘定CD3, @借方金額3, @貸方金額3, @貸借区分3, @摘要CD3, @摘要3, @相手勘定CD3
, @LNO4, @勘定CD4, @借方金額4, @貸方金額4, @貸借区分4, @摘要CD4, @摘要4, @相手勘定CD4
, @LNO5, @勘定CD5, @借方金額5, @貸方金額5, @貸借区分5, @摘要CD5, @摘要5, @相手勘定CD5
, @LNO6, @勘定CD6, @借方金額6, @貸方金額6, @貸借区分6, @摘要CD6, @摘要6, @相手勘定CD6

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK伝票_出金伝票一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

	SELECT          MIN(TSK伝票F.取引日) AS 取引日の先頭, TSK伝票F.伝票番号, 
                      MIN(TSK伝票F.伝票区分) AS 伝票区分の先頭, MIN(TSK伝票F.伝票摘要) 
                      AS 伝票摘要の先頭, SUM(TSK伝票明細F.借方金額) AS 借方金額の合計, 
                      SUM(TSK伝票明細F.貸方金額) AS 貸方金額の合計, 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.伝票番号

	WHERE            (TSK伝票F.システムCD = @システムCD) AND (TSK伝票F.演習CD = @演習CD) AND (TSK伝票F.会社CD = @会社CD)  AND (TSK伝票F.伝票区分 = 'd2') 
	GROUP BY     TSK伝票F.伝票番号, TSK伝票F.伝票処理区分, TSK伝票F.伝票区分, 
                      TSK伝票F.削除フラグ
	ORDER BY     MIN(TSK伝票F.取引日), TSK伝票F.伝票番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_出金伝票取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK伝票F.*
	, TSK伝票明細F.伝票SEQ
	, TSK伝票明細F.勘定CD
	, TSK伝票明細F.借方金額
	, TSK伝票明細F.貸方金額
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.摘要CD
	, TSK伝票明細F.摘要
	, TC5学生M.氏名
	, TDA勘定科目M.勘定名称
	, TDA勘定科目M.特別勘定区分
	, 摘要会社.会社略名称 AS 摘要会社名称
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 (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
--LEFT OUTER JOIN TDA会社M 摘要会社
--	ON TSK伝票明細F.システムCD = 摘要会社.システムCD
--	AND TSK伝票明細F.演習CD = 摘要会社.演習CD
--	AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
LEFT OUTER JOIN (
	SELECT システムCD, 演習CD, 会社CD, 会社名称, 会社略名称
	FROM TDA会社M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
	UNION
	SELECT システムCD, 演習CD, 摘要CD, 摘要, 摘要
	FROM TTK摘要M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) 摘要会社
	ON TSK伝票明細F.システムCD = 摘要会社.システムCD
	AND TSK伝票明細F.演習CD = 摘要会社.演習CD
	AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
LEFT OUTER JOIN TC5学生M
	ON TSK伝票F.システムCD = TC5学生M.システムCD
	AND TSK伝票F.学生番号 = TC5学生M.学生番号
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票明細F.伝票番号 = @伝票番号
	AND TSK伝票F.伝票区分 = 'D2'
ORDER BY TSK伝票明細F.伝票SEQ




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_出金伝票挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(20)
,@取引日 datetime, @伝票摘要  varchar(40)
,@伝票処理区分 smallint, @学生番号 varchar(12)
/* 伝票明細 */
,@LNO1 smallint         ,@勘定CD1 varchar(25)  , @借方金額1 money   , @貸方金額1 money
,@貸借区分1 varchar(1)  ,@摘要CD1 varchar(20)  ,@摘要1  varchar(100)     , @相手勘定CD1 varchar(25)
,@LNO2 smallint         ,@勘定CD2 varchar(25)  , @借方金額2 money   , @貸方金額2 money
,@貸借区分2 varchar(1)  ,@摘要CD2 varchar(20)  ,@摘要2  varchar(100)     , @相手勘定CD2 varchar(25)
,@LNO3 smallint         ,@勘定CD3 varchar(25)  , @借方金額3 money   , @貸方金額3 money
,@貸借区分3 varchar(1)  ,@摘要CD3 varchar(20)   ,@摘要3  varchar(100)     , @相手勘定CD3 varchar(25)
,@LNO4 smallint         ,@勘定CD4 varchar(25)  , @借方金額4 money   , @貸方金額4 money
,@貸借区分4 varchar(1)  ,@摘要CD4 varchar(20)   ,@摘要4  varchar(100)     , @相手勘定CD4 varchar(25)
,@LNO5 smallint         ,@勘定CD5 varchar(25)  , @借方金額5 money   , @貸方金額5 money
,@貸借区分5 varchar(1)  ,@摘要CD5 varchar(20)   ,@摘要5  varchar(100)     , @相手勘定CD5 varchar(25)
,@LNO6 smallint         ,@勘定CD6 varchar(25)  , @借方金額6 money   , @貸方金額6 money
,@貸借区分6 varchar(1)  ,@摘要CD6 varchar(20)   ,@摘要6  varchar(100)     , @相手勘定CD6 varchar(25)
AS

declare @番号  varchar(12) 

begin transaction

/* 伝票番号採番 */

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end
	if @伝票番号 = ''
	begin
		execute @番号 = SP0伝票採番取得  @システムCD, @演習CD, @会社CD, @取引日, @伝票区分
		select @伝票番号 = REPLACE(STR(@番号, 7), ' ','0')
	end

	DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

/* 伝票F登録 */
insert TSK伝票F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票処理区分, 取引日, 伝票摘要, 作成日, 学生番号, 削除フラグ)
values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票処理区分, @取引日, @伝票摘要, getdate(), @学生番号, 0)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* 伝票明細F追加 */
if @勘定CD1 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO1, @勘定CD1, @借方金額1, @貸方金額1, @貸借区分1, @相手勘定CD1, @摘要CD1, @摘要1)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD2 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO2, @勘定CD2, @借方金額2, @貸方金額2, @貸借区分2, @相手勘定CD2, @摘要CD2, @摘要2)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD3 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO3, @勘定CD3, @借方金額3, @貸方金額3, @貸借区分3, @相手勘定CD3, @摘要CD3, @摘要3)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD4 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO4, @勘定CD4, @借方金額4, @貸方金額4, @貸借区分4, @相手勘定CD4, @摘要CD4, @摘要4)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD5 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO5, @勘定CD5, @借方金額5, @貸方金額5, @貸借区分5, @相手勘定CD5, @摘要CD5, @摘要5)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD6 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要) 
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO6, @勘定CD6, @借方金額6, @貸方金額6, @貸借区分6, @相手勘定CD6, @摘要CD6, @摘要6)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPK伝票_出金伝票更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(20), @旧伝票番号 varchar(20)
,@取引日 datetime, @伝票摘要  varchar(40)  
,@伝票処理区分 smallint, @学生番号 varchar(12)
/* 伝票明細 */
, @LNO1 smallint       , @勘定CD1 varchar(25), @借方金額1 money , @貸方金額1 money
, @貸借区分1 varchar(1), @摘要CD1 varchar(20), @摘要1  varchar(100)   , @相手勘定CD1 varchar(25)
, @LNO2 smallint       , @勘定CD2 varchar(25), @借方金額2 money , @貸方金額2 money
, @貸借区分2 varchar(1), @摘要CD2 varchar(20), @摘要2  varchar(100)   , @相手勘定CD2 varchar(25)
, @LNO3 smallint       , @勘定CD3 varchar(25), @借方金額3 money , @貸方金額3 money
, @貸借区分3 varchar(1), @摘要CD3 varchar(20) , @摘要3  varchar(100)   , @相手勘定CD3 varchar(25)
, @LNO4 smallint       , @勘定CD4 varchar(25), @借方金額4 money , @貸方金額4 money
, @貸借区分4 varchar(1), @摘要CD4 varchar(20) , @摘要4  varchar(100)   , @相手勘定CD4 varchar(25)
, @LNO5 smallint       , @勘定CD5 varchar(25), @借方金額5 money , @貸方金額5 money
, @貸借区分5 varchar(1), @摘要CD5 varchar(20) , @摘要5  varchar(100)   , @相手勘定CD5 varchar(25)
, @LNO6 smallint       , @勘定CD6 varchar(25), @借方金額6 money , @貸方金額6 money
, @貸借区分6 varchar(1), @摘要CD6 varchar(20) , @摘要6  varchar(100)   , @相手勘定CD6 varchar(25)

AS

declare @番号  varchar(12) 

begin transaction

exec SPK伝票_削除 @システムCD, @演習CD, @会社CD, @伝票区分, @旧伝票番号

execute @伝票番号 = SPK伝票_入金伝票挿入 @システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @取引日, @伝票摘要, @伝票処理区分, @学生番号 
, @LNO1, @勘定CD1, @借方金額1, @貸方金額1, @貸借区分1, @摘要CD1, @摘要1, @相手勘定CD1
, @LNO2, @勘定CD2, @借方金額2, @貸方金額2, @貸借区分2, @摘要CD2, @摘要2, @相手勘定CD2
, @LNO3, @勘定CD3, @借方金額3, @貸方金額3, @貸借区分3, @摘要CD3, @摘要3, @相手勘定CD3
, @LNO4, @勘定CD4, @借方金額4, @貸方金額4, @貸借区分4, @摘要CD4, @摘要4, @相手勘定CD4
, @LNO5, @勘定CD5, @借方金額5, @貸方金額5, @貸借区分5, @摘要CD5, @摘要5, @相手勘定CD5
, @LNO6, @勘定CD6, @借方金額6, @貸方金額6, @貸借区分6, @摘要CD6, @摘要6, @相手勘定CD6

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPK伝票_削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(20)

AS

declare @枝番 int
declare @新伝票番号 varchar(20)

begin transaction

--新伝票番号（伝票番号-枝番3桁）を採番
SET @枝番 = 1
while @枝番 < 1000
begin
	SET @新伝票番号 = LEFT(@伝票番号, 12) + '-' + REPLACE(STR(@枝番, 3), ' ', '0') --文字列長3で変換し、半角スペースを0に置換でゼロ埋め。
	if not(exists(SELECT 伝票番号 FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @新伝票番号))
	begin
		break --新伝票番号が存在しなければ抜ける
	end
	SET @枝番 = @枝番 + 1 --枝番カウントアップ
end

--枝番が999に達すると重複するので事前に強制削除
DELETE FROM TSK伝票仕入売上明細F
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
	AND TSK伝票仕入売上明細F.演習CD = @演習CD
	AND TSK伝票仕入売上明細F.会社CD = @会社CD
	AND TSK伝票仕入売上明細F.伝票区分 = @伝票区分
	AND TSK伝票仕入売上明細F.伝票番号 = @新伝票番号
DELETE FROM TSK伝票明細F
WHERE TSK伝票明細F.システムCD = @システムCD
	AND TSK伝票明細F.演習CD = @演習CD
	AND TSK伝票明細F.会社CD = @会社CD
	AND TSK伝票明細F.伝票区分 = @伝票区分
	AND TSK伝票明細F.伝票番号 = @新伝票番号
DELETE FROM TSK伝票F
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.伝票区分 = @伝票区分
	AND TSK伝票F.伝票番号 = @新伝票番号

UPDATE TSK伝票仕入売上明細F
SET 伝票番号 = @新伝票番号
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.伝票番号
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.伝票区分 = @伝票区分
	AND TSK伝票F.伝票番号 = @伝票番号

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

UPDATE TSK伝票明細F
SET 伝票番号 = @新伝票番号
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.伝票番号
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.伝票区分 = @伝票区分
	AND TSK伝票F.伝票番号 = @伝票番号

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

UPDATE TSK伝票F
SET 伝票番号 = @新伝票番号
	, 削除フラグ = 1
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.伝票区分 = @伝票区分
	AND TSK伝票F.伝票番号 = @伝票番号

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK伝票_売上伝票一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT          MIN(TSK伝票F.取引日) AS 取引日の先頭, TSK伝票F.伝票番号, 
                      MIN(TSK伝票F.伝票区分) AS 伝票区分の先頭, MIN(TSK伝票F.伝票摘要) 
                      AS 伝票摘要の先頭, SUM(TSK伝票明細F.借方金額) AS 借方金額の合計, 
                      SUM(TSK伝票明細F.貸方金額) AS 貸方金額の合計, 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.伝票番号
WHERE            (TSK伝票F.システムCD = @システムCD) AND (TSK伝票F.演習CD = @演習CD) AND (TSK伝票F.会社CD = @会社CD)  AND (TSK伝票F.伝票区分 = 'D4') 
GROUP BY     TSK伝票F.伝票番号, TSK伝票F.伝票処理区分, TSK伝票F.伝票区分, 
                      TSK伝票F.削除フラグ
ORDER BY     MIN(TSK伝票F.取引日), TSK伝票F.伝票番号

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK伝票_売上伝票取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS
	SELECT          TSK伝票F.*, TSK伝票明細F.伝票SEQ, TSK伝票明細F.勘定CD, 
                      TSK伝票明細F.借方金額, TSK伝票明細F.貸方金額, TSK伝票明細F.会社CD, 
                      TSK伝票明細F.摘要CD, TSK伝票明細F.摘要, TC5学生M.氏名, TDA勘定科目M.勘定名称, TDA勘定科目M.特別勘定区分, 摘要会社.会社略名称 AS 摘要会社名称
	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 
                      LEFT OUTER JOIN TDA会社M 摘要会社 ON TSK伝票明細F.システムCD = 摘要会社.システムCD AND TSK伝票明細F.演習CD = 摘要会社.演習CD AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
                       LEFT OUTER JOIN
                      TC5学生M ON 
TSK伝票F.システムCD = TC5学生M.システムCD AND
TSK伝票F.学生番号 = TC5学生M.学生番号
	WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND TSK伝票F.会社CD = @会社CD AND TSK伝票明細F.伝票番号 = @伝票番号 AND TSK伝票F.伝票区分 = 'D4'
	ORDER BY TSK伝票明細F.伝票SEQ








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPK伝票_売上伝票挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(20), @伝票処理区分 smallint
,@伝票摘要  varchar(40), @仕入売上区分 varchar(4), @取引先CD varchar(20)
,@取引日 datetime, @学生番号 varchar(12), @通常返品区分 varchar(12)
,@伝票SEQ1 smallint, @商品CD1  varchar(20), @受注数量1 int, @受注単価1 money ,@消費税率1 real
,@伝票SEQ2 smallint, @商品CD2  varchar(20), @受注数量2 int, @受注単価2 money ,@消費税率2 real
,@伝票SEQ3 smallint, @商品CD3  varchar(20), @受注数量3 int, @受注単価3 money ,@消費税率3 real
,@伝票SEQ4 smallint, @商品CD4  varchar(20), @受注数量4 int, @受注単価4 money ,@消費税率4 real
,@伝票SEQ5 smallint, @商品CD5  varchar(20), @受注数量5 int, @受注単価5 money ,@消費税率5 real
,@仕入勘定CD  varchar(25),@仕入相手勘定CD  varchar(25),@仕入借方金額 money   ,@仕入貸方金額 money  ,@仕入貸借区分 varchar(1)  
,@借方消費税勘定CD  varchar(25),@借方消費税相手勘定CD  varchar(25),@借方消費税借方金額 money   ,@借方消費税貸方金額 money  ,@借方消費税貸借区分 varchar(1)  
,@貸方買掛金勘定CD  varchar(25),@貸方買掛金相手勘定CD  varchar(25),@貸方買掛金借方金額 money   ,@貸方買掛金貸方金額 money  ,@貸方買掛金貸借区分 varchar(1)  

AS

declare @番号  int   

begin transaction
/* 伝票番号採番 */
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if @伝票番号 = ''
	begin
		execute @番号 = SP0伝票採番取得  @システムCD, @演習CD, @会社CD, @取引日, @伝票区分
		select @伝票番号 = REPLACE(STR(@番号, 7), ' ','0')
	end

	DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

/* １．TSK伝票F　登録 */
insert TSK伝票F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票処理区分, 取引日, 伝票摘要, 作成日, 学生番号, 通常返品区分, 取引先CD, 削除フラグ)
values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票処理区分, @取引日, @伝票摘要, getdate(), @学生番号, @通常返品区分, @取引先CD, 0)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* ２．TSK伝票仕入売上明細F登録　登録 */

if @商品CD1 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票SEQ1, @商品CD1, @受注数量1, @受注単価1, @消費税率1, @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD2 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票SEQ2, @商品CD2, @受注数量2, @受注単価2, @消費税率2, @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD3 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票SEQ3, @商品CD3, @受注数量3, @受注単価3, @消費税率3, @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD4 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票SEQ4, @商品CD4, @受注数量4, @受注単価4, @消費税率4, @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

if @商品CD5 is not null 
  begin 
	insert TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票SEQ5, @商品CD5, @受注数量5, @受注単価5, @消費税率5, @取引日, @学生番号)
	if @@error <> 0
   	begin
       	rollback transaction
       	select -1  return
   	end
  end

/* ３．TSK伝票明細F　登録 */
/**  借方勘定作成（ 売掛金） **/ 
if @仕入勘定CD is not null
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要) 
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 1, @仕入勘定CD, @仕入借方金額, @仕入貸方金額, @仕入貸借区分, @仕入相手勘定CD, @取引先CD, null)

    if @@error <> 0

      begin
       rollback transaction
       select -1   return
      end
  end
/**  貸方勘定作成 （売上)  **/ 
if @借方消費税勘定CD is not null
  begin 

    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 2, @借方消費税勘定CD, @借方消費税借方金額, @借方消費税貸方金額, @借方消費税貸借区分, @借方消費税相手勘定CD, @取引先CD, null)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end
/**  借方消費税勘定作成  **/ 
if @貸方買掛金勘定CD is not null
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 3, @貸方買掛金勘定CD, @貸方買掛金借方金額, @貸方買掛金貸方金額, @貸方買掛金貸借区分, @貸方買掛金相手勘定CD, null, null)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPK伝票_売上伝票更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(40), @旧伝票番号 varchar(12)
,@伝票処理区分 smallint
,@伝票摘要  varchar(40),@仕入売上区分 varchar(4) , @取引先CD varchar(20)   
,@取引日 datetime , @学生番号 varchar(12),@通常返品区分 varchar(12)
,@伝票SEQ1 smallint, @商品CD1  varchar(20) ,@受注数量1 int ,@受注単価1 money ,@消費税率1 real
,@伝票SEQ2 smallint, @商品CD2  varchar(20) ,@受注数量2 int ,@受注単価2 money ,@消費税率2 real
,@伝票SEQ3 smallint, @商品CD3  varchar(20) ,@受注数量3 int ,@受注単価3 money ,@消費税率3 real
,@伝票SEQ4 smallint, @商品CD4  varchar(20) ,@受注数量4 int ,@受注単価4 money ,@消費税率4 real
,@伝票SEQ5 smallint, @商品CD5  varchar(20) ,@受注数量5 int ,@受注単価5 money ,@消費税率5 real
,@仕入勘定CD  varchar(25),@仕入相手勘定CD  varchar(25),@仕入借方金額 money   ,@仕入貸方金額 money  ,@仕入貸借区分 varchar(1)  
,@借方消費税勘定CD  varchar(25),@借方消費税相手勘定CD  varchar(25),@借方消費税借方金額 money   ,@借方消費税貸方金額 money  ,@借方消費税貸借区分 varchar(1)  
,@貸方買掛金勘定CD  varchar(25),@貸方買掛金相手勘定CD  varchar(25),@貸方買掛金借方金額 money   ,@貸方買掛金貸方金額 money  ,@貸方買掛金貸借区分 varchar(1)  

AS

declare @番号  varchar(12) 

begin transaction

exec SPK伝票_削除 @システムCD, @演習CD, @会社CD, @伝票区分, @旧伝票番号

execute @伝票番号 = SPK伝票_売上伝票挿入 @システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票処理区分
,@伝票摘要,@仕入売上区分, @取引先CD
,@取引日 , @学生番号 ,@通常返品区分 
,@伝票SEQ1 , @商品CD1   ,@受注数量1  ,@受注単価1, @消費税率1
,@伝票SEQ2 , @商品CD2   ,@受注数量2  ,@受注単価2, @消費税率2
,@伝票SEQ3 , @商品CD3   ,@受注数量3  ,@受注単価3, @消費税率3
,@伝票SEQ4 , @商品CD4   ,@受注数量4  ,@受注単価4, @消費税率4
,@伝票SEQ5 , @商品CD5   ,@受注数量5  ,@受注単価5, @消費税率5
,@仕入勘定CD  ,@仕入相手勘定CD ,@仕入借方金額    ,@仕入貸方金額  ,@仕入貸借区分
,@借方消費税勘定CD  ,@借方消費税相手勘定CD  ,@借方消費税借方金額   ,@借方消費税貸方金額   ,@借方消費税貸借区分
,@貸方買掛金勘定CD  ,@貸方買掛金相手勘定CD  ,@貸方買掛金借方金額   ,@貸方買掛金貸方金額   ,@貸方買掛金貸借区分

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_売上伝票消費税更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @伝票番号 varchar(40)
, @仮受消費税勘定 varchar(25), @仮受消費税 money
, @売掛金勘定 varchar(25), @売掛金 money

AS

begin transaction

--存在しない場合はINSERTする必要があるため一旦削除
DELETE FROM TSK伝票明細F
where システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 伝票区分 = 'D4'
	AND 伝票番号 = @伝票番号
	AND 勘定CD = @仮受消費税勘定

if @仮受消費税 > 0
begin
	INSERT INTO TSK伝票明細F (システムCD
		, 演習CD
		, 会社CD
		, 伝票区分
		, 伝票番号
		, 伝票SEQ
		, 勘定CD
		, 貸方金額)
	VALUES (@システムCD
		, @演習CD
		, @会社CD
		, 'D4'
		, @伝票番号
		, 3 --SPK伝票_売上伝票挿入で固定
		, @仮受消費税勘定
		, @仮受消費税)
end

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

update TSK伝票明細F
set 借方金額 = @売掛金
where システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 伝票区分 = 'D4'
	AND 伝票番号 = @伝票番号
	AND 勘定CD = @売掛金勘定

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




















CREATE   PROCEDURE dbo.SPK伝票_売上明細取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(40)
AS

	SELECT TSK伝票仕入売上明細F.*, TDA商品M.標準販売単価, TDA商品M.商品名称, TDA商品M.商品略名称
	FROM TSK伝票仕入売上明細F 
	LEFT OUTER 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.会社CD = @会社CD
	 AND TSK伝票仕入売上明細F.伝票番号= @伝票番号
	 AND TSK伝票仕入売上明細F.伝票区分 = 'D4'
	ORDER BY 仕入売上明細SEQ













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPK伝票_振替伝票一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT  MIN(TSK伝票F.取引日) AS 取引日の先頭
	, TSK伝票F.伝票番号
	, MIN(TSK伝票F.伝票区分) AS 伝票区分の先頭
	, MIN(TSK伝票F.伝票摘要) AS 伝票摘要の先頭
	, SUM(TSK伝票明細F.借方金額) AS 借方金額の合計
	, SUM(TSK伝票明細F.貸方金額) AS 貸方金額の合計
	, TSK伝票F.削除フラグ, 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.伝票番号
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.伝票区分 = 'D5'
	AND (
		(TSK伝票F.伝票処理区分 = 1)
		OR (TSK伝票F.伝票処理区分 = 9 AND TSK伝票F.伝票番号 <> '9999999')
		OR (TSK伝票F.伝票処理区分 = 10 AND TSK伝票F.伝票番号 <> 'AAAAAAA')	--精算表以外の繰越記入伝票を取得（081022小野）
	)
GROUP BY TSK伝票F.伝票番号
	, TSK伝票F.伝票処理区分
	, TSK伝票F.伝票区分
	, TSK伝票F.削除フラグ
ORDER BY MIN(TSK伝票F.取引日)
	, TSK伝票F.伝票番号





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_振替伝票取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(40), @業種CD varchar(1)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合の所有会社CDは会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--製造部対応のため伝票区分トグル
DECLARE @伝票区分 varchar(2)
if @業種CD = 'G' 
begin
	SELECT @伝票区分 = 'D8'
end
else
begin
	SELECT @伝票区分 = 'D5'
end

if @伝票番号 != '0000000' 
begin
	SELECT TSK伝票F.*
		, TSK伝票明細F.伝票SEQ
		, TSK伝票明細F.勘定CD
		, TSK伝票明細F.借方金額
		, TSK伝票明細F.貸方金額
		, TSK伝票明細F.会社CD
		, TSK伝票明細F.摘要CD
		, TSK伝票明細F.摘要
		, TC5学生M.氏名
		, TDA勘定科目M.勘定名称
		, TDA勘定科目M.特別勘定区分
		, TDA勘定科目M.チェック区分
		, TDA勘定科目M.貸借区分	--080904小野追加
		, 摘要会社.会社略名称 AS 摘要会社名称
	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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
			UNION	--TDA勘定科目会社学生Mを連結（091023小野）
			SELECT * FROM TDA勘定科目会社学生M
			WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
		) TEMP勘定科目M WHERE 業種CD = @業種CD
	) TDA勘定科目M	--製造部対応のため業種で絞る（080317小野）
		ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
		AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
		AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
--	LEFT OUTER JOIN TDA会社M 摘要会社
--		ON TSK伝票明細F.システムCD = 摘要会社.システムCD
--		AND TSK伝票明細F.演習CD = 摘要会社.演習CD
--		AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
	LEFT OUTER JOIN (
		SELECT システムCD, 演習CD, 会社CD, 会社名称, 会社略名称
		FROM TDA会社M
		WHERE システムCD = @システムCD
			AND 演習CD = @演習CD
		UNION
		SELECT システムCD, 演習CD, 摘要CD, 摘要, 摘要
		FROM TTK摘要M
		WHERE システムCD = @システムCD
			AND 演習CD = @演習CD
	) 摘要会社
		ON TSK伝票明細F.システムCD = 摘要会社.システムCD
		AND TSK伝票明細F.演習CD = 摘要会社.演習CD
		AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
	LEFT OUTER JOIN TC5学生M
		ON TSK伝票F.システムCD = TC5学生M.システムCD
		AND TSK伝票F.学生番号 = TC5学生M.学生番号
	WHERE TSK伝票F.システムCD = @システムCD
		AND TSK伝票F.演習CD = @演習CD
		AND TSK伝票F.会社CD = @会社CD
		AND TSK伝票明細F.伝票区分 = @伝票区分
		AND TSK伝票明細F.伝票番号 = @伝票番号
	ORDER BY TSK伝票明細F.伝票SEQ
end
else
begin
	SELECT TSK伝票F.*
		, TSK伝票明細F.伝票SEQ
		, TSK伝票明細F.勘定CD
		, TSK伝票明細F.借方金額
		, TSK伝票明細F.貸方金額
		, TSK伝票明細F.会社CD
		, TSK伝票明細F.摘要CD
		, TSK伝票明細F.摘要
		, TC5学生M.氏名
		, TDA勘定科目M.勘定名称
		, TDA勘定科目M.チェック区分
		, TDA勘定科目M.貸借区分	--080904小野追加
		, 摘要会社.会社略名称 AS 摘要会社名称
	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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
			UNION	--TDA勘定科目会社学生Mを連結（091023小野）
			SELECT * FROM TDA勘定科目会社学生M
			WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
		) TEMP勘定科目M WHERE 業種CD = @業種CD
	) TDA勘定科目M	--製造部対応のため業種で絞る（080317小野）
		ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
		AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
		AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
--	LEFT OUTER JOIN TDA会社M 摘要会社
--		ON TSK伝票明細F.システムCD = 摘要会社.システムCD
--		AND TSK伝票明細F.演習CD = 摘要会社.演習CD
--		AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
	LEFT OUTER JOIN (
		SELECT システムCD, 演習CD, 会社CD, 会社名称, 会社略名称
		FROM TDA会社M
		WHERE システムCD = @システムCD
			AND 演習CD = @演習CD
		UNION
		SELECT システムCD, 演習CD, 摘要CD, 摘要, 摘要
		FROM TTK摘要M
		WHERE システムCD = @システムCD
			AND 演習CD = @演習CD
	) 摘要会社
		ON TSK伝票明細F.システムCD = 摘要会社.システムCD
		AND TSK伝票明細F.演習CD = 摘要会社.演習CD
		AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
	LEFT OUTER JOIN TC5学生M
		ON TSK伝票F.システムCD = TC5学生M.システムCD
		AND TSK伝票F.学生番号 = TC5学生M.学生番号
	WHERE TSK伝票F.システムCD = @システムCD
		AND TSK伝票F.演習CD = @演習CD
		AND TSK伝票F.会社CD = @会社CD
		AND TSK伝票明細F.伝票区分 = @伝票区分
		AND TSK伝票明細F.伝票番号 = @伝票番号
	ORDER BY TSK伝票明細F.勘定CD, TSK伝票明細F.摘要CD
end




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_振替伝票挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(20)
, @取引日 datetime, @伝票摘要 varchar(40), @伝票処理区分 smallint, @学生番号 varchar(12)
/* 伝票明細 */
,@LNO1 smallint         ,@勘定CD1 varchar(25)  , @借方金額1 money   , @貸方金額1 money
,@貸借区分1 varchar(1)  ,@摘要CD1 varchar(20)  ,@摘要1  varchar(100)     , @相手勘定CD1 varchar(25)
,@LNO2 smallint         ,@勘定CD2 varchar(25)  , @借方金額2 money   , @貸方金額2 money
,@貸借区分2 varchar(1)  ,@摘要CD2 varchar(20)  ,@摘要2  varchar(100)     , @相手勘定CD2 varchar(25)
,@LNO3 smallint         ,@勘定CD3 varchar(25)  , @借方金額3 money   , @貸方金額3 money
,@貸借区分3 varchar(1)  ,@摘要CD3 varchar(20)   ,@摘要3  varchar(100)     , @相手勘定CD3 varchar(25)
,@LNO4 smallint         ,@勘定CD4 varchar(25)  , @借方金額4 money   , @貸方金額4 money
,@貸借区分4 varchar(1)  ,@摘要CD4 varchar(20)   ,@摘要4  varchar(100)     , @相手勘定CD4 varchar(25)
,@LNO5 smallint         ,@勘定CD5 varchar(25)  , @借方金額5 money   , @貸方金額5 money
,@貸借区分5 varchar(1)  ,@摘要CD5 varchar(20)   ,@摘要5  varchar(100)     , @相手勘定CD5 varchar(25)
,@LNO6 smallint         ,@勘定CD6 varchar(25)  , @借方金額6 money   , @貸方金額6 money
,@貸借区分6 varchar(1)  ,@摘要CD6 varchar(20)   ,@摘要6  varchar(100)     , @相手勘定CD6 varchar(25)
,@LNO7 smallint         ,@勘定CD7 varchar(25)  , @借方金額7 money   , @貸方金額7 money
,@貸借区分7 varchar(1)  ,@摘要CD7 varchar(20)   ,@摘要7  varchar(100)     , @相手勘定CD7 varchar(25)
,@LNO8 smallint         ,@勘定CD8 varchar(25)  , @借方金額8 money   , @貸方金額8 money
,@貸借区分8 varchar(1)  ,@摘要CD8 varchar(20)   ,@摘要8  varchar(100)     , @相手勘定CD8 varchar(25)
,@LNO9 smallint         ,@勘定CD9 varchar(25)  , @借方金額9 money   , @貸方金額9 money
,@貸借区分9 varchar(1)  ,@摘要CD9 varchar(20)   ,@摘要9  varchar(100)     , @相手勘定CD9 varchar(25)
,@LNO10 smallint         ,@勘定CD10 varchar(25)  , @借方金額10 money   , @貸方金額10 money
,@貸借区分10 varchar(1)  ,@摘要CD10 varchar(20)   ,@摘要10  varchar(100)     , @相手勘定CD10 varchar(25)

AS

declare @番号  varchar(12) 

begin transaction

/* 伝票番号採番 */
	if @伝票番号 = ''
		begin
		 if @伝票処理区分 = 9 
		begin
			execute @番号 = SP0伝票採番取得  @システムCD, @演習CD, @会社CD, @取引日, 6
		end
		else
		begin
			execute @番号 = SP0伝票採番取得  @システムCD, @演習CD, @会社CD, @取引日, @伝票区分
		end

		select @伝票番号 = REPLACE(STR(@番号, 7), ' ','0')
	end

	DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

/* 伝票F登録 */
insert TSK伝票F (システムCD,演習CD,会社CD,伝票番号,伝票区分,伝票処理区分,取引日,伝票摘要,作成日,学生番号, 削除フラグ)
values (@システムCD,@演習CD,@会社CD,@伝票番号,@伝票区分,@伝票処理区分,@取引日,@伝票摘要,getdate(),@学生番号, 0)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

/* 伝票明細F追加 */
if @勘定CD1 is not null 
  begin 
    insert TSK伝票明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO1, @勘定CD1, @借方金額1, @貸方金額1, @貸借区分1, @相手勘定CD1, @摘要CD1, @摘要1)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD2 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO2, @勘定CD2, @借方金額2, @貸方金額2, @貸借区分2, @相手勘定CD2, @摘要CD2, @摘要2)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD3 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO3, @勘定CD3, @借方金額3, @貸方金額3, @貸借区分3, @相手勘定CD3, @摘要CD3, @摘要3)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD4 is not null 
  begin 

    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO4, @勘定CD4, @借方金額4, @貸方金額4, @貸借区分4, @相手勘定CD4, @摘要CD4, @摘要4)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD5 is not null 

  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO5, @勘定CD5, @借方金額5, @貸方金額5, @貸借区分5, @相手勘定CD5, @摘要CD5, @摘要5)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD6 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO6, @勘定CD6, @借方金額6, @貸方金額6, @貸借区分6, @相手勘定CD6, @摘要CD6, @摘要6)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD7 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO7, @勘定CD7, @借方金額7, @貸方金額7, @貸借区分7, @相手勘定CD7, @摘要CD7, @摘要7)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD8 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO8, @勘定CD8, @借方金額8, @貸方金額8, @貸借区分8, @相手勘定CD8, @摘要CD8, @摘要8)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD9 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO9, @勘定CD9, @借方金額9, @貸方金額9, @貸借区分9, @相手勘定CD9, @摘要CD9, @摘要9)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

if @勘定CD10 is not null 
  begin 
    insert TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
    values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @LNO10, @勘定CD10, @借方金額10, @貸方金額10, @貸借区分10, @相手勘定CD10, @摘要CD10, @摘要10)

    if @@error <> 0
      begin
       rollback transaction
       select -1   return
      end
  end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPK伝票_振替伝票更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票番号 varchar(20), @旧伝票番号 varchar(20)
, @取引日 datetime, @伝票摘要  varchar(40), @伝票処理区分 smallint, @学生番号 varchar(12)
, @LNO1 smallint       , @勘定CD1 varchar(25), @借方金額1 money , @貸方金額1 money
, @貸借区分1 varchar(1), @摘要CD1 varchar(20), @摘要1  varchar(100)   , @相手勘定CD1 varchar(25)
, @LNO2 smallint       , @勘定CD2 varchar(25), @借方金額2 money , @貸方金額2 money
, @貸借区分2 varchar(1), @摘要CD2 varchar(20), @摘要2  varchar(100)   , @相手勘定CD2 varchar(25)
, @LNO3 smallint       , @勘定CD3 varchar(25), @借方金額3 money , @貸方金額3 money
, @貸借区分3 varchar(1), @摘要CD3 varchar(20) , @摘要3  varchar(100)   , @相手勘定CD3 varchar(25)
, @LNO4 smallint       , @勘定CD4 varchar(25), @借方金額4 money , @貸方金額4 money
, @貸借区分4 varchar(1), @摘要CD4 varchar(20) , @摘要4  varchar(100)   , @相手勘定CD4 varchar(25)
, @LNO5 smallint       , @勘定CD5 varchar(25), @借方金額5 money , @貸方金額5 money
, @貸借区分5 varchar(1), @摘要CD5 varchar(20) , @摘要5  varchar(100)   , @相手勘定CD5 varchar(25)
, @LNO6 smallint       , @勘定CD6 varchar(25), @借方金額6 money , @貸方金額6 money
, @貸借区分6 varchar(1), @摘要CD6 varchar(20) , @摘要6  varchar(100)   , @相手勘定CD6 varchar(25)
, @LNO7 smallint       , @勘定CD7 varchar(25), @借方金額7 money , @貸方金額7 money
, @貸借区分7 varchar(1), @摘要CD7 varchar(20) , @摘要7  varchar(100)   , @相手勘定CD7 varchar(25)
, @LNO8 smallint       , @勘定CD8 varchar(25), @借方金額8 money , @貸方金額8 money
, @貸借区分8 varchar(1), @摘要CD8 varchar(20) , @摘要8  varchar(100)   , @相手勘定CD8 varchar(25)
, @LNO9 smallint       , @勘定CD9 varchar(25), @借方金額9 money , @貸方金額9 money
, @貸借区分9 varchar(1), @摘要CD9 varchar(20) , @摘要9  varchar(100)   , @相手勘定CD9 varchar(25)
, @LNO10 smallint       , @勘定CD10 varchar(25), @借方金額10 money , @貸方金額10 money
, @貸借区分10 varchar(1), @摘要CD10 varchar(20) , @摘要10  varchar(100)   , @相手勘定CD10 varchar(25)

AS

declare @番号  varchar(12) 

begin transaction

exec SPK伝票_削除 @システムCD, @演習CD, @会社CD, @伝票区分, @旧伝票番号

execute @伝票番号 = SPK伝票_振替伝票挿入  @システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @取引日, @伝票摘要, @伝票処理区分 ,@学生番号 
, @LNO1, @勘定CD1, @借方金額1, @貸方金額1, @貸借区分1, @摘要CD1, @摘要1, @相手勘定CD1
, @LNO2, @勘定CD2, @借方金額2, @貸方金額2, @貸借区分2, @摘要CD2, @摘要2, @相手勘定CD2
, @LNO3, @勘定CD3, @借方金額3, @貸方金額3, @貸借区分3, @摘要CD3, @摘要3, @相手勘定CD3
, @LNO4, @勘定CD4, @借方金額4, @貸方金額4, @貸借区分4, @摘要CD4, @摘要4, @相手勘定CD4
, @LNO5, @勘定CD5, @借方金額5, @貸方金額5, @貸借区分5, @摘要CD5, @摘要5, @相手勘定CD5
, @LNO6, @勘定CD6, @借方金額6, @貸方金額6, @貸借区分6, @摘要CD6, @摘要6, @相手勘定CD6
, @LNO7, @勘定CD7, @借方金額7, @貸方金額7, @貸借区分7, @摘要CD7, @摘要7, @相手勘定CD7
, @LNO8, @勘定CD8, @借方金額8, @貸方金額8, @貸借区分8, @摘要CD8, @摘要8, @相手勘定CD8
, @LNO9, @勘定CD9, @借方金額9, @貸方金額9, @貸借区分9, @摘要CD9, @摘要9, @相手勘定CD9
, @LNO10, @勘定CD10, @借方金額10, @貸方金額10, @貸借区分10, @摘要CD10, @摘要10, @相手勘定CD10

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE  PROCEDURE dbo.SPK伝票_材料仕入伝票一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT MIN(TSK伝票F.取引日) AS 取引日の先頭, TSK伝票F.伝票番号
	, MIN(TSK伝票F.伝票区分) AS 伝票区分の先頭
	, MIN(TSK伝票F.伝票摘要) AS 伝票摘要の先頭
	, SUM(TSK伝票明細F.借方金額) AS 借方金額の合計
	, SUM(TSK伝票明細F.貸方金額) AS 貸方金額の合計
	, 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.伝票番号
WHERE (TSK伝票F.システムCD = @システムCD)
	AND (TSK伝票F.演習CD = @演習CD)
	AND (TSK伝票F.会社CD = @会社CD)
	AND (TSK伝票F.伝票区分 = 'D7') 
GROUP BY TSK伝票F.伝票番号, TSK伝票F.伝票処理区分, TSK伝票F.伝票区分, TSK伝票F.削除フラグ
ORDER BY MIN(TSK伝票F.取引日), TSK伝票F.伝票番号







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO







CREATE  PROCEDURE dbo.SPK伝票_材料仕入伝票取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS

SELECT TSK伝票F.*
	, TSK伝票明細F.伝票SEQ, TSK伝票明細F.勘定CD, TSK伝票明細F.借方金額, TSK伝票明細F.貸方金額
	, TSK伝票明細F.会社CD, TSK伝票明細F.摘要CD, TSK伝票明細F.摘要
	, TC5学生M.氏名
	, TDA勘定科目M.勘定名称, TDA勘定科目M.特別勘定区分
	, 摘要会社.会社略名称 AS 摘要会社名称
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 
LEFT OUTER JOIN TDA会社M 摘要会社
	ON TSK伝票明細F.システムCD = 摘要会社.システムCD
	AND TSK伝票明細F.演習CD = 摘要会社.演習CD
	AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
LEFT OUTER JOIN TC5学生M
	ON TSK伝票F.システムCD = TC5学生M.システムCD
	AND TSK伝票F.学生番号 = TC5学生M.学生番号
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票明細F.伝票番号 = @伝票番号
	AND TSK伝票F.伝票区分 = 'D7'
ORDER BY TSK伝票明細F.伝票SEQ







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPK伝票_材料仕入伝票挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @伝票番号 varchar(20), @取引日 datetime, @学生番号 varchar(12)
, @行数 int
, @商品CD1 varchar(20), @受注数量1 int, @受注単価1 money ,@消費税率1 real
, @商品CD2 varchar(20), @受注数量2 int, @受注単価2 money ,@消費税率2 real
, @商品CD3 varchar(20), @受注数量3 int, @受注単価3 money ,@消費税率3 real
, @商品CD4 varchar(20), @受注数量4 int, @受注単価4 money ,@消費税率4 real
, @商品CD5 varchar(20), @受注数量5 int, @受注単価5 money ,@消費税率5 real
, @商品CD6 varchar(20), @受注数量6 int, @受注単価6 money ,@消費税率6 real
, @商品CD7 varchar(20), @受注数量7 int, @受注単価7 money ,@消費税率7 real
, @商品CD8 varchar(20), @受注数量8 int, @受注単価8 money ,@消費税率8 real
, @商品CD9 varchar(20), @受注数量9 int, @受注単価9 money ,@消費税率9 real
, @商品CD10 varchar(20), @受注数量10 int, @受注単価10 money ,@消費税率10 real

AS

declare @伝票区分 varchar(2)
select @伝票区分 = 'D7'

declare @番号 varchar(12)
declare @伝票SEQ smallint

begin transaction

--伝票番号採番
if @伝票番号 = ''
begin
	execute @番号 = SP0伝票採番取得  @システムCD, @演習CD, @会社CD, @取引日, @伝票区分
	select @伝票番号 = REPLACE(STR(@番号, 7), ' ','0')
end

--テンポラリ採番
SELECT @伝票SEQ = (SELECT MAX(仕入売上明細SEQ) FROM YTMP_TSK伝票仕入売上明細F WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号) GROUP BY 伝票番号)
if @伝票SEQ IS NULL
begin
	SELECT @伝票SEQ = 1
end
else
begin
	SELECT @伝票SEQ = @伝票SEQ + 1
end 

--明細1
INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価 ,消費税率, 取引日, 学生番号)
VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ, @商品CD1, @受注数量1, @受注単価1 ,@消費税率1, @取引日, @学生番号)

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--明細2
if @行数 > 1
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+1, @商品CD2, @受注数量2, @受注単価2 ,@消費税率2, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

--明細3
if @行数 > 2
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+2, @商品CD3, @受注数量3, @受注単価3 ,@消費税率3, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

--明細4
if @行数 > 3
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+3, @商品CD4, @受注数量4, @受注単価4 ,@消費税率4, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

--明細5
if @行数 > 4
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+4, @商品CD5, @受注数量5, @受注単価5 ,@消費税率5, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

--明細6
if @行数 > 5
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+5, @商品CD6, @受注数量6, @受注単価6 ,@消費税率6, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

--明細7
if @行数 > 6
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+6, @商品CD7, @受注数量7, @受注単価7 ,@消費税率7, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

--明細8
if @行数 > 7
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+7, @商品CD8, @受注数量8, @受注単価8 ,@消費税率8, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

--明細9
if @行数 > 8
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価 ,消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+8, @商品CD9, @受注数量9, @受注単価9 ,@消費税率9, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

--明細10
if @行数 > 9
begin

	INSERT YTMP_TSK伝票仕入売上明細F(システムCD, 演習CD, 会社CD, 伝票区分, 伝票番号, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価 ,消費税率, 取引日, 学生番号)
	VALUES(@システムCD, @演習CD, @会社CD, @伝票区分, @伝票番号, @伝票SEQ+9, @商品CD10, @受注数量10, @受注単価10 ,@消費税率10, @取引日, @学生番号)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

commit transaction

--採番した伝票番号を返す（SPK伝票_材料仕入伝票更新で利用）
SELECT @伝票番号



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票_材料仕入伝票更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @伝票番号 varchar(20), @旧伝票番号 varchar(20), @伝票処理区分 smallint, @伝票摘要 varchar(40)
, @取引先CD varchar(20), @取引日 datetime, @学生番号 varchar(12), @通常返品区分 varchar(12)
, @仕入勘定CD varchar(25), @仕入相手勘定CD varchar(25), @仕入借方金額 money, @仕入貸方金額 money, @仕入貸借区分 varchar(1)
, @借方消費税勘定CD varchar(25), @借方消費税相手勘定CD varchar(25), @借方消費税借方金額 money, @借方消費税貸方金額 money, @借方消費税貸借区分 varchar(1)
, @貸方買掛金勘定CD varchar(25), @貸方買掛金相手勘定CD varchar(25), @貸方買掛金借方金額 money, @貸方買掛金貸方金額 money, @貸方買掛金貸借区分 varchar(1)

AS

declare @伝票区分 varchar(2)
select @伝票区分 = 'D7'

--SPK伝票_材料仕入伝票挿入で採番した番号を使うため此処では採番しない

begin transaction

DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
DELETE FROM TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

--TSK伝票F 登録
INSERT TSK伝票F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票処理区分, 取引日, 伝票摘要, 作成日, 学生番号, 通常返品区分, 取引先CD, 削除フラグ)
VALUES (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票処理区分, @取引日, @伝票摘要, getdate(), @学生番号, @通常返品区分 ,@取引先CD, 0)

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--TSK伝票仕入売上明細F 登録（YTMPより）
INSERT INTO TSK伝票仕入売上明細F
SELECT *
FROM YTMP_TSK伝票仕入売上明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号

if @@error <> 0
begin
	rollback transaction
	select -1 return
end


--TSK伝票明細F 登録

/**  仕入借方勘定作成  **/ 
if @仕入勘定CD is not null
begin

	INSERT TSK伝票明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	VALUES (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 1, @仕入勘定CD, @仕入借方金額, @仕入貸方金額, @仕入貸借区分, @仕入相手勘定CD, @取引先CD, null)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

/**  借方消費税勘定作成  **/ 
if @借方消費税勘定CD is not null
begin

	INSERT TSK伝票明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要) 
	VALUES (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 2, @借方消費税勘定CD, @借方消費税借方金額, @借方消費税貸方金額, @借方消費税貸借区分, @借方消費税相手勘定CD, null, null)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

/**  貸方買掛金勘定作成  **/ 
if @貸方買掛金勘定CD is not null
begin
	INSERT TSK伝票明細F(システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要) 
	VALUES (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, 3, @貸方買掛金勘定CD, @貸方買掛金借方金額, @貸方買掛金貸方金額, @貸方買掛金貸借区分, @貸方買掛金相手勘定CD, @取引先CD, null)

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end


DELETE FROM YTMP_TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号
DELETE FROM YTMP_TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--UPDATE TSK伝票F
--SET 削除フラグ = 1
--FROM TSK伝票F 
--WHERE システムCD = @システムCD
--	AND 演習CD = @演習CD
--	AND 会社CD = @会社CD
--	AND 伝票区分 = @伝票区分
--	AND 伝票番号 = @旧伝票番号

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







CREATE  PROCEDURE dbo.SPK伝票_材料仕入明細取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(20)

AS

SELECT TSK伝票仕入売上明細F.*, TDA材料M.標準販売単価, TDA材料M.材料名称, TDA材料M.材料略名称
FROM TSK伝票仕入売上明細F 
LEFT OUTER 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.会社CD = @会社CD
	AND TSK伝票仕入売上明細F.伝票番号= @伝票番号
	AND TSK伝票仕入売上明細F.伝票区分 = 'D7'
ORDER BY 仕入売上明細SEQ







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPK伝票_製造部振替伝票一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT MIN(TSK伝票F.取引日) AS 取引日の先頭
	, TSK伝票F.伝票番号
	, MIN(TSK伝票F.伝票区分) AS 伝票区分の先頭
	, MIN(TSK伝票F.伝票摘要) AS 伝票摘要の先頭
	, SUM(TSK伝票明細F.借方金額) AS 借方金額の合計
	, SUM(TSK伝票明細F.貸方金額) AS 貸方金額の合計
	, TSK伝票F.削除フラグ
	, 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.伝票番号
WHERE (TSK伝票F.システムCD = @システムCD)
	AND (TSK伝票F.演習CD = @演習CD)
	AND (TSK伝票F.会社CD = @会社CD)
	AND (TSK伝票F.伝票区分 = 'D8')
	AND ((TSK伝票F.伝票処理区分 = 1) OR (TSK伝票F.伝票処理区分 = 9 AND TSK伝票F.伝票番号 <> '9999999'))
GROUP BY TSK伝票F.伝票番号
	, TSK伝票F.伝票処理区分
	, TSK伝票F.伝票区分
	, TSK伝票F.削除フラグ
ORDER BY MIN(TSK伝票F.取引日), TSK伝票F.伝票番号






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票前番号
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票処理区分 smallint, @取引日 datetime, @伝票番号 varchar(40)

AS

SELECT TOP 1 伝票番号
FROM TSK伝票F
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 伝票区分 = @伝票区分
	AND 伝票処理区分 = @伝票処理区分
	AND (
		(
			取引日 = @取引日
			AND 伝票番号 < @伝票番号
		)
		OR (取引日 < @取引日)
	)
	AND 削除フラグ = 0
	AND 伝票番号 <> '9999999'
	AND 伝票番号 <> 'AAAAAAA'		--精算表繰越記入伝票を除外（081022小野）
ORDER BY 取引日 DESC
	, 伝票番号 DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票次番号
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @伝票処理区分 smallint, @取引日 datetime, @伝票番号 varchar(40)

AS

SELECT TOP 1 伝票番号
FROM TSK伝票F
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 伝票区分 = @伝票区分
	AND 伝票処理区分 = @伝票処理区分
	AND (
		(
			取引日 = @取引日
			AND 伝票番号 > @伝票番号
		)
		OR (取引日 > @取引日)
	)
	AND 削除フラグ = 0
	AND 伝票番号 <> '9999999'
	AND 伝票番号 <> 'AAAAAAA'		--精算表繰越記入伝票を除外（081022小野）
ORDER BY 取引日
	, 伝票番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK伝票集計取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @勘定CD varchar(25)
, @伝票処理区分1 smallint, @伝票処理区分2 smallint, @伝票処理区分3 smallint

AS

--@伝票処理区分が11以上なら9・10両方を取得する（081021小野）
declare @伝票処理区分4 smallint
SET @伝票処理区分4 = -1
if @伝票処理区分3 > 10
begin
	SET @伝票処理区分3 = 9
	SET @伝票処理区分4 = 10
end


if @勘定CD = '' 
begin
	SELECT @勘定CD = '%'
end

SELECT TDA勘定科目M.貸借区分
	, IsNull(SUM(TSK伝票明細F.借方金額), 0) As 借方金額
	, IsNull( SUM(TSK伝票明細F.貸方金額) , 0) AS 貸方金額
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.会社CD = @会社CD
	AND TSK伝票明細F.勘定CD LIKE @勘定CD
	AND (伝票処理区分 = @伝票処理区分1 OR 伝票処理区分 = @伝票処理区分2 OR 伝票処理区分 = @伝票処理区分3 OR 伝票処理区分 = @伝票処理区分4)	--@伝票処理区分が11以上なら9・10両方を取得するための拡張（081021小野）

	AND 削除フラグ = 0
GROUP BY TDA勘定科目M.貸借区分




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK勘定残高データ取得
@システムCD varchar(12),@演習CD varchar(12),@会社CD varchar(20),@勘定CD varchar(25),@会計開始日 DateTime, @会計終了日 DateTime,@学生番号 varchar(12)

AS
If @学生番号 = '' 
begin
	SELECT DISTINCT TSK伝票明細F.勘定CD, 
		Sum(TSK伝票明細F.借方金額) AS 借方金額の合計, 
		Sum(TSK伝票明細F.貸方金額) AS 貸方金額の合計, 
		Sum([借方金額])-Sum([貸方金額]) AS 勘定残高, 
		Max(TSK伝票F.取引日) AS 最終取引日
	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.伝票番号)
	WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND TSK伝票F.会社CD = @会社CD AND TSK伝票F.演習CD = @演習CD AND TSK伝票明細F.勘定CD = @勘定CD
	AND (TSK伝票F.取引日 Between @会計開始日 And @会計終了日) and TSK伝票F.削除フラグ = 0
	GROUP BY TSK伝票F.会社CD,TSK伝票F.演習CD,TSK伝票明細F.勘定CD
	
end
else
begin
	SELECT DISTINCT TSK伝票明細F.勘定CD, 
		Sum(TSK伝票明細F.借方金額) AS 借方金額の合計, 
		Sum(TSK伝票明細F.貸方金額) AS 貸方金額の合計, 
		Sum([借方金額])-Sum([貸方金額]) AS 勘定残高, 
		Max(TSK伝票F.取引日) AS 最終取引日
	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.伝票番号
	WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND TSK伝票F.会社CD = @会社CD AND TSK伝票F.演習CD = @演習CD AND TSK伝票明細F.勘定CD = @勘定CD
	AND (TSK伝票F.取引日 Between @会計開始日 And @会計終了日) and TSK伝票F.削除フラグ = 0
	GROUP BY TSK伝票F.会社CD,TSK伝票F.演習CD,TSK伝票F.学生番号,TSK伝票明細F.勘定CD
end


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK売上明細取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(40)
AS

	SELECT * FROM TSK伝票仕入売上明細F 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号 AND 伝票区分 = 'd4'
	ORDER BY 仕入売上明細SEQ

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO








CREATE PROCEDURE dbo.SPK契約書一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @送受信区分 varchar(2)
AS

SELECT *
FROM TGA契約書F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 送受信区分 = @送受信区分









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK契約書削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

UPDATE TGA契約書F 
SET 削除フラグ = '1'
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO










CREATE  PROCEDURE dbo.SPK契約書取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(20), @文書内容CD varchar(20), @作成会社CD varchar(20), @送受信区分 varchar(2)
AS

SELECT *
FROM TGA契約書F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD AND 作成会社CD = @作成会社CD AND 送受信区分 = @送受信区分










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO











CREATE   PROCEDURE dbo.SPK契約書受諾
@システムCD varchar(12), @処理区分 smallint, @演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20), @作成会社CD varchar(20),
 @乙担当者CD varchar(20), @処理日 datetime, @学生番号 varchar(12)
-- @処理区分は予備

AS

declare @番号 int
declare @文書CD int

begin transaction

if (SELECT 返信フラグ FROM TGA契約書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD AND 作成会社CD = @作成会社CD) = 0
begin

	/* 自分の発信文書レコードを作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 
	SET @文書CD = @番号 + 1
	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @作成会社CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

	/* 双方の契約書レコードを更新 */
	UPDATE TGA契約書F SET 乙担当者CD = @乙担当者CD --乙担当者CDを更新
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD AND 作成会社CD = @作成会社CD

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

	/* 相手側のTDA会社M.寄託会社CDを更新 */
	UPDATE TDA会社M SET 寄託会社CD = @会社CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

	/*相手側の受信文書レコードを作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @作成会社CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	SET @文書CD = @番号 + 1
	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @作成会社CD, 'R', @文書CD, @会社CD, @作成会社CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

	/* 返信フラグを立てる（同じ文書のやり取りになるため相手側も立てる）*/
	UPDATE TGA契約書F 
	SET 返信フラグ = '1'
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD AND 作成会社CD = @作成会社CD

end

if @@error <> 0 begin
	rollback transaction
	select -1  return
end

commit transaction











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO









CREATE PROCEDURE dbo.SPK契約書挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(2), @作成会社CD varchar(20),
 @送受信区分 varchar(2), @取引先CD varchar(20), @甲担当者CD varchar(20), @管轄裁判所 varchar(20),
 @学生番号 varchar(12), @処理日 datetime, @開始日 datetime, @終了日 datetime
AS

declare @番号 int

begin transaction

--↓↓↓次の文書内容CDを取得
if @文書内容CD = '' begin
	SET @番号 = 1
	While @番号 <= 10000 begin
		if not(exists(SELECT 文書内容CD FROM TGA契約書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
		 文書種類CD = @文書種類CD AND 作成会社CD = @作成会社CD AND 文書内容CD = Convert(varchar, @番号)))
		begin
			SET @文書内容CD = Convert(varchar, @番号)
			Break
		end
		SET @番号 = @番号 + 1
	end
end 

if @@error <> 0 begin
	rollback transaction
	select -1  return
end
--↑↑↑次の文書内容CDを取得

INSERT INTO TGA契約書F (システムCD, 演習CD, 会社CD, 文書種類CD, 文書内容CD, 作成会社CD,
 送受信区分, 取引先CD, 甲担当者CD, 乙担当者CD, 管轄裁判所, 発行フラグ, 返信フラグ, 削除フラグ,
 学生番号, 処理日, 開始日, 終了日)
VALUES (@システムCD, @演習CD, @会社CD, @文書種類CD, @文書内容CD, @作成会社CD,
 @送受信区分, @取引先CD, @甲担当者CD, '0', @管轄裁判所, '0', '0', '0',
 @学生番号, @処理日, @開始日, @終了日)

if @@error <> 0 begin
	rollback transaction
	select -1  return
end

commit transaction

select @文書内容CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK契約書発信
@システムCD varchar(12), @処理区分 smallint, @演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20), @作成会社CD varchar(20),
 @取引先CD varchar(20), @処理日 datetime, @学生番号 varchar(12)
-- @処理区分は予備

AS

declare @番号 int
declare @文書CD int

begin transaction

if (SELECT 発行フラグ FROM TGA契約書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD AND 作成会社CD = @作成会社CD) = 0
begin

	/* 自分の発信文書レコードを作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 
	SET @文書CD = @番号 + 1
	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

	/* 相手側の契約書を作成 */
	SELECT * INTO #TMP_TGA契約書F FROM TGA契約書F --テンポラリ作成
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TGA契約書F SET 会社CD = @取引先CD, 送受信区分 = 'R' --会社CD・送受信区分を入れ替え
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	INSERT INTO TGA契約書F SELECT * FROM #TMP_TGA契約書F --テンポラリから挿入
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

	/*相手側の受信文書レコードを作成 */
	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @取引先CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	SET @文書CD = @番号 + 1
	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @取引先CD, 'R', @文書CD, @会社CD, @取引先CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

	if @@error <> 0 begin
		rollback transaction
		select -1  return
	end

	/* 発行フラグを立てる（同じ文書のやり取りになるため相手側も立てる）*/
	UPDATE TGA契約書F 
	SET 発行フラグ = '1'
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

end

if @@error <> 0 begin
	rollback transaction
	select -1  return
end

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK契約書開封
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20), @作成会社CD varchar(20)

AS

UPDATE TTX文書F
SET 開封フラグ = 1
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD AND 作成会社CD = @作成会社CD AND 送受信区分 = 'R'

--UPDATE TTX文書F
--SET 開封フラグ = 1
--FROM TTX文書F INNER JOIN TGA契約書F ON
--	TTX文書F.システムCD = TGA契約書F.システムCD AND
--	TTX文書F.演習CD = TGA契約書F.演習CD AND
--	TTX文書F.会社CD = TGA契約書F.会社CD AND
--	TTX文書F.作成会社CD = TGA契約書F.作成会社CD AND
--	TTX文書F.文書種類CD = TGA契約書F.文書種類CD AND
--	TTX文書F.文書内容CD = TGA契約書F.文書内容CD
--WHERE	(TGA契約書F.システムCD = @システムCD) AND
--	(TGA契約書F.演習CD = @演習CD) AND
--	(TGA契約書F.会社CD = @会社CD) AND
--	(TGA契約書F.作成会社CD = @作成会社CD) AND
--	(TGA契約書F.文書種類CD = @文書種類CD) AND
--	(TGA契約書F.文書内容CD = @文書内容CD)








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO









/*
+   
+   TKU小売販売設定情報の取得を行う
+
*/
CREATE PROCEDURE dbo.SPK小売販売M取得
@システムCD varchar(12),  @演習CD  varchar(12)  



AS

SELECT * FROM TKU小売販売M 
    WHERE SPK小売販売M.システムCD = @システムCD
     and SPK小売販売M.演習CD = @演習CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO













CREATE PROCEDURE dbo.SPK小売販売M更新
@システムCD varchar(12), 
  @処理区分  smallint             , @演習CD varchar(12)         , @会社CD varchar(20)
, @出庫番号  smallint             , @寄託受付番号 smallint
, @商品CD    varchar(20)     , @寄託者CD varchar(20)       , @出庫年月日  datetime
, @期数 smallint                   , @出庫数量 float                 
, @請求倉庫料金 money          , @保管料金 money
, @荷役料金 money              , @摘要 varchar(40)

AS

if @処理区分 = 1
begin
/* 対象データの登録 */

	if exists(SELECT * FROM TGC出庫F where TGC出庫F.システムCD = @システムCD and TGC出庫F.演習CD = @演習CD and TGC出庫F.会社CD = @会社CD)
	begin 
		SELECT @出庫番号 = (SELECT MAX(出庫番号) AS 出庫番号 FROM TGC出庫F WHERE システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD GROUP BY 演習CD, 会社CD)
		SELECT @出庫番号 = @出庫番号 + 1
	end
	else
	begin
		SELECT @出庫番号 = 1
	end

insert TGC出庫F
(
 システムCD , 演習CD , 会社CD 
, 出庫番号 , 寄託受付番号 
, 商品CD , 寄託者CD , 出庫年月日 
, 期数 ,出庫数量 
, 請求倉庫料金 , 保管料金 
, 荷役料金 , 摘要 
)

values 
(
 @システムCD , @演習CD , @会社CD
, @出庫番号 , @寄託受付番号 
, @商品CD , @寄託者CD , @出庫年月日 
, @期数 , @出庫数量 
, @請求倉庫料金 , @保管料金 
, @荷役料金 , @摘要 
 
)
if @@error <> 0
 begin
 select -1 return
 end
end

if @処理区分 = 2
begin
/* 対象データの更新 */
update TGC出庫F
 set 
    寄託受付番号= @寄託受付番号
    , 商品CD= @商品CD
    , 寄託者CD= @寄託者CD 
    , 出庫年月日= @出庫年月日    
    , 期数=@期数 
    , 出庫数量= @出庫数量              
    , 請求倉庫料金= @請求倉庫料金
    , 保管料金= @保管料金 
    , 荷役料金=  @荷役料金 
    , 摘要= @摘要   
from TGC出庫F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD
    and  出庫番号     =   @出庫番号 

if @@error <> 0
   begin
       select -1  return
   end
end

select @出庫番号





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*

	小売販売テーブルからレコード完全削除（TTL＆TRN）

*/

CREATE PROCEDURE dbo.SPK小売販売TRN削除
@システムCD varchar(12)  ,@演習CD      varchar(12)    , @会社CD  varchar(20)     ,@作成会社CD    varchar(20)    ,@文書種類CD   varchar(2)   ,@文書内容CD     varchar(20)   

AS

/* 対象データの削除 */
delete 
from TKH小売販売TRN
where システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD 
    and  作成会社CD   =   @作成会社CD
    and  文書種類CD   =   @文書種類CD
    and  文書内容CD   =   @文書内容CD

if @@error <> 0
   begin
       select -1  return
   end

select 0





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*

	小売販売テーブルからレコード完全削除（TTL＆TRN）

*/

CREATE PROCEDURE dbo.SPK小売販売TTL削除
@システムCD varchar(12)  ,@演習CD      varchar(12)    , @会社CD  varchar(20)     ,@作成会社CD    varchar(20)    ,@文書種類CD   varchar(2)   ,@文書内容CD     varchar(20)   

AS

/* 対象データの削除 */
delete 
from TKH小売販売TTL
where システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD 
    and  作成会社CD   =   @作成会社CD
    and  文書種類CD   =   @文書種類CD
    and  文書内容CD   =   @文書内容CD

if @@error <> 0
   begin
       select -1  return
   end

select 0









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*
+   SPK小売販売一覧取得
+   SPK小売販売一覧の取得を行う
+   
*/

CREATE PROCEDURE dbo.SPK小売販売一覧取得_先生
 @システムCD    varchar(12)
,@演習CD        varchar(12)


AS


	SELECT          TKH小売販売TTL.*
	FROM            TKH小売販売TTL 

	WHERE           (TKH小売販売TTL.システムCD = @システムCD) AND (TKH小売販売TTL.演習CD = @演習CD)

		ORDER BY  更新日時 DESC





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*
+   SPK小売販売一覧取得
+   SPK小売販売一覧の取得を行う
+   
*/

CREATE PROCEDURE dbo.SPK小売販売一覧取得_先生ORG
 @システムCD    varchar(12)
,@演習CD        varchar(12)


AS


	SELECT          TKH小売販売TTL.*
	FROM            TKH小売販売TTL 

	WHERE           (TKH小売販売TTL.システムCD = @システムCD) AND (TKH小売販売TTL.演習CD = @演習CD)

		ORDER BY  買上日 ,文書種類CD ,文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*
+   SPK小売販売一覧取得
+   SPK小売販売一覧を取得する
+  
*/

CREATE PROCEDURE dbo.SPK小売販売一覧取得_生徒
 @システムCD     varchar(12)
, @演習CD         varchar(12)
, @会社CD         varchar(20)
, @作成会社CD   varchar(20)
, @文書種類CD   varchar(2)


AS


	SELECT          TKH小売販売TTL.*
	FROM            TKH小売販売TTL


	WHERE           (TKH小売販売TTL.システムCD = @システムCD) AND (TKH小売販売TTL.演習CD = @演習CD) 
              AND (TKH小売販売TTL.会社CD = @会社CD) AND (TKH小売販売TTL.作成会社CD = @作成会社CD)
              AND (TKH小売販売TTL.文書種類CD = @文書種類CD)

	ORDER BY 更新日時 DESC





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*
+   SPK小売販売一覧取得
+   SPK小売販売一覧を取得する
+  
*/

CREATE PROCEDURE dbo.SPK小売販売一覧取得_生徒ORG
 @システムCD     varchar(12)
, @演習CD         varchar(12)
, @会社CD         varchar(20)
, @作成会社CD   varchar(20)
, @文書種類CD   varchar(2)


AS


	SELECT          TKH小売販売TTL.*
	FROM            TKH小売販売TTL


	WHERE           (TKH小売販売TTL.システムCD = @システムCD) AND (TKH小売販売TTL.演習CD = @演習CD) 
              AND (TKH小売販売TTL.会社CD = @会社CD) AND (TKH小売販売TTL.作成会社CD = @作成会社CD)
              AND (TKH小売販売TTL.文書種類CD = @文書種類CD)

	ORDER BY 買上日 ,文書種類CD ,文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*

	小売販売の出荷フラグをONにする（出荷済み）

*/
CREATE PROCEDURE dbo.SPK小売販売出荷FON
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20) 

AS

UPDATE TKH小売販売TTL 
SET 出荷フラグ = '1'
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*

	小売販売の削除フラグをONにする（削除済み）

*/
CREATE PROCEDURE dbo.SPK小売販売削除FON
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

UPDATE TKH小売販売TTL 
SET 削除フラグ = '1'
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*
+   SPK小売販売情報取得
+   SPK小売販売T情報の取得を行う
+   S：生徒用　T：先生用
*/

CREATE PROCEDURE dbo.SPK小売販売取得_合計
 @システムCD     varchar(12)
, @演習CD         varchar(12)
, @会社CD         varchar(20)
, @作成会社CD   varchar(20)
, @文書種類CD   varchar(2)
, @文書内容CD   varchar(20)

AS


	SELECT          TKH小売販売TTL.*
	FROM            TKH小売販売TTL


	WHERE           (TKH小売販売TTL.システムCD = @システムCD) AND (TKH小売販売TTL.演習CD = @演習CD) 
              AND (TKH小売販売TTL.会社CD = @会社CD) AND (TKH小売販売TTL.作成会社CD = @作成会社CD)
              AND (TKH小売販売TTL.文書種類CD = @文書種類CD) AND (TKH小売販売TTL.文書内容CD = @文書内容CD)





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*
+   SPK小売販売情報取得
+   SPK小売販売T情報の取得を行う
+   生徒：生徒用　先生：先生用
*/

CREATE PROCEDURE dbo.SPK小売販売取得_明細
 @システムCD       varchar(12)     
,@演習CD           varchar(12)
,@会社CD           varchar(20)
,@作成会社CD     varchar(20)
,@文書種類CD     varchar(2)
,@文書内容CD     varchar(20)
/*,@小売販売SEQ    varchar(2)
*/
AS


	SELECT          TKH小売販売TRN.*
	FROM            TKH小売販売TRN

	WHERE           (TKH小売販売TRN.システムCD = @システムCD) AND (TKH小売販売TRN.演習CD = @演習CD) 
              AND (TKH小売販売TRN.会社CD = @会社CD) AND (TKH小売販売TRN.作成会社CD = @作成会社CD)
              AND (TKH小売販売TRN.文書種類CD = @文書種類CD) AND (TKH小売販売TRN.文書内容CD = @文書内容CD)
/*              AND (TKH小売販売TRN.小売販売SEQ LIKE @小売販売SEQ)
*/





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



/*  2007.02.20
   小売販売機能追加に伴う、小売販売テーブル更新プロシージャー
　 小売TRNへの更新を行う

*/
CREATE PROCEDURE dbo.SPK小売販売更新_TRN
 @処理区分           smallint 

 , @システムCD        varchar(12)   , @演習CD        varchar(12)    , @会社CD     varchar(20)   , @作成会社CD    varchar(20)  , @文書種類CD  varchar(2)  
 , @文書内容CD        varchar(20)   , @小売販売SEQ   varchar(2)    , @商品CD      varchar(20)   , @商品名        varchar(80)  , @商品略称    varchar(20)
 , @標準売価          money         , @実販売単価      money          , @仕入単価   money         , @数量          int          , @返品数量          int
 , @金額                money         , @消費税率 real       , @更新日時          datetime

AS

if @処理区分 = 1
begin
/* 対象データの登録 */

	if exists(SELECT * FROM TKH小売販売TRN

	 	where TKH小売販売TRN.システムCD = @システムCD and TKH小売販売TRN.演習CD = @演習CD and TKH小売販売TRN.会社CD = @会社CD and
			TKH小売販売TRN.作成会社CD = @作成会社CD and TKH小売販売TRN.文書種類CD = @文書種類CD and 
			TKH小売販売TRN.文書内容CD = @文書内容CD and TKH小売販売TRN.小売販売SEQ = @小売販売SEQ)
		begin 
			SELECT @小売販売SEQ = (SELECT MAX(CONVERT(int, 小売販売SEQ)) AS 小売販売SEQ FROM TKH小売販売TRN 
				WHERE システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD 
					and 作成会社CD = @作成会社CD and 文書種類CD = @文書種類CD and 文書内容CD = @文書内容CD 
					GROUP BY 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD)
			SELECT @小売販売SEQ = @小売販売SEQ + 1
		end
	else
		begin
			SELECT @小売販売SEQ = 1
		end

insert TKH小売販売TRN
(
システムCD           ,演習CD     ,会社CD             ,作成会社CD     ,文書種類CD           ,文書内容CD  
,小売販売SEQ         ,商品CD     ,商品名             ,商品略称       ,標準売価             ,実販売単価
,仕入単価            ,数量       ,返品数量              ,金額          ,消費税率               ,更新日時
)

values 
(
   @システムCD           , @演習CD               , @会社CD              , @作成会社CD         , @文書種類CD         , @文書内容CD
  , @小売販売SEQ         , @商品CD              , @商品名              , @商品略称           , @標準売価           , @実販売単価
  , @仕入単価            , @数量                 ,@返品数量               , @金額                 , @消費税率           ,  GETDATE() 
)

if @@error <> 0
 begin
 select -1 return
 end
end

if @処理区分 = 2
begin

/* 対象データの更新 */
update TKH小売販売TRN
 set 
/*
    システムCD = @システムCD
    , 演C習D = @演習CD
    , 会社CD = @会社CD 
    , 作成会社CD = @作成会社CD    
    , 文書種類CD = @文書種類CD 
    , .文書内容CD = @文書内容CD 
    , 小売販売SEQ = @小売販売SEQ
:*/             
     商品CD = @商品CD
    , 商品名 = @商品名 
    , 商品略称 = @商品略称    
    , 標準売価 = @標準売価
    , 実販売単価 = @実販売単価              
    , 仕入単価 = @仕入単価
    , 数量 = @数量 
    ,返品数量 = @返品数量
    , 金額 =  @金額 
    , 消費税率 =  @消費税率 
    , 更新日時 = GETDATE()    

from TKH小売販売TRN
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD
    and  作成会社CD  =   @作成会社CD 
    and  文書種類CD     =   @文書種類CD
    and  文書内容CD     =   @文書内容CD 
    and  小売販売SEQ   =   @小売販売SEQ
if @@error <> 0
   begin
       select -1  return
   end
end

select @小売販売SEQ



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO








/*
   2007.02.14
   小売販売機能追加に伴う、小売販売テーブル更新プロシージャー
　 小売TTLへの更新を行う

*/
CREATE   PROCEDURE dbo.SPK小売販売更新_TTL
 @処理区分               smallint 
, @システムCD            varchar(12)    , @演習CD             varchar(12)      , @会社CD                varchar(20)        , @作成会社CD     varchar(20)        , @文書種類CD       varchar(2)    , @文書内容CD      varchar(20)
, @客氏名                varchar(80)     , @買上日              datetime         , @摘要                    varchar(100)
, @学生番号             varchar(20)     , @学生氏名           varchar(20)                 
, @買上点数             int                , @買上金額           money            , @消費税                 money              , @送料               money              , @合計金額           money
, @買上票印刷フラグ   smallint         , @出荷フラグ   smallint           , @領収書印刷フラグ   smallint          , @入出庫更新フラグ     smallint            , @削除フラグ         smallint            , @寄託倉庫利用     smallint
, @更新日時            datetime

AS

if @処理区分 = 1
begin
/* 対象データの登録 */

	if exists(SELECT * FROM TKH小売販売TTL

	 	where TKH小売販売TTL.システムCD = @システムCD and TKH小売販売TTL.演習CD = @演習CD and TKH小売販売TTL.会社CD = @会社CD and
			TKH小売販売TTL.作成会社CD = @作成会社CD and TKH小売販売TTL.文書種類CD = @文書種類CD and TKH小売販売TTL.文書内容CD = @文書内容CD)
		begin 
			SELECT @文書内容CD = (SELECT MAX(CONVERT(int, 文書内容CD)) AS 文書内容CD FROM TKH小売販売TTL 
				WHERE システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD and 作成会社CD = @作成会社CD and 文書種類CD = @文書種類CD 
					GROUP BY 演習CD, 会社CD, 作成会社CD)
			SELECT @文書内容CD = @文書内容CD + 1
		end
	else
		begin
			SELECT @文書内容CD = 1
		end


insert TKH小売販売TTL
(
  システムCD             ,演習CD     ,会社CD             ,作成会社CD     ,文書種類CD           ,文書内容CD  
  ,客氏名                 ,買上日      ,摘要                 ,学生番号         ,学生氏名               ,買上点数
  ,買上金額              ,消費税      ,送料                 ,合計金額         ,買上票印刷フラグ      ,出荷フラグ
  ,領収書印刷フラグ    ,入出庫更新フラグ     ,削除フラグ   ,寄託倉庫利用    ,更新日時

)

values 
(
   @システムCD            , @演習CD                , @会社CD                , @作成会社CD         , @文書種類CD         , @文書内容CD
 , @客氏名                 , @買上日                 , @摘要
 , @学生番号              , @学生氏名                 
 , @買上点数              , @買上金額              , @消費税                 , @送料                    , @合計金額
 , @買上票印刷フラグ    , @出荷フラグ              , @領収書印刷フラグ     , @入出庫更新フラグ     , @削除フラグ             , @寄託倉庫利用
 , GETDATE()  


)

if @@error <> 0
 begin
 select -1 return
 end
end

if @処理区分 = 2
begin

/* 対象データの更新 */
update TKH小売販売TTL
 set 
/*
    システムCD = @システムCD
    , 演C習D = @演習CD
    , 会社CD = @会社CD 
    , 作成会社CD = @作成会社CD    
    , 文書種類CD = @文書種類CD 
    , .文書内容CD = @文書内容CD) 
:*/             
     客氏名 = @客氏名
    , 買上日 = @買上日 
    , 摘要 = @摘要    
    , 学生番号 = @学生番号 
    , 学生氏名 = @学生氏名              
    , 買上点数 = @買上点数
    , 買上金額 = @買上金額 
    , 消費税 =  @消費税 
    , 送料 = @送料   
    , 合計金額 =  @合計金額 
    , 買上票印刷フラグ = @買上票印刷フラグ 
    , 出荷フラグ = @出荷フラグ              
    , 領収書印刷フラグ = @領収書印刷フラグ              
    , 入出庫更新フラグ = @入出庫更新フラグ
    , 削除フラグ = @削除フラグ 
    , 寄託倉庫利用 =  @寄託倉庫利用 
    , 更新日時 = GETDATE()    

from TKH小売販売TTL
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD
    and  作成会社CD  =   @作成会社CD 
    and  文書種類CD     =   @文書種類CD
    and  文書内容CD     =   @文書内容CD 

if @@error <> 0
   begin
       select -1  return
   end
end

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*

	小売販売の買上票印刷フラグをONにする（印刷済み）


*/
CREATE PROCEDURE dbo.SPK小売販売買上票印刷FON
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

UPDATE TKH小売販売TTL 
SET 買上票印刷フラグ = '1'
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







/*  2007.02.20
   小売販売機能追加に伴う、小売販売テーブル返品プロシージャー
　 小売TRNへの更新を行う

*/
CREATE    PROCEDURE dbo.SPK小売販売返品_TRN
 @処理区分           smallint 

 , @システムCD        varchar(12)   , @演習CD        varchar(12)    , @会社CD     varchar(20)   , @作成会社CD    varchar(20)  , @文書種類CD  varchar(2)  
 , @文書内容CD        varchar(20)   , @小売販売SEQ   varchar(2)    , @商品CD      varchar(20)   
 , @数量          int          , @返品数量          int                        , @金額          money
 , @更新日時          datetime

AS

if @処理区分 = 2
begin

/* 対象データの更新 */
update TKH小売販売TRN
 set 
/*
    システムCD = @システムCD
    , 演C習D = @演習CD
    , 会社CD = @会社CD 
    , 作成会社CD = @作成会社CD    
    , 文書種類CD = @文書種類CD 
    , .文書内容CD = @文書内容CD 
    , 小売販売SEQ = @小売販売SEQ
:*/             
     数量 = @数量 
    ,返品数量 = @返品数量
    , 金額 =  @金額 
    , 更新日時 = GETDATE()    

from TKH小売販売TRN
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD
    and  作成会社CD  =   @作成会社CD 
    and  文書種類CD     =   @文書種類CD
    and  文書内容CD     =   @文書内容CD 
    and  小売販売SEQ   =   @小売販売SEQ
    and  商品CD       =  @商品CD


if @@error <> 0
   begin
       select -1  return
   end
end

select @小売販売SEQ





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







/*
   2007.02.14
   小売販売機能追加に伴う、小売販売テーブル更新プロシージャー
　 小売TTLへの更新を行う

*/
CREATE   PROCEDURE dbo.SPK小売販売返品_TTL
 @処理区分               smallint 
  , @システムCD            varchar(12)    , @演習CD             varchar(12)      , @会社CD                varchar(20)        , @作成会社CD     varchar(20)        , @文書種類CD       varchar(2)    , @文書内容CD      varchar(20)
  , @買上点数             int                , @買上金額           money            , @消費税                 money              , @送料               money              , @合計金額           money
  , @更新日時            datetime

AS

if @処理区分 = 2
begin

/* 対象データの更新 */
update TKH小売販売TTL
 set 
/*
    システムCD = @システムCD
    , 演C習D = @演習CD
    , 会社CD = @会社CD 
    , 作成会社CD = @作成会社CD    
    , 文書種類CD = @文書種類CD 
    , .文書内容CD = @文書内容CD) 
:*/             
    買上点数 = @買上点数
    , 買上金額 = @買上金額 
    , 消費税 =  @消費税 
    , 送料 = @送料   
    , 合計金額 =  @合計金額 
    , 更新日時 = GETDATE()    

from TKH小売販売TTL
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD
    and  作成会社CD  =   @作成会社CD 
    and  文書種類CD     =   @文書種類CD
    and  文書内容CD     =   @文書内容CD 

if @@error <> 0
   begin
       select -1  return
   end
end

select @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






/*

	小売販売の領収書印刷フラグをONにする（印刷済み）


*/
CREATE PROCEDURE dbo.SPK小売販売領収書印刷FON
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

UPDATE TKH小売販売TTL 
SET 領収書印刷フラグ = '1'
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




--小売販売時の返品処理において、レコードをHU（売上）からHH（返品）レコードを作成する（M．W）
CREATE PROCEDURE dbo.SPK小売返品更新1
  @システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

declare @番号  int
declare @取引日   varchar(20)
declare @伝票番号 varchar(20)

begin transaction

	if @文書種類CD = 'HH'
	begin
		if exists(SELECT * FROM TKH小売販売_TTL WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD 
								AND 会作成社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
		begin
			select @番号 = (SELECT MAX(伝票番号) FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票処理区分 = 9 AND 伝票番号 <> '9999999')
			select @番号 = @番号 + 1			
		end
		else
		begin 
			select @番号 = '9000001'
		end
	end
	else
	begin

	
	
		SET @番号 = 1
		While @番号 < 1000
		begin
			set @伝票番号 = (YEAR(@取引日)-2000) * 100000 + MONTH(@取引日) * 1000 + @番号
			set @伝票番号 = REPLACE(STR(@伝票番号, 7), ' ','0')
			if not(exists(SELECT 伝票番号 FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号))
			begin
				Break
			end
			SET @番号 = @番号 + 1
		end
		

	end

commit transaction

select @伝票番号
return @伝票番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK帳簿_仕訳帳伝票番号一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

	SELECT 伝票番号,取引日 FROM TSK帳簿_仕訳帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 伝票番号,取引日 ORDER BY 取引日

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPK帳簿_仕訳帳取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_仕訳帳F.*, TDA勘定科目M.勘定名称
FROM TSK帳簿_仕訳帳F
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION --TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 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.会社CD = @会社CD
ORDER BY TSK帳簿_仕訳帳F.取引日, TSK帳簿_仕訳帳F.伝票番号, TSK帳簿_仕訳帳F.借方金額 DESC, TSK帳簿_仕訳帳F.貸方金額 DESC, TDA勘定科目M.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPK帳簿_仕訳帳取得伝票番号
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(12)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_仕訳帳F.*, TDA勘定科目M.勘定名称
FROM TSK帳簿_仕訳帳F
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION --TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 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.会社CD = @会社CD
	AND TSK帳簿_仕訳帳F.伝票番号 = @伝票番号
ORDER BY TSK帳簿_仕訳帳F.借方金額 DESC, TSK帳簿_仕訳帳F.貸方金額 DESC, TDA勘定科目M.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPK帳簿_仕訳帳取得伝票貸方
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(12)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_仕訳帳F.*, TDA勘定科目M.勘定名称
FROM TSK帳簿_仕訳帳F
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION --TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 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.会社CD = @会社CD
	AND TSK帳簿_仕訳帳F.伝票番号 = @伝票番号
ORDER BY TSK帳簿_仕訳帳F.貸方金額 DESC, TSK帳簿_仕訳帳F.借方金額 DESC, TDA勘定科目M.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK帳簿_仕訳帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @伝票番号 varchar(12)
, @取引日 datetime
, @勘定CD varchar(25)
, @借方金額 money
, @貸方金額 money
, @摘要 varchar(50)

AS

declare @仕訳帳CD int
declare @番号 int

begin transaction

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

if exists(SELECT MAX(仕訳帳CD) AS 仕訳帳CD FROM YTMP_TSK帳簿_仕訳帳F WHERE (システムCD = @システムCD) AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号 GROUP BY 伝票番号, 会社CD, 演習CD)
begin
	SELECT @番号 = (SELECT MAX(仕訳帳CD) AS 仕訳帳CD FROM YTMP_TSK帳簿_仕訳帳F WHERE (システムCD = @システムCD) AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号 GROUP BY 伝票番号, 会社CD, 演習CD)
	SELECT @仕訳帳CD = @番号 + 1	
end
else
begin
	SELECT @仕訳帳CD = 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT YTMP_TSK帳簿_仕訳帳F (システムCD, 演習CD, 会社CD, 伝票番号, 仕訳帳CD, 取引日, 勘定CD, 借方金額, 貸方金額, 摘要)
VALUES (@システムCD, @演習CD, @会社CD, @伝票番号, @仕訳帳CD, @取引日, @勘定CD, @借方金額, @貸方金額, @摘要)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_仕訳帳挿入_振替伝票
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @伝票区分 varchar(2)
, @伝票番号 varchar(40)
, @取引日 datetime
, @摘要CD varchar(20)
, @勘定CD varchar(25)
, @相手勘定CD varchar(25)
, @借方金額 money
, @貸方金額 money
, @摘要 varchar(30)

AS

declare @貸借区分 varchar(2) 
declare @伝票SEQ smallint

begin transaction

--金額に従い貸借を特定
if @借方金額 is null
begin
	SELECT @貸借区分 = 'C'
end
else
begin
	SELECT @貸借区分 = 'D'
end

--伝票明細番号を取得
SELECT @伝票SEQ = (SELECT MAX(伝票SEQ) FROM YTMP_TSK伝票明細F WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号) GROUP BY 伝票番号)
if @伝票SEQ Is Null 
begin
	SELECT @伝票SEQ = 1
end		
else
begin
	SELECT @伝票SEQ = @伝票SEQ + 1
end 

insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
values (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票SEQ, @勘定CD, @借方金額 ,@貸方金額 ,@貸借区分, @相手勘定CD, @摘要CD, @摘要)

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @伝票SEQ




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_仕訳帳挿入_振替伝票削除
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @伝票区分 varchar(2)
, @伝票番号 varchar(40)

AS

begin transaction

DELETE FROM YTMP_TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK帳簿_仕訳帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票番号 varchar(12)

AS
begin transaction

DELETE FROM TSK帳簿_仕訳帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TSK帳簿_仕訳帳F
SELECT *
FROM YTMP_TSK帳簿_仕訳帳F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

DELETE FROM YTMP_TSK帳簿_仕訳帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_仕訳帳更新_振替伝票
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @伝票区分 varchar(2)
, @伝票処理区分 varchar(2)
, @伝票番号 varchar(40)
, @取引日 datetime
, @取引先CD varchar(20)
, @摘要 varchar(30)
, @学生番号 varchar(20)

AS

declare @番号 varchar(12) 

begin transaction

if exists(SELECT * FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号)
begin
	DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号
end
	
if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT TSK伝票F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票処理区分, 取引日, 取引先CD, 伝票摘要 ,作成日 ,削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @伝票番号, @伝票区分, @伝票処理区分, @取引日, @取引先CD, @摘要, getdate(), 0, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end
	
INSERT INTO TSK伝票明細F
SELECT *
FROM YTMP_TSK伝票明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = @伝票番号

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO










CREATE  PROCEDURE dbo.SPK帳簿_仕訳日記帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT          TSK帳簿_仕訳日記帳F.*, TDA勘定科目M.勘定名称
FROM            TSK帳簿_仕訳日記帳F
LEFT OUTER 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.会社CD = @会社CD
ORDER BY 仕訳日記帳CD










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_仕訳日記帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @取引日 datetime, @勘定CD varchar(25), @借方金額 money ,@貸方金額 money, @伝票 varchar(50) ,@摘要 varchar(50)

AS

declare @仕訳日記帳CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(仕訳日記帳CD) AS 仕訳日記帳CD FROM YTMP_TSK帳簿_仕訳日記帳F WHERE (システムCD = @システムCD) AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(仕訳日記帳CD) AS 仕訳日記帳CD FROM YTMP_TSK帳簿_仕訳日記帳F WHERE (システムCD = @システムCD) AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @仕訳日記帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @仕訳日記帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK帳簿_仕訳日記帳F (システムCD, 演習CD, 会社CD, 仕訳日記帳CD, 取引日, 勘定CD, 借方金額, 貸方金額, 伝票, 摘要)
VALUES (@システムCD, @演習CD, @会社CD, @仕訳日記帳CD, @取引日, @勘定CD, @借方金額, @貸方金額, @伝票, @摘要)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_仕訳日記帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK帳簿_仕訳日記帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSK帳簿_仕訳日記帳F
	SELECT      *
	FROM           YTMP_TSK帳簿_仕訳日記帳F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK帳簿_仕訳日記帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_仕訳集計表取引日一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

	SELECT 取引日 FROM TSK帳簿_仕訳集計表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 取引日 ORDER BY 取引日

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_仕訳集計表取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @取引日 datetime

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_仕訳集計表F.*
	, TDA勘定科目M.勘定名称
FROM TSK帳簿_仕訳集計表F
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 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.会社CD = @会社CD
	AND TSK帳簿_仕訳集計表F.取引日 = @取引日
ORDER BY 仕訳集計表CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_仕訳集計表挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @取引日 datetime, @勘定CD varchar(25), @元丁 varchar(25), @借方金額 money, @貸方金額 money, @摘要 varchar(100)

AS

declare @仕訳集計表CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(仕訳集計表CD) AS 仕訳集計表CD FROM YTMP_TSK帳簿_仕訳集計表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引日 = @取引日 GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(仕訳集計表CD) AS 仕訳集計表CD FROM YTMP_TSK帳簿_仕訳集計表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引日 = @取引日 GROUP BY 会社CD, 演習CD)
		SELECT @仕訳集計表CD = @番号 + 1	
	end
	else
	begin
		SELECT @仕訳集計表CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK帳簿_仕訳集計表F (システムCD, 演習CD, 会社CD, 仕訳集計表CD, 取引日, 勘定CD, 元丁, 借方金額, 貸方金額, 摘要)
VALUES (@システムCD, @演習CD, @会社CD, @仕訳集計表CD, @取引日, @勘定CD, @元丁, @借方金額, @貸方金額, @摘要)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_仕訳集計表更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @取引日 datetime

AS
begin transaction

	DELETE FROM TSK帳簿_仕訳集計表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引日 = @取引日

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSK帳簿_仕訳集計表F
	SELECT      *
	FROM           YTMP_TSK帳簿_仕訳集計表F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引日 = @取引日

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end
	DELETE FROM YTMP_TSK帳簿_仕訳集計表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引日 = @取引日

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_八桁精算表取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_八桁精算表F.*
	, TDA勘定科目M.勘定名称
	, TDA勘定科目M.勘定細目
	, TDA勘定科目M.貸借区分
FROM TSK帳簿_八桁精算表F
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 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.会社CD = @会社CD
ORDER BY 八桁精算表CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_八桁精算表挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
,@勘定CD varchar(25), @試算表借方金額 money , @試算表貸方金額 money , @整理記入借方金額 money , @整理記入貸方金額 money
,@損益計算書借方金額 money ,@損益計算書貸方金額 money ,@貸借対照表借方金額 money ,@貸借対照表貸方金額 money

AS

declare @八桁精算表CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(八桁精算表CD) AS 八桁精算表CD FROM YTMP_TSK帳簿_八桁精算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(八桁精算表CD) AS 八桁精算表CD FROM YTMP_TSK帳簿_八桁精算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @八桁精算表CD = @番号 + 1	
	end
	else
	begin
		SELECT @八桁精算表CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK帳簿_八桁精算表F (システムCD, 演習CD, 会社CD, 八桁精算表CD, 勘定CD, 試算表借方金額, 試算表貸方金額, 整理記入借方金額, 整理記入貸方金額, 損益計算書借方金額, 損益計算書貸方金額, 貸借対照表借方金額, 貸借対照表貸方金額)
VALUES (@システムCD, @演習CD, @会社CD, @八桁精算表CD,@勘定CD, @試算表借方金額, @試算表貸方金額, @整理記入借方金額, @整理記入貸方金額, @損益計算書借方金額, @損益計算書貸方金額, @貸借対照表借方金額, @貸借対照表貸方金額)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_八桁精算表更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK帳簿_八桁精算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TSK帳簿_八桁精算表F
		SELECT      *
		FROM           YTMP_TSK帳簿_八桁精算表F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

	if @@error <> 0
	   begin
	       rollback transaction
	       select -1  return
	   end
	
		DELETE FROM YTMP_TSK帳簿_八桁精算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK帳簿_合計残高試算表取引日一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

SELECT 取引日 FROM TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 取引日 ORDER BY 取引日

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_合計残高試算表取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
	SELECT          TSK帳簿_合計残高試算表F.*, TDA勘定科目M.勘定名称
	FROM            TSK帳簿_合計残高試算表F
	LEFT OUTER 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.会社CD = @会社CD
	ORDER BY 合計残高試算表CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_合計残高試算表取得日付指定
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @取引日 datetime

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_合計残高試算表F.*
	, TDA勘定科目M.勘定名称
FROM TSK帳簿_合計残高試算表F
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 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.会社CD = @会社CD
	AND TSK帳簿_合計残高試算表F.取引日 = @取引日
ORDER BY 合計残高試算表CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_合計残高試算表挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @取引日 datetime, @借方残高 money, @借方金額 money, @勘定CD varchar(25), @貸方金額 money, @貸方残高 money

AS

declare @合計残高試算表CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(合計残高試算表CD) AS 合計残高試算表CD FROM YTMP_TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(合計残高試算表CD) AS 合計残高試算表CD FROM YTMP_TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @合計残高試算表CD = @番号 + 1	
	end
	else
	begin
		SELECT @合計残高試算表CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK帳簿_合計残高試算表F (システムCD, 演習CD, 会社CD, 合計残高試算表CD, 取引日, 借方残高, 借方金額, 勘定CD, 貸方金額, 貸方残高)
VALUES (@システムCD, @演習CD, @会社CD, @合計残高試算表CD, @取引日, @借方残高, @借方金額, @勘定CD, @貸方金額, @貸方残高)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_合計残高試算表更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSK帳簿_合計残高試算表F
	SELECT      *
	FROM           YTMP_TSK帳簿_合計残高試算表F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK帳簿_合計残高試算表更新日付指定
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @取引日 datetime

AS
begin transaction

	DELETE FROM TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引日 = @取引日

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSK帳簿_合計残高試算表F
	SELECT      *
	FROM           YTMP_TSK帳簿_合計残高試算表F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引日 = @取引日

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引日 = @取引日

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_損益計算書取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_損益計算書F.*
	, 借方勘定.勘定名称 AS 借方勘定名称
	, 貸方勘定.勘定名称 AS 貸方勘定名称
	, '' AS 貸借区分
FROM TSK帳簿_損益計算書F
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 借方勘定
	ON TSK帳簿_損益計算書F.システムCD = 借方勘定.システムCD
	AND TSK帳簿_損益計算書F.演習CD = 借方勘定.演習CD
	AND TSK帳簿_損益計算書F.借方勘定CD = 借方勘定.勘定CD
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 貸方勘定
	ON TSK帳簿_損益計算書F.システムCD = 貸方勘定.システムCD
	AND TSK帳簿_損益計算書F.演習CD = 貸方勘定.演習CD
	AND TSK帳簿_損益計算書F.貸方勘定CD = 貸方勘定.勘定CD
WHERE TSK帳簿_損益計算書F.システムCD = @システムCD
	AND TSK帳簿_損益計算書F.演習CD = @演習CD
	AND TSK帳簿_損益計算書F.会社CD = @会社CD
ORDER BY 損益計算書CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_損益計算書挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
,@取引日 datetime, @借方勘定CD varchar(25), @借方金額 money, @貸方勘定CD varchar(25), @貸方金額 money

AS

declare @損益計算書CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(損益計算書CD) AS 損益計算書CD FROM YTMP_TSK帳簿_損益計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(損益計算書CD) AS 損益計算書CD FROM YTMP_TSK帳簿_損益計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @損益計算書CD = @番号 + 1	
	end
	else
	begin
		SELECT @損益計算書CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK帳簿_損益計算書F (システムCD, 演習CD, 会社CD, 損益計算書CD, 取引日, 借方勘定CD, 借方金額, 貸方勘定CD, 貸方金額)
VALUES (@システムCD, @演習CD, @会社CD, @損益計算書CD, @取引日, @借方勘定CD, @借方金額, @貸方勘定CD, @貸方金額)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_損益計算書更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK帳簿_損益計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSK帳簿_損益計算書F
	SELECT      *
	FROM           YTMP_TSK帳簿_損益計算書F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK帳簿_損益計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_期首残高挿入元帳
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @勘定CD varchar(25)
, @取引日 datetime, @仕丁 varchar(4), @摘要CD varchar(20), @摘要 varchar(50), @相手勘定CD varchar(25), @借方金額 money, @貸方金額 money, @貸借区分 varchar(2), @残高 money

AS

begin transaction

DELETE FROM TSK帳簿_総勘定元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 勘定CD = @勘定CD AND 総勘定元帳CD = 0

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT TSK帳簿_総勘定元帳F (システムCD, 演習CD, 会社CD, 勘定CD, 総勘定元帳CD, 取引日, 仕丁, 摘要CD, 摘要, 相手勘定CD, 借方金額, 貸方金額, 貸借区分, 残高)
VALUES (@システムCD, @演習CD, @会社CD, @勘定CD, 0, @取引日, @仕丁, @摘要CD, @摘要, @相手勘定CD, @借方金額, @貸方金額, @貸借区分, @残高)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO









CREATE PROCEDURE dbo.SPK帳簿_株主資本等変動計算書取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
	SELECT *
	FROM TSK帳簿_株主資本等変動計算書F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
	ORDER BY 株主資本等変動計算書CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO









CREATE PROCEDURE dbo.SPK帳簿_株主資本等変動計算書取得M
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
	SELECT *
	FROM TSK帳簿_株主資本等変動計算書FM
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
	ORDER BY 株主資本等変動計算書CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK帳簿_株主資本等変動計算書挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @集計分類1 varchar(40)
, @集計分類2 varchar(40)
, @集計分類3 varchar(40)
, @集計区分 varchar(1)
, @変動額細目 varchar(40)
, @加減区分 varchar(1)
, @金額 money

AS

declare @株主資本等変動計算書CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(株主資本等変動計算書CD) AS 株主資本等変動計算書CD FROM YTMP_TSK帳簿_株主資本等変動計算書F WHERE (システムCD = @システムCD) AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(株主資本等変動計算書CD) AS 株主資本等変動計算書CD FROM YTMP_TSK帳簿_株主資本等変動計算書F WHERE (システムCD = @システムCD) AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @株主資本等変動計算書CD = @番号 + 1	
	end
	else
	begin
		SELECT @株主資本等変動計算書CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK帳簿_株主資本等変動計算書F (システムCD, 演習CD, 会社CD, 株主資本等変動計算書CD, 集計分類1, 集計分類2, 集計分類3, 集計区分, 変動額細目, 加減区分, 金額)
VALUES (@システムCD, @演習CD, @会社CD, @株主資本等変動計算書CD, @集計分類1, @集計分類2, @集計分類3, @集計区分, @変動額細目, @加減区分, @金額)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO










CREATE  PROCEDURE dbo.SPK帳簿_株主資本等変動計算書更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK帳簿_株主資本等変動計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSK帳簿_株主資本等変動計算書F
	SELECT      *
	FROM           YTMP_TSK帳簿_株主資本等変動計算書F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK帳簿_株主資本等変動計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_総勘定元帳取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @勘定CD varchar(25)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_総勘定元帳F.*
	, TDA会社M.会社略名称 AS 摘要会社名称
	, TDA勘定科目M.勘定名称 AS 相手勘定名称
	, A.区分名称 AS 貸借略名称
FROM TSK帳簿_総勘定元帳F
--LEFT OUTER JOIN TDA会社M
--	ON TSK帳簿_総勘定元帳F.システムCD = TDA会社M.システムCD
--	AND TSK帳簿_総勘定元帳F.演習CD = TDA会社M.演習CD
--	AND TSK帳簿_総勘定元帳F.摘要CD = TDA会社M.会社CD
LEFT OUTER JOIN (
	SELECT システムCD, 演習CD, 会社CD, 会社名称, 会社略名称
	FROM TDA会社M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
	UNION
	SELECT システムCD, 演習CD, 摘要CD, 摘要, 摘要
	FROM TTK摘要M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) TDA会社M
	ON TSK帳簿_総勘定元帳F.システムCD = TDA会社M.システムCD
	AND TSK帳簿_総勘定元帳F.演習CD = TDA会社M.演習CD
	AND TSK帳簿_総勘定元帳F.摘要CD = TDA会社M.会社CD
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
	ON TSK帳簿_総勘定元帳F.システムCD = TDA勘定科目M.システムCD
	AND TSK帳簿_総勘定元帳F.演習CD = TDA勘定科目M.演習CD
	AND TSK帳簿_総勘定元帳F.相手勘定CD = TDA勘定科目M.勘定CD
LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '貸借略区分') A
	ON TSK帳簿_総勘定元帳F.システムCD = A.システムCD
	AND TSK帳簿_総勘定元帳F.貸借区分 = A.区分CD
WHERE TSK帳簿_総勘定元帳F.システムCD = @システムCD
	AND TSK帳簿_総勘定元帳F.演習CD = @演習CD
	AND TSK帳簿_総勘定元帳F.会社CD = @会社CD
	AND TSK帳簿_総勘定元帳F.勘定CD = @勘定CD
ORDER BY TSK帳簿_総勘定元帳F.総勘定元帳CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_総勘定元帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @勘定CD varchar(25)
, @取引日 datetime, @仕丁 varchar(4), @摘要CD varchar(20), @摘要 varchar(100), @相手勘定CD varchar(25), @借方金額 money, @貸方金額 money, @貸借区分 varchar(2), @残高 money

AS

declare @総勘定元帳CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(総勘定元帳CD) AS 総勘定元帳CD FROM YTMP_TSK帳簿_総勘定元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(総勘定元帳CD) AS 総勘定元帳CD FROM YTMP_TSK帳簿_総勘定元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @総勘定元帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @総勘定元帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK帳簿_総勘定元帳F (システムCD, 演習CD, 会社CD, 勘定CD, 総勘定元帳CD, 取引日, 仕丁, 摘要CD, 摘要, 相手勘定CD, 借方金額, 貸方金額, 貸借区分, 残高)
VALUES (@システムCD, @演習CD, @会社CD, @勘定CD, @総勘定元帳CD, @取引日, @仕丁, @摘要CD, @摘要, @相手勘定CD, @借方金額, @貸方金額, @貸借区分, @残高)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_総勘定元帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @勘定CD varchar(25)

AS
begin transaction

	DELETE FROM TSK帳簿_総勘定元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 勘定CD = @勘定CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TSK帳簿_総勘定元帳F
		SELECT      *
		FROM           YTMP_TSK帳簿_総勘定元帳F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 勘定CD = @勘定CD

	if @@error <> 0
	   begin
	       rollback transaction
	       select -1  return
	   end

		DELETE FROM YTMP_TSK帳簿_総勘定元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 勘定CD = @勘定CD

commit transaction











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK帳簿_貸借対照表取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

SELECT TSK帳簿_貸借対照表F.*
	, 借方勘定.勘定名称 AS 借方勘定名称
	, 貸方勘定.勘定名称 AS 貸方勘定名称
	, '' AS 貸借区分
FROM TSK帳簿_貸借対照表F
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 借方勘定
	ON TSK帳簿_貸借対照表F.システムCD = 借方勘定.システムCD
	AND TSK帳簿_貸借対照表F.演習CD = 借方勘定.演習CD
	AND TSK帳簿_貸借対照表F.借方勘定CD = 借方勘定.勘定CD
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 貸方勘定
	ON TSK帳簿_貸借対照表F.システムCD = 貸方勘定.システムCD
	AND TSK帳簿_貸借対照表F.演習CD = 貸方勘定.演習CD
	AND TSK帳簿_貸借対照表F.貸方勘定CD = 貸方勘定.勘定CD
WHERE TSK帳簿_貸借対照表F.システムCD = @システムCD
	AND TSK帳簿_貸借対照表F.演習CD = @演習CD
	AND TSK帳簿_貸借対照表F.会社CD = @会社CD
ORDER BY TSK帳簿_貸借対照表F.貸借対照表CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_貸借対照表挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
,@取引日 datetime, @借方勘定CD varchar(25), @借方金額 money, @貸方勘定CD varchar(25), @貸方金額 money

AS

declare @貸借対照表CD int
declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(貸借対照表CD) AS 貸借対照表CD FROM YTMP_TSK帳簿_貸借対照表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(貸借対照表CD) AS 貸借対照表CD FROM YTMP_TSK帳簿_貸借対照表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @貸借対照表CD = @番号 + 1	
	end
	else
	begin
		SELECT @貸借対照表CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK帳簿_貸借対照表F (システムCD, 演習CD, 会社CD, 貸借対照表CD, 取引日, 借方勘定CD, 借方金額, 貸方勘定CD, 貸方金額)
VALUES (@システムCD, @演習CD, @会社CD, @貸借対照表CD, @取引日, @借方勘定CD, @借方金額, @貸方勘定CD, @貸方金額)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK帳簿_貸借対照表更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK帳簿_貸借対照表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT INTO TSK帳簿_貸借対照表F
	SELECT      *
	FROM           YTMP_TSK帳簿_貸借対照表F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK帳簿_貸借対照表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO













CREATE  PROCEDURE dbo.SPK手形一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @手形状態区分 varchar(2), @文書種類CD varchar(2)

AS

begin transaction

/*　TG 小切手　TK 為替手形　TY 約束手形　*/

	SELECT          TGA手形F.*, 振出人.会社略名称 AS 振出人名称, 受取人.会社略名称 AS 受取人名称, 
	                      引受人.会社略名称 AS 引受人名称, 裏書人.会社略名称 AS 裏書人名称, 被裏書人.会社略名称 AS 被裏書人名称, 
	                      支払場所.会社略名称 AS 支払場所名称, A.区分名称 AS 手形種類名称
	FROM            TGA手形F 
	LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '手形種類区分') A ON TGA手形F.システムCD = A.システムCD  AND TGA手形F.文書種類CD = A.区分CD  
	LEFT OUTER JOIN TDA会社M 振出人 ON TGA手形F.システムCD = 振出人.システムCD AND TGA手形F.演習CD = 振出人.演習CD AND TGA手形F.振出人CD = 振出人.会社CD
	LEFT OUTER JOIN TDA会社M 受取人 ON TGA手形F.システムCD = 受取人.システムCD AND TGA手形F.演習CD = 受取人.演習CD AND TGA手形F.受取人CD = 受取人.会社CD
	LEFT OUTER JOIN TDA会社M 引受人 ON TGA手形F.システムCD = 引受人.システムCD AND TGA手形F.演習CD = 引受人.演習CD AND TGA手形F.引受人CD = 引受人.会社CD
	LEFT OUTER JOIN TDA会社M 裏書人 ON TGA手形F.システムCD = 裏書人.システムCD AND TGA手形F.演習CD = 裏書人.演習CD AND TGA手形F.裏書人CD = 裏書人.会社CD
	LEFT OUTER JOIN TDA会社M 被裏書人 ON TGA手形F.システムCD = 被裏書人.システムCD AND TGA手形F.演習CD = 被裏書人.演習CD AND TGA手形F.被裏書人CD = 被裏書人.会社CD
	LEFT OUTER JOIN TDA会社M 支払場所 ON TGA手形F.システムCD = 支払場所.システムCD AND TGA手形F.演習CD = 支払場所.演習CD AND TGA手形F.支払場所CD = 支払場所.会社CD
	WHERE TGA手形F.システムCD = @システムCD AND TGA手形F.演習CD = @演習CD AND 
	(
		(/* 受取一覧 */
		@手形状態区分 = 'TU' AND TGA手形F.会社CD = @会社CD AND 文書種類CD = @文書種類CD And TGA手形F.送受信区分 IN ('R', 'U')
		)
		OR 
		(/* 支払一覧 */
		@手形状態区分 = 'TF' AND TGA手形F.会社CD = @会社CD AND 文書種類CD = @文書種類CD And TGA手形F.送受信区分 = 'S'
		)
		OR 
		(/* 引受一覧 */
		@手形状態区分 = 'TH' AND TGA手形F.会社CD = @会社CD AND 文書種類CD = @文書種類CD And TGA手形F.送受信区分 = 'H'
		)
		OR 
		(/* 受取履歴 */
		@手形状態区分 = 'TX' AND TGA手形F.会社CD = @会社CD And 文書種類CD IN ('TY', 'TK') And TGA手形F.送受信区分 IN ('R', 'U')
		)
		OR 
		(/* 支払履歴 */
		@手形状態区分 = 'TY' AND TGA手形F.会社CD = @会社CD And ((文書種類CD = 'TY' AND TGA手形F.送受信区分 = 'S') Or (文書種類CD = 'TK' AND TGA手形F.送受信区分 = 'H'))
		)
	)
	ORDER BY     TGA手形F.取引日, TGA手形F.文書種類CD, TGA手形F.文書内容CD

commit transaction










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK手形削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

UPDATE TTX文書F
SET 削除フラグ = 1
FROM TTX文書F
INNER JOIN TGA手形F
	ON TTX文書F.システムCD = TGA手形F.システムCD
	AND TTX文書F.演習CD = TGA手形F.演習CD
	AND TTX文書F.会社CD = TGA手形F.会社CD
	AND TTX文書F.作成会社CD = TGA手形F.作成会社CD
	AND TTX文書F.文書種類CD = TGA手形F.文書種類CD
	AND TTX文書F.文書内容CD = TGA手形F.文書内容CD
WHERE TGA手形F.システムCD = @システムCD
	AND TGA手形F.演習CD = @演習CD
	AND TGA手形F.会社CD = @会社CD
	AND TGA手形F.作成会社CD = @作成会社CD
	AND TGA手形F.文書種類CD = @文書種類CD
	AND TGA手形F.文書内容CD = @文書内容CD

UPDATE TGA手形F 
SET 削除フラグ = 1
--WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
--作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 文書種類CD = @文書種類CD
	AND 文書内容CD = @文書内容CD --文書内容CDは内部番号であり会社を隔てない演習通し番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



















CREATE  PROCEDURE dbo.SPK手形取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction

	SELECT          TGA手形F.*, 振出人.会社名称 AS 振出人名称, 受取人.会社名称 AS 受取人名称, 
	                      引受人.会社名称 AS 引受人名称, 被裏書人.会社名称 AS 被裏書人名称, 
	                      支払場所.会社名称 AS 支払場所名称, A.区分名称 AS 手形種類名称
	FROM            TGA手形F 
	INNER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '手形種類区分') A ON TGA手形F.システムCD = A.システムCD  AND TGA手形F.文書種類CD = A.区分CD  
	LEFT OUTER JOIN TDA会社M 振出人 ON TGA手形F.システムCD = 振出人.システムCD AND TGA手形F.演習CD = 振出人.演習CD AND TGA手形F.振出人CD = 振出人.会社CD 
	LEFT OUTER JOIN TDA会社M 受取人 ON TGA手形F.システムCD = 受取人.システムCD AND TGA手形F.演習CD = 受取人.演習CD AND TGA手形F.受取人CD = 受取人.会社CD 
	LEFT OUTER JOIN TDA会社M 引受人 ON TGA手形F.システムCD = 引受人.システムCD AND TGA手形F.演習CD = 引受人.演習CD AND TGA手形F.引受人CD = 引受人.会社CD 
	LEFT OUTER JOIN TDA会社M 被裏書人 ON TGA手形F.システムCD = 被裏書人.システムCD AND TGA手形F.演習CD = 被裏書人.演習CD AND TGA手形F.被裏書人CD = 被裏書人.会社CD
	LEFT OUTER JOIN TDA会社M 支払場所 ON TGA手形F.システムCD = 支払場所.システムCD AND TGA手形F.演習CD = 支払場所.演習CD AND TGA手形F.支払場所CD = 支払場所.会社CD 
	WHERE TGA手形F.システムCD = @システムCD AND TGA手形F.演習CD = @演習CD AND TGA手形F.会社CD = @会社CD 
	AND TGA手形F.作成会社CD = @作成会社CD AND TGA手形F.文書種類CD = @文書種類CD AND TGA手形F.文書内容CD = @文書内容CD 


commit transaction












GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO













CREATE  PROCEDURE dbo.SPK手形取得裏書
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction


--	SELECT TGA手形明細F.*, A.顛末区分 AS 顛末区分名称, B.会社略名称 AS 裏書人略名称, C.会社略名称 AS 被裏書人略名称
	SELECT TGA手形明細F.*, A.顛末区分 AS 顛末区分名称, B.会社名称 AS 裏書人略名称, C.会社名称 AS 被裏書人略名称
	FROM TGA手形明細F 
	LEFT OUTER JOIN (SELECT システムCD, 区分CD, 区分名称 AS 顛末区分 FROM TC9区分M WHERE データ識別 = '顛末区分') A 
	ON TGA手形明細F.システムCD = A.システムCD AND TGA手形明細F.顛末区分 = A.区分CD 
	LEFT OUTER JOIN (SELECT * FROM TDA会社M) B ON 
	TGA手形明細F.システムCD = B.システムCD AND  TGA手形明細F.演習CD = B.演習CD AND TGA手形明細F.裏書人CD = B.会社CD
	LEFT OUTER JOIN (SELECT * FROM TDA会社M) C ON 
	TGA手形明細F.システムCD = C.システムCD AND  TGA手形明細F.演習CD = C.演習CD AND TGA手形明細F.被裏書人CD = C.会社CD
	WHERE TGA手形明細F.システムCD = @システムCD AND TGA手形明細F.演習CD = @演習CD AND TGA手形明細F.会社CD = @会社CD
	 AND TGA手形明細F.作成会社CD = @作成会社CD AND TGA手形明細F.文書種類CD = @文書種類CD AND TGA手形明細F.文書内容CD = @文書内容CD 
	ORDER BY 文書内容SEQ



commit transaction










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK手形挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @作成会社CD varchar(20),  @文書種類CD varchar(2), @文書内容CD varchar(20)
, @手形番号 varchar(20)
,@送受信区分 varchar(2)
,@振出人CD varchar(20), @受取人CD varchar(20), @引受人CD varchar(20)
,@取引日 datetime, @支払期日 datetime
,@金額 money, @支払場所CD varchar(20), @摘要 varchar(40),  @学生番号 varchar(20)

AS

declare @番号 int

begin transaction


	if @文書内容CD = ''
	begin
		
		if not(exists(SELECT * FROM TGA手形F WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 文書種類CD = @文書種類CD AND (REPLACE(SPACE(8 - LEN(文書内容CD)), ' ', '0') + 文書内容CD LIKE '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]')))
		begin
			SET @文書内容CD = 1
		end
		else
		begin
			SET @番号 = ( SELECT MAX(CONVERT(int, REPLACE(SPACE(8 - LEN(文書内容CD)), ' ', '0') + 文書内容CD)) FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 文書種類CD = @文書種類CD AND (REPLACE(SPACE(8 - LEN(文書内容CD)), ' ', '0') + 文書内容CD LIKE '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]') )
			SET @文書内容CD = @番号 + 1

		end
	end 

	if @手形番号 = ''
	begin
		
		if not(exists(SELECT * FROM TGA手形F WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND (REPLACE(SPACE(8 - LEN(手形番号)), ' ', '0') + 手形番号 LIKE '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]')))
		begin
			SET @手形番号 = 1

		end
		else
		begin
			SET @番号 = ( SELECT MAX(CONVERT(int, REPLACE(SPACE(8 - LEN(手形番号)), ' ', '0') + 手形番号)) FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND (REPLACE(SPACE(8 - LEN(手形番号)), ' ', '0') + 手形番号 LIKE '[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]') )
			SET @手形番号 = @番号 + 1

		end
	end 
select @文書内容CD
select @手形番号




INSERT INTO TGA手形F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書内容CD, 送受信区分, 文書種類CD, 手形番号, 振出人CD, 受取人CD, 引受人CD, 裏書人CD, 被裏書人CD, 取引日, 支払期日, 金額, 支払場所CD, 摘要, 顛末区分, 発行フラグ, 開封フラグ, 削除フラグ,学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書内容CD, @送受信区分, @文書種類CD, @手形番号, @振出人CD, @受取人CD, @引受人CD, '', '', @取引日, @支払期日, @金額, @支払場所CD, @摘要, '', 0, 0, 0, @学生番号)

if @文書種類CD = 'TK'
begin
	INSERT INTO TGA手形F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書内容CD, 送受信区分, 文書種類CD, 手形番号, 振出人CD, 受取人CD, 裏書人CD, 被裏書人CD, 引受人CD, 取引日, 支払期日, 金額, 支払場所CD, 摘要, 顛末区分, 発行フラグ, 開封フラグ, 削除フラグ,学生番号)
	VALUES (@システムCD, @演習CD, @引受人CD, @作成会社CD, @文書内容CD, 'H', @文書種類CD, @手形番号, @振出人CD, @受取人CD, '', '', @引受人CD, @取引日, @支払期日, @金額, @支払場所CD, @摘要, '', 0, 0, 0, @学生番号)
end

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction

SELECT @文書内容CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK手形更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @作成会社CD varchar(20),  @文書種類CD varchar(2), @文書内容CD varchar(20), @旧文書内容CD varchar(20)
,@手形番号 varchar(12)
,@送受信区分 varchar(2)
,@振出人CD varchar(20), @受取人CD varchar(20), @引受人CD varchar(20)
,@取引日 datetime, @支払期日 datetime
,@金額 money, @支払場所CD varchar(20), @摘要 varchar(40),  @学生番号 varchar(20)

AS

declare @番号 int

begin transaction

DELETE FROM TGA手形F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @旧文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TGA手形F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書内容CD, 手形番号, 送受信区分, 文書種類CD, 振出人CD, 受取人CD, 引受人CD, 取引日, 支払期日, 金額, 支払場所CD, 摘要, 発行フラグ, 開封フラグ, 削除フラグ,学生番号)
--VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書内容CD, @手形番号, @送受信区分, @文書種類CD, @振出人CD, @受取人CD, @引受人CD, @取引日, @支払期日, @金額, @支払場所CD, @摘要, 0, 0, 0, @学生番号)
--上で削除した旧文書内容CDに挿入しないと意味が無いわけだが？
VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @旧文書内容CD, @手形番号, @送受信区分, @文書種類CD, @振出人CD, @受取人CD, @引受人CD, @取引日, @支払期日, @金額, @支払場所CD, @摘要, 0, 0, 0, @学生番号)

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

--SELECT @文書内容CD
--削除した旧文書内容CDに挿入してるからそのままなワケだが？
SELECT @旧文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO










CREATE PROCEDURE dbo.SPK手形発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20),
@次会社CD varchar(20), @発行フラグ smallint, @処理日 datetime,
@顛末区分 varchar(12)
AS

declare @番号 int
declare @文書CD int
declare @文書内容SEQ int
declare @振出人CD varchar(12)
declare @学生番号 varchar(20)

begin transaction

	SET @振出人CD = ''

	if @次会社CD = ''
	begin
		SELECT @次会社CD = (SELECT 受取人CD FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if @振出人CD = ''
	begin
		SELECT @振出人CD = (SELECT 振出人CD FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	end

	if @処理日 is null
	begin
		SELECT @処理日 = (SELECT 取引日 FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	SET @学生番号 = ''
	if @学生番号 = ''
	begin
		SELECT @学生番号 = (SELECT 学生番号 FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)

	end

	/* 商社へ発信 */
	if @@error <> 0 
	   begin
	       rollback transaction
	       select -1  return
	   end

	if @文書種類CD = 'TG' And @発行フラグ = 1
	begin
		/* 銀行からも戻ってくる */
		UPDATE TGA手形F SET 受取人CD = @次会社CD
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	end

	if @発行フラグ = -1
	begin
		/* 銀行からも戻ってくる */
		UPDATE TGA手形F SET 発行フラグ = 0
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	end

	if @発行フラグ = 2
	begin
		/* 銀行へ発信 */
		UPDATE TGA手形F SET 発行フラグ = 2
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	end

	if @発行フラグ = 3
	begin
		/* 銀行へ発信 */
		UPDATE TGA手形F SET 顛末摘要 = '入金済', 顛末日 = @処理日, 発行フラグ = 2
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

		UPDATE TGA手形F SET 顛末摘要 = '支払済', 顛末日 = @処理日, 顛末区分 = 'TG'
		WHERE システムCD = @システムCD AND 演習CD = @演習CD /* AND 作成会社CD = @作成会社CD */  AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
		And @文書種類CD = 'TK' and 送受信区分 = 'H'


		UPDATE TGA手形F SET 顛末摘要 = '支払済', 顛末日 = @処理日, 顛末区分 = 'TG'
		WHERE システムCD = @システムCD AND 演習CD = @演習CD /* AND 作成会社CD = @作成会社CD */  AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
		And @文書種類CD <> 'TK' and 送受信区分 = 'S'
	end

	if @発行フラグ = 0
	begin
		UPDATE TGA手形F SET 顛末区分 = @顛末区分, 顛末日 = @処理日, 被裏書人CD = @次会社CD
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
		AND 送受信区分 = 'R'


/*裏書情報を1行追加して*/
		if exists(SELECT 文書内容SEQ FROM TGA手形明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
		begin
			SELECT @文書内容SEQ = (SELECT MAX(文書内容SEQ) FROM TGA手形明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
			SELECT @文書内容SEQ = @文書内容SEQ + 1	
		end
		else
		begin
			SELECT @文書内容SEQ = 1	
		end

		INSERT INTO TGA手形明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 取引日, 裏書人CD, 被裏書人CD, 顛末区分)
		VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ, @処理日, @会社CD, @次会社CD, @顛末区分)
	end


	if @発行フラグ = 1
	begin
                     /*振り出し後であれば、裏書情報を1行追加して*/
		if ((SELECT  COUNT(*) AS kensu FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND /* 振出人CD = @振出人CD AND */ 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD AND 送受信区分 <> 'H') >= 2)
		begin
			if exists(SELECT 文書内容SEQ FROM TGA手形明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
			begin
				SELECT @文書内容SEQ = (SELECT MAX(文書内容SEQ) FROM TGA手形明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
				SELECT @文書内容SEQ = @文書内容SEQ + 1	
			end
			else
			begin
				SELECT @文書内容SEQ = 1	
			end

			INSERT INTO TGA手形明細F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 文書内容SEQ, 取引日, 裏書人CD, 被裏書人CD, 顛末区分)
			VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書種類CD, @文書内容CD, @文書内容SEQ, @処理日, @会社CD, @次会社CD, @顛末区分)


		end	

		if @次会社CD is not null
		begin
		
			if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
			begin
				select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
			end
			else
			begin
				select @番号 = 0
			end 
		
			SET @文書CD = @番号 + 1
		
			INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
			VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @次会社CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
		
		


	                    /*相手分を作成*/
			SELECT * INTO #TMP_TGA手形F FROM TGA手形F
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
			UPDATE #TMP_TGA手形F SET 作成会社CD = @作成会社CD, 会社CD = @次会社CD, 送受信区分 = 'R', 裏書人CD = @会社CD 
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
			INSERT INTO TGA手形F SELECT * FROM #TMP_TGA手形F
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @次会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
	
	                    /*相手分を作成(明細)*/
			SELECT * INTO #TMP_TGA手形明細F FROM TGA手形明細F
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
			UPDATE #TMP_TGA手形明細F SET 作成会社CD = @作成会社CD, 会社CD = @次会社CD
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
			INSERT INTO TGA手形明細F SELECT * FROM #TMP_TGA手形明細F
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @次会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD



			if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @次会社CD AND 送受信区分 = 'R')
			begin
				select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @次会社CD AND 送受信区分 = 'R')
			end
			else
			begin
				select @番号 = 0
			end 
			
			SET @文書CD = @番号 + 1
		
			INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
			VALUES (@システムCD, @演習CD, @次会社CD, 'R', @文書CD, @作成会社CD, @次会社CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)
		
	
		end
	

		if @顛末区分 = 'TU'
		begin
                             /*自分の手元の方を*/
/* 履歴を残すため、送信データ(例えば裏書など)が発生した場合のため、UPDATEではなくINERTする仕様(だが、なるべくテーブルをいじらないようにするため一時中止)
			SELECT * INTO #TMP2_TGA手形F FROM TGA手形F
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
			UPDATE #TMP2_TGA手形F SET 作成会社CD = @会社CD, 送受信区分 = 'U', 裏書人CD = @会社CD, 顛末日 = @処理日, 顛末摘要 = '裏書譲渡', 顛末区分 = 'TU'
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
	
			INSERT INTO TGA手形F SELECT * FROM #TMP2_TGA手形F
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

			UPDATE TGA手形明細F SET 作成会社CD = @会社CD
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

*/

			UPDATE TGA手形F SET 送受信区分 = 'U', 顛末日 = @処理日, 顛末摘要 = '裏書譲渡', 顛末区分 = 'TU'
			WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


		end


		UPDATE TGA手形F SET 発行フラグ = 1
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


	end

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end






commit transaction

select @文書内容SEQ






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK手形組戻
@システムCD varchar(12), @演習CD varchar(12), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction

--受取側
UPDATE TGA手形F
SET 顛末日 = NULL, 顛末区分 = '', 顛末摘要 = NULL, 発行フラグ = 0
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD <> @作成会社CD --作成会社以外
	AND 作成会社CD = @作成会社CD
	AND 文書種類CD = @文書種類CD
	AND 文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

--振出側
UPDATE TGA手形F
SET 顛末日 = NULL, 顛末区分 = '', 顛末摘要 = NULL --発行フラグは降ろさない
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @作成会社CD --作成会社
	AND 作成会社CD = @作成会社CD
	AND 文書種類CD = @文書種類CD
	AND 文書内容CD = @文書内容CD
	AND 発行フラグ = 2 --小切手振込の場合は2になっている

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

--小切手振込の場合は銀行からの返却のため発行フラグを降ろす
UPDATE TGA手形F
SET 発行フラグ = 0, 顛末区分 = ''
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @作成会社CD --作成会社
	AND 作成会社CD = @作成会社CD
	AND 文書種類CD = @文書種類CD
	AND 文書内容CD = @文書内容CD
	AND 発行フラグ = 2 --小切手振込の場合はフラグが2（銀行へ発信）になっている

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK手形返却
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction

if @文書種類CD <> 'TG'
begin
	--手形振出会社（作成会社）のレコードを差し戻す
	UPDATE TGA手形F
	SET 発行フラグ = 0, 顛末区分 = '', 顛末日 = NULL --手形は受取人をクリアしない
	WHERE システムCD = @システムCD AND 演習CD = @演習CD
		AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD
		AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
end
else
begin
	--手形振出会社（作成会社）のレコードを差し戻す
	UPDATE TGA手形F
	SET 受取人CD = '', 発行フラグ = 0, 顛末区分 = '', 顛末日 = NULL
	WHERE システムCD = @システムCD AND 演習CD = @演習CD
		AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD
		AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD
end

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--手形振出会社（作成会社）の発信文書レコードを削除する
DELETE FROM TTX文書F
FROM TTX文書F
INNER JOIN TGA手形F
	ON TTX文書F.システムCD = TGA手形F.システムCD
	AND TTX文書F.演習CD = TGA手形F.演習CD
	AND TTX文書F.会社CD = TGA手形F.作成会社CD
	AND TTX文書F.作成会社CD = TGA手形F.作成会社CD
	AND TTX文書F.文書種類CD = TGA手形F.文書種類CD
	AND TTX文書F.文書内容CD = TGA手形F.文書内容CD
WHERE TGA手形F.システムCD = @システムCD AND TGA手形F.演習CD = @演習CD
	AND TGA手形F.会社CD = @作成会社CD AND TGA手形F.作成会社CD = @作成会社CD
	AND TGA手形F.文書種類CD = @文書種類CD AND TGA手形F.文書内容CD = @文書内容CD
	AND TTX文書F.取引先CD = @会社CD AND TTX文書F.送受信区分 = 'S'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--手形受取会社の受信文書レコードを削除する
DELETE FROM TTX文書F
FROM TTX文書F
INNER JOIN TGA手形F
	ON TTX文書F.システムCD = TGA手形F.システムCD
	AND TTX文書F.演習CD = TGA手形F.演習CD
	AND TTX文書F.会社CD = TGA手形F.会社CD
	AND TTX文書F.作成会社CD = TGA手形F.作成会社CD
	AND TTX文書F.文書種類CD = TGA手形F.文書種類CD
	AND TTX文書F.文書内容CD = TGA手形F.文書内容CD
WHERE TGA手形F.システムCD = @システムCD AND TGA手形F.演習CD = @演習CD
	AND TGA手形F.会社CD = @会社CD AND TGA手形F.作成会社CD = @作成会社CD
	AND TGA手形F.文書種類CD = @文書種類CD AND TGA手形F.文書内容CD = @文書内容CD
	AND TTX文書F.取引先CD = @会社CD AND TTX文書F.送受信区分 = 'R'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--手形受取会社のレコードを削除する
DELETE
FROM TGA手形F
WHERE システムCD = @システムCD AND 演習CD = @演習CD
--	AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD
	AND 会社CD <> @作成会社CD AND 作成会社CD = @作成会社CD --裏書譲渡も含むため自社以外の全ての会社を削除対象とする
	AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--裏書譲渡履歴を削除する
DELETE
FROM TGA手形明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD
--	AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD
	AND 作成会社CD = @作成会社CD --全ての会社CDを削除対象とする
	AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK手形開封
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

		UPDATE         TTX文書F
		SET                開封フラグ = 1
		FROM            TTX文書F INNER JOIN
                      TGA手形F ON 
                      TTX文書F.システムCD = TGA手形F.システムCD AND 
                      TTX文書F.演習CD = TGA手形F.演習CD AND 
                      TTX文書F.会社CD = TGA手形F.会社CD AND
                      TTX文書F.作成会社CD = TGA手形F.作成会社CD AND
                      TTX文書F.文書種類CD = TGA手形F.文書種類CD AND 
                      TTX文書F.文書内容CD = TGA手形F.文書内容CD
		WHERE           (TGA手形F.システムCD = @システムCD) AND 
                      (TGA手形F.演習CD = @演習CD) AND 
                      (TGA手形F.会社CD = @会社CD) AND 
                      (TGA手形F.作成会社CD = @作成会社CD) AND 
                      (TGA手形F.文書種類CD = @文書種類CD) AND 
                      (TGA手形F.文書内容CD = @文書内容CD)


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK手形顛末済一覧
@システムCD varchar(12), @演習CD varchar(12), @受取人CD varchar(20), @被裏書人CD varchar(20), @文書種類CD varchar(2)
--@被裏書人CD=銀行CD

AS

begin transaction

declare @フラグ int
SET @フラグ = 1
if @受取人CD = '' 
begin
	SET @フラグ = 0
end

declare @フラグ2 int
SET @フラグ2 = 0
if @文書種類CD = 'TG'
begin 
	SET @フラグ2 = 1
end

SELECT TGA手形F.*
	, 振出人.会社略名称 AS 振出人名称
	, 受取人.会社略名称 AS 受取人名称
	, 引受人.会社略名称 AS 引受人名称
	, 被裏書人.会社略名称 AS 被裏書人名称
	, 支払場所.会社略名称 AS 支払場所名称
	, A.区分名称 AS 手形種類名称
FROM TGA手形F 
INNER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '手形種類区分') A
	ON TGA手形F.システムCD = A.システムCD
	AND TGA手形F.文書種類CD = A.区分CD  
LEFT OUTER JOIN TDA会社M 振出人
	ON TGA手形F.システムCD = 振出人.システムCD
	AND TGA手形F.演習CD = 振出人.演習CD
	AND TGA手形F.振出人CD = 振出人.会社CD 
LEFT OUTER JOIN TDA会社M 受取人
	ON TGA手形F.システムCD = 受取人.システムCD
	AND TGA手形F.演習CD = 受取人.演習CD
	AND TGA手形F.受取人CD = 受取人.会社CD 
LEFT OUTER JOIN TDA会社M 引受人
	ON TGA手形F.システムCD = 引受人.システムCD
	AND TGA手形F.演習CD = 引受人.演習CD
	AND TGA手形F.引受人CD = 引受人.会社CD 
LEFT OUTER JOIN TDA会社M 被裏書人
	ON TGA手形F.システムCD = 被裏書人.システムCD
	AND TGA手形F.演習CD = 被裏書人.演習CD
	AND TGA手形F.被裏書人CD = 被裏書人.会社CD
LEFT OUTER JOIN TDA会社M 支払場所
	ON TGA手形F.システムCD = 支払場所.システムCD
	AND TGA手形F.演習CD = 支払場所.演習CD
	AND TGA手形F.支払場所CD = 支払場所.会社CD 
WHERE TGA手形F.システムCD = @システムCD
	AND TGA手形F.演習CD = @演習CD
--	AND TGA手形F.被裏書人CD = @被裏書人CD
--												会社CDが自社である				受取人CDが自社か、もしくは作成会社CDが自社以外（裏書譲渡は後者で判定）
	AND ((0 = @フラグ ) OR (1 = @フラグ AND (TGA手形F.会社CD = @受取人CD AND (TGA手形F.受取人CD = @受取人CD OR TGA手形F.作成会社CD <> @受取人CD))))
--	AND ((0 = @フラグ ) OR (1 = @フラグ AND TGA手形F.受取人CD = @受取人CD)) --裏書譲渡で受け取った手形の受取人CDは自社ではない（110623小野）
--	AND ((1 = @フラグ ) OR (0 = @フラグ AND TGA手形F.受取人CD = @受取人CD))	--NULL判定が正反対でした（090113小野）
	AND ((1 = @フラグ2 AND 文書種類CD = 'TG' ) OR (0 = @フラグ2 AND 文書種類CD <> 'TG' ))
ORDER BY TGA手形F.取引日, TGA手形F.文書種類CD, TGA手形F.文書内容CD

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK演習出庫連動入庫一覧
@システムCD varchar(12), @演習CD varchar(12)

AS

SELECT TGA入出庫TRN.*
	, 出庫会社.会社名称 AS 出庫会社名称
	, 出庫会社.会社略名称 AS 出庫会社略名称
	, 取引先.会社名称 AS 取引先名称
	, 取引先.会社略名称 AS 取引先略名称
--	, 入庫済.会社CD AS 入庫会社CD
--	, 入庫会社.会社名称 AS 入庫会社名称
--	, 入庫会社.会社略名称 AS 入庫会社略名称
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
LEFT OUTER JOIN TDA会社M 出庫会社
	ON TGA入出庫TRN.システムCD = 出庫会社.システムCD
	AND TGA入出庫TRN.演習CD = 出庫会社.演習CD
	AND TGA入出庫TRN.作成会社CD = 出庫会社.会社CD
--LEFT OUTER JOIN TGA入出庫TRN 入庫済
--	ON TGA入出庫TRN.システムCD = 入庫済.システムCD
--	AND TGA入出庫TRN.演習CD = 入庫済.演習CD
--	AND TGA入出庫TRN.作成会社CD = 入庫済.取引先CD
--	AND TGA入出庫TRN.文書種類CD = 入庫済.先方文書種類CD
--	AND TGA入出庫TRN.文書内容CD = 入庫済.先方文書内容CD
--LEFT OUTER JOIN TDA会社M 入庫会社
--	ON 入庫済.システムCD = 入庫会社.システムCD
--	AND 入庫済.演習CD = 入庫会社.演習CD
--	AND 入庫済.作成会社CD = 入庫会社.会社CD
LEFT OUTER JOIN TDA会社M 取引先
	ON TGA入出庫TRN.システムCD = 取引先.システムCD
	AND TGA入出庫TRN.演習CD = 取引先.演習CD
	AND TGA入出庫TRN.取引先CD = 取引先.会社CD
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @演習CD
	AND TGA入出庫TRN.会社CD = TGA入出庫TRN.作成会社CD
	AND (TGA入出庫TRN.文書種類CD = 'SU' OR TGA入出庫TRN.文書種類CD = 'SX')
	AND TGA入出庫TRN.削除フラグ <> 1
	AND TGA入出庫TRN.処理時期区分 <> 0
ORDER BY TGA入出庫TRN.処理日 DESC





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK演習出庫非受付一覧
@システムCD varchar(12), @演習CD varchar(12)

AS

SELECT TGA入出庫TRN.*
	, 取引先.会社名称 AS 取引先名称
	, 取引先.会社略名称 AS 取引先略名称
	, 会社.会社名称 AS 会社名称
	, 会社.会社略名称 AS 会社略名称
	, 作成会社.会社名称 AS 作成会社名称
	, 作成会社.会社略名称 AS 作成会社略名称
FROM TGA入出庫TRN
LEFT OUTER JOIN TDA会社M 取引先
	ON TGA入出庫TRN.システムCD = 取引先.システムCD
	AND TGA入出庫TRN.演習CD = 取引先.演習CD
	AND TGA入出庫TRN.取引先CD = 取引先.会社CD 
LEFT OUTER JOIN TDA会社M 会社
	ON TGA入出庫TRN.システムCD = 会社.システムCD
	AND TGA入出庫TRN.演習CD = 会社.演習CD
	AND TGA入出庫TRN.会社CD = 会社.会社CD
LEFT OUTER JOIN TDA会社M 作成会社
	ON TGA入出庫TRN.システムCD = 作成会社.システムCD
	AND TGA入出庫TRN.演習CD = 作成会社.演習CD
	AND TGA入出庫TRN.作成会社CD = 作成会社.会社CD
WHERE (TGA入出庫TRN.システムCD = @システムCD)
	AND (TGA入出庫TRN.演習CD = @演習CD)
	AND TGA入出庫TRN.会社CD <> TGA入出庫TRN.作成会社CD
	AND TGA入出庫TRN.削除フラグ <> 1
	AND TGA入出庫TRN.返信フラグ <> 1
	AND TGA入出庫TRN.処理時期区分 <> 0
	AND (TGA入出庫TRN.文書種類CD = 'SU' OR TGA入出庫TRN.文書種類CD = 'SX')
ORDER BY TGA入出庫TRN.処理日 DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPK演習手形一覧
@システムCD varchar(12),@演習CD varchar(12), @手形状態区分 varchar(2), @文書種類CD varchar(2)

AS

begin transaction

/*　TG 小切手　TK 為替手形　TY 約束手形　*/

	SELECT          TGA手形F.*, 振出人.会社略名称 AS 振出人名称, 受取人.会社略名称 AS 受取人名称, 
	                      引受人.会社略名称 AS 引受人名称, 裏書人.会社略名称 AS 裏書人名称, 被裏書人.会社略名称 AS 被裏書人名称, 
	                      支払場所.会社略名称 AS 支払場所名称, A.区分名称 AS 手形種類名称
	FROM            TGA手形F 
	LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '手形種類区分') A ON TGA手形F.システムCD = A.システムCD  AND TGA手形F.文書種類CD = A.区分CD  
	LEFT OUTER JOIN TDA会社M 振出人 ON TGA手形F.システムCD = 振出人.システムCD AND TGA手形F.演習CD = 振出人.演習CD AND TGA手形F.振出人CD = 振出人.会社CD
	LEFT OUTER JOIN TDA会社M 受取人 ON TGA手形F.システムCD = 受取人.システムCD AND TGA手形F.演習CD = 受取人.演習CD AND TGA手形F.受取人CD = 受取人.会社CD
	LEFT OUTER JOIN TDA会社M 引受人 ON TGA手形F.システムCD = 引受人.システムCD AND TGA手形F.演習CD = 引受人.演習CD AND TGA手形F.引受人CD = 引受人.会社CD
	LEFT OUTER JOIN TDA会社M 裏書人 ON TGA手形F.システムCD = 裏書人.システムCD AND TGA手形F.演習CD = 裏書人.演習CD AND TGA手形F.裏書人CD = 裏書人.会社CD
	LEFT OUTER JOIN TDA会社M 被裏書人 ON TGA手形F.システムCD = 被裏書人.システムCD AND TGA手形F.演習CD = 被裏書人.演習CD AND TGA手形F.被裏書人CD = 被裏書人.会社CD
	LEFT OUTER JOIN TDA会社M 支払場所 ON TGA手形F.システムCD = 支払場所.システムCD AND TGA手形F.演習CD = 支払場所.演習CD AND TGA手形F.支払場所CD = 支払場所.会社CD
	WHERE TGA手形F.システムCD = @システムCD AND TGA手形F.演習CD = @演習CD AND 
	(
		(/* 受取一覧 */
		@手形状態区分 = 'TU' AND 文書種類CD = @文書種類CD And TGA手形F.送受信区分 IN ('R', 'U')
		)
		OR 
		(/* 支払一覧 */
		@手形状態区分 = 'TF' AND 文書種類CD = @文書種類CD And TGA手形F.送受信区分 = 'S'
		)
		OR 
		(/* 引受一覧 */
		@手形状態区分 = 'TH' AND 文書種類CD = @文書種類CD And TGA手形F.送受信区分 = 'H'
		)
		OR 
		(/* 受取履歴 */
		@手形状態区分 = 'TX' And 文書種類CD IN ('TY', 'TK') And TGA手形F.送受信区分 IN ('R', 'U')
		)
		OR 
		(/* 支払履歴 */
		@手形状態区分 = 'TY' And ((文書種類CD = 'TY' AND TGA手形F.送受信区分 = 'S') Or (文書種類CD = 'TK' AND TGA手形F.送受信区分 = 'H'))
		)
	)
	ORDER BY     TGA手形F.取引日, TGA手形F.文書種類CD, TGA手形F.文書内容CD

commit transaction






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK現金入出金一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

	SELECT * FROM  TGK現金入出金TRN WHERE 会社CD = @会社CD AND システムCD = @システムCD AND 演習CD = @演習CD ORDER BY 処理日 DESC, 処理時期区分 DESC, 現金入出金CD DESC

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK現金入出金削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @処理時期区分 smallint, @現金入出金CD varchar(12)

AS

begin transaction
	DELETE FROM  TGK現金入出金TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 処理時期区分 = @処理時期区分 AND 現金入出金CD = @現金入出金CD

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK現金入出金取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @処理時期区分 smallint, @現金入出金CD varchar(12)

AS

begin transaction
	SELECT * FROM  TGK現金入出金TRN 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 処理時期区分 = @処理時期区分 AND 現金入出金CD = @現金入出金CD

commit transaction








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK現金入出金履歴一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

	SELECT * FROM  TGK現金入出金TRN 
	WHERE 会社CD = @会社CD AND システムCD = @システムCD AND 演習CD = @演習CD ORDER BY 処理日 , 処理時期区分 , 現金取引区分, 現金入出金CD 

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK現金入出金挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @現金入出金CD int
,@処理日 datetime, @金額 money, @現金取引区分 varchar(12) , @処理時期区分 smallint, @摘要 varchar(40), @学生番号 varchar(40)

AS

declare @番号 int

begin transaction
	if @処理時期区分 = 0 
	begin
		if exists(SELECT 現金入出金CD FROM TGK現金入出金TRN WHERE 処理時期区分 = 0 AND 会社CD = @会社CD AND システムCD = @システムCD AND 演習CD = @演習CD)
		begin
			DELETE FROM TGK現金入出金TRN WHERE 処理時期区分 = 0 AND 会社CD = @会社CD AND システムCD = @システムCD AND 演習CD = @演習CD
		end
		SELECT @現金入出金CD = 0
	end
	else
	begin

		if exists(SELECT 現金入出金CD FROM  TGK現金入出金TRN WHERE 会社CD = @会社CD AND システムCD = @システムCD AND 演習CD = @演習CD)
		begin
			SELECT @現金入出金CD = (SELECT MAX(現金入出金CD) FROM  TGK現金入出金TRN WHERE 会社CD = @会社CD AND システムCD = @システムCD AND 演習CD = @演習CD)
			SELECT @現金入出金CD = @現金入出金CD + 1	
		end
		else
		begin
			SELECT @現金入出金CD = 1	
		end
	end

	INSERT INTO TGK現金入出金TRN (システムCD, 演習CD, 会社CD,  現金入出金CD, 処理日, 金額, 現金取引区分, 処理時期区分, 摘要, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, @現金入出金CD, @処理日, @金額, @現金取引区分, @処理時期区分, @摘要, @学生番号)

commit transaction

SELECT  @現金入出金CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK現金入出金日集計
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @例外現金入出金CD int

AS

begin transaction

	SELECT          処理日, SUM(金額 * CASE WHEN 現金取引区分 = 'GN' THEN 1 ELSE - 1 END) AS 金額
	FROM            TGK現金入出金TRN
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 現金入出金CD <> @例外現金入出金CD
	GROUP BY     処理日
	ORDER BY     処理日  

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK現金入出金更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @現金入出金CD int
,@処理日 datetime, @金額 money, @現金取引区分 varchar(12) , @処理時期区分 smallint, @摘要 varchar(40), @学生番号 varchar(40)

AS

begin transaction

	UPDATE TGK現金入出金TRN
	SET 処理時期区分 = @処理時期区分, 処理日 = @処理日, 金額 = @金額, 現金取引区分 = @現金取引区分, 摘要 = @摘要, 学生番号 = @学生番号
	WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND (現金入出金CD = @現金入出金CD)

commit transaction

SELECT  @現金入出金CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK現金入出金残高
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @処理日 datetime
AS

SELECT          SUM(金額 * CASE WHEN 現金取引区分 = 'GN' THEN 1 ELSE - 1 END) AS 残高
FROM            TGK現金入出金TRN
WHERE          システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 処理日 <= @処理日
GROUP BY 会社CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO








CREATE PROCEDURE dbo.SPK社員一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
AS

SELECT 社員番号,氏名
FROM TTA社員台帳F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
GROUP BY 社員番号,氏名








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO












CREATE   PROCEDURE dbo.SPK社員台帳一覧
/*  @システムCD varchar(12), @演習CD  varchar(12)  , @会社CD  varchar(20)    , @支給年月 varchar(20)   */
@システムCD varchar(12), @演習CD  varchar(12)  , @会社CD  varchar(20)    
AS

SELECT          社員番号, 氏名, 生年月日, 扶養家族人数, 役職, 支給年月, GROUPING(社員番号) 
                      + GROUPING(氏名) + GROUPING(生年月日) + GROUPING(扶養家族人数) 
                      + GROUPING(役職) AS 合計フラグ, SUM(基本給) AS 基本給, SUM(時間外手当) 
                      AS 時間外手当, SUM(職務手当) AS 職務手当, SUM(住宅手当) AS 住宅手当, 
                      SUM(精勤手当) AS 精勤手当, SUM(皆勤手当) AS 皆勤手当, SUM(その他手当)
                       AS その他手当, SUM(通勤手当) AS 通勤手当, SUM(健康保険) AS 健康保険, 
                      SUM(厚生年金) AS 厚生年金, SUM(年金基金) AS 年金基金, SUM(雇用保険)   
                      AS 雇用保険, SUM(所得税) AS 所得税, SUM(住民税) AS 住民税
FROM            TTA社員台帳F
WHERE  システムCD =  @システムCD AND 演習CD = @演習CD AND 会社CD =  @会社CD  
/*  WHERE  システムCD =  @システムCD AND 演習CD = @演習CD AND 会社CD =  @会社CD AND 支給年月 = @支給年月   */
GROUP BY     社員番号, 氏名, 生年月日, 扶養家族人数, 役職, 支給年月 WITH CUBE
HAVING        (GROUPING(社員番号) + GROUPING(氏名) + GROUPING(生年月日) 
                      + GROUPING(扶養家族人数) + GROUPING(役職) = 0) OR
                      (GROUPING(社員番号) + GROUPING(氏名) + GROUPING(生年月日) 
                      + GROUPING(扶養家族人数) + GROUPING(役職) = 5)
ORDER BY     GROUPING(社員番号) + GROUPING(氏名) + GROUPING(生年月日) 
                      + GROUPING(扶養家族人数) + GROUPING(役職), 社員番号





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO









CREATE PROCEDURE dbo.SPK社員台帳一覧2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

SELECT *
FROM TTA社員台帳M
WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD =  @会社CD
ORDER BY 社員番号









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK社員台帳取得
@システムCD varchar(12), @演習CD  varchar(12)  , @会社CD  varchar(20)  , @社員番号  varchar(20)   
/*  @システムCD varchar(12), @演習CD  varchar(12)  , @会社CD  varchar(20)  , @社員番号  varchar(20) , @支給年月 varchar(20)  */
AS

/* 社員台帳給与F一覧データの抽出 */
	SELECT * FROM  TTA社員台帳F WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 社員番号 = @社員番号  
/*	SELECT * FROM  TTA社員台帳F WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 社員番号 = @社員番号 AND 支給年月=@支給年月  */





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK社員台帳取得2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @社員番号 varchar(20)   

AS

SELECT * FROM  TTA社員台帳M WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 社員番号 = @社員番号









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




















CREATE   PROCEDURE dbo.SPK社員台帳更新
@システムCD varchar(12), @処理区分  smallint
 , @演習CD  varchar(12) , @会社CD varchar(20)  , @社員番号 varchar(20), @新社員番号 varchar(20)      
 , @氏名      varchar(20) , @生年月日 datetime  , @扶養家族人数 int  ,@役職 varchar(20) 
 , @基本給 money , @時間外手当 money, @職務手当 money, @住宅手当 money
 , @精勤手当 money, @皆勤手当 money, @その他手当 money, @通勤手当 money
 , @健康保険 money, @厚生年金 money, @年金基金 money, @雇用保険 money
 , @所得税 money
 , @住民税 money
 , @支給年月  varchar(20)  
 
/*
+   SK社員台帳情報更新
+
+   指定された区分により
+   TA社員給与台帳Fの更新を行う
+
+   @処理区分  1: 登録  2: 更新   4:削除
*/   
AS

if @処理区分 = 1
begin
/* 対象データの登録 */
/*	if not(exists(SELECT * FROM TTA社員台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD =@会社CD AND 社員番号 = @社員番号))   */
	if not(exists(SELECT * FROM TTA社員台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD =@会社CD AND 社員番号 = @社員番号 AND 支給年月 = @支給年月))  
	begin
		INSERT TTA社員台帳F (システムCD, 演習CD, 会社CD, 社員番号, 支給年月) VALUES (@システムCD, @演習CD, @会社CD, @社員番号, @支給年月)
	end 

if @@error <> 0
   begin
       select -1  return
   end
end

if @処理区分 <= 2
begin
/* 対象データの更新 */
update TTA社員台帳F
    set 氏名 = @氏名
   ,  社員番号 =  @新社員番号
   , 生年月日 = @生年月日 
   , 扶養家族人数 = @扶養家族人数
   , 役職 = @役職
   , 基本給 = @基本給
   , 時間外手当 = @時間外手当
   , 職務手当 = @職務手当
   , 住宅手当 = @住宅手当
   , 精勤手当 = @精勤手当
   , 皆勤手当 = @皆勤手当
   , その他手当 = @その他手当
   , 通勤手当 = @通勤手当
   , 健康保険 = @健康保険
   , 厚生年金 = @厚生年金
   , 年金基金 = @年金基金
   , 雇用保険 = @雇用保険
   , 所得税 = @所得税
   , 住民税 = @住民税
   , 支給年月 = @支給年月

  from  TTA社員台帳F
  where  システムCD =  @システムCD       
   and  演習CD =  @演習CD
   and   会社CD  =  @会社CD
   and   社員番号 =  @社員番号
   and   支給年月 = @支給年月 

if @@error <> 0
   begin

       select -1  return

   end

end

if @処理区分 = 4
begin

/* 対象データの削除 */

delete 

from TTA社員台帳F
  where  システムCD =  @システムCD       
   and  演習CD =  @演習CD
   and   会社CD  =  @会社CD
   and   社員番号 =  @社員番号
   and   支給年月 = @支給年月 


if @@error <> 0
   begin
       select -1  return
   end
end

SELECT @新社員番号







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK社員台帳更新2
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @社員番号 int
, @社員番号ラベル varchar(50)
, @氏名 varchar(20)
, @生年月日 datetime
, @扶養家族人数 smallint
, @郵便番号 varchar(8)
, @住所 varchar(50)
, @電話番号 varchar(15)
, @ケータイ varchar(15)
, @役職 varchar(20) 
, @入社年月日 datetime
, @離職年月日 datetime
, @基本給 money
, @職務手当 money
, @家族手当 money
, @住宅手当 money
, @精勤手当 money
, @皆勤手当 money
, @通勤手当 money
, @健康保険 money
, @厚生年金 money
, @年金基金 money
, @雇用保険 money
, @介護保険 money
, @学生番号 varchar(12)

AS

begin transaction

if @社員番号 IS NULL
begin

/* 対象データの登録 */
if exists(SELECT * FROM TTA社員台帳M where システムCD = @システムCD and 演習CD = @演習CD AND 会社CD =@会社CD)
begin 
	SELECT @社員番号 = (SELECT MAX(社員番号) FROM TTA社員台帳M WHERE システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD)
	SELECT @社員番号 = @社員番号 + 1
end
else
begin
	SELECT @社員番号 = 1
end

INSERT TTA社員台帳M (システムCD, 演習CD, 会社CD, 社員番号) VALUES (@システムCD, @演習CD, @会社CD, @社員番号)

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

end

/* 対象データの更新 */
if @社員番号ラベル = ''
begin
	SET @社員番号ラベル = CONVERT(varchar, @社員番号)
end

update TTA社員台帳M
set 社員番号ラベル = @社員番号ラベル
, 氏名 = @氏名
, 生年月日 = @生年月日 
, 扶養家族人数 = @扶養家族人数
, 郵便番号 = @郵便番号
, 住所 = @住所
, 電話番号 = @電話番号
, ケータイ = @ケータイ
, 役職 = @役職
, 入社年月日 = @入社年月日
, 離職年月日 = @離職年月日
, 基本給 = @基本給
, 職務手当 = @職務手当
, 家族手当 = @家族手当
, 住宅手当 = @住宅手当
, 精勤手当 = @精勤手当
, 皆勤手当 = @皆勤手当
, 通勤手当 = @通勤手当
, 健康保険 = @健康保険
, 厚生年金 = @厚生年金
, 年金基金 = @年金基金
, 雇用保険 = @雇用保険
, 介護保険 = @介護保険
, 学生番号 = @学生番号
from TTA社員台帳M
where システムCD = @システムCD       
and 演習CD = @演習CD
and 会社CD = @会社CD
and 社員番号 = @社員番号

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @社員番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK社員台帳更新_代表取締役
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @社員番号 varchar(20)

AS

begin transaction

update TTA社員台帳M
set 代表取締役フラグ = '1'
from TTA社員台帳M
where システムCD = @システムCD       
and 演習CD = @演習CD
and 会社CD = @会社CD
and 社員番号 = @社員番号

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

--他の社員の代表取締役フラグを外す
update TTA社員台帳M
set 代表取締役フラグ = ''
from TTA社員台帳M
where システムCD = @システムCD       
and 演習CD = @演習CD
and 会社CD = @会社CD
and 社員番号 <> @社員番号

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @社員番号









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK社員台帳更新_離職
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @社員番号 varchar(20)
, @離職年月日 datetime

AS

begin transaction

update TTA社員台帳M
set 離職年月日 = @離職年月日
from TTA社員台帳M
where システムCD = @システムCD       
and 演習CD = @演習CD
and 会社CD = @会社CD
and 社員番号 = @社員番号

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @社員番号









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK社員台帳更新会社更新
@システムCD varchar(12), @演習CD  varchar(12), @会社CD varchar(20), @社員番号 varchar(20), @氏名 varchar(20)
 
/*
+   SK社員台帳情報更新会社更新
+   自社設定・会社更新により代表取締役が更新された場合
+   TTA社員台帳Fの更新を行う
*/   
AS

update TTA社員台帳F
set 氏名 = @氏名
where システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD and 社員番号 = @社員番号

if @@error <> 0
begin
	select -1  return
end









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK精算表修正仕訳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @勘定CD varchar(25), @借方金額 money, @貸方金額 money
, @処理区分 int	--整理記入・繰越記入をトグルするフラグ（081021小野）

AS

declare @貸借区分 varchar(2) 
declare @伝票SEQ smallint
declare @諸口勘定CD varchar(4) 
declare @業種CD varchar(4) 

begin transaction

SET @処理区分 = ISNULL(@処理区分, 9)	--集計区分がNULLなら9をセット

declare @伝票番号 varchar(12)
if @処理区分 = 9
begin
	SET @伝票番号 = '9999999'	--整理記入
end
else
begin
	SET @伝票番号 = 'AAAAAAA'	--繰越記入
end

SET @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)

If @業種CD <> 'B' 
begin
	SET @諸口勘定CD = (SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = 'DZ')
end
else
begin
	SET @諸口勘定CD = (SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = 'DU')
end

if @借方金額 is null
begin
	SELECT @貸借区分 = 'C'
end
else
begin
	SELECT @貸借区分 = 'D'
end

SELECT @伝票SEQ = (SELECT MAX(伝票SEQ) FROM YTMP_TSK伝票明細F WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号) GROUP BY 伝票番号)
if @伝票SEQ Is Null 
begin
	SELECT @伝票SEQ = 1
end		
else
begin
	SELECT @伝票SEQ = @伝票SEQ + 1
end 

insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
values (@システムCD, @演習CD, @会社CD, @伝票番号, 'D5', @伝票SEQ, @勘定CD, @借方金額 ,@貸方金額 ,@貸借区分, @諸口勘定CD, '', '')

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @伝票SEQ




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK精算表修正仕訳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @取引日 datetime, @学生番号 varchar(20)
, @処理区分 int	--整理記入・繰越記入をトグルするフラグ（081021小野）

AS

begin transaction

SET @処理区分 = ISNULL(@処理区分, 9)	--集計区分がNULLなら9をセット

declare @伝票番号 varchar(12)
declare @伝票摘要 varchar(40)
if @処理区分 = 9
begin
	SET @伝票番号 = '9999999'	--整理記入
	SET @伝票摘要 = '精算表整理記入'
end
else
begin
	SET @伝票番号 = 'AAAAAAA'	--繰越記入
	SET @伝票摘要 = '精算表振替記入'
end

if exists(SELECT * FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号)
begin
	DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号
	DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号
end

UPDATE TSK伝票F SET 削除フラグ = 1 FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票処理区分 = @処理区分

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

INSERT TSK伝票F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票処理区分, 取引日, 伝票摘要 ,作成日, 削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @伝票番号, 'D5', @処理区分, @取引日, @伝票摘要, getdate(), 0, @学生番号)

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK伝票明細F
SELECT *
FROM YTMP_TSK伝票明細F
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 伝票番号 = @伝票番号

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = @伝票番号

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO









CREATE PROCEDURE dbo.SPK給与明細一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

SELECT *
FROM TTA給与明細F
WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
ORDER BY 支給年月日









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK給与明細削除
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @社員番号 int
, @給与明細CD int

AS

DELETE
FROM TTA給与明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD =@会社CD AND 社員番号 = @社員番号 AND 給与明細CD = @給与明細CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO










CREATE  PROCEDURE dbo.SPK給与明細取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @社員番号 int, @給与明細CD int

AS

SELECT *
FROM TTA給与明細F
WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 社員番号 = @社員番号 AND 給与明細CD = @給与明細CD










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE  PROCEDURE dbo.SPK給与明細更新
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @社員番号 int
, @給与明細CD int
, @支給区分 varchar(2)
, @支給年月日 datetime
, @基本給 money
, @時間外時間 money
, @時間外手当 money
, @職務手当 money
, @家族手当 money
, @住宅手当 money
, @精勤手当 money
, @皆勤手当 money
, @通勤手当 money
, @その他手当 money
, @健康保険 money
, @厚生年金 money
, @年金基金 money
, @雇用保険 money
, @介護保険 money
, @所得税 money
, @住民税 money

AS

begin transaction


/* 対象データの登録 */
if not(exists(SELECT * FROM TTA給与明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD =@会社CD AND 社員番号 = @社員番号 AND 給与明細CD = @給与明細CD))
begin
	INSERT TTA給与明細F (システムCD, 演習CD, 会社CD, 社員番号, 給与明細CD) VALUES (@システムCD, @演習CD, @会社CD, @社員番号, @給与明細CD)
end 

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

/* 対象データの更新 */
update TTA給与明細F
set 支給区分 = @支給区分
, 支給年月日 = @支給年月日
, 基本給 = @基本給
, 時間外時間 = @時間外時間
, 時間外手当 = @時間外手当
, 職務手当 = @職務手当
, 家族手当 = @家族手当
, 住宅手当 = @住宅手当
, 精勤手当 = @精勤手当
, 皆勤手当 = @皆勤手当
, 通勤手当 = @通勤手当
, その他手当 = @その他手当
, 健康保険 = @健康保険
, 厚生年金 = @厚生年金
, 年金基金 = @年金基金
, 雇用保険 = @雇用保険
, 介護保険 = @介護保険
, 所得税 = @所得税
, 住民税 = @住民税
from TTA給与明細F
where システムCD = @システムCD
and 演習CD = @演習CD
and 会社CD = @会社CD
and 社員番号 = @社員番号
and 給与明細CD = @給与明細CD

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @給与明細CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO









CREATE PROCEDURE dbo.SPK給与明細社員一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @社員番号 int

AS

SELECT *
FROM TTA給与明細F
WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 社員番号 = @社員番号
ORDER BY 支給年月日









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK繰越商品仕訳挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @伝票区分 varchar(2)
, @商品CD varchar(20), @数量 int, @単価 money
, @取引日 datetime, @学生番号 varchar(12)

--繰越商品明細の期首仕訳を作成する（伝票区分はD5）

AS

declare @仕入売上明細SEQ int

begin transaction

SELECT @仕入売上明細SEQ = (SELECT MAX(仕入売上明細SEQ) FROM YTMP_TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000' GROUP BY 伝票番号)
if @仕入売上明細SEQ Is Null 
begin
	SELECT @仕入売上明細SEQ = 1
end		
else
begin
	SELECT @仕入売上明細SEQ = @仕入売上明細SEQ + 1
end 

insert YTMP_TSK伝票仕入売上明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 仕入売上明細SEQ, 商品CD, 受注数量, 受注単価, 取引日, 学生番号)
values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @仕入売上明細SEQ, @商品CD, @数量, @単価, @取引日, @学生番号)

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @仕入売上明細SEQ




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK繰越商品仕訳更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @取引日 datetime, @学生番号 varchar(20)

AS

begin transaction

if exists(SELECT * FROM TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000')
begin
	DELETE FROM TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000'
end
	
if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end
	
INSERT INTO TSK伝票仕入売上明細F
SELECT *
FROM YTMP_TSK伝票仕入売上明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000'

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000'

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE  PROCEDURE dbo.SPK繰越商品削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @処理日 datetime, @学生番号 varchar(20)
--製造部対応のため文書種類CDでの絞込みを追加（080411小野）

AS

begin transaction

DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = '0'
DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = '0'
	
commit transaction






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPK繰越商品挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2)
,@商品CD varchar(20) ,@数量 int ,@単価 money, @運送単価 money
--製造部対応のため文書種類CDでの絞込みを追加（080411小野）

AS

declare @入出庫SEQ smallint

begin transaction

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

SELECT @入出庫SEQ = (SELECT MAX(入出庫SEQ) FROM YTMP_TGA入出庫明細TRN WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = '0'))
if @入出庫SEQ Is Null 
begin
	SELECT @入出庫SEQ = 1
end		
else
begin
	SELECT @入出庫SEQ = @入出庫SEQ + 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO YTMP_TGA入出庫明細TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 入出庫SEQ, 商品CD, 数量, 単価, 運送単価)
VALUES  (@システムCD, @演習CD, @会社CD, @会社CD, @文書種類CD, '0', @入出庫SEQ, @商品CD, @数量, @単価, @運送単価)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction
	SELECT @入出庫SEQ

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPK繰越商品更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @文書種類CD varchar(2), @処理日 datetime, @学生番号 varchar(20)
--製造部対応のため文書種類CDでの絞込みを追加（080411小野）

AS

begin transaction

if exists(SELECT * FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = '0')
begin
	DELETE FROM TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = '0'
	DELETE FROM TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = '0'
end
	
if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TGA入出庫TRN (システムCD, 演習CD, 会社CD, 作成会社CD, 文書種類CD, 文書内容CD, 処理時期区分, 処理日, 取引先CD, 先方文書内容CD, 先方文書種類CD, 先方処理日, 運賃諸掛区分, 運送費, 発行フラグ, 返信フラグ, 削除フラグ, 有効フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @会社CD, @文書種類CD, '0', 0, @処理日, null, null, null, null, null, null, 0, 0, 0, 1, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TGA入出庫明細TRN
SELECT *
FROM YTMP_TGA入出庫明細TRN
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

DELETE FROM YTMP_TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 文書種類CD = @文書種類CD

commit transaction






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK繰越残高設定挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
,@勘定CD varchar(25),@摘要CD varchar(20), @摘要 varchar(30), @借方金額 money, @貸方金額 money

AS

declare @貸借区分 varchar(2) 
declare @伝票SEQ smallint
declare @諸口勘定CD varchar(4) 
declare @業種CD varchar(4) 


begin transaction

	SET @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)



	If @業種CD <> 'B' 
	begin
		SET @諸口勘定CD = (SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = 'DZ')
	end
	else
	begin
		SET @諸口勘定CD = (SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = 'DU')
	end

	if @借方金額 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	SELECT @伝票SEQ = (SELECT MAX(伝票SEQ) FROM YTMP_TSK伝票明細F WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = '0000000') GROUP BY 伝票番号)
	if @伝票SEQ Is Null 
	begin
		SELECT @伝票SEQ = 1
	end		
	else
	begin
		SELECT @伝票SEQ = @伝票SEQ + 1
	end 
if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', 'D5', @伝票SEQ, @勘定CD, @借方金額 ,@貸方金額 ,@貸借区分, @諸口勘定CD, @摘要CD, @摘要)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction
	SELECT @伝票SEQ








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPK繰越残高設定挿入10
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @伝票区分 varchar(2)
, @行数 int
, @勘定CD1 varchar(25)
, @摘要CD1 varchar(20)
, @摘要1 varchar(30)
, @借方金額1 money
, @貸方金額1 money
, @勘定CD2 varchar(25)
, @摘要CD2 varchar(20)
, @摘要2 varchar(30)
, @借方金額2 money
, @貸方金額2 money
, @勘定CD3 varchar(25)
, @摘要CD3 varchar(20)
, @摘要3 varchar(30)
, @借方金額3 money
, @貸方金額3 money
, @勘定CD4 varchar(25)
, @摘要CD4 varchar(20)
, @摘要4 varchar(30)
, @借方金額4 money
, @貸方金額4 money
, @勘定CD5 varchar(25)
, @摘要CD5 varchar(20)
, @摘要5 varchar(30)
, @借方金額5 money
, @貸方金額5 money
, @勘定CD6 varchar(25)
, @摘要CD6 varchar(20)
, @摘要6 varchar(30)
, @借方金額6 money
, @貸方金額6 money
, @勘定CD7 varchar(25)
, @摘要CD7 varchar(20)
, @摘要7 varchar(30)
, @借方金額7 money
, @貸方金額7 money
, @勘定CD8 varchar(25)
, @摘要CD8 varchar(20)
, @摘要8 varchar(30)
, @借方金額8 money
, @貸方金額8 money
, @勘定CD9 varchar(25)
, @摘要CD9 varchar(20)
, @摘要9 varchar(30)
, @借方金額9 money
, @貸方金額9 money
, @勘定CD10 varchar(25)
, @摘要CD10 varchar(20)
, @摘要10 varchar(30)
, @借方金額10 money
, @貸方金額10 money
--製造部対応のため伝票区分指定を追加（080411小野）

AS

declare @貸借区分 varchar(2) 
declare @伝票SEQ smallint
declare @諸口勘定CD varchar(4) 
declare @業種CD varchar(4) 

begin transaction

SET @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)

If @業種CD <> 'B' 
begin
	SET @諸口勘定CD = (SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = 'DZ')
end
else
begin
	SET @諸口勘定CD = (SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = 'DU')
end

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

SELECT @伝票SEQ = (SELECT MAX(伝票SEQ) FROM YTMP_TSK伝票明細F WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = '0000000') GROUP BY 伝票番号)
if @伝票SEQ Is Null 
begin
	SELECT @伝票SEQ = 1
end		
else
begin
	SELECT @伝票SEQ = @伝票SEQ + 1
end 

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

if @借方金額1 is null
begin
	SELECT @貸借区分 = 'C'
end
else
begin
	SELECT @貸借区分 = 'D'
end

insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ, @勘定CD1, @借方金額1 ,@貸方金額1 ,@貸借区分, @諸口勘定CD, @摘要CD1, @摘要1)

if @行数 > 1
begin

	if @借方金額2 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+1, @勘定CD2, @借方金額2 ,@貸方金額2 ,@貸借区分, @諸口勘定CD, @摘要CD2, @摘要2)

end

if @行数 > 2
begin

	if @借方金額3 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+2, @勘定CD3, @借方金額3 ,@貸方金額3 ,@貸借区分, @諸口勘定CD, @摘要CD3, @摘要3)

end

if @行数 > 3
begin

	if @借方金額4 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+3, @勘定CD4, @借方金額4 ,@貸方金額4 ,@貸借区分, @諸口勘定CD, @摘要CD4, @摘要4)

end

if @行数 > 4
begin

	if @借方金額5 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+4, @勘定CD5, @借方金額5 ,@貸方金額5 ,@貸借区分, @諸口勘定CD, @摘要CD5, @摘要5)

end

if @行数 > 5
begin

	if @借方金額6 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+5, @勘定CD6, @借方金額6 ,@貸方金額6 ,@貸借区分, @諸口勘定CD, @摘要CD6, @摘要6)

end

if @行数 > 6
begin

	if @借方金額7 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+6, @勘定CD7, @借方金額7 ,@貸方金額7 ,@貸借区分, @諸口勘定CD, @摘要CD7, @摘要7)

end

if @行数 > 7
begin

	if @借方金額8 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+7, @勘定CD8, @借方金額8 ,@貸方金額8 ,@貸借区分, @諸口勘定CD, @摘要CD8, @摘要8)

end

if @行数 > 8
begin

	if @借方金額9 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+8, @勘定CD9, @借方金額9 ,@貸方金額9 ,@貸借区分, @諸口勘定CD, @摘要CD9, @摘要9)

end

if @行数 > 9
begin

	if @借方金額10 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, @伝票SEQ+9, @勘定CD10, @借方金額10 ,@貸方金額10 ,@貸借区分, @諸口勘定CD, @摘要CD10, @摘要10)

end

if @@error <> 0
begin
	rollback transaction
	select -1  return
end


commit transaction

SELECT @伝票SEQ + @行数 - 1






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK繰越残高設定挿入5
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @行数 int
, @勘定CD1 varchar(25)
, @摘要CD1 varchar(20)
, @摘要1 varchar(30)
, @借方金額1 money
, @貸方金額1 money
, @勘定CD2 varchar(25)
, @摘要CD2 varchar(20)
, @摘要2 varchar(30)
, @借方金額2 money
, @貸方金額2 money
, @勘定CD3 varchar(25)
, @摘要CD3 varchar(20)
, @摘要3 varchar(30)
, @借方金額3 money
, @貸方金額3 money
, @勘定CD4 varchar(25)
, @摘要CD4 varchar(20)
, @摘要4 varchar(30)
, @借方金額4 money
, @貸方金額4 money
, @勘定CD5 varchar(25)
, @摘要CD5 varchar(20)
, @摘要5 varchar(30)
, @借方金額5 money
, @貸方金額5 money

AS

declare @貸借区分 varchar(2) 
declare @伝票SEQ smallint
declare @諸口勘定CD varchar(4) 
declare @業種CD varchar(4) 

begin transaction

	SET @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)

	If @業種CD <> 'B' 
	begin
		SET @諸口勘定CD = (SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = 'DZ')
	end
	else
	begin
		SET @諸口勘定CD = (SELECT 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = 'DU')
	end

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

	SELECT @伝票SEQ = (SELECT MAX(伝票SEQ) FROM YTMP_TSK伝票明細F WHERE (システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票番号 = '0000000') GROUP BY 伝票番号)
	if @伝票SEQ Is Null 
	begin
		SELECT @伝票SEQ = 1
	end		
	else
	begin
		SELECT @伝票SEQ = @伝票SEQ + 1
	end 

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

	if @借方金額1 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', 'D5', @伝票SEQ, @勘定CD1, @借方金額1 ,@貸方金額1 ,@貸借区分, @諸口勘定CD, @摘要CD1, @摘要1)

if @行数 > 1
begin

	if @借方金額2 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', 'D5', @伝票SEQ+1, @勘定CD2, @借方金額2 ,@貸方金額2 ,@貸借区分, @諸口勘定CD, @摘要CD2, @摘要2)

end

if @行数 > 2
begin

	if @借方金額3 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', 'D5', @伝票SEQ+2, @勘定CD3, @借方金額3 ,@貸方金額3 ,@貸借区分, @諸口勘定CD, @摘要CD3, @摘要3)

end

if @行数 > 3
begin

	if @借方金額4 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', 'D5', @伝票SEQ+3, @勘定CD4, @借方金額4 ,@貸方金額4 ,@貸借区分, @諸口勘定CD, @摘要CD4, @摘要4)

end

if @行数 > 4
begin

	if @借方金額5 is null
	begin
		SELECT @貸借区分 = 'C'
	end
	else
	begin
		SELECT @貸借区分 = 'D'
	end

	insert YTMP_TSK伝票明細F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票SEQ, 勘定CD, 借方金額, 貸方金額, 貸借区分, 相手勘定CD, 摘要CD, 摘要)
	values (@システムCD, @演習CD, @会社CD, '0000000', 'D5', @伝票SEQ+4, @勘定CD5, @借方金額5 ,@貸方金額5 ,@貸借区分, @諸口勘定CD, @摘要CD5, @摘要5)

end

if @@error <> 0
begin
	rollback transaction
	select -1  return
end


commit transaction

SELECT @伝票SEQ + @行数 - 1









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK繰越残高設定更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @伝票区分 varchar(2), @取引日 datetime, @学生番号 varchar(20)
--製造部対応のため伝票区分での絞込みを追加（080411小野）

AS

begin transaction

if exists(SELECT * FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000')
begin
	DELETE FROM TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000'
	DELETE FROM TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000'
end
	
if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT TSK伝票F (システムCD, 演習CD, 会社CD, 伝票番号, 伝票区分, 伝票処理区分, 取引日, 伝票摘要 ,作成日 ,削除フラグ, 学生番号)
--VALUES (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, 0, @取引日, '勘定残高設定', getdate(), 0, @学生番号)
VALUES (@システムCD, @演習CD, @会社CD, '0000000', @伝票区分, 0, @取引日, '期首繰越', getdate(), 0, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end
	
INSERT INTO TSK伝票明細F
SELECT *
FROM YTMP_TSK伝票明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000'

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 = @伝票区分 AND 伝票番号 = '0000000'

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPK自動転記帳簿_仕訳帳勘定科目照会
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @開始日 datetime, @終了日 datetime

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--製造部対応のため業種を取得（080331小野）
declare @業種CD varchar(1)
select @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
if @業種CD <> 'B'
begin
	select @業種CD = 'S'	--管理部・運送会社も勘定科目業種は'S'
end	

SELECT TDA勘定科目M.勘定CD
	, TDA勘定科目M.勘定名称
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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
		UNION	--TDA勘定科目会社学生Mを連結（091023小野）
		SELECT * FROM TDA勘定科目会社学生M
		WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
	) TEMP勘定科目M WHERE 業種CD = @業種CD
) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
	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.会社CD = @会社CD
	AND (TSK伝票F.取引日 >= @開始日 AND TSK伝票F.取引日 <= @終了日)
	AND TSK伝票F.削除フラグ = 0
GROUP BY TDA勘定科目M.勘定CD, TDA勘定科目M.勘定名称
ORDER BY TDA勘定科目M.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPK自動転記帳簿_仕訳帳取引日照会
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT 取引日
FROM TSK伝票F
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 削除フラグ = 0
	AND 伝票区分 <> 'D7'
	AND 伝票区分 <> 'D8'
GROUP BY 取引日
ORDER BY 取引日






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_仕訳帳照会
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @開始日 datetime, @終了日 datetime, @並び順 varchar(2)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--製造部対応のため業種を取得（080331小野）
declare @業種CD varchar(1)
select @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
if @業種CD <> 'B'
begin
	select @業種CD = 'S'	--管理部・運送会社も勘定科目業種は'S'
end	

SELECT          TSK伝票明細F.伝票SEQ, TSK伝票明細F.伝票区分, TSK伝票明細F.勘定CD, 
                      TSK伝票F.伝票番号, TSK伝票F.伝票摘要, TSK伝票F.伝票処理区分, TSK伝票明細F.摘要CD, TSK伝票明細F.摘要, 
                      TSK伝票明細F.借方金額, TSK伝票明細F.貸方金額, TSK伝票F.取引日, TDA勘定科目M.勘定名称, 摘要会社.会社略名称 AS 摘要会社名称,
                      A.区分名称 AS 伝票区分名称
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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
		UNION	--TDA勘定科目会社学生Mを連結（091023小野）
		SELECT * FROM TDA勘定科目会社学生M
		WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
	) TEMP勘定科目M WHERE 業種CD = @業種CD
) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
LEFT OUTER JOIN TDA会社M 摘要会社 ON TSK伝票明細F.システムCD = 摘要会社.システムCD AND TSK伝票明細F.演習CD = 摘要会社.演習CD AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '伝票区分') A ON TSK伝票明細F.システムCD = A.システムCD  AND TSK伝票明細F.伝票区分 = A.区分CD  
WHERE	TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND TSK伝票F.会社CD = @会社CD AND (TSK伝票F.取引日 >= @開始日 AND TSK伝票F.取引日 <= @終了日) AND  TSK伝票F.削除フラグ = 0
--ORDER BY     TSK伝票F.取引日,  TSK伝票F.伝票処理区分, TSK伝票F.伝票区分 , TSK伝票F.伝票番号 ,TSK伝票明細F.伝票SEQ ,TSK伝票明細F.勘定CD
--ORDER BY     TSK伝票F.取引日, TSK伝票明細F.伝票区分, TSK伝票F.伝票番号, TSK伝票明細F.借方金額 DESC, TSK伝票明細F.貸方金額 DESC, TSK伝票F.伝票処理区分, TSK伝票F.伝票区分, TSK伝票明細F.伝票SEQ, TSK伝票明細F.勘定CD
ORDER BY
	CASE WHEN @並び順 = '' THEN TSK伝票F.取引日 ELSE null END
	, CASE WHEN @並び順 <> '' THEN TSK伝票F.伝票番号 ELSE null END
	, TSK伝票F.伝票処理区分, TSK伝票明細F.伝票区分
	, CASE WHEN @並び順 = '' THEN TSK伝票F.伝票番号 ELSE null END
	, CASE WHEN @並び順 <> '' THEN TSK伝票F.取引日 ELSE null END
	, TSK伝票明細F.借方金額 DESC, TSK伝票明細F.貸方金額 DESC, TSK伝票F.伝票区分, TSK伝票明細F.伝票SEQ, TSK伝票明細F.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_仕訳帳照会_伝票貸方
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @開始日 datetime, @終了日 datetime, @伝票番号 varchar(12), @伝票区分 varchar(2)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--製造部対応のため業種を取得（080331小野）
declare @業種CD varchar(1)
select @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
if @業種CD <> 'B'
begin
	select @業種CD = 'S'	--管理部・運送会社も勘定科目業種は'S'
end	

SELECT          TSK伝票明細F.伝票SEQ, TSK伝票明細F.伝票区分, TSK伝票明細F.勘定CD, 
                      TSK伝票F.伝票番号, TSK伝票F.伝票摘要, TSK伝票F.伝票処理区分, TSK伝票明細F.摘要CD, TSK伝票明細F.摘要, 
                      TSK伝票明細F.借方金額, TSK伝票明細F.貸方金額, TSK伝票F.取引日, TDA勘定科目M.勘定名称, 摘要会社.会社略名称 AS 摘要会社名称,
                      A.区分名称 AS 伝票区分名称
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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
		UNION	--TDA勘定科目会社学生Mを連結（091023小野）
		SELECT * FROM TDA勘定科目会社学生M
		WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
	) TEMP勘定科目M WHERE 業種CD = @業種CD
) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
LEFT OUTER JOIN TDA会社M 摘要会社 ON TSK伝票明細F.システムCD = 摘要会社.システムCD AND TSK伝票明細F.演習CD = 摘要会社.演習CD AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '伝票区分') A ON TSK伝票明細F.システムCD = A.システムCD  AND TSK伝票明細F.伝票区分 = A.区分CD  
--WHERE	TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND TSK伝票F.会社CD = @会社CD AND TSK伝票F.伝票番号 = @伝票番号 AND (TSK伝票F.取引日 >= @開始日 AND TSK伝票F.取引日 <= @終了日) AND  TSK伝票F.削除フラグ = 0
WHERE	TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND TSK伝票F.会社CD = @会社CD AND TSK伝票F.伝票番号 = @伝票番号 AND TSK伝票明細F.伝票区分 = @伝票区分 AND (TSK伝票F.取引日 >= @開始日 AND TSK伝票F.取引日 <= @終了日) AND  TSK伝票F.削除フラグ = 0
--ORDER BY     TSK伝票F.取引日,  TSK伝票F.伝票処理区分, TSK伝票F.伝票区分 , TSK伝票F.伝票番号 ,TSK伝票明細F.伝票SEQ ,TSK伝票明細F.勘定CD
ORDER BY     TSK伝票F.取引日, TSK伝票F.伝票番号, TSK伝票明細F.貸方金額 DESC, TSK伝票明細F.借方金額 DESC, TSK伝票F.伝票処理区分, TSK伝票F.伝票区分, TSK伝票明細F.伝票SEQ, TSK伝票明細F.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_仕訳集計表照会
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @取引日 datetime

AS

--製造部対応のため業種を取得（080331小野）
declare @業種CD varchar(1)
select @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
if @業種CD <> 'B'
begin
	select @業種CD = 'S'	--管理部・運送会社も勘定科目業種は'S'
end	

--SELECT          A.勘定CD, A.借方金額, A.貸方金額, B.総勘定元帳CD, TDA勘定科目M.勘定名称
SELECT          A.勘定CD, A.借方金額, A.貸方金額, TDA勘定科目M.勘定名称
FROM            (SELECT          TSK伝票F.システムCD, TSK伝票F.演習CD, TSK伝票F.会社CD, TSK伝票明細F.勘定CD, 
                                             TSK伝票F.取引日, 
                                             SUM(TSK伝票明細F.借方金額) AS 借方金額, 
                                             SUM(TSK伝票明細F.貸方金額) AS 貸方金額
                       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 (SELECT * FROM TDA勘定科目M WHERE 業種CD = @業種CD) TDA勘定科目M --製造部対応のため業種CDで絞る（080331小野）
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
                       WHERE           TSK伝票F.削除フラグ = 0 AND TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD AND 
                                             TSK伝票F.会社CD = @会社CD AND 
                                             TSK伝票F.取引日 = @取引日
                       GROUP BY    TSK伝票F.システムCD, TSK伝票F.演習CD,  TSK伝票明細F.勘定CD, TSK伝票F.取引日, TSK伝票F.会社CD) A 
--	LEFT OUTER JOIN
--                          (SELECT         システムCD, 演習CD, 会社CD, 勘定CD, 取引日, SUM(借方金額) AS 借方金額, SUM(貸方金額) AS 貸方金額, MAX(総勘定元帳CD) AS 総勘定元帳CD
--                             FROM             [TSK帳簿_総勘定元帳F]
--                             GROUP BY     システムCD, 演習CD, 会社CD, 勘定CD, 取引日) B 
--		ON A.システムCD = B.システムCD AND  A.演習CD = B.演習CD AND A.会社CD = B.会社CD AND A.勘定CD = B.勘定CD AND A.取引日 = B.取引日 AND ISNULL(A.借方金額, 0) = ISNULL(B.借方金額, 0) AND ISNULL(A.貸方金額, 0) = ISNULL(B.貸方金額, 0)
	LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M WHERE 業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)) TDA勘定科目M ON A.システムCD = TDA勘定科目M.システムCD AND A.演習CD = TDA勘定科目M.演習CD AND A.勘定CD = TDA勘定科目M.勘定CD
ORDER BY     A.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_仕訳集計表照会FromTo
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @集計開始日 datetime, @集計終了日 datetime

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--製造部対応のため業種を取得（080331小野）
declare @業種CD varchar(1)
select @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
if @業種CD <> 'B'
begin
	select @業種CD = 'S'	--管理部・運送会社も勘定科目業種は'S'
end	

SELECT A.勘定CD
	, A.借方金額
	, A.貸方金額
	, TDA勘定科目M.勘定名称
FROM (
	SELECT TSK伝票F.システムCD
		, TSK伝票F.演習CD
		, TSK伝票F.会社CD
		, TSK伝票明細F.勘定CD
		, SUM(TSK伝票明細F.借方金額) AS 借方金額
		, SUM(TSK伝票明細F.貸方金額) AS 貸方金額
	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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
			UNION	--TDA勘定科目会社学生Mを連結（091023小野）
			SELECT * FROM TDA勘定科目会社学生M
			WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
		) TEMP勘定科目M WHERE 業種CD = @業種CD
	) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
		ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
		AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
		AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
	WHERE TSK伝票F.削除フラグ = 0
		AND TSK伝票F.システムCD = @システムCD
		AND TSK伝票F.演習CD = @演習CD
		AND TSK伝票F.会社CD = @会社CD
		AND TSK伝票F.取引日 >= @集計開始日
		AND TSK伝票F.取引日 <= @集計終了日
	GROUP BY TSK伝票F.システムCD
		, TSK伝票F.演習CD
		, TSK伝票明細F.勘定CD
		, TSK伝票F.会社CD
) A 
--LEFT OUTER JOIN TDA勘定科目M
LEFT OUTER JOIN (SELECT * FROM (SELECT * FROM TDA勘定科目M
		UNION	--TDA勘定科目会社学生Mを連結（091023小野）
		SELECT * FROM TDA勘定科目会社学生M
		WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
	) TEMP勘定科目M WHERE 業種CD = @業種CD
) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
	ON A.システムCD = TDA勘定科目M.システムCD
	AND A.演習CD = TDA勘定科目M.演習CD
	AND A.勘定CD = TDA勘定科目M.勘定CD
ORDER BY A.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_八桁精算表照会
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @開始日 datetime, @終了日 datetime 
, @集計区分 int	--集計する伝票処理区分をトグルするフラグ（081021小野）
--@集計区分 =  9 ・・・繰越記入を含まない
--@集計区分 = 10 ・・・繰越記入を含む

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--SET @集計区分 = ISNULL(@集計区分, 9)	--集計区分がNULLなら9をセット

--製造部対応のため業種を取得（080331小野）
declare @業種CD varchar(1)
select @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
if @業種CD <> 'B'
begin
	select @業種CD = 'S'	--管理部・運送会社も勘定科目業種は'S'
end	


SELECT X.*
	, Y.勘定名称
FROM (
	SELECT 勘定CD
		, SUM(試算表借方金額) AS 試算表借方金額
		, SUM(試算表貸方金額) AS 試算表貸方金額
		, SUM(整理記入借方金額) AS 整理記入借方金額
		, SUM(整理記入貸方金額) AS 整理記入貸方金額
		, SUM(損益計算書借方金額) AS 損益計算書借方金額
		, SUM(損益計算書貸方金額) AS 損益計算書貸方金額
		, SUM(貸借対照表借方金額) AS 貸借対照表借方金額
		, SUM(貸借対照表貸方金額) AS 貸借対照表貸方金額
		, MAX(勘定区分) AS 勘定区分
		, MAX(貸借区分) AS 貸借区分
		, MAX(勘定細目) AS 勘定細目
	FROM (
		--試算表（@集計区分=10なら整理記入を含む）
		SELECT TSK伝票明細F.勘定CD
			, CASE WHEN SUM(ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0)) > 0 THEN SUM(ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0)) ELSE 0 END AS 試算表借方金額
			, CASE WHEN SUM(ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0)) > 0 THEN SUM(ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0)) ELSE 0 END AS 試算表貸方金額
--			, SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0) ELSE 0 END) AS 試算表借方金額
--			, SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN 0 ELSE ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0) END) AS 試算表貸方金額
			, 0 AS 整理記入借方金額, 0 AS 整理記入貸方金額, 0 AS 損益計算書借方金額, 0 AS 損益計算書貸方金額, 0 AS 貸借対照表借方金額, 0 AS 貸借対照表貸方金額
			, TDA勘定科目M.勘定区分, TDA勘定科目M.貸借区分, TDA勘定科目M.勘定細目
		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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
				UNION	--TDA勘定科目会社学生Mを連結（091023小野）
				SELECT * FROM TDA勘定科目会社学生M
				WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
			) TEMP勘定科目M WHERE 業種CD = @業種CD
		) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
			ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
			AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
			AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
		WHERE TSK伝票F.削除フラグ = 0
			AND TSK伝票F.伝票処理区分 < @集計区分	--整理記入の集計をトグル（081021小野）
			AND TSK伝票F.会社CD = @会社CD
			AND TSK伝票F.システムCD = @システムCD
			AND TSK伝票F.演習CD = @演習CD
			AND TSK伝票F.取引日 >= @開始日
			AND TSK伝票F.取引日 <= @終了日
		GROUP BY TSK伝票明細F.勘定CD
			, TDA勘定科目M.勘定区分
			, TDA勘定科目M.貸借区分
			, TDA勘定科目M.勘定細目
		UNION
		--整理記入または繰越記入
		SELECT TSK伝票明細F.勘定CD
			, 0, 0
			, SUM(ISNULL(TSK伝票明細F.借方金額, 0)) AS 整理記入借方金額
			, SUM(ISNULL(TSK伝票明細F.貸方金額, 0)) AS 整理記入貸方金額
			, 0, 0, 0, 0
			, TDA勘定科目M.勘定区分, TDA勘定科目M.貸借区分, TDA勘定科目M.勘定細目
		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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
				UNION	--TDA勘定科目会社学生Mを連結（091023小野）
				SELECT * FROM TDA勘定科目会社学生M
				WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
			) TEMP勘定科目M WHERE 業種CD = @業種CD
		) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
			ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
			AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
			AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
		WHERE TSK伝票F.削除フラグ = 0
			AND TSK伝票F.伝票処理区分 = @集計区分	--整理記入または繰越記入（081021小野）
			AND TSK伝票F.会社CD = @会社CD
			AND TSK伝票F.システムCD = @システムCD
			AND TSK伝票F.演習CD = @演習CD
			AND TSK伝票F.取引日 >= @開始日
			AND TSK伝票F.取引日 <= @終了日
		GROUP BY TSK伝票明細F.勘定CD
			, TDA勘定科目M.勘定区分
			, TDA勘定科目M.貸借区分
			, TDA勘定科目M.勘定細目
		UNION
		--損益計算書
		SELECT TSK伝票明細F.勘定CD
			, 0, 0, 0, 0
			, CASE WHEN SUM(ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0)) > 0 THEN SUM(ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0)) ELSE 0 END AS 損益計算書借方金額
			, CASE WHEN SUM(ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0)) > 0 THEN SUM(ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0)) ELSE 0 END AS 損益計算書借方金額
--			, SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0) ELSE 0 END) AS 損益計算書借方金額
--			, SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN 0 ELSE ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0) END) AS 損益計算書借方金額
			, 0, 0
			, TDA勘定科目M.勘定区分, TDA勘定科目M.貸借区分, TDA勘定科目M.勘定細目
		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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
				UNION	--TDA勘定科目会社学生Mを連結（091023小野）
				SELECT * FROM TDA勘定科目会社学生M
				WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
			) TEMP勘定科目M WHERE 業種CD = @業種CD
		) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
			ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
			AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
			AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
		WHERE TSK伝票F.削除フラグ = 0
			AND TSK伝票F.伝票処理区分 <= @集計区分	--整理記入・繰越記入それぞれの伝票処理区分までを含む（081021小野）
			AND TSK伝票F.会社CD = @会社CD
			AND TSK伝票F.システムCD = @システムCD
			AND TSK伝票F.演習CD = @演習CD
			AND TSK伝票F.取引日 >= @開始日
			AND TSK伝票F.取引日 <= @終了日
			AND TDA勘定科目M.勘定区分 = 'P'
		GROUP BY TSK伝票明細F.勘定CD
			, TDA勘定科目M.勘定区分
			, TDA勘定科目M.貸借区分
			, TDA勘定科目M.勘定細目
		UNION
		--貸借対照表
		SELECT TSK伝票明細F.勘定CD
			, 0, 0, 0, 0, 0, 0
--			, SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0) ELSE 0 END) AS 貸借対照表借方金額
--			, SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN 0 ELSE ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0) END) AS 貸借対照表借方金額
			, CASE WHEN SUM(ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0)) > 0 THEN SUM(ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0)) ELSE 0 END AS 貸借対照表借方金額
			, CASE WHEN SUM(ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0)) > 0 THEN SUM(ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0)) ELSE 0 END AS 貸借対照表借方金額
			, TDA勘定科目M.勘定区分, TDA勘定科目M.貸借区分, TDA勘定科目M.勘定細目
		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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
				UNION	--TDA勘定科目会社学生Mを連結（091023小野）
				SELECT * FROM TDA勘定科目会社学生M
				WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
			) TEMP勘定科目M WHERE 業種CD = @業種CD
		) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
			ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
			AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
			AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
		WHERE TSK伝票F.削除フラグ = 0 AND (TSK伝票F.会社CD = @会社CD)
			AND TSK伝票F.伝票処理区分 <= @集計区分	--整理記入・繰越記入それぞれの伝票処理区分までを含む（081021小野）
			AND TSK伝票F.システムCD = @システムCD
			AND TSK伝票F.演習CD = @演習CD
			AND TSK伝票F.取引日 >= @開始日
			AND TSK伝票F.取引日 <= @終了日 
			AND TDA勘定科目M.勘定区分 = 'B'
		GROUP BY TSK伝票明細F.勘定CD
			, TDA勘定科目M.勘定区分
			, TDA勘定科目M.貸借区分
			, TDA勘定科目M.勘定細目
	) A
	--金額が無い科目は除外する（整理記入で0相殺された科目が繰越記入時に集計対象として残っているため）
	WHERE (試算表借方金額 IS NOT NULL AND 試算表借方金額 <> 0)
		OR (試算表貸方金額 IS NOT NULL AND 試算表貸方金額 <> 0)
		OR (整理記入借方金額 IS NOT NULL AND 整理記入借方金額 <> 0)
		OR (整理記入貸方金額 IS NOT NULL AND 整理記入貸方金額 <> 0)
		OR (損益計算書借方金額 IS NOT NULL AND 損益計算書借方金額 <> 0)
		OR (損益計算書貸方金額 IS NOT NULL AND 損益計算書貸方金額 <> 0)
		OR (貸借対照表借方金額 IS NOT NULL AND 貸借対照表借方金額 <> 0)
		OR (貸借対照表貸方金額 IS NOT NULL AND 貸借対照表貸方金額 <> 0)
	GROUP BY 勘定CD
) X 
LEFT OUTER JOIN (SELECT * FROM (SELECT * FROM TDA勘定科目M
		UNION	--TDA勘定科目会社学生Mを連結（091023小野）
		SELECT * FROM TDA勘定科目会社学生M
		WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
	) TEMP勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD
) Y	--製造部対応のため業種で絞る（080331小野）
	ON X.勘定CD = Y.勘定CD
ORDER BY X.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_合計残高試算表照会
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @開始日  datetime,  @終了日 datetime
, @処理区分 int		--集計する伝票処理区分をトグルするフラグ（081022小野）
--@処理区分 =  9 ・・・整理記入・繰越記入を含まない
--@処理区分 = 10 ・・・繰越記入を含まない
, @業種CD varchar(1)	--集計する業種CDをトグルするフラグ（090324小野）
--@業種CD = 'G' ・・・製造部
--@業種CD =  '' ・・・製造部以外

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--製造部対応のため業種を取得（080331小野）
if @業種CD = ''
begin
	select @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	if @業種CD <> 'B'
	begin
		select @業種CD = 'S'	--管理部・運送会社も勘定科目業種は'S'（商社と同じ）
	end	
end	

if @開始日 = ''
begin
	SET @開始日 = '1900/01/01'
end
if @終了日 = ''
begin
	SET @終了日 = '2038/01/01'
end

SELECT TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.勘定CD
	, MIN(TDA勘定科目M.勘定名称) AS 勘定名称
	, MIN(TDA勘定科目M.貸借区分) AS 貸借区分
	, MIN(TDA勘定科目M.分析用区分) AS 分析用区分
	, SUM(TSK伝票明細F.借方金額) AS 借方金額
	, SUM(TSK伝票明細F.貸方金額) AS 貸方金額
--	, SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0) ELSE 0 END) AS 借方残高
--	, SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN 0 ELSE ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0) END) AS 貸方残高
	, CASE WHEN SUM(ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0)) > 0 THEN SUM(ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0)) ELSE 0 END AS 借方残高
	, CASE WHEN SUM(ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0)) > 0 THEN SUM(ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0)) ELSE 0 END AS 貸方残高
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.伝票番号
--	AND  TSK伝票F.伝票番号 <> '9999999'	--伝票処理区分で絞るので不要（081021小野）
INNER JOIN (SELECT * FROM (SELECT * FROM TDA勘定科目M
		UNION	--TDA勘定科目会社学生Mを連結（091023小野）
		SELECT * FROM TDA勘定科目会社学生M
		WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
	) TEMP勘定科目M WHERE 業種CD = @業種CD
) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
WHERE TSK伝票F.削除フラグ = 0
	AND TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.伝票処理区分 < @処理区分	--除外する伝票処理区分レベルを可変する（データリンク用）
--	AND TSK伝票F.伝票処理区分 < 9	--合計残高試算表
--	AND TSK伝票F.伝票処理区分 < 10	--データリンクでの集計
	AND TSK伝票F.取引日 between @開始日 and @終了日
GROUP BY TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.勘定CD
ORDER BY TSK伝票明細F.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_株主資本等変動計算書照会
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @開始日 datetime, @終了日 datetime

--SPK自動転記帳簿_財務諸表から勘定区分などでの絞込みを廃し全集計するように改変しただけ
--（080829）SPK自動転記帳簿_財務諸表から勘定区分などでの絞込みを廃し全集計するように改変しただけ

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

if @開始日 = ''
begin
	SET @開始日 = '1900/01/01'
end
if @終了日 = ''
begin
	SET @終了日 = '2038/01/01'
end

SELECT TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.勘定CD
	, MIN(TDA勘定科目M.勘定区分) AS 勘定区分
	, MIN(TDA勘定科目M.勘定細目) AS 勘定細目
	, MIN(TDA勘定科目M.勘定名称) AS 勘定名称
	, MIN(TDA勘定科目M.貸借区分) AS 貸借区分
	, MIN(TDA勘定科目M.株主資本等変動計算書集計CD) AS 株主資本等変動計算書集計CD
	, CASE WHEN MIN(TDA勘定科目M.勘定細目) = 'A' THEN ISNULL(SUM(TSK伝票明細F.借方金額),0) - ISNULL(SUM(TSK伝票明細F.貸方金額),0) ELSE 0 END AS 借方金額
	, CASE WHEN MIN(TDA勘定科目M.勘定細目) <> 'A' THEN ISNULL(SUM(TSK伝票明細F.貸方金額),0) - ISNULL(SUM(TSK伝票明細F.借方金額),0) ELSE 0 END AS 貸方金額
	, 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 (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 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.削除フラグ = 0
	AND TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.取引日 between @開始日 and @終了日
	AND TSK伝票F.伝票処理区分 < 10	--繰越記入伝票を除外（081022小野）
GROUP BY TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.勘定CD
	, TDA勘定科目M.勘定区分
	, TDA勘定科目M.勘定細目
	, TDA勘定科目M.勘定名称
	, TDA勘定科目M.貸借区分
	, TDA勘定科目M.諸表集計CD
	, TSK伝票F.伝票処理区分




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_総勘定元帳照会
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @勘定CD varchar(25), @摘要CD varchar(20), @開始日 datetime, @終了日 datetime

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--070404小野	戻り値に「TSK伝票明細F.摘要CD」を追加（摘要CD「Shohisha」の適用会社名称はTDA会社MからJOIN出来ないため）
--170921小野	戻り値に「TSK伝票F.伝票番号」を追加（伝票番号表示モードのため）
--170922小野	戻り値に「TSK伝票F.伝票摘要」を追加

SELECT TSK伝票F.取引日, TSK伝票明細F.借方金額, TSK伝票明細F.貸方金額, 
	CASE WHEN TSK伝票F.伝票処理区分 = 1 THEN Replace(STR(MONTH(TSK伝票F.取引日),2), ' ', '0') + Replace(STR(DAY(TSK伝票F.取引日),2), ' ', '0') ELSE '' END AS 仕丁,
	TDA勘定科目M.貸借区分, TSK伝票明細F.摘要, 摘要会社.会社略名称 AS 摘要会社名称, TSK伝票明細F.相手勘定CD,
	TSK伝票明細F.相手勘定CD AS 相手勘定CD, TDA勘定科目M.勘定名称 AS 相手勘定名称,
	TSK伝票明細F.摘要CD,
	TSK伝票F.伝票番号,
	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 (SELECT * FROM TDA勘定科目M
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.相手勘定CD = TDA勘定科目M.勘定CD
LEFT OUTER JOIN (
	SELECT システムCD, 演習CD, 会社CD, 会社名称, 会社略名称
	FROM TDA会社M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
	UNION
	SELECT システムCD, 演習CD, 摘要CD, 摘要, 摘要
	FROM TTK摘要M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) 摘要会社 ON
--LEFT OUTER JOIN TDA会社M 摘要会社 ON
	TSK伝票明細F.システムCD = 摘要会社.システムCD AND
	TSK伝票明細F.演習CD = 摘要会社.演習CD AND
	TSK伝票明細F.摘要CD = 摘要会社.会社CD
WHERE TSK伝票F.システムCD = @システムCD AND
	TSK伝票F.演習CD = @演習CD AND
	TSK伝票F.会社CD = @会社CD AND
	TSK伝票明細F.勘定CD = @勘定CD AND
	TSK伝票F.取引日 >= @開始日 AND
	TSK伝票F.取引日 <= @終了日 AND
	TSK伝票F.削除フラグ = 0 AND
	(@摘要CD = '' OR (TSK伝票明細F.摘要CD = @摘要CD OR TSK伝票F.取引先CD = @摘要CD))
ORDER BY TSK伝票F.取引日, TSK伝票F.伝票処理区分, TSK伝票F.伝票区分, TSK伝票F.伝票番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_財務諸表
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @開始日 datetime, @終了日 datetime, @勘定区分 varchar(1), @繰越損益区分 int
, @集計区分 int	--集計する伝票処理区分をトグルするフラグ（081021小野）
--@集計区分 =  0 ・・・期首残高のみ
--@集計区分 =  1 ・・・整理記入を含まない
--@集計区分 =  9 ・・・振替記入を含まない
--@集計区分 = 10 ・・・振替記入を含む

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

if @開始日 = ''
begin
	SET @開始日 = '1900/01/01'
end
if @終了日 = ''
begin
	SET @終了日 = '2038/01/01'
end

SELECT TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.勘定CD
	, MIN(TDA勘定科目M.勘定区分) AS 勘定区分
	, MIN(TDA勘定科目M.勘定細目) AS 勘定細目
	, MIN(TDA勘定科目M.勘定名称) AS 勘定名称
	, MIN(TDA勘定科目M.貸借区分) AS 貸借区分
	, MIN(TDA勘定科目M.諸表集計CD) AS 諸表集計CD
	, CASE WHEN MIN(TDA勘定科目M.勘定細目) = 'A' THEN ISNULL(SUM(TSK伝票明細F.借方金額),0) - ISNULL(SUM(TSK伝票明細F.貸方金額),0) ELSE 0 END AS 借方金額
	, CASE WHEN MIN(TDA勘定科目M.勘定細目) <> 'A' THEN ISNULL(SUM(TSK伝票明細F.貸方金額),0) - ISNULL(SUM(TSK伝票明細F.借方金額),0) ELSE 0 END AS 貸方金額
	, MIN(TDA勘定科目M.キャッシュフロー計算書集計CD) AS キャッシュフロー計算書集計CD	--090611小野
	, MIN(TDA勘定科目M.製造原価報告書集計CD) AS 製造原価報告書集計CD	--080313小野
	, MIN(TDA勘定科目M.業種CD) AS 業種CD	--090310小野
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 (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) 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.削除フラグ = 0
	AND TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.取引日 between @開始日 and @終了日
	AND (TDA勘定科目M.勘定区分 = @勘定区分
		OR (TDA勘定科目M.特別勘定区分 = 'DY'
			AND @繰越損益区分 = 1
		)
	)
	AND TSK伝票F.伝票処理区分 <= @集計区分	--指定された伝票処理区分までを含む（081021小野）
GROUP BY TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.勘定CD
	, TDA勘定科目M.勘定区分
	, TDA勘定科目M.勘定細目
	, TDA勘定科目M.勘定名称
	, TDA勘定科目M.貸借区分
	, TDA勘定科目M.諸表集計CD
	, TDA勘定科目M.キャッシュフロー計算書集計CD
	, TDA勘定科目M.製造原価報告書集計CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記帳簿_財務諸表2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @開始日  datetime,  @終了日 datetime ,@勘定区分 varchar(1),@繰越損益区分 int
, @集計区分 int	--集計する伝票処理区分をトグルするフラグ（081021小野）
--@集計区分 =  0 ・・・期首残高のみ
--@集計区分 =  1 ・・・整理記入を含まない
--@集計区分 =  9 ・・・振替記入を含まない
--@集計区分 = 10 ・・・振替記入を含む

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

--製造部対応のため業種を取得（080331小野）
declare @業種CD varchar(1)
select @業種CD = (SELECT 業種CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
if @業種CD <> 'B'
begin
	select @業種CD = 'S'	--管理部・運送会社も勘定科目業種は'S'
end	

if @開始日 = ''
begin
	SET @開始日 = '1900/01/01'
end
if @終了日 = ''
begin
	SET @終了日 = '2038/01/01'
end

SELECT TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.勘定CD
	, MIN(TDA勘定科目M.勘定区分) AS 勘定区分
	, MIN(TDA勘定科目M.勘定細目) AS 勘定細目
	, MIN(TDA勘定科目M.勘定名称) AS 勘定名称
	, MIN(TDA勘定科目M.貸借区分) AS 貸借区分
	, MIN(TDA勘定科目M.諸表集計CD) AS 諸表集計CD
	--資産勘定は借方から貸方を引く
	, CASE WHEN MIN(TDA勘定科目M.勘定細目) = 'A' THEN ISNULL(SUM(TSK伝票明細F.借方金額),0) - ISNULL(SUM(TSK伝票明細F.貸方金額),0) ELSE 0 END AS 借方金額
	, CASE WHEN MIN(TDA勘定科目M.勘定細目) <> 'A' THEN ISNULL(SUM(TSK伝票明細F.貸方金額),0) - ISNULL(SUM(TSK伝票明細F.借方金額),0) ELSE 0 END AS 貸方金額
	--, CASE WHEN MIN(TDA勘定科目M.貸借区分) = 'D' THEN ISNULL(SUM(TSK伝票明細F.借方金額),0) - ISNULL(SUM(TSK伝票明細F.貸方金額),0) ELSE 0 END AS 借方金額
	--, CASE WHEN MIN(TDA勘定科目M.貸借区分) = 'C' THEN ISNULL(SUM(TSK伝票明細F.貸方金額),0) - ISNULL(SUM(TSK伝票明細F.借方金額),0) ELSE 0 END AS 貸方金額
	, MIN(TDA勘定科目M.キャッシュフロー計算書集計CD) AS キャッシュフロー計算書集計CD	--090611小野
	, MIN(TDA勘定科目M.製造原価報告書集計CD) AS 製造原価報告書集計CD	--080313小野
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 (SELECT * FROM (SELECT * FROM TDA勘定科目M
		UNION	--TDA勘定科目会社学生Mを連結（091023小野）
		SELECT * FROM TDA勘定科目会社学生M
		WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
	) TEMP勘定科目M WHERE 業種CD = @業種CD
) TDA勘定科目M	--製造部対応のため業種で絞る（080331小野）
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
WHERE TSK伝票F.削除フラグ = 0
	AND TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.取引日 between @開始日 and @終了日
	AND (TDA勘定科目M.勘定区分 = @勘定区分 OR (TDA勘定科目M.特別勘定区分 = 'DY' AND @繰越損益区分 = 1))
	AND TSK伝票F.伝票処理区分 <= @集計区分	--整理記入・繰越記入それぞれの伝票処理区分までを含む（081021小野）
GROUP BY TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TSK伝票明細F.勘定CD
	, TDA勘定科目M.勘定区分
	, TDA勘定科目M.勘定細目
	, TDA勘定科目M.勘定名称
	, TDA勘定科目M.貸借区分
	, TDA勘定科目M.諸表集計CD
	, TDA勘定科目M.キャッシュフロー計算書集計CD
	, TDA勘定科目M.製造原価報告書集計CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK自動転記補助簿照会
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @チェック区分 varchar(2), @取引先CD varchar(20), @開始日 datetime, @終了日 datetime

AS

if @開始日 = ''
begin
	SET @開始日 = '1900/01/01'
end
if @終了日 = ''
begin
	SET @終了日 = '2038/01/01'
end

SELECT TSK伝票明細F.演習CD
	, TSK伝票明細F.会社CD
	, TDA勘定科目M.チェック区分
	, TSK伝票F.取引日
	, ISNULL(TSK伝票明細F.摘要CD, '') AS 摘要CD
	, 摘要会社.会社名称 AS 取引先名称
	, 摘要会社.会社略名称 AS 取引先略名称
	, ISNULL(TSK伝票明細F.借方金額, 0) AS 借方金額
	, ISNULL(TSK伝票明細F.貸方金額, 0) AS 貸方金額
	, TSK伝票明細F.摘要
	, TSK伝票F.伝票摘要
	, TSK伝票明細F.伝票区分
	, TSK伝票F.伝票処理区分
	, TSK伝票明細F.伝票番号
	, TC9区分M.区分名称
	, TSK伝票F.通常返品区分
	, TSK伝票仕入売上明細F.商品CD
	, TDA商品M.商品名称
	, TSK伝票仕入売上明細F.受注数量 AS 数量
	, TSK伝票仕入売上明細F.受注単価 AS 単価
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.伝票番号
LEFT OUTER 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.伝票番号
	AND (@チェック区分 = 'AG' OR @チェック区分 = 'AH') --仕入帳・売上帳以外では仕入売上明細及び商品Mを結合しない
LEFT OUTER JOIN TDA商品M
	ON TSK伝票仕入売上明細F.システムCD = TDA商品M.システムCD
	AND TSK伝票仕入売上明細F.演習CD = TDA商品M.演習CD
	AND TSK伝票仕入売上明細F.商品CD = TDA商品M.商品CD
--	AND ((@チェック区分 = 'AG' OR @チェック区分 = 'AH') AND TSK伝票仕入売上明細F.商品CD = TDA商品M.商品CD)
LEFT OUTER JOIN (
	SELECT システムCD, 演習CD, 会社CD, 会社名称, 会社略名称
	FROM TDA会社M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
	UNION
	SELECT システムCD, 演習CD, 摘要CD, 摘要, 摘要
	FROM TTK摘要M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) 摘要会社
--LEFT OUTER JOIN TDA会社M
	ON TSK伝票明細F.システムCD = 摘要会社.システムCD
	AND TSK伝票明細F.演習CD = 摘要会社.演習CD
	AND TSK伝票明細F.摘要CD = 摘要会社.会社CD
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
INNER JOIN TC9区分M
	ON TDA勘定科目M.システムCD = TC9区分M.システムCD
	AND TC9区分M.データ識別 = 'チェック区分'
	AND TDA勘定科目M.チェック区分 = TC9区分M.区分CD
WHERE TSK伝票F.削除フラグ = 0
	AND TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND (@チェック区分 = '' OR TDA勘定科目M.チェック区分 = @チェック区分)	--@チェック区分がNULLなら全取得
	AND (ISNULL(TSK伝票明細F.摘要CD, '') LIKE @取引先CD OR @取引先CD = 'ALLALLALLALLALLALL') --全取得フラグ
ORDER BY TDA勘定科目M.チェック区分
	, TSK伝票F.取引日
	, TSK伝票F.伝票処理区分
	--勘定科目の貸借区分によって貸借ソートの優先順をトグルする
	, (CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN
		(CASE WHEN TSK伝票明細F.借方金額 >= TSK伝票明細F.貸方金額 THEN 0 ELSE 1 END)	--借方科目の場合
	ELSE
		(CASE WHEN TSK伝票明細F.借方金額 <= TSK伝票明細F.貸方金額 THEN 0 ELSE 1 END)	--貸方科目の場合
	END)
	, TSK伝票F.伝票番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






















CREATE     PROCEDURE dbo.SPK補助簿_仕入帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
AS
	SELECT          TSK補助簿_仕入帳F.*, TDA会社M.会社略名称 AS 取引先名称, TDA商品M.商品名称, TDA商品M.商品略名称, A.区分名称 AS 返品区分名称
	FROM            TSK補助簿_仕入帳F
	LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '返品区分') A ON TSK補助簿_仕入帳F.システムCD = A.システムCD  AND TSK補助簿_仕入帳F.返品区分 = A.区分CD
	LEFT OUTER JOIN TDA会社M ON TSK補助簿_仕入帳F.システムCD = TDA会社M.システムCD AND TSK補助簿_仕入帳F.演習CD = TDA会社M.演習CD AND TSK補助簿_仕入帳F.取引先CD = TDA会社M.会社CD
	LEFT OUTER 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.会社CD = @会社CD
	ORDER BY     TSK補助簿_仕入帳F.仕入帳CD /*TSK補助簿_仕入帳F.取引日, */













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_仕入帳挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @仕入帳CD varchar(40), @取引日 datetime,
@取引先CD varchar(20), @商品CD varchar(20), @数量 int, @単価 money, @内訳金額 money, @金額 money, @返品区分 varchar(2)

AS

declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(仕入帳CD) AS 仕入帳CD FROM YTMP_TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(仕入帳CD) AS 仕入帳CD FROM YTMP_TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @仕入帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @仕入帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK補助簿_仕入帳F (システムCD, 演習CD, 会社CD, 仕入帳CD, 取引日, 取引先CD, 商品CD ,数量,  単価 ,内訳金額  ,金額  ,返品区分)
VALUES (@システムCD, @演習CD, @会社CD, @仕入帳CD, @取引日, @取引先CD, @商品CD  ,@数量  , @単価  ,@内訳金額  ,@金額  ,@返品区分)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction
SELECT @仕入帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_仕入帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TSK補助簿_仕入帳F
		SELECT      *
		FROM           YTMP_TSK補助簿_仕入帳F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

		DELETE FROM YTMP_TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 会社CD = @会社CD
 and チェック種類 = '3'
 and チェック区分 = 'AH'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3',
 'AH'
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end ) 
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_仕入帳F TT 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD

commit transaction















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_原価計算表取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造指図書CD varchar(20)

AS

SELECT TSK補助簿_原価計算表F.*
FROM TSK補助簿_原価計算表F
WHERE TSK補助簿_原価計算表F.システムCD = @システムCD
	AND TSK補助簿_原価計算表F.演習CD = @演習CD
	AND TSK補助簿_原価計算表F.会社CD = @会社CD
	AND TSK補助簿_原価計算表F.製造指図書CD = @製造指図書CD
ORDER BY TSK補助簿_原価計算表F.原価計算表CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_原価計算表挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造指図書CD varchar(20)
, @原価計算表CD int
, @直接材料費日付 datetime
, @直接材料費摘要 varchar(50)
, @直接材料費 money
, @直接労務費日付 datetime
, @直接労務費摘要 varchar(50)
, @直接労務費 money
, @直接経費日付 datetime
, @直接経費摘要 varchar(50)
, @直接経費 money
, @製造間接費日付 datetime
, @製造間接費摘要 varchar(50)
, @製造間接費 money

AS

declare @番号 int

begin transaction

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

if exists(SELECT MAX(原価計算表CD) AS 原価計算表CD FROM YTMP_TSK補助簿_原価計算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造指図書CD = @製造指図書CD GROUP BY 会社CD, 演習CD, 製造指図書CD)
begin
	SELECT @番号 = (SELECT MAX(原価計算表CD) AS 原価計算表CD FROM YTMP_TSK補助簿_原価計算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造指図書CD = @製造指図書CD GROUP BY 会社CD, 演習CD, 製造指図書CD)
	SELECT @原価計算表CD = @番号 + 1	
end
else
begin
	SELECT @原価計算表CD = 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT YTMP_TSK補助簿_原価計算表F (システムCD, 演習CD, 会社CD, 製造指図書CD, 原価計算表CD, 直接材料費日付, 直接材料費摘要, 直接材料費, 直接労務費日付, 直接労務費摘要, 直接労務費, 直接経費日付, 直接経費摘要, 直接経費, 製造間接費日付, 製造間接費摘要, 製造間接費)
VALUES (@システムCD, @演習CD, @会社CD, @製造指図書CD, @原価計算表CD, @直接材料費日付, @直接材料費摘要, @直接材料費, @直接労務費日付, @直接労務費摘要, @直接労務費, @直接経費日付, @直接経費摘要, @直接経費, @製造間接費日付, @製造間接費摘要, @製造間接費)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @原価計算表CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_原価計算表更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造指図書CD varchar(20)

AS

begin transaction

DELETE FROM TSK補助簿_原価計算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造指図書CD = @製造指図書CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK補助簿_原価計算表F
SELECT *
FROM YTMP_TSK補助簿_原価計算表F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造指図書CD = @製造指図書CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK補助簿_原価計算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造指図書CD = @製造指図書CD

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_受取手形記入帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
	SELECT          TSK補助簿_受取手形記入帳F.*, 振出人.会社略名称 AS 振出人名称, 支払人.会社略名称 AS 支払人名称, 
	                      支払場所.会社略名称 AS 支払場所名称, A.区分名称 AS 手形種類名称
	FROM            TSK補助簿_受取手形記入帳F
	LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '手形種類略区分') A ON TSK補助簿_受取手形記入帳F.システムCD = A.システムCD  AND TSK補助簿_受取手形記入帳F.手形種類区分 = A.区分CD  
	LEFT OUTER JOIN TDA会社M 振出人 ON TSK補助簿_受取手形記入帳F.システムCD = 振出人.システムCD AND TSK補助簿_受取手形記入帳F.演習CD = 振出人.演習CD AND TSK補助簿_受取手形記入帳F.振出人または裏書人 = 振出人.会社CD 
	LEFT OUTER JOIN TDA会社M 支払人 ON TSK補助簿_受取手形記入帳F.システムCD = 支払人.システムCD AND TSK補助簿_受取手形記入帳F.演習CD = 支払人.演習CD AND TSK補助簿_受取手形記入帳F.支払人 = 支払人.会社CD 
	LEFT OUTER JOIN TDA会社M 支払場所 ON TSK補助簿_受取手形記入帳F.システムCD = 支払場所.システムCD AND TSK補助簿_受取手形記入帳F.演習CD = 支払場所.演習CD AND TSK補助簿_受取手形記入帳F.支払場所 = 支払場所.会社CD 
	WHERE           TSK補助簿_受取手形記入帳F.システムCD = @システムCD AND TSK補助簿_受取手形記入帳F.演習CD = @演習CD AND TSK補助簿_受取手形記入帳F.会社CD = @会社CD
	ORDER BY     TSK補助簿_受取手形記入帳F.受取手形記入帳CD /* TSK補助簿_受取手形記入帳F.取引日, */









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPK補助簿_受取手形記入帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @受取手形記入帳CD  varchar(40), @取引日 datetime
,@摘要 varchar(100), @金額 money, @手形種類区分 varchar(2), @手形番号 varchar(10),@支払人 varchar(20)
,@振出人または裏書人 varchar(20),@振出日 smalldatetime,@満期日 smalldatetime,@支払場所 varchar(50)
,@顛末日付 smalldatetime ,@顛末摘要 varchar(100)

AS

declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(受取手形記入帳CD) AS 受取手形記入帳CD FROM YTMP_TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(受取手形記入帳CD) AS 受取手形記入帳CD FROM YTMP_TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @受取手形記入帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @受取手形記入帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT YTMP_TSK補助簿_受取手形記入帳F (システムCD, 演習CD, 会社CD, 受取手形記入帳CD, 取引日, 摘要, 金額,  手形種類区分, 手形番号,  支払人,  振出人または裏書人,  振出日,  満期日,  支払場所,  顛末日付,  顛末摘要)
	VALUES (@システムCD, @演習CD, @会社CD, @受取手形記入帳CD, @取引日, @摘要, @金額, @手形種類区分, @手形番号,  @支払人,  @振出人または裏書人,  @振出日,  @満期日,  @支払場所,  @顛末日付,  @顛末摘要)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_受取手形記入帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TSK補助簿_受取手形記入帳F
		SELECT   *
		FROM           YTMP_TSK補助簿_受取手形記入帳F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
	
if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 会社CD = @会社CD
 and チェック種類 = '3'
 and チェック区分 = 'AE'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3',
'AE', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_受取手形記入帳F TT
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
UNION
select
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_受取手形記入帳F TT 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
 and TT.顛末日付 is not null
) a

commit transaction















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_商品有高帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @商品CD varchar(20)

AS
	SELECT          TSK補助簿_商品有高帳F.*, 取引先.会社略名称 AS 取引先名称, A.区分名称 AS 受払区分名称
	FROM            TSK補助簿_商品有高帳F
	LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '受払区分') A ON TSK補助簿_商品有高帳F.システムCD = A.システムCD  AND TSK補助簿_商品有高帳F.受払区分 = A.区分CD  
	LEFT OUTER JOIN TDA会社M 取引先 ON TSK補助簿_商品有高帳F.システムCD = 取引先.システムCD AND TSK補助簿_商品有高帳F.演習CD = 取引先.演習CD AND TSK補助簿_商品有高帳F.取引先CD = 取引先.会社CD
	WHERE           TSK補助簿_商品有高帳F.システムCD = @システムCD AND TSK補助簿_商品有高帳F.演習CD = @演習CD AND TSK補助簿_商品有高帳F.会社CD = @会社CD AND TSK補助簿_商品有高帳F.商品CD = @商品CD
	ORDER BY    TSK補助簿_商品有高帳F.商品有高帳CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_商品有高帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @商品有高帳CD  varchar(40), @商品有高帳計算区分 varchar(2), @単位 varchar(20)
,@取引日 datetime,@取引先CD varchar(20)
,@商品CD varchar(20), @受払区分 varchar(2)
,@受入単価 money, @受入数量 int, @受入金額 money
,@払出単価 money, @払出数量 int, @払出金額 money
,@残高単価 money, @残高数量 int, @残高金額 money

AS

declare @番号 int

begin transaction


if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(商品有高帳CD) AS 商品有高帳CD FROM YTMP_TSK補助簿_商品有高帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(商品有高帳CD) AS 商品有高帳CD FROM YTMP_TSK補助簿_商品有高帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @商品有高帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @商品有高帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT YTMP_TSK補助簿_商品有高帳F (システムCD, 演習CD, 会社CD, 商品有高帳CD, 商品有高帳計算区分, 取引日, 取引先CD ,商品CD ,受払区分
		,受入数量 ,受入単価 ,受入金額 ,払出数量 ,払出単価 ,払出金額 ,残高数量 ,残高単価 ,残高金額, 単位)
	VALUES (@システムCD, @演習CD, @会社CD, @商品有高帳CD, @商品有高帳計算区分, @取引日, @取引先CD ,@商品CD ,@受払区分
		,@受入数量 ,@受入単価 ,@受入金額 ,@払出数量 ,@払出単価 ,@払出金額 ,@残高数量 ,@残高単価 ,@残高金額, @単位)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_商品有高帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @商品CD varchar(20)

AS
begin transaction

	DELETE FROM TSK補助簿_商品有高帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 商品CD = @商品CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TSK補助簿_商品有高帳F
		SELECT   *
		FROM           YTMP_TSK補助簿_商品有高帳F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 商品CD = @商品CD
	
if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK補助簿_商品有高帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 商品CD = @商品CD

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO
















CREATE     PROCEDURE dbo.SPK補助簿_売上帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
AS
	SELECT          TSK補助簿_売上帳F.*, TDA会社M.会社略名称 AS 取引先名称, TDA商品M.商品名称, TDA商品M.商品略名称, A.区分名称 AS 返品区分名称
	FROM            TSK補助簿_売上帳F
	LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '返品区分') A ON TSK補助簿_売上帳F.システムCD = A.システムCD  AND TSK補助簿_売上帳F.返品区分 = A.区分CD
	LEFT OUTER JOIN TDA会社M ON TSK補助簿_売上帳F.システムCD = TDA会社M.システムCD AND TSK補助簿_売上帳F.演習CD = TDA会社M.演習CD AND TSK補助簿_売上帳F.取引先CD = TDA会社M.会社CD
	LEFT OUTER 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.会社CD = @会社CD
	ORDER BY     TSK補助簿_売上帳F.売上帳CD /* TSK補助簿_売上帳F.取引日, */













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_売上帳挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @売上帳CD  varchar(40), @取引日 datetime,
@取引先CD varchar(20), @商品CD varchar(20), @数量 int, @単価 money, @内訳金額 money, @金額 money, @返品区分 varchar(2)

AS

declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(売上帳CD) AS 売上帳CD FROM YTMP_TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(売上帳CD) AS 売上帳CD FROM YTMP_TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @売上帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @売上帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK補助簿_売上帳F (システムCD, 演習CD, 会社CD, 売上帳CD, 取引日, 取引先CD, 商品CD ,数量,  単価 ,内訳金額  ,金額  ,返品区分)
VALUES (@システムCD, @演習CD, @会社CD, @売上帳CD, @取引日, @取引先CD, @商品CD  ,@数量  , @単価  ,@内訳金額  ,@金額  ,@返品区分)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction
SELECT @売上帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_売上帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TSK補助簿_売上帳F
		SELECT      *
		FROM           YTMP_TSK補助簿_売上帳F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

	if @@error <> 0
	   begin
	       rollback transaction
	       select -1  return
	   end

		DELETE FROM YTMP_TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 会社CD = @会社CD
 and チェック種類 = '3'
 and チェック区分 = 'AG'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3',
 'AG'
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end ) 
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_売上帳F TT 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD

commit transaction















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPK補助簿_売掛金元帳取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @取引先CD varchar(40)

AS

SELECT TSK補助簿_売掛金元帳F.*
	, A.区分名称 AS 貸借略区分名称
	, TDA会社M.市場CD
FROM TSK補助簿_売掛金元帳F
INNER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '貸借略区分') A
	ON TSK補助簿_売掛金元帳F.システムCD = A.システムCD
	AND TSK補助簿_売掛金元帳F.貸借区分 = A.区分CD  
--INNER JOIN TDA会社M --小売販売取得のため内部結合ではダメ
LEFT OUTER 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.会社CD = @会社CD
	AND (@取引先CD = '' OR TSK補助簿_売掛金元帳F.取引先CD = @取引先CD)
	AND (TDA会社M.会社CD IS NOT NULL OR TSK補助簿_売掛金元帳F.取引先CD = 'SJ4KOURIHANBAI') --小売販売会社を取得
ORDER BY TSK補助簿_売掛金元帳F.取引先CD, TSK補助簿_売掛金元帳F.売掛金元帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK補助簿_売掛金元帳取得_取引先別残高一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TSK補助簿_売掛金元帳F.取引先CD
	, ISNULL(SUM(ISNULL(TSK補助簿_売掛金元帳F.借方金額, 0)), 0) AS 借方金額
	, ISNULL(SUM(ISNULL(TSK補助簿_売掛金元帳F.貸方金額, 0)), 0) AS 貸方金額
	, ISNULL(SUM(ISNULL(TSK補助簿_売掛金元帳F.借方金額, 0) - ISNULL(TSK補助簿_売掛金元帳F.貸方金額, 0)), 0) AS 残高
FROM TSK補助簿_売掛金元帳F
WHERE TSK補助簿_売掛金元帳F.システムCD = @システムCD AND TSK補助簿_売掛金元帳F.演習CD = @演習CD AND TSK補助簿_売掛金元帳F.会社CD = @会社CD
GROUP BY TSK補助簿_売掛金元帳F.取引先CD
ORDER BY TSK補助簿_売掛金元帳F.取引先CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_売掛金元帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @売掛金元帳CD  varchar(40), @取引日 datetime,@取引先CD varchar(20)
,@摘要 varchar(100), @借方金額 money, @貸方金額 money, @貸借区分 varchar(2), @残高 money
AS

declare @番号 int

begin transaction

	if exists(SELECT 売掛金元帳CD FROM YTMP_TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	begin
		SELECT @番号 = (SELECT MAX(売掛金元帳CD) AS 売掛金元帳CD FROM YTMP_TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @売掛金元帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @売掛金元帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK補助簿_売掛金元帳F (システムCD, 演習CD, 会社CD, 売掛金元帳CD, 取引日, 取引先CD,摘要, 借方金額, 貸方金額, 貸借区分,残高)
VALUES (@システムCD, @演習CD, @会社CD, @売掛金元帳CD, @取引日,@取引先CD,@摘要, @借方金額, @貸方金額, @貸借区分,@残高)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


CREATE PROCEDURE dbo.SPK補助簿_売掛金元帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @取引先CD varchar(20)
AS

begin transaction

DELETE FROM TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引先CD = @取引先CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK補助簿_売掛金元帳F (システムCD, 演習CD, 会社CD, 売掛金元帳CD, 取引日, 取引先CD, 摘要, 借方金額, 貸方金額, 貸借区分, 残高)
SELECT     システムCD, 演習CD, 会社CD, 売掛金元帳CD, 取引日, 取引先CD, 摘要, 借方金額, 貸方金額, 貸借区分, 残高
FROM           YTMP_TSK補助簿_売掛金元帳F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引先CD = @取引先CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引先CD = @取引先CD

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
	and 演習CD = @演習CD
	and 会社CD = @会社CD
	and チェック種類 = '3'
	and チェック区分 = 'AC'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3',
 'AC'
, sum(TSK補助簿_売掛金元帳F.借方金額)
, sum(TSK補助簿_売掛金元帳F.貸方金額)
, isnull(sum(TSK補助簿_売掛金元帳F.借方金額),0) - isnull(sum(TSK補助簿_売掛金元帳F.貸方金額),0)
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.会社CD = @会社CD

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_小口現金出納帳取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

SELECT *
FROM TSK補助簿_小口現金出納帳F
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
ORDER BY 小口現金出納帳CD



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_小口現金出納帳挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @小口現金出納帳CD varchar(40)
, @受入 money
, @取引日 datetime
, @摘要 varchar(100)
, @支払 money
, @通信費 money
, @交通費 money
, @消耗品費 money
, @水道光熱費 money
, @その他 money

AS

declare @番号 int

begin transaction

if exists(SELECT MAX(小口現金出納帳CD) AS 小口現金出納帳CD FROM YTMP_TSK補助簿_小口現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
begin
	SELECT @番号 = (SELECT MAX(小口現金出納帳CD) AS 小口現金出納帳CD FROM YTMP_TSK補助簿_小口現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	SELECT @小口現金出納帳CD = @番号 + 1	
end
else
begin
	SELECT @小口現金出納帳CD = 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT YTMP_TSK補助簿_小口現金出納帳F (システムCD, 演習CD, 会社CD, 小口現金出納帳CD, 受入, 取引日, 摘要, 支払, 通信費, 交通費, 消耗品費, 水道光熱費, その他)
VALUES (@システムCD, @演習CD, @会社CD, @小口現金出納帳CD, @受入, @取引日, @摘要, @支払, @通信費, @交通費, @消耗品費, @水道光熱費, @その他)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @小口現金出納帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_小口現金出納帳更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

DELETE FROM TSK補助簿_小口現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK補助簿_小口現金出納帳F
SELECT *
FROM YTMP_TSK補助簿_小口現金出納帳F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
	
if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK補助簿_小口現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

--記帳チェック用集計データ挿入
DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 会社CD = @会社CD
 and チェック種類 = '3'
 and チェック区分 = 'AI'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3',
 'AI'
, sum(TT.受入)
, sum(TT.支払)
, isnull(sum(TT.受入),0) - isnull(sum(TT.支払),0)
FROM TSK補助簿_小口現金出納帳F  TT 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
	
commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_当座預金出納帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),@銀行CD varchar(40)

AS

SELECT TSK補助簿_当座預金出納帳F.*
	, A.区分名称 AS 貸借略名称
FROM TSK補助簿_当座預金出納帳F
LEFT JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '貸借略区分') A
	ON TSK補助簿_当座預金出納帳F.システムCD = A.システムCD
	AND TSK補助簿_当座預金出納帳F.貸借区分 = A.区分CD
WHERE TSK補助簿_当座預金出納帳F.システムCD = @システムCD
	AND TSK補助簿_当座預金出納帳F.演習CD = @演習CD
	AND TSK補助簿_当座預金出納帳F.会社CD = @会社CD
	AND (@銀行CD = '' OR TSK補助簿_当座預金出納帳F.銀行CD = @銀行CD)
ORDER BY TSK補助簿_当座預金出納帳F.当座預金出納帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_当座預金出納帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @当座預金出納帳CD  varchar(40), @取引日 datetime,@銀行CD varchar(20)
,@摘要 varchar(100), @小切手NO varchar(10),@預入金額 money, @引出金額 money, @貸借区分 varchar(2),@残高 money

AS

declare @番号 int
begin transaction

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(当座預金出納帳CD) AS 当座預金出納帳CD FROM YTMP_TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(当座預金出納帳CD) AS 当座預金出納帳CD FROM YTMP_TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @当座預金出納帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @当座預金出納帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT YTMP_TSK補助簿_当座預金出納帳F (システムCD, 演習CD, 会社CD, 当座預金出納帳CD, 取引日, 銀行CD,摘要, 小切手NO, 預入金額, 払出金額, 貸借区分, 残高)
	VALUES (@システムCD, @演習CD, @会社CD, @当座預金出納帳CD, @取引日,@銀行CD, @摘要,  @小切手NO,@預入金額, @引出金額, @貸借区分,@残高)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPK補助簿_当座預金出納帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),@銀行CD varchar(20)

AS
begin transaction

DELETE FROM TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 銀行CD = @銀行CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK補助簿_当座預金出納帳F
SELECT     *
FROM           YTMP_TSK補助簿_当座預金出納帳F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 銀行CD = @銀行CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 銀行CD = @銀行CD

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
	and 演習CD = @演習CD
	and 会社CD = @会社CD
	and チェック種類 = '3'
	and チェック区分 = 'AB'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3',
 'AB'
, sum(TSK補助簿_当座預金出納帳F.預入金額)
, sum(TSK補助簿_当座預金出納帳F.払出金額)
, isnull(sum(TSK補助簿_当座預金出納帳F.預入金額),0) - isnull(sum(TSK補助簿_当座預金出納帳F.払出金額),0)
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.会社CD = @会社CD

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPK補助簿_支払手形記入帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
	SELECT          TSK補助簿_支払手形記入帳F.*, 振出人.会社略名称 AS 振出人名称, 受取人.会社略名称 AS 受取人名称, 
	                      支払場所.会社略名称 AS 支払場所名称, A.区分名称 AS 手形種類名称
	FROM            TSK補助簿_支払手形記入帳F
	LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '手形種類略区分') A ON TSK補助簿_支払手形記入帳F.システムCD = A.システムCD  AND TSK補助簿_支払手形記入帳F.手形種類区分 = A.区分CD  
	LEFT OUTER JOIN TDA会社M 振出人 ON TSK補助簿_支払手形記入帳F.システムCD = 振出人.システムCD AND TSK補助簿_支払手形記入帳F.演習CD = 振出人.演習CD AND TSK補助簿_支払手形記入帳F.振出人 = 振出人.会社CD 
	LEFT OUTER JOIN TDA会社M 受取人 ON TSK補助簿_支払手形記入帳F.システムCD = 受取人.システムCD AND TSK補助簿_支払手形記入帳F.演習CD = 受取人.演習CD AND TSK補助簿_支払手形記入帳F.受取人 = 受取人.会社CD 
	LEFT OUTER JOIN TDA会社M 支払場所 ON TSK補助簿_支払手形記入帳F.システムCD = 支払場所.システムCD AND TSK補助簿_支払手形記入帳F.演習CD = 支払場所.演習CD AND TSK補助簿_支払手形記入帳F.支払場所 = 支払場所.会社CD 
	WHERE           TSK補助簿_支払手形記入帳F.システムCD = @システムCD AND TSK補助簿_支払手形記入帳F.演習CD = @演習CD AND TSK補助簿_支払手形記入帳F.会社CD = @会社CD
	ORDER BY      TSK補助簿_支払手形記入帳F.支払手形記入帳CD /* TSK補助簿_支払手形記入帳F.取引日, */









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_支払手形記入帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @支払手形記入帳CD  varchar(40), @取引日 datetime
,@摘要 varchar(100), @金額 money, @手形種類区分 varchar(2), @手形番号 varchar(10),@受取人 varchar(20)
,@振出人 varchar(20),@振出日 smalldatetime,@満期日 smalldatetime,@支払場所 varchar(50)
,@顛末日付 smalldatetime ,@顛末摘要 varchar(100)

AS

declare @番号 int

begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(支払手形記入帳CD) AS 支払手形記入帳CD FROM YTMP_TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(支払手形記入帳CD) AS 支払手形記入帳CD FROM YTMP_TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @支払手形記入帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @支払手形記入帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT YTMP_TSK補助簿_支払手形記入帳F (システムCD, 演習CD, 会社CD, 支払手形記入帳CD, 取引日, 摘要, 金額, 手形種類区分, 手形番号,  受取人,  振出人,  振出日,  満期日,  支払場所,  顛末日付,  顛末摘要)
	VALUES (@システムCD, @演習CD, @会社CD, @支払手形記入帳CD, @取引日, @摘要, @金額, @手形種類区分, @手形番号,  @受取人,  @振出人,  @振出日,  @満期日,  @支払場所,  @顛末日付,  @顛末摘要)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_支払手形記入帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TSK補助簿_支払手形記入帳F
		SELECT   *
		FROM           YTMP_TSK補助簿_支払手形記入帳F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
	
if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end
	DELETE FROM YTMP_TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 会社CD = @会社CD
 and チェック種類 = '3'
 and チェック区分 = 'AF'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3',
'AF', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_支払手形記入帳F TT
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
UNION
select
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) 
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_支払手形記入帳F TT 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
 and TT.顛末日付 is not null
) a

commit transaction















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_期首残高削除
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

--勘定残高設定で取引先を変更した後に補助簿の更新を行うと
--変更前の取引先のレコードが残ってしまうので更新前に一旦全削除する

AS

begin transaction

DELETE FROM TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 当座預金出納帳CD = 0
DELETE FROM TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 買掛金元帳CD = 0
DELETE FROM TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 売掛金元帳CD = 0

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_期首残高挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @取引日 datetime
, @摘要 varchar(12)
, @現金出納帳収入金額 money
, @現金出納帳支出金額 money
, @現金出納帳残高 money
, @受取手形記入帳金額 money
, @受取手形記入帳手形種類区分 varchar(2)
, @受取手形記入帳手形番号 varchar(10)
, @受取手形記入帳支払人 varchar(20)
, @受取手形記入帳振出人または裏書人 varchar(20)
, @受取手形記入帳振出日 smalldatetime
, @受取手形記入帳満期日 smalldatetime
, @受取手形記入帳支払場所 varchar(50)
, @受取手形記入帳顛末日付 smalldatetime
, @受取手形記入帳顛末摘要 varchar(20)
, @支払手形記入帳金額 money
, @支払手形記入帳手形種類区分 varchar(2)
, @支払手形記入帳手形番号 varchar(10)
, @支払手形記入帳受取人 varchar(20)
, @支払手形記入帳振出人 varchar(20)
, @支払手形記入帳振出日 smalldatetime
, @支払手形記入帳満期日 smalldatetime
, @支払手形記入帳支払場所 varchar(50)
, @支払手形記入帳顛末日付 smalldatetime
, @支払手形記入帳顛末摘要 varchar(20)
, @売上帳取引先CD varchar(20)
, @売上帳商品CD varchar(20)
, @売上帳数量 int
, @売上帳単価 money
, @売上帳内訳金額 money
, @売上帳金額 money
, @売上帳返品区分 varchar(2)
, @仕入帳取引先CD varchar(20)
, @仕入帳商品CD varchar(20)
, @仕入帳数量 int
, @仕入帳単価 money
, @仕入帳内訳金額 money
, @仕入帳金額 money
, @仕入帳返品区分 varchar(2)


AS

begin transaction


--現金出納帳

DELETE FROM TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 現金出納帳CD = 0

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

if @現金出納帳残高 IS NOT NULL
begin
	INSERT TSK補助簿_現金出納帳F (システムCD, 演習CD, 会社CD, 現金出納帳CD, 取引日, 摘要, 収入金額, 支出金額, 残高)
	VALUES (@システムCD, @演習CD, @会社CD, 0, @取引日, @摘要, @現金出納帳収入金額, @現金出納帳支出金額, @現金出納帳残高)
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end


--受取手形記入帳

DELETE FROM TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 受取手形記入帳CD = 0

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

if @受取手形記入帳金額 IS NOT NULL
begin
	INSERT TSK補助簿_受取手形記入帳F (システムCD, 演習CD, 会社CD, 受取手形記入帳CD, 取引日, 摘要, 金額, 手形種類区分, 手形番号, 支払人, 振出人または裏書人, 振出日, 満期日, 支払場所, 顛末日付, 顛末摘要)
	VALUES (@システムCD, @演習CD, @会社CD, 0, @取引日, @摘要, @受取手形記入帳金額, @受取手形記入帳手形種類区分, @受取手形記入帳手形番号, @受取手形記入帳支払人, @受取手形記入帳振出人または裏書人, @受取手形記入帳振出日, @受取手形記入帳満期日, @受取手形記入帳支払場所, @受取手形記入帳顛末日付,  @受取手形記入帳顛末摘要)
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end


--支払手形記入帳

DELETE FROM TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 支払手形記入帳CD = 0

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

if @支払手形記入帳金額 IS NOT NULL
begin
	INSERT TSK補助簿_支払手形記入帳F (システムCD, 演習CD, 会社CD, 支払手形記入帳CD, 取引日, 摘要, 金額, 手形種類区分, 手形番号, 受取人, 振出人, 振出日, 満期日, 支払場所, 顛末日付, 顛末摘要)
	VALUES (@システムCD, @演習CD, @会社CD, 0, @取引日, @摘要, @支払手形記入帳金額, @支払手形記入帳手形種類区分, @支払手形記入帳手形番号, @支払手形記入帳受取人, @支払手形記入帳振出人, @支払手形記入帳振出日, @支払手形記入帳満期日, @支払手形記入帳支払場所, @支払手形記入帳顛末日付,  @支払手形記入帳顛末摘要)
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

--売上帳

DELETE FROM TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 売上帳CD = 0

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

if @売上帳金額 IS NOT NULL
begin
	INSERT TSK補助簿_売上帳F (システムCD, 演習CD, 会社CD, 売上帳CD, 取引日, 取引先CD, 商品CD, 数量, 単価, 内訳金額, 金額, 返品区分)
	VALUES (@システムCD, @演習CD, @会社CD, 0, @取引日, @売上帳取引先CD, @売上帳商品CD, @売上帳数量, @売上帳単価, @売上帳内訳金額, @売上帳金額, @売上帳返品区分)
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end


--仕入帳

DELETE FROM TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 仕入帳CD = 0

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

if @仕入帳金額 IS NOT NULL
begin
	INSERT TSK補助簿_仕入帳F (システムCD, 演習CD, 会社CD, 仕入帳CD, 取引日, 取引先CD, 商品CD, 数量, 単価, 内訳金額, 金額, 返品区分)
	VALUES (@システムCD, @演習CD, @会社CD, 0, @取引日, @仕入帳取引先CD, @仕入帳商品CD, @仕入帳数量, @仕入帳単価, @仕入帳内訳金額, @仕入帳金額, @仕入帳返品区分)
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end


commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_期首残高挿入売掛金元帳
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @取引日 datetime
, @摘要 varchar(12)
, @売掛金元帳取引先CD varchar(20)
, @売掛金元帳借方金額 money
, @売掛金元帳貸方金額 money
, @売掛金元帳貸借区分 varchar(2)
, @売掛金元帳残高 money

AS

begin transaction

if (@売掛金元帳残高 IS NOT NULL AND @売掛金元帳取引先CD <> '' AND @売掛金元帳取引先CD IS NOT NULL)
begin
	INSERT TSK補助簿_売掛金元帳F (システムCD, 演習CD, 会社CD, 取引先CD, 売掛金元帳CD, 取引日, 摘要, 借方金額, 貸方金額, 貸借区分, 残高)
	VALUES (@システムCD, @演習CD, @会社CD, @売掛金元帳取引先CD, 0, @取引日, @摘要, @売掛金元帳借方金額, @売掛金元帳貸方金額, @売掛金元帳貸借区分, @売掛金元帳残高)
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_期首残高挿入当座預金出納帳
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @取引日 datetime
, @摘要 varchar(12)
, @当座預金出納帳銀行CD varchar(20)
, @当座預金出納帳小切手NO varchar(10)
, @当座預金出納帳預入金額 money
, @当座預金出納帳引出金額 money
, @当座預金出納帳貸借区分 varchar(2)
, @当座預金出納帳残高 money

AS

begin transaction

if (@当座預金出納帳残高 IS NOT NULL AND @当座預金出納帳銀行CD <> '' AND @当座預金出納帳銀行CD IS NOT NULL)
begin
	INSERT TSK補助簿_当座預金出納帳F (システムCD, 演習CD, 会社CD, 当座預金出納帳CD, 取引日, 銀行CD, 摘要, 小切手NO, 預入金額, 払出金額, 貸借区分, 残高)
	VALUES (@システムCD, @演習CD, @会社CD, 0, @取引日, @当座預金出納帳銀行CD, @摘要,  @当座預金出納帳小切手NO, @当座預金出納帳預入金額, @当座預金出納帳引出金額, @当座預金出納帳貸借区分, @当座預金出納帳残高)
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPK補助簿_期首残高挿入買掛金元帳
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @取引日 datetime
, @摘要 varchar(12)
, @買掛金元帳取引先CD varchar(20)
, @買掛金元帳借方金額 money
, @買掛金元帳貸方金額 money
, @買掛金元帳貸借区分 varchar(2)
, @買掛金元帳残高 money

AS

begin transaction

if (@買掛金元帳残高 IS NOT NULL AND @買掛金元帳取引先CD <> '' AND @買掛金元帳取引先CD IS NOT NULL)
begin
	INSERT TSK補助簿_買掛金元帳F (システムCD, 演習CD, 会社CD, 取引先CD, 買掛金元帳CD, 取引日, 摘要, 借方金額, 貸方金額, 貸借区分, 残高)
	VALUES (@システムCD, @演習CD, @会社CD, @買掛金元帳取引先CD, 0, @取引日, @摘要, @買掛金元帳借方金額, @買掛金元帳貸方金額, @買掛金元帳貸借区分, @買掛金元帳残高)
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_材料仕入帳取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TSK補助簿_材料仕入帳F.*
FROM TSK補助簿_材料仕入帳F
WHERE TSK補助簿_材料仕入帳F.システムCD = @システムCD
	AND TSK補助簿_材料仕入帳F.演習CD = @演習CD
	AND TSK補助簿_材料仕入帳F.会社CD = @会社CD
ORDER BY TSK補助簿_材料仕入帳F.材料仕入帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_材料仕入帳挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @材料仕入帳CD varchar(40)
, @取引日 datetime
, @摘要 varchar(40)
, @素材 money
, @買入部品 money
, @工場消耗品 money
, @元丁 varchar(4)
, @買掛金 money
, @諸口 money

AS

declare @番号 int

begin transaction

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

if exists(SELECT MAX(材料仕入帳CD) AS 材料仕入帳CD FROM YTMP_TSK補助簿_材料仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
begin
	SELECT @番号 = (SELECT MAX(材料仕入帳CD) AS 材料仕入帳CD FROM YTMP_TSK補助簿_材料仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	SELECT @材料仕入帳CD = @番号 + 1	
end
else
begin
	SELECT @材料仕入帳CD = 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT YTMP_TSK補助簿_材料仕入帳F (システムCD, 演習CD, 会社CD, 材料仕入帳CD, 取引日, 摘要, 素材, 買入部品, 工場消耗品, 元丁, 買掛金, 諸口)
VALUES (@システムCD, @演習CD, @会社CD, @材料仕入帳CD, @取引日, @摘要, @素材, @買入部品, @工場消耗品, @元丁, @買掛金, @諸口)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @材料仕入帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_材料仕入帳更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

DELETE FROM TSK補助簿_材料仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK補助簿_材料仕入帳F
SELECT *
FROM YTMP_TSK補助簿_材料仕入帳F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK補助簿_材料仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_材料元帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @材料CD varchar(20)

AS

SELECT TSK補助簿_材料元帳F.*, 取引先.会社略名称 AS 取引先名称, A.区分名称 AS 受払区分名称
FROM TSK補助簿_材料元帳F
LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '受払区分') A
	ON TSK補助簿_材料元帳F.システムCD = A.システムCD
	AND TSK補助簿_材料元帳F.受払区分 = A.区分CD  
LEFT OUTER JOIN TDA会社M 取引先
	ON TSK補助簿_材料元帳F.システムCD = 取引先.システムCD
	AND TSK補助簿_材料元帳F.演習CD = 取引先.演習CD
	AND TSK補助簿_材料元帳F.取引先CD = 取引先.会社CD
WHERE TSK補助簿_材料元帳F.システムCD = @システムCD
	AND TSK補助簿_材料元帳F.演習CD = @演習CD
	AND TSK補助簿_材料元帳F.会社CD = @会社CD
	AND TSK補助簿_材料元帳F.材料CD = @材料CD
ORDER BY TSK補助簿_材料元帳F.材料元帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_材料元帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
, @材料元帳CD varchar(40), @材料元帳計算区分 varchar(2), @単位 varchar(20)
, @取引日 datetime, @取引先CD varchar(20)
, @材料CD varchar(20), @受払区分 varchar(2)
, @受入単価 money, @受入数量 int, @受入金額 money
, @払出単価 money, @払出数量 int, @払出金額 money
, @残高単価 money, @残高数量 int, @残高金額 money

AS

declare @番号 int

begin transaction

if exists(SELECT MAX(材料元帳CD) AS 材料元帳CD FROM YTMP_TSK補助簿_材料元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 材料CD = @材料CD GROUP BY 会社CD, 演習CD, 材料CD)
begin
	SELECT @番号 = (SELECT MAX(材料元帳CD) AS 材料元帳CD FROM YTMP_TSK補助簿_材料元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 材料CD = @材料CD GROUP BY 会社CD, 演習CD, 材料CD)
	SELECT @材料元帳CD = @番号 + 1	
end
else
begin
	SELECT @材料元帳CD = 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT YTMP_TSK補助簿_材料元帳F (システムCD, 演習CD, 会社CD, 材料元帳CD, 材料元帳計算区分, 取引日, 取引先CD ,材料CD ,受払区分
	,受入数量 ,受入単価 ,受入金額 ,払出数量 ,払出単価 ,払出金額 ,残高数量 ,残高単価 ,残高金額, 単位)
VALUES (@システムCD, @演習CD, @会社CD, @材料元帳CD, @材料元帳計算区分, @取引日, @取引先CD ,@材料CD ,@受払区分
	,@受入数量 ,@受入単価 ,@受入金額 ,@払出数量 ,@払出単価 ,@払出金額 ,@残高数量 ,@残高単価 ,@残高金額, @単位)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_材料元帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @材料CD varchar(20)

AS

begin transaction

DELETE FROM TSK補助簿_材料元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 材料CD = @材料CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK補助簿_材料元帳F
SELECT *
FROM YTMP_TSK補助簿_材料元帳F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 材料CD = @材料CD
	
if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK補助簿_材料元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 材料CD = @材料CD

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_現金出納帳取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)
AS
	SELECT          現金出納帳CD, 摘要, 取引日, 収入金額, 支出金額, 残高
	FROM            TSK補助簿_現金出納帳F
	WHERE           システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
	ORDER BY   /*  取引日, */現金出納帳CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_現金出納帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @現金出納帳CD  varchar(40), @取引日 datetime
,@摘要 varchar(100), @収入金額 money, @支出金額 money, @残高 money
AS
declare @番号 int
begin transaction

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	if exists(SELECT MAX(現金出納帳CD) AS 現金出納帳CD FROM YTMP_TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(現金出納帳CD) AS 現金出納帳CD FROM YTMP_TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @現金出納帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @現金出納帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	INSERT YTMP_TSK補助簿_現金出納帳F (システムCD, 演習CD, 会社CD, 現金出納帳CD, 取引日, 摘要, 収入金額, 支出金額, 残高)
	VALUES (@システムCD, @演習CD, @会社CD, @現金出納帳CD, @取引日, @摘要, @収入金額, @支出金額, @残高)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction
SELECT @現金出納帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPK補助簿_現金出納帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	DELETE FROM TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TSK補助簿_現金出納帳F
		SELECT   *
		FROM           YTMP_TSK補助簿_現金出納帳F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
	
if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

	DELETE FROM YTMP_TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 会社CD = @会社CD
 and チェック種類 = '3'
 and チェック区分 = 'AA'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3',
 'AA'
, sum(TT.収入金額)
, sum(TT.支出金額)
, isnull(sum(TT.収入金額),0) - isnull(sum(TT.支出金額),0)
FROM TSK補助簿_現金出納帳F  TT 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD


commit transaction















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_製造間接費配賦表取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TSK補助簿_製造間接費配賦表F.*
FROM TSK補助簿_製造間接費配賦表F
WHERE TSK補助簿_製造間接費配賦表F.システムCD = @システムCD
	AND TSK補助簿_製造間接費配賦表F.演習CD = @演習CD
	AND TSK補助簿_製造間接費配賦表F.会社CD = @会社CD
ORDER BY TSK補助簿_製造間接費配賦表F.製造間接費配賦表CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_製造間接費配賦表挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @製造間接費配賦表CD varchar(40)
, @取引日 datetime
, @製造指図書 varchar(20)
, @配賦率 money
, @配賦基準 money
, @配賦額 money
, @摘要 varchar(40)

AS

declare @番号 int

begin transaction

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

if exists(SELECT MAX(製造間接費配賦表CD) AS 製造間接費配賦表CD FROM YTMP_TSK補助簿_製造間接費配賦表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
begin
	SELECT @番号 = (SELECT MAX(製造間接費配賦表CD) AS 製造間接費配賦表CD FROM YTMP_TSK補助簿_製造間接費配賦表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	SELECT @製造間接費配賦表CD = @番号 + 1	
end
else
begin
	SELECT @製造間接費配賦表CD = 1
end 

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT YTMP_TSK補助簿_製造間接費配賦表F (システムCD, 演習CD, 会社CD, 製造間接費配賦表CD, 取引日, 製造指図書, 配賦率, 配賦基準, 配賦額, 摘要)
VALUES (@システムCD, @演習CD, @会社CD, @製造間接費配賦表CD, @取引日, @製造指図書, @配賦率, @配賦基準, @配賦額, @摘要)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @製造間接費配賦表CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_製造間接費配賦表更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

DELETE FROM TSK補助簿_製造間接費配賦表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK補助簿_製造間接費配賦表F
SELECT *
FROM YTMP_TSK補助簿_製造間接費配賦表F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK補助簿_製造間接費配賦表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPK補助簿_買掛金元帳取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @取引先CD varchar(40)

AS

SELECT TSK補助簿_買掛金元帳F.*
	, A.区分名称 AS 貸借略区分名称
	, TDA会社M.市場CD
FROM TSK補助簿_買掛金元帳F
INNER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '貸借略区分') A
	ON TSK補助簿_買掛金元帳F.システムCD = A.システムCD
	AND TSK補助簿_買掛金元帳F.貸借区分 = A.区分CD  
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.会社CD = @会社CD
	AND (@取引先CD = '' OR TSK補助簿_買掛金元帳F.取引先CD = @取引先CD)
ORDER BY TSK補助簿_買掛金元帳F.取引先CD, TSK補助簿_買掛金元帳F.買掛金元帳CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK補助簿_買掛金元帳取得_取引先別残高一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TSK補助簿_買掛金元帳F.取引先CD
	, ISNULL(SUM(ISNULL(TSK補助簿_買掛金元帳F.借方金額, 0)), 0) AS 借方金額
	, ISNULL(SUM(ISNULL(TSK補助簿_買掛金元帳F.貸方金額, 0)), 0) AS 貸方金額
	, ISNULL(SUM(ISNULL(TSK補助簿_買掛金元帳F.借方金額, 0) - ISNULL(TSK補助簿_買掛金元帳F.貸方金額, 0)), 0) AS 残高
FROM TSK補助簿_買掛金元帳F
WHERE TSK補助簿_買掛金元帳F.システムCD = @システムCD AND TSK補助簿_買掛金元帳F.演習CD = @演習CD AND TSK補助簿_買掛金元帳F.会社CD = @会社CD
GROUP BY TSK補助簿_買掛金元帳F.取引先CD
ORDER BY TSK補助簿_買掛金元帳F.取引先CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK補助簿_買掛金元帳挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @買掛金元帳CD  varchar(40), @取引日 datetime,@取引先CD varchar(20)
,@摘要 varchar(100), @借方金額 money, @貸方金額 money, @貸借区分 varchar(2), @残高 money
AS

declare @番号 int

begin transaction

	if exists(SELECT MAX(買掛金元帳CD) AS 買掛金元帳CD FROM YTMP_TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	begin
		SELECT @番号 = (SELECT MAX(買掛金元帳CD) AS 買掛金元帳CD FROM YTMP_TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @買掛金元帳CD = @番号 + 1	
	end
	else
	begin
		SELECT @買掛金元帳CD = 1
	end 

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

INSERT YTMP_TSK補助簿_買掛金元帳F (システムCD, 演習CD, 会社CD, 買掛金元帳CD, 取引日, 取引先CD,摘要, 借方金額, 貸方金額, 貸借区分,残高)
VALUES (@システムCD, @演習CD, @会社CD, @買掛金元帳CD, @取引日,@取引先CD,@摘要, @借方金額, @貸方金額, @貸借区分,@残高)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPK補助簿_買掛金元帳更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @取引先CD varchar(20)
AS

begin transaction

DELETE FROM TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 取引先CD = @取引先CD 

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TSK補助簿_買掛金元帳F (システムCD, 演習CD, 会社CD, 買掛金元帳CD, 取引日, 取引先CD, 摘要, 借方金額, 貸方金額, 貸借区分, 残高)
SELECT システムCD, 演習CD, 会社CD, 買掛金元帳CD, 取引日, 取引先CD, 摘要, 借方金額, 貸方金額, 貸借区分, 残高
FROM YTMP_TSK補助簿_買掛金元帳F
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  取引先CD = @取引先CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

DELETE FROM YTMP_TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  取引先CD = @取引先CD

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
	and 演習CD = @演習CD
	and 会社CD = @会社CD
	and チェック種類 = '3'
	and チェック区分 = 'AD'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select @システムCD, @演習CD, @会社CD, '3'
, 'AD'
, sum(TSK補助簿_買掛金元帳F.借方金額)
, sum(TSK補助簿_買掛金元帳F.貸方金額)
, isnull(sum(TSK補助簿_買掛金元帳F.貸方金額),0) - isnull(sum(TSK補助簿_買掛金元帳F.借方金額),0)
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.会社CD = @会社CD

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK領収書一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @領収書状態区分 varchar(2), @文書種類CD varchar(2)

AS

--begin transaction

/*　TG 小切手　TK 為替領収書　TY 約束領収書　*/

	SELECT          TSA領収書F.*, 発行人.会社略名称 AS 発行人名称, 受取人.会社略名称 AS 受取人名称
	FROM            TSA領収書F 
	LEFT OUTER JOIN TDA会社M 発行人
		ON TSA領収書F.システムCD = 発行人.システムCD
		AND TSA領収書F.演習CD = 発行人.演習CD
		AND TSA領収書F.発行人CD = 発行人.会社CD 
	LEFT OUTER JOIN TDA会社M 受取人
		ON TSA領収書F.システムCD = 受取人.システムCD
		AND TSA領収書F.演習CD = 受取人.演習CD
		AND TSA領収書F.受取人CD = 受取人.会社CD 
	WHERE TSA領収書F.システムCD = @システムCD
		AND TSA領収書F.演習CD = @演習CD
		AND (
			(/* 受取一覧 */
			@領収書状態区分 = 'TU' AND 文書種類CD = @文書種類CD AND TSA領収書F.送受信区分 IN ('R', 'U')
			)
			OR 
			(/* 支払一覧 */
			@領収書状態区分 = 'TF' AND 文書種類CD = @文書種類CD AND TSA領収書F.送受信区分 = 'S'
			)
			OR 
			(/* 引受一覧 */
			@領収書状態区分 = 'TH' AND 文書種類CD = @文書種類CD AND TSA領収書F.送受信区分 = 'H'
			)
			OR 
			(/* 受取履歴 */
			@領収書状態区分 = 'TX' AND 文書種類CD IN ('TY', 'TK') AND TSA領収書F.送受信区分 IN ('R', 'U')
			)
			OR 
			(/* 支払履歴 */
			@領収書状態区分 = 'TY' AND ((文書種類CD = 'TY' AND TSA領収書F.送受信区分 = 'S') OR (文書種類CD = 'TK' AND TSA領収書F.送受信区分 = 'H'))
			)
		)
		AND (@会社CD = '' OR TSA領収書F.会社CD = @会社CD) --NULLなら全会社（171121小野）
	ORDER BY     TSA領収書F.取引日, TSA領収書F.文書種類CD, TSA領収書F.文書内容CD

--commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




















CREATE PROCEDURE dbo.SPK領収書削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

	UPDATE TSA領収書F 
	SET 削除フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
	作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE         TTX文書F
	SET                削除フラグ = 1
	FROM            TTX文書F INNER JOIN TSA領収書F ON 
              TTX文書F.システムCD = TSA領収書F.システムCD AND 
              TTX文書F.演習CD = TSA領収書F.演習CD AND 
              TTX文書F.会社CD = TSA領収書F.会社CD AND 
              TTX文書F.作成会社CD = TSA領収書F.作成会社CD AND 
              TTX文書F.文書種類CD = TSA領収書F.文書種類CD AND 
              TTX文書F.文書内容CD = TSA領収書F.文書内容CD
	WHERE 
              (TSA領収書F.システムCD = @システムCD) AND
              (TSA領収書F.演習CD = @演習CD) AND
              (TSA領収書F.会社CD = @会社CD) AND
              (TSA領収書F.作成会社CD = @作成会社CD) AND
              (TSA領収書F.文書種類CD = @文書種類CD) AND
              (TSA領収書F.文書内容CD = @文書内容CD)




















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO





















CREATE  PROCEDURE dbo.SPK領収書取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction

	SELECT          TSA領収書F.*, 発行人.会社名称 AS 発行人名称, 受取人.会社名称 AS 受取人名称
	FROM            TSA領収書F 
	LEFT OUTER JOIN TDA会社M 発行人 ON TSA領収書F.システムCD = 発行人.システムCD AND TSA領収書F.演習CD = 発行人.演習CD AND TSA領収書F.発行人CD = 発行人.会社CD 
	LEFT OUTER JOIN TDA会社M 受取人 ON TSA領収書F.システムCD = 受取人.システムCD AND TSA領収書F.演習CD = 受取人.演習CD AND TSA領収書F.受取人CD = 受取人.会社CD 
	WHERE TSA領収書F.システムCD = @システムCD AND TSA領収書F.演習CD = @演習CD AND TSA領収書F.会社CD = @会社CD 
	AND TSA領収書F.作成会社CD = @作成会社CD AND TSA領収書F.文書種類CD = @文書種類CD AND TSA領収書F.文書内容CD = @文書内容CD 


commit transaction










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPK領収書挿入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @作成会社CD varchar(20),  @文書種類CD varchar(2), @文書内容CD varchar(20)
,@送受信区分 varchar(2)
,@発行人CD varchar(20), @受取人CD varchar(20)
,@取引日 datetime
,@金額 money, @摘要 varchar(80), @学生番号 varchar(20) 

AS

declare @番号 int

begin transaction

	if @文書内容CD = ''
	begin
		SET @番号 = 1
		While @番号 <= 10000
		begin
			if not(exists(SELECT 文書内容CD FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = Convert(varchar, @番号)))
			begin
				SET @文書内容CD = Convert(varchar, @番号)
				Break
			end
			SET @番号 = @番号 + 1
		end
	end 

DELETE FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書内容CD = @文書内容CD AND 送受信区分 = @送受信区分 AND 文書種類CD = @文書種類CD

INSERT INTO TSA領収書F (システムCD, 演習CD, 会社CD, 作成会社CD, 文書内容CD, 送受信区分, 文書種類CD, 発行人CD, 受取人CD, 取引日, 金額, 摘要, 発行フラグ, 開封フラグ, 削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @文書内容CD, @送受信区分, @文書種類CD, @発行人CD, @受取人CD, @取引日, @金額, @摘要, 0, 0, 0, @学生番号)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction

SELECT @文書内容CD








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO










CREATE  PROCEDURE dbo.SPK領収書更新

@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @作成会社CD varchar(20),  @文書種類CD varchar(2), @文書内容CD varchar(20)
,@送受信区分 varchar(2)
,@発行人CD varchar(20), @受取人CD varchar(20)
,@取引日 datetime
,@金額 money, @摘要 varchar(80), @学生番号 varchar(20)

AS

	UPDATE TSA領収書F 
	SET 受取人CD = @受取人CD, 取引日 = @取引日, 金額 = @金額, 摘要 = @摘要
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND
	作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE  PROCEDURE dbo.SPK領収書発信
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20),
@次会社CD varchar(20), @発行フラグ smallint, @処理日 datetime,
@顛末区分 varchar(12)
AS

declare @番号 int
declare @文書CD int
declare @文書内容SEQ int
declare @学生番号 varchar(20)

begin transaction
	if @次会社CD = ''
	begin
		SELECT @次会社CD = (SELECT 受取人CD FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

	if @処理日 is null
	begin
		SELECT @処理日 = (SELECT 取引日 FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end
	

	SET @学生番号=''
	if @学生番号 = ''
	begin
		SELECT @学生番号 = (SELECT 学生番号 FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD)
	end

if not(exists(SELECT * FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @次会社CD AND 作成会社CD = @作成会社CD AND 文書内容CD = @文書内容CD AND 送受信区分 = 'R' AND 文書種類CD = @文書種類CD))
begin

	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'S')
	end
	else
	begin
		select @番号 = 0
	end 

	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, 'S', @文書CD, @会社CD, @次会社CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)




	SELECT * INTO #TMP_TSA領収書F FROM TSA領収書F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE #TMP_TSA領収書F SET 会社CD = @次会社CD, 送受信区分 = 'R'
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	INSERT INTO TSA領収書F SELECT * FROM #TMP_TSA領収書F
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @次会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

	UPDATE TSA領収書F SET 発行フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD


	if exists(SELECT 文書CD FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @次会社CD AND 送受信区分 = 'R')
	begin
		select @番号 = (SELECT MAX(CONVERT(int, 文書CD)) FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @次会社CD AND 送受信区分 = 'R')
	end
	else
	begin
		select @番号 = 0
	end 
	
	SET @文書CD = @番号 + 1

	INSERT INTO TTX文書F (システムCD, 演習CD, 会社CD, 送受信区分, 文書CD, 作成会社CD, 取引先CD, 処理日, 文書種類CD, [文書内容CD], 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @次会社CD, 'R', @文書CD, @会社CD, @次会社CD, @処理日, @文書種類CD, @文書内容CD, 0, 0, @学生番号)

end

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end






commit transaction

select @文書内容SEQ







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPK領収書返却
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction

--発行会社（作成会社）のレコードを差し戻す
UPDATE TSA領収書F
SET 発行フラグ = 0
WHERE システムCD = @システムCD AND 演習CD = @演習CD
	AND 会社CD = @作成会社CD AND 作成会社CD = @作成会社CD
	AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--発行会社（作成会社）の発信文書レコードを削除する
DELETE FROM TTX文書F
FROM TTX文書F
INNER JOIN TSA領収書F
	ON TTX文書F.システムCD = TSA領収書F.システムCD
	AND TTX文書F.演習CD = TSA領収書F.演習CD
	AND TTX文書F.会社CD = TSA領収書F.作成会社CD
	AND TTX文書F.作成会社CD = TSA領収書F.作成会社CD
	AND TTX文書F.文書種類CD = TSA領収書F.文書種類CD
	AND TTX文書F.文書内容CD = TSA領収書F.文書内容CD
WHERE TSA領収書F.システムCD = @システムCD AND TSA領収書F.演習CD = @演習CD
	AND TSA領収書F.会社CD = @作成会社CD AND TSA領収書F.作成会社CD = @作成会社CD
	AND TSA領収書F.文書種類CD = @文書種類CD AND TSA領収書F.文書内容CD = @文書内容CD
	AND TTX文書F.取引先CD = @会社CD AND TTX文書F.送受信区分 = 'S'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--受取会社の受信文書レコードを削除する
DELETE FROM TTX文書F
FROM TTX文書F
INNER JOIN TSA領収書F
	ON TTX文書F.システムCD = TSA領収書F.システムCD
	AND TTX文書F.演習CD = TSA領収書F.演習CD
	AND TTX文書F.会社CD = TSA領収書F.会社CD
	AND TTX文書F.作成会社CD = TSA領収書F.作成会社CD
	AND TTX文書F.文書種類CD = TSA領収書F.文書種類CD
	AND TTX文書F.文書内容CD = TSA領収書F.文書内容CD
WHERE TSA領収書F.システムCD = @システムCD AND TSA領収書F.演習CD = @演習CD
	AND TSA領収書F.会社CD = @会社CD AND TSA領収書F.作成会社CD = @作成会社CD
	AND TSA領収書F.文書種類CD = @文書種類CD AND TSA領収書F.文書内容CD = @文書内容CD
	AND TTX文書F.取引先CD = @会社CD AND TTX文書F.送受信区分 = 'R'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

--受取会社のレコードを削除する
DELETE
FROM TSA領収書F
WHERE システムCD = @システムCD AND 演習CD = @演習CD
	AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD
	AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




















CREATE PROCEDURE dbo.SPK領収書開封
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

		UPDATE         TTX文書F
		SET                開封フラグ = 1
		FROM            TTX文書F INNER JOIN
                      TSA領収書F ON 
                      TTX文書F.システムCD = TSA領収書F.システムCD AND 
                      TTX文書F.演習CD = TSA領収書F.演習CD AND 
                      TTX文書F.会社CD = TSA領収書F.会社CD AND
                      TTX文書F.作成会社CD = TSA領収書F.作成会社CD AND
                      TTX文書F.文書種類CD = TSA領収書F.文書種類CD AND 
                      TTX文書F.文書内容CD = TSA領収書F.文書内容CD
		WHERE           (TSA領収書F.システムCD = @システムCD) AND 
                      (TSA領収書F.演習CD = @演習CD) AND 
                      (TSA領収書F.会社CD = @会社CD) AND 
                      (TSA領収書F.作成会社CD = @作成会社CD) AND 
                      (TSA領収書F.文書種類CD = @文書種類CD) AND 
                      (TSA領収書F.文書内容CD = @文書内容CD)




















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL_分析情報取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20) ,@会社区分 smallint

AS
begin transaction

if @会社区分 = 9
begin
		SELECT    TC9区分M.区分CD AS 分析用区分,  TC9区分M.区分名称 AS 名称, SUM(ISNULL(TTL合併残高F.借方金額, 0) 
                      + ISNULL(TTL合併残高F.貸方金額, 0) 
                      * CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN 1 ELSE - 1 END) 
                      AS 金額
		FROM            TTL合併残高F INNER JOIN
                      TDA勘定科目M ON
                      TTL合併残高F.システムCD = TDA勘定科目M.システムCD AND 
                      TTL合併残高F.演習CD = TDA勘定科目M.演習CD AND 
                      TTL合併残高F.勘定CD = TDA勘定科目M.勘定CD INNER JOIN
                      TC9区分M ON TDA勘定科目M.システムCD = TC9区分M.システムCD AND TDA勘定科目M.分析用区分 = TC9区分M.区分CD
		WHERE          (TTL合併残高F.システムCD = @システムCD AND TTL合併残高F.演習CD = @演習CD) AND (TTL合併残高F.会社CD = @会社CD) AND (TC9区分M.データ識別 = '分析用区分') 
		GROUP BY     TC9区分M.区分CD, TC9区分M.区分名称
end
else
begin
		SELECT    TC9区分M.区分CD AS 分析用区分,  TC9区分M.区分名称 AS 名称, SUM(ISNULL(TTL合併残高F.借方金額, 0) 
                      + ISNULL(TTL合併残高F.貸方金額, 0) 
                      * CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN 1 ELSE - 1 END) 
                      AS 金額
		FROM            TTL合併残高F INNER JOIN
                      TDA勘定科目M ON 
                      TTL合併残高F.システムCD = TDA勘定科目M.システムCD AND 
                      TTL合併残高F.演習CD = TDA勘定科目M.演習CD AND 
                      TTL合併残高F.勘定CD = TDA勘定科目M.勘定CD INNER JOIN
                      TC9区分M ON TDA勘定科目M.システムCD = TC9区分M.システムCD AND TDA勘定科目M.分析用区分 = TC9区分M.区分CD
		WHERE          (TTL合併残高F.システムCD = @システムCD AND TTL合併残高F.演習CD = @演習CD)
			 AND (TTL合併残高F.会社CD = @会社CD)
			 AND (TTL合併残高F.会社区分 = @会社区分)
			 AND (TC9区分M.データ識別 = '分析用区分') 
		GROUP BY     TC9区分M.区分CD, TC9区分M.区分名称
end

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL合併残高F_削除
@システムCD varchar(12), @演習CD      varchar(12)        ,  @会社CD  varchar(20),    @学生番号  varchar(12)
 AS

/* 対象データの削除 */
delete 
from TTL合併残高F
where   システムCD     =   @システムCD
    and  演習CD     =   @演習CD
    and  会社CD     =   @会社CD 
    and  学生番号   =   @学生番号

if @@error <> 0
   begin
       select -1  return
   end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL合併残高F_登録
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @学生番号  varchar(12)
, @WEB演習CD varchar(12), @WEB会社CD varchar(20), @WEB学生番号 varchar(12)
, @会社区分 smallint, @勘定CD varchar(25), @借方金額 money, @貸方金額 money
 AS

/* １．合併残高データ登録 */
INSERT INTO TTL合併残高F (システムCD, 演習CD, 会社CD, 学生番号, WEB演習CD, WEB会社CD, WEB学生番号, 会社区分, 勘定CD, 借方金額, 貸方金額)
VALUES (@システムCD, @演習CD, @会社CD, @学生番号, @WEB演習CD, @WEB会社CD, @WEB学生番号, @会社区分, @勘定CD, @借方金額, @貸方金額)

if @@error <> 0
   begin
       select -1  return
   end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL合併残高情報取得 
@システムCD varchar(12), @演習CD  varchar(12) , @会社CD  varchar(20) , @学生番号  varchar(12) 

/*
+   TL合併残高取得
+   
*/

AS

SELECT WEB演習CD,WEB会社CD
FROM TTL合併残高F 
  where TTL合併残高F.システムCD = @システムCD AND TTL合併残高F.演習CD = @演習CD
     and TTL合併残高F.会社CD = @会社CD
     and  TTL合併残高F.学生番号 = @学生番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL合併精算表挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(12)
,@勘定CD varchar(25), @借方金額 money, @貸方金額 money
,@WEB演習CD varchar(12), @WEB会社CD  varchar(12)

AS

begin transaction

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

INSERT INTO YTMP_TTL合併残高F (システムCD, 学生番号, 演習CD, 会社CD, 会社区分, 勘定CD, 借方金額, 貸方金額, WEB演習CD, WEB会社CD, WEB学生番号)
VALUES (@システムCD, @学生番号, @演習CD, @会社CD, 9, @勘定CD, @借方金額, @貸方金額, @WEB演習CD, @WEB会社CD, @学生番号)

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

commit transaction
	SELECT 0













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL合併精算表更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(12)

AS
begin transaction

	if exists(SELECT * FROM TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 学生番号 = @学生番号 AND 会社区分 = 9 )
	begin
		DELETE FROM TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 学生番号 = @学生番号 AND 会社区分 = 9
	end
	
if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

		INSERT INTO TTL合併残高F
		SELECT   *
		FROM            YTMP_TTL合併残高F
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 学生番号 = @学生番号

if @@error <> 0
   begin
       rollback transaction
       select -1  return
   end

		DELETE FROM  YTMP_TTL合併残高F  WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  学生番号 = @学生番号

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL合併財務諸表
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(12) ,@勘定区分 varchar(1)

AS

declare @期首勘定CD varchar(25)
declare @仕入勘定CD varchar(25)
declare @期末勘定CD varchar(25)


	SET @期首勘定CD = ( SELECT 勘定CD FROM TDA勘定科目M where システムCD = @システムCD and 演習CD = @演習CD and 特別勘定区分 = 'DG')
	SET @仕入勘定CD = ( SELECT 勘定CD FROM TDA勘定科目M where システムCD = @システムCD and 演習CD = @演習CD and 特別勘定区分 = 'DL')
	SET @期末勘定CD = ( SELECT 勘定CD FROM TDA勘定科目M where システムCD = @システムCD and 演習CD = @演習CD and 特別勘定区分 = 'DH')


create table #meisai 
(
   勘定CD varchar(25)  null
,  本社借方       money      
,  本社貸方       money      
,  支店借方       money      
,  支店貸方       money      
,  整理借方       money      
,  整理貸方       money      
)

create table #total
(
   勘定CD varchar(25)  null
,  本社借方       money      
,  本社貸方       money      
,  支店借方       money      
,  支店貸方       money      
,  整理借方       money      
,  整理貸方       money      
)

/* 指定演習CD・会社のデータ抽出  */
/* データ  ==> #meisai  */
insert #meisai 
select CASE WHEN 勘定CD IN (@期首勘定CD,@仕入勘定CD,@期末勘定CD)  THEN @仕入勘定CD ELSE 勘定CD END AS 勘定CD
,case 会社区分 when 0 then  isnull(借方金額,0)  else  0 end as 本社借方
,case 会社区分 when 0 then  isnull(貸方金額,0)  else  0 end as 本社貸方
,case 会社区分 when 1 then  isnull(借方金額,0)  else  0 end as 支店借方
,case 会社区分 when 1 then  isnull(貸方金額,0)  else  0 end as 支店貸方
,0
,0
FROM  TTL合併残高F 
where システムCD = @システムCD and 演習CD = @演習CD and 会社CD = @会社CD and 学生番号 = @学生番号

insert #meisai 
select 勘定CD,0,0,0,0
,case 会社区分 when 9 then isnull(借方金額,0) else 0 end as 整理借方
,case 会社区分 when 9 then isnull(貸方金額,0) else 0 end as 整理貸方
FROM TTL合併残高F 
where 演習CD = @演習CD and 会社CD = @会社CD and 学生番号 = @学生番号

insert #total 
select
  #meisai.勘定CD,
CASE WHEN 勘定CD = @仕入勘定CD THEN isnull(SUM(本社借方), 0) - isnull(SUM(本社貸方), 0) ELSE isnull(SUM(本社借方), 0) END, 
CASE WHEN 勘定CD = @仕入勘定CD THEN 0 ELSE isnull(SUM(本社貸方), 0) END, 
CASE WHEN 勘定CD = @仕入勘定CD THEN isnull(SUM(支店借方), 0) - isnull(SUM(支店貸方), 0) ELSE isnull(SUM(支店借方), 0) END, 
CASE WHEN 勘定CD = @仕入勘定CD THEN 0 ELSE isnull(SUM(支店貸方), 0) END
 , isnull(sum(整理借方),0)
 , isnull(sum(整理貸方),0)
FROM  #meisai  
group by #meisai.勘定CD

DELETE FROM #total WHERE 本社借方 = 0 AND 本社貸方 = 0 AND 支店借方 = 0 AND 支店貸方 = 0 AND 整理借方 = 0 AND 整理貸方 = 0

SELECT #total.*
 , TDA勘定科目M.勘定区分 AS 勘定区分, TDA勘定科目M.勘定細目 AS 勘定細目
 , TDA勘定科目M.勘定名称 AS 勘定名称, TDA勘定科目M.貸借区分 AS 貸借区分
 , TDA勘定科目M.諸表集計CD AS 諸表集計CD 
FROM #total , TDA勘定科目M
WHERE TDA勘定科目M.システムCD = @システムCD AND TDA勘定科目M.演習CD = @演習CD
 AND #total.勘定CD = TDA勘定科目M.勘定CD
 AND TDA勘定科目M.勘定区分 like @勘定区分
ORDER BY #total.勘定CD










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL合併財務諸表2区分
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(12) ,@勘定区分 varchar(1)

AS

create table #meisai 
(
   勘定CD        varchar(25)  null
,  本社借方       money      
,  本社貸方       money      
,  支店借方       money      
,  支店貸方       money      
,  整理借方       money      
,  整理貸方       money      
)

create table #total
(
   勘定CD        varchar(25)  null
,  本社借方       money      
,  本社貸方       money      
,  支店借方       money      
,  支店貸方       money      
,  整理借方       money      
,  整理貸方       money      
)

/* 指定演習CD・会社のデータ抽出  */
/* データ  ==> #meisai  */
insert #meisai 
select
   勘定CD
,case  会社区分 when 0 then  isnull(借方金額,0)  else  0 end as 本社借方
,case  会社区分 when 0 then  isnull(貸方金額,0)  else  0 end as 本社貸方
,case  会社区分 when 1 then  isnull(借方金額,0)  else  0 end as 支店借方
,case  会社区分 when 1 then  isnull(貸方金額,0)  else  0 end as 支店貸方
,case  会社区分 when 9 then  isnull(借方金額,0)  else  0 end as 整理借方
,case  会社区分 when 9 then  isnull(貸方金額,0)  else  0 end as 整理貸方
FROM  TTL合併残高F 
where  演習CD       =   @演習CD
 and    会社CD       =    @会社CD
 and    学生番号     =   @学生番号

insert #total 
select
  #meisai.勘定CD
 , isnull(sum(本社借方),0)
 , isnull(sum(本社貸方),0)
 , isnull(sum(支店借方),0)
 , isnull(sum(支店貸方),0)
 , isnull(sum(整理借方),0)
 , isnull(sum(整理貸方),0)
FROM  #meisai  
group by #meisai.勘定CD

SELECT #total.* 
 , TDA勘定科目M.勘定区分 AS 勘定区分, TDA勘定科目M.勘定細目 AS 勘定細目
 , TDA勘定科目M.勘定名称 AS 勘定名称, TDA勘定科目M.貸借区分 AS 貸借区分
 , TDA勘定科目M.諸表集計CD AS 諸表集計CD 
FROM #total , TDA勘定科目M
WHERE 
 TDA勘定科目M.システムCD = @システムCD AND TDA勘定科目M.演習CD = @演習CD AND #total.勘定CD = TDA勘定科目M.勘定CD AND TDA勘定科目M.勘定区分 like @勘定区分
ORDER BY #total.勘定CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPL損益分岐点取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20) , @会社区分 smallint

AS
begin transaction

if @会社区分 = 9 
begin
		SELECT          TC9区分M.区分名称 AS 名称, SUM(ISNULL(TTL合併残高F.借方金額, 0) 
                      + ISNULL(TTL合併残高F.貸方金額, 0) 
                      * CASE WHEN TDA勘定科目M.貸借区分 = 'C' THEN 1 ELSE - 1 END) 
                      AS 金額
		FROM            TTL合併残高F INNER JOIN
                      TDA勘定科目M ON 
                      TTL合併残高F.システムCD = TDA勘定科目M.システムCD AND 
                      TTL合併残高F.演習CD = TDA勘定科目M.演習CD AND 
                      TTL合併残高F.勘定CD = TDA勘定科目M.勘定CD INNER JOIN
                      TC9区分M ON TDA勘定科目M.システムCD = TC9区分M.システムCD AND TDA勘定科目M.費用区分 = TC9区分M.区分CD
		WHERE           (TTL合併残高F.システムCD = @システムCD AND TTL合併残高F.演習CD = @演習CD) AND (TTL合併残高F.会社CD = @会社CD) AND (TC9区分M.データ識別 = '費用区分') 
		GROUP BY     TC9区分M.区分名称
end
else
begin
		SELECT          TC9区分M.区分名称 AS 名称, SUM(ISNULL(TTL合併残高F.借方金額, 0) 
                      + ISNULL(TTL合併残高F.貸方金額, 0) 
                      * CASE WHEN TDA勘定科目M.貸借区分 = 'C' THEN 1 ELSE - 1 END) 
                      AS 金額
		FROM            TTL合併残高F INNER JOIN
                      TDA勘定科目M ON 
                      TTL合併残高F.システムCD = TDA勘定科目M.システムCD AND 
                      TTL合併残高F.演習CD = TDA勘定科目M.演習CD AND 
                      TTL合併残高F.勘定CD = TDA勘定科目M.勘定CD INNER JOIN
                      TC9区分M ON TDA勘定科目M.システムCD = TC9区分M.システムCD AND TDA勘定科目M.費用区分 = TC9区分M.区分CD
		WHERE                  (TTL合併残高F.システムCD = @システムCD AND TTL合併残高F.演習CD = @演習CD)
				 AND (TTL合併残高F.会社CD = @会社CD)
				 AND (TTL合併残高F.会社区分 = @会社区分)
				 AND (TC9区分M.データ識別 = '費用区分') 
		GROUP BY     TC9区分M.区分名称
		ORDER BY      TC9区分M.区分名称
end
commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



















CREATE  PROCEDURE dbo.SPL残高取得_SJ合計残高試算表及び整理記入
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @開始日  datetime,  @終了日 datetime 

AS
if @開始日 = ''
begin
	SET @開始日 = '1900/01/01'
end
if @終了日 = ''
begin
	SET @終了日 = '2038/01/01'
end

SELECT          TSK伝票明細F.演習CD, TSK伝票明細F.会社CD, TSK伝票明細F.勘定CD, 
                      MIN(TDA勘定科目M.勘定名称) AS 勘定名称, 
                      MIN(TDA勘定科目M.貸借区分) AS 貸借区分,
                      MIN(TDA勘定科目M.分析用区分) AS 分析用区分, 
                      SUM(TSK伝票明細F.借方金額) AS 借方金額, 
                      SUM(TSK伝票明細F.貸方金額) AS 貸方金額, 
  SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN ISNULL(TSK伝票明細F.借方金額, 0) - ISNULL(TSK伝票明細F.貸方金額, 0) ELSE 0 END) AS 借方残高, 
  SUM(CASE WHEN TDA勘定科目M.貸借区分 = 'D' THEN 0 ELSE ISNULL(TSK伝票明細F.貸方金額, 0) - ISNULL(TSK伝票明細F.借方金額, 0) END) AS 貸方残高
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.伝票番号
--                      AND TSK伝票F.伝票番号 <> '9999999' 
                      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.削除フラグ = 0
		and TSK伝票F.システムCD       =   @システムCD
		and TSK伝票F.演習CD       =   @演習CD
		and TSK伝票F.会社CD       =   @会社CD
--		and TSK伝票F.伝票処理区分 <> '9'
		and TSK伝票F.取引日            between  @開始日 and @終了日
GROUP BY     TSK伝票明細F.演習CD, TSK伝票明細F.会社CD, TSK伝票明細F.勘定CD
ORDER BY TSK伝票明細F.勘定CD








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPMウェイトフラグ更新
@システムCD varchar(12), @ウェイトフラグ varchar(2)   
AS

begin transaction

if exists(SELECT * FROM TC0ウェイトフラグ WHERE システムCD = @システムCD)
begin
	UPDATE TC0ウェイトフラグ SET ウェイトフラグ = @ウェイトフラグ WHERE システムCD = @システムCD
end
else
begin
	INSERT INTO TC0ウェイトフラグ (システムCD, ウェイトフラグ) VALUES (@システムCD, @ウェイトフラグ)
end

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




/*
+   SMグループ_参加可能演習一覧
+   指定されたグループが参加可能な演習情報の一覧取得を行う
+
*/
CREATE  PROCEDURE dbo.SPMグループ_参加可能演習一覧
@システムCD varchar(12), @学生グループCD  varchar(12)       
AS

SELECT          TC2演習M.*
FROM            TC2演習M INNER JOIN
                      TC4演習許可学生グループM ON 
                      TC2演習M.システムCD = TC4演習許可学生グループM.システムCD AND
                      TC2演習M.演習CD = TC4演習許可学生グループM.演習CD
WHERE           TC4演習許可学生グループM.システムCD = @システムCD AND TC4演習許可学生グループM.学生グループCD = @学生グループCD
--ORDER BY     TC2演習M.演習CD
ORDER BY CASE WHEN TC2演習M.演習CD LIKE 'SYS%' THEN 1 ELSE 0 END, TC2演習M.会計開始日 DESC, TC2演習M.演習CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















/*
+   SMグループ_所属ユーザー一覧
+   指定されたグループに所属するユーザー情報の一覧取得を行う
+
*/
CREATE PROCEDURE dbo.SPMグループ_所属ユーザー一覧
@システムCD varchar(12), @学生グループCD  varchar(12)       
AS

SELECT * FROM  TC5学生M WHERE システムCD = @システムCD AND 学生グループCD = @学生グループCD ORDER BY  学生番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPMグループ一覧
@システムCD varchar(12),@学生グループCD varchar(40)

AS

if @学生グループCD = ''
begin
	SELECT          *
	FROM            [TC3学生グループM]
	WHERE システムCD = @システムCD
	ORDER BY	[学生グループCD]
end
else
begin
	SELECT          *
	FROM            [TC3学生グループM]
	WHERE システムCD = @システムCD
	AND 	[学生グループCD] = @学生グループCD
	ORDER BY	[学生グループCD]
end


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPMグループ参加演習更新
@システムCD varchar(12), @演習CD varchar(12) , @グループCD varchar(12)
AS

begin transaction

/* TC4演習許可学生グループMの削除処理  */
DELETE FROM TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 学生グループCD = @グループCD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TC4演習許可学生グループM (システムCD, 演習CD, 学生グループCD )
SELECT システムCD, 演習CD , 学生グループCD 
FROM YTMP_TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 学生グループCD = @グループCD

DELETE FROM YTMP_TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 学生グループCD = @グループCD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

-- 当該演習参加グループについてはグループでの管理に移行するため
-- 当該演習参加グループに所属する学生をTC4演習許可学生Mから削除する 
DELETE FROM TC4演習許可学生M
FROM TC4演習許可学生M
INNER JOIN TC5学生M
	ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
	AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
INNER JOIN TC4演習許可学生グループM	--結合により該演習参加グループに所属する学生のみを抽出
	ON TC4演習許可学生グループM.システムCD = TC4演習許可学生M.システムCD
	AND TC4演習許可学生グループM.演習CD = TC4演習許可学生M.演習CD
	AND TC4演習許可学生グループM.学生グループCD = TC5学生M.学生グループCD
WHERE TC4演習許可学生M.システムCD = @システムCD AND TC4演習許可学生M.演習CD = @演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPMグループ取得
@システムCD varchar(12), @学生グループCD  varchar(12)       
AS

SELECT *
  from  TC3学生グループM
  where  システムCD = @システムCD AND 学生グループCD = @学生グループCD













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPMグループ更新
@システムCD varchar(12), @処理区分  smallint
, @学生グループCD varchar(12), @グループ名称 varchar(40), @グループキー varchar(12)
, @作成者ID varchar(200)
, @非表示フラグ varchar(2)

AS

if @処理区分 = 1
begin
	/* 対象データの登録 */
	insert TC3学生グループM (システムCD, 学生グループCD, グループ名称, グループキー, 作成者ID, 非表示フラグ)
	values (@システムCD, @学生グループCD, @グループ名称, @グループキー, @作成者ID, @非表示フラグ)
	if @@error <> 0
	begin
		select -1  return
	end
end

if @処理区分 = 2
begin
	/* 対象データの更新 */
	update TC3学生グループM
	    set グループ名称 = @グループ名称
	      ,  グループキー = @グループキー
	      ,  作成者ID = @作成者ID
		, 非表示フラグ = @非表示フラグ
	  from  TC3学生グループM
	  where  システムCD = @システムCD AND 学生グループCD = @学生グループCD
	if @@error <> 0
	begin
		select -1  return
	end
end

if @処理区分 = 4
begin
/* 対象データの削除 */
delete 
from TC3学生グループM
  where  システムCD = @システムCD AND 学生グループCD = @学生グループCD

if @@error <> 0
   begin
       select -1  return
   end
end

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPMシステム一覧

AS

SELECT          *
FROM            TC1システムM
ORDER BY     システムCD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPMシステム情報デフォルト更新
@システムCD varchar(12)
AS

	UPDATE TC1システムM SET デフォルトフラグ = 0 WHERE システムCD <> @システムCD
	UPDATE TC1システムM SET デフォルトフラグ = 1 WHERE システムCD = @システムCD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPMシステム情報一覧
@システムCD varchar(12)
AS

	SELECT * from TC1システムM ORDER BY システムCD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPMシステム情報取得
@システムCD varchar(12)
AS

SELECT TC1システムM.*
  from  TC1システムM
  where  システムCD=@システムCD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPMシステム情報更新
@システムCD varchar(12),@ユーザー名 varchar(50) , @管理者コード varchar(12)  , @パスワード varchar(08) 
  , @共通データパス varchar(250)
  , @システム名称 varchar(50)  , @バージョン varchar(20) ,@IPアドレス varchar(200) ,@学校CD varchar(200)
  , @方式 int
  , @FAX利用 varchar(2)
  , @FAX利用可能拡張子 varchar(8000)
  , @名刺印刷余白上 real
  , @名刺印刷余白左 real
  , @会社設立時手数料メッセージ varchar(2)

AS

if exists(select * from TC1システムM where TC1システムM.システムCD = @システムCD)
begin
	/* システムMが存在する場合 */
	update TC1システムM
	set ユーザー名 = @ユーザー名
		, 管理者コード = @管理者コード
		, パスワード = @パスワード
		, 共通データパス = @共通データパス
		, IPアドレス = @IPアドレス
		, 学校CD = @学校CD
		, 方式 = @方式
		, FAX利用 = @FAX利用
		, FAX利用可能拡張子 = @FAX利用可能拡張子
		, 名刺印刷余白上 = @名刺印刷余白上
		, 名刺印刷余白左 = @名刺印刷余白左
		, 会社設立時手数料メッセージ = @会社設立時手数料メッセージ
	where システムCD = @システムCD
end
else
begin
	/* システムMが存在しない場合 */
	insert TC1システムM (システムCD
		, ユーザー名
		, 管理者コード
		, パスワード
		, 共通データパス
		, システム名称
		, バージョン
		, IPアドレス
		, 学校CD
		, 方式
		, FAX利用
		, FAX利用可能拡張子
		, 名刺印刷余白上
		, 名刺印刷余白左
		, 会社設立時手数料メッセージ
         )
	values (@システムCD
		, @ユーザー名
		, @管理者コード
		, @パスワード
		, @共通データパス
		, @システム名称
		, @バージョン
		, @IPアドレス
		, @学校CD
		, @方式
		, @FAX利用
		, @FAX利用可能拡張子
		, @名刺印刷余白上
		, @名刺印刷余白左
		, @会社設立時手数料メッセージ
	)
end

if @@error <> 0
begin
	select -1
	return
end

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO










CREATE PROCEDURE dbo.SPMユーザーログイン日更新
@システムCD varchar(12),@学生番号  varchar(12),  @ログイン日 datetime
AS

	/* 対象データの登録 */
	UPDATE TC5学生M
	SET 最新ログイン日 = @ログイン日
	WHERE (学生番号 = @学生番号)

	if @@error <> 0
	   begin
	       select -1  return
	   end


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO










CREATE  PROCEDURE dbo.SPMユーザー一括挿入
@システムCD varchar(12)
, @学生番号  varchar(12),  @氏名  varchar(20),  @氏名略名称 varchar(8), @パスワード varchar(12), @学生グループCD  varchar(12) 

AS


begin transaction


if @@error <> 0 begin
	rollback transaction
	select -1  return
end

if exists(SELECT 学生番号 FROM YTMP_TC5学生M WHERE システムCD = @システムCD AND 学生番号 = @学生番号)
begin
	UPDATE YTMP_TC5学生M SET システムCD = @システムCD
		, 学生番号 = @学生番号
		, 氏名 = @氏名
		, 氏名略名称 = @氏名略名称
		, パスワード = @パスワード
		, 学生グループCD = @学生グループCD
	WHERE システムCD = @システムCD AND 学生番号 = @学生番号
end
else
begin
	INSERT YTMP_TC5学生M (システムCD, 学生番号, 氏名, 氏名略名称, パスワード, 学生グループCD)
	VALUES (@システムCD, @学生番号, @氏名, @氏名略名称, @パスワード, @学生グループCD)
end

if @@error <> 0 begin
	rollback transaction
	select -1  return
end


commit transaction










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
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 TC5学生M WHERE システムCD = @システムCD AND 学生グループCD LIKE @学生グループCD

if @@error <> 0 begin
	rollback transaction
	select -1  return
end

INSERT INTO TC5学生M
SELECT *
FROM   YTMP_TC5学生M
WHERE  システムCD = @システムCD AND 学生グループCD LIKE @学生グループCD

if @@error <> 0 begin
	rollback transaction
	select -1  return
end

DELETE FROM YTMP_TC5学生M WHERE システムCD = @システムCD AND 学生グループCD LIKE @学生グループCD


commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE    PROCEDURE dbo.SPMユーザー一覧
@システムCD varchar(12), @演習CD varchar(12), @グループCD varchar(12), @学生番号 varchar(12), @氏名 varchar(20), @最終ログイン日 datetime

AS

if @演習CD != '' 
begin
	SELECT TC5学生M.*
		, TC3学生グループM.グループ名称
		, TC6演習履歴M.最終参加日時
		, TDA会社M.会社名称
--		, TC4演習許可学生M.*
--		, TC4演習許可学生グループM.*
	FROM            TC5学生M 
	INNER JOIN TC3学生グループM
		ON TC5学生M.システムCD = TC3学生グループM.システムCD
		AND TC5学生M.学生グループCD = TC3学生グループM.学生グループCD 
--
	LEFT OUTER JOIN TC4演習許可学生M
		ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
		AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
		AND TC4演習許可学生M.演習CD = @演習CD
	LEFT OUTER JOIN TC4演習許可学生グループM
		ON TC5学生M.システムCD = TC4演習許可学生グループM.システムCD
		AND TC5学生M.学生グループCD = TC4演習許可学生グループM.学生グループCD
		AND TC4演習許可学生グループM.演習CD = @演習CD
--
--	INNER JOIN TC4演習許可学生グループM
--		ON TC3学生グループM.システムCD = TC4演習許可学生グループM.システムCD
--		AND TC3学生グループM.学生グループCD = TC4演習許可学生グループM.学生グループCD
	LEFT OUTER JOIN TC6演習履歴M
		ON TC5学生M.システムCD = TC6演習履歴M.システムCD
		AND (TC4演習許可学生グループM.演習CD = TC6演習履歴M.演習CD
			OR TC4演習許可学生M.演習CD = TC6演習履歴M.演習CD)
		AND TC5学生M.学生番号 = TC6演習履歴M.学生番号
		AND TC6演習履歴M.演習CD = @演習CD
	LEFT OUTER JOIN TDA会社M
		ON TC6演習履歴M.システムCD = TDA会社M.システムCD
		AND TC6演習履歴M.演習CD = TDA会社M.演習CD
		AND TC6演習履歴M.選択会社CD = TDA会社M.会社CD
	WHERE  TC5学生M.システムCD   =   @システムCD       
		AND (TC4演習許可学生グループM.演習CD = @演習CD
			OR TC4演習許可学生M.演習CD = @演習CD)
		AND   TC5学生M.学生グループCD   like   @グループCD       
		AND   TC5学生M.学生番号      like   @学生番号
		AND   TC5学生M.氏名           like    @氏名
		AND   (TC5学生M.最新ログイン日 <= IsNull(@最終ログイン日, '2099/12/31') Or TC5学生M.最新ログイン日 Is Null)
--		AND   TC4演習許可学生グループM.システムCD = @システムCD
--		AND  TC4演習許可学生グループM.演習CD = @演習CD
	ORDER BY TC5学生M.学生番号
end 
else
begin
	SELECT          TC5学生M.*, TC3学生グループM.グループ名称
	FROM            TC5学生M 
	INNER JOIN TC3学生グループM
		ON TC5学生M.システムCD = TC3学生グループM.システムCD
		AND TC5学生M.学生グループCD = TC3学生グループM.学生グループCD 
	WHERE  TC5学生M.システムCD   =   @システムCD       
		AND   TC5学生M.学生グループCD   like   @グループCD       
		AND   TC5学生M.学生番号      like   @学生番号
		AND   TC5学生M.氏名           like    @氏名
		AND   (TC5学生M.最新ログイン日 <= IsNull(@最終ログイン日, '2099/12/31') Or TC5学生M.最新ログイン日 Is Null)
	ORDER BY TC5学生M.学生番号
end




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPMユーザー削除
@システムCD varchar(12), @学生番号  varchar(12)
AS

/* 対象データの削除 */
delete 
from TC5学生M
where   学生番号     =   @学生番号

if @@error <> 0
   begin
       select -1  return
   end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPMユーザー取得
@システムCD varchar(12), @学生番号  varchar(12)
AS

SELECT          TC5学生M.*, TC3学生グループM.グループ名称, TC5学生M.学生番号
FROM            TC5学生M INNER JOIN
                      TC3学生グループM ON 
                      TC5学生M.システムCD = TC3学生グループM.システムCD AND
                      TC5学生M.学生グループCD = TC3学生グループM.学生グループCD
WHERE           (TC5学生M.学生番号 = @学生番号)


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPMユーザー更新
@システムCD varchar(12),@処理区分  smallint
, @学生番号  varchar(12),  @氏名  varchar(20),  @氏名略名称 varchar(8), @パスワード varchar(12)
, @学生グループCD  varchar(12) 

/*
+   SMユーザー情報更新
+   TC5学生Mの更新を行う
+
+   指定された演習CD・業種区分によりTC5学生Mデータを更新
+   @処理区分  1: 登録  2: 更新   4:削除
+   
*/

AS

if @処理区分 = 1
begin

	/* 対象データの登録 */
	insert TC5学生M(システムCD, 学生グループCD, 学生番号, 氏名, 氏名略名称, パスワード)
	values(@システムCD, @学生グループCD, @学生番号, @氏名, @氏名略名称, @パスワード)

	if @@error <> 0
	   begin
	       select -1  return
	   end
end

if @処理区分 = 2
begin
	/* 対象データの更新 */
	update TC5学生M
	  set 氏名 = @氏名, 氏名略名称 = @氏名略名称, パスワード = @パスワード, 学生グループCD = @学生グループCD
	from TC5学生M
	where 学生番号 = @学生番号

	if @@error <> 0
	   begin
	       select -1  return
	   end
	end

if @処理区分 = 4
begin
	/* 対象データの削除 */
	delete from TC5学生M where 学生番号 = @学生番号

	if @@error <> 0
	   begin
	       select -1  return
	   end
end

select 0

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPMユーザー更新_戻り先
@システムCD varchar(12), @学生番号 varchar(12), @更新時の戻り先 varchar(1000)

AS

UPDATE TC5学生M
SET 更新時の戻り先 = @更新時の戻り先
WHERE 学生番号 = @学生番号

if @@error <> 0
begin
	select -1  return
end

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM会社ユーザ取得
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20)    
AS

	SELECT TDA会社M.* FROM TDA会社M 
	WHERE TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @演習CD AND TDA会社M.会社CD LIKE @会社CD +'-%' AND TDA会社M.学生番号<>''





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM会社一覧
@システムCD varchar(12), @演習CD  varchar(12),  @表示フラグ int
AS

SELECT TDA会社M.*, 業種.区分名称 AS 業種名称, 市場.市場名称
FROM TDA会社M 
LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE システムCD = @システムCD AND データ識別 = '業種CD') 業種 ON TDA会社M.システムCD = 業種.システムCD AND TDA会社M.業種CD = 業種.区分CD
LEFT OUTER JOIN (SELECT * FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD) 市場 ON TDA会社M.システムCD = 市場.システムCD AND TDA会社M.演習CD = 市場.演習CD AND TDA会社M.市場CD = 市場.市場CD
WHERE TDA会社M.システムCD = @システムCD 
	AND  TDA会社M.演習CD = @演習CD 
	AND ((@表示フラグ = 0 AND TDA会社M.学生番号 = '')
		OR (@表示フラグ = 1 AND TDA会社M.会社CD <> '')
		OR @表示フラグ = 2) 
ORDER BY TDA会社M.学生番号, TDA会社M.会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




-- 一覧取得・単一取得両方に対応出来るよう拡張
CREATE  PROCEDURE dbo.SPM会社一覧2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @業種CD varchar(1), @表示フラグ int

AS

if @会社CD = ''
begin
	SELECT @会社CD = '%'
end

if @業種CD = ''
begin
	SELECT @業種CD = '%'
end

/* 対象会社M一覧データの抽出 */

SELECT TDA会社M.*, 業種.区分名称 AS 業種名称, 市場.市場名称
FROM TDA会社M 
LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE システムCD = @システムCD AND データ識別 = '業種CD') 業種 ON TDA会社M.システムCD = 業種.システムCD AND TDA会社M.業種CD = 業種.区分CD
LEFT OUTER JOIN (SELECT * FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD) 市場 ON TDA会社M.システムCD = 市場.システムCD AND TDA会社M.演習CD = 市場.演習CD AND TDA会社M.市場CD = 市場.市場CD
WHERE TDA会社M.システムCD = @システムCD 
	AND  TDA会社M.演習CD = @演習CD 
	AND  TDA会社M.会社CD LIKE @会社CD 
	AND  TDA会社M.業種CD LIKE @業種CD 
	AND ((@表示フラグ = 0 AND TDA会社M.学生番号 = '') OR (@表示フラグ = 1 AND TDA会社M.会社CD <> '') OR @表示フラグ = 2) 
ORDER BY TDA会社M.学生番号, TDA会社M.会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM会社全部一覧
@システムCD varchar(12), @演習CD varchar(12), @学生番号 varchar(40)

AS

declare @演習区分  varchar(40) 
SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT TDA会社M.*, TC9区分M.区分名称 AS 業種名称
FROM TDA会社M
LEFT OUTER JOIN TC9区分M
	ON TDA会社M.システムCD = TC9区分M.システムCD
	AND TDA会社M.業種CD = TC9区分M.区分CD
WHERE TDA会社M.システムCD = @システムCD
	AND TDA会社M.演習CD = @演習CD
	AND TC9区分M.データ識別 = '業種CD'
	AND TDA会社M.会社CD <> ''
	--同時同業なら学生番号が合致する会社を全て取得。模擬実践の場合は学生番号がNULL若しくは自社なら取得
	AND (
		(@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号)
		OR (@演習区分 = 'G' AND (TDA会社M.学生番号 = '' OR TDA会社M.自社フラグ = 1))
	)
ORDER BY TDA会社M.自社フラグ DESC, TDA会社M.会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM会社全部一覧2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(40)

AS

declare @演習区分  varchar(40) 
declare @学生番号  varchar(40) 
SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)
SELECT @学生番号 = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)

if @演習区分 = 'P'
begin 
	SELECT TDA会社M.*
		, TC9区分M.区分名称 AS 業種名称
	FROM TDA会社M
	LEFT OUTER JOIN TC9区分M
		ON TDA会社M.システムCD = TC9区分M.システムCD
		AND TDA会社M.業種CD = TC9区分M.区分CD
	WHERE TDA会社M.システムCD = @システムCD
		AND TDA会社M.演習CD = @演習CD
		AND TC9区分M.データ識別='業種CD'
		AND TDA会社M.学生番号 = @学生番号
		AND TDA会社M.会社CD <> ''
	ORDER BY TDA会社M.自社フラグ DESC, TDA会社M.会社CD
end
else
begin

	SELECT TDA会社M.*
		, TC9区分M.区分名称 AS 業種名称
	FROM TDA会社M
	LEFT JOIN TC9区分M
		ON TDA会社M.システムCD = TC9区分M.システムCD
		AND TDA会社M.業種CD = TC9区分M.区分CD
	WHERE TDA会社M.システムCD = @システムCD
		AND TDA会社M.演習CD = @演習CD
		AND TC9区分M.データ識別='業種CD'
		AND TDA会社M.会社CD <> ''
	ORDER BY TDA会社M.自社フラグ DESC, TDA会社M.会社CD	
end




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE  PROCEDURE dbo.SPM会社削除
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

/* 修正履歴（テーブルを追加した場合は当プロシージャにも追加する必要があるので必ず記入すること！）
TKH小売販売TRN			070323小野
TKH小売販売TTL			070323小野
TGC寄託者明細TRN		070323小野
TGC寄託者TRN			070323小野
TGA契約書F			070207小野
TGC寄託在庫F			070207小野
TGC寄託在庫明細F		070207小野
TSA領収書F			070207小野
TSC運送費請求書手動F		070207小野
TSC運送費請求書手動明細F	070207小野
TSK帳簿_株主資本等変動計算書F	070207小野
TTL合併残高F			070207小野	データリンク用
TTA給与明細F			090511小野
TTA社員台帳M			090511小野
TSK帳簿_仕訳帳F			090511小野
TTXFAXF				090511小野
TDA材料M			090511小野
TDA部品展開M			090511小野
TGD製造指図書F			090511小野
TDA勘定科目会社学生M		091027小野
[170413小野]
TSK補助簿_材料仕入帳F
TSK補助簿_材料元帳F
TSK補助簿_小口現金出納帳F
TGU保険請求領収書F
TGU運送費請求領収書F
TGU倉庫料請求領収書F
TDA経費労務費M
TSK補助簿_原価計算表F
TSK補助簿_製造間接費配賦表F
*/

begin transaction


DELETE FROM TSK補助簿_材料仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK補助簿_材料元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK補助簿_小口現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TGU保険請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TGU運送費請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TGU倉庫料請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TDA経費労務費M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK補助簿_原価計算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK補助簿_製造間接費配賦表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	--170413小野
if @@error <> 0
begin
	rollback select -1  return
End


--TDA勘定科目会社学生Mの会社単位削除は模擬実践のみ
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'G'
begin
	DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 所有会社CD = @会社CD	-- 091027小野追加
	if @@error <> 0
	begin
		rollback select -1  return
	end
end

DELETE FROM TGD製造指図書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 090511小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TDA部品展開M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 090511小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTXFAXF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 090511小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK帳簿_仕訳帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 090511小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTA給与明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 090511小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK帳簿_株主資本等変動計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 070207小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 070207小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 070207小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGA契約書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 070207小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTM名刺データ2F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD  = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTK記帳チェックF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTA社員台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTA損益計画F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTA社員台帳M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD	-- 090511小野追加
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TSC運送費請求書手動明細F	-- 070207小野追加
FROM             TSC運送費請求書手動F INNER JOIN
                      TSC運送費請求書手動明細F ON 
                      TSC運送費請求書手動F.システムCD = TSC運送費請求書手動明細F.システムCD AND 
                      TSC運送費請求書手動F.演習CD = TSC運送費請求書手動明細F.演習CD AND 
                      TSC運送費請求書手動F.会社CD = TSC運送費請求書手動明細F.会社CD AND 
                      TSC運送費請求書手動F.作成会社CD = TSC運送費請求書手動明細F.作成会社CD AND 
                      TSC運送費請求書手動F.文書種類CD = TSC運送費請求書手動明細F.文書種類CD AND 
                      TSC運送費請求書手動F.文書内容CD = TSC運送費請求書手動明細F.文書内容CD
		INNER JOIN 
                     TDA会社M ON 
                     TSC運送費請求書手動F.システムCD = TDA会社M.システムCD AND 
                     TSC運送費請求書手動F.演習CD = TDA会社M.演習CD AND 
                     TSC運送費請求書手動F.会社CD = TDA会社M.会社CD
WHERE           TSC運送費請求書手動F.システムCD = @システムCD AND TSC運送費請求書手動F.演習CD = @演習CD AND TSC運送費請求書手動F.会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送費請求書手動F	-- 070207小野追加
FROM             TSC運送費請求書手動F INNER JOIN
                     TDA会社M ON 
                     TSC運送費請求書手動F.システムCD = TDA会社M.システムCD AND 
                     TSC運送費請求書手動F.演習CD = TDA会社M.演習CD AND 
                     TSC運送費請求書手動F.会社CD = TDA会社M.会社CD
WHERE           TSC運送費請求書手動F.システムCD = @システムCD AND TSC運送費請求書手動F.演習CD = @演習CD AND TSC運送費請求書手動F.会社CD = @会社CD

if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TKH小売販売TRN	-- 070323小野追加
FROM             TKH小売販売TTL INNER JOIN
                      TKH小売販売TRN ON 
                      TKH小売販売TTL.システムCD = TKH小売販売TRN.システムCD AND 
                      TKH小売販売TTL.演習CD = TKH小売販売TRN.演習CD AND 
                      TKH小売販売TTL.会社CD = TKH小売販売TRN.会社CD AND 
                      TKH小売販売TTL.作成会社CD = TKH小売販売TRN.作成会社CD AND 
                      TKH小売販売TTL.文書種類CD = TKH小売販売TRN.文書種類CD AND 
                      TKH小売販売TTL.文書内容CD = TKH小売販売TRN.文書内容CD
		INNER JOIN 
                     TDA会社M ON 
                     TKH小売販売TTL.システムCD = TDA会社M.システムCD AND 
                     TKH小売販売TTL.演習CD = TDA会社M.演習CD AND 
                     TKH小売販売TTL.会社CD = TDA会社M.会社CD
WHERE           TKH小売販売TRN.システムCD = @システムCD AND TKH小売販売TRN.演習CD = @演習CD AND TKH小売販売TRN.会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TKH小売販売TTL	-- 070323小野追加
FROM             TKH小売販売TTL INNER JOIN
                     TDA会社M ON 
                     TKH小売販売TTL.システムCD = TDA会社M.システムCD AND 
                     TKH小売販売TTL.演習CD = TDA会社M.演習CD AND 
                     TKH小売販売TTL.会社CD = TDA会社M.会社CD
WHERE           TKH小売販売TTL.システムCD = @システムCD AND TKH小売販売TTL.演習CD = @演習CD AND TKH小売販売TTL.会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TGC寄託在庫明細F	-- 070207小野追加
FROM             TGC寄託在庫F INNER JOIN
                      TGC寄託在庫明細F ON 
                      TGC寄託在庫F.システムCD = TGC寄託在庫明細F.システムCD AND 
                      TGC寄託在庫F.演習CD = TGC寄託在庫明細F.演習CD AND 
                      TGC寄託在庫F.会社CD = TGC寄託在庫明細F.会社CD AND 
                      TGC寄託在庫F.作成会社CD = TGC寄託在庫明細F.作成会社CD AND 
                      TGC寄託在庫F.寄託依頼会社CD = TGC寄託在庫明細F.寄託依頼会社CD AND 
                      TGC寄託在庫F.寄託受付番号 = TGC寄託在庫明細F.寄託受付番号
		INNER JOIN 
                     TDA会社M ON 
                     TGC寄託在庫F.システムCD = TDA会社M.システムCD AND 
                     TGC寄託在庫F.演習CD = TDA会社M.演習CD AND 
                     (TGC寄託在庫F.会社CD = TDA会社M.会社CD OR TGC寄託在庫F.会社CD = 'MST:' + TDA会社M.会社CD)
WHERE           TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @演習CD AND TGC寄託在庫F.会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託在庫F	-- 070207小野追加
FROM             TGC寄託在庫F INNER JOIN
                     TDA会社M ON 
                     TGC寄託在庫F.システムCD = TDA会社M.システムCD AND 
                     TGC寄託在庫F.演習CD = TDA会社M.演習CD AND 
                     (TGC寄託在庫F.会社CD = TDA会社M.会社CD OR TGC寄託在庫F.会社CD = 'MST:' + TDA会社M.会社CD)
WHERE           TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @演習CD AND TGC寄託在庫F.会社CD = @会社CD

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 OR TGA入出庫明細TRN.会社CD = 'MST:' + TDA会社M.会社CD)
WHERE TGA入出庫明細TRN.システムCD = @システムCD AND TGA入出庫明細TRN.演習CD = @演習CD AND TDA会社M.会社CD  = @会社CD
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 OR TGA入出庫TRN.会社CD = 'MST:' + TDA会社M.会社CD)
WHERE TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD AND TDA会社M.会社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 OR TGB銀行口座F.会社CD = 'MST:' + TDA会社M.会社CD)
WHERE TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @演習CD AND TDA会社M.会社CD  = @会社CD
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.会社CD  = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC運送契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託者台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託者明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC出庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC保険契約F WHERE システムCD = @システムCD AND 演習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 OR TGK現金入出金TRN.会社CD = 'MST:' + TDA会社M.会社CD)
WHERE TGK現金入出金TRN.システムCD = @システムCD AND TGK現金入出金TRN.演習CD = @演習CD AND TDA会社M.会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_仕訳集計表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_仕訳日記帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_総勘定元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_損益計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_貸借対照表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_八桁精算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTK摘要M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
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 OR TSK伝票明細F.会社CD = 'MST:' + TDA会社M.会社CD)
WHERE TSK伝票明細F.システムCD = @システムCD AND TSK伝票明細F.演習CD = @演習CD AND TDA会社M.会社CD = @会社CD
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 OR TSK伝票仕入売上明細F.会社CD = 'MST:' + TDA会社M.会社CD)
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD AND TSK伝票仕入売上明細F.演習CD = @演習CD AND TDA会社M.会社CD  = @会社CD
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  TDA会社M.会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_商品有高帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

/* 寄託会社の該当会社在庫を削除 101217小野追加 */
DELETE FROM TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND (寄託依頼会社CD = @会社CD OR 寄託依頼会社CD = 'MST:' + @会社CD)
if @@error <> 0
   begin  rollback select -1  return
End
DELETE FROM TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND (寄託依頼会社CD = @会社CD OR 寄託依頼会社CD = 'MST:' + @会社CD)
if @@error <> 0
   begin  rollback select -1  return
End


/* TDA商品M */
delete  from  TDA商品M where システムCD = @システムCD AND 演習CD = @演習CD and 所有会社CD = @会社CD
if @@error <> 0
   begin  rollback select -1  return
End

/* TDA材料M 090511小野追加 */
delete  from  TDA材料M where システムCD = @システムCD AND 演習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 会社CD = @会社CD 
if @@error <> 0
   begin  rollback select -1  return
End

commit

select 0






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPM会社削除OLD
@システムCD varchar(12),  @演習CD  varchar(12)  , @会社CD varchar(20)
AS

/* 対象データの削除 */
delete 
from TDA会社M
where   演習CD     =   @演習CD
    and  会社CD     =   @会社CD 

if @@error <> 0
   begin
       select -1  return
   end

select 0











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















/*
+   SM会社情報取得
+   TDA会社M情報の取得を行う
+
*/
CREATE PROCEDURE dbo.SPM会社取得
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20)    
AS

	SELECT TDA会社M.*, 業種.区分名称 AS 業種名称, 市場.市場名称
	FROM TDA会社M 
	LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE システムCD = @システムCD AND データ識別 = '業種CD') 業種 ON TDA会社M.システムCD = 業種.システムCD AND TDA会社M.業種CD = 業種.区分CD
	LEFT OUTER JOIN (SELECT * FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD) 市場 ON TDA会社M.システムCD = 市場.システムCD AND TDA会社M.演習CD = 市場.演習CD AND TDA会社M.市場CD = 市場.市場CD
	WHERE TDA会社M.システムCD = @システムCD 
	 AND  TDA会社M.演習CD = @演習CD 
	 AND TDA会社M.会社CD = @会社CD















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM会社市場一覧
@システムCD varchar(12), @演習CD varchar(12), @学生番号 varchar(40), @市場CD varchar(6)

AS

declare @演習区分 varchar(40)

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT TDA会社M.*, TC9区分M.区分名称 AS 業種名称
FROM TDA会社M
LEFT OUTER JOIN TC9区分M
	ON TDA会社M.システムCD = TC9区分M.システムCD
	AND TDA会社M.業種CD = TC9区分M.区分CD
WHERE TDA会社M.システムCD = @システムCD
	AND TDA会社M.演習CD = @演習CD
	AND TC9区分M.データ識別 = '業種CD'
	AND TDA会社M.市場CD = @市場CD
	AND TDA会社M.会社CD <> ''
	--同時同業なら学生番号が合致する会社を全て取得。模擬実践の場合は学生番号がNULL若しくは自社なら取得
	AND (
		(@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号)
		OR (@演習区分 = 'G' AND (TDA会社M.学生番号 = '' OR TDA会社M.自社フラグ = 1))
	)
ORDER BY TDA会社M.自社フラグ DESC, TDA会社M.会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM会社市場一覧2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(40)

AS

declare @演習区分 varchar(40)
declare @学生番号 varchar(40)
declare @市場CD varchar(6)
SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)
SELECT @学生番号 = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
SELECT @市場CD = (SELECT 市場CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)

SELECT TDA会社M.*, TC9区分M.区分名称 AS 業種名称
FROM TDA会社M
LEFT OUTER JOIN TC9区分M
	ON TDA会社M.システムCD = TC9区分M.システムCD
	AND TDA会社M.業種CD = TC9区分M.区分CD
WHERE TDA会社M.システムCD = @システムCD
	AND TDA会社M.演習CD = @演習CD
	AND TC9区分M.データ識別 = '業種CD'
	AND TDA会社M.市場CD = @市場CD
	AND TDA会社M.会社CD <> ''
	--同時同業なら学生番号が合致する会社を全て取得。模擬実践の場合は学生番号がNULL若しくは自社なら取得
	AND (
		(@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号)
		OR (@演習区分 = 'G' AND (TDA会社M.学生番号 = '' OR TDA会社M.自社フラグ = 1))
	)
ORDER BY TDA会社M.自社フラグ DESC, TDA会社M.会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO














CREATE PROCEDURE dbo.SPM会社手形裏書譲渡可能一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)
, @学生番号 varchar(20)
AS

begin transaction

declare @演習区分  varchar(40) 
SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT          A.*
FROM            (SELECT          TDA会社M.*
                       FROM             TDA会社M
		LEFT OUTER JOIN TC9区分M ON TDA会社M.システムCD = TC9区分M.システムCD AND TDA会社M.業種CD = TC9区分M.区分CD
                       WHERE           TDA会社M.システムCD = @システムCD AND 
                                             TDA会社M.演習CD = @演習CD AND 
                                             TC9区分M.データ識別 = '業種CD' AND 
                                             (@演習区分 = 'G' Or TDA会社M.学生番号 = @学生番号) AND TDA会社M.会社CD <> '' AND 業種CD <> 'B')  
                      A
                    LEFT OUTER JOIN
                          (SELECT          *
                             FROM             TGA手形F
                             WHERE            システムCD = @システムCD AND 演習CD = @演習CD AND 
                                               /*     作成会社CD = @作成会社CD AND  会社CD = @会社CD AND */
                                                    文書種類CD = @文書種類CD AND 
                                                    文書内容CD = @文書内容CD) B ON A.会社CD = B.会社CD
WHERE           (B.会社CD IS NULL)
UNION
SELECT          A.*
FROM            (SELECT          TDA会社M.*
                       FROM             TDA会社M
		LEFT OUTER JOIN TC9区分M ON TDA会社M.システムCD = TC9区分M.システムCD AND TDA会社M.業種CD = TC9区分M.区分CD
                       WHERE           TDA会社M.システムCD = @システムCD AND 
                                             TDA会社M.演習CD = @演習CD AND 
                                             TC9区分M.データ識別 = '業種CD' AND 
                                             (@演習区分 = 'G' Or TDA会社M.学生番号 = @学生番号) AND TDA会社M.会社CD <> '' AND 業種CD = 'B') 
                      A
                    LEFT OUTER JOIN
                          (SELECT   銀行CD
	FROM            TGB銀行口座F
	WHERE TGB銀行口座F.システムCD = @システムCD
		 AND TGB銀行口座F.演習CD = @演習CD
		 AND TGB銀行口座F.会社CD = @会社CD
		 AND TGB銀行口座F.口座区分 = 'T') C ON A.会社CD = C.銀行CD
WHERE           (C.銀行CD IS NOT NULL)





commit transaction








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM会社更新
@システムCD varchar(12), @処理区分 smallint
, @演習CD varchar(12), @会社CD varchar(20), @市場CD varchar(6), @会社名称 varchar(40)
, @会社略名称 varchar(10), @会社カナ名称 varchar(40), @郵便番号 varchar(8)
, @住所1 varchar(50), @住所2 varchar(50), @TEL varchar(14)
, @FAX varchar(14), @業種CD varchar(1) ,@自社フラグ smallint
, @学生番号 varchar(12)
, @寄託会社CD varchar(20)	--070301追加
, @代表取締役 varchar(50)
, @代表取締役住所 varchar(72)
, @取締役1 varchar(50)
, @取締役1住所 varchar(72)
, @取締役2 varchar(50)
, @取締役2住所 varchar(72)
, @発起人4 varchar(50)
, @発起人4住所 varchar(72)
, @発起人5 varchar(50)
, @発起人5住所 varchar(72)
, @資本金 money
, @事業目的 varchar(200)
, @発起人1株式数 money
, @発起人2株式数 money
, @発起人3株式数 money
, @発起人4株式数 money
, @発起人5株式数 money
, @株式の額面 money

AS

if @処理区分 = 1
begin

	/* 対象データの登録 */
	insert TDA会社M( システムCD, 演習CD, 会社CD, 市場CD, 会社名称, 会社略名称, 会社カナ名称, 郵便番号, 住所1, 住所2, TEL, FAX, 業種CD, 自社フラグ, 学生番号, 寄託会社CD, 代表取締役, 代表取締役住所, 取締役1, 取締役1住所, 取締役2, 取締役2住所, 発起人4, 発起人4住所, 発起人5, 発起人5住所, 資本金, 事業目的, 発起人1株式数, 発起人2株式数, 発起人3株式数, 発起人4株式数, 発起人5株式数, 株式の額面)
	values ( @システムCD, @演習CD, @会社CD, @市場CD, @会社名称, @会社略名称, @会社カナ名称, @郵便番号, @住所1, @住所2, @TEL, @FAX, @業種CD, @自社フラグ ,@学生番号 ,@寄託会社CD, @代表取締役, @代表取締役住所, @取締役1, @取締役1住所, @取締役2, @取締役2住所, @発起人4, @発起人4住所, @発起人5, @発起人5住所, @資本金, @事業目的, @発起人1株式数, @発起人2株式数, @発起人3株式数, @発起人4株式数, @発起人5株式数, @株式の額面)


	if @@error <> 0
	begin
		select -1
		return
	end
end


if @処理区分 = 2
begin

	/* 対象データの更新 */

	declare @寄託会社CD2 varchar(30)

	set @寄託会社CD2 = @寄託会社CD + '-' + @学生番号

	update TDA会社M
	set 市場CD       =   @市場CD 
		, 会社名称       =   @会社名称 
		, 会社略名称    =   @会社略名称
		, 会社カナ名称  =  @会社カナ名称
		, 郵便番号  =  @郵便番号
		, 住所1     =  @住所1
		, 住所2     =  @住所2
		, TEL        =  @TEL 
		, FAX        =  @FAX
		, 業種CD            =  @業種CD
		, 自社フラグ            =  @自社フラグ
		, 寄託会社CD            =  @寄託会社CD2
		--070301追加
		, 代表取締役 = @代表取締役
		, 代表取締役住所 = @代表取締役住所
		, 取締役1 = @取締役1
		, 取締役1住所 = @取締役1住所
		, 取締役2 = @取締役2
		, 取締役2住所 = @取締役2住所
		, 発起人4 = @発起人4
		, 発起人4住所 = @発起人4住所
		, 発起人5 = @発起人5
		, 発起人5住所 = @発起人5住所
		, 資本金 = @資本金
		, 事業目的 = @事業目的
		--080924追加
		, 発起人1株式数 = @発起人1株式数
		, 発起人2株式数 = @発起人2株式数
		, 発起人3株式数 = @発起人3株式数
		, 発起人4株式数 = @発起人4株式数
		, 発起人5株式数 = @発起人5株式数
		, 株式の額面 = @株式の額面
	from TDA会社M
	where   システムCD     =   @システムCD
		and   演習CD     =   @演習CD
		and  (@学生番号<>'' AND  会社CD =  @会社CD + '-' + @学生番号) 

	update TDA会社M
	set 市場CD       =   @市場CD 
		, 会社名称       =   @会社名称 
		, 会社略名称    =   @会社略名称
		, 会社カナ名称  =  @会社カナ名称
		, 郵便番号  =  @郵便番号
		, 住所1     =  @住所1
		, 住所2     =  @住所2
		, TEL        =  @TEL 
		, FAX        =  @FAX
		, 業種CD            =  @業種CD
		, 自社フラグ            =  @自社フラグ
		, 寄託会社CD            =  @寄託会社CD2
		--070301追加
		, 代表取締役 = @代表取締役
		, 代表取締役住所 = @代表取締役住所
		, 取締役1 = @取締役1
		, 取締役1住所 = @取締役1住所
		, 取締役2 = @取締役2
		, 取締役2住所 = @取締役2住所
		, 発起人4 = @発起人4
		, 発起人4住所 = @発起人4住所
		, 発起人5 = @発起人5
		, 発起人5住所 = @発起人5住所
		, 資本金 = @資本金
		, 事業目的 = @事業目的
		--080924追加
		, 発起人1株式数 = @発起人1株式数
		, 発起人2株式数 = @発起人2株式数
		, 発起人3株式数 = @発起人3株式数
		, 発起人4株式数 = @発起人4株式数
		, 発起人5株式数 = @発起人5株式数
		, 株式の額面 = @株式の額面
	from TDA会社M
	where   システムCD     =   @システムCD
		and   演習CD     =   @演習CD
		and  会社CD = @会社CD

	if CharIndex(@会社CD,'-')>0
	begin

		update TDA会社M
		set    学生番号            =  @学生番号
		from TDA会社M
		where   システムCD     =   @システムCD
			and   演習CD     =   @演習CD
			and  会社CD     =   @会社CD 
	end

	if @@error <> 0
	begin
		select -1
		return
	end

end

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO









CREATE  PROCEDURE dbo.SPM会社更新_代表取締役
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @代表取締役 varchar(200)
AS

UPDATE TDA会社M
SET 代表取締役 = @代表取締役
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPM会社自社登録
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(40), @市場CD varchar(6), @自社フラグ varchar(40) , 
@会社名称 varchar(40), @会社略名称 varchar(10), @会社カナ名称 varchar(40), @郵便番号 varchar(40), @住所1 varchar(40), @住所2 varchar(40), 
@TEL varchar(40), @FAX varchar(40), @業種CD varchar(40),
@代表取締役 varchar(50), @代表取締役住所 varchar(72), @資本金 money
, @取締役1 varchar(50), @取締役2 varchar(50), @取締役1住所 varchar(72), @取締役2住所 varchar(72)
, @発起人4 varchar(50), @発起人5 varchar(50), @発起人4住所 varchar(72), @発起人5住所 varchar(72) --090623追加
, @事業目的 varchar(200), @寄託会社CD varchar(20)
, @発起人1株式数 money, @発起人2株式数 money, @発起人3株式数 money	--080924追加
, @発起人4株式数 money, @発起人5株式数 money	--090623追加
, @株式の額面 money	--080924追加

AS

begin transaction

/* 採番 */

if exists(SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号 AND 自社フラグ = @自社フラグ)
begin
	SELECT @会社CD = (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号 AND 自社フラグ = @自社フラグ)
end 
else
begin
	INSERT INTO TDA会社M (システムCD, 演習CD, 会社CD, 学生番号, 自社フラグ) VALUES (@システムCD, @演習CD, @会社CD, @学生番号, @自社フラグ);
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

UPDATE TDA会社M
SET 会社CD =  @会社CD
	, 市場CD =  @市場CD
	, 会社名称 = @会社名称
	, 会社略名称 = @会社略名称
	, 会社カナ名称 = @会社カナ名称
	, 郵便番号 = @郵便番号
	, 住所1 = @住所1
	, 住所2 = @住所2
	, TEL = @TEL
	, FAX = @FAX
	, 業種CD = @業種CD
	, 代表取締役 = @代表取締役
	, 代表取締役住所 = @代表取締役住所
	, 資本金 = @資本金
	, 取締役1 = @取締役1
	, 取締役2 = @取締役2
	, 取締役1住所 = @取締役1住所
	, 取締役2住所 = @取締役2住所
	, 事業目的 = @事業目的
	, 寄託会社CD = @寄託会社CD 
	--080924追加
	, 発起人1株式数 = @発起人1株式数
	, 発起人2株式数 = @発起人2株式数
	, 発起人3株式数 = @発起人3株式数
	, 株式の額面 = @株式の額面
	--090623追加
	, 発起人4 = @発起人4
	, 発起人5 = @発起人5
	, 発起人4住所 = @発起人4住所
	, 発起人5住所 = @発起人5住所
	, 発起人4株式数 = @発起人4株式数
	, 発起人5株式数 = @発起人5株式数
WHERE  システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 学生番号 = @学生番号
	AND 自社フラグ = @自社フラグ

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction


GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPM削除ユーザー一覧
@システムCD varchar(12), @指定日  datetime
AS

/* 対象学生Mデータの抽出 */
if @指定日 = ''
begin
	SET @指定日 = '2099/12/31'
end

SELECT          TC5学生M.*, TC3学生グループM.グループ名称
FROM            TC5学生M INNER JOIN
                      TC3学生グループM ON 
                      TC5学生M.システムCD = TC3学生グループM.システムCD AND 
                      TC5学生M.学生グループCD = TC3学生グループM.学生グループCD 
WHERE           (TC5学生M.最新ログイン日 <= @指定日)
OR           (TC5学生M.最新ログイン日 IS NULL)


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM勘定科目一覧
@システムCD varchar(12), @演習CD varchar(12), @業種CD varchar(40), @勘定細目 varchar(40), @所有会社CD varchar(20)

AS

If @所有会社CD <> ''
begin
	--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
	If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
	begin
		SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
	end
end

If @業種CD = '' 
begin
	SET @業種CD = '%'
end

If @勘定細目 = '' 
begin
	SET @勘定細目 = '%'
end

SELECT *
--FROM TDA勘定科目M
FROM (SELECT * FROM TDA勘定科目M
	UNION --TDA勘定科目会社学生Mを連結
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
--	AND 業種CD LIKE @業種CD
	AND (業種CD LIKE LEFT(@業種CD, 1) OR 業種CD LIKE RIGHT(@業種CD, 1)) --2区分まで取得できるよう変更
	AND 勘定細目 LIKE @勘定細目
	AND (所有会社CD IS NULL OR 所有会社CD = '' OR 所有会社CD = @所有会社CD)
ORDER BY 勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM勘定科目削除
@システムCD varchar(12), @演習CD varchar(12), @業種CD varchar(1), @勘定CD varchar(25)
, @所有会社CD varchar(20) --同時同業では学生番号

AS

begin transaction

if @所有会社CD = ''
begin
	DELETE FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD
end
else
begin
	DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD AND 所有会社CD = @所有会社CD
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPM勘定科目取得
@システムCD varchar(12),@演習CD varchar(12),  @勘定CD varchar(25)

AS
	SELECT    *
	FROM      TDA勘定科目M
	WHERE     システムCD = @システムCD AND 演習CD = @演習CD AND (勘定CD = @勘定CD)
	ORDER BY   勘定CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPM勘定科目取得特別勘定
@システムCD varchar(12),@演習CD varchar(12),  @特別勘定区分 varchar(2)

AS



	SELECT    *
	FROM      TDA勘定科目M
	WHERE     システムCD = @システムCD AND 演習CD = @演習CD 
	AND 
	(
	(@特別勘定区分 = '' AND 特別勘定区分 <> '') 
	Or
	(@特別勘定区分 <> '' AND 特別勘定区分 = @特別勘定区分) 
	)
	ORDER BY   勘定CD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPM勘定科目取得現金
@システムCD varchar(12),@演習CD varchar(12),  @勘定CD varchar(25),  @業種区分 varchar(12)

AS
	SELECT    *
	FROM      TDA勘定科目M
	WHERE     システムCD = @システムCD AND 演習CD = @演習CD AND 勘定CD = @勘定CD AND 特別勘定区分 = 'DA'
	 AND TDA勘定科目M.業種CD   =   @業種区分
	ORDER BY   勘定CD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPM勘定科目取得繰越仕入
@システムCD varchar(12),@演習CD varchar(12),  @勘定CD varchar(25),  @業種区分 varchar(12)

AS
	SELECT    *
	FROM      TDA勘定科目M
	WHERE     システムCD = @システムCD AND 演習CD = @演習CD AND 勘定CD = @勘定CD AND 特別勘定区分 = 'DL'
	 AND TDA勘定科目M.業種CD   =   @業種区分
	ORDER BY   勘定CD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPM勘定科目取得繰越商品
@システムCD varchar(12),@演習CD varchar(12),  @勘定CD varchar(25),  @業種区分 varchar(12)

AS
	SELECT    *
	FROM      TDA勘定科目M
	WHERE     システムCD = @システムCD AND 演習CD = @演習CD AND 勘定CD = @勘定CD AND 特別勘定区分 = 'DJ'
	 AND TDA勘定科目M.業種CD   =   @業種区分
	ORDER BY   勘定CD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPM勘定科目更新
@システムCD varchar(12), @処理区分 smallint
, @演習CD varchar(12), @業種CD varchar(1), @勘定CD varchar(25)
, @勘定名称 varchar(40), @勘定略名称 varchar(20)
, @勘定区分 varchar(1), @勘定細目 varchar(1), @所有会社CD varchar(20), @貸借区分 varchar(1)
, @データ区分 varchar(1), @費用区分 varchar(1), @分析用区分 varchar(2), @チェック区分 varchar(2), @特別勘定区分 varchar(2)
, @諸表集計CD varchar(8) 
, @作成区分 smallint
AS

if @処理区分 = 1
begin

if @所有会社CD <> '' 
begin

	if exists(SELECT *  FROM TDA勘定科目M WHERE システムCD = @システムCD and 演習CD = @演習CD AND 勘定CD LIKE 'C%' )
	begin
		SET @勘定CD = (SELECT          'C' + REPLACE(SPACE(3 - LEN(MAX(CONVERT(int, SUBSTRING(勘定CD, 2, 
	                      3))))), ' ', '0') + CONVERT(varchar, MAX(CONVERT(int, SUBSTRING(勘定CD, 2, 
	                      3))) + 1) AS 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD and 演習CD = @演習CD AND 勘定CD LIKE 'C%' )
	end
	else
	begin
		SET @勘定CD = 'C001'
	end
end

/* 対象データの登録 */
insert TDA勘定科目M (システムCD, 演習CD, 業種CD, 勘定CD, 勘定名称, 勘定略名称, 勘定区分, 勘定細目, 所有会社CD, 貸借区分, データ区分, 費用区分, 分析用区分, チェック区分, 特別勘定区分, 諸表集計CD,作成区分 )
values (@システムCD, @演習CD, @業種CD, @勘定CD, @勘定名称, @勘定略名称, @勘定区分, @勘定細目, @所有会社CD, @貸借区分, @データ区分, @費用区分, @分析用区分, @チェック区分, @特別勘定区分, @諸表集計CD, @作成区分 )

if @@error <> 0
 begin
 select -1 return
 end
end

if @処理区分 = 2
begin
/* 対象データの更新 */
update TDA勘定科目M
 set 勘定CD = @勘定CD 
, 勘定名称 = @勘定名称
 , 勘定略名称 = @勘定略名称
 , 勘定区分 = @勘定区分
 , 勘定細目 = @勘定細目
 , 所有会社CD = @所有会社CD
 , 貸借区分 = @貸借区分
 , データ区分 = @データ区分
 , 費用区分 = @費用区分
 , 分析用区分 = @分析用区分 
 , チェック区分 = @チェック区分 
 , 特別勘定区分 = @特別勘定区分 
 , 諸表集計CD = @諸表集計CD
from TDA勘定科目M
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 業種CD = @業種CD 
 and 勘定CD = @勘定CD 

if @@error <> 0
 begin
 select -1 return
 end
end

if @処理区分 = 4
begin
/* 対象データの削除 */
 DELETE FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD 

if @@error <> 0
 begin
 select -1 return
 end
end

select @勘定CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM勘定科目更新2
@システムCD varchar(12), @処理区分 smallint
, @演習CD varchar(12), @業種CD varchar(1), @勘定CD varchar(25)
, @勘定名称 varchar(40), @勘定略名称 varchar(20)
, @勘定区分 varchar(1), @勘定細目 varchar(1), @所有会社CD varchar(20), @貸借区分 varchar(1)
, @データ区分 varchar(1), @費用区分 varchar(1), @分析用区分 varchar(2), @チェック区分 varchar(2), @特別勘定区分 varchar(2)
, @諸表集計CD varchar(8)
, @キャッシュフロー計算書集計CD varchar(8)
, @製造原価報告書集計CD varchar(8)
, @株主資本等変動計算書集計CD varchar(8) 
, @作成区分 smallint

AS

if @処理区分 = 1
begin
	if @所有会社CD <> '' 
	begin

		if exists(SELECT *  FROM TDA勘定科目M WHERE システムCD = @システムCD and 演習CD = @演習CD AND 勘定CD LIKE 'C%' )
		begin
			SET @勘定CD = (SELECT          'C' + REPLACE(SPACE(3 - LEN(MAX(CONVERT(int, SUBSTRING(勘定CD, 2, 
	                      3))))), ' ', '0') + CONVERT(varchar, MAX(CONVERT(int, SUBSTRING(勘定CD, 2, 
	                      3))) + 1) AS 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD and 演習CD = @演習CD AND 勘定CD LIKE 'C%' )
		end
		else
		begin
			SET @勘定CD = 'C001'
		end
	end

	--TDA勘定科目会社学生Mから勘定CDが重複する科目を強制削除（091023小野）
	DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD
	if @@error <> 0
	begin
		select -1 return
	end

	/* 対象データの登録 */
	insert TDA勘定科目M (システムCD, 演習CD, 業種CD, 勘定CD, 勘定名称, 勘定略名称, 勘定区分, 勘定細目, 所有会社CD, 貸借区分, データ区分, 費用区分, 分析用区分, チェック区分, 特別勘定区分, 諸表集計CD, キャッシュフロー計算書集計CD, 製造原価報告書集計CD, 株主資本等変動計算書集計CD, 作成区分 )
	values (@システムCD, @演習CD, @業種CD, @勘定CD, @勘定名称, @勘定略名称, @勘定区分, @勘定細目, @所有会社CD, @貸借区分, @データ区分, @費用区分, @分析用区分, @チェック区分, @特別勘定区分, @諸表集計CD, @キャッシュフロー計算書集計CD, @製造原価報告書集計CD, @株主資本等変動計算書集計CD, @作成区分 )

	if @@error <> 0
	begin
		select -1 return
	end
end

if @処理区分 = 2
begin
	/* 対象データの更新 */
	update TDA勘定科目M
	set 勘定CD = @勘定CD 
		, 勘定名称 = @勘定名称
		, 勘定略名称 = @勘定略名称
		, 勘定区分 = @勘定区分
		, 勘定細目 = @勘定細目
		, 所有会社CD = @所有会社CD
		, 貸借区分 = @貸借区分
		, データ区分 = @データ区分
		, 費用区分 = @費用区分
		, 分析用区分 = @分析用区分 
		, チェック区分 = @チェック区分 
		, 特別勘定区分 = @特別勘定区分 
		, 諸表集計CD = @諸表集計CD
		, キャッシュフロー計算書集計CD = @キャッシュフロー計算書集計CD
		, 製造原価報告書集計CD = @製造原価報告書集計CD
		, 株主資本等変動計算書集計CD = @株主資本等変動計算書集計CD
	from TDA勘定科目M
	where システムCD = @システムCD
		and 演習CD = @演習CD
		and 業種CD = @業種CD 
		and 勘定CD = @勘定CD 

	if @@error <> 0
		begin
		select -1 return
	end
end

if @処理区分 = 4
begin
	/* 対象データの削除 */
	 DELETE FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD 

	if @@error <> 0
	begin
		select -1 return
	end
end

select @勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM勘定科目更新3
@システムCD varchar(12), @処理区分 smallint
, @演習CD varchar(12), @業種CD varchar(1), @勘定CD varchar(25)
, @勘定名称 varchar(40), @勘定略名称 varchar(20)
, @勘定区分 varchar(1), @勘定細目 varchar(1), @所有会社CD varchar(20), @貸借区分 varchar(1)
, @データ区分 varchar(1), @費用区分 varchar(1), @分析用区分 varchar(2), @チェック区分 varchar(2), @特別勘定区分 varchar(2)
, @諸表集計CD varchar(8)
, @キャッシュフロー計算書集計CD varchar(8)
, @製造原価報告書集計CD varchar(8)
, @株主資本等変動計算書集計CD varchar(8) 
, @作成区分 smallint

, @元勘定CD varchar(25)

--勘定CD変更用プロシージャです（070320小野）

AS

begin transaction

if @処理区分 = 1
begin

	if @所有会社CD <> '' 
	begin

		if exists(SELECT *  FROM TDA勘定科目M WHERE システムCD = @システムCD and 演習CD = @演習CD AND 勘定CD LIKE 'C%' )
		begin
			SET @勘定CD = (SELECT          'C' + REPLACE(SPACE(3 - LEN(MAX(CONVERT(int, SUBSTRING(勘定CD, 2, 
	                      3))))), ' ', '0') + CONVERT(varchar, MAX(CONVERT(int, SUBSTRING(勘定CD, 2, 
	                      3))) + 1) AS 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD and 演習CD = @演習CD AND 勘定CD LIKE 'C%' )
		end
		else
		begin
			SET @勘定CD = 'C001'
		end
	end

	--TDA勘定科目会社学生Mから勘定CDが重複する科目を強制削除（091023小野）
	DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD
	if @@error <> 0
	begin
		select -1 return
	end

	/* 対象データの登録 */
	insert TDA勘定科目M (システムCD, 演習CD, 業種CD, 勘定CD, 勘定名称, 勘定略名称, 勘定区分, 勘定細目, 所有会社CD, 貸借区分, データ区分, 費用区分, 分析用区分, チェック区分, 特別勘定区分, 諸表集計CD, キャッシュフロー計算書集計CD, 製造原価報告書集計CD, 株主資本等変動計算書集計CD, 作成区分 )
	values (@システムCD, @演習CD, @業種CD, @勘定CD, @勘定名称, @勘定略名称, @勘定区分, @勘定細目, @所有会社CD, @貸借区分, @データ区分, @費用区分, @分析用区分, @チェック区分, @特別勘定区分, @諸表集計CD, @キャッシュフロー計算書集計CD, @製造原価報告書集計CD, @株主資本等変動計算書集計CD, @作成区分 )

	if @@error <> 0
		begin
		select -1 return
	end
end

--実際に使っているのは以下の部分
if @処理区分 = 2
begin
	--TDA勘定科目会社学生Mから勘定CDが重複する科目を強制削除（091023小野）
	DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD
	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	--対象データの更新（勘定CDの変更含む）
	update TDA勘定科目M
	set 勘定CD = @勘定CD
		, 勘定名称 = @勘定名称
		, 勘定略名称 = @勘定略名称
		, 勘定区分 = @勘定区分
		, 勘定細目 = @勘定細目
		, 所有会社CD = @所有会社CD
		, 貸借区分 = @貸借区分
		, データ区分 = @データ区分
		, 費用区分 = @費用区分
		, 分析用区分 = @分析用区分 
		, チェック区分 = @チェック区分 
		, 特別勘定区分 = @特別勘定区分 
		, 諸表集計CD = @諸表集計CD
		, キャッシュフロー計算書集計CD = @キャッシュフロー計算書集計CD
		, 製造原価報告書集計CD = @製造原価報告書集計CD
		, 株主資本等変動計算書集計CD = @株主資本等変動計算書集計CD
	from TDA勘定科目M
	where システムCD = @システムCD
		and 演習CD = @演習CD
		and 業種CD = @業種CD 
		and 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK伝票明細F
	SET 勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK伝票明細F
	SET 相手勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 相手勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_仕訳帳F
	SET 勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_仕訳日記帳F
	SET 勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_仕訳集計表F
	SET 勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_八桁精算表F
	SET 勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_合計残高試算表F
	SET 勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_損益計算書F
	SET 借方勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 借方勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_損益計算書F
	SET 貸方勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 貸方勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_総勘定元帳F
	SET 勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_総勘定元帳F
	SET 相手勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 相手勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_貸借対照表F
	SET 借方勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 借方勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TSK帳簿_貸借対照表F
	SET 貸方勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 貸方勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TTK記帳チェックF
	SET チェック区分 = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND チェック区分 = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	UPDATE TTL合併残高F
	SET 勘定CD = @勘定CD
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 勘定CD = @元勘定CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

end


if @処理区分 = 4
begin
	/* 対象データの削除 */
	DELETE FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD 

	if @@error <> 0
	begin
		select -1 return
	end
end

commit transaction

select @勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM勘定科目更新会社学生
@システムCD varchar(12), @処理区分 smallint
, @演習CD varchar(12)
, @所有会社CD varchar(20) --同時同業では学生番号
, @業種CD varchar(1), @勘定CD varchar(25)
, @勘定名称 varchar(40), @勘定略名称 varchar(20)
, @勘定区分 varchar(1), @勘定細目 varchar(1), @貸借区分 varchar(1)
, @データ区分 varchar(1), @費用区分 varchar(1), @分析用区分 varchar(2), @チェック区分 varchar(2), @特別勘定区分 varchar(2)
, @諸表集計CD varchar(8)
, @キャッシュフロー計算書集計CD varchar(8)
, @製造原価報告書集計CD varchar(8)
, @株主資本等変動計算書集計CD varchar(8) 
, @作成区分 smallint	--作成区分は0固定

AS

begin transaction

if @処理区分 = 1
begin
	/* 対象データの登録 */
	insert TDA勘定科目会社学生M (システムCD, 演習CD, 業種CD, 勘定CD, 勘定名称, 勘定略名称, 勘定区分, 勘定細目, 所有会社CD, 貸借区分, データ区分, 費用区分, 分析用区分, チェック区分, 特別勘定区分, 諸表集計CD, キャッシュフロー計算書集計CD, 製造原価報告書集計CD, 株主資本等変動計算書集計CD, 作成区分 )
	values (@システムCD, @演習CD, @業種CD, @勘定CD, @勘定名称, @勘定略名称, @勘定区分, @勘定細目, @所有会社CD, @貸借区分, @データ区分, @費用区分, @分析用区分, @チェック区分, @特別勘定区分, @諸表集計CD, @キャッシュフロー計算書集計CD, @製造原価報告書集計CD, @株主資本等変動計算書集計CD, @作成区分 )

	if @@error <> 0 
	begin
		rollback transaction
		select -1
		return
	end
end

if @処理区分 = 2
begin
	/* 対象データの更新 */
	update TDA勘定科目会社学生M
	set 勘定CD = @勘定CD 
		, 勘定名称 = @勘定名称
		, 勘定略名称 = @勘定略名称
		, 勘定区分 = @勘定区分
		, 勘定細目 = @勘定細目
		, 貸借区分 = @貸借区分
		, データ区分 = @データ区分
		, 費用区分 = @費用区分
		, 分析用区分 = @分析用区分 
		, チェック区分 = @チェック区分 
		, 特別勘定区分 = @特別勘定区分 
		, 諸表集計CD = @諸表集計CD
		, キャッシュフロー計算書集計CD = @キャッシュフロー計算書集計CD
		, 製造原価報告書集計CD = @製造原価報告書集計CD
		, 株主資本等変動計算書集計CD = @株主資本等変動計算書集計CD
	from TDA勘定科目会社学生M
	where システムCD = @システムCD
		and 演習CD = @演習CD
		and 所有会社CD = @所有会社CD
		and 業種CD = @業種CD 
		and 勘定CD = @勘定CD 

	if @@error <> 0 
	begin
		rollback transaction
		select -1
		return
	end
end

if @処理区分 = 4
begin
	/* 対象データの削除 */
	DELETE FROM TDA勘定科目学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 所有会社CD = @所有会社CD AND 業種CD = @業種CD AND 勘定CD = @勘定CD 

	if @@error <> 0 
	begin
		rollback transaction
		select -1
		return
	end
end

commit transaction

select @勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO









CREATE PROCEDURE dbo.SPM勘定科目更新特別勘定区分
@システムCD varchar(12)
, @演習CD varchar(12)
, @勘定CD varchar(25)
, @特別勘定区分 varchar(2)

AS

begin transaction

--先に当該特別勘定区分を持つ勘定科目の特別勘定区分を解除
UPDATE TDA勘定科目M
SET 特別勘定区分 = ''
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 特別勘定区分 = @特別勘定区分

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

UPDATE TDA勘定科目M
SET 特別勘定区分 = @特別勘定区分
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 勘定CD = @勘定CD

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

commit transaction









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM勘定科目更新諸表集計先
@システムCD varchar(12)
, @演習CD varchar(12)
, @勘定CD varchar(25)
, @帳票区分 varchar(2)
, @集計CD varchar(4)

AS

begin transaction

if @帳票区分 = 'G'	--製造原価報告書集計CDの更新
begin
	UPDATE TDA勘定科目M
	SET 製造原価報告書集計CD = @集計CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 勘定CD = @勘定CD
end

if @帳票区分 = 'P' OR @帳票区分 = 'B'	--諸表集計CDの更新
begin
	UPDATE TDA勘定科目M
	SET 諸表集計CD = @集計CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 勘定CD = @勘定CD
end

if @帳票区分 = 'C'	--キャッシュフロー計算書集計CDの更新
begin
	UPDATE TDA勘定科目M
	SET キャッシュフロー計算書集計CD = @集計CD
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 勘定CD = @勘定CD
end

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPM勘定科目次科目
@システムCD varchar(12), @演習CD  varchar(12)  ,  @業種CD  varchar(1)   ,  @勘定CD    varchar(25)
AS

/* 対象データの削除 */
SELECT TOP 1 勘定CD FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 業種CD = @業種CD AND 勘定CD > @勘定CD 

if @@error <> 0
   begin
       select -1  return
   end


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM勘定科目詳細一覧
@システムCD varchar(12), @演習CD varchar(12)  , @業種区分 varchar(2)  , @細目区分 varchar(1)
AS

/* 対象勘定科目M一覧データの抽出 */

	SELECT          TDA勘定科目M.*, 勘定区分T.区分名称 AS 勘定区分名称, 
                      細目区分T.区分名称 AS 勘定細目名称, 貸借区分T.区分名称 AS 貸借区分名称, 
                      分析区分T.区分名称 AS 分析区分名称, 
                      費用区分T.区分名称 AS 費用区分名称,
                      チェック区分T.区分名称 AS チェック区分名称,
                      特別勘定区分T.区分名称 AS 特別勘定区分名称,
                      作成会社.会社略名称 AS 所有会社略名称
	FROM            TDA勘定科目M 
LEFT OUTER JOIN TC9区分M 分析区分T ON TDA勘定科目M.分析用区分 = 分析区分T.区分CD AND TDA勘定科目M.システムCD = 分析区分T.システムCD
LEFT OUTER JOIN TC9区分M 貸借区分T ON TDA勘定科目M.貸借区分 = 貸借区分T.区分CD AND TDA勘定科目M.システムCD = 貸借区分T.システムCD
LEFT OUTER JOIN TC9区分M 勘定区分T ON TDA勘定科目M.勘定区分 = 勘定区分T.区分CD AND TDA勘定科目M.システムCD = 勘定区分T.システムCD
LEFT OUTER JOIN TC9区分M 細目区分T ON TDA勘定科目M.勘定細目 = 細目区分T.区分CD AND TDA勘定科目M.システムCD = 細目区分T.システムCD
LEFT OUTER JOIN TC9区分M 費用区分T ON TDA勘定科目M.費用区分 = 費用区分T.区分CD AND TDA勘定科目M.システムCD = 費用区分T.システムCD
LEFT OUTER JOIN TC9区分M チェック区分T ON TDA勘定科目M.チェック区分 = チェック区分T.区分CD AND TDA勘定科目M.システムCD = チェック区分T.システムCD
LEFT OUTER JOIN TC9区分M 特別勘定区分T ON TDA勘定科目M.特別勘定区分 = 特別勘定区分T.区分CD AND TDA勘定科目M.システムCD = 特別勘定区分T.システムCD
LEFT OUTER JOIN TDA会社M 作成会社 ON TDA勘定科目M.システムCD = 作成会社.システムCD AND TDA勘定科目M.演習CD = 作成会社.演習CD AND TDA勘定科目M.所有会社CD = 作成会社.会社CD
	WHERE           TDA勘定科目M.システムCD =   @システムCD  AND    TDA勘定科目M.演習CD =   @演習CD   
--	 AND TDA勘定科目M.業種CD   =   @業種区分
	AND (TDA勘定科目M.業種CD LIKE LEFT(@業種区分, 1) OR TDA勘定科目M.業種CD LIKE RIGHT(@業種区分, 1)) --2区分まで取得できるよう変更
	 AND TDA勘定科目M.勘定細目  LIKE   @細目区分
	 AND  (勘定区分T.データ識別 = '勘定区分' OR 勘定区分T.データ識別 IS NULL)
	 AND  (細目区分T.データ識別 = '勘定細目' OR 細目区分T.データ識別 IS NULL)
	 AND  (貸借区分T.データ識別 = '貸借区分' OR 貸借区分T.データ識別 IS NULL)
	 AND  (分析区分T.データ識別 = '分析用区分' OR 分析区分T.データ識別 IS NULL)
	 AND  (費用区分T.データ識別 = '費用区分' OR 費用区分T.データ識別 IS NULL)
	 AND  (チェック区分T.データ識別 = 'チェック区分' OR チェック区分T.データ識別 IS NULL)
	 AND  (特別勘定区分T.データ識別 = '特別勘定区分' OR 特別勘定区分T.データ識別 IS NULL)
	ORDER BY     TDA勘定科目M.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM勘定科目詳細一覧全部
@システムCD varchar(12), @演習CD varchar(12), @業種区分 varchar(2), @細目区分 varchar(1)
, @抽出区分 int
, @所有会社CD varchar(20) --同時同業では学生番号

AS

SELECT TDA勘定科目M.*
	, 勘定区分T.区分名称 AS 勘定区分名称
	, 細目区分T.区分名称 AS 勘定細目名称
	, 貸借区分T.区分名称 AS 貸借区分名称
	, 分析区分T.区分名称 AS 分析区分名称
	, 費用区分T.区分名称 AS 費用区分名称
	, チェック区分T.区分名称 AS チェック区分名称
	, 特別勘定区分T.区分名称 AS 特別勘定区分名称
	, 作成会社.会社略名称 AS 所有会社略名称
FROM (SELECT * FROM TDA勘定科目M
	WHERE @抽出区分 = 0 OR @抽出区分 = 1
	UNION	--TDA勘定科目会社学生Mを連結
	SELECT * FROM TDA勘定科目会社学生M
	WHERE (@抽出区分 = 0 OR @抽出区分 = 2)
		AND TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
LEFT OUTER JOIN TC9区分M 分析区分T ON TDA勘定科目M.分析用区分 = 分析区分T.区分CD AND TDA勘定科目M.システムCD = 分析区分T.システムCD
LEFT OUTER JOIN TC9区分M 貸借区分T ON TDA勘定科目M.貸借区分 = 貸借区分T.区分CD AND TDA勘定科目M.システムCD = 貸借区分T.システムCD
LEFT OUTER JOIN TC9区分M 勘定区分T ON TDA勘定科目M.勘定区分 = 勘定区分T.区分CD AND TDA勘定科目M.システムCD = 勘定区分T.システムCD
LEFT OUTER JOIN TC9区分M 細目区分T ON TDA勘定科目M.勘定細目 = 細目区分T.区分CD AND TDA勘定科目M.システムCD = 細目区分T.システムCD
LEFT OUTER JOIN TC9区分M 費用区分T ON TDA勘定科目M.費用区分 = 費用区分T.区分CD AND TDA勘定科目M.システムCD = 費用区分T.システムCD
LEFT OUTER JOIN TC9区分M チェック区分T ON TDA勘定科目M.チェック区分 = チェック区分T.区分CD AND TDA勘定科目M.システムCD = チェック区分T.システムCD
LEFT OUTER JOIN TC9区分M 特別勘定区分T ON TDA勘定科目M.特別勘定区分 = 特別勘定区分T.区分CD AND TDA勘定科目M.システムCD = 特別勘定区分T.システムCD
LEFT OUTER JOIN TDA会社M 作成会社 ON TDA勘定科目M.システムCD = 作成会社.システムCD AND TDA勘定科目M.演習CD = 作成会社.演習CD AND TDA勘定科目M.所有会社CD = 作成会社.会社CD
WHERE TDA勘定科目M.システムCD = @システムCD
	AND TDA勘定科目M.演習CD = @演習CD
--	AND TDA勘定科目M.業種CD = @業種区分
	AND (TDA勘定科目M.業種CD LIKE LEFT(@業種区分, 1) OR TDA勘定科目M.業種CD LIKE RIGHT(@業種区分, 1)) --2区分まで取得できるよう変更
	AND TDA勘定科目M.勘定細目 LIKE @細目区分
	AND  (勘定区分T.データ識別 = '勘定区分' OR 勘定区分T.データ識別 IS NULL)
	AND  (細目区分T.データ識別 = '勘定細目' OR 細目区分T.データ識別 IS NULL)
	AND  (貸借区分T.データ識別 = '貸借区分' OR 貸借区分T.データ識別 IS NULL)
	AND  (分析区分T.データ識別 = '分析用区分' OR 分析区分T.データ識別 IS NULL)
	AND  (費用区分T.データ識別 = '費用区分' OR 費用区分T.データ識別 IS NULL)
	AND  (チェック区分T.データ識別 = 'チェック区分' OR チェック区分T.データ識別 IS NULL)
	AND  (特別勘定区分T.データ識別 = '特別勘定区分' OR 特別勘定区分T.データ識別 IS NULL)
ORDER BY TDA勘定科目M.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPM勘定科目詳細取得
@システムCD varchar(12), @演習CD varchar(12) , @業種区分 varchar(1) , @勘定CD varchar(25)       
AS

	SELECT        TDA報告書書式M.集計名称 AS 諸表集計名称,    TDA勘定科目M.*, 勘定区分T.区分名称 AS 勘定区分名称, 
                      細目区分T.区分名称 AS 勘定細目名称, 貸借区分T.区分名称 AS 貸借区分名称, 
                      分析区分T.区分名称 AS 分析区分名称, 
                      費用区分T.区分名称 AS 費用区分名称,
                      チェック区分T.区分名称 AS チェック区分名称,
                      特別勘定区分T.区分名称 AS 特別勘定区分名称,
                      作成会社.会社略名称 AS 所有会社略名称
	FROM            TDA勘定科目M 
LEFT OUTER JOIN TC9区分M 分析区分T ON TDA勘定科目M.分析用区分 = 分析区分T.区分CD AND TDA勘定科目M.システムCD = 分析区分T.システムCD
LEFT OUTER JOIN TC9区分M 貸借区分T ON TDA勘定科目M.貸借区分 = 貸借区分T.区分CD AND TDA勘定科目M.システムCD = 貸借区分T.システムCD
LEFT OUTER JOIN TC9区分M 勘定区分T ON TDA勘定科目M.勘定区分 = 勘定区分T.区分CD AND TDA勘定科目M.システムCD = 勘定区分T.システムCD
LEFT OUTER JOIN TC9区分M 細目区分T ON TDA勘定科目M.勘定細目 = 細目区分T.区分CD AND TDA勘定科目M.システムCD = 細目区分T.システムCD
LEFT OUTER JOIN TC9区分M 費用区分T ON TDA勘定科目M.費用区分 = 費用区分T.区分CD AND TDA勘定科目M.システムCD = 費用区分T.システムCD
LEFT OUTER JOIN TC9区分M チェック区分T ON TDA勘定科目M.チェック区分 = チェック区分T.区分CD AND TDA勘定科目M.システムCD = チェック区分T.システムCD
LEFT OUTER JOIN TC9区分M 特別勘定区分T ON TDA勘定科目M.特別勘定区分 = 特別勘定区分T.区分CD AND TDA勘定科目M.システムCD = 特別勘定区分T.システムCD
LEFT OUTER JOIN TDA報告書書式M ON TDA勘定科目M.システムCD = TDA報告書書式M.システムCD AND TDA勘定科目M.演習CD = TDA報告書書式M.演習CD AND TDA勘定科目M.諸表集計CD = TDA報告書書式M.集計CD
LEFT OUTER JOIN TDA会社M 作成会社 ON TDA勘定科目M.システムCD = 作成会社.システムCD AND TDA勘定科目M.演習CD = 作成会社.演習CD AND TDA勘定科目M.所有会社CD = 作成会社.会社CD
	WHERE           TDA勘定科目M.システムCD =   @システムCD  AND    TDA勘定科目M.演習CD =   @演習CD     
	 AND TDA勘定科目M.業種CD   =   @業種区分
	 AND TDA勘定科目M.勘定CD  =    @勘定CD
	 AND  (勘定区分T.データ識別 = '勘定区分' OR 勘定区分T.データ識別 IS NULL)
	 AND  (細目区分T.データ識別 = '勘定細目' OR 細目区分T.データ識別 IS NULL)
	 AND  (貸借区分T.データ識別 = '貸借区分' OR 貸借区分T.データ識別 IS NULL)
	 AND  (分析区分T.データ識別 = '分析用区分' OR 分析区分T.データ識別 IS NULL)
	 AND  (費用区分T.データ識別 = '費用区分' OR 費用区分T.データ識別 IS NULL)
	 AND  (チェック区分T.データ識別 = 'チェック区分' OR チェック区分T.データ識別 IS NULL)
	 AND  (特別勘定区分T.データ識別 = '特別勘定区分' OR 特別勘定区分T.データ識別 IS NULL)
	ORDER BY     TDA勘定科目M.勘定CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE   PROCEDURE dbo.SPM勘定科目詳細取得2
@システムCD varchar(12), @演習CD varchar(12), @業種区分 varchar(1), @勘定CD varchar(25)       

--08/03/13 製造原価報告書の集計名称を追加
--08/08/29 製造原価報告書の集計名称を変更
--09/06/11 キャッシュフロー計算書集計マスタを追加

AS

SELECT 諸表集計名称T.集計名称 AS 諸表集計名称
	,TDA勘定科目M.*
	,勘定区分T.区分名称 AS 勘定区分名称
	,細目区分T.区分名称 AS 勘定細目名称
	,貸借区分T.区分名称 AS 貸借区分名称
	,分析区分T.区分名称 AS 分析区分名称
	,費用区分T.区分名称 AS 費用区分名称
	,チェック区分T.区分名称 AS チェック区分名称
	,特別勘定区分T.区分名称 AS 特別勘定区分名称
	,作成会社.会社略名称 AS 所有会社略名称
	,キャッシュフロー計算書集計名称T.集計名称 AS キャッシュフロー計算書集計名称
	,製造原価集計名称T.集計名称 AS 製造原価報告書集計名称
	,集計CDT.集計分類1 AS 集計分類1
	,集計CDT.集計分類2 AS 集計分類2
	,集計CDT.集計分類3 AS 集計分類3
	,集計CDT.集計区分 AS 集計区分
	,集計CDT.変動額細目 AS 変動額細目
FROM TDA勘定科目M 
LEFT OUTER JOIN TC9区分M 分析区分T
	ON TDA勘定科目M.分析用区分 = 分析区分T.区分CD
	AND TDA勘定科目M.システムCD = 分析区分T.システムCD
LEFT OUTER JOIN TC9区分M 貸借区分T
	ON TDA勘定科目M.貸借区分 = 貸借区分T.区分CD
	AND TDA勘定科目M.システムCD = 貸借区分T.システムCD
LEFT OUTER JOIN TC9区分M 勘定区分T
	ON TDA勘定科目M.勘定区分 = 勘定区分T.区分CD
	AND TDA勘定科目M.システムCD = 勘定区分T.システムCD
LEFT OUTER JOIN TC9区分M 細目区分T
	ON TDA勘定科目M.勘定細目 = 細目区分T.区分CD
	AND TDA勘定科目M.システムCD = 細目区分T.システムCD
LEFT OUTER JOIN TC9区分M 費用区分T
	ON TDA勘定科目M.費用区分 = 費用区分T.区分CD
	AND TDA勘定科目M.システムCD = 費用区分T.システムCD
LEFT OUTER JOIN TC9区分M チェック区分T
	ON TDA勘定科目M.チェック区分 = チェック区分T.区分CD
	AND TDA勘定科目M.システムCD = チェック区分T.システムCD
LEFT OUTER JOIN TC9区分M 特別勘定区分T
	ON TDA勘定科目M.特別勘定区分 = 特別勘定区分T.区分CD
	AND TDA勘定科目M.システムCD = 特別勘定区分T.システムCD
LEFT OUTER JOIN TDA報告書書式M 諸表集計名称T
	ON TDA勘定科目M.システムCD = 諸表集計名称T.システムCD
	AND TDA勘定科目M.演習CD = 諸表集計名称T.演習CD
	AND TDA勘定科目M.諸表集計CD = 諸表集計名称T.集計CD
LEFT OUTER JOIN TDA報告書書式M 製造原価集計名称T
	ON TDA勘定科目M.システムCD = 製造原価集計名称T.システムCD
	AND TDA勘定科目M.演習CD = 製造原価集計名称T.演習CD
	AND TDA勘定科目M.製造原価報告書集計CD = 製造原価集計名称T.集計CD
LEFT OUTER JOIN TDA報告書書式M キャッシュフロー計算書集計名称T
	ON TDA勘定科目M.システムCD = キャッシュフロー計算書集計名称T.システムCD
	AND TDA勘定科目M.演習CD = キャッシュフロー計算書集計名称T.演習CD
	AND TDA勘定科目M.キャッシュフロー計算書集計CD =キャッシュフロー計算書集計名称T.集計CD
LEFT OUTER JOIN TDA株主資本等変動計算書書式M 集計CDT
	ON TDA勘定科目M.システムCD = 集計CDT.システムCD
	AND TDA勘定科目M.演習CD = 集計CDT.演習CD
	AND TDA勘定科目M.株主資本等変動計算書集計CD = 集計CDT.集計CD
LEFT OUTER JOIN TDA会社M 作成会社
	ON TDA勘定科目M.システムCD = 作成会社.システムCD
	AND TDA勘定科目M.演習CD = 作成会社.演習CD
	AND TDA勘定科目M.所有会社CD = 作成会社.会社CD
WHERE TDA勘定科目M.システムCD = @システムCD
	AND TDA勘定科目M.演習CD = @演習CD     
	AND (@業種区分 = '' OR TDA勘定科目M.業種CD = @業種区分)
	AND TDA勘定科目M.勘定CD = @勘定CD
	AND (勘定区分T.データ識別 = '勘定区分' OR 勘定区分T.データ識別 IS NULL)
	AND (細目区分T.データ識別 = '勘定細目' OR 細目区分T.データ識別 IS NULL)
	AND (貸借区分T.データ識別 = '貸借区分' OR 貸借区分T.データ識別 IS NULL)
	AND (分析区分T.データ識別 = '分析用区分' OR 分析区分T.データ識別 IS NULL)
	AND (費用区分T.データ識別 = '費用区分' OR 費用区分T.データ識別 IS NULL)
	AND (チェック区分T.データ識別 = 'チェック区分' OR チェック区分T.データ識別 IS NULL)
	AND (特別勘定区分T.データ識別 = '特別勘定区分' OR 特別勘定区分T.データ識別 IS NULL)
ORDER BY TDA勘定科目M.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM勘定科目詳細取得全部
@システムCD varchar(12), @演習CD varchar(12), @業種区分 varchar(1), @勘定CD varchar(25)
, @所有会社CD varchar(20) --同時同業では学生番号

--08/03/13 製造原価報告書の集計名称を追加
--08/08/29 製造原価報告書の集計名称を変更
--09/06/11 キャッシュフロー計算書集計マスタを追加
--09/10/22 SPM勘定科目詳細取得2よりTDA勘定科目会社学生Mを連結するため拡張

AS

SELECT 諸表集計名称T.集計名称 AS 諸表集計名称
	,TDA勘定科目M.*
	,勘定区分T.区分名称 AS 勘定区分名称
	,細目区分T.区分名称 AS 勘定細目名称
	,貸借区分T.区分名称 AS 貸借区分名称
	,分析区分T.区分名称 AS 分析区分名称
	,費用区分T.区分名称 AS 費用区分名称
	,チェック区分T.区分名称 AS チェック区分名称
	,特別勘定区分T.区分名称 AS 特別勘定区分名称
	,作成会社.会社略名称 AS 所有会社略名称
	,キャッシュフロー計算書集計名称T.集計名称 AS キャッシュフロー計算書集計名称
	,製造原価集計名称T.集計名称 AS 製造原価報告書集計名称
	,集計CDT.集計分類1 AS 集計分類1
	,集計CDT.集計分類2 AS 集計分類2
	,集計CDT.集計分類3 AS 集計分類3
	,集計CDT.集計区分 AS 集計区分
	,集計CDT.変動額細目 AS 変動額細目
FROM (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
LEFT OUTER JOIN TC9区分M 分析区分T
	ON TDA勘定科目M.分析用区分 = 分析区分T.区分CD
	AND TDA勘定科目M.システムCD = 分析区分T.システムCD
LEFT OUTER JOIN TC9区分M 貸借区分T
	ON TDA勘定科目M.貸借区分 = 貸借区分T.区分CD
	AND TDA勘定科目M.システムCD = 貸借区分T.システムCD
LEFT OUTER JOIN TC9区分M 勘定区分T
	ON TDA勘定科目M.勘定区分 = 勘定区分T.区分CD
	AND TDA勘定科目M.システムCD = 勘定区分T.システムCD
LEFT OUTER JOIN TC9区分M 細目区分T
	ON TDA勘定科目M.勘定細目 = 細目区分T.区分CD
	AND TDA勘定科目M.システムCD = 細目区分T.システムCD
LEFT OUTER JOIN TC9区分M 費用区分T
	ON TDA勘定科目M.費用区分 = 費用区分T.区分CD
	AND TDA勘定科目M.システムCD = 費用区分T.システムCD
LEFT OUTER JOIN TC9区分M チェック区分T
	ON TDA勘定科目M.チェック区分 = チェック区分T.区分CD
	AND TDA勘定科目M.システムCD = チェック区分T.システムCD
LEFT OUTER JOIN TC9区分M 特別勘定区分T
	ON TDA勘定科目M.特別勘定区分 = 特別勘定区分T.区分CD
	AND TDA勘定科目M.システムCD = 特別勘定区分T.システムCD
LEFT OUTER JOIN TDA報告書書式M 諸表集計名称T
	ON TDA勘定科目M.システムCD = 諸表集計名称T.システムCD
	AND TDA勘定科目M.演習CD = 諸表集計名称T.演習CD
	AND TDA勘定科目M.諸表集計CD = 諸表集計名称T.集計CD
LEFT OUTER JOIN TDA報告書書式M 製造原価集計名称T
	ON TDA勘定科目M.システムCD = 製造原価集計名称T.システムCD
	AND TDA勘定科目M.演習CD = 製造原価集計名称T.演習CD
	AND TDA勘定科目M.製造原価報告書集計CD = 製造原価集計名称T.集計CD
LEFT OUTER JOIN TDA報告書書式M キャッシュフロー計算書集計名称T
	ON TDA勘定科目M.システムCD = キャッシュフロー計算書集計名称T.システムCD
	AND TDA勘定科目M.演習CD = キャッシュフロー計算書集計名称T.演習CD
	AND TDA勘定科目M.キャッシュフロー計算書集計CD =キャッシュフロー計算書集計名称T.集計CD
LEFT OUTER JOIN TDA株主資本等変動計算書書式M 集計CDT
	ON TDA勘定科目M.システムCD = 集計CDT.システムCD
	AND TDA勘定科目M.演習CD = 集計CDT.演習CD
	AND TDA勘定科目M.株主資本等変動計算書集計CD = 集計CDT.集計CD
LEFT OUTER JOIN TDA会社M 作成会社
	ON TDA勘定科目M.システムCD = 作成会社.システムCD
	AND TDA勘定科目M.演習CD = 作成会社.演習CD
	AND TDA勘定科目M.所有会社CD = 作成会社.会社CD
WHERE TDA勘定科目M.システムCD = @システムCD
	AND TDA勘定科目M.演習CD = @演習CD     
	AND (@業種区分 = '' OR TDA勘定科目M.業種CD = @業種区分)
	AND TDA勘定科目M.勘定CD = @勘定CD
	AND (勘定区分T.データ識別 = '勘定区分' OR 勘定区分T.データ識別 IS NULL)
	AND (細目区分T.データ識別 = '勘定細目' OR 細目区分T.データ識別 IS NULL)
	AND (貸借区分T.データ識別 = '貸借区分' OR 貸借区分T.データ識別 IS NULL)
	AND (分析区分T.データ識別 = '分析用区分' OR 分析区分T.データ識別 IS NULL)
	AND (費用区分T.データ識別 = '費用区分' OR 費用区分T.データ識別 IS NULL)
	AND (チェック区分T.データ識別 = 'チェック区分' OR チェック区分T.データ識別 IS NULL)
	AND (特別勘定区分T.データ識別 = '特別勘定区分' OR 特別勘定区分T.データ識別 IS NULL)
	AND (TDA勘定科目M.所有会社CD = '' OR TDA勘定科目M.所有会社CD IS NULL OR TDA勘定科目M.所有会社CD = @所有会社CD)
ORDER BY TDA勘定科目M.勘定CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPM同時同業ユーザーデータコピー
@システムCD varchar(12), @演習CD varchar(12), @学生番号 varchar(12), @コピー元学生番号 varchar(12)

AS

-- [160926追加] TSK補助簿_材料仕入帳F
-- [160926追加] TSK補助簿_材料元帳F
-- [160926追加] TSK補助簿_小口現金出納帳F
-- [160926追加] TGU保険請求領収書F
-- [160926追加] TGU運送費請求領収書F
-- [160926追加] TGU倉庫料請求領収書F
-- [160926追加] TDA経費労務費M
-- [160926追加] TSK補助簿_原価計算表F
-- [160926追加] TSK補助簿_製造間接費配賦表F

declare @最終参加日時 datetime

begin transaction

if(@コピー元学生番号 <> '' AND @学生番号 <> '')
begin


--コピー元ユーザーの演習履歴を一時テーブルにコピー
SELECT TC6演習履歴M.*
INTO #TMP_TC6演習履歴M
FROM TC6演習履歴M
WHERE TC6演習履歴M.システムCD = @システムCD
	AND TC6演習履歴M.演習CD = @演習CD
	AND TC6演習履歴M.学生番号 = @コピー元学生番号

--[一時テーブル]コピー元ユーザーの演習履歴のユーザーIDを変更
UPDATE #TMP_TC6演習履歴M
SET 選択会社CD = @学生番号
	, 学生番号 = @学生番号
WHERE 選択会社CD = @コピー元学生番号
	AND 学生番号 = @コピー元学生番号
UPDATE #TMP_TC6演習履歴M	--マスタコピー会社の場合
SET 選択会社CD = REPLACE(選択会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 学生番号 = @学生番号
WHERE 選択会社CD LIKE '%-' + @コピー元学生番号
	AND 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの演習履歴を削除
DELETE FROM TC6演習履歴M
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 学生番号 = @学生番号

--本テーブルにコピーする
INSERT INTO TC6演習履歴M
SELECT *
FROM #TMP_TC6演習履歴M

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの同時同業会社を一時テーブルにコピー
SELECT TDA会社M.*
INTO #TMP_TDA会社M
FROM TDA会社M
WHERE TDA会社M.システムCD = @システムCD
	AND TDA会社M.演習CD = @演習CD
	AND TDA会社M.学生番号 = @コピー元学生番号

if(exists(SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @学生番号 AND 学生番号 = @学生番号))
begin
	--[一時テーブル]自社設定会社が存在する場合は一時テーブルのコピー元自社設定会社を削除
	DELETE FROM #TMP_TDA会社M
	WHERE 会社CD = @コピー元学生番号
end
else
begin
	--[一時テーブル]コピー元ユーザーの自社設定会社のユーザーIDを変更
	UPDATE #TMP_TDA会社M
	SET 会社CD = @学生番号
		, 学生番号 = @学生番号
	WHERE 会社CD = @コピー元学生番号
end

--[一時テーブル]コピー元ユーザーのマスタコピー会社のユーザーIDを変更
UPDATE #TMP_TDA会社M
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 学生番号 = @学生番号
WHERE 会社CD <> @学生番号

--[一時テーブル]コピー元ユーザーのマスタコピー会社の寄託会社CDを変更
UPDATE #TMP_TDA会社M
SET 寄託会社CD = REPLACE(寄託会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 寄託会社CD <> ''
	AND 寄託会社CD IS NOT NULL

--[本テーブル]ユーザーのマスタコピー会社を削除
DELETE FROM TDA会社M
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD <> @学生番号
	AND 学生番号 = @学生番号

--本テーブルにコピーする
INSERT INTO TDA会社M
SELECT *
FROM #TMP_TDA会社M

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの開発商品を一時テーブルにコピー
SELECT TDA商品M.*
INTO #TMP_TDA商品M
FROM TDA商品M
WHERE TDA商品M.システムCD = @システムCD
	AND TDA商品M.演習CD = @演習CD
	AND TDA商品M.学生番号 = @コピー元学生番号

--[一時テーブル]コピー元ユーザーの開発商品のユーザーID・所有会社を変更
UPDATE #TMP_TDA商品M
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 所有会社CD = REPLACE(所有会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 学生番号 = @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
	AND 所有会社CD LIKE '%-' + @コピー元学生番号
	AND 学生番号 = @コピー元学生番号
UPDATE #TMP_TDA商品M
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 所有会社CD = @学生番号
	, 学生番号 = @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
	AND 所有会社CD = @コピー元学生番号
	AND 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの開発商品を削除
DELETE FROM TDA商品M
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND (所有会社CD = @学生番号 OR 所有会社CD LIKE '%-' + @学生番号)
	AND 学生番号 = @学生番号

--本テーブルにコピーする
INSERT INTO TDA商品M
SELECT *
FROM #TMP_TDA商品M

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの開発材料を一時テーブルにコピー
SELECT TDA材料M.*
INTO #TMP_TDA材料M
FROM TDA材料M
WHERE TDA材料M.システムCD = @システムCD
	AND TDA材料M.演習CD = @演習CD
	AND TDA材料M.学生番号 = @コピー元学生番号

--[一時テーブル]コピー元ユーザーの開発材料のユーザーID・所有会社を変更
UPDATE #TMP_TDA材料M
SET 材料CD = REPLACE(材料CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 所有会社CD = REPLACE(所有会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 学生番号 = @学生番号
WHERE 材料CD LIKE '%-' + @コピー元学生番号
	AND 所有会社CD LIKE '%-' + @コピー元学生番号
	AND 学生番号 = @コピー元学生番号
UPDATE #TMP_TDA材料M
SET 材料CD = REPLACE(材料CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 所有会社CD = @学生番号
	, 学生番号 = @学生番号
WHERE 材料CD LIKE '%-' + @コピー元学生番号
	AND 所有会社CD = @コピー元学生番号
	AND 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの開発材料を削除
DELETE FROM TDA材料M
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 材料CD LIKE '%-' + @学生番号
	AND (所有会社CD = @学生番号 OR 所有会社CD LIKE '%-' + @学生番号)
	AND 学生番号 = @学生番号

--本テーブルにコピーする
INSERT INTO TDA材料M
SELECT *
FROM #TMP_TDA材料M

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの部品展開表を一時テーブルにコピー
SELECT TDA部品展開M.*
INTO #TMP_TDA部品展開M
FROM TDA部品展開M
WHERE TDA部品展開M.システムCD = @システムCD
	AND TDA部品展開M.演習CD = @演習CD
	AND (TDA部品展開M.会社CD = @コピー元学生番号 OR TDA部品展開M.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの部品展開表の会社CD・製品CD・材料CDを変更
UPDATE #TMP_TDA部品展開M
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 製品CD = REPLACE(製品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 材料CD = REPLACE(材料CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
	AND 製品CD LIKE '%-' + @コピー元学生番号
	AND 材料CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TDA部品展開M
SET 会社CD = @学生番号
	, 製品CD = REPLACE(製品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
	, 材料CD = REPLACE(材料CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD = @コピー元学生番号
	AND 製品CD LIKE '%-' + @コピー元学生番号
	AND 材料CD LIKE '%-' + @コピー元学生番号

--[本テーブル]ユーザーの部品展開表を削除
DELETE FROM TDA部品展開M
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND (会社CD = @学生番号 OR 会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TDA部品展開M
SELECT *
FROM #TMP_TDA部品展開M

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの入出庫を一時テーブルにコピー
SELECT TGA入出庫TRN.*
INTO #TMP_TGA入出庫TRN
FROM TGA入出庫TRN
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @演習CD
	AND (TGA入出庫TRN.会社CD = @コピー元学生番号 OR TGA入出庫TRN.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの入出庫の会社CD・作成会社CD・取引先CD・学生番号・寄託会社CD・運送会社CD・先方寄託会社CDを変更
UPDATE #TMP_TGA入出庫TRN
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 寄託会社CD = REPLACE(寄託会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 寄託会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 運送会社CD = REPLACE(運送会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 運送会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 先方寄託会社CD = REPLACE(先方寄託会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 先方寄託会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 寄託会社CD = @学生番号
WHERE 寄託会社CD = @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 運送会社CD = @学生番号
WHERE 運送会社CD = @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 先方寄託会社CD = @学生番号
WHERE 先方寄託会社CD = @コピー元学生番号
UPDATE #TMP_TGA入出庫TRN
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの入出庫を削除
DELETE FROM TGA入出庫TRN
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @演習CD
	AND (TGA入出庫TRN.会社CD = @学生番号 OR TGA入出庫TRN.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGA入出庫TRN
SELECT *
FROM #TMP_TGA入出庫TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの入出庫明細を一時テーブルにコピー
SELECT TGA入出庫明細TRN.*
INTO #TMP_TGA入出庫明細TRN
FROM TGA入出庫明細TRN
WHERE TGA入出庫明細TRN.システムCD = @システムCD
	AND TGA入出庫明細TRN.演習CD = @演習CD
	AND (TGA入出庫明細TRN.会社CD = @コピー元学生番号 OR TGA入出庫明細TRN.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの入出庫明細の会社CD・作成会社CD・商品CDを変更
UPDATE #TMP_TGA入出庫明細TRN
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫明細TRN
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫明細TRN
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA入出庫明細TRN
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGA入出庫明細TRN
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TGA入出庫明細TRN
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーの入出庫明細を削除
DELETE FROM TGA入出庫明細TRN
WHERE TGA入出庫明細TRN.システムCD = @システムCD
	AND TGA入出庫明細TRN.演習CD = @演習CD
	AND (TGA入出庫明細TRN.会社CD = @学生番号 OR TGA入出庫明細TRN.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGA入出庫明細TRN
SELECT *
FROM #TMP_TGA入出庫明細TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの契約書を一時テーブルにコピー
SELECT TGA契約書F.*
INTO #TMP_TGA契約書F
FROM TGA契約書F
WHERE TGA契約書F.システムCD = @システムCD
	AND TGA契約書F.演習CD = @演習CD
	AND (TGA契約書F.会社CD = @コピー元学生番号 OR TGA契約書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの契約書の会社CD・作成会社CDを変更
UPDATE #TMP_TGA契約書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA契約書F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA契約書F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA契約書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGA契約書F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TGA契約書F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号

--[本テーブル]ユーザーの契約書を削除
DELETE FROM TGA契約書F
WHERE TGA契約書F.システムCD = @システムCD
	AND TGA契約書F.演習CD = @演習CD
	AND (TGA契約書F.会社CD = @学生番号 OR TGA契約書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGA契約書F
SELECT *
FROM #TMP_TGA契約書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの手形を一時テーブルにコピー
SELECT TGA手形F.*
INTO #TMP_TGA手形F
FROM TGA手形F
WHERE TGA手形F.システムCD = @システムCD
	AND TGA手形F.演習CD = @演習CD
	AND (TGA手形F.作成会社CD = @コピー元学生番号 OR TGA手形F.作成会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの手形の会社CD・作成会社CD・振出人CD・受取人CD・引受人CD・裏書人CD・被裏書人CD・支払場所CD・学生番号を変更
UPDATE #TMP_TGA手形F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 振出人CD = REPLACE(振出人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 振出人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 受取人CD = REPLACE(受取人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 受取人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 引受人CD = REPLACE(引受人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 引受人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 裏書人CD = REPLACE(裏書人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 裏書人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 被裏書人CD = REPLACE(被裏書人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 被裏書人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 支払場所CD = REPLACE(支払場所CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 支払場所CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 振出人CD = @学生番号
WHERE 振出人CD = @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 受取人CD = @学生番号
WHERE 受取人CD = @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 引受人CD = @学生番号
WHERE 引受人CD = @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 裏書人CD = @学生番号
WHERE 裏書人CD = @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 被裏書人CD = @学生番号
WHERE 被裏書人CD = @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 支払場所CD = @学生番号
WHERE 支払場所CD = @コピー元学生番号
UPDATE #TMP_TGA手形F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの手形を削除
DELETE FROM TGA手形F
WHERE TGA手形F.システムCD = @システムCD
	AND TGA手形F.演習CD = @演習CD
	AND (TGA手形F.作成会社CD = @学生番号 OR TGA手形F.作成会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGA手形F
SELECT *
FROM #TMP_TGA手形F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの手形明細を一時テーブルにコピー
SELECT TGA手形明細F.*
INTO #TMP_TGA手形明細F
FROM TGA手形明細F
WHERE TGA手形明細F.システムCD = @システムCD
	AND TGA手形明細F.演習CD = @演習CD
	AND (TGA手形明細F.作成会社CD = @コピー元学生番号 OR TGA手形明細F.作成会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの手形明細の会社CD・作成会社CD・裏書人CD・被裏書人CDを変更
UPDATE #TMP_TGA手形明細F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形明細F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形明細F
SET 裏書人CD = REPLACE(裏書人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 裏書人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形明細F
SET 被裏書人CD = REPLACE(被裏書人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 被裏書人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGA手形明細F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGA手形明細F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TGA手形明細F
SET 裏書人CD = @学生番号
WHERE 裏書人CD = @コピー元学生番号
UPDATE #TMP_TGA手形明細F
SET 被裏書人CD = @学生番号
WHERE 被裏書人CD = @コピー元学生番号

--[本テーブル]ユーザーの手形明細を削除
DELETE FROM TGA手形明細F
WHERE TGA手形明細F.システムCD = @システムCD
	AND TGA手形明細F.演習CD = @演習CD
	AND (TGA手形明細F.作成会社CD = @学生番号 OR TGA手形明細F.作成会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGA手形明細F
SELECT *
FROM #TMP_TGA手形明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの銀行口座を一時テーブルにコピー
SELECT TGB銀行口座F.*
INTO #TMP_TGB銀行口座F
FROM TGB銀行口座F
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND (TGB銀行口座F.銀行CD = @コピー元学生番号 OR TGB銀行口座F.銀行CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの銀行口座の銀行CD・会社CD・学生番号を変更
UPDATE #TMP_TGB銀行口座F
SET 銀行CD = REPLACE(銀行CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 銀行CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGB銀行口座F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGB銀行口座F
SET 銀行CD = @学生番号
WHERE 銀行CD = @コピー元学生番号
UPDATE #TMP_TGB銀行口座F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGB銀行口座F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの銀行口座を削除
DELETE FROM TGB銀行口座F
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND (TGB銀行口座F.銀行CD = @学生番号 OR TGB銀行口座F.銀行CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGB銀行口座F
SELECT *
FROM #TMP_TGB銀行口座F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの銀行口座入出金を一時テーブルにコピー
SELECT TGB銀行口座入出金TRN.*
INTO #TMP_TGB銀行口座入出金TRN
FROM TGB銀行口座入出金TRN
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @演習CD
	AND (TGB銀行口座入出金TRN.銀行CD = @コピー元学生番号 OR TGB銀行口座入出金TRN.銀行CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの銀行口座入出金の銀行CD・学生番号を変更
UPDATE #TMP_TGB銀行口座入出金TRN
SET 銀行CD = REPLACE(銀行CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 銀行CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGB銀行口座入出金TRN
SET 銀行CD = @学生番号
WHERE 銀行CD = @コピー元学生番号
UPDATE #TMP_TGB銀行口座入出金TRN
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの銀行口座入出金を削除
DELETE FROM TGB銀行口座入出金TRN
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @演習CD
	AND (TGB銀行口座入出金TRN.銀行CD = @学生番号 OR TGB銀行口座入出金TRN.銀行CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGB銀行口座入出金TRN
SELECT *
FROM #TMP_TGB銀行口座入出金TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの保険契約を一時テーブルにコピー
SELECT TGC保険契約F.*
INTO #TMP_TGC保険契約F
FROM TGC保険契約F
WHERE TGC保険契約F.システムCD = @システムCD
	AND TGC保険契約F.演習CD = @演習CD
	AND (TGC保険契約F.会社CD = @コピー元学生番号 OR TGC保険契約F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの保険契約の会社CD・取引先CD・商品CD・学生番号を変更
UPDATE #TMP_TGC保険契約F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC保険契約F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC保険契約F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC保険契約F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGC保険契約F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TGC保険契約F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号
UPDATE #TMP_TGC保険契約F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの保険契約を削除
DELETE FROM TGC保険契約F
WHERE TGC保険契約F.システムCD = @システムCD
	AND TGC保険契約F.演習CD = @演習CD
	AND (TGC保険契約F.会社CD = @学生番号 OR TGC保険契約F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGC保険契約F
SELECT *
FROM #TMP_TGC保険契約F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの出庫を一時テーブルにコピー
SELECT TGC出庫F.*
INTO #TMP_TGC出庫F
FROM TGC出庫F
WHERE TGC出庫F.システムCD = @システムCD
	AND TGC出庫F.演習CD = @演習CD
	AND (TGC出庫F.会社CD = @コピー元学生番号 OR TGC出庫F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの出庫の会社CD・商品CD・寄託者CD・学生番号を変更
UPDATE #TMP_TGC出庫F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC出庫F
SET 寄託者CD = REPLACE(寄託者CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 寄託者CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC出庫F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC出庫F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGC出庫F
SET 寄託者CD = @学生番号
WHERE 寄託者CD = @コピー元学生番号
UPDATE #TMP_TGC出庫F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号
UPDATE #TMP_TGC出庫F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの出庫を削除
DELETE FROM TGC出庫F
WHERE TGC出庫F.システムCD = @システムCD
	AND TGC出庫F.演習CD = @演習CD
	AND (TGC出庫F.会社CD = @学生番号 OR TGC出庫F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGC出庫F
SELECT *
FROM #TMP_TGC出庫F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの寄託在庫を一時テーブルにコピー
SELECT TGC寄託在庫F.*
INTO #TMP_TGC寄託在庫F
FROM TGC寄託在庫F
WHERE TGC寄託在庫F.システムCD = @システムCD
	AND TGC寄託在庫F.演習CD = @演習CD
	AND (TGC寄託在庫F.作成会社CD = @コピー元学生番号 OR TGC寄託在庫F.作成会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの寄託在庫の会社CD・作成会社CD・寄託依頼会社CD・学生番号を変更
UPDATE #TMP_TGC寄託在庫F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託在庫F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託在庫F
SET 寄託依頼会社CD = REPLACE(寄託依頼会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 寄託依頼会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託在庫F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託在庫F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託在庫F
SET 寄託依頼会社CD = @学生番号
WHERE 寄託依頼会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託在庫F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの寄託在庫を削除
DELETE FROM TGC寄託在庫F
WHERE TGC寄託在庫F.システムCD = @システムCD
	AND TGC寄託在庫F.演習CD = @演習CD
	AND (TGC寄託在庫F.作成会社CD = @学生番号 OR TGC寄託在庫F.作成会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGC寄託在庫F
SELECT *
FROM #TMP_TGC寄託在庫F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの寄託在庫明細を一時テーブルにコピー
SELECT TGC寄託在庫明細F.*
INTO #TMP_TGC寄託在庫明細F
FROM TGC寄託在庫明細F
WHERE TGC寄託在庫明細F.システムCD = @システムCD
	AND TGC寄託在庫明細F.演習CD = @演習CD
	AND (TGC寄託在庫明細F.作成会社CD = @コピー元学生番号 OR TGC寄託在庫明細F.作成会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの寄託在庫明細の会社CD・作成会社CD・寄託依頼会社CD・商品CD・学生番号を変更
UPDATE #TMP_TGC寄託在庫明細F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託在庫明細F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託在庫明細F
SET 寄託依頼会社CD = REPLACE(寄託依頼会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 寄託依頼会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託在庫明細F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託在庫明細F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託在庫明細F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託在庫明細F
SET 寄託依頼会社CD = @学生番号
WHERE 寄託依頼会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託在庫明細F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号
UPDATE #TMP_TGC寄託在庫明細F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの寄託在庫明細を削除
DELETE FROM TGC寄託在庫明細F
WHERE TGC寄託在庫明細F.システムCD = @システムCD
	AND TGC寄託在庫明細F.演習CD = @演習CD
	AND (TGC寄託在庫明細F.作成会社CD = @学生番号 OR TGC寄託在庫明細F.作成会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGC寄託在庫明細F
SELECT *
FROM #TMP_TGC寄託在庫明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの寄託者台帳を一時テーブルにコピー
SELECT TGC寄託者台帳F.*
INTO #TMP_TGC寄託者台帳F
FROM TGC寄託者台帳F
WHERE TGC寄託者台帳F.システムCD = @システムCD
	AND TGC寄託者台帳F.演習CD = @演習CD
	AND (TGC寄託者台帳F.会社CD = @コピー元学生番号 OR TGC寄託者台帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの寄託者台帳の会社CD・寄託者CD・商品CD・学生番号を変更
UPDATE #TMP_TGC寄託者台帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託者台帳F
SET 寄託者CD = REPLACE(寄託者CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 寄託者CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託者台帳F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託者台帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託者台帳F
SET 寄託者CD = @学生番号
WHERE 寄託者CD = @コピー元学生番号
UPDATE #TMP_TGC寄託者台帳F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号
UPDATE #TMP_TGC寄託者台帳F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの寄託者台帳を削除
DELETE FROM TGC寄託者台帳F
WHERE TGC寄託者台帳F.システムCD = @システムCD
	AND TGC寄託者台帳F.演習CD = @演習CD
	AND (TGC寄託者台帳F.会社CD = @学生番号 OR TGC寄託者台帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGC寄託者台帳F
SELECT *
FROM #TMP_TGC寄託者台帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの寄託者明細を一時テーブルにコピー
SELECT TGC寄託者明細TRN.*
INTO #TMP_TGC寄託者明細TRN
FROM TGC寄託者明細TRN
WHERE TGC寄託者明細TRN.システムCD = @システムCD
	AND TGC寄託者明細TRN.演習CD = @演習CD
	AND (TGC寄託者明細TRN.作成会社CD = @コピー元学生番号 OR TGC寄託者明細TRN.作成会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの寄託者明細の会社CD・作成会社CD・商品CDを変更
UPDATE #TMP_TGC寄託者明細TRN
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託者明細TRN
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託者明細TRN
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC寄託者明細TRN
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託者明細TRN
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TGC寄託者明細TRN
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーの寄託者明細を削除
DELETE FROM TGC寄託者明細TRN
WHERE TGC寄託者明細TRN.システムCD = @システムCD
	AND TGC寄託者明細TRN.演習CD = @演習CD
	AND (TGC寄託者明細TRN.作成会社CD = @学生番号 OR TGC寄託者明細TRN.作成会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGC寄託者明細TRN
SELECT *
FROM #TMP_TGC寄託者明細TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの運送契約を一時テーブルにコピー
SELECT TGC運送契約F.*
INTO #TMP_TGC運送契約F
FROM TGC運送契約F
WHERE TGC運送契約F.システムCD = @システムCD
	AND TGC運送契約F.演習CD = @演習CD
	AND (TGC運送契約F.会社CD = @コピー元学生番号 OR TGC運送契約F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの運送契約の会社CD・取引先CD・荷受取引先CD・荷送取引先CD・商品CD・学生番号を変更
UPDATE #TMP_TGC運送契約F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 荷受取引先CD = REPLACE(荷受取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 荷受取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 荷送取引先CD = REPLACE(荷送取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 荷送取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 荷受取引先CD = @学生番号
WHERE 荷受取引先CD = @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 荷送取引先CD = @学生番号
WHERE 荷送取引先CD = @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号
UPDATE #TMP_TGC運送契約F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの運送契約を削除
DELETE FROM TGC運送契約F
WHERE TGC運送契約F.システムCD = @システムCD
	AND TGC運送契約F.演習CD = @演習CD
	AND (TGC運送契約F.会社CD = @学生番号 OR TGC運送契約F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGC運送契約F
SELECT *
FROM #TMP_TGC運送契約F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの製造指図書を一時テーブルにコピー
SELECT TGD製造指図書F.*
INTO #TMP_TGD製造指図書F
FROM TGD製造指図書F
WHERE TGD製造指図書F.システムCD = @システムCD
	AND TGD製造指図書F.演習CD = @演習CD
	AND (TGD製造指図書F.会社CD = @コピー元学生番号 OR TGD製造指図書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの製造指図書の会社CD・学生番号を変更
UPDATE #TMP_TGD製造指図書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGD製造指図書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGD製造指図書F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの製造指図書を削除
DELETE FROM TGD製造指図書F
WHERE TGD製造指図書F.システムCD = @システムCD
	AND TGD製造指図書F.演習CD = @演習CD
	AND (TGD製造指図書F.会社CD = @学生番号 OR TGD製造指図書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGD製造指図書F
SELECT *
FROM #TMP_TGD製造指図書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの現金入出金を一時テーブルにコピー
SELECT TGK現金入出金TRN.*
INTO #TMP_TGK現金入出金TRN
FROM TGK現金入出金TRN
WHERE TGK現金入出金TRN.システムCD = @システムCD
	AND TGK現金入出金TRN.演習CD = @演習CD
	AND (TGK現金入出金TRN.会社CD = @コピー元学生番号 OR TGK現金入出金TRN.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの現金入出金の会社CD・学生番号を変更
UPDATE #TMP_TGK現金入出金TRN
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGK現金入出金TRN
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGK現金入出金TRN
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの現金入出金を削除
DELETE FROM TGK現金入出金TRN
WHERE TGK現金入出金TRN.システムCD = @システムCD
	AND TGK現金入出金TRN.演習CD = @演習CD
	AND (TGK現金入出金TRN.会社CD = @学生番号 OR TGK現金入出金TRN.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGK現金入出金TRN
SELECT *
FROM #TMP_TGK現金入出金TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーのポータル会社を一時テーブルにコピー
SELECT TGPポータル会社F.*
INTO #TMP_TGPポータル会社F
FROM TGPポータル会社F
WHERE TGPポータル会社F.システムCD = @システムCD
	AND TGPポータル会社F.演習CD = @演習CD
	AND (TGPポータル会社F.会社CD = @コピー元学生番号 OR TGPポータル会社F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーのポータル会社の会社CDを変更
UPDATE #TMP_TGPポータル会社F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGPポータル会社F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーのポータル会社を削除
DELETE FROM TGPポータル会社F
WHERE TGPポータル会社F.システムCD = @システムCD
	AND TGPポータル会社F.演習CD = @演習CD
	AND (TGPポータル会社F.会社CD = @学生番号 OR TGPポータル会社F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGPポータル会社F
SELECT *
FROM #TMP_TGPポータル会社F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーのポータル商品を一時テーブルにコピー
SELECT TGPポータル商品F.*
INTO #TMP_TGPポータル商品F
FROM TGPポータル商品F
WHERE TGPポータル商品F.システムCD = @システムCD
	AND TGPポータル商品F.演習CD = @演習CD
	AND (TGPポータル商品F.会社CD = @コピー元学生番号 OR TGPポータル商品F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーのポータル商品の会社CD・商品CDを変更
UPDATE #TMP_TGPポータル商品F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGPポータル商品F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGPポータル商品F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGPポータル商品F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーのポータル商品を削除
DELETE FROM TGPポータル商品F
WHERE TGPポータル商品F.システムCD = @システムCD
	AND TGPポータル商品F.演習CD = @演習CD
	AND (TGPポータル商品F.会社CD = @学生番号 OR TGPポータル商品F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGPポータル商品F
SELECT *
FROM #TMP_TGPポータル商品F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの小売販売明細を一時テーブルにコピー
SELECT TKH小売販売TRN.*
INTO #TMP_TKH小売販売TRN
FROM TKH小売販売TRN
WHERE TKH小売販売TRN.システムCD = @システムCD
	AND TKH小売販売TRN.演習CD = @演習CD
	AND (TKH小売販売TRN.会社CD = @コピー元学生番号 OR TKH小売販売TRN.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの小売販売明細の会社CD・作成会社CD・商品CDを変更
UPDATE #TMP_TKH小売販売TRN
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TKH小売販売TRN

SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TKH小売販売TRN
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TKH小売販売TRN
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TKH小売販売TRN
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TKH小売販売TRN
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーの小売販売明細を削除
DELETE FROM TKH小売販売TRN
WHERE TKH小売販売TRN.システムCD = @システムCD
	AND TKH小売販売TRN.演習CD = @演習CD
	AND (TKH小売販売TRN.会社CD = @学生番号 OR TKH小売販売TRN.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TKH小売販売TRN
SELECT *
FROM #TMP_TKH小売販売TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの小売販売を一時テーブルにコピー
SELECT TKH小売販売TTL.*
INTO #TMP_TKH小売販売TTL
FROM TKH小売販売TTL
WHERE TKH小売販売TTL.システムCD = @システムCD
	AND TKH小売販売TTL.演習CD = @演習CD
	AND (TKH小売販売TTL.会社CD = @コピー元学生番号 OR TKH小売販売TTL.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの小売販売の会社CD・作成会社CD・学生番号を変更
UPDATE #TMP_TKH小売販売TTL
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TKH小売販売TTL
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TKH小売販売TTL
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TKH小売販売TTL
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TKH小売販売TTL
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの小売販売を削除
DELETE FROM TKH小売販売TTL
WHERE TKH小売販売TTL.システムCD = @システムCD
	AND TKH小売販売TTL.演習CD = @演習CD
	AND (TKH小売販売TTL.会社CD = @学生番号 OR TKH小売販売TTL.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TKH小売販売TTL
SELECT *
FROM #TMP_TKH小売販売TTL

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの仕入売上書類を一時テーブルにコピー
SELECT TSA仕入売上書類F.*
INTO #TMP_TSA仕入売上書類F
FROM TSA仕入売上書類F
WHERE TSA仕入売上書類F.システムCD = @システムCD
	AND TSA仕入売上書類F.演習CD = @演習CD
	AND (TSA仕入売上書類F.会社CD = @コピー元学生番号 OR TSA仕入売上書類F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの仕入売上書類の会社CD・作成会社CD・取引先CD・運送会社CD・学生番号・寄託会社CD・先方寄託会社CDを変更
UPDATE #TMP_TSA仕入売上書類F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 運送会社CD = REPLACE(運送会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 運送会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 寄託会社CD = REPLACE(寄託会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 寄託会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 先方寄託会社CD = REPLACE(先方寄託会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 先方寄託会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 運送会社CD = @学生番号
WHERE 運送会社CD = @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 寄託会社CD = @学生番号
WHERE 寄託会社CD = @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 先方寄託会社CD = @学生番号
WHERE 先方寄託会社CD = @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの仕入売上書類を削除
DELETE FROM TSA仕入売上書類F
WHERE TSA仕入売上書類F.システムCD = @システムCD
	AND TSA仕入売上書類F.演習CD = @演習CD
	AND (TSA仕入売上書類F.会社CD = @学生番号 OR TSA仕入売上書類F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSA仕入売上書類F
SELECT *
FROM #TMP_TSA仕入売上書類F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの仕入売上書類明細を一時テーブルにコピー
SELECT TSA仕入売上書類明細F.*
INTO #TMP_TSA仕入売上書類明細F
FROM TSA仕入売上書類明細F
WHERE TSA仕入売上書類明細F.システムCD = @システムCD
	AND TSA仕入売上書類明細F.演習CD = @演習CD
	AND (TSA仕入売上書類明細F.会社CD = @コピー元学生番号 OR TSA仕入売上書類明細F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの仕入売上書類明細の会社CD・作成会社CD・商品CDを変更
UPDATE #TMP_TSA仕入売上書類明細F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類明細F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類明細F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類明細F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類明細F
SET 作成会社CD = @学生番号

WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSA仕入売上書類明細F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーの仕入売上書類明細を削除
DELETE FROM TSA仕入売上書類明細F
WHERE TSA仕入売上書類明細F.システムCD = @システムCD
	AND TSA仕入売上書類明細F.演習CD = @演習CD
	AND (TSA仕入売上書類明細F.会社CD = @学生番号 OR TSA仕入売上書類明細F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSA仕入売上書類明細F
SELECT *
FROM #TMP_TSA仕入売上書類明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの領収書を一時テーブルにコピー
SELECT TSA領収書F.*
INTO #TMP_TSA領収書F
FROM TSA領収書F
WHERE TSA領収書F.システムCD = @システムCD
	AND TSA領収書F.演習CD = @演習CD
	AND (TSA領収書F.会社CD = @コピー元学生番号 OR TSA領収書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの領収書の会社CD・作成会社CD・発行人CD・受取人CD・学生番号を変更
UPDATE #TMP_TSA領収書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA領収書F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA領収書F
SET 発行人CD = REPLACE(発行人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 発行人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA領収書F
SET 受取人CD = REPLACE(受取人CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 受取人CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSA領収書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSA領収書F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSA領収書F
SET 発行人CD = @学生番号
WHERE 発行人CD = @コピー元学生番号
UPDATE #TMP_TSA領収書F
SET 受取人CD = @学生番号
WHERE 受取人CD = @コピー元学生番号
UPDATE #TMP_TSA領収書F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの領収書を削除
DELETE FROM TSA領収書F
WHERE TSA領収書F.システムCD = @システムCD
	AND TSA領収書F.演習CD = @演習CD
	AND (TSA領収書F.会社CD = @学生番号 OR TSA領収書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSA領収書F
SELECT *
FROM #TMP_TSA領収書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの銀行取引申込書類を一時テーブルにコピー
SELECT TSB銀行取引申込書類F.*
INTO #TMP_TSB銀行取引申込書類F
FROM TSB銀行取引申込書類F
WHERE TSB銀行取引申込書類F.システムCD = @システムCD
	AND TSB銀行取引申込書類F.演習CD = @演習CD
	AND (TSB銀行取引申込書類F.会社CD = @コピー元学生番号 OR TSB銀行取引申込書類F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの銀行取引申込書類の会社CD・作成会社CD・取引先CD・振込先銀行CD・振込先会社CD・手形小切手出金銀行CD・手形作成会社CD・学生番号を変更
UPDATE #TMP_TSB銀行取引申込書類F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 振込先銀行CD = REPLACE(振込先銀行CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 振込先銀行CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 振込先会社CD = REPLACE(振込先会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 振込先会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 手形小切手出金銀行CD = REPLACE(手形小切手出金銀行CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 手形小切手出金銀行CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 手形作成会社CD = REPLACE(手形作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 手形作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 振込先銀行CD = @学生番号
WHERE 振込先銀行CD = @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 振込先会社CD = @学生番号
WHERE 振込先会社CD = @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 手形小切手出金銀行CD = @学生番号
WHERE 手形小切手出金銀行CD = @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 手形作成会社CD = @学生番号
WHERE 手形作成会社CD = @コピー元学生番号
UPDATE #TMP_TSB銀行取引申込書類F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの銀行取引申込書類を削除
DELETE FROM TSB銀行取引申込書類F
WHERE TSB銀行取引申込書類F.システムCD = @システムCD
	AND TSB銀行取引申込書類F.演習CD = @演習CD
	AND (TSB銀行取引申込書類F.会社CD = @学生番号 OR TSB銀行取引申込書類F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSB銀行取引申込書類F
SELECT *
FROM #TMP_TSB銀行取引申込書類F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの運送書類を一時テーブルにコピー
SELECT TSC運送書類F.*
INTO #TMP_TSC運送書類F
FROM TSC運送書類F
WHERE TSC運送書類F.システムCD = @システムCD
	AND TSC運送書類F.演習CD = @演習CD
	AND (TSC運送書類F.会社CD = @コピー元学生番号 OR TSC運送書類F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの運送書類の会社CD・作成会社CD・取引先CD・運送先CD・運送会社CD・学生番号を変更
UPDATE #TMP_TSC運送書類F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 運送先CD = REPLACE(運送先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 運送先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 運送会社CD = REPLACE(運送会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 運送会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 運送先CD = @学生番号
WHERE 運送先CD = @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 運送会社CD = @学生番号
WHERE 運送会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送書類F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの運送書類を削除
DELETE FROM TSC運送書類F
WHERE TSC運送書類F.システムCD = @システムCD
	AND TSC運送書類F.演習CD = @演習CD
	AND (TSC運送書類F.会社CD = @学生番号 OR TSC運送書類F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSC運送書類F
SELECT *
FROM #TMP_TSC運送書類F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの運送書類明細を一時テーブルにコピー
SELECT TSC運送書類明細F.*
INTO #TMP_TSC運送書類明細F
FROM TSC運送書類明細F
WHERE TSC運送書類明細F.システムCD = @システムCD
	AND TSC運送書類明細F.演習CD = @演習CD
	AND (TSC運送書類明細F.会社CD = @コピー元学生番号 OR TSC運送書類明細F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの運送書類明細の会社CD・作成会社CD・商品CDを変更
UPDATE #TMP_TSC運送書類明細F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送書類明細F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送書類明細F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送書類明細F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送書類明細F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送書類明細F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーの運送書類明細を削除
DELETE FROM TSC運送書類明細F
WHERE TSC運送書類明細F.システムCD = @システムCD
	AND TSC運送書類明細F.演習CD = @演習CD
	AND (TSC運送書類明細F.会社CD = @学生番号 OR TSC運送書類明細F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSC運送書類明細F
SELECT *
FROM #TMP_TSC運送書類明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの運送費請求書を一時テーブルにコピー
SELECT TSC運送費請求書F.*
INTO #TMP_TSC運送費請求書F
FROM TSC運送費請求書F
WHERE TSC運送費請求書F.システムCD = @システムCD
	AND TSC運送費請求書F.演習CD = @演習CD
	AND (TSC運送費請求書F.会社CD = @コピー元学生番号 OR TSC運送費請求書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの運送費請求書の会社CD・作成会社CD・取引先CD・納品請求書番号群・学生番号を変更
UPDATE #TMP_TSC運送費請求書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書F
SET 納品請求書番号群 = REPLACE(納品請求書番号群, '-' + @コピー元学生番号 + ':', '-' + @学生番号 + ':')
WHERE 納品請求書番号群 LIKE '%-' + @コピー元学生番号 + ':%'
UPDATE #TMP_TSC運送費請求書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送費請求書F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送費請求書F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSC運送費請求書F
SET 納品請求書番号群 = REPLACE(納品請求書番号群, @コピー元学生番号 + ':', @学生番号 + ':')
WHERE 納品請求書番号群 LIKE @コピー元学生番号 + ':%'
UPDATE #TMP_TSC運送費請求書F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの運送費請求書を削除
DELETE FROM TSC運送費請求書F
WHERE TSC運送費請求書F.システムCD = @システムCD
	AND TSC運送費請求書F.演習CD = @演習CD
	AND (TSC運送費請求書F.会社CD = @学生番号 OR TSC運送費請求書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSC運送費請求書F
SELECT *
FROM #TMP_TSC運送費請求書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの運送費請求書手動を一時テーブルにコピー
SELECT TSC運送費請求書手動F.*
INTO #TMP_TSC運送費請求書手動F
FROM TSC運送費請求書手動F
WHERE TSC運送費請求書手動F.システムCD = @システムCD
	AND TSC運送費請求書手動F.演習CD = @演習CD
	AND (TSC運送費請求書手動F.会社CD = @コピー元学生番号 OR TSC運送費請求書手動F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの運送費請求書手動の会社CD・作成会社CD・取引先CD・学生番号を変更
UPDATE #TMP_TSC運送費請求書手動F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの運送費請求書手動を削除
DELETE FROM TSC運送費請求書手動F
WHERE TSC運送費請求書手動F.システムCD = @システムCD
	AND TSC運送費請求書手動F.演習CD = @演習CD
	AND (TSC運送費請求書手動F.会社CD = @学生番号 OR TSC運送費請求書手動F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSC運送費請求書手動F
SELECT *
FROM #TMP_TSC運送費請求書手動F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの運送費請求書手動明細を一時テーブルにコピー
SELECT TSC運送費請求書手動明細F.*
INTO #TMP_TSC運送費請求書手動明細F
FROM TSC運送費請求書手動明細F
WHERE TSC運送費請求書手動明細F.システムCD = @システムCD
	AND TSC運送費請求書手動明細F.演習CD = @演習CD
	AND (TSC運送費請求書手動明細F.会社CD = @コピー元学生番号 OR TSC運送費請求書手動明細F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの運送費請求書手動明細の会社CD・作成会社CD・運送先CDを変更
UPDATE #TMP_TSC運送費請求書手動明細F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動明細F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動明細F
SET 運送先CD = REPLACE(運送先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 運送先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動明細F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動明細F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TSC運送費請求書手動明細F
SET 運送先CD = @学生番号
WHERE 運送先CD = @コピー元学生番号

--[本テーブル]ユーザーの運送費請求書手動明細を削除
DELETE FROM TSC運送費請求書手動明細F
WHERE TSC運送費請求書手動明細F.システムCD = @システムCD
	AND TSC運送費請求書手動明細F.演習CD = @演習CD
	AND (TSC運送費請求書手動明細F.会社CD = @学生番号 OR TSC運送費請求書手動明細F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSC運送費請求書手動明細F
SELECT *
FROM #TMP_TSC運送費請求書手動明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの伝票を一時テーブルにコピー
SELECT TSK伝票F.*
INTO #TMP_TSK伝票F
FROM TSK伝票F
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND (TSK伝票F.会社CD = @コピー元学生番号 OR TSK伝票F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの伝票の会社CD・取引先CD・学生番号を変更
UPDATE #TMP_TSK伝票F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK伝票F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK伝票F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK伝票F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSK伝票F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの伝票を削除
DELETE FROM TSK伝票F
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND (TSK伝票F.会社CD = @学生番号 OR TSK伝票F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK伝票F
SELECT *
FROM #TMP_TSK伝票F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの伝票仕入売上明細を一時テーブルにコピー
SELECT TSK伝票仕入売上明細F.*
INTO #TMP_TSK伝票仕入売上明細F
FROM TSK伝票仕入売上明細F
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
	AND TSK伝票仕入売上明細F.演習CD = @演習CD
	AND (TSK伝票仕入売上明細F.会社CD = @コピー元学生番号 OR TSK伝票仕入売上明細F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの伝票仕入売上明細の会社CD・商品CD・学生番号を変更
UPDATE #TMP_TSK伝票仕入売上明細F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK伝票仕入売上明細F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK伝票仕入売上明細F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK伝票仕入売上明細F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号
UPDATE #TMP_TSK伝票仕入売上明細F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの伝票仕入売上明細を削除
DELETE FROM TSK伝票仕入売上明細F
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
	AND TSK伝票仕入売上明細F.演習CD = @演習CD
	AND (TSK伝票仕入売上明細F.会社CD = @学生番号 OR TSK伝票仕入売上明細F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK伝票仕入売上明細F
SELECT *
FROM #TMP_TSK伝票仕入売上明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの伝票明細を一時テーブルにコピー
SELECT TSK伝票明細F.*
INTO #TMP_TSK伝票明細F
FROM TSK伝票明細F
WHERE TSK伝票明細F.システムCD = @システムCD
	AND TSK伝票明細F.演習CD = @演習CD
	AND (TSK伝票明細F.会社CD = @コピー元学生番号 OR TSK伝票明細F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの伝票明細の会社CD・摘要CDを変更
UPDATE #TMP_TSK伝票明細F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK伝票明細F
SET 摘要CD = REPLACE(摘要CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 摘要CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK伝票明細F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK伝票明細F
SET 摘要CD = @学生番号
WHERE 摘要CD = @コピー元学生番号

--[本テーブル]ユーザーの伝票明細を削除
DELETE FROM TSK伝票明細F
WHERE TSK伝票明細F.システムCD = @システムCD
	AND TSK伝票明細F.演習CD = @演習CD
	AND (TSK伝票明細F.会社CD = @学生番号 OR TSK伝票明細F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK伝票明細F
SELECT *
FROM #TMP_TSK伝票明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの仕訳帳を一時テーブルにコピー
SELECT TSK帳簿_仕訳帳F.*
INTO #TMP_TSK帳簿_仕訳帳F
FROM TSK帳簿_仕訳帳F
WHERE TSK帳簿_仕訳帳F.システムCD = @システムCD
	AND TSK帳簿_仕訳帳F.演習CD = @演習CD
	AND (TSK帳簿_仕訳帳F.会社CD = @コピー元学生番号 OR TSK帳簿_仕訳帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの仕訳帳の会社CDを変更
UPDATE #TMP_TSK帳簿_仕訳帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_仕訳帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの仕訳帳を削除
DELETE FROM TSK帳簿_仕訳帳F
WHERE TSK帳簿_仕訳帳F.システムCD = @システムCD
	AND TSK帳簿_仕訳帳F.演習CD = @演習CD
	AND (TSK帳簿_仕訳帳F.会社CD = @学生番号 OR TSK帳簿_仕訳帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK帳簿_仕訳帳F
SELECT *
FROM #TMP_TSK帳簿_仕訳帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの仕訳日記帳を一時テーブルにコピー
SELECT TSK帳簿_仕訳日記帳F.*
INTO #TMP_TSK帳簿_仕訳日記帳F
FROM TSK帳簿_仕訳日記帳F
WHERE TSK帳簿_仕訳日記帳F.システムCD = @システムCD
	AND TSK帳簿_仕訳日記帳F.演習CD = @演習CD
	AND (TSK帳簿_仕訳日記帳F.会社CD = @コピー元学生番号 OR TSK帳簿_仕訳日記帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの仕訳日記帳の会社CDを変更
UPDATE #TMP_TSK帳簿_仕訳日記帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_仕訳日記帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの仕訳日記帳を削除
DELETE FROM TSK帳簿_仕訳日記帳F
WHERE TSK帳簿_仕訳日記帳F.システムCD = @システムCD
	AND TSK帳簿_仕訳日記帳F.演習CD = @演習CD
	AND (TSK帳簿_仕訳日記帳F.会社CD = @学生番号 OR TSK帳簿_仕訳日記帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK帳簿_仕訳日記帳F
SELECT *
FROM #TMP_TSK帳簿_仕訳日記帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return

end


--コピー元ユーザーの仕訳集計表を一時テーブルにコピー
SELECT TSK帳簿_仕訳集計表F.*
INTO #TMP_TSK帳簿_仕訳集計表F
FROM TSK帳簿_仕訳集計表F
WHERE TSK帳簿_仕訳集計表F.システムCD = @システムCD
	AND TSK帳簿_仕訳集計表F.演習CD = @演習CD
	AND (TSK帳簿_仕訳集計表F.会社CD = @コピー元学生番号 OR TSK帳簿_仕訳集計表F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの仕訳集計表の会社CDを変更
UPDATE #TMP_TSK帳簿_仕訳集計表F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_仕訳集計表F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの仕訳集計表を削除
DELETE FROM TSK帳簿_仕訳集計表F
WHERE TSK帳簿_仕訳集計表F.システムCD = @システムCD
	AND TSK帳簿_仕訳集計表F.演習CD = @演習CD
	AND (TSK帳簿_仕訳集計表F.会社CD = @学生番号 OR TSK帳簿_仕訳集計表F.会社CD LIKE '%-' + @学生番号)


--本テーブルにコピーする
INSERT INTO TSK帳簿_仕訳集計表F
SELECT *
FROM #TMP_TSK帳簿_仕訳集計表F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの八桁精算表を一時テーブルにコピー
SELECT TSK帳簿_八桁精算表F.*
INTO #TMP_TSK帳簿_八桁精算表F
FROM TSK帳簿_八桁精算表F
WHERE TSK帳簿_八桁精算表F.システムCD = @システムCD
	AND TSK帳簿_八桁精算表F.演習CD = @演習CD
	AND (TSK帳簿_八桁精算表F.会社CD = @コピー元学生番号 OR TSK帳簿_八桁精算表F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの八桁精算表の会社CDを変更
UPDATE #TMP_TSK帳簿_八桁精算表F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_八桁精算表F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの八桁精算表を削除
DELETE FROM TSK帳簿_八桁精算表F
WHERE TSK帳簿_八桁精算表F.システムCD = @システムCD
	AND TSK帳簿_八桁精算表F.演習CD = @演習CD
	AND (TSK帳簿_八桁精算表F.会社CD = @学生番号 OR TSK帳簿_八桁精算表F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK帳簿_八桁精算表F
SELECT *
FROM #TMP_TSK帳簿_八桁精算表F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの合計残高試算表を一時テーブルにコピー
SELECT TSK帳簿_合計残高試算表F.*
INTO #TMP_TSK帳簿_合計残高試算表F
FROM TSK帳簿_合計残高試算表F
WHERE TSK帳簿_合計残高試算表F.システムCD = @システムCD
	AND TSK帳簿_合計残高試算表F.演習CD = @演習CD
	AND (TSK帳簿_合計残高試算表F.会社CD = @コピー元学生番号 OR TSK帳簿_合計残高試算表F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの合計残高試算表の会社CDを変更
UPDATE #TMP_TSK帳簿_合計残高試算表F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_合計残高試算表F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの合計残高試算表を削除
DELETE FROM TSK帳簿_合計残高試算表F
WHERE TSK帳簿_合計残高試算表F.システムCD = @システムCD
	AND TSK帳簿_合計残高試算表F.演習CD = @演習CD
	AND (TSK帳簿_合計残高試算表F.会社CD = @学生番号 OR TSK帳簿_合計残高試算表F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK帳簿_合計残高試算表F
SELECT *
FROM #TMP_TSK帳簿_合計残高試算表F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの損益計算書を一時テーブルにコピー
SELECT TSK帳簿_損益計算書F.*
INTO #TMP_TSK帳簿_損益計算書F
FROM TSK帳簿_損益計算書F
WHERE TSK帳簿_損益計算書F.システムCD = @システムCD
	AND TSK帳簿_損益計算書F.演習CD = @演習CD
	AND (TSK帳簿_損益計算書F.会社CD = @コピー元学生番号 OR TSK帳簿_損益計算書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの損益計算書の会社CDを変更
UPDATE #TMP_TSK帳簿_損益計算書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_損益計算書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの損益計算書を削除
DELETE FROM TSK帳簿_損益計算書F
WHERE TSK帳簿_損益計算書F.システムCD = @システムCD
	AND TSK帳簿_損益計算書F.演習CD = @演習CD
	AND (TSK帳簿_損益計算書F.会社CD = @学生番号 OR TSK帳簿_損益計算書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK帳簿_損益計算書F
SELECT *
FROM #TMP_TSK帳簿_損益計算書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの株主資本等変動計算書を一時テーブルにコピー
SELECT TSK帳簿_株主資本等変動計算書F.*
INTO #TMP_TSK帳簿_株主資本等変動計算書F
FROM TSK帳簿_株主資本等変動計算書F
WHERE TSK帳簿_株主資本等変動計算書F.システムCD = @システムCD
	AND TSK帳簿_株主資本等変動計算書F.演習CD = @演習CD
	AND (TSK帳簿_株主資本等変動計算書F.会社CD = @コピー元学生番号 OR TSK帳簿_株主資本等変動計算書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの株主資本等変動計算書の会社CDを変更
UPDATE #TMP_TSK帳簿_株主資本等変動計算書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_株主資本等変動計算書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの株主資本等変動計算書を削除
DELETE FROM TSK帳簿_株主資本等変動計算書F
WHERE TSK帳簿_株主資本等変動計算書F.システムCD = @システムCD
	AND TSK帳簿_株主資本等変動計算書F.演習CD = @演習CD
	AND (TSK帳簿_株主資本等変動計算書F.会社CD = @学生番号 OR TSK帳簿_株主資本等変動計算書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK帳簿_株主資本等変動計算書F
SELECT *
FROM #TMP_TSK帳簿_株主資本等変動計算書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの総勘定元帳を一時テーブルにコピー
SELECT TSK帳簿_総勘定元帳F.*
INTO #TMP_TSK帳簿_総勘定元帳F
FROM TSK帳簿_総勘定元帳F
WHERE TSK帳簿_総勘定元帳F.システムCD = @システムCD
	AND TSK帳簿_総勘定元帳F.演習CD = @演習CD
	AND (TSK帳簿_総勘定元帳F.会社CD = @コピー元学生番号 OR TSK帳簿_総勘定元帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの総勘定元帳の会社CD・摘要CDを変更
UPDATE #TMP_TSK帳簿_総勘定元帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_総勘定元帳F
SET 摘要CD = REPLACE(摘要CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 摘要CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_総勘定元帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK帳簿_総勘定元帳F
SET 摘要CD = @学生番号
WHERE 摘要CD = @コピー元学生番号

--[本テーブル]ユーザーの総勘定元帳を削除
DELETE FROM TSK帳簿_総勘定元帳F
WHERE TSK帳簿_総勘定元帳F.システムCD = @システムCD
	AND TSK帳簿_総勘定元帳F.演習CD = @演習CD
	AND (TSK帳簿_総勘定元帳F.会社CD = @学生番号 OR TSK帳簿_総勘定元帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK帳簿_総勘定元帳F
SELECT *
FROM #TMP_TSK帳簿_総勘定元帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの貸借対照表を一時テーブルにコピー
SELECT TSK帳簿_貸借対照表F.*
INTO #TMP_TSK帳簿_貸借対照表F
FROM TSK帳簿_貸借対照表F
WHERE TSK帳簿_貸借対照表F.システムCD = @システムCD
	AND TSK帳簿_貸借対照表F.演習CD = @演習CD
	AND (TSK帳簿_貸借対照表F.会社CD = @コピー元学生番号 OR TSK帳簿_貸借対照表F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの貸借対照表の会社CDを変更
UPDATE #TMP_TSK帳簿_貸借対照表F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK帳簿_貸借対照表F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの貸借対照表を削除
DELETE FROM TSK帳簿_貸借対照表F
WHERE TSK帳簿_貸借対照表F.システムCD = @システムCD
	AND TSK帳簿_貸借対照表F.演習CD = @演習CD
	AND (TSK帳簿_貸借対照表F.会社CD = @学生番号 OR TSK帳簿_貸借対照表F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK帳簿_貸借対照表F
SELECT *
FROM #TMP_TSK帳簿_貸借対照表F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの仕入帳を一時テーブルにコピー
SELECT TSK補助簿_仕入帳F.*
INTO #TMP_TSK補助簿_仕入帳F
FROM TSK補助簿_仕入帳F
WHERE TSK補助簿_仕入帳F.システムCD = @システムCD
	AND TSK補助簿_仕入帳F.演習CD = @演習CD
	AND (TSK補助簿_仕入帳F.会社CD = @コピー元学生番号 OR TSK補助簿_仕入帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの仕入帳の会社CD・取引先CD・商品CDを変更
UPDATE #TMP_TSK補助簿_仕入帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_仕入帳F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_仕入帳F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_仕入帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_仕入帳F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_仕入帳F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーの仕入帳を削除
DELETE FROM TSK補助簿_仕入帳F
WHERE TSK補助簿_仕入帳F.システムCD = @システムCD
	AND TSK補助簿_仕入帳F.演習CD = @演習CD
	AND (TSK補助簿_仕入帳F.会社CD = @学生番号 OR TSK補助簿_仕入帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_仕入帳F
SELECT *
FROM #TMP_TSK補助簿_仕入帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの売上帳を一時テーブルにコピー
SELECT TSK補助簿_売上帳F.*
INTO #TMP_TSK補助簿_売上帳F
FROM TSK補助簿_売上帳F
WHERE TSK補助簿_売上帳F.システムCD = @システムCD
	AND TSK補助簿_売上帳F.演習CD = @演習CD
	AND (TSK補助簿_売上帳F.会社CD = @コピー元学生番号 OR TSK補助簿_売上帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの売上帳の会社CD・取引先CD・商品CDを変更
UPDATE #TMP_TSK補助簿_売上帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_売上帳F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_売上帳F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_売上帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_売上帳F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_売上帳F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーの売上帳を削除
DELETE FROM TSK補助簿_売上帳F
WHERE TSK補助簿_売上帳F.システムCD = @システムCD
	AND TSK補助簿_売上帳F.演習CD = @演習CD
	AND (TSK補助簿_売上帳F.会社CD = @学生番号 OR TSK補助簿_売上帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_売上帳F
SELECT *
FROM #TMP_TSK補助簿_売上帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの受取手形記入帳を一時テーブルにコピー
SELECT TSK補助簿_受取手形記入帳F.*
INTO #TMP_TSK補助簿_受取手形記入帳F
FROM TSK補助簿_受取手形記入帳F
WHERE TSK補助簿_受取手形記入帳F.システムCD = @システムCD
	AND TSK補助簿_受取手形記入帳F.演習CD = @演習CD
	AND (TSK補助簿_受取手形記入帳F.会社CD = @コピー元学生番号 OR TSK補助簿_受取手形記入帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの受取手形記入帳の会社CD・支払人・振出人または裏書人・支払場所を変更
UPDATE #TMP_TSK補助簿_受取手形記入帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_受取手形記入帳F
SET 支払人 = REPLACE(支払人, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 支払人 LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_受取手形記入帳F
SET 振出人または裏書人 = REPLACE(振出人または裏書人, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 振出人または裏書人 LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_受取手形記入帳F
SET 支払場所 = REPLACE(支払場所, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 支払場所 LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_受取手形記入帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_受取手形記入帳F
SET 支払人 = @学生番号
WHERE 支払人 = @コピー元学生番号
UPDATE #TMP_TSK補助簿_受取手形記入帳F
SET 振出人または裏書人 = @学生番号
WHERE 振出人または裏書人 = @コピー元学生番号
UPDATE #TMP_TSK補助簿_受取手形記入帳F
SET 支払場所 = @学生番号
WHERE 支払場所 = @コピー元学生番号

--[本テーブル]ユーザーの受取手形記入帳を削除
DELETE FROM TSK補助簿_受取手形記入帳F
WHERE TSK補助簿_受取手形記入帳F.システムCD = @システムCD
	AND TSK補助簿_受取手形記入帳F.演習CD = @演習CD
	AND (TSK補助簿_受取手形記入帳F.会社CD = @学生番号 OR TSK補助簿_受取手形記入帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_受取手形記入帳F
SELECT *
FROM #TMP_TSK補助簿_受取手形記入帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの支払手形記入帳を一時テーブルにコピー
SELECT TSK補助簿_支払手形記入帳F.*
INTO #TMP_TSK補助簿_支払手形記入帳F
FROM TSK補助簿_支払手形記入帳F
WHERE TSK補助簿_支払手形記入帳F.システムCD = @システムCD
	AND TSK補助簿_支払手形記入帳F.演習CD = @演習CD
	AND (TSK補助簿_支払手形記入帳F.会社CD = @コピー元学生番号 OR TSK補助簿_支払手形記入帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの支払手形記入帳の会社CD・受取人・振出人・支払場所を変更
UPDATE #TMP_TSK補助簿_支払手形記入帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_支払手形記入帳F
SET 受取人 = REPLACE(受取人, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 受取人 LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_支払手形記入帳F
SET 振出人 = REPLACE(振出人, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 振出人 LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_支払手形記入帳F
SET 支払場所 = REPLACE(支払場所, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 支払場所 LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_支払手形記入帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_支払手形記入帳F
SET 受取人 = @学生番号
WHERE 受取人 = @コピー元学生番号
UPDATE #TMP_TSK補助簿_支払手形記入帳F
SET 振出人 = @学生番号
WHERE 振出人 = @コピー元学生番号
UPDATE #TMP_TSK補助簿_支払手形記入帳F
SET 支払場所 = @学生番号
WHERE 支払場所 = @コピー元学生番号

--[本テーブル]ユーザーの支払手形記入帳を削除
DELETE FROM TSK補助簿_支払手形記入帳F
WHERE TSK補助簿_支払手形記入帳F.システムCD = @システムCD
	AND TSK補助簿_支払手形記入帳F.演習CD = @演習CD
	AND (TSK補助簿_支払手形記入帳F.会社CD = @学生番号 OR TSK補助簿_支払手形記入帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_支払手形記入帳F
SELECT *
FROM #TMP_TSK補助簿_支払手形記入帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの商品有高帳を一時テーブルにコピー
SELECT TSK補助簿_商品有高帳F.*
INTO #TMP_TSK補助簿_商品有高帳F
FROM TSK補助簿_商品有高帳F
WHERE TSK補助簿_商品有高帳F.システムCD = @システムCD
	AND TSK補助簿_商品有高帳F.演習CD = @演習CD
	AND (TSK補助簿_商品有高帳F.会社CD = @コピー元学生番号 OR TSK補助簿_商品有高帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの商品有高帳の会社CD・取引先CD・商品CDを変更
UPDATE #TMP_TSK補助簿_商品有高帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_商品有高帳F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_商品有高帳F
SET 商品CD = REPLACE(商品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 商品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_商品有高帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_商品有高帳F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_商品有高帳F
SET 商品CD = @学生番号
WHERE 商品CD = @コピー元学生番号

--[本テーブル]ユーザーの商品有高帳を削除
DELETE FROM TSK補助簿_商品有高帳F
WHERE TSK補助簿_商品有高帳F.システムCD = @システムCD
	AND TSK補助簿_商品有高帳F.演習CD = @演習CD
	AND (TSK補助簿_商品有高帳F.会社CD = @学生番号 OR TSK補助簿_商品有高帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_商品有高帳F
SELECT *
FROM #TMP_TSK補助簿_商品有高帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの売掛金元帳を一時テーブルにコピー
SELECT TSK補助簿_売掛金元帳F.*
INTO #TMP_TSK補助簿_売掛金元帳F
FROM TSK補助簿_売掛金元帳F
WHERE TSK補助簿_売掛金元帳F.システムCD = @システムCD
	AND TSK補助簿_売掛金元帳F.演習CD = @演習CD
	AND (TSK補助簿_売掛金元帳F.会社CD = @コピー元学生番号 OR TSK補助簿_売掛金元帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの売掛金元帳の会社CD・取引先CDを変更
UPDATE #TMP_TSK補助簿_売掛金元帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_売掛金元帳F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_売掛金元帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_売掛金元帳F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号

--[本テーブル]ユーザーの売掛金元帳を削除
DELETE FROM TSK補助簿_売掛金元帳F
WHERE TSK補助簿_売掛金元帳F.システムCD = @システムCD
	AND TSK補助簿_売掛金元帳F.演習CD = @演習CD
	AND (TSK補助簿_売掛金元帳F.会社CD = @学生番号 OR TSK補助簿_売掛金元帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_売掛金元帳F
SELECT *
FROM #TMP_TSK補助簿_売掛金元帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの買掛金元帳を一時テーブルにコピー
SELECT TSK補助簿_買掛金元帳F.*
INTO #TMP_TSK補助簿_買掛金元帳F
FROM TSK補助簿_買掛金元帳F
WHERE TSK補助簿_買掛金元帳F.システムCD = @システムCD
	AND TSK補助簿_買掛金元帳F.演習CD = @演習CD
	AND (TSK補助簿_買掛金元帳F.会社CD = @コピー元学生番号 OR TSK補助簿_買掛金元帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの買掛金元帳の会社CD・取引先CDを変更
UPDATE #TMP_TSK補助簿_買掛金元帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_買掛金元帳F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_買掛金元帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_買掛金元帳F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号

--[本テーブル]ユーザーの買掛金元帳を削除
DELETE FROM TSK補助簿_買掛金元帳F
WHERE TSK補助簿_買掛金元帳F.システムCD = @システムCD
	AND TSK補助簿_買掛金元帳F.演習CD = @演習CD
	AND (TSK補助簿_買掛金元帳F.会社CD = @学生番号 OR TSK補助簿_買掛金元帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_買掛金元帳F
SELECT *
FROM #TMP_TSK補助簿_買掛金元帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの当座預金出納帳を一時テーブルにコピー
SELECT TSK補助簿_当座預金出納帳F.*
INTO #TMP_TSK補助簿_当座預金出納帳F
FROM TSK補助簿_当座預金出納帳F
WHERE TSK補助簿_当座預金出納帳F.システムCD = @システムCD
	AND TSK補助簿_当座預金出納帳F.演習CD = @演習CD
	AND (TSK補助簿_当座預金出納帳F.会社CD = @コピー元学生番号 OR TSK補助簿_当座預金出納帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの当座預金出納帳の会社CD・銀行CDを変更
UPDATE #TMP_TSK補助簿_当座預金出納帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_当座預金出納帳F
SET 銀行CD = REPLACE(銀行CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 銀行CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_当座預金出納帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_当座預金出納帳F
SET 銀行CD = @学生番号
WHERE 銀行CD = @コピー元学生番号

--[本テーブル]ユーザーの当座預金出納帳を削除
DELETE FROM TSK補助簿_当座預金出納帳F
WHERE TSK補助簿_当座預金出納帳F.システムCD = @システムCD
	AND TSK補助簿_当座預金出納帳F.演習CD = @演習CD
	AND (TSK補助簿_当座預金出納帳F.会社CD = @学生番号 OR TSK補助簿_当座預金出納帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_当座預金出納帳F
SELECT *
FROM #TMP_TSK補助簿_当座預金出納帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの現金出納帳を一時テーブルにコピー
SELECT TSK補助簿_現金出納帳F.*
INTO #TMP_TSK補助簿_現金出納帳F
FROM TSK補助簿_現金出納帳F
WHERE TSK補助簿_現金出納帳F.システムCD = @システムCD
	AND TSK補助簿_現金出納帳F.演習CD = @演習CD
	AND (TSK補助簿_現金出納帳F.会社CD = @コピー元学生番号 OR TSK補助簿_現金出納帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの現金出納帳の会社CDを変更
UPDATE #TMP_TSK補助簿_現金出納帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_現金出納帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの現金出納帳を削除
DELETE FROM TSK補助簿_現金出納帳F
WHERE TSK補助簿_現金出納帳F.システムCD = @システムCD
	AND TSK補助簿_現金出納帳F.演習CD = @演習CD
	AND (TSK補助簿_現金出納帳F.会社CD = @学生番号 OR TSK補助簿_現金出納帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_現金出納帳F
SELECT *
FROM #TMP_TSK補助簿_現金出納帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの材料仕入帳を一時テーブルにコピー
SELECT TSK補助簿_材料仕入帳F.*
INTO #TMP_TSK補助簿_材料仕入帳F
FROM TSK補助簿_材料仕入帳F
WHERE TSK補助簿_材料仕入帳F.システムCD = @システムCD
	AND TSK補助簿_材料仕入帳F.演習CD = @演習CD
	AND (TSK補助簿_材料仕入帳F.会社CD = @コピー元学生番号 OR TSK補助簿_材料仕入帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの材料仕入帳の会社CDを変更
UPDATE #TMP_TSK補助簿_材料仕入帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_材料仕入帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの材料仕入帳を削除
DELETE FROM TSK補助簿_材料仕入帳F
WHERE TSK補助簿_材料仕入帳F.システムCD = @システムCD
	AND TSK補助簿_材料仕入帳F.演習CD = @演習CD
	AND (TSK補助簿_材料仕入帳F.会社CD = @学生番号 OR TSK補助簿_材料仕入帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_材料仕入帳F
SELECT *
FROM #TMP_TSK補助簿_材料仕入帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの材料元帳を一時テーブルにコピー
SELECT TSK補助簿_材料元帳F.*
INTO #TMP_TSK補助簿_材料元帳F
FROM TSK補助簿_材料元帳F
WHERE TSK補助簿_材料元帳F.システムCD = @システムCD
	AND TSK補助簿_材料元帳F.演習CD = @演習CD
	AND (TSK補助簿_材料元帳F.会社CD = @コピー元学生番号 OR TSK補助簿_材料元帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの材料元帳の会社CD・材料CD・取引先CDを変更
UPDATE #TMP_TSK補助簿_材料元帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_材料元帳F
SET 材料CD = REPLACE(材料CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 材料CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_材料元帳F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_材料元帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_材料元帳F
SET 材料CD = @学生番号
WHERE 材料CD = @コピー元学生番号
UPDATE #TMP_TSK補助簿_材料元帳F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号

--[本テーブル]ユーザーの材料元帳を削除
DELETE FROM TSK補助簿_材料元帳F
WHERE TSK補助簿_材料元帳F.システムCD = @システムCD
	AND TSK補助簿_材料元帳F.演習CD = @演習CD
	AND (TSK補助簿_材料元帳F.会社CD = @学生番号 OR TSK補助簿_材料元帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_材料元帳F
SELECT *
FROM #TMP_TSK補助簿_材料元帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの小口現金出納帳を一時テーブルにコピー
SELECT TSK補助簿_小口現金出納帳F.*
INTO #TMP_TSK補助簿_小口現金出納帳F
FROM TSK補助簿_小口現金出納帳F
WHERE TSK補助簿_小口現金出納帳F.システムCD = @システムCD
	AND TSK補助簿_小口現金出納帳F.演習CD = @演習CD
	AND (TSK補助簿_小口現金出納帳F.会社CD = @コピー元学生番号 OR TSK補助簿_小口現金出納帳F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの小口現金出納帳の会社CDを変更
UPDATE #TMP_TSK補助簿_小口現金出納帳F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_小口現金出納帳F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの小口現金出納帳を削除
DELETE FROM TSK補助簿_小口現金出納帳F
WHERE TSK補助簿_小口現金出納帳F.システムCD = @システムCD
	AND TSK補助簿_小口現金出納帳F.演習CD = @演習CD
	AND (TSK補助簿_小口現金出納帳F.会社CD = @学生番号 OR TSK補助簿_小口現金出納帳F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_小口現金出納帳F
SELECT *
FROM #TMP_TSK補助簿_小口現金出納帳F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの保険請求領収書を一時テーブルにコピー
SELECT TGU保険請求領収書F.*
INTO #TMP_TGU保険請求領収書F
FROM TGU保険請求領収書F
WHERE TGU保険請求領収書F.システムCD = @システムCD
	AND TGU保険請求領収書F.演習CD = @演習CD
	AND (TGU保険請求領収書F.会社CD = @コピー元学生番号 OR TGU保険請求領収書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの保険請求領収書の会社CD・取引先CDを変更
UPDATE #TMP_TGU保険請求領収書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGU保険請求領収書F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGU保険請求領収書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGU保険請求領収書F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号

--[本テーブル]ユーザーの材料元帳を削除
DELETE FROM TGU保険請求領収書F
WHERE TGU保険請求領収書F.システムCD = @システムCD
	AND TGU保険請求領収書F.演習CD = @演習CD
	AND (TGU保険請求領収書F.会社CD = @学生番号 OR TGU保険請求領収書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGU保険請求領収書F
SELECT *
FROM #TMP_TGU保険請求領収書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの運送費請求領収書を一時テーブルにコピー
SELECT TGU運送費請求領収書F.*
INTO #TMP_TGU運送費請求領収書F
FROM TGU運送費請求領収書F
WHERE TGU運送費請求領収書F.システムCD = @システムCD
	AND TGU運送費請求領収書F.演習CD = @演習CD
	AND (TGU運送費請求領収書F.会社CD = @コピー元学生番号 OR TGU運送費請求領収書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの運送費請求領収書の会社CD・取引先CDを変更
UPDATE #TMP_TGU運送費請求領収書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGU運送費請求領収書F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGU運送費請求領収書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGU運送費請求領収書F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号

--[本テーブル]ユーザーの材料元帳を削除
DELETE FROM TGU運送費請求領収書F
WHERE TGU運送費請求領収書F.システムCD = @システムCD
	AND TGU運送費請求領収書F.演習CD = @演習CD
	AND (TGU運送費請求領収書F.会社CD = @学生番号 OR TGU運送費請求領収書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGU運送費請求領収書F
SELECT *
FROM #TMP_TGU運送費請求領収書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの倉庫料請求領収書を一時テーブルにコピー
SELECT TGU倉庫料請求領収書F.*
INTO #TMP_TGU倉庫料請求領収書F
FROM TGU倉庫料請求領収書F
WHERE TGU倉庫料請求領収書F.システムCD = @システムCD
	AND TGU倉庫料請求領収書F.演習CD = @演習CD
	AND (TGU倉庫料請求領収書F.会社CD = @コピー元学生番号 OR TGU倉庫料請求領収書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの倉庫料請求領収書の会社CD・取引先CDを変更
UPDATE #TMP_TGU倉庫料請求領収書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGU倉庫料請求領収書F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TGU倉庫料請求領収書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TGU倉庫料請求領収書F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号

--[本テーブル]ユーザーの材料元帳を削除
DELETE FROM TGU倉庫料請求領収書F
WHERE TGU倉庫料請求領収書F.システムCD = @システムCD
	AND TGU倉庫料請求領収書F.演習CD = @演習CD
	AND (TGU倉庫料請求領収書F.会社CD = @学生番号 OR TGU倉庫料請求領収書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TGU倉庫料請求領収書F
SELECT *
FROM #TMP_TGU倉庫料請求領収書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの経費労務費を一時テーブルにコピー
SELECT TDA経費労務費M.*
INTO #TMP_TDA経費労務費M
FROM TDA経費労務費M
WHERE TDA経費労務費M.システムCD = @システムCD
	AND TDA経費労務費M.演習CD = @演習CD
	AND (TDA経費労務費M.会社CD = @コピー元学生番号 OR TDA経費労務費M.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーのTDA経費労務費Mの会社CD・製品CDを変更
UPDATE #TMP_TDA経費労務費M
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TDA経費労務費M
SET 製品CD = REPLACE(製品CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 製品CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TDA経費労務費M
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TDA経費労務費M
SET 製品CD = @学生番号
WHERE 製品CD = @コピー元学生番号

--[本テーブル]ユーザーのTDA経費労務費Mを削除
DELETE FROM TDA経費労務費M
WHERE TDA経費労務費M.システムCD = @システムCD
	AND TDA経費労務費M.演習CD = @演習CD
	AND (TDA経費労務費M.会社CD = @学生番号 OR TDA経費労務費M.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TDA経費労務費M
SELECT *
FROM #TMP_TDA経費労務費M

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーのTSK補助簿_原価計算表Fを一時テーブルにコピー
SELECT TSK補助簿_原価計算表F.*
INTO #TMP_TSK補助簿_原価計算表F
FROM TSK補助簿_原価計算表F
WHERE TSK補助簿_原価計算表F.システムCD = @システムCD
	AND TSK補助簿_原価計算表F.演習CD = @演習CD
	AND (TSK補助簿_原価計算表F.会社CD = @コピー元学生番号 OR TSK補助簿_原価計算表F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーのTSK補助簿_原価計算表Fの会社CDを変更
UPDATE #TMP_TSK補助簿_原価計算表F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_原価計算表F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーのTSK補助簿_原価計算表Fを削除
DELETE FROM TSK補助簿_原価計算表F
WHERE TSK補助簿_原価計算表F.システムCD = @システムCD
	AND TSK補助簿_原価計算表F.演習CD = @演習CD
	AND (TSK補助簿_原価計算表F.会社CD = @学生番号 OR TSK補助簿_原価計算表F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_原価計算表F
SELECT *
FROM #TMP_TSK補助簿_原価計算表F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーのTSK補助簿_製造間接費配賦表Fを一時テーブルにコピー
SELECT TSK補助簿_製造間接費配賦表F.*
INTO #TMP_TSK補助簿_製造間接費配賦表F
FROM TSK補助簿_製造間接費配賦表F
WHERE TSK補助簿_製造間接費配賦表F.システムCD = @システムCD
	AND TSK補助簿_製造間接費配賦表F.演習CD = @演習CD
	AND (TSK補助簿_製造間接費配賦表F.会社CD = @コピー元学生番号 OR TSK補助簿_製造間接費配賦表F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーのTSK補助簿_製造間接費配賦表Fの会社CDを変更
UPDATE #TMP_TSK補助簿_製造間接費配賦表F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TSK補助簿_製造間接費配賦表F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーのTSK補助簿_製造間接費配賦表Fを削除
DELETE FROM TSK補助簿_製造間接費配賦表F
WHERE TSK補助簿_製造間接費配賦表F.システムCD = @システムCD
	AND TSK補助簿_製造間接費配賦表F.演習CD = @演習CD
	AND (TSK補助簿_製造間接費配賦表F.会社CD = @学生番号 OR TSK補助簿_製造間接費配賦表F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TSK補助簿_製造間接費配賦表F
SELECT *
FROM #TMP_TSK補助簿_製造間接費配賦表F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの損益計画を一時テーブルにコピー
SELECT TTA損益計画F.*
INTO #TMP_TTA損益計画F
FROM TTA損益計画F
WHERE TTA損益計画F.システムCD = @システムCD
	AND TTA損益計画F.演習CD = @演習CD
	AND (TTA損益計画F.会社CD = @コピー元学生番号 OR TTA損益計画F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの損益計画の会社CD・学生番号を変更
UPDATE #TMP_TTA損益計画F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTA損益計画F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TTA損益計画F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの損益計画を削除
DELETE FROM TTA損益計画F
WHERE TTA損益計画F.システムCD = @システムCD
	AND TTA損益計画F.演習CD = @演習CD
	AND (TTA損益計画F.会社CD = @学生番号 OR TTA損益計画F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTA損益計画F
SELECT *
FROM #TMP_TTA損益計画F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの社員台帳からユーザーの社員台帳に存在しないを社員を一時テーブルにコピー
SELECT TTA社員台帳M.*
INTO #TMP_TTA社員台帳M
FROM TTA社員台帳M
LEFT OUTER JOIN (SELECT * FROM TTA社員台帳M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @学生番号) TTA社員台帳MJOIN --ユーザーの社員台帳を結合
	ON TTA社員台帳M.システムCD = TTA社員台帳MJOIN.システムCD
	AND TTA社員台帳M.演習CD = TTA社員台帳MJOIN.演習CD
	AND TTA社員台帳M.社員番号 = TTA社員台帳MJOIN.社員番号
WHERE TTA社員台帳M.システムCD = @システムCD
	AND TTA社員台帳M.演習CD = @演習CD
	AND TTA社員台帳M.会社CD = @コピー元学生番号
	AND TTA社員台帳MJOIN.社員番号 IS NULL --右側（ユーザーの社員台帳）がNULLのレコードのみ抽出

--[一時テーブル]コピー元ユーザーの社員台帳の会社CD・学生番号を変更
UPDATE #TMP_TTA社員台帳M
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TTA社員台帳M
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[一時テーブル]コピー元ユーザーの代表取締役フラグを変更
--社員番号1が一時テーブルに存在する場合はコピー先に代表取締役が存在しないのでそのまま
--社員番号1が一時テーブルに存在しない場合はコピー先に代表取締役が存在するのでフラグを降ろす
if(not(exists(SELECT * FROM #TMP_TTA社員台帳M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @学生番号 AND 社員番号 = 1)))
begin
	UPDATE #TMP_TTA社員台帳M
	SET 代表取締役フラグ = ''
	WHERE 会社CD = @学生番号
end

--本テーブルにコピーする
INSERT INTO TTA社員台帳M
SELECT *
FROM #TMP_TTA社員台帳M

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

--コピー元ユーザーの社員台帳からユーザーの社員台帳に存在しないを社員を一時テーブルにコピー（マスター会社）
SELECT TTA社員台帳M.*
INTO #TMP_TTA社員台帳MST
FROM TTA社員台帳M
LEFT OUTER JOIN (SELECT * FROM TTA社員台帳M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD LIKE '%-' + @学生番号) TTA社員台帳MJOIN --ユーザーの社員台帳を結合
	ON TTA社員台帳M.システムCD = TTA社員台帳MJOIN.システムCD
	AND TTA社員台帳M.演習CD = TTA社員台帳MJOIN.演習CD
	AND TTA社員台帳M.社員番号 = TTA社員台帳MJOIN.社員番号
WHERE TTA社員台帳M.システムCD = @システムCD
	AND TTA社員台帳M.演習CD = @演習CD
	AND TTA社員台帳M.会社CD LIKE '%-' + @コピー元学生番号
	AND TTA社員台帳MJOIN.社員番号 IS NULL --右側（ユーザーの社員台帳）がNULLのレコードのみ抽出

--[一時テーブル]コピー元ユーザーの社員台帳の会社CD・学生番号を変更
UPDATE #TMP_TTA社員台帳MST
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTA社員台帳MST
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの社員台帳を削除（代表取締役の整合性が取れないので）
DELETE FROM TTA社員台帳M
WHERE TTA社員台帳M.システムCD = @システムCD
	AND TTA社員台帳M.演習CD = @演習CD
	AND TTA社員台帳M.会社CD LIKE '%-' + @学生番号

--本テーブルにコピーする
INSERT INTO TTA社員台帳M
SELECT *
FROM #TMP_TTA社員台帳MST

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの給与明細を一時テーブルにコピー
SELECT TTA給与明細F.*
INTO #TMP_TTA給与明細F
FROM TTA給与明細F
WHERE TTA給与明細F.システムCD = @システムCD
	AND TTA給与明細F.演習CD = @演習CD
	AND (TTA給与明細F.会社CD = @コピー元学生番号 OR TTA給与明細F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの給与明細の会社CDを変更
UPDATE #TMP_TTA給与明細F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTA給与明細F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの給与明細を削除
DELETE FROM TTA給与明細F
WHERE TTA給与明細F.システムCD = @システムCD
	AND TTA給与明細F.演習CD = @演習CD
	AND (TTA給与明細F.会社CD = @学生番号 OR TTA給与明細F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTA給与明細F
SELECT *
FROM #TMP_TTA給与明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの摘要マスタを一時テーブルにコピー
SELECT TTK摘要M.*
INTO #TMP_TTK摘要M
FROM TTK摘要M
WHERE TTK摘要M.システムCD = @システムCD
	AND TTK摘要M.演習CD = @演習CD
	AND (TTK摘要M.会社CD = @コピー元学生番号 OR TTK摘要M.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの摘要マスタの会社CD・摘要CD・関連会社CDを変更
UPDATE #TMP_TTK摘要M
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTK摘要M
SET 摘要CD = REPLACE(摘要CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 摘要CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTK摘要M
SET 関連会社CD = REPLACE(関連会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 関連会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTK摘要M
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TTK摘要M
SET 摘要CD = @学生番号
WHERE 摘要CD = @コピー元学生番号
UPDATE #TMP_TTK摘要M
SET 関連会社CD = @学生番号
WHERE 関連会社CD = @コピー元学生番号

--[本テーブル]ユーザーの摘要マスタを削除
DELETE FROM TTK摘要M
WHERE TTK摘要M.システムCD = @システムCD
	AND TTK摘要M.演習CD = @演習CD
	AND (TTK摘要M.会社CD = @学生番号 OR TTK摘要M.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTK摘要M
SELECT *
FROM #TMP_TTK摘要M

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの記帳チェックを一時テーブルにコピー
SELECT TTK記帳チェックF.*
INTO #TMP_TTK記帳チェックF
FROM TTK記帳チェックF
WHERE TTK記帳チェックF.システムCD = @システムCD
	AND TTK記帳チェックF.演習CD = @演習CD
	AND (TTK記帳チェックF.会社CD = @コピー元学生番号 OR TTK記帳チェックF.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの記帳チェックの会社CDを変更
UPDATE #TMP_TTK記帳チェックF
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTK記帳チェックF
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号

--[本テーブル]ユーザーの記帳チェックを削除
DELETE FROM TTK記帳チェックF
WHERE TTK記帳チェックF.システムCD = @システムCD
	AND TTK記帳チェックF.演習CD = @演習CD
	AND (TTK記帳チェックF.会社CD = @学生番号 OR TTK記帳チェックF.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTK記帳チェックF
SELECT *
FROM #TMP_TTK記帳チェックF

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの名刺データ2を一時テーブルにコピー
SELECT TTM名刺データ2F.*
INTO #TMP_TTM名刺データ2F
FROM TTM名刺データ2F
WHERE TTM名刺データ2F.システムCD = @システムCD
	AND TTM名刺データ2F.演習CD = @演習CD
	AND (TTM名刺データ2F.会社CD = @コピー元学生番号 OR TTM名刺データ2F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの名刺データ2の会社CD・学生番号を変更
UPDATE #TMP_TTM名刺データ2F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTM名刺データ2F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TTM名刺データ2F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの名刺データ2を削除
DELETE FROM TTM名刺データ2F
WHERE TTM名刺データ2F.システムCD = @システムCD
	AND TTM名刺データ2F.演習CD = @演習CD
	AND (TTM名刺データ2F.会社CD = @学生番号 OR TTM名刺データ2F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTM名刺データ2F
SELECT *
FROM #TMP_TTM名刺データ2F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの名刺データを一時テーブルにコピー
SELECT TTM名刺データF.*
INTO #TMP_TTM名刺データF
FROM TTM名刺データF
WHERE TTM名刺データF.システムCD = @システムCD
	AND TTM名刺データF.演習CD = @演習CD
	AND (TTM名刺データF.会社CD = @コピー元学生番号 OR TTM名刺データF.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの名刺データの会社CD・学生番号を変更
UPDATE #TMP_TTM名刺データF
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTM名刺データF
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TTM名刺データF
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの名刺データを削除
DELETE FROM TTM名刺データF
WHERE TTM名刺データF.システムCD = @システムCD
	AND TTM名刺データF.演習CD = @演習CD
	AND (TTM名刺データF.会社CD = @学生番号 OR TTM名刺データF.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTM名刺データF
SELECT *
FROM #TMP_TTM名刺データF

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーのFAXを一時テーブルにコピー
SELECT TTXFAXF.*
INTO #TMP_TTXFAXF
FROM TTXFAXF
WHERE TTXFAXF.システムCD = @システムCD
	AND TTXFAXF.演習CD = @演習CD
	AND (TTXFAXF.会社CD = @コピー元学生番号 OR TTXFAXF.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーのFAXの会社CD・作成会社CD・宛先CD・学生番号を変更
UPDATE #TMP_TTXFAXF
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTXFAXF
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTXFAXF
SET 宛先CD = REPLACE(宛先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 宛先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTXFAXF
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TTXFAXF
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TTXFAXF
SET 宛先CD = @学生番号
WHERE 宛先CD = @コピー元学生番号
UPDATE #TMP_TTXFAXF
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーのFAXを削除
DELETE FROM TTXFAXF
WHERE TTXFAXF.システムCD = @システムCD
	AND TTXFAXF.演習CD = @演習CD
	AND (TTXFAXF.会社CD = @学生番号 OR TTXFAXF.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTXFAXF
SELECT *
FROM #TMP_TTXFAXF

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーのメールを一時テーブルにコピー
SELECT TTXメールF.*
INTO #TMP_TTXメールF
FROM TTXメールF
WHERE TTXメールF.システムCD = @システムCD
	AND TTXメールF.演習CD = @演習CD
	AND (TTXメールF.会社CD = @コピー元学生番号 OR TTXメールF.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーのメールの会社CD・作成会社CD・表示用宛先CD・学生番号を変更
UPDATE #TMP_TTXメールF
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTXメールF
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTXメールF
SET 表示用宛先CD = REPLACE(表示用宛先CD, '-' + @コピー元学生番号, '-' + @学生番号)
WHERE 表示用宛先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTXメールF
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TTXメールF
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TTXメールF
SET 表示用宛先CD = @学生番号
WHERE 表示用宛先CD = @コピー元学生番号
UPDATE #TMP_TTXメールF
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーのメールを削除
DELETE FROM TTXメールF
WHERE TTXメールF.システムCD = @システムCD
	AND TTXメールF.演習CD = @演習CD
	AND (TTXメールF.会社CD = @学生番号 OR TTXメールF.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTXメールF
SELECT *
FROM #TMP_TTXメールF

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--コピー元ユーザーの文書を一時テーブルにコピー
SELECT TTX文書F.*
INTO #TMP_TTX文書F
FROM TTX文書F
WHERE TTX文書F.システムCD = @システムCD
	AND TTX文書F.演習CD = @演習CD
	AND (TTX文書F.会社CD = @コピー元学生番号 OR TTX文書F.会社CD LIKE '%-' + @コピー元学生番号)

--[一時テーブル]コピー元ユーザーの文書の会社CD・取引先CD・作成会社CD・学生番号を変更
UPDATE #TMP_TTX文書F
SET 会社CD = REPLACE(会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTX文書F
SET 作成会社CD = REPLACE(作成会社CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 作成会社CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTX文書F
SET 取引先CD = REPLACE(取引先CD, '-' + @コピー元学生番号, '') + '-' + @学生番号
WHERE 取引先CD LIKE '%-' + @コピー元学生番号
UPDATE #TMP_TTX文書F
SET 会社CD = @学生番号
WHERE 会社CD = @コピー元学生番号
UPDATE #TMP_TTX文書F
SET 作成会社CD = @学生番号
WHERE 作成会社CD = @コピー元学生番号
UPDATE #TMP_TTX文書F
SET 取引先CD = @学生番号
WHERE 取引先CD = @コピー元学生番号
UPDATE #TMP_TTX文書F
SET 学生番号 = @学生番号
WHERE 学生番号 = @コピー元学生番号

--[本テーブル]ユーザーの文書を削除
DELETE FROM TTX文書F
WHERE TTX文書F.システムCD = @システムCD
	AND TTX文書F.演習CD = @演習CD
	AND (TTX文書F.会社CD = @学生番号 OR TTX文書F.会社CD LIKE '%-' + @学生番号)

--本テーブルにコピーする
INSERT INTO TTX文書F
SELECT *
FROM #TMP_TTX文書F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


--TC6演習履歴M.最終参加日時の更新
if(exists(SELECT * FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @コピー元学生番号))
begin
	SET @最終参加日時 = (SELECT 最終参加日時 FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @コピー元学生番号)
end
if(@最終参加日時 IS NULL)
begin
	SET @最終参加日時 = GETDATE()
end
UPDATE TC6演習履歴M
SET 最終参加日時 = @最終参加日時
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 学生番号 = @学生番号

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


end


commit transaction





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPM同時同業会社作成
@システムCD varchar(12), @演習CD varchar(12), @学生番号 varchar(12), @処理日 datetime

AS

declare @銀行CD varchar(20)

begin transaction


If @学生番号 <> ''
begin

	SELECT TDA会社M.*
	INTO #TMP_TDA会社M
	FROM TDA会社M
	LEFT OUTER JOIN TDA会社M TDA会社M_1
		ON TDA会社M.システムCD = TDA会社M_1.システムCD
		AND TDA会社M.演習CD = TDA会社M_1.演習CD
		AND TDA会社M.会社CD + '-' + @学生番号 = TDA会社M_1.会社CD
	WHERE TDA会社M.システムCD =  @システムCD
		AND TDA会社M.演習CD =  @演習CD
		AND TDA会社M.学生番号 = ''
		AND TDA会社M_1.演習CD IS NULL

	UPDATE #TMP_TDA会社M
	SET 会社CD = 会社CD + '-' + @学生番号
		, 学生番号 = @学生番号

	UPDATE #TMP_TDA会社M
	SET 寄託会社CD = 寄託会社CD + '-' + @学生番号
		WHERE (寄託会社CD <> '' AND 寄託会社CD IS NOT NULL)

	INSERT INTO TDA会社M
	SELECT *
	FROM #TMP_TDA会社M
	SELECT *
	FROM TDA会社M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 学生番号 = @学生番号

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	SELECT TGB銀行口座F.* INTO #TMP_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.学生番号 = ''

	UPDATE #TMP_TGB銀行口座F
	SET 銀行CD = 銀行CD + '-' + @学生番号
		, 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TGB銀行口座F
	SELECT #TMP_TGB銀行口座F.*
	FROM #TMP_TGB銀行口座F
	LEFT OUTER JOIN TGB銀行口座F
		ON #TMP_TGB銀行口座F.システムCD = TGB銀行口座F.システムCD
		AND #TMP_TGB銀行口座F.演習CD = TGB銀行口座F.演習CD 
		AND #TMP_TGB銀行口座F.銀行CD = TGB銀行口座F.銀行CD 
		AND #TMP_TGB銀行口座F.口座区分 = TGB銀行口座F.口座区分 
		AND #TMP_TGB銀行口座F.口座番号 = TGB銀行口座F.口座番号
	WHERE TGB銀行口座F.演習CD IS NULL

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

		SELECT TGB銀行口座入出金TRN.* INTO #TMP_TGB銀行口座入出金TRN
		FROM TGB銀行口座入出金TRN INNER JOIN
		TDA会社M ON 
		TGB銀行口座入出金TRN.システムCD = TDA会社M.システムCD AND 
		TGB銀行口座入出金TRN.演習CD = TDA会社M.演習CD AND 
		TGB銀行口座入出金TRN.銀行CD = TDA会社M.会社CD
		WHERE (TDA会社M.学生番号 = '') AND 
		(TGB銀行口座入出金TRN.システムCD = @システムCD AND TGB銀行口座入出金TRN.演習CD = @演習CD)

		UPDATE #TMP_TGB銀行口座入出金TRN
		SET 銀行CD = 銀行CD + '-' + @学生番号

		INSERT INTO TGB銀行口座入出金TRN
		SELECT          #TMP_TGB銀行口座入出金TRN.*
		FROM           #TMP_TGB銀行口座入出金TRN LEFT OUTER JOIN
                      TGB銀行口座入出金TRN ON 
                      #TMP_TGB銀行口座入出金TRN.システムCD = TGB銀行口座入出金TRN.システムCD AND 
                      #TMP_TGB銀行口座入出金TRN.演習CD = TGB銀行口座入出金TRN.演習CD AND 
                      #TMP_TGB銀行口座入出金TRN.銀行CD = TGB銀行口座入出金TRN.銀行CD AND 
                      #TMP_TGB銀行口座入出金TRN.口座区分 = TGB銀行口座入出金TRN.口座区分 AND 
                      #TMP_TGB銀行口座入出金TRN.口座番号 = TGB銀行口座入出金TRN.口座番号 AND 
                      #TMP_TGB銀行口座入出金TRN.入出金CD = TGB銀行口座入出金TRN.入出金CD
		WHERE           (TGB銀行口座入出金TRN.演習CD IS NULL)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

		SELECT TGK現金入出金TRN.* INTO #TMP_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 
		(TDA会社M.学生番号 = '') AND 
		(TGK現金入出金TRN.処理時期区分 = 0)

		UPDATE #TMP_TGK現金入出金TRN
		SET 会社CD = 会社CD + '-' + @学生番号

		INSERT INTO TGK現金入出金TRN
		SELECT          #TMP_TGK現金入出金TRN.*
		FROM            #TMP_TGK現金入出金TRN LEFT OUTER JOIN
                      TGK現金入出金TRN ON 
                      #TMP_TGK現金入出金TRN.システムCD = TGK現金入出金TRN.システムCD AND 
                      #TMP_TGK現金入出金TRN.演習CD = TGK現金入出金TRN.演習CD AND 
                      #TMP_TGK現金入出金TRN.会社CD = TGK現金入出金TRN.会社CD AND 
                      #TMP_TGK現金入出金TRN.現金入出金CD = TGK現金入出金TRN.現金入出金CD
		WHERE           (TGK現金入出金TRN.演習CD IS NULL)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

		SELECT TGA入出庫TRN.* INTO #TMP_TGA入出庫TRN
		FROM TGA入出庫TRN LEFT OUTER 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 (TDA会社M.学生番号 = '') AND 
		(TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)

		UPDATE #TMP_TGA入出庫TRN
		SET 会社CD = 会社CD + '-' + @学生番号

		INSERT INTO TGA入出庫TRN
		SELECT          #TMP_TGA入出庫TRN.*
		FROM            #TMP_TGA入出庫TRN LEFT OUTER JOIN
                      TGA入出庫TRN ON 
                      #TMP_TGA入出庫TRN.システムCD = TGA入出庫TRN.システムCD AND 
                      #TMP_TGA入出庫TRN.演習CD = TGA入出庫TRN.演習CD AND 
                      #TMP_TGA入出庫TRN.会社CD = TGA入出庫TRN.会社CD AND 
                      #TMP_TGA入出庫TRN.文書種類CD = TGA入出庫TRN.文書種類CD AND 
                      #TMP_TGA入出庫TRN.文書内容CD = TGA入出庫TRN.文書内容CD
		WHERE           (TGA入出庫TRN.演習CD IS NULL)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

		SELECT TGA入出庫明細TRN.* INTO #TMP_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 
                                             (TDA会社M.学生番号 = '')

		UPDATE #TMP_TGA入出庫明細TRN
		SET 会社CD = 会社CD + '-' + @学生番号

		INSERT INTO TGA入出庫明細TRN
		SELECT          #TMP_TGA入出庫明細TRN.*
		FROM            #TMP_TGA入出庫明細TRN LEFT OUTER JOIN
                      TGA入出庫明細TRN ON 
                      #TMP_TGA入出庫明細TRN.システムCD = TGA入出庫明細TRN.システムCD AND 
                      #TMP_TGA入出庫明細TRN.演習CD = TGA入出庫明細TRN.演習CD AND 
                      #TMP_TGA入出庫明細TRN.会社CD = TGA入出庫明細TRN.会社CD AND 
                      #TMP_TGA入出庫明細TRN.文書種類CD = TGA入出庫明細TRN.文書種類CD AND
                      #TMP_TGA入出庫明細TRN.文書内容CD = TGA入出庫明細TRN.文書内容CD AND 
                      #TMP_TGA入出庫明細TRN.入出庫SEQ = TGA入出庫明細TRN.入出庫SEQ
		WHERE           (TGA入出庫明細TRN.演習CD IS NULL)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

		SELECT TSK伝票F.* INTO #TMP_TSK伝票F
		FROM TSK伝票F LEFT OUTER 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 (TDA会社M.学生番号 = '')

		UPDATE #TMP_TSK伝票F
		SET 会社CD = 会社CD + '-' + @学生番号
		
		INSERT INTO TSK伝票F
		SELECT          #TMP_TSK伝票F.*
		FROM           #TMP_TSK伝票F LEFT OUTER JOIN
                      TSK伝票F ON 
                      #TMP_TSK伝票F.システムCD = TSK伝票F.システムCD AND 
                      #TMP_TSK伝票F.演習CD = TSK伝票F.演習CD AND 
                      #TMP_TSK伝票F.会社CD = TSK伝票F.会社CD AND 
                      #TMP_TSK伝票F.伝票区分 = TSK伝票F.伝票区分 AND 
                      #TMP_TSK伝票F.伝票番号 = TSK伝票F.伝票番号
		WHERE           (TSK伝票F.演習CD IS NULL)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	SELECT TSK伝票明細F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''

	UPDATE #TMP_TSK伝票明細F
	SET 会社CD = 会社CD + '-' + @学生番号
		, 摘要CD = 摘要CD

	UPDATE #TMP_TSK伝票明細F
	SET 摘要CD = 摘要CD + '-' + @学生番号	--取引先CDも生徒会社に変更する（080912小野）
	WHERE 摘要CD <> '' AND 摘要CD IS NOT NULL	--取引先CDが存在する場合に限定する

	INSERT INTO TSK伝票明細F
	SELECT #TMP_TSK伝票明細F.*
	FROM #TMP_TSK伝票明細F
	LEFT OUTER JOIN TSK伝票明細F
		ON #TMP_TSK伝票明細F.システムCD = TSK伝票明細F.システムCD
		AND #TMP_TSK伝票明細F.演習CD = TSK伝票明細F.演習CD
		AND #TMP_TSK伝票明細F.会社CD = TSK伝票明細F.会社CD
		AND #TMP_TSK伝票明細F.伝票区分 = TSK伝票明細F.伝票区分
		AND #TMP_TSK伝票明細F.伝票番号 = TSK伝票明細F.伝票番号
		AND #TMP_TSK伝票明細F.伝票SEQ = TSK伝票明細F.伝票SEQ
	WHERE TSK伝票明細F.演習CD IS NULL

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end


	SELECT TGA契約書F.*
	INTO #TMP_TGA契約書F
	FROM TGA契約書F
	INNER JOIN TDA会社M
		ON TGA契約書F.システムCD = TDA会社M.システムCD
		AND TGA契約書F.演習CD = TDA会社M.演習CD
		AND TGA契約書F.作成会社CD = TDA会社M.会社CD
	WHERE TGA契約書F.システムCD = @システムCD
		AND TGA契約書F.演習CD = @演習CD
		AND TDA会社M.学生番号 = ''

	UPDATE #TMP_TGA契約書F
	SET 会社CD = 会社CD + '-' + @学生番号
		, 作成会社CD = 作成会社CD + '-' + @学生番号
		, 取引先CD = 取引先CD + '-' + @学生番号

	INSERT INTO TGA契約書F
	SELECT #TMP_TGA契約書F.*
	FROM #TMP_TGA契約書F
	LEFT OUTER JOIN TGA契約書F
		ON #TMP_TGA契約書F.システムCD = TGA契約書F.システムCD
		AND #TMP_TGA契約書F.演習CD = TGA契約書F.演習CD
		AND #TMP_TGA契約書F.作成会社CD = TGA契約書F.作成会社CD
		AND #TMP_TGA契約書F.文書種類CD = TGA契約書F.文書種類CD
		AND #TMP_TGA契約書F.文書内容CD = TGA契約書F.文書内容CD
	WHERE TGA契約書F.演習CD IS NULL

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

		SELECT TTA社員台帳F.* INTO #TMP_TTA社員台帳F
		FROM             TTA社員台帳F INNER JOIN
		TDA会社M ON 
		TTA社員台帳F.システムCD = TDA会社M.システムCD AND 
		TTA社員台帳F.演習CD = TDA会社M.演習CD AND 
		TTA社員台帳F.会社CD = TDA会社M.会社CD
		WHERE           (TTA社員台帳F.システムCD = @システムCD AND TTA社員台帳F.演習CD = @演習CD) AND 
		(TDA会社M.学生番号 = '')

		UPDATE #TMP_TTA社員台帳F
		SET 会社CD = 会社CD + '-' + @学生番号

		INSERT INTO TTA社員台帳F
		SELECT          #TMP_TTA社員台帳F.*
		FROM           #TMP_TTA社員台帳F LEFT OUTER JOIN
                      TTA社員台帳F ON 
                      #TMP_TTA社員台帳F.システムCD = TTA社員台帳F.システムCD AND 
                      #TMP_TTA社員台帳F.演習CD = TTA社員台帳F.演習CD AND 
                      #TMP_TTA社員台帳F.会社CD = TTA社員台帳F.会社CD AND 
                      #TMP_TTA社員台帳F.社員番号 = TTA社員台帳F.社員番号 
		WHERE           (TTA社員台帳F.演習CD IS NULL)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end

	SELECT TTA社員台帳M.*
	INTO #TMP_TTA社員台帳M
	FROM TTA社員台帳M
	INNER JOIN TDA会社M
		ON TTA社員台帳M.システムCD = TDA会社M.システムCD
		AND TTA社員台帳M.演習CD = TDA会社M.演習CD
		AND TTA社員台帳M.会社CD = TDA会社M.会社CD
	WHERE TTA社員台帳M.システムCD = @システムCD
		AND TTA社員台帳M.演習CD = @演習CD
		AND TDA会社M.学生番号 = ''	--マスタ会社は代表取締役のみなのでTTA社員台帳M.学生番号での絞込みは不要

	UPDATE #TMP_TTA社員台帳M
	SET 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TTA社員台帳M
	SELECT #TMP_TTA社員台帳M.*
	FROM #TMP_TTA社員台帳M
	LEFT OUTER JOIN TTA社員台帳M
		ON #TMP_TTA社員台帳M.システムCD = TTA社員台帳M.システムCD
		AND #TMP_TTA社員台帳M.演習CD = TTA社員台帳M.演習CD
		AND #TMP_TTA社員台帳M.会社CD = TTA社員台帳M.会社CD
		AND #TMP_TTA社員台帳M.社員番号 = TTA社員台帳M.社員番号
	WHERE TTA社員台帳M.演習CD IS NULL

end


--総勘定元帳・補助簿の期首残高転記レコードをマスタ会社から生徒会社にコピー（080912小野）
if not(exists(SELECT 学生番号 FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))
begin

	--総勘定元帳
	SELECT TSK帳簿_総勘定元帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK帳簿_総勘定元帳F.総勘定元帳CD = 0

	UPDATE #TMP_TSK帳簿_総勘定元帳F
	SET 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TSK帳簿_総勘定元帳F
	SELECT #TMP_TSK帳簿_総勘定元帳F.*
	FROM #TMP_TSK帳簿_総勘定元帳F
	LEFT OUTER JOIN TSK帳簿_総勘定元帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK帳簿_総勘定元帳F.システムCD = TSK帳簿_総勘定元帳F.システムCD
		AND #TMP_TSK帳簿_総勘定元帳F.演習CD = TSK帳簿_総勘定元帳F.演習CD
		AND #TMP_TSK帳簿_総勘定元帳F.会社CD = TSK帳簿_総勘定元帳F.会社CD
		AND #TMP_TSK帳簿_総勘定元帳F.総勘定元帳CD = TSK帳簿_総勘定元帳F.総勘定元帳CD
	WHERE TSK帳簿_総勘定元帳F.演習CD IS NULL

	--現金出納帳
	SELECT TSK補助簿_現金出納帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_現金出納帳F.現金出納帳CD = 0

	UPDATE #TMP_TSK補助簿_現金出納帳F
	SET 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TSK補助簿_現金出納帳F
	SELECT #TMP_TSK補助簿_現金出納帳F.*
	FROM #TMP_TSK補助簿_現金出納帳F
	LEFT OUTER JOIN TSK補助簿_現金出納帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_現金出納帳F.システムCD = TSK補助簿_現金出納帳F.システムCD
		AND #TMP_TSK補助簿_現金出納帳F.演習CD = TSK補助簿_現金出納帳F.演習CD
		AND #TMP_TSK補助簿_現金出納帳F.会社CD = TSK補助簿_現金出納帳F.会社CD
		AND #TMP_TSK補助簿_現金出納帳F.現金出納帳CD = TSK補助簿_現金出納帳F.現金出納帳CD
	WHERE TSK補助簿_現金出納帳F.演習CD IS NULL

	--当座預金出納帳
	SELECT TSK補助簿_当座預金出納帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_当座預金出納帳F.当座預金出納帳CD = 0

	UPDATE #TMP_TSK補助簿_当座預金出納帳F
	SET 会社CD = 会社CD + '-' + @学生番号
	, 銀行CD = 銀行CD + '-' + @学生番号	--取引先銀行CDも生徒会社に変更する

	INSERT INTO TSK補助簿_当座預金出納帳F
	SELECT #TMP_TSK補助簿_当座預金出納帳F.*
	FROM #TMP_TSK補助簿_当座預金出納帳F
	LEFT OUTER JOIN TSK補助簿_当座預金出納帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_当座預金出納帳F.システムCD = TSK補助簿_当座預金出納帳F.システムCD
		AND #TMP_TSK補助簿_当座預金出納帳F.演習CD = TSK補助簿_当座預金出納帳F.演習CD
		AND #TMP_TSK補助簿_当座預金出納帳F.会社CD = TSK補助簿_当座預金出納帳F.会社CD
		AND #TMP_TSK補助簿_当座預金出納帳F.銀行CD = TSK補助簿_当座預金出納帳F.銀行CD
		AND #TMP_TSK補助簿_当座預金出納帳F.当座預金出納帳CD = TSK補助簿_当座預金出納帳F.当座預金出納帳CD
	WHERE TSK補助簿_当座預金出納帳F.演習CD IS NULL

	--売上帳
	SELECT TSK補助簿_売上帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_売上帳F.売上帳CD = 0

	UPDATE #TMP_TSK補助簿_売上帳F
	SET 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TSK補助簿_売上帳F
	SELECT #TMP_TSK補助簿_売上帳F.*
	FROM #TMP_TSK補助簿_売上帳F
	LEFT OUTER JOIN TSK補助簿_売上帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_売上帳F.システムCD = TSK補助簿_売上帳F.システムCD
		AND #TMP_TSK補助簿_売上帳F.演習CD = TSK補助簿_売上帳F.演習CD
		AND #TMP_TSK補助簿_売上帳F.会社CD = TSK補助簿_売上帳F.会社CD
		AND #TMP_TSK補助簿_売上帳F.売上帳CD = TSK補助簿_売上帳F.売上帳CD
	WHERE TSK補助簿_売上帳F.演習CD IS NULL

	--仕入帳
	SELECT TSK補助簿_仕入帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_仕入帳F.仕入帳CD = 0

	UPDATE #TMP_TSK補助簿_仕入帳F
	SET 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TSK補助簿_仕入帳F
	SELECT #TMP_TSK補助簿_仕入帳F.*
	FROM #TMP_TSK補助簿_仕入帳F
	LEFT OUTER JOIN TSK補助簿_仕入帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_仕入帳F.システムCD = TSK補助簿_仕入帳F.システムCD
		AND #TMP_TSK補助簿_仕入帳F.演習CD = TSK補助簿_仕入帳F.演習CD
		AND #TMP_TSK補助簿_仕入帳F.会社CD = TSK補助簿_仕入帳F.会社CD
		AND #TMP_TSK補助簿_仕入帳F.仕入帳CD = TSK補助簿_仕入帳F.仕入帳CD
	WHERE TSK補助簿_仕入帳F.演習CD IS NULL

	--売掛金元帳
	SELECT TSK補助簿_売掛金元帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_売掛金元帳F.売掛金元帳CD = 0

	UPDATE #TMP_TSK補助簿_売掛金元帳F
	SET 会社CD = 会社CD + '-' + @学生番号
	, 取引先CD = 取引先CD

	UPDATE #TMP_TSK補助簿_売掛金元帳F
	SET 取引先CD = 取引先CD + '-' + @学生番号	--取引先CDも生徒会社に変更する
	WHERE 取引先CD <> '' AND 取引先CD IS NOT NULL	--取引先CDが存在する場合に限定する

	INSERT INTO TSK補助簿_売掛金元帳F
	SELECT #TMP_TSK補助簿_売掛金元帳F.*
	FROM #TMP_TSK補助簿_売掛金元帳F
	LEFT OUTER JOIN TSK補助簿_売掛金元帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_売掛金元帳F.システムCD = TSK補助簿_売掛金元帳F.システムCD
		AND #TMP_TSK補助簿_売掛金元帳F.演習CD = TSK補助簿_売掛金元帳F.演習CD
		AND #TMP_TSK補助簿_売掛金元帳F.会社CD = TSK補助簿_売掛金元帳F.会社CD
		AND #TMP_TSK補助簿_売掛金元帳F.取引先CD = TSK補助簿_売掛金元帳F.取引先CD
		AND #TMP_TSK補助簿_売掛金元帳F.売掛金元帳CD = TSK補助簿_売掛金元帳F.売掛金元帳CD
	WHERE TSK補助簿_売掛金元帳F.演習CD IS NULL

	--買掛金元帳
	SELECT TSK補助簿_買掛金元帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_買掛金元帳F.買掛金元帳CD = 0

	UPDATE #TMP_TSK補助簿_買掛金元帳F
	SET 会社CD = 会社CD + '-' + @学生番号
	, 取引先CD = 取引先CD

	UPDATE #TMP_TSK補助簿_買掛金元帳F
	SET 取引先CD = 取引先CD + '-' + @学生番号	--取引先CDも生徒会社に変更する
	WHERE 取引先CD <> '' AND 取引先CD IS NOT NULL	--取引先CDが存在する場合に限定する

	INSERT INTO TSK補助簿_買掛金元帳F
	SELECT #TMP_TSK補助簿_買掛金元帳F.*
	FROM #TMP_TSK補助簿_買掛金元帳F
	LEFT OUTER JOIN TSK補助簿_買掛金元帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_買掛金元帳F.システムCD = TSK補助簿_買掛金元帳F.システムCD
		AND #TMP_TSK補助簿_買掛金元帳F.演習CD = TSK補助簿_買掛金元帳F.演習CD
		AND #TMP_TSK補助簿_買掛金元帳F.会社CD = TSK補助簿_買掛金元帳F.会社CD
		AND #TMP_TSK補助簿_買掛金元帳F.取引先CD = TSK補助簿_買掛金元帳F.取引先CD
		AND #TMP_TSK補助簿_買掛金元帳F.買掛金元帳CD = TSK補助簿_買掛金元帳F.買掛金元帳CD
	WHERE TSK補助簿_買掛金元帳F.演習CD IS NULL

	--受取手形記入帳
	SELECT TSK補助簿_受取手形記入帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_受取手形記入帳F.受取手形記入帳CD = 0

	UPDATE #TMP_TSK補助簿_受取手形記入帳F
	SET 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TSK補助簿_受取手形記入帳F
	SELECT #TMP_TSK補助簿_受取手形記入帳F.*
	FROM #TMP_TSK補助簿_受取手形記入帳F
	LEFT OUTER JOIN TSK補助簿_受取手形記入帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_受取手形記入帳F.システムCD = TSK補助簿_受取手形記入帳F.システムCD
		AND #TMP_TSK補助簿_受取手形記入帳F.演習CD = TSK補助簿_受取手形記入帳F.演習CD
		AND #TMP_TSK補助簿_受取手形記入帳F.会社CD = TSK補助簿_受取手形記入帳F.会社CD
		AND #TMP_TSK補助簿_受取手形記入帳F.受取手形記入帳CD = TSK補助簿_受取手形記入帳F.受取手形記入帳CD
	WHERE TSK補助簿_受取手形記入帳F.演習CD IS NULL

	--支払手形記入帳
	SELECT TSK補助簿_支払手形記入帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_支払手形記入帳F.支払手形記入帳CD = 0

	UPDATE #TMP_TSK補助簿_支払手形記入帳F
	SET 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TSK補助簿_支払手形記入帳F
	SELECT #TMP_TSK補助簿_支払手形記入帳F.*
	FROM #TMP_TSK補助簿_支払手形記入帳F
	LEFT OUTER JOIN TSK補助簿_支払手形記入帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_支払手形記入帳F.システムCD = TSK補助簿_支払手形記入帳F.システムCD
		AND #TMP_TSK補助簿_支払手形記入帳F.演習CD = TSK補助簿_支払手形記入帳F.演習CD
		AND #TMP_TSK補助簿_支払手形記入帳F.会社CD = TSK補助簿_支払手形記入帳F.会社CD
		AND #TMP_TSK補助簿_支払手形記入帳F.支払手形記入帳CD = TSK補助簿_支払手形記入帳F.支払手形記入帳CD
	WHERE TSK補助簿_支払手形記入帳F.演習CD IS NULL

	--商品有高帳
	SELECT TSK補助簿_商品有高帳F.*
	INTO #TMP_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 TDA会社M.学生番号 = ''
		AND TSK補助簿_商品有高帳F.商品有高帳CD = 0

	UPDATE #TMP_TSK補助簿_商品有高帳F
	SET 会社CD = 会社CD + '-' + @学生番号

	INSERT INTO TSK補助簿_商品有高帳F
	SELECT #TMP_TSK補助簿_商品有高帳F.*
	FROM #TMP_TSK補助簿_商品有高帳F
	LEFT OUTER JOIN TSK補助簿_商品有高帳F	--INSERT先をJOINして演習CDがNULLのレコード（存在しないレコード）のみに絞る
		ON #TMP_TSK補助簿_商品有高帳F.システムCD = TSK補助簿_商品有高帳F.システムCD
		AND #TMP_TSK補助簿_商品有高帳F.演習CD = TSK補助簿_商品有高帳F.演習CD
		AND #TMP_TSK補助簿_商品有高帳F.会社CD = TSK補助簿_商品有高帳F.会社CD
		AND #TMP_TSK補助簿_商品有高帳F.商品有高帳CD = TSK補助簿_商品有高帳F.商品有高帳CD
	WHERE TSK補助簿_商品有高帳F.演習CD IS NULL

end

--自社設定の会社
exec SPM記帳チェック挿入集計更新 @システムCD, @演習CD, @学生番号

--マスタからコピーされた生徒会社（080912小野）
exec SPM記帳チェック挿入集計更新同時同業会社 @システムCD, @演習CD, @学生番号

commit transaction



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM商品一覧
@システムCD varchar(12), @演習CD  varchar(12) , @学生番号  varchar(12) 

AS

declare @演習区分 varchar(40) 

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT 市場.市場名称 AS 市場名称, TDA会社M.会社名称 AS 所有会社名称, TDA会社M.会社略名称 AS 所有会社略名称, TDA商品M.*
FROM TDA商品M
LEFT OUTER JOIN TDA会社M
	ON TDA商品M.システムCD = TDA会社M.システムCD
	AND TDA商品M.演習CD = TDA会社M.演習CD
	AND TDA商品M.所有会社CD = TDA会社M.会社CD
LEFT OUTER JOIN (
	SELECT *
	FROM TDA市場M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) 市場
	ON TDA商品M.システムCD = 市場.システムCD
	AND TDA商品M.演習CD = 市場.演習CD
	AND TDA商品M.市場CD = 市場.市場CD
WHERE TDA商品M.システムCD = @システムCD
	AND TDA商品M.演習CD = @演習CD
	AND (@演習区分 <> 'P' Or (@演習区分 = 'P' And ((TDA商品M.学生番号 IS NULL) Or TDA商品M.学生番号 = '' Or TDA商品M.学生番号 = @学生番号))) 
	AND TDA商品M.商品CD <> 'ETCSHOHIN' --「その他の商品」を除外
ORDER BY TDA商品M.商品CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM商品一覧2
@システムCD varchar(12), @演習CD  varchar(12)

/*
+   SM商品情報取得
+   TDA商品M情報の取得を行う
+
*/

AS
declare @演習区分  varchar(40) 

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)


	SELECT          市場.市場名称 AS 市場名称, TDA会社M.会社名称 AS 所有会社名称, TDA会社M.会社略名称 AS 所有会社略名称, TDA商品M.*
	FROM            TDA商品M LEFT OUTER JOIN
	                      TDA会社M ON TDA商品M.システムCD = TDA会社M.システムCD AND 
	                      TDA商品M.演習CD = TDA会社M.演習CD AND 
	                      TDA商品M.所有会社CD = TDA会社M.会社CD
			LEFT OUTER JOIN (SELECT * FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD) 市場 ON TDA商品M.システムCD = 市場.システムCD AND TDA商品M.演習CD = 市場.演習CD AND TDA商品M.市場CD = 市場.市場CD
	WHERE TDA商品M.システムCD = @システムCD AND TDA商品M.演習CD = @演習CD
		AND TDA商品M.商品CD <> 'ETCSHOHIN' --「その他の商品」を除外
	ORDER BY     TDA商品M.商品CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM商品全部一覧
@システムCD varchar(12), @演習CD  varchar(12)

/*
+   SM商品情報取得
+   TDA商品M情報の取得を行う
+
*/

AS
declare @演習区分  varchar(40) 

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)


	SELECT          市場.市場名称 AS 市場名称, TDA会社M.会社名称 AS 所有会社名称, TDA会社M.会社略名称 AS 所有会社略名称, TDA商品M.*
	FROM            TDA商品M LEFT OUTER JOIN
	                      TDA会社M ON TDA商品M.システムCD = TDA会社M.システムCD AND 
	                      TDA商品M.演習CD = TDA会社M.演習CD AND 
	                      TDA商品M.所有会社CD = TDA会社M.会社CD
			LEFT OUTER JOIN (SELECT * FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD) 市場 ON TDA商品M.システムCD = 市場.システムCD AND TDA商品M.演習CD = 市場.演習CD AND TDA商品M.市場CD = 市場.市場CD
	WHERE TDA商品M.システムCD = @システムCD AND TDA商品M.演習CD = @演習CD 
		AND TDA商品M.商品CD <> 'ETCSHOHIN' --「その他の商品」を除外
	ORDER BY     TDA商品M.商品CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPM商品削除
@システムCD varchar(12), @演習CD varchar(12), @商品CD varchar(20)
AS

/* 対象データの削除 */
DELETE FROM TDA商品M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 商品CD = @商品CD 

if @@error <> 0
   begin
       select -1  return
   end

select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPM商品取得
@システムCD varchar(12), @演習CD  varchar(12) , @商品CD varchar(20)

/*
+   SM商品情報取得
+   TDA商品M情報の取得を行う
+
*/

AS

SELECT TDA商品M.*, 市場.市場名称 FROM TDA商品M 
LEFT OUTER JOIN (SELECT * FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD) 市場 ON TDA商品M.システムCD = 市場.システムCD AND TDA商品M.演習CD = 市場.演習CD AND TDA商品M.市場CD = 市場.市場CD
WHERE TDA商品M.システムCD = @システムCD AND TDA商品M.演習CD = @演習CD AND TDA商品M.商品CD = @商品CD















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPM商品市場一覧
@システムCD varchar(12), @演習CD  varchar(12) , @市場CD  varchar(6)  , @学生番号  varchar(12) 

/*
+   SM商品情報取得
+   TDA商品M情報の取得を行う
+
*/

AS
declare @演習区分  varchar(40) 

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)


SELECT *
FROM  TDA商品M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  ((市場CD = '' AND 所有会社CD = '' ) Or (市場CD = @市場CD))
	AND	(@演習区分 <> 'P' Or (@演習区分 = 'P' And (TDA商品M.学生番号 = '' Or TDA商品M.学生番号 = @学生番号)))
	AND TDA商品M.商品CD <> 'ETCSHOHIN' --「その他の商品」を除外
ORDER BY 商品CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPM商品市場一覧2
@システムCD varchar(12), @演習CD  varchar(12) , @市場CD  varchar(6)  , @学生番号  varchar(12) 

/*
+   SM商品情報取得
+   TDA商品M情報の取得を行う
+
*/

AS
declare @演習区分  varchar(40) 

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)


SELECT *
FROM  TDA商品M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  市場CD = @市場CD 
	AND	(@演習区分 <> 'P' Or (@演習区分 = 'P' And (TDA商品M.学生番号 = '' Or TDA商品M.学生番号 = @学生番号)))
	AND TDA商品M.商品CD <> 'ETCSHOHIN' --「その他の商品」を除外
ORDER BY 商品CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM商品更新
@システムCD varchar(12), @処理区分 smallint
, @演習CD varchar(12), @商品CD varchar(20), @市場CD varchar(6), @商品名称 varchar(40)
, @商品略名称 varchar(20), @所有会社CD varchar(20)
, @標準販売単価 money , @標準仕入単価 money
, @運送料単価 money , @倉庫料単価 money , @商品重量 float
, @商品容積 float , @備考 varchar(40) 
, @画像ファイル varchar(200), @単位 varchar(20), @ロット money
, @作成区分 smallint, @学生番号 varchar(12)
AS

if @処理区分 = 1
begin
/* 対象データの登録 */
insert TDA商品M (システムCD, 演習CD, 商品CD, 市場CD, 商品名称, 商品略名称, 所有会社CD, 標準販売単価, 標準仕入単価, 運送料単価, 倉庫料単価, 商品重量, 商品容積, 備考, 画像ファイル, 単位, ロット, 作成区分, 学生番号)
values (@システムCD, @演習CD, @商品CD, @市場CD, @商品名称, @商品略名称, @所有会社CD, @標準販売単価, @標準仕入単価, @運送料単価, @倉庫料単価, @商品重量, @商品容積, @備考, @画像ファイル, @単位, @ロット, @作成区分, @学生番号)

if @@error <> 0
   begin
       select -1  return
   end
end

if @処理区分 = 2
begin
/* 対象データの更新 */
update TDA商品M
  set  市場CD       =   @市場CD 
      , 商品名称    =   @商品名称
      , 商品略名称    =   @商品略名称
      , 標準販売単価  =  @標準販売単価
      , 標準仕入単価  =  @標準仕入単価
      , 運送料単価     =  @運送料単価
      , 倉庫料単価     =  @倉庫料単価
      , 商品重量        =  @商品重量 
      , 商品容積        =  @商品容積
      ,  備考            =  @備考
      , 画像ファイル          = @画像ファイル
      , 単位          = @単位
	, ロット      = @ロット
      , 所有会社CD          = @所有会社CD
      , 学生番号          = @学生番号
from TDA商品M
where   システムCD     =   @システムCD
	and   演習CD     =   @演習CD
	and  商品CD     =   @商品CD 

if @@error <> 0
   begin
       select -1  return
   end
end

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM報告書書式一覧
@システムCD varchar(12), @演習CD varchar(12), @帳票区分 varchar(1)

AS

/* 対象報告書書式M一覧データの抽出 */
SELECT *
FROM TDA報告書書式M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 帳票区分 = @帳票区分
ORDER BY 表示順, 集計CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM報告書書式挿入
@システムCD varchar(12), @演習CD varchar(12), @帳票区分 varchar(1), @集計CD varchar(4)
, @集計名称 varchar(40), @貸借 varchar(2), @集計先  varchar(4)
, @加減区分 varchar(1), @ラインコントロール  varchar(1), @アンダーライン varchar(1)
, @右方表示 varchar(1), @構成表示 varchar(1)
, @表示順 int

AS

declare @連番 int
begin transaction

if @@error <> 0 
begin
	rollback transaction
	select -1 return
end

INSERT YTMP_TDA報告書書式M (システムCD, 演習CD, 帳票区分, 集計CD, 集計名称, 貸借, 集計先, 加減区分, ラインコントロール, アンダーライン, 右方表示, 構成表示, 表示順)
VALUES (@システムCD, @演習CD, @帳票区分, @集計CD, @集計名称, @貸借, @集計先, @加減区分, @ラインコントロール, @アンダーライン, @右方表示, @構成表示, @表示順)

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction

SELECT 0






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM報告書書式更新 
@システムCD varchar(12), @演習CD varchar(12), @帳票区分 varchar(1)

AS

begin transaction

DELETE FROM TDA報告書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  帳票区分 = @帳票区分 

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TDA報告書書式M (システムCD, 演習CD, 帳票区分, 集計CD, 集計名称, 貸借, 集計先, 加減区分, ラインコントロール, アンダーライン, 右方表示, 構成表示, 表示順)
SELECT システムCD, 演習CD, 帳票区分, 集計CD, 集計名称, 貸借, 集計先, 加減区分, ラインコントロール, アンダーライン, 右方表示, 構成表示, 表示順
FROM YTMP_TDA報告書書式M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 帳票区分 = @帳票区分 

if @@error <> 0
begin
	rollback transaction
	select -1  return
end

TRUNCATE TABLE YTMP_TDA報告書書式M

commit transaction

select 0






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







CREATE  PROCEDURE dbo.SPM寄託会社一覧
@システムCD varchar(12), @演習CD varchar(12)   
AS

	SELECT TDA会社M.* FROM TDA会社M  WHERE TDA会社M.システムCD = @システムCD AND  TDA会社M.演習CD = @演習CD AND 業種CD = 'U' AND 学生番号=''






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM寄託会社取得
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20)    
AS
declare @寄託会社CD varchar(20)

	SELECT @寄託会社CD = (SELECT 寄託会社CD FROM TDA会社M WHERE TDA会社M.システムCD = @システムCD AND  TDA会社M.演習CD = @演習CD AND TDA会社M.会社CD = @会社CD)

	SELECT TDA会社M.* FROM TDA会社M  WHERE TDA会社M.システムCD = @システムCD AND  TDA会社M.演習CD = @演習CD AND TDA会社M.会社CD = @寄託会社CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM寄託会社取得2
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20)    
AS

	SELECT * FROM TDA会社M  WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPM寄託受付番号取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT 寄託受付番号, 会社CD
FROM TGC寄託者台帳F 
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO
















CREATE PROCEDURE dbo.SPM市場一覧
@システムCD varchar(12), @演習CD  varchar(12) 

AS

SELECT * FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD
ORDER BY 市場CD















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO
















CREATE PROCEDURE dbo.SPM市場削除
@システムCD varchar(12),  @演習CD varchar(12), @市場CD varchar(6)
AS

DELETE FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 市場CD = @市場CD 

if @@error <> 0
   begin
       select -1  return
   end

select 0













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO
















CREATE PROCEDURE dbo.SPM市場取得
@システムCD varchar(12), @演習CD  varchar(12) , @市場CD  varchar(6)       

AS

SELECT * FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 市場CD = @市場CD













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO
















CREATE PROCEDURE dbo.SPM市場更新
@システムCD varchar(12),  @演習CD varchar(12), @市場CD varchar(6), @市場名称 varchar(50)
AS

DELETE FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 市場CD = @市場CD 


insert TDA市場M (システムCD, 演習CD, 市場CD, 市場名称)
values (@システムCD, @演習CD, @市場CD, @市場名称)


if @@error <> 0
   begin
       select -1  return
   end

select 0













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPM摘要一覧
@システムCD varchar(12), @演習CD  varchar(12) , @会社CD  varchar(20)    

/*
+   SM摘要一覧
+   TSK摘要情報の取得を行う
+
*/

AS

SELECT * FROM  TTK摘要M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPM摘要削除
@システムCD varchar(12), @演習CD      varchar(12)        ,  @摘要CD  varchar(12)           , @会社CD  varchar(20)

AS

/* 対象データの削除 */
	DELETE FROM TTK摘要M WHERE 演習CD = @演習CD AND 摘要CD = @摘要CD AND 会社CD = @会社CD

if @@error <> 0
  begin
       select -1  return
   end

select 0

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPM摘要取得
@システムCD varchar(12), @演習CD  varchar(12) , @摘要CD  varchar(12)  , @会社CD  varchar(20)    

/*
+   SM摘要情報取得
+   TDA摘要情報の取得を行う
+
*/

AS

SELECT * from TTK摘要M where システムCD = @システムCD AND 演習CD = @演習CD and 摘要CD = @摘要CD and 会社CD = @会社CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM摘要更新
@システムCD varchar(12), @処理区分 smallint
, @演習CD varchar(12) , @摘要CD varchar(12) , @会社CD varchar(20)
, @摘要 varchar(40) , @関連会社CD varchar(20) 
AS

declare @番号 int 

if @処理区分 = 1
begin
	if @摘要CD = ''
	begin
		--旧採番ロジック
		if exists(SELECT * FROM TTK摘要M where システムCD = @システムCD AND 演習CD = @演習CD and 会社CD = @会社CD GROUP BY 演習CD, 会社CD)
		begin
			select @摘要CD = (SELECT 'T' + REPLACE(STR(MAX(CONVERT(int, RIGHT(摘要CD, 9)) + 1), 9), ' ', '0') AS 摘要CD FROM TTK摘要M where システムCD = @システムCD AND 演習CD = @演習CD and 会社CD = @会社CD GROUP BY 演習CD, 会社CD)
		end
		else
		begin
			select @摘要CD = 'T000000001'
		end 
	end 

	/* 対象データの登録 */
	insert TTK摘要M (システムCD, 演習CD, 摘要CD, 会社CD, 摘要, 関連会社CD)
	values (@システムCD, @演習CD, @摘要CD, @会社CD, @摘要, @関連会社CD)

	if @@error <> 0
	begin
		select -1 return
	end
end

if @処理区分 = 2
begin
	/* 対象データの更新 */
	UPDATE TTK摘要M SET 摘要 = @摘要 , 関連会社CD = @関連会社CD
	FROM TTK摘要M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 摘要CD = @摘要CD AND 会社CD = @会社CD

	if @@error <> 0
	begin
		select -1 return
	end
end

if @処理区分 = 4
begin
	/* 対象データの削除 */
	DELETE FROM TTK摘要M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 摘要CD = @摘要CD AND 会社CD = @会社CD

	if @@error <> 0
	begin
     	select -1  return
	end
end

select @摘要CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM摘要表示一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

declare @学生番号 varchar(40)
SET @学生番号 = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)

SELECT VVK摘要F.摘要CD, VVK摘要F.会社CD, VVK摘要F.演習CD, VVK摘要F.摘要, VVK摘要F.学生番号, VVK摘要F.摘要区分, TDA会社M.市場CD
FROM VVK摘要F
INNER JOIN TC2演習M
	ON VVK摘要F.システムCD = TC2演習M.システムCD
	AND VVK摘要F.演習CD = TC2演習M.演習CD
LEFT OUTER JOIN TDA会社M
	ON VVK摘要F.システムCD = TDA会社M.システムCD
	AND VVK摘要F.演習CD = TDA会社M.演習CD
	AND VVK摘要F.摘要CD = TDA会社M.会社CD
WHERE VVK摘要F.システムCD = @システムCD
	AND VVK摘要F.演習CD = @演習CD
	AND (
		(VVK摘要F.会社CD IS NULL AND VVK摘要F.摘要区分 = 'K' AND TC2演習M.演習区分 = 'P' AND VVK摘要F.学生番号 = @学生番号)
		OR (VVK摘要F.会社CD IS NULL AND VVK摘要F.摘要区分 = 'K' AND TC2演習M.演習区分 = 'G')
		OR (VVK摘要F.会社CD = @会社CD AND VVK摘要F.摘要区分 = 'T')
	)
	--同時同業なら全て取得。模擬実践の場合は学生番号がNULL若しくは自社なら取得
	AND (TC2演習M.演習区分 = 'P' OR TDA会社M.学生番号 = '' OR TDA会社M.学生番号 IS NULL OR TDA会社M.自社フラグ = 1)
ORDER BY VVK摘要F.摘要CD, VVK摘要F.会社CD, VVK摘要F.演習CD, VVK摘要F.摘要, VVK摘要F.学生番号, VVK摘要F.摘要区分, TDA会社M.市場CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM期首残高マスタ複製勘定
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

--予備削除
DELETE FROM TSK伝票仕入売上明細F
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
	AND TSK伝票仕入売上明細F.演習CD = @演習CD
	AND TSK伝票仕入売上明細F.会社CD = 'MST:' + @会社CD

--マスタデータのみテンポラリテーブルにコピー
SELECT TSK伝票仕入売上明細F.*
INTO #TMP_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.伝票番号
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
	AND TSK伝票仕入売上明細F.演習CD = @演習CD
	AND TSK伝票仕入売上明細F.会社CD = @会社CD
	AND TSK伝票F.伝票処理区分 = 0

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TSK伝票仕入売上明細F
SET 会社CD = 'MST:' + 会社CD

--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票仕入売上明細F
SELECT #TMP_TSK伝票仕入売上明細F.*
FROM #TMP_TSK伝票仕入売上明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


--予備削除
DELETE FROM TSK伝票明細F
WHERE TSK伝票明細F.システムCD = @システムCD
	AND TSK伝票明細F.演習CD = @演習CD
	AND TSK伝票明細F.会社CD = 'MST:' + @会社CD

--マスタデータのみテンポラリテーブルにコピー
SELECT TSK伝票明細F.*
INTO #TMP_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.伝票番号
WHERE TSK伝票明細F.システムCD = @システムCD
	AND TSK伝票明細F.演習CD = @演習CD
	AND TSK伝票明細F.会社CD = @会社CD
	AND TSK伝票F.伝票処理区分 = 0

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TSK伝票明細F
SET 会社CD = 'MST:' + 会社CD

--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票明細F
SELECT #TMP_TSK伝票明細F.*
FROM #TMP_TSK伝票明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


--予備削除
DELETE FROM TSK伝票F
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = 'MST:' + @会社CD

--マスタデータのみテンポラリテーブルにコピー
SELECT TSK伝票F.*
INTO #TMP_TSK伝票F
FROM TSK伝票F
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TSK伝票F.伝票処理区分 = 0

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TSK伝票F
SET 会社CD = 'MST:' + 会社CD

--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票F
SELECT #TMP_TSK伝票F.*
FROM #TMP_TSK伝票F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM期首残高マスタ複製繰越
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

--予備削除
DELETE FROM TGK現金入出金TRN
WHERE TGK現金入出金TRN.システムCD = @システムCD
	AND TGK現金入出金TRN.演習CD = @演習CD
	AND TGK現金入出金TRN.会社CD = 'MST:' + @会社CD

--マスタデータのみテンポラリテーブルにコピー
SELECT TGK現金入出金TRN.*
INTO #TMP_TGK現金入出金TRN
FROM TGK現金入出金TRN
WHERE TGK現金入出金TRN.システムCD = @システムCD
	AND TGK現金入出金TRN.演習CD = @演習CD
	AND TGK現金入出金TRN.会社CD = @会社CD
	AND TGK現金入出金TRN.現金入出金CD = 0
	AND TGK現金入出金TRN.処理時期区分 = 0

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TGK現金入出金TRN
SET 会社CD = 'MST:' + 会社CD

--テンポラリテーブルから本テーブルにコピー
INSERT TGK現金入出金TRN
SELECT #TMP_TGK現金入出金TRN.*
FROM #TMP_TGK現金入出金TRN

if @@error <> 0
begin
	rollback transaction
	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 = 'MST:' + TGB銀行口座F.銀行CD
	AND TGB銀行口座入出金TRN.口座区分 = TGB銀行口座F.口座区分
	AND TGB銀行口座入出金TRN.口座番号 = TGB銀行口座F.口座番号
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @演習CD
	AND LEFT(TGB銀行口座入出金TRN.銀行CD, 4) = 'MST:'
	AND TGB銀行口座F.会社CD = @会社CD

--テンポラリテーブルにコピー
SELECT TGB銀行口座入出金TRN.*
INTO #TMP_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.口座番号
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @演習CD
	AND TGB銀行口座入出金TRN.処理時期区分 = 0
	AND TGB銀行口座F.会社CD = @会社CD

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TGB銀行口座入出金TRN
SET 銀行CD = 'MST:' + 銀行CD

--テンポラリテーブルから本テーブルにコピー
INSERT TGB銀行口座入出金TRN
SELECT #TMP_TGB銀行口座入出金TRN.*
FROM #TMP_TGB銀行口座入出金TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


--予備削除
DELETE FROM TGB銀行口座F
FROM TGB銀行口座F
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND LEFT(TGB銀行口座F.銀行CD, 4) = 'MST:'
	AND TGB銀行口座F.会社CD = @会社CD

--テンポラリテーブルにコピー
SELECT TGB銀行口座F.*
INTO #TMP_TGB銀行口座F
FROM TGB銀行口座F
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND TGB銀行口座F.会社CD = @会社CD

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TGB銀行口座F
SET 銀行CD = 'MST:' + 銀行CD

--テンポラリテーブルから本テーブルにコピー
INSERT TGB銀行口座F
SELECT #TMP_TGB銀行口座F.*
FROM #TMP_TGB銀行口座F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


--予備削除
DELETE FROM TGA入出庫明細TRN
WHERE TGA入出庫明細TRN.システムCD = @システムCD
	AND TGA入出庫明細TRN.演習CD = @演習CD
	AND (TGA入出庫明細TRN.会社CD = 'MST:' + @会社CD
		OR TGA入出庫明細TRN.作成会社CD = 'MST:' + @会社CD)

--マスタデータのみテンポラリテーブルにコピー
SELECT TGA入出庫明細TRN.*
INTO #TMP_TGA入出庫明細TRN
FROM TGA入出庫明細TRN
WHERE TGA入出庫明細TRN.システムCD = @システムCD
	AND TGA入出庫明細TRN.演習CD = @演習CD
	AND TGA入出庫明細TRN.会社CD = @会社CD
	AND TGA入出庫明細TRN.作成会社CD = @会社CD
	AND (TGA入出庫明細TRN.文書種類CD = 'SS'
		OR TGA入出庫明細TRN.文書種類CD = 'ZS')	--材料
	AND TGA入出庫明細TRN.文書内容CD = '0'

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TGA入出庫明細TRN
SET 会社CD = 'MST:' + 会社CD
	, 作成会社CD = 'MST:' + 作成会社CD

--テンポラリテーブルから本テーブルにコピー
INSERT TGA入出庫明細TRN
SELECT #TMP_TGA入出庫明細TRN.*
FROM #TMP_TGA入出庫明細TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


--予備削除
DELETE FROM TGA入出庫TRN
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @演習CD
	AND (TGA入出庫TRN.会社CD = 'MST:' + @会社CD
		OR TGA入出庫TRN.作成会社CD = 'MST:' + @会社CD)

--マスタデータのみテンポラリテーブルにコピー
SELECT TGA入出庫TRN.*
INTO #TMP_TGA入出庫TRN
FROM TGA入出庫TRN
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @演習CD
	AND TGA入出庫TRN.会社CD = @会社CD
	AND TGA入出庫TRN.作成会社CD = @会社CD
	AND (TGA入出庫TRN.文書種類CD = 'SS'
		OR TGA入出庫TRN.文書種類CD = 'ZS')	--材料
	AND TGA入出庫TRN.文書内容CD = '0'
	AND TGA入出庫TRN.処理時期区分 = 0

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TGA入出庫TRN
SET 会社CD = 'MST:' + 会社CD
	, 作成会社CD = 'MST:' + 作成会社CD

--テンポラリテーブルから本テーブルにコピー
INSERT TGA入出庫TRN
SELECT #TMP_TGA入出庫TRN.*
FROM #TMP_TGA入出庫TRN

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


--予備削除
DELETE FROM TGC寄託在庫明細F
WHERE TGC寄託在庫明細F.システムCD = @システムCD
	AND TGC寄託在庫明細F.演習CD = @演習CD
	AND TGC寄託在庫明細F.寄託依頼会社CD = 'MST:' + @会社CD

--マスタデータのみテンポラリテーブルにコピー
SELECT TGC寄託在庫明細F.*
INTO #TMP_TGC寄託在庫明細F
FROM TGC寄託在庫明細F
WHERE TGC寄託在庫明細F.システムCD = @システムCD
	AND TGC寄託在庫明細F.演習CD = @演習CD
	AND TGC寄託在庫明細F.寄託依頼会社CD = @会社CD
	AND TGC寄託在庫明細F.寄託受付番号 = 0

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TGC寄託在庫明細F
SET 会社CD = 'MST:' + 会社CD
	, 作成会社CD = 'MST:' + 作成会社CD
	, 寄託依頼会社CD = 'MST:' + 寄託依頼会社CD

--テンポラリテーブルから本テーブルにコピー
INSERT TGC寄託在庫明細F
SELECT #TMP_TGC寄託在庫明細F.*
FROM #TMP_TGC寄託在庫明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


--予備削除
DELETE FROM TGC寄託在庫F
WHERE TGC寄託在庫F.システムCD = @システムCD
	AND TGC寄託在庫F.演習CD = @演習CD
	AND TGC寄託在庫F.寄託依頼会社CD = 'MST:' + @会社CD

--マスタデータのみテンポラリテーブルにコピー
SELECT TGC寄託在庫F.*
INTO #TMP_TGC寄託在庫F
FROM TGC寄託在庫F
WHERE TGC寄託在庫F.システムCD = @システムCD
	AND TGC寄託在庫F.演習CD = @演習CD
	AND TGC寄託在庫F.寄託依頼会社CD = @会社CD
	AND TGC寄託在庫F.寄託受付番号 = 0

--会社CDに接頭辞'MST:'を付加
UPDATE #TMP_TGC寄託在庫F
SET 会社CD = 'MST:' + 会社CD
	, 作成会社CD = 'MST:' + 作成会社CD
	, 寄託依頼会社CD = 'MST:' + 寄託依頼会社CD

--テンポラリテーブルから本テーブルにコピー
INSERT TGC寄託在庫F
SELECT #TMP_TGC寄託在庫F.*
FROM #TMP_TGC寄託在庫F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
End


commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM材料一覧
@システムCD varchar(12), @演習CD  varchar(12) , @学生番号  varchar(12) 

AS

declare @演習区分 varchar(40) 

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT 市場.市場名称 AS 市場名称, TDA会社M.会社名称 AS 所有会社名称, TDA会社M.会社略名称 AS 所有会社略名称, TDA材料M.*
FROM TDA材料M
LEFT OUTER JOIN TDA会社M
	ON TDA材料M.システムCD = TDA会社M.システムCD
	AND TDA材料M.演習CD = TDA会社M.演習CD
	AND TDA材料M.所有会社CD = TDA会社M.会社CD
LEFT OUTER JOIN (
	SELECT *
	FROM TDA市場M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) 市場
	ON TDA材料M.システムCD = 市場.システムCD
	AND TDA材料M.演習CD = 市場.演習CD
	AND TDA材料M.市場CD = 市場.市場CD
WHERE TDA材料M.システムCD = @システムCD
	AND TDA材料M.演習CD = @演習CD
	AND (@演習区分 <> 'P' Or (@演習区分 = 'P' And (TDA材料M.学生番号 IS NULL Or TDA材料M.学生番号 = '' Or TDA材料M.学生番号 = @学生番号))) 
ORDER BY TDA材料M.材料CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM材料一覧2
@システムCD varchar(12), @演習CD varchar(12)

AS

declare @演習区分 varchar(40)

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT 市場.市場名称 AS 市場名称, TDA会社M.会社名称 AS 所有会社名称, TDA会社M.会社略名称 AS 所有会社略名称, TDA材料M.*
FROM TDA材料M
LEFT OUTER JOIN TDA会社M
	ON TDA材料M.システムCD = TDA会社M.システムCD
	AND TDA材料M.演習CD = TDA会社M.演習CD
	AND TDA材料M.所有会社CD = TDA会社M.会社CD
LEFT OUTER JOIN (
	SELECT *
	FROM TDA市場M
	WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
) 市場
	ON TDA材料M.システムCD = 市場.システムCD
	AND TDA材料M.演習CD = 市場.演習CD
	AND TDA材料M.市場CD = 市場.市場CD
WHERE TDA材料M.システムCD = @システムCD
	AND TDA材料M.演習CD = @演習CD
ORDER BY TDA材料M.材料CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO






CREATE PROCEDURE dbo.SPM材料削除
@システムCD varchar(12), @演習CD varchar(12), @材料CD varchar(20)
AS

DELETE FROM TDA材料M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 材料CD = @材料CD 

if @@error <> 0
begin
	select -1  return
end

select 0






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM材料取得
@システムCD varchar(12), @演習CD varchar(12), @材料CD varchar(20)

AS

SELECT TDA材料M.*, 市場.市場名称
FROM TDA材料M 
LEFT OUTER JOIN (
	SELECT *
	FROM TDA市場M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) 市場
	ON TDA材料M.システムCD = 市場.システムCD
	AND TDA材料M.演習CD = 市場.演習CD
	AND TDA材料M.市場CD = 市場.市場CD
WHERE TDA材料M.システムCD = @システムCD
	AND TDA材料M.演習CD = @演習CD
	AND TDA材料M.材料CD = @材料CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM材料更新
@システムCD varchar(12)
, @処理区分 smallint
, @演習CD varchar(12)
, @材料CD varchar(20)
, @市場CD varchar(6)
, @材料名称 varchar(40)
, @材料略名称 varchar(20)
, @所有会社CD varchar(20)
, @標準販売単価 money
, @標準仕入単価 money
, @運送料単価 money
, @倉庫料単価 money
, @材料重量 float
, @材料容積 float
, @備考 varchar(40)
, @画像ファイル varchar(200)
, @単位 varchar(20)
, @ロット money
, @作成区分 smallint
, @学生番号 varchar(12)

AS

if @処理区分 = 1
begin

	/* 対象データの登録 */
	insert TDA材料M (システムCD, 演習CD, 材料CD, 市場CD, 材料名称, 材料略名称, 所有会社CD, 標準販売単価, 標準仕入単価, 運送料単価, 倉庫料単価, 材料重量, 材料容積, 備考, 画像ファイル, 単位, ロット, 作成区分, 学生番号)
	values (@システムCD, @演習CD, @材料CD, @市場CD, @材料名称, @材料略名称, @所有会社CD, @標準販売単価, @標準仕入単価, @運送料単価, @倉庫料単価, @材料重量, @材料容積, @備考, @画像ファイル, @単位, @ロット, @作成区分, @学生番号)

	if @@error <> 0
	begin
		select -1  return
	end

end

if @処理区分 = 2
begin

	/* 対象データの更新 */
	update TDA材料M
	set 市場CD       =   @市場CD 
		, 材料名称    =   @材料名称
		, 材料略名称    =   @材料略名称
		, 標準販売単価  =  @標準販売単価
		, 標準仕入単価  =  @標準仕入単価
		, 運送料単価     =  @運送料単価
		, 倉庫料単価     =  @倉庫料単価
		, 材料重量        =  @材料重量 
		, 材料容積        =  @材料容積
		, 備考            =  @備考
		, 画像ファイル          = @画像ファイル
		, 単位          = @単位
		, ロット      = @ロット
		, 所有会社CD          = @所有会社CD
		, 学生番号          = @学生番号
	from TDA材料M
	where   システムCD     =   @システムCD
		and   演習CD     =   @演習CD
		and  材料CD     =   @材料CD 

	if @@error <> 0
	begin
		select -1  return
	end

end

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM株主資本等変動計算書書式一覧
@システムCD varchar(12), @演習CD varchar(12)
AS

SELECT * FROM TDA株主資本等変動計算書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD ORDER BY 表示順




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM株主資本等変動計算書書式挿入
@システムCD varchar(12), @演習CD varchar(12), @集計CD  varchar(4)
, @集計分類1 varchar(40), @集計分類2 varchar(40), @集計分類3 varchar(40)
, @集計区分 varchar(40), @変動額細目 varchar(40)
, @加減区分 varchar(1), @ラインコントロール  varchar(1)
, @アンダーライン varchar(1)
, @表示順 int

AS

begin transaction

INSERT YTMP_TDA株主資本等変動計算書書式M (システムCD, 演習CD, 集計CD, 集計分類1, 集計分類2, 集計分類3, 集計区分, 変動額細目, 加減区分, ラインコントロール, アンダーライン, 表示順)
VALUES (@システムCD, @演習CD, @集計CD, @集計分類1, @集計分類2, @集計分類3, @集計区分, @変動額細目, @加減区分, @ラインコントロール, @アンダーライン, @表示順)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
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 TDA株主資本等変動計算書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD 

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

INSERT INTO TDA株主資本等変動計算書書式M (システムCD, 演習CD, 集計CD, 集計分類1, 集計分類2, 集計分類3, 集計区分, 変動額細目, 集計先, 加減区分, ラインコントロール, アンダーライン, 表示順)
SELECT システムCD, 演習CD, 集計CD, 集計分類1, 集計分類2, 集計分類3, 集計区分, 変動額細目, 集計先, 加減区分, ラインコントロール, アンダーライン, 表示順
FROM YTMP_TDA株主資本等変動計算書書式M
WHERE システムCD = @システムCD AND 演習CD = @演習CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

TRUNCATE TABLE YTMP_TDA株主資本等変動計算書書式M

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習_不参加グループ一覧
@システムCD varchar(12), @演習CD  varchar(12)       

AS

SELECT TC3学生グループM.*
FROM   TC3学生グループM
LEFT OUTER JOIN TC4演習許可学生グループM
	ON TC3学生グループM.システムCD = TC4演習許可学生グループM.システムCD
	AND TC3学生グループM.学生グループCD = TC4演習許可学生グループM.学生グループCD
	AND TC4演習許可学生グループM.演習CD = @演習CD
WHERE TC3学生グループM.システムCD = @システムCD
	AND TC3学生グループM.学生グループCD IS NOT NULL
	AND TC3学生グループM.学生グループCD <> ''
	AND TC4演習許可学生グループM.学生グループCD IS NULL
ORDER BY TC3学生グループM.学生グループCD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習_不参加ユーザー一覧
@システムCD varchar(12), @演習CD  varchar(12)       

AS

SELECT TC5学生M.*, TC3学生グループM.作成者ID AS グループ作成者ID
FROM TC5学生M
LEFT OUTER JOIN TC4演習許可学生M
	ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
	AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
	AND TC4演習許可学生M.演習CD = @演習CD
LEFT OUTER JOIN TC4演習許可学生グループM
	ON TC5学生M.システムCD = TC4演習許可学生グループM.システムCD
	AND TC5学生M.学生グループCD = TC4演習許可学生グループM.学生グループCD
	AND TC4演習許可学生グループM.演習CD = @演習CD
INNER JOIN TC3学生グループM
	ON TC5学生M.システムCD = TC3学生グループM.システムCD
	AND TC5学生M.学生グループCD = TC3学生グループM.学生グループCD
WHERE TC5学生M.システムCD = @システムCD
	AND TC4演習許可学生グループM.学生グループCD IS NULL
	AND TC4演習許可学生M.学生番号 IS NULL
ORDER BY TC5学生M.学生番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO









/*
+   SM演習_参加グループ一覧
+   指定された演習に参加しているグループ情報の一覧取得を行う
+
*/
CREATE  PROCEDURE dbo.SPM演習_参加グループ一覧
@システムCD varchar(12), @演習CD  varchar(12)       
AS

SELECT          TC3学生グループM.*
FROM            TC3学生グループM LEFT OUTER JOIN
                      TC4演習許可学生グループM ON 
                      TC3学生グループM.システムCD = TC4演習許可学生グループM.システムCD
                       AND TC3学生グループM.学生グループCD = TC4演習許可学生グループM.学生グループCD
                       AND TC4演習許可学生グループM.演習CD = @演習CD
WHERE           TC3学生グループM.システムCD = @システムCD AND TC4演習許可学生グループM.学生グループCD IS NOT NULL
ORDER BY     TC3学生グループM.学生グループCD



















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO


















/*
+   SM演習_参加ユーザー一覧
+   指定された演習に参加しているユーザー情報の一覧取得を行う
+
*/
CREATE PROCEDURE dbo.SPM演習_参加ユーザー一覧
@システムCD varchar(12), @演習CD  varchar(12)       
AS

SELECT          TC5学生M.学生番号,    TC5学生M.氏名
FROM            TC2演習M INNER JOIN
                      TC4演習許可学生グループM ON 
                      TC2演習M.システムCD = TC4演習許可学生グループM.システムCD AND
                      TC2演習M.演習CD = TC4演習許可学生グループM.演習CD 
                      INNER JOIN
                      TC5学生M ON 
                      TC4演習許可学生グループM.システムCD = TC5学生M.システムCD AND 
                      TC4演習許可学生グループM.学生グループCD = TC5学生M.学生グループCD
WHERE           TC2演習M.システムCD = @システムCD AND TC2演習M.演習CD = @演習CD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習_参加ユーザー一覧2
@システムCD varchar(12), @演習CD  varchar(12)       

AS

SELECT TC5学生M.*, TC3学生グループM.作成者ID AS グループ作成者ID
FROM TC5学生M
LEFT OUTER JOIN TC4演習許可学生M
	ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
	AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
	AND TC4演習許可学生M.演習CD = @演習CD
LEFT OUTER JOIN TC4演習許可学生グループM
	ON TC5学生M.システムCD = TC4演習許可学生グループM.システムCD
	AND TC5学生M.学生グループCD = TC4演習許可学生グループM.学生グループCD
	AND TC4演習許可学生グループM.演習CD = @演習CD
INNER JOIN TC3学生グループM
	ON TC5学生M.システムCD = TC3学生グループM.システムCD
	AND TC5学生M.学生グループCD = TC3学生グループM.学生グループCD
WHERE TC5学生M.システムCD = @システムCD
	AND (TC4演習許可学生グループM.学生グループCD IS NOT NULL
		OR TC4演習許可学生M.学生番号 IS NOT NULL)
ORDER BY TC5学生M.学生番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO


















/*
+   SM参加不参加グループ一覧
+   指定された演習に参加しているグループ、参加していないグループの一覧取得を行う
+
*/
CREATE PROCEDURE dbo.SPM演習_参加不参加グループ一覧
@システムCD varchar(12), @演習CD  varchar(12)       
AS

SELECT          TC3学生グループM.*
FROM            TC3学生グループM LEFT OUTER JOIN
                      TC4演習許可学生グループM ON 
                      TC3学生グループM.システムCD = TC4演習許可学生グループM.システムCD AND
                      TC3学生グループM.学生グループCD = TC4演習許可学生グループM.学生グループCD
                       AND TC4演習許可学生グループM.システムCD = @システムCD AND TC4演習許可学生グループM.演習CD = @演習CD
WHERE           (TC4演習許可学生グループM.学生グループCD IS NULL)
ORDER BY     TC3学生グループM.学生グループCD


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM演習データクリア
@システムCD varchar(12), @演習CD varchar(12)

AS

/* 修正履歴（テーブルを追加した場合は当プロシージャにも追加する必要があるので必ず記入すること！）
TKH小売販売TRN			070323小野
TKH小売販売TTL			070323小野
TGC寄託者明細TRN		070323小野
TGC寄託者TRN			070323小野
TGA契約書F			070207小野
TGC寄託在庫F			070207小野
TGC寄託在庫明細F		070207小野
TSA領収書F			070207小野
TSC運送費請求書手動F		070207小野
TSC運送費請求書手動明細F	070207小野
TTL合併残高F			070207小野	データリンク用
TSK帳簿_株主資本等変動計算書F	071009小野
TTA給与明細F			071102小野
[080618小野]
TTA社員台帳M	
[080901小野]
TSK帳簿_仕訳帳F
TTXFAXF
TDA材料M
TDA部品展開M
TGD製造指図書F
[091027小野]
TGPポータル会社F
TGPポータル商品F
TDA勘定科目会社学生M
[100520小野]
TSC運送費請求書F
[170413小野]
TSK補助簿_材料仕入帳F
TSK補助簿_材料元帳F
TSK補助簿_小口現金出納帳F
TGU保険請求領収書F
TGU運送費請求領収書F
TGU倉庫料請求領収書F
TDA経費労務費M
TSK補助簿_原価計算表F
TSK補助簿_製造間接費配賦表F
*/

begin transaction


DELETE FROM TSK補助簿_材料仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_材料元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_小口現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGU保険請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGU運送費請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD		--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGU倉庫料請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD		--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TDA経費労務費M WHERE システムCD = @システムCD AND 演習CD = @演習CD	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_原価計算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_製造間接費配賦表F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 091027小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TGPポータル商品F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 090609小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TGPポータル会社F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 090609小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TGD製造指図書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TDA部品展開M WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTXFAXF WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK帳簿_仕訳帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTA給与明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 071102小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK帳簿_株主資本等変動計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 071009小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 070207小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 070207小野追加
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 TTK記帳チェックF WHERE システムCD = @システムCD AND 演習CD = @演習CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSA仕入売上書類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 TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD
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 TTA損益計画F WHERE システムCD = @システムCD AND 演習CD = @演習CD
if @@error <> 0
   begin  rollback select -1  return
End

--マスタ会社に追加された社員を削除する処理
DELETE FROM TTA社員台帳M
FROM TTA社員台帳M
LEFT OUTER JOIN TGA契約書F
	ON TTA社員台帳M.システムCD = TGA契約書F.システムCD
	AND TTA社員台帳M.演習CD = TGA契約書F.演習CD
	--契約担当者は削除対象から除外するため
	AND ((TTA社員台帳M.会社CD = TGA契約書F.作成会社CD AND TTA社員台帳M.社員番号 = TGA契約書F.甲担当者CD)
		OR (TTA社員台帳M.会社CD = TGA契約書F.取引先CD AND TTA社員台帳M.社員番号 = TGA契約書F.乙担当者CD))
WHERE TTA社員台帳M.システムCD = @システムCD
	AND TTA社員台帳M.演習CD = @演習CD
	--代表取締役は削除対象から除外
	AND (TTA社員台帳M.代表取締役フラグ <> '1' OR TTA社員台帳M.代表取締役フラグ IS NULL)
	--契約担当者は削除対象から除外
	AND TGA契約書F.会社CD IS NULL

if @@error <> 0
   begin  rollback select -1  return
End

--上記処理の後に契約書を削除する
DELETE FROM TGA契約書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	-- 070207小野追加
if @@error <> 0
   begin  rollback select -1  return
End

--自社設定会社の社員を削除する処理
DELETE FROM TTA社員台帳M	-- 080618小野追加
FROM TTA社員台帳M
INNER JOIN TDA会社M
	ON TTA社員台帳M.システムCD = TDA会社M.システムCD
	AND TTA社員台帳M.演習CD = TDA会社M.演習CD
	AND TTA社員台帳M.会社CD = TDA会社M.会社CD
WHERE TTA社員台帳M.システムCD = @システムCD
	AND TTA社員台帳M.演習CD = @演習CD
	AND TDA会社M.学生番号 <> ''	--マスター会社以外を削除
	AND (TTA社員台帳M.学生番号 <> '' OR TTA社員台帳M.学生番号 IS NOT NULL)	-- 080901小野変更

if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送費請求書手動明細F	-- 070207小野追加
FROM             TSC運送費請求書手動F INNER JOIN
                      TSC運送費請求書手動明細F ON 
                      TSC運送費請求書手動F.システムCD = TSC運送費請求書手動明細F.システムCD AND 
                      TSC運送費請求書手動F.演習CD = TSC運送費請求書手動明細F.演習CD AND 
                      TSC運送費請求書手動F.会社CD = TSC運送費請求書手動明細F.会社CD AND 
                      TSC運送費請求書手動F.作成会社CD = TSC運送費請求書手動明細F.作成会社CD AND 
                      TSC運送費請求書手動F.文書種類CD = TSC運送費請求書手動明細F.文書種類CD AND 
                      TSC運送費請求書手動F.文書内容CD = TSC運送費請求書手動明細F.文書内容CD
		INNER JOIN 
                     TDA会社M ON 
                     TSC運送費請求書手動F.システムCD = TDA会社M.システムCD AND 
                     TSC運送費請求書手動F.演習CD = TDA会社M.演習CD AND 
                     TSC運送費請求書手動F.会社CD = TDA会社M.会社CD
WHERE           TSC運送費請求書手動F.システムCD = @システムCD AND TSC運送費請求書手動F.演習CD = @演習CD


if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送費請求書手動F	-- 070207小野追加
FROM             TSC運送費請求書手動F INNER JOIN
                     TDA会社M ON 
                     TSC運送費請求書手動F.システムCD = TDA会社M.システムCD AND 
                     TSC運送費請求書手動F.演習CD = TDA会社M.演習CD AND 
                     TSC運送費請求書手動F.会社CD = TDA会社M.会社CD
WHERE           TSC運送費請求書手動F.システムCD = @システムCD AND TSC運送費請求書手動F.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送費請求書F	-- 100520小野追加
FROM             TSC運送費請求書F INNER JOIN
                     TDA会社M ON 
                     TSC運送費請求書F.システムCD = TDA会社M.システムCD AND 
                     TSC運送費請求書F.演習CD = TDA会社M.演習CD AND 
                     TSC運送費請求書F.会社CD = TDA会社M.会社CD
WHERE           TSC運送費請求書F.システムCD = @システムCD AND TSC運送費請求書F.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End



DELETE FROM TKH小売販売TRN	-- 070323小野追加
FROM             TKH小売販売TTL INNER JOIN
                      TKH小売販売TRN ON 
                      TKH小売販売TTL.システムCD = TKH小売販売TRN.システムCD AND 
                      TKH小売販売TTL.演習CD = TKH小売販売TRN.演習CD AND 
                      TKH小売販売TTL.会社CD = TKH小売販売TRN.会社CD AND 
                      TKH小売販売TTL.作成会社CD = TKH小売販売TRN.作成会社CD AND 
                      TKH小売販売TTL.文書種類CD = TKH小売販売TRN.文書種類CD AND 

                      TKH小売販売TTL.文書内容CD = TKH小売販売TRN.文書内容CD
		INNER JOIN 
                     TDA会社M ON 
                     TKH小売販売TTL.システムCD = TDA会社M.システムCD AND 
                     TKH小売販売TTL.演習CD = TDA会社M.演習CD AND 
                     TKH小売販売TTL.会社CD = TDA会社M.会社CD
WHERE           TKH小売販売TRN.システムCD = @システムCD AND TKH小売販売TRN.演習CD = @演習CD


if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TKH小売販売TTL	-- 070323小野追加
FROM             TKH小売販売TTL INNER JOIN
                     TDA会社M ON 
                     TKH小売販売TTL.システムCD = TDA会社M.システムCD AND 
                     TKH小売販売TTL.演習CD = TDA会社M.演習CD AND 
                     TKH小売販売TTL.会社CD = TDA会社M.会社CD
WHERE           TKH小売販売TTL.システムCD = @システムCD AND TKH小売販売TTL.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End



DELETE FROM TGC寄託在庫明細F	-- 070207小野追加
FROM             TGC寄託在庫F INNER JOIN
                      TGC寄託在庫明細F ON 
                      TGC寄託在庫F.システムCD = TGC寄託在庫明細F.システムCD AND 
                      TGC寄託在庫F.演習CD = TGC寄託在庫明細F.演習CD AND 
                      TGC寄託在庫F.会社CD = TGC寄託在庫明細F.会社CD AND 
                      TGC寄託在庫F.作成会社CD = TGC寄託在庫明細F.作成会社CD AND 
                      TGC寄託在庫F.寄託依頼会社CD = TGC寄託在庫明細F.寄託依頼会社CD AND 
                      TGC寄託在庫F.寄託受付番号 = TGC寄託在庫明細F.寄託受付番号
		INNER JOIN 
                     TDA会社M ON 
                     TGC寄託在庫F.システムCD = TDA会社M.システムCD AND 
                     TGC寄託在庫F.演習CD = TDA会社M.演習CD AND 
                     TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE           TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TGC寄託在庫明細F.*
INTO #TMP_TGC寄託在庫明細F
FROM TGC寄託在庫明細F
INNER JOIN TDA会社M
	ON TGC寄託在庫明細F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫明細F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫明細F.会社CD = 'MST:' + TDA会社M.会社CD
WHERE TGC寄託在庫明細F.システムCD = @システムCD
	AND TGC寄託在庫明細F.演習CD = @演習CD
	AND LEFT(TGC寄託在庫明細F.会社CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TGC寄託在庫明細F
SET 会社CD = REPLACE(会社CD, 'MST:', '')
	, 作成会社CD = REPLACE(作成会社CD, 'MST:', '')
	, 寄託依頼会社CD = REPLACE(寄託依頼会社CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TGC寄託在庫明細F
SELECT #TMP_TGC寄託在庫明細F.*
FROM #TMP_TGC寄託在庫明細F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


DELETE FROM TGC寄託在庫F	-- 070207小野追加
FROM             TGC寄託在庫F INNER JOIN
                     TDA会社M ON 
                     TGC寄託在庫F.システムCD = TDA会社M.システムCD AND 
                     TGC寄託在庫F.演習CD = TDA会社M.演習CD AND 
                     TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE           TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TGC寄託在庫F.*
INTO #TMP_TGC寄託在庫F
FROM TGC寄託在庫F
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = 'MST:' + TDA会社M.会社CD
WHERE TGC寄託在庫F.システムCD = @システムCD
	AND TGC寄託在庫F.演習CD = @演習CD
	AND LEFT(TGC寄託在庫F.会社CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TGC寄託在庫F
SET 会社CD = REPLACE(会社CD, 'MST:', '')
	, 作成会社CD = REPLACE(作成会社CD, 'MST:', '')
	, 寄託依頼会社CD = REPLACE(寄託依頼会社CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TGC寄託在庫F
SELECT #TMP_TGC寄託在庫F.*
FROM #TMP_TGC寄託在庫F

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end


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.学生番号 <> '')
--期首残高はMSTからコピーするため一旦全削除する
WHERE TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TGA入出庫明細TRN.*
INTO #TMP_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 = 'MST:' + TDA会社M.会社CD
WHERE TGA入出庫明細TRN.システムCD = @システムCD
	AND TGA入出庫明細TRN.演習CD = @演習CD
	AND LEFT(TGA入出庫明細TRN.会社CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TGA入出庫明細TRN
SET 会社CD = REPLACE(会社CD, 'MST:', '')
	, 作成会社CD = REPLACE(作成会社CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TGA入出庫明細TRN
SELECT #TMP_TGA入出庫明細TRN.*
FROM #TMP_TGA入出庫明細TRN

if @@error <> 0
begin
	rollback transaction
	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.学生番号 <> '')
--期首残高はMSTからコピーするため一旦全削除する
WHERE TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TGA入出庫TRN.*
INTO #TMP_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 = 'MST:' + TDA会社M.会社CD
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @演習CD
	AND LEFT(TGA入出庫TRN.会社CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TGA入出庫TRN
SET 会社CD = REPLACE(会社CD, 'MST:', '')
	, 作成会社CD = REPLACE(作成会社CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TGA入出庫TRN
SELECT #TMP_TGA入出庫TRN.*
FROM #TMP_TGA入出庫TRN

if @@error <> 0
begin
	rollback transaction
	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.学生番号 <> '')
--期首残高はMSTからコピーするため一旦全削除する
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @演習CD
	AND LEFT(TGB銀行口座入出金TRN.銀行CD, 4) <> 'MST:'

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TGB銀行口座入出金TRN.*
INTO #TMP_TGB銀行口座入出金TRN
FROM TGB銀行口座入出金TRN
INNER JOIN TDA会社M
	ON TGB銀行口座入出金TRN.システムCD = TDA会社M.システムCD
	AND TGB銀行口座入出金TRN.演習CD = TDA会社M.演習CD
	AND TGB銀行口座入出金TRN.銀行CD = 'MST:' + TDA会社M.会社CD
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @演習CD
	AND LEFT(TGB銀行口座入出金TRN.銀行CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TGB銀行口座入出金TRN
SET 銀行CD = REPLACE(銀行CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TGB銀行口座入出金TRN
SELECT #TMP_TGB銀行口座入出金TRN.*
FROM #TMP_TGB銀行口座入出金TRN

if @@error <> 0
begin
	rollback transaction
	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.学生番号 <> ''
--期首口座はMSTからコピーするため一旦全削除する
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND LEFT(TGB銀行口座F.銀行CD, 4) <> 'MST:'

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首口座をテンポラリテーブルにコピー
SELECT TGB銀行口座F.*
INTO #TMP_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 = 'MST:' + TDA会社M.会社CD
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND LEFT(TGB銀行口座F.銀行CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TGB銀行口座F
SET 銀行CD = REPLACE(銀行CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TGB銀行口座F
SELECT #TMP_TGB銀行口座F.*
FROM #TMP_TGB銀行口座F

if @@error <> 0
begin
	rollback transaction
	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 TGC運送契約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 TGC寄託者台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託者明細TRN 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.学生番号 <> '')
--期首残高はMSTからコピーするため一旦全削除する
WHERE TGK現金入出金TRN.システムCD = @システムCD AND TGK現金入出金TRN.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TGK現金入出金TRN.*
INTO #TMP_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 = 'MST:' + TDA会社M.会社CD
WHERE TGK現金入出金TRN.システムCD = @システムCD
	AND TGK現金入出金TRN.演習CD = @演習CD
	AND LEFT(TGK現金入出金TRN.会社CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TGK現金入出金TRN
SET 会社CD = REPLACE(会社CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TGK現金入出金TRN
SELECT #TMP_TGK現金入出金TRN.*
FROM #TMP_TGK現金入出金TRN

if @@error <> 0
begin
	rollback transaction
	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 TTK摘要M 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.学生番号 <> '')
--期首残高はMSTからコピーするため一旦全削除する
WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TSK伝票明細F.*
INTO #TMP_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 = 'MST:' + TDA会社M.会社CD
WHERE TSK伝票明細F.システムCD = @システムCD
	AND TSK伝票明細F.演習CD = @演習CD
	AND LEFT(TSK伝票明細F.会社CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TSK伝票明細F
SET 会社CD = REPLACE(会社CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票明細F
SELECT #TMP_TSK伝票明細F.*
FROM #TMP_TSK伝票明細F

if @@error <> 0
begin
	rollback transaction
	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.学生番号 <> '')
--期首残高はMSTからコピーするため一旦全削除する
WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TSK伝票仕入売上明細F.*
INTO #TMP_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 = 'MST:' + TDA会社M.会社CD
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
	AND TSK伝票仕入売上明細F.演習CD = @演習CD
	AND LEFT(TSK伝票仕入売上明細F.会社CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TSK伝票仕入売上明細F
SET 会社CD = REPLACE(会社CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票仕入売上明細F
SELECT #TMP_TSK伝票仕入売上明細F.*
FROM #TMP_TSK伝票仕入売上明細F

if @@error <> 0
begin
	rollback transaction
	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.学生番号 <> '')
--期首残高はMSTからコピーするため一旦全削除する
WHERE TSK伝票F.システムCD = @システムCD AND TSK伝票F.演習CD = @演習CD

if @@error <> 0
   begin  rollback select -1  return
End

--MST期首残高をテンポラリテーブルにコピー
SELECT TSK伝票F.*
INTO #TMP_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 = 'MST:' + TDA会社M.会社CD
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND LEFT(TSK伝票F.会社CD, 4) = 'MST:'
--MST接頭辞を外す
UPDATE #TMP_TSK伝票F
SET 会社CD = REPLACE(会社CD, 'MST:', '')
--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票F
SELECT #TMP_TSK伝票F.*
FROM #TMP_TSK伝票F

if @@error <> 0
begin
	rollback transaction
	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 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 080901小野追加 */
delete from TDA材料M
where システムCD = @システムCD AND 演習CD = @演習CD AND ( 作成区分 <> 1 OR 所有会社CD <> '' )
if @@error <> 0
   begin  rollback select -1  return
End

commit

select 0






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習データ学生クリア
@システムCD varchar(12), @演習CD varchar(12), @学生番号 varchar(20)

AS

/* 修正履歴（テーブルを追加した場合は当プロシージャにも追加する必要があるので必ず記入すること！）
TKH小売販売TRN			070323小野
TKH小売販売TTL			070323小野
TGC寄託者明細TRN		070323小野
TGC寄託者TRN			070323小野
TGA契約書F			070215小野
TGC寄託在庫F			070215小野
TGC寄託在庫明細F		070215小野
TSA領収書F			070215小野
TSC運送費請求書手動F		070215小野
TSC運送費請求書手動明細F	070215小野
TTL合併残高F			070215小野	データリンク用
TTM名刺データ2F			070525小野	デザイン変更に伴う修正
TSK帳簿_株主資本等変動計算書F   071009小野
TTA社員台帳M			071102小野
TTA給与明細F			071102小野
TSK帳簿_仕訳帳F			080901小野
TTXFAXF				080901小野
TDA材料M			080901小野
TDA部品展開M			080901小野
TGD製造指図書F			080901小野
TDA勘定科目会社学生M		091027小野
TSC運送費請求書F		100520小野
[170413小野]
TSK補助簿_材料仕入帳F
TSK補助簿_材料元帳F
TSK補助簿_小口現金出納帳F
TGU保険請求領収書F
TGU運送費請求領収書F
TGU倉庫料請求領収書F
TDA経費労務費M
TSK補助簿_原価計算表F
TSK補助簿_製造間接費配賦表F
*/

begin transaction


DELETE FROM TSK補助簿_材料仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_材料元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_小口現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGU保険請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGU運送費請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	 AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGU倉庫料請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	 AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TDA経費労務費M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_原価計算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_製造間接費配賦表F WHERE システムCD = @システムCD AND 演習CD = @演習CD	 AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	--170413小野追加
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 所有会社CD = @学生番号	-- 091027小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TGD製造指図書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TDA部品展開M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTXFAXF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK帳簿_仕訳帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTA給与明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 071102小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTA社員台帳M
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 071102小野追加
	AND (学生番号 <> '' OR 学生番号 IS NOT NULL)	-- 080901小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TSK帳簿_株主資本等変動計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 071009小野追加
if @@error <> 0
begin
	rollback select -1  return
End

DELETE FROM TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 070215小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 070215小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGA契約書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))	-- 070215小野追加
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTM名刺データ2F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号  --070525小野修正
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTK記帳チェックF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TTA社員台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGA手形明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TTA損益計画F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TSC運送費請求書手動明細F	-- 070215小野追加
FROM             TSC運送費請求書手動F INNER JOIN
                      TSC運送費請求書手動明細F ON 
                      TSC運送費請求書手動F.システムCD = TSC運送費請求書手動明細F.システムCD AND 
                      TSC運送費請求書手動F.演習CD = TSC運送費請求書手動明細F.演習CD AND 
                      TSC運送費請求書手動F.会社CD = TSC運送費請求書手動明細F.会社CD AND 
                      TSC運送費請求書手動F.作成会社CD = TSC運送費請求書手動明細F.作成会社CD AND 
                      TSC運送費請求書手動F.文書種類CD = TSC運送費請求書手動明細F.文書種類CD AND 
                      TSC運送費請求書手動F.文書内容CD = TSC運送費請求書手動明細F.文書内容CD
		INNER JOIN 
                     TDA会社M ON 
                     TSC運送費請求書手動F.システムCD = TDA会社M.システムCD AND 
                     TSC運送費請求書手動F.演習CD = TDA会社M.演習CD AND 
                     TSC運送費請求書手動F.会社CD = TDA会社M.会社CD
WHERE           (TSC運送費請求書手動明細F.システムCD = @システムCD AND TSC運送費請求書手動明細F.演習CD = @演習CD) AND ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )


if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送費請求書手動F	-- 070215小野追加
FROM             TSC運送費請求書手動F INNER JOIN
                     TDA会社M ON 
                     TSC運送費請求書手動F.システムCD = TDA会社M.システムCD AND 
                     TSC運送費請求書手動F.演習CD = TDA会社M.演習CD AND 
                     TSC運送費請求書手動F.会社CD = TDA会社M.会社CD
WHERE           (TSC運送費請求書手動F.システムCD = @システムCD AND TSC運送費請求書手動F.演習CD = @演習CD) AND ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )

if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TSC運送費請求書F	--100520小野追加
FROM TSC運送費請求書F
INNER JOIN TDA会社M
	ON TSC運送費請求書F.システムCD = TDA会社M.システムCD
	AND TSC運送費請求書F.演習CD = TDA会社M.演習CD
	AND TSC運送費請求書F.会社CD = TDA会社M.会社CD
WHERE TSC運送費請求書F.システムCD = @システムCD
	AND TSC運送費請求書F.演習CD = @演習CD
	AND TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)

if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TKH小売販売TRN	-- 070323小野追加
FROM             TKH小売販売TTL INNER JOIN
                      TKH小売販売TRN ON 
                      TKH小売販売TTL.システムCD = TKH小売販売TRN.システムCD AND 
                      TKH小売販売TTL.演習CD = TKH小売販売TRN.演習CD AND 
                      TKH小売販売TTL.会社CD = TKH小売販売TRN.会社CD AND 
                      TKH小売販売TTL.作成会社CD = TKH小売販売TRN.作成会社CD AND 
                      TKH小売販売TTL.文書種類CD = TKH小売販売TRN.文書種類CD AND 
                      TKH小売販売TTL.文書内容CD = TKH小売販売TRN.文書内容CD
		INNER JOIN 
                     TDA会社M ON 
                     TKH小売販売TTL.システムCD = TDA会社M.システムCD AND 
                     TKH小売販売TTL.演習CD = TDA会社M.演習CD AND 
                     TKH小売販売TTL.会社CD = TDA会社M.会社CD
WHERE           (TKH小売販売TRN.システムCD = @システムCD AND TKH小売販売TRN.演習CD = @演習CD) AND ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )


if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TKH小売販売TTL	-- 070323小野追加
FROM             TKH小売販売TTL INNER JOIN
                     TDA会社M ON 
                     TKH小売販売TTL.システムCD = TDA会社M.システムCD AND 
                     TKH小売販売TTL.演習CD = TDA会社M.演習CD AND 
                     TKH小売販売TTL.会社CD = TDA会社M.会社CD
WHERE           (TKH小売販売TTL.システムCD = @システムCD AND TKH小売販売TTL.演習CD = @演習CD) AND ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )

if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TGC寄託在庫明細F	-- 070215小野追加
FROM             TGC寄託在庫F INNER JOIN
                      TGC寄託在庫明細F ON 
                      TGC寄託在庫F.システムCD = TGC寄託在庫明細F.システムCD AND 
                      TGC寄託在庫F.演習CD = TGC寄託在庫明細F.演習CD AND 
                      TGC寄託在庫F.会社CD = TGC寄託在庫明細F.会社CD AND 
                      TGC寄託在庫F.作成会社CD = TGC寄託在庫明細F.作成会社CD AND 
                      TGC寄託在庫F.寄託依頼会社CD = TGC寄託在庫明細F.寄託依頼会社CD AND 
                      TGC寄託在庫F.寄託受付番号 = TGC寄託在庫明細F.寄託受付番号
		INNER JOIN 
                     TDA会社M ON 
                     TGC寄託在庫F.システムCD = TDA会社M.システムCD AND 
                     TGC寄託在庫F.演習CD = TDA会社M.演習CD AND 
                     TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE           (TGC寄託在庫明細F.システムCD = @システムCD AND TGC寄託在庫明細F.演習CD = @演習CD) AND ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )


if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託在庫F	-- 070215小野追加
FROM             TGC寄託在庫F INNER JOIN
                     TDA会社M ON 
                     TGC寄託在庫F.システムCD = TDA会社M.システムCD AND 
                     TGC寄託在庫F.演習CD = TDA会社M.演習CD AND 
                     TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE           (TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @演習CD) AND ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )

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 
                     ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )
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 ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )
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 ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )

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.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )

if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TGC運送契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSC運送書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託者台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End



DELETE FROM TGC寄託者明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC出庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TGC保険契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
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 ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )


if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_仕訳集計表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_仕訳日記帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_総勘定元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_損益計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_貸借対照表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK帳簿_八桁精算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTK摘要M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
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 
                     ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )

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 
                     ( (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) )

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  (TDA会社M.会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End


DELETE FROM TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_商品有高帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号)) 
if @@error <> 0
   begin  rollback select -1  return
End

DELETE FROM TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND  (会社CD IN (SELECT 会社CD 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 ( 所有会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))  
if @@error <> 0
   begin  rollback select -1  return
End

/* TDA材料M 080901小野追加 */
delete  from  TDA材料M where  (システムCD = @システムCD AND 演習CD = @演習CD ) and ( 所有会社CD IN (SELECT 会社CD 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 (会社CD IN (SELECT 会社CD FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))  
if @@error <> 0
   begin  rollback select -1  return
End

commit

select 0





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM演習一覧
@システムCD varchar(12), @ソートフラグ int

AS

if @ソートフラグ = 0
begin
	SELECT TC2演習M.*, A.区分名称 AS 演習区分名称 FROM TC2演習M 
	INNER JOIN (SELECT 区分CD, 区分名称 FROM TC9区分M WHERE データ識別 = '演習区分' AND システムCD = @システムCD) A 
	ON TC2演習M.演習区分 = A.区分CD
	WHERE TC2演習M.システムCD = @システムCD 
	ORDER BY TC2演習M.演習CD
end
if @ソートフラグ = 1 --デフォルト演習を優先
begin
	SELECT TC2演習M.*, A.区分名称 AS 演習区分名称 FROM TC2演習M 
	INNER JOIN (SELECT 区分CD, 区分名称 FROM TC9区分M WHERE データ識別 = '演習区分' AND システムCD = @システムCD) A 
	ON TC2演習M.演習区分 = A.区分CD
	WHERE TC2演習M.システムCD = @システムCD
	ORDER BY     CASE WHEN  TC2演習M.演習CD LIKE 'SYS%' THEN 1 ELSE 0 END DESC,  TC2演習M.演習CD
end
if @ソートフラグ = 2 --デフォルト演習を非優先
begin
	SELECT TC2演習M.*, A.区分名称 AS 演習区分名称 FROM TC2演習M 
	INNER JOIN (SELECT 区分CD, 区分名称 FROM TC9区分M WHERE データ識別 = '演習区分' AND システムCD = @システムCD) A 
	ON TC2演習M.演習区分 = A.区分CD
	WHERE TC2演習M.システムCD = @システムCD
	ORDER BY     CASE WHEN  TC2演習M.演習CD LIKE 'SYS%' THEN 1 ELSE 0 END,  TC2演習M.演習CD
end
if @ソートフラグ = 3 --会計開始日が新しい演習を優先（デフォルト演習は常に優先）
begin
	SELECT TC2演習M.*, A.区分名称 AS 演習区分名称 FROM TC2演習M 
	INNER JOIN (SELECT 区分CD, 区分名称 FROM TC9区分M WHERE データ識別 = '演習区分' AND システムCD = @システムCD) A 
	ON TC2演習M.演習区分 = A.区分CD
	WHERE TC2演習M.システムCD = @システムCD
	ORDER BY CASE WHEN TC2演習M.演習CD LIKE 'SYS%' THEN 1 ELSE 0 END DESC, TC2演習M.会計開始日 DESC, TC2演習M.演習CD
end
if @ソートフラグ = 4 --会計開始日が新しい演習を優先（デフォルト演習は常に非優先）
begin
	SELECT TC2演習M.*, A.区分名称 AS 演習区分名称 FROM TC2演習M 
	INNER JOIN (SELECT 区分CD, 区分名称 FROM TC9区分M WHERE データ識別 = '演習区分' AND システムCD = @システムCD) A 
	ON TC2演習M.演習区分 = A.区分CD
	WHERE TC2演習M.システムCD = @システムCD
	ORDER BY CASE WHEN TC2演習M.演習CD LIKE 'SYS%' THEN 1 ELSE 0 END, TC2演習M.会計開始日 DESC, TC2演習M.演習CD
end




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE   PROCEDURE dbo.SPM演習会社履歴
@システムCD varchar(12), @演習CD varchar(12), @ソート区分 int

AS

SELECT TDA会社M.演習CD
	, TC2演習M.演習名称
	, TDA会社M.会社CD
	, TDA会社M.会社名称
	, TDA市場M.市場名称
	, TC9区分M.区分名称 AS 業種
	, TC9区分M.順序
	, TC5学生M.氏名
	, TC6演習履歴M.学生番号
	, TC5学生M.パスワード
	, TC6演習履歴M.メール送信拒否
FROM TDA会社M
LEFT OUTER JOIN TC6演習履歴M
	ON TC6演習履歴M.選択会社CD = TDA会社M.会社CD
	AND TC6演習履歴M.演習CD = TDA会社M.演習CD
INNER JOIN TC5学生M
	ON TC5学生M.学生番号 = TC6演習履歴M.学生番号
LEFT OUTER JOIN TC9区分M
	ON TC9区分M.データ識別 = '業種CD'
	AND TC9区分M.区分CD = TDA会社M.業種CD
LEFT OUTER JOIN TC2演習M
	ON TC2演習M.演習CD = TDA会社M.演習CD
LEFT OUTER JOIN TDA市場M
	ON TDA市場M.演習CD = TDA会社M.演習CD
	AND TDA市場M.市場CD = TDA会社M.市場CD
WHERE TC6演習履歴M.システムCD = @システムCD
	AND TC6演習履歴M.演習CD = @演習CD
ORDER BY TC2演習M.演習CD
	, CASE WHEN @ソート区分 = 1 THEN TC6演習履歴M.学生番号 ELSE NULL END
	, TDA会社M.市場CD
	, TC9区分M.順序
	, TDA会社M.会社CD
	, TC6演習履歴M.学生番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO



CREATE PROCEDURE dbo.SPM演習削除
@システムCD varchar(12),   @演習CD varchar(12)
AS

/* 修正履歴（テーブルを追加した場合は当プロシージャにも追加する必要があるので必ず記入すること！）
TKH小売販売TRN			070323小野
TKH小売販売TTL			070323小野
TDA株主資本等変動計算書書式M	070208小野
TGA契約書F			070208小野
TGA手形明細F			070208小野
TGC寄託在庫F			070208小野
TGC寄託在庫明細F		070208小野
TGC寄託者TRN			070208小野
TGC寄託者明細TRN		070208小野
TKH小売販売M			070208小野
TSA領収書F			070208小野
TSK帳簿_株主資本等変動計算書F	070208小野
TTA社員台帳M			080618小野
TTA給与明細F			080618小野
TSK帳簿_仕訳帳F			080618小野
TTXFAXF				080618小野
TDA材料M			080618小野
TDA部品展開M			080618小野
TGD製造指図書F			080618小野
TGPポータル会社F			090609小野
TGPポータル商品F			090609小野
TDA表記名称M			090609小野
TC4演習許可学生M			090619小野
TDA勘定科目会社学生M	091027小野
[170413小野]
TSK補助簿_材料仕入帳F
TSK補助簿_材料元帳F
TSK補助簿_小口現金出納帳F
TGU保険請求領収書F
TGU運送費請求領収書F
TGU倉庫料請求領収書F
TDA経費労務費M
TSK補助簿_原価計算表F
TSK補助簿_製造間接費配賦表F
[200219小野]
TDA消費税率M
[200403小野]
TDA為替レートM
*/

begin transaction

--[200403小野]
DELETE TDA為替レートM WHERE システムCD = @システムCD AND 演習CD = @演習CD

--[200219小野]
DELETE TDA消費税率M WHERE システムCD = @システムCD AND 演習CD = @演習CD

--[170413小野]
DELETE TSK補助簿_材料仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_材料元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_小口現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGU保険請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGU運送費請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGU倉庫料請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TDA経費労務費M WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_原価計算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_製造間接費配賦表F WHERE システムCD = @システムCD AND 演習CD = @演習CD

DELETE TTX文書F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTXFAXF WHERE システムCD = @システムCD AND 演習CD = @演習CD	--080618小野
DELETE TTM名刺データF WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTM名刺データ2F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTL合併残高F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTK摘要M WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTK記帳チェックF WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTA損益計画F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTA社員台帳M WHERE システムCD = @システムCD AND 演習CD = @演習CD	--080618小野
DELETE TTA社員台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TTA給与明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--080618小野
DELETE TSK補助簿_売上帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_売掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_買掛金元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_当座預金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_商品有高帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_受取手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_支払手形記入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_仕入帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK補助簿_現金出納帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK帳簿_貸借対照表F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK帳簿_総勘定元帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK帳簿_損益計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK帳簿_株主資本等変動計算書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TSK帳簿_合計残高試算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK帳簿_八桁精算表F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK帳簿_仕訳帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--080618小野
DELETE TSK帳簿_仕訳集計表F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK帳簿_仕訳日記帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK伝票明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK伝票仕入売上明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSK伝票F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSC運送費請求書手動明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSC運送費請求書手動F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSC運送費請求書F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSC運送書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSC運送書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSB銀行取引申込書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSA領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TSA仕入売上書類明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TSA仕入売上書類F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TKH小売販売TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070323小野
DELETE TKH小売販売TTL WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070323小野
DELETE TKH小売販売M WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TGPポータル商品F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--090609小野
DELETE TGPポータル会社F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--090609小野
DELETE TGK現金入出金TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGD製造指図書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--080618小野
DELETE TGC運送契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGC寄託者明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TGC寄託者台帳F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGC寄託者TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TGC寄託在庫明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TGC寄託在庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TGC出庫F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGC保険契約F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGB銀行口座入出金TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGB銀行口座F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGA手形明細F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TGA手形F WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGA契約書F WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TGA入出庫明細TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TGA入出庫TRN WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TDA株主資本等変動計算書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD	--070208小野
DELETE TDA部品展開M WHERE システムCD = @システムCD AND 演習CD = @演習CD	--080618小野
DELETE TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TDA報告書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TDA商品M WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TDA材料M WHERE システムCD = @システムCD AND 演習CD = @演習CD	--080618小野
DELETE TDA表記名称M WHERE システムCD = @システムCD AND 演習CD = @演習CD	--090609小野
DELETE TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD

DELETE TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TC4演習許可学生グループM WHERE システムCD = @システムCD AND 演習CD = @演習CD
DELETE TC4演習許可学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD	--090619小野
DELETE TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD

if @@error <> 0
begin
	rollback
	select -1
	return
end

--他の演習に設定されている期末繰越先演習CDをクリアする
UPDATE TC2演習M
SET 期末繰越先演習CD = ''
WHERE 期末繰越先演習CD = @演習CD

if @@error <> 0
begin
	rollback
	select -1
	return
end

commit 

select 0



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPM演習参加グループ挿入
@システムCD varchar(12), @演習CD varchar(12) , @グループCD varchar(12)
AS

begin transaction

	INSERT INTO YTMP_TC4演習許可学生グループM (システムCD, 演習CD, 学生グループCD) VALUES (@システムCD, @演習CD, @グループCD)

	if @@error <> 0
	   begin
	       rollback  select -1  return
	end

commit transaction

select 0
















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習参加グループ更新
@システムCD varchar(12), @演習CD varchar(12) , @グループCD varchar(12)
AS

begin transaction

/* TC4演習許可学生グループMの削除処理  */
DELETE FROM TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 演習CD = @演習CD

if @@error <> 0
begin
	rollback
	select -1
	return
end

INSERT INTO TC4演習許可学生グループM (システムCD, 演習CD, 学生グループCD )
SELECT システムCD, 演習CD , 学生グループCD 
FROM YTMP_TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 演習CD = @演習CD

DELETE FROM YTMP_TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 演習CD = @演習CD

if @@error <> 0
begin
	rollback
	select -1
	return
end

-- 当該演習参加グループについてはグループでの管理に移行するため
-- 当該演習参加グループに所属する学生をTC4演習許可学生Mから削除する 
DELETE FROM TC4演習許可学生M
FROM TC4演習許可学生M
INNER JOIN TC5学生M
	ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
	AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
INNER JOIN TC4演習許可学生グループM	--結合により該演習参加グループに所属する学生のみを抽出
	ON TC4演習許可学生グループM.システムCD = TC4演習許可学生M.システムCD
	AND TC4演習許可学生グループM.演習CD = TC4演習許可学生M.演習CD
	AND TC4演習許可学生グループM.学生グループCD = TC5学生M.学生グループCD
WHERE TC4演習許可学生M.システムCD = @システムCD AND TC4演習許可学生M.演習CD = @演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPM演習参加グループ登録
@システムCD varchar(12), @処理区分 smallint , @演習CD varchar(12) , @グループCD varchar(12)
AS

begin transaction

if @処理区分 >= 0
begin 


	if @@error <> 0
	   begin
	       rollback  select -1  return
	end

	if @@error <> 0
	   begin
	       rollback  select -1  return
	end

	INSERT INTO YTMP_TC4演習許可学生グループM (システムCD, 演習CD, 学生グループCD) VALUES (@システムCD, @演習CD, @グループCD)

	if @@error <> 0
	   begin
	       rollback  select -1  return
	end
end
else
begin

	/* TC4演習許可学生グループMの削除処理  */
	DELETE FROM TC4演習許可学生グループM
	WHERE システムCD = @システムCD AND 演習CD = @演習CD

	if @@error <> 0
	   begin
	       rollback  select -1  return
	end
/*
		SELECT システムCD, 演習CD , 学生グループCD 
		FROM TC4演習許可学生グループM
		WHERE システムCD = @システムCD AND 演習CD = @演習CD

		SELECT システムCD, 演習CD , 学生グループCD 
		 FROM YTMP_TC4演習許可学生グループM
		 WHERE システムCD = @システムCD AND 演習CD = @演習CD
*/
	/* TC4演習許可学生グループMの追加登録処理    */
	/* YTMP_TC4演習許可学生グループM ==>  TC4演習許可学生グループM */

		SELECT システムCD, 演習CD , 学生グループCD 
		 FROM YTMP_TC4演習許可学生グループM

		INSERT INTO TC4演習許可学生グループM (システムCD, 演習CD, 学生グループCD )
		SELECT システムCD, 演習CD , 学生グループCD 
		 FROM YTMP_TC4演習許可学生グループM
		 WHERE システムCD = @システムCD AND 演習CD = @演習CD

	if @@error <> 0
	  begin
	      rollback  select -1  return
	end

end

commit transaction

select 0
















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習参加ユーザー挿入
@システムCD varchar(12), @演習CD varchar(12) , @学生番号 varchar(12)
AS

begin transaction

INSERT INTO YTMP_TC4演習許可学生M (システムCD, 演習CD, 学生番号) VALUES (@システムCD, @演習CD, @学生番号)

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習参加ユーザー更新
@システムCD varchar(12), @演習CD varchar(12) , @学生番号 varchar(12)
AS

begin transaction

/* 学生番号での管理に移行するためTC4演習許可学生グループMを削除する  */
DELETE FROM TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 演習CD = @演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

/* TC4演習許可学生Mを削除する  */
DELETE FROM TC4演習許可学生M
WHERE システムCD = @システムCD AND 演習CD = @演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

/* テンポラリから本テーブルへコピーする  */
INSERT INTO TC4演習許可学生M (システムCD, 演習CD, 学生番号 )
SELECT システムCD, 演習CD , 学生番号 
FROM YTMP_TC4演習許可学生M
WHERE システムCD = @システムCD AND 演習CD = @演習CD

/* テンポラリをクリアする  */
DELETE FROM YTMP_TC4演習許可学生M
WHERE システムCD = @システムCD AND 演習CD = @演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPM演習取得
@システムCD varchar(12), @演習CD varchar(12)    
AS

SELECT *
FROM TC2演習M
WHERE  システムCD = @システムCD AND 演習CD = @演習CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPM演習取得_小売販売
@システムCD varchar(12), @演習CD varchar(12)    
AS

SELECT *
FROM TKH小売販売M
WHERE  システムCD = @システムCD AND 演習CD = @演習CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習更新0
@システムCD varchar(12),   @演習CD varchar(12) 
  , @通帳手動修正 varchar(2)
  , @手形修正 varchar(2)

AS

begin transaction

update TC2演習M
set 通帳手動修正 = @通帳手動修正
	, 手形修正 = @手形修正
from TC2演習M
where TC2演習M.システムCD = @システムCD
	and TC2演習M.演習CD = @演習CD

if @@error <> 0
begin
	select -1  return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPM演習更新1
@システムCD varchar(12), @演習CD varchar(12), @旧演習CD varchar(12), @演習名称 varchar(40), @演習区分 varchar(1), @会計開始日 datetime
, @会計終了日 datetime, @消費税 float, @利用伝票数区分 varchar(2),@利用銀行口座種類 varchar(8), @整理記入精算表利用 varchar(2)
, @コピー元演習CD varchar(12) 
, @マスター演習 varchar(2) 

AS

declare @元演習名称 varchar(40)

begin transaction

SELECT @元演習名称 = (SELECT 演習名称 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

--演習名称変更時は他演習のコピー元演習名称も連動変更する
if (@元演習名称 <> @演習名称)
begin
	UPDATE TC2演習M
	SET コピー元演習名称 = @演習名称
	WHERE システムCD = @システムCD
		AND コピー元演習名称 = @元演習名称

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end

UPDATE TC2演習M
SET 演習CD = @演習CD
	, 演習名称 = @演習名称
	, 演習区分 = @演習区分   
	, 会計開始日 = @会計開始日
	, 会計終了日 = @会計終了日
	, 消費税 = @消費税
	, 利用伝票数区分 = @利用伝票数区分
	, 利用銀行口座種類 = @利用銀行口座種類
	, 整理記入精算表利用 = @整理記入精算表利用
	, マスター演習 = @マスター演習
FROM TC2演習M
WHERE システムCD = @システムCD
	AND 演習CD = @旧演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

if @演習CD <> @旧演習CD
begin
	UPDATE TC4演習許可学生M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TC4演習許可学生グループM SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TC6演習履歴M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA会社M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA勘定科目M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA勘定科目会社学生M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA表記名称M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA商品M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA報告書書式M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA市場M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA材料M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA株主資本等変動計算書書式M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA表記名称M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA部品展開M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGA入出庫TRN SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGA入出庫明細TRN SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGA契約書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGA手形F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGA手形明細F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGB銀行口座F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGB銀行口座入出金TRN SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGC保険契約F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGC出庫F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGC寄託在庫F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGC寄託在庫明細F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGC寄託者TRN SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGC寄託者台帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGC寄託者明細TRN SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGC運送契約F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGD製造指図書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGK現金入出金TRN SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGPポータル会社F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGPポータル商品F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TKH小売販売M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TKH小売販売TRN SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TKH小売販売TTL SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSA仕入売上書類F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSA仕入売上書類明細F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSA領収書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSB銀行取引申込書類F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSC運送書類F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSC運送書類明細F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSC運送費請求書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSC運送費請求書手動F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSC運送費請求書手動明細F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK伝票F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK伝票仕入売上明細F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK伝票明細F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_仕訳帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_仕訳日記帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_仕訳集計表F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_八桁精算表F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_合計残高試算表F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_損益計算書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_株主資本等変動計算書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_株主資本等変動計算書FM SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_総勘定元帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK帳簿_貸借対照表F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_仕入帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_受取手形記入帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_商品有高帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_売上帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_売掛金元帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_当座預金出納帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_支払手形記入帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_現金出納帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_買掛金元帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTA損益計画F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTA社員台帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTA社員台帳M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTA給与明細F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTK摘要M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTK記帳チェックF SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTL合併残高F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTM名刺データ2F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTM名刺データF SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTXFAXF SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTXメールF SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TTX文書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD

	--[170413小野]
	UPDATE TSK補助簿_材料仕入帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_材料元帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_小口現金出納帳F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGU保険請求領収書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGU運送費請求領収書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TGU倉庫料請求領収書F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TDA経費労務費M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_原価計算表F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD
	UPDATE TSK補助簿_製造間接費配賦表F SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD

	--[200219小野]
	UPDATE TDA消費税率M SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD

	--[200403小野]
	UPDATE TDA為替レートM SET 演習CD = @演習CD WHERE システムCD = @システムCD AND 演習CD = @旧演習CD

end

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習更新2
@システムCD varchar(12),   @演習CD varchar(12) 
  , @銀行自動処理 varchar(1)
  , @銀行口座番号手動 varchar(2)
  , @銀行手形取立割引手動 varchar(2)
  , @銀行市場間利用 varchar(2)
  , @銀行窓口依頼保存 varchar(2)
  , @振込手数料低金額自行間 money
  , @振込手数料高金額自行間 money
  , @振込手数料低金額他行間 money
  , @振込手数料高金額他行間 money
  , @振込手数料高低区切金額 money
  , @手形割引率 float
  , @振込手数料当座振込元負担 varchar(2)
  , @振込手数料非当座振込元負担 varchar(2)
  , @残高証明書手数料 money
  , @銀行窓口表示 varchar(2)
  , @金庫表示 varchar(2)
  , @小切手手形全非利用フラグ varchar(2)

AS

begin transaction

UPDATE TC2演習M
SET 銀行自動処理 = @銀行自動処理
	, 銀行口座番号手動 = @銀行口座番号手動
	, 銀行手形取立割引手動 = @銀行手形取立割引手動
	, 銀行市場間利用 = @銀行市場間利用
	, 銀行窓口依頼保存 = @銀行窓口依頼保存
	, 振込手数料低金額自行間 = @振込手数料低金額自行間
	, 振込手数料高金額自行間 = @振込手数料高金額自行間
	, 振込手数料低金額他行間 = @振込手数料低金額他行間
	, 振込手数料高金額他行間 = @振込手数料高金額他行間
	, 振込手数料高低区切金額 = @振込手数料高低区切金額
	, 手形割引率 = @手形割引率
	, 振込手数料当座振込元負担 = @振込手数料当座振込元負担
	, 振込手数料非当座振込元負担 = @振込手数料非当座振込元負担
	, 残高証明書手数料 = @残高証明書手数料
	, 銀行窓口表示 = @銀行窓口表示
	, 金庫表示 = @金庫表示
FROM TC2演習M
WHERE TC2演習M.システムCD = @システムCD
 	AND TC2演習M.演習CD = @演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

if @小切手手形全非利用フラグ = '1'
begin
	UPDATE TC2演習M
	SET 小切手表示 = '0'
		, 約束手形表示 = '0'
		, 為替手形表示 = '0'
	FROM TC2演習M
	WHERE TC2演習M.システムCD = @システムCD
	 	AND TC2演習M.演習CD = @演習CD
end

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習更新22
@システムCD varchar(12),   @演習CD varchar(12) 
  , @手動補助簿表示 varchar(1)
  , @手動仕訳帳表示 varchar(1), @手動仕訳集計表表示 varchar(1), @手動合計残高試算表表示 varchar(1)
  , @手動総勘定元帳表示 varchar(1), @手動貸借対照表表示 varchar(1), @手動損益計算書表示 varchar(1), @手動8桁精算表表示 varchar(1), @手動株主資本等変動計算書表示 varchar(1)
  , @自動転記仕訳帳表示 varchar(1), @自動転記仕訳集計表表示 varchar(1), @自動転記合計残高試算表表示 varchar(1)
  , @自動転記総勘定元帳表示 varchar(1), @自動転記貸借対照表表示 varchar(1), @自動転記損益計算書表示 varchar(1), @自動転記8桁精算表表示 varchar(1), @自動転記株主資本等変動計算書表示 varchar(1)
  , @履歴表示 varchar(8)
  , @総勘定元帳標準式利用 varchar(2)
  , @総勘定元帳月計累計利用 varchar(2)
  , @残高自動計算 varchar(2)
  , @日付仕訳日指定 varchar(2)
  , @振替伝票表示行数 int
  , @小切手表示 varchar(2)
  , @約束手形表示 varchar(2)
  , @為替手形表示 varchar(2)
  , @領収書表示 varchar(2)
  , @給与台帳表示 varchar(2)
  , @現金出納帳表示 varchar(2)
  , @小口現金出納帳表示 varchar(2)
  , @当座預金出納帳表示 varchar(2)
  , @売上帳表示 varchar(2)
  , @仕入帳表示 varchar(2)
  , @売掛金元帳表示 varchar(2)
  , @買掛金元帳表示 varchar(2)
  , @受取手形記入帳表示 varchar(2)
  , @支払手形記入帳表示 varchar(2)
  , @商品有高帳表示 varchar(2)
  , @自動転記現金出納帳表示 varchar(2)
  , @自動転記当座預金出納帳表示 varchar(2)
  , @自動転記売上帳表示 varchar(2)
  , @自動転記仕入帳表示 varchar(2)
  , @自動転記売掛金元帳表示 varchar(2)
  , @自動転記買掛金元帳表示 varchar(2)
  , @自動転記商品有高帳表示 varchar(2)
  , @自動転記受取手形記入帳表示 varchar(2)
  , @自動転記支払手形記入帳表示 varchar(2)
  , @帳簿手入力自動トグル varchar(2)
  , @財務諸表貸借対照表表示 varchar(2)
  , @財務諸表損益計算書表示 varchar(2)
  , @財務諸表キャッシュフロー計算書表示 varchar(2)
  , @財務諸表株主資本等変動計算書表示 varchar(2)
  , @財務分析損益実績表示 varchar(2)
  , @財務分析収益性表示 varchar(2)
  , @財務分析安全性表示 varchar(2)
  , @財務分析損益分岐点表示 varchar(2)
  , @当座引出振込小切手必要 varchar(2)
  , @小切手返却利用 varchar(2)
  , @仕入売上伝票消費税手動仕訳 varchar(2)
  , @自動転記総勘定元帳仕丁表示 varchar(2)

AS

begin transaction

UPDATE TC2演習M
SET 手動補助簿表示 = @手動補助簿表示
	, 手動仕訳帳表示 = @手動仕訳帳表示
	, 手動仕訳集計表表示 = @手動仕訳集計表表示
	, 手動合計残高試算表表示 = @手動合計残高試算表表示
	, 手動総勘定元帳表示 = @手動総勘定元帳表示
	, 手動貸借対照表表示 = @手動貸借対照表表示
	, 手動損益計算書表示 = @手動損益計算書表示
	, 手動8桁精算表表示 = @手動8桁精算表表示
	, 手動株主資本等変動計算書表示 = @手動株主資本等変動計算書表示
	, 自動転記仕訳帳表示 = @自動転記仕訳帳表示
	, 自動転記仕訳集計表表示 = @自動転記仕訳集計表表示
	, 自動転記合計残高試算表表示 = @自動転記合計残高試算表表示
	, 自動転記総勘定元帳表示 = @自動転記総勘定元帳表示
	, 自動転記貸借対照表表示 = @自動転記貸借対照表表示
	, 自動転記損益計算書表示 = @自動転記損益計算書表示
	, 自動転記8桁精算表表示 = @自動転記8桁精算表表示
	, 自動転記株主資本等変動計算書表示 = @自動転記株主資本等変動計算書表示
	, 財務諸表貸借対照表表示 = @財務諸表貸借対照表表示
	, 財務諸表損益計算書表示 = @財務諸表損益計算書表示
	, 財務諸表キャッシュフロー計算書表示 = @財務諸表キャッシュフロー計算書表示
	, 財務諸表株主資本等変動計算書表示 = @財務諸表株主資本等変動計算書表示
	, 財務分析損益実績表示 = @財務分析損益実績表示
	, 財務分析収益性表示 = @財務分析収益性表示
	, 財務分析安全性表示 = @財務分析安全性表示
	, 財務分析損益分岐点表示 = @財務分析損益分岐点表示
	, 履歴表示 = @履歴表示
	, 総勘定元帳標準式利用 = @総勘定元帳標準式利用
	, 総勘定元帳月計累計利用 = @総勘定元帳月計累計利用
	, 残高自動計算 = @残高自動計算
	, 日付仕訳日指定 = @日付仕訳日指定
	, 振替伝票表示行数 = @振替伝票表示行数
	, 小切手表示 = @小切手表示
	, 約束手形表示 = @約束手形表示
	, 為替手形表示 = @為替手形表示
	, 領収書表示 = @領収書表示
	, 給与台帳表示 = @給与台帳表示
	, 現金出納帳表示 = @現金出納帳表示
	, 小口現金出納帳表示 = @小口現金出納帳表示
	, 当座預金出納帳表示 = @当座預金出納帳表示
	, 売上帳表示 = @売上帳表示
	, 仕入帳表示 = @仕入帳表示
	, 売掛金元帳表示 = @売掛金元帳表示
	, 買掛金元帳表示 = @買掛金元帳表示
	, 受取手形記入帳表示 = @受取手形記入帳表示
	, 支払手形記入帳表示 = @支払手形記入帳表示
	, 商品有高帳表示 = @商品有高帳表示
	, 自動転記現金出納帳表示 = @自動転記現金出納帳表示
	, 自動転記当座預金出納帳表示 = @自動転記当座預金出納帳表示
	, 自動転記売上帳表示 = @自動転記売上帳表示
	, 自動転記仕入帳表示 = @自動転記仕入帳表示
	, 自動転記売掛金元帳表示 = @自動転記売掛金元帳表示
	, 自動転記買掛金元帳表示 = @自動転記買掛金元帳表示
	, 自動転記商品有高帳表示 = @自動転記商品有高帳表示
	, 自動転記受取手形記入帳表示 = @自動転記受取手形記入帳表示
	, 自動転記支払手形記入帳表示 = @自動転記支払手形記入帳表示
	, 帳簿手入力自動トグル = @帳簿手入力自動トグル
	, 当座引出振込小切手必要 = @当座引出振込小切手必要
	, 小切手返却利用 = @小切手返却利用
	, 仕入売上伝票消費税手動仕訳 = @仕入売上伝票消費税手動仕訳
	, 自動転記総勘定元帳仕丁表示 = @自動転記総勘定元帳仕丁表示
FROM TC2演習M
WHERE TC2演習M.システムCD = @システムCD
	AND TC2演習M.演習CD = @演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO










CREATE PROCEDURE dbo.SPM演習更新2old
@システムCD varchar(12),   @演習CD varchar(12) 
  , @銀行自動処理 varchar(1)
  , @手動補助簿表示 varchar(1)
  , @手動仕訳帳表示 varchar(1), @手動仕訳集計表表示 varchar(1), @手動合計残高試算表表示 varchar(1)
  , @手動総勘定元帳表示 varchar(1), @手動貸借対照表表示 varchar(1), @手動損益計算書表示 varchar(1), @手動8桁精算表表示 varchar(1), @手動株主資本等変動計算書表示 varchar(1)
  , @自動転記仕訳帳表示 varchar(1), @自動転記仕訳集計表表示 varchar(1), @自動転記合計残高試算表表示 varchar(1)
  , @自動転記総勘定元帳表示 varchar(1), @自動転記貸借対照表表示 varchar(1), @自動転記損益計算書表示 varchar(1), @自動転記8桁精算表表示 varchar(1), @自動転記株主資本等変動計算書表示 varchar(1)
  , @履歴表示 varchar(8)
  , @振込手数料低金額自行間 money
  , @振込手数料高金額自行間 money
  , @振込手数料低金額他行間 money
  , @振込手数料高金額他行間 money
  , @振込手数料高低区切金額 money
  , @手形割引率 float
  , @振込手数料当座振込元負担 varchar(2)
  , @振込手数料非当座振込元負担 varchar(2)
  , @総勘定元帳標準式利用 varchar(2)
  , @残高自動計算 varchar(2)
  , @振替伝票表示行数 int
  , @銀行窓口表示 varchar(2)
AS

begin transaction

update  TC2演習M
    set 
         銀行自動処理=  @銀行自動処理
, 手動補助簿表示 = @手動補助簿表示
, 手動仕訳帳表示 = @手動仕訳帳表示
, 手動仕訳集計表表示 = @手動仕訳集計表表示
, 手動合計残高試算表表示 = @手動合計残高試算表表示
, 手動総勘定元帳表示 = @手動総勘定元帳表示
, 手動貸借対照表表示 = @手動貸借対照表表示
, 手動損益計算書表示 = @手動損益計算書表示
, 手動8桁精算表表示 = @手動8桁精算表表示
, 手動株主資本等変動計算書表示 = @手動株主資本等変動計算書表示
, 自動転記仕訳帳表示 = @自動転記仕訳帳表示
, 自動転記仕訳集計表表示 = @自動転記仕訳集計表表示
, 自動転記合計残高試算表表示 = @自動転記合計残高試算表表示
, 自動転記総勘定元帳表示 = @自動転記総勘定元帳表示
, 自動転記貸借対照表表示 = @自動転記貸借対照表表示
, 自動転記損益計算書表示 = @自動転記損益計算書表示
, 自動転記8桁精算表表示 = @自動転記8桁精算表表示
, 自動転記株主資本等変動計算書表示 = @自動転記株主資本等変動計算書表示
, 履歴表示 = @履歴表示
, 振込手数料低金額自行間 = @振込手数料低金額自行間
, 振込手数料高金額自行間 = @振込手数料高金額自行間
, 振込手数料低金額他行間 = @振込手数料低金額他行間
, 振込手数料高金額他行間 = @振込手数料高金額他行間
, 振込手数料高低区切金額 = @振込手数料高低区切金額
, 手形割引率 = @手形割引率
, 振込手数料当座振込元負担 = @振込手数料当座振込元負担
, 振込手数料非当座振込元負担 = @振込手数料非当座振込元負担
, 総勘定元帳標準式利用 = @総勘定元帳標準式利用
, 残高自動計算 = @残高自動計算
, 振替伝票表示行数 = @振替伝票表示行数
, @銀行窓口表示 = @銀行窓口表示
from  TC2演習M
where TC2演習M.システムCD = @システムCD
  and  TC2演習M.演習CD = @演習CD

if @@error <> 0
   begin
       rollback  select -1  return
   end

commit transaction
select 0










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPM演習更新3
@システムCD varchar(12),   @演習CD varchar(12) 
  , @商品入出庫整合性利用 varchar(2)
  , @仕入売上書類控え印刷 varchar(2)
  , @仕入売上書類社名優先 varchar(2)
  , @仕入売上書類受発信利用 varchar(2)
  , @仕入売上書類検認利用 varchar(50)
  , @注文請書確認利用 varchar(2)
  , @仕入売上書類先方書類必要 varchar(2)
  , @管理部買入売渡運賃諸掛 varchar(2)
  , @出庫時注文請書必要 varchar(2)
  , @入庫時相手出庫必要 varchar(2)
  , @出庫時在庫必要 varchar(2)
  , @仕入他市場管理部利用 varchar(2)
  , @出庫時払出単価入力 varchar(2)

AS

begin transaction

update TC2演習M
set	商品入出庫整合性利用 = @商品入出庫整合性利用
	, 仕入売上書類控え印刷 = @仕入売上書類控え印刷
	, 仕入売上書類社名優先 = @仕入売上書類社名優先
	, 仕入売上書類受発信利用 = @仕入売上書類受発信利用
	, 仕入売上書類検認利用 = @仕入売上書類検認利用
	, 注文請書確認利用 = @注文請書確認利用
	, 仕入売上書類先方書類必要 = @仕入売上書類先方書類必要
	, 管理部買入売渡運賃諸掛 = @管理部買入売渡運賃諸掛
	, 出庫時注文請書必要 = @出庫時注文請書必要
	, 入庫時相手出庫必要 = @入庫時相手出庫必要
	, 出庫時在庫必要 = @出庫時在庫必要
	, 仕入他市場管理部利用 = @仕入他市場管理部利用
	, 出庫時払出単価入力 = @出庫時払出単価入力
from TC2演習M
where TC2演習M.システムCD = @システムCD
	and TC2演習M.演習CD = @演習CD

if @@error <> 0
begin
	select -1  return
end

commit transaction

select 0



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPM演習更新4
@システムCD varchar(12), @演習CD varchar(12) 
  , @演習管理者ID varchar(12)
  , @演習管理者パスワード varchar(12)
  , @自動番号伝票 varchar(2) 
  , @自動番号仕入売上書類 varchar(2)
  , @自動番号銀行書類 varchar(2)
  , @自動番号手形 varchar(2)
  , @自動番号領収書 varchar(2)
  , @メール利用 varchar(2)
  , @印刷ヘッダー表示 varchar(2)
  , @名刺作成旧バージョン利用 varchar(2)
  , @捺印利用 varchar(2)
  , @記帳チェック表示 varchar(2)
  , @商品チェック表示 varchar(2)
  , @現物チェック表示 varchar(2)
  , @運送費請求書旧バージョン利用 varchar(2)
  , @商品開発課利用 varchar(2)
  , @寄託倉庫利用 varchar(2)
  , @WebCollabo利用 varchar(2)
  , @為替レート利用 varchar(2)
  , @小売販売有無 varchar(2)
  , @原価会計利用 varchar(2)
  , @送付済み手形表示様式 varchar(2)
  , @送付済み小切手表示様式 varchar(2)
  , @送付済み領収書表示様式 varchar(2)
  , @手入力仕訳帳旧バージョン利用 varchar(2)
  , @実印利用 varchar(2)
  , @期末繰越先演習CD varchar(12)
  , @入庫時相手出庫必要 varchar(2)
  , @出庫時在庫必要 varchar(2)
  , @標準販売単価表示 varchar(2)
  , @チェック画面リンク利用 varchar(2)
  , @期首設定経理部利用 varchar(2)

AS

--TC3学生グループMの演習管理者の更新のため旧演習管理者を保持（080415小野）
declare @旧演習管理者ID varchar(12)

begin transaction

SELECT @旧演習管理者ID = (SELECT 演習管理者ID FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD GROUP BY 演習管理者ID)

update  TC2演習M
set	演習管理者ID     =  @演習管理者ID
      ,   演習管理者パスワード     =  @演習管理者パスワード
      ,   自動番号伝票     =  @自動番号伝票   
      ,   自動番号仕入売上書類  =  @自動番号仕入売上書類
      ,   自動番号銀行書類  =  @自動番号銀行書類
      ,   自動番号手形  =  @自動番号手形
      ,   自動番号領収書  =  @自動番号領収書
      ,   メール利用       =  @メール利用
      ,   印刷ヘッダー表示   =  @印刷ヘッダー表示
      ,   名刺作成旧バージョン利用 =  @名刺作成旧バージョン利用
      ,   捺印利用 =  @捺印利用
      ,   記帳チェック表示 =  @記帳チェック表示
      ,   現物チェック表示 =  @現物チェック表示
      ,   商品チェック表示 =  @商品チェック表示
      ,   運送費請求書旧バージョン利用 =  @運送費請求書旧バージョン利用
      ,   商品開発課利用 =  @商品開発課利用
      ,   寄託倉庫利用 =  @寄託倉庫利用
      ,   WebCollabo利用 =  @WebCollabo利用
      ,   為替レート利用 = @為替レート利用
      ,   小売販売有無 = @小売販売有無
      ,   原価会計利用 = @原価会計利用
      ,   送付済み手形表示様式 = @送付済み手形表示様式
      ,   送付済み小切手表示様式 = @送付済み小切手表示様式
      ,   送付済み領収書表示様式 = @送付済み領収書表示様式
      ,   手入力仕訳帳旧バージョン利用 = @手入力仕訳帳旧バージョン利用
	, 実印利用 = @実印利用
	, 期末繰越先演習CD = @期末繰越先演習CD
	, 入庫時相手出庫必要 = @入庫時相手出庫必要
	, 出庫時在庫必要 = @出庫時在庫必要
	, 標準販売単価表示 = @標準販売単価表示
	, チェック画面リンク利用 = @チェック画面リンク利用
	, 期首設定経理部利用 = @期首設定経理部利用
from  TC2演習M
where TC2演習M.システムCD = @システムCD
	and  TC2演習M.演習CD = @演習CD

if @@error <> 0
begin
	select -1  return
end

--TC3学生グループMの演習管理者の更新（080415小野）
if (@演習管理者ID <> '' and @演習管理者ID is not null) and (@旧演習管理者ID <> '' and @旧演習管理者ID is not null)
begin

	UPDATE TC3学生グループM
	SET 作成者ID = @演習管理者ID
	WHERE 作成者ID = @旧演習管理者ID

	if @@error <> 0
	begin
		select -1  return
	end

end

commit transaction

select 0



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPM演習更新_実践日
@システムCD varchar(12),   @演習CD varchar(12) 
  , @実践日 datetime
AS

begin transaction

update TC2演習M
set 実践日 = @実践日
from TC2演習M
where TC2演習M.システムCD = @システムCD and TC2演習M.演習CD = @演習CD

if @@error <> 0
   begin
       select -1  return
end

commit transaction
select 0








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE   PROCEDURE dbo.SPM演習更新_小売販売
@システムCD varchar(12),   @演習CD varchar(12) 
  , @販売種類制限 int
  , @販売数量制限 float
  , @販売単価算出基準 smallint
  , @生徒数1 int
  , @生徒数2 int
  , @生徒数3 int
  , @生徒数4 int
  , @生徒数5 int
  , @掛け率上限1 int
  , @掛け率上限2 int
  , @掛け率上限3 int
  , @掛け率上限4 int
  , @掛け率上限5 int
  , @掛け率下限1 int
  , @掛け率下限2 int
  , @掛け率下限3 int
  , @掛け率下限4 int
  , @掛け率下限5 int

AS

begin transaction

if exists(SELECT 演習CD FROM TKH小売販売M WHERE システムCD = @システムCD AND 演習CD = @演習CD)
begin

	update TKH小売販売M
	set 販売種類制限 = @販売種類制限
	  , 販売数量制限 = @販売数量制限
	  , 販売単価算出基準 = @販売単価算出基準
	  , 生徒数1 = @生徒数1
	  , 生徒数2 = @生徒数2
	  , 生徒数3 = @生徒数3
	  , 生徒数4 = @生徒数4
	  , 生徒数5 = @生徒数5
	  , 掛け率上限1 = @掛け率上限1
	  , 掛け率上限2 = @掛け率上限2
	  , 掛け率上限3 = @掛け率上限3
	  , 掛け率上限4 = @掛け率上限4
	  , 掛け率上限5 = @掛け率上限5
	  , 掛け率下限1 = @掛け率下限1
	  , 掛け率下限2 = @掛け率下限2
	  , 掛け率下限3 = @掛け率下限3
	  , 掛け率下限4 = @掛け率下限4
	  , 掛け率下限5 = @掛け率下限5
	  , 更新日時 = GETDATE()
	from TKH小売販売M
	where TKH小売販売M.システムCD = @システムCD
	  and TKH小売販売M.演習CD = @演習CD

end
else
begin

	INSERT INTO TKH小売販売M (システムCD
	, 演習CD
	, 販売種類制限
	, 販売数量制限
	, 販売単価算出基準
	, 生徒数1
	, 掛け率上限1
	, 掛け率下限1
	, 生徒数2
	, 掛け率上限2
	, 掛け率下限2
	, 生徒数3
	, 掛け率上限3
	, 掛け率下限3
	, 生徒数4
	, 掛け率上限4
	, 掛け率下限4
	, 生徒数5
	, 掛け率上限5
	, 掛け率下限5
	, 更新日時)
	SELECT @システムCD
	, @演習CD
	, @販売種類制限
	, @販売数量制限
	, @販売単価算出基準
	, @生徒数1
	, @掛け率上限1
	, @掛け率下限1
	, @生徒数2
	, @掛け率上限2
	, @掛け率下限2
	, @生徒数3
	, @掛け率上限3
	, @掛け率下限3
	, @生徒数4
	, @掛け率上限4
	, @掛け率下限4
	, @生徒数5
	, @掛け率上限5
	, @掛け率下限5
	, GETDATE()

end

if @@error <> 0
   begin
       select -1  return
end

commit transaction
select 0









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習更新コピー元名称
@システムCD varchar(12), @演習CD varchar(12), @コピー元演習名称 varchar(40)

AS

begin transaction

UPDATE TC2演習M
SET コピー元演習名称 = @コピー元演習名称
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO



CREATE PROCEDURE dbo.SPM演習更新データコピー
@システムCD varchar(12), @演習CD varchar(12)
, @コピー元演習CD varchar(12)
, @会計開始日 datetime

AS

/* 修正履歴（テーブルを追加した場合は当プロシージャにも追加する必要があるので必ず記入すること！）
TDA材料M		080911小野
TDA株主資本等変動計算書書式M	081216小野
TDA表記名称M	090609小野
TDA消費税率M	191016小野
TDA為替レートM	200403小野
*/

declare @寄託倉庫利用 varchar(2)

begin transaction

SELECT @寄託倉庫利用 = (SELECT 寄託倉庫利用 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

/*  勘定科目M    */
DELETE FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA勘定科目M.* INTO #acmst FROM TDA勘定科目M WHERE システムCD = @システムCD AND TDA勘定科目M.演習CD = @コピー元演習CD

UPDATE #acmst SET 演習CD = @演習CD FROM #acmst
 
INSERT TDA勘定科目M SELECT #acmst.* FROM  #acmst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/*  商品M    */
DELETE FROM TDA商品M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA商品M.* INTO #shnmst FROM TDA商品M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #shnmst SET 演習CD = @演習CD FROM #shnmst
 
INSERT TDA商品M SELECT #shnmst.* FROM  #shnmst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/*  材料M    */
DELETE FROM TDA材料M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA材料M.* INTO #zyrymst FROM TDA材料M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #zyrymst SET 演習CD = @演習CD FROM #zyrymst
 
INSERT TDA材料M SELECT #zyrymst.* FROM #zyrymst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/*  TDA消費税率M    */
DELETE FROM TDA消費税率M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA消費税率M.* INTO #shohizeimst FROM TDA消費税率M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #shohizeimst SET 演習CD = @演習CD FROM #shohizeimst
 
INSERT TDA消費税率M SELECT #shohizeimst.* FROM #shohizeimst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/*  TDA為替レートM    */
DELETE FROM TDA為替レートM WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA為替レートM.* INTO #exchangeratemst FROM TDA為替レートM WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #exchangeratemst SET 演習CD = @演習CD FROM #exchangeratemst
 
INSERT TDA為替レートM SELECT #exchangeratemst.* FROM #exchangeratemst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/*  TDA表記名称M    */
DELETE FROM TDA表記名称M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA表記名称M.* INTO #hyokimst FROM TDA表記名称M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #hyokimst SET 演習CD = @演習CD FROM #hyokimst
 
INSERT TDA表記名称M SELECT #hyokimst.* FROM #hyokimst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/* 報告書書式M  */
DELETE FROM TDA報告書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA報告書書式M.* INTO #scdmst FROM TDA報告書書式M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #scdmst SET 演習CD = @演習CD FROM #scdmst 
 
INSERT TDA報告書書式M SELECT #scdmst.* FROM  #scdmst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/* TDA株主資本等変動計算書書式M  */
DELETE FROM TDA株主資本等変動計算書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA株主資本等変動計算書書式M.* INTO #smemst FROM TDA株主資本等変動計算書書式M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #smemst SET 演習CD = @演習CD FROM #smemst 

INSERT TDA株主資本等変動計算書書式M SELECT #smemst.* FROM #smemst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/* 市場M  */
DELETE FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA市場M.* INTO #shijyomst FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #shijyomst SET 演習CD = @演習CD FROM #shijyomst 
 
INSERT TDA市場M SELECT #shijyomst.* FROM  #shijyomst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/* 小売販売M  */
DELETE FROM TKH小売販売M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TKH小売販売M.* INTO #kourimst FROM TKH小売販売M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

UPDATE #kourimst SET 演習CD = @演習CD FROM #kourimst 
 
INSERT TKH小売販売M SELECT #kourimst.* FROM #kourimst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/*  会社M    */
DELETE FROM TDA会社M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND TDA会社M.学生番号 = ''
	AND 会社CD IN (SELECT A.会社CD
		FROM (SELECT * FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD) A
		FULL OUTER JOIN (SELECT * FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD) B
			ON A.システムCD = B.システムCD AND A.会社CD = B.会社CD
		WHERE B.演習CD IS NULL	)

SELECT TDA会社M.* INTO #thsmst FROM TDA会社M
WHERE TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @コピー元演習CD AND  TDA会社M.学生番号 = ''
	AND 会社CD IN (SELECT B.会社CD
		FROM (SELECT * FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD) A
		FULL OUTER JOIN (SELECT * FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD) B
			ON A.システムCD = B.システムCD AND A.会社CD = B.会社CD
		WHERE  A.演習CD IS NULL	)

UPDATE #thsmst SET 演習CD = @演習CD FROM #thsmst

INSERT TDA会社M SELECT #thsmst.* FROM #thsmst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/* TGB銀行口座F  */
DELETE 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.学生番号 = ''

SELECT TGB銀行口座F.*
INTO #TMP_TGB銀行口座F
FROM TGB銀行口座F
INNER JOIN TGB銀行口座入出金TRN
	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 TGB銀行口座F.システムCD = @システムCD AND TGB銀行口座F.演習CD = @コピー元演習CD AND TGB銀行口座入出金TRN.処理時期区分 = 0 AND TDA会社M.学生番号 = ''

UPDATE #TMP_TGB銀行口座F SET 演習CD = @演習CD FROM #TMP_TGB銀行口座F 

INSERT TGB銀行口座F SELECT #TMP_TGB銀行口座F.* FROM  #TMP_TGB銀行口座F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TGB銀行口座F FROM TGB銀行口座F
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @演習CD
	AND LEFT(TGB銀行口座F.銀行CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TGB銀行口座F.*
INTO #TMP2_TGB銀行口座F
FROM TGB銀行口座F
WHERE TGB銀行口座F.システムCD = @システムCD
	AND TGB銀行口座F.演習CD = @コピー元演習CD
	AND LEFT(TGB銀行口座F.銀行CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TGB銀行口座F
SET 演習CD = @演習CD
	, 処理日 = @会計開始日
FROM #TMP2_TGB銀行口座F 

--テンポラリテーブルから本テーブルにコピー
INSERT TGB銀行口座F
SELECT #TMP2_TGB銀行口座F.*
FROM #TMP2_TGB銀行口座F


/* TGB銀行口座入出金TRN  */
DELETE 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 TGB銀行口座入出金TRN.システムCD = @システムCD AND TGB銀行口座入出金TRN.演習CD = @演習CD AND TGB銀行口座入出金TRN.処理時期区分 = 0 AND TDA会社M.学生番号 = ''

SELECT TGB銀行口座入出金TRN.*
INTO #TMP_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 TGB銀行口座入出金TRN.システムCD = @システムCD
  AND TGB銀行口座入出金TRN.演習CD = @コピー元演習CD
  AND TDA会社M.学生番号 = ''
  AND TGB銀行口座入出金TRN.処理時期区分 = 0 

UPDATE #TMP_TGB銀行口座入出金TRN SET 演習CD = @演習CD, 処理日 = @会計開始日 FROM #TMP_TGB銀行口座入出金TRN 

INSERT TGB銀行口座入出金TRN SELECT #TMP_TGB銀行口座入出金TRN.* FROM  #TMP_TGB銀行口座入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TGB銀行口座入出金TRN FROM TGB銀行口座入出金TRN
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @演習CD
	AND LEFT(TGB銀行口座入出金TRN.銀行CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TGB銀行口座入出金TRN.*
INTO #TMP2_TGB銀行口座入出金TRN
FROM TGB銀行口座入出金TRN
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @コピー元演習CD
	AND LEFT(TGB銀行口座入出金TRN.銀行CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TGB銀行口座入出金TRN
SET 演習CD = @演習CD
	, 処理日 = @会計開始日
FROM #TMP2_TGB銀行口座入出金TRN 

--テンポラリテーブルから本テーブルにコピー
INSERT TGB銀行口座入出金TRN
SELECT #TMP2_TGB銀行口座入出金TRN.*
FROM #TMP2_TGB銀行口座入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGA入出庫TRN */
DELETE 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 TDA会社M.学生番号 = '' AND TGA入出庫TRN.処理時期区分 = 0

SELECT TGA入出庫TRN.*
INTO #TMP_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 TDA会社M.学生番号 = '' AND TGA入出庫TRN.処理時期区分 = 0 

UPDATE #TMP_TGA入出庫TRN SET 演習CD = @演習CD, 処理日 = @会計開始日 FROM #TMP_TGA入出庫TRN

INSERT TGA入出庫TRN SELECT #TMP_TGA入出庫TRN.* FROM  #TMP_TGA入出庫TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TGA入出庫TRN FROM TGA入出庫TRN
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @演習CD
	AND LEFT(TGA入出庫TRN.会社CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TGA入出庫TRN.*
INTO #TMP2_TGA入出庫TRN
FROM TGA入出庫TRN
WHERE TGA入出庫TRN.システムCD = @システムCD
	AND TGA入出庫TRN.演習CD = @コピー元演習CD
	AND LEFT(TGA入出庫TRN.会社CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TGA入出庫TRN
SET 演習CD = @演習CD
	, 処理日 = @会計開始日
FROM #TMP2_TGA入出庫TRN 

--テンポラリテーブルから本テーブルにコピー
INSERT TGA入出庫TRN
SELECT #TMP2_TGA入出庫TRN.*
FROM #TMP2_TGA入出庫TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGA入出庫明細TRN  */
DELETE 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
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 TDA会社M.学生番号 = '' AND TGA入出庫TRN.処理時期区分 = 0

SELECT TGA入出庫明細TRN.*
INTO #TMP_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
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 TDA会社M.学生番号 = '' AND TGA入出庫TRN.処理時期区分 = 0

UPDATE #TMP_TGA入出庫明細TRN SET 演習CD = @演習CD FROM #TMP_TGA入出庫明細TRN 

INSERT TGA入出庫明細TRN SELECT #TMP_TGA入出庫明細TRN.* FROM  #TMP_TGA入出庫明細TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TGA入出庫明細TRN FROM TGA入出庫明細TRN
WHERE TGA入出庫明細TRN.システムCD = @システムCD
	AND TGA入出庫明細TRN.演習CD = @演習CD
	AND LEFT(TGA入出庫明細TRN.会社CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TGA入出庫明細TRN.*
INTO #TMP2_TGA入出庫明細TRN
FROM TGA入出庫明細TRN
WHERE TGA入出庫明細TRN.システムCD = @システムCD
	AND TGA入出庫明細TRN.演習CD = @コピー元演習CD
	AND LEFT(TGA入出庫明細TRN.会社CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TGA入出庫明細TRN
SET 演習CD = @演習CD
FROM #TMP2_TGA入出庫明細TRN 

--テンポラリテーブルから本テーブルにコピー
INSERT TGA入出庫明細TRN
SELECT #TMP2_TGA入出庫明細TRN.*
FROM #TMP2_TGA入出庫明細TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGC寄託在庫F */
DELETE TGC寄託在庫F
FROM TGC寄託在庫F
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @演習CD AND TGC寄託在庫F.寄託受付番号 = 0 AND TDA会社M.学生番号 = ''

SELECT TGC寄託在庫F.*
INTO #TMP_TGC寄託在庫F
FROM TGC寄託在庫F
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @コピー元演習CD AND TGC寄託在庫F.寄託受付番号 = 0 AND TDA会社M.学生番号 = ''

UPDATE #TMP_TGC寄託在庫F SET 演習CD = @演習CD FROM #TMP_TGC寄託在庫F

INSERT TGC寄託在庫F SELECT #TMP_TGC寄託在庫F.* FROM #TMP_TGC寄託在庫F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TGC寄託在庫F FROM TGC寄託在庫F
WHERE TGC寄託在庫F.システムCD = @システムCD
	AND TGC寄託在庫F.演習CD = @演習CD
	AND LEFT(TGC寄託在庫F.会社CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TGC寄託在庫F.*
INTO #TMP2_TGC寄託在庫F
FROM TGC寄託在庫F
WHERE TGC寄託在庫F.システムCD = @システムCD
	AND TGC寄託在庫F.演習CD = @コピー元演習CD
	AND LEFT(TGC寄託在庫F.会社CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TGC寄託在庫F
SET 演習CD = @演習CD
FROM #TMP2_TGC寄託在庫F 

--テンポラリテーブルから本テーブルにコピー
INSERT TGC寄託在庫F
SELECT #TMP2_TGC寄託在庫F.*
FROM #TMP2_TGC寄託在庫F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGC寄託在庫明細F  */
DELETE TGC寄託在庫明細F
FROM TGC寄託在庫明細F
INNER JOIN TGC寄託在庫F
	ON TGC寄託在庫明細F.システムCD = TGC寄託在庫F.システムCD
	AND TGC寄託在庫明細F.演習CD = TGC寄託在庫F.演習CD
	AND TGC寄託在庫明細F.会社CD = TGC寄託在庫F.会社CD
	AND TGC寄託在庫明細F.寄託依頼会社CD = TGC寄託在庫F.寄託依頼会社CD
	AND TGC寄託在庫明細F.寄託受付番号 = TGC寄託在庫F.寄託受付番号
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE TGC寄託在庫明細F.システムCD = @システムCD AND TGC寄託在庫明細F.演習CD = @演習CD AND TGC寄託在庫F.寄託受付番号 = 0 AND TDA会社M.学生番号 = ''

SELECT TGC寄託在庫明細F.*
INTO #TMP_TGC寄託在庫明細F
FROM TGC寄託在庫明細F
INNER JOIN TGC寄託在庫F
	ON TGC寄託在庫明細F.システムCD = TGC寄託在庫F.システムCD
	AND TGC寄託在庫明細F.演習CD = TGC寄託在庫F.演習CD
	AND TGC寄託在庫明細F.会社CD = TGC寄託在庫F.会社CD
	AND TGC寄託在庫明細F.寄託依頼会社CD = TGC寄託在庫F.寄託依頼会社CD
	AND TGC寄託在庫明細F.寄託受付番号 = TGC寄託在庫F.寄託受付番号
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE TGC寄託在庫明細F.システムCD = @システムCD AND TGC寄託在庫明細F.演習CD = @コピー元演習CD AND TGC寄託在庫F.寄託受付番号 = 0 AND TDA会社M.学生番号 = ''

UPDATE #TMP_TGC寄託在庫明細F SET 演習CD = @演習CD FROM #TMP_TGC寄託在庫明細F

INSERT TGC寄託在庫明細F SELECT #TMP_TGC寄託在庫明細F.* FROM #TMP_TGC寄託在庫明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TGC寄託在庫明細F FROM TGC寄託在庫明細F
WHERE TGC寄託在庫明細F.システムCD = @システムCD
	AND TGC寄託在庫明細F.演習CD = @演習CD
	AND LEFT(TGC寄託在庫明細F.会社CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TGC寄託在庫明細F.*
INTO #TMP2_TGC寄託在庫明細F
FROM TGC寄託在庫明細F
WHERE TGC寄託在庫明細F.システムCD = @システムCD
	AND TGC寄託在庫明細F.演習CD = @コピー元演習CD
	AND LEFT(TGC寄託在庫明細F.会社CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TGC寄託在庫明細F
SET 演習CD = @演習CD
FROM #TMP2_TGC寄託在庫明細F 

--テンポラリテーブルから本テーブルにコピー
INSERT TGC寄託在庫明細F
SELECT #TMP2_TGC寄託在庫明細F.*
FROM #TMP2_TGC寄託在庫明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TSK伝票F  */
DELETE 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 TDA会社M.学生番号 = '' AND TSK伝票F.伝票処理区分 = 0

SELECT TSK伝票F.*
INTO #TMP_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 TDA会社M.学生番号 = '' AND TSK伝票F.伝票処理区分 = 0

UPDATE #TMP_TSK伝票F SET 演習CD = @演習CD, 取引日 = @会計開始日 FROM #TMP_TSK伝票F 

INSERT TSK伝票F SELECT #TMP_TSK伝票F.* FROM  #TMP_TSK伝票F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TSK伝票F FROM TSK伝票F
WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND LEFT(TSK伝票F.会社CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TSK伝票F.*
INTO #TMP2_TSK伝票F
FROM TSK伝票F

WHERE TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @コピー元演習CD
	AND LEFT(TSK伝票F.会社CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TSK伝票F
SET 演習CD = @演習CD
	, 取引日 = @会計開始日
FROM #TMP2_TSK伝票F 

--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票F
SELECT #TMP2_TSK伝票F.*
FROM #TMP2_TSK伝票F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TSK伝票明細F  */
DELETE 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 TDA会社M.学生番号 = '' AND TSK伝票F.伝票処理区分 = 0

SELECT TSK伝票明細F.*
INTO #TMP_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 TDA会社M.学生番号 = '' AND TSK伝票F.伝票処理区分 = 0

UPDATE #TMP_TSK伝票明細F SET 演習CD = @演習CD FROM #TMP_TSK伝票明細F 

INSERT TSK伝票明細F SELECT #TMP_TSK伝票明細F.* FROM  #TMP_TSK伝票明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TSK伝票明細F FROM TSK伝票明細F
WHERE TSK伝票明細F.システムCD = @システムCD
	AND TSK伝票明細F.演習CD = @演習CD
	AND LEFT(TSK伝票明細F.会社CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TSK伝票明細F.*
INTO #TMP2_TSK伝票明細F
FROM TSK伝票明細F
WHERE TSK伝票明細F.システムCD = @システムCD
	AND TSK伝票明細F.演習CD = @コピー元演習CD
	AND LEFT(TSK伝票明細F.会社CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TSK伝票明細F
SET 演習CD = @演習CD
FROM #TMP2_TSK伝票明細F 

--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票明細F
SELECT #TMP2_TSK伝票明細F.*
FROM #TMP2_TSK伝票明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TSK伝票仕入売上明細F  */
DELETE 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 TDA会社M.学生番号 = '' AND TSK伝票F.伝票処理区分 = 0

SELECT TSK伝票仕入売上明細F.*
INTO #TMP_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 TDA会社M.学生番号 = '' AND TSK伝票F.伝票処理区分 = 0

UPDATE #TMP_TSK伝票仕入売上明細F SET 演習CD = @演習CD, 取引日 = @会計開始日 FROM #TMP_TSK伝票仕入売上明細F 
 
INSERT TSK伝票仕入売上明細F SELECT #TMP_TSK伝票仕入売上明細F.* FROM  #TMP_TSK伝票仕入売上明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TSK伝票仕入売上明細F FROM TSK伝票仕入売上明細F
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
	AND TSK伝票仕入売上明細F.演習CD = @演習CD
	AND LEFT(TSK伝票仕入売上明細F.会社CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TSK伝票仕入売上明細F.*
INTO #TMP2_TSK伝票仕入売上明細F
FROM TSK伝票仕入売上明細F
WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
	AND TSK伝票仕入売上明細F.演習CD = @コピー元演習CD
	AND LEFT(TSK伝票仕入売上明細F.会社CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TSK伝票仕入売上明細F
SET 演習CD = @演習CD
	, 取引日 = @会計開始日
FROM #TMP2_TSK伝票仕入売上明細F 

--テンポラリテーブルから本テーブルにコピー
INSERT TSK伝票仕入売上明細F
SELECT #TMP2_TSK伝票仕入売上明細F.*
FROM #TMP2_TSK伝票仕入売上明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGK現金入出金TRN  */
DELETE 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 TDA会社M.学生番号 = '' AND TGK現金入出金TRN.処理時期区分 = 0

SELECT TGK現金入出金TRN.*
INTO #TMP_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 TDA会社M.学生番号 = '' AND TGK現金入出金TRN.処理時期区分 = 0

UPDATE #TMP_TGK現金入出金TRN SET 演習CD = @演習CD, 処理日 = @会計開始日 FROM #TMP_TGK現金入出金TRN 

INSERT TGK現金入出金TRN SELECT #TMP_TGK現金入出金TRN.* FROM  #TMP_TGK現金入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

--現演習のMSTデータを削除
DELETE TGK現金入出金TRN FROM TGK現金入出金TRN
WHERE TGK現金入出金TRN.システムCD = @システムCD
	AND TGK現金入出金TRN.演習CD = @演習CD
	AND LEFT(TGK現金入出金TRN.会社CD, 4) = 'MST:'

--コピー元演習のMSTデータのみテンポラリテーブルにコピー
SELECT TGK現金入出金TRN.*
INTO #TMP2_TGK現金入出金TRN
FROM TGK現金入出金TRN
WHERE TGK現金入出金TRN.システムCD = @システムCD
	AND TGK現金入出金TRN.演習CD = @コピー元演習CD
	AND LEFT(TGK現金入出金TRN.会社CD, 4) = 'MST:'

--演習CD及び高度な設定を更新
UPDATE #TMP2_TGK現金入出金TRN
SET 演習CD = @演習CD
	, 処理日 = @会計開始日
FROM #TMP2_TGK現金入出金TRN 

--テンポラリテーブルから本テーブルにコピー
INSERT TGK現金入出金TRN
SELECT #TMP2_TGK現金入出金TRN.*
FROM #TMP2_TGK現金入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


--寄託倉庫利用時のみ
if @寄託倉庫利用 = '1'
begin 
/* TTA社員台帳M  */
DELETE TTA社員台帳M
FROM TTA社員台帳M
INNER JOIN TDA会社M
	ON TTA社員台帳M.システムCD = TDA会社M.システムCD
	AND TTA社員台帳M.演習CD = TDA会社M.演習CD
	AND TTA社員台帳M.会社CD = TDA会社M.会社CD
WHERE TTA社員台帳M.システムCD = @システムCD AND TTA社員台帳M.演習CD = @演習CD AND TDA会社M.学生番号 = ''

SELECT TTA社員台帳M.*
INTO #TMP_TTA社員台帳M
FROM TTA社員台帳M
INNER JOIN TDA会社M
	ON TTA社員台帳M.システムCD = TDA会社M.システムCD
	AND TTA社員台帳M.演習CD = TDA会社M.演習CD
	AND TTA社員台帳M.会社CD = TDA会社M.会社CD
WHERE TTA社員台帳M.システムCD = @システムCD AND TTA社員台帳M.演習CD = @コピー元演習CD AND (TDA会社M.学生番号 = '' OR TDA会社M.学生番号 IS NULL)

UPDATE #TMP_TTA社員台帳M SET 演習CD = @演習CD FROM #TMP_TTA社員台帳M 

INSERT TTA社員台帳M SELECT #TMP_TTA社員台帳M.* FROM #TMP_TTA社員台帳M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

end

commit transaction

SELECT 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM演習更新データコピー会社学生繰越
@システムCD varchar(12), @演習CD varchar(12)
, @会社CD varchar(20)
, @学生番号 varchar(12)
, @期末繰越先演習CD varchar(12)

AS

/* 以下のテーブルは残高集計時にナンバリング出来ないのでプロシージャ外で処理する
TGA入出庫明細TRN
TGA入出庫TRN
TGC寄託在庫明細F
TGC寄託在庫F
TSK伝票明細F
TSK伝票F
*/

/* 修正履歴（テーブルを追加した場合は当プロシージャにも追加する必要があるので必ず記入すること！）
*/

declare @演習区分 varchar(2)
SET @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

declare @会計開始日 datetime
SET @会計開始日 = (SELECT 会計開始日 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD)

begin transaction


/* TC4演習許可学生M（現演習を解除し繰越先演習をセットする） */

--現演習の参加グループ設定を参加学生設定に転送する（整合性のため全生徒を対象）
INSERT INTO TC4演習許可学生M (システムCD, 演習CD, 学生番号)
SELECT TC5学生M.システムCD
	, @演習CD
	, TC5学生M.学生番号
FROM (
	SELECT TC5学生M.システムCD
		, TC5学生M.学生番号
	FROM TC5学生M
	LEFT OUTER JOIN TC4演習許可学生M
		ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
		AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
	LEFT OUTER JOIN TC4演習許可学生グループM
		ON TC5学生M.システムCD = TC4演習許可学生グループM.システムCD
		AND TC5学生M.学生グループCD = TC4演習許可学生グループM.学生グループCD
	WHERE (TC4演習許可学生グループM.演習CD = @演習CD OR TC4演習許可学生M.演習CD = @演習CD)
	GROUP BY TC5学生M.システムCD
		, TC5学生M.学生番号
) TC5学生M
LEFT OUTER JOIN TC4演習許可学生M
	ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
	AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
	AND TC4演習許可学生M.演習CD = @演習CD
WHERE TC4演習許可学生M.演習CD IS NULL	--存在しない生徒のみINSERT

--現演習の参加グループ設定を解除する
DELETE FROM TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 演習CD = @演習CD

--期末繰越先演習の参加グループ設定を参加学生設定に転送する（整合性のため全生徒を対象）
INSERT INTO TC4演習許可学生M (システムCD, 演習CD, 学生番号)
SELECT TC5学生M.システムCD
	, @期末繰越先演習CD
	, TC5学生M.学生番号
FROM (
	SELECT TC5学生M.システムCD
		, TC5学生M.学生番号
	FROM TC5学生M
	LEFT OUTER JOIN TC4演習許可学生M
		ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
		AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
	LEFT OUTER JOIN TC4演習許可学生グループM
		ON TC5学生M.システムCD = TC4演習許可学生グループM.システムCD
		AND TC5学生M.学生グループCD = TC4演習許可学生グループM.学生グループCD
	WHERE (TC4演習許可学生グループM.演習CD = @期末繰越先演習CD OR TC4演習許可学生M.演習CD = @期末繰越先演習CD)
	GROUP BY TC5学生M.システムCD
		, TC5学生M.学生番号
) TC5学生M
LEFT OUTER JOIN TC4演習許可学生M
	ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
	AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
	AND TC4演習許可学生M.演習CD = @期末繰越先演習CD
WHERE TC4演習許可学生M.演習CD IS NULL	--存在しない生徒のみINSERT

--期末繰越先演習の参加グループ設定を解除する
DELETE FROM TC4演習許可学生グループM
WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD

--現演習の参加学生設定を繰越先演習の参加学生設定に転送する
if (not(exists(SELECT 学生番号 FROM TC4演習許可学生M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD AND 学生番号 = @学生番号)))
begin
	INSERT INTO TC4演習許可学生M (システムCD, 演習CD, 学生番号)
	VALUES (@システムCD, @期末繰越先演習CD, @学生番号)
end
DELETE FROM TC4演習許可学生M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号

--模擬実践の場合は同一会社を利用する他の生徒の参加学生設定も転送する
if (@演習区分 = 'G')
begin
	INSERT INTO TC4演習許可学生M (システムCD, 演習CD, 学生番号)
	SELECT TC4演習許可学生M.システムCD
		, @期末繰越先演習CD
		, TC4演習許可学生M.学生番号
	FROM TC4演習許可学生M
	INNER JOIN TC6演習履歴M
		ON TC4演習許可学生M.システムCD = TC6演習履歴M.システムCD
		AND TC4演習許可学生M.演習CD = TC6演習履歴M.演習CD
		AND TC4演習許可学生M.学生番号 = TC6演習履歴M.学生番号
	LEFT OUTER JOIN (SELECT * FROM TC4演習許可学生M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD) 繰越先演習許可学生M
		ON TC4演習許可学生M.システムCD = 繰越先演習許可学生M.システムCD
		AND TC4演習許可学生M.学生番号 = 繰越先演習許可学生M.学生番号
	WHERE TC4演習許可学生M.システムCD = @システムCD AND TC4演習許可学生M.演習CD = @演習CD
		AND 繰越先演習許可学生M.演習CD IS NULL
		AND TC6演習履歴M.選択会社CD = @会社CD

	if @@error <> 0
	begin
		rollback transaction
		SELECT -1
		return
	end

	DELETE FROM TC4演習許可学生M
	FROM TC4演習許可学生M
	INNER JOIN TC6演習履歴M
		ON TC4演習許可学生M.システムCD = TC6演習履歴M.システムCD
		AND TC4演習許可学生M.演習CD = TC6演習履歴M.演習CD
		AND TC4演習許可学生M.学生番号 = TC6演習履歴M.学生番号
	WHERE TC4演習許可学生M.システムCD = @システムCD AND TC4演習許可学生M.演習CD = @演習CD
		AND TC6演習履歴M.選択会社CD = @会社CD
end

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA会社M（まだ繰越処理されていない会社は常に更新する） */

--DELETE FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD
--	AND (前演習繰越フラグ <> '1' OR 前演習繰越フラグ IS NULL)
--	AND (@演習区分 = 'G' OR (@演習区分 = 'P' AND 学生番号 = @学生番号))

--SELECT TDA会社M.* INTO #TMP_TDA会社M FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD
--	AND (次演習繰越フラグ <> '1' OR 次演習繰越フラグ IS NULL)
--	AND (@演習区分 = 'G' OR (@演習区分 = 'P' AND 学生番号 = @学生番号))

--上のフラグ判定はデータ復元でフラグ不整合が起きるので廃止（161213小野）
SELECT TDA会社M.*
INTO #TMP_TDA会社M
FROM TDA会社M
LEFT OUTER JOIN TDA会社M 繰越先会社M
	ON TDA会社M.システムCD = 繰越先会社M.システムCD
	AND 繰越先会社M.演習CD = @期末繰越先演習CD
	AND TDA会社M.会社CD = 繰越先会社M.会社CD
WHERE TDA会社M.システムCD = @システムCD
	AND TDA会社M.演習CD = @演習CD
	AND 繰越先会社M.会社CD IS NULL
	AND (@演習区分 = 'G' OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TDA会社M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA会社M

INSERT TDA会社M SELECT #TMP_TDA会社M.* FROM #TMP_TDA会社M

UPDATE TDA会社M
SET 前演習繰越フラグ = '1'
WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND 会社CD = @会社CD) OR (@演習区分 = 'P' AND 学生番号 = @学生番号))

UPDATE TDA会社M
SET 次演習繰越フラグ = '1'
WHERE システムCD = @システムCD AND 演習CD = @演習CD
	AND ((@演習区分 = 'G' AND 会社CD = @会社CD) OR (@演習区分 = 'P' AND 学生番号 = @学生番号))

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA勘定科目M */

DELETE FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD

SELECT TDA勘定科目M.* INTO #TMP_TDA勘定科目M FROM TDA勘定科目M WHERE システムCD = @システムCD AND 演習CD = @演習CD

UPDATE #TMP_TDA勘定科目M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA勘定科目M

INSERT TDA勘定科目M SELECT #TMP_TDA勘定科目M.* FROM #TMP_TDA勘定科目M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA勘定科目会社学生M */

DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND 所有会社CD = @会社CD) OR (@演習区分 = 'P' AND 所有会社CD = @学生番号))

SELECT TDA勘定科目会社学生M.* INTO #TMP_TDA勘定科目会社学生M FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD
	AND ((@演習区分 = 'G' AND 所有会社CD = @会社CD) OR (@演習区分 = 'P' AND 所有会社CD = @学生番号))

UPDATE #TMP_TDA勘定科目会社学生M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA勘定科目会社学生M

INSERT TDA勘定科目会社学生M SELECT #TMP_TDA勘定科目会社学生M.* FROM #TMP_TDA勘定科目会社学生M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA商品M */

DELETE FROM TDA商品M
FROM TDA商品M
WHERE TDA商品M.システムCD = @システムCD AND TDA商品M.演習CD = @期末繰越先演習CD
	AND (((@演習区分 = 'G' AND TDA商品M.所有会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA商品M.学生番号 = @学生番号))
		OR (TDA商品M.所有会社CD = '' OR TDA商品M.所有会社CD IS NULL))

SELECT TDA商品M.*
INTO #TMP_TDA商品M
FROM TDA商品M
WHERE TDA商品M.システムCD = @システムCD AND TDA商品M.演習CD = @演習CD
	AND (((@演習区分 = 'G' AND TDA商品M.所有会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA商品M.学生番号 = @学生番号))
		OR (TDA商品M.所有会社CD = '' OR TDA商品M.所有会社CD IS NULL))

UPDATE #TMP_TDA商品M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA商品M

INSERT TDA商品M SELECT #TMP_TDA商品M.* FROM #TMP_TDA商品M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA材料M */

DELETE FROM TDA材料M
FROM TDA材料M
WHERE TDA材料M.システムCD = @システムCD AND TDA材料M.演習CD = @期末繰越先演習CD
	AND (((@演習区分 = 'G' AND TDA材料M.所有会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA材料M.学生番号 = @学生番号))
		OR (TDA材料M.所有会社CD = '' OR TDA材料M.所有会社CD IS NULL))

SELECT TDA材料M.*
INTO #TMP_TDA材料M
FROM TDA材料M
WHERE TDA材料M.システムCD = @システムCD AND TDA材料M.演習CD = @演習CD
	AND (((@演習区分 = 'G' AND TDA材料M.所有会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA材料M.学生番号 = @学生番号))
		OR (TDA材料M.所有会社CD = '' OR TDA材料M.所有会社CD IS NULL))

UPDATE #TMP_TDA材料M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA材料M

INSERT TDA材料M SELECT #TMP_TDA材料M.* FROM #TMP_TDA材料M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA報告書書式M */

DELETE FROM TDA報告書書式M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD

SELECT TDA報告書書式M.* INTO #TMP_TDA報告書書式M FROM TDA報告書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD

UPDATE #TMP_TDA報告書書式M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA報告書書式M

INSERT TDA報告書書式M SELECT #TMP_TDA報告書書式M.* FROM #TMP_TDA報告書書式M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA株主資本等変動計算書書式M */

DELETE FROM TDA株主資本等変動計算書書式M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD

SELECT TDA株主資本等変動計算書書式M.* INTO #TMP_TDA株主資本等変動計算書書式M FROM TDA株主資本等変動計算書書式M WHERE システムCD = @システムCD AND 演習CD = @演習CD

UPDATE #TMP_TDA株主資本等変動計算書書式M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA株主資本等変動計算書書式M

INSERT TDA株主資本等変動計算書書式M SELECT #TMP_TDA株主資本等変動計算書書式M.* FROM #TMP_TDA株主資本等変動計算書書式M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA市場M */

DELETE FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD

SELECT TDA市場M.* INTO #TMP_TDA市場M FROM TDA市場M WHERE システムCD = @システムCD AND 演習CD = @演習CD

UPDATE #TMP_TDA市場M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA市場M

INSERT TDA市場M SELECT #TMP_TDA市場M.* FROM #TMP_TDA市場M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA表記名称M */

DELETE FROM TDA表記名称M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD

SELECT TDA表記名称M.* INTO #TMP_TDA表記名称M FROM TDA表記名称M WHERE システムCD = @システムCD AND 演習CD = @演習CD

UPDATE #TMP_TDA表記名称M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA表記名称M

INSERT TDA表記名称M SELECT #TMP_TDA表記名称M.* FROM #TMP_TDA表記名称M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA部品展開M */

DELETE FROM TDA部品展開M
FROM TDA部品展開M
INNER JOIN TDA会社M
	ON TDA部品展開M.システムCD = TDA会社M.システムCD
	AND TDA部品展開M.演習CD = TDA会社M.演習CD
	AND TDA部品展開M.会社CD = TDA会社M.会社CD
WHERE TDA部品展開M.システムCD = @システムCD AND TDA部品展開M.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TDA部品展開M.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

SELECT TDA部品展開M.*
INTO #TMP_TDA部品展開M
FROM TDA部品展開M
INNER JOIN TDA会社M
	ON TDA部品展開M.システムCD = TDA会社M.システムCD
	AND TDA部品展開M.演習CD = TDA会社M.演習CD
	AND TDA部品展開M.会社CD = TDA会社M.会社CD
WHERE TDA部品展開M.システムCD = @システムCD AND TDA部品展開M.演習CD = @演習CD
	AND ((@演習区分 = 'G' AND TDA部品展開M.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TDA部品展開M SET 演習CD = @期末繰越先演習CD FROM #TMP_TDA部品展開M

INSERT TDA部品展開M SELECT #TMP_TDA部品展開M.* FROM #TMP_TDA部品展開M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGA手形明細F（支払期日が会計開始日以後の手形をコピーする）  */

DELETE FROM TGA手形明細F
FROM TGA手形明細F
INNER JOIN TDA会社M
	ON TGA手形明細F.システムCD = TDA会社M.システムCD
	AND TGA手形明細F.演習CD = TDA会社M.演習CD
	AND TGA手形明細F.会社CD = TDA会社M.会社CD
WHERE TGA手形明細F.システムCD = @システムCD AND TGA手形明細F.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TGA手形明細F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

SELECT TGA手形明細F.*
INTO #TMP_TGA手形明細F
FROM TGA手形明細F
INNER JOIN TGA手形F
	ON TGA手形明細F.システムCD = TGA手形F.システムCD
	AND TGA手形明細F.演習CD = TGA手形F.演習CD
	AND TGA手形明細F.会社CD = TGA手形F.会社CD
	AND TGA手形明細F.作成会社CD = TGA手形F.作成会社CD
	AND TGA手形明細F.文書種類CD = TGA手形F.文書種類CD
	AND TGA手形明細F.文書内容CD = TGA手形F.文書内容CD
INNER JOIN TDA会社M
	ON TGA手形明細F.システムCD = TDA会社M.システムCD
	AND TGA手形明細F.演習CD = TDA会社M.演習CD
	AND TGA手形明細F.会社CD = TDA会社M.会社CD
WHERE TGA手形明細F.システムCD = @システムCD AND TGA手形明細F.演習CD = @演習CD
	AND TGA手形F.支払期日 >= @会計開始日
	AND ((@演習区分 = 'G' AND TGA手形明細F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TGA手形明細F SET 演習CD = @期末繰越先演習CD FROM #TMP_TGA手形明細F 

INSERT TGA手形明細F SELECT #TMP_TGA手形明細F.* FROM #TMP_TGA手形明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGA手形F（支払期日が会計開始日以後の手形をコピーする）  */

DELETE FROM TGA手形F
FROM TGA手形F
INNER JOIN TDA会社M
	ON TGA手形F.システムCD = TDA会社M.システムCD
	AND TGA手形F.演習CD = TDA会社M.演習CD
	AND TGA手形F.会社CD = TDA会社M.会社CD
WHERE TGA手形F.システムCD = @システムCD AND TGA手形F.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TGA手形F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

SELECT TGA手形F.*
INTO #TMP_TGA手形F
FROM TGA手形F
INNER JOIN TDA会社M
	ON TGA手形F.システムCD = TDA会社M.システムCD
	AND TGA手形F.演習CD = TDA会社M.演習CD
	AND TGA手形F.会社CD = TDA会社M.会社CD
WHERE TGA手形F.システムCD = @システムCD AND TGA手形F.演習CD = @演習CD
	AND TGA手形F.支払期日 >= @会計開始日
	AND ((@演習区分 = 'G' AND TGA手形F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TGA手形F SET 演習CD = @期末繰越先演習CD FROM #TMP_TGA手形F

INSERT TGA手形F SELECT #TMP_TGA手形F.* FROM #TMP_TGA手形F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGB銀行口座F  */

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 ((@演習区分 = 'G' AND TGB銀行口座F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

SELECT TGB銀行口座F.*
INTO #TMP_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 ((@演習区分 = 'G' AND TGB銀行口座F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TGB銀行口座F SET 演習CD = @期末繰越先演習CD FROM #TMP_TGB銀行口座F

INSERT TGB銀行口座F SELECT #TMP_TGB銀行口座F.* FROM  #TMP_TGB銀行口座F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGB銀行口座入出金TRN  */

DELETE 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 TGB銀行口座F.システムCD = @システムCD AND TGB銀行口座F.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TGB銀行口座F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))
	AND TGB銀行口座入出金TRN.処理時期区分 = 0

--残高を集計しテンポラリに挿入する
SELECT TGB銀行口座入出金TRN.システムCD
	, TGB銀行口座入出金TRN.演習CD
	, TGB銀行口座入出金TRN.銀行CD
	, TGB銀行口座入出金TRN.口座区分
	, TGB銀行口座入出金TRN.口座番号
	, SUM(CASE WHEN RIGHT(TGB銀行口座入出金TRN.銀行取引区分, 1) = 'S' THEN TGB銀行口座入出金TRN.金額 * -1 ELSE TGB銀行口座入出金TRN.金額 END) AS 金額
INTO #TMP_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 TGB銀行口座F.システムCD = @システムCD AND TGB銀行口座F.演習CD = @演習CD
	AND ((@演習区分 = 'G' AND TGB銀行口座F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))
GROUP BY TGB銀行口座入出金TRN.システムCD
	, TGB銀行口座入出金TRN.演習CD
	, TGB銀行口座入出金TRN.銀行CD
	, TGB銀行口座入出金TRN.口座区分
	, TGB銀行口座入出金TRN.口座番号

UPDATE #TMP_TGB銀行口座入出金TRN SET 演習CD = @期末繰越先演習CD FROM #TMP_TGB銀行口座入出金TRN

INSERT INTO TGB銀行口座入出金TRN (システムCD
	, 演習CD
	, 銀行CD
	, 口座区分
	, 口座番号
	, 入出金CD
	, 処理時期区分
	, 処理日
	, 金額
	, 銀行取引区分
	, 摘要
	, 学生番号)
SELECT システムCD
	, 演習CD
	, 銀行CD
	, 口座区分
	, 口座番号
	, 0	--入出金CD
	, 0	--処理時期区分
	, @会計開始日	--処理日
	, 金額
	, 'GN'	--銀行取引区分
	, '期首繰越'	--摘要
	, ''
FROM #TMP_TGB銀行口座入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGK現金入出金TRN  */

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 ((@演習区分 = 'G' AND TGK現金入出金TRN.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))
	AND TGK現金入出金TRN.処理時期区分 = 0

--残高を集計しテンポラリに挿入する
SELECT TGK現金入出金TRN.システムCD
	, TGK現金入出金TRN.演習CD
	, TGK現金入出金TRN.会社CD
	, SUM(CASE WHEN TGK現金入出金TRN.現金取引区分 = 'GS' THEN TGK現金入出金TRN.金額 * -1 ELSE TGK現金入出金TRN.金額 END) AS 金額
	, TDA会社M.学生番号
INTO #TMP_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 ((@演習区分 = 'G' AND TGK現金入出金TRN.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))
GROUP BY TGK現金入出金TRN.システムCD
	, TGK現金入出金TRN.演習CD
	, TGK現金入出金TRN.会社CD
	, TDA会社M.学生番号

UPDATE #TMP_TGK現金入出金TRN SET 演習CD = @期末繰越先演習CD FROM #TMP_TGK現金入出金TRN 

INSERT INTO TGK現金入出金TRN (システムCD
	, 演習CD
	, 会社CD
	, 現金入出金CD
	, 処理時期区分
	, 処理日
	, 金額
	, 現金取引区分
	, 摘要
	, 学生番号)
SELECT システムCD
	, 演習CD
	, 会社CD
	, 0	--現金入出金CD
	, 0	--処理時期区分
	, @会計開始日	--処理日
	, 金額
	, 'GN'	--現金取引区分
	, '期首繰越'	--摘要
	, 学生番号
FROM #TMP_TGK現金入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGPポータル会社F  */

DELETE FROM TGPポータル会社F
FROM TGPポータル会社F
INNER JOIN TDA会社M
	ON TGPポータル会社F.システムCD = TDA会社M.システムCD
	AND TGPポータル会社F.演習CD = TDA会社M.演習CD
	AND TGPポータル会社F.会社CD = TDA会社M.会社CD
WHERE TGPポータル会社F.システムCD = @システムCD AND TGPポータル会社F.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TGPポータル会社F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

SELECT TGPポータル会社F.*
INTO #TMP_TGPポータル会社F
FROM TGPポータル会社F
INNER JOIN TDA会社M
	ON TGPポータル会社F.システムCD = TDA会社M.システムCD
	AND TGPポータル会社F.演習CD = TDA会社M.演習CD
	AND TGPポータル会社F.会社CD = TDA会社M.会社CD
WHERE TGPポータル会社F.システムCD = @システムCD AND TGPポータル会社F.演習CD = @演習CD
	AND ((@演習区分 = 'G' AND TGPポータル会社F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TGPポータル会社F SET 演習CD = @期末繰越先演習CD FROM #TMP_TGPポータル会社F

INSERT TGPポータル会社F SELECT #TMP_TGPポータル会社F.* FROM #TMP_TGPポータル会社F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGPポータル商品F  */

DELETE FROM TGPポータル商品F
FROM TGPポータル商品F
INNER JOIN TDA会社M
	ON TGPポータル商品F.システムCD = TDA会社M.システムCD
	AND TGPポータル商品F.演習CD = TDA会社M.演習CD
	AND TGPポータル商品F.会社CD = TDA会社M.会社CD
WHERE TGPポータル商品F.システムCD = @システムCD AND TGPポータル商品F.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TGPポータル商品F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

SELECT TGPポータル商品F.*
INTO #TMP_TGPポータル商品F
FROM TGPポータル商品F
INNER JOIN TDA会社M
	ON TGPポータル商品F.システムCD = TDA会社M.システムCD
	AND TGPポータル商品F.演習CD = TDA会社M.演習CD
	AND TGPポータル商品F.会社CD = TDA会社M.会社CD
WHERE TGPポータル商品F.システムCD = @システムCD AND TGPポータル商品F.演習CD = @演習CD
	AND ((@演習区分 = 'G' AND TGPポータル商品F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TGPポータル商品F SET 演習CD = @期末繰越先演習CD FROM #TMP_TGPポータル商品F

INSERT TGPポータル商品F SELECT #TMP_TGPポータル商品F.* FROM #TMP_TGPポータル商品F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TTA社員台帳M  */

DELETE FROM TTA社員台帳M
FROM TTA社員台帳M
INNER JOIN TDA会社M
	ON TTA社員台帳M.システムCD = TDA会社M.システムCD
	AND TTA社員台帳M.演習CD = TDA会社M.演習CD
	AND TTA社員台帳M.会社CD = TDA会社M.会社CD
WHERE TTA社員台帳M.システムCD = @システムCD AND TTA社員台帳M.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TTA社員台帳M.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

SELECT TTA社員台帳M.*
INTO #TMP_TTA社員台帳M
FROM TTA社員台帳M
INNER JOIN TDA会社M
	ON TTA社員台帳M.システムCD = TDA会社M.システムCD
	AND TTA社員台帳M.演習CD = TDA会社M.演習CD
	AND TTA社員台帳M.会社CD = TDA会社M.会社CD
WHERE TTA社員台帳M.システムCD = @システムCD AND TTA社員台帳M.演習CD = @演習CD
	AND ((@演習区分 = 'G' AND TTA社員台帳M.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TTA社員台帳M SET 演習CD = @期末繰越先演習CD FROM #TMP_TTA社員台帳M

INSERT TTA社員台帳M SELECT #TMP_TTA社員台帳M.* FROM #TMP_TTA社員台帳M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TTK摘要M  */

DELETE FROM TTK摘要M
FROM TTK摘要M
INNER JOIN TDA会社M
	ON TTK摘要M.システムCD = TDA会社M.システムCD
	AND TTK摘要M.演習CD = TDA会社M.演習CD
	AND TTK摘要M.会社CD = TDA会社M.会社CD
WHERE TTK摘要M.システムCD = @システムCD AND TTK摘要M.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TTK摘要M.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

SELECT TTK摘要M.*
INTO #TMP_TTK摘要M
FROM TTK摘要M
INNER JOIN TDA会社M
	ON TTK摘要M.システムCD = TDA会社M.システムCD
	AND TTK摘要M.演習CD = TDA会社M.演習CD
	AND TTK摘要M.会社CD = TDA会社M.会社CD
WHERE TTK摘要M.システムCD = @システムCD AND TTK摘要M.演習CD = @演習CD
	AND ((@演習区分 = 'G' AND TTK摘要M.会社CD = @会社CD) OR (@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号))

UPDATE #TMP_TTK摘要M SET 演習CD = @期末繰越先演習CD FROM #TMP_TTK摘要M

INSERT TTK摘要M SELECT #TMP_TTK摘要M.* FROM #TMP_TTK摘要M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TTM名刺データ2F  */

DELETE FROM TTM名刺データ2F
FROM TTM名刺データ2F
WHERE TTM名刺データ2F.システムCD = @システムCD AND TTM名刺データ2F.演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND TTM名刺データ2F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TTM名刺データ2F.学生番号 = @学生番号))

SELECT TTM名刺データ2F.*
INTO #TMP_TTM名刺データ2F
FROM TTM名刺データ2F
WHERE TTM名刺データ2F.システムCD = @システムCD AND TTM名刺データ2F.演習CD = @演習CD
	AND ((@演習区分 = 'G' AND TTM名刺データ2F.会社CD = @会社CD) OR (@演習区分 = 'P' AND TTM名刺データ2F.学生番号 = @学生番号))

UPDATE #TMP_TTM名刺データ2F SET 演習CD = @期末繰越先演習CD FROM #TMP_TTM名刺データ2F 

INSERT TTM名刺データ2F SELECT #TMP_TTM名刺データ2F.* FROM #TMP_TTM名刺データ2F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

commit transaction

SELECT 0





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM演習更新データコピー繰越
@システムCD varchar(12), @演習CD varchar(12)
, @コピー元演習CD varchar(12)
, @会計開始日 datetime

AS

/* 以下のテーブルは残高集計時にナンバリング出来ないのでプロシージャ外で処理する
TGA入出庫明細TRN
TGA入出庫TRN
TGC寄託在庫明細F
TGC寄託在庫F
TSK伝票明細F
TSK伝票F
*/

/* 修正履歴（テーブルを追加した場合は当プロシージャにも追加する必要があるので必ず記入すること！）
*/

begin transaction


/* TC4演習許可学生M */

DELETE FROM TC4演習許可学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TC4演習許可学生M.* INTO #TMP_TC4演習許可学生M FROM TC4演習許可学生M WHERE システムCD = @システムCD AND TC4演習許可学生M.演習CD = @コピー元演習CD

UPDATE #TMP_TC4演習許可学生M SET 演習CD = @演習CD FROM #TMP_TC4演習許可学生M

INSERT TC4演習許可学生M SELECT #TMP_TC4演習許可学生M.* FROM #TMP_TC4演習許可学生M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TC4演習許可学生グループM */

DELETE FROM TC4演習許可学生グループM WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TC4演習許可学生グループM.* INTO #TMP_TC4演習許可学生グループM FROM TC4演習許可学生グループM WHERE システムCD = @システムCD AND TC4演習許可学生グループM.演習CD = @コピー元演習CD

UPDATE #TMP_TC4演習許可学生グループM SET 演習CD = @演習CD FROM #TMP_TC4演習許可学生グループM

INSERT TC4演習許可学生グループM SELECT #TMP_TC4演習許可学生グループM.* FROM #TMP_TC4演習許可学生グループM

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TC6演習履歴M */

DELETE FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TC6演習履歴M.* INTO #TMP_TC6演習履歴M FROM TC6演習履歴M WHERE システムCD = @システムCD AND TC6演習履歴M.演習CD = @コピー元演習CD

UPDATE #TMP_TC6演習履歴M SET 演習CD = @演習CD FROM #TMP_TC6演習履歴M

INSERT TC6演習履歴M SELECT #TMP_TC6演習履歴M.* FROM #TMP_TC6演習履歴M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA会社M */

DELETE FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA会社M.* INTO #TMP_TDA会社M FROM TDA会社M WHERE システムCD = @システムCD AND TDA会社M.演習CD = @コピー元演習CD

UPDATE #TMP_TDA会社M SET 演習CD = @演習CD FROM #TMP_TDA会社M

INSERT TDA会社M SELECT #TMP_TDA会社M.* FROM #TMP_TDA会社M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA勘定科目会社学生M */

DELETE FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA勘定科目会社学生M.* INTO #TMP_TDA勘定科目会社学生M FROM TDA勘定科目会社学生M WHERE システムCD = @システムCD AND TDA勘定科目会社学生M.演習CD = @コピー元演習CD

UPDATE #TMP_TDA勘定科目会社学生M SET 演習CD = @演習CD FROM #TMP_TDA勘定科目会社学生M

INSERT TDA勘定科目会社学生M SELECT #TMP_TDA勘定科目会社学生M.* FROM #TMP_TDA勘定科目会社学生M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TDA部品展開M */

DELETE FROM TDA部品展開M WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TDA部品展開M.* INTO #TMP_TDA部品展開M FROM TDA部品展開M WHERE システムCD = @システムCD AND TDA部品展開M.演習CD = @コピー元演習CD

UPDATE #TMP_TDA部品展開M SET 演習CD = @演習CD FROM #TMP_TDA部品展開M

INSERT TDA部品展開M SELECT #TMP_TDA部品展開M.* FROM #TMP_TDA部品展開M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGA手形明細F（支払期日が会計開始日以後の手形をコピーする）  */

DELETE FROM TGA手形明細F
WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TGA手形明細F.*
INTO #TMP_TGA手形明細F
FROM TGA手形明細F
INNER JOIN TGA手形F
	ON TGA手形明細F.システムCD = TGA手形F.システムCD
	AND TGA手形明細F.演習CD = TGA手形F.演習CD
	AND TGA手形明細F.会社CD = TGA手形F.会社CD
	AND TGA手形明細F.作成会社CD = TGA手形F.作成会社CD
	AND TGA手形明細F.文書種類CD = TGA手形F.文書種類CD
	AND TGA手形明細F.文書内容CD = TGA手形F.文書内容CD
WHERE TGA手形明細F.システムCD = @システムCD AND TGA手形明細F.演習CD = @コピー元演習CD
	AND TGA手形F.支払期日 >= @会計開始日

UPDATE #TMP_TGA手形明細F SET 演習CD = @演習CD FROM #TMP_TGA手形明細F 

INSERT TGA手形明細F SELECT #TMP_TGA手形明細F.* FROM #TMP_TGA手形明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGA手形F（支払期日が会計開始日以後の手形をコピーする）  */

DELETE FROM TGA手形F
WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TGA手形F.*
INTO #TMP_TGA手形F
FROM TGA手形F
WHERE TGA手形F.システムCD = @システムCD AND TGA手形F.演習CD = @コピー元演習CD
	AND TGA手形F.支払期日 >= @会計開始日

UPDATE #TMP_TGA手形F SET 演習CD = @演習CD FROM #TMP_TGA手形F 

INSERT TGA手形F SELECT #TMP_TGA手形F.* FROM #TMP_TGA手形F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGB銀行口座F  */

DELETE TGB銀行口座F
FROM TGB銀行口座F
WHERE TGB銀行口座F.システムCD = @システムCD AND TGB銀行口座F.演習CD = @演習CD

SELECT TGB銀行口座F.*
INTO #TMP_TGB銀行口座F
FROM TGB銀行口座F
WHERE TGB銀行口座F.システムCD = @システムCD AND TGB銀行口座F.演習CD = @コピー元演習CD

UPDATE #TMP_TGB銀行口座F SET 演習CD = @演習CD FROM #TMP_TGB銀行口座F 

INSERT TGB銀行口座F SELECT #TMP_TGB銀行口座F.* FROM  #TMP_TGB銀行口座F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGB銀行口座入出金TRN  */

DELETE TGB銀行口座入出金TRN
FROM TGB銀行口座入出金TRN
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD AND TGB銀行口座入出金TRN.演習CD = @演習CD

--残高を集計する
SELECT TGB銀行口座入出金TRN.システムCD
	, TGB銀行口座入出金TRN.演習CD
	, TGB銀行口座入出金TRN.銀行CD
	, TGB銀行口座入出金TRN.口座区分
	, TGB銀行口座入出金TRN.口座番号
	, SUM(CASE WHEN RIGHT(TGB銀行口座入出金TRN.銀行取引区分, 1) = 'S' THEN TGB銀行口座入出金TRN.金額 * -1 ELSE TGB銀行口座入出金TRN.金額 END) AS 金額
INTO #TMP_TGB銀行口座入出金TRN
FROM TGB銀行口座入出金TRN
WHERE TGB銀行口座入出金TRN.システムCD = @システムCD
  AND TGB銀行口座入出金TRN.演習CD = @コピー元演習CD
GROUP BY TGB銀行口座入出金TRN.システムCD
	, TGB銀行口座入出金TRN.演習CD
	, TGB銀行口座入出金TRN.銀行CD
	, TGB銀行口座入出金TRN.口座区分
	, TGB銀行口座入出金TRN.口座番号

UPDATE #TMP_TGB銀行口座入出金TRN SET 演習CD = @演習CD FROM #TMP_TGB銀行口座入出金TRN 

INSERT INTO TGB銀行口座入出金TRN (システムCD
	, 演習CD
	, 銀行CD
	, 口座区分
	, 口座番号
	, 入出金CD
	, 処理時期区分
	, 処理日
	, 金額
	, 銀行取引区分
	, 摘要
	, 学生番号)
SELECT システムCD
	, 演習CD
	, 銀行CD
	, 口座区分
	, 口座番号
	, 0	--入出金CD
	, 0	--処理時期区分
	, @会計開始日	--処理日
	, 金額
	, 'GN'	--銀行取引区分
	, '期首繰越'	--摘要
	, ''
FROM #TMP_TGB銀行口座入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGK現金入出金TRN  */

DELETE TGK現金入出金TRN
FROM TGK現金入出金TRN
WHERE TGK現金入出金TRN.システムCD = @システムCD AND TGK現金入出金TRN.演習CD = @演習CD AND TGK現金入出金TRN.処理時期区分 = 0

--残高集計
SELECT TGK現金入出金TRN.システムCD
	, TGK現金入出金TRN.演習CD
	, TGK現金入出金TRN.会社CD
	, SUM(CASE WHEN TGK現金入出金TRN.現金取引区分 = 'GS' THEN TGK現金入出金TRN.金額 * -1 ELSE TGK現金入出金TRN.金額 END) AS 金額
	, TDA会社M.学生番号
INTO #TMP_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
GROUP BY TGK現金入出金TRN.システムCD
	, TGK現金入出金TRN.演習CD
	, TGK現金入出金TRN.会社CD
	, TDA会社M.学生番号

UPDATE #TMP_TGK現金入出金TRN SET 演習CD = @演習CD FROM #TMP_TGK現金入出金TRN 

INSERT INTO TGK現金入出金TRN (システムCD
	, 演習CD
	, 会社CD
	, 現金入出金CD
	, 処理時期区分
	, 処理日
	, 金額
	, 現金取引区分
	, 摘要
	, 学生番号)
SELECT システムCD
	, 演習CD
	, 会社CD
	, 0	--現金入出金CD
	, 0	--処理時期区分
	, @会計開始日	--処理日
	, 金額
	, 'GN'	--現金取引区分
	, '期首繰越'	--摘要
	, 学生番号
FROM #TMP_TGK現金入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGPポータル会社F  */

DELETE FROM TGPポータル会社F
WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TGPポータル会社F.*
INTO #TMP_TGPポータル会社F
FROM TGPポータル会社F
WHERE TGPポータル会社F.システムCD = @システムCD AND TGPポータル会社F.演習CD = @コピー元演習CD

UPDATE #TMP_TGPポータル会社F SET 演習CD = @演習CD FROM #TMP_TGPポータル会社F 

INSERT TGPポータル会社F SELECT #TMP_TGPポータル会社F.* FROM #TMP_TGPポータル会社F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGPポータル商品F  */

DELETE FROM TGPポータル商品F
WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TGPポータル商品F.*
INTO #TMP_TGPポータル商品F
FROM TGPポータル商品F
WHERE TGPポータル商品F.システムCD = @システムCD AND TGPポータル商品F.演習CD = @コピー元演習CD

UPDATE #TMP_TGPポータル商品F SET 演習CD = @演習CD FROM #TMP_TGPポータル商品F 

INSERT TGPポータル商品F SELECT #TMP_TGPポータル商品F.* FROM #TMP_TGPポータル商品F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TTA社員台帳M  */

DELETE FROM TTA社員台帳M
WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TTA社員台帳M.*
INTO #TMP_TTA社員台帳M
FROM TTA社員台帳M
WHERE TTA社員台帳M.システムCD = @システムCD AND TTA社員台帳M.演習CD = @コピー元演習CD

UPDATE #TMP_TTA社員台帳M SET 演習CD = @演習CD FROM #TMP_TTA社員台帳M 

INSERT TTA社員台帳M SELECT #TMP_TTA社員台帳M.* FROM #TMP_TTA社員台帳M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TTK摘要M  */

DELETE FROM TTK摘要M
WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TTK摘要M.*
INTO #TMP_TTK摘要M
FROM TTK摘要M
WHERE TTK摘要M.システムCD = @システムCD AND TTK摘要M.演習CD = @コピー元演習CD

UPDATE #TMP_TTK摘要M SET 演習CD = @演習CD FROM #TMP_TTK摘要M 

INSERT TTK摘要M SELECT #TMP_TTK摘要M.* FROM #TMP_TTK摘要M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TTM名刺データ2F  */

DELETE FROM TTM名刺データ2F
WHERE システムCD = @システムCD AND 演習CD = @演習CD

SELECT TTM名刺データ2F.*
INTO #TMP_TTM名刺データ2F
FROM TTM名刺データ2F
WHERE TTM名刺データ2F.システムCD = @システムCD AND TTM名刺データ2F.演習CD = @コピー元演習CD

UPDATE #TMP_TTM名刺データ2F SET 演習CD = @演習CD FROM #TMP_TTM名刺データ2F 

INSERT TTM名刺データ2F SELECT #TMP_TTM名刺データ2F.* FROM #TMP_TTM名刺データ2F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

commit transaction

SELECT 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM演習更新データコピー自社
@システムCD varchar(12), @演習CD varchar(12)
, @コピー元演習CD varchar(12)
, @会計開始日 datetime

AS

/* 修正履歴（テーブルを追加した場合は当プロシージャにも追加する必要があるので必ず記入すること！）

*/

declare @寄託倉庫利用 varchar(2)

begin transaction

SELECT @寄託倉庫利用 = (SELECT 寄託倉庫利用 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

/*  会社M    */
SELECT TDA会社M.* INTO #thsmst FROM TDA会社M
WHERE TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @コピー元演習CD
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ
	AND 会社CD IN (SELECT B.会社CD
		FROM (SELECT * FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD) A
		FULL OUTER JOIN (SELECT * FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD) B
			ON A.システムCD = B.システムCD AND A.会社CD = B.会社CD
		WHERE  A.演習CD IS NULL	) --コピー先演習に存在しない会社をコピー

UPDATE #thsmst SET 演習CD = @演習CD FROM #thsmst

INSERT TDA会社M SELECT #thsmst.* FROM #thsmst

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

/* TGB銀行口座F  */
DELETE 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.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TGB銀行口座F.*
INTO #TMP_TGB銀行口座F
FROM TGB銀行口座F
INNER JOIN TGB銀行口座入出金TRN
	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 TGB銀行口座F.システムCD = @システムCD AND TGB銀行口座F.演習CD = @コピー元演習CD AND TGB銀行口座入出金TRN.処理時期区分 = 0
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TGB銀行口座F SET 演習CD = @演習CD FROM #TMP_TGB銀行口座F 

INSERT TGB銀行口座F SELECT #TMP_TGB銀行口座F.* FROM  #TMP_TGB銀行口座F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGB銀行口座入出金TRN  */
DELETE 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 TGB銀行口座入出金TRN.システムCD = @システムCD AND TGB銀行口座入出金TRN.演習CD = @演習CD AND TGB銀行口座入出金TRN.処理時期区分 = 0
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TGB銀行口座入出金TRN.*
INTO #TMP_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 TGB銀行口座入出金TRN.システムCD = @システムCD
	AND TGB銀行口座入出金TRN.演習CD = @コピー元演習CD
	AND TGB銀行口座入出金TRN.処理時期区分 = 0 
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TGB銀行口座入出金TRN SET 演習CD = @演習CD, 処理日 = @会計開始日 FROM #TMP_TGB銀行口座入出金TRN 

INSERT TGB銀行口座入出金TRN SELECT #TMP_TGB銀行口座入出金TRN.* FROM  #TMP_TGB銀行口座入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGA入出庫TRN */
DELETE 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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TGA入出庫TRN.*
INTO #TMP_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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TGA入出庫TRN SET 演習CD = @演習CD, 処理日 = @会計開始日 FROM #TMP_TGA入出庫TRN

INSERT TGA入出庫TRN SELECT #TMP_TGA入出庫TRN.* FROM  #TMP_TGA入出庫TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGA入出庫明細TRN  */
DELETE 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
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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TGA入出庫明細TRN.*
INTO #TMP_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
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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TGA入出庫明細TRN SET 演習CD = @演習CD FROM #TMP_TGA入出庫明細TRN 

INSERT TGA入出庫明細TRN SELECT #TMP_TGA入出庫明細TRN.* FROM  #TMP_TGA入出庫明細TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGC寄託在庫F */
DELETE TGC寄託在庫F
FROM TGC寄託在庫F
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @演習CD AND TGC寄託在庫F.寄託受付番号 = 0
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TGC寄託在庫F.*
INTO #TMP_TGC寄託在庫F
FROM TGC寄託在庫F
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE TGC寄託在庫F.システムCD = @システムCD AND TGC寄託在庫F.演習CD = @コピー元演習CD AND TGC寄託在庫F.寄託受付番号 = 0
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TGC寄託在庫F SET 演習CD = @演習CD FROM #TMP_TGC寄託在庫F

INSERT TGC寄託在庫F SELECT #TMP_TGC寄託在庫F.* FROM #TMP_TGC寄託在庫F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGC寄託在庫明細F  */
DELETE TGC寄託在庫明細F
FROM TGC寄託在庫明細F
INNER JOIN TGC寄託在庫F
	ON TGC寄託在庫明細F.システムCD = TGC寄託在庫F.システムCD
	AND TGC寄託在庫明細F.演習CD = TGC寄託在庫F.演習CD
	AND TGC寄託在庫明細F.会社CD = TGC寄託在庫F.会社CD
	AND TGC寄託在庫明細F.寄託依頼会社CD = TGC寄託在庫F.寄託依頼会社CD
	AND TGC寄託在庫明細F.寄託受付番号 = TGC寄託在庫F.寄託受付番号
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE TGC寄託在庫明細F.システムCD = @システムCD AND TGC寄託在庫明細F.演習CD = @演習CD AND TGC寄託在庫F.寄託受付番号 = 0
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TGC寄託在庫明細F.*
INTO #TMP_TGC寄託在庫明細F
FROM TGC寄託在庫明細F
INNER JOIN TGC寄託在庫F
	ON TGC寄託在庫明細F.システムCD = TGC寄託在庫F.システムCD
	AND TGC寄託在庫明細F.演習CD = TGC寄託在庫F.演習CD
	AND TGC寄託在庫明細F.会社CD = TGC寄託在庫F.会社CD
	AND TGC寄託在庫明細F.寄託依頼会社CD = TGC寄託在庫F.寄託依頼会社CD
	AND TGC寄託在庫明細F.寄託受付番号 = TGC寄託在庫F.寄託受付番号
INNER JOIN TDA会社M
	ON TGC寄託在庫F.システムCD = TDA会社M.システムCD
	AND TGC寄託在庫F.演習CD = TDA会社M.演習CD
	AND TGC寄託在庫F.会社CD = TDA会社M.会社CD
WHERE TGC寄託在庫明細F.システムCD = @システムCD AND TGC寄託在庫明細F.演習CD = @コピー元演習CD AND TGC寄託在庫F.寄託受付番号 = 0
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TGC寄託在庫明細F SET 演習CD = @演習CD FROM #TMP_TGC寄託在庫明細F

INSERT TGC寄託在庫明細F SELECT #TMP_TGC寄託在庫明細F.* FROM #TMP_TGC寄託在庫明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TSK伝票F  */
DELETE 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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TSK伝票F.*
INTO #TMP_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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TSK伝票F SET 演習CD = @演習CD, 取引日 = @会計開始日 FROM #TMP_TSK伝票F 

INSERT TSK伝票F SELECT #TMP_TSK伝票F.* FROM  #TMP_TSK伝票F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TSK伝票明細F  */
DELETE 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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TSK伝票明細F.*
INTO #TMP_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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TSK伝票明細F SET 演習CD = @演習CD FROM #TMP_TSK伝票明細F 
 
INSERT TSK伝票明細F SELECT #TMP_TSK伝票明細F.* FROM  #TMP_TSK伝票明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TSK伝票仕入売上明細F  */
DELETE 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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TSK伝票仕入売上明細F.*
INTO #TMP_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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TSK伝票仕入売上明細F SET 演習CD = @演習CD, 取引日 = @会計開始日 FROM #TMP_TSK伝票仕入売上明細F 
 
INSERT TSK伝票仕入売上明細F SELECT #TMP_TSK伝票仕入売上明細F.* FROM  #TMP_TSK伝票仕入売上明細F

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


/* TGK現金入出金TRN  */
DELETE 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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

SELECT TGK現金入出金TRN.*
INTO #TMP_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
	AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

UPDATE #TMP_TGK現金入出金TRN SET 演習CD = @演習CD, 処理日 = @会計開始日 FROM #TMP_TGK現金入出金TRN 

INSERT TGK現金入出金TRN SELECT #TMP_TGK現金入出金TRN.* FROM  #TMP_TGK現金入出金TRN

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end


--寄託倉庫利用時のみ
if @寄託倉庫利用 = '1'
begin 
	/* TTA社員台帳M  */
	DELETE TTA社員台帳M
	FROM TTA社員台帳M
	INNER JOIN TDA会社M
		ON TTA社員台帳M.システムCD = TDA会社M.システムCD
		AND TTA社員台帳M.演習CD = TDA会社M.演習CD
		AND TTA社員台帳M.会社CD = TDA会社M.会社CD
	WHERE TTA社員台帳M.システムCD = @システムCD AND TTA社員台帳M.演習CD = @演習CD
		AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

	SELECT TTA社員台帳M.*
	INTO #TMP_TTA社員台帳M
	FROM TTA社員台帳M
	INNER JOIN TDA会社M
		ON TTA社員台帳M.システムCD = TDA会社M.システムCD
		AND TTA社員台帳M.演習CD = TDA会社M.演習CD
		AND TTA社員台帳M.会社CD = TDA会社M.会社CD
	WHERE TTA社員台帳M.システムCD = @システムCD AND TTA社員台帳M.演習CD = @コピー元演習CD
		AND TDA会社M.学生番号 <> '' AND TDA会社M.自社フラグ = 1 --自社のみ

	UPDATE #TMP_TTA社員台帳M SET 演習CD = @演習CD FROM #TMP_TTA社員台帳M 

	INSERT TTA社員台帳M SELECT #TMP_TTA社員台帳M.* FROM #TMP_TTA社員台帳M

	if @@error <> 0
	begin
		rollback transaction
		SELECT -1
		return
	end
end

commit transaction

SELECT 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM演習更新会社学生繰越解除
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(12)

AS

declare @演習区分 varchar(2)
SET @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

declare @期末繰越先演習CD varchar(12)
SET @期末繰越先演習CD = (SELECT 期末繰越先演習CD FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

begin transaction

UPDATE TDA会社M
SET 次演習繰越フラグ = ''
WHERE システムCD = @システムCD AND 演習CD = @演習CD
	AND ((@演習区分 = 'G' AND 会社CD = @会社CD) OR (@演習区分 = 'P' AND 学生番号 = @学生番号))

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

UPDATE TDA会社M
SET 前演習繰越フラグ = ''
WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD
	AND ((@演習区分 = 'G' AND 会社CD = @会社CD) OR (@演習区分 = 'P' AND 学生番号 = @学生番号))

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

commit transaction

SELECT 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習更新補助簿整合
@システムCD varchar(12), @演習CD varchar(12)

AS

begin transaction

DELETE FROM TSK補助簿_当座預金出納帳F
FROM TSK補助簿_当座預金出納帳F
LEFT OUTER 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 (TDA会社M.学生番号 <> '' AND TDA会社M.学生番号 IS NOT NULL)
	AND TDA会社M.自社フラグ <> 1

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

DELETE FROM TSK補助簿_売掛金元帳F
FROM TSK補助簿_売掛金元帳F
LEFT OUTER 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 (TDA会社M.学生番号 <> '' AND TDA会社M.学生番号 IS NOT NULL)
	AND TDA会社M.自社フラグ <> 1

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

DELETE FROM TSK補助簿_買掛金元帳F
FROM TSK補助簿_買掛金元帳F
LEFT OUTER 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 (TDA会社M.学生番号 <> '' AND TDA会社M.学生番号 IS NOT NULL)
	AND TDA会社M.自社フラグ <> 1

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

EXEC SPM記帳チェック挿入補助簿 @システムCD, @演習CD, '%'

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO





CREATE  PROCEDURE dbo.SPM演習状況メール送信一覧
@システムCD varchar(12), @演習CD varchar(12), @ソート順 varchar(1), @抽出文字 varchar(255)

AS

declare @演習区分 varchar(2)
SET @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT TTXメールF.*
	, TDA会社M.会社名称
	, TC5学生M.氏名
FROM TDA会社M
INNER JOIN TC2演習M
	ON TDA会社M.システムCD = TC2演習M.システムCD
	AND TDA会社M.演習CD = TC2演習M.演習CD
INNER JOIN TTXメールF
	ON TDA会社M.システムCD = TTXメールF.システムCD
	AND TDA会社M.演習CD = TTXメールF.演習CD
	AND TDA会社M.会社CD = TTXメールF.会社CD
LEFT OUTER JOIN TC5学生M
	ON TDA会社M.システムCD = TC5学生M.システムCD
	AND TDA会社M.学生番号 = TC5学生M.学生番号
WHERE TDA会社M.システムCD = @システムCD
	AND TDA会社M.演習CD = @演習CD
	AND (TTXメールF.件名 LIKE '%' + @抽出文字 + '%' OR TTXメールF.内容 LIKE '%' + @抽出文字 + '%')
	AND TTXメールF.送受信区分 = 'S'
ORDER BY CASE WHEN @ソート順 = '1' AND @演習区分 = 'G' THEN TTXメールF.会社CD
	WHEN @ソート順 = '1' AND @演習区分 = 'P' THEN TC5学生M.氏名
	WHEN @ソート順 = '2' THEN TDA会社M.会社名称
	WHEN @ソート順 = '3' THEN TTXメールF.件名
	ELSE ''
	END
	, 作成日 DESC
	, メールCD DESC





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE  PROCEDURE dbo.SPM演習状況照会
@システムCD varchar(12), @演習CD varchar(12), @ソート順 varchar(1)

AS

declare @演習区分 varchar(2)
SET @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)


SELECT 会社CD
	, 会社名称
	, 資産合計
	, 負債資本合計
	, 費用合計
	, 収益合計
	, 純利益
	, 伝票枚数
	, 氏名
FROM (
--集計値ソートのためサブクエリ化
SELECT 会社CD
	, 会社名称
	, SUM(資産合計) AS 資産合計
	, SUM(負債資本合計) AS 負債資本合計
	, SUM(費用合計) AS 費用合計
	, SUM(収益合計) AS 収益合計
	, SUM(純利益) AS 純利益
	, SUM(件数) AS 伝票枚数
	, 氏名
FROM (
	SELECT TDA会社M.会社CD
		, TDA会社M.会社名称
		, TDA勘定科目M.勘定区分
		, TDA勘定科目M.貸借区分
		, SUM(TSK伝票明細F.借方金額 - TSK伝票明細F.貸方金額) AS 金額
		, CASE WHEN TDA勘定科目M.勘定区分 = 'B' AND TDA勘定科目M.貸借区分 = 'D' THEN SUM(IsNull(TSK伝票明細F.借方金額, 0) - IsNull(TSK伝票明細F.貸方金額, 0)) ELSE 0 END AS 資産合計
		, CASE WHEN TDA勘定科目M.勘定区分 = 'B' AND TDA勘定科目M.貸借区分 = 'C' THEN SUM(IsNull(TSK伝票明細F.貸方金額, 0) - IsNull(TSK伝票明細F.借方金額, 0)) ELSE 0 END AS 負債資本合計
		, CASE WHEN TDA勘定科目M.勘定区分 = 'P' AND TDA勘定科目M.貸借区分 = 'D' THEN SUM(IsNull(TSK伝票明細F.借方金額, 0) - IsNull(TSK伝票明細F.貸方金額, 0)) ELSE 0 END AS 費用合計
		, CASE WHEN TDA勘定科目M.勘定区分 = 'P' AND TDA勘定科目M.貸借区分 = 'C' THEN SUM(IsNull(TSK伝票明細F.貸方金額, 0) - IsNull(TSK伝票明細F.借方金額, 0)) ELSE 0 END AS 収益合計
		, (CASE WHEN TDA勘定科目M.勘定区分 = 'P' AND TDA勘定科目M.貸借区分 = 'C' THEN SUM(IsNull(TSK伝票明細F.貸方金額, 0) - IsNull(TSK伝票明細F.借方金額, 0)) ELSE 0 END) - (CASE WHEN TDA勘定科目M.勘定区分 = 'P' AND TDA勘定科目M.貸借区分 = 'D' THEN SUM(IsNull(TSK伝票明細F.借方金額, 0) - IsNull(TSK伝票明細F.貸方金額, 0)) ELSE 0 END) AS 純利益
		, SUM(CASE WHEN TSK伝票明細F.伝票SEQ = 1 THEN 1 ELSE 0 END) AS 件数
		, TC5学生M.氏名
	FROM TDA会社M
	INNER JOIN TC2演習M
		ON TDA会社M.システムCD = TC2演習M.システムCD
		AND TDA会社M.演習CD = TC2演習M.演習CD
	INNER JOIN TSK伝票F
		ON TDA会社M.システムCD = TSK伝票F.システムCD
		AND TDA会社M.演習CD = TSK伝票F.演習CD
		AND TDA会社M.会社CD = TSK伝票F.会社CD
	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 (SELECT * FROM TDA勘定科目M
			UNION	--TDA勘定科目会社学生Mを連結（100215小野）
			SELECT * FROM TDA勘定科目会社学生M
	) TDA勘定科目M
		ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
		AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
		AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
		AND (TDA勘定科目M.所有会社CD = ''
			OR TDA勘定科目M.所有会社CD IS NULL
			OR (@演習区分 = 'P' AND TDA勘定科目M.所有会社CD = TDA会社M.学生番号)	--同時同業の場合
			OR (@演習区分 = 'G' AND TDA勘定科目M.所有会社CD = TDA会社M.会社CD)		--模擬実践の場合
		)
	LEFT OUTER JOIN TC5学生M
		ON TDA会社M.システムCD = TC5学生M.システムCD
		AND TDA会社M.学生番号 = TC5学生M.学生番号
	WHERE TDA会社M.システムCD = @システムCD
		AND TDA会社M.演習CD = @演習CD
		AND TSK伝票F.削除フラグ = 0
		AND TSK伝票F.伝票処理区分 <= 9	--決算振替を含まない（100215小野）
	GROUP BY TDA会社M.会社CD
		, TDA会社M.会社名称
		, TDA勘定科目M.勘定区分
		, TDA勘定科目M.貸借区分
		, TC5学生M.氏名
) A
GROUP BY 会社CD, 会社名称, 氏名
) X
--集計値ソートのためサブクエリ化
ORDER BY (CASE WHEN @ソート順 = '1' AND @演習区分 = 'G' THEN 会社CD
		WHEN @ソート順 = '1' AND @演習区分 = 'P' THEN 氏名
		WHEN @ソート順 = '2' THEN 会社名称
		ELSE ''
		END)
	, (CASE WHEN @ソート順 = '3' THEN 資産合計
		WHEN @ソート順 = '4' THEN 収益合計
		WHEN @ソート順 = '5' THEN 費用合計
		WHEN @ソート順 = '6' THEN 純利益
		ELSE 0
		END) DESC
 



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO



CREATE PROCEDURE dbo.SPM演習登録1
@システムCD varchar(12), @演習CD varchar(12), @旧演習CD varchar(12), @演習名称 varchar(40), @演習区分 varchar(1), @会計開始日 datetime
, @会計終了日 datetime, @消費税 float, @利用伝票数区分 varchar(2),@利用銀行口座種類 varchar(8), @整理記入精算表利用 varchar(2)
, @コピー元演習CD varchar(12) 
, @マスター演習 varchar(2) 

AS

begin transaction

INSERT TC2演習M (システムCD
	, 演習CD
	, マスター演習
	, 演習名称
	, 演習区分
	, パッケージ区分
	, 会計開始日
	, 会計終了日
	, 実践日
	, 消費税
	, 演習管理者ID
	, 演習管理者パスワード
	, 利用伝票数区分
	, 銀行自動処理
	, 銀行口座番号手動
	, 銀行手形取立割引手動
	, 銀行市場間利用
	, 銀行窓口依頼保存
	, 手動補助簿表示
	, 手動仕訳帳表示
	, 手動仕訳集計表表示
	, 手動合計残高試算表表示
	, 手動総勘定元帳表示
	, 手動貸借対照表表示
	, 手動損益計算書表示
	, 手動8桁精算表表示
	, 手動株主資本等変動計算書表示
	, 自動転記仕訳帳表示
	, 自動転記仕訳集計表表示
	, 自動転記合計残高試算表表示
	, 自動転記総勘定元帳表示
	, 自動転記貸借対照表表示
	, 自動転記損益計算書表示
	, 自動転記8桁精算表表示
	, 自動転記株主資本等変動計算書表示
	, 現金出納帳表示
	, 小口現金出納帳表示
	, 当座預金出納帳表示
	, 売上帳表示
	, 仕入帳表示
	, 売掛金元帳表示
	, 買掛金元帳表示
	, 商品有高帳表示
	, 受取手形記入帳表示
	, 支払手形記入帳表示
	, 自動転記現金出納帳表示
	, 自動転記当座預金出納帳表示
	, 自動転記売上帳表示
	, 自動転記仕入帳表示
	, 自動転記売掛金元帳表示
	, 自動転記買掛金元帳表示
	, 自動転記商品有高帳表示
	, 自動転記受取手形記入帳表示
	, 自動転記支払手形記入帳表示
	, 帳簿手入力自動トグル
	, 財務諸表貸借対照表表示
	, 財務諸表損益計算書表示
	, 財務諸表キャッシュフロー計算書表示
	, 財務諸表株主資本等変動計算書表示
	, 財務分析損益実績表示
	, 財務分析収益性表示
	, 財務分析安全性表示
	, 財務分析損益分岐点表示
	, 履歴表示
	, 銀行窓口表示
	, 金庫表示
	, 小切手表示
	, 約束手形表示
	, 為替手形表示
	, 領収書表示
	, 給与台帳表示
	, 利用銀行口座種類
	, 振込手数料低金額自行間
	, 振込手数料高金額自行間
	, 振込手数料低金額他行間
	, 振込手数料高金額他行間
	, 振込手数料高低区切金額
	, 手形割引率
	, 振込手数料当座振込元負担
	, 振込手数料非当座振込元負担
	, 残高証明書手数料
	, 自動番号伝票
	, 自動番号仕入売上書類
	, 自動番号手形
	, 自動番号領収書
	, 自動番号銀行書類
	, 残高自動計算
	, 日付仕訳日指定
	, 仕入売上伝票消費税手動仕訳
	, 振替伝票表示行数
	, 入庫時相手出庫必要
	, 出庫時在庫必要
	, 仕入他市場管理部利用
	, 仕入売上書類受発信利用
	, 注文請書確認利用
	, 仕入売上書類先方書類必要
	, 管理部買入売渡運賃諸掛
	, 出庫時注文請書必要
	, 整理記入精算表利用
	, 整理記入当期損益挿入先
	, 総勘定元帳標準式利用
	, 総勘定元帳月計累計利用
	, 手形修正
	, 小切手返却利用
	, 通帳手動修正
	, 商品入出庫整合性利用
	, 当座引出振込小切手必要
	, 記帳チェック表示
	, 現物チェック表示
	, 商品チェック表示
	, チェック画面リンク利用
	, 商品開発課利用
	, メール利用
	, 印刷ヘッダー表示
	, 捺印利用
	, 実印利用
	, 仕入売上書類控え印刷
	, 仕入売上書類社名優先
	, 標準販売単価表示
	, 送付済み手形表示様式
	, 送付済み小切手表示様式
	, 送付済み領収書表示様式
	, 期首設定経理部利用
	, 為替レート利用
	, 小売販売有無
	, 倉庫部利用
	, 寄託倉庫利用
	, 原価会計利用
	, WebCollabo利用
	, 名刺作成旧バージョン利用
	, 運送費請求書旧バージョン利用
	, 手入力仕訳帳旧バージョン利用
	, 自動転記総勘定元帳仕丁表示
	, 出庫時払出単価入力
)
SELECT @システムCD					--引数
	, @演習CD						--引数
	, @マスター演習					--引数
	, @演習名称						--引数
	, @演習区分						--引数
	, パッケージ区分
	, @会計開始日					--引数
	, @会計終了日					--引数
	, 実践日
	, @消費税						--引数
	, 演習管理者ID
	, 演習管理者パスワード
	, @利用伝票数区分				--引数
	, 銀行自動処理
	, 銀行口座番号手動
	, 銀行手形取立割引手動
	, 銀行市場間利用
	, 銀行窓口依頼保存
	, 手動補助簿表示
	, 手動仕訳帳表示
	, 手動仕訳集計表表示
	, 手動合計残高試算表表示
	, 手動総勘定元帳表示
	, 手動貸借対照表表示
	, 手動損益計算書表示
	, 手動8桁精算表表示
	, 手動株主資本等変動計算書表示
	, 自動転記仕訳帳表示
	, 自動転記仕訳集計表表示
	, 自動転記合計残高試算表表示
	, 自動転記総勘定元帳表示
	, 自動転記貸借対照表表示
	, 自動転記損益計算書表示
	, 自動転記8桁精算表表示
	, 自動転記株主資本等変動計算書表示
	, 現金出納帳表示
	, 小口現金出納帳表示
	, 当座預金出納帳表示
	, 売上帳表示
	, 仕入帳表示
	, 売掛金元帳表示
	, 買掛金元帳表示
	, 商品有高帳表示
	, 受取手形記入帳表示
	, 支払手形記入帳表示
	, 自動転記現金出納帳表示
	, 自動転記当座預金出納帳表示
	, 自動転記売上帳表示
	, 自動転記仕入帳表示
	, 自動転記売掛金元帳表示
	, 自動転記買掛金元帳表示
	, 自動転記商品有高帳表示
	, 自動転記受取手形記入帳表示
	, 自動転記支払手形記入帳表示
	, 帳簿手入力自動トグル
	, 財務諸表貸借対照表表示
	, 財務諸表損益計算書表示
	, 財務諸表キャッシュフロー計算書表示
	, 財務諸表株主資本等変動計算書表示
	, 財務分析損益実績表示
	, 財務分析収益性表示
	, 財務分析安全性表示
	, 財務分析損益分岐点表示
	, 履歴表示
	, 銀行窓口表示
	, 金庫表示
	, 小切手表示
	, 約束手形表示
	, 為替手形表示
	, 領収書表示
	, 給与台帳表示
	, @利用銀行口座種類				--引数
	, 振込手数料低金額自行間
	, 振込手数料高金額自行間
	, 振込手数料低金額他行間
	, 振込手数料高金額他行間
	, 振込手数料高低区切金額
	, 手形割引率
	, 振込手数料当座振込元負担
	, 振込手数料非当座振込元負担
	, 残高証明書手数料
	, 自動番号伝票
	, 自動番号仕入売上書類
	, 自動番号手形
	, 自動番号領収書
	, 自動番号銀行書類
	, 残高自動計算
	, 日付仕訳日指定
	, 仕入売上伝票消費税手動仕訳
	, 振替伝票表示行数
	, 入庫時相手出庫必要
	, 出庫時在庫必要
	, 仕入他市場管理部利用
	, 仕入売上書類受発信利用
	, 注文請書確認利用
	, 仕入売上書類先方書類必要
	, 管理部買入売渡運賃諸掛
	, 出庫時注文請書必要
	, @整理記入精算表利用			--引数
	, 整理記入当期損益挿入先
	, 総勘定元帳標準式利用
	, 総勘定元帳月計累計利用
	, 手形修正
	, 小切手返却利用
	, 通帳手動修正
	, 商品入出庫整合性利用
	, 当座引出振込小切手必要
	, 記帳チェック表示
	, 現物チェック表示
	, 商品チェック表示
	, チェック画面リンク利用
	, 商品開発課利用
	, メール利用
	, 印刷ヘッダー表示
	, 捺印利用
	, 実印利用
	, 仕入売上書類控え印刷
	, 仕入売上書類社名優先
	, 標準販売単価表示
	, 送付済み手形表示様式
	, 送付済み小切手表示様式
	, 送付済み領収書表示様式
	, 期首設定経理部利用
	, 為替レート利用
	, 小売販売有無
	, 倉庫部利用
	, 寄託倉庫利用
	, 原価会計利用
	, WebCollabo利用
	, 名刺作成旧バージョン利用
	, 運送費請求書旧バージョン利用
	, 手入力仕訳帳旧バージョン利用
	, 自動転記総勘定元帳仕丁表示
	, 出庫時払出単価入力
FROM TC2演習M
WHERE システムCD = @システムCD AND 演習CD = @コピー元演習CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM演習登録期末繰越先
@システムCD varchar(12), @演習CD varchar(12), @演習区分 varchar(1)
, @期末繰越先演習CD varchar(12), @期末繰越先演習名称 varchar(40)
, @期末繰越先演習会計開始日 datetime, @期末繰越先演習会計終了日 datetime

AS

begin transaction

DELETE FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD

SELECT TC2演習M.* INTO #TMP_TC2演習M FROM TC2演習M WHERE TC2演習M.システムCD = @システムCD AND TC2演習M.演習CD = @演習CD

UPDATE #TMP_TC2演習M
SET 演習CD = @期末繰越先演習CD
	, 演習名称 = @期末繰越先演習名称
	, 期末繰越先演習CD = ''
	, 会計開始日 = @期末繰越先演習会計開始日
	, 会計終了日 = @期末繰越先演習会計終了日
FROM #TMP_TC2演習M

INSERT TC2演習M SELECT #TMP_TC2演習M.* FROM #TMP_TC2演習M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

DELETE FROM TKH小売販売M WHERE システムCD = @システムCD AND 演習CD = @期末繰越先演習CD

SELECT TKH小売販売M.* INTO #TMP_TKH小売販売M FROM TKH小売販売M WHERE TKH小売販売M.システムCD = @システムCD AND TKH小売販売M.演習CD = @演習CD

UPDATE #TMP_TKH小売販売M
SET 演習CD = @期末繰越先演習CD
FROM #TMP_TKH小売販売M
 
INSERT TKH小売販売M SELECT #TMP_TKH小売販売M.* FROM #TMP_TKH小売販売M

if @@error <> 0
begin
	rollback transaction
	SELECT -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO






CREATE PROCEDURE dbo.SPM演習管理者一覧
@システムCD varchar(12)

AS

SELECT 演習管理者ID
FROM TC2演習M
WHERE システムCD = @システムCD
	AND 演習管理者ID <> ''
	AND 演習管理者ID IS NOT NULL
GROUP BY 演習管理者ID
ORDER BY 演習管理者ID






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習詳細一覧
@システムCD varchar(12), @学生番号 varchar(40)

AS

DECLARE @学生グループCD varchar(12)
SET @学生グループCD = (SELECT 学生グループCD FROM TC5学生M WHERE システムCD = @システムCD AND 学生番号 = @学生番号)

SELECT TC2演習M.*
	, A.区分名称 AS 演習区分名称
--	, TC4演習許可学生M.*
--	, TC4演習許可学生グループM.*
FROM TC2演習M
--演習区分名称の取得
INNER JOIN (SELECT 区分CD, 区分名称 FROM TC9区分M WHERE データ識別 = '演習区分' AND システムCD = 'SFC') A
	ON TC2演習M.演習区分 = A.区分CD
--演習参加者の取得
LEFT OUTER JOIN TC4演習許可学生M
	ON TC2演習M.システムCD = TC4演習許可学生M.システムCD
	AND TC2演習M.演習CD = TC4演習許可学生M.演習CD
	AND TC4演習許可学生M.学生番号 = @学生番号
LEFT OUTER JOIN TC4演習許可学生グループM
	ON TC2演習M.システムCD = TC4演習許可学生グループM.システムCD
	AND TC2演習M.演習CD = TC4演習許可学生グループM.演習CD
	AND TC4演習許可学生グループM.学生グループCD = @学生グループCD
WHERE TC2演習M.システムCD = @システムCD
	AND (TC4演習許可学生M.学生番号 = @学生番号
		OR TC4演習許可学生グループM.学生グループCD = @学生グループCD)
--ORDER BY TC2演習M.演習CD
ORDER BY CASE WHEN TC2演習M.演習CD LIKE 'SYS%' THEN 1 ELSE 0 END, TC2演習M.会計開始日 DESC, TC2演習M.演習CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM演習選択ユーザー一覧
@システムCD varchar(12), @演習CD varchar(12)

AS

SELECT TC5学生M.学生番号, TC5学生M.氏名, TC6演習履歴M.選択会社CD
FROM TC5学生M
LEFT OUTER JOIN TC4演習許可学生M
	ON TC5学生M.システムCD = TC4演習許可学生M.システムCD
	AND TC5学生M.学生番号 = TC4演習許可学生M.学生番号
	AND TC4演習許可学生M.演習CD = @演習CD
LEFT OUTER JOIN TC4演習許可学生グループM
	ON TC5学生M.システムCD = TC4演習許可学生グループM.システムCD
	AND TC5学生M.学生グループCD = TC4演習許可学生グループM.学生グループCD
	AND TC4演習許可学生グループM.演習CD = @演習CD
INNER JOIN TC3学生グループM
	ON TC5学生M.システムCD = TC3学生グループM.システムCD
	AND TC5学生M.学生グループCD = TC3学生グループM.学生グループCD
LEFT OUTER JOIN TC6演習履歴M
	ON TC5学生M.システムCD = TC6演習履歴M.システムCD
	AND TC5学生M.学生番号 = TC6演習履歴M.学生番号
	AND TC6演習履歴M.演習CD = @演習CD
WHERE TC5学生M.システムCD = @システムCD
	AND (TC4演習許可学生グループM.学生グループCD IS NOT NULL
		OR TC4演習許可学生M.学生番号 IS NOT NULL)
ORDER BY TC5学生M.学生番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM経費労務費取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造区分 varchar(2), @製品CD varchar(20), @経費労務費区分 varchar(2)

AS

SELECT TDA経費労務費M.*
FROM TDA経費労務費M
WHERE TDA経費労務費M.システムCD = @システムCD
	AND TDA経費労務費M.演習CD = @演習CD
	AND TDA経費労務費M.会社CD = @会社CD
	AND TDA経費労務費M.製造区分 = @製造区分
	AND TDA経費労務費M.製品CD = @製品CD
	AND (@経費労務費区分 = '' OR TDA経費労務費M.経費労務費区分 = @経費労務費区分)
ORDER BY TDA経費労務費M.経費労務費区分, TDA経費労務費M.経費労務費CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM経費労務費挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造区分 varchar(2), @製品CD varchar(20), @経費労務費区分 varchar(2)
, @行数 int
, @経費労務費CD1 int, @摘要1 varchar (255), @金額1 money
, @経費労務費CD2 int, @摘要2 varchar (255), @金額2 money
, @経費労務費CD3 int, @摘要3 varchar (255), @金額3 money
, @経費労務費CD4 int, @摘要4 varchar (255), @金額4 money
, @経費労務費CD5 int, @摘要5 varchar (255), @金額5 money
, @経費労務費CD6 int, @摘要6 varchar (255), @金額6 money
, @経費労務費CD7 int, @摘要7 varchar (255), @金額7 money
, @経費労務費CD8 int, @摘要8 varchar (255), @金額8 money
, @経費労務費CD9 int, @摘要9 varchar (255), @金額9 money
, @経費労務費CD10 int, @摘要10 varchar (255), @金額10 money

AS

begin transaction

--明細1
INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD1, @摘要1, @金額1)

if @@error <> 0
begin
	rollback  select -1  return
end

--明細2
if @行数 > 1
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD2, @摘要2, @金額2)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細3
if @行数 > 2
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD3, @摘要3, @金額3)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細4
if @行数 > 3
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD4, @摘要4, @金額4)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細5
if @行数 > 4
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD5, @摘要5, @金額5)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細6
if @行数 > 5
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD6, @摘要6, @金額6)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細7
if @行数 > 6
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD7, @摘要7, @金額7)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細8
if @行数 > 7
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD8, @摘要8, @金額8)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細9
if @行数 > 8
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD9, @摘要9, @金額9)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細10
if @行数 > 9
begin

	INSERT INTO YTMP_TDA経費労務費M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 経費労務費区分, 経費労務費CD, 摘要, 金額)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @経費労務費区分, @経費労務費CD10, @摘要10, @金額10)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end


commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM経費労務費更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造区分 varchar(2), @製品CD varchar(20), @経費労務費区分 varchar(2)

AS

begin transaction

DELETE FROM TDA経費労務費M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造区分 = @製造区分 AND 製品CD = @製品CD AND 経費労務費区分 = @経費労務費区分

--登録（YTMPより）
INSERT INTO TDA経費労務費M
SELECT *
FROM YTMP_TDA経費労務費M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造区分 = @製造区分 AND 製品CD = @製品CD AND 経費労務費区分 = @経費労務費区分

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

DELETE FROM YTMP_TDA経費労務費M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造区分 = @製造区分 AND 製品CD = @製品CD AND 経費労務費区分 = @経費労務費区分

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM経費労務費集計取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造区分 varchar(2), @製品CD varchar(20), @経費労務費区分 varchar(2)

AS

SELECT TDA経費労務費M.システムCD, TDA経費労務費M.演習CD, TDA経費労務費M.会社CD, TDA経費労務費M.製造区分, TDA経費労務費M.製品CD, TDA経費労務費M.経費労務費区分, SUM(金額) AS 合計
FROM TDA経費労務費M
WHERE TDA経費労務費M.システムCD = @システムCD
	AND TDA経費労務費M.演習CD = @演習CD
	AND TDA経費労務費M.会社CD = @会社CD
	AND TDA経費労務費M.製造区分 = @製造区分
	AND TDA経費労務費M.製品CD = @製品CD
	AND (@経費労務費区分 = '' OR TDA経費労務費M.経費労務費区分 = @経費労務費区分)
GROUP BY TDA経費労務費M.システムCD, TDA経費労務費M.演習CD, TDA経費労務費M.会社CD, TDA経費労務費M.製造区分, TDA経費労務費M.製品CD, TDA経費労務費M.経費労務費区分
ORDER BY TDA経費労務費M.経費労務費区分




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE  PROCEDURE dbo.SPM表記名称取得
@システムCD varchar(12), @演習CD varchar(12), @表記CD varchar(12)

AS

if @演習CD = '' --演習CD未指定時は全演習から取得し表記CDでグルーピング（セッション初期化のため表記CDのみ取得）
begin
	SELECT TDA表記名称M.表記CD
	FROM TDA表記名称M
	WHERE TDA表記名称M.システムCD = @システムCD
		AND (@表記CD = '' OR TDA表記名称M.表記CD = @表記CD)	--表記CDがNULL文字なら一覧取得
	GROUP BY TDA表記名称M.表記CD
end
else
begin
	SELECT TDA表記名称M.*
	FROM TDA表記名称M
	WHERE TDA表記名称M.システムCD = @システムCD
		AND TDA表記名称M.演習CD = @演習CD
		AND (@表記CD = '' OR TDA表記名称M.表記CD = @表記CD)	--表記CDがNULL文字なら一覧取得
	ORDER BY TDA表記名称M.表示順
end




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM表記名称更新
@システムCD varchar(12), @演習CD varchar(12), @表記CD varchar(12), @表記名称 varchar(255)

AS

begin transaction

UPDATE TDA表記名称M
SET 表記名称 = @表記名称
	, 更新日時 = GETDATE()
WHERE システムCD = @システムCD
	AND (@演習CD = '' OR 演習CD = @演習CD)	--NULLなら全演習を対象
	AND 表記CD = @表記CD


if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO






CREATE PROCEDURE dbo.SPM記帳チェック
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 

AS
 
SELECT ISNULL(チェック区分M.表示勘定科目, DATA3.勘定名称) AS 勘定名称
	, ISNULL(チェック区分M.最小勘定CD, DATA3.チェック区分) AS 勘定CD
	, IsNull(DATA3.チェック区分, チェック区分M.チェック区分) AS チェック区分
	, IsNull(DATA3.伝票借方, 0) AS 伝票借方
	, IsNull(DATA3.伝票貸方, 0) AS 伝票貸方
	, IsNull(DATA3.伝票残高, 0) AS 伝票残高
	, IsNull(DATA3.元帳借方, 0) AS 元帳借方
	, IsNull(DATA3.元帳貸方, 0) AS 元帳貸方
	, IsNull(DATA3.元帳残高, 0) AS 元帳残高
	, IsNull(DATA3.補助簿借方, 0) AS 補助簿借方
	, IsNull(DATA3.補助簿貸方, 0) AS 補助簿貸方
	, IsNull(DATA3.補助簿残高, 0) AS 補助簿残高
	, IsNull(DATA3.現物借方, 0) AS 現物借方
	, IsNull(DATA3.現物貸方, 0) AS 現物貸方
	, IsNull(DATA3.現物残高, 0) AS 現物残高
FROM (
	SELECT チェック区分
		, MIN(勘定名称) AS 勘定名称
		, SUM(伝票借方) AS 伝票借方
		, SUM(伝票貸方) AS 伝票貸方
		, SUM(伝票残高) AS 伝票残高
		, SUM(元帳借方) AS 元帳借方
		, SUM(元帳貸方) AS 元帳貸方
		, SUM(元帳残高) AS 元帳残高
		, SUM(補助簿借方) AS 補助簿借方
		, SUM(補助簿貸方) AS 補助簿貸方
		, SUM(補助簿残高) AS 補助簿残高
		, SUM(現物借方) AS 現物借方
		, SUM(現物貸方) AS 現物貸方
		, SUM(現物残高) AS 現物残高
	FROM (
		SELECT CASE WHEN 勘定科目M.チェック区分 <> '' THEN 勘定科目M.チェック区分 ELSE DATA1.チェック区分 END AS チェック区分
			, 勘定名称
			, DATA1.伝票借方
			, DATA1.伝票貸方
			, CASE WHEN 勘定科目M.貸借区分 = 'D' THEN IsNull(DATA1.伝票借方, 0) - IsNull(DATA1.伝票貸方, 0) ELSE IsNull(DATA1.伝票貸方, 0) - IsNull(DATA1.伝票借方, 0) END AS 伝票残高
			, DATA1.元帳借方
			, DATA1.元帳貸方
			, CASE WHEN 勘定科目M.貸借区分 = 'D' THEN IsNull(DATA1.元帳借方, 0) - IsNull(DATA1.元帳貸方, 0) ELSE IsNull(DATA1.元帳貸方, 0) - IsNull(DATA1.元帳借方, 0) END AS 元帳残高
			, DATA1.補助簿借方
			, DATA1.補助簿貸方
			, DATA1.補助簿残高
			, DATA1.現物借方
			, DATA1.現物貸方
			, DATA1.現物残高
			, 勘定科目M.業種CD
		FROM (
			SELECT '1' AS チェック種類
				, TSK伝票明細F.勘定CD AS チェック区分
				, TSK伝票明細F.借方金額 AS 伝票借方
				, TSK伝票明細F.貸方金額 AS 伝票貸方
				, NULL AS 伝票残高
				, NULL AS 元帳借方
				, NULL AS 元帳貸方
				, NULL AS 元帳残高
				, NULL AS 補助簿借方
				, NULL AS 補助簿貸方
				, NULL AS 補助簿残高
				, NULL AS 現物借方
				, NULL AS 現物貸方
				, NULL AS 現物残高
			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.伝票番号
			WHERE (TSK伝票F.システムCD = @システムCD)
				AND (TSK伝票F.演習CD = @演習CD)
				AND (TSK伝票F.会社CD = @会社CD)
				AND (TSK伝票F.削除フラグ = 0)
			UNION
			SELECT '2', 勘定CD, NULL, NULL, NULL, 借方金額, 貸方金額, NULL, NULL, NULL, NULL, NULL, NULL, NULL
			FROM TSK帳簿_総勘定元帳F
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
				AND 会社CD = @会社CD
			UNION
			SELECT '3', 'AA' AS Expr1, NULL, NULL, NULL, NULL, NULL, NULL, 収入金額, 支出金額, IsNull(収入金額, 0) - IsNull(支出金額, 0), NULL, NULL, NULL
			FROM TSK補助簿_現金出納帳F
                                                                       WHERE           システムCD = @システムCD AND 
                                                                                             演習CD = @演習CD AND 
                                                                                             会社CD = @会社CD
                                                                       UNION
                                                                       SELECT          '3', 'AB' AS Expr1, NULL, NULL, NULL, NULL,
                                                                                              NULL, NULL, 預入金額, 払出金額, 
                                                                                             IsNull(預入金額, 0) - IsNull(払出金額, 0), NULL, NULL, NULL
                                                                       FROM            TSK補助簿_当座預金出納帳F
                                                                       WHERE           システムCD = @システムCD AND 
                                                                                             演習CD = @演習CD AND 
                                                                                             会社CD = @会社CD
                                                                       UNION
                                                                       SELECT          '3', 'AE', NULL, NULL, NULL, NULL, NULL, NULL,
                                                                                              AE.Kashikata, AE.Karikata, 
                                                                                             AE.Zandaka, NULL, NULL, NULL
                                                                       FROM            (SELECT          金額 AS Kashikata, 
                                                                                                                    0 AS Karikata, 
                                                                                                                    金額 AS Zandaka
                                                                                              FROM             TSK補助簿_受取手形記入帳F
                                                                                              WHERE           システムCD = @システムCD AND
                                                                                                                     演習CD = @演習CD AND
                                                                                                                     会社CD = @会社CD AND 
                                                                                                                    顛末日付 IS NULL
                                                                                              UNION
                                                                                              SELECT          金額, 金額, 0
                                                                                              FROM            TSK補助簿_受取手形記入帳F
                                                                                              WHERE           システムCD = @システムCD AND
                                                                                                                     演習CD = @演習CD AND
                                                                                                                     会社CD = @会社CD AND 
                                                                                                                    顛末日付 IS NOT NULL) 
                                                                                             AE
                                                                       UNION
                                                                       SELECT          '3', 'AC', NULL, NULL, NULL, NULL, NULL, NULL,
                                                                                              借方金額, 貸方金額, 
                                                                                             IsNull(借方金額, 0) - IsNull(貸方金額, 0), NULL, NULL, NULL
                                                                       FROM            TSK補助簿_売掛金元帳F
                                                                       WHERE           システムCD = @システムCD AND 
                                                                                             演習CD = @演習CD AND 
                                                                                             会社CD = @会社CD
                                                                       UNION
                                                                       SELECT          '3', 'AF', NULL, NULL, NULL, NULL, NULL, NULL,
                                                                                              AF.Kashikata, AF.Karikata, 
                                                                                             AF.Zandaka, NULL, NULL, NULL
                                                                       FROM            (SELECT          0 AS Kashikata, 
                                                                                                                    金額 AS Karikata, 
                                                                                                                    金額 AS Zandaka
                                                                                              FROM             TSK補助簿_支払手形記入帳F
                                                                                              WHERE           システムCD = @システムCD AND
                                                                                                                     演習CD = @演習CD AND
                                                                                                                     会社CD = @会社CD
                                                                                              UNION
                                                                                              SELECT          金額, 金額, 0
                                                                                              FROM            TSK補助簿_支払手形記入帳F
                                                                                                                     TT
                                                                                              WHERE           システムCD = @システムCD AND
                                                                                                                     演習CD = @演習CD AND
                                                                                                                     会社CD = @会社CD AND 
                                                                                                                    顛末日付 IS NOT NULL) 
                                                                                             AF
                                                                       UNION
                                                                       SELECT          '3', 'AD', NULL, NULL, NULL, NULL, NULL, NULL,
                                                                                              借方金額, 貸方金額,
                                                                                             IsNull(貸方金額, 0) - IsNull(借方金額, 0), NULL, NULL, NULL
                                                                       FROM            TSK補助簿_買掛金元帳F
                                                                       WHERE           システムCD = @システムCD AND 
                                                                                             演習CD = @演習CD AND 
                                                                                             会社CD = @会社CD
                                                                       UNION
                                                                       SELECT          '3', 'AG', NULL, NULL, NULL, NULL, NULL, NULL,
                                                                                              AG.Kashikata, AG.Karikata, 
                                                                                             AG.Zandaka, NULL, NULL, NULL
                                                                       FROM            (SELECT          0 AS Kashikata, 
                                                                                                                    金額 AS Karikata, 
                                                                                                                    金額 AS Zandaka
                                                                                              FROM             TSK補助簿_売上帳F
                                                                                              WHERE           システムCD = @システムCD AND
                                                                                                                     演習CD = @演習CD AND
                                                                                                                     会社CD = @会社CD AND 
                                                                                                                    返品区分 = 0
                                                                                              UNION
                                                                                              SELECT          金額, 0, - 1 * 金額
                                                                                              FROM            TSK補助簿_売上帳F
                                                                                              WHERE           システムCD = @システムCD AND
                                                                                                                     演習CD = @演習CD AND
                                                                                                                     会社CD = @会社CD AND 
                                                                                                                    返品区分 <> 0) 
                                                                                             AG
                                                                       UNION
                                                                       SELECT          '3', 'AH', NULL, NULL, NULL, NULL, NULL, NULL,
                                                                                              AH.Kashikata, AH.Karikata, 
                                                                                             AH.Zandaka, NULL, NULL, NULL
                                                                       FROM            (SELECT          金額 AS Kashikata, 
                                                                                                                    0 AS Karikata, 
                                                                                                                    金額 AS Zandaka
                                                                                              FROM             TSK補助簿_仕入帳F
                                                                                              WHERE           システムCD = @システムCD AND
                                                                                                                     演習CD = @演習CD AND
                                                                                                                     会社CD = @会社CD AND 
                                                                                                                    返品区分 = 0
                                                                                              UNION
                                                                                              SELECT          0, 金額, - 1 * 金額
                                                                                              FROM            TSK補助簿_仕入帳F
                                                                                              WHERE           システムCD = @システムCD AND
                                                                                                                     演習CD = @演習CD AND
                                                                                                                     会社CD = @会社CD AND 
                                                                                                                    返品区分 <> 0) AH
                                                                       UNION
                                                                       select '4',  'AA', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 
                                                                       IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額, 
                                                                       IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額, 
                                                                       IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) -
                                                                       IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
                                                                       FROM TGK現金入出金TRN
                                                                       where システムCD LIKE @システムCD
                                                                        AND 演習CD LIKE @演習CD
                                                                        and 会社CD LIKE @会社CD
                                                                       UNION
                                                                       select '4', 'AB', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額,
                                                                             0) END), 0) AS 借方金額, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) 
                                                                             <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額, 
                                                                             IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) 
                                                                             END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) 
                                                                             <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
                                                                       FROM   TGB銀行口座F INNER JOIN
                                                                             TGB銀行口座入出金TRN ON 
                                                                       	TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD AND
                                                                       	TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD AND
                                                                       	TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD AND
                                                                       	TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分 AND 
                                                                       	TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
                                                                       where TGB銀行口座F.システムCD LIKE @システムCD
                                                                        and TGB銀行口座F.演習CD LIKE @演習CD
                                                                        and TGB銀行口座F.会社CD LIKE @会社CD
                                                                        and TGB銀行口座F.口座区分 = 'T'
                                                                       UNION
                                                                       select  '4',
                                                                       'AE', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, SUM(借方金額), SUM(貸方金額), SUM(残高金額) FROM
                                                                       (
                                                                       SELECT 
                                                                       IsNull(SUM(金額), 0) AS 借方金額,

                                                                       0 AS 貸方金額, 
                                                                       IsNull(SUM(金額), 0) AS 残高金額
                                                                       FROM TGA手形F
                                                                       where システムCD LIKE @システムCD
                                                                        and 演習CD LIKE @演習CD
                                                                        and 会社CD = 受取人CD
                                                                        and 受取人CD LIKE @会社CD
                                                                        and (文書種類CD = 'TY' Or 文書種類CD = 'TK')
                                                                       UNION
                                                                       SELECT 
                                                                       0 AS 借方金額,
                                                                       IsNull(SUM(金額), 0) AS 貸方金額, 
                                                                       -1 * IsNull(SUM(金額), 0) AS 残高金額
                                                                       FROM TGA手形F
                                                                       where システムCD LIKE @システムCD
                                                                        and 演習CD LIKE @演習CD
                                                                        and 会社CD = 受取人CD
                                                                        and 受取人CD LIKE @会社CD
                                                                        and (文書種類CD = 'TY' Or 文書種類CD = 'TK')
                                                                        and 顛末区分 <> '' 
                                                                       ) A
                                                                       UNION
                                                                       select  '4',
                                                                       'AF', NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, SUM(借方金額), SUM(貸方金額), SUM(残高金額) FROM
                                                                       (
                                                                       SELECT システムCD, 演習CD, 会社CD,
                                                                       0 AS 借方金額, 
                                                                       IsNull(SUM(金額), 0) AS 貸方金額,
                                                                       IsNull(SUM(金額), 0) AS 残高金額
                                                                       FROM TGA手形F
                                                                       where システムCD LIKE @システムCD
                                                                        and 演習CD LIKE @演習CD
                                                                        and 会社CD = 作成会社CD
                                                                        and 会社CD LIKE @会社CD
                                                                        and (文書種類CD = 'TY')
                                                                        and (発行フラグ >= 1)
                                                                       group by システムCD, 演習CD, 会社CD
                                                                       UNION
                                                                       SELECT システムCD, 演習CD, 会社CD,
                                                                       IsNull(SUM(金額), 0) AS 借方金額, 
                                                                       0 AS 貸方金額,
                                                                       -1 * IsNull(SUM(金額), 0) AS 残高金額
                                                                       FROM TGA手形F


                                                                       where システムCD LIKE @システムCD
                                                                        and 演習CD LIKE @演習CD
                                                                        and 会社CD = 作成会社CD
                                                                        and 会社CD LIKE @会社CD
                                                                        and (文書種類CD = 'TY')
                                                                        and (発行フラグ >= 1)
                                                                        and 顛末区分 <> '' 
                                                                       group by システムCD, 演習CD, 会社CD
                                                                       UNION
                                                                       SELECT システムCD, 演習CD, 引受人CD,
                                                                       0 AS 借方金額, 
                                                                       IsNull(SUM(金額), 0) AS 貸方金額,
                                                                       IsNull(SUM(金額), 0) AS 残高金額
                                                                       FROM TGA手形F
                                                                       where システムCD LIKE @システムCD
                                                                        and 演習CD LIKE @演習CD
                                                                        and 会社CD = 作成会社CD
                                                                        and 引受人CD LIKE @会社CD
                                                                        and (文書種類CD = 'TK')
                                                                        and (発行フラグ >= 1)
                                                                       GROUP BY システムCD, 演習CD, 引受人CD
                                                                       UNION
                                                                       SELECT システムCD, 演習CD, 引受人CD,
                                                                       IsNull(SUM(金額), 0) AS 借方金額, 
                                                                       0 AS 貸方金額,
                                                                       -1 * IsNull(SUM(金額), 0) AS 残高金額
                                                                       FROM TGA手形F
                                                                       where システムCD LIKE @システムCD
                                                                        and 演習CD LIKE @演習CD
                                                                        and 会社CD = 作成会社CD
                                                                        and 引受人CD LIKE @会社CD
                                                                        and (文書種類CD = 'TK')
                                                                        and (発行フラグ >= 1)
                                                                        and 顛末区分 <> '' 
                                                                       GROUP BY システムCD, 演習CD, 引受人CD
                                                                       ) A 
                                                                       ) 
                                                                     DATA1 LEFT OUTER JOIN
                                                                         (SELECT          *
                                                                            FROM             TDA勘定科目M
                                                                            WHERE            (システムCD = @システムCD) AND 
                                                                                                   演習CD = @演習CD) 
                                                                     勘定科目M ON 
                                                                     DATA1.チェック区分 = 勘定科目M.勘定CD) 
                                             DATA2
                       GROUP BY     チェック区分) DATA3 FULL OUTER JOIN
                          (SELECT          TC9区分M.区分CD AS チェック区分, 
                                                    TC9区分M.区分名称 AS 表示勘定科目, 
                                                    MIN(TDA勘定科目M.勘定CD) AS 最小勘定CD
                             FROM             (SELECT          区分CD, 区分名称
                                                     FROM             TC9区分M
                                                     WHERE           (システムCD = @システムCD) AND 
                                                                           (データ識別 = 'チェック区分')) 
                                                    TC9区分M INNER JOIN
                                                        (SELECT          *
                                                           FROM             TDA勘定科目M
                                                           WHERE            (システムCD = @システムCD) AND 
                                                                                  演習CD = @演習CD) TDA勘定科目M ON 
                                                    TC9区分M.区分CD = TDA勘定科目M.チェック区分
                             GROUP BY     TC9区分M.区分CD, TC9区分M.区分名称) チェック区分M ON 
                      DATA3.チェック区分 = チェック区分M.チェック区分
ORDER BY     ISNULL(チェック区分M.チェック区分, 'Z'), DATA3.チェック区分















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO














CREATE PROCEDURE dbo.SPM記帳チェックOLD
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 
AS

create table #actbl 
(
  チェック区分    varchar(4) null
, 勘定CD    varchar(25) null
, 勘定区分    varchar(2) null
, 貸借区分    varchar(2) null
, 勘定名称    varchar(40) null
, 順序  varchar(4) null
)

create table #actbl2
(
  チェック区分    varchar(4) null
, 勘定CD    varchar(25) null
, 勘定区分    varchar(2) null
, 貸借区分    varchar(2) null
, 勘定名称    varchar(40) null
)

create table #denpyo 
(
  勘定CD    varchar(25) null
, 借方金額    money   null
, 貸方金額    money   null
, 残高金額    money   null
)

create table #mototyo 
(
  勘定CD    varchar(25) null
, 借方金額    money   null
, 貸方金額    money   null
, 残高金額    money   null
)

create table #hojyobo 
(
  チェック区分    varchar(4) null
, 借方金額    money   null
, 貸方金額    money   null
, 残高金額    money   null
)

create table #genbutsu
(
  チェック区分    varchar(4) null
, 借方金額    money   null
, 貸方金額    money   null
, 残高金額    money   null
)

create table #list 
(
  演習CD    varchar(12) null
, 会社CD varchar(20) null
, 会社名称   varchar(40) null
, チェック区分    varchar(4) null
, 勘定名称   varchar(40) null
, 勘定チェック    int
, 伝票借方    money   null
, 伝票貸方    money   null
, 伝票残高    money   null
, 元帳借方    money   null
, 元帳貸方    money   null
, 元帳残高    money   null
, 元帳借チェック    int   null
, 元帳貸チェック    int   null
, 元帳残チェック    int   null
, 補助簿借方    money   null
, 補助簿貸方    money   null
, 補助簿残高    money   null
, 補助簿借チェック    int   null
, 補助簿貸チェック    int   null
, 補助簿残チェック    int   null
, 現物借方    money   null
, 現物貸方    money   null
, 現物残高    money   null
, 現物借チェック    int   null
, 現物貸チェック    int   null
, 現物残チェック    int   null
)

/*
AA:'1111','現金'
AB:'1115','当座預金'
AB:'4112','当座預金'
AC:'1131','売掛金'
AD:'4120','買掛金'
AE:'1121','受取手形'
AF:'4111','支払手形'
AG:'8111','売上'
AH:'8221','仕入'
AI:'1457','仮払消費税',
AJ:'4167','仮受消費税',
*/

/* チェック対象科目テーブルの作成 #actbl */

insert into #actbl
SELECT          TDA勘定科目M.チェック区分, TDA勘定科目M.勘定CD, TDA勘定科目M.勘定区分, TDA勘定科目M.貸借区分, CASE WHEN Left(A.区分CD, 1) = 'B' Then TDA勘定科目M.勘定名称 ELSE A.区分名称 END , TDA勘定科目M.勘定CD
FROM            TDA勘定科目M
INNER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = 'チェック区分') A ON 
TDA勘定科目M.システムCD  =  A.システムCD AND TDA勘定科目M.チェック区分  =  A.区分CD
where TDA勘定科目M.システムCD = @システムCD AND TDA勘定科目M.演習CD = @演習CD AND TDA勘定科目M.チェック区分 <> ''

insert #actbl2
select チェック区分, MIN(勘定CD), MIN(勘定区分), MIN(貸借区分), MIN(勘定名称)
from #actbl
group by チェック区分
order by MIN(順序)

insert #genbutsu
SELECT  'AA', 
IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額, 
IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額, 
IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) -
IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
FROM TGK現金入出金TRN
where システムCD = @システムCD AND 演習CD = @演習CD
 and 会社CD = @会社CD
GROUP BY 演習CD, 会社CD

insert #genbutsu
SELECT 'AB', IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額,
      0) END), 0) AS 借方金額, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) 
      <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額, 
      IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) 
      END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) 
      <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
FROM   TGB銀行口座F INNER JOIN
      TGB銀行口座入出金TRN ON 
	TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD AND
	TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD AND
	TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD AND
	TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分 AND 
	TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
where TGB銀行口座F.システムCD = @システムCD
 and TGB銀行口座F.演習CD = @演習CD
 and TGB銀行口座F.会社CD = @会社CD
 and TGB銀行口座F.口座区分 = 'T'
GROUP BY TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

insert #genbutsu
SELECT 'AF', SUM(借方金額), SUM(貸方金額), SUM(残高金額) FROM
(
SELECT 
0 AS 借方金額, 
IsNull(SUM(金額), 0) AS 貸方金額,
IsNull(SUM(金額), 0) AS 残高金額
FROM TGA手形F
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 会社CD = @会社CD
 and (発行フラグ = 1)
GROUP BY 演習CD, 会社CD
UNION
SELECT 

IsNull(SUM(CASE WHEN 顛末区分 <> '' THEN 金額 END), 0) AS 借方金額, 
0 AS 貸方金額,

-1 * IsNull(SUM(CASE WHEN 顛末区分 = '' THEN 金額 END), 0) AS 残高金額
FROM TGA手形F
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 会社CD = @会社CD
 and (発行フラグ = 1)
 and 顛末区分 <> '' 
GROUP BY 演習CD, 会社CD
) A

insert #genbutsu
SELECT 'AE', SUM(借方金額), SUM(貸方金額), SUM(残高金額) FROM
(
SELECT 
IsNull(SUM(金額), 0) AS 借方金額,
0 AS 貸方金額, 
IsNull(SUM(金額), 0) AS 残高金額
FROM TGA手形F
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 受取人CD = @会社CD
 and (発行フラグ = 1)
GROUP BY 演習CD, 会社CD
UNION
SELECT 
0 AS 借方金額,
IsNull(SUM(CASE WHEN 顛末区分 <> '' THEN 金額 END), 0) AS 貸方金額, 
-1 * IsNull(SUM(CASE WHEN 顛末区分 = '' THEN 金額 END), 0) AS 残高金額
FROM TGA手形F
where システムCD = @システムCD
 and 演習CD = @演習CD
 and 受取人CD = @会社CD
 and (発行フラグ = 1)
 and 顛末区分 <> '' 
GROUP BY 演習CD, 会社CD
) A

/* 指定演習CD・会社のデータ抽出 */
/* 伝票データ ==> #denpyo */
insert #denpyo 
select
 MIN(TSK伝票明細F.勘定CD)
, sum(TSK伝票明細F.借方金額)
, sum(TSK伝票明細F.貸方金額)
,case #actbl.貸借区分 when 'D' then isnull(sum(TSK伝票明細F.借方金額),0) - isnull(sum(TSK伝票明細F.貸方金額),0)
 else isnull(sum(TSK伝票明細F.貸方金額),0) - isnull(sum(TSK伝票明細F.借方金額),0) end
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
   [#actbl] ON TSK伝票明細F.勘定CD = [#actbl].勘定CD
where TSK伝票F.システムCD = @システムCD
 and TSK伝票F.演習CD = @演習CD
 and TSK伝票F.会社CD = @会社CD
 and TSK伝票F.削除フラグ = 0
group by #actbl.勘定名称, #actbl.貸借区分

/* 元帳データ ==> #mototyo */
insert #mototyo 
select
 MIN(TSK帳簿_総勘定元帳F.勘定CD)
, sum(TSK帳簿_総勘定元帳F.借方金額)
, sum(TSK帳簿_総勘定元帳F.貸方金額)
,case #actbl.貸借区分 when 'D' then isnull(sum(TSK帳簿_総勘定元帳F.借方金額),0) - isnull(sum(TSK帳簿_総勘定元帳F.貸方金額),0)
 else isnull(sum(TSK帳簿_総勘定元帳F.貸方金額),0) - isnull(sum(TSK帳簿_総勘定元帳F.借方金額),0) end
FROM #actbl 
 , TSK帳簿_総勘定元帳F
where TSK帳簿_総勘定元帳F.システムCD = @システムCD
 and TSK帳簿_総勘定元帳F.演習CD = @演習CD
 and TSK帳簿_総勘定元帳F.会社CD = @会社CD
 and TSK帳簿_総勘定元帳F.勘定CD = #actbl.勘定CD
group by #actbl.勘定名称, #actbl.貸借区分

/* ほじょぼデータ ==> #hojyobo */
/* 現金出納帳 */
insert #hojyobo 
select
 'AA'
, sum(TT.収入金額)
, sum(TT.支出金額)
, isnull(sum(TT.収入金額),0) - isnull(sum(TT.支出金額),0)
FROM TSK補助簿_現金出納帳F  TT ( nolock )
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD

/* 当座預金出納帳 */
insert #hojyobo 
select
 'AB'
, sum(TT.預入金額)
, sum(TT.払出金額)
, isnull(sum(TT.預入金額),0) - isnull(sum(TT.払出金額),0)
FROM TSK補助簿_当座預金出納帳F TT ( nolock )
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD

/* 受取手形 */
insert #hojyobo 
select 'AE', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_受取手形記入帳F TT
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD
UNION
select
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )

FROM TSK補助簿_受取手形記入帳F TT 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
 and TT.顛末日付 is not null
group by TT.演習CD , TT.会社CD
) a

/* 売掛金 */
insert #hojyobo 
select
 'AC'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.借方金額),0) - isnull(sum(TT.貸方金額),0)
FROM TSK補助簿_売掛金元帳F TT ( nolock )
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD

/* 支払手形 */
insert #hojyobo 
select 'AF', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_支払手形記入帳F TT
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD
UNION
select
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) 
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_支払手形記入帳F TT 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
 and TT.顛末日付 is not null
group by TT.演習CD , TT.会社CD
) a

/* 買掛金 */
insert #hojyobo 
select
 'AD'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.貸方金額),0) - isnull(sum(TT.借方金額),0)
FROM TSK補助簿_買掛金元帳F TT ( nolock )
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD

/* 売上 */
insert #hojyobo 
select
 'AG'
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end ) 
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_売上帳F TT ( nolock )
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD

/* 仕入 */
insert #hojyobo 
select
 'AH'
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end ) 
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_仕入帳F TT ( nolock )
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = @会社CD
group by TT.演習CD , TT.会社CD

/* 表示用データ ==> #list */
insert #list (演習CD,会社CD,会社名称,チェック区分,勘定名称,勘定チェック
,伝票借方,伝票貸方,伝票残高
,元帳借方,元帳貸方,元帳残高
,元帳借チェック,元帳貸チェック,元帳残チェック
,補助簿借方,補助簿貸方,補助簿残高
,補助簿借チェック,補助簿貸チェック,補助簿残チェック
,現物借方,現物貸方,現物残高
,現物借チェック,現物貸チェック,現物残チェック
)
select @演習CD,@会社CD,'会社名称'
,#actbl2.チェック区分,#actbl2.勘定名称,''
,#denpyo.借方金額,#denpyo.貸方金額,#denpyo.残高金額
,#mototyo.借方金額,#mototyo.貸方金額,#mototyo.残高金額
,'','',''
,#hojyobo.借方金額,#hojyobo.貸方金額,#hojyobo.残高金額
,'','',''
,#genbutsu.借方金額,#genbutsu.貸方金額,#genbutsu.残高金額
,'','',''
FROM #actbl2
 LEFT OUTER JOIN #denpyo ON #denpyo.勘定CD = #actbl2.勘定CD
 LEFT OUTER JOIN #mototyo ON #mototyo.勘定CD = #actbl2.勘定CD
 LEFT OUTER JOIN #hojyobo ON #hojyobo.チェック区分 = #actbl2.チェック区分
 LEFT OUTER JOIN #genbutsu ON #genbutsu.チェック区分 = #actbl2.チェック区分

update #list
set 元帳借チェック = 3
 , 元帳貸チェック = 3
 , 元帳残チェック = 3
 , 補助簿借チェック = 3
 , 補助簿貸チェック = 3
 , 補助簿残チェック = 3
 , 現物借チェック = 3
 , 現物貸チェック = 3
 , 現物残チェック = 3
From #list

/* 勘定の各項目毎のチェック 設定 */
update #list
set 元帳借チェック = case when isnull(伝票借方,0) = isnull(元帳借方,0) then 1 else 2 end 
 , 元帳貸チェック = case when isnull(伝票貸方,0) = isnull(元帳貸方,0) then 1 else 2 end
 , 元帳残チェック = case when isnull(伝票残高,0) = isnull(元帳残高,0) then 1 else 2 end
 , 補助簿借チェック = case when isnull(伝票借方,0) = isnull(補助簿借方,0) then 1 else 2 end
 , 補助簿貸チェック = case when isnull(伝票貸方,0) = isnull(補助簿貸方,0) then 1 else 2 end
 , 補助簿残チェック = case when isnull(伝票残高,0) = isnull(補助簿残高,0) then 1 else 2 end
 , 現物借チェック = case when isnull(伝票借方,0) = isnull(現物借方,0) then 1 else 2 end
 , 現物貸チェック = case when isnull(伝票貸方,0) = isnull(現物貸方,0) then 1 else 2 end
 , 現物残チェック = case when isnull(伝票残高,0) = isnull(現物残高,0) then 1 else 2 end
From #list
where 伝票借方 is not null
 or 伝票貸方 is not null
 or 伝票残高 is not null
 or 元帳借方 is not null
 or 元帳貸方 is not null
 or 元帳残高 is not null
 or 補助簿借方 is not null
 or 補助簿貸方 is not null
 or 補助簿残高 is not null
 or 現物借方 is not null
 or 現物貸方 is not null
 or 現物残高 is not null

/* 勘定のチェック 設定 */
update #list
 set 勘定チェック = 2
from #list
where 元帳借チェック = 2 
 or 元帳貸チェック = 2 
 or 元帳残チェック = 2 
 or 補助簿借チェック = 2 
 or 補助簿貸チェック = 2 
 or 補助簿残チェック = 2 
 or 現物借チェック = 2 
 or 現物貸チェック = 2 
 or 現物残チェック = 2 

/* 勘定のチェック 設定 */


update #list


 set 勘定チェック = 1
from #list

where 元帳借チェック = 1 
 and 元帳貸チェック = 1 
 and 元帳残チェック = 1 
 and 補助簿借チェック = 1 
 and 補助簿貸チェック = 1 

 and 補助簿残チェック = 1 
 and 現物借チェック = 1 
 and 現物貸チェック = 1 
 and 現物残チェック = 1 

update #list
 set 補助簿借チェック = 0, 補助簿貸チェック = 0, 補助簿残チェック = 0
where LEFT(チェック区分,1) = 'B'

update #list
 set 現物借チェック = 0, 現物貸チェック = 0, 現物残チェック = 0
where 勘定名称 LIKE '%掛金' OR 勘定名称 = '仕入' OR 勘定名称 LIKE '売上' OR LEFT(チェック区分,1) = 'B'

/* 勘定の明細リスト抽出 */

SELECT          #list.*, B.勘定CD
                       FROM             #list INNER JOIN
                          (SELECT          チェック区分, MIN(勘定CD) AS 勘定CD
                             FROM            #actbl
                             GROUP BY     チェック区分) B ON #list.チェック区分 = B.チェック区分













GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM記帳チェック一覧
@システムCD varchar(12), @演習CD varchar(12) 
AS

DECLARE @会社CD varchar(12)
SET @会社CD = '%'

/* SPM記帳チェック挿入集計 をほぼそのまま持ってきています */
SELECT ISNULL(DATA3.会社CD, チェック区分M.会社CD) AS 会社CD
	, ISNULL(チェック区分M.表示勘定科目, DATA3.勘定名称) AS 勘定名称
	, ISNULL(チェック区分M.最小勘定CD, DATA3.チェック区分) AS 勘定CD
	, IsNull(DATA3.チェック区分, チェック区分M.チェック区分) AS チェック区分
	, IsNull(DATA3.伝票借方, 0) AS 伝票借方
	, IsNull(DATA3.伝票貸方, 0) AS 伝票貸方
	, IsNull(DATA3.伝票残高, 0) AS 伝票残高
	, IsNull(DATA3.元帳借方, 0) AS 元帳借方
	, IsNull(DATA3.元帳貸方, 0) AS 元帳貸方
	, IsNull(DATA3.元帳残高, 0) AS 元帳残高
	, IsNull(DATA3.補助簿借方, 0) AS 補助簿借方
	, IsNull(DATA3.補助簿貸方, 0) AS 補助簿貸方
	, IsNull(DATA3.補助簿残高, 0) AS 補助簿残高
	, IsNull(DATA3.現物借方, 0) AS 現物借方
	, IsNull(DATA3.現物貸方, 0) AS 現物貸方
	, IsNull(DATA3.現物残高, 0) AS 現物残高
INTO #記帳チェック
FROM (
	SELECT 会社CD
		, チェック区分
		, MIN(勘定名称) AS 勘定名称
		, SUM(伝票借方) AS 伝票借方
		, SUM(伝票貸方) AS 伝票貸方
		, SUM(伝票残高) AS 伝票残高
		, SUM(元帳借方) AS 元帳借方
		, SUM(元帳貸方) AS 元帳貸方
		, SUM(元帳残高) AS 元帳残高
		, SUM(補助簿借方) AS 補助簿借方
		, SUM(補助簿貸方) AS 補助簿貸方
		, SUM(補助簿残高) AS 補助簿残高
		, SUM(現物借方) AS 現物借方
		, SUM(現物貸方) AS 現物貸方
		, SUM(現物残高) AS 現物残高
	FROM (
		SELECT 会社CD
			, CASE WHEN 勘定科目M.チェック区分 <> '' THEN 勘定科目M.チェック区分 ELSE DATA1.チェック区分 END AS チェック区分
			, 勘定名称
			, DATA1.伝票借方
			, DATA1.伝票貸方
			, CASE WHEN 勘定科目M.貸借区分 = 'D' THEN IsNull(DATA1.伝票借方, 0) - IsNull(DATA1.伝票貸方, 0) ELSE IsNull(DATA1.伝票貸方, 0) - IsNull(DATA1.伝票借方, 0) END AS 伝票残高
			, DATA1.元帳借方, DATA1.元帳貸方
			, CASE WHEN 勘定科目M.貸借区分 = 'D' THEN IsNull(DATA1.元帳借方, 0) - IsNull(DATA1.元帳貸方, 0) ELSE IsNull(DATA1.元帳貸方, 0) - IsNull(DATA1.元帳借方, 0) END AS 元帳残高
			, DATA1.補助簿借方
			, DATA1.補助簿貸方
			, DATA1.補助簿残高
			, DATA1.現物借方
			, DATA1.現物貸方
			, DATA1.現物残高
		FROM (
			SELECT *
			FROM TTK記帳チェックF
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
				AND 会社CD LIKE @会社CD
		) DATA1
		LEFT OUTER JOIN (
			SELECT *
			FROM TDA勘定科目M
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
		) 勘定科目M
			ON DATA1.チェック区分 = 勘定科目M.勘定CD
	) DATA2
	GROUP BY 会社CD
		, チェック区分
) DATA3
FULL OUTER JOIN (
	SELECT *
	FROM (
		SELECT TC9区分M.区分CD AS チェック区分
			, TC9区分M.区分名称 AS 表示勘定科目
			, MIN(TDA勘定科目M.勘定CD) AS 最小勘定CD
		FROM (
			SELECT 区分CD
				, 区分名称
			FROM TC9区分M
			WHERE システムCD = @システムCD
				AND データ識別 = 'チェック区分'
		) TC9区分M
		INNER JOIN (
			SELECT *
			FROM TDA勘定科目M
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
		) TDA勘定科目M
			ON TC9区分M.区分CD = TDA勘定科目M.チェック区分
		GROUP BY TC9区分M.区分CD
			, TC9区分M.区分名称
	) A
	CROSS JOIN (
		SELECT *
		FROM TDA会社M
		WHERE システムCD = @システムCD
			AND 演習CD = @演習CD
			And 会社CD LIKE @会社CD
	) B
) チェック区分M
	ON DATA3.会社CD = チェック区分M.会社CD
	AND DATA3.チェック区分 = チェック区分M.チェック区分
ORDER BY チェック区分M.会社CD
	, ISNULL(チェック区分M.チェック区分, 'Z')
	, DATA3.チェック区分


SELECT CASE WHEN 伝票借方 = 元帳借方 AND 伝票貸方 = 元帳貸方 AND 伝票残高 = 元帳残高 AND 伝票借方 = 0 AND 元帳借方 = 0 AND 伝票貸方 = 0 AND 元帳貸方 = 0 AND 伝票残高 = 0 AND 元帳残高 = 0 THEN -1 WHEN 伝票借方 = 元帳借方 AND 伝票貸方 = 元帳貸方 AND 伝票残高 = 元帳残高 THEN 1 ELSE 0 END AS 元帳
	, CASE WHEN 伝票借方 = 補助簿借方 AND 伝票貸方 = 補助簿貸方 AND 伝票残高 = 補助簿残高 AND 伝票借方 = 0 AND 補助簿借方 = 0 AND 伝票貸方 = 0 AND 補助簿貸方 = 0 AND 伝票残高 = 0 AND 補助簿残高 = 0 THEN -1 WHEN 伝票借方 = 補助簿借方 AND 伝票貸方 = 補助簿貸方 AND 伝票残高 = 補助簿残高 THEN 1 ELSE 0 END AS 補助簿
	--現物処理追加（110124小野）
	, CASE WHEN 伝票借方 = 現物借方 AND 伝票貸方 = 現物貸方 AND 伝票残高 = 現物残高 AND 伝票借方 = 0 AND 現物借方 = 0 AND 伝票貸方 = 0 AND 現物貸方 = 0 AND 伝票残高 = 0 AND 現物残高 = 0 THEN -1 WHEN 伝票借方 = 現物借方 AND 伝票貸方 = 現物貸方 AND 伝票残高 = 現物残高 THEN 1 ELSE 0 END AS 現物
	, *
INTO #記帳チェック2
FROM #記帳チェック


SELECT *
INTO #記帳チェック3
FROM (
	SELECT 会社CD, 元帳 AS 元帳AA, 補助簿 AS 補助簿AA, 現物 AS 現物AA, 0 AS 元帳AB, 0 AS 補助簿AB, 0 AS 現物AB, 0 AS 元帳AC, 0 AS 補助簿AC, 0 AS 現物AC, 0 AS 元帳AD, 0 AS 補助簿AD, 0 AS 現物AD, 0 AS 元帳AE, 0 AS 補助簿AE, 0 AS 現物AE, 0 AS 元帳AF, 0 AS 補助簿AF, 0 AS 現物AF, 0 AS 元帳AG, 0 AS 補助簿AG, 0 AS 現物AG, 0 AS 元帳AH, 0 AS 補助簿AH, 0 AS 現物AH, 0 AS 元帳AI, 0 AS 補助簿AI, 0 AS 現物AI, 0 AS 元帳DB, 0 AS 補助簿DB, 0 AS 現物DB, 0 AS 元帳DD, 0 AS 補助簿DD, 0 AS 現物DD, 0 AS 元帳DE, 0 AS 補助簿DE, 0 AS 現物DE, 0 AS 元帳DF, 0 AS 補助簿DF, 0 AS 現物DF FROM #記帳チェック2 WHERE チェック区分 = 'AA'
	UNION
	SELECT 会社CD, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'AB'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'AC'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'AD'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'AE'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'AF'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'AG'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'AH'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'AI'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'DB'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'DD'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物, 0, 0, 0 FROM #記帳チェック2 WHERE チェック区分 = 'DE'
	UNION
	SELECT 会社CD, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 元帳, 補助簿, 現物 FROM #記帳チェック2 WHERE チェック区分 = 'DF'
) A


SELECT 会社CD
	, SUM(元帳AA) AS 元帳AA
	, SUM(補助簿AA) AS 補助簿AA
	, SUM(現物AA) AS 現物AA
	, SUM(元帳AB) AS 元帳AB
	, SUM(補助簿AB) AS 補助簿AB
	, SUM(現物AB) AS 現物AB
	, SUM(元帳AC) AS 元帳AC
	, SUM(補助簿AC) AS 補助簿AC
	, SUM(現物AC) AS 現物AC
	, SUM(元帳AD) AS 元帳AD
	, SUM(補助簿AD) AS 補助簿AD
	, SUM(現物AD) AS 現物AD
	, SUM(元帳AE) AS 元帳AE
	, SUM(補助簿AE) AS 補助簿AE
	, SUM(現物AE) AS 現物AE
	, SUM(元帳AF) AS 元帳AF
	, SUM(補助簿AF) AS 補助簿AF
	, SUM(現物AF) AS 現物AF
	, SUM(元帳AG) AS 元帳AG
	, SUM(補助簿AG) AS 補助簿AG
	, SUM(現物AG) AS 現物AG
	, SUM(元帳AH) AS 元帳AH
	, SUM(補助簿AH) AS 補助簿AH
	, SUM(現物AH) AS 現物AH
	, SUM(元帳AI) AS 元帳AI
	, SUM(補助簿AI) AS 補助簿AI
	, SUM(現物AI) AS 現物AI
	, SUM(元帳DB) AS 元帳DB
	, SUM(補助簿DB) AS 補助簿DB
	, SUM(現物DB) AS 現物DB
	, SUM(元帳DD) AS 元帳DD
	, SUM(補助簿DD) AS 補助簿DD
	, SUM(現物DD) AS 現物DD
	, SUM(元帳DE) AS 元帳DE
	, SUM(補助簿DE) AS 補助簿DE
	, SUM(現物DE) AS 現物DE
	, SUM(元帳DF) AS 元帳DF
	, SUM(補助簿DF) AS 補助簿DF
	, SUM(現物DF) AS 現物DF
INTO #記帳チェック4
FROM #記帳チェック3
GROUP BY 会社CD


SELECT #記帳チェック4.*
	, A.会社名称
FROM #記帳チェック4 
INNER JOIN (
	SELECT *
	FROM TDA会社M
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
) A
	ON #記帳チェック4.会社CD = A.会社CD
Order By #記帳チェック4.会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPM記帳チェック一覧OLD
@システムCD varchar(12), @演習CD varchar(12) 
AS

create table #thsmst 
(
 会社CD varchar(20) null
, 会社名称 varchar(40) null
)

create table #actbl 
(
 勘定CD varchar(25) null
, 勘定区分  varchar(1) null
, 貸借区分   varchar(1) null
, 勘定名称    varchar(20)  null
,  順序             int null
)

create table #actbl2
(
   勘定CD        varchar(25)  null
,  勘定区分       varchar(1)  null
,  貸借区分       varchar(1)  null
,  勘定名称       varchar(20)  null
)

create table #kensu 
(
   会社CD        varchar(20) null
,  仕訳行数      integer      null
)

create table #denpyo 
(
   会社CD        varchar(20) null
,  勘定CD        varchar(25)  null
,  借方金額       money      null
,  貸方金額       money      null
,  残高金額       money      null
)

create table #mototyo 
(
   会社CD        varchar(20) null
,  勘定CD        varchar(25)  null
,  借方金額       money      null
,  貸方金額       money      null
,  残高金額       money      null
)

create table #hojyobo 
(
   会社CD        varchar(20) null
,  勘定CD        varchar(25)  null
,  借方金額       money      null
,  貸方金額       money      null
,  残高金額       money      null
)

create table #list 
(
   演習CD        varchar(12) null
,  会社CD varchar(20) null
,  会社名称      varchar(40)  null
,  仕訳行数      integer      null
,  勘定CD        varchar(25)  null
,  勘定名称      varchar(20)  null
,  元帳勘定チェック       int  null
,  補助簿勘定チェック       int  null
,  伝票借方       money      null
,  伝票貸方       money      null
,  伝票残高       money      null
,  元帳借方       money      null
,  元帳貸方       money      null
,  元帳残高       money      null
,  元帳借チェック       int  null
,  元帳貸チェック       int  null
,  元帳残チェック       int  null
,  補助簿借方       money      null
,  補助簿貸方       money      null
,  補助簿残高       money      null
,  補助簿借チェック       int  null
,  補助簿貸チェック       int  null
,  補助簿残チェック       int  null
)

/* チェック対象科目テーブルの作成  #actbl  */
insert into #actbl  values ('1111','B','D','現     金', 1)
insert into #actbl  values ('1115','B','D','当座預金', 2)
insert into #actbl  values ('4112','B','D','当座預金', 3)
insert into #actbl  values ('1121','B','D','受取手形', 4)
insert into #actbl  values ('1131','B','D','売 掛 金', 5)
insert into #actbl  values ('4111','B','C','支払手形', 6)
insert into #actbl  values ('4120','B','C','買 掛 金', 7)
insert into #actbl  values ('8111','B','C','売    上', 8)
insert into #actbl  values ('8221','B','D','仕    入', 9)
insert into #actbl  values ('1457','B','D','仮払消費税', 10)
insert into #actbl  values ('4167','B','C','仮受消費税', 11)

insert #actbl2
select MIN(勘定CD), MIN(勘定区分), MIN(貸借区分), 勘定名称
from #actbl
group by 勘定名称
order by MIN(順序)

/* 指定演習CDの会社情報抽出 */
insert #thsmst
SELECT          TDA会社M.会社CD, TDA会社M.会社名称
FROM            TDA会社M INNER JOIN
                      TC2演習M ON
TDA会社M.システムCD = TC2演習M.システムCD AND
TDA会社M.演習CD = TC2演習M.演習CD
WHERE           (TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @演習CD)
  AND           (TDA会社M.業種CD = 'S')
/*  AND     (  ( (TDA会社M.自社フラグ = 1) AND (TC2演習M.演習区分 = 'P') ) OR (TC2演習M.演習区分 = 'G')  ) */

/* 指定演習CD・会社のデータ抽出  */
/* 仕訳明細行の集計  */
INSERT #kensu
SELECT TSK伝票明細F.会社CD, count(*)
FROM TSK伝票F 
INNER JOIN #thsmst ON TSK伝票F.会社CD = #thsmst.会社CD
 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.伝票区分 
 where TSK伝票F.システムCD = @システムCD
 and TSK伝票F.演習CD = @演習CD
 and TSK伝票F.削除フラグ = 0
group by TSK伝票明細F.演習CD, TSK伝票明細F.会社CD

insert #denpyo 
select
 TSK伝票明細F.会社CD
, MIN(TSK伝票明細F.勘定CD)
, isnull(sum(TSK伝票明細F.借方金額),0)
, isnull(sum(TSK伝票明細F.貸方金額),0)
, case #actbl.貸借区分 
  when 'D' then isnull(sum(TSK伝票明細F.借方金額),0) -  isnull(sum(TSK伝票明細F.貸方金額),0)
    else  isnull(sum(TSK伝票明細F.貸方金額),0)  -   isnull(sum(TSK伝票明細F.借方金額),0)
 end
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
[#actbl] ON TSK伝票明細F.勘定CD = [#actbl].勘定CD
INNER JOIN [#thsmst] ON
TSK伝票F.会社CD = [#thsmst].会社CD
where TSK伝票F.システムCD = @システムCD
 and TSK伝票F.演習CD = @演習CD
 and TSK伝票F.削除フラグ = 0
group by #actbl.勘定名称, TSK伝票明細F.会社CD, #actbl.貸借区分

/* 元帳データ ==> #mototyo */
insert #mototyo 
select
   TSK帳簿_総勘定元帳F.会社CD
,  MIN(TSK帳簿_総勘定元帳F.勘定CD)
, isnull(sum(TSK帳簿_総勘定元帳F.借方金額),0)
, isnull(sum(TSK帳簿_総勘定元帳F.貸方金額),0)
,case #actbl.貸借区分 
    when 'D' then  isnull(sum(TSK帳簿_総勘定元帳F.借方金額),0)  -  isnull(sum(TSK帳簿_総勘定元帳F.貸方金額),0)
    else  isnull(sum(TSK帳簿_総勘定元帳F.貸方金額),0)  -   isnull(sum(TSK帳簿_総勘定元帳F.借方金額),0)
 end
FROM  TSK帳簿_総勘定元帳F
 INNER JOIN #actbl ON TSK帳簿_総勘定元帳F.勘定CD = #actbl.勘定CD
 INNER JOIN #thsmst ON TSK帳簿_総勘定元帳F.会社CD = #thsmst.会社CD
where TSK帳簿_総勘定元帳F.システムCD = @システムCD
 and  TSK帳簿_総勘定元帳F.演習CD = @演習CD
group by #actbl.勘定名称, TSK帳簿_総勘定元帳F.会社CD, #actbl.貸借区分

/* ほじょぼデータ  ==> #hojyobo  */
/* 現金出納帳 */
INSERT #hojyobo 
SELECT TT.会社CD, '1111', sum(TT.収入金額), sum(TT.支出金額), isnull(sum(TT.収入金額),0)  -  isnull(sum(TT.支出金額),0)
FROM  TSK補助簿_現金出納帳F TT   ( nolock ), #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = #thsmst.会社CD
group by TT.演習CD , TT.会社CD

/* 当座預金出納帳 */
insert #hojyobo 
select TT.会社CD, '1115', sum(TT.預入金額), sum(TT.払出金額), isnull(sum(TT.預入金額),0) - isnull(sum(TT.払出金額),0)
FROM  TSK補助簿_当座預金出納帳F TT   ( nolock )
     ,   #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = #thsmst.会社CD
group by TT.演習CD , TT.会社CD

/* 受取手形 */
insert #hojyobo 
select 会社CD, '1121', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select TT.会社CD
,  sum ( case  when TT.顛末日付 is null then TT.金額 else 0 end ) as Kashikata
,  sum ( case  when TT.顛末日付 is null then 0 else TT.金額 end )  as Karikata
,  sum ( case  when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case  when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM  TSK補助簿_受取手形記入帳F TT   ,   #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and TT.会社CD = #thsmst.会社CD
group by TT.演習CD , TT.会社CD
UNION
select TT.会社CD
,  sum ( case  when TT.顛末日付 is null then 0 else TT.金額 end )
,  sum ( case  when TT.顛末日付 is null then TT.金額 else 0 end )
,  sum ( case  when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case  when TT.顛末日付 is null then TT.金額 else 0 end )
FROM  TSK補助簿_受取手形記入帳F TT   ,   #thsmst 
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and   TT.会社CD       =   #thsmst.会社CD
 and  TT.顛末日付 is not null
group by TT.演習CD , TT.会社CD
) a
group by 会社CD

/* 売掛金 */
insert #hojyobo 
select
  TT.会社CD
,  '1131'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.借方金額),0)  -  isnull(sum(TT.貸方金額),0)
FROM  TSK補助簿_売掛金元帳F TT   ( nolock )
     ,   #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and   TT.会社CD       =   #thsmst.会社CD
group by TT.演習CD , TT.会社CD

/* 支払手形 */
insert #hojyobo 
select 会社CD, '4111', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select TT.会社CD
,  sum ( case  when TT.顛末日付 is null then 0 else TT.金額 end ) as Kashikata
,  sum ( case  when TT.顛末日付 is null then TT.金額 else 0 end ) as Karikata
,  sum ( case  when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case  when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM  TSK補助簿_支払手形記入帳F TT  ,   #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and   TT.会社CD       =   #thsmst.会社CD
group by TT.演習CD , TT.会社CD
UNION
select TT.会社CD
,  sum ( case  when TT.顛末日付 is null then TT.金額 else 0 end )
,  sum ( case  when TT.顛末日付 is null then 0 else TT.金額 end ) 
,  sum ( case  when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case  when TT.顛末日付 is null then TT.金額 else 0 end )
FROM  TSK補助簿_支払手形記入帳F TT   ,   #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and   TT.会社CD       =   #thsmst.会社CD
 and  TT.顛末日付 is not null
group by TT.演習CD , TT.会社CD
) a
group by 会社CD

/* 買掛金 */
insert #hojyobo 
select

  TT.会社CD
,  '4120'

, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.貸方金額),0)  -  isnull(sum(TT.借方金額),0)
FROM  TSK補助簿_買掛金元帳F TT   ( nolock )
     ,   #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and   TT.会社CD       =   #thsmst.会社CD
group by TT.演習CD , TT.会社CD

/* 売上 */
insert #hojyobo 
select
  TT.会社CD
,  '8111'
,  sum ( case  when TT.返品区分 = 0 then 0 else TT.金額 end ) 
,  sum ( case  when TT.返品区分 = 0 then TT.金額 else 0 end )
,  sum ( case  when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case  when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM  TSK補助簿_売上帳F TT   ( nolock )
     ,   #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and   TT.会社CD       =   #thsmst.会社CD

group by TT.演習CD , TT.会社CD

/* 仕入 */
insert #hojyobo 
select
  TT.会社CD
,  '8221'
,  sum ( case  when TT.返品区分 = 0 then TT.金額 else 0 end ) 
,  sum ( case  when TT.返品区分 = 0 then 0 else TT.金額 end )
,  sum ( case  when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case  when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM  TSK補助簿_仕入帳F TT   ( nolock )
     ,   #thsmst
where TT.システムCD = @システムCD
 and TT.演習CD = @演習CD
 and   TT.会社CD       =   #thsmst.会社CD
group by TT.演習CD , TT.会社CD

/* 表示用データ  ==> #list  */
insert #list 
(
   演習CD ,  会社CD ,  会社名称 , 仕訳行数
,  勘定CD,  勘定名称,  元帳勘定チェック, 補助簿勘定チェック
,  伝票借方,  伝票貸方 , 伝票残高
,  元帳借方 ,  元帳貸方,  元帳残高
,  元帳借チェック,  元帳貸チェック,  元帳残チェック
,  補助簿借方 , 補助簿貸方,  補助簿残高
,  補助簿借チェック,  補助簿貸チェック,  補助簿残チェック
)
select
    @演習CD ,  #thsmst.会社CD ,  #thsmst.会社名称 , #kensu.仕訳行数 
,  #actbl2.勘定CD,  #actbl2.勘定名称,  null, null
,  #denpyo.借方金額,  #denpyo.貸方金額 , #denpyo.残高金額
,  #mototyo.借方金額,  #mototyo.貸方金額 , #mototyo.残高金額
,  null, null, null
,  #hojyobo.借方金額,  #hojyobo.貸方金額 , #hojyobo.残高金額
,  null, null, null
FROM  #actbl2
     ,   #denpyo
     ,   #mototyo
     ,   #hojyobo
     ,   #thsmst
     ,   #kensu
where #denpyo.会社CD  =*   #thsmst.会社CD
 and   #mototyo.会社CD  =*   #thsmst.会社CD
 and   #hojyobo.会社CD  =*   #thsmst.会社CD
 and   #kensu.会社CD     =*   #thsmst.会社CD
 and   #denpyo.勘定CD  =*   #actbl2.勘定CD
 and   #mototyo.勘定CD  =*   #actbl2.勘定CD
 and   #hojyobo.勘定CD  =*   #actbl2.勘定CD

/* 勘定の各項目毎のチェック 設定 */
update #list
set 元帳借チェック =  
     case  when isnull(伝票借方,0) = isnull(元帳借方,0) then 1 else 0 end 
   , 元帳貸チェック =  
     case  when isnull(伝票貸方,0) = isnull(元帳貸方,0) then 1 else 0 end
   , 元帳残チェック =  
     case  when isnull(伝票残高,0) = isnull(元帳残高,0) then 1 else 0 end
   , 補助簿借チェック =  
     case  when isnull(伝票借方,0) = isnull(補助簿借方,0) then 1 else 0 end
   , 補助簿貸チェック =  
     case  when isnull(伝票貸方,0) = isnull(補助簿貸方,0) then 1 else 0 end
   , 補助簿残チェック =  
     case  when isnull(伝票残高,0) = isnull(補助簿残高,0) then 1 else 0 end
From #list
where 伝票借方 is not null
   or   伝票貸方 is not null
   or   伝票残高 is not null
   or   元帳借方 is not null
   or   元帳貸方 is not null
   or   元帳残高 is not null
   or   補助簿借方 is not null
   or   補助簿貸方 is not null
   or   補助簿残高 is not null

/* 勘定のチェック 設定 */
update #list
 set 元帳勘定チェック = 0
from #list
where  元帳借チェック = 0 
  or    元帳貸チェック = 0 
  or    元帳残チェック = 0 

update #list
 set 補助簿勘定チェック = 0
from #list
where   補助簿借チェック = 0 
  or    補助簿貸チェック = 0 
  or    補助簿残チェック = 0 

/* 勘定のチェック 設定 */
update #list
 set 元帳勘定チェック = 1
from #list
where  元帳借チェック = 1 
  and    元帳貸チェック = 1 
  and    元帳残チェック = 1 

update #list
 set 補助簿勘定チェック = 1
from #list
where    補助簿借チェック = 1 
  and    補助簿貸チェック = 1 
  and    補助簿残チェック = 1 

/* 会社別・勘定別合否の一覧リスト抽出 */
SELECT 会社CD,会社名称 ,min(仕訳行数) as 仕訳行数 
 ,   Max(CASE 勘定CD WHEN '1111' THEN 元帳勘定チェック ELSE null END) AS 元帳現金 
 ,   Max(CASE 勘定CD WHEN '1115' THEN 元帳勘定チェック ELSE null END) AS 元帳預金 
 ,   Max(CASE 勘定CD WHEN '1121' THEN 元帳勘定チェック ELSE null END) AS 元帳受手
 ,   Max(CASE 勘定CD WHEN '1131' THEN 元帳勘定チェック ELSE null END) AS 元帳売掛
 ,   Max(CASE 勘定CD WHEN '4111' THEN 元帳勘定チェック ELSE null END) AS 元帳支手 
 ,   Max(CASE 勘定CD WHEN '4120' THEN 元帳勘定チェック ELSE null END) AS 元帳買掛 
 ,   Max(CASE 勘定CD WHEN '8111' THEN 元帳勘定チェック ELSE null END) AS 元帳売上 
 ,   Max(CASE 勘定CD WHEN '8221' THEN 元帳勘定チェック ELSE null END) AS 元帳仕入 
 ,   Max(CASE 勘定CD WHEN '1457' THEN 元帳勘定チェック ELSE null END) AS 元帳仮払 
 ,   Max(CASE 勘定CD WHEN '4167' THEN 元帳勘定チェック ELSE null END) AS 元帳仮受
 ,   Max(CASE 勘定CD WHEN '1111' THEN 補助簿勘定チェック ELSE null END) AS 補助簿現金 
 ,   Max(CASE 勘定CD WHEN '1115' THEN 補助簿勘定チェック ELSE null END) AS 補助簿預金 
 ,   Max(CASE 勘定CD WHEN '1121' THEN 補助簿勘定チェック ELSE null END) AS 補助簿受手
 ,   Max(CASE 勘定CD WHEN '1131' THEN 補助簿勘定チェック ELSE null END) AS 補助簿売掛
 ,   Max(CASE 勘定CD WHEN '4111' THEN 補助簿勘定チェック ELSE null END) AS 補助簿支手 
 ,   Max(CASE 勘定CD WHEN '4120' THEN 補助簿勘定チェック ELSE null END) AS 補助簿買掛 
 ,   Max(CASE 勘定CD WHEN '8111' THEN 補助簿勘定チェック ELSE null END) AS 補助簿売上 
 ,   Max(CASE 勘定CD WHEN '8221' THEN 補助簿勘定チェック ELSE null END) AS 補助簿仕入 
 ,   Max(CASE 勘定CD WHEN '1457' THEN 補助簿勘定チェック ELSE null END) AS 補助簿仮払
 ,   Max(CASE 勘定CD WHEN '4167' THEN 補助簿勘定チェック ELSE null END) AS 補助簿仮受 
FROM #list
WHERE 仕訳行数 <> 0
GROUP BY 会社CD,会社名称
ORDER BY 会社CD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPM記帳チェック削除
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
AS

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
 and 演習CD = @演習CD and 会社CD LIKE @会社CD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPM記帳チェック商品
@システムCD varchar(12),@演習CD  varchar(12)  , @会社CD  varchar(20)  

AS

declare @学生番号 varchar(40)
declare @演習区分 varchar(2)

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)
if @演習区分 = 'G'
begin 
	SELECT @学生番号 = '%'
end
else
begin
	SET @学生番号 = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
end

SELECT TDA商品M.商品CD
	, A.伝票仕入数量
	, A.伝票仕入返品数量
	, A.伝票売上数量
	, A.伝票売上返品数量
	, B.入出庫仕入数量
	, B.入出庫仕入返品数量
	, B.入出庫売上数量
	, B.入出庫売上返品数量
FROM TDA商品M
LEFT OUTER JOIN (
	SELECT TGA入出庫明細TRN.商品CD
		, SUM(CASE WHEN TGA入出庫明細TRN.文書種類CD IN ('SC','SS') THEN TGA入出庫明細TRN.数量 END) AS 入出庫仕入数量
		, SUM(CASE WHEN TGA入出庫明細TRN.文書種類CD IN ('SX') THEN TGA入出庫明細TRN.数量 END) AS 入出庫仕入返品数量
		, SUM(CASE WHEN TGA入出庫明細TRN.文書種類CD IN ('SU') THEN TGA入出庫明細TRN.数量 END) AS 入出庫売上数量
		, SUM(CASE WHEN TGA入出庫明細TRN.文書種類CD IN ('SY') THEN TGA入出庫明細TRN.数量 END) AS 入出庫売上返品数量
	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
	WHERE TGA入出庫TRN.システムCD = @システムCD
		AND TGA入出庫TRN.演習CD = @演習CD
		AND TGA入出庫TRN.会社CD = @会社CD
		AND TGA入出庫TRN.処理時期区分 <> 0
		AND TGA入出庫TRN.有効フラグ = 1
		AND TGA入出庫TRN.取引先CD <> 'SJ4SEIZOZIES'	--製造部よりの入庫は仕入れから除外（090310小野）
	GROUP BY 商品CD
) B
	ON TDA商品M.商品CD = B.商品CD
LEFT OUTER JOIN (
	SELECT 商品CD
		, SUM(CASE WHEN TSK伝票仕入売上明細F.伝票区分 = 'D3' AND TSK伝票F.通常返品区分 = 'N' THEN TSK伝票仕入売上明細F.受注数量 END) AS 伝票仕入数量
		, SUM(CASE WHEN TSK伝票仕入売上明細F.伝票区分 = 'D3' AND TSK伝票F.通常返品区分 = 'R' THEN TSK伝票仕入売上明細F.受注数量 END) AS 伝票仕入返品数量
		, SUM(CASE WHEN TSK伝票仕入売上明細F.伝票区分 = 'D4' AND TSK伝票F.通常返品区分 = 'N' THEN TSK伝票仕入売上明細F.受注数量 END) AS 伝票売上数量
		, SUM(CASE WHEN TSK伝票仕入売上明細F.伝票区分 = 'D4' AND TSK伝票F.通常返品区分 = 'R' THEN TSK伝票仕入売上明細F.受注数量 END) AS 伝票売上返品数量
	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.伝票番号
	WHERE TSK伝票仕入売上明細F.システムCD = @システムCD
		AND TSK伝票仕入売上明細F.演習CD = @演習CD
		AND TSK伝票仕入売上明細F.会社CD = @会社CD
		AND TSK伝票F.削除フラグ = 0
	GROUP BY 商品CD
) A
	ON TDA商品M.商品CD = A.商品CD
WHERE TDA商品M.システムCD = @システムCD
	AND TDA商品M.演習CD = @演習CD
	AND (@演習区分 <> 'P' OR (@演習区分 = 'P' AND (TDA商品M.学生番号 = '' OR TDA商品M.学生番号 = @学生番号)))



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入一覧
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

if @会社CD = ''
begin
	SET @会社CD = '%'
end

SELECT TTK記帳チェックF.*
	, TDA勘定科目M.チェック区分 AS 科目チェック区分
	, TDA勘定科目M.勘定名称 AS 勘定名称
	, TDA勘定科目M.貸借区分 AS 貸借区分
FROM TTK記帳チェックF
LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
	ON TTK記帳チェックF.システムCD = TDA勘定科目M.システムCD
	AND TTK記帳チェックF.演習CD = TDA勘定科目M.演習CD
	AND TTK記帳チェックF.チェック区分 = TDA勘定科目M.勘定CD
WHERE TTK記帳チェックF.システムCD = @システムCD
	AND TTK記帳チェックF.演習CD = @演習CD
	AND TTK記帳チェックF.会社CD LIKE @会社CD
ORDER BY TDA勘定科目M.チェック区分
	,TTK記帳チェックF.チェック区分
	,TTK記帳チェックF.チェック種類




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入伝票
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20)
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
	and 演習CD LIKE @演習CD
	and 会社CD LIKE @会社CD
	and チェック種類 = '1'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 伝票借方, 伝票貸方, 伝票残高)
select TSK伝票F.システムCD
	, TSK伝票F.演習CD
	, TSK伝票F.会社CD
	, '1'
	, TSK伝票明細F.勘定CD
	, sum(TSK伝票明細F.借方金額)
	, sum(TSK伝票明細F.貸方金額)
	, NULL
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.伝票区分
where TSK伝票F.システムCD LIKE @システムCD
	and TSK伝票F.演習CD LIKE @演習CD
	and TSK伝票F.会社CD LIKE @会社CD
	and TSK伝票F.削除フラグ = 0
GROUP BY TSK伝票F.システムCD, TSK伝票F.演習CD, TSK伝票F.会社CD, TSK伝票明細F.勘定CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入伝票2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @取引日 datetime

AS

--日付で絞り込んで「TTK記帳チェック2F」に集計する（180523小野）

begin transaction

DELETE FROM TTK記帳チェック2F
where システムCD LIKE @システムCD
	and 演習CD LIKE @演習CD
	and 会社CD LIKE @会社CD
	and チェック種類 = '1'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 伝票借方, 伝票貸方, 伝票残高)
select TSK伝票F.システムCD
	, TSK伝票F.演習CD
	, TSK伝票F.会社CD
	, '1'
	, TSK伝票明細F.勘定CD
	, sum(TSK伝票明細F.借方金額)
	, sum(TSK伝票明細F.貸方金額)
	, NULL
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.伝票区分
where TSK伝票F.システムCD LIKE @システムCD
	and TSK伝票F.演習CD LIKE @演習CD
	and TSK伝票F.会社CD LIKE @会社CD
	and TSK伝票F.削除フラグ = 0
--日付で絞り込み
	and TSK伝票F.取引日 = @取引日
GROUP BY TSK伝票F.システムCD, TSK伝票F.演習CD, TSK伝票F.会社CD, TSK伝票明細F.勘定CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPM記帳チェック挿入元帳
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
 and チェック種類 = '2'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 元帳借方, 元帳貸方, 元帳残高)
select システムCD, 演習CD, 会社CD, '2',
 勘定CD
, sum(借方金額)
, sum(貸方金額)
, NULL
FROM TSK帳簿_総勘定元帳F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
group by  システムCD, 演習CD, 会社CD, 勘定CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入元帳2
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 
, @取引日 datetime

AS

--日付で絞り込んで「TTK記帳チェック2F」に集計する（180523小野）

begin transaction

DELETE FROM TTK記帳チェック2F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
 and チェック種類 = '2'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 元帳借方, 元帳貸方, 元帳残高)
select システムCD, 演習CD, 会社CD, '2',
 勘定CD
, sum(借方金額)
, sum(貸方金額)
, NULL
FROM TSK帳簿_総勘定元帳F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
--日付で絞り込み
	and TSK帳簿_総勘定元帳F.取引日 = @取引日
group by  システムCD, 演習CD, 会社CD, 勘定CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPM記帳チェック挿入現物受取手形
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
 and チェック種類 = '4'
 and チェック区分 = 'AE'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 現物借方, 現物貸方, 現物残高)
select システムCD, 演習CD, 会社CD, '4',
'AE', SUM(借方金額), SUM(貸方金額), SUM(残高金額) FROM
(
SELECT システムCD, 演習CD, 会社CD, 
IsNull(SUM(金額), 0) AS 借方金額,
0 AS 貸方金額, 
IsNull(SUM(金額), 0) AS 残高金額
FROM TGA手形F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD = @会社CD
 And 文書種類CD IN ('TY', 'TK') And TGA手形F.送受信区分 IN ('R', 'U')
 and 削除フラグ = 0
GROUP BY システムCD, 演習CD, 会社CD
UNION
SELECT システムCD, 演習CD, 会社CD, 
0 AS 借方金額,
IsNull(SUM(金額), 0) AS 貸方金額, 
-1 * IsNull(SUM(金額), 0) AS 残高金額
FROM TGA手形F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD = @会社CD
 and 受取人CD LIKE @会社CD
 And 文書種類CD IN ('TY', 'TK') And TGA手形F.送受信区分 IN ('R', 'U')
 and 顛末区分 <> ''
 and 削除フラグ = 0
GROUP BY システムCD, 演習CD, 会社CD
) A
GROUP BY システムCD, 演習CD, 会社CD

commit transaction





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入現物受取手形全会社
@システムCD varchar(12), @演習CD varchar(12)
--, @会社CD varchar(20) 
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
-- and 会社CD LIKE @会社CD
 and チェック種類 = '4'
 and チェック区分 = 'AE'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 現物借方, 現物貸方, 現物残高)
select システムCD, 演習CD, 会社CD, '4',
'AE', SUM(借方金額), SUM(貸方金額), SUM(残高金額) FROM
(
SELECT システムCD, 演習CD, 会社CD, 
IsNull(SUM(金額), 0) AS 借方金額,
0 AS 貸方金額, 
IsNull(SUM(金額), 0) AS 残高金額
FROM TGA手形F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
-- and 会社CD = @会社CD
 And 文書種類CD IN ('TY', 'TK') And TGA手形F.送受信区分 IN ('R', 'U')
 and 削除フラグ = 0
GROUP BY システムCD, 演習CD, 会社CD
UNION
SELECT システムCD, 演習CD, 会社CD, 
0 AS 借方金額,
IsNull(SUM(金額), 0) AS 貸方金額, 
-1 * IsNull(SUM(金額), 0) AS 残高金額
FROM TGA手形F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
-- and 会社CD = @会社CD
-- and 受取人CD LIKE @会社CD
 And 文書種類CD IN ('TY', 'TK') And TGA手形F.送受信区分 IN ('R', 'U')
 and 顛末区分 <> ''
 and 削除フラグ = 0
GROUP BY システムCD, 演習CD, 会社CD
) A
GROUP BY システムCD, 演習CD, 会社CD

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入現物支払手形
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 

AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
	and 演習CD LIKE @演習CD
	and 会社CD LIKE @会社CD
	and チェック種類 = '4'
	and チェック区分 = 'AF'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 現物借方, 現物貸方, 現物残高)
select システムCD, 演習CD, 会社CD, '4', 'AF', SUM(借方金額), SUM(貸方金額), SUM(残高金額)
FROM (
	SELECT システムCD, 演習CD, 会社CD, 0 AS 借方金額, IsNull(SUM(金額), 0) AS 貸方金額, IsNull(SUM(金額), 0) AS 残高金額
	FROM TGA手形F
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
		and 会社CD = @会社CD
		--And ((文書種類CD = 'TY' AND TGA手形F.送受信区分 = 'S') Or (文書種類CD = 'TK' AND TGA手形F.送受信区分 = 'H'))
		--and (発行フラグ >= 1)
		AND ((文書種類CD = 'TY' AND TGA手形F.送受信区分 = 'S' AND 発行フラグ >= 1) Or (文書種類CD = 'TK' AND TGA手形F.送受信区分 = 'H')) --引受手形は発行フラグが立たない（160708小野）
		and 削除フラグ = 0
	group by システムCD, 演習CD, 会社CD
	UNION
	SELECT システムCD, 演習CD, 会社CD, IsNull(SUM(金額), 0) AS 借方金額, 0 AS 貸方金額, -1 * IsNull(SUM(金額), 0) AS 残高金額
	FROM TGA手形F
	where システムCD LIKE @システムCD
 		and 演習CD LIKE @演習CD
		 and 会社CD = @会社CD
		--And ((文書種類CD = 'TY' AND TGA手形F.送受信区分 = 'S') Or (文書種類CD = 'TK' AND TGA手形F.送受信区分 = 'H'))
		--and (発行フラグ >= 1)
		AND ((文書種類CD = 'TY' AND TGA手形F.送受信区分 = 'S' AND 発行フラグ >= 1) Or (文書種類CD = 'TK' AND TGA手形F.送受信区分 = 'H')) --引受手形は発行フラグが立たない（160708小野）
		 and 顛末区分 <> '' 
		 and 削除フラグ = 0
	group by システムCD, 演習CD, 会社CD

) A
group by システムCD, 演習CD, 会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入現物支払手形全会社
@システムCD varchar(12), @演習CD varchar(12)
--, @会社CD varchar(20) 
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
-- and 会社CD LIKE @会社CD
 and チェック種類 = '4'
 and チェック区分 = 'AF'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 現物借方, 現物貸方, 現物残高)
select システムCD, 演習CD, 会社CD, '4',
'AF', SUM(借方金額), SUM(貸方金額), SUM(残高金額) FROM
(
SELECT システムCD, 演習CD, 会社CD,
0 AS 借方金額, 
IsNull(SUM(金額), 0) AS 貸方金額,
IsNull(SUM(金額), 0) AS 残高金額
FROM TGA手形F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
-- and 会社CD = @会社CD
 And ((文書種類CD = 'TY' AND TGA手形F.送受信区分 = 'S') Or (文書種類CD = 'TK' AND TGA手形F.送受信区分 = 'H'))
 and (発行フラグ >= 1)
 and 削除フラグ = 0
group by システムCD, 演習CD, 会社CD
UNION
SELECT システムCD, 演習CD, 会社CD,
IsNull(SUM(金額), 0) AS 借方金額, 
0 AS 貸方金額,
-1 * IsNull(SUM(金額), 0) AS 残高金額
FROM TGA手形F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
-- and 会社CD = @会社CD
 And ((文書種類CD = 'TY' AND TGA手形F.送受信区分 = 'S') Or (文書種類CD = 'TK' AND TGA手形F.送受信区分 = 'H'))
 and (発行フラグ >= 1)
 and 顛末区分 <> '' 
 and 削除フラグ = 0
group by システムCD, 演習CD, 会社CD

) A
group by システムCD, 演習CD, 会社CD

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPM記帳チェック挿入現物現金
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
 and チェック種類 = '4'
 and チェック区分 = 'AA'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 現物借方, 現物貸方, 現物残高)
select システムCD, 演習CD, 会社CD, '4',
  'AA', 
IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額, 
IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額, 
IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) -
IsNull(SUM(CASE WHEN RIGHT(現金取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
FROM TGK現金入出金TRN
where システムCD LIKE @システムCD
 AND 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
GROUP BY システムCD, 演習CD, 会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPM記帳チェック挿入現物預金
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
 and チェック種類 = '4'
 and チェック区分 = 'AB'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 現物借方, 現物貸方, 現物残高)
select TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD, '4',
 'AB', IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額,
      0) END), 0) AS 借方金額, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) 
      <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額, 
      IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) 
      END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) 
      <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
FROM   TGB銀行口座F INNER JOIN
      TGB銀行口座入出金TRN ON 
	TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD AND
	TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD AND
	TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD AND
	TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分 AND 
	TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
where TGB銀行口座F.システムCD LIKE @システムCD
 and TGB銀行口座F.演習CD LIKE @演習CD
 and TGB銀行口座F.会社CD LIKE @会社CD
 and TGB銀行口座F.口座区分 = 'T'
GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入現物預金2
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20)
, @普通預金フラグ int 
, @定期預金フラグ int 
, @積立預金フラグ int 
, @別段預金フラグ int 
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
	and 演習CD LIKE @演習CD
	and 会社CD LIKE @会社CD
	and チェック種類 = '4'
	and チェック区分 = 'AB'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD
, 演習CD
, 会社CD
, チェック種類
, チェック区分
, 現物借方
, 現物貸方
, 現物残高)
select TGB銀行口座F.システムCD
, TGB銀行口座F.演習CD
, TGB銀行口座F.会社CD
, '4'
, 'AB'
, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
FROM TGB銀行口座F
	INNER JOIN TGB銀行口座入出金TRN
		ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
		AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
		AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
		AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
		AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
	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
		AND TDA会社M.業種CD = 'B'
where TGB銀行口座F.システムCD LIKE @システムCD
	and TGB銀行口座F.演習CD LIKE @演習CD
	and TGB銀行口座F.会社CD LIKE @会社CD
	and TGB銀行口座F.口座区分 = 'T'
GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

if @普通預金フラグ > 0 
begin

	DELETE FROM TTK記帳チェックF
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
		and 会社CD LIKE @会社CD
		and チェック種類 = '4'
		and チェック区分 = 'DB'

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

	insert into TTK記帳チェックF (システムCD
	, 演習CD
	, 会社CD
	, チェック種類
	, チェック区分
	, 現物借方
	, 現物貸方
	, 現物残高)
	select TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.会社CD
	, '4'
	, 'DB'
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
	FROM TGB銀行口座F
		INNER JOIN TGB銀行口座入出金TRN
			ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
			AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
			AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
			AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
			AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
		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
			AND TDA会社M.業種CD = 'B'
	where TGB銀行口座F.システムCD LIKE @システムCD
		and TGB銀行口座F.演習CD LIKE @演習CD
		and TGB銀行口座F.会社CD LIKE @会社CD
		and TGB銀行口座F.口座区分 = 'F'
	GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end


if @定期預金フラグ > 0 
begin

	DELETE FROM TTK記帳チェックF
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
		and 会社CD LIKE @会社CD
		and チェック種類 = '4'
		and チェック区分 = 'DD'

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

	insert into TTK記帳チェックF (システムCD
	, 演習CD
	, 会社CD
	, チェック種類
	, チェック区分
	, 現物借方
	, 現物貸方
	, 現物残高)
	select TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.会社CD
	, '4'
	, 'DD'
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
	FROM TGB銀行口座F
		INNER JOIN TGB銀行口座入出金TRN
			ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
			AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
			AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
			AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
			AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
		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
			AND TDA会社M.業種CD = 'B'
	where TGB銀行口座F.システムCD LIKE @システムCD
		and TGB銀行口座F.演習CD LIKE @演習CD
		and TGB銀行口座F.会社CD LIKE @会社CD
		and TGB銀行口座F.口座区分 = 'L'
	GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end


if @積立預金フラグ > 0 
begin

	DELETE FROM TTK記帳チェックF
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
		and 会社CD LIKE @会社CD
		and チェック種類 = '4'
		and チェック区分 = 'DE'

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

	insert into TTK記帳チェックF (システムCD
	, 演習CD
	, 会社CD
	, チェック種類
	, チェック区分
	, 現物借方
	, 現物貸方
	, 現物残高)
	select TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.会社CD
	, '4'
	, 'DE'
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
	FROM TGB銀行口座F
		INNER JOIN TGB銀行口座入出金TRN
			ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
			AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
			AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
			AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
			AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
		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
			AND TDA会社M.業種CD = 'B'
	where TGB銀行口座F.システムCD LIKE @システムCD
		and TGB銀行口座F.演習CD LIKE @演習CD
		and TGB銀行口座F.会社CD LIKE @会社CD
		and TGB銀行口座F.口座区分 = 'M'
	GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end


if @別段預金フラグ > 0 
begin

	DELETE FROM TTK記帳チェックF
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
		and 会社CD LIKE @会社CD
		and チェック種類 = '4'
		and チェック区分 = 'DF'

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

	insert into TTK記帳チェックF (システムCD
	, 演習CD
	, 会社CD
	, チェック種類
	, チェック区分
	, 現物借方
	, 現物貸方
	, 現物残高)
	select TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.会社CD
	, '4'
	, 'DF'
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
	FROM TGB銀行口座F
		INNER JOIN TGB銀行口座入出金TRN
			ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
			AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
			AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
			AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
			AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
		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
			AND TDA会社M.業種CD = 'B'
	where TGB銀行口座F.システムCD LIKE @システムCD
		and TGB銀行口座F.演習CD LIKE @演習CD
		and TGB銀行口座F.会社CD LIKE @会社CD
		and TGB銀行口座F.口座区分 = 'B'
	GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入現物預金2全会社
@システムCD varchar(12), @演習CD varchar(12)
--, @会社CD varchar(20)
, @普通預金フラグ int 
, @定期預金フラグ int 
, @積立預金フラグ int 
, @別段預金フラグ int 
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
	and 演習CD LIKE @演習CD
--	and 会社CD LIKE @会社CD
	and チェック種類 = '4'
	and チェック区分 = 'AB'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

insert into TTK記帳チェックF (システムCD
, 演習CD
, 会社CD
, チェック種類
, チェック区分
, 現物借方
, 現物貸方
, 現物残高)
select TGB銀行口座F.システムCD
, TGB銀行口座F.演習CD
, TGB銀行口座F.会社CD
, '4'
, 'AB'
, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
FROM TGB銀行口座F
	INNER JOIN TGB銀行口座入出金TRN
		ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
		AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
		AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
		AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
		AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
	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
		AND TDA会社M.業種CD = 'B'
where TGB銀行口座F.システムCD LIKE @システムCD
	and TGB銀行口座F.演習CD LIKE @演習CD
--	and TGB銀行口座F.会社CD LIKE @会社CD
	and TGB銀行口座F.口座区分 = 'T'
GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

if @普通預金フラグ > 0 
begin

	DELETE FROM TTK記帳チェックF
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
--		and 会社CD LIKE @会社CD
		and チェック種類 = '4'
		and チェック区分 = 'DB'

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

	insert into TTK記帳チェックF (システムCD
	, 演習CD
	, 会社CD
	, チェック種類
	, チェック区分
	, 現物借方
	, 現物貸方
	, 現物残高)
	select TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.会社CD
	, '4'
	, 'DB'
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
	FROM TGB銀行口座F
		INNER JOIN TGB銀行口座入出金TRN
			ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
			AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
			AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
			AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
			AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
		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
			AND TDA会社M.業種CD = 'B'
	where TGB銀行口座F.システムCD LIKE @システムCD
		and TGB銀行口座F.演習CD LIKE @演習CD
--		and TGB銀行口座F.会社CD LIKE @会社CD
		and TGB銀行口座F.口座区分 = 'F'
	GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end


if @定期預金フラグ > 0 
begin

	DELETE FROM TTK記帳チェックF
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
--		and 会社CD LIKE @会社CD
		and チェック種類 = '4'
		and チェック区分 = 'DD'

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

	insert into TTK記帳チェックF (システムCD
	, 演習CD
	, 会社CD
	, チェック種類
	, チェック区分
	, 現物借方
	, 現物貸方
	, 現物残高)
	select TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.会社CD
	, '4'
	, 'DD'
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
	FROM TGB銀行口座F
		INNER JOIN TGB銀行口座入出金TRN
			ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
			AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
			AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
			AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
			AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
		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
			AND TDA会社M.業種CD = 'B'
	where TGB銀行口座F.システムCD LIKE @システムCD
		and TGB銀行口座F.演習CD LIKE @演習CD
--		and TGB銀行口座F.会社CD LIKE @会社CD
		and TGB銀行口座F.口座区分 = 'L'
	GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end


if @積立預金フラグ > 0 
begin

	DELETE FROM TTK記帳チェックF
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
--		and 会社CD LIKE @会社CD
		and チェック種類 = '4'
		and チェック区分 = 'DE'

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

	insert into TTK記帳チェックF (システムCD
	, 演習CD
	, 会社CD
	, チェック種類
	, チェック区分
	, 現物借方
	, 現物貸方
	, 現物残高)
	select TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.会社CD
	, '4'
	, 'DE'
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
	FROM TGB銀行口座F
		INNER JOIN TGB銀行口座入出金TRN
			ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
			AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
			AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
			AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
			AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
		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
			AND TDA会社M.業種CD = 'B'
	where TGB銀行口座F.システムCD LIKE @システムCD
		and TGB銀行口座F.演習CD LIKE @演習CD
--		and TGB銀行口座F.会社CD LIKE @会社CD
		and TGB銀行口座F.口座区分 = 'M'
	GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end


if @別段預金フラグ > 0 
begin

	DELETE FROM TTK記帳チェックF
	where システムCD LIKE @システムCD
		and 演習CD LIKE @演習CD
--		and 会社CD LIKE @会社CD
		and チェック種類 = '4'
		and チェック区分 = 'DF'

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

	insert into TTK記帳チェックF (システムCD
	, 演習CD
	, 会社CD
	, チェック種類
	, チェック区分
	, 現物借方
	, 現物貸方
	, 現物残高)
	select TGB銀行口座F.システムCD
	, TGB銀行口座F.演習CD
	, TGB銀行口座F.会社CD
	, '4'
	, 'DF'
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) AS 借方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 貸方金額
	, IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) = 'N' THEN isnull(金額, 0) END), 0) - IsNull(SUM(CASE WHEN RIGHT(銀行取引区分, 1) <> 'N' THEN Isnull(金額, 0) END), 0) AS 残高金額
	FROM TGB銀行口座F
		INNER JOIN TGB銀行口座入出金TRN
			ON TGB銀行口座F.システムCD = TGB銀行口座入出金TRN.システムCD
			AND TGB銀行口座F.演習CD = TGB銀行口座入出金TRN.演習CD
			AND TGB銀行口座F.銀行CD = TGB銀行口座入出金TRN.銀行CD
			AND TGB銀行口座F.口座区分 = TGB銀行口座入出金TRN.口座区分
			AND TGB銀行口座F.口座番号 = TGB銀行口座入出金TRN.口座番号
		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
			AND TDA会社M.業種CD = 'B'
	where TGB銀行口座F.システムCD LIKE @システムCD
		and TGB銀行口座F.演習CD LIKE @演習CD
--		and TGB銀行口座F.会社CD LIKE @会社CD
		and TGB銀行口座F.口座区分 = 'B'
	GROUP BY TGB銀行口座F.システムCD, TGB銀行口座F.演習CD, TGB銀行口座F.会社CD

	if @@error <> 0
	begin
		rollback transaction
		select -1 return
	end

end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO













CREATE PROCEDURE dbo.SPM記帳チェック挿入補助簿
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20) 
AS

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
 and チェック種類 = '3'

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AH'
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end ) 
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_仕入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
'AE', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_受取手形記入帳F TT
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
UNION
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_受取手形記入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
 and TT.顛末日付 is not null
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
) a
GROUP BY a.システムCD, a.演習CD, a.会社CD

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AG'
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end ) 
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_売上帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AC'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.借方金額),0) - isnull(sum(TT.貸方金額),0)
FROM TSK補助簿_売掛金元帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AB'
, sum(TT.預入金額)
, sum(TT.払出金額)
, isnull(sum(TT.預入金額),0) - isnull(sum(TT.払出金額),0)
FROM TSK補助簿_当座預金出納帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
'AF', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_支払手形記入帳F TT
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
UNION
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) 
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_支払手形記入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD


 and TT.顛末日付 is not null
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
) a
GROUP BY a.システムCD, a.演習CD, a.会社CD


insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AA'
, sum(TT.収入金額)
, sum(TT.支出金額)
, isnull(sum(TT.収入金額),0) - isnull(sum(TT.支出金額),0)
FROM TSK補助簿_現金出納帳F  TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AD'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.貸方金額),0) - isnull(sum(TT.借方金額),0)
FROM TSK補助簿_買掛金元帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD










GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPM記帳チェック挿入補助簿個別
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20)
, @現金出納帳表示  varchar(2)
, @当座預金出納帳表示  varchar(2)
, @売上帳表示  varchar(2)
, @仕入帳表示  varchar(2)
, @売掛金元帳表示  varchar(2)
, @買掛金元帳表示  varchar(2)
, @受取手形記入帳表示  varchar(2)
, @支払手形記入帳表示  varchar(2)
AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
 and チェック種類 = '3'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

if @仕入帳表示 = '1'
begin

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AH'
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end ) 
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_仕入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @受取手形記入帳表示 = '1'
begin

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
'AE', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_受取手形記入帳F TT
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
UNION
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_受取手形記入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
 and TT.顛末日付 is not null
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
) a
GROUP BY a.システムCD, a.演習CD, a.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @売上帳表示 = '1'
begin

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AG'
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end ) 
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_売上帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @売掛金元帳表示 = '1'
begin

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AC'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.借方金額),0) - isnull(sum(TT.貸方金額),0)
FROM TSK補助簿_売掛金元帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @当座預金出納帳表示 = '1'
begin

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AB'
, sum(TT.預入金額)
, sum(TT.払出金額)
, isnull(sum(TT.預入金額),0) - isnull(sum(TT.払出金額),0)
FROM TSK補助簿_当座預金出納帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @支払手形記入帳表示 = '1'
begin

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
'AF', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_支払手形記入帳F TT
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
UNION
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) 
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_支払手形記入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
 and TT.顛末日付 is not null
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
) a
GROUP BY a.システムCD, a.演習CD, a.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @現金出納帳表示 = '1'
begin

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AA'
, sum(TT.収入金額)
, sum(TT.支出金額)
, isnull(sum(TT.収入金額),0) - isnull(sum(TT.支出金額),0)
FROM TSK補助簿_現金出納帳F  TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @買掛金元帳表示 = '1'
begin

insert into TTK記帳チェックF (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AD'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.貸方金額),0) - isnull(sum(TT.借方金額),0)
FROM TSK補助簿_買掛金元帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

commit transaction





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入補助簿個別2
@システムCD varchar(12), @演習CD varchar(12) , @会社CD varchar(20)
, @現金出納帳表示  varchar(2)
, @当座預金出納帳表示  varchar(2)
, @売上帳表示  varchar(2)
, @仕入帳表示  varchar(2)
, @売掛金元帳表示  varchar(2)
, @買掛金元帳表示  varchar(2)
, @受取手形記入帳表示  varchar(2)
, @支払手形記入帳表示  varchar(2)
, @取引日 datetime

AS

--日付で絞り込んで「TTK記帳チェック2F」に集計する（180523小野）

begin transaction

DELETE FROM TTK記帳チェック2F
where システムCD LIKE @システムCD
 and 演習CD LIKE @演習CD
 and 会社CD LIKE @会社CD
 and チェック種類 = '3'

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

if @仕入帳表示 = '1'
begin

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AH'
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end ) 
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_仕入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @受取手形記入帳表示 = '1'
begin

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
'AE', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_受取手形記入帳F TT
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
UNION
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_受取手形記入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
 and TT.顛末日付 is not null
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
) a
GROUP BY a.システムCD, a.演習CD, a.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @売上帳表示 = '1'
begin

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AG'
, sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end ) 
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
, sum ( case when TT.返品区分 = 0 then TT.金額 else 0 end )
- sum ( case when TT.返品区分 = 0 then 0 else TT.金額 end )
FROM TSK補助簿_売上帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @売掛金元帳表示 = '1'
begin

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AC'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.借方金額),0) - isnull(sum(TT.貸方金額),0)
FROM TSK補助簿_売掛金元帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @当座預金出納帳表示 = '1'
begin

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AB'
, sum(TT.預入金額)
, sum(TT.払出金額)
, isnull(sum(TT.預入金額),0) - isnull(sum(TT.払出金額),0)
FROM TSK補助簿_当座預金出納帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @支払手形記入帳表示 = '1'
begin

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
'AF', sum(a.Kashikata), sum(a.Karikata), sum(a.Zandaka) from
(
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Kashikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end ) as Karikata
, sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
- sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) as Zandaka
FROM TSK補助簿_支払手形記入帳F TT
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
UNION
select システムCD, 演習CD, 会社CD, 
 sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end ) 
, sum ( case when TT.顛末日付 is null then 0 else TT.金額 end )
- sum ( case when TT.顛末日付 is null then TT.金額 else 0 end )
FROM TSK補助簿_支払手形記入帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
 and TT.顛末日付 is not null
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD
) a
GROUP BY a.システムCD, a.演習CD, a.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @現金出納帳表示 = '1'
begin

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AA'
, sum(TT.収入金額)
, sum(TT.支出金額)
, isnull(sum(TT.収入金額),0) - isnull(sum(TT.支出金額),0)
FROM TSK補助簿_現金出納帳F  TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

if @買掛金元帳表示 = '1'
begin

insert into TTK記帳チェック2F (システムCD, 演習CD, 会社CD, チェック種類, チェック区分, 補助簿借方, 補助簿貸方, 補助簿残高)
select システムCD, 演習CD, 会社CD, '3',
 'AD'
, sum(TT.借方金額)
, sum(TT.貸方金額)
, isnull(sum(TT.貸方金額),0) - isnull(sum(TT.借方金額),0)
FROM TSK補助簿_買掛金元帳F TT 
where TT.システムCD LIKE @システムCD
 and TT.演習CD LIKE @演習CD
 and TT.会社CD LIKE @会社CD
--日付で絞り込み
	and TT.取引日 = @取引日
GROUP BY TT.システムCD, TT.演習CD, TT.会社CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入集計
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

if @会社CD = ''
begin
	SET @会社CD = '%'
end

SELECT ISNULL(DATA3.会社CD,  チェック区分M.会社CD) AS 会社CD
	, ISNULL(チェック区分M.表示勘定科目, DATA3.勘定名称) AS 勘定名称
	, ISNULL(チェック区分M.最小勘定CD, DATA3.チェック区分) AS 勘定CD
	, IsNull(DATA3.チェック区分, チェック区分M.チェック区分) AS チェック区分
	, IsNull(DATA3.伝票借方, 0) AS 伝票借方
	, IsNull(DATA3.伝票貸方, 0) AS 伝票貸方
	, IsNull(DATA3.伝票残高, 0) AS 伝票残高
	, IsNull(DATA3.元帳借方, 0) AS 元帳借方
	, IsNull(DATA3.元帳貸方, 0) AS 元帳貸方
	, IsNull(DATA3.元帳残高, 0) AS 元帳残高
	, IsNull(DATA3.補助簿借方, 0) AS 補助簿借方
	, IsNull(DATA3.補助簿貸方, 0) AS 補助簿貸方
	, IsNull(DATA3.補助簿残高, 0) AS 補助簿残高
	, IsNull(DATA3.現物借方, 0) AS 現物借方
	, IsNull(DATA3.現物貸方, 0) AS 現物貸方
	, IsNull(DATA3.現物残高, 0) AS 現物残高
--	, DATA3.業種CD AS 科目業種 --080313小野
FROM (	--↓↓↓DATA3テーブル取得部（DATA2をチェック区分で集計）
	SELECT 会社CD
		, チェック区分
		, MIN(勘定名称) AS 勘定名称
		, SUM(伝票借方) AS 伝票借方
		, SUM(伝票貸方) AS 伝票貸方
		, SUM(伝票残高) AS 伝票残高
		, SUM(元帳借方) AS 元帳借方
		, SUM(元帳貸方) AS 元帳貸方
		, SUM(元帳残高) AS 元帳残高
		, SUM(補助簿借方) AS 補助簿借方
		, SUM(補助簿貸方) AS 補助簿貸方
		, SUM(補助簿残高) AS 補助簿残高
		, SUM(現物借方) AS 現物借方
		, SUM(現物貸方) AS 現物貸方
		, SUM(現物残高) AS 現物残高
--		, DATA2.業種CD --080313小野
	FROM (	--↓↓↓DATA2テーブル取得部（DATA1にTDA勘定科目Mを結合し集計）
		SELECT 会社CD
			, CASE WHEN 勘定科目M.チェック区分 <> '' THEN 勘定科目M.チェック区分 ELSE DATA1.チェック区分 END AS チェック区分
			, 勘定名称
			, DATA1.伝票借方
			, DATA1.伝票貸方
			, CASE WHEN 勘定科目M.貸借区分 = 'D' THEN IsNull(DATA1.伝票借方 ,0) - IsNull(DATA1.伝票貸方, 0) ELSE IsNull(DATA1.伝票貸方, 0) - IsNull(DATA1.伝票借方, 0) END AS 伝票残高
			, DATA1.元帳借方
			, DATA1.元帳貸方
			, CASE WHEN 勘定科目M.貸借区分 = 'D' THEN IsNull(DATA1.元帳借方, 0) - IsNull(DATA1.元帳貸方, 0) ELSE IsNull(DATA1.元帳貸方, 0) - IsNull(DATA1.元帳借方, 0) END AS 元帳残高
			, DATA1.補助簿借方
			, DATA1.補助簿貸方
			, DATA1.補助簿残高
			, DATA1.現物借方
			, DATA1.現物貸方
			, DATA1.現物残高
--			, 勘定科目M.業種CD --080313小野
		FROM (	--↓↓↓DATA1テーブル取得部（TTK記帳チェックFより抽出）
			SELECT *
			FROM TTK記帳チェックF
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
				AND 会社CD LIKE @会社CD
		) DATA1	--↑↑↑DATA1テーブル取得部（TTK記帳チェックFより抽出）
		LEFT OUTER JOIN (SELECT * FROM (SELECT * FROM TDA勘定科目M
				UNION	--TDA勘定科目会社学生Mを連結（091023小野）
				SELECT * FROM TDA勘定科目会社学生M
				WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
			) TDA勘定科目M
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
		) 勘定科目M
		ON DATA1.チェック区分 = 勘定科目M.勘定CD
	) DATA2	--↑↑↑DATA2テーブル取得部（DATA1にTDA勘定科目Mを結合し集計）
	GROUP BY 会社CD
		, チェック区分
--		, DATA2.業種CD --080313小野
) DATA3	--↑↑↑DATA3テーブル取得部（DATA2をチェック区分で集計）
--	--↓↓↓チェック区分名称などを取得
FULL OUTER JOIN (
	SELECT *
	FROM (
		SELECT TC9区分M.区分CD AS チェック区分
			, TC9区分M.区分名称 AS 表示勘定科目
			, MIN(TDA勘定科目M.勘定CD) AS 最小勘定CD
		FROM (
			SELECT 区分CD
				, 区分名称
			FROM TC9区分M
			WHERE システムCD = @システムCD
				AND データ識別 = 'チェック区分'
		) TC9区分M
		INNER JOIN (SELECT * FROM (SELECT * FROM TDA勘定科目M
				UNION	--TDA勘定科目会社学生Mを連結（091023小野）
				SELECT * FROM TDA勘定科目会社学生M
				WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
			) TDA勘定科目M
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
		) TDA勘定科目M
			ON TC9区分M.区分CD = TDA勘定科目M.チェック区分
			GROUP BY TC9区分M.区分CD
				, TC9区分M.区分名称
	) A
	CROSS JOIN (
		SELECT *
		FROM TDA会社M
		WHERE システムCD = @システムCD
			AND 演習CD = @演習CD
			And 会社CD LIKE @会社CD
	) B
) チェック区分M
	ON DATA3.会社CD = チェック区分M.会社CD
	AND DATA3.チェック区分 = チェック区分M.チェック区分
--ORDER BY   チェック区分M.会社CD,  ISNULL(チェック区分M.チェック区分, 'Z'), DATA3.チェック区分
--SQL2005の互換性レベルではチェック区分の存在しないレコードのチェック区分M.会社CDがNullになってしまい
--優先ソートされてしまうのでISNULLでDATA3.会社CDに変換（20080225小野）
ORDER BY ISNULL(チェック区分M.会社CD, DATA3.会社CD) 
	, ISNULL(チェック区分M.チェック区分, 'Z')
	, DATA3.チェック区分




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入集計2
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

--対象テーブルが「TTK記帳チェック2F」なだけで内容は「SPM記帳チェック挿入集計」と同じ。

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

if @会社CD = ''
begin
	SET @会社CD = '%'
end

SELECT ISNULL(DATA3.会社CD,  チェック区分M.会社CD) AS 会社CD
	, ISNULL(チェック区分M.表示勘定科目, DATA3.勘定名称) AS 勘定名称
	, ISNULL(チェック区分M.最小勘定CD, DATA3.チェック区分) AS 勘定CD
	, IsNull(DATA3.チェック区分, チェック区分M.チェック区分) AS チェック区分
	, IsNull(DATA3.伝票借方, 0) AS 伝票借方
	, IsNull(DATA3.伝票貸方, 0) AS 伝票貸方
	, IsNull(DATA3.伝票残高, 0) AS 伝票残高
	, IsNull(DATA3.元帳借方, 0) AS 元帳借方
	, IsNull(DATA3.元帳貸方, 0) AS 元帳貸方
	, IsNull(DATA3.元帳残高, 0) AS 元帳残高
	, IsNull(DATA3.補助簿借方, 0) AS 補助簿借方
	, IsNull(DATA3.補助簿貸方, 0) AS 補助簿貸方
	, IsNull(DATA3.補助簿残高, 0) AS 補助簿残高
	, IsNull(DATA3.現物借方, 0) AS 現物借方
	, IsNull(DATA3.現物貸方, 0) AS 現物貸方
	, IsNull(DATA3.現物残高, 0) AS 現物残高
--	, DATA3.業種CD AS 科目業種 --080313小野
FROM (	--↓↓↓DATA3テーブル取得部（DATA2をチェック区分で集計）
	SELECT 会社CD
		, チェック区分
		, MIN(勘定名称) AS 勘定名称
		, SUM(伝票借方) AS 伝票借方
		, SUM(伝票貸方) AS 伝票貸方
		, SUM(伝票残高) AS 伝票残高
		, SUM(元帳借方) AS 元帳借方
		, SUM(元帳貸方) AS 元帳貸方
		, SUM(元帳残高) AS 元帳残高
		, SUM(補助簿借方) AS 補助簿借方
		, SUM(補助簿貸方) AS 補助簿貸方
		, SUM(補助簿残高) AS 補助簿残高
		, SUM(現物借方) AS 現物借方
		, SUM(現物貸方) AS 現物貸方
		, SUM(現物残高) AS 現物残高
--		, DATA2.業種CD --080313小野
	FROM (	--↓↓↓DATA2テーブル取得部（DATA1にTDA勘定科目Mを結合し集計）
		SELECT 会社CD
			, CASE WHEN 勘定科目M.チェック区分 <> '' THEN 勘定科目M.チェック区分 ELSE DATA1.チェック区分 END AS チェック区分
			, 勘定名称
			, DATA1.伝票借方
			, DATA1.伝票貸方
			, CASE WHEN 勘定科目M.貸借区分 = 'D' THEN IsNull(DATA1.伝票借方 ,0) - IsNull(DATA1.伝票貸方, 0) ELSE IsNull(DATA1.伝票貸方, 0) - IsNull(DATA1.伝票借方, 0) END AS 伝票残高
			, DATA1.元帳借方
			, DATA1.元帳貸方
			, CASE WHEN 勘定科目M.貸借区分 = 'D' THEN IsNull(DATA1.元帳借方, 0) - IsNull(DATA1.元帳貸方, 0) ELSE IsNull(DATA1.元帳貸方, 0) - IsNull(DATA1.元帳借方, 0) END AS 元帳残高
			, DATA1.補助簿借方
			, DATA1.補助簿貸方
			, DATA1.補助簿残高
			, DATA1.現物借方
			, DATA1.現物貸方
			, DATA1.現物残高
--			, 勘定科目M.業種CD --080313小野
		FROM (	--↓↓↓DATA1テーブル取得部（TTK記帳チェック2Fより抽出）
			SELECT *
			FROM TTK記帳チェック2F
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
				AND 会社CD LIKE @会社CD
		) DATA1	--↑↑↑DATA1テーブル取得部（TTK記帳チェック2Fより抽出）
		LEFT OUTER JOIN (SELECT * FROM (SELECT * FROM TDA勘定科目M
				UNION	--TDA勘定科目会社学生Mを連結（091023小野）
				SELECT * FROM TDA勘定科目会社学生M
				WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
			) TDA勘定科目M
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
		) 勘定科目M
		ON DATA1.チェック区分 = 勘定科目M.勘定CD
	) DATA2	--↑↑↑DATA2テーブル取得部（DATA1にTDA勘定科目Mを結合し集計）
	GROUP BY 会社CD
		, チェック区分
--		, DATA2.業種CD --080313小野
) DATA3	--↑↑↑DATA3テーブル取得部（DATA2をチェック区分で集計）
--	--↓↓↓チェック区分名称などを取得
FULL OUTER JOIN (
	SELECT *
	FROM (
		SELECT TC9区分M.区分CD AS チェック区分
			, TC9区分M.区分名称 AS 表示勘定科目
			, MIN(TDA勘定科目M.勘定CD) AS 最小勘定CD
		FROM (
			SELECT 区分CD
				, 区分名称
			FROM TC9区分M
			WHERE システムCD = @システムCD
				AND データ識別 = 'チェック区分'
		) TC9区分M
		INNER JOIN (SELECT * FROM (SELECT * FROM TDA勘定科目M
				UNION	--TDA勘定科目会社学生Mを連結（091023小野）
				SELECT * FROM TDA勘定科目会社学生M
				WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
			) TDA勘定科目M
			WHERE システムCD = @システムCD
				AND 演習CD = @演習CD
		) TDA勘定科目M
			ON TC9区分M.区分CD = TDA勘定科目M.チェック区分
			GROUP BY TC9区分M.区分CD
				, TC9区分M.区分名称
	) A
	CROSS JOIN (
		SELECT *
		FROM TDA会社M
		WHERE システムCD = @システムCD
			AND 演習CD = @演習CD
			And 会社CD LIKE @会社CD
	) B
) チェック区分M
	ON DATA3.会社CD = チェック区分M.会社CD
	AND DATA3.チェック区分 = チェック区分M.チェック区分
--ORDER BY   チェック区分M.会社CD,  ISNULL(チェック区分M.チェック区分, 'Z'), DATA3.チェック区分
--SQL2005の互換性レベルではチェック区分の存在しないレコードのチェック区分M.会社CDがNullになってしまい
--優先ソートされてしまうのでISNULLでDATA3.会社CDに変換（20080225小野）
ORDER BY ISNULL(チェック区分M.会社CD, DATA3.会社CD) 
	, ISNULL(チェック区分M.チェック区分, 'Z')
	, DATA3.チェック区分




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入集計更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

begin transaction

DELETE FROM TTK記帳チェックF
where システムCD = @システムCD
 and 演習CD = @演習CD and 会社CD LIKE @会社CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

exec SPM記帳チェック挿入伝票 @システムCD, @演習CD, @会社CD
exec SPM記帳チェック挿入元帳 @システムCD, @演習CD, @会社CD
exec SPM記帳チェック挿入現物現金 @システムCD, @演習CD, @会社CD
exec SPM記帳チェック挿入現物預金 @システムCD, @演習CD, @会社CD
exec SPM記帳チェック挿入現物受取手形 @システムCD, @演習CD, @会社CD
exec SPM記帳チェック挿入現物支払手形 @システムCD, @演習CD, @会社CD
exec SPM記帳チェック挿入補助簿 @システムCD, @演習CD, @会社CD

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO





CREATE PROCEDURE dbo.SPM記帳チェック挿入集計更新全部
AS

begin transaction

DELETE FROM TTK記帳チェックF

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

commit transaction

exec SPM記帳チェック挿入伝票 '%', '%', '%'
exec SPM記帳チェック挿入元帳 '%', '%', '%'
exec SPM記帳チェック挿入現物現金 '%', '%', '%'
exec SPM記帳チェック挿入現物預金 '%', '%', '%'
exec SPM記帳チェック挿入現物受取手形 '%', '%', '%'
exec SPM記帳チェック挿入現物支払手形 '%', '%', '%'
exec SPM記帳チェック挿入補助簿 '%', '%', '%'





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM記帳チェック挿入集計更新同時同業会社
@システムCD varchar(12), @演習CD varchar(12), @学生番号 varchar(12)

AS

declare @同時同業会社CD varchar(20)

SET @同時同業会社CD = '%-' + @学生番号	--マスタからコピーされた生徒会社


DELETE FROM TTK記帳チェックF
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD LIKE @同時同業会社CD

exec SPM記帳チェック挿入伝票 @システムCD, @演習CD, @同時同業会社CD
exec SPM記帳チェック挿入元帳 @システムCD, @演習CD, @同時同業会社CD
exec SPM記帳チェック挿入現物現金 @システムCD, @演習CD, @同時同業会社CD
exec SPM記帳チェック挿入現物預金 @システムCD, @演習CD, @同時同業会社CD
exec SPM記帳チェック挿入現物受取手形 @システムCD, @演習CD, @同時同業会社CD
exec SPM記帳チェック挿入現物支払手形 @システムCD, @演習CD, @同時同業会社CD
exec SPM記帳チェック挿入補助簿 @システムCD, @演習CD, @同時同業会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPM記帳チェック現物
@システムCD varchar(12),@演習CD  varchar(12)  , @会社CD  varchar(20)  
AS
	declare @学生番号 varchar(40)
	declare @演習区分 varchar(2)
	SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)
	
	if @演習区分 = 'G'
	begin 
		SELECT @学生番号 = '%'
	end
	else
	begin
		SET @学生番号 = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	end

SELECT          TDA商品M.商品CD,  A.伝票仕入数量, A.伝票仕入金額, A.伝票売上数量, A.伝票売上金額, B.入出庫仕入数量, B.入出庫仕入金額, B.入出庫売上数量, B.入出庫売上金額
FROM            TDA商品M LEFT OUTER JOIN
                          (SELECT         TGA入出庫明細TRN.商品CD, 
                                                    SUM(CASE WHEN TGA入出庫明細TRN.文書種類CD IN ('SC','SS', 'SY') 
                                                    THEN TGA入出庫明細TRN.数量 END) AS 入出庫仕入数量, 
                                                    SUM(CASE WHEN TGA入出庫明細TRN.文書種類CD IN ('SC','SS', 'SY') 
                                                    THEN TGA入出庫明細TRN.数量 * TGA入出庫明細TRN.単価 END) 
                                                    AS 入出庫仕入金額, 
                                                    SUM(CASE WHEN TGA入出庫明細TRN.文書種類CD NOT IN ('SC','SS', 
                                                    'SY') THEN TGA入出庫明細TRN.数量 END) AS 入出庫売上数量, 
                                                    SUM(CASE WHEN TGA入出庫明細TRN.文書種類CD NOT IN ('SC','SS', 
                                                    'SY') 
                                                    THEN TGA入出庫明細TRN.数量 * TGA入出庫明細TRN.単価 END) 
                                                    AS 入出庫売上金額
                             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 
                             WHERE            TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD AND TGA入出庫TRN.会社CD = @会社CD 
                                        AND TGA入出庫TRN.処理時期区分 <> 0 AND TGA入出庫TRN.有効フラグ = 1
                             GROUP BY     商品CD) B ON 
                      TDA商品M.商品CD = B.商品CD LEFT OUTER JOIN
                          (SELECT          商品CD, 
                                                    SUM(CASE WHEN TSK伝票仕入売上明細F.伝票区分 = 'D3' THEN TSK伝票仕入売上明細F.受注数量
                                                     END) AS 伝票仕入数量, 
                                                    SUM(CASE WHEN TSK伝票仕入売上明細F.伝票区分 = 'D3' THEN TSK伝票仕入売上明細F.受注数量 * TSK伝票仕入売上明細F.受注単価
                                                     END) AS 伝票仕入金額, 
                                                    SUM(CASE WHEN TSK伝票仕入売上明細F.伝票区分 = 'D4' THEN TSK伝票仕入売上明細F.受注数量
                                                     END) AS 伝票売上数量, 
                                                    SUM(CASE WHEN TSK伝票仕入売上明細F.伝票区分 = 'D4' THEN TSK伝票仕入売上明細F.受注数量 * TSK伝票仕入売上明細F.受注単価
                                                     END) AS 伝票売上金額
                             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.伝票番号
                             WHERE            TSK伝票仕入売上明細F.システムCD = @システムCD AND TSK伝票仕入売上明細F.演習CD = @演習CD AND TSK伝票仕入売上明細F.会社CD = @会社CD AND TSK伝票F.削除フラグ = 0
                             GROUP BY     商品CD) A ON 
                       TDA商品M.商品CD = A.商品CD
WHERE           (TDA商品M.システムCD = @システムCD)  AND(TDA商品M.演習CD = @演習CD)
                                        AND
	(@演習区分 <> 'P' Or (@演習区分 = 'P' And (TDA商品M.学生番号 = '' Or TDA商品M.学生番号 = @学生番号)))














GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPM選択可能会社取得
@システムCD varchar(12),@演習CD varchar(12), @学生番号 varchar(20)

AS
	SELECT 選択会社CD FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD and 学生番号 = @学生番号


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM部品展開表取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造区分 varchar(2), @製品CD varchar(20)

AS

SELECT TDA部品展開M.*, TDA材料M.*
FROM TDA部品展開M
LEFT OUTER JOIN TDA材料M
	ON TDA材料M.システムCD = TDA部品展開M.システムCD
	AND TDA材料M.演習CD = TDA部品展開M.演習CD
	AND TDA材料M.材料CD = TDA部品展開M.材料CD
WHERE TDA部品展開M.システムCD = @システムCD
	AND TDA部品展開M.演習CD = @演習CD
	AND TDA部品展開M.会社CD = @会社CD
	AND TDA部品展開M.製造区分 = @製造区分
	AND TDA部品展開M.製品CD = @製品CD
	AND TDA部品展開M.材料区分 = 'ZR'
ORDER BY TDA部品展開M.部品展開Seq
	, TDA部品展開M.材料CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM部品展開表商品一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TDA部品展開M.製品CD, TDA商品M.商品名称
FROM TDA部品展開M
INNER JOIN TDA商品M
	ON TDA商品M.システムCD = TDA部品展開M.システムCD
	AND TDA商品M.演習CD = TDA部品展開M.演習CD
--	マスター商品は当面OFFにしておく
	AND TDA商品M.所有会社CD = TDA部品展開M.会社CD
--	AND (TDA商品M.所有会社CD = TDA部品展開M.会社CD OR TDA商品M.所有会社CD = '' OR TDA商品M.所有会社CD IS NULL)
	AND TDA商品M.商品CD = TDA部品展開M.製品CD
WHERE TDA部品展開M.システムCD = @システムCD
	AND TDA部品展開M.演習CD = @演習CD
	AND TDA部品展開M.会社CD = @会社CD
	AND TDA部品展開M.製造区分 = 'S'
GROUP BY TDA部品展開M.製品CD, TDA商品M.商品名称
ORDER BY TDA部品展開M.製品CD







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM部品展開表挿入
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造区分 varchar(2), @製品CD varchar(20)
, @行数 int
, @部品展開Seq1 int, @材料区分1 varchar (2), @材料CD1 varchar (20), @材料数量1 money
, @部品展開Seq2 int, @材料区分2 varchar (2), @材料CD2 varchar (20), @材料数量2 money
, @部品展開Seq3 int, @材料区分3 varchar (2), @材料CD3 varchar (20), @材料数量3 money
, @部品展開Seq4 int, @材料区分4 varchar (2), @材料CD4 varchar (20), @材料数量4 money
, @部品展開Seq5 int, @材料区分5 varchar (2), @材料CD5 varchar (20), @材料数量5 money
, @部品展開Seq6 int, @材料区分6 varchar (2), @材料CD6 varchar (20), @材料数量6 money
, @部品展開Seq7 int, @材料区分7 varchar (2), @材料CD7 varchar (20), @材料数量7 money
, @部品展開Seq8 int, @材料区分8 varchar (2), @材料CD8 varchar (20), @材料数量8 money
, @部品展開Seq9 int, @材料区分9 varchar (2), @材料CD9 varchar (20), @材料数量9 money
, @部品展開Seq10 int, @材料区分10 varchar (2), @材料CD10 varchar (20), @材料数量10 money

AS

begin transaction

--明細1
INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq1, @材料区分1, @材料CD1, @材料数量1)

if @@error <> 0
begin
	rollback  select -1  return
end

--明細2
if @行数 > 1
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq2, @材料区分2, @材料CD2, @材料数量2)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細3
if @行数 > 2
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq3, @材料区分3, @材料CD3, @材料数量3)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細4
if @行数 > 3
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq4, @材料区分4, @材料CD4, @材料数量4)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細5
if @行数 > 4
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq5, @材料区分5, @材料CD5, @材料数量5)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細6
if @行数 > 5
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq6, @材料区分6, @材料CD6, @材料数量6)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細7
if @行数 > 6
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq7, @材料区分7, @材料CD7, @材料数量7)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細8
if @行数 > 7
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq8, @材料区分8, @材料CD8, @材料数量8)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細9
if @行数 > 8
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq9, @材料区分9, @材料CD9, @材料数量9)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end

--明細10
if @行数 > 9
begin

	INSERT INTO YTMP_TDA部品展開M (システムCD, 演習CD, 会社CD, 製造区分, 製品CD, 部品展開Seq, 材料区分, 材料CD, 材料数量)
	VALUES (@システムCD, @演習CD, @会社CD, @製造区分, @製品CD, @部品展開Seq10, @材料区分10, @材料CD10, @材料数量10)

	if @@error <> 0
	begin
		rollback  select -1  return
	end

end


commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPM部品展開表更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @製造区分 varchar(2), @製品CD varchar(20)

AS

begin transaction

DELETE FROM TDA部品展開M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造区分 = @製造区分 AND 製品CD = @製品CD

--登録（YTMPより）
INSERT INTO TDA部品展開M
SELECT *
FROM YTMP_TDA部品展開M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造区分 = @製造区分 AND 製品CD = @製品CD

if @@error <> 0
begin
	rollback transaction
	select -1 return
end

DELETE FROM YTMP_TDA部品展開M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 製造区分 = @製造区分 AND 製品CD = @製品CD

commit transaction






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPM部品展開表材料一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TDA部品展開M.製品CD, TDA材料M.材料名称
FROM TDA部品展開M
INNER JOIN TDA材料M
	ON TDA材料M.システムCD = TDA部品展開M.システムCD
	AND TDA材料M.演習CD = TDA部品展開M.演習CD
--	マスター材料は当面OFFにしておく
	AND TDA材料M.所有会社CD = TDA部品展開M.会社CD
--	AND (TDA材料M.所有会社CD = TDA部品展開M.会社CD OR TDA材料M.所有会社CD = '' OR TDA材料M.所有会社CD IS NULL)
	AND TDA材料M.材料CD = TDA部品展開M.製品CD
WHERE TDA部品展開M.システムCD = @システムCD
	AND TDA部品展開M.演習CD = @演習CD
	AND TDA部品展開M.会社CD = @会社CD
	AND TDA部品展開M.製造区分 = 'Z'
GROUP BY TDA部品展開M.製品CD, TDA材料M.材料名称
ORDER BY TDA部品展開M.製品CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPNFAX一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @送受信区分 varchar(2)

AS

declare @送受信区分反対 varchar(2)

SET @送受信区分反対 = 'S'
if @送受信区分 = 'S'
begin
	SET @送受信区分反対 = 'R'
end

SELECT TTXFAXF.*
	, 対象FAXF.開封フラグ AS 対象開封フラグ
FROM TTXFAXF
LEFT OUTER JOIN TTXFAXF 対象FAXF
	ON 対象FAXF.システムCD = TTXFAXF.システムCD
	AND 対象FAXF.演習CD = TTXFAXF.演習CD
	AND 対象FAXF.作成会社CD = TTXFAXF.作成会社CD
	AND 対象FAXF.FAXCD = TTXFAXF.FAXCD
	AND 対象FAXF.会社CD <> TTXFAXF.作成会社CD
WHERE TTXFAXF.システムCD = @システムCD
	AND TTXFAXF.演習CD = @演習CD
	AND TTXFAXF.会社CD = @会社CD
	AND TTXFAXF.送受信区分 = @送受信区分
ORDER BY TTXFAXF.作成日 DESC, TTXFAXF.作成会社CD, TTXFAXF.FAXCD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO











CREATE   PROCEDURE dbo.SPNFAX作成
  @システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @作成会社CD varchar(20)
, @FAXCD int
, @送受信区分 varchar(2)
, @宛先CD varchar(2000)
, @作成日 datetime
, @件名 varchar(40)
, @送付状 varchar(1000)
, @拡張子 varchar(12)
, @学生番号 varchar(40)

AS

declare @番号 int

begin transaction

if @FAXCD is null
begin
	--単一の保存ファイルに対して送受信両方でリンクさせる必要があるため作成会社CD単位で採番を行う

	if exists(SELECT FAXCD FROM TTXFAXF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND @送受信区分 = 送受信区分)
	begin
		SELECT @番号 = (SELECT MAX(FAXCD) AS FAXCD FROM TTXFAXF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 送受信区分 = @送受信区分)
		SELECT @FAXCD = @番号 + 1	
	end
	else
	begin
		SELECT @FAXCD = 1
	end 
end 

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

INSERT INTO TTXFAXF (システムCD, 演習CD, 会社CD, 作成会社CD, FAXCD, 送受信区分, 宛先CD, 作成日, 件名, 送付状, 拡張子, 開封フラグ, 削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @作成会社CD, @FAXCD, @送受信区分, @宛先CD, @作成日, @件名, @送付状, @拡張子, 0, 0, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

commit transaction

SELECT @FAXCD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPNFAX削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @FAXCD varchar(40)
AS

UPDATE TTXFAXF 
SET 削除フラグ = 1  
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND FAXCD = @FAXCD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPNFAX取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @FAXCD varchar(40)

AS

SELECT *
FROM TTXFAXF 
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND FAXCD = @FAXCD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO









CREATE PROCEDURE dbo.SPNFAX開封
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @FAXCD varchar(40)
AS

UPDATE TTXFAXF 
SET 開封フラグ = 1  
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND FAXCD = @FAXCD









GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPNメール作成
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @メールCD int, @作成日 datetime
,@送受信区分 varchar(2), @作成会社CD varchar(20), @表示用宛先CD varchar(2000), @件名 varchar(40), @内容 varchar(1000), @添付ファイル varchar(255), @学生番号 varchar(40)

AS

declare @番号 int

begin transaction

if @メールCD IS NULL
begin
	/* 採番 */
	if exists(SELECT メールCD FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	begin
		SELECT @番号 = (SELECT MAX(メールCD) AS メールCD FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
		SELECT @メールCD = @番号 + 1	
	end
	else
	begin
		SELECT @メールCD = 1
	end 

	INSERT INTO TTXメールF (システムCD, 演習CD, 会社CD, メールCD, 作成日, 送受信区分, 作成会社CD, 表示用宛先CD , 件名, 内容, 添付ファイル, 開封フラグ, 削除フラグ, 学生番号)
	VALUES (@システムCD, @演習CD, @会社CD, @メールCD, @作成日, @送受信区分, @作成会社CD, @表示用宛先CD, @件名, @内容, @添付ファイル, 0, 0, @学生番号)
end
else
begin
	UPDATE TTXメールF
	SET 作成日 = @作成日
		, 送受信区分 = @送受信区分
		, 作成会社CD = @作成会社CD
		, 表示用宛先CD = @表示用宛先CD
		, 件名 = @件名
		, 内容 = @内容
		, 添付ファイル = @添付ファイル
		, 開封フラグ = 0
		, 削除フラグ = 0
		, 学生番号 = @学生番号
	WHERE  システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 会社CD = @会社CD
		AND メールCD = @メールCD
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @メールCD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPNメール作成2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @メールCD  varchar(40)
, @送信元メールCD  int --開封通知のためのリレーションを行うため受信側メールに送信元メールCDを持たせる（090706小野）
, @作成日 datetime ,@送受信区分 varchar(2), @作成会社CD varchar(20), @表示用宛先CD varchar(2000)
, @件名 varchar(40), @内容 varchar(1000), @添付ファイル varchar(255), @学生番号 varchar(40)

AS

declare @番号 int

begin transaction

/* 採番 */
if exists(SELECT メールCD FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
begin
	SELECT @番号 = (SELECT MAX(メールCD) AS メールCD FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 会社CD, 演習CD)
	SELECT @メールCD = @番号 + 1	
end
else
begin
	SELECT @メールCD = 1
end 

INSERT INTO TTXメールF (システムCD, 演習CD, 会社CD, メールCD, 送信元メールCD, 作成日, 送受信区分, 作成会社CD, 表示用宛先CD , 件名, 内容, 添付ファイル, 開封フラグ, 削除フラグ, 学生番号)
VALUES (@システムCD, @演習CD, @会社CD, @メールCD, @送信元メールCD, @作成日, @送受信区分, @作成会社CD, @表示用宛先CD, @件名, @内容, @添付ファイル, 0, 0, @学生番号)

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction

SELECT @メールCD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO












CREATE PROCEDURE dbo.SPNメール削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @メールCD varchar(40)
AS

	UPDATE [TTXメールF] 
	SET 削除フラグ = 1  
	WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  メールCD = @メールCD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPNメール取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @メールCD varchar(40)

AS


		SELECT *
		FROM            [TTXメールF] 
		WHERE  会社CD = @会社CD AND  システムCD = @システムCD AND 演習CD = @演習CD AND  メールCD = @メールCD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPNメール受信一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
	SELECT           *
	FROM            [TTXメールF] 
	WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 送受信区分 = 'R'
	ORDER BY     作成日 DESC, [メールCD]








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPNメール受信一覧2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @ソート基準 varchar(2)
--SPNメール受信一覧のソート機能追加版

AS

if @ソート基準 = ''
begin
	SET @ソート基準 = '0'
end

SELECT TTXメールF.*
FROM TTXメールF 
INNER JOIN TDA会社M
	ON TTXメールF.システムCD = TDA会社M.システムCD
	AND TTXメールF.演習CD = TDA会社M.演習CD
	AND TTXメールF.作成会社CD = TDA会社M.会社CD
WHERE TTXメールF.システムCD = @システムCD
	AND TTXメールF.演習CD = @演習CD
	AND TTXメールF.会社CD = @会社CD
	AND TTXメールF.送受信区分 = 'R'
ORDER BY CASE WHEN @ソート基準 = '0' THEN TTXメールF.作成日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '0' THEN TDA会社M.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '0' THEN TTXメールF.件名 ELSE NULL END
	, CASE WHEN @ソート基準 = '0' THEN TTXメールF.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN TDA会社M.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN TTXメールF.作成日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '1' THEN TTXメールF.件名 ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN TTXメールF.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TTXメールF.件名 ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TTXメールF.作成日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '2' THEN TDA会社M.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TTXメールF.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TTXメールF.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TTXメールF.作成日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '3' THEN TDA会社M.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TTXメールF.件名 ELSE NULL END
	, TTXメールF.メールCD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPNメール完全削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @メールCD varchar(40)

AS

DELETE FROM TTXメールF 
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD
	AND ((会社CD = @会社CD AND 送受信区分 = 'S' AND メールCD = @メールCD) --送信メール
		OR (作成会社CD = @会社CD AND 送受信区分 = 'R' AND 送信元メールCD = @メールCD)) --受信メール




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPNメール復元
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @メールCD varchar(40)
AS

UPDATE [TTXメールF]
SET 削除フラグ = 0 
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  メールCD = @メールCD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPNメール送信
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @メールCD varchar(40)

AS

UPDATE [TTXメールF] 
SET 送信フラグ = 1  
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND メールCD = @メールCD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPNメール送信一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
	SELECT           *
	FROM          [TTXメールF]
	WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  送受信区分 = 'S'
	ORDER BY    作成日 DESC,  [メールCD]








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPNメール開封
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @メールCD varchar(40)
AS

	UPDATE [TTXメールF] 
	SET 開封フラグ = 1  
	WHERE  システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND  メールCD = @メールCD











GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPNメール開封2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @メールCD varchar(40)

AS

declare @作成会社CD varchar(20)
declare @送信元メールCD int

begin transaction

--受信メールの開封
UPDATE TTXメールF 
SET 開封フラグ = 1  
WHERE  システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND メールCD = @メールCD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

--受信メールから作成会社CDと送信元メールCDを取得
if exists(SELECT 送信元メールCD FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND メールCD = @メールCD)
begin
	SELECT @送信元メールCD = (SELECT 送信元メールCD FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND メールCD = @メールCD)
	SELECT @作成会社CD = (SELECT 作成会社CD FROM TTXメールF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND メールCD = @メールCD)
end
else
begin
	SELECT @送信元メールCD = 0
	SELECT @作成会社CD = ''
end

if @作成会社CD <> ''
begin
	--送信元メールの開封フラグを立てる（受信側開封通知として利用）
	UPDATE TTXメールF 
	SET 開封フラグ = 1  
	WHERE  システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 会社CD = @作成会社CD
		AND メールCD = @送信元メールCD

	if @@error <> 0 
	begin
		rollback transaction
		select -1
		return
	end
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPN受信文書一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

SELECT TTX文書F.作成会社CD
	, TTX文書F.文書種類CD
	, TTX文書F.文書内容CD
	, TTX文書F.送受信区分
	, TTX文書F.文書CD
	, TTX文書F.会社CD
	, TTX文書F.取引先CD
	, TTX文書F.処理日
	, 会社.会社名称 AS 会社名称
	, 作成会社.会社名称 AS 作成会社名称
	, 会社.会社略名称 AS 会社略名称
	, 作成会社.会社略名称 AS 作成会社略名称
	, TTX文書F.開封フラグ
	, TTX文書F.学生番号
	, TTX文書F.削除フラグ
	, TC9文書種類M.文書名称
	, TC9文書種類M.アドレス
FROM TTX文書F
INNER JOIN TC9文書種類M
	ON TTX文書F.システムCD = TC9文書種類M.システムCD
	AND TTX文書F.文書種類CD = TC9文書種類M.文書種類CD
INNER JOIN TDA会社M 会社
	ON TTX文書F.システムCD = 会社.システムCD
	AND TTX文書F.演習CD = 会社.演習CD
	AND TTX文書F.会社CD = 会社.会社CD
INNER JOIN TDA会社M 作成会社
	ON TTX文書F.システムCD = 作成会社.システムCD
	AND TTX文書F.演習CD = 作成会社.演習CD
	AND TTX文書F.作成会社CD = 作成会社.会社CD
WHERE TTX文書F.システムCD = @システムCD
	AND TTX文書F.演習CD = @演習CD
	AND TTX文書F.会社CD = @会社CD
	AND TTX文書F.作成会社CD != @会社CD
ORDER BY TTX文書F.処理日 DESC
	, TTX文書F.文書CD
	, TTX文書F.会社CD
	, TTX文書F.取引先CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPN受信文書一覧2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @ソート基準 varchar(2)
--SPN受信文書一覧のソート機能追加版

AS

if @ソート基準 = ''
begin
	SET @ソート基準 = '0'
end


SELECT TTX文書F.作成会社CD
	, TTX文書F.文書種類CD
	, TTX文書F.文書内容CD
	, TTX文書F.送受信区分
	, TTX文書F.文書CD
	, TTX文書F.会社CD
	, TTX文書F.取引先CD
	, TTX文書F.処理日
	, 会社.会社名称 AS 会社名称
	, 作成会社.会社名称 AS 作成会社名称
	, 会社.会社略名称 AS 会社略名称
	, 作成会社.会社略名称 AS 作成会社略名称
	, TTX文書F.開封フラグ
	, TTX文書F.学生番号
	, TTX文書F.削除フラグ
	, TC9文書種類M.文書名称
	, TC9文書種類M.アドレス
FROM TTX文書F
INNER JOIN TC9文書種類M
	ON TTX文書F.システムCD = TC9文書種類M.システムCD
	AND TTX文書F.文書種類CD = TC9文書種類M.文書種類CD
INNER JOIN TDA会社M 会社
	ON TTX文書F.システムCD = 会社.システムCD
	AND TTX文書F.演習CD = 会社.演習CD
	AND TTX文書F.会社CD = 会社.会社CD
INNER JOIN TDA会社M 作成会社
	ON TTX文書F.システムCD = 作成会社.システムCD
	AND TTX文書F.演習CD = 作成会社.演習CD
	AND TTX文書F.作成会社CD = 作成会社.会社CD
WHERE TTX文書F.システムCD = @システムCD
	AND TTX文書F.演習CD = @演習CD
	AND TTX文書F.会社CD = @会社CD
	AND TTX文書F.作成会社CD != @会社CD
ORDER BY CASE WHEN @ソート基準 = '0' THEN TTX文書F.処理日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '0' THEN 作成会社.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '0' THEN TC9文書種類M.文書名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '0' THEN TTX文書F.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN 作成会社.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN TTX文書F.処理日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '1' THEN TC9文書種類M.文書名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN TTX文書F.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TC9文書種類M.文書名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TTX文書F.処理日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '2' THEN 作成会社.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TTX文書F.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TTX文書F.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TTX文書F.処理日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '3' THEN 作成会社.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TC9文書種類M.文書名称 ELSE NULL END




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



















CREATE  PROCEDURE dbo.SPN受発信文書削除
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @文書内容CD varchar(20)

AS

begin transaction

	UPDATE TTX文書F
	SET 削除フラグ = 1
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

--	UPDATE TGA手形F
--	SET 削除フラグ = 1
--	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

--	UPDATE TSA仕入売上書類F
--	SET 削除フラグ = 1
--	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

--	UPDATE TSB銀行取引申込書類F 
--	SET 削除フラグ = 1
--	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

--	UPDATE TSC運送書類F
--	SET 削除フラグ = 1
--	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

--	UPDATE TSC運送費請求書手動F
--	SET 削除フラグ = 1
--	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 作成会社CD = @作成会社CD AND 文書種類CD = @文書種類CD AND 文書内容CD = @文書内容CD

commit transaction



















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPN学生メール受信一覧
@システムCD varchar(12),@学生番号 varchar(20)

AS
	SELECT           *
	FROM            [TTXメールF] 
	WHERE  システムCD = @システムCD  AND 学生番号 = @学生番号 AND 送受信区分 = 'R'
	ORDER BY     作成日 DESC, [メールCD]






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPN学生メール送信一覧
@システムCD varchar(12), @学生番号 varchar(20)

AS
	SELECT           *
	FROM          [TTXメールF]
	WHERE  システムCD = @システムCD AND 学生番号 = @学生番号 AND  送受信区分 = 'S'
	ORDER BY    作成日 DESC,  [メールCD]






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPN学生受信文書一覧
@システムCD varchar(12),@演習CD varchar(12), @学生番号 varchar(20)

AS

		SELECT TTX文書F.作成会社CD, TTX文書F.文書種類CD, TTX文書F.文書内容CD,
                      TTX文書F.送受信区分, TTX文書F.文書CD, TTX文書F.会社CD, TTX文書F.取引先CD, TTX文書F.処理日, 
                      会社.会社名称 AS 会社名称, 作成会社.会社名称 AS 作成会社名称, 
                      会社.会社略名称 AS 会社略名称, 作成会社.会社略名称 AS 作成会社略名称, 
		  取引先.会社名称 AS 取引先名称,
                      TTX文書F.開封フラグ, TTX文書F.学生番号, 
                      TTX文書F.削除フラグ, TC9文書種類M.文書名称, TC9文書種類M.アドレス
		FROM            TTX文書F INNER JOIN
                      TC9文書種類M ON TTX文書F.システムCD = TC9文書種類M.システムCD AND TTX文書F.文書種類CD = TC9文書種類M.文書種類CD
                    INNER JOIN
                      TDA会社M 会社 ON 
                      TTX文書F.システムCD = 会社.システムCD AND 
                      TTX文書F.演習CD = 会社.演習CD AND 
                      TTX文書F.会社CD = 会社.会社CD
                    INNER JOIN
                      TDA会社M 作成会社 ON 
                      TTX文書F.システムCD = 作成会社.システムCD AND 
                      TTX文書F.演習CD = 作成会社.演習CD AND 
                      TTX文書F.作成会社CD = 作成会社.会社CD
                    INNER JOIN
                      TDA会社M 取引先 ON 
                      TTX文書F.システムCD = 取引先.システムCD AND 
                      TTX文書F.演習CD = 取引先.演習CD AND 
                      TTX文書F.取引先CD = 取引先.会社CD
		WHERE TTX文書F.システムCD = @システムCD AND TTX文書F.演習CD = @演習CD AND TTX文書F.学生番号 = @学生番号  AND 送受信区分 = 'R'
		ORDER BY  TTX文書F.処理日 DESC, TTX文書F.文書CD, TTX文書F.会社CD, TTX文書F.取引先CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO







CREATE PROCEDURE dbo.SPN学生発信文書一覧
@システムCD varchar(12),@演習CD varchar(12), @学生番号 varchar(20)

AS

		SELECT TTX文書F.作成会社CD, TTX文書F.文書種類CD, TTX文書F.文書内容CD,
                      TTX文書F.送受信区分, TTX文書F.文書CD, TTX文書F.会社CD, TTX文書F.取引先CD, TTX文書F.処理日, 
                      会社.会社名称 AS 会社名称, 作成会社.会社名称 AS 作成会社名称, 
                      会社.会社略名称 AS 会社略名称, 作成会社.会社略名称 AS 作成会社略名称, 
		  取引先.会社名称 AS 取引先名称,
                      TTX文書F.開封フラグ, TTX文書F.学生番号, 
                      TTX文書F.削除フラグ, TC9文書種類M.文書名称, TC9文書種類M.アドレス
		FROM            TTX文書F INNER JOIN
                      TC9文書種類M ON TTX文書F.システムCD = TC9文書種類M.システムCD AND TTX文書F.文書種類CD = TC9文書種類M.文書種類CD
                    INNER JOIN
                      TDA会社M 会社 ON 
                      TTX文書F.システムCD = 会社.システムCD AND 
                      TTX文書F.演習CD = 会社.演習CD AND 
                      TTX文書F.会社CD = 会社.会社CD
                    INNER JOIN
                      TDA会社M 作成会社 ON 
                      TTX文書F.システムCD = 作成会社.システムCD AND 
                      TTX文書F.演習CD = 作成会社.演習CD AND 
                      TTX文書F.作成会社CD = 作成会社.会社CD
                    INNER JOIN
                      TDA会社M 取引先 ON 
                      TTX文書F.システムCD = 取引先.システムCD AND 
                      TTX文書F.演習CD = 取引先.演習CD AND 
                      TTX文書F.取引先CD = 取引先.会社CD
		WHERE TTX文書F.システムCD = @システムCD AND TTX文書F.演習CD = @演習CD AND TTX文書F.学生番号 = @学生番号  AND 送受信区分 = 'S'
		ORDER BY  TTX文書F.処理日 DESC, TTX文書F.文書CD, TTX文書F.会社CD, TTX文書F.取引先CD






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPN文書一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @送受信区分 varchar(2)

AS

	SELECT          TTX文書F.作成会社CD, TTX文書F.文書種類CD, TTX文書F.文書CD, 
              TTX文書F.送受信区分, TTX文書F.会社CD, TTX文書F.取引先CD, TTX文書F.処理日, 
              TTX文書F.[文書内容CD], TTX文書F.開封フラグ, TTX文書F.学生番号, 
              TTX文書F.削除フラグ, TC9文書種類M.文書名称, TC9文書種類M.アドレス
	FROM            TTX文書F INNER JOIN
              TC9文書種類M ON TTX文書F.システムCD = TC9文書種類M.システムCD AND TTX文書F.文書種類CD = TC9文書種類M.文書種類CD
	WHERE TTX文書F.システムCD = @システムCD AND TTX文書F.演習CD = @演習CD AND TTX文書F.会社CD = @会社CD AND TTX文書F.送受信区分 = @送受信区分
	ORDER BY  TTX文書F.処理日 DESC, TTX文書F.文書CD, TTX文書F.会社CD, TTX文書F.取引先CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPN発信文書一覧
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
		SELECT TTX文書F.作成会社CD, TTX文書F.文書種類CD, TTX文書F.文書内容CD,
                      TTX文書F.送受信区分, TTX文書F.文書CD, TTX文書F.会社CD, TTX文書F.取引先CD, TTX文書F.処理日, 
                      会社.会社名称 AS 会社名称, 作成会社.会社名称 AS 作成会社名称, 取引先.会社名称 AS 取引先名称, 
                      会社.会社略名称 AS 会社略名称, 作成会社.会社略名称 AS 作成会社略名称, 取引先.会社略名称 AS 取引先略名称, 
                      TTX文書F.開封フラグ, TTX文書F.学生番号, 
                      TTX文書F.削除フラグ, TC9文書種類M.文書名称, TC9文書種類M.アドレス
		FROM            TTX文書F INNER JOIN
                      TC9文書種類M ON TTX文書F.システムCD = TC9文書種類M.システムCD AND TTX文書F.文書種類CD = TC9文書種類M.文書種類CD
                    INNER JOIN
                      TDA会社M 会社 ON 
                      TTX文書F.システムCD = 会社.システムCD AND 
                      TTX文書F.演習CD = 会社.演習CD AND 
                      TTX文書F.会社CD = 会社.会社CD
                    INNER JOIN
                      TDA会社M 作成会社 ON 
                      TTX文書F.システムCD = 作成会社.システムCD AND 
                      TTX文書F.演習CD = 作成会社.演習CD AND 
                      TTX文書F.作成会社CD = 作成会社.会社CD
                    INNER JOIN
                      TDA会社M 取引先 ON 
                      TTX文書F.システムCD = 取引先.システムCD AND 
                      TTX文書F.演習CD = 取引先.演習CD AND 
                      TTX文書F.取引先CD = 取引先.会社CD
		WHERE TTX文書F.システムCD = @システムCD AND TTX文書F.演習CD = @演習CD AND TTX文書F.会社CD = @会社CD AND TTX文書F.作成会社CD = @会社CD
		ORDER BY  TTX文書F.処理日 DESC, TTX文書F.文書CD, TTX文書F.会社CD, TTX文書F.取引先CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPN発信文書一覧2
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @ソート基準 varchar(2)
--SPN送信文書一覧のソート機能追加版

AS

SELECT TTX文書F.作成会社CD
	, TTX文書F.文書種類CD
	, TTX文書F.文書内容CD
	, TTX文書F.送受信区分
	, TTX文書F.文書CD
	, TTX文書F.会社CD
	, TTX文書F.取引先CD
	, TTX文書F.処理日
	, 会社.会社名称 AS 会社名称
	, 作成会社.会社名称 AS 作成会社名称
	, 取引先.会社名称 AS 取引先名称
	, 会社.会社略名称 AS 会社略名称
	, 作成会社.会社略名称 AS 作成会社略名称
	, 取引先.会社略名称 AS 取引先略名称
	, TTX文書F.開封フラグ
	, TTX文書F.学生番号
	, TTX文書F.削除フラグ
	, TC9文書種類M.文書名称
	, TC9文書種類M.アドレス
FROM TTX文書F
INNER JOIN TC9文書種類M
	ON TTX文書F.システムCD = TC9文書種類M.システムCD
	AND TTX文書F.文書種類CD = TC9文書種類M.文書種類CD
INNER JOIN TDA会社M 会社
	ON TTX文書F.システムCD = 会社.システムCD
	AND TTX文書F.演習CD = 会社.演習CD
	AND TTX文書F.会社CD = 会社.会社CD
INNER JOIN TDA会社M 作成会社
	ON TTX文書F.システムCD = 作成会社.システムCD
	AND TTX文書F.演習CD = 作成会社.演習CD
	AND TTX文書F.作成会社CD = 作成会社.会社CD
INNER JOIN TDA会社M 取引先
	ON TTX文書F.システムCD = 取引先.システムCD
	AND TTX文書F.演習CD = 取引先.演習CD
	AND TTX文書F.取引先CD = 取引先.会社CD
WHERE TTX文書F.システムCD = @システムCD
	AND TTX文書F.演習CD = @演習CD
	AND TTX文書F.会社CD = @会社CD
	AND TTX文書F.作成会社CD = @会社CD
ORDER BY CASE WHEN @ソート基準 = '0' THEN TTX文書F.処理日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '0' THEN 取引先.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '0' THEN TC9文書種類M.文書名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '0' THEN TTX文書F.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN 取引先.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN TTX文書F.処理日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '1' THEN TC9文書種類M.文書名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '1' THEN TTX文書F.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TC9文書種類M.文書名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TTX文書F.処理日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '2' THEN 取引先.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '2' THEN TTX文書F.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TTX文書F.開封フラグ ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TTX文書F.処理日 ELSE NULL END DESC
	, CASE WHEN @ソート基準 = '3' THEN 取引先.会社名称 ELSE NULL END
	, CASE WHEN @ソート基準 = '3' THEN TC9文書種類M.文書名称 ELSE NULL END




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPPポータル会社取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(12)

AS

DECLARE @演習区分 varchar(1)

SET @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD GROUP BY 演習区分)

SELECT TGPポータル会社F.*
	, TDA会社M.会社名称 AS 会社名称
	, TDA会社M.市場CD AS 市場CD
FROM TGPポータル会社F
INNER JOIN TDA会社M 
	ON TDA会社M.システムCD =  TGPポータル会社F.システムCD
	AND TDA会社M.演習CD =  TGPポータル会社F.演習CD
	AND TDA会社M.会社CD =  TGPポータル会社F.会社CD
WHERE TGPポータル会社F.システムCD = @システムCD
	AND TGPポータル会社F.演習CD = @演習CD
	AND (@会社CD = '' OR TGPポータル会社F.会社CD = @会社CD) --@会社CDがNULL文字指定の場合は右の式が評価されず全取得となる
	AND (@演習区分 = 'G' OR 学生番号 = @学生番号)	--@演習区分=Gの場合は右の式が評価されず全取得となる
ORDER BY TDA会社M.市場CD
	, TGPポータル会社F.会社CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE  PROCEDURE dbo.SPPポータル会社更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)
, @見出し文 varchar(60)
, @バナー varchar(255)
, @紹介文 varchar(240)
, @商品棚表示 varchar(60)
, @商品棚在庫無し表示 varchar(1)
, @コンテンツ表示 varchar(1)
, @コンテンツタイトル varchar(60)
, @コンテンツ varchar(255)
, @リンク表示 varchar(1)
, @リンクタイトル varchar(60)
, @リンク varchar(240)

AS

begin transaction

if exists(SELECT * FROM TGPポータル会社F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
begin
	UPDATE TGPポータル会社F
	SET 見出し文 = @見出し文
		, バナー = @バナー
		, 紹介文 = @紹介文
		, 商品棚表示 = @商品棚表示
		, 商品棚在庫無し表示 = @商品棚在庫無し表示
		, コンテンツ表示 = @コンテンツ表示
		, コンテンツタイトル = @コンテンツタイトル
		, コンテンツ = @コンテンツ
		, リンク表示 = @リンク表示
		, リンクタイトル = @リンクタイトル
		, リンク = @リンク
		, 更新日時 = GETDATE()
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 会社CD = @会社CD
end
else
begin
	INSERT INTO TGPポータル会社F (システムCD, 演習CD, 会社CD
		, 見出し文
		, バナー
		, 紹介文
		, 商品棚表示
		, 商品棚在庫無し表示
		, コンテンツ表示
		, コンテンツタイトル
		, コンテンツ
		, リンク表示
		, リンクタイトル
		, リンク
		, 更新日時)
	VALUES (@システムCD, @演習CD, @会社CD
		, @見出し文
		, @バナー
		, @紹介文
		, @商品棚表示
		, @商品棚在庫無し表示
		, @コンテンツ表示
		, @コンテンツタイトル
		, @コンテンツ
		, @リンク表示
		, @リンクタイトル
		, @リンク
		, GETDATE())
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPPポータル商品再採番
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

DECLARE @商品棚CD int
DECLARE @表示順 int
DECLARE @番号 int

begin transaction

SET @番号 = 1
--商品棚CDの配列作成
DECLARE ShohindanaCur CURSOR FOR
	SELECT 商品棚CD FROM TGPポータル商品F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 商品棚CD ORDER BY 商品棚CD
--カーソルオープン
OPEN ShohindanaCur
--カーソル行から変数に代入
FETCH NEXT FROM ShohindanaCur INTO @商品棚CD
--配列ループ
while (@@fetch_status <> -1) --エラーまたはEOFでない間ループ
begin
	if (@@fetch_status <> -2) --EOFで無ければ処理
	begin
		UPDATE TGPポータル商品F
		SET 商品棚CD = @番号
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 商品棚CD = @商品棚CD
		SET @番号 = @番号 + 1
	end
	--カーソル行から変数に代入
	FETCH NEXT FROM ShohindanaCur INTO @商品棚CD
end
--カーソルクローズ
CLOSE ShohindanaCur

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

SET @番号 = 1
--表示順の配列作成
DECLARE HyojijunCur CURSOR FOR
	SELECT 表示順 FROM TGPポータル商品F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY 表示順 ORDER BY 表示順
--カーソルオープン
OPEN HyojijunCur
--カーソル行から変数に代入
FETCH NEXT FROM HyojijunCur INTO @表示順
--配列ループ
while (@@fetch_status <> -1) --エラーまたはEOFでない間ループ
begin
	if (@@fetch_status <> -2) --EOFで無ければ処理
	begin
		UPDATE TGPポータル商品F
		SET 表示順 = @番号
		WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 表示順 = @表示順
		SET @番号 = @番号 + 1
	end
	--カーソル行から変数に代入
	FETCH NEXT FROM HyojijunCur INTO @表示順
end
--カーソルクローズ
CLOSE HyojijunCur

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPPポータル商品削除
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @商品棚CD int

AS

begin transaction

DELETE
FROM TGPポータル商品F
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 商品棚CD = @商品棚CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPPポータル商品取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @商品棚CD varchar(20)

AS

SELECT TGPポータル商品F.*
	, TDA商品M.商品名称 AS 商品名称
	, TDA商品M.画像ファイル AS 商品マスタ画像
	, TDA商品M.標準仕入単価 AS 標準卸価格
FROM TGPポータル商品F
INNER JOIN TDA商品M 
	ON TDA商品M.システムCD =  TGPポータル商品F.システムCD
	AND TDA商品M.演習CD =  TGPポータル商品F.演習CD
	AND TDA商品M.商品CD =  TGPポータル商品F.商品CD
INNER JOIN TGPポータル会社F
	ON TGPポータル会社F.システムCD =  TGPポータル商品F.システムCD
	AND TGPポータル会社F.演習CD =  TGPポータル商品F.演習CD
	AND TGPポータル会社F.会社CD =  TGPポータル商品F.会社CD
INNER JOIN TDA会社M 
	ON TDA会社M.システムCD =  TGPポータル会社F.システムCD
	AND TDA会社M.演習CD =  TGPポータル会社F.演習CD
	AND TDA会社M.会社CD =  TGPポータル会社F.会社CD
WHERE TDA会社M.システムCD = @システムCD
	AND TDA会社M.演習CD = @演習CD
	AND TDA会社M.会社CD = @会社CD
	AND (@商品棚CD = '' OR TGPポータル商品F.商品棚CD = CONVERT(int, @商品棚CD)) --@商品CDがNULL文字指定の場合は右の式が評価されず全取得となる
ORDER BY TGPポータル商品F.表示順 DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPPポータル商品更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @商品棚CD varchar(20)
, @商品CD varchar(20)
, @商品見出し文 varchar(80)
, @商品広告画像 varchar(255)
, @商品画像区分 varchar(1)
, @商品広告文 varchar(240)
, @希望卸価格 money

AS

declare @番号 int
declare @表示順 int

begin transaction

if (@商品棚CD = '')
begin
	if exists(SELECT 商品棚CD FROM TGPポータル商品F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	begin
		SELECT @番号 = (SELECT MAX(CONVERT(int, 商品棚CD)) AS 商品棚CD FROM TGPポータル商品F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY システムCD, 演習CD, 会社CD)
		SELECT @番号 = @番号 + 1	
		SELECT @表示順 = (SELECT MAX(CONVERT(int, 表示順)) AS 表示順 FROM TGPポータル商品F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD GROUP BY システムCD, 演習CD, 会社CD)
		SELECT @表示順 = @表示順 + 1	
	end
	else
	begin
		SELECT @番号 = 1
		SELECT @表示順 = 1
	end 
	INSERT INTO TGPポータル商品F (システムCD, 演習CD, 会社CD
		, 商品棚CD
		, 表示順
		, 商品CD
		, 商品見出し文
		, 商品広告画像
		, 商品画像区分
		, 商品広告文
		, 希望卸価格
		, 更新日時)
	VALUES (@システムCD, @演習CD, @会社CD
		, @番号
		, @表示順
		, @商品CD
		, @商品見出し文
		, @商品広告画像
		, @商品画像区分
		, @商品広告文
		, @希望卸価格
		, GETDATE())

end
else
begin
	UPDATE TGPポータル商品F
	SET 商品CD = @商品CD
		, 商品見出し文 = @商品見出し文
		, 商品広告画像 = @商品広告画像
		, 商品画像区分 = @商品画像区分
		, 商品広告文 = @商品広告文
		, 希望卸価格 = @希望卸価格
		, 更新日時 = GETDATE()
	WHERE システムCD = @システムCD
		AND 演習CD = @演習CD
		AND 会社CD = @会社CD
		AND 商品棚CD = @商品棚CD
end

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO




CREATE PROCEDURE dbo.SPPポータル商品表示順更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @表示順1 int, @表示順2 int

AS

begin transaction

UPDATE TGPポータル商品F
SET 表示順 = 77777
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 表示順 = @表示順1

UPDATE TGPポータル商品F
SET 表示順 = @表示順1
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 表示順 = @表示順2

UPDATE TGPポータル商品F
SET 表示順 = @表示順2
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 会社CD = @会社CD
	AND 表示順 = 77777

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE    PROCEDURE dbo.SPR仕入売上実績
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @文書種類CD1 varchar(2), @文書種類CD2 varchar(2), @文書種類CD3 varchar(2), @文書種類CD4 varchar(2)

AS

if @文書種類CD1 = '' 
begin 
	SELECT @文書種類CD1 = '%'
	SELECT @文書種類CD2 = '%'
	SELECT @文書種類CD3 = '%'
	SELECT @文書種類CD4 = '%'
end

if @文書種類CD2 = ''
begin
	SELECT @文書種類CD2 = '文書種類CD2は無視します'
end
if @文書種類CD3 = ''
begin
	SELECT @文書種類CD3 = '文書種類CD3は無視します'
end

if @文書種類CD4 = ''
begin
	SELECT @文書種類CD4 = '文書種類CD4は無視します'
end


		SELECT          TGA入出庫TRN.文書種類CD, TGA入出庫TRN.会社CD, TGA入出庫TRN.処理日, 
                      TGA入出庫TRN.取引先CD, TGA入出庫明細TRN.商品CD, TGA入出庫明細TRN.数量, 
                      TGA入出庫明細TRN.単価,  TGA入出庫TRN.処理時期区分, TDA会社M.会社略名称 AS 取引先名称, TDA商品M.商品名称, TDA商品M.商品略名称,
		A.区分名称 AS 入出庫区分名称
		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


		LEFT OUTER JOIN (SELECT * FROM TC9区分M WHERE データ識別 = '入出庫区分') A ON TGA入出庫TRN.システムCD = A.システムCD  AND TGA入出庫TRN.文書種類CD = A.区分CD
		LEFT OUTER JOIN TDA会社M ON TGA入出庫TRN.システムCD = TDA会社M.システムCD AND TGA入出庫TRN.演習CD = TDA会社M.演習CD AND TGA入出庫TRN.取引先CD = TDA会社M.会社CD
		LEFT OUTER 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.会社CD = @会社CD) 
		AND (TGA入出庫TRN.文書種類CD LIKE @文書種類CD1 Or TGA入出庫TRN.文書種類CD LIKE @文書種類CD2 Or TGA入出庫TRN.文書種類CD LIKE @文書種類CD3 Or TGA入出庫TRN.文書種類CD LIKE @文書種類CD4)
		AND (TGA入出庫TRN.有効フラグ = 1) 
		ORDER BY     TGA入出庫TRN.処理時期区分, TGA入出庫TRN.処理日, TGA入出庫明細TRN.商品CD





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR他社在庫一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @処理日 datetime, @学生番号 varchar(20)

AS

declare @演習区分 varchar(40)
SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT TGA入出庫TRN.会社CD
	, TGA入出庫明細TRN.商品CD
	, MAX(TGA入出庫TRN.処理日) AS 最終処理日
	, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) AS 在庫数
	, 標準販売単価
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
LEFT OUTER 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.会社CD <> @会社CD
	AND TGA入出庫TRN.処理日 <= @処理日
	AND TGA入出庫TRN.有効フラグ = 1
	AND TDA会社M.業種CD = 'S'
	--同時同業の場合は学生番号が合致すれば取得。模擬実践の場合は学生番号がNULL若しくは自社なら取得（091027小野）
	AND (	(@演習区分 = 'P' AND TDA会社M.学生番号 = @学生番号)
		OR (@演習区分 = 'G' AND (TDA会社M.学生番号 = '' OR TDA会社M.自社フラグ = 1))	)
GROUP BY TGA入出庫明細TRN.商品CD, TGA入出庫TRN.会社CD, TDA商品M.標準販売単価
HAVING SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0
ORDER BY TGA入出庫明細TRN.商品CD, TGA入出庫TRN.会社CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR入出庫在庫
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @処理日 datetime

--（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
--（080430小野）仕掛品・製造部在庫拡張につき文書種類CDで絞り込むよう変更（PS・PU・MS・MUを除外）
--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZUを除外）

AS

if @会社CD = ''
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) AS 入庫金額
	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 --（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
		ON TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE TGA入出庫TRN.システムCD = @システムCD
		AND TGA入出庫TRN.演習CD = @演習CD
		AND TGA入出庫TRN.処理日 <= @処理日
		AND TGA入出庫TRN.有効フラグ = 1
		--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'ZS'
		AND TGA入出庫TRN.文書種類CD <> 'ZU'
		--（080430小野）仕掛品・製造部在庫拡張につき文書種類CDで絞り込むよう変更（PS・PU・MS・MUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'PS'
		AND TGA入出庫TRN.文書種類CD <> 'PU'
		AND TGA入出庫TRN.文書種類CD <> 'MS'
		AND TGA入出庫TRN.文書種類CD <> 'MU'
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS'  OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end
else
begin

	SELECT TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) AS 入庫金額
	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 --（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
		ON TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.会社CD = @会社CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'ZS'
		AND TGA入出庫TRN.文書種類CD <> 'ZU'
		--（080430小野）仕掛品・製造部在庫拡張につき文書種類CDで絞り込むよう変更（PS・PU・MS・MUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'PS'
		AND TGA入出庫TRN.文書種類CD <> 'PU'
		AND TGA入出庫TRN.文書種類CD <> 'MS'
		AND TGA入出庫TRN.文書種類CD <> 'MU'
	GROUP BY TGA入出庫明細TRN.商品CD
/*
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'S' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
*/
	ORDER BY TGA入出庫明細TRN.商品CD

end








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR入出庫在庫会計期間内
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @処理日 datetime

--（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
--（080430小野）仕掛品・製造部在庫拡張につき文書種類CDで絞り込むよう変更（PS・PU・MS・MUを除外）
--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZUを除外）

AS

if @会社CD = ''
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) AS 入庫金額
	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 --（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
		ON TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		AND TGA入出庫TRN.処理時期区分 <> 0 --ここで期首在庫を除くのが「SPR入出庫在庫」との相違点
		--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'ZS'
		AND TGA入出庫TRN.文書種類CD <> 'ZU'
		--（080430小野）仕掛品・製造部在庫拡張につき文書種類CDで絞り込むよう変更（PS・PU・MS・MUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'PS'
		AND TGA入出庫TRN.文書種類CD <> 'PU'
		AND TGA入出庫TRN.文書種類CD <> 'MS'
		AND TGA入出庫TRN.文書種類CD <> 'MU'
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS'  OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end
else
begin

	SELECT TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) AS 入庫金額
	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 --（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
		ON TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.会社CD = @会社CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		AND TGA入出庫TRN.処理時期区分 <> 0 --ここで期首在庫を除くのが「SPR入出庫在庫」との相違点
		--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'ZS'
		AND TGA入出庫TRN.文書種類CD <> 'ZU'
		--（080430小野）仕掛品・製造部在庫拡張につき文書種類CDで絞り込むよう変更（PS・PU・MS・MUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'PS'
		AND TGA入出庫TRN.文書種類CD <> 'PU'
		AND TGA入出庫TRN.文書種類CD <> 'MS'
		AND TGA入出庫TRN.文書種類CD <> 'MU'
	GROUP BY TGA入出庫明細TRN.商品CD
/*
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'S' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
*/
	ORDER BY TGA入出庫明細TRN.商品CD

end








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE  PROCEDURE dbo.SPR入出庫在庫単価
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

if @会社CD = ''
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) AS 在庫数
		, TGA入出庫明細TRN.単価
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) AS 在庫金額
	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 TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND TGA入出庫TRN.有効フラグ = 1
		--仕掛品・製造部在庫拡張につき文書種類CDで絞り込む（PS・PU・MS・MUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'PS'
		AND TGA入出庫TRN.文書種類CD <> 'PU'
		AND TGA入出庫TRN.文書種類CD <> 'MS'
		AND TGA入出庫TRN.文書種類CD <> 'MU'
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.単価	--単価毎にグルーピング
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS'  OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end
else
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) AS 在庫数
		, TGA入出庫明細TRN.単価
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) AS 在庫金額
	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 TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE TGA入出庫TRN.システムCD = @システムCD
		AND TGA入出庫TRN.演習CD = @演習CD
		AND TGA入出庫TRN.会社CD = @会社CD
		AND TGA入出庫TRN.有効フラグ = 1
		--仕掛品・製造部在庫拡張につき文書種類CDで絞り込む（PS・PU・MS・MUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'PS'
		AND TGA入出庫TRN.文書種類CD <> 'PU'
		AND TGA入出庫TRN.文書種類CD <> 'MS'
		AND TGA入出庫TRN.文書種類CD <> 'MU'
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.単価	--単価毎にグルーピング
/*
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'S' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
*/
	ORDER BY TGA入出庫明細TRN.商品CD

end








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR入出庫在庫明細
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @商品CD varchar(20),  @処理日 datetime

AS

SELECT  TGA入出庫TRN.取引先CD
	, TGA入出庫TRN.処理日
	, TGA入出庫明細TRN.文書種類CD
	, TGA入出庫明細TRN.数量
	, TGA入出庫明細TRN.単価
	, TGA入出庫明細TRN.元単価
	, TGA入出庫TRN.文書内容CD
	, A.区分名称 AS 入出庫区分名称
	, TDA会社M.会社略名称 AS 取引先名称
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
LEFT OUTER JOIN ( SELECT システムCD, 区分CD, 区分名称 FROM TC9区分M WHERE (システムCD = @システムCD) AND (データ識別 = '入出庫区分')) A
	ON TGA入出庫TRN.システムCD = A.システムCD
	AND TGA入出庫TRN.文書種類CD = A.区分CD
LEFT OUTER 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.会社CD = @会社CD
	AND TGA入出庫明細TRN.商品CD = @商品CD
	AND TGA入出庫TRN.有効フラグ = 1
	AND TGA入出庫TRN.処理日 <= @処理日
ORDER BY TGA入出庫TRN.処理日
	, CASE TGA入出庫TRN.文書種類CD WHEN 'SC' THEN 1 WHEN 'SS' THEN 2 WHEN 'SU' THEN 4 WHEN 'SX' THEN 3 WHEN 'SY' THEN 5 END
	, TGA入出庫TRN.文書種類CD
	, TGA入出庫明細TRN.文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR入出庫在庫明細仕入売上伝票
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @商品CD varchar(20), @取引日 datetime

--仕入売上伝票から入出庫履歴を取得する
--出力フィールドはSPR入出庫在庫明細に準拠する

AS

SELECT  TSK伝票F.取引先CD
	, TSK伝票F.取引日 AS 処理日
				--期首伝票を条件に追加（110124小野）
	, CASE WHEN TSK伝票F.伝票区分 = 'D5' THEN 'SS' WHEN TSK伝票F.伝票区分 = 'D3' THEN (CASE WHEN TSK伝票F.通常返品区分 = 'N' THEN 'SS' ELSE 'SX' END) ELSE (CASE WHEN TSK伝票F.通常返品区分 = 'N' THEN 'SU' ELSE 'SY' END) END AS 文書種類CD
	, TSK伝票仕入売上明細F.受注数量 AS 数量
	, TSK伝票仕入売上明細F.受注単価 AS 単価
	, NULL AS 元単価
	, TSK伝票F.伝票番号 AS 文書内容CD
				--期首伝票を条件に追加（110124小野）
	, CASE WHEN TSK伝票F.伝票区分 = 'D5' THEN '期首繰越' WHEN TSK伝票F.伝票区分 = 'D3' THEN (CASE WHEN TSK伝票F.通常返品区分 = 'N' THEN '仕入入庫' ELSE '仕入返品' END) ELSE (CASE WHEN TSK伝票F.通常返品区分 = 'N' THEN '売上出庫' ELSE '売上返品' END) END AS 入出庫区分名称
	, TDA会社M.会社略名称 AS 取引先名称
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.伝票番号
LEFT OUTER JOIN TDA会社M
	ON TSK伝票F.システムCD = TDA会社M.システムCD
	AND TSK伝票F.演習CD = TDA会社M.演習CD
	AND TSK伝票F.取引先CD = TDA会社M.会社CD
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.会社CD = @会社CD
	AND TSK伝票仕入売上明細F.商品CD = @商品CD
	AND (TSK伝票F.削除フラグ <> 1 OR TSK伝票F.削除フラグ IS NULL)
	AND TSK伝票F.取引日 <= @取引日
ORDER BY TSK伝票F.取引日
				--期首伝票は先頭にする（110124小野）
	, CASE WHEN TSK伝票F.伝票区分 = 'D5' THEN 1 WHEN TSK伝票F.伝票区分 = 'D3' THEN (CASE WHEN TSK伝票F.通常返品区分 = 'N' THEN 2 ELSE 3 END) ELSE (CASE WHEN TSK伝票F.通常返品区分 = 'N' THEN 4 ELSE 5 END) END
	, TSK伝票F.伝票区分
	, TSK伝票F.伝票番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR分析_収益性情報取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

begin transaction

SELECT TC9区分M.区分CD AS 分析用区分
	, TC9区分M.区分名称 AS 名称
	, SUM(ISNULL(TSK伝票明細F.借方金額, 0) + ISNULL(TSK伝票明細F.貸方金額, 0) * CASE WHEN TSK伝票明細F.貸借区分 = 'D' THEN 1 ELSE - 1 END) AS 金額
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 (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
INNER JOIN TC9区分M
	ON TDA勘定科目M.システムCD = TC9区分M.システムCD
	AND TDA勘定科目M.分析用区分 = TC9区分M.区分CD
WHERE TSK伝票F.削除フラグ = 0
	AND TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TC9区分M.データ識別 = '分析用区分'
	AND TSK伝票F.伝票処理区分 < 10
GROUP BY TC9区分M.区分CD
	, TC9区分M.区分名称
--	, TSK伝票明細F.貸借区分

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR分析_損益実績取得
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

begin transaction

SELECT TC9区分M.区分名称 AS 名称
	, SUM(ISNULL(TSK伝票明細F.借方金額, 0) + ISNULL(TSK伝票明細F.貸方金額, 0) * CASE WHEN TSK伝票明細F.貸借区分 = 'C' THEN 1 ELSE - 1 END) AS 金額
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 (SELECT * FROM TDA勘定科目M
	UNION	--TDA勘定科目会社学生Mを連結（091023小野）
	SELECT * FROM TDA勘定科目会社学生M
	WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
) TDA勘定科目M
	ON TSK伝票明細F.システムCD = TDA勘定科目M.システムCD
	AND TSK伝票明細F.演習CD = TDA勘定科目M.演習CD
	AND TSK伝票明細F.勘定CD = TDA勘定科目M.勘定CD
INNER JOIN TC9区分M
	ON TDA勘定科目M.システムCD = TC9区分M.システムCD
	AND TDA勘定科目M.費用区分 = TC9区分M.区分CD
WHERE TSK伝票F.削除フラグ = 0
	AND TSK伝票F.システムCD = @システムCD
	AND TSK伝票F.演習CD = @演習CD
	AND TSK伝票F.会社CD = @会社CD
	AND TC9区分M.データ識別 = '費用区分'
GROUP BY TC9区分M.区分名称

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPR分析_損益計画取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS
begin transaction

	SELECT * FROM TTA損益計画F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD

commit transaction

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPR分析_損益計画更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20),  @資本金 money, @資本金純利益率 float, 
@課税率 float, @固定費 money, @売上高総利益率 float, @学生番号 varchar(20)

AS
begin transaction

	if not(exists(SELECT * FROM TTA損益計画F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD) )
	begin
		INSERT INTO TTA損益計画F (システムCD, 演習CD, 会社CD) VALUES (@システムCD, @演習CD, @会社CD)
	end

if @@error <> 0 
   begin
       rollback transaction
       select -1  return
   end

	
	UPDATE TTA損益計画F SET 資本金 = @資本金, 資本金純利益率 = @資本金純利益率, 課税率 = @課税率,
	 固定費 = @固定費, 売上高総利益率 = @売上高総利益率, 学生番号 = @学生番号

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR文書番号一覧
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @作成会社CD varchar(20), @文書種類CD varchar(2), @自動フラグ varchar(2), @学生番号 varchar(20)

AS

declare @所有会社CD varchar(20)
--模擬実践の場合は所有会社CD=会社CD
SET @所有会社CD = @会社CD
--同時同業の場合は所有会社CDを該当する学生番号に入れ替える
If (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD) = 'P'
begin
	SET @所有会社CD = (SELECT 学生番号 FROM TDA会社M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @所有会社CD)
end

declare @演習区分  varchar(40)
SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

SELECT 作成会社CD, B.会社略名称 AS 作成会社名称, 文書種類CD, 文書内容CD, 文書内容CD AS 文書内容名称  
FROM TSA仕入売上書類F A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.作成会社CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND A.文書種類CD LIKE @文書種類CD
UNION
SELECT  作成会社CD, B.会社略名称 AS 作成会社名称, 文書種類CD, 文書内容CD, 文書内容CD AS 文書内容名称  
FROM TSA領収書F A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.作成会社CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND A.文書種類CD LIKE @文書種類CD
UNION
--SELECT  作成会社CD, B.会社略名称, 文書種類CD, 文書内容CD, 文書内容CD  
SELECT  作成会社CD, B.会社略名称, 文書種類CD, 文書内容CD, 手形番号  
FROM TGA手形F A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.作成会社CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND A.文書種類CD LIKE @文書種類CD
UNION
SELECT  作成会社CD, B.会社略名称, 文書種類CD, 文書内容CD, 文書内容CD  
FROM TSB銀行取引申込書類F A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.作成会社CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND A.文書種類CD LIKE @文書種類CD
UNION
SELECT  作成会社CD, B.会社略名称, 文書種類CD, 文書内容CD, 文書内容CD  
FROM TSC運送書類F A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.作成会社CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND A.文書種類CD LIKE @文書種類CD
UNION
SELECT  作成会社CD, B.会社略名称, 文書種類CD, 文書内容CD, 文書内容CD  
FROM TSC運送費請求書手動F A        
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.作成会社CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND A.文書種類CD LIKE @文書種類CD
UNION
SELECT  作成会社CD, B.会社略名称 AS 作成会社名称, 文書種類CD, 文書内容CD, 文書内容CD AS 文書内容名称  
FROM TGA入出庫TRN A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.作成会社CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND A.文書種類CD LIKE @文書種類CD
UNION
SELECT  @会社CD, '', 伝票区分, 伝票番号, 伝票番号 
FROM TSK伝票F                            
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 伝票区分 LIKE @文書種類CD AND 削除フラグ = 0 AND 伝票処理区分 = 1
UNION
(	SELECT @会社CD, '', 'LB', CONVERT(varchar,取引日,111), CONVERT(varchar,取引日,111)
	FROM TSK帳簿_仕訳集計表F  
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND @文書種類CD = 'LB' AND @自動フラグ = '0' GROUP BY 取引日	)
UNION
(	SELECT @会社CD, '', 'LC', CONVERT(varchar,取引日,111), CONVERT(varchar,取引日,111)
	FROM TSK帳簿_合計残高試算表F  
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND @文書種類CD = 'LC' AND @自動フラグ = '0' GROUP BY 取引日	)
UNION
(SELECT @会社CD, '', 'LB', CONVERT(varchar,取引日,111), CONVERT(varchar,取引日,111) 
FROM TSK伝票F             
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD and  削除フラグ = 0 AND @文書種類CD = 'LB' AND @自動フラグ = '1' GROUP BY 取引日)
UNION
(	SELECT @会社CD, '', 'LD', A.勘定CD, B.勘定名称
	FROM TSK帳簿_総勘定元帳F A
	LEFT OUTER JOIN TDA勘定科目M B ON A.システムCD = B.システムCD
		AND A.演習CD = B.演習CD
		AND A.勘定CD = B.勘定CD
	WHERE A.システムCD = @システムCD
		AND A.演習CD = @演習CD
		AND A.会社CD = @会社CD
		AND @文書種類CD = 'LD'
		AND @自動フラグ = '0'
	GROUP BY A.勘定CD, B.勘定名称	)
UNION
(	SELECT @会社CD, '', 'LD', A.勘定CD, B.勘定名称
	FROM TSK伝票F
	INNER JOIN TSK伝票明細F A
		ON TSK伝票F.システムCD = A.システムCD
		AND TSK伝票F.演習CD = A.演習CD
		AND TSK伝票F.会社CD = A.会社CD
		AND TSK伝票F.伝票区分 = A.伝票区分
		AND TSK伝票F.伝票番号 = A.伝票番号
	LEFT OUTER JOIN (SELECT * FROM TDA勘定科目M
		UNION	--TDA勘定科目会社学生Mを連結（091026小野）
		SELECT * FROM TDA勘定科目会社学生M
		WHERE TDA勘定科目会社学生M.所有会社CD = @所有会社CD
	) B
	--LEFT OUTER JOIN TDA勘定科目M B
		ON A.システムCD = B.システムCD
		AND A.演習CD = B.演習CD
		AND A.勘定CD = B.勘定CD
	WHERE TSK伝票F.システムCD = @システムCD
		AND TSK伝票F.演習CD = @演習CD
		AND TSK伝票F.会社CD = @会社CD
		AND TSK伝票F.削除フラグ = 0
		AND @文書種類CD = 'LD' AND @自動フラグ = '1'
	GROUP BY A.勘定CD, B.勘定名称	)
UNION
(SELECT @会社CD, '', 'MB', A.銀行CD, B.会社略名称
FROM TSK補助簿_当座預金出納帳F A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.銀行CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND @文書種類CD = 'MB' AND @自動フラグ = '0' GROUP BY A.銀行CD, B.会社略名称)
UNION
(SELECT @会社CD, '', 'MB', 会社CD, 会社略名称
FROM TDA会社M
WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD <> '' AND 業種CD = 'B' AND @文書種類CD = 'MB' AND @自動フラグ = '1' AND ( @演習区分 = 'G' Or 学生番号 = @学生番号))
UNION
(SELECT @会社CD, '', 'ME', A.取引先CD, B.会社略名称
FROM TSK補助簿_売掛金元帳F A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.取引先CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND @文書種類CD = 'ME' GROUP BY A.取引先CD, B.会社略名称)
UNION
(SELECT @会社CD, '', 'MF', A.取引先CD, B.会社略名称
FROM TSK補助簿_買掛金元帳F A
LEFT OUTER JOIN TDA会社M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.取引先CD = B.会社CD 
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND @文書種類CD = 'MF' GROUP BY A.取引先CD, B.会社略名称)
UNION
(SELECT @会社CD, '', 'MG', A.商品CD, B.商品略名称
FROM TSK補助簿_商品有高帳F A
LEFT OUTER JOIN TDA商品M B ON A.システムCD = B.システムCD AND A.演習CD = B.演習CD AND A.商品CD = B.商品CD
WHERE A.システムCD = @システムCD AND A.演習CD = @演習CD AND A.会社CD = @会社CD AND @文書種類CD = 'MG' AND @自動フラグ = '0' GROUP BY A.商品CD, B.商品略名称)
UNION
(SELECT @会社CD, '', 'MG', 商品CD, 商品略名称 FROM TDA商品M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND @文書種類CD = 'MG' AND @自動フラグ = '1')
UNION
(SELECT @会社CD, '', 'MJ', 商品CD, 商品略名称 FROM TDA商品M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND @文書種類CD = 'MJ' AND @自動フラグ = '1')
UNION
(SELECT @会社CD, '', 'MK', 商品CD, 商品略名称 FROM TDA商品M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND @文書種類CD = 'MK' AND @自動フラグ = '1')




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPR文書種類一覧
@システムCD varchar(12)
AS

	SELECT * FROM TC9文書種類M WHERE システムCD = @システムCD ORDER BY 順序

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR書類集計一覧
@システムCD varchar(12), @演習CD varchar(12), @抽出条件 varchar(1)

/* 抽出条件
 1 = 伝票
 2 = 入出庫
 3 = 仕入販売書類
 4 = 銀行取引書類
 5 = 手形・小切手
 6 = 領収書
 7 = 運送書類
*/

AS

SELECT A.*
	, TC5学生M.学生番号
	, TC5学生M.氏名
	, TDA会社M.会社名称
	, TC9文書種類M.文書名称
	, TC9文書種類M.順序 
FROM (
	--TSK伝票F
	SELECT TSK伝票F.システムCD AS システムCD
		, TSK伝票F.演習CD AS 演習CD
		, TSK伝票F.会社CD AS 会社CD
		, TSK伝票F.伝票区分 AS 文書種類CD
		, COUNT(TSK伝票F.伝票区分) AS 作成数
		, NULL AS 発信数
	FROM TSK伝票F
	WHERE TSK伝票F.システムCD = @システムCD
		AND TSK伝票F.演習CD = @演習CD
		AND TSK伝票F.伝票処理区分 > 0	--期首残高は除く
		AND TSK伝票F.伝票処理区分 < 9	--決算整理・決算振替は除く
		AND (TSK伝票F.削除フラグ <> 1 OR TSK伝票F.削除フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '1')	--抽出条件で絞り込む
	GROUP BY TSK伝票F.システムCD
		, TSK伝票F.演習CD
		, TSK伝票F.会社CD
		, TSK伝票F.伝票区分
	UNION
	--TGA入出庫TRN
	SELECT TGA入出庫TRN.システムCD AS システムCD
		, TGA入出庫TRN.演習CD AS 演習CD
		, TGA入出庫TRN.会社CD AS 会社CD
		, TGA入出庫TRN.文書種類CD AS 文書種類CD
		, COUNT(TGA入出庫TRN.文書種類CD) AS 作成数
		, NULL AS 発信数
	FROM TGA入出庫TRN
	WHERE TGA入出庫TRN.システムCD = @システムCD
		AND TGA入出庫TRN.演習CD = @演習CD
		AND TGA入出庫TRN.会社CD = TGA入出庫TRN.作成会社CD	--自社作成のみ
		AND TGA入出庫TRN.処理時期区分 > 0	--期首繰越は除く
		AND (TGA入出庫TRN.削除フラグ <> 1 OR TGA入出庫TRN.削除フラグ IS NULL)
		AND (TGA入出庫TRN.返信フラグ <> 1 OR TGA入出庫TRN.返信フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '2')	--抽出条件で絞り込む
	GROUP BY TGA入出庫TRN.システムCD
		, TGA入出庫TRN.演習CD
		, TGA入出庫TRN.会社CD
		, TGA入出庫TRN.文書種類CD
	UNION
	--TSA仕入売上書類F
	SELECT TSA仕入売上書類F.システムCD AS システムCD
		, TSA仕入売上書類F.演習CD AS 演習CD
		, TSA仕入売上書類F.会社CD AS 会社CD
		, TSA仕入売上書類F.文書種類CD AS 文書種類CD
		, COUNT(TSA仕入売上書類F.文書種類CD) AS 作成数
		, SUM(TSA仕入売上書類F.発行フラグ) AS 発信数
	FROM TSA仕入売上書類F
	WHERE TSA仕入売上書類F.システムCD = @システムCD
		AND TSA仕入売上書類F.演習CD = @演習CD
		AND TSA仕入売上書類F.会社CD = TSA仕入売上書類F.作成会社CD	--自社作成のみ
		AND TSA仕入売上書類F.送受信区分 = 'S'	--念のため
		AND TSA仕入売上書類F.削除フラグ <> 1
		AND (TSA仕入売上書類F.削除フラグ <> 1 OR TSA仕入売上書類F.削除フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '3')	--抽出条件で絞り込む
	GROUP BY TSA仕入売上書類F.システムCD
		, TSA仕入売上書類F.演習CD
		, TSA仕入売上書類F.会社CD
		, TSA仕入売上書類F.文書種類CD
	UNION
	--TSB銀行取引申込書類F
	SELECT TSB銀行取引申込書類F.システムCD AS システムCD
		, TSB銀行取引申込書類F.演習CD AS 演習CD
		, TSB銀行取引申込書類F.会社CD AS 会社CD
		, TSB銀行取引申込書類F.文書種類CD AS 文書種類CD
		, COUNT(TSB銀行取引申込書類F.文書種類CD) AS 作成数
		, NULL AS 発信数
	FROM TSB銀行取引申込書類F
	WHERE TSB銀行取引申込書類F.システムCD = @システムCD
		AND TSB銀行取引申込書類F.演習CD = @演習CD
		AND TSB銀行取引申込書類F.会社CD = TSB銀行取引申込書類F.作成会社CD	--自社作成のみ
		AND TSB銀行取引申込書類F.送受信区分 = 'S'	--念のため
		AND TSB銀行取引申込書類F.削除フラグ <> 1
		AND (TSB銀行取引申込書類F.削除フラグ <> 1 OR TSB銀行取引申込書類F.削除フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '4')	--抽出条件で絞り込む
	GROUP BY TSB銀行取引申込書類F.システムCD
		, TSB銀行取引申込書類F.演習CD
		, TSB銀行取引申込書類F.会社CD
		, TSB銀行取引申込書類F.文書種類CD
	UNION
	--TGA手形F
	SELECT TGA手形F.システムCD AS システムCD
		, TGA手形F.演習CD AS 演習CD
		, TGA手形F.会社CD AS 会社CD
		, TGA手形F.文書種類CD AS 文書種類CD
		, COUNT(TGA手形F.文書種類CD) AS 作成数
		--    小切手の場合は受取人無しを除外する                                     銀行処理済みは2になるため1する
		, SUM(CASE WHEN TGA手形F.文書種類CD <> 'TG' OR TGA手形F.受取人CD <> '' THEN (CASE WHEN TGA手形F.発行フラグ = 2 THEN 1 ELSE TGA手形F.発行フラグ END) ELSE 0 END) AS 発信数
	FROM TGA手形F
	WHERE TGA手形F.システムCD = @システムCD
		AND TGA手形F.演習CD = @演習CD
		AND TGA手形F.会社CD = TGA手形F.作成会社CD	--自社作成のみ
		AND TGA手形F.送受信区分 = 'S'	--念のため
		AND (TGA手形F.削除フラグ <> 1 OR TGA手形F.削除フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '5')	--抽出条件で絞り込む
	GROUP BY TGA手形F.システムCD
		, TGA手形F.演習CD
		, TGA手形F.会社CD
		, TGA手形F.文書種類CD
	UNION
	--TSA領収書F
	SELECT TSA領収書F.システムCD AS システムCD
		, TSA領収書F.演習CD AS 演習CD
		, TSA領収書F.会社CD AS 会社CD
		, TSA領収書F.文書種類CD AS 文書種類CD
		, COUNT(TSA領収書F.文書種類CD) AS 作成数
		, SUM(TSA領収書F.発行フラグ) AS 発信数
	FROM TSA領収書F
	WHERE TSA領収書F.システムCD = @システムCD
		AND TSA領収書F.演習CD = @演習CD
		AND TSA領収書F.会社CD = TSA領収書F.作成会社CD	--自社作成のみ
		AND TSA領収書F.送受信区分 = 'S'	--念のため
		AND (TSA領収書F.削除フラグ <> 1 OR TSA領収書F.削除フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '6')	--抽出条件で絞り込む
	GROUP BY TSA領収書F.システムCD
		, TSA領収書F.演習CD
		, TSA領収書F.会社CD
		, TSA領収書F.文書種類CD
	UNION
	--TSC運送書類F
	SELECT TSC運送書類F.システムCD AS システムCD
		, TSC運送書類F.演習CD AS 演習CD
		, TSC運送書類F.会社CD AS 会社CD
		, TSC運送書類F.文書種類CD AS 文書種類CD
		, COUNT(TSC運送書類F.文書種類CD) AS 作成数
		, SUM(TSC運送書類F.発行フラグ) AS 発信数
	FROM TSC運送書類F
	WHERE TSC運送書類F.システムCD = @システムCD
		AND TSC運送書類F.演習CD = @演習CD
		AND TSC運送書類F.会社CD = TSC運送書類F.作成会社CD	--自社作成のみ
		AND (TSC運送書類F.削除フラグ <> 1 OR TSC運送書類F.削除フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '7')	--抽出条件で絞り込む
	GROUP BY TSC運送書類F.システムCD
		, TSC運送書類F.演習CD
		, TSC運送書類F.会社CD
		, TSC運送書類F.文書種類CD
	UNION
	--TSC運送費請求書F
	SELECT TSC運送費請求書F.システムCD AS システムCD
		, TSC運送費請求書F.演習CD AS 演習CD
		, TSC運送費請求書F.会社CD AS 会社CD
		, TSC運送費請求書F.文書種類CD AS 文書種類CD
		, COUNT(TSC運送費請求書F.文書種類CD) AS 作成数
		, SUM(TSC運送費請求書F.発行フラグ) AS 発信数
	FROM TSC運送費請求書F
	WHERE TSC運送費請求書F.システムCD = @システムCD
		AND TSC運送費請求書F.演習CD = @演習CD
		AND TSC運送費請求書F.会社CD = TSC運送費請求書F.作成会社CD	--自社作成のみ
		AND (TSC運送費請求書F.削除フラグ <> 1 OR TSC運送費請求書F.削除フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '7')	--抽出条件で絞り込む
	GROUP BY TSC運送費請求書F.システムCD
		, TSC運送費請求書F.演習CD
		, TSC運送費請求書F.会社CD
		, TSC運送費請求書F.文書種類CD
	UNION
	--TSC運送費請求書手動F
	SELECT TSC運送費請求書手動F.システムCD AS システムCD
		, TSC運送費請求書手動F.演習CD AS 演習CD
		, TSC運送費請求書手動F.会社CD AS 会社CD
		, TSC運送費請求書手動F.文書種類CD AS 文書種類CD
		, COUNT(TSC運送費請求書手動F.文書種類CD) AS 作成数
		, SUM(TSC運送費請求書手動F.発行フラグ) AS 発信数
	FROM TSC運送費請求書手動F
	WHERE TSC運送費請求書手動F.システムCD = @システムCD
		AND TSC運送費請求書手動F.演習CD = @演習CD
		AND TSC運送費請求書手動F.会社CD = TSC運送費請求書手動F.作成会社CD	--自社作成のみ
		AND (TSC運送費請求書手動F.削除フラグ <> 1 OR TSC運送費請求書手動F.削除フラグ IS NULL)
		AND (@抽出条件 = '' Or @抽出条件 = '7')	--抽出条件で絞り込む
	GROUP BY TSC運送費請求書手動F.システムCD
		, TSC運送費請求書手動F.演習CD
		, TSC運送費請求書手動F.会社CD
		, TSC運送費請求書手動F.文書種類CD
) A
INNER JOIN TC9文書種類M
	ON A.システムCD = TC9文書種類M.システムCD
	AND A.文書種類CD = TC9文書種類M.文書種類CD
LEFT OUTER JOIN TDA会社M
	ON A.システムCD = TDA会社M.システムCD
	AND A.演習CD = TDA会社M.演習CD
	AND A.会社CD = TDA会社M.会社CD
LEFT OUTER JOIN TC5学生M
	ON TDA会社M.システムCD = TC5学生M.システムCD
	AND TDA会社M.学生番号 = TC5学生M.学生番号
ORDER BY TC5学生M.学生番号, A.会社CD, TC9文書種類M.順序, A.文書種類CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR材料入出庫在庫
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @処理日 datetime

AS

if @会社CD = ''
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) AS 入庫金額
	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 TDA材料M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA材料M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA材料M.材料CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZU）
		AND (TGA入出庫TRN.文書種類CD = 'ZS' OR TGA入出庫TRN.文書種類CD = 'ZU')
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end
else
begin

	SELECT  TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) AS 入庫金額
	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 TDA材料M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA材料M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA材料M.材料CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.会社CD = @会社CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZU）
		AND (TGA入出庫TRN.文書種類CD = 'ZS' OR TGA入出庫TRN.文書種類CD = 'ZU')
	GROUP BY TGA入出庫明細TRN.商品CD
/*
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'S' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
*/
	ORDER BY TGA入出庫明細TRN.商品CD

end







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPR材料入出庫在庫会計期間内
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @処理日 datetime

AS

if @会社CD = ''
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) AS 入庫金額
	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 TDA材料M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA材料M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA材料M.材料CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		AND TGA入出庫TRN.処理時期区分 <> 0 --ここで期首在庫を除くのが「SPR入出庫在庫」との相違点
		--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZU）
		AND (TGA入出庫TRN.文書種類CD = 'ZS' OR TGA入出庫TRN.文書種類CD = 'ZU')
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end
else
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) AS 入庫金額
	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 TDA材料M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA材料M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA材料M.材料CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		AND TGA入出庫TRN.処理時期区分 <> 0 --ここで期首在庫を除くのが「SPR入出庫在庫」との相違点
		--（091007小野）商品CDと材料CDの重複が有り得るので文書種類CDで絞り込むよう変更（ZS・ZU）
		AND (TGA入出庫TRN.文書種類CD = 'ZS' OR TGA入出庫TRN.文書種類CD = 'ZU')
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end







GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPR材料入出庫在庫単価
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

if @会社CD = ''
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫数
		, TGA入出庫明細TRN.単価
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫金額
	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 TDA材料M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA材料M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA材料M.材料CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND TGA入出庫TRN.有効フラグ = 1
		--（080513小野）仕掛品拡張につき文書種類CDで絞り込むよう変更（YS・YUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'YS'
		AND TGA入出庫TRN.文書種類CD <> 'YU'
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.単価	--単価毎にグルーピング
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end
else
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫数
		, TGA入出庫明細TRN.単価
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) AS 在庫金額
	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 TDA材料M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA材料M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA材料M.材料CD = TGA入出庫明細TRN.商品CD
	WHERE TGA入出庫TRN.システムCD = @システムCD
		AND TGA入出庫TRN.演習CD = @演習CD
		AND TGA入出庫TRN.会社CD = @会社CD
		AND TGA入出庫TRN.有効フラグ = 1
		--（080513小野）仕掛品拡張につき文書種類CDで絞り込むよう変更（YS・YUを除外）
		AND TGA入出庫TRN.文書種類CD <> 'YS'
		AND TGA入出庫TRN.文書種類CD <> 'YU'
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.単価	--単価毎にグルーピング
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'ZS' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPR製品入出庫在庫
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @処理日 datetime

--（080430小野）製造部製品用

AS

if @会社CD = ''
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE 0 END) AS 入庫金額
	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 --（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
		ON TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		--（080430小野）製造部製品で絞り込み
		AND (TGA入出庫TRN.文書種類CD = 'MS' OR TGA入出庫TRN.文書種類CD = 'MU')
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS'  OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end
else
begin

	SELECT TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE 0 END) AS 入庫金額
	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 --（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
		ON TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.会社CD = @会社CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		--（080430小野）製造部製品で絞り込み
		AND (TGA入出庫TRN.文書種類CD = 'MS' OR TGA入出庫TRN.文書種類CD = 'MU')
	GROUP BY TGA入出庫明細TRN.商品CD
/*
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'S' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
*/
	ORDER BY TGA入出庫明細TRN.商品CD

end








GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO






CREATE PROCEDURE dbo.SPR製品入出庫在庫会計期間内
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @処理日 datetime

--（080430小野）製造部製品用

AS

if @会社CD = ''
begin

	SELECT TGA入出庫TRN.会社CD
		, TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE 0 END) AS 入庫金額
	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 --（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
		ON TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		AND TGA入出庫TRN.処理時期区分 <> 0 --ここで期首在庫を除くのが「SPR入出庫在庫」との相違点
		--（080430小野）製造部製品で絞り込み
		AND (TGA入出庫TRN.文書種類CD = 'MS' OR TGA入出庫TRN.文書種類CD = 'MU')
	GROUP BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE -1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SC' OR TGA入出庫TRN.文書種類CD = 'SS'  OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE 0 END) <> 0)
	ORDER BY TGA入出庫明細TRN.商品CD
		, TGA入出庫TRN.会社CD

end
else
begin

	SELECT TGA入出庫明細TRN.商品CD
		, MAX(TGA入出庫TRN.処理日) AS 最終処理日
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE -1 END) AS 在庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE -1 END) AS 在庫金額
		, SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE 0 END) AS 入庫数
		, SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'MS' THEN 1 ELSE 0 END) AS 入庫金額
	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 --（080327小野）材料入出庫拡張につき商品のみで絞り込むよう変更（TDA商品MをでINNER JOIN）
		ON TDA商品M.システムCD = TGA入出庫明細TRN.システムCD
		AND TDA商品M.演習CD = TGA入出庫明細TRN.演習CD
		AND TDA商品M.商品CD = TGA入出庫明細TRN.商品CD
	WHERE (TGA入出庫TRN.システムCD = @システムCD AND TGA入出庫TRN.演習CD = @演習CD)
		AND (TGA入出庫TRN.会社CD = @会社CD)
		AND (TGA入出庫TRN.処理日 <= @処理日)
		AND TGA入出庫TRN.有効フラグ = 1
		AND TGA入出庫TRN.処理時期区分 <> 0 --ここで期首在庫を除くのが「SPR入出庫在庫」との相違点
		--（080430小野）製造部製品で絞り込み
		AND (TGA入出庫TRN.文書種類CD = 'MS' OR TGA入出庫TRN.文書種類CD = 'MU')
	GROUP BY TGA入出庫明細TRN.商品CD
/*
	HAVING (SUM(TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'SS' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
		OR (SUM(TGA入出庫明細TRN.単価 * TGA入出庫明細TRN.数量 * CASE WHEN TGA入出庫TRN.文書種類CD = 'S' OR TGA入出庫TRN.文書種類CD = 'SY' THEN 1 ELSE - 1 END) <> 0)
*/
	ORDER BY TGA入出庫明細TRN.商品CD

end






GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPT名刺デザイン一覧
@システムCD varchar(12),@縦横区分 varchar(2)

AS

begin transaction

SELECT          名刺デザインCD, デザイン
FROM          TC9名刺デザインM
WHERE           (システムCD = @システムCD) AND     (縦横区分 = @縦横区分)

commit transaction
















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



















CREATE  PROCEDURE dbo.SPT名刺データ2取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(12)
AS

begin transaction

	SELECT * FROM TTM名刺データ2F 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 学生番号 = @学生番号

commit transaction



















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



















CREATE  PROCEDURE dbo.SPT名刺データ2更新
@システムCD varchar(12), @演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(12), @名刺データ varchar(7800)

AS

begin transaction

	if not(exists(SELECT * FROM TTM名刺データ2F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 学生番号 = @学生番号))
	begin
		INSERT TTM名刺データ2F (システムCD, 演習CD, 会社CD, 学生番号, 名刺データ) VALUES (@システムCD, @演習CD, @会社CD, @学生番号, @名刺データ)
	end

	UPDATE         TTM名刺データ2F
	SET                名刺データ = @名刺データ
	WHERE           システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 学生番号 = @学生番号

commit transaction



















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPT名刺データ取得
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(20), 
@名刺デザインCD varchar(12)

AS

begin transaction

	SELECT * FROM TTM名刺データF 
	WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND (学生番号 = @学生番号) AND (名刺デザインCD = @名刺デザインCD)

commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPT名刺データ更新
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(20), 
@名刺デザインCD varchar(12),
@会社名称 varchar(50), @肩書 varchar(50), @役職 varchar(50), @氏名 varchar(50), @郵便番号 varchar(50), @住所1 varchar(50), 
@住所2 varchar(50), @電話番号 varchar(50), @FAX varchar(50), @メールアドレス varchar(50), @画像ファイル varchar(250)

AS

begin transaction

	if not(exists(SELECT * FROM TTM名刺データF WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 学生番号 = @学生番号))
	begin
		INSERT TTM名刺データF (システムCD, 演習CD, 会社CD, 学生番号, 名刺デザインCD) VALUES (@システムCD, @演習CD, @会社CD, @学生番号, @名刺デザインCD)

	end
		UPDATE         TTM名刺データF
		SET                会社名称 = @会社名称, 肩書 = @肩書, 氏名 = @氏名, 郵便番号 = @郵便番号, 住所1 = @住所1, 
		                      住所2 = @住所2, 電話番号 = @電話番号, メールアドレス = @メールアドレス, 画像ファイル = @画像ファイル,
				役職 = @役職, FAX = @FAX
		WHERE           システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND (学生番号 = @学生番号) AND (名刺デザインCD = @名刺デザインCD)
commit transaction


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU保険請求領収書一覧
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @保険種別 varchar(10)

AS

SELECT TGU保険請求領収書F.*
	, TDA会社M.会社名称 AS 取引先名称
FROM TGU保険請求領収書F
INNER JOIN TDA会社M
	ON TGU保険請求領収書F.システムCD =  TDA会社M.システムCD
	AND TGU保険請求領収書F.演習CD =  TDA会社M.演習CD
	AND TGU保険請求領収書F.取引先CD =  TDA会社M.会社CD
WHERE TGU保険請求領収書F.システムCD = @システムCD
	AND TGU保険請求領収書F.演習CD = @演習CD
	AND TGU保険請求領収書F.会社CD = @会社CD
	AND TGU保険請求領収書F.保険種別 = @保険種別
ORDER BY TGU保険請求領収書F.処理日 DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU保険請求領収書削除
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @保険種別 varchar(10)
, @文書内容CD int

AS

begin transaction

DELETE FROM TGU保険請求領収書F
WHERE TGU保険請求領収書F.システムCD = @システムCD
	AND TGU保険請求領収書F.演習CD = @演習CD
	AND TGU保険請求領収書F.会社CD = @会社CD
	AND TGU保険請求領収書F.保険種別 = @保険種別
	AND TGU保険請求領収書F.文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU保険請求領収書取得
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @保険種別 varchar(10)
, @文書内容CD int

AS

SELECT TGU保険請求領収書F.*
	, TDA会社M.会社名称 AS 取引先名称
FROM TGU保険請求領収書F
INNER JOIN TDA会社M
	ON TGU保険請求領収書F.システムCD =  TDA会社M.システムCD
	AND TGU保険請求領収書F.演習CD =  TDA会社M.演習CD
	AND TGU保険請求領収書F.取引先CD =  TDA会社M.会社CD
WHERE TGU保険請求領収書F.システムCD = @システムCD
	AND TGU保険請求領収書F.演習CD = @演習CD
	AND TGU保険請求領収書F.会社CD = @会社CD
	AND TGU保険請求領収書F.保険種別 = @保険種別
	AND TGU保険請求領収書F.文書内容CD = @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU保険請求領収書更新
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @保険種別 varchar(10)
, @文書内容CD int
, @番号 varchar(20) 
, @取引先CD varchar(20) 
, @処理日 datetime
, @保険対象金額 money
, @保険料金 money
, @期間始 datetime
, @期間終 datetime
, @備考 varchar(255)

AS

begin transaction

if @文書内容CD IS NULL
begin
	/* 対象データの登録 */
	if exists(SELECT * FROM TGU保険請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 保険種別 = @保険種別)
	begin 
		SELECT @文書内容CD = (SELECT MAX(文書内容CD) AS 文書内容 FROM TGU保険請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD AND 保険種別 = @保険種別)
		SELECT @文書内容CD = @文書内容CD + 1
	end
	else
	begin
		SELECT @文書内容CD = 1
	end

	INSERT INTO TGU保険請求領収書F (システムCD
		, 演習CD
		, 会社CD
		, 保険種別
		, 文書内容CD
		, 番号
		, 取引先CD
		, 処理日
		, 保険対象金額
		, 保険料金
		, 期間始
		, 期間終
		, 備考
	)
	VALUES (@システムCD
		, @演習CD
		, @会社CD
		, @保険種別
		, @文書内容CD
		, @番号
		, @取引先CD
		, @処理日
		, @保険対象金額
		, @保険料金
		, @期間始
		, @期間終
		, @備考
	)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end
else
begin
	/* 対象データの更新 */
	UPDATE TGU保険請求領収書F
	SET 番号 = @番号
		, 取引先CD = @取引先CD
		, 処理日 = @処理日
		, 保険対象金額 = @保険対象金額
		, 保険料金 = @保険料金
		, 期間始 = @期間始
		, 期間終 = @期間終
		, 備考 = @備考
	WHERE システムCD = @システムCD
    	AND 演習CD = @演習CD
    	AND 会社CD = @会社CD
    	AND 保険種別 = @保険種別
    	AND 文書内容CD = @文書内容CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end

commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU倉庫料請求領収書一覧
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)

AS

SELECT TGU倉庫料請求領収書F.*
	, TDA会社M.会社名称 AS 取引先名称
FROM TGU倉庫料請求領収書F
INNER JOIN TDA会社M
	ON TGU倉庫料請求領収書F.システムCD =  TDA会社M.システムCD
	AND TGU倉庫料請求領収書F.演習CD =  TDA会社M.演習CD
	AND TGU倉庫料請求領収書F.取引先CD =  TDA会社M.会社CD
WHERE TGU倉庫料請求領収書F.システムCD = @システムCD
	AND TGU倉庫料請求領収書F.演習CD = @演習CD
	AND TGU倉庫料請求領収書F.会社CD = @会社CD
ORDER BY TGU倉庫料請求領収書F.入庫日 DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU倉庫料請求領収書削除
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @文書内容CD int

AS

begin transaction

DELETE FROM TGU倉庫料請求領収書F
WHERE TGU倉庫料請求領収書F.システムCD = @システムCD
	AND TGU倉庫料請求領収書F.演習CD = @演習CD
	AND TGU倉庫料請求領収書F.会社CD = @会社CD
	AND TGU倉庫料請求領収書F.文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU倉庫料請求領収書取得
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @文書内容CD int

AS

SELECT TGU倉庫料請求領収書F.*
	, TDA会社M.会社名称 AS 取引先名称
FROM TGU倉庫料請求領収書F
INNER JOIN TDA会社M
	ON TGU倉庫料請求領収書F.システムCD =  TDA会社M.システムCD
	AND TGU倉庫料請求領収書F.演習CD =  TDA会社M.演習CD
	AND TGU倉庫料請求領収書F.取引先CD =  TDA会社M.会社CD
WHERE TGU倉庫料請求領収書F.システムCD = @システムCD
	AND TGU倉庫料請求領収書F.演習CD = @演習CD
	AND TGU倉庫料請求領収書F.会社CD = @会社CD
	AND TGU倉庫料請求領収書F.文書内容CD = @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU倉庫料請求領収書更新
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @文書内容CD int
, @番号 varchar(20) 
, @取引先CD varchar(20) 
, @処理日 datetime
, @貯蔵倉庫場所 varchar(40) 
, @入庫日 datetime
, @出庫日 datetime
, @期間始 datetime
, @期間終 datetime
, @保管料 money
, @入庫料 money
, @出庫料 money
, @消費税 money
, @消費税率 int
, @備考 varchar(255)

AS

begin transaction

if @文書内容CD IS NULL
begin
	/* 対象データの登録 */
	if exists(SELECT * FROM TGU倉庫料請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	begin 
		SELECT @文書内容CD = (SELECT MAX(文書内容CD) AS 文書内容 FROM TGU倉庫料請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
		SELECT @文書内容CD = @文書内容CD + 1
	end
	else
	begin
		SELECT @文書内容CD = 1
	end

	INSERT INTO TGU倉庫料請求領収書F (システムCD
		, 演習CD
		, 会社CD
		, 文書内容CD
		, 番号
		, 取引先CD
		, 処理日
		, 貯蔵倉庫場所
		, 入庫日
		, 出庫日
		, 期間始
		, 期間終
		, 保管料
		, 入庫料
		, 出庫料
		, 消費税
		, 消費税率
		, 備考
	)
	VALUES (@システムCD
		, @演習CD
		, @会社CD
		, @文書内容CD
		, @番号
		, @取引先CD
		, @処理日
		, @貯蔵倉庫場所
		, @入庫日
		, @出庫日
		, @期間始
		, @期間終
		, @保管料
		, @入庫料
		, @出庫料
		, @消費税
		, @備考
		, @消費税率
	)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end
else
begin
	/* 対象データの更新 */
	UPDATE TGU倉庫料請求領収書F
	SET 番号 = @番号
		, 取引先CD = @取引先CD
		, 処理日 = @処理日
		, 貯蔵倉庫場所 = @貯蔵倉庫場所
		, 入庫日 = @入庫日
		, 出庫日 = @出庫日
		, 期間始 = @期間始
		, 期間終 = @期間終
		, 保管料 = @保管料
		, 入庫料 = @入庫料
		, 出庫料 = @出庫料
		, 消費税 = @消費税
		, 消費税率 = @消費税率
		, 備考 = @備考
	WHERE システムCD = @システムCD
    	AND 演習CD = @演習CD
    	AND 会社CD = @会社CD
    	AND 文書内容CD = @文書内容CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end

commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU運送費請求領収書一覧
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)

AS

SELECT TGU運送費請求領収書F.*
	, TDA会社M.会社名称 AS 取引先名称
FROM TGU運送費請求領収書F
INNER JOIN TDA会社M
	ON TGU運送費請求領収書F.システムCD =  TDA会社M.システムCD
	AND TGU運送費請求領収書F.演習CD =  TDA会社M.演習CD
	AND TGU運送費請求領収書F.取引先CD =  TDA会社M.会社CD
WHERE TGU運送費請求領収書F.システムCD = @システムCD
	AND TGU運送費請求領収書F.演習CD = @演習CD
	AND TGU運送費請求領収書F.会社CD = @会社CD
ORDER BY TGU運送費請求領収書F.処理日 DESC




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU運送費請求領収書削除
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @文書内容CD int

AS

begin transaction

DELETE FROM TGU運送費請求領収書F
WHERE TGU運送費請求領収書F.システムCD = @システムCD
	AND TGU運送費請求領収書F.演習CD = @演習CD
	AND TGU運送費請求領収書F.会社CD = @会社CD
	AND TGU運送費請求領収書F.文書内容CD = @文書内容CD

if @@error <> 0
begin
	rollback transaction
	select -1
	return
end

commit transaction

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU運送費請求領収書取得
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @文書内容CD int

AS

SELECT TGU運送費請求領収書F.*
	, TDA会社M.会社名称 AS 取引先名称
FROM TGU運送費請求領収書F
INNER JOIN TDA会社M
	ON TGU運送費請求領収書F.システムCD =  TDA会社M.システムCD
	AND TGU運送費請求領収書F.演習CD =  TDA会社M.演習CD
	AND TGU運送費請求領収書F.取引先CD =  TDA会社M.会社CD
WHERE TGU運送費請求領収書F.システムCD = @システムCD
	AND TGU運送費請求領収書F.演習CD = @演習CD
	AND TGU運送費請求領収書F.会社CD = @会社CD
	AND TGU運送費請求領収書F.文書内容CD = @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPU運送費請求領収書更新
@システムCD varchar(12)
, @演習CD varchar(12)
, @会社CD varchar(20)
, @文書内容CD int
, @番号 varchar(20) 
, @取引先CD varchar(20) 
, @処理日 datetime
, @運送日 datetime
, @金額 money
, @消費税 money
, @消費税率 int

AS

begin transaction

if @文書内容CD IS NULL
begin
	/* 対象データの登録 */
	if exists(SELECT * FROM TGU運送費請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
	begin 
		SELECT @文書内容CD = (SELECT MAX(文書内容CD) AS 文書内容 FROM TGU運送費請求領収書F WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 会社CD = @会社CD)
		SELECT @文書内容CD = @文書内容CD + 1
	end
	else
	begin
		SELECT @文書内容CD = 1
	end

	INSERT INTO TGU運送費請求領収書F (システムCD
		, 演習CD
		, 会社CD
		, 文書内容CD
		, 番号
		, 取引先CD
		, 処理日
		, 運送日
		, 金額
		, 消費税
		, 消費税率
	)
	VALUES (@システムCD
		, @演習CD
		, @会社CD
		, @文書内容CD
		, @番号
		, @取引先CD
		, @処理日
		, @運送日
		, @金額
		, @消費税
		, @消費税率
	)

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end
else
begin
	/* 対象データの更新 */
	UPDATE TGU運送費請求領収書F
	SET 番号 = @番号
		, 取引先CD = @取引先CD
		, 処理日 = @処理日
		, 運送日 = @運送日
		, 金額 = @金額
		, 消費税 = @消費税
		, 消費税率 = @消費税率
	WHERE システムCD = @システムCD
    	AND 演習CD = @演習CD
    	AND 会社CD = @会社CD
    	AND 文書内容CD = @文書内容CD

	if @@error <> 0
	begin
		rollback transaction
		select -1
		return
	end
end

commit transaction

select @文書内容CD




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


















CREATE PROCEDURE dbo.SPV区分情報一覧
@システムCD varchar(12), @データ識別  varchar(30)
AS

/* 対象集計M一覧データの抽出 */
SELECT * 
FROM  TC9区分M 
WHERE TC9区分M.システムCD = @システムCD AND TC9区分M.データ識別   =   @データ識別       
ORDER BY TC9区分M.順序, TC9区分M.区分CD

















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPV演習メール拒否削除
@システムCD varchar(12), @演習CD varchar(12)
as

begin transaction

UPDATE TC6演習履歴M
SET メール送信拒否 = '0'
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPV演習メール拒否登録
@システムCD varchar(12), @演習CD varchar(12), @学生番号 varchar(40)
as

begin transaction

UPDATE TC6演習履歴M
SET メール送信拒否 = '1'
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 学生番号 = @学生番号

if @@error <> 0 
begin
	rollback transaction
	select -1
	return
end

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPV演習履歴取得
@システムCD varchar(12), @演習CD varchar(12), @学生番号 varchar(40)

AS

SELECT *
FROM TC6演習履歴M
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 学生番号 = @学生番号




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPV演習履歴登録
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20), @学生番号 varchar(40)
as

begin transaction

if not(exists(SELECT * FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD AND 学生番号 = @学生番号))
begin
	INSERT INTO TC6演習履歴M (システムCD, 演習CD, 学生番号, 選択会社CD)
	VALUES (@システムCD, @演習CD, @学生番号, @会社CD)
end 

if @@error <> 0 
begin
	rollback transaction
	select -1  return
end

UPDATE TC6演習履歴M
SET 選択会社CD = @会社CD
	, 最終参加日時 = GETDATE()
WHERE システムCD = @システムCD
	AND 演習CD = @演習CD
	AND 学生番号 = @学生番号

commit transaction




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPV自社情報取得
@システムCD varchar(12),@演習CD varchar(12), @学生番号 varchar(40)

AS

	SELECT         *
	FROM            TDA会社M
	WHERE           システムCD = @システムCD AND 演習CD = @演習CD AND (学生番号 = @学生番号) AND (自社フラグ = 1);


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE dbo.SPV選択可能会社一覧
@システムCD varchar(12),@演習CD varchar(12), @学生番号 varchar(40), @選択フラグ varchar(2)

AS

declare @演習区分  varchar(40) 

SELECT @演習区分 = (SELECT 演習区分 FROM TC2演習M WHERE システムCD = @システムCD AND 演習CD = @演習CD)

if @演習区分 = 'P'
begin 
	SELECT TDA会社M.会社CD, TDA会社M.会社名称, TDA会社M.会社略名称, TC9区分M.区分名称 AS 業種名称, TDA会社M.業種CD,  TDA会社M.自社フラグ, TDA会社M.学生番号,
          CASE WHEN TC6演習履歴M.選択会社CD = TDA会社M.会社CD THEN 2 ELSE 1 END AS 会社取扱区分, TDA会社M.同時同業生徒自社
	FROM TDA会社M
	LEFT OUTER JOIN TC6演習履歴M ON 
	TDA会社M.システムCD = TC6演習履歴M.システムCD AND 
	TDA会社M.演習CD = TC6演習履歴M.演習CD AND 
	TDA会社M.学生番号 = TC6演習履歴M.学生番号
	LEFT OUTER JOIN TC9区分M ON
	TDA会社M.システムCD = TC9区分M.システムCD AND
	TDA会社M.業種CD = TC9区分M.区分CD
	WHERE TC9区分M.データ識別='業種CD' AND TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @演習CD
	AND TDA会社M.学生番号 = @学生番号 AND (TC6演習履歴M.学生番号 = @学生番号 OR TC6演習履歴M.学生番号 IS NULL) AND TDA会社M.会社CD <> ''
	ORDER BY 自社フラグ DESC, TC9区分M.順序, TDA会社M.会社CD
end
else
begin
	if not(exists(SELECT * FROM TC6演習履歴M WHERE 学生番号 = @学生番号 AND システムCD = @システムCD AND 演習CD = @演習CD))
	begin
		SELECT TDA会社M.会社CD, TDA会社M.会社名称, TDA会社M.会社略名称, 区分名称 as 業種名称, TDA会社M.業種CD, TDA会社M.自社フラグ, TDA会社M.学生番号,
	          1 AS 会社取扱区分, TDA会社M.同時同業生徒自社
		FROM TDA会社M
		LEFT JOIN TC9区分M ON TDA会社M.システムCD = TC9区分M.システムCD AND TDA会社M.業種CD = TC9区分M.区分CD
		WHERE TC9区分M.データ識別='業種CD' AND TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @演習CD  AND TDA会社M.会社CD <> ''
		ORDER BY 自社フラグ DESC, TDA会社M.会社CD
	end
	else
	begin
		SELECT TDA会社M.会社CD, TDA会社M.会社名称, TDA会社M.会社略名称, 区分名称 as 業種名称, TDA会社M.業種CD,TDA会社M.自社フラグ, TDA会社M.学生番号,
	          CASE WHEN TC6演習履歴M.選択会社CD = TDA会社M.会社CD THEN 2 ELSE @選択フラグ END AS 会社取扱区分, TDA会社M.同時同業生徒自社
		FROM TDA会社M
		LEFT OUTER JOIN TC6演習履歴M ON TDA会社M.システムCD = TC6演習履歴M.システムCD AND TDA会社M.演習CD = TC6演習履歴M.演習CD 
		LEFT JOIN TC9区分M ON TDA会社M.システムCD = TC9区分M.システムCD AND TDA会社M.業種CD = TC9区分M.区分CD
		WHERE TC9区分M.データ識別='業種CD' AND TDA会社M.システムCD = @システムCD AND TDA会社M.演習CD = @演習CD AND (TC6演習履歴M.学生番号 = @学生番号 OR TC6演習履歴M.学生番号 IS NULL) AND TDA会社M.会社CD <> ''
		ORDER BY 自社フラグ DESC, TC9区分M.順序, TDA会社M.会社CD
	end
end



GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPV選択可能会社選択解除
@システムCD varchar(12),@演習CD varchar(12)

AS
	DELETE FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD

	select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO




CREATE PROCEDURE dbo.SPV選択可能会社選択解除会社
@システムCD varchar(12),@演習CD varchar(12), @会社CD varchar(20)

AS

DELETE FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD and 選択会社CD = @会社CD

select 0




GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS OFF 
GO


















CREATE PROCEDURE dbo.SPV選択可能会社選択解除生徒
@システムCD varchar(12),@演習CD varchar(12), @学生番号 varchar(20)

AS
	DELETE FROM TC6演習履歴M WHERE システムCD = @システムCD AND 演習CD = @演習CD and 学生番号 = @学生番号

	select 0


















GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO