" & vbCrLf)
If ConvEnshuKubun(EnshuCD) = "P" Then
Response.Write("" & ConvGakuseiShimei(ConvKaisyaGakuseiNo(EnshuCD, Content.Fields("会社CD"))) & " | " & vbCrLf)
Else
Response.Write("" & Content.Fields("会社CD") & " | " & vbCrLf)
End If
Response.Write("" & Content.Fields("会社略名称") & " | " & vbCrLf)
Response.Write("" & Content.Fields("処理日") & " | " & vbCrLf)
Response.Write("" & Content.Fields("作成会社略名称") & " | " & vbCrLf)
Response.Write("")
If Content.Fields("文書種類CD") = "SU" Then Response.Write("通常") Else Response.Write("返品") End If
Response.Write(" | " & vbCrLf)
Response.Write("" & Content.Fields("文書内容CD") & " | " & vbCrLf)
Dim TmpSyohin
TmpSyohin = ""
Dim TmpSoGokei
TmpSoGokei = 0
Dim SyohinEtc
SyohinEtc = 0
Query = "exec SPD入出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & Content.Fields("会社CD") & "', '" & Content.Fields("作成会社CD") & "', '" & Content.Fields("文書種類CD") & "', '" & Content.Fields("文書内容CD") & "'"
Set Content2 = OpenQuery(Query)
Do While Not(Content2.BOF Or Content2.EOF)
If TmpSyohin = "" Then
TmpSyohin = ConvSyohinRyakuMeisyo(Content2.Fields("商品CD"))
ElseIf SyohinEtc = 0 Then
TmpSyohin = TmpSyohin & "、他"
SyohinEtc = 1
End If
TmpSoGokei = TmpSoGokei + (Content2.Fields("単価") * Content2.Fields("数量"))
Content2.MoveNext
Loop
Response.Write("" & TmpSyohin & " | " & vbCrLf)
Response.Write("" & SetMoney(TmpSoGokei, false, true) & " | " & vbCrLf)
Response.Write("
" & vbCrLf)
ii = ii + 1
Content.MoveNext
Loop
%>