<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim ShijoCD ShijoCD = Request("ShijoCD") '製造部対応(080411小野) Dim Mode Mode = Request("Mode") Dim GenkinNyusyukinCD, Genkin , Kingaku Dim Query, Content, Content1, ContentKoza , QueryKoza , Query1 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 '運用管理対応(080415小野) Dim TmpGakuseiNo Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TmpGakuseiNo = "" & Content.Fields("学生番号") End If Dim HyojunTankaHyoji Dim KishusetteiRiyo Dim KishusetteiRiyoKanjo Dim KishusetteiRiyoKurikoshi Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") KishusetteiRiyo = "" & Content.Fields("期首設定経理部利用") End If If "" & KishusetteiRiyo = "" Then KishusetteiRiyo = "3" End If KishusetteiRiyoKanjo = "1" KishusetteiRiyoKurikoshi = "1" If KishusetteiRiyo = "2" Or KishusetteiRiyo = "0" Then '勘定残高のみ KishusetteiRiyoKurikoshi = "0" End If If KishusetteiRiyo = "1" Or KishusetteiRiyo = "0" Then '繰越残高のみ KishusetteiRiyoKanjo = "0" End If %> <% = HtmlHeader("") %>
<% 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( '/" & HomeAlias & "/admin/admenu.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "会社マスター", "tblbtn( '/" & HomeAlias & "/admin/master/kaisya/fm_kaisya_view.asp?Action=2&KaisyaCD=" & KaisyaCD & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "' )", "繰越残高設定", "", "", "", "", "")) ElseIf Mode = "Seizo" Then '製造部対応(080411小野) Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "繰越残高設定", "", "", "", "", "")) ElseIf GB_Gyosyu <> "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "繰越残高設定", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo , "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & "1.asp')", "繰越残高設定", "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) If KishusetteiRiyoKurikoshi = "1" Then Response.Write(HttpL3_2("入力", "tblbtn('fk_kurikoshizandaka.asp?KaisyaCD=" & Request("KaisyaCD") & "&GyosyuCD=" & Request("GyosyuCD") & "&Mode=" & Mode & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If Dim KaishaHyoji If GB_Admin > 0 Then KaishaHyoji = ConvKaisyaRyakuMeisyoDx(EnshuCD, KaisyaCD) End If If Mode = "Seizo" Then '製造部対応(080411小野) Response.Write(HttpL4("製造部繰越残高設定", KaishaHyoji)) Else Response.Write(HttpL4("繰越残高設定", KaishaHyoji)) End If %>
<% = HtmlFooter %> <% End Sub %>