financelist_right.asp

一个比较完整的企业erp系统

		    updatetime = Rs("updatetime")
		    uaid = Rs("uaid")
			inorout = isNumber(Rs("inorout"),"int",0)
			ftypeName = SelectZD("select ftypeName from incfinancetype where ftypeid = " & ftypeid & "","未知")
			intoName = SelectZD("select TrueName from admins where aid = " & aid & "","未知")
			supplierid = isNumber(Rs("supplierid"),"int",0)
%>
            <tr ondblclick = "javascript:SDD('financeview.asp?fid=<%=financeid%>','adminview',300,320,'');" style = 'background-color:#ffffff;cursor: default;text-align:center;' class = 'tempA' onclick="clicked_('<%=i_u-1%>');">

			   <td id = 'td__' style = 'text-align:center;padding:2px;'><%=financeid%></td>
			   <td id = 'td_'><%=Replace(fName & "",key_,"<span style = 'color:red;'>" & key_ & "</span>")%></td>
			   <td><%=ftypeName%></td>
			   <td style = 'text-align:left;'>￥<%=formatNumber(fMoney,2)%></td>
			   <td><%=intoName%></td>
			   <td><%=thisDate%></td>
			   <td><%=v1v2(inorout,0,"<span style = 'color:red;'>支出</span>","<span style = 'color:#000000;'>收入</span>")%></td>
			   <%
			   SupplierName_ = SelectZD("select FullName from supplier where uid =" & supplierid & "","其他")
			   %>
			   <td><%=v1v2(SupplierName_,"其他","(不在客商表内用户)","<a href = ""javascript:SDD('../supplier/supplierview.asp?uid=" & supplierid & "','supplierview',778,480,'');"">" & SupplierName_ & "</a>")%></td>
			   <td style ='text-align:left;'><%=StrLen(fRemark,30,"")%><input type = 'checkbox' name = 'box_' id = 'box_' value = '<%=financeid%>' style = 'visibility:hidden;height:10px;'/></td>
			   <td style = 'text-align:center;' id = 'selid_'><input type = 'checkbox' style = 'border-style:none;widht:15px;height:15px;' name = 'selAnnounce' onClick = "javascript:checked_(<%=i_u-1%>);" onfocus="this.blur();" value = '<%=financeid%>'/></td>
			</tr>

<%
        if inorout = 1 then financeinALL = financeinALL + fMoney'收入
        if inorout = 0 then financeoutALL = financeoutALL + fMoney'支出
        financeALL = financeALL + fMoney
        Rs.movenext
     next
	 Response.Write"<tr><td style = 'text-align:center;' colspan = '10'>" & PageWrite & "</td></tr>"
  else

%>
	        <tr  class = 'tempA'>
			   <td>&nbsp;<input type ='hidden' name = 'box_' value = ''/></td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;<input type = 'hidden' style = 'border-style:none;widht:15px;height:15px;' name = 'selAnnounce' value = ''/></td>
			</tr>


<%
  end if
  Rs.Close
%></form>
 <tr>
   <td colspan = '10' style = 'padding:5px;text-align:center;'>
   <fieldset style = 'width:100%;padding:8px;'><legend>相关信息 - 日期：<%=Dateinfo%></legend>
   总合计：￥<%=formatNumber(financeALL,2)%>　　其中收入合计为：￥<%=formatNumber(financeinALL,2)%>　　支出合计为：￥<%=formatNumber(financeoutALL,2)%>


<div style = 'text-align:left;line-height:17px;'>
<%
if not Rselsupplierid = 0 then

inorout_ = GetText("inorout","G","number",1,2,0)

SQL = "select identifyCode from usertype where uTypeid = (select uTypeSelect from usertype where uTypeid = (select utypeid from supplier where uid = " & Rselsupplierid & "))"
identifyCode = isNumber(SelectZD(SQL,3),"int",0)
identifyCodeName = v1v2(identifyCode,0,"客户","商家")

supplierName = SelectZD("select FullName from supplier where uid = " & Rselsupplierid & "","未知")


