<% Function TyoboShiwakenikkityo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, Param1, Param2, Param3) Dim RowBreakNum, RowCount Dim Page RowCount = 0 If PrintFlg = 1 Then RowBreakNum = 35 'ˆóüŽž‚ÌãŒÀs” Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If '«««ŽØ•ûE‘Ý•û‰Šú’l0 Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 'ªªªŽØ•ûE‘Ý•û‰Šú’l0 '«««‰ïŒvŠJŽnEI—¹“ú‚ðŽæ“¾ 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 'ªªª‰ïŒvŠJŽnEI—¹“ú‚ðŽæ“¾ Dim SyoruiMei If AutoFlg = 0 Then Query = "exec SPK’ •ë_Žd–ó“ú‹L’ Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "Žd–ó’ " ElseIf AutoFlg = 1 Then Query = "exec SPKŽ©“®“]‹L’ •ë_Žd–ó’ Æ‰ï '" & GB_SystemCD &"','" & EnshuCD & "', '" & KaisyaCD & "','" & KaikeiKaishibi & "','" & KaikeiSyuryobi & "', ''" SyoruiMei = "Žd–ó’ iŽ©“®j" Else Query = "SELECT * FROM TC1ƒVƒXƒeƒ€M WHERE 1 = 0" SyoruiMei = "Žd–ó’ " End If 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)) 'ˆóüƒwƒbƒ_ End if %>
<% If Content.BOF Or Content.EOF Then %> <% End If %>
<% = SetStringInsertSpace(SyoruiMei) %> <% If AutoFlg <> -1 And PrintFlg = 1 Then %><% = Page %>ƒy[ƒW<% End If %>
Žæˆø“ú Š¨’è‰È–Ú ŽØ•û‹àŠz ‘Ý•û‹àŠz “`•[”Ô† “E—v
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim Query Dim Content Dim ii, jj ii = 0 Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 's”ƒJƒEƒ“ƒg Dim Denpyo, Tekiyo Dim DbDenpyoNo, DbDenpyoKubun, DbDenpyoSyoriKubun Dim DbTorihikibi, DbKanjyoCD, DbKarikataKingaku, DbKashikataKingaku Dim DbKanjyoMeisyo If AutoFlg = 1 Then DbDenpyoNo = Content.Fields("“`•[”Ô†") DbDenpyoKubun = Content.Fields("“`•[‹æ•ª–¼Ì") DbDenpyoSyoriKubun = Content.Fields("“`•[ˆ—‹æ•ª") If DbDenpyoSyoriKubun = 0 Then Denpyo = "ŒJ‰zŽc‚" ElseIf DbDenpyoSyoriKubun = 9 Then Denpyo = "®—‹L“ü" ElseIf DbDenpyoSyoriKubun = 1 Then Denpyo = DbDenpyoKubun & " " & DbDenpyoNo End If Tekiyo = Content.Fields("“E—v") Tekiyo = Content.Fields("“E—v‰ïŽÐ–¼Ì") & Content.Fields("“E—v") Else Denpyo = Content.Fields("“`•[") Tekiyo = Content.Fields("“E—v") End If DbTorihikibi = Content.Fields("Žæˆø“ú") DbKanjyoCD = Content.Fields("Š¨’èCD") DbKanjyoMeisyo = Content.Fields("Š¨’è–¼Ì") DbKarikataKingaku = Content.Fields("ŽØ•û‹àŠz") DbKashikataKingaku = Content.Fields("‘Ý•û‹àŠz") If DbKarikataKingaku <> "" Then DbKarikataKingakuTotal = DbKarikataKingakuTotal + DbKarikataKingaku End If If DbKashikataKingaku <> "" Then DbKashikataKingakuTotal = DbKashikataKingakuTotal + DbKashikataKingaku End If If AscLen(Tekiyo) > 11 Then Tekiyo = AscLeft(Tekiyo,11) '“E—v‚ð11byte‚ÅØŽÌ‚Äi061027¬–ìj End If 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 Response.Write("") Content.MoveNext If (RowCount Mod RowBreakNum = 0) Then Exit Do End If Loop If 1 = 1 Then For jj = RowCount + 1 To Max(15, 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 End if %>
" & DbTorihikibi & "" & DbKanjyoCD & "" & DbKanjyoMeisyo & "" & ConvIntToMoney(DbKarikataKingaku, false, true) & "" & ConvIntToMoney(DbKashikataKingaku, false, true) & "" & Denpyo & "" & Tekiyo & "
<% If PrintFlg <> 1 Then %>
<% End If %>
‡Œv <% = SetMoney(DbKarikataKingakuTotal, false, true) %> <% = SetMoney(DbKashikataKingakuTotal, 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 %>