| |
<%
If BunsyoSyuruiCD = "BH" Then
Response.Write("取得日")
ElseIf PageType = "受信文書" Then
Response.Write("受信日")
ElseIf PageType = "発信文書" Then
Response.Write("発信日")
End If
%>
|
<% If BunsyoSyuruiCD <> "BH" Then %>
区分 |
<% End If %>
<% If BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then %>
取引先 |
<% End If %>
<% If BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BA" Or BunsyoSyuruiCD = "BB" Or BunsyoSyuruiCD = "BC" Then %>
金額 |
<% End If %>
摘要 |
<% If SenpoFlg = 1 Then %>
開封 |
<% ElseIf GinkoIraiHozon = "1" Then %>
依頼 |
<% End If %>
|
<%
Dim Query
Dim Content
Dim ii, jj, iiDef
Dim BunsyoCD, Hasshinbi, BunsyoKubunMeisyo, BunsyoNaiyoCD2, KaifuFlg, SakujyoFlg, Addr
Dim TorihikisakiMei, TorihikisakiCD, KaisyaMeisyo
Dim KozaKubun
ii = 0
iiDef = -1
Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
BunsyoNaiyoCD2 = Content.Fields("文書内容CD")
If BunsyoNaiyoCD = BunsyoNaiyoCD2 Then
iiDef = ii
End If
If ShowDel = 1 Or (ShowDel <> 1 And Content.Fields("削除フラグ") <> 1) Then
If Content.Fields("取引先CD") = GinkoCD Then
KozaKubun = Content.Fields("口座区分")
BunsyoCD = Content.Fields("文書内容CD")
Hasshinbi = SetTimeYYYYMMDD(Content.Fields("処理日"))
BunsyoKubunMeisyo = ConvKubunMeisyo("文書区分", Content.Fields("文書種類CD"))
BunsyoNaiyoCD2 = Content.Fields("文書内容CD")
KaifuFlg = Content.Fields("開封フラグ")
KaisyaMeisyo = ConvKaisyaMeisyo(Content.Fields("会社CD"))
' SakujyoFlg = Content.Fields("削除フラグ")
' Addr = Content.Fields("アドレス")
If PageType = "受信文書" Then
TorihikisakiCD = Content.Fields("会社CD")
ElseIf PageType = "発信文書" Then
TorihikisakiCD = Content.Fields("取引先CD")
End If
If PageType = "受信文書" Then
Addr = Replace(Addr, "Syorui", "SenpoSyorui")
End If
' If BunsyoSyuruiCD = "BH" Then
' Response.Write("" & vbCrLf)
' ElseIf PageType = "受信文書" Then
If PageType = "受信文書" Then
Response.Write(" " & vbCrLf)
Else
Response.Write(" " & vbCrLf)
End If
Response.Write("| ")
If Content.Fields("削除フラグ") = 1 Then
Response.Write("x")
End If
Response.Write(" | ")
Response.Write("" & Hasshinbi & " | " & vbCrLf)
If BunsyoSyuruiCD <> "BH" Then
Response.Write("" & ConvKubunMeisyo("口座区分", KozaKubun) & " | " & vbCrLf)
End If
If BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then
If "" & Content.Fields("手形作成会社CD") <> "" Then
Response.Write(" " & ConvKaisyaRyakuMeisyo(Content.Fields("手形作成会社CD")) & " | " & vbCrLf)
Else
Dim FurikomisakiKoza
If "" & Content.Fields("振込先口座区分") <> "" Then
FurikomisakiKoza = GetKozaSyoyuKaisyaCD(EnshuCD, Content.Fields("振込先銀行CD"), Content.Fields("振込先口座区分"), Content.Fields("振込先口座番号"))
Else
FurikomisakiKoza = "その他"
End If
Response.Write(" " & FurikomisakiKoza & " | " & vbCrLf)
End If
End If
If BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BA" Or BunsyoSyuruiCD = "BB" Or BunsyoSyuruiCD = "BC" Then
Response.Write("" & ConvIntToMoney(Content.Fields("金額"), false ,false) & " | " & vbCrLf)
End If
Response.Write(" " & Content.Fields("摘要") & " | " & vbCrLf)
' Response.Write("" & BunsyoKubunMeisyo & " | " & vbCrLf)
If SenpoFlg = 1 Then
Response.Write("")
If KaifuFlg = 0 Then
Response.Write("未")
Else
Response.Write("済")
End If
Response.Write(" | " & vbCrLf)
ElseIf GinkoIraiHozon = "1" Then
Response.Write("")
If "" & Content.Fields("発行フラグ") = "1" Then
Response.Write("済")
Else
Response.Write("未")
End If
Response.Write(" | " & vbCrLf)
End If
ii = ii + 1
Response.Write(" ")
End If
End If
Content.MoveNext
Loop
For jj = ii To 30
Response.Write("" & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
If BunsyoSyuruiCD <> "BH" Then
Response.Write(" | " & vbCrLf)
End If
If BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BE" Or BunsyoSyuruiCD = "BF" Or BunsyoSyuruiCD = "BG" Then
Response.Write(" | " & vbCrLf)
End If
If BunsyoSyuruiCD = "BD" Or BunsyoSyuruiCD = "BA" Or BunsyoSyuruiCD = "BB" Or BunsyoSyuruiCD = "BC" Then
Response.Write(" | " & vbCrLf)
End If
Response.Write(" | " & vbCrLf)
If SenpoFlg = 1 Or GinkoIraiHozon = "1" Then
Response.Write(" | " & vbCrLf)
End If
Response.Write(" ")
Next
%>
|
|
|
|