|
処理日 |
取引先 |
摘要 |
<%
If SenpoBunsyoSyuruiCD = "" Then
Response.Write("発信")
Else
Response.Write("開封")
End If %> |
|
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
Query = "exec SPC運送費請求書手動一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', 'CD'"
Set Content = OpenQuery(Query)
Dim bShow
Dim TorihikisakiCD
Do While Not(Content.BOF Or Content.EOF)
bShow = 1
If bShow = 1 Then
If SenpoBunsyoSyuruiCD = "KK" Or SenpoFlg = 0 Then
TorihikisakiCD = Content.Fields("取引先CD")
Else
TorihikisakiCD = Content.Fields("会社CD")
End If
Response.Write("" & vbCrLf)
Response.Write("| ")
If Content.Fields("削除フラグ") = 1 Then
Response.Write("x")
End If
Response.Write(" | " & vbCrLf)
Response.Write("" & SetTimeYYYYMMDD(Content.Fields("処理日")) & " | " & vbCrLf)
Response.Write("" & ConvKaisyaRyakuMeisyo(TorihikisakiCD ) & " | " & vbCrLf)
Response.Write("" & Content.Fields("摘要") & " | " & vbCrLf)
Response.Write("")
If SenpoBunsyoSyuruiCD = "" Then
Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2))
Else
'Response.Write(ConvFlagMeisyo(Content.Fields("開封フラグ"), 2))
End If
Response.Write(" | " & vbCrLf)
ii = ii + 1
Response.Write(" ")
End If
Content.MoveNext
Loop
Query = "exec SPC運送費請求書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
bShow = 1
If bShow = 1 Then
If SenpoBunsyoSyuruiCD = "KK" Or SenpoFlg = 0 Then
TorihikisakiCD = Content.Fields("取引先CD")
Else
TorihikisakiCD = Content.Fields("会社CD")
End If
Response.Write("" & vbCrLf)
Response.Write("| ")
If Content.Fields("削除フラグ") = 1 Then
Response.Write("x")
End If
Response.Write(" | " & vbCrLf)
Response.Write("" & SetTimeYYYYMMDD(Content.Fields("処理日")) & " | " & vbCrLf)
Response.Write("" & ConvKaisyaRyakuMeisyo(TorihikisakiCD ) & " | " & vbCrLf)
Response.Write("" & Content.Fields("摘要") & " | " & vbCrLf)
Response.Write("")
If SenpoBunsyoSyuruiCD = "" Then
Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2))
Else
'Response.Write(ConvFlagMeisyo(Content.Fields("開封フラグ"), 2))
End If
Response.Write(" | " & vbCrLf)
ii = ii + 1
Response.Write(" ")
End If
Content.MoveNext
Loop
For jj = ii To 30
Response.Write("" & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Next
%>
|
|
|