" & vbCrLf)
Response.Write("")
Response.Write(SetStringFixWidth(Content.Fields("勘定名称")))
Response.Write(" | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("伝票借方"), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("伝票貸方"), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("伝票残高"), false, true) & " | " & vbCrLf)
'CheckLink="1"
'SokanjyomototyoHyojyunshiki="1"
If InputSokanjyoMototyo = "1" Then
Dim TmpSokanjyoMototyo
If SokanjyomototyoHyojyunshiki = "1" Then
TmpSokanjyoMototyo = "hyojyun"
End If
Response.Write("")
If Content.Fields("伝票借方") = Content.Fields("元帳借方") then
Response.Write(ConvIntToMoney(Content.Fields("元帳借方"), false, true))
ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
Response.Write(ConvIntToMoney(Content.Fields("元帳借方"), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("元帳借方"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If Content.Fields("伝票貸方") = Content.Fields("元帳貸方") then
Response.Write(ConvIntToMoney(Content.Fields("元帳貸方"), false, true))
ElseIf Content.Fields("伝票貸方") = Content.Fields("元帳貸方") AND Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
Response.Write(ConvIntToMoney(Content.Fields("元帳貸方"), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("元帳貸方"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If Content.Fields("伝票残高") = Content.Fields("元帳残高") then
Response.Write(ConvIntToMoney(Content.Fields("元帳残高"), false, true))
ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
Response.Write(ConvIntToMoney(Content.Fields("元帳残高"), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("元帳残高"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
End If
If CheckType = "1" And InputHojyobo = "1" Then
Dim addr, ShikibetsuCD
ShikibetsuCD = Content.Fields("チェック区分")
If ShikibetsuCD = "AA" Then
addr = "fk_genkinsuitotyo.asp"
ElseIf ShikibetsuCD = "AB" Then
addr = "fk_touzayokinsuitotyo.asp"
ElseIf ShikibetsuCD = "AC" Then
addr = "fk_urikaikakekintyo.asp?PageType=Urikake"
ElseIf ShikibetsuCD = "AD" Then
addr = "fk_urikaikakekintyo.asp?PageType=Kaikake"
ElseIf ShikibetsuCD = "AE" Then
addr = "fk_uketorisiharaitegatatyo.asp?PageType=Uketori"
ElseIf ShikibetsuCD = "AF" Then
addr = "fk_uketorisiharaitegatatyo.asp?PageType=Shiharai"
ElseIf ShikibetsuCD = "AG" Then
addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Uriage"
ElseIf ShikibetsuCD = "AH" Then
addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=Shiire"
ElseIf ShikibetsuCD = "AI" Then
addr = ""
ElseIf ShikibetsuCD = "AJ" Then
addr = ""
End If
Response.Write(" "" Then
If CheckLink = "1" Then
Response.Write("style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
End If
End If
Response.Write(">")
If Left(Content.Fields("チェック区分"), 1) = "B" then
Response.Write("----------")
ElseIf Content.Fields("伝票借方") = Content.Fields("補助簿借方") then
Response.Write(ConvIntToMoney(Content.Fields("補助簿借方"), false, true))
ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
Response.Write(ConvIntToMoney(Content.Fields("補助簿借方"), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("補助簿借方"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write(" "" Then
If CheckLink = "1" Then
Response.Write("style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
End If
End If
Response.Write(">")
If Left(Content.Fields("チェック区分"), 1) = "B" then
Response.Write("----------")
ElseIf Content.Fields("伝票貸方") = Content.Fields("補助簿貸方") then
Response.Write(ConvIntToMoney(Content.Fields("補助簿貸方"), false, true))
ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
Response.Write(ConvIntToMoney(Content.Fields("補助簿貸方"), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("補助簿貸方"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write(" "" Then
If CheckLink = "1" Then
Response.Write("style='cursor:pointer;' onclick=""tblbtn2('/" & HomeAlias & "/user/bk/hojyobo/" & addr & "')""")
End If
End If
Response.Write(">")
If Left(Content.Fields("チェック区分"), 1) = "B" then
Response.Write("----------")
ElseIf Content.Fields("伝票残高") = Content.Fields("補助簿残高") then
Response.Write(ConvIntToMoney(Content.Fields("補助簿残高"), false, true))
ElseIf Content.Fields("チェック区分") = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 1 Then
Response.Write(ConvIntToMoney(Content.Fields("補助簿残高"), false, true))
Response.Write("整")
bExistSeiMark = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("補助簿残高"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
End If
If CheckType = "2" Then
Response.Write("")
If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then
Response.Write("----------")
ElseIf Content.Fields("伝票借方") = Content.Fields("現物借方") then
Response.Write(ConvIntToMoney(Content.Fields("現物借方"), false, true))
ElseIf Content.Fields("チェック区分") = "AB" And ExistRKogitte = 1 then
Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "受")
HyojiRKogitte = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("現物借方"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then
Response.Write("----------")
ElseIf Content.Fields("伝票貸方") = Content.Fields("現物貸方") then
Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true))
ElseIf Content.Fields("チェック区分") = "AB" And ExistSKogitte = 1 then
Response.Write(ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "送")
HyojiSKogitte = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("現物貸方"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If (Content.Fields("チェック区分") = "AA" And KinkoHyoji <> "1") Or (Content.Fields("チェック区分") = "AE" And TegataHyoji <> "1") Or (Content.Fields("チェック区分") = "AF" And TegataHyoji <> "1") Then
Response.Write("----------")
ElseIf Content.Fields("伝票残高") = Content.Fields("現物残高") then
Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true))
ElseIf Content.Fields("チェック区分") = "AB" And ExistSKogitte = 1 then
Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true) & "送")
HyojiSKogitte = 1
ElseIf Content.Fields("チェック区分") = "AB" And ExistRKogitte = 1 then
Response.Write(ConvIntToMoney(Content.Fields("現物残高"), false, true) & "受")
HyojiRKogitte = 1
Else
Response.Write("" & ConvIntToMoney(Content.Fields("現物残高"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
End If
Response.Write("
" & vbCrLf)
ii = ii + 1
End If
Content.MoveNext
Loop
%>