📄 sslist.asp
字号:
"<tr>" & _
"<td style = 'width:28%;'>全部销售总额(含税价)：￥" & formatNumber(outAmountshuilvCount,2) & "</td>" & _
"<td style = 'width:22%;'>财务相关收款：￥" & _
formatNumber(incfinancePaymentALL,2) & "</td>" & _
"<td style = 'width:28%;'>全部收款总额(含折减)：￥" & formatNumber(nowPaymenCount+incfinancePaymentALL,2) & "</td>" & _
"<td style = 'width:22%;'>全部欠款总额：￥" & formatNumber(noPaymentCount-incfinancePaymentALL,2) & "</td>" & _
"</tr></table>"
else
%>
<tr style = 'padding-left:3px;background-color:#ffffff;cursor: default;'>
<td style = 'text-align:center;padding:0px;background-color:buttonface;height:18px;'>×</td>
<td style = 'text-align:center;padding:0px;background-color:buttonface;'>0</td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
</tr>
<%
end if
Rs.Close
oRs.movenext
next
else
end if
oRs.Close
Set oRs = nothing
Case 1
%>
<tr style = 'padding-left:3px;'>
<td style = 'width:12px;text-align:center;height:18px;padding:0px;'><span style='font-family:webdings;'>8</span></td>
<td style = 'width:35px;text-align:center;padding:0px;'>序号</td>
<td>代码</td>
<td style = 'width:30px;'>名称</td>
<td style = 'width:auto;'>参考进价</td>
<td style = 'width:auto;'>参考销价</td>
<td style = 'width:60px;'>入库日期</td>
<td style = 'width:auto;text-align:center;'>录入者</td>
<td style = 'width:42px;'>进货数</td>
<td style = 'width:auto;'>总额</td>
<td style = 'width:42px;'>现库存</td>
<td style = 'width:42px;text-align:center;border-right:0px solid;'>可用性</td>
</tr>
<% SQLm = "select * from stockm where supplierid in(" & uid & ") " & DateSQL & " Order By thisDate Desc, stockmid Desc"
Set oRs = Server.CreateObject("Adodb.RecordSet")
oRs.Open(SQLm),Conn,1,1
if not oRs.eof then
SQL_ = "select Sum(totalmoney) , Sum(inpayment) from stockm where supplierid = " & uid & " " & DateSQL & ""
Set outSelect = Server.CreateObject("Adodb.RecordSet")
outSelect.Open(SQL_),Conn,1,1
if not outSelect.eof then
inpriceCount = outSelect(0)
inpaymentCount = outSelect(1)+SelectZD("select Sum(paymoney) from payment where supplierid = " & uid & " " & DateSQL & " ",0)
else
inpriceCount = 0
inpaymentCount = 0
end if
outSelect.Close
Set outSelect = Nothing
PageWrite = PaginatinoGoogle(oRs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
for i_oRs = 1 to thisPageSize
if oRs.eof then exit for
stockmid = oRs("stockmid")
stockNum = oRs("stockNum")
stocktotalmoney = oRs("totalmoney")'总额
stockminpayment = oRs("inpayment")'进货时支付
elsePayment_ = SelectZD("select Sum(paymoney) from payment where paymenttoid = " & stockmid & " and supplierid = " & uid & "",0)'别的支付
nownoPayment_ = (stocktotalmoney-stockminpayment-elsePayment_) '现在欠款
nowinPayment_ = (stockminpayment + elsePayment_)'总的支付
%>
<tr>
<td><span style='font-family:webdings;'>8</span></td>
<td style = 'text-align:center;'><div style = 'background-color:#08246B;color:#ffffff;'><%= stockmid%></div></td>
<td colspan = '10' style = 'border-right:0px solid;'>
进货编号：<a href="javascript:WindowOpen('<%=HOME_PATH%>merchandise/mListview.asp?stockmid=<%=stockmid%>','mListview',screen.availWidth-50,screen.availHeight-100,'');"><span style = 'color:blue;'><%=stockNum %></span></a>
总额：￥<%=FormatNumber(stocktotalmoney,2)%>
进时支付：￥<%=FormatNumber(stockminpayment,2)%>
进后支付：<a href="javascript:SDD('<%=HOME_PATH%>merchandise/paymentoutedList.asp?paymenttoid=<%=stockmid%>','paymentedto',600,350,'');">￥<%=FormatNumber(elsePayment_,2)%></a>
总支付：￥<%=FormatNumber(nowinPayment_,2)%>
现在欠款：￥<%=FormatNumber(nownoPayment_,2)%>
</td>
</tr>
<%
inpriceALL = inpriceALL + stocktotalmoney'当页进货总额
inpaymentALL = inpaymentALL + nowinPayment_ '当页支付总额
SQL = "select * from stock where supplierid = " & uid & " " & DateSQL & " and isstockid = " & stockmid & ""
Rs.Open(SQL),Conn,1,1
if not Rs.eof then
thisCount = Rs.RecordCount
for i_i = 1 to thisCount
if Rs.eof then exit for
sid = Rs("stockid")'
supplierid = isNumber(Rs("supplierid"),"int",0)'相应供应商id
mtypeid = Rs("mtypeid")'所属商品类别id
Code = Rs("Code")'代码
stockmid = isNumber(Rs("isstockid"),"int",0)
stockNum = Rs("stockNum")'进货编号
cName = Rs("cName")'中文名
eName = Rs("eName")'英文名
eRemark = Rs("eRemark")'英文备注
cRemark = Rs("cRemark")'中文备注
typeCode = Rs("typeCode")'型号条码
Quality = Rs("Quality") '性质
inprice = isNumber(Rs("inprice"),"dec",0)'参考进货价
outprice = Rs("outprice")'参考预出售价
inhow = isNumber(Rs("inhow"),"dec",0)'数量
unit = Rs("unit")'单位
total = Rs("total")'总价格
inpayment = isNumber(Rs("inpayment"),"dec",0)'已支付给供应商
intotime = Rs("intotime")'进货时间
updatetime = Rs("updatetime")'最后修改时间
guarantyTime = Rs("guarantyTime")'保修期
guarantyRemark = Rs("guarantyRemark")'保修期备注
stockMax = Rs("stockMax")'库存上限
stockMin = Rs("stockMin")'库存下限
thisDate = Rs("thisDate")'
aid = isNumber(Rs("aid"),"int",0)'
inName = SelectZD("select TrueName from admins where aid = " & aid & "","未知")
auid = Rs("auid")'
disabled = isNumber(Rs("disabled"),"int",0)'
inModel = Rs("inModel")'入库模式-是直接录入或销售时同步录入
outHow = SelectZD("select Sum(outHow) from salelist where stockid = " & sid & "",0)
elsePayment_ = SelectZD("select Sum(paymoney) from payment where paymenttoid = " & stockmid & " and supplierid = " & uid & "",0)'别的支付
nownoPayment_ = (nopayment_-elsePayment_) '现在欠款
nowinPayment_ = (inpayment_ + elsePayment_)'总的支付
if not i_i = thisCount then Pic = "├" else Pic = "└"
%>
<tr ondblclick = "javascript:SDD('<%=HOME_PATH%>merchandise/mview.asp?stockid=<%=sid%>','mview',430,638,'');" style = 'background-color:#ffffff;' class = 'tempA' style='cursor: default;'>
<td style = 'text-align:center;padding:0px;background-color:buttonface;height:18px;'>×</td>
<td style = 'text-align:center;padding:0px;background-color:buttonface;text-align:left;'><%=Pic & " " & sid%></td>
<td style = 'text-align:center;'class = 'tempF'><input type = 'text' value = '<%=c01.HtmlF(Code)%>' readOnly = 'true'/></td>
<td class = 'tempF'><input type = 'text' value = '<%=c01.HtmlF(cName)%>' onclick = "javascript:SDD('<%=HOME_PATH%>merchandise/mview.asp?stockid=<%=sid%>','mview',430,638,'');" readOnly = 'true'/></td>
<td class = 'tempF'>￥<%=FormatNumber(inprice,2)%></td>
<td class = 'tempF'>￥<%=FormatNumber(outPrice,2)%></td>
<td class = 'tempF'><%=thisDate%><input type = 'checkbox' name = 'box_' id = 'box_' value = '<%=sid%>' style = 'visibility:hidden;height:10px;width:10px;'/></td>
<td class = 'tempF' style = 'text-align:center;'><%=inName%></td>
<td class = 'tempF' style = 'text-align:center;'><%=inhow%></td>
<td class = 'tempF'>￥<%=formatNumber(inprice*inHow,2)%></td>
<td class = 'tempF' style = 'text-align:center;'><%=inhow-outHow%></td>
<td style = 'text-align:center;border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 0px #848284;border-bottom:solid 1px #d6d3ce;'><%=v1v2(disabled,1,"<span style = 'color:#000'>可用</span>","<span style = 'color:#808080;'>禁用</span>")%></td>
</tr>
<%
'inpriceALL = inpriceALL + (inprice*inHow)
'inpaymentALL = inpaymentALL + inpayment
Rs.movenext
next
'//////////////////////////////////////////////////////////////////////////////////////////////
incfinancePayment = SelectZD("select Sum(fMoney) from incfinance where supplierid = " & uid & " " & DateSQL & " and inorout = 0 and not ftypeid = 0 ",0)'财务表相关支付
incfinancePaymentALL = SelectZD("select Sum(fMoney) from incfinance where supplierid = " & uid & " and inorout = 0 and not ftypeid = 0 ",0)
'//////////////////////////////////////////////////////////////////////////////////////////////
Bottom_info ="<div style = 'text-align:center;padding:3px;' class='LinkA'>" & PageWrite & "</div>" & _
"<fieldset style = 'width:99%;text-align:left;'><legend>相关信息 - 日期：" & Dateinfo & "</legend><table style = 'width:100%;' cellspacing = '0' cellpadding = '2' class = 'tempG'>" & _
"<tr>" & _
"<td style = 'width:25%;'>·当页进货总额：￥" & formatNumber(inpriceALL,2) & "</td>" & _
"<td style = 'width:25%;'>·财务相关支付：￥" & formatNumber(incfinancePayment,2) & "</td>" & _
"<td style = 'width:25%;'>·当页已付总额：￥" & formatNumber(inpaymentALL+incfinancePayment,2) & "</td>" & _
"<td style = 'width:25%;'>·当页欠款总额：￥" & formatNumber(inpriceALL-inpaymentALL-incfinancePayment,2) & "</td>" & _
"</tr></table>" & _
"<table style = 'width:100%;' cellspacing = '0' cellpadding = '2' class = 'tempG'>" & _
"<tr>" & _
"<td style = 'width:25%;'>·全部进货总额：￥" & formatNumber(inpriceCount,2) & "</td>" & _
"<td style = 'width:25%;'>·财务相关支付：￥" & formatNumber(incfinancePaymentALL,2) & "</td>" & _
"<td style = 'width:25%;'>·全部已付总额：￥" & formatNumber(inpaymentCount+incfinancePaymentALL,2) & "</td>" & _
"<td style = 'width:25%;'>·全部欠款总额：￥" & formatNumber(inpriceCount-inpaymentCount-incfinancePaymentALL,2) & "</td>" & _
"</tr></table></fieldset>"
%>
<%
else
%>
<tr style = 'padding-left:3px;background-color:#ffffff;'>
<td style = 'text-align:center;padding:0px;background-color:buttonface;height:18px;'>×</td>
<td style = 'text-align:center;padding:0px;background-color:buttonface;'>0</td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td style = 'text-align:center;border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #848284;border-bottom:solid 1px #d6d3ce;'> </td>
</tr>
<%
end if
Rs.Close
oRs.movenext
next
else
Bottom_info =""
end if
oRs.close
Set oRs = nothing
end Select
%>
</table></td></tr></table><%=Bottom_info%></div>
<%
ConnClose()
Set c01 = nothing%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -