📄 materialtransaction.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
sysid=1
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "delivery","read"
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
if request("strvalue1")<>"" then strvalue3=request("strvalue1")
if request("strvalue2")<>"" then strvalue3=request("strvalue2")
if Request("strfield")<>"" then
if Request("strfield")<>"TransactDate1" then
strwhere=" and "&request("strfield")&" like '%"&request("strvalue")&"%'"
else
strwhere=" and "&request("strfield")&"='"&request("strvalue")&"'"
end if
end if
if Request.Form("strfield")<>"" then
if Request("strfield")<>"TransactDate1" then
strwhere=" and "&request("strfield")&" like '%"&request.Form("strvalue")&"%'"
else
strwhere=" and "&request("strfield")&"='"&request.Form("strvalue")&"'"
end if
end if
'response.write "select * from v_MaterialTransaction where "&strwhere&" order by Transactdate desc"
'response.end
rs.Open "select * from v_MaterialTransaction where sysaccountid="&sysid&" "&strwhere&" order by Transactid desc",conn,1,1
'搜索时用
selecttablename="v_MaterialTransaction where sysaccountid="&sysid
if Request.QueryString("CurPage") = "" or Request("CurPage") = 0 then
CurPage = 1
else
CurPage = cint(Request.QueryString("CurPage"))
end If
if not Rs.eof then
Rs.PageSize=session("PageSize")
Rs.AbsolutePage=CurPage
else
CurPage=0
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收/发货记录</title>
</head>
<SCRIPT language=JavaScript>
function relativeinput_onchange()
{
if (form1.strfield.value=='TransactDate1'){
dateformat.style.display='block';
}
if (form1.strfield.value!='TransactDate1'){
dateformat.style.display='none';
}
if (form1.strfield.value=="TransactCode"){
strvalue1.style.display='block';
strvalue2.style.display='none';
strvalue3.style.display='none';
strvalue4.style.display='none';
form1.strvalue2.value="";
form1.strvalue3.value="";
form1.strvalue4.value="";
}
if (form1.strfield.value=="Whse"){
strvalue1.style.display='none';
strvalue2.style.display='none';
strvalue3.style.display='block';
strvalue4.style.display='none';
form1.strvalue1.value="";
form1.strvalue2.value="";
form1.strvalue4.value="";
}
if (form1.strfield.value=="location"){
strvalue1.style.display='none';
strvalue2.style.display='none';
strvalue3.style.display='none';
strvalue4.style.display='block';
form1.strvalue1.value="";
form1.strvalue2.value="";
form1.strvalue3.value="";
}
if (form1.strfield.value!="TransactCode"&&form1.strfield.value!="Whse"&&form1.strfield.value!="location"){
strvalue1.style.display='none';
strvalue2.style.display='block';
strvalue3.style.display='none';
strvalue4.style.display='none';
form1.strvalue1.value="";
form1.strvalue3.value="";
form1.strvalue4.value="";
}
}
function GetStrValue()
{
if (form1.strfield.value=="TransactCode"){
form1.strvalue.value=form1.strvalue1.value;
}
if (form1.strfield.value!="TransactCode"&&form1.strfield.value!="Whse"&&form1.strfield.value!="location"){
form1.strvalue.value=form1.strvalue2.value;
}
if (form1.strfield.value=="Whse"){
form1.strvalue.value=form1.strvalue3.value;
}
if (form1.strfield.value=="location"){
form1.strvalue.value=form1.strvalue4.value;
}
if (form1.strfield.value=='TransactDate1'){
if(form1.strvalue.value==""){
alert("请输入搜索日期!");
return false;
}
if(CheckDate(document.form1.strvalue.value)){
alert("请输入正确格式的日期!");
return false;
}
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="MaterialTransaction.asp" onsubmit="return GetStrValue();">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10%">
<select name="strfield" onchange="relativeinput_onchange();">
<option value=TransactCode <%if request("strfield")="TransactCode" then Response.Write "selected"%>>收/发货类型</option>
<option value=TransactDate1 <%if request("strfield")="TransactDate1" then Response.Write "selected"%>>收/发货日期</option>
<option value=ProductCode <%if request("strfield")="ProductCode" then Response.Write "selected"%>>产品货号</option>
<option value=Model <%if request("strfield")="Model" then Response.Write "selected"%>>产品型号</option>
<option value=PONo <%if request("strfield")="PONo" then Response.Write "selected"%>>采购单号</option>
<option value=slipno <%if request("strfield")="slipno" then Response.Write "selected"%>>SLIP编号</option>
<option value=OrderNum <%if request("strfield")="OrderNum" then Response.Write "selected"%>>合同号</option>
<option value=Whse <%if request("strfield")="Whse" then Response.Write "selected"%>>仓库</option>
<option value=location <%if request("strfield")="location" then Response.Write "selected"%>>货位</option>
<option value=qty <%if request("strfield")="qty" then Response.Write "selected"%>>数量</option>
<option value=price <%if request("strfield")="price" then Response.Write "selected"%>>价格</option>
</select>
</td>
<td width="18%">
<div id=strvalue1 <%if request("strfield")="TransactCode" or request("strfield")="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue1" class="stedit">
<option value="">--请选择收/发货类型--</option>
<%getgrouptype selecttablename,"TransactCode",request("strvalue1")%>
</select></div>
<div id=strvalue2 <%if request("strfield")<>"TransactCode" and request("strfield")<>"Whse" and request("strfield")<>"location" and request("strfield")<>"" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue2" value="<%=request("strvalue2")%>">
</div>
<div id=strvalue3 <%if request("strfield")="Whse" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue3" class="stedit">
<option value="">--请选择仓库--</option>
<%getgrouptype selecttablename,"Whse",request("strvalue3")%>
</select></div>
<div id=strvalue4 <%if request("strfield")="location" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue4" class="stedit">
<option value="">--请选择货位--</option>
<%getgrouptype selecttablename,"location",request("strvalue4")%>
</select></div>
</td>
<td>
<input type=hidden name="strvalue" value="<%=request("strvalue")%>" >
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0>
<%
if CurPage<=1 then
Response.Write "<a href='MaterialTransaction.asp?strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='MaterialTransaction.asp?strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='MaterialTransaction.asp?strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='MaterialTransaction.asp?strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='MaterialTransaction.asp?strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='MaterialTransaction.asp?strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
<%if objcheck.CheckUserFunction2("Excel","edit") then%>
<!--<a href="../report/ExportToExcelSR.asp" target="_blank">导出销售记录</a> -->
<%end if%>
</td>
<td width=30%><div id=dateformat <%if request("strfield")="TransactDate1" then response.write "style=display:block" else response.write "style=display:none" end if%>>日期输入格式提示：YYYY-MM-DD</div></td>
</tr>
<tr>
<td height="25" colspan="4"><strong><font class=title><b>收/发货记录</b></font></strong>
</td>
</tr>
<tr >
<td height="16" colspan="4" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4 colspan="4"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="DECFAD">
<tr bgcolor="efefef">
<td height=15 align=center>日期</td>
<td height=15 align=center>收/发货类型</td>
<td align=center>产品货号</td>
<td align=center>产品型号</td>
<td align=center>采购单号</td>
<td align=center>SLIP编号</td>
<td align=center>合同号</td>
<td align=center>仓库</td>
<td align=center>货位</td>
<td align=center>数量</td>
<td align=center>成本</td>
<td align=center>价格</td>
</tr>
<%i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td align=center height=18><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=500, height=250','MaterialTransactiondetail.asp?transactid=<%=rs("transactid")%>');"><%=rs("Transactdate")%></a></td>
<td align=center height=18><%=rs("TransactCode")%><%if rs("reason")<>"" then%>(<font color=red><%=rs("reason")%></font>)<%end if%></a></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 200, top=100, menubar=no, location=no, toolbar=no ,width=500, height=250','../product/productdetail.asp?productid=<%=rs("productid")%>');"><%=rs("ProductCode")%></a></td>
<td align=center><%=rs("Model")%></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','../po/podetail.asp?poid=<%=rs("poid")%>');"><%=rs("PONo")%></a></td>
<td align=center><%=rs("slipno")%></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','../order/orderdetail.asp?orderid=<%=rs("orderid")%>');"><%=rs("OrderNum")%></a></td>
<td align=center><%=rs("Whse")%></td>
<td align=center><%=rs("location")%></td>
<td align=center><%=rs("qty")%></td>
<td align=center><%if objcheck.CheckUserFunction2("viewcost","read") then Response.write rs("cost")%></td>
<td align=center><%=rs("price")%></td>
</tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页 / 共<%=RS.PageCount%>页 / 记录数:<%=Rs.RecordCount%>条
</td></tr></table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -