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

<!--#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") & "")