if identifyCode = 1 and inorout_ = 0 then
'选择多字段
'Public ZD(2)
'Call SAZD(SQL,ZD,"SAZDLast")
'Response.Write ZD(0)
'Response.Write ZD(1)
'Response.Write ZD(2)
SQL = ("select Sum(totalmoney),Sum(inpayment),Sum(nopayment) from stockm where supplierid = " & Rselsupplierid & DateSQL & "")
Public ZD(2)
Call SAZD(SQL,ZD,0)
thisSuppliertotalmoney = ZD(0)'进货总额
thisSupplierinpayment = ZD(1)'进货时已支付总额
thisSuppliernopayment = ZD(2)'进货表未支付总额
thisSupplierPayment = SelectZD("select Sum(paymoney) from payment where supplierid= " & Rselsupplierid & DateSQL & "",0)'后来支付表支付总额
thisSupplierincfinance = SelectZD("select Sum(fMoney) from incfinance where supplierid= " & Rselsupplierid & " and inorout = 0 and paymentid < 1 " & DateSQL & "",0)'后来财务表支付总额
nowNoPayment = thisSuppliertotalmoney - thisSupplierinpayment - thisSupplierPayment - thisSupplierincfinance
%><span style = 'color:blue;'>［<%=identifyCodeName & "：<span style ='color:#900000';>" & supplierName & "</span>"%> ］</span><br/>
·全部进货金额总数：￥<%=formatNumber(thisSuppliertotalmoney,2)%><br/>
·进货时已支付总数：￥<%=formatNumber(thisSupplierinpayment,2)%><br/>
·进货时所欠款总数：￥<%=formatNumber(thisSuppliernopayment,2)%><br/>
·进货后已支付总数：￥<%=formatNumber(thisSupplierPayment,2)%><br/>
·财务相关支付总数：￥<%=formatNumber(thisSupplierincfinance,2)%><br/>
·现在实际欠款总数：￥<%=formatNumber(nowNoPayment,2)%>（<a href = "javascript:javascript:SDD('<%=HOME_PATH%>supplier/ssList.asp?uid=<%=Rselsupplierid & "&DateStar=" & DateStar & "&DateEnd=" & DateEnd%>','mxss',800,520,'');">详细相关向其进货记录请点击这里查看</a>）<br/>
<%
end if




'///////////////////////////////////////////////////////////////////////////////////////
if identifyCode = 0  and inorout_ = 1 then

SQL = ("select Sum(Amount),Sum(AmountshuilvALL),Sum(nowpayment),Sum(nopayment),Sum(ZJ) from sale where supplierid = " & Rselsupplierid & DateSQL & "")

Public ZD0(4)
Call SAZD(SQL,ZD0,0)
thisSupplierAmount = isNumber(ZD0(0),"dec",0)'出售总额(未含税)
thisSupplierAmountshuilvALL = isNumber(ZD0(1),"dec",0)'出售总额(已含税)
thisSuppliernowpayment = isNumber(ZD0(2),"dec",0)'出售时已支付总额
thisSuppliernopayment = isNumber(ZD0(3),"dec",0)'出售表未支付总额
thisSupplierZJ = isNumber(ZD0(4),"dec",0)'折减总额

thisSupplierPayment = isNumber(SelectZD("select Sum(paymoney) from payment where supplierid= " & Rselsupplierid & DateSQL & " and inorout = 1",0),"dec",0)'后来支付表收款总额
thisSupplierincfinance = isNumber(SelectZD("select Sum(fMoney) from incfinance where supplierid= " & Rselsupplierid & " and inorout = 1 and paymentid < 1 " & DateSQL & "",0),"dec",0)'后来财务表收款总额
nowNoPayment = thisSupplierAmountshuilvALL - thisSuppliernowpayment - thisSupplierZJ - thisSupplierPayment - thisSupplierincfinance
%><span style = 'color:red;'>［<%=identifyCodeName & "：<span style ='color:#900000';>" & supplierName & "</span>"%> ］</span><br/>
·全部购买金额总数：￥<%=formatNumber(thisSupplierAmountshuilvALL,2)%><br/>
·购买全部折减总数：￥<%=formatNumber(thisSupplierZJ,2)%><br/>
·购买时已支付总数：￥<%=formatNumber(thisSuppliernowpayment+thisSupplierZJ,2)%><br/>
·购买时所欠款总数：￥<%=formatNumber(thisSupplierAmountshuilvALL-(thisSuppliernowpayment+thisSupplierZJ),2)%><br/>
·购买后已支付总数：￥<%=formatNumber(thisSupplierPayment,2)%><br/>
·财务相关收款总数：￥<%=formatNumber(thisSupplierincfinance,2)%><br/>
·现在实际欠款总数：￥<%=formatNumber(nowNoPayment,2)%>（<a href = "javascript:javascript:SDD('<%=HOME_PATH%>supplier/ssList.asp?uid=<%=Rselsupplierid & "&DateStar=" & DateStar & "&DateEnd=" & DateEnd%>','mxss',800,520,'');">详细相关购买收款记录请点击这里查看</a>）<br/>
<%
end if







end if
%>
</div>





   </fieldset><br/>
   </td>
 </tr>
</table>
<%
  if trim(Request.Form("Options")) = "delTrue" then 
	 ExecuteList = c01.splitList(trim(Request.Form("Execute")),",",0)
     SQL = "delete from incfinance where financeid in(" & ExecuteList & ")"
	 'Response.Write SQL
	 SQLTABPayment = "delete from payment where paymentid in(select paymentid from incfinance where financeid in(" & ExecuteList & "))"'删除支付时同时记录的相关记录

	 Conn.Execute(SQLTABPayment)
     Conn.Execute(SQL)'主在后面
     Response.Write viewinfo("divLoca","正在执行删除操作．请稍候…","")
     Response.Write viewinfo("LocaTimeself","",SELVAR("FN","financelist_right.asp"))
  end if
Set c01 = Nothing
ConnClose()
if trim(Request.Form("Searched")) = "Y" then Response.Redirect(LinkFile & "?" & LUrl)

%>
</div>
</body>
</html>