%
'
'
%>
<%
main()
Sub main()
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")
Dim Mode
Mode = Request("Mode")
Dim Title
Dim TmpGyosyu
If Mode = "Seizo" Then
Title = "製造部"
TmpGyosyu = "G"
Else
Title = ""
TmpGyosyu = ConvKaisyaGyosyuKubun(KaisyaCD)
End If
If Mode = "Seizo" Then '製造部
DenpyoKubun = "D8" '伝票区分 8:製造部振替伝票
Else
DenpyoKubun = "D5" '伝票区分 5:振替伝票
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 & "', '" & TmpGyosyu & "'"
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 & "', '" & DenpyoKubun & "', '1', '" & 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 & "', '" & DenpyoKubun & "', '1', '" & 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')", "経理部", "", "伝票", "", "振替伝票", "", "", "", "", ""))
ElseIf PackageMode = 1 Then
Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", Title & "振替伝票", "", "", "", "", "", "", ""))
ElseIf InStr(RouteType, "Hakushi") > 0 Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "白紙帳票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s42.asp')", "振替伝票", "", "", ""))
ElseIf Mode = "Seizo" Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", Title & "振替伝票", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae.asp?DenpyoNo=" & DenpyoNo & "&Mode=" & Mode & "&ShowDel=" & ShowDel & "')", "", "", "", ""))
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')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", "振替伝票", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae.asp?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')", "伝票", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s11.asp')", "振替伝票", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae.asp?ShowDel=" & ShowDel & "')", "", ""))
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If SakujyoFlg = "0" And RouteType <> "ViewOnly" And InStr(RouteType, "Hakushi") < 1 Then
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "修正", "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae.asp?DenpyoNo=" & DenpyoNo & "&Mode=" & Mode & "&ShowDel=" & ShowDel & "')", "削除", "SakujyoBtn()","", "", "", ""))
Else
Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", ""))
End If
Dim NextTitle, NextCmd, PrevTitle, PrevCmd
If NextDenpyoNo <> "" Then
NextTitle = "次へ"
NextCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae_view.asp?RouteType=" & RouteType & "&DenpyoNo=" & NextDenpyoNo & "&Mode=" & Mode & "')"
End If
If PrevDenpyoNo <> "" Then
PrevTitle = "前へ"
PrevCmd = "tblbtn( '/" & HomeAlias & "/user/bk/denpyo/fk_furikae_view.asp?RouteType=" & RouteType & "&DenpyoNo=" & PrevDenpyoNo & "&Mode=" & Mode & "')"
End If
If InStr(RouteType, "Hakushi") > 0 Then
Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
ElseIf 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?RouteType=" & RouteType & "&DenpyoNo=" & DenpyoNo & "&Mode=" & Mode & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", "", "", ""))
Else
Response.Write(HttpL3_2("追加","tblbtn( 'fk_furikae.asp?Mode=" & Mode & "')" ,"一覧表示", "tblbtn( 'fk_furikae_ichiran.asp?DenpyoNo=" & DenpyoNo & "&Mode=" & Mode & "&ShowDel=" & ShowDel & "')", PrevTitle, PrevCmd, NextTitle, NextCmd, "", ""))
End If
If InStr(RouteType, "Hakushi") > 0 Then
Response.Write(HttpL4(Title & "振替伝票", ""))
Else
Response.Write(HttpL4(Title & "振替伝票", "照会"))
End If
%>
<%
Dim AutoFlg
If RouteType = "Hakushi" Then
AutoFlg = -1
Else
AutoFlg = 0
End If
%>
<% = DenpyoFurikae(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 0) %>
<% = HtmlFooter %>
<%
End Sub
%>