📄 paymentmlist.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%
supplierid = GetText("supplierid","G","number",1,10,0)
SQL = "select * from supplier where uid = " & supplierid & ""
Set c01 = new CL01
c01.Supplierinfo
%>
<%Public title:title = "向商家(" & USFullName & "-" & USLinkman & ")的进货记录"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title><%
if isLogin = false then
Response.Write viewinfo("Logingo","","")
Response.end
end if
%><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<style type = 'text/css'>
.tempA td {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
.clicked { background-color:#08246B;color:#ffffff;border-left:solid 0px #fff;border-right:solid 0px #d6d3ce;border-top:solid 0px #ffffff;}
.clickedtab tr td{ background-color:#08246B;color:#ffffff;border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
</style>
<script language="JavaScript">
<!--
function clickedm_(s) {
var tdm_len = tdm_.length;
if (tdm_len == undefined) {
tdm_.className = 'clicked';
form.boxm_.checked = true;
}else{
for(i_ = 0 ; i_<tdm_len;i_++) {
if(s!=i_) {
tdm_[i_].className = '';
form.boxm_[i_].checked = false;
}else{
tdm_[i_].className = 'clicked';
form.boxm_[i_].checked = true;
}
}
}
}
function checkedm(s) {
var mLen = form.selAnnouncem.length ;
if (mLen==undefined) {
if(form.selAnnouncem.checked == true) {
selidm_.className = 'clicked' ;
if(isObjcet(tab0)){tab0.className = 'clickedtab' ;}
}else{
selidm_.className = '' ;
tab0.className = '' ;
}
}else{
if(form.selAnnouncem[s].checked == true) {
selidm_[s].className = 'clicked';
var tab_ = eval('tab'+s) ;
tab_.className = 'clickedtab' ;
}else{
selidm_[s].className = '';
var tab_ = eval('tab'+s)
tab_.className = '' ;
}
}
}
//-->
</script>
<!--onClick="this.value=check(this.form.del_producr)-->
</head>
<body style = 'background-color:#fff;margin:5px;background-color:buttonface;'>
<div style = 'text-align:center;'>
<div style = 'text-align:center;padding:5px;'><%=title%></div>
<table border = '1' cellspacing = '0' cellpadding = '1' borderColorLight='#848284' borderColorDark='#eeeeee' style = 'width:100%;background-color:buttonface;table-layout:fixed; word-break:break-all;' class = 'LinkA'/>
<form method='post' action="<%=SELvar("FN","?")%>" name = 'form'>
<input type = 'hidden' name = 'Options'/>
<input type = 'hidden' name = 'Execute'/>
<input type = 'hidden' name = 'movetosupplierid'/>
<input type = 'hidden' name = 'movetomtypeid'/>
<tr style = 'text-align:left;'>
<td style = 'width:40px;height:20px;text-align:center;'>序号</td>
<td style = 'width:100px;'>进货编号</td>
<td style = 'width:150px;'>所属商家</td>
<td style = 'width:70px;'>总金额</td>
<td style = 'width:70px;'>已支付</td>
<td style = 'width:70px;'>未支付</td>
<td style = 'width:auto;'>备注</td>
</tr>
<%
sql = "select * from stockm where supplierid = " & supplierid & " Order by thisDate Desc , stockmid desc"
Set oRs = Server.CreateObject("Adodb.RecordSet")
oRs.open(sql),Conn,1,1
if not oRs.eof then
LinkFile = SELVAR("FN","adminlist_right.asp")
LUrl = "maintypeid=" & Rmainid & "&subtypeid=" & Rsubid & "&sel=" & sel & "&key=" & key_ & "&updateStock=" & updateStock
dim uCount , KCJZinprice , KCJZoutprice , PCount
KCJZinprice = 0
KCJZoutprice = 0
thisPageSize = 20
PCount = 5 '当前页的前面和后面显示页数
dim i_mm
i_mm = 0
PageWrite = PaginatinoGoogle(oRs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
for oRs_i = 1 to thisPageSize
if oRs.eof then exit for
stockmid_ = oRs("stockmid")
stockNum_ = oRs("stockNum")
plNum_ = oRs("plNum")
supplierid_ = oRs("supplierid")
totalmoney_ = oRs("totalmoney")
inpayment_ = oRs("inpayment")
nopayment_ = oRs("nopayment")
intotime_ = oRs("intotime")
updatetime_ = oRs("updatetime")
thisDate_ = oRs("thisDate")
intoaid_ = oRs("intoaid")
uaid_ = oRs("uaid")
selectaid_ = oRs("selectaid")
Remark_ = oRs("Remark")
SQL = "select * from stock where isstockid = " & stockmid_ & " Order by stockid Desc"
%>
<tr style = 'text-align:left;background-color:#eeeeee' ondblclick = "javascript:WindowOpen('<%=HOME_PATH%>merchandise/mListview.asp?stockmid=<%=stockmid_%>','mListview',screen.availWidth-50,screen.availHeight-100,'');" onclick = "javascript:clickedm_(<%=oRs_i-1%>);">
<td style = 'text-align:center;background-color:buttonface;height:22px;' ><%=stockmid_%></td>
<td id = 'tdm_' onclick = "javascript:var pay = Array('<%=stockNum_%>','<%=stockmid_%>','<%=USFullName & "-" & USLinkman%>');returnValue = pay ; window.close();"><%=stockNum_%><input type = 'hidden' name = 'boxm_' value = '<%=stockmid_%>'/></td>
<td><a href="javascript:SDD('<%=HOME_PATH%>supplier/supplierview.asp?uid=<%=supplierid_%>','supplierview',778,480,'');"><%=Replace(USFullName,key_,"<span style = 'color:red;'><b>" & key_ & "</b></span>")%></a></td>
<td>￥<%=FormatNumber(totalmoney_,2)%></td>
<td>￥<%=FormatNumber(inpayment_,2)%></td>
<td>￥<%=FormatNumber(nopayment_,2)%></td>
<td style = 'text-align:left;'><%=Remark_%> </td>
</tr>
<%
Rs.Open(SQL),Conn,1,3
if not Rs.eof then
session("sel") = ""
%>
<tr>
<td style = 'background-color:buttonface;'> </td>
<td colspan = '6' style = 'padding:0px;border-top:solid 0px;border-left:solid 0px;'>
<table border = '1' cellspacing = '0' cellpadding = '1' borderColorLight='#848284' borderColorDark='#eeeeee' style = 'width:100%;border-bottom:0px solid;border-right:0px solid;border-top:0px solid;border-left:0px solid;table-layout:fixed; word-break:break-all;' class = 'LinkA' id = 'tab<%=oRs_i-1%>'>
<tr style = 'text-align:center;background-color:buttonface;'>
<td style ='height:17px;width:40px;'>序号</td>
<td style ='width:80px;'>代码</td>
<td style ='width:auto;'>名称</td>
<td style ='width:80px;'>类别</td>
<td style ='width:70px;'>进价</td>
<td style ='width:70px;'>销价</td>
<td style ='width:70px;'>入库日期</td>
<td style ='width:44px;'>进货数</td>
<td style ='width:44px;'>已销售</td>
<td style ='width:44px;'>现库存</td>
<td style ='width:34px;'>返修</td>
<td style = 'width:42px;text-align:center;'>可用性</td>
</tr>
<%
for i_u = 1 to Rs.RecordCount
if Rs.eof then exit for
sid = Rs("stockid")'
supplierid = isNumber(Rs("supplierid"),"int",0)'相应供应商id
mtypeid = isNumber(Rs("mtypeid"),"int",0)'所属商品类别id
Code = Rs("Code") & ""'代码
cName = Rs("cName") & ""'中文名
eName = Rs("eName")'英文名
eRemark = Rs("eRemark")'英文备注
cRemark = Rs("cRemark")'中文备注
typeCode = Rs("typeCode")'型号条码
Quality = Rs("Quality") '性质
inprice = Rs("inprice")'参考进货价
outprice = Rs("outprice")'参考预出售价
inhow = Rs("inhow")'数量
unit = Rs("unit")'单位
total = Rs("total")'总价格
inpayment = Rs("inpayment")'已支付给供应商
intotime = Rs("intotime")'进货时间
updatetime = Rs("updatetime")'最后修改时间
guarantyTime = Rs("guarantyTime")'保修期
guarantyRemark = Rs("guarantyRemark")'保修期备注
stockMax = Rs("stockMax")'库存上限
stockMin = Rs("stockMin")'库存下限
thisDate = Rs("thisDate")'
aid = Rs("aid")'
auid = Rs("auid")'
disabled = isNumber(Rs("disabled"),"int",0)'
inModel = Rs("inModel")'入库模式-是直接录入或销售时同步录入
SubCode = SelectZD("select Code from mtype where mtypeid = " & mtypeid & "","未知")
if updateStock = "YES" then
Rs("outhowed") = SelectZD("select Sum(outHow) from salelist where stockid = " & sid & "",0)'同步更新商品库存
Rs.update
else
upChecked = ""
end if
serviceCount = SelectZD("select Count(proserviceid) from ProductsService where stockid = " & sid & "",0)
outHow = Rs("outhowed") 'SelectZD("select Sum(outHow) from salelist where stockid = " & sid & "",0)
nowKc = inhow-outHow
KCJZinprice = KCJZinprice+(nowKc*inprice)
KCJZoutprice = KCJZoutprice+(nowKC*outprice)
%>
<tr ondblclick = "javascript:WindowOpen('mview.asp?stockid=<%=sid%>','mview',430,608,'');" style = 'background-color:#ffffff;cursor: default;' class = 'tempA'>
<td style = 'text-align:center;'><%=sid%></td>
<td><%=SubCode & "-" & Replace(Code,key_,"<span style = 'color:red;'><b>" & key_ & "</b></span>")%></td>
<td><%=Replace(cName,key_,"<span style = 'color:red;'><b>" & key_ & "</b></span>")%></td>
<td><%=SelectZD("select mtypename from mtype where mtypeid = " & mtypeid & "","未知")%></td>
<td>￥<%=FormatNumber(inprice,2)%></td>
<%outPrice_ = v1v2(sel,"P", Replace(FormatNumber(outprice,2),FormatNumber(isNumber(key_,"dec",0),2),"<span style = 'color:red;'>" & FormatNumber(isNumber(key_,"dec",0),2) & "</span>"),FormatNumber(outPrice,2))%>
<td>￥<%=outPrice_%></td>
<td><%=thisDate%><input type = 'checkbox' name = 'box_' id = 'box_' value = '<%=sid%>' style = 'visibility:hidden;height:10px;width:0px;'/></td>
<td style = 'text-align:center;'><%=inhow%></td>
<td style = 'text-align:center;'><%=outhow%></td>
<td style = 'text-align:center;'><%=nowKc%></td>
<td style ='text-align:center;'><%=serviceCount%></td>
<td style = 'text-align:center;'><%=v1v2(disabled,1,"<span style = 'color:#000'>可用</span>","<span style = 'color:#808080;'>禁用</span>")%></td>
</tr>
<%
i_mm = i_mm+1
Rs.movenext
next
%></table>
<%else%>
<span id = 'tab<%=oRs_i-1%>'/></span>
<span id = 'td_'/></span>
<input type = 'hidden' name = 'box_'/>
<input type = 'hidden' name = 'selAnnounce' value = ''/>
<%
end if
Rs.Close
Response.Write"</tr>"
oRs.movenext
next
Response.Write"<tr><td style = 'padding:5px;text-align:center;' colspan ='7'>" & PageWrite & "</td></tr>"
else
%>
<tr style = 'background-color:#ffffff;' >
<td style = 'background-color:buttonface;text-align:center;'>0</td>
<td class = 'tempA'> </td>
<td class = 'tempA'> </td>
<td class = 'tempA'> </td>
<td class = 'tempA'> </td>
<td class = 'tempA'> </td>
<td class = 'tempA'> </td>
</tr>
<%
end if
oRs.Close
Set oRs = Nothing
%>
</table>
</form>
<%
Set c01 = Nothing
if trim(Request.Form("Searched")) = "Y" then Response.Redirect(LinkFile & "?" & LUrl)
ConnClose()
Response.Write endtime*1000
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -