📄 paymentoutedlist.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
if isLogin = false then
Response.Write viewinfo("LoginC","","")
Response.end
end if
paymenttoid = GetText("paymenttoid","G","number",1,10,0)
SQL = "select * from stockm where stockmid = " & paymenttoid & ""
set c01 = new CL01
Rs.Open(SQL),Conn,1,1
if not Rs.eof then
stockmid_ = Rs("stockmid")
stockNum_ = Rs("stockNum")
plNum_ = Rs("plNum")
supplierid_ = Rs("supplierid")
totalmoney_ = Rs("totalmoney")
inpayment_ = Rs("inpayment")
nopayment_ = Rs("nopayment")
intotime_ = Rs("intotime")
updatetime_ = Rs("updatetime")
thisDate_ = Rs("thisDate")
intoaid_ = Rs("intoaid")
uaid_ = Rs("uaid")
selectaid_ = Rs("selectaid")
Remark_ = Rs("Remark")
title = "进货编号为（" & stockNum_ & "）的支付记录"
SQL = "select * from supplier where uid = " & supplierid_ & ""
c01.Supplierinfo
else
stockmid_ = 0
supplierid_ = 0
title = ""
end if
Rs.Close
SQL = "select * from payment where paymenttoid = " & paymenttoid & ""
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title>
<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>
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/dateselect.js'></script>
<script language="JavaScript" type = 'text/javascript'>
<!--
function checked_(s) {
if(form.selAnnounce.length==undefined){
if(form.selAnnounce.checked == true) {
selid_.className = 'clicked';
}else{
selid_.className = '';
}
}else{
if(form.selAnnounce[s].checked == true) {
selid_[s].className = 'clicked';
}else{
selid_[s].className = '';
}
}
}
function clicked_(s) {
var td_len = td_.length;
if (td_len == undefined) {
td_.className = 'clicked';
form.box_.checked = true;
}else{
for(i_ = 0 ; i_<td_len;i_++) {
if(s!=i_) {
td_[i_].className = 'tempF';
form.box_[i_].checked = false;
}else{
td_[i_].className = 'clicked';
form.box_[i_].checked = true;
}
}
}
}
function che(sel) {
if(sel=='del') {
var che_len = document.form.box_.length
var sel_len = document.form.selAnnounce.length
var vinfo = '';
var vinfo_ = '';
var vinfobox = '';
var vinfobox_ = '';
var vinfosel = '';
var vinfosel_ = '';
if(sel_len==undefined) {
var selAnnounceCheck = document.form.selAnnounce.checked
var selAnnounceValue = document.form.selAnnounce.value ;
var box_Check = document.form.box_.checked ;
var box_Value = document.form.box_.value ;
if(selAnnounceCheck == true) {
vinfosel = selAnnounceValue ;
}else{
vinfosel = '';
}
if(box_Check == true) {
vinfobox = box_Value ;
}else{
vinfobox = '';
}
vinfosel_+=vinfobox
vinfobox_+=vinfobox
}else{
for(i_sel = 0; i_sel < sel_len ; i_sel++) {
var selAnnounceCheck = document.form.selAnnounce[i_sel].checked
var selAnnounceValue = document.form.selAnnounce[i_sel].value + "," ;
var box_Check = document.form.box_[i_sel].checked ;
var box_Value = document.form.box_[i_sel].value ;
if(selAnnounceCheck == true) {
vinfosel = selAnnounceValue ;
}else{
vinfosel = '';
}
if(box_Check == true) {
vinfobox = box_Value ;
}else{
vinfobox = '';
}
vinfosel_+=vinfosel
vinfobox_+=vinfobox
}
}
if (!vinfosel_ == '') {vinfo_ = vinfosel_;}else{vinfo_ = vinfobox_;}
if(vinfo_!='') {
var vinfo_Split = vinfo_.split(",")
vinfo_SplitLen = vinfo_Split.length
var str_ = '';
for(i = 0 ; i < vinfo_SplitLen-1;i++) {
if(i!==vinfo_SplitLen-2) {
str = vinfo_Split[i] + "," ;
}else{
str = vinfo_Split[i]
}
str_+=str
}
if(str_ == '')str_ = vinfo_ ;
document.form.Execute.value = str_ ;
con = confirm('即将删除记录：\n' + str_ + '\n是否继续？');
if(con) {form.submit();}else{return false;}
}else{
return false;
}
}
}
//-->
</script>
<style>
html{min-width: 776px;}
fieldset {padding:3px;}
.tempF {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;}
.bar{font:12px; background:buttonface;color: #000000;border:1px solid buttonface;cursor:default;behavior:url(<%=HOME_PATH%>css/button.htc);}
</style>
<base target = '_self'>
</head>
<body style = 'margin:5px;background-color:buttonface;border-style:none;' onkeydown = "javascript:if(event.keyCode==116){window.location.reload();}">
<div style = 'text-align:center;'>
<form method='post' action="" name = 'form'>
<fieldset style = 'width:100%;line-height:18px;text-align:left;'><legend>进货单（<%=stockNum_%>）的支付记录 - 进货日期：<%=thisDate_%></legend>
<div style = 'width:60%;float:left;'>·商家：<span style = 'color:blue;'><%=USFullName & " - " & USLinkman & " - " & USLinkPhone %></span><br/>
·该单总金额：￥<%=formatNumber(totalmoney_,2)%><br/>
·进货时支付：￥<%=formatNumber(inpayment_,2)%><br/></div>
<div style = 'width:40%;text-align:right;float:right;' id = 'seldelete'></div>
</fieldset>
<input type = 'hidden' name = 'uid' value = '<%=uid%>'/>
<input type = 'hidden' name = 'Execute'/>
<input type = 'hidden' name = 'Options' value = 'delete'/>
<div style = 'width:100%;height:200px; left:0px; top:0px;z-index:1; overflow-y: auto;overflow-x:hidden;text-align:center;border:0px solid red;padding: 0px;'>
<table cellpadding='0' cellspacing='0' borderColorLight='#848284' borderColorDark='#ffffff' border = '1' class = 'LinkA' style = 'width:100%;background-color:buttonface;'>
<tr style = 'padding-left:3px;'>
<td style = 'width:12px;text-align:center;height:20px;padding:0px;'><span style='font-family:webdings;text-align:center;padding:0px;'>8</span></td>
<td style = 'width:35px;text-align:center;'>序号</td>
<td style = 'width:80px;'>金额</td>
<td style = 'width:65px;'>日期</td>
<td style = 'width:65px;'>支付人</td>
<td style = 'width:65px;'>操作员</td>
<td style = 'width:auto;'>其他说明</td>
<td style = 'width:30px;padding:0px;text-align:center;'><input name = '' type = 'button' style = 'border-style:none;' onClick="this.value=sel(this.form.selAnnounce,'反选','全选',selid_,'clicked');" value = '全选' onfocus="this.blur();"/></td>
</tr>
<%
paymenttoid = GetText("paymenttoid","G","number",1,10,0)
SQL = "select * from payment where paymenttoid = " & paymenttoid & " and supplierid = " & supplierid_ & ""
Rs.Open(SQL),Conn,1,1
if not Rs.eof then
thisPageSize = 20
LinkFile = SELVAR("FN","supplierview.asp")
LUrl = "uid=" & uid & "&DateStar=" & DateStar & "&DateEnd=" & DateEnd
PageWrite = PaginatinoGoogle(Rs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
for i_i = 1 to thisPageSize
if Rs.eof then exit for
paymentid = Rs("paymentid")
paymoney = Rs("paymoney")
thisDate = Rs("thisDate")
intotime = Rs("intotime")
intoaid = isNumber(Rs("intoaid"),"int",0)
selectaid = isNumber(Rs("selectaid"),"int",0)
Remark = Rs("Remark")
'Conn.Execute("update payment set inorout = 0 where paymentid = " & paymentid & "")
%>
<tr style = 'padding-left:3px;background-color:#ffffff;' onclick = "javascript:clicked_(<%=i_i-1%>);">
<td style = 'padding-left:0px;background-color:buttonface;'>×</td>
<td style = 'text-align:center;background-color:buttonface;'><%=paymentid%></td>
<td class = 'tempF' id = 'td_'>￥<%=formatNumber(paymoney,2)%></td>
<td class = 'tempF'><%=thisDate%></td>
<td class = 'tempF' style = 'font-family:Arial,宋体;'><%=SelectZD("select TrueName from admins where aid = " & selectaid & "","未知")%></td>
<td class = 'tempF' style = 'font-family:Arial,宋体;'><%=SelectZD("select TrueName from admins where aid = " & intoaid & "","未知")%></td>
<td class = 'tempF'><input type = 'text' style = 'width:90%;border-style:none;background-color:transparent;' value = '<%=c01.HtmlF(Remark)%>'/><input type = 'checkbox' name = 'box_' id = 'box_' value = '<%=paymentid%>' style = 'visibility:hidden;height:10px;'/></td>
<td style = 'border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #848284;border-bottom:solid 1px #d6d3ce;text-align:center;' id = 'selid_'><input type = 'checkbox' style = 'border-style:none;widht:15px;height:15px;' name = 'selAnnounce' onClick = "javascript:checked_(<%=i_i-1%>);" onfocus="this.blur();" value = '<%=paymentid%>'/></td>
</tr>
<%
paymoney_ = paymoney_+paymoney
Rs.movenext
next
%>
<tr>
<td colspan = '8' style = 'text-align:left;padding:3px;height:25px;'><div style = 'text-align:left;'>后来支付总金额：￥<%=formatnumber(paymoney_,2)%> <span style = 'color:red;'>总支付：<%=formatnumber(paymoney_+inpayment_,2)%></span></div>
</td>
</tr>
<script type = 'text/javascript'>
<!--
seldelete.innerHTML = '<div class = "bar" style = "width:35px; height:33px;"><a href = "javascript:form.submit();" onclick = "javascript:return che(\'del\');" /><img src="../images/del00.gif" width="35" height="33" border="0" alt="删除"></a></div>'
//-->
</script>
<%
else
%>
<script type = 'text/javascript'>
<!--
seldelete.innerHTML = '<div class = "bar" style = "width:35px; height:33px;"><img src="../images/del00.gif" width="35" height="33" border="0" alt="删除"></div>'
//-->
</script>
<tr style = 'background-color:#ffffff;'>
<td style = 'padding-left:0px;background-color:buttonface;'>×</td>
<td style = 'text-align:center;background-color:buttonface;'>0</td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> </td>
<td class = 'tempF'> <input type = 'checkbox' name = 'box_' id = 'box_' value = '' style = 'visibility:hidden;height:10px;'disabled='true'/></td>
<td style = 'border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #848284;border-bottom:solid 1px #d6d3ce;' id = 'selid_'><input type = 'checkbox' style = 'border-style:none;widht:15px;height:15px;' name = 'selAnnounce' onClick = "javascript:checked_(0);" onfocus="this.blur();" value = '' disabled='true'/></td>
</tr>
<%
paymoney_ = 0
end if
Rs.Close
%>
</table>
</form></td>
</tr>
</table>
<div style ='text-align:center;padding:5px;'>该单实际欠款：<span style = 'color:blue;'>￥<%=formatnumber(totalmoney_-inpayment_-paymoney_,2)%></span></div>
</div>
<%
if trim(Request.Form("Options")) = "delete" then
ExecuteList = c01.splitList(trim(Request.Form("Execute")),",",0)
SQL = "delete from payment where paymentid in(" & ExecuteList & ")"
'Response.Write SQL
SQLincfinance = "delete from incfinance where paymentid in(" & ExecuteList & ") and ftypeid = 0 and inorout = 0 "
Conn.Execute(SQL)
Response.Write viewinfo("divLoca","正在执行删除操作．请稍候…","")
Response.Write viewinfo("CloseTime","2000","window.returnValue = 'parent.right';")
end if
Set c01 = Nothing
ConnClose()
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -