<%
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
昨日在微博上发生了一个很有趣的新浪微博;我是一个保安人员 爱吃小熊饼干,实际上这是一个招数是女孩们用于套路男朋友的,实际上是一句藏头诗。我是一名保安人员是什么梗 我是一名保安人员喜欢小熊饼干代表什么意...
新零售的开始,线下店开始了新机遇! 之前一直讲虚实结合一直没人听,马云喊了一句“新零售”。市场风险瞬间从线上跑到了线下!互联网纷纷开始了自己的全国扩张,要不“单点加盟”要不“城市合伙人”。互联网公司...
新加坡富时指数 我们公司是做入口燃料油销售生意的,需要每月一句新加坡普氏价值,来测算。 新加坡价值也就是参考180,380价值,可是这2种中每一种所交货的品质也是差异,并且也要看你的生意业...
韩综被指抄袭乘风破浪的姐姐...
有客户在自身的桌面放了好多个文档,結果却无法删除,这是什么原因呢?Win7系统桌面上的文档不可以删掉该如何解决?下边给大伙儿详细介绍Win7系统桌面文档无法删除的恢复方式。 难题叙述: 1、便是下...
3 假如是管理员用户,就直接回来false,不答应其删去。 增修正查四个操作,删、改都要加这个判别。 当然,好事者能够写个脚本,添加999999个假文件,flag款式都相似,谁也不知道哪个是真...