<%
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 %>
“E—v |
‹àŠz |
<% If AutoFlg <> 2 And TegataHyoji = "1" Then %>
Ží—Þ |
ŽèŒ` ”Ô† |
<% If BunsyoSyuruiCD = "MH" Then %>Žx•¥l<% Else %>ŽóŽæl<% End If %> |
<% Else %>
“`•[”Ô† |
<% If BunsyoSyuruiCD = "MH" Then %>Žx•¥l<% Else %>ŽóŽæl<% End If %> |
<% End If %>
<% If AutoFlg <> 2 And TegataHyoji = "1" Then %>
<% If BunsyoSyuruiCD = "MH" Then %>Uol‚Ü‚½ ‚Í— ‘l<% Else %>Uol<% End If %> |
Uo “ú |
–žŠú“ú |
Žx•¥êŠ |
“^–– “ú•t |
“^––“E—v |
<% End If %>
|
<% 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("" & SetTimeMMDD(Torihikibi) & " | " & vbCrLf)
Response.Write("" & HardWrap(Tekiyo) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku , false, false) & " | " & vbCrLf)
Response.Write("" & TegataSyuruiName & " | " & vbCrLf)
Response.Write("" & TegataNo & " | " & vbCrLf)
Response.Write("" & SiharaiUketorininName & " | " & vbCrLf)
Response.Write("" & FuridasiUragakininName & " | " & vbCrLf)
Response.Write("" & SetTimeMMDD(Furidasibi) & " | " & vbCrLf)
Response.Write("" & Mankibi & " | " & vbCrLf)
Response.Write("" & SiharaibasyoName & " | " & vbCrLf)
Response.Write("" & SetTimeMMDD(Tenmatubi) & " | " & vbCrLf)
Response.Write("" & HardWrap(TenmatuTekiyo) & " | " & 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("" & SetDate(Torihikibi, 1) & " | " & vbCrLf)
Response.Write("" & HardWrap(Tekiyo) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku , false, false) & " | " & vbCrLf)
' Response.Write("" & TegataSyuruiName & " | " & vbCrLf)
Response.Write("" & TegataNo & " | " & vbCrLf)
Response.Write("" & SiharaiUketorininName & " | " & vbCrLf)
' Response.Write("" & FuridasiUragakininName & " | " & vbCrLf)
' Response.Write("" & SetTimeMMDD(Furidasibi) & " | " & vbCrLf)
' Response.Write("" & Mankibi & " | " & vbCrLf)
' Response.Write("" & SiharaibasyoName & " | " & vbCrLf)
' Response.Write("" & SetTimeMMDD(Tenmatubi) & " | " & vbCrLf)
' Response.Write("" & TenmatuTekiyo & " | " & 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("" & SetDate(Torihikibi, 1) & " | " & vbCrLf)
Response.Write("" & HardWrap(Tekiyo) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Kingaku , false, false) & " | " & vbCrLf)
' Response.Write("" & TegataSyuruiName & " | " & vbCrLf)
Response.Write("" & TegataNo & " | " & vbCrLf)
Response.Write("" & SiharaiUketorininName & " | " & vbCrLf)
' Response.Write("" & FuridasiUragakininName & " | " & vbCrLf)
' Response.Write("" & SetTimeMMDD(Furidasibi) & " | " & vbCrLf)
' Response.Write("" & Mankibi & " | " & vbCrLf)
' Response.Write("" & SiharaibasyoName & " | " & vbCrLf)
' Response.Write("" & SetTimeMMDD(Tenmatubi) & " | " & vbCrLf)
' Response.Write("" & TenmatuTekiyo & " | " & 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
%>
<% 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
%>
|
|