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

访客4年前黑客工具743

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

相关文章

伴游网干嘛的-【杨莎莎】

“伴游网干嘛的-【杨莎莎】” 微信号:21**f**n伴游时间:提前??QQ号:581***11镇江外籍模特免费看图预约找到适合自己的伴游模特 文章版权声明: 本篇由 高端模特经纪人...

想找个电脑黑客「怎么找黑客大户团队」

  小白一个 不知道关于计算机和网络的任何知识 想成为一个黑客 应该怎么学习?能不能推荐一些书学习一下?   少年,先来本C++从入门到放弃?   可能你首先需要确定自己是否是真的对此感兴趣。而...

超感猎杀演员参演黑客帝国4(超感猎杀德国演员)

超感猎杀演员参演黑客帝国4(超感猎杀德国演员)

本文导读目录: 1、超感猎杀 女演员 2、邹兆龙出演《黑客帝国》,赢得终身分红权,具体是什么情况? 3、《黑客帝国》的主演“尼欧”? 4、《黑客帝国》的导演原是一对兄弟现在却变成了一对姐妹...

如何包饺子(包饺子的手法)

如何包饺子(包饺子的手法)饺子可是咱河南人的最爱,小时候家里穷,很少吃肉,只有过年过节了才会包一回饺子解解馋,吃着那叫一个香。现在人生活节奏快了,工作忙了,想吃个饺子为了节省时间都是跑到饺子馆吃上一碗...

星露谷怎么赚钱?星露谷物语赚钱教学

星露谷怎么赚钱?星露谷物语赚钱教学

首先讲一下,第一年应该做的一些事和致富方法,第一年,刚出来的时候,会给你一些防风草的种子,就是欧洲萝卜,切记要留着几个。 后面要做活动中心的任务,然后,都种下去,一个不要留,然后就是到海洋那边去领钓...

上海市高端经纪人联系方式 五种预约方式陶雪梅

上海市高端经纪人方式 五种方式【陶雪梅】,上海市是一座成功者的集中地,对商业服务女的要求也是较为大的,今日大牌明星兼职共享女学妹访梦,年纪天津市 女 32,婚姻生活:离婚,文凭:普通高中,气场:上海市...