<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim Query, Content Dim AiteShukkoHitsuyo Dim Kitakuriyou,KitakuKeiyaku Dim Kouririyou Dim SenpoHitsuyo Dim ShukkoUkeshoHitsuyo Dim SoukoRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Dim YobiA YobiA = Content.Fields("履歴表示") AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") Kitakuriyou = "" & Content.Fields("寄託倉庫利用") '060909追加 テーブルにもフィールドを追加 Kouririyou = "" & Content.Fields("小売販売有無") '070214追加 SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") ShukkoUkeshoHitsuyo = "" & Content.Fields("出庫時注文請書必要") AutoGenkinNyusyukinRireki = Mid(YobiA, 1, 1) AutoYokinNyusyukinRireki = Mid(YobiA, 2, 1) AutoNyukoJisseki = Mid(YobiA, 3, 1) AutoSyukoJisseki = Mid(YobiA, 4, 1) AutoSyohinZaiko = Mid(YobiA, 5, 1) AutoUketoriTegataIchiran = Mid(YobiA, 6, 1) AutoShiaraiTegataIchiran = Mid(YobiA, 7, 1) SoukoRiyo = "" & Content.Fields("倉庫部利用") End If '寄託利用状態を整数化(070207小野) If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If '寄託契約状態判定関数を追加(070207小野) KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字 '小売販売有無状態を整数化(070214小野) If Kouririyou = "1" Then Kouririyou = 1 Else Kouririyou = 0 End If Dim ShoshaChk Dim KanribuChk ShoshaChk = 0 KanribuChk = 0 Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("会社CD") <> KaisyaCD Then '商社存在チェック If Content.Fields("業種CD") = "S" Then ShoshaChk = 1 '同一市場の管理部存在チェック ElseIf Content.Fields("業種CD") = "K" And Content.Fields("市場CD") = GB_ShijyoCD Then KanribuChk = 1 End If End If Content.MoveNext Loop %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(3)) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "", "", "", "", "", "", "")) Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("販売部", "")) %> <% = HtmlFooter %> <% End Sub %>