📄 mlistview.asp

📁 一个比较完整的企业erp系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Frameset//EN">
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%><html>
  <head>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%
  if isLogin = false then
     Response.Write viewinfo("LoginC","","")
	 Response.end
  end if
  Public title
  set c01 = new CL01
  stockmid = isNumber(trim(Request("stockmid")),"int",0)
  SQL = "select * from stockm where stockmid = " & stockmid & ""
  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")
     elsePayment_ = SelectZD("select Sum(paymoney) from payment where paymenttoid = " & stockmid_ & " and supplierid = " & supplierid_ & "",0)'别的支付
	 SQL = "select * from supplier where uid = " & supplierid_ & ""
     c01.Supplierinfo
     title = "明细订货单：(" & stockNum_ & ")"
  else
     stockmid_ = 0
	 intoaid_ = 0
     selectaid_ = 0
     title = "该订货单不存在"
  end if
  Rs.Close
  Response.Write stockNum
%>
<title><%=title%></title>
<meta http-equiv=content-type content="text/html; charset=gb2312">
<meta content="mshtml 6.00.2800.1528" name=generator>
<meta content=frontpage.editor.document name=progid></head>
<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>
<style>
.bar{font:12px;color: #000000;border:1px solid buttonface;cursor:default;behavior:url(<%=HOME_PATH%>css/button.htc);}

.up1{ background-color: buttonface; border-left: 1px solid buttonhighlight; border-right: 1px solid buttonshadow;color: #FF9900;border-top: 1px solid buttonhighlight; border-bottom: 1px solid buttonshadow;padding: 1px }

.down1{ background-color: buttonface; border: 1 inset buttonhighlight;padding: 0;cursor:default; }

.tempA input {height:19px;}

.tempB { border-top:0px solid #ffffff;border-right:0px solid #ffffff;border-left:0px solid #ffffff;border-bottom:1px solid #848284;background-color:transparent;}

.tempC {border-left: 1px solid buttonhighlight; border-right: 1px solid buttonshadow;color:
        #FF9900;border-top: 1px solid buttonhighlight; border-bottom: 1px solid buttonshadow;}

.tLine {behavior:url(<%=HOME_PATH%>sale/dtable.htc)}
.tempD {border-top:solid 1px #fff;border-left:solid 1px #fff;border-right:solid 1px
        #d6d3ce;border-bottom:solid 1px #d6d3ce;}

.tempE {border-style:none;height:15px;width:100%;}
.tempF {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px 
           #d6d3ce;border-bottom:solid 1px #d6d3ce;}
.tempG input {text-align:center;}
</style>

<script type = 'text/javascript'>
<!--//
function newSupplier() {
    if(replace_(form.supplierName.value," ","")=='') {
	   alert('请选择一个供应商！');
	   form.supplierName.focus();
	   return false ;
	}else{
	   var Flen = form.lena.length ;
	   if(Flen==undefined) {
	      var inHow_ = replace_(form.inHow.value,' ',"")
	      if(inHow_=='' || isNaN(inHow_)) { 
		     alert('请在第［0］输入进货数量！');
			 form.inHow.value = '0';
			 form.inHow.focus();
			 return false ;
		  }
		  if(inHow_==0) {
		     alert('请在第［0］输入大于0 的进货数量！');
			 form.inHow.focus();
			 return false ;
		  }
	      if(replace_(form.cName.value," ","") == '') {
		     alert('您没有输入商品名称！');
			 form.cName.focus();
			 return false ;
		  }
		  if(form.mTypeSelect.value=='') {
		     alert('请选择商品类别！');
			 form.mTypeSelect.focus();
			 return false ;
          }
	   }else{
	      for(i=0 ; i<Flen ; i++) {
		      inHow_ = replace_(form.inHow[i].value," ","")
	          if(inHow_=='' || isNaN(inHow_)) { 
		         alert('请在第［'+[i]+'］输入进货数量！');
			     form.inHow[i].value = '0';
			     form.inHow[i].focus();
			     return false ;
		      }
		      if(inHow_==0) {
		         alert('请在第［'+i+'］输入大于0 的进货数量！');
			     form.inHow[i].focus();
			     return false ;
		      }
	          if(replace_(form.cName[i].value," ","") == '') {
		         alert('第['+i+']行您没有输入商品名称！');
			     form.cName[i].focus();
			     return false ;
		      }
		      if(form.mTypeSelect[i].value=='') {
		         alert('请选择第['+i+']行的商品类别！');
			     form.mTypeSelect[i].focus();
			     return false ;
              }
	      }
	   }

	   var cNameSum = 0 ;
	   var ii_ = '';
       for(var i=0 ; i< Flen ; i++) {
	       var cNv1 = form.cName[i].value ;
		   for(var ii = 0 ; ii < Flen ; ii++) {
		       if(ii!=i) {
	             if(form.cName[i].value==form.cName[ii].value){ 
				    cNameSum = cNameSum+1 ;
					ii_ = ii ;
			     }
		       }
		   }
	       if(cNameSum > 0) {
	          alert('行['+i+']和行['+ii_+']的商品名称重复！请删除其中一项！');
		      return false;
	       }
	   }

	   return confirm('即将保存更新后的进货单．请按确定保存！');
	   return true;
	}
} 
var supplier_ = null ;
function Opensupplier() {
    supplier_ = window.showModalDialog('<%=HOME_PATH%>supplier/selectsupplierlist.asp?identifyCode=1','','dialogWidth:780px;dialogHeight:400px;scroll:yes;help:no;status:no;center:yes;edge:raised;');
   if (supplier_!=null) {
       document.form.supplierCode.value = supplier_[0];
       document.form.supplierid.value = supplier_[1];
       document.form.supplierName.value = supplier_[2];
       document.form.Linkman.value = supplier_[3] + " " + supplier_[4];
	 }
 }

var admin_ = null ;
function adminList() {
    admin_ = window.showModalDialog('<%=HOME_PATH%>admin/selectadminlist.asp','','dialogWidth:750px;dialogHeight:400px;scroll:yes;help:no;status:no;center:yes;edge:raised;');
   if (admin_!=null) {
       document.form.aid.value = admin_[0];
       document.form.Loginid.value = admin_[1];
       document.form.TrueName_Phone.value = admin_[2];
	 }
 }




var v_ = null ;
var sel = '';
var v = 0 ;
function ChangePrice() {
var AmountALL = 0;
var Amount_ = 0 ;
    var CLen = form.lena.length ;
	if(CLen==undefined) {
	   var inHowV = Number(document.form.inHow.value) ;
	   var inPriceV = Number(document.form.inPrice.value) ;

	   if(isNaN(inHowV) || isNaN(inPriceV)){
	      inHowV=0;
		  inPriceV=0;
		  document.form.inHow.value = 0 ;
		  document.form.inPrice.value = 0 ;
	   }

	   var Amount_ = inPriceV * inHowV
	       if(inHowV==0 || inPriceV==0)Amount_=0;
		   document.form.Amount.value = Amount_ ;
		   AmountALL = Amount_ ;
    }else{
	    for(ii = 0 ; ii < CLen ; ii++) {
	        var inHowV = Number(document.form.inHow[ii].value) ;
	        var inPriceV = Number(document.form.inPrice[ii].value) ;

	        if(isNaN(inHowV) || isNaN(inPriceV)){
			   inHowV=0;
			   inPriceV=0;
               document.form.inHow[ii].value = 0
			   document.form.inPrice[ii].value = 0
			}
	        var Amount_ = inPriceV * inHowV
			if(inHowV==0 || inPriceV==0)Amount_=0;
			document.form.Amount[ii].value = Amount_
            AmountALL+=Amount_
		}
	}
	var nowpayment_ = form.nowpayment.value ; if(isNaN(nowpayment_)) { nowpayment_ = 0 }
        form.AmountALL.value = AmountALL ;
		nopayment_ = AmountALL - nowpayment_ ;
		form.nopayment.value = nopayment_ ; //未支付
}





//str = ",.123456,01,poo"
//document.write(replace_(replace_(str,",","，"),".","点"));
//document.write(str.substr(0,1));

//-->
</script>

</head>
<body style = 'margin:0px;background-color:menu;border-style:none;' scroll = 'no'>
<div style = 'text-align:center;'>

<%
Options = trim(Request.Form("Options"))
if Options = "update" then
   indexDate = SELVAR("thisDate"," ")
   thisDate = trim(Request.form("thisDate"))'日期(搜索用)
   if not isDate(thisDate) then thisDate = indexDate


   supplierid = isNumber(trim(Request.form("supplierid")),"int",0)'经销商id
   
   stockid = trim(Request.form("stockid"))'子记录id
   Code = trim(Request.form("Code"))'商品代码
   cName = trim(Request.form("cName"))'商品名称
   inHow = trim(Request.form("inHow"))'进货数量
   inPrice = trim(Request.form("inPrice"))'进货价
   outPrice = trim(Request.form("outPrice"))'出售价
   guarantyTime = trim(Request.form("guarantyTime"))'保修期
   cRemark = trim(request.form("cRemark"))'备注
   mTypeSelect = trim(Request.form("mTypeSelect"))'所属类别
   Lena = trim(Request.form("lena"))'行数


   LenaList = c01.splitList(Lena,",",0)
   UboundCount_ = Ubound(Split(LenaList,","))

   Supplierid_ = SelectZD("select uid from supplier where uid = " & supplierid & "",0)
   dim thisupdate
   thisupdate = 0
   for i_m = 0 to UboundCount_
       MTS = isNumber(tempSplit(mTypeSelect,",",i_m,0),"int",0)
       if MTS = 0 or Supplierid_ = 0 then
	      thisupdate = thisupdate
		  exit for
	   else
	      thisupdate = thisupdate+1
	   end if
   next


   if thisupdate > 0 and not Supplierid_ = 0 then
	   SQL = "select * from stockm where stockmid = " & stockmid & ""
	   Rs.Open(SQL),Conn,1,3
	   if not Rs.eof then
		  Rs("plNum") = htmlencode(GetText("plNum","P","Str",1,110,"none"),"Y")'发票号
		  Rs("supplierid") = GetText("supplierid","P","number",1,10,0)'商家id
		  Rs("thisDate") = thisDate
		  Rs("updatetime") = now '最后更新时间

		  AmountALL_ = GetText("AmountALL","P","number",1,10,0) '该单总价格
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -