%
'
'
%>
<%
main()
Sub main()
Dim PageType
PageType = "決算整理仕訳"
'決算振替仕訳にトグルするためのフラグ(081021小野)
Dim Kimatsu
Kimatsu = Request("Kimatsu")
If Kimatsu = "Kurikoshi" Then
PageType = "決算振替仕訳"
End If
Dim DenpyoNo, Torihikibi, DenpyoTekiyo
Dim KanjyoCD(10)
Dim Kanjyomei(10)
Dim Kingaku(10)
Dim TekiyoCD(10)
Dim Tekiyo(10)
Dim KarikataGokei, KashikataGokei
Dim Query
Dim Content
Dim Shimei
Dim SakujyoFlg
Dim GakuseiBango
Dim RouteType
Dim DenpyoKubun
Dim ShowDel
ShowDel = Request("ShowDel")
' DenpyoKubun = "D5"
'伝票区分は非利用なので伝票処理区分に転用
If Kimatsu = "Kurikoshi" Then
DenpyoKubun = "10"
Else
DenpyoKubun = "9"
End If
RouteType = Request("RouteType")
DenpyoNo = Request("DenpyoNo")
KashikataGokei = 0
KarikataGokei = 0
SakujyoFlg = 0
Dim NextDenpyoNo, PrevDenpyoNo
NextDenpyoNo = ""
PrevDenpyoNo = ""
If DenpyoNo <> "" Then
Query = "exec SPK伝票_振替伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DenpyoNo & "', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
Torihikibi = Content.Fields("取引日")
DenpyoTekiyo = Content.Fields("伝票摘要")
SakujyoFlg = Content.Fields("削除フラグ")
Shimei = Content.Fields("氏名")
GakuseiBango = Content.Fields("学生番号")
Do While Not(Content.BOF Or Content.EOF)
Dim DenpyoSEQ
DenpyoSEQ = Content.Fields("伝票SEQ")
KanjyoCD(DenpyoSEQ) = Content.Fields("勘定CD")
Kanjyomei(DenpyoSEQ) = ConvKanjyoMeisyo(Content.Fields("勘定CD"))
If DenpyoSEQ mod 2 = 0 Then
Kingaku(DenpyoSEQ) = Content.Fields("貸方金額")
KashikataGokei = KashikataGokei + Content.Fields("貸方金額")
Else
Kingaku(DenpyoSEQ) = Content.Fields("借方金額")
KarikataGokei = KarikataGokei + Content.Fields("借方金額")
End If
TekiyoCD(DenpyoSEQ) = Content.Fields("摘要CD")
Tekiyo(DenpyoSEQ) = Content.Fields("摘要")
Content.MoveNext
Loop
Query = "exec SPK伝票次番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'D5', '" & DenpyoKubun & "', '" & Torihikibi & "', '" & DenpyoNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
NextDenpyoNo = Content.Fields("伝票番号")
End If
Query = "exec SPK伝票前番号 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'D5', '" & DenpyoKubun & "', '" & Torihikibi & "', '" & DenpyoNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
PrevDenpyoNo = Content.Fields("伝票番号")
End If
End If
End If
%>
<% = AppTitle %>
<%
If InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HtmlDesign(4))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(2))
If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "受信文書", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "受発信文書", "", "発信文書", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL2("照会・集計ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s_viewonly.asp')", "経理部", "", PageType & "伝票", "", "", "", "", "", "", ""))
ElseIf PackageMode = 1 Then
Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageType, "", "", "", "", "", "", "", "", ""))
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')", PageType & "伝票", "tblbtn( 'fk_furikae.asp?Kimatsu=" & Kimatsu & "&ShowDel=" & ShowDel & "')", "", "", "", ""))
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')", PageType & "伝票", "tblbtn( 'fk_furikae.asp?Kimatsu=" & Kimatsu & "&ShowDel=" & ShowDel & "')", "", "", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If SakujyoFlg = "0" And RouteType <> "ViewOnly" Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( 'fk_furikae.asp?Kimatsu=" & Kimatsu & "&DenpyoNo=" & DenpyoNo & "&ShowDel=" & ShowDel & "')", "削除", "SakujyoBtn()","", "", "", ""))
Else
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
End If
Dim NextTitle, NextCmd, PrevTitle, PrevCmd
If NextDenpyoNo <> "" Then
NextTitle = "次へ"
NextCmd = "tblbtn( 'fk_furikae_view.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType & "&DenpyoNo=" & NextDenpyoNo & "')"
End If
If PrevDenpyoNo <> "" Then
PrevTitle = "前へ"
PrevCmd = "tblbtn( 'fk_furikae_view.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType & "&DenpyoNo=" & PrevDenpyoNo & "')"
End If
If InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "RMail") > 0 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=受信文書')", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "ViewOnly") > 0 And InStr(RouteType, "SMail") > 0 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/user/bk/jyuhasshinbunsyo/fn_jyuhasshinbunsyo.asp?RouteType=ViewOnly&PageType=発信文書')", "", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "ViewOnly") > 0 Then
Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_furikae_ichiran.asp?Kimatsu=" & Kimatsu & "&RouteType=" & RouteType & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "", "", ""))
Else
Response.Write(HttpL3_2("追加","tblbtn( 'fk_furikae.asp?Kimatsu=" & Kimatsu & "')" ,"一覧表示", "tblbtn( 'fk_furikae_ichiran.asp?Kimatsu=" & Kimatsu & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", ""))
End If
Response.Write(HttpL4(PageType & "伝票", "照会"))
%>
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
AutoFlg = -1
Else
AutoFlg = 0
End If
%>
<% = KimatsuFurikaeDenpyo(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 0) %>
<% = HtmlFooter %>
<%
End Sub
%>