分享
 
 
 

批量数据录入, 辅助输入数据, 以及相关检测(ASP 服务器端)(原创)

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

相关链接: 批量数据录入, 辅助输入数据, 以及相关检测(JScript 客户端)(原创)

<!--#include file="../__Inc/goperation.asp"-->

<%

Dim intBillTotal, intBillType, intBillValue, dtaToday, i, strBillCode

Rem 单记录数(预备量)

intBillTotal = request.Form("bn")

intBillTotal = toNum(intBillTotal, 10)

intBillType = getOperType()

intBillValue = getOperValue()

dtaToday = Date()

Rem ###############################################################################################

Rem ## 操作单项目

Dim dtaBillDate, strBillUser, strBillCheckUser, strBillContent

Dim curBillCost, curBillCostAsp, intCustID, strCustName, strPayType, intTotalNum

Dim dtaBillYear, intBillID, intBillPlanID, strBillPlanNum

Rem ## dtaBillDate 单日期, strBillUser 填表人, strBillCheckUser 提货人, intBillID 单ID

Rem ## strBillContent 单备注, strBillCode 流水号, curBillCost 单总价(js), curBillCostAsp 单总价(asp)

Rem ## intCustID 客户ID, strCustName 客户名称, strPayType 付款方式, intTotalNum 单 行数量

Rem ## intBillType 单类型, intBillValue 单类型描述, intBillPlanID 计划单ID, strBillPlanNum 计划单号

Rem ## 操作单日期

dtaBillDate = RePlace(Trim(request.Form("BillDate")), ".", "-")

If Not IsDate(dtaBillDate) Then

oUser.gs_AddMessage "操作单日期为空"

Else

dtaBillDate = CDate(dtaBillDate)

dtaBillYear = Year(dtaBillDate)

If (oSys.CheckYearOut(dtaBillYear)) Then

oUser.gs_AddMessage "操作单日期(" & dtaBillYear & ")超出范围"

End If

End If

Rem ## 填表人

strBillUser = Trim(request.Form("BillUser") & "")

If strBillUser = "" Then

oUser.gs_AddMessage "填表人为空"

End If

Rem ## 提货人

strBillCheckUser = Trim(request.Form("BillCheckUser") & "")

If strBillCheckUser = "" Then

oUser.gs_AddMessage "提货人为空"

End If

Rem ## 出错转向

oUser.gs_ShowMessage 1

Rem ## 其他项目

curBillCost = toCur(request.Form("totalprice") & "", 0)

curBillCostAsp = 0

intCustID = toNum(request.Form("CustID") & "", 0)

strCustName = request.Form("CustName")

strPayType = request.Form("PayType")

strBillContent = request.Form("BillContent")

intBillPlanID = toNum(request.Form("brefer") & "", 0)

strBillPlanNum = getBillNuber(intBillPlanID)

Rem ###############################################################################################

Rem ###############################################################################################

Rem ## 获得用户输入的数据

Dim arrRecordInfo()

Dim intTempID, curTempPrice, curTempTotal, curTempCost, curTempAspC

Dim intTempCode, intTempName, intTempSpec, intTempUnit, intTempOut

Rem ## intTempID 临时产品ID, curTempPrice 单价, curTempTotal 数量, curTempCost 总价(js)

Rem ## curTempAspC 产品总价(asp), intTempCode 编码, intTempName 名称, intTempSpec 规格

Rem ## intTempUnit 单位

ReDim arrRecordInfo(9, 0)

Rem ## 初始化 单 行数量为 0, 过滤掉的行数为 0

intTotalNum = 0

intTempOut = 0

response.Write(UBound(arrRecordInfo, 2))

Rem ## 初始化客户端提交的有用数据

For i = 1 to intBillTotal

intTempID = toNum(request.Form("fpid" & i), 0)

curTempPrice = toCur(request.Form("fpprice" & i), 0)

curTempTotal = toCur(request.Form("fptotal" & i), 0)

curTempCost = toCur(request.Form("fpcost" & i), 0)

curTempAspC = curTempPrice * curTempTotal

If ((curTempPrice > 0) And (curTempTotal <> 0) And (intTempID > 0)) Then

Rem ## 可用数据

intTotalNum = intTotalNum + 1

curBillCostAsp = curBillCostAsp + curTempAspC

intTempCode = Trim(request.Form("fpmodel" & i))

intTempName = Trim(request.Form("fpvalue" & i))

intTempSpec = Trim(request.Form("fpspec" & i))

intTempUnit = Trim(request.Form("fpunit" & i))

ReDim Preserve arrRecordInfo(9, intTotalNum)

arrRecordInfo(0, intTotalNum) = intTempID

