|
|
|
|
|
<%
Dim Query
Dim Content
Dim i
Dim RowCount, RowBreakNum
Dim SyoriA, SyoriB
Dim ii, jj
SyoriB = 0
ii = 0
RowCount = 0
RowBreakNum = 5
Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'"
Set Content = OpenQuery(Query)
Dim KarikataZandakaTotal, KashikataZandakaTotal
Dim KarikataKingakuTotal, KashikataKingakuTotal
KarikataZandakaTotal = 0
KashikataZandakaTotal = 0
KarikataKingakuTotal = 0
KashikataKingakuTotal = 0
Do While Not(Content.BOF Or Content.EOF)
RowCount = RowCount + 1
Dim SyohinCD, ZaikoKingaku, ZaikoSu
Dim NyukoKingaku, NyukoSu , NyukoTanka
SyohinCD = Content.Fields("商品CD")
NyukoSu = Content.Fields("入庫数")
NyukoKingaku= Content.Fields("入庫金額")
' SyoriA = Content.Fields("処理日")
' If SyoriA > SyoriB Then
' SyoriB = SyoriA
' End If
If IsNull(NyukoSu) or NyukoSu= "" Then
Nyukosu = 0
End If
If IsNull(NyukoKingaku) or NyukoKingaku = "" Then
NyukoKingaku = 0
End If
If NyukoSu <> 0 Then
NyukoTanka = NyukoKingaku / NyukoSu
Else
NyukoTanka = 0
End If
ZaikoSu = Content.Fields("在庫数")
ZaikoKingaku = NyusyukoZaikoKingaku(EnshuCD, KaisyaCD, SyohinCD, Syuryobi)
Response.Write("" & vbCrLf)
Response.Write("| " & SyohinCD & " | ")
Response.Write("" & ConvSyohinMeisyo(SyohinCD) & " | ")
Response.Write("" & ConvIntToMoney(ZaikoSu , false, false) & " | ")
Response.Write("" & ConvIntToMoney(ZaikoKingaku , false, false) & " | ")
Response.Write(" " & vbCrLf)
ii = ii + 1
Content.MoveNext
Loop
%>
|
|
|
|