<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = "受付業務" Dim Query Dim Content Dim Kitakuriyou Dim SenpoHitsuyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") '060909追加テーブルにもフィールドを追加 SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") End If '寄託利用状態を整数化（070207小野） If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", PageType , "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType , "")) %>

【 <% = PageType %> 】

<% If Kitakuriyou > 0 Then %> <% If SenpoHitsuyo <> "1" Then %> <% Else %>

<% End If %> <% Else %> <% If SenpoHitsuyo <> "1" Then %>

<% Else %>

<% End If %> <% End If %>

買入受付

<% If SenpoHitsuyo <> "1" Then %> <% Else %>

<% End If %>

売渡受付

買入
一括受付

売渡
一括受付

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