<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :仕入売上書類一覧 '" & GB_SystemCD & "', ' 作成日:2002/9/10 ' 作成者:山崎 貴史 ' 目的 :仕入売上書類の一覧画面を表示する。 ' 概要 : ' <<表示>> ' ・仕入売上書類の一覧画面 '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim BunsyoSyuruiCD, SenpoBunsyoSyuruiCD Dim SyoruiMei, SenpoSyoruiMei Dim NyusyukoKubun Dim ErrMsg ErrMsg = Request("ErrMsg") BunsyoSyuruiCD = Request("BunsyoSyuruiCD") SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") NyusyukoKubun = Request("NyusyukoKubun") 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 Else End Select Dim PageType Select Case BunsyoSyuruiCD Case "KV" PageType = "買入一括受付" SyoruiKubun = "V" Case "KW" PageType = "売渡一括受付" SyoruiKubun = "W" Case Else End Select Select Case NyusyukoKubun Case "S" SyoruiMei = "仕入入庫" Case "U" SyoruiMei = "売上出庫" End Select %> <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="fd_syorui_ikkatsu_bin.asp" name="form1" autocomplete="off"> <input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>"> <input type="hidden" name="SenpoBunsyoSyuruiCD" value="<% = SenpoBunsyoSyuruiCD %>"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) If SyoruiKubun = "V" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", PageType , "", "", "", "", "")) ElseIf SyoruiKubun = "W" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", PageType , "", "", "", "", "")) ElseIf SyoruiKubun = "X" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", "管理部買入", "", "", "", "", "")) ElseIf SyoruiKubun = "1" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", "管理部売渡", "", "", "", "", "")) ElseIf SyoruiKubun = "U" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", SyoruiMei, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Dim Query Dim Content If SenpoFlg = 0 Then Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "'" Else Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', '" & SenpoBunsyoSyuruiCD & "'" End If Set Content = OpenQuery(Query) '項目無し判定(061214小野) Dim KoumokuFlg,MoveFirstFlg KoumokuFlg = 0 MoveFirstFlg = 0 If ErrMsg = "" Then Do While Not(Content.BOF Or Content.EOF) MoveFirstFlg = 1 If Content.Fields("返信フラグ") = 0 Then KoumokuFlg = 1 Exit Do End If Content.MoveNext Loop If MoveFirstFlg = 1 Then Content.MoveFirst End If If KoumokuFlg = 1 Then Response.Write(HttpL3_1("送信", "SubmitCheck();", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) End If Else Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType , "")) Response.Write(HttpL5(ErrMsg)) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" rules="none"> <tr> <td> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td> <table border="0" cellpadding="5" cellspacing="0" width="100%" height="100%"> <tr> <td align="CENTER" valign="MIDDLE"> <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"> <TABLE WIDTH="600" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <% If KoumokuFlg = 1 Then %> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="600" align="center"> <table height="30" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" class="tx1416">掛率</td><td> </td><td> </td> <td align="right"><input type="text" name="Kakeritsu" size="3" align="right" onkeyup="FormStrFloat(this,3,0)" onkeypress="FormStrFloat(this,3,0)" onblur="FormStrFloatCutoff(this)" class="tbox5"></td><td> </td> <td align="center" class="tx1416">%</td> <td> </td><td> </td><td> </td><td> </td><td> </td> <td align="center" class="tx1416">運送会社</td><td> </td><td> </td> <td align="center" class="tx1416"> <select size="1" name="UnsoGaisyaCD" class="tbox4" style="width:190"> <option value=""> </option> <% Dim ContentUnso Dim SelectedFlg SelectedFlg = 0 Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" Set ContentUnso = OpenQuery(Query) Do While Not(ContentUnso.BOF Or ContentUnso.EOF) If ContentUnso.Fields("業種CD") = "U" Then Response.Write("<option value=""" & ContentUnso.Fields("会社CD") & """") If SelectedFlg = 0 And ContentUnso.Fields("市場CD") = GB_ShijyoCD Then Response.Write(" selected") SelectedFlg = 1 End If Response.Write(">" & ContentUnso.Fields("会社名称") & "</option>" & vbCrLf) End If ContentUnso.MoveNext Loop %> </select> </td> </tr> </table> </TD> </TR> <% End If %> <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">納入期日</TD> <TD HEIGHT="20">摘要</TD> <TD WIDTH="30" HEIGHT="20"><% 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;"> <TABLE ID="List" WIDTH="620" BORDER="1" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="border-collapse: collapse" BORDERCOLOR="#000000"> <% Dim ii, jj ii = 0 '項目無し判定のためクエリは上に移動(061214小野) Dim NextPageParam Do While Not(Content.BOF Or Content.EOF) If Content.Fields("返信フラグ") = 0 And Content.Fields("削除フラグ") <> 1 Then If NextPageParam <> "" Then NextPageParam = NextPageParam & ";" End If NextPageParam = NextPageParam & Content.Fields("作成会社CD") & "," & SenpoBunsyoSyuruiCD & "," & Content.Fields("文書内容CD") Response.Write("<TR ALIGN=""CENTER"" class=""tx1416"">" & vbCrLf) Response.Write("<TD WIDTH=""20"" HEIGHT=""20"">") Response.Write("<TD WIDTH=""100"" HEIGHT=""20"" class=""tx1618"">" & SetTimeYYYYMMDD(Content.Fields("処理日")) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""100"" HEIGHT=""20"">" & Content.Fields("作成会社略名称") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""100"" HEIGHT=""20"" class=""tx1618"">" & SetTimeYYYYMMDD(Content.Fields("納入期日")) & "</TD>" & vbCrLf) Response.Write("<TD HEIGHT=""23"" align=""left"">" & Content.Fields("摘要") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""30"" HEIGHT=""20"">") 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 17 Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD WIDTH=""20"" HEIGHT=""20"">") 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) Response.Write("<TD WIDTH=""30"" HEIGHT=""20""></TD>" & vbCrLf) Response.Write("</TR>") Next %> </TABLE> </DIV> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </div> <input type="hidden" name="NextPageParam" value="<% = NextPageParam %>"> </form> </body> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { if (form1.Kakeritsu.value == "") { alert("掛率を入力して下さい。"); form1.Kakeritsu.focus(); return false; } if (Math.floor(form1.Kakeritsu.value) == 0) { alert("掛率は1以上を入力して下さい。"); form1.Kakeritsu.focus(); return false; } SubmitReal(form1); } </SCRIPT> <% = HtmlFooter %> </html> <% End Sub %>