capital_calculate.asp

功能介绍： 1、产品入库

<!-- #include file="Inc/config.asp" -->
<!--#include file="inc/Dx_admin_check.asp"-->
<%
'入库表里的详细资金信息
keer="select count(*) as dx_ToDepot_num From [dx_ToDepot] where dx_ToDepot_now_count>0"
set rst=conn.execute(keer)
    dx_ToDepot_num=rst("dx_ToDepot_num")
    rst.close
i=dx_ToDepot_num
dim dx_ToDepot_List   '进货单号
dim dx_ToDepot_product   '商品编号
dim dx_ToDepot_ToNew   '次品回库
dim dx_ToDepot_buy_price   '进货价
dim dx_ToDepot_now_count   '现存数量
dim dx_ToDepot_capital   '总数
dim dx_ToDepot_capital_all   '资产总额
redim dx_ToDepot_List(i)
redim dx_ToDepot_product(i)
redim dx_ToDepot_ToNew(i)
redim dx_ToDepot_buy_price(i)
redim dx_ToDepot_now_count(i)
redim dx_ToDepot_capital(i)
sqlstr="select * from [dx_ToDepot] where dx_ToDepot_now_count>0"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_ToDepot_capital_all=0
  while not rs.eof
    dx_ToDepot_List(k)=rs("dx_ToDepot_List")
    dx_ToDepot_product(k)=rs("dx_ToDepot_product")
    dx_ToDepot_ToNew(k)=rs("dx_ToDepot_ToNew")
    dx_ToDepot_buy_price(k)=rs("dx_ToDepot_buy_price")
	dx_ToDepot_now_count(k)=rs("dx_ToDepot_now_count")
	dx_ToDepot_capital(k)=dx_ToDepot_buy_price(k)*dx_ToDepot_now_count(k)
	dx_ToDepot_capital_all=dx_ToDepot_capital_all+dx_ToDepot_capital(k)
	if dx_ToDepot_ToNew(k)>0 then
	  dx_ToDepot_capital_all=dx_ToDepot_capital_all+(dx_ToDepot_ToNew(k)*dx_ToDepot_now_count(k))
	end if
	k=k+1
  rs.movenext
  wend
  Num1=k-1
end if
rs.close
'-----------------------------------

'银行卡表里的详细资金信息
keer="select count(*) as dx_bank_num From [dx_bank]"
set rst=conn.execute(keer)
    dx_bank_num=rst("dx_bank_num")
    rst.close
i=dx_bank_num
dim dx_bank_num   '卡号
dim dx_bank_bank   '开户银行
dim dx_bank_money   '户头资金
dim dx_bank_capital   '银行总金额
redim dx_bank_num(i)
redim dx_bank_bank(i)
redim dx_bank_money(i)
sqlstr="select * from [dx_bank] order by dx_bank_id"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_bank_capital=0
  while not rs.eof
    dx_bank_num(k)=rs("dx_bank_num")
	dx_bank_bank(k)=rs("dx_bank_bank")
	dx_bank_money(k)=rs("dx_bank_money")
	dx_bank_capital=dx_bank_capital+dx_bank_money(k)
	k=k+1
  rs.movenext
  wend
  Num2=k-1
end if
rs.close
'-----------------------------------

'负债表里的详细资金信息
keer="select count(*) as dx_debt_num From [dx_debt] where dx_debt_now=0"
set rst=conn.execute(keer)
    dx_debt_num=rst("dx_debt_num")
    rst.close
i=dx_debt_num
dim dx_debt_money   '负债金额
dim dx_debt_about   '负债原因
dim dx_debt_capital   '负债累计金额
redim dx_debt_money(i)
redim dx_debt_about(i)
sqlstr="select * from [dx_debt] where dx_debt_now=0"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_debt_capital=0
  while not rs.eof
    dx_debt_money(k)=rs("dx_debt_money")
	dx_debt_about(k)=rs("dx_debt_about")
	dx_debt_capital=dx_debt_capital+dx_debt_money(k)
	k=k+1
  rs.movenext
  wend
  Num3=k-1
end if
rs.close
'-----------------------------------

'欠账表里的详细资金信息
keer="select count(*) as dx_accounts_num From [dx_accounts] where dx_accounts_now=0"
set rst=conn.execute(keer)
    dx_accounts_num=rst("dx_accounts_num")
    rst.close
i=dx_accounts_num
dim dx_accounts_money   '欠账金额
dim dx_accounts_about   '欠账原因
dim dx_accounts_capital   '欠账累计金额
redim dx_accounts_money(i)
redim dx_accounts_about(i)
sqlstr="select * from [dx_accounts] where dx_accounts_now=0"
rs.open sqlstr,conn,1,3
if not rs.eof then
  k=1
  dx_accounts_capital=0
  while not rs.eof
    dx_accounts_money(k)=rs("dx_accounts_money")
	dx_accounts_about(k)=rs("dx_accounts_about")
	dx_accounts_capital=dx_accounts_capital+dx_accounts_money(k)
	k=k+1
  rs.movenext
  wend
  Num4=k-1
end if
rs.close
'-----------------------------------

'系统数据库表里的详细资金信息
sqlstr="select top 1 * from [dx_site] order by dx_site_id desc"
rs.open sqlstr,conn,1,3 
if not rs.eof then
  dx_site_money=rs("dx_site_money")
end if
rs.close


dim dx_capital_all
dx_capital_all=dx_ToDepot_capital_all+dx_bank_capital-dx_debt_capital+dx_accounts_capital+dx_site_money
%>