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