
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：勘定情報更新処理
'	 作成日：2002/9/9
'	 作成者：徳田
'	 目的　：勘定情報の更新（追加・修正・削除）処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正:勘定CD変更モードを追加（070320小野）
'	修正:特別勘定区分を重複させないよう修正（070711小野）
'################################################
'-->

main()

Sub main()
	Dim Action							'処理区分
	Dim EnshuName	, GyoshuKubun		'演習コード、業種区分

	Dim KamokuCD , Kamokumei , KamokuRyakumei	'勘定コード、勘定名称、勘定略名称
	Dim KanjyoKubun , SaimokuKubun , TaisyakuKubun				'勘定区分	、勘定細目		、貸借区分
	Dim DataKubun	 , HiyoKubun		, BunsekiKubun		'データ区分、費用区分		、分析用区分
	Dim SyukeiCD	'諸表集計CD
	Dim CSyukeiCD	'キャッシュフロー計算書集計CD
	Dim GSyukeiCD	'製造原価報告書集計CD
	Dim SSyukeiCD	'株主資本等変動計算書集計CD
	Dim CheckKubun, TokubetsuKanjyoKubun
	Dim SyoyuKaisyaCD
	Dim Query
	Dim Content
	Dim Content2
	Dim Ng , ErrMSG , rsts
	Dim RouteType
	Dim NextFlg
	Dim KanriKubun

	'数値文字変換チェック用
	Dim NumChrCheck
	NumChrCheck = ""

	Dim HyojiFlg2
	HyojiFlg2 = Request("HyojiFlg2")

	RouteType = Request("RouteType")

	Dim Rename
	Rename = Request("Rename")
	Dim OldKamokuCD
	OldKamokuCD = Request("OldKamokuCD")

	Action = "" & Request("Action")
	NextFlg = Request("NextFlg")
	GyoshuKubun = Request("GyoshuKubun")
	KamokuCD = Request("KamokuCD")
	Kamokumei = Request("Kamokumei")
	NumChrCheck = NumChrCheck & Kamokumei
	KamokuRyakumei = Request("KamokuRyakumei")
	KanjyoKubun = Request("KanjyoKubun")
	SaimokuKubun = Request("SaimokuKubun")
	TaisyakuKubun = Request("TaisyakuKubun")
	HiyoKubun = Request("HiyoKubun")
	BunsekiKubun = Request("BunsekiKubun")
	SyukeiCD = Request("SyukeiCD")
	CSyukeiCD = Request("CSyukeiCD")
	GSyukeiCD = Request("GSyukeiCD")
	SSyukeiCD = Request("SSyukeiCD")
	CheckKubun = Request("CheckKubun")
	TokubetsuKanjyoKubun = Request("TokubetsuKanjyoKubun")
	ErrMsg = Request("ErrMsg")
	SyoyuKaisyaCD = Request("SyoyuKaisyaCD")
	KanriKubun = Request("KanriKubun")

	If KamokuRyakumei = "" Then
		KamokuRyakumei = Left(Kamokumei, 10)
	End If


	'数値文字変換チェック
	If Not(NumChrReject(NumChrCheck)) Then
		Exit Sub
	End If


	Dim EnshuKubun
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		EnshuKubun = Content.Fields("演習区分")
	End If

	'会社学生科目の場合のみ所有者が必要
	Dim KaishaGakuseiCD
	If GB_Admin < 1 Then
		TokubetsuKanjyoKubun = ""	'特別勘定区分をクリアする
		KaishaGakuseiCD = GB_GakuseiNo
		If EnshuKubun = "G" Then
			KaishaGakuseiCD = GB_KaisyaCD
		End If
	End If


	'会社学生科目の場合は特別勘定区分をクリアする
	If GB_Admin < 1 Then
		TokubetsuKanjyoKubun = ""
	End If


	'特別勘定区分一括更新モード（080414小野）
	If Action = "Tokubetsu" Then
		Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','特別勘定区分'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			'GyoshuKubun="G"なら区分CDが"G"で始まる区分を、GyoshuKubun="B"なら区分CD"DT""DU""DV"を、GyoshuKubun="S"ならそれ以外の区分を処理
			If (GyoshuKubun = "G" And Left("" & Content.Fields("区分CD"), 1) = "G") _
			Or (GyoshuKubun = "B" And ("" & Content.Fields("区分CD") = "DT" Or  "" & Content.Fields("区分CD") = "DU" Or  "" & Content.Fields("区分CD") = "DV")) _
			Or (GyoshuKubun = "S" And (Left("" & Content.Fields("区分CD"), 1) <> "G" And "" & Content.Fields("区分CD") <> "DT" And  "" & Content.Fields("区分CD") <> "DU" And  "" & Content.Fields("区分CD") <> "DV")) Then
