%
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) %> |
|
|
借 方 |
1113<% Else %>1214<% End If %>">勘定コード |
勘定名称 |
金 額 |
|
<% = KanjyoCD(1) %> |
<% = Kanjyomei(1) %> |
<% = SetMoney(Kingaku(1), false, true) %> |
<% = HardWrap(TekiyoCD(1)) %> |
<% = HardWrap(Tekiyo(1)) %> |
|
<% If Gyousu > 1 Then %>
<% = KanjyoCD(3) %> |
<% = Kanjyomei(3) %> |
<% = SetMoney(Kingaku(3), false, true) %> |
<% = HardWrap(TekiyoCD(3)) %> |
<% = HardWrap(Tekiyo(3)) %> |
|
<% End If %>
<% If Gyousu > 2 Then %>
<% = KanjyoCD(5) %> |
<% = Kanjyomei(5) %> |
<% = SetMoney(Kingaku(5), false, true) %> |
<% = HardWrap(TekiyoCD(5)) %> |
<% = HardWrap(Tekiyo(5)) %> |
|
<% End If %>
<% If Gyousu > 3 Then %>
<% = KanjyoCD(7) %> |
<% = Kanjyomei(7) %> |
<% = SetMoney(Kingaku(7), false, true) %> |
<% = HardWrap(TekiyoCD(7)) %> |
<% = HardWrap(Tekiyo(7)) %> |
|
<% End If %>
<% If Gyousu > 4 Then %>
<% = KanjyoCD(9) %> |
<% = Kanjyomei(9) %> |
<% = SetMoney(Kingaku(9), false, true) %> |
<% = HardWrap(TekiyoCD(9)) %> |
<% = HardWrap(Tekiyo(9)) %> |
|
<% End If %>
借方合計 |
<% = SetMoney(KarikataGokei, false, true) %> |
|
|
貸 方 |
1113<% Else %>1214<% End If %>">勘定コード |
勘定名称 |
金 額 |
|
<% = KanjyoCD(2) %> |
<% = Kanjyomei(2) %> |
<% = SetMoney(Kingaku(2), false, true) %> |
<% = HardWrap(TekiyoCD(2)) %> |
<% = HardWrap(Tekiyo(2)) %> |
|
<% If Gyousu > 1 Then %>
<% = KanjyoCD(4) %> |
<% = Kanjyomei(4) %> |
<% = SetMoney(Kingaku(4), false, true) %> |
<% = HardWrap(TekiyoCD(4)) %> |
<% = HardWrap(Tekiyo(4)) %> |
|
<% End If %>
<% If Gyousu > 2 Then %>
<% = KanjyoCD(6) %> |
<% = Kanjyomei(6) %> |
<% = SetMoney(Kingaku(6), false, true) %> |
<% = HardWrap(TekiyoCD(6)) %> |
<% = HardWrap(Tekiyo(6)) %> |
|
<% End If %>
<% If Gyousu > 3 Then %>
<% = KanjyoCD(8) %> |
<% = Kanjyomei(8) %> |
<% = SetMoney(Kingaku(8), false, true) %> |
<% = HardWrap(TekiyoCD(8)) %> |
<% = HardWrap(Tekiyo(8)) %> |
|
<% End If %>
<% If Gyousu > 4 Then %>
<% = KanjyoCD(10) %> |
<% = Kanjyomei(10) %> |
<% = SetMoney(Kingaku(10), false, true) %> |
<% = HardWrap(TekiyoCD(10)) %> |
<% = HardWrap(Tekiyo(10)) %> |
|
<% End If %>
貸方合計 |
<% = SetMoney(KashikataGokei, false, true) %> |
|
|
|
<%
If PrintFlg > 0 Then
Response.Write(PrintFooter())
'連続印刷用追加(070606小野)
Response.Write("![]() " & vbCrLf)
End if
%>
|
<%
End Function
%>