frmprintreceipt.frm

金算盘软件代码

           Case "商品调价"
                If Not IsCanDo(91, gclsBase.OperatorID) Then Exit Function
           Case "商品组装", "商品拆卸"
                If Not IsCanDo(95, gclsBase.OperatorID) Then Exit Function
           Case "入库成本"
                If Not IsCanDo(111, gclsBase.OperatorID) Then Exit Function
           Case "商品盘点"
                If Not IsCanDo(93, gclsBase.OperatorID) Then Exit Function
           Case "应付贷项", "应付借项"
                If Not IsCanDo(40, gclsBase.OperatorID) Then Exit Function
           Case "应收借项", "应收贷项"
                If Not IsCanDo(37, gclsBase.OperatorID) Then Exit Function
           Case "应收计息"
                If Not IsCanDo(38, gclsBase.OperatorID) Then Exit Function
           Case "付款单"
                If Not IsCanDo(46, gclsBase.OperatorID) Then Exit Function
           Case "收款单"
                If Not IsCanDo(44, gclsBase.OperatorID) Then Exit Function
           Case "记帐凭证"
                If Not IsCanDo(28, gclsBase.OperatorID) Then Exit Function
           Case "库存期初", "受托期初", "委托期初", "分期期初", "直运期初", "加工期初", "采购期初"
                If Not IsCanDo(209, gclsBase.OperatorID) Then Exit Function
           Case "固资增加", "固资减少", "其它变动", "固资卡片"
                If Not IsCanDo(120, gclsBase.OperatorID) Then Exit Function
    End Select
    IsHaveRight = True
End Function
'*************************************************************
'以下方法暂时取消
'Private Sub RefreshData()
'   Dim BeginDate, EndDate As String, iCol As Integer
'   Dim i As Integer
'   Dim blnIsHaveRight As Boolean
'
'    If mblnIsFormLoad = True Then Exit Sub
'    msgPrintReceipt.FixedCols = 0
'    BeginDate = Trim(gacbegin.Text)
'    EndDate = Trim(gacend.Text)
'
'    blnIsHaveRight = True
'    If Not IsHaveRight(cboReceiptName.Text) Then
'           msgPrintReceipt.Rows = 1
'           blnIsHaveRight = False
'           GoTo InitGrid
'    End If
'    Select Case cboReceiptName.ItemData(cboReceiptName.ListIndex)
'           Case 34 To 40   '"应收单", "应付单", "收款单", "付款单"
'                '得到付款方式列表记录集
'                 mclsGrid.ListSet.ViewId = 319
'                Set datPrintReceipt.Resultset = GetFilterList(cboReceiptName.ItemData(cboReceiptName.ListIndex), "Activity", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'           Case 12     '"销售订单"
'                ' mclsGrid.ListSet.firstuse = True
'                 mclsGrid.ListSet.ViewId = 313
'                Set datPrintReceipt.Resultset = GetTableFilterList("SaleOrder", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'           Case 1     '"采购订单"
'                 mclsGrid.ListSet.ViewId = 312
'                Set datPrintReceipt.Resultset = GetTableFilterList("PurchaseOrder", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'           Case 33     '"盘点表"
'               ' mclsGrid.ListSet.firstuse = True
'                 mclsGrid.ListSet.ViewId = 315
'                Set datPrintReceipt.Resultset = GetTableFilterList("StockTaking", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'           Case 48 To 50, 53   '"固资增加","固资减少","其它变动","固资期初"
'                 mclsGrid.ListSet.ViewId = 317
'                Set datPrintReceipt.Resultset = GetTableFilterList("FixedAlter", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'           Case 51         '"固资卡片"
'                  mclsGrid.ListSet.ViewId = 318
'                Set datPrintReceipt.Resultset = GetTableFilterList("FixedCard", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'           Case 41, 54, 55         ' "记帐凭证","收款凭证","付款凭证"
'                 mclsGrid.ListSet.ViewId = 316
'                Set datPrintReceipt.Resultset = GetTableFilterList("Voucher", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'           Case 32           '  "入库成本表"
'                 mclsGrid.ListSet.ViewId = 314
'                Set datPrintReceipt.Resultset = GetTableFilterList("CostPrice", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'           Case Else
'                 mclsGrid.ListSet.ViewId = 320
'                Set datPrintReceipt.Resultset = GetFilterList(cboReceiptName.ItemData(cboReceiptName.ListIndex), "ItemActivity", BeginDate, EndDate)
'                If datPrintReceipt.Resultset.RowCount > 0 Then
'                   datPrintReceipt.Resultset.MoveLast
'                End If
'                datPrintReceipt.Resultset.Close
'    End Select
'InitGrid:
'    'mclsGrid.ListSet.SaveList
'    mclsGrid.SetupStyle
'    mclsGrid.ColOfs = 2
'    With msgPrintReceipt
'        For iCol = 1 To .Cols - 1
'            .FixedAlignment(iCol) = flexAlignCenterCenter
'        Next iCol
'        If .Rows > 1 Then .Row = 1
'        .col = 0
'        .ColSel = .Cols - 1
'        If .Rows < 2 Then
'           For i = 0 To 5
'               cmdPrint(i).Enabled = False
'           Next
'           frmMain.mnuFilePrint.Enabled = False
'           cmdPrint(1).Enabled = True
'           If blnIsHaveRight Then
'              cmdPrint(2).Enabled = True
'           Else
'              cmdPrint(2).Enabled = False
'           End If
'        Else
'           For i = 0 To 5
'               cmdPrint(i).Enabled = True
'           Next
'           frmMain.mnuFilePrint.Enabled = True
'        End If
'    End With
''    If mclsGrid.ListSet.ListID < 1 Then
''       mclsGrid.ListSet.SaveList
''    End If
'End Sub
Private Function IsHaveReceiptType(intReceiptListType As Integer) As Boolean
    Select Case intReceiptListType
      Case 7, 18, 25, 26, 29, 32, 36, 38    '1999-11-28需求：凭证(29)增加“单据类型”一栏
        IsHaveReceiptType = True
      Case Else
        IsHaveReceiptType = False
    End Select