'				If Request("KanjyoCD_" & Content.Fields("区分CD")) <> "" Then
					Query = "exec SPM勘定科目更新特別勘定区分 '" & GB_SystemCD & "'"
					Query = Query & ", '" & EnshuCD & "'"
					Query = Query & ", '" & Request("KanjyoCD_" & Content.Fields("区分CD")) & "'"
					Query = Query & ", '" & Content.Fields("区分CD") & "'"
					Set Content2 = OpenQuery(Query)
'				End If
			End If
			Content.MoveNext
		Loop
		Response.Redirect("fm_kamoku_tokubetsu.asp?KanriKubun=" & KanriKubun & "&EnshuCD=" & EnshuCD & "&GyoshuKubun=" & GyoshuKubun & "&KamokuCD=" & KamokuCD & "&RouteType=" & RouteType & "&MSG=更新しました")
		Exit Sub
	End If


	'会社での追加時は先頭をCにする（現在非利用）
'	If GB_Admin = "0" And Left(KamokuCD, 1) <> "C" Then
'		KamokuCD = "C" & KamokuCD
'	End If



	'勘定CD変更モードで元勘定CDと入力勘定CDが同じ場合は更新モードで動作する
	Dim TmpRename
	If KamokuCD <> OldKamokuCD Then TmpRename = "1"

	'勘定CD変更モードのため次科目は先に取得するよう変更
	'元勘定CDに対する次勘定CDを取得するためキーはOldKamokuCDを使用する
	Dim NextKanjyoKamoku
	NextKanjyoKamoku = ""
'	If (Action = "4" Or NextFlg = "1") And KaishaGakuseiCD = "" Then	'会社学生科目の場合は次番号に飛ばない
'		Query = "exec SPM勘定科目次科目 '" & GB_SystemCD & "','" & EnshuCD &	"','" & GyoshuKubun &	"','" & OldKamokuCD & "'"
'		Set Content = OpenQuery(Query)
'		If Not(Content.BOF Or Content.EOF) Then
'			NextKanjyoKamoku = Content.Fields("勘定CD")
'		End If
'	End If

	'Query = "exec SPM勘定科目詳細取得2 '" & GB_SystemCD & "','" & EnshuCD & "','" & GyoshuKubun & "','" & KamokuCD & "'"
	'業種区分で絞ると他業種区分の科目がチェックから漏れてしまうので絞らない（090609小野）
	Query = "exec SPM勘定科目詳細取得全部 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '" & KamokuCD & "', '" & KaishaGakuseiCD & "'"
	'Query = "exec SPM勘定科目詳細取得2 '" & GB_SystemCD & "', '" & EnshuCD & "', '', '" & KamokuCD & "'"
	Set Content = OpenQuery(Query)

	'勘定CD変更モードでは追加モードと同じ判定をする
	If Not(Content.BOF Or Content.EOF) Then
		If Action = "1" Or TmpRename = "1" Then
			If "" & Content.Fields("業種CD") = GyoshuKubun Then
				If "" & Content.Fields("所有会社CD") = KaishaGakuseiCD Then
					ErrMSG = "入力された勘定コードは登録済みのため使用出来ません"
				Else
					ErrMSG = "勘定コードが演習マスターに存在するため登録出来ません"
				End If
			Else
				If "" & Content.Fields("業種CD") = "B" Then
					ErrMSG = "勘定コードが銀行勘定科目に存在するため登録出来ません"
				Else
					ErrMSG = "勘定コードが製造原価勘定科目に存在するため登録出来ません"
				End If
			End If
			rsts =	False
		Else
			rsts =	True
		End If
	Else
		If Action = "1" Or TmpRename = "1" Then
			rsts =	True
		Else
			ErrMSG = "対象勘定は存在しません。"
			rsts =	False
		End If
	End If

	If rsts = False Then
		Ng = "fm_kamoku.asp?Action=" & Action & "&nr=r" & "&GyoshuKubun=" & GyoshuKubun
		Ng = Ng & "&KamokuCD=" & KamokuCD & "&Kamokumei=" & Kamokumei & "&KamokuRyakumei=" & KamokuRyakumei
		Ng = Ng & "&KanjyoKubun=" & KanjyoKubun & "&SaimokuKubun=" & SaimokuKubun &	"&TaisyakuKubun=" & TaisyakuKubun
		Ng = Ng & "&HiyoKubun=" & HiyoKubun & "&BunsekiKubun=" & BunsekiKubun & "&CheckKubun=" & CheckKubun & "&TokubetsuKanjyoKubun=" & TokubetsuKanjyoKubun
		Ng = Ng & "&SyukeiCD=" & SyukeiCD & "&CSyukeiCD=" & CSyukeiCD & "&GSyukeiCD=" & GSyukeiCD & "&SSyukeiCD=" & SSyukeiCD
		Ng = Ng & "&ErrMSG=" & ErrMSG & "&Rename=" & Rename
