|
|
<%
Dim Query,Query2
Dim Content,Content2
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 & "', '" & TmpBunsyoSyuruiCD & "'"
'Response.Write(Query)
'Exit Sub
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
If SenpoBunsyoSyuruiCD = "KK" And Content.Fields("開封フラグ") = 0 Then
bShow = 0
End If
If ShukkoUkeshoHitsuyo = "3" And "" & Content.Fields("発行フラグ") <> "1" Then
bShow = 0
End If
If bShow = 1 Then
'TGA入出庫TRNを調べ、データがあれば出庫済みとする
' Query2 = "SELECT * FROM TGA入出庫TRN WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' AND 文書種類CD = 'SU' AND 先方仕入売上種類CD = 'KU' AND 先方仕入売上内容CD = '" & Content.Fields("文書内容CD") & "' AND 有効フラグ = '1' "
Query2 = "SELECT * FROM TGA入出庫TRN WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' AND 作成会社CD = '" & KaisyaCD & "' AND 文書種類CD = 'SU' AND 先方仕入売上種類CD = '" & TmpBunsyoSyuruiCD & "' AND 先方仕入売上内容CD = '" & Content.Fields("文書内容CD") & "' AND 削除フラグ = '0' "
Set Content2 = db.Execute(Query2)
If (Content2.BOF Or Content2.EOF) Then
Dim Torihikisaki
If SenpoBunsyoSyuruiCD = "KK" Or SenpoFlg = 0 Then
Torihikisaki = Content.Fields("取引先略名称")
Else
Torihikisaki = Content.Fields("作成会社略名称")
End If
'Response.Write("" & vbCrLf)
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)
Response.Write("")
Response.Write(" | " & vbCrLf)
ii = ii + 1
Response.Write(" ")
End If
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" Then
Response.Write(" | " & vbCrLf)
End If
If HenshinFlgHyoji = 1 Then
Response.Write(" | " & vbCrLf)
End If
Response.Write(" ")
Next
%>
|
|
|