📄 frmprintreceipt.frm
字号:
Case 3 '受托入库
GetReceiptName = "4"
Case 4 '受托结算
GetReceiptName = "5"
Case 5 '加工入库
GetReceiptName = "6"
Case 6 '加工费用
GetReceiptName = "7"
Case 7 '采购发票
GetReceiptName = "8,2,3,4,5,6,7,9,10,11 "
Case 8 '自制入库
GetReceiptName = "9"
Case 9 '盘赢入库
GetReceiptName = "10"
Case 10 '其它入库
GetReceiptName = "11"
Case 11 '商品销售
GetReceiptName = "13"
Case 12 '直运销售
GetReceiptName = "14"
Case 13 '委托出库
GetReceiptName = "15"
Case 14 '委托结算
GetReceiptName = "16"
Case 15 '加工出库
GetReceiptName = "17"
Case 16 '分期出库
GetReceiptName = "18"
Case 17 '分期结算
GetReceiptName = "19"
Case 18, 58 '销售发票
GetReceiptName = "20,13,14,15,16,17,18,19,21,22,23,24 "
Case 19 '领用出库
GetReceiptName = "21"
Case 20 '成本调整
GetReceiptName = "22"
Case 21 '盘亏出库
GetReceiptName = "23"
Case 22 '其它出库
GetReceiptName = "24"
Case 23 '采购订单
GetReceiptName = "1"
Case 24 '销售订单
GetReceiptName = "12"
Case 25 '应收单
GetReceiptName = "36,37,38"
Case 26 '应付单
GetReceiptName = "34,35"
Case 27 '收款单
GetReceiptName = "40"
Case 28 '付款单
GetReceiptName = "39"
Case 29 '凭证
GetReceiptName = "41,54,55"
Case 30 '调拨单
GetReceiptName = "28"
Case 31 '调价单
GetReceiptName = "29"
Case 32 '拆卸组装单
GetReceiptName = "30,31"
Case 33 '商品盘点表
GetReceiptName = "33"
Case 34 '入库成本表
GetReceiptName = "32"
Case 35 '委托调拨
GetReceiptName = "26"
Case 36 '固资变动
GetReceiptName = "48,49,50"
Case 37 '固资卡片
GetReceiptName = "51"
Case 38 '固资期初
GetReceiptName = "53"
Case 39 '库存期初
GetReceiptName = "42"
Case 40 '受托期初
GetReceiptName = "43"
Case 41 '委托期初
GetReceiptName = "44"
Case 42 '分期期初
GetReceiptName = "45"
Case 43 '直运期初
GetReceiptName = "46"
Case 44 '加工期初
GetReceiptName = "47"
Case 45 '采购期初
GetReceiptName = "52"
End Select
End Function
'*****************************************************************
'以下函数暂时取消
'Private Function GetTableFilterList(ByVal strTableName As String, _
' Optional ByVal BeginDate As String = "", Optional ByVal EndDate As String = "") As rdoResultset
'
' Dim recRecordset As rdoResultset
' Dim strSelectOfSql As String
' Dim strFromOfSql As String
' Dim strWhereOfSql As String
' Dim strOrderOfSql As String
' Dim strSql As String
'
' If BeginDate = "" Then BeginDate = "1899-01-01"
' If EndDate = "" Then EndDate = "9999-12-31"
' strSelectOfSql = mclsGrid.ListSet.GetSelect
' strFromOfSql = mclsGrid.ListSet.FromOfSql
' strWhereOfSql = mclsGrid.ListSet.WhereOfSql
'
' If strTableName = "FixedCard" Then
' strSelectOfSql = "select FixedCard.lngFixedCardID as id," & strSelectOfSql
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(FixedAlter.strDate,'yyyy-mm-dd')>='" & BeginDate _
' & "' and format(FixedAlter.strDate,'yyyy-mm-dd')<='" & EndDate & _
' "' and " & strWhereOfSql
' Else
' strWhereOfSql = "WHERE format(FixedAlter.strDate,'yyyy-mm-dd')>='" & BeginDate _
' & "' and format(FixedAlter.strDate,'yyyy-mm-dd')<='" & EndDate & "'"
' End If
' Else
' strSelectOfSql = "select " & strTableName & ".lng" & strTableName & "ID as id," & strSelectOfSql
' Select Case cboReceiptName.ItemData(cboReceiptName.ListIndex)
' Case 48 '固资增加
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate _
' & "' and fixedAlter.bytAlterType=1 and fixedAlter.blnIsInit=False and " & strWhereOfSql
' Else
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate _
' & "' and fixedAlter.bytAlterType=1 and fixedAlter.blnIsInit=False"
' End If
' Case 49
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate _
' & "' and fixedAlter.bytAlterType=2 and " & strWhereOfSql
' Else
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate _
' & "' and fixedAlter.bytAlterType=2"
' End If
' Case 50
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate _
' & "' and fixedAlter.bytAlterType=3 and " & strWhereOfSql
' Else
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate _
' & "' and fixedAlter.bytAlterType=3"
' End If
' Case 53 '固资期初
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate _
' & "' and fixedAlter.bytAlterType=1 and fixedAlter.blnIsInit=True and " & strWhereOfSql
' Else
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate _
' & "' and fixedAlter.bytAlterType=1 and fixedAlter.blnIsInit=True"
' End If
' Case 41 '记帐凭证
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate & "' and " & strWhereOfSql & " And VoucherType.strVoucherFormat=" & "'" & "0" & "'"
' Else
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate & "'" & " And VoucherType.strVoucherFormat=" & "'" & "0" & "'"
' End If
' Case 54 '收款凭证
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate & "' and " & strWhereOfSql & " And VoucherType.strVoucherFormat=" & "'" & "1" & "'"
' Else
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate & "'" & " And VoucherType.strVoucherFormat=" & "'" & "1" & "'"
' End If
' Case 55 '付款凭证
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate & "' and " & strWhereOfSql & " And VoucherType.strVoucherFormat=" & "'" & "2" & "'"
' Else
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate & "'" & " And VoucherType.strVoucherFormat=" & "'" & "2" & "'"
' End If
' Case Else
' If strWhereOfSql <> "" Then
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate & "' and " & strWhereOfSql
' Else
' strWhereOfSql = "WHERE format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')>='" & BeginDate & "' and format(" _
' & strTableName & ".strDate,'yyyy-mm-dd')<='" & EndDate & "'"
' End If
' End Select
'
' End If
'
' If cboReceiptName.ItemData(cboReceiptName.ListIndex) = 41 Then '如果是记帐凭证
' strOrderOfSql = " Order By Voucher.intYear,Voucher.bytPeriod,Voucher.lngVoucherTypeID,Voucher.intVoucherNO"
' strSql = strSelectOfSql & " " & strFromOfSql & " " & strWhereOfSql & strOrderOfSql
' Else
'''' strOrderOfSql = " Order By intYear,bytPeriod,strReceiptNO,lngReceiptNO"
' strSql = strSelectOfSql & " " & strFromOfSql & " " & strWhereOfSql '& strOrderOfSql
' End If
'
' Set recRecordset = gclsBase.BaseDB.OpenResultset(strSql, dbOpenSnapshot)
'
' '列表是否为空
' If recRecordset.RowCount = 0 Then
' msgPrintReceipt.HighLight = flexHighlightNever
' Else
' msgPrintReceipt.HighLight = flexHighlightAlways
' End If
' Set GetTableFilterList = recRecordset
'End Function
Private Function GetReceiptTypeSQL(intReceiptListType As Integer) As String
Select Case intReceiptListType
Case 1 '商品采购
GetReceiptTypeSQL = "IN(2)"
Case 2 '直运采购
GetReceiptTypeSQL = "IN(3)"
Case 3 '受托入库
GetReceiptTypeSQL = "IN(4)"
Case 4 '受托结算
GetReceiptTypeSQL = "IN(5)"
Case 5 '加工入库
GetReceiptTypeSQL = "IN(6)"
Case 6 '加工费用
GetReceiptTypeSQL = "IN(7)"
Case 7 '采购发票
''' GetReceiptTypeSQL = "IN(8) OR (ItemActivity.lngReceiptTypeID IN(2,3,4,5,6,7,9,10,11) AND ItemActivity.blnIsInvoice=True) "
' GetReceiptTypeSQL = "IN(8)"
'2000-01-20 HT request OR (ItemActivity.lngReceiptTypeID IN(2,3,4,5,6,7,9,10,11) AND ItemActivity.blnIsInvoice<>0)
GetReceiptTypeSQL = "IN(8)"
Case 8 '自制入库
GetReceiptTypeSQL = "IN(9)"
Case 9 '盘赢入库
GetReceiptTypeSQL = "IN(10)"
Case 10 '其它入库
GetReceiptTypeSQL = "IN(11)"
Case 11 '商品销售
GetReceiptTypeSQL = "IN(13)"
Case 12 '直运销售
GetReceiptTypeSQL = "IN(14)"
Case 13 '委托出库
GetReceiptTypeSQL = "IN(15)"
Case 14 '委托结算
GetReceiptTypeSQL = "IN(16)"
Case 15 '加工出库
GetReceiptTypeSQL = "IN(17)"
Case 16 '分期出库
GetReceiptTypeSQL = "IN(18)"
Case 17 '分期结算
GetReceiptTypeSQL = "IN(19)"
Case 18, 58 '销售发票
'' GetReceiptTypeSQL = "IN(20) OR (ItemActivity.lngReceiptTypeID IN(13,14,15,16,17,18,19,21,22,23,24) AND ItemActivity.blnIsInvoice=True) "
' GetReceiptTypeSQL = "IN(20)"
'2000-01-20 HT request OR (ItemActivity.lngReceiptTypeID IN(13,14,15,16,17,18,19,21,22,23,24) AND ItemActivity.blnIsInvoice<>0)
GetReceiptTypeSQL = "IN(20)"
Case 19 '领用出库
GetReceiptTypeSQL = "IN(21)"
Case 20 '成本调整
GetReceiptTypeSQL = "IN(22)"
Case 21 '盘亏出库
GetReceiptTypeSQL = "IN(23)"
Case 22 '其它出库
GetReceiptTypeSQL = "IN(24)"
Case 23 '采购订单
GetReceiptTypeSQL = "IN(1)"
Case 24 '销售订单
GetReceiptTypeSQL = "IN(12)"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -