<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：仕入売上書類一覧
' 作成日：2002/9/10
' 作成者：山崎 貴史
' 目的 ：仕入売上書類の一覧画面を表示する。
' 概要 ：
' <<表示>>
' ・仕入売上書類の一覧画面
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
'注文請書確認要不要トグル
Dim AlertFlg
AlertFlg = 0
Dim UkeshoKakunin
UkeshoKakunin = 1
Dim Kitakuriyou
Dim SenpoHitsuyo
Dim ShiireUriageJHB
Dim ShiireUriageKennin
Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
UkeshoKakunin = Content.Fields("注文請書確認利用")
SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要")
Kitakuriyou = Content.Fields("寄託倉庫利用")
ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用")
ShiireUriageKennin = "," & Content.Fields("仕入売上書類検認利用") & ","
End If
If "" & UkeshoKakunin = "" Then
UkeshoKakunin = 1
End If
Dim BunsyoSyuruiCD, SenpoBunsyoSyuruiCD
Dim SyoruiMei, SenpoSyoruiMei
Dim NyusyukoKubun
Dim RouteType
RouteType = Request("RouteType")
BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
NyusyukoKubun = Request("NyusyukoKubun")
Dim ShowDel
ShowDel = Request("ShowDel")
Dim ShowRet
ShowRet = Request("ShowRet")
Dim Title
Dim SyuruiKubun
Dim SenpoFlg, HenshinFlgHyoji
SenpoFlg = 0
HenshinFlgHyoji = 0
If SenpoBunsyoSyuruiCD <> "" Then
SenpoFlg = 1
End If
If SenpoFlg = 1 And BunsyoSyuruiCD <> "KK" And (ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KW" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY") Then
HenshinFlgHyoji = 1
End If
Select Case SenpoBunsyoSyuruiCD
Case "KI"
SenpoSyoruiMei = "先方見積依頼書"
Case "KM"
SenpoSyoruiMei = "先方見積書"
Case "KC"
SenpoSyoruiMei = "先方注文書"
Case "KU"
SenpoSyoruiMei = "先方注文請書"
Case "KK"
'注文請書確認要不要トグル（090928小野）
If UkeshoKakunin = 0 Then
SenpoSyoruiMei = "注文請済み先方注文書"
Else
SenpoSyoruiMei = "先方確認済み注文請書"
End If
Case "KN"
SenpoSyoruiMei = "先方納品請求書"
Case "KB"
SenpoSyoruiMei = "先方物品受領書"
Case "KQ"
SenpoSyoruiMei = "先方物品領収書"
Case "KX"
SenpoSyoruiMei = "先方管理部買入申込書"
Case "KY"
SenpoSyoruiMei = "先方管理部売渡申込書"
Case "KV"
SenpoSyoruiMei = "先方管理部納品請求書"
Case "KW"
SenpoSyoruiMei = "先方管理部売渡受付書"
Case Else
End Select
Dim SenpoTmpBunsyoSyuruiCD
Select Case BunsyoSyuruiCD
Case "KI"
SyoruiMei = "見積依頼書"
SyuruiKubun = "S"
Case "KM"
SyoruiMei = "見積書"
SyuruiKubun = "U"
SenpoTmpBunsyoSyuruiCD = "KI"
Case "KC"
SyoruiMei = "注文書"
SyuruiKubun = "S"
SenpoTmpBunsyoSyuruiCD = "KM"
Case "KU"
SyoruiMei = "注文請書"
SyuruiKubun = "U"
SenpoTmpBunsyoSyuruiCD = "KC"
Case "KK"
SyoruiMei = "先方注文請書確認"
SyuruiKubun = "S"
Case "KN"
SyoruiMei = "納品請求書"
SyuruiKubun = "U"
SenpoTmpBunsyoSyuruiCD = "KK"
Case "KB"
SyoruiMei = "物品受領書"
SyuruiKubun = "S"
SenpoTmpBunsyoSyuruiCD = "KN"
Case "KQ"
SyoruiMei = "領収書"
SyuruiKubun = "U"
SenpoTmpBunsyoSyuruiCD = "KB"
Case "KX"
SyoruiMei = "管理部買入申込書"
SyuruiKubun = "X"
Case "KY"
SyoruiMei = "管理部売渡申込書"
SyuruiKubun = "1"
Case "KV"
SyoruiMei = "管理部納品請求書"
SyuruiKubun = "V"
SenpoTmpBunsyoSyuruiCD = "KX"
Case "KW"
SyoruiMei = "管理部売渡受付書"
SyuruiKubun = "W"
SenpoTmpBunsyoSyuruiCD = "KY"
Case "KO"
SyoruiMei = "管理部宛物品受領書"
SyuruiKubun = "X"
SenpoTmpBunsyoSyuruiCD = "KV"
Case "KP"
SyoruiMei = "管理部宛納品請求書"
SyuruiKubun = "1"
SenpoTmpBunsyoSyuruiCD = "KW"
Case Else
End Select
Select Case NyusyukoKubun
Case "S"
SyoruiMei = "仕入入庫"
Case "U"
SyoruiMei = "売上出庫"
End Select
Title = SyoruiMei
If SenpoSyoruiMei <> "" Then
Title = SenpoSyoruiMei
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">
<%
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HtmlDesign(4))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
Dim Bu, BuAddr, UrikaiType, ShiireUriageType
If SyuruiKubun = "V" Or SyuruiKubun = "X" Or SyuruiKubun = "S" Then
ShiireUriageType = "仕入"
Bu = "仕入部"
UrikaiType = "買入"
BuAddr = 3
Else
ShiireUriageType = "販売"
Bu = "販売部"
UrikaiType = "売渡"
BuAddr = 2
End If
If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", Bu, "", ShiireUriageType & "書類", "", SyoruiMei, "", "", "", "", ""))
ElseIf SyuruiKubun = "V" Or SyuruiKubun = "W" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", UrikaiType & "受付", "", "", "", "", ""))
ElseIf SyuruiKubun = "X" Or SyuruiKubun = "1" Or SyuruiKubun = "U" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", Bu, "tblbtn( '/" & HomeAlias & "/user/bk/menu_s" & BuAddr & ".asp')", SyoruiMei , "", "", "", "", ""))
Else ' U S
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", Bu, "tblbtn( '/" & HomeAlias & "/user/bk/menu_s" & BuAddr & ".asp')", SyoruiMei, "", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If SenpoFlg = 0 Or BunsyoSyuruiCD = "KK" Then
Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", ""))
Else
Response.Write(HttpL3_1("照会", "syokaibtn()", "削除", "sakujobtn()", "", "", "", "", "", ""))
End If
Dim TsuikaButton1
Dim TsuikaButton2
Dim TsuikaButton3
Dim TsuikaButton4
TsuikaButton1 = "追加"
TsuikaButton2 = "tblbtn('fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');"
TsuikaButton3 = TsuikaButton1
TsuikaButton4 = TsuikaButton2
If SenpoHitsuyo = "1" And SenpoTmpBunsyoSyuruiCD <> "" Then
TsuikaButton1 = "先方書類一覧"
TsuikaButton2 = "tblbtn('fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "');"
TsuikaButton3 = "一覧表示"
TsuikaButton4 = "tblbtn('fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "');"
End If
Dim ShowDelButton
Dim ShowDelValue
Dim ShowRetButton
Dim ShowRetValue
ShowDelButton = "削除済みを表示"
ShowDelValue = "&ShowDel=1"
ShowRetButton = "返信済みを表示"
ShowRetValue = "&ShowRet=1"
If ShowDel = "1" Then
ShowDelButton = "削除済みを非表示"
ShowDelValue = ""
End If
If ShowRet = "1" Then
ShowRetButton = "返信済みを非表示"
ShowRetValue = ""
End If
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
ElseIf SenpoFlg = 0 Then
' ElseIf SenpoFlg = 0 AND ShowDel = "1" Then
Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, ShowDelButton, "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & ShowDelValue & "')", "", "", "", "", "", ""))
' ElseIf SenpoFlg = 0 Then
' Response.Write(HttpL3_2(TsuikaButton1, TsuikaButton2, "削除済みを表示", "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1')", "", "", "", "", "", ""))
ElseIf BunsyoSyuruiCD <> "KK" Then '先方書類
Response.Write(HttpL3_2(TsuikaButton3, TsuikaButton4, ShowRetButton, "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&ShowDel=" & ShowDel & ShowRetValue & "');", ShowDelButton, "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD & "&ShowRet=" & ShowRet & ShowDelValue & "');", "", "", "", ""))
'Response.Write(HttpL3_2(TsuikaButton3, TsuikaButton4, "", "", "", "", "", "", "", ""))
Else '先方注文請書確認には追加ボタンがいらない
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
End If
Response.Write(HttpL4(Title , ""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="100%" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER" valign="top">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="17" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="1" HEIGHT="100%">
<TR>
<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif" valign="top">
<TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
<TR>
<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600">
<TABLE WIDTH="620" HEIGHT="20" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD WIDTH="20" HEIGHT="20"><br></TD>
<TD WIDTH="100" HEIGHT="20">処理日</TD>
<TD WIDTH="100" HEIGHT="20">取引先</TD>
<TD WIDTH="100" HEIGHT="20"><% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %></TD>
<TD HEIGHT="20">摘要</TD>
<% If SenpoBunsyoSyuruiCD <> "KK" And (ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KW" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY") Then %>
<TD WIDTH="30" HEIGHT="20"><%
If BunsyoSyuruiCD <> "KK" And SenpoFlg = 0 Then
If InStr(ShiireUriageKennin, "," & BunsyoSyuruiCD & ",") > 0 Then
Response.Write("検認</TD>")
Response.Write("<TD WIDTH=""30"" HEIGHT=""20"">")
End If
Response.Write("発信")
Else
Response.Write("開封")
End If %></TD>
<% End If %>
<% If HenshinFlgHyoji = 1 Then %>
<TD WIDTH="30" HEIGHT="20">返信</TD>
<% End If %>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD VALIGN="TOP">
<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:640px; height:100%; z-index:1; border: 1px none #000000; overflow: auto; cursor: hand;">
<TABLE ID="List" WIDTH="620" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000">
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
If BunsyoSyuruiCD = "KK" Then
Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '', 'KU'"
ElseIf SenpoBunsyoSyuruiCD = "KK" Then
Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KU'"
ElseIf SenpoFlg = 0 Then
Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "'"
Else
Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '', '" & SenpoBunsyoSyuruiCD & "'"
End If
' Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','', '', 'KM'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim bShow
bShow = 0
'自社文書の場合
If SenpoFlg <> 0 Then
'返信済み表示の場合
If ShowRet = "1" Then
bShow = 1
End If
'返信されていない
If ShowRet <> "1" And Content.Fields("返信フラグ") <> 1 Then
bShow = 1
End If
Else
'先方書類
bShow = 1
End If
'削除済み表示の場合
If ShowDel = "1" Then
bShow = bShow + 1
End If
'削除されていない
If ShowDel <> "1" And Content.Fields("削除フラグ") <> 1 Then
bShow = bShow + 1
End If
'注文請書確認が必要なモードのみ未確認を除外（090928小野）
If UkeshoKakunin = 1 And SenpoBunsyoSyuruiCD = "KK" And Content.Fields("開封フラグ") = 0 Then
' If SenpoBunsyoSyuruiCD = "KK" And Content.Fields("開封フラグ") = 0 Then
bShow = 0
AlertFlg = 1
End If
If bShow = 2 Then
Dim Torihikisaki
If SenpoBunsyoSyuruiCD = "KK" Or SenpoFlg = 0 Then
Torihikisaki = Content.Fields("取引先略名称")
Else
Torihikisaki = Content.Fields("作成会社略名称")
End If
Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'" & Content.Fields("作成会社CD") & "," & Content.Fields("文書種類CD") & "," & Content.Fields("文書内容CD") & "')"" CLASS=""tx1618"" onDblClick=""syokaibtn()"">" & vbCrLf)
Response.Write("<TD WIDTH=""20"" HEIGHT=""20"">")
If Content.Fields("削除フラグ") = 1 Then
Response.Write("x")
End If
Response.Write("</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""20"">" & SetTimeYYYYMMDD(Content.Fields("処理日")) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""20"" CLASS=""tx1416"">" & Torihikisaki & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""20"">" & SetTimeYYYYMMDD(Content.Fields("納入期日")) & "</TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""23"" align=""left"" CLASS=""tx1416""> " & Content.Fields("摘要") & "</TD>" & vbCrLf)
If SenpoBunsyoSyuruiCD <> "KK" And (ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KW" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY") Then
If BunsyoSyuruiCD <> "KK" And SenpoFlg = 0 Then
If InStr(ShiireUriageKennin, "," & BunsyoSyuruiCD & ",") > 0 Then
Response.Write("<TD WIDTH=""30"" HEIGHT=""20"" CLASS=""tx1416"">")
If "" & Content.Fields("検認フラグ") = "1" Then
Response.Write("済")
Else
Response.Write("未")
End If
Response.Write("</TD>" & vbCrLf)
End If
Response.Write("<TD WIDTH=""30"" HEIGHT=""20"" CLASS=""tx1416"">")
Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2))
Response.Write("</TD>" & vbCrLf)
Else
Response.Write("<TD WIDTH=""30"" HEIGHT=""20"" CLASS=""tx1416"">")
Response.Write(ConvFlagMeisyo(Content.Fields("開封フラグ"), 2))
Response.Write("</TD>" & vbCrLf)
End If
End If
If HenshinFlgHyoji = 1 Then
Response.Write("<TD WIDTH=""30"" HEIGHT=""20"" CLASS=""tx1416"">")
Response.Write(ConvFlagMeisyo(Content.Fields("返信フラグ"), 2))
Response.Write("</TD>" & vbCrLf)
End If
ii = ii + 1
Response.Write("</TR>")
End If
Content.MoveNext
Loop
For jj = ii To 19
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""20"" HEIGHT=""20""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""20""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""20""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""20""></TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""23""></TD>" & vbCrLf)
If SenpoFlg = 0 And InStr(ShiireUriageKennin, "," & BunsyoSyuruiCD & ",") > 0 Then
Response.Write("<TD WIDTH=""30"" HEIGHT=""20"" CLASS=""tx1416""></TD>" & vbCrLf)
End If
If SenpoBunsyoSyuruiCD <> "KK" And (ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KW" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY") Then
Response.Write("<TD WIDTH=""30"" HEIGHT=""20""></TD>" & vbCrLf)
End If
If HenshinFlgHyoji = 1 Then
Response.Write("<TD WIDTH=""30"" HEIGHT=""20""></TD>" & vbCrLf)
End If
Response.Write("</TR>")
Next
%>
</TABLE>
</DIV>
</TD>
</TR>
<% If SenpoBunsyoSyuruiCD = "KK" And UkeshoKakunin = 1 And AlertFlg = 1 Then %>
<TR height="18">
<TD ALIGN="center" VALIGN="bottom"><font color="#ff0000">※先方による注文請書確認が済んでいない注文は表示されません。</font></TD>
</TR>
<% End If %>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</body>
<% = HtmlFooter %>
<SCRIPT LANGUAGE="JavaScript">
<!--
var SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD
BunsyoNaiyoCD = "#"
function syokaibtn(){
if(BunsyoNaiyoCD == "#")
{
alert("選択されていません");
}
else
{
<% If SenpoFlg = 0 Then %>
tblbtn("fd_syorui_view.asp?RouteType=<% = RouteType %>&SojyushinKubun=S&SakuseiKaisyaCD=" + SakuseiKaisyaCD + "&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=" + BunsyoNaiyoCD);
<% ElseIf BunsyoSyuruiCD = "KK" Then %>
tblbtn("fd_syorui_view.asp?RouteType=<% = RouteType %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&SakuseiKaisyaCD=" + SakuseiKaisyaCD + "&BunsyoNaiyoCD=" + BunsyoNaiyoCD + "&SenpoBunsyoSyuruiCD=KU") ;
<% Else %>
<% If Kitakuriyou = "1" Then %>
tblbtn("fd_kitaku_syorui.asp?BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&SakuseiKaisyaCD=" + SakuseiKaisyaCD + "&SenpoBunsyoSyuruiCD=" + BunsyoSyuruiCD + "&SenpoBunsyoNaiyoCD=" + BunsyoNaiyoCD);
<% Else %>
tblbtn("fd_syorui.asp?BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&SakuseiKaisyaCD=" + SakuseiKaisyaCD + "&SenpoBunsyoSyuruiCD=" + BunsyoSyuruiCD + "&SenpoBunsyoNaiyoCD=" + BunsyoNaiyoCD);
<% End If %>
<% End If %>
}
}
//TRselect & URLset
function celsel(rw,lsParam){
for (k=0; k<document.all['List'].rows.length; k++){
document.all['List'].rows[k].style.backgroundColor ="";
}//セル色クリア
document.all['List'].rows[rw].style.backgroundColor ="#ffcdde";//選択行色変更
var lsParamArray;
lsParamArray = lsParam.split(",");
SakuseiKaisyaCD = lsParamArray[0];
BunsyoSyuruiCD = lsParamArray[1];
BunsyoNaiyoCD = lsParamArray[2];
}
<% If SenpoFlg <> 0 Then %>
function sakujobtn() {
if (BunsyoNaiyoCD == "#") {
alert("選択されていません");
} else {
if (confirm("この操作は元に戻す事が出来ません。\r\n削除をしてもよろしいですか？")) {
tblbtn("fd_syorui_bin.asp?BinType=SenpoSakujo&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&SenpoBunsyoSyuruiCD=<% = SenpoBunsyoSyuruiCD %>&BunsyoNaiyoCD=" + BunsyoNaiyoCD + "&RouteType=<% = RouteType %>&SakuseiKaisyaCD=" + SakuseiKaisyaCD + "&SenpoFlg=<% = SenpoFlg %>&ShowDel=<% = ShowDel %>&ShowRet=<% = ShowRet %>");
}
}
}
<% End If %>
//-->
</SCRIPT>
</html>
<%
End Sub
%>