purchase_input_master.inc
来自「物业管理和办公自动化系统」· INC 代码 · 共 351 行 · 第 1/2 页
INC
351 行
<%
Function SheetDetail()
pOpdate = date
dim sql,rs
sql = "select goods_type,buyer from t_purchase_master where sheet_id in(" & pSheetID & ")"
set rs = Openrs(conn,sql)
if Not rs.EOF then
pTypeID = rs("goods_type")
pBuyer = rs("buyer")
end if
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 colspan=3>" & vbLF & _
" <select name=""type_id"" style=""width:90"">" & vbLF & _
" <option value=-1>全部</option>" & vbLF & _
SelectOptions(conn, "select *from t_goods_type", "type_id", "type_desc", pTypeID) & vbLF & _
" </select></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><select name=""is_equip"" style=""width:90"" value=""" & pIsEquip & """>" & vbLF & _
" <option value=""-1"">请选择</option>" & _
" <option value=""0"">否</option>" & _
" <option value=""1"">是</option>" & _
" </select></td>" & vbLF & _
" <td align=right>入库日期：</td>" & vbLF & _
" <td>" & DrawCal("", pOpDate, "opdate", "dateimg") & "</td>" & 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=50>这一行仅用于控制表格的宽度</td>" & vbLF & _
" <td width=80></td>" & vbLF & _
" <td width=80></td>" & vbLF & _
" <td width=60></td>" & vbLF & _
" <td width=60></td>" & vbLF & _
" <td width=60></td>" & vbLF & _
" <td width=60></td>" & vbLF & _
" <td width=120></td>" & vbLF & _
" <td width=60></td>" & vbLF & _
" <td width=60></td></tr>" & vbLF & _
"<tr height=25>" & _
"<td colspan=" & iCols & " bgcolor=""#0040a0"" align=center style=""color:white;font-weight:600"">采购入库物品一览</td></tr>" & _
"<tr height=25 bgcolor=white>" & _
"<td class=tdHead align=center> " & TableHeaderField(sFileName, "cargo_id", "代码", sFormParams, sSorting, sSorted) & "</td>" & _
"<td class=tdHead align=center> " & TableHeaderField(sFileName, "cargo_name", "物品名称", sFormParams, sSorting, sSorted) & "</td>" & _
"<td class=tdHead align=center> " & TableHeaderField(sFileName, "sheet_id", "采购单编号", sFormParams, sSorting, sSorted) & "</td>" & _
"<td class=tdHead align=center> " & TableHeaderField(sFileName, "model", "型号规格", sFormParams, sSorting, sSorted) & "</td>" & _
"<td class=tdHead align=center> " & TableHeaderField(sFileName, "quantity", "申购数量", sFormParams, sSorting, sSorted) & "</td>" & _
"<td class=tdHead align=center> " & TableHeaderField(sFileName, "unit_price", "单价", sFormParams, sSorting, sSorted) & "</td>" & _
"<td class=tdHead align=center> " & TableHeaderField(sFileName, "unit", "单位", sFormParams, sSorting, sSorted) & "</td>" & _
"<td class=tdHead align=center> " & TableHeaderField(sFileName, "remark", "备注", sFormParams, sSorting, sSorted) & "</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
' response.write sSQL & "<br>"
' response.end
'------------------------------------
' 获取数据库连接
'------------------------------------
dim rs : set rs = Openrs(conn,sSQL)
dim sCargoID, sCargoName,sSheetID ,sModel, sUnit, sQuantity, sUnitPrice, sRemark
dim sSQL1
dim sLocation,sGRemark,sMinQuantity
''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
sCargoID = rs("cargo_id")
sCargoName = rs("cargo_name")
sSheetID = rs("sheet_id")
sModel = rs("model")
sQuantity = rs("quantity")
sUnitPrice = rs("unit_price")
sUnit = rs("unit")
sRemark = rs("remark")
sSQL1 = "select depot_id,location,remark,min_quantity from t_goods where goods_name = "& ToSQL(sCargoName,"text") & _
" and model="& ToSQL(sModel,"text") & _
" and unit="& ToSQL(sUnit,"text") & _
" and remind_status = 3"
'response.write sSQL1 & "<br>"
'response.end
dim rs1 : set rs1 = Openrs(conn,sSQL1)
if rs1.EOF then
sTemp = sTemp & "<tr bgcolor=white height=20>" & _
"<td align=center title=""" & sCargoID & """ nowrap> " & sCargoID & " </td>" & _
"<td align=center title=""" & sCargoName & """ nowrap> " & sCargoName & " </td>" & _
"<td align=center title=""" & sSheetID & """ nowrap> " & sSheetID & " </td>" & _
"<td align=center title=""" & sModel & """ nowrap> " & sModel & " </td>" & _
"<td align=center title=""" & sQuantity & """ nowrap> " & sQuantity & " </td>" & _
"<td align=center title=""" & sUnitPrice & """ nowrap> " & sUnitPrice & " </td>" & _
"<td align=center title=""" & sUnit & """ nowrap> " & sUnit & " </td>" & _
"<td align=center nowrap><input type=""text"" name=""remark_" & rowCount & """ value=""" & pGRemark & """ size=24 maxlength=50>" & vbLF & _
"<td align=center nowrap><input type=""text"" name=""min_quantity_" & rowCount & """ value=""" & pMinQuantity & """ size=8 maxlength=10>" & vbLF & _
"<td align=center nowrap><input type=""text"" name=""location_" & rowCount & """ value=""" & pLocation & """ size=8 maxlength=20>" & vbLF & _
"<input type=""hidden"" name=""cargo_id_" & rowCount & """ value=""" & sCargoID & """>" & vbLF & _
"</tr>"
else
sLocation = rs1("location")
sGRemark = rs1("remark")
sMinQuantity = rs1("min_quantity")
pDepotID = rs1("depot_id")
sTemp = sTemp & "<tr bgcolor=white height=20>" & _
"<td align=center title=""" & sCargoID & """ nowrap> " & sCargoID & " </td>" & _
"<td align=center title=""" & sCargoName & """ nowrap> " & sCargoName & " </td>" & _
"<td align=center title=""" & sSheetID & """ nowrap> " & sSheetID & " </td>" & _
"<td align=center title=""" & sModel & """ nowrap> " & sModel & " </td>" & _
"<td align=center title=""" & sQuantity & """ nowrap> " & sQuantity & " </td>" & _
"<td align=center title=""" & sUnitPrice & """ nowrap> " & sUnitPrice & " </td>" & _
"<td align=center title=""" & sUnit & """ nowrap> " & sUnit & " </td>" & _
"<td align=center nowrap><input type=""text"" name=""remark_" & rowCount & """ value=""" & sGRemark & """ size=24 maxlength=50>" & vbLF & _
"<td align=center nowrap><input type=""text"" name=""min_quantity_" & rowCount & """ value=""" & sMinQuantity & """ size=8 maxlength=10>" & vbLF & _
"<td align=center nowrap><input type=""text"" name=""location_" & rowCount & """ value=""" & sLocation & """ size=8 maxlength=20>" & vbLF & _
"<input type=""hidden"" name=""cargo_id_" & rowCount & """ value=""" & sCargoID & """>" & vbLF & _
"</tr>"
end if
rs1.Close()
set rs1 = nothing
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>" & _
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?