<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim GenkinNyusyukinCD, Genkin , Kingaku Dim Query, Content, Content1, ContentKoza , QueryKoza , Query1 Dim NumSyohin, NumGinko NumSyohin = 0 NumGinko = 0 Dim ii, jj, kk Dim bCheck Query = "exec SPK現金入出金取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 0, 0" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Genkin = Content.Fields("金額") End If Dim SyohinSelect SyohinSelect = "" Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content1 = OpenQuery(Query) Do While Not(Content1.BOF Or Content1.EOF) SyohinSelect = SyohinSelect & "" & vbCrLf Content1.MoveNext Loop Dim Kitakuriyou Dim KitakuKeiyaku Dim KitakuGaisyaCD Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = "" & Content.Fields("寄託倉庫利用") Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuGaisyaCD = "" & Content.Fields("寄託会社CD") End If End If If Kitakuriyou = "1" Then Kitakuriyou = 1 Else Kitakuriyou = 0 End If KitakuKeiyaku = KitakuKeiyakuJoutai() 'int型1文字 'GyosyuCDをGB_Gyosyuに引継ぎ(運用管理用) If Request("GyosyuCD") <> "" Then GB_Gyosyu = Request("GyosyuCD") End If %> <% = AppTitle %> <% Response.Write("" & vbCrLf) %>
<% Response.Write(HtmlDesign(1)) If GB_Admin >= 1 Then Response.Write(HttpL1(4)) Else Response.Write(HttpL1(2)) End If If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/sj4web/admin/admenu.asp')", "マスター管理", "tblbtn( '/sj4web/admin/master/fm_master_select.asp')", "会社マスター", "tblbtn( '/sj4web/admin/master/kaisya/fm_kaisya_view.asp?Action=2&KaisyaCD=" & KaisyaCD & "' )", "繰越残高設定", "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/sj4web/user/bk/menu_s1.asp')", "繰越残高設定", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/sj4web/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/sj4web/user/bk/menu_" & GB_Gyosyu & "1.asp')", "繰越残高設定", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("繰越残高設定", ConvKaisyaRyakuMeisyoDx(EnshuCD, KaisyaCD))) %>
<% = HtmlFooter %> <% End Sub %>