七天酒店入住记录多久删除(如家酒店入住记录多久删除

访客4年前黑客文章592

<%
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

相关文章

微信被盗了哪里找黑客帮忙-qq被黑客盗号了怎么办(手机qq怎么防止被黑客盗号)

微信被盗了哪里找黑客帮忙-qq被黑客盗号了怎么办(手机qq怎么防止被黑客盗号)

微信被盗了哪里找黑客帮忙相关问题 经常与黑客软件配合使用的是什么相关问题 什么是黑客c语言 调查一个人资料要多钱徐州(徐州文史资料)...

新疆新增3例确诊病例-新疆疫情怎么爆发的

新疆新增3例确诊病例-新疆疫情怎么爆发的

据最新消息报道新疆新增3例确诊病例,在近段时间大家都有注意到新疆喀什的疫情是还没有稳定下来,因此很多人都很好奇新疆疫情怎么爆发的,对于这次疫情的源头到底是什么呢,之前有专家表示和气温下降可能有关,那么...

QQ音乐免费领3天豪华绿钻+音乐包 秒到账 刚需上车

本文是QQ音乐免费领3天豪华绿钻+音乐包 秒到账 刚需上车 人人可领!手机QQ扫码->跳转到QQ音乐领取->秒到 活动地址:https://y.qq.com/jzt/yua...

找黑客联系电话-淘宝黑客暗语(淘宝能让人死的药暗语是什么

找黑客联系电话-淘宝黑客暗语(淘宝能让人死的药暗语是什么世界最富有的我国(全世界哪个国家最颇具)全世界这么多我国,每一个我国的经济实力及其各层面的整体实力全是不一样的 全世界这么多我国,每一个我国的...

甘望星谢兴阳吴宇恒周柯宇获封创造营四大门面

《创造营2021》于近日首播,甫一播出就因选手花样频出的表现、导师犀利有趣的点评引发热议。节目刚刚播出第一期,创4四大门面就迅速出炉:甘望星、谢兴阳、吴宇恒、周柯宇。四人凭借超高颜值、节目中亮眼表现光...

华为手机微信恢复聊天记录

微信聊天记录怎么恢复?是微信作为我们每天都要用到的聊天工具,功能也是非常多样的,而微信聊天记录却常常因为各种原因丢失,这也给用户带来了不好的体验,那么。 微信备份的聊天记录怎么查看?随着时代的进步,大...