<% ' ' %> <% 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" 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 = "1" Case "KS" SyoruiMei = "出庫依頼書" SyuruiKubun = "U" Case "SS" SyoruiMei = "寄託入庫一覧" SyuruiKubun = "S" Case Else End Select Select Case NyusyukoKubun Case "S" SyoruiMei = "仕入入庫" Case "U" SyoruiMei = "売上出庫" End Select Title = SyoruiMei If SenpoSyoruiMei <> "" Then Title = SenpoSyoruiMei End If %> <% = HtmlHeader("") %> <% 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("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("寄託入庫一覧", "")) %>

納入日

取引先

納入場所

確認

<% 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 YukoFlagHyoji '有効フラグ表示文字 ii = 0 '##### 期首残高表示対応に伴い、プロシージャーを４→９に変更 '##### 内容：処理時期区分の判断を除き、クエリー実行にする Query = "exec SPD入出庫一覧9 '" & GB_SystemCD & "','" & EnshuCD & "','" & 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 If Content.Fields("有効フラグ") = 1 Then YukoFlagHyoji="済" Else YukoFlagHyoji="未" End If If bShow = 1 Then Response.Write("" & vbCrLf) '##### 2007.07.06 「処理時期区分」を判断し「期首在庫」の文言他を追加する If Content.Fields("処理時期区分") = 0 Then Response.Write("" & vbCrLf) 'Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) '有効フラグが1の場合は取引先を表示（070227小野） Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Else '##### ここまで Response.Write("" & vbCrLf) If YukoFlagHyoji = "済" Then Response.Write("" & vbCrLf) '有効フラグが1の場合は取引先を表示（070227小野） Else Response.Write("" & vbCrLf) '有効フラグが0の場合は作成会社を表示（070227小野） End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If ii = ii + 1 Response.Write("") End If Content.MoveNext Loop For jj = ii To 30 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

	" & Content.Fields("処理日") & "	" & "※※※　期首在庫　※※※ " & "			" & Content.Fields("先方処理日") & "	" & ConvKaisyaMeisyo(Content.Fields("取引先CD")) & "	" & ConvKaisyaMeisyo(Content.Fields("作成会社CD")) & "	" & ConvKaisyaMeisyo(Content.Fields("寄託会社CD")) & "	" & YukoFlagHyoji & "

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