<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  :勘定科目マスター一覧表示の親ウィンドウ     
'   作成日:2002/9/17
'   作成者:徳田
'   目的 :勘定科目マスター一覧表示のための親ウィンドウ
'   概要  :
'################################################
'-->
%>


<% 
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim KanriKubun
	Dim  GyoshuKubun
	Dim SaimokuKubun
	Dim HyojiFlg
	SaimokuKubun = Request("SaimokuKubun")
	
	GyoshuKubun = Request("GyoshuKubun")
	KanriKubun = Request("KanriKubun")
	HyojiFlg = Request("HyojiFlg")

	Dim RouteType
	RouteType = Request("RouteType")

	Dim KamokuCD
	KamokuCD = Request("KamokuCD")

	Dim HyojiFlg2
	HyojiFlg2 = Request("HyojiFlg2")

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>


<frameset rows="*,0" framespacing="0" border="0" frameborder="0"> 
  <frame name="main" src="fm_kamoku_ichiran_main.asp?KanriKubun=<% = KanriKubun %>&EnshuCD=<% = EnshuCD %>&GyoshuKubun=<% = GyoshuKubun %>&SaimokuKubun=<% = SaimokuKubun %>&KamokuCD=<% = KamokuCD %>&RouteType=<% = RouteType %>&HyojiFlg=<% = HyojiFlg %>&HyojiFlg2=<% = HyojiFlg2 %>&<% = TimeUniq() %>" scrolling="no" noresize>
  <frame name="printout" id="fm_kamoku_ichiran_print.asp?KanriKubun=<% = KanriKubun %>&EnshuCD=<% = EnshuCD %>&GyoshuKubun=<% = GyoshuKubun %>&SaimokuKubun=<% = SaimokuKubun %>&KamokuCD=<% = KamokuCD %>&RouteType=<% = RouteType %>&HyojiFlg=<% = HyojiFlg %>&HyojiFlg2=<% = HyojiFlg2 %>&<% = TimeUniq() %>">
  <noframes>
  <body onkeydown="if(ExitFlg==2)ExitFlg=3;">

  <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p>

  </body>
  </noframes>
</frameset>

</html>
<%
End Sub
%>