<% 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 %>
<% If 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 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("" & 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) 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 %>
" & Torihikibi & "" & HardWrap(Tekiyo) & "" & ConvIntToMoney(Kingaku1, false, false) & "" & ConvIntToMoney(Kingaku2, false, false) & "" & ConvIntToMoney(Kingaku3, false, false) & "" & Motocho & "" & ConvIntToMoney(Kingaku4, false, false) & "" & ConvIntToMoney(Kingaku5, false, false) & "
   
<% If PrintFlg <> 1 Then %>
<% End If %>
    <% = ConvIntToMoney(Gokei1, false, true) %> <% = ConvIntToMoney(Gokei2, false, true) %> <% = ConvIntToMoney(Gokei3, false, true) %>   <% = ConvIntToMoney(Gokei4, false, true) %> <% = ConvIntToMoney(Gokei5, false, true) %>
<% 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 %>