新增文章

文章标题分类内容

Option Explicit

Attribute m_ApprovalInterface.VB_VarHelpID = -1
 
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_UncheckOptionConfigred(dctConfig As KFO.IDictionary, bCancel As Boolean)  '驳回时

Dim aFID As Long: aFID = m_ApprovalInterface.BillData("FID")
    Dim aDay As Long
    
    Dim aFKey As String
    Dim aFDate As Date
    
 '--------------------------------------------------------------------------------------------------------------------------------------------
    If Not dctConfig.GetValue("IsBusinessCheck", False) Then Exit Sub   '判断是否业务审核
    
    If m_ApprovalInterface.BillData Is Nothing Then Exit Sub
    
 '--------------------------------------------------------------------------------------------------------------------------------------------
    If Not m_ApprovalInterface.BillEvent Is Nothing Then   '单据界面 触发   m_ApprovalInterface.BillEvent = m_oBillInterface
    
        aFKey = m_ApprovalInterface.BillEvent.TableInfo("Map")("FDate")
        aFDate = m_ApprovalInterface.BillEvent.Data("page1")(aFKey)("FFLD")
        
        aDay = DateDiff("d", aFDate, Date)  '天数计算
        
        If aDay > 30 Then
        
            bCancel = True  '停止驳回操作
            MsgBox "单据驳回失败! 不允许驳回30天以前单据的业务审核级次!" & sErrMsg, vbExclamation, "金蝶提示"
        End If
        
 '--------------------------------------------------------------------------------------------------------------------------------------------
    ElseIf Not m_ApprovalInterface.ListEvent Is Nothing Then '序时薄界面 触发  m_ApprovalInterface.ListEvent = m_oListInterface
    
        aFKey = m_ApprovalInterface.ListEvent.DataSrv.TableInfo("Map")("FDate")
        aFDate = m_ApprovalInterface.BillData("page1")(aFKey)("FFLD")
        
        aDay = DateDiff("d", aFDate, Date)
        
        If aDay > 30 Then
        
            bCancel = True  '停止驳回操作
            MsgBox "单据驳回失败! 不允许驳回30天以前单据的业务审核级次!" & sErrMsg, vbExclamation, "金蝶提示"
        End If
        
 '--------------------------------------------------------------------------------------------------------------------------------------------
    End If
End Sub