<% = AppTitle %>

処理日

取引先

配送日

摘要

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

<% Dim Query Dim Content Dim ii, jj ii = 0 If SenpoBunsyoSyuruiCD = "CB" Then Query = "exec SPC運送書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','','" & SenpoBunsyoSyuruiCD & "'" ElseIf 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 TorihikisakiMeisyo If SenpoBunsyoSyuruiCD = "KK" Or SenpoFlg = 0 Then TorihikisakiMeisyo = Content.Fields("取引先略名称") Else TorihikisakiMeisyo = Content.Fields("作成会社略名称") 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("処理日")) & "	" & TorihikisakiMeisyo & "	" & 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("