%
Function ZairyoShiirecho(EnshuCD, KaisyaCD, SakuseiKaisyaCD, Yobi1, Yobi2, Yobi3, Yobi4, Yobi5, Yobi6, Yobi7, Yobi8, Yobi9, Yobi10, 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 = 35
Else
RowBreakNum = MaxRowBreakNum
MaxPage = 1
End If
Dim DbKarikataKingakuTotal
Dim DbKashikataKingakuTotal
DbKarikataKingakuTotal = 0
DbKashikataKingakuTotal = 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
'表示と印刷でサイズ可変
Dim WidthTorihikibi, WidthKingaku, WidthMotocho, WidthParent, WidthParent2
Dim HeightCell
If PrintFlg = 0 Then
HeightCell = 23
WidthTorihikibi = 82
WidthKingaku = 91
WidthMotocho = 40
WidthParent = 822
WidthParent2 = 802
Else
HeightCell = 21
WidthTorihikibi = 68
WidthKingaku = 78
WidthMotocho = 48
WidthParent = 668
WidthParent2 = 666
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 PrintFlg <> 1 Then %>
<% End If %>
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
Dim Gokei1, Gokei2, Gokei3, Gokei4, Gokei5
Gokei1 = 0
Gokei2 = 0
Gokei3 = 0
Gokei4 = 0
Gokei5 = 0
Do While Not(Content.BOF Or Content.EOF)
Dim Torihikibi, Tekiyo, Motocho, Kingaku1, Kingaku2, Kingaku3, Kingaku4, Kingaku5
If AutoFlg = 2 Then
ElseIf AutoFlg = 1 Then
Else
Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
Tekiyo = Content.Fields("摘要")
Motocho = Content.Fields("元丁")
Kingaku1 = Content.Fields("素材")
Kingaku2 = Content.Fields("買入部品")
Kingaku3 = Content.Fields("工場消耗品")
Kingaku4 = Content.Fields("買掛金")
Kingaku5 = Content.Fields("諸口")
If "" & Kingaku1 <> "" Then Gokei1 = Gokei1 + Kingaku1
If "" & Kingaku2 <> "" Then Gokei2 = Gokei2 + Kingaku2
If "" & Kingaku3 <> "" Then Gokei3 = Gokei3 + Kingaku3
If "" & Kingaku4 <> "" Then Gokei4 = Gokei4 + Kingaku4
If "" & Kingaku5 <> "" Then Gokei5 = Gokei5 + Kingaku5
End If
RowCount = RowCount + 1
Response.Write("" & vbCrLf)
Response.Write("" & Torihikibi & " | " & vbCrLf)
Response.Write("" & HardWrap(Tekiyo) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku1, false, false) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku2, false, false) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku3, false, false) & " | " & vbCrLf)
Response.Write("" & Motocho & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku4, false, false) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku5, false, false) & " | " & vbCrLf)
Response.Write(" " & vbCrLf)
ii = ii + 1
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(" | " & vbCrLf)
Response.Write(" " & vbCrLf)
Next
%>
<% If PrintFlg <> 1 Then %>
<% End If %>
|
<% If Content.BOF Or Content.EOF Then %>
|
|
<% = ConvIntToMoney(Gokei1, false, true) %> |
<% = ConvIntToMoney(Gokei2, false, true) %> |
<% = ConvIntToMoney(Gokei3, false, true) %> |
|
<% = ConvIntToMoney(Gokei4, false, true) %> |
<% = ConvIntToMoney(Gokei5, 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
%>