📄 purchase_input_over.inc
字号:
<%
Function SheetDetail()
pOpdate = date
dim sql,rs
sql = "select *from t_stock_master where sheet_id =" & pSheetID
set rs = Openrs(conn,sql)
if rs.EOF then
else
pBuyer = GetValue(rs,"buyer")
pChecker = GetValue(rs,"checker")
pKeeper = GetValue(rs,"keeper")
end if
rs.Close()
set rs = nothing
sql = "select depot from t_stock_detail where sheet_id =" & pSheetID
pDepotID = DLookUp(conn,sql)
sql = "select goods_type from t_stock_detail where sheet_id =" & pSheetID
pTypeID = DLookUp(conn,sql)
sql = "select opdate from t_stock_detail where sheet_id =" & pSheetID
pOpdate = DLookUp(conn,sql)
SheetDetail = _
"<table cellspacing=0 cellpadding=3 width=""100%"" align=center border=0>" & vbLF & _
"<tr height=20>" & _
"<td colspan=" & iCols & " bgcolor=""black"" align=center style=""color:white;font-weight:600"">入库单细节</td></tr>" & _
"<input type=""hidden"" name=""id"" value=""" & pSheetID & """>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td align=right colspan=1>验收仓库：</td>" & vbLF & _
" <td>" & vbLF & _
" <select name=""depot_id"" style=""width:100"">" & vbLF & _
" <option value=-1>全部</option>" & vbLF & _
SelectOptions(conn, "select *from t_depot", "depot_id", "depot_name", pDepotID) & vbLF & _
" </select></td>" & vbLF & _
" <td align=right colspan=1>物品类别：</td>" & vbLF & _
" <td>" & vbLF & _
" <select name=""type_id"" style=""width:100"">" & vbLF & _
" <option value=-1>全部</option>" & vbLF & _
SelectOptions(conn, "select *from t_goods_type", "type_id", "type_desc", pTypeID) & vbLF & _
" </select></td>" & vbLF & _
" <td align=right>入库日期：</td>" & vbLF & _
" <td>" & DrawCal("", pOpDate, "opdate", "dateimg") & "</td>" & vbLF & _
" </tr>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td align=right>采 购 人：</td>" & vbLF & _
" <td><input type=""text"" name=""buyer"" value=""" & pBuyer & """ size=15 maxlength=20>" & vbLF & _
" <td align=right>验 收 人：</td>" & vbLF & _
" <td><input type=""text"" name=""checker"" value=""" & pChecker & """ size=15 maxlength=20>" & vbLF & _
" <td align=right>保 管 人：</td>" & vbLF & _
" <td><input type=""text"" name=""keeper"" value=""" & pKeeper & """ size=15 maxlength=20>" & vbLF & _
" </tr>" & vbLF & _
" <tr height=10 bgcolor=white><td colspan=8></td></tr>" & vbLF & _
"</table>" & vbLF
End Function
'*******************************************************************************
'*******************************************************************************
Function TableHeader()
TableHeader = _
"<form name=""frmSheetDetail"" method=post action=""" & sFileName & """>" & vbLF & _
"<input type=""hidden"" name=""FormAction"">" & vbLF & _
"<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=100></td>" & vbLF & _
" <td width=90></td>" & vbLF & _
" <td width=60></td>" & vbLF & _
" <td width=70></td>" & vbLF & _
" <td width=70></td>" & vbLF & _
" <td width=70></td>" & vbLF & _
" <td width=70></td>" & vbLF & _
" <td width=""*""></td></tr>" & vbLF & _
"<tr height=20>" & _
"<td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"">被领用物品和设备一览</td></tr>" & _
"<tr bgcolor=white>" & _
"<td class=tdHead align=center> 序号</td>" & _
"<td class=tdHead align=center> <img src=""../images/bg/ar-y.gif"" width=8 height=8> 物品名称</td>" & _
"<td class=tdHead align=center> 型号规格</td>" & _
"<td class=tdHead align=center> 单位</td>" & _
"<td class=tdHead align=center> 数量</td>" & _
"<td class=tdHead align=center> 单价</td>" & _
"<td class=tdHead align=center> 存货仓库</td>" & _
"<td class=tdHead align=center> 存货位置</td>" & _
"<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 sGoodsID, sGoodsName, sModel, sUnit, sQuantity, sGoodsType, sDepotName, sUnitPrice, sLocation, sRemark
''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")
sGoodsType = rs("type_desc")
sDepotName = rs("depot_name")
sUnitPrice = rs("unit_price")
sLocation = rs("location")
sRemark = rs("remark")
sTemp = sTemp & "<tr bgcolor=white height=20>" & _
"<td align=center nowrap> " & rowCount & " </td>" & _
"<input type=""hidden"" name=""goods_id_" & rowCount & """ value=""" & sGoodsID &""">" & _
"<td align=center title=""" & sGoodsName & """ nowrap> " & sGoodsName & " </td>" & _
"<td align=center title=""" & sModel & """ nowrap> " & sModel & " </td>" & _
"<td align=center title=""" & sUnit & """ nowrap> " & sUnit & " </td>" & _
"<td align=center title=""" & sQuantity & """ nowrap> " & sQuantity & " </td>" & _
"<td align=center title=""" & sUnitPrice & """ nowrap> " & sUnitPrice & " </td>" & _
"<td align=center title=""" & sDepotName & """ nowrap> " & sDepotName & " </td>" & _
"<td align=center title=""" & sLocation & """ nowrap> " & sLocation & " </td>" & _
"<td align=center title=""" & sRemark & """ nowrap> " & sRemark & " </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 & _
"<input type=""hidden"" name=""row_count"" value=""" & rowCount &""">" & _
"<input type=""hidden"" name=""sheet_id"" value=""" & pSheetID &""">"
End Function
'*********************************************************************************************
Function InputAction()
InputAction = _
"<table cellspacing=0 cellpadding=3 width=""100%"" align=center border=0>" & vbLF & _
" <tr height=30 bgcolor=white>" & vbLF & _
" <td align=center colspan=9>" & _
" <span style=""cursor:hand"" title=""设置清单细节，然后点击按钮完成入库"" onclick=""btnInput_OnClick();""><img border=0 src=""../images/arrowr.gif"" style=""vertical-align:middle"">完成入库单</span>" & _
" " & vbLF & _
" <span style=""cursor:hand"" title=""返回！"" onclick=""btnCancel_OnClick();""><img border=0 src=""../images/delete.gif"" style=""vertical-align:middle"">返回</span>" & _
" </td>" & _
" </tr>" & vbLF & _
" <tr height=10 bgcolor=white><td colspan=9></td></tr>" & vbLF & _
"</table>" & _
"</form>"
End Function
'*********************************************************************************************
Function DoInput()
dim sql,rs
dim sDepotID,sGoodsID
''-----------------------------------------------------------------------------
'' 将新建入库单抬头信息加入t_stock_master
''-----------------------------------------------------------------------------
sql = "select depot_name from t_depot where depot_id =" & pDepotID
sDepotID = DLookUp(conn,sql)
sql = "update t_stock_master set optype=1" & _
",department =" & ToSQL(sDepotID,"text") & _
",buyer =" & ToSQL(pBuyer,"text") & _
",checker =" & ToSQL(pChecker,"text") & _
",keeper =" & ToSQL(pKeeper,"text") & _
",sheet_status=1" & _
"where sheet_id =" & pSheetID
call Openrs(conn,sql)
sql = "select goods_id from t_stock_detail where sheet_id =" & pSheetID
set rs = Openrs(conn,sql)
while not rs.EOF
sGoodsID = GetValue(rs,"goods_id")
sql = "update t_goods set keeper =" & ToSQL(pKeeper,"text") & _
" where goods_id =" & ToSQL(sGoodsID,"number")
call Openrs(conn,sql)
rs.movenext
wend
response.redirect "sheet_goto.asp?sheet_id=" & pSheetID
End Function
'******************************************************************************
Sub Cancel()
dim sql
sql = "update t_purchase_detail set is_input = 0 where is_input = 1"
call Openrs(conn,sql)
response.redirect "sheet_mgr.asp"
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -