📄 sheet_goods_print0120.inc
字号:
<%
'*******************************************************************************
Function SheetTop()
SheetTop = _
"<table cellspacing=0 cellpadding=3 width=""650"" align=center border=0>" & vbLF & _
" <tr height=50 bgcolor=white>" & vbLF & _
" <td align=center style=""color:black;font-size:16pt;font-weight:600;"">" & sDate &"仓库报表</td>" & vbLF & _
" </tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
Function SheetMasterUp()
dim sDepotID
if pDepotID < 0 then
sDepotID = "全部"
else
sDepotID = pDepotID
end if
SheetMasterUp = _
"<table cellspacing=0 cellpadding=3 width=""650"" align=center border=0>" & vbLF & _
" <tr height=25 bgcolor=white>" & vbLF & _
" <td width=200 colspan=3 align=left style=""color:black;""> 类别： " & sGoodsDesc & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr height=25 bgcolor=white>" & vbLF & _
" <td width=200 align=left style=""color:black;""> 验收仓库： " & sDepotName & "</td>" & vbLF & _
" <td width=250 align=left style=""color:black;""> 仓库编号： " & sDepotID & "</td>" & vbLF & _
" <td width=150 align=left style=""color:black;""> 日期： " & pOpdate & "</td>" & vbLF & _
" </tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
'*******************************************************************************
Function TableHeader()
dim sTemp
if pStyle = "月份" 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=0 cellpadding=0 width=650 align=center bgcolor=silver style=""table-layout:fixed;border-style:solid;border-color:black;border-top-width:1px;border-bottom-width:2px;border-left-width:1px;border-right-width:2px;"">" & 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 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 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
rowCount = rowCount + (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")
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
sTemp = sTemp & "<tr bgcolor=white height=25>" & _
"<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 & WhiteRowsMod(iCols, iCounter, iRecordsPerPage)
TableRecords = _
sTemp & _
"</table>"
End Function
'*******************************************************************************
Function SheetMasterDown
SheetMasterDown = _
"<table cellspacing=0 cellpadding=3 width=""650"" align=center border=0>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td width=450 align=left style=""color:black;""> 仓库主管： </td>" & vbLF & _
" <td width=150 align=left style=""color:black;""> 保管员： </td>" & vbLF & _
" </tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
Function SheetBottom()
SheetBottom = _
"<table cellspacing=0 cellpadding=3 width=""650"" align=center border=0>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td align=right style=""color:black;"">仲量联行上海信息大楼物业管理中心 </td>" & vbLF & _
" </tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
function TableAction()
dim sTemp : sTemp = ""
if hasright(ID_STOCK) < RIGHT_WRITE then
else
sTemp = _
" <a style=""color:blue"" target=_blank href=""sheet_goods_print.asp?opdate1=" & pOpdate1 & "&opdate2=" & pOpdate2 & "&depot_id=" & pDepotID & "&style=" & pStyle & "&forprint=1""><img border=0 src=""../images/edit.gif""> 察看打印版</a>" & vbLF & _
" " & vbLF
end if
TableAction = _
"<table width=600 cellspacing=0 cellpadding=5 height=30 align=center>" & vbLF & _
" <tr>" & vbLF & _
" <td align=center>" & _
sTemp & _
" <a title=""返回仓库报表生成页面！"" style=""color:blue"" href=""sheet_goods.asp""><img border=0 src=""../images/delete.gif""> 返回</a>" & vbLF & _
sTemp & vbLF & _
"</td>" & vbLF & _
" </tr>" & vbLF & _
"</table>"
end function
'*******************************************************************************
Function WhiteRowsMod(piCols, piStart, piRecordsPerPage)
dim i, j, sTemp, iCols, iStart, iRecordsPerPage
iCols = piCols
iStart = piStart
iRecordsPerPage = piRecordsPerPage
'' 如果起始行已经等于或超过每页总行数，则返回空字串
'' 如果从第一行开始就是空行，则显示（哎呀，一条记录也没有找到！）
'' 否则，就从起始行开始填补空行
if iStart > iRecordsPerPage then
sTemp = ""
else
sTemp = "<tr bgcolor=white height=30>"
sTemp = sTemp & "<td class=tdlist align=center>" & iStart+(iCurrentPage-1)*iRecordsPerPage & "</td>"
for i = 2 to iCols
sTemp = sTemp & "<td class=tdlist> </td>"
next
sTemp = sTemp & "</tr>"
end if
for j = iStart + 1 to iRecordsPerPage step 1
sTemp = sTemp & "<tr bgcolor=white height=30>"
sTemp = sTemp & "<td class=tdlist align=center>" & j+(iCurrentPage-1)*iRecordsPerPage & "</td>"
for i = 2 to iCols
sTemp = sTemp & "<td class=tdlist> </td>"
next
sTemp = sTemp & "</tr>"
next
WhiteRowsMod = sTemp
End Function
'*******************************************************************************
Function TableLink()
TableLink = _
"<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 Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -