" & 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 CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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 CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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 CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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 GB_Admin = 0 Then
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=売掛金元帳"
ElseIf ShikibetsuCD = "AD" Then
addr = "fk_urikaikakekintyo.asp?PageType=買掛金元帳"
ElseIf ShikibetsuCD = "AE" Then
addr = "fk_uketorisiharaitegatatyo.asp?PageType=受取手形記入帳"
ElseIf ShikibetsuCD = "AF" Then
addr = "fk_uketorisiharaitegatatyo.asp?PageType=支払手形記入帳"
ElseIf ShikibetsuCD = "AG" Then
addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=売上帳"
ElseIf ShikibetsuCD = "AH" Then
addr = "fk_shiireuriagetyo.asp?RouteType=&PageType=仕入帳"
Else
addr = ""
End If
End If
Response.Write(" "" Then
Response.Write("style='cursor:hand' onclick=""tblbtn2('/sj4web/user/bk/hojyobo/" & addr & "')""")
End If
Response.Write(">")
If Left(CheckKubun(ii), 1) = "B" then
Response.Write("----------")
ElseIf DenpyoKarikata(ii) = HojyoboKarikata(ii) then
Response.Write(ConvIntToMoney(HojyoboKarikata(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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(" "" Then
Response.Write("style='cursor:hand' onclick=""tblbtn2('/sj4web/user/bk/hojyobo/" & addr & "')""")
End If
Response.Write(">")
If Left(CheckKubun(ii), 1) = "B" then
Response.Write("----------")
ElseIf DenpyoKashikata(ii) = HojyoboKashikata(ii) then
Response.Write(ConvIntToMoney(HojyoboKashikata(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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(" "" Then
Response.Write("style='cursor:hand' onclick=""tblbtn2('/sj4web/user/bk/hojyobo/" & addr & "')""")
End If
Response.Write(">")
If Left(CheckKubun(ii), 1) = "B" then
Response.Write("----------")
ElseIf DenpyoZandaka(ii) = HojyoboZandaka(ii) then
Response.Write(ConvIntToMoney(HojyoboZandaka(ii), false, true))
ElseIf CheckKubun(ii) = "AH" And CheckSeiriKinyugo(KaisyaCD, GB_KaikeiSyuryobi) = 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)
End If
Next
%>