批量資料錄入, 輔助輸入資料, 以及相關檢測(ASP 伺服器端)

來源:互聯網
上載者:User
伺服器|資料 <!--#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) = c



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。