<% ' main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim ShijoCD ShijoCD = Request("ShijoCD") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") If "" & HyojiFlg = "" Then HyojiFlg = "1" '表示フラグが無い場合は通常処理なので同時同業会社も含める End If Dim CopyMoto CopyMoto = Request("CopyMoto") Dim GinkoFuyo GinkoFuyo = Request("GinkoFuyo") Dim TmpGyoshu Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & CopyMoto & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then TmpGyoshu = Content.Fields("業種CD") End If If TmpGyoshu = "B" Then '銀行の場合は勘定残高設定に飛ぶ(繰越残高設定は行わない) Response.Redirect("../../../user/bk/kisyusettei/fk_kanjyozandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg) ElseIf GinkoFuyo = "1" Then '口座作成が不要の場合は繰越残高設定に飛ぶ Response.Redirect("../../../user/bk/kisyusettei/fk_kurikoshizandaka_bin.asp?CopyMoto=" & CopyMoto & "&ShijoCD=" & ShijoCD & "&HyojiFlg=" & HyojiFlg) End If Dim KanriKubun Dim EnshuName Dim Query Dim Content Dim Content2 '演習名称GET EnshuName = ConvEnshuMeisyo(EnshuCD) Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "マスター管理", "tblbtn( '/" & HomeAlias & "/admin/master/fm_master_select.asp')", "会社マスター", "", "", "", "", "", "", "")) Response.Write(HttpL3_1(" 期首残高設定のコピーを実行する ", "SubmitCheck()", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("戻る", "tblbtn( 'fm_kaisya_ichiran.asp?HyojiFlg=" & HyojiFlg & "&ShijoCD=" & ShijoCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("口座作成先の選択", "")) Response.Write(HttpL5("期首預金残高をコピーする際の口座作成先銀行を選択してください")) %>
<% = HtmlFooter %> <% End Sub %>