
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：記帳チェック一覧表示
'	作成日：2002/9/6
'	作成者：徳田
'	目的　：記帳チェックの一覧画面を表示する。
'	概要	：
'	 <<表示>>
' ・記帳チェック一覧画面
'
'################################################
'-->
%>
<%
main()
Sub main()


	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim EnshuCD, KaisyaCD
	EnshuCD = Request("EnshuCD")
	KaisyaCD = Request("KaisyaCD")

	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")

	Dim Query, Content
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"

	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		Dim GyosyuCD
		GyosyuCD = Content.Fields("業種CD")
		Session(HomeAlias & "KaisyaCD") = KaisyaCD
		Session(HomeAlias & "Gyosyu") = Content.Fields("業種CD")
		Session(HomeAlias & "GyosyuMeisyo") = Content.Fields("業種名称")
		Session(HomeAlias & "KaisyaMeisyo") = Content.Fields("会社名称")
		Session(HomeAlias & "KaisyaRyakuMeisyo") = Content.Fields("会社略名称")
		Session(HomeAlias & "JisyaFlag") = Content.Fields("自社フラグ")
		Session(HomeAlias & "ShijyoCD") = Content.Fields("市場CD")
	End If

	Response.Redirect("/" & HomeAlias & "/user/bk/kityocheck/fm_kityo_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&HyojiFlg=" & HyojiFlg)

End Sub
%>