<% %> <% If BunsyoSyuruiCD <> "BU" Then %> <% End If %> <% If 0=1 And (BunsyoSyuruiCD = "BT" Or BunsyoSyuruiCD = "BS" Or BunsyoSyuruiCD = "BR") Then %> <% Else %> <% End If %> <% If SenpoBunsyoSyuruiCD <> "" Then %> <% ElseIf BunsyoSyuruiCD <> "BU" Then '残高証明書は受付許可で固定 %> <% End If %>

取引日

取引先

金額

取引内訳

振出人

摘要

開封

返信

受付

<% Dim Query Dim Content Dim Content2 '######### 2007.06.13 APPEND Dim SenpoShoruiCD Dim SenpoTekiyo Dim ii, jj, iiDef ii = 0 iiDef = -1 If SenpoFlg = 0 Then Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "','" & BunsyoSyuruiCD & "'" Else Query = "exec SPB銀行取引書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', '" & SenpoBunsyoSyuruiCD & "'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("削除フラグ") <> "1" Then Dim SakuseiKaisyaCD If BunsyoNaiyoCD = Content.Fields("文書内容CD") Then iiDef = ii End If If SenpoFlg = 0 Then SakuseiKaisyaCD = Content.Fields("取引先CD") Else SakuseiKaisyaCD = Content.Fields("作成会社CD") End If '先方書類重複処理警告のためクエリ文字列で返信フラグを送る（090715小野） If SenpoBunsyoSyuruiCD = "" Then Response.Write("" & vbCrLf) Else ' If Content.Fields("返信フラグ") = 1 Then If 1 = 0 Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If End If '########## 処理日、取引先、（取引内訳）、（金額）、摘要 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) '小切手・手形の場合はここで情報を取得 If Content.Fields("手形文書内容CD") <> "" Then Query = "exec SPK手形取得" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" Query = Query & ",'" & SakuseiKaisyaCD & "'" Query = Query & ",'" & Content.Fields("手形作成会社CD") & "'" Query = Query & ",'" & Content.Fields("手形文書種類CD") & "'" Query = Query & ",'" & Content.Fields("手形文書内容CD") & "'" Set Content2 = OpenQuery(Query) If Not(Content2.EOF Or Content2.BOF) Then TegataKingaku = Content2.Fields("金額") TegataSakuseiKaisha = ConvKaisyaMeisyoDx(EnshuCD,Content2.Fields("作成会社CD")) End If End If If BunsyoSyuruiCD <> "BU" Then If Content.Fields("手形文書内容CD") <> "" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If SenpoShoruiCD = Content.Fields("先方文書種類CD") If SenpoShoruiCD = "BA" OR SenpoShoruiCD = "BN" Then SenpoTekiyo = "口座開設" ElseIf SenpoShoruiCD = "BB" OR SenpoShoruiCD = "BO" Then SenpoTekiyo = "入金" ElseIf SenpoShoruiCD = "BC" OR SenpoShoruiCD = "BP" Then SenpoTekiyo = "払戻" ElseIf SenpoShoruiCD = "BD" OR SenpoShoruiCD = "BQ" Then SenpoTekiyo = "振込" ElseIf SenpoShoruiCD = "BE" OR SenpoShoruiCD = "BR" Then SenpoTekiyo = "小切手入金" ElseIf SenpoShoruiCD = "BF" OR SenpoShoruiCD = "BS" Then SenpoTekiyo = "手形取立" ElseIf SenpoShoruiCD = "BG" OR SenpoShoruiCD = "BT" Then SenpoTekiyo = "手形割引" ElseIf SenpoShoruiCD = "BH" OR SenpoShoruiCD = "BU" Then SenpoTekiyo = "残高証明" End If Response.Write("" & vbCrLf) End If If 0=1 And Content.Fields("手形文書内容CD") <> "" Then Response.Write("" & vbCrLf) Else Response.Write("" & vbCrLf) End If If SenpoBunsyoSyuruiCD <> "" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf BunsyoSyuruiCD <> "BU" Then '残高証明書は受付許可で固定 Response.Write("" & vbCrLf) End If ii = ii + 1 Response.Write("") End If Content.MoveNext Loop For jj = ii To 30 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) If BunsyoSyuruiCD <> "BU" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) End If Response.Write("" & vbCrLf) If SenpoBunsyoSyuruiCD <> "" Then Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ElseIf BunsyoSyuruiCD <> "BU" Then '残高証明書は受付許可で固定 Response.Write("" & vbCrLf) End If Response.Write("") Next %>

" & SetTimeYYYYMMDD(Content.Fields("処理日")) & "	" & ConvKaisyaMeisyoDx(EnshuCD, SakuseiKaisyaCD ) & "	" & ConvIntToMoney(TegataKingaku, false, false) & "	" & ConvIntToMoney(Content.Fields("金額"), false, false) & "	" & SenpoTekiyo & "	" & TegataSakuseiKaisha & "	" & Content.Fields("先方摘要") & "	") If SenpoBunsyoSyuruiCD = "" Then If Content.Fields("発行フラグ") = 1 Then Response.Write("済") Else Response.Write("未") End If Else If Content.Fields("開封フラグ") = 1 Then Response.Write("済") Else Response.Write("未") End If End If Response.Write("	") If Content.Fields("返信フラグ") = 1 Then Response.Write("済") Else Response.Write("未") End If Response.Write("	") If "" & Content.Fields("受付区分") = "Y" Then Response.Write("○") Else Response.Write("×") End If Response.Write("