<% Function SeizoKansetsuHaifuhyo(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, WidthSashizuSho, WidthParent, WidthParent2 Dim HeightCell If PrintFlg = 0 Then HeightCell = 23 WidthTorihikibi = 82 WidthKingaku = 91 WidthSashizuSho = 82 WidthParent = 722 WidthParent2 = 702 Else HeightCell = 21 WidthTorihikibi = 68 WidthKingaku = 68 WidthSashizuSho = 61 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 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 Do While Not(Content.BOF Or Content.EOF) Dim Torihikibi, SashizuSho, HaifuRitsu, HaifuKijun, HaihuGaku, Tekiyo If AutoFlg = 2 Then ElseIf AutoFlg = 1 Then Else Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日")) SashizuSho = Content.Fields("製造指図書") HaifuRitsu = Content.Fields("配賦率") HaifuKijun = Content.Fields("配賦基準") HaihuGaku = Content.Fields("配賦額") Tekiyo = Content.Fields("摘要") 'If "" & HaifuRitsu <> "" Then Gokei1 = Gokei1 + HaifuRitsu If "" & HaifuKijun <> "" Then Gokei2 = Gokei2 + HaifuKijun If "" & HaihuGaku <> "" Then Gokei3 = Gokei3 + HaihuGaku 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) 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(18, 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) Next %>

" & Torihikibi & "	" & SashizuSho & "	" & ConvIntToMoney(HaifuRitsu, false, false) & "	" & ConvIntToMoney(HaifuKijun, false, false) & "	" & ConvIntToMoney(HaihuGaku, false, false) & "	" & Tekiyo & "

<% If PrintFlg <> 1 Then %>

<% End If %>

<% = ConvIntToMoney(Gokei2, false, true) %>

<% = ConvIntToMoney(Gokei3, 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 %>