<%
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
Rem #############################################################################################
Rem ## 数据封存限制
Rem #############################################################################################
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
本文目录一览: 1、中国黑客之父是谁? 2、中国第一黑客郭盛华现在怎么样 3、中国第一骇客是谁? 中国黑客之父是谁? 中国黑客之父是郭盛华。郭盛华在互联网黑客的圈子里也是非常有名气的了,但是...
本文目录一览: 1、黑客蚊香 雷客蚊香 2、黑客蚊香在生产厂家在哪里? 3、美国邦威生物的黑客是什么药 4、黑客蚊香对人体有害吗? 5、黑客颗粒几号的好用 黑客蚊香 雷客蚊香 不是雷...
这两天在微博上看到说洗发方法不当会导致秃发,就是说洗发水不能直接抹在头发上,要在手中搓出泡泡后在抹上头发,洗发水局部过浓就会脱发。 这个我是很早以前就知道,可是我发现好多妹子都不知道这点哦,所以这次...
假如你是一个初创企业,在网站优化的进程中,理论上我们会举办一轮要害词研究,筛选出企业可以利用的要害词,而在实战中,有时我们谋面对要害词的选择性,这往往长短常有限的。 这需要我们对要害词的匹配范例有一个...
本文导读目录: 1、黑客是怎么练成的? 2、学习黑客需要先学习什么基础? 3、黑客怎样学出来 4、想成为一名的黑客 必须学习哪些课程? 5、学习黑客需要先学习什么基础?(零基础) 黑...
信息的及时性就是指()。 信息会伴随着时间流逝而消退。 信息因人有所不同的,有的人必须了解,有的人不用了解。 信息的使用价值会伴随着時间而降低。 信息的使用时间受限制。 3C技术指的是()。 通...