<% Function DenpyoNyusyukin(EnshuCD, KaisyaCD, SakuseiKaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, PrintFlg) DenpyoKubun = UCase(DenpyoKubun) Dim Torihikibi, DenpyoTekiyo Dim KanjyoCD(10) Dim Kanjyomei(10) Dim Kingaku(10) Dim TekiyoCD(10) Dim Tekiyo(10) Dim Gokei,i Dim Query Dim Content Dim Genkin, Toza Dim GakuseiShimei Dim SakujyoFlg Dim GakuseiBango 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 GenkinKanjyoCD If GB_Gyosyu <> "B" Then Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DA'" Else Query = "exec SPM勘定科目取得特別勘定 '" & GB_SystemCD & "','" & EnshuCD & "', 'DT'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) GenkinKanjyoCD = Content.Fields("勘定CD") Content.MoveNext Loop Dim RouteType RouteType = Request("RouteType") Genkin = 0 Toza = 0 Gokei = 0 SakujyoFlg = 0 Dim Title, SenColor If DenpyoKubun = "D1" Then Title = "入金伝票" SenColor = "#FF2211" '赤 Else Title = "出金伝票" SenColor = "#1133FF" '青 End If ' If PrintFlg = 1 Then ' SenColor = "#000000" ' End If If DenpyoNo <> "" Then '/////// １．「伝票」ヘッダ部・明細部のデータを取得。 If DenpyoKubun = "D1" Then Query = "exec SPK伝票_入金伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" Else Query = "exec SPK伝票_出金伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) DenpyoTekiyo = Content.Fields("伝票摘要") SakujyoFlg = Content.Fields("削除フラグ") GakuseiShimei = Content.Fields("氏名") GakuseiBango = Content.Fields("学生番号") i = 0 Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ DenpyoSEQ = Content.Fields("伝票SEQ") If Content.Fields("勘定CD") <> GenkinKanjyoCD Then i = i + 1 KanjyoCD(i) = Content.Fields("勘定CD") Kanjyomei(i) = Content.Fields("勘定名称") If DenpyoKubun = "D1" Then Kingaku(i) = Content.Fields("貸方金額") Gokei = Gokei + Content.Fields("貸方金額") Else Kingaku(i) = Content.Fields("借方金額") Gokei = Gokei + Content.Fields("借方金額") End If Tekiyo(i) = Content.Fields("摘要") TekiyoCD(i) = Content.Fields("摘要会社名称") '小売販売 If Content.Fields("摘要CD") = "SJ4KOURIHANBAI" Then TekiyoCD(i) = ConvKaisyaMeisyo(Content.Fields("摘要CD")) End If End if Content.MoveNext Loop End If End If %>

<% If PrintFlg > 0 Then '連続印刷用追加（070606小野）PrintFlg = 2の場合は改ページ If PrintFlg = 2 Then Response.Write(PageBreakBefore) End if Response.Write(PrintHeader(AutoFlg, "")) End if %>

<% = Left(title, 1) %> 金伝票<% If "" & SakujyoFlg = "1" Then Response.Write(" ※削除済み ") End If %>
取引日：	<% = Torihikibi %>

伝票番号：	<% = DenpyoNo %>
伝票摘要：	<% = DenpyoTekiyo %>

<% = LabelSoumu %>	<% = LabelTanto %>	<% = LabelKakari %>
		<% = ConvShimeiRyakuMeisyo(GakuseiBango) %>

勘定コード

勘定名称

取引先

明細摘要

金　額

<% = KanjyoCD(1) %>	<% = Kanjyomei(1) %>	<% = HardWrap(TekiyoCD(1)) %>	<% = HardWrap(Tekiyo(1)) %>	<% = SetMoney(Kingaku(1), false, true) %>
<% = KanjyoCD(2) %>	<% = Kanjyomei(2) %>	<% = HardWrap(TekiyoCD(2)) %>	<% = HardWrap(Tekiyo(2)) %>	<% = SetMoney(Kingaku(2), false, true) %>
<% = KanjyoCD(3) %>	<% = Kanjyomei(3) %>	<% = HardWrap(TekiyoCD(3)) %>	<% = HardWrap(Tekiyo(3)) %>	<% = SetMoney(Kingaku(3), false, true) %>
<% = KanjyoCD(4) %>	<% = Kanjyomei(4) %>	<% = HardWrap(TekiyoCD(4)) %>	<% = HardWrap(Tekiyo(4)) %>	<% = SetMoney(Kingaku(4), false, true) %>
<% = KanjyoCD(5) %>	<% = Kanjyomei(5) %>	<% = HardWrap(TekiyoCD(5)) %>	<% = HardWrap(Tekiyo(5)) %>	<% = SetMoney(Kingaku(5), false, true) %>

合　　計	<% = SetMoney(Gokei, false, true) %>

<% If PrintFlg > 0 Then Response.Write(PrintFooter()) '連続印刷用追加（070606小野） Response.Write("

" & vbCrLf) End if %>

<% End Function %>