<!-- #include file="../../../include.asp" -->
<%
'<!--
'################################################
' 名称 ：仕入売上書類一覧
' 作成日：2002/9/10
' 作成者：山崎 貴史
' 目的 ：仕入売上書類の一覧画面を表示する。
' 概要 ：
' <<表示>>
' ・仕入売上書類の一覧画面
'################################################
'-->
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
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 Title
Dim SyoruiKubun
Dim SenpoFlg
SenpoFlg = 0
If SenpoBunsyoSyuruiCD <> "" Then
SenpoFlg = 1
End If
Select Case SenpoBunsyoSyuruiCD
Case "KI"
SenpoSyoruiMei = "先方見積依頼書"
Case "KM"
SenpoSyoruiMei = "先方見積書"
Case "KC"
SenpoSyoruiMei = "先方注文書"
Case "KU"
SenpoSyoruiMei = "先方注文請書"
Case "KK"
SenpoSyoruiMei = "先方確認済み注文請書"
Case "KN"
SenpoSyoruiMei = "先方納品請求書"
Case "KB"
SenpoSyoruiMei = "先方物品受領書"
Case "KX"
SenpoSyoruiMei = "先方買入申込書"
Case "KY"
SenpoSyoruiMei = "先方売渡申込書"
Case "CB"
SenpoSyoruiMei = "運送見積依頼書"
Case "CC"
SenpoSyoruiMei = "運送見積書"
Case Else
End Select
Select Case BunsyoSyuruiCD
Case "KI"
SyoruiMei = "見積依頼書"
SyoruiKubun = "S"
Case "KM"
SyoruiMei = "見積書"
SyoruiKubun = "U"
Case "KC"
SyoruiMei = "注文書"
SyoruiKubun = "S"
Case "KU"
SyoruiMei = "注文請書"
SyoruiKubun = "U"
Case "KK"
SyoruiMei = "先方注文請書確認"
SyoruiKubun = "S"
Case "KN"
SyoruiMei = "納品請求書"
SyoruiKubun = "U"
Case "KB"
SyoruiMei = "物品受領書"
SyoruiKubun = "S"
Case "KX"
SyoruiMei = "管理部買入申込書"
SyoruiKubun = "X"
Case "KY"
SyoruiMei = "管理部売渡申込書"
SyoruiKubun = "1"
Case "KV"
SyoruiMei = "管理部納品請求書"
SyoruiKubun = "V"
Case "KW"
SyoruiMei = "管理部売渡受付書"
SyoruiKubun = "W"
Case "CB"
SyoruiMei = "運送費見積依頼書"
SyoruiKubun = "B"
Case "CC"
SyoruiMei = "運送費見積書"
SyoruiKubun = "C"
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>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
HomeAlias = "<% = HomeAlias %>";
HomeAliasSL = "<% = HomeAliasSL %>";
ExitFlg = 1;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)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 SyoruiKubun = "V" Or SyoruiKubun = "X" Or SyoruiKubun = "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 SyoruiKubun = "V" Or SyoruiKubun = "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 SyoruiKubun = "X" Or SyoruiKubun = "1" 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')", "管理部" & UrikaiType , "", "", "", "", ""))
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, "", "", "", "", ""))
'Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "運送保険", "tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", SyoruiMei, "", "", "", "", "", "", ""))
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("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", ""))
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
ElseIf SenpoBunsyoSyuruiCD = "" AND ShowDel = 1 Then
Response.Write(HttpL3_2("追加", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "削除済みを非表示", "tblbtn( 'fc_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
ElseIf SenpoBunsyoSyuruiCD = "" Then
Response.Write(HttpL3_2("追加", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "削除済みを表示", "tblbtn( 'fc_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1')", "", "", "", "", "", ""))
ElseIf BunsyoSyuruiCD <> "KK" Then '先方書類
Response.Write(HttpL3_2("追加", "tblbtn( 'fc_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
Else '先方注文請書確認には追加ボタンがいらない
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
End If
'Response.Write "SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD
'Response.Write "----SenpoFlg=" & SenpoFlg
'EXIT SUB
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="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" 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="25" VALIGN="BOTTOM" WIDTH="600">
<TABLE WIDTH="620" HEIGHT="23" BORDER="1" CELLPADDING="3" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
<TR ALIGN="CENTER">
<TD WIDTH="23" HEIGHT="23"><br></TD>
<TD WIDTH="100" HEIGHT="23">処理日</TD>
<TD WIDTH="80" HEIGHT="23">取引先</TD>
<TD WIDTH="100" HEIGHT="23">配送日</TD>
<TD HEIGHT="23">摘要</TD>
<TD WIDTH="30" HEIGHT="23"><%
If SenpoBunsyoSyuruiCD = "" Then
Response.Write("発信")
Else
Response.Write("開封")
End If %></TD>
</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="3" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000" CLASS="tx1416">
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
If SenpoFlg = 0 Then
Query = "exec SPC運送書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "','" & BunsyoSyuruiCD & "'"
Else
Query = "exec SPC運送書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','','" & SenpoBunsyoSyuruiCD & "'"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim bShow
'bShow = 0
bShow = 1
If ShowDel = 1 Then
bShow = 1
End If
If ShowDel <> 1 And Content.Fields("削除フラグ") <> 1 Then
bShow = 1
End If
'********
If ShowDel <> 1 And Content.Fields("削除フラグ") = 1 Then
bShow = 0
End If
'If SenpoBunsyoSyuruiCD = "KK" And Content.Fields("開封フラグ") = 0 Then
If SenpoBunsyoSyuruiCD = "CB" And Content.Fields("開封フラグ") = 0 Then
bShow = 0
' bShow = 1
End If
If bShow = 1 Then
Dim TorihikisakiCD
''''''''''''''''''''' If SenpoBunsyoSyuruiCD = "KK" Or BunsyoSyuruiCD = "KV" Then
'Response.Write "SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD
'Response.Write "----BunsyoSyuruiCD=" & BunsyoSyuruiCD
'EXIT SUB
If SenpoBunsyoSyuruiCD = "KK" Or SenpoFlg = 0 Then
TorihikisakiCD = Content.Fields("取引先CD")
Else
TorihikisakiCD = Content.Fields("会社CD")
End If
Response.Write("<TR ALIGN=""CENTER"" onClick=""celsel(" & ii & ",'" & Content.Fields("会社CD") & "," & Content.Fields("文書内容CD") & "')"" onDblClick=""syokaibtn()"">" & vbCrLf)
Response.Write("<TD WIDTH=""23"" HEIGHT=""23"">")
If Content.Fields("削除フラグ") = 1 Then
Response.Write("x")
End If
Response.Write("</TD>" & vbCrLf)
' Response.Write("<TD WIDTH=""23"" HEIGHT=""23"">" & Content.Fields("文書内容CD") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""23"" CLASS=""tx1618"">" & SetTimeYYYYMMDD(Content.Fields("処理日")) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""80"" HEIGHT=""23"">" & ConvKaisyaRyakuMeisyo(TorihikisakiCD ) & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""23"" CLASS=""tx1618"">" & SetTimeYYYYMMDD(Content.Fields("納入期日")) & "</TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""23"" align=""left"">" & Content.Fields("摘要") & "</TD>" & vbCrLf)
Response.Write("<TD WIDTH=""30"" HEIGHT=""23"">")
If SenpoBunsyoSyuruiCD = "" Then
Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2))
Else
'Response.Write(ConvFlagMeisyo(Content.Fields("開封フラグ"), 2))
End If
Response.Write("</TD>" & vbCrLf)
ii = ii + 1
Response.Write("</TR>")
End If
Content.MoveNext
Loop
For jj = ii To 30
Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
Response.Write("<TD WIDTH=""23"" HEIGHT=""23""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""23""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""80"" HEIGHT=""23""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""100"" HEIGHT=""23""></TD>" & vbCrLf)
Response.Write("<TD HEIGHT=""23""></TD>" & vbCrLf)
Response.Write("<TD WIDTH=""30"" HEIGHT=""23""></TD>" & vbCrLf)
Response.Write("</TR>")
Next
%>
</TABLE>
</DIV>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</div>
</body>
<% = HtmlFooter %>
<SCRIPT LANGUAGE="JavaScript">
<!--
var TorihikisakiCD, BunsyoNaiyoCD
BunsyoNaiyoCD = "#"
function syokaibtn(){
if(BunsyoNaiyoCD == "#")
{
alert("選択されていません");
}
else
{
<% If SenpoFlg = 0 Then %>
tblbtn("fc_syorui_view.asp?RouteType=<% = RouteType %>&BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&BunsyoNaiyoCD=" + BunsyoNaiyoCD);
<% ElseIf BunsyoSyuruiCD = "KK" Then %>
tblbtn("fc_syorui_view.asp?BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&TorihikisakiCD=" + TorihikisakiCD + "&SenpoBunsyoSyuruiCD=<% = SenpoBunsyoSyuruiCD %>&SenpoBunsyoNaiyoCD=" + BunsyoNaiyoCD);
<% Else %>
tblbtn("fc_syorui.asp?BunsyoSyuruiCD=<% = BunsyoSyuruiCD %>&TorihikisakiCD=" + TorihikisakiCD + "&SenpoBunsyoSyuruiCD=<% = SenpoBunsyoSyuruiCD %>&SenpoBunsyoNaiyoCD=" + BunsyoNaiyoCD);
<% 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(",");
TorihikisakiCD = lsParamArray[0];
BunsyoNaiyoCD = lsParamArray[1];
}
//-->
</SCRIPT>
</html>
<%
End Sub
%>