|
<% If Senpo = "1" Then %>
出庫依頼日
<% Else %>
出庫日
<% End If %>
|
出庫依頼会社 |
納入場所 |
<% If 1=0 Then %>
出庫 |
<% End If %>
|
<%
Dim ii, jj
ii = 0
If Senpo = "1" Then
Query = "exec SPD仕入売上書類一覧4 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '', 'KS'"
Else
Query = " SELECT * FROM TGA入出庫TRN "
Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 寄託会社CD = '" & KaisyaCD & "' AND 文書種類CD = 'SU' AND 有効フラグ = 1 "
Query = Query & " ORDER BY 処理日 DESC,会社CD DESC,文書内容CD DESC "
End If
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Not((Senpo = "1" And Content.Fields("発行フラグ") > 0) Or (Senpo <> "1" And Content.Fields("発行フラグ") < 1)) Then
Response.Write(" 0 Then Response.Write("_view") End If
Response.Write(".asp?BunsyoSyuruiCD=")
If Content.Fields("発行フラグ") > 0 And Content.Fields("文書種類CD") = "KS" Then Response.Write("SU") Else Response.Write(Content.Fields("文書種類CD")) End If
Response.Write("&BunsyoNaiyoCD=" & Content.Fields("文書内容CD") & "&SakuseiKaisyaCD=" & Content.Fields("作成会社CD") & "')"" onDblClick=""syokaibtn()"">" & vbCrLf)
Response.Write("| ")
If Senpo = "1" Then
Response.Write(Content.Fields("処理日"))
Else
Response.Write(Content.Fields("処理日"))
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
Response.Write(ConvKaisyaMeisyo(Content.Fields("作成会社CD")))
Response.Write(" | " & vbCrLf)
Response.Write("")
Response.Write(ConvKaisyaMeisyo(Content.Fields("先方寄託会社CD")))
Response.Write(" | " & vbCrLf)
If 0=1 Then
Response.Write("")
If Content.Fields("発行フラグ") = 0 Then
Response.Write("未")
Else
Response.Write("済")
End If
Response.Write(" | " & vbCrLf)
End If
ii = ii + 1
Response.Write(" ")
End If
Content.MoveNext
Loop
For jj = ii To 19
Response.Write("" & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
If 0 = 1 Then
Response.Write(" | " & vbCrLf)
End If
Response.Write(" ")
Next
%>
|
|
|
|