" & vbCrLf)
Response.Write("")
If UCase(GB_GakuseiNo) = UCase(AdminCode) Then
Response.Write(AscLeft(ConvSyohinMeisyoAdmin(Content.Fields("商品CD"),ConvKaisyaGakuseiNo(EnshuCD,KaisyaCD)),22)) '商品名称を22byteで切捨て(061101小野)
Else
Response.Write(AscLeft(ConvSyohinMeisyo(Content.Fields("商品CD")),22)) '商品名称を22byteで切捨て(061101小野)
End If
Response.Write(" | " & 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("" & 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)
Response.Write("
" & vbCrLf)
End If
End If
Content.MoveNext
if RowCount => RowBreakNum And (RowCount Mod RowBreakNum = 0) then 'ページ終端の処理
Response.Write("