<% = AppTitle %>

<% ' ' %> <% 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 %> <% = AppTitle %>

<% 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)) %>

<% If KoumokuFlg = 1 Then %> <% End If %>

掛率

％

運送会社

処理日

取引先

納入期日

摘要

<% If SenpoBunsyoSyuruiCD = "" Then Response.Write("発信") Else Response.Write("送信") End If %>

<% 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("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") End IF Content.MoveNext Loop For jj = ii To 17 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

") Response.Write("	" & SetTimeYYYYMMDD(Content.Fields("処理日")) & "	" & Content.Fields("作成会社略名称") & "	" & SetTimeYYYYMMDD(Content.Fields("納入期日")) & "	" & Content.Fields("摘要") & "	") If SenpoBunsyoSyuruiCD = "" Then Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2)) Else Response.Write(ConvFlagMeisyo(Content.Fields("返信フラグ"), 2)) End If Response.Write("
") Response.Write("

<% = HtmlFooter %> <% End Sub %>