<% = AppTitle %>

処理日

取引先

配送日

摘要

<% If SenpoBunsyoSyuruiCD = "" Then Response.Write("発信") Else Response.Write("開封") End If %>

<% Dim Query Dim Content Dim ii, jj ii = 0 If SenpoFlg = 0 Then Query = "exec SPC運送書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "','" & BunsyoSyuruiCD & "'" Else Query = "exec SPC運送書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','','" & SenpoBunsyoSyuruiCD & "'" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim bShow 'bShow = 0 bShow = 1 If ShowDel = 1 Then bShow = 1 End If If ShowDel <> 1 And Content.Fields("削除フラグ") <> 1 Then bShow = 1 End If '******** If ShowDel <> 1 And Content.Fields("削除フラグ") = 1 Then bShow = 0 End If 'If SenpoBunsyoSyuruiCD = "KK" And Content.Fields("開封フラグ") = 0 Then If SenpoBunsyoSyuruiCD = "CB" And Content.Fields("開封フラグ") = 0 Then bShow = 0 ' bShow = 1 End If If bShow = 1 Then Dim TorihikisakiCD ''''''''''''''''''''' If SenpoBunsyoSyuruiCD = "KK" Or BunsyoSyuruiCD = "KV" Then 'Response.Write "SenpoBunsyoSyuruiCD=" & SenpoBunsyoSyuruiCD 'Response.Write "----BunsyoSyuruiCD=" & BunsyoSyuruiCD 'EXIT SUB If SenpoBunsyoSyuruiCD = "KK" Or SenpoFlg = 0 Then TorihikisakiCD = Content.Fields("取引先CD") Else TorihikisakiCD = Content.Fields("会社CD") End If Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") End If Content.MoveNext Loop For jj = ii To 15 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next %>

") If Content.Fields("削除フラグ") = 1 Then Response.Write("x") End If Response.Write("	" & Content.Fields("文書内容CD") & "	" & SetTimeYYYYMMDD(Content.Fields("処理日")) & "	" & ConvKaisyaRyakuMeisyo(TorihikisakiCD ) & "	" & SetTimeYYYYMMDD(Content.Fields("納入期日")) & "	" & Content.Fields("摘要") & "	") If SenpoBunsyoSyuruiCD = "" Then Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2)) Else 'Response.Write(ConvFlagMeisyo(Content.Fields("開封フラグ"), 2)) End If Response.Write("