<% Function HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) Dim PageType If BunsyoSyuruiCD = "MC" Then PageType = "仕入帳" Else PageType = "売上帳" End If Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 32 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim Total Total = 0 Dim HenpinTotal HenpinTotal = 0 Dim AllTotal AllTotal = 0 Dim SyoruiMei If AutoFlg = 2 Then If BunsyoSyuruiCD = "MC" Then Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AH', '%', '', ''" SyoruiMei = "仕入帳(自動)" Else Query = "exec SPK自動転記補助簿照会 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', 'AG', '%', '', ''" SyoruiMei = "売上帳(自動)" End If ElseIf AutoFlg = 1 Then If BunsyoSyuruiCD = "MC" Then Query = "exec SPR仕入売上実績 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SC','SS','SX',''" SyoruiMei = "入庫実績" Else Query = "exec SPR仕入売上実績 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','SU', 'SY', '',''" SyoruiMei = "出庫実績" End If Else If BunsyoSyuruiCD = "MC" Then Query = "exec SPK補助簿_仕入帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "仕入帳" Else Query = "exec SPK補助簿_売上帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "売上帳" End If End If 'Response.Write(Query) Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If For Page = 1 To MaxPage If Page <> 1 Then Response.Write(PageBreakBefore) End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader1(AutoFlg)) End if %>
<% If MajorVersion >= 5 And (Content.BOF Or Content.EOF) Then %> <% End If %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ページ<% End If %>
<% If GB_IEmode <> "1" Then %>
<% = Spacer(1, 7) %>
<% End If %>
取引日 取引先 <% If BunsyoSyuruiCD = "MC" Then %>仕入<% Else %>売上<% End If %>区分 商 品 数 量 単 価 金 額
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim Query Dim Content Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) Dim JogaiFlg JogaiFlg = 1 If AutoFlg < 2 Then JogaiFlg = 0 '自動仕入売上帳では期末仕訳を除外する ElseIf Content.Fields("伝票処理区分") < 9 Then 'この判定は AutoFlg < 2 では例外エラーになるためElseで独立する JogaiFlg = 0 End If If JogaiFlg = 0 Then ' If "" & Content.Fields("数量") <> "" And "" & Content.Fields("単価") <> "" Then Dim Torihikibi, TorihikisakiMeisyo, SyohinMeisyo,Suryo, Tanka,HeinpinKubun,Kingaku,DeiriKubunMeisyo Dim DbNyusyukkoKubun,SyorijikiKubun If AutoFlg < 2 Then TorihikisakiMeisyo = Content.Fields("取引先名称") '小売販売・製造部 If Content.Fields("取引先CD") = "SJ4KOURIHANBAI" Then TorihikisakiMeisyo = ConvKaisyaMeisyo(Content.Fields("取引先CD")) ElseIf Content.Fields("取引先CD") = "SJ4SEIZOZIES" Then TorihikisakiMeisyo = ConvKaisyaMeisyo(Content.Fields("取引先CD")) End If Else If "" & Content.Fields("取引先略名称") <> "" Then TorihikisakiMeisyo = Content.Fields("取引先略名称") Else TorihikisakiMeisyo = ConvKaisyaRyakuMeisyo(Content.Fields("摘要CD")) End If End If If "" & Content.Fields("商品CD") = "" Then SyohinMeisyo = "その他の商品" '「その他の商品」処理を追加 Else SyohinMeisyo = Content.Fields("商品名称") End If Suryo = Content.Fields("数量") 'If BunsyoSyuruiCD = "MC" And AutoFlg = 1 Then 'SPK補助簿_仕入帳取得の場合は「元単価」フィールドは存在しない(061214小野) ' Tanka = Content.Fields("元単価") 'Else Tanka = Content.Fields("単価") 'End If If AutoFlg = 2 Then DbNyusyukkoKubun = Content.Fields("通常返品区分") SyorijikiKubun = Content.Fields("伝票処理区分") Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) If "" & Suryo <> "" And "" & Tanka <> "" Then Kingaku = Suryo * Tanka Else If BunsyoSyuruiCD = "MC" Then Kingaku = Content.Fields("借方金額") - Content.Fields("貸方金額") Else Kingaku = Content.Fields("貸方金額") - Content.Fields("借方金額") End If End If If SyorijikiKubun = 0 Then DeiriKubunMeisyo = "期首繰越" ' DeiriKubunMeisyo = "NULL" ElseIf DbNyusyukkoKubun = "N" Then DeiriKubunMeisyo = "通常" ElseIf "" & DbNyusyukkoKubun = "" Then DeiriKubunMeisyo = "" Else DeiriKubunMeisyo = "返品" End If ElseIf AutoFlg = 1 Then DbNyusyukkoKubun = Content.Fields("文書種類CD") SyorijikiKubun = Content.Fields("処理時期区分") Torihikibi = Content.Fields("処理日") Kingaku = Suryo * Tanka If SyorijikiKubun = 0 Then DeiriKubunMeisyo = "期首繰越" ' DeiriKubunMeisyo = "NULL" ElseIf DbNyusyukkoKubun = "SC" Then DeiriKubunMeisyo = "オ商入庫" Else DeiriKubunMeisyo = Content.Fields("入出庫区分名称") End If Else Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) Kingaku = Content.Fields("金額") DeiriKubunMeisyo = Content.Fields("返品区分名称") End If SyohinMeisyo = AscLeft(SyohinMeisyo,20) '商品名称を20byteで切捨て(061030小野) If DeiriKubunMeisyo <> "NULL" Then RowCount = RowCount + 1 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If Kingaku <> "" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) ii = ii + 1 If InStr(DeiriKubunMeisyo, "返品") > 0 Then HenpinTotal = HenpinTotal + Kingaku Else Total = Total + Kingaku End If End If ' End If End If Content.MoveNext If RowCount <> 0 And (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop For jj = RowCount + 1 To Max(30, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>
" & Torihikibi & "" & TorihikisakiMeisyo & "" & DeiriKubunMeisyo & "" & SyohinMeisyo & "" & ConvIntToMoney(Suryo, false, false) & "" & ConvIntToMoney(Tanka , false, false) & "" & ConvIntToMoney(Kingaku , false, false) & "" & Kingaku & "
<% If PrintFlg <> 1 Then %>
<% End If %>
総<% = Left(SyoruiMei, 2) %>高 <% = ConvIntToMoney(Total, false, true) %>
<% = Left(SyoruiMei, 2) %>返品高 <% If Total > 0 Then %><% = ConvIntToMoney(HenpinTotal, false, false) %><% Else %><% = ConvIntToMoney(HenpinTotal, false, true) %><% End If %>
純<% = Left(SyoruiMei, 2) %>高 <% If Total > 0 Then %><% = ConvIntToMoney(Total - HenpinTotal, false, false) %><% Else %><% = ConvIntToMoney(Total - HenpinTotal, false, true) %><% End If %>
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %>
<% If (Content.BOF Or Content.EOF) Then Exit For End If Next If PrintFlg = 0 Then %>
<% End if End Function %>