|
処理日 |
取引先 |
<% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %> |
摘要 |
<% If SenpoBunsyoSyuruiCD <> "KK" And (Session(HomeAlias & "ShiireUriageJHB") = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KW" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY") Then %>
<%
If BunsyoSyuruiCD <> "KK" And SenpoFlg = 0 Then
Response.Write("発信")
Else
Response.Write("開封")
End If %> |
<% End If %>
<% If HenshinFlgHyoji = 1 Then %>
返信 |
<% End If %>
|
<%
Dim Query
Dim Content
Dim ii, jj
ii = 0
If BunsyoSyuruiCD = "KK" Then
Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '', 'KU'"
ElseIf SenpoBunsyoSyuruiCD = "KK" Then
Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', 'KU'"
ElseIf SenpoFlg = 0 Then
Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "'"
Else
Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '', '" & SenpoBunsyoSyuruiCD & "'"
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim bShow
bShow = 0
If ShowDel = 1 Then
bShow = 1
End If
If ShowDel <> 1 And Content.Fields("削除フラグ") <> 1 Then
bShow = 1
End If
'注文請書確認が必要なモードのみ未確認を除外(090928小野)
If UkeshoKakunin = 1 And SenpoBunsyoSyuruiCD = "KK" And Content.Fields("開封フラグ") = 0 Then
' If SenpoBunsyoSyuruiCD = "KK" And Content.Fields("開封フラグ") = 0 Then
bShow = 0
AlertFlg = 1
End If
If bShow = 1 Then
Dim Torihikisaki
If SenpoBunsyoSyuruiCD = "KK" Or SenpoFlg = 0 Then
Torihikisaki = Content.Fields("取引先略名称")
Else
Torihikisaki = Content.Fields("作成会社略名称")
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("" & Torihikisaki & " | " & vbCrLf)
Response.Write("" & SetTimeYYYYMMDD(Content.Fields("納入期日")) & " | " & vbCrLf)
Response.Write("" & Content.Fields("摘要") & " | " & vbCrLf)
If SenpoBunsyoSyuruiCD <> "KK" And (Session(HomeAlias & "ShiireUriageJHB") = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KW" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY") Then
If BunsyoSyuruiCD <> "KK" And SenpoFlg = 0 Then
Response.Write("")
Response.Write(ConvFlagMeisyo(Content.Fields("発行フラグ"), 2))
Response.Write(" | " & vbCrLf)
Else
Response.Write("")
Response.Write(ConvFlagMeisyo(Content.Fields("開封フラグ"), 2))
Response.Write(" | " & vbCrLf)
End If
End If
If HenshinFlgHyoji = 1 Then
Response.Write("")
Response.Write(ConvFlagMeisyo(Content.Fields("返信フラグ"), 2))
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)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
If SenpoBunsyoSyuruiCD <> "KK" And (Session(HomeAlias & "ShiireUriageJHB") = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KV" Or BunsyoSyuruiCD = "KW" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY") Then
Response.Write(" | " & vbCrLf)
End If
If HenshinFlgHyoji = 1 Then
Response.Write(" | " & vbCrLf)
End If
Response.Write(" ")
Next
%>
|
<% If SenpoBunsyoSyuruiCD = "KK" And UkeshoKakunin = 1 And AlertFlg = 1 Then %>
※先方による注文請書確認が済んでいない注文は表示されません。 |
<% End If %>
|
|