'		Response.Redirect(Ng)
		Response.Write(SubmitHystoryBack(Ng))
		Exit Sub
	End If

	If Action = "4" Then
		Query = "exec SPM勘定科目削除 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GyoshuKubun & "', '" & KamokuCD & "', '" & KaishaGakuseiCD & "'"
		Set Content = OpenQuery(Query)
	Else
		If KaishaGakuseiCD <> "" Then
			Query = "exec SPM勘定科目更新会社学生 '" & GB_SystemCD & "'," & Action
			Query = Query & ", '" & EnshuCD &	"'"
			Query = Query & ", '" & KaishaGakuseiCD &	"'"
			Query = Query & ", '" & GyoshuKubun &	"'"
			Query = Query & ", '" & KamokuCD & "'"
			Query = Query & ", '" & Kamokumei	& "'"
			Query = Query & ", '" & KamokuRyakumei	& "'"
			Query = Query & ", '" & KanjyoKubun		& "'"
			Query = Query & ", '" & SaimokuKubun		& "'"
			Query = Query & ", '" & TaisyakuKubun	& "'"
			Query = Query & ", '" & 1		& "'"						 'データ区分＝１
			Query = Query & ", '" & HiyoKubun	& "'"
			Query = Query & ", '" & BunsekiKubun	& "'"
			Query = Query & ", '" & CheckKubun	& "'"
			Query = Query & ", ''"	'特別勘定区分は指定できない
			Query = Query & ", '" & SyukeiCD		& "'"
			Query = Query & ", '" & CSyukeiCD	& "'"
			Query = Query & ", '" & GSyukeiCD	& "'"
			Query = Query & ", '" & SSyukeiCD	& "'"
			Query = Query & ", 0"												 '作成区分=0（生徒作成データ）をセット
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or COntent.EOF) Then
				KamokuCD = Content.Fields(0)
			End If
		ElseIf TmpRename = "1" Then	'高度な設定
			Query = "exec SPM勘定科目更新3 '" & GB_SystemCD & "'," & Action
			Query = Query & ",'" & EnshuCD &	"'"
			Query = Query & ",'" & GyoshuKubun &	"'"
			Query = Query & ",'" & KamokuCD & "'"
			Query = Query & ",'" & Kamokumei	& "'"
			Query = Query & ",'" & KamokuRyakumei	& "'"
			Query = Query & ",'" & KanjyoKubun		& "'"
			Query = Query & ",'" & SaimokuKubun		& "'"
			If GB_Admin >= "1" Then
				Query = Query & ",'" & SyoyuKaisyaCD	& "'"
			Else
				Query = Query & ",'" & GB_KaisyaCD	& "'"
			End If
			Query = Query & ",'" & TaisyakuKubun	& "'"
			Query = Query & ",'" & 1		& "'"						 'データ区分＝１
			Query = Query & ",'" & HiyoKubun	& "'"
			Query = Query & ",'" & BunsekiKubun	& "'"
			Query = Query & ",'" & CheckKubun	& "'"
			Query = Query & ",'" & TokubetsuKanjyoKubun	& "'"
			Query = Query & ",'" & SyukeiCD		& "'"
			Query = Query & ",'" & CSyukeiCD	& "'"
			Query = Query & ",'" & GSyukeiCD	& "'"
			Query = Query & ",'" & SSyukeiCD	& "'"
			Query = Query & ",1"												 '作成区分＝１（運用管理作成データ）をセット
			Query = Query & ",'" & OldKamokuCD	& "'"	'元勘定CD
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or COntent.EOF) Then
				KamokuCD = Content.Fields(0)
			End If
		Else
			Query = "exec SPM勘定科目更新2 '" & GB_SystemCD & "'," & Action
			Query = Query & ",'" & EnshuCD &	"'"
			Query = Query & ",'" & GyoshuKubun &	"'"
			Query = Query & ",'" & KamokuCD & "'"
			Query = Query & ",'" & Kamokumei	& "'"
			Query = Query & ",'" & KamokuRyakumei	& "'"
			Query = Query & ",'" & KanjyoKubun		& "'"
			Query = Query & ",'" & SaimokuKubun		& "'"
			If GB_Admin >= "1" Then
				Query = Query & ",'" & SyoyuKaisyaCD	& "'"
			Else
				Query = Query & ",'" & GB_KaisyaCD	& "'"
			End If
			Query = Query & ",'" & TaisyakuKubun	& "'"
			Query = Query & ",'" & 1		& "'"						 'データ区分＝１
			Query = Query & ",'" & HiyoKubun	& "'"
			Query = Query & ",'" & BunsekiKubun	& "'"
			Query = Query & ",'" & CheckKubun	& "'"
			Query = Query & ",'" & TokubetsuKanjyoKubun	& "'"
			Query = Query & ",'" & SyukeiCD		& "'"
			Query = Query & ",'" & CSyukeiCD	& "'"
			Query = Query & ",'" & GSyukeiCD	& "'"
			Query = Query & ",'" & SSyukeiCD	& "'"
			Query = Query & ",1"												 '作成区分＝１（運用管理作成データ）をセット
			Set Content = OpenQuery(Query)
			If Not(Content.BOF Or COntent.EOF) Then
				KamokuCD = Content.Fields(0)
			End If
		End If
		If TokubetsuKanjyoKubun <> "" Then
			Query = "exec SPM勘定科目更新特別勘定区分 '" & GB_SystemCD & "'"
			Query = Query & ", '" & EnshuCD & "'"
			Query = Query & ", '" & KamokuCD & "'"
			Query = Query & ", '" & TokubetsuKanjyoKubun & "'"
			Set Content = OpenQuery(Query)
		End If
	End If

'	If Content.Fields.Count > 0 Then
'		rsts = Content.Fields(0)
'	End If


	Query = "exec SPM記帳チェック挿入集計更新 '" & GB_SystemCD & "'," & "'" & EnshuCD & "'," & "'%'"
	Set Content = OpenQuery(Query)

	If Action = "4" Then
		If NextKanjyoKamoku = "" Then
			Response.Redirect("fm_kamoku_ichiran_main.asp?GyoshuKubun=" & GyoshuKubun & "&SaimokuKubun=" & SaimokuKubun & "&KamokuCD=" & KamokuCD & "&RouteType=" & RouteType & "&HyojiFlg2=" & HyojiFlg2)
		Else
			Response.Redirect("fm_kamoku_view.asp?MsgFlg=1&GyoshuKubun=" & GyoshuKubun & "&RouteType=" & RouteType & "&SaimokuKubun=" & SaimokuKubun & "&KamokuCD=" & NextKanjyoKamoku & "&HyojiFlg2=" & HyojiFlg2)
		End If
	Else
		If Action = "1" Then
			Response.Redirect("fm_kamoku_view.asp?MsgFlg=3&GyoshuKubun=" & GyoshuKubun & "&RouteType=" & RouteType & "&SaimokuKubun=" & SaimokuKubun & "&KamokuCD=" & KamokuCD & "&HyojiFlg2=" & HyojiFlg2)
		ElseIf NextKanjyoKamoku = "" Then
			Response.Redirect("fm_kamoku_view.asp?GyoshuKubun=" & GyoshuKubun & "&RouteType=" & RouteType & "&SaimokuKubun=" & SaimokuKubun & "&KamokuCD=" & KamokuCD & "&Rename=" & Rename & "&HyojiFlg2=" & HyojiFlg2)
		Else
			Response.Redirect("fm_kamoku_view.asp?MsgFlg=2&GyoshuKubun=" & GyoshuKubun & "&RouteType=" & RouteType & "&SaimokuKubun=" & SaimokuKubun & "&KamokuCD=" & NextKanjyoKamoku & "&Rename=" & Rename & "&HyojiFlg2=" & HyojiFlg2)
		End If
	End If


End Sub
%>