End Function
Private Function GetReceiptTypeName(intReceiptListType As Integer) As String
    Select Case intReceiptListType
           Case 1  '商品采购
             GetReceiptTypeName = "商品采购"
           Case 2  '直运采购
             GetReceiptTypeName = "直运采购"
           Case 3  '受托入库
             GetReceiptTypeName = "受托入库"
           Case 4  '受托结算
             GetReceiptTypeName = "受托结算"
           Case 5  '加工入库
             GetReceiptTypeName = "加工入库"
           Case 6  '加工费用
             GetReceiptTypeName = "加工费用"
           Case 7  '采购发票
             GetReceiptTypeName = "采购发票"
           Case 8  '自制入库
             GetReceiptTypeName = "自制入库"
           Case 9  '盘赢入库
             GetReceiptTypeName = "盘赢入库"
           Case 10 '其它入库
             GetReceiptTypeName = "其它入库"
           Case 11 '商品销售
             GetReceiptTypeName = "商品销售"
           Case 12 '直运销售
             GetReceiptTypeName = "直运销售"
           Case 13 '委托出库
             GetReceiptTypeName = "委托出库"
           Case 14 '委托结算
             GetReceiptTypeName = "委托结算"
           Case 15 '加工出库
             GetReceiptTypeName = "加工出库"
           Case 16 '分期出库
             GetReceiptTypeName = "分期出库"
           Case 17 '分期结算
             GetReceiptTypeName = "分期结算"
           Case 18 '销售发票
             GetReceiptTypeName = "销售发票"
           Case 19 '领用出库
             GetReceiptTypeName = "领用出库"
           Case 20 '成本调整
             GetReceiptTypeName = "成本调整"
           Case 21 '盘亏出库
             GetReceiptTypeName = "盘亏出库"
           Case 22 '其它出库
             GetReceiptTypeName = "其它出库"
           Case 23 '采购订单
             GetReceiptTypeName = "采购订单"
           Case 24 '销售订单
             GetReceiptTypeName = "销售订单"
           Case 25 '应收单
             GetReceiptTypeName = "应收借项"
           Case 26 '应付单
             GetReceiptTypeName = "应付借项"
           Case 27 '收款单
             GetReceiptTypeName = "收款单"
           Case 28 '付款单
             GetReceiptTypeName = "付款单"
           Case 29 '凭证
             GetReceiptTypeName = "记帐凭证"
           Case 30 '调拨单
             GetReceiptTypeName = "商品调拨"
           Case 31 '调价单
             GetReceiptTypeName = "商品调价"
           Case 32 '拆卸组装单
             GetReceiptTypeName = "商品组装"
           Case 33 '商品盘点表
             GetReceiptTypeName = "商品盘点"
           Case 34 '入库成本表
             GetReceiptTypeName = "入库成本"
           Case 35 '委托调拨
             GetReceiptTypeName = "代销调拨"
           Case 36 '固资变动
             GetReceiptTypeName = "固资增加"
           Case 37 '固资卡片
             GetReceiptTypeName = "固资卡片"
           Case 38 '固资期初
             GetReceiptTypeName = "固资期初"
           Case 39 '库存期初
             GetReceiptTypeName = "库存期初"
           Case 40 '受托期初
             GetReceiptTypeName = "受托期初"
           Case 41 '委托期初
             GetReceiptTypeName = "委托期初"
           Case 42 '分期期初
             GetReceiptTypeName = "分期期初"
           Case 43 '直运期初
             GetReceiptTypeName = "直运期初"
           Case 44 '加工期初
             GetReceiptTypeName = "加工期初"
           Case 45 '采购期初
             GetReceiptTypeName = "采购期初"
           Case 57
             GetReceiptTypeName = "采购付款"
           Case 56
             GetReceiptTypeName = "销售收款"
           Case 58    '销货清单
             GetReceiptTypeName = "销货清单"
    End Select
    
    If blnIsSaleDataBook Then
        Me.Caption = "打印" & GetReceiptTypeName
    Else
        Me.Caption = "打印" & GetReceiptTypeName & "单据"
    End If

End Function

Private Sub RefreshData1()
   Dim BeginDate, EndDate As String, iCol As Integer
   Dim i As Integer
   Dim blnIsHaveRight As Boolean
    
    Label1.Visible = False
    cboReceiptType.Visible = False

    If mblnIsFormLoad = True Then Exit Sub
    msgPrintReceipt.FixedCols = 0
    BeginDate = Trim(gacbegin.Text)
    EndDate = Trim(gacend.Text)
    
    If IsHaveReceiptType(mintReceiptListType) = True Then  '判断是否显示单据类型列
       msgPrintReceipt.ColWidth(3) = 990
    Else
       msgPrintReceipt.ColWidth(3) = 0
    End If
    
    blnIsHaveRight = True
    
    If Not IsHaveRight(GetReceiptTypeName