arrRecordInfo(1, intTotalNum) = intTempName

arrRecordInfo(2, intTotalNum) = intTempCode

arrRecordInfo(3, intTotalNum) = intTempSpec

arrRecordInfo(4, intTotalNum) = intTempUnit

arrRecordInfo(5, intTotalNum) = curTempPrice

arrRecordInfo(6, intTotalNum) = curTempTotal

arrRecordInfo(7, intTotalNum) = curTempCost

arrRecordInfo(8, intTotalNum) = curTempAspC

response.Write(intTempUnit & "<br>")

ElseIf (intTempID > 0) Then

intTempOut = intTempOut + 1

End If

Next

If intTotalNum < 1 Then

oUser.gs_AddMessage "操作单中无产品数据"

oUser.gs_AddMessage "共有 " & intTempOut & " 条数据(产品单价为0、为空或负数, 数量为0或空)被过滤"

oUser.gs_ShowMessage 1

End If

Rem ###############################################################################################

response.Write(UBound(arrRecordInfo, 2))

'response.End()

Rem ## 打开连接

f__OpenConn

Rem ###############################################################################################

Rem ## 检测表存在与否

Dim tblTableName

tblTableName = oUser.getBillTable(dtaBillYear)

Rem ###############################################################################################

Rem ###############################################################################################

Rem ## 构造单项目 SQL 语句 并保存

strBillCode = getOpeBill()

sql = "SELECT * FROM [" & GBL__STR_TAB_INF_BILL & "]"

Set rs = Server.CreateObject("Adodb.RecordSet")

rs.open sql, conn, 1, 3

rs.AddNew

rs("CustomerID") = intCustID

rs("CustomerName") = strCustName

rs("BitPlanID") = intBillPlanID

rs("BitPlanNum") = strBillPlanNum

rs("BitType") = intBillType

rs("BitName") = intBillValue

rs("BitCode") = strBillCode

rs("BitNum") = intTotalNum

rs("BitPrice") = curBillCost

rs("BitPriceAsp") = curBillCostAsp

rs("BitDate") = dtaBillDate

rs("BitPay") = strPayType

rs("BitContent") = strBillContent

rs("FillUser") = strBillUser

rs("SureUser") = strBillCheckUser

rs("UserID") = oUser.UID

rs("UserName") = oUser.UserName

rs.update

intBillID = rs("ID")

strBillCode = getBillNuber(intBillID)

rs("BitCode") = strBillCode

rs.update

rs.close

Rem ###############################################################################################

Rem ###############################################################################################

Rem ## 构造数据行 SQL 语句 并保存

For i = 1 to intTotalNum

sql = " insert into [" & tblTableName & "]" & _

" (BitType, BitValue, BitID, BitCode, ProductID, ProductName, ProductCode" & _

", ProductSpec, ProductUnit, ProductPrice, ProductNum, PriceCount, PriceAspC, BillDate)" & _

" Values(" & _

" " & intBillType & "" & _

", '" & toSqlr(intBillValue) & "'" & _

", " & intBillID & "" & _

", '" & toSqlr(strBillCode) & "'" & _

", " & arrRecordInfo(0, i) & "" & _

", '" & toSqlr(arrRecordInfo(1, i)) & "'" & _

", '" & toSqlr(arrRecordInfo(2, i)) & "'" & _

", '" & toSqlr(arrRecordInfo(3, i)) & "'" & _

", '" & toSqlr(arrRecordInfo(4, i)) & "'" & _

", " & arrRecordInfo(5, i) & "" & _

", " & arrRecordInfo(6, i) & "" & _

", " & arrRecordInfo(7, i) & "" & _

", " & arrRecordInfo(8, i) & "" & _

", #" & dtaBillDate & "#" & _

")"

conn.execute(sql)

Next

Rem ###############################################################################################

Rem ## 关闭连接

f__CloseConn

Rem ###############################################################################################

Rem ## 输出提示信息

oUser.gs_AddMessage "共有 " & intTempOut & " 条数据(产品单价为0、为空或负数, 数量为0或空)被过滤"

oUser.gs_AddMessage "共有 " & intTotalNum & " 项数据保存入库, 总价格:" & FormatNumber(curBillCost, 2, true) & "(" & FormatNumber(curBillCostAsp, 2, true) & ")"

oUser.gs_AddMessage "<a href=""../Erp/Bill_View.asp?id=" & intBillID & """>查看此单(" & strBillCode & ")信息</a>"

oUser.gs_AddMessage "<a href=""../Erp/Bill_View.asp?id=" & intBillID & "&pt=1"">打印此单</a>"

oUser.gs_ShowMessage 0

Rem ###############################################################################################

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有