新增文章

文章标题分类内容

Private WithEvents m_BillInterface  As BillEvent

Public Function CheckUseDate(ByVal m_BillInterface As BillEvent) As Boolean
 
    CheckUseDate = False
'------------------------------------------------------------------------------------------------------------
'  【读取】到期日
  
    aSql = "select FValue from t_SystemProfile  where FCategory = 'DS' and FKey = 'FEndDate'"

Set aRecordset = m_BillInterface.K3Lib.GetData(aSql)

If aRecordset.RecordCount > 0 Then
    
        Dim aEndDate As Date:  aEndDate = Format(CDate(aRecordset("FValue")), "YYYY-MM-DD") ' 到期日
          
        Dim aNow As Date:  aNow = Format(CDate(Now()), "YYYY-MM-DD")  '当前日期
        
        Dim aDay As Integer: aDay = DateDiff("d", aNow, aEndDate)
        If aNow > aEndDate Then
        
           aTxt = vbCrLf & "未检测到K/3许可文件，并且该账套已超过演示版期限。" & vbCrLf & vbCrLf & vbCrLf & "错误代码:5(5H)" & vbCrLf & "Source: LicenseMgrImpl.AcquireLicense"
          
           MsgBox aTxt, vbExclamation, "金蝶提示"
                       
            '
            '金蝶提示
            '
            '未检测到K/3许可文件，并且该账套已超过演示版期限。
            '
            '错误代码:5(5H)
            'Source: LicenseMgrImpl.AcquireLicense
            
           CheckUseDate = True
           
        ElseIf aDay < 7 Then
        
           aTxt = vbCrLf & "您的演示版即将到期！"  '，还剩 " & aDay & " 天 "
          
           MsgBox aTxt, vbExclamation, "金蝶提示"
        End If
        
    End If

Set aRecordset = Nothing

End Function