%
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
%>
|
<% = 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("" & Torihikibi & " | " & vbCrLf)
Response.Write("" & TorihikisakiMeisyo & " | " & vbCrLf)
Response.Write("" & DeiriKubunMeisyo & " | " & vbCrLf)
Response.Write("" & SyohinMeisyo & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Suryo, false, false) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Tanka , false, false) & " | " & vbCrLf)
If Kingaku <> "" Then
Response.Write("" & ConvIntToMoney(Kingaku , false, false) & " | " & vbCrLf)
Else
Response.Write("" & Kingaku & " | " & 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
%>
<% If PrintFlg <> 1 Then %>
<% End If %>
|
<% If MajorVersion >= 5 And (Content.BOF Or Content.EOF) Then %>
|
|
|
総<% = 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 %> |
|
<% 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
%>