|
|
|
|
|
<%
Dim i
Dim RowCount, RowBreakNum
Dim ii, jj
ii = 0
RowCount = 0
RowBreakNum = 5
If RouteType = "Zairyo" Then
Query = "exec SPR材料入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'"
ElseIf RouteType = "Seihin" Then
Query = "exec SPR製品入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'"
Else
Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Syuryobi & "'"
End If
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("入庫金額")
'##### For Debug
'Response.Write("*** EXEC Query Start ***
")
'Response.Write("SyohinCD :" & SyohinCD & "
")
'Response.Write("KaisyaCD :" & KaisyaCD & "
")
'Response.Write("Syuryobi :" & Syuryobi & "
")
'Response.Write("NyukoSu :" & NyukoSu & "
")
'Response.Write("NyukoKingaku:" & NyukoKingaku & "
")
'Response.Write("NyukoTanka :" & NyukoTanka & "
")
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("在庫数")
'##### For Debug
'Response.Write("*** Zaikosu Display ***
")
'Response.Write("ZaikoSu :" & ZaikoSu & "
")
'''''''' ZaikoKingaku = ZaikoSu Content.Fields("在庫金額")
'''''''' ZaikoKingaku = ZaikoSu * Int(NyukoTanka)
'##### For Debug
'Response.Write("*** ZaikoKinaku Calculation ***
")
'Response.Write("SyohinCD :" & SyohinCD & "
")
'Response.Write("KaisyaCD :" & KaisyaCD & "
")
'Response.Write("Syuryobi :" & Syuryobi & "
")
ZaikoKingaku = NyusyukoZaikoKingaku(EnshuCD, KaisyaCD, SyohinCD, Syuryobi)
Response.Write("" & vbCrLf)
If RouteType = "Zairyo" Then
Response.Write("| " & ConvZairyoMeisyo(SyohinCD) & " | ")
Else
Response.Write("" & ConvSyohinMeisyo(SyohinCD) & " | ")
End If
Response.Write("" & ConvIntToMoney(ZaikoSu , false, false) & " | ")
' Response.Write("" & ConvIntToMoney(ZaikoSu , false, false) & " | ")
' Response.Write("" & ConvIntToMoney(ZaikoKingaku , false, false) & " | ")
Response.Write(" " & vbCrLf)
ii = ii + 1
Content.MoveNext
Loop
%>
|
|
|
|