<% Function KimatsuFurikaeDenpyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, PrintFlg) '伝票区分は非利用なので伝票処理区分に転用 If DenpyoNo = "9999999" Or DenpyoNo = "AAAAAAA" Then Exit Function End If Dim LabelSoumu Dim LabelTanto Dim LabelKakari LabelSoumu = "" LabelTanto = "" LabelKakari = "係 印" If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If Dim PageType PageType = "決算整理仕訳" '繰越記入にトグルするためのフラグ(081021小野) If DenpyoKubun = "10" Then PageType = "決算振替仕訳" End If Dim 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 RouteType = Request("RouteType") KashikataGokei = 0 KarikataGokei = 0 SakujyoFlg = 0 Dim SenColor If PrintFlg < 1 Then SenColor = "#015B23" If DenpyoKubun = "10" Then SenColor = "#885522" End If Else SenColor = "#000000" End If SenColor = "#015B23" If DenpyoKubun = "10" Then SenColor = "#885522" End If 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) = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, 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("摘要会社名称") Tekiyo(DenpyoSEQ) = Content.Fields("摘要") '小売販売 If Content.Fields("摘要CD") = "SJ4KOURIHANBAI" Then TekiyoCD(DenpyoSEQ) = ConvKaisyaMeisyo(Content.Fields("摘要CD")) End If 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 Dim Gyousu Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Gyousu = Content.Fields("振替伝票表示行数") End If If Gyousu = 0 Or "" & Gyousu = "" Then Gyousu = 5 End If Dim GyouHeight Dim GyouHeight2 Dim GyouHeight3 Dim GyouHaichi If Gyousu = 1 Then GyouHeight = 250 GyouHeight2 = 20 GyouHeight3 = 230 GyouHaichi = "middle" ElseIf Gyousu = 2 Then GyouHeight = 125 GyouHeight2 = 20 GyouHeight3 = 105 GyouHaichi = "middle" ElseIf Gyousu = 3 Then GyouHeight = 83 GyouHeight2 = 20 GyouHeight3 = 63 GyouHaichi = "middle" ElseIf Gyousu = 4 Then GyouHeight = 62 GyouHeight2 = 20 GyouHeight3 = 42 GyouHaichi = "bottom" Else GyouHeight = 50 GyouHeight2 = 20 GyouHeight3 = 30 GyouHaichi = "bottom" End If %> <% If PrintFlg > 0 Then '連続印刷用追加(070606小野)PrintFlg = 2の場合は改ページ If PrintFlg = 2 Then Response.Write(PageBreakBefore) End if End if %>
<% If PrintFlg > 0 Then Response.Write(PrintHeader(AutoFlg, "")) End if %>
<% = PageType %>伝票<% If "" & SakujyoFlg = "1" Then Response.Write("
※削除済み
") End If %>
取引日: <% = Torihikibi %>
伝票番号: <% = DenpyoNo %>
伝票摘要: <% = DenpyoTekiyo %>
<% = LabelSoumu %> <% = LabelTanto %> <% = LabelKakari %>
    <% = ConvShimeiRyakuMeisyo(GakuseiBango) %>
<% If Gyousu > 1 Then %> <% End If %> <% If Gyousu > 2 Then %> <% End If %> <% If Gyousu > 3 Then %> <% End If %> <% If Gyousu > 4 Then %> <% End If %>
借  方
1113<% Else %>1214<% End If %>">勘定コード 勘定名称 金 額
取引先 明細摘要
<% = KanjyoCD(1) %> <% = Kanjyomei(1) %> <% = SetMoney(Kingaku(1), false, true) %>
<% = HardWrap(TekiyoCD(1)) %>
<% = HardWrap(Tekiyo(1)) %>
<% = KanjyoCD(3) %> <% = Kanjyomei(3) %> <% = SetMoney(Kingaku(3), false, true) %>
<% = HardWrap(TekiyoCD(3)) %>
<% = HardWrap(Tekiyo(3)) %>
<% = KanjyoCD(5) %> <% = Kanjyomei(5) %> <% = SetMoney(Kingaku(5), false, true) %>
<% = HardWrap(TekiyoCD(5)) %>
<% = HardWrap(Tekiyo(5)) %>
<% = KanjyoCD(7) %> <% = Kanjyomei(7) %> <% = SetMoney(Kingaku(7), false, true) %>
<% = HardWrap(TekiyoCD(7)) %>
<% = HardWrap(Tekiyo(7)) %>
<% = KanjyoCD(9) %> <% = Kanjyomei(9) %> <% = SetMoney(Kingaku(9), false, true) %>
<% = HardWrap(TekiyoCD(9)) %>
<% = HardWrap(Tekiyo(9)) %>
借方合計 <% = SetMoney(KarikataGokei, false, true) %>
<% If Gyousu > 1 Then %> <% End If %> <% If Gyousu > 2 Then %> <% End If %> <% If Gyousu > 3 Then %> <% End If %> <% If Gyousu > 4 Then %> <% End If %>
貸  方
1113<% Else %>1214<% End If %>">勘定コード 勘定名称 金 額
取引先 明細摘要
<% = KanjyoCD(2) %> <% = Kanjyomei(2) %> <% = SetMoney(Kingaku(2), false, true) %>
<% = HardWrap(TekiyoCD(2)) %>
<% = HardWrap(Tekiyo(2)) %>
<% = KanjyoCD(4) %> <% = Kanjyomei(4) %> <% = SetMoney(Kingaku(4), false, true) %>
<% = HardWrap(TekiyoCD(4)) %>
<% = HardWrap(Tekiyo(4)) %>
<% = KanjyoCD(6) %> <% = Kanjyomei(6) %> <% = SetMoney(Kingaku(6), false, true) %>
<% = HardWrap(TekiyoCD(6)) %>
<% = HardWrap(Tekiyo(6)) %>
<% = KanjyoCD(8) %> <% = Kanjyomei(8) %> <% = SetMoney(Kingaku(8), false, true) %>
<% = HardWrap(TekiyoCD(8)) %>
<% = HardWrap(Tekiyo(8)) %>
<% = KanjyoCD(10) %> <% = Kanjyomei(10) %> <% = SetMoney(Kingaku(10), false, true) %>
<% = HardWrap(TekiyoCD(10)) %>
<% = HardWrap(Tekiyo(10)) %>
貸方合計 <% = SetMoney(KashikataGokei, false, true) %>
<% If PrintFlg > 0 Then Response.Write(PrintFooter()) '連続印刷用追加(070606小野) Response.Write("
" & vbCrLf) End if %>
<% End Function %>