<% = AppTitle %>

<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim BunsyoSyuruiCD '文書種類CD Dim SenpoBunsyoSyuruiCD '先方文書種類CD Dim SyoruiMei '書類名 Dim SenpoSyoruiMei '先方書類名 Dim NyusyukoKubun '入出庫区分 Dim RouteType Dim ShowDel Dim Title Dim SyuruiKubun Dim SenpoFlg '先方書類フラグ Dim HenshinFlgHyoji BunsyoSyuruiCD = Request("BunsyoSyuruiCD") '文書種類CD SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD") '先方文書種類CD NyusyukoKubun = Request("NyusyukoKubun") '入出庫区分 RouteType = Request("RouteType") ShowDel = Request("ShowDel") 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 "KQ" SenpoSyoruiMei = "先方物品領収書" Case "KX" SenpoSyoruiMei = "先方管理部買入申込書" Case "KY" SenpoSyoruiMei = "先方管理部売渡申込書" Case "KV" SenpoSyoruiMei = "先方管理部納品請求書" Case "KW" SenpoSyoruiMei = "先方管理部売渡受付書" Case Else End Select Select Case BunsyoSyuruiCD Case "KI" SyoruiMei = "見積依頼書" SyuruiKubun = "S" Case "KM" SyoruiMei = "見積書" SyuruiKubun = "U" Case "KC" SyoruiMei = "注文書" SyuruiKubun = "S" Case "KU" SyoruiMei = "発信済み注文請書" SyuruiKubun = "U" ' SyoruiMei = "注文請書" ' SyuruiKubun = "U" Case "KK" SyoruiMei = "先方注文請書確認" SyuruiKubun = "S" Case "KN" SyoruiMei = "納品請求書" SyuruiKubun = "U" Case "KB" SyoruiMei = "物品受領書" SyuruiKubun = "S" Case "KQ" SyoruiMei = "領収書" SyuruiKubun = "U" Case "KX" SyoruiMei = "管理部買入申込書" SyuruiKubun = "X" Case "KY" SyoruiMei = "管理部売渡申込書" SyuruiKubun = "1" Case "KV" SyoruiMei = "管理部納品請求書" SyuruiKubun = "V" Case "KW" SyoruiMei = "管理部売渡受付書" SyuruiKubun = "W" Case "KO" SyoruiMei = "管理部宛物品受領書" SyuruiKubun = "X" Case "KP" SyoruiMei = "納品請求済み管理部売渡受付書" SyuruiKubun = "U" ' SyoruiMei = "管理部宛納品請求書" ' SyuruiKubun = "1" Case "KS" SyoruiMei = "出庫依頼書" SyuruiKubun = "U" Case Else End Select Select Case NyusyukoKubun Case "S" SyoruiMei = "仕入入庫" Case "U" SyoruiMei = "売上出庫" End Select Title = SyoruiMei If SenpoSyoruiMei <> "" Then Title = SenpoSyoruiMei End If %> <% = AppTitle %> <% 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')", "寄託出庫依頼書" , "", "", "", "", "")) 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')", "寄託出庫依頼書", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("照会", "syokaibtn()", "", "", "", "", "", "", "", "")) 'If InStr(RouteType, "ViewOnly") > 0 Then ' Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) 'ElseIf SenpoFlg = 0 AND ShowDel = 1 Then ' Response.Write(HttpL3_2("追加", "tblbtn( 'fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "削除済みを非表示", "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "")) 'ElseIf SenpoFlg = 0 Then ' Response.Write(HttpL3_2("追加", "tblbtn( 'fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "削除済みを表示", "tblbtn( 'fd_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ShowDel=1')", "", "", "", "", "", "")) 'ElseIf BunsyoSyuruiCD <> "KK" Then '先方書類 ' Response.Write(HttpL3_2("追加", "tblbtn( 'fd_syorui.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", "")) 'Else '他ボタンは全て表示しないため、If分岐はせず、以下の一行のみとする ' Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) 'End If 'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_kitaku_syukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&ItiranHyojiFlag=0')", "", "", "", "", "", "", "", "")) If BunsyoSyuruiCD = "KS" Then Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_kitaku_syukko_ichiran.asp?BunsyoSyuruiCD=KU')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("出庫依頼一覧", "")) Else Response.Write(HttpL3_2("出庫依頼一覧", "tblbtn( 'fd_kitaku_syukko_ichiran.asp?BunsyoSyuruiCD=KS')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(SyoruiMei, "")) End If %>

<% If BunsyoSyuruiCD = "KS" Then %> <% Else %> <% End If %>

注文受付日

取引先

納入場所

納入期日

摘要

発信

依頼

<% Dim Query Dim Query2 Dim Content Dim Content2 Dim SakuseiKaisyaCD '作成会社CD Dim TorihikisakiCD '取引先CD Dim KitakuGaisyaCD '寄託会社CD Dim SenpoKitakuGaisyaCD '先方寄託会社CD(納入場所) Dim UnsoGaisyaCD '運送会社CD Dim ii, jj Dim bShow 'bShow=1 表示 bShow=0 非表示 Dim HakoFlag Dim HakoFlagHyoji ii = 0 Query = "exec SPD仕入売上書類一覧4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) bShow = 0 If "" & Content.Fields("削除フラグ") <> "1" Then bShow=1 End If '文書種類CD=KSの同データをチェック Query2 = "exec SPD仕入売上書類取得4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KS' , '" & Content.Fields("文書内容CD") & "' " Set Content2 = OpenQuery(Query2) If Not(Content2.BOF Or Content2.EOF) Then HakoFlag = Content2.Fields("発行フラグ") Else HakoFlag = 0 End If If HakoFlag = 1 Then HakoFlagHyoji="済" Else HakoFlagHyoji="未" End If TorihikisakiCD = Content.Fields("取引先CD") If BunsyoSyuruiCD <> "KS" And HakoFlag = 1 Then ElseIf bShow = 1 Then Response.Write("" & vbCrLf) 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 19 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

" & Content.Fields("先方処理日") & "	" & ConvKaisyaMeisyo(Content.Fields("取引先CD")) & "	" & ConvKaisyaMeisyo(Content.Fields("先方寄託会社CD")) & "	" & Content.Fields("納入期日") & "	" & Content.Fields("摘要") & "	" & HakoFlagHyoji & "

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