📄 sheet_goods.inc
字号:
<%
'*******************************************************************************
Function TableSearch()
'' 进货方式分类，0全部，1为采购入库，2为移交入库，3为归还入库
'' 库存状态分类，0全部，1在库中，2已借出，3已报废，4已退货，5已领用，6已移出, 7待选择
'' 提醒状态分类，0不需提醒，1正常，2已提醒，3采购中，4选中的
'' 出库方式分类，1入库，2移入，3归还，4领用，5退货，6报废，7移出，8借出
TableSearch = _
"<table cellspacing=0 cellpadding=3 width=""100%"" align=center border=0>" & vbLF & _
"<tr height=20>" & _
"<td colspan=8 bgcolor=""black"" align=center style=""color:white;font-weight:600"">设置报表条件</td></tr>" & _
"<form name=""frmSearch"" method=post action=""" & sFileName & """>" & vbLF & _
" <tr height=10 bgcolor=white><td colspan=8></td></tr>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td align=right>验收仓库：</td>" & vbLF & _
" <td>" & vbLF & _
" <select name=""depot_id"" style=""width:90"">" & vbLF & _
" <option value=-1>全部</option>" & vbLF & _
SelectOptions(conn, "select *from t_depot", "depot_id", "depot_name", pDepotID) & vbLF & _
" </select></td>" & vbLF & _
" <td align=right>报表类型：</td>" & vbLF & _
" <td>" & vbLF & _
" <select name=""sheet_style"" style=""width:70"">" & vbLF & _
" <option value=1>月报表</option>" & vbLF & _
" <option value=2>年报表</option>" & vbLF & _
" </select></td>" & vbLF & _
" <script language=""javascript"">document.all.sheet_style.selectedIndex=" & (pSheetStyle-1) & "</script>" & _
" <td align=right>输入年份：</td>" & vbLF & _
" <td><input type=""text"" name=""year"" value=""" & pYear & """ size=4 maxlength=4>" & vbLF & _
" <td align=right>选择月份：</td>" & vbLF & _
" <td>" & vbLF & _
" <select name=""month"" style=""width:70"">" & vbLF & _
" <option value=01>一月</option>" & vbLF & _
" <option value=02>二月</option>" & vbLF & _
" <option value=03>三月</option>" & vbLF & _
" <option value=04>四月</option>" & vbLF & _
" <option value=05>五月</option>" & vbLF & _
" <option value=06>六月</option>" & vbLF & _
" <option value=07>七月</option>" & vbLF & _
" <option value=08>八月</option>" & vbLF & _
" <option value=09>九月</option>" & vbLF & _
" <option value=10>十月</option>" & vbLF & _
" <option value=11>十一月</option>" & vbLF & _
" <option value=12>十二月</option>" & vbLF & _
" </select>" & _
" <script language=""javascript"">document.all.month.selectedIndex=" & (pMonth-1) & "</script>" & _
"</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td align=right colspan=7><span style=""cursor:hand"" title=""设置查询条件，然后点击查询按钮进行查询"" onclick=""btnSearch_OnClick();""><img border=0 src=""../images/search.gif"" style=""vertical-align:middle"">查询</span></td></tr>" & vbLF & _
" <tr height=10 bgcolor=white><td colspan=8></td></tr>" & vbLF & _
"</form>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
Function TableHeader()
dim sTemp
if pSheetStyle = "1" then
sTemp = _
"<td class=tdHead align=center>上月结存</td>" & _
"<td class=tdHead align=center>本月入库</td>" & _
"<td class=tdHead align=center>本月出库</td>" & _
"<td class=tdHead align=center>本月结存</td>"
else
sTemp = _
"<td class=tdHead align=center>上年结存</td>" & _
"<td class=tdHead align=center>本年入库</td>" & _
"<td class=tdHead align=center>本年出库</td>" & _
"<td class=tdHead align=center>本年结存</td>"
end if
TableHeader = _
"<table cellspacing=1 cellpadding=0 width=""100%"" align=center bgcolor=silver style=""table-layout:fixed"">" & vbLF & _
"<tr style=""display:none"">" & vbLF & _
" <td width=40>这一行仅用于控制表格的宽度</td>" & vbLF & _
" <td width=90></td>" & vbLF & _
" <td width=80></td>" & vbLF & _
" <td width=40></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=75></td>" & vbLF & _
" <td width=""*""></td></tr>" & vbLF & _
"<tr height=25>" & _
"<td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"">"&sDate&"仓库报表</td></tr>" & _
"<tr bgcolor=white>" & _
"<td class=tdHead align=center>序号</td>" & _
"<td class=tdHead align=center>物品名称</td>" & _
"<td class=tdHead align=center>型号规格</td>" & _
"<td class=tdHead align=center>单位</td>" & _
sTemp & _
"<td class=tdHead align=center>备注</td>" & _
"</tr>"
End Function
'*******************************************************************************
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
dim sTemp : sTemp = "" ' 临时字符串变量
dim j ' 临时循环变量
dim sql
'------------------------------------
' 分页所需的变量定义
'------------------------------------
Dim iCounter : iCounter = 1
Dim iPrevPage, iNextPage
Dim rowCount : rowCount = 0
'------------------------------------
' 获取数据库连接
'------------------------------------
dim rs : set rs = Openrs(conn,sSQL)
dim rs1
dim sGoodsID, sGoodsName, sModel, sUnit, sQuantity
dim sSheetID, sQuanIn, sQuanOut, sSQuan, sOptype, sQuanIn1, sQuanOut1
''response.write sSQL : response.end
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
if Not rs.EOF then
rs.move (iCurrentPage - 1) * iRecordsPerPage
end if
while not rs.EOF and iCounter <= iRecordsPerPage
rowCount = rowCount + 1
sGoodsID = rs("goods_id")
sGoodsName = rs("goods_name")
sModel = rs("model")
sUnit = rs("unit")
sQuantity = rs("quantity")
sQuanIn = 0
sQuanOut = 0
sQuanIn1 = 0
sQuanOut1 = 0
sSQuan = 0
sql = "select t1.sheet_id,t1.quantity from t_stock_detail t1" & _
" left join t_stock_master t2 on t1.sheet_id = t2.sheet_id" & _
" where t1.goods_id =" & ToSQL(sGoodsID,"number") & _
" and t2.sheet_status <> 0" & _
" and t1.opdate >= " & ToSQL(pOpdate1, "Text") & " and t1.opdate < " & ToSQL(pOpdate2, "Text")
'response.write sql :response.end
set rs1 = Openrs(conn,sql)
while not rs1.EOF
sSheetID = GetValue(rs1,"sheet_id")
sSQuan = GetValue(rs1,"quantity")
sql = "select optype from t_stock_master where sheet_id =" & ToSQL(sSheetID,"number")
sOptype = DLookUp(conn,sql)
if sOptype = "1" or sOptype = "2" or sOptype = "3" or sOptype = "9" then
sQuanIn = sQuanIn + sSQuan
else
sQuanOut = sQuanOut + sSQuan
end if
rs1.movenext
wend
rs1.Close()
set rs1 = nothing
'response.write sQuanIn & "in<br>" & sQuanOut & "out<br>" : response.end
sql = "select t1.sheet_id,t1.quantity from t_stock_detail t1" & _
" left join t_stock_master t2 on t1.sheet_id = t2.sheet_id" & _
" where t1.goods_id =" & ToSQL(sGoodsID,"number") & _
" and t2.sheet_status <> 0" & _
" and t1.opdate >= " & ToSQL(pOpdate1, "Text")
set rs1 = Openrs(conn,sql)
sSQuan = 0
while not rs1.EOF
sSheetID = GetValue(rs1,"sheet_id")
sSQuan = GetValue(rs1,"quantity")
sql = "select optype from t_stock_master where sheet_id =" & ToSQL(sSheetID,"number")
sOptype = DLookUp(conn,sql)
if sOptype = "1" or sOptype = "2" or sOptype = "3" or sOptype = "9" then
sQuanIn1 = sQuanIn1 + sSQuan
else
sQuanOut1 = sQuanOut1 + sSQuan
end if
rs1.movenext
wend
rs1.Close()
set rs1 = nothing
'response.write sQuanIn1 & "in<br>" & sQuanOut1 & "out<br>" & sQuantity : response.end
sTemp = sTemp & "<tr bgcolor=white height=20>" & _
"<td class=tdlist align=center nowrap>" & rowCount & "</td>" & _
"<td class=tdlist align=center title=""" & sGoodsName & """ nowrap>" & sGoodsName & " </td>" & _
"<td class=tdlist align=center title=""" & sModel & """ nowrap>" & sModel & " </td>" & _
"<td class=tdlist align=center title=""" & sUnit & """ nowrap>" & sUnit & " </td>" & _
"<td class=tdlist align=center title=""" & (sQuantity + sQuanOut1 - sQuanIn1) & """ nowrap>" & (sQuantity + sQuanOut1 - sQuanIn1) & " </td>" & _
"<td class=tdlist align=center title=""" & sQuanIn & """ nowrap>" & sQuanIn & " </td>" & _
"<td class=tdlist align=center title=""" & sQuanOut & """ nowrap>" & sQuanOut & " </td>" & _
"<td class=tdlist align=center title=""" & (sQuantity + sQuanOut1 - sQuanIn1 + sQuanIn - sQuanOut) & """ nowrap>"& (sQuantity + sQuanOut1 - sQuanIn1 + sQuanIn - sQuanOut) &" </td>" & _
"<td class=tdlist align=center nowrap> </td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
rs.Close()
set rs = nothing
' 填补空白行
sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)
' 首页、前页、后页、尾页等分页信息
sTemp = sTemp & "<tr bgcolor=white height=20><td colspan=" & iCols & " align=right>" & _
Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
" </td></tr>"
TableRecords = sTemp
End Function
'*******************************************************************************
Function TableLink()
dim sTemp : sTemp = ""
if hasright(ID_STOCK) < RIGHT_WRITE then
sTemp = _
"<table width=""100%"" cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
"<tr height=10>" & vbLF & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
"</tr>" & vbLF & _
"<tr>" & vbLF & _
" <td width=600> " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_query.asp"">库存查询</a>" & vbLF & _
"</tr>" & vbLF & _
"</table>" & vbLF
else
sTemp = _
"<table width=""100%"" cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
"<tr height=10>" & vbLF & _
" <td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
"</tr>" & vbLF & _
"<tr>" & vbLF & _
" <td width=600> " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_query.asp"">库存查询</a>" & vbLF & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_input.asp"">物品入库</a>" & vbLF & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/output.asp"">物品出库</a>" & vbLF & _
" " & vbLF & _
" <img src=""../images/goto.gif""> <a href=""../stock/goods_move.asp"">物品移动</a></td>" & vbLF & _
"</tr>" & vbLF & _
"</table>" & vbLF
end if
TableLink = sTemp
End Function
'*******************************************************************************
function TableAction(pSQL,pDepotID)
dim sTemp : sTemp = ""
' if IsHrAdmin then '' 只有人事管理员才显示管理的链接
' sTemp = _
' " " & vbLF & _
' " <a style=""color:blue"" href=""emp_oe.asp?emp_serial=" & pEmpSerial & """><img border=0 src=""../images/edit.gif""> 修改员工信息</a>" & vbLF & _
' " " & vbLF & _
' " <a style=""color:blue"" href=""emp_od.asp?emp_serial=" & pEmpSerial & """><img border=0 src=""images/dismiss.gif""> 员工离职</a>" & vbLF
' end if
TableAction = _
"<table width=600 cellspacing=0 cellpadding=5 height=30 align=center>" & vbLF & _
" <tr>" & vbLF & _
" <td align=center>" & _
" <a style=""color:blue"" href=""sheet_goods_print.asp?opdate1=" & pOpdate1 & "&opdate2=" & pOpdate2 & "&depot_id=" & pDepotID & "&style=" & pSheetStyle & """><img border=0 src=""../images/arrowr.gif""> 进入打印页面</a>" & vbLF & _
" " & vbLF & _
" <a style=""color:blue"" href=""sheet_mgr.asp""><img border=0 src=""../images/property.gif""> 出入库单管理</a>" & vbLF & _
sTemp & vbLF & _
"</td>" & vbLF & _
" </tr>" & vbLF & _
"</table>"
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -