新增文章

文章标题分类内容

'【销售变更单 210001211】【审批流插件】
'-----------------------------------------------------------------------------------------------------------------------------

'【审核成功后】反写源单
'【驳回成功后】反写源单

'【审核前】检查：源单已记账，请先【删除凭证】 / 请先【反确认】源单
'【驳回前】检查：源单已记账，请先【删除凭证】 / 请先【反确认】源单

'-----------------------------------------------------------------------------------------------------------------------------

Private WithEvents m_ApprovalInterface  As MixedApprovalEvents
 
Public Sub Show(ByVal oApprovalInterface As Object)
 
    Set m_ApprovalInterface = oApprovalInterface   '注意: 此方法必须存在, 请勿修改
End Sub

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

Private Sub m_ApprovalInterface_CheckDone(ByVal lCheckNodeIndex As Long, ByVal bSucceed As Variant)  '审核后

aFID = m_ApprovalInterface.BillData("FID")
    
    If lCheckNodeIndex = 2000 And bSucceed = True Then
        m_ApprovalInterface.K3Lib.UpdateData ("exec a_SeAlterFan " & aFID & " ,'Check'  --【审核】反写【源单数据】 ")
    End If
    
End Sub

Private Sub m_ApprovalInterface_UnCheckDone(ByVal lUnCheckNodeIndex As Long, ByVal bSucceed As Variant)  '驳回后

aFID = m_ApprovalInterface.BillData("FID")
    
    If bSucceed = True Then
        m_ApprovalInterface.K3Lib.UpdateData ("exec a_SeAlterFan " & aFID & " ,'UnCheck'  --【驳回】反写【源单数据】 ")
    End If
End Sub

Private Sub m_ApprovalInterface_CheckOptionConfigured(dctConfig As KFO.IDictionary, bCancel As Boolean)  '审核前

If m_ApprovalInterface.BillData Is Nothing Then Exit Sub  '没有数据，退出
 '--------------------------------------------------------------------------------------------------------------------------------------------
    Dim aType As String:  aType = "启动审核"
    
    If dctConfig.GetValue("IsBusinessCheck") Then  'True  启动审核
    
        aType = "审核"
    End If
    
    bCancel = aCheck(aType, m_ApprovalInterface.BillData("FID"))
    
End Sub

Private Sub m_ApprovalInterface_UncheckOptionConfigred(dctConfig As KFO.IDictionary, bCancel As Boolean)  '驳回前

If Not dctConfig.GetValue("IsBusinessCheck", False) Then Exit Sub   '未启动审核，退出
        
    If m_ApprovalInterface.BillData Is Nothing Then Exit Sub  '没有数据，退出
    
 '--------------------------------------------------------------------------------------------------------------------------------------------
    bCancel = aCheck("驳回", m_ApprovalInterface.BillData("FID"))
    
End Sub

Function aCheck(aType As String, aFID As Long) As Boolean   '检查源单

aMsg = "": aCheck = False
    
    aSql = "select distinct a2.FID,a1.FBillNo,a1.FVoucherId,a1.FConfirmId from a_StockBill a1 join a_SeAlterEntry a2 on a1.FID = a2.FID_SRC and a2.FClassID_SRC in ( 210001202,210001203 ) and a2.FID = " & aFID
    
    Set aRecordset = m_ApprovalInterface.K3Lib.GetData(aSql): aBillNo = ""
    If aRecordset.RecordCount > 0 Then
    
        For i = 1 To aRecordset.RecordCount
        
            aFBillNo = aRecordset("FBillNo"): aFConfirmId = aRecordset("FConfirmId"): aFVoucherId = aRecordset("FVoucherId"):
            
            If aFVoucherId <> "" Then
                aMsg = aType & "失败 ！源单已记账，请先【删除凭证】 " & aFVoucherId: GoTo aExit
                
            ElseIf aFConfirmId <> "0" Then
                aMsg = aType & "失败 ！请先【反确认】源单 " & aFBillNo: GoTo aExit
            End If
            
            aRecordset.MoveNext
        Next
    End If
    
    Exit Function

'--------------------------------------------------------------------------------------------------------------------------------------------
aExit:
    aCheck = True: Set aRecordset = Nothing: MsgBox aMsg, vbExclamation, "一星提示": Exit Function
    
End Function