<% Function TyoboTaisyakuTaisyohyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 30 Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Dim Query, Content Dim Torihikibi Dim ContentKarikata, ContentKashikata Dim KarikataGokei, KashikataGokei KarikataGokei = 0 KashikataGokei = 0 Dim KaikeiKaishibi, KaikeiSyuryobi Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KaikeiKaishibi = Content.Fields("‰ïŒvŠJŽn“ú") KaikeiSyuryobi = Content.Fields("‰ïŒvI—¹“ú") End If If Param2 <> "" Then KaikeiSyuryobi = Param2 End If If Param3 = "1" Then Param3 = "10" Else Param3 = "9" End If Dim SyoruiMei If AutoFlg = 0 Then Query = "exec SPK’ •ë_‘ÝŽØ‘ÎÆ•\Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "‘ÝŽØ‘ÎÆ•\" ElseIf AutoFlg = 1 Then Query = "exec SPKŽ©“®“]‹L’ •ë_à–±”•\2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "','B', 0, " & Param3 SyoruiMei = "‘ÝŽØ‘ÎÆ•\iŽ©“®j" Else Query = "SELECT * FROM TC1ƒVƒXƒeƒ€M WHERE 1 = 0" SyoruiMei = "‘ÝŽØ‘ÎÆ•\" End if Set ContentKarikata = OpenQuery(Query) Set ContentKashikata = OpenQuery(Query) If AutoFlg = 1 Then If Param2 = "" Then Torihikibi = GB_KaikeiSyuryobi Else Torihikibi = Param2 End If Else If Not(ContentKarikata.BOF Or ContentKarikata.EOF) Then Torihikibi = SetTimeYYYYMMDD(ContentKarikata.Fields("Žæˆø“ú")) End IF End If 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 (ContentKarikata.BOF Or ContentKarikata.EOF) And (ContentKashikata.BOF Or ContentKashikata.EOF) Then %> <% End If %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ƒy[ƒW<% End If %>
<% If AutoFlg = - 1 Then Response.Write("@@@@”N@@@@ŒŽ@@@@“ú") Else Response.Write(SetDate(Torihikibi, 2)) End If If AutoFlg <> -1 And PrintFlg = 1 And Param3 = "10" Then Response.Write("iŒJ‰z‹L“üŒãj") End If %>
<% GB_CSVOutput = GB_CSVOutput & "" GB_CSVOutput = GB_CSVOutput & ",Ž‘ŽY" GB_CSVOutput = GB_CSVOutput & ",‹àŠz" GB_CSVOutput = GB_CSVOutput & "," GB_CSVOutput = GB_CSVOutput & ",•‰Â‚¨‚æ‚ÑŽ‘–{" GB_CSVOutput = GB_CSVOutput & ",‹àŠz" GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak" %>
Ž‘ŽY ‹àŠz •‰Â‚¨‚æ‚ÑŽ‘–{ ‹àŠz
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim ii, jj ii = 0 Dim bExist bExist = 2 Do While bExist > 0 RowCount = RowCount + 1 bExist = 2 Dim KarikataKingaku, KashikataKingaku Dim KarikataKanjyoCD, KashikataKanjyoCD Dim KarikataKanjyoMeisyo, KashikataKanjyoMeisyo KarikataKingaku = "" KashikataKingaku = "" KarikataKanjyoCD = "" KashikataKanjyoCD = "" KarikataKanjyoMeisyo = "" KashikataKanjyoMeisyo = "" For jj = 1 To 1000 If (ContentKarikata.BOF Or ContentKarikata.EOF) Then bExist = bExist - 1 Exit For ElseIf IsNull(ContentKarikata.Fields("ŽØ•û‹àŠz")) Or ContentKarikata.Fields("ŽØ•û‹àŠz") = 0 Then' Or ContentKarikata.Fields("‘ݎ؋敪") = "C" ContentKarikata.MoveNext Else KarikataKingaku = ContentKarikata.Fields("ŽØ•û‹àŠz") If AutoFlg = 0 Then KarikataKanjyoCD = ContentKarikata.Fields("ŽØ•ûŠ¨’èCD") KarikataKanjyoMeisyo = ContentKarikata.Fields("ŽØ•ûŠ¨’è–¼Ì") Else KarikataKanjyoCD = ContentKarikata.Fields("Š¨’èCD") KarikataKanjyoMeisyo = ContentKarikata.Fields("Š¨’è–¼Ì") End If ContentKarikata.MoveNext Exit For End If Next For jj = 1 To 1000 If (ContentKashikata.BOF Or ContentKashikata.EOF) Then bExist = bExist - 1 Exit For ElseIf IsNull(ContentKashikata.Fields("‘Ý•û‹àŠz")) Or ContentKashikata.Fields("‘Ý•û‹àŠz") = 0 Then' Or ContentKashikata.Fields("‘ݎ؋敪") = "D" ContentKashikata.MoveNext Else KashikataKingaku = ContentKashikata.Fields("‘Ý•û‹àŠz") If AutoFlg = 0 Then KashikataKanjyoCD = ContentKashikata.Fields("‘Ý•ûŠ¨’èCD") KashikataKanjyoMeisyo = ContentKashikata.Fields("‘Ý•ûŠ¨’è–¼Ì") Else KashikataKanjyoCD = ContentKashikata.Fields("Š¨’èCD") KashikataKanjyoMeisyo = ContentKashikata.Fields("Š¨’è–¼Ì") End If ContentKashikata.MoveNext Exit For End If Next If bExist <> 0 Then If Not(IsNull(KarikataKingaku)) And KarikataKingaku <> "" Then KarikataGokei = KarikataGokei + KarikataKingaku End If If Not(IsNull(KashikataKingaku)) And KashikataKingaku <> "" Then KashikataGokei = KashikataGokei + KashikataKingaku End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) GB_CSVOutput = GB_CSVOutput & "" & KarikataKanjyoCD GB_CSVOutput = GB_CSVOutput & "," & KarikataKanjyoMeisyo GB_CSVOutput = GB_CSVOutput & "," & KarikataKingaku GB_CSVOutput = GB_CSVOutput & "," & KashikataKanjyoCD GB_CSVOutput = GB_CSVOutput & "," & KashikataKanjyoMeisyo GB_CSVOutput = GB_CSVOutput & "," & KashikataKingaku GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak" ii = ii + 1 Response.Write("") End If If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop If 1 = 1 Then 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("") Next End if Dim Gokei If KashikataGokei - KarikataGokei > 0 Then Gokei = KashikataGokei Else Gokei = KarikataGokei End if %>
" & KarikataKanjyoCD & "" & KarikataKanjyoMeisyo & "" & ConvIntToMoney(KarikataKingaku, false, false) & "" & KashikataKanjyoCD & "" & KashikataKanjyoMeisyo & "" & ConvIntToMoney(KashikataKingaku, false, false) & "
<% If PrintFlg <> 1 Then %>
<% End If %>
<% GB_CSVOutput = GB_CSVOutput & "" GB_CSVOutput = GB_CSVOutput & "," If KashikataGokei - KarikataGokei > 0 Then GB_CSVOutput = GB_CSVOutput & "“–Šú‘¹Ž¸" End If GB_CSVOutput = GB_CSVOutput & "," If KashikataGokei - KarikataGokei > 0 Then GB_CSVOutput = GB_CSVOutput & (KashikataGokei - KarikataGokei) End If GB_CSVOutput = GB_CSVOutput & "," GB_CSVOutput = GB_CSVOutput & "," If KashikataGokei - KarikataGokei < 0 Then GB_CSVOutput = GB_CSVOutput & "“–Šú—˜‰v" End If GB_CSVOutput = GB_CSVOutput & "," If KashikataGokei - KarikataGokei < 0 Then GB_CSVOutput = GB_CSVOutput & (KarikataGokei - KashikataGokei) End If GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak" %> <% If AutoFlg = - 1 Then %> <% Else %> <% GB_CSVOutput = GB_CSVOutput & "" GB_CSVOutput = GB_CSVOutput & ",Ž‘ŽY‡Œv" GB_CSVOutput = GB_CSVOutput & "," GB_CSVOutput = GB_CSVOutput & Gokei GB_CSVOutput = GB_CSVOutput & "," GB_CSVOutput = GB_CSVOutput & ",•‰ÂEŽ‘–{‡Œv" GB_CSVOutput = GB_CSVOutput & "," GB_CSVOutput = GB_CSVOutput & Gokei GB_CSVOutput = GB_CSVOutput & "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak" %> <% End If %>
@ <% If KashikataGokei - KarikataGokei > 0 Then Response.Write("“–Šú‘¹Ž¸") End If %> <% If KashikataGokei - KarikataGokei > 0 Then Response.Write(ConvIntToMoney(KashikataGokei - KarikataGokei , false, false)) End If %> @ <% If KashikataGokei - KarikataGokei < 0 Then Response.Write("“–Šú—˜‰v") End If %> <% If KashikataGokei - KarikataGokei < 0 Then Response.Write(ConvIntToMoney(KarikataGokei - KashikataGokei, false, false)) End If %>
@ Ž‘ŽY‡Œv @ •‰ÂEŽ‘–{‡Œv
@ Ž‘ŽY‡Œv <% = ConvIntToMoney(Gokei , false, false) %> @ •‰ÂEŽ‘–{‡Œv <% = ConvIntToMoney(Gokei , false, false) %>
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End If %>
<% If (ContentKarikata.BOF Or ContentKarikata.EOF) And (ContentKashikata.BOF Or ContentKashikata.EOF) Then Exit For End If Next If PrintFlg = 0 Then %>
<% End if End Function %>