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
ElseIf (intTempID > 0) Then intTempOut = intTempOut + 1 End If Next
If intTotalNum < 1 Then oUser.gs_AddMessage "操作单中无产品数据" oUser.gs_AddMessage "共有 " & intTempOut & " 条数据(产品单价为0、为空或负数, 数量为0或空)被过滤" oUser.gs_ShowMessage 1 End If Rem ############################################################################################### Rem ## 打开连接 f__OpenConn
Rem ############################################################################################### Rem ## 检测表存在与否 Dim tblTableName tblTableName = oUser.getBillTable(dtaBillYear) Rem ###############################################################################################
Rem ############################################################################################### Rem ## 构造单项目 SQL 语句 并保存 strBillCode = getOpeBill()