<!-- #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
%>