|
処理日 |
取引先 |
<% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %> |
摘要 |
<% If SenpoBunsyoSyuruiCD <> "KK" And (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
If InStr(ShiireUriageKennin, "," & BunsyoSyuruiCD & ",") > 0 Then
Response.Write("検認 | ")
Response.Write("")
End If
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
' Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "','" & EnshuCD & "','', '', 'KM'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim bShow
bShow = 0
'自社文書の場合
If SenpoFlg <> 0 Then
'返信済み表示の場合
If ShowRet = "1" Then
bShow = 1
End If
'返信されていない
If ShowRet <> "1" And Content.Fields("返信フラグ") <> 1 Then
bShow = 1
End If
Else
'先方書類
bShow = 1
End If
'削除済み表示の場合
If ShowDel = "1" Then
bShow = bShow + 1
End If
'削除されていない
If ShowDel <> "1" And Content.Fields("削除フラグ") <> 1 Then
bShow = 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 = 2 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 (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
If InStr(ShiireUriageKennin, "," & BunsyoSyuruiCD & ",") > 0 Then
Response.Write("")
If "" & Content.Fields("検認フラグ") = "1" Then
Response.Write("済")
Else
Response.Write("未")
End If
Response.Write(" | " & vbCrLf)
End If
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 SenpoFlg = 0 And InStr(ShiireUriageKennin, "," & BunsyoSyuruiCD & ",") > 0 Then
Response.Write(" | " & vbCrLf)
End If
If SenpoBunsyoSyuruiCD <> "KK" And (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 %>
|
|