新增文章

文章标题分类内容

Private Sub m_ListInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)  '菜单事件
    
  '------------------------------------------------------------------------------------------------------------
  '拼接 FID,FEntryId
  
    Dim aSelect As KFO.Vector:  Set aSelect = m_ListInterface.GetSelectedBillInfo
    
    Dim aFClassTypeID As Long
    Dim aUsePage As String
    Dim aFID As String
    Dim aFEntryId As String
    
    Set aDataSrv = m_ListInterface.List.DataSrv: aFClassTypeID = aDataSrv.ClassTypeID: aUsePage = aDataSrv.ListUsePage: aFID = "": aFEntryId = ""
    Set aDataSrv = Nothing
    
    If aUsePage = ",1,2," Then
        For i = 1 To aSelect.Size
            If Not i = aSelect.Size Then
                aFID = aFID & aSelect(i)("FID") & ","
                aFEntryId = aFEntryId & aSelect(i)("FEntryId") & ","
            Else
                aFID = aFID & aSelect(i)("FID")
                aFEntryId = aFEntryId & aSelect(i)("FEntryId")
            End If
        Next
    Else
        For i = 1 To aSelect.Size
            If Not i = aSelect.Size Then
                aFID = aFID & aSelect(i)("FID") & ","
            Else
                aFID = aFID & aSelect(i)("FID")
            End If
        Next
    End If
    
  '------------------------------------------------------------------------------------------------------------
  ' 按钮名称
  
    Select Case BOSTool.ToolName
        
      Case "mnuEditDelete": Cancel = IsAbolish(aFClassTypeID, aFID)  '删除

Case Else
    End Select
    
  '------------------------------------------------------------------------------------------------------------
  ' 清空对象
    
    Set aSelect = Nothing
End Sub

Function IsAbolish(aFClassTypeID As Long, aFID As String) As Boolean

Dim aSql As String, i As Long, aBillNo As String, aRecordset As ADODB.Recordset: IsAbolish = False

'------------------------------------------------------------------------------------------------------------
  '【已作废】
  
    aSql = "select FBillNo from a_StockBill where FClassTypeID = " & aFClassTypeID & " and FCancellation = 1 and FID in ( " & aFID & " ) order by FBillNo"
    
    Set aRecordset = m_ListInterface.K3Lib.GetData(aSql): aBillNo = ""
    If aRecordset.RecordCount > 0 Then
    
        For i = 1 To aRecordset.RecordCount
            aBillNo = aBillNo & "  " & aRecordset("FBillNo"): aRecordset.MoveNext
        Next
        
        IsAbolish = True: MsgBox "以下单据 已作废！请先反作废，再删除 " & vbCrLf & vbCrLf & aBillNo, vbExclamation, "一星提示"
    End If

Set aRecordset = Nothing
End Function