<!-- #include file="../../../../include.asp" -->
<!-- #include file="../../../../user/bk/unso/chohyo/fu_hoken_view_main_in.asp" -->

<%
'<!--
'################################################
'	名称	:火災・運送保険請求書・領収書
'	作成日	:2013/09/12
'	作成者	:小野美
'################################################
'-->
%>

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

	Dim RouteType
	RouteType = Request("RouteType")

	Dim Syubetsu
	Syubetsu = Request("Syubetsu")
	Dim Seq
	Seq = Request("Seq")

	Dim Query
	Dim Content

	Dim SyubetsuLabel
	If Syubetsu <> "" Then
		Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "', '保険種別'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If Content.Fields("区分CD") = Syubetsu Then
				SyubetsuLabel = Replace("" & Content.Fields("区分名称"), "保険", "")
				Exit Do
			End If
			Content.MoveNext
		Loop
	End If

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="POST"	action="fu_hoken_bin.asp" name="form1" >
<input type="hidden" name="EnshuCD" value="<% = EnshuCD %>">
<input type="hidden" name="KaisyaCD" value="<% = KaisyaCD %>">
<input type="hidden" name="Syubetsu" value="<% = Syubetsu %>">
<input type="hidden" name="Seq" value="<% = Seq %>">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(1))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", "" & SyubetsuLabel & "保険請求書", "", "", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( 'fu_hoken.asp?Action=2&Syubetsu=" & Syubetsu & "&Seq=" & Seq & "')", "削除", "SubmitCheck()", "", "", "", ""))

	Response.Write(HttpL3_2("一覧表示","tblbtn( 'fu_hoken_ichiran.asp?Syubetsu=" & Syubetsu & "')" ,"", "", "", "", "", "", "", ""))

	Response.Write(HttpL4("" & SyubetsuLabel & "保険請求書・領収書", "照会"))
 %>


<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="680" HEIGHT="100%">
	<TR>
		<TD ALIGN="CENTER">
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="100%" HEIGHT="100%">
				<TR>
					<TD ALIGN="CENTER">
						<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:720px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
	AutoFlg = -1
Else
	AutoFlg = 0
End If
%>

<% = HokenSeikyuRyoushu(EnshuCD, KaisyaCD, Syubetsu, Seq, AutoFlg, 0) %>

						</DIV>
					</TD>
				</TR>
			</TABLE>
		</td>
	</tr>
</table>
</div>

</form>
</body>

<SCRIPT LANGUAGE="JavaScript">

	function SubmitCheck() {
		if (confirm("削除してよろしいですか?" )) {
			tblbtn('fu_hoken_bin.asp?Syubetsu=<% = Syubetsu %>&Delete=<% = Seq %>');
			return true;
		} else {
			return false;
		}
	}

</script>

<% = HtmlFooter %>
</html>
<%
End Sub
%>