<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim AutoGenkinNyusyukinRireki, AutoYokinNyusyukinRireki, AutoNyukoJisseki, AutoSyukoJisseki Dim AutoSyohinZaiko, AutoUketoriTegataIchiran, AutoShiaraiTegataIchiran Dim AiteShukkoHitsuyo Dim Query, Content Dim Kitakuriyou, KitakuKeiyaku Dim SenpoHitsuyo Dim SoukoRiyo '注文請書確認要不要トグル Dim UkeshoKakunin UkeshoKakunin = 1 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追加 テーブルにもフィールドを追加 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) UkeshoKakunin = Content.Fields("注文請書確認利用") SenpoHitsuyo = "" & Content.Fields("仕入売上書類先方書類必要") SoukoRiyo = "" & Content.Fields("倉庫部利用") End If If "" & UkeshoKakunin = "" Then UkeshoKakunin = 1 End If '寄託利用状態を整数化(070207小野) If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If '寄託契約状態判定関数を追加(070207小野) KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字 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 %>