|
|
|
|
|
|
| *複数行選択することが出来ます。
|
|
|
<%
Dim ii
ii = 0
Query = "exec SPC運送費請求一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & TorihikisakiCD & "','" & SyoriYMD & "'"
Dim Query1, Content1
Query1 = "exec SPC運送費請求書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
Dim bExist, BunsyoNaiyoCDGun, BunsyoNaiyoCDs, kk
bExist = 0
If ShowNoSend <> "1" Then
Set Content1 = OpenQuery(Query1)
Do While Not(Content1.BOF Or Content1.EOF)
If Content1.Fields("文書種類CD") = "CA" Then
If Content1.Fields("取引先CD") = TorihikisakiCD Then
BunsyoNaiyoCDGun = Content1.Fields("納品請求書番号群")
BunsyoNaiyoCDs = split(BunsyoNaiyoCDGun, ",")
For kk = 0 To UBound(BunsyoNaiyoCDs)
Dim tmpss
tmpss = split(BunsyoNaiyoCDs (kk), ":")
If UBound(tmpss) = 1 Then
If Content.Fields("会社CD") = tmpss(0) And Content.Fields("文書種類CD") = "KN" And Int(Content.Fields("文書内容CD")) = Int(tmpss(1)) Then
bExist = 1
End if
ElseIf UBound(tmpss) = 2 Then
If Content.Fields("会社CD") = tmpss(0) And Content.Fields("文書種類CD") = tmpss(1) And Int(Content.Fields("文書内容CD")) = Int(tmpss(2)) Then
bExist = 1
End if
End If
Next
End If
End If
Content1.MoveNext
Loop
End If
If bExist = 0 Then
Response.Write("" & vbCrLf)
' Response.Write("| " & Content.Fields("文書内容CD") & " | " & vbCrLf)
Response.Write("" & SetTimeYYYYMMDD(Content.Fields("処理日")) & " | " & vbCrLf)
Response.Write("" & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("取引先CD")) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("運送費"), false, false) & " | " & vbCrLf)
ii = ii + 1
Response.Write(" ")
End If
Content.MoveNext
Loop
Dim jj
For jj = ii To 15
Response.Write("" & vbCrLf)
' Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" | " & vbCrLf)
Response.Write(" ")
Next
%>
|
|
|
|
|
|
|
|