<% Function HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) Dim Query Dim Content Dim Content2 Dim RowBreakNum, RowCount Dim Page RowCount = 0 Dim DbKarikataKingakuTotal Dim DbKashikataKingakuTotal DbKarikataKingakuTotal = 0 DbKashikataKingakuTotal = 0 Dim YTegataHyoji Dim KTegataHyoji Dim TegataHyoji TegataHyoji = "1" Dim SyoruiMei Dim Mode If AutoFlg > 0 Then Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then YTegataHyoji = "" & Content.Fields("–ñ‘©ŽèŒ`•\Ž¦") KTegataHyoji = "" & Content.Fields("ˆ×‘ÖŽèŒ`•\Ž¦") End If If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then TegataHyoji = "0" End If If AutoFlg = 2 Then ' Query = "exec SPK“`•[_U‘Ö“`•[ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" If BunsyoSyuruiCD = "MH" Then SyoruiMei = "ŽóŽæŽèŒ`‹L“ü’ iŽ©“®j" Mode = "AE" Else SyoruiMei = "Žx•¥ŽèŒ`‹L“ü’ iŽ©“®j" Mode = "AF" End If Query = "exec SPKŽ©“®“]‹L•â••ëƉï '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Mode & "', '%', '', ''" ElseIf TegataHyoji <> "1" Then Query = "exec SPK“`•[_U‘Ö“`•[ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" If BunsyoSyuruiCD = "MH" Then SyoruiMei = "ŽóŽæŽèŒ`—š—ð" Else SyoruiMei = "Žx•¥ŽèŒ`—š—ð" End If Else If BunsyoSyuruiCD = "MH" Then Query = "exec SPKŽèŒ`ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TX', ''" SyoruiMei = "ŽóŽæŽèŒ`—š—ð" Else Query = "exec SPKŽèŒ`ˆê—— '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'TY', ''" SyoruiMei = "Žx•¥ŽèŒ`—š—ð" End If End If Else If BunsyoSyuruiCD = "MH" Then Query = "exec SPK•â••ë_ŽóŽæŽèŒ`‹L“ü’ Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "ŽóŽæŽèŒ`‹L“ü’ " Else Query = "exec SPK•â••ë_Žx•¥ŽèŒ`‹L“ü’ Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" SyoruiMei = "Žx•¥ŽèŒ`‹L“ü’ " End If End If If PrintFlg = 1 Then If AutoFlg <> 2 And TegataHyoji = "1" Then RowBreakNum = 32 Else RowBreakNum = 37 End If Else RowBreakNum = MaxRowBreakNum MaxPage = 1 End If Set Content = OpenQuery(Query) If PrintFlg = 0 Then %>
<% End If Dim WidthCell0, WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7, WidthParent, WidthParent2 If AutoFlg = 2 Or TegataHyoji <> "1" Then WidthCell0 = 120 WidthCell1 = 30 WidthCell2 = 75 WidthCell3 = 80 WidthCell4 = 80 WidthCell5 = 100 WidthCell6 = 80 If PrintFlg = 0 Then WidthCell7 = 311 WidthParent = 720 WidthParent2 = 700 Else WidthCell7 = 232 WidthParent = 620 WidthParent2 = 620 End If Else If PrintFlg = 0 Then WidthCell0 = 80 WidthCell1 = 30 WidthCell2 = 75 WidthCell3 = 38 WidthCell4 = 65 WidthCell5 = 100 WidthCell6 = 132 WidthCell7 = 159 WidthParent = 920 WidthParent2 = 900 Else WidthCell0 = 68 WidthCell1 = 24 WidthCell2 = 60 WidthCell3 = 30 WidthCell4 = 60 WidthCell5 = 90 WidthCell6 = 52 WidthCell7 = 121 WidthParent = 700 WidthParent2 = 700 End If If Right(SyoruiMei, 4) = "ŽèŒ`—š—ð" Then WidthCell7 = WidthCell7 + 2 End If 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 %>ƒy[ƒW<% End If %>
<% If AutoFlg <> 2 And TegataHyoji = "1" Then %> <% Else %> <% End If %> <% If AutoFlg <> 2 And TegataHyoji = "1" Then %> <% Else %> <% End If %> <% If AutoFlg <> 2 And TegataHyoji = "1" Then %> <% End If %>
Žæˆø
“ú
Žæˆø“ú“E—v ‹àŠzŽí—Þ ŽèŒ`
”Ô†
<% If BunsyoSyuruiCD = "MH" Then %>Žx•¥l<% Else %>ŽóŽæl<% End If %>“`•[”Ô† <% If BunsyoSyuruiCD = "MH" Then %>Žx•¥l<% Else %>ŽóŽæl<% End If %><% If BunsyoSyuruiCD = "MH" Then %>Uol‚Ü‚½
‚Í— ‘l<% Else %>Uol<% End If %>
Uo
“ú
–žŠú“ú Žx•¥êŠ “^––
“ú•t
“^––“E—v
<% If PrintFlg <> 1 Then %>
<% End If %> <% Dim ii, jj ii = 0 Dim UketoriSiharaiTegataTyoCD, Torihikibi, Tekiyo, Kingaku,TegataSyurui, TegataNo Dim SiharaiUketorinin,FuridasiUragakinin,Furidasibi,Mankibi,Siharaibasyo,Tenmatubi,TenmatuTekiyo Dim TegataSyuruiName Dim SiharaibasyoName, SiharaiUketorininName, FuridasiUragakininName If AutoFlg <> 2 And TegataHyoji = "1" Then Do While Not(Content.BOF Or Content.EOF) RowCount = RowCount + 1 If AutoFlg = 0 Then If BunsyoSyuruiCD = "MH" Then UketoriSiharaiTegataTyoCD = Content.Fields("ŽóŽæŽèŒ`‹L“ü’ CD") SiharaiUketorininName = Content.Fields("Žx•¥l–¼Ì") FuridasiUragakininName = Content.Fields("Uol–¼Ì") Else UketoriSiharaiTegataTyoCD = Content.Fields("Žx•¥ŽèŒ`‹L“ü’ CD") SiharaiUketorininName = Content.Fields("ŽóŽæl–¼Ì") FuridasiUragakininName = Content.Fields("Uol–¼Ì") End If TegataSyuruiName = Content.Fields("ŽèŒ`Ží—Þ–¼Ì") TegataNo = Content.Fields("ŽèŒ`”Ô†") Furidasibi = SetTimeYYYYMMDD(Content.Fields("Uo“ú")) Mankibi = SetTimeYYYYMMDD(Content.Fields("–žŠú“ú")) SiharaibasyoName = Content.Fields("Žx•¥êŠ–¼Ì") Tenmatubi = SetTimeYYYYMMDD(Content.Fields("“^––“ú•t")) Else If BunsyoSyuruiCD = "MH" Then If IsNull(Content.Fields("ˆøŽól–¼Ì")) Then SiharaiUketorininName = Content.Fields("Uol–¼Ì") Else SiharaiUketorininName = Content.Fields("ˆøŽól–¼Ì") End If If IsNull(Content.Fields("— ‘l–¼Ì")) Then FuridasiUragakininName = Content.Fields("Uol–¼Ì") Else FuridasiUragakininName = Content.Fields("— ‘l–¼Ì") End If Else SiharaiUketorininName = Content.Fields("ŽóŽæl–¼Ì") FuridasiUragakininName = Content.Fields("Uol–¼Ì") End If TegataSyuruiName = Replace(Content.Fields("ŽèŒ`Ží—Þ–¼Ì"), "ŽèŒ`", "") TegataNo = Content.Fields("ŽèŒ`”Ô†") Furidasibi = SetTimeYYYYMMDD(Content.Fields("Žæˆø“ú")) Mankibi = SetTimeYYYYMMDD(Content.Fields("Žx•¥Šú“ú")) SiharaibasyoName = Content.Fields("Žx•¥êŠ–¼Ì") Tenmatubi = SetTimeYYYYMMDD(Content.Fields("“^––“ú")) End If Torihikibi = SetTimeYYYYMMDD(Content.Fields("Žæˆø“ú")) Tekiyo = Content.Fields("“E—v") Kingaku = Content.Fields("‹àŠz") TenmatuTekiyo = Content.Fields("“^––“E—v") If AutoFlg = 1 Then If Content.Fields("휃tƒ‰ƒO") = 1 Then '휃tƒ‰ƒO‚ª—§‚Á‚Ä‚¢‚éê‡‚Í TenmatuTekiyo = "”pŠü" '“^––“E—v‚Éu”pŠüv‚Æ•\Ž¦i061110¬–ìj End if 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) 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 Else 'ŽèŒ`”ñ—˜—pŽž‹y‚ÑŽ©“®’ •ë Do While Not(Content.BOF Or Content.EOF) 'Ž©“®’ •ë If AutoFlg = 2 Then RowCount = RowCount + 1 TegataNo = Content.Fields("“`•[”Ô†") Torihikibi = SetTimeYYYYMMDD(Content.Fields("Žæˆø“ú")) Tekiyo = Content.Fields("“`•[“E—v") If Tekiyo = "" Then Tekiyo = Content.Fields("“E—v") End If If BunsyoSyuruiCD = "MH" Then Kingaku = Content.Fields("ŽØ•û‹àŠz") Else Kingaku = Content.Fields("‘Ý•û‹àŠz") End If SiharaiUketorininName = Content.Fields("Žæˆøæ—ª–¼Ì") 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) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") If (RowCount Mod RowBreakNum = 0) Then Exit Do End If 'ŽèŒ`”ñ—˜—pŽž ElseIf "" & Content.Fields("휃tƒ‰ƒO") <> "1" Then Query = "exec SPK“`•[_U‘Ö“`•[Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & Content.Fields("“`•[”Ô†") & "', '" & ConvKaisyaGyosyuKubun(KaisyaCD) & "'" Set Content2 = OpenQuery(Query) Do While Not(Content2.BOF Or Content2.EOF) If (BunsyoSyuruiCD = "MH" And "" & Content2.Fields("ƒ`ƒFƒbƒN‹æ•ª") = "AE") Or (BunsyoSyuruiCD = "MI" And "" & Content2.Fields("ƒ`ƒFƒbƒN‹æ•ª") = "AF") Then RowCount = RowCount + 1 TegataNo = Content2.Fields("“`•[”Ô†") Torihikibi = SetTimeYYYYMMDD(Content2.Fields("Žæˆø“ú")) Tekiyo = Content2.Fields("“`•[“E—v") If Tekiyo = "" Then Tekiyo = Content2.Fields("“E—v") End If If BunsyoSyuruiCD = "MH" Then Kingaku = Content2.Fields("ŽØ•û‹àŠz") Else Kingaku = Content2.Fields("‘Ý•û‹àŠz") End If SiharaiUketorininName = Content2.Fields("“E—v‰ïŽÐ–¼Ì") 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) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") If (RowCount Mod RowBreakNum = 0) Then Exit Do End If End If Content2.MoveNext Loop End If Content.MoveNext Loop End If For jj = RowCount + 1 To Max(21, Max(RowBreakNum, (Int((RowCount - 1) / RowBreakNum) + 1) * RowBreakNum) * PrintFlg) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If AutoFlg <> 2 And TegataHyoji = "1" Then Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) If AutoFlg <> 2 And TegataHyoji = "1" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) Response.Write("") Next %>
" & SetTimeMMDD(Torihikibi) & "" & HardWrap(Tekiyo) & "" & ConvIntToMoney(Kingaku , false, false) & "" & TegataSyuruiName & "" & TegataNo & "" & SiharaiUketorininName & "" & FuridasiUragakininName & "" & SetTimeMMDD(Furidasibi) & "" & Mankibi & "" & SiharaibasyoName & "" & SetTimeMMDD(Tenmatubi) & "" & HardWrap(TenmatuTekiyo) & "
" & SetDate(Torihikibi, 1) & "" & HardWrap(Tekiyo) & "" & ConvIntToMoney(Kingaku , false, false) & " " & TegataSyuruiName & "" & TegataNo & "" & SiharaiUketorininName & "" & FuridasiUragakininName & "" & SetTimeMMDD(Furidasibi) & "" & Mankibi & "" & SiharaibasyoName & "" & SetTimeMMDD(Tenmatubi) & "" & TenmatuTekiyo & "
" & SetDate(Torihikibi, 1) & "" & HardWrap(Tekiyo) & "" & ConvIntToMoney(Kingaku , false, false) & " " & TegataSyuruiName & "" & TegataNo & "" & SiharaiUketorininName & "" & FuridasiUragakininName & "" & SetTimeMMDD(Furidasibi) & "" & Mankibi & "" & SiharaibasyoName & "" & SetTimeMMDD(Tenmatubi) & "" & TenmatuTekiyo & "
<% If PrintFlg <> 1 Then %>
<% 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 %>