新增文章

文章标题分类内容

'【销售订单 210001201】【序时簿插件】

Private WithEvents m_ListInterface  As ListEvents  '定义 ListEvents 接口. 必须具有的声明, 以此来获得事件
 
Public Sub Show(ByVal oListInterface As Object)
   
    Set m_ListInterface = oListInterface  'ListEvents 接口实现  '注意: 此方法必须存在, 请勿修改
End Sub

Private Sub Class_Terminate()

Set m_ListInterface = Nothing  '释放接口对象  '注意: 此方法必须存在, 请勿修改
End Sub

Private Sub aAbolish(aFID As String)

Dim aSql As String, i As Long, aBillNo As String, aRecordset As ADODB.Recordset

'------------------------------------------------------------------------------------------------------------
  '【未审核】【未作废】
  
    aSql = "select FBillNo from a_SeOrder where FCheckId = 0 and FCancellation = 0 and FID in ( " & aFID & " ) order by FBillNo"
    
    Set aRecordset = m_ListInterface.K3Lib.GetData(aSql)
    If aRecordset.RecordCount > 0 Then
    
        For i = 1 To aRecordset.RecordCount
        
            If Not i = aRecordset.RecordCount Then
                aBillNo = aBillNo & aRecordset("FBillNo") & "  "
            Else
                aBillNo = aBillNo & aRecordset("FBillNo")
            End If
            
            aRecordset.MoveNext
        Next
        
    '------------------------------------------------------------------------------------------------------------
    '【作废】未审核的单据
        
        aSql = "update a_SeOrder set FCancellation = 1 where FCheckId = 0 and FCancellation = 0 and FID in ( " & aFID & " )"
        
        m_ListInterface.K3Lib.UpdateData (aSql)
        
        MsgBox "以下单据 作废成功！" & vbCrLf & vbCrLf & aBillNo, vbInformation, "一星提示"
      
    End If

End Sub