" & vbCrLf)
Response.Write("")
Response.Write(SetStringFixWidth(KanjyoMeisyo(ii)))
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(DenpyoKarikata(ii), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(DenpyoKashikata(ii), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(DenpyoZandaka(ii), false, true) & " | " & vbCrLf)
If InputSokanjyoMototyo = "1" Then
Response.Write("")
If DenpyoKarikata(ii) = MototyoKarikata(ii) then
Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true))
Response.Write("振")
bExistFuriMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(MototyoKarikata(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(MototyoKarikata(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If DenpyoKashikata(ii) = MototyoKashikata(ii) then
Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true))
Response.Write("振")
bExistFuriMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(MototyoKashikata(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(MototyoKashikata(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If DenpyoZandaka(ii) = MototyoZandaka(ii) then
Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true))
Response.Write("振")
bExistFuriMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(MototyoZandaka(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(MototyoZandaka(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
End If
If CheckType = "1" And InputHojyobo = "1" Then
Dim addr, ShikibetsuCD
ShikibetsuCD = CheckKubun(ii)
addr = ""
If ShikibetsuCD = "AA" Then
If InputGenkinSuitotyo <> "1" Then
addr = "OFF"
Else
addr = "fk_genkinsuitotyo.asp"
End If
ElseIf ShikibetsuCD = "AB" Then
If InputTouzayokinSuitotyo <> "1" Then
addr = "OFF"
Else
addr = "fk_touzayokinsuitotyo.asp"
End If
ElseIf ShikibetsuCD = "AC" Then
If InputUrikakekinMototyo <> "1" Then
addr = "OFF"
Else
addr = "fk_urikaikakekintyo.asp?PageType=Urikake"
End If
ElseIf ShikibetsuCD = "AD" Then
If InputKaikakekinMototyo <> "1" Then
addr = "OFF"
Else
addr = "fk_urikaikakekintyo.asp?PageType=Kaikake"
End If
ElseIf ShikibetsuCD = "AE" Then
If InputUketoriTegatatyo <> "1" Then
addr = "OFF"
Else
addr = "fk_uketorisiharaitegatatyo.asp?PageType=Uketori"
End If
ElseIf ShikibetsuCD = "AF" Then
If InputShiharaiTegatatyo <> "1" Then
addr = "OFF"
Else
addr = "fk_uketorisiharaitegatatyo.asp?PageType=Shiharai"
End If
ElseIf ShikibetsuCD = "AG" Then
If InputUriagetyo <> "1" Then
addr = "OFF"
Else
addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Uriage"
End If
ElseIf ShikibetsuCD = "AH" Then
If InputShiiretyo <> "1" Then
addr = "OFF"
Else
addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Shiire"
End If
ElseIf MajorVersion => 5 And ShikibetsuCD = "AI" Then
If InputKoguchiSuitocho <> "1" Then
addr = "OFF"
Else
addr = "fk_koguchisuitocho.asp"
End If
Else
addr = ""
End If
If GB_Admin > 0 And addr <> "OFF" Then
addr = ""
End If
Response.Write(" "" And addr <> "OFF" Then
Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
End If
Response.Write(">")
' If IsNull(CheckKubun(ii)) Then
'チェック区分の先頭が"A"で無ければ補助簿非表示(預金関係勘定の対応)
'チェック区分により集計された科目の内訳行は補助簿非表示(081126小野)
If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboKarikata(ii) = "----------" Then
Response.Write("--------")
ElseIf DenpyoKarikata(ii) = HojyoboKarikata(ii) then
Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
Response.Write("振")
bExistFuriMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(HojyoboKarikata(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write(" "" And addr <> "OFF" Then
Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
End If
Response.Write(">")
' If IsNull(CheckKubun(ii)) Then
'チェック区分の先頭が"A"で無ければ補助簿非表示(預金関係勘定の対応)
'チェック区分により集計された科目の内訳行は補助簿非表示(081126小野)
If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboKashikata(ii) = "----------" Then
Response.Write("--------")
ElseIf DenpyoKashikata(ii) = HojyoboKashikata(ii) then
Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
Response.Write("振")
bExistFuriMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(HojyoboKashikata(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write(" "" And addr <> "OFF" Then
Response.Write("style='cursor:hand' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
End If
Response.Write(">")
' If IsNull(CheckKubun(ii)) Then
'チェック区分の先頭が"A"で無ければ補助簿非表示(預金関係勘定の対応)
'チェック区分により集計された科目の内訳行は補助簿非表示(081126小野)
If KanjyoCD(ii) = CheckKubun(ii) Or Left(CheckKubun(ii),1) <> "A" Or addr = "OFF" Or HojyoboZandaka(ii) = "----------" Then
Response.Write("--------")
ElseIf DenpyoZandaka(ii) = HojyoboZandaka(ii) then
Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckKessanFurikaego = 1 Then
Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
Response.Write("振")
bExistFuriMark = 1
ElseIf CheckKubun(ii) = "AG" And bCheckSeiriKinyugo = 1 Then
Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(HojyoboZandaka(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
End If
If CheckType = "2" Then
Response.Write("")
If DenpyoKarikata(ii) = GenbutsuKarikata(ii) then
Response.Write(ConvIntToMoney(GenbutsuKarikata(ii), false, true))
Else
Response.Write("" & ConvIntToMoney(GenbutsuKarikata(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If DenpyoKashikata(ii) = GenbutsuKashikata(ii) then
Response.Write(ConvIntToMoney(GenbutsuKashikata(ii), false, true))
Else
Response.Write("" & ConvIntToMoney(GenbutsuKashikata(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If DenpyoZandaka(ii) = GenbutsuZandaka(ii) then
Response.Write(ConvIntToMoney(GenbutsuZandaka(ii), false, true))
Else
Response.Write("" & ConvIntToMoney(GenbutsuZandaka(ii), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
End If
Response.Write("
" & vbCrLf)
If (RowCount Mod RowBreakNum = 0) Then
Exit For
End If
End If
Next
%>