" & vbCrLf)
Response.Write("")
If UCase(GB_GakuseiNo) = UCase(AdminCode) Then
Response.Write(AscLeft(ConvSyohinMeisyoAdmin(Content.Fields("商品CD"),ConvKaisyaGakuseiNo(EnshuCD,KaisyaCD)),24)) '商品名称を24byteで切捨て(061101小野)
Else
Response.Write(AscLeft(ConvSyohinMeisyo(Content.Fields("商品CD")),24)) '商品名称を24byteで切捨て(061101小野)
End If
Response.Write(" | " & vbCrLf)
Dim ShukkoASP
Dim NyukoASP
NyukoASP = " onclick=""tblbtn2('/" & HomeAlias & "/user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SS')"" style=""cursor:hand"""
ShukkoASP = " onclick=""tblbtn2('/" & HomeAlias & "/user/bk/shiireuriage/fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=SU')"" style=""cursor:hand"""
If KitakuRiyo = "1" Or CheckLink <> "1" Then
ShukkoASP = ""
NyukoASP = ""
End If
Response.Write("" & ConvIntToMoney(Content.Fields("伝票仕入数量"), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("伝票仕入返品数量"), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("伝票売上数量"), false, true) & " | " & vbCrLf)
Response.Write("" & ConvIntToMoney(Content.Fields("伝票売上返品数量"), false, true) & " | " & vbCrLf)
Response.Write("")
If (Content.Fields("伝票仕入数量") = Content.Fields("入出庫仕入数量")) Or (IsNull(Content.Fields("伝票仕入数量")) And IsNull(Content.Fields("入出庫仕入数量"))) then
Response.Write(ConvIntToMoney(Content.Fields("入出庫仕入数量"), false, true))
Else
Response.Write("" & ConvIntToMoney(Content.Fields("入出庫仕入数量"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If (Content.Fields("伝票仕入返品数量") = Content.Fields("入出庫仕入返品数量")) Or (IsNull(Content.Fields("伝票仕入返品数量")) And IsNull(Content.Fields("入出庫仕入返品数量"))) then
Response.Write(ConvIntToMoney(Content.Fields("入出庫仕入返品数量"), false, true))
Else
Response.Write("" & ConvIntToMoney(Content.Fields("入出庫仕入返品数量"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
Response.Write("")
If (Content.Fields("伝票売上数量") = Content.Fields("入出庫売上数量")) Or (IsNull(Content.Fields("伝票売上数量")) And IsNull(Content.Fields("入出庫売上数量"))) then
Response.Write(ConvIntToMoney(Content.Fields("入出庫売上数量"), false, true))
Else
Response.Write("" & ConvIntToMoney(Content.Fields("入出庫売上数量"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
' Response.Write("-------- | ")
Response.Write("")
If (Content.Fields("伝票売上返品数量") = Content.Fields("入出庫売上返品数量")) Or (IsNull(Content.Fields("伝票売上返品数量")) And IsNull(Content.Fields("入出庫売上返品数量"))) then
Response.Write(ConvIntToMoney(Content.Fields("入出庫売上返品数量"), false, true))
Else
Response.Write("" & ConvIntToMoney(Content.Fields("入出庫売上返品数量"), false, true) & "×")
End If
Response.Write(" | " & vbCrLf)
End If
End If
Content.MoveNext
Loop
%>