clsFileState.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsFileState"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'@Description: Estado relacionado con el archivo Excel activo
'@Category: State
'@Folder "2-Infraestructura.1-Estado"
Option Explicit

Private Const MODULE_NAME As String = "clsFileState"

' ==========================================
' ESTADO DE ARCHIVO
' ==========================================
Private mCurrentFile As clsFileXLS

' ==========================================
' INICIALIZACIÓN
' ==========================================

Private Sub Class_Initialize()
    Set mCurrentFile = Nothing
End Sub

Private Sub Class_Terminate()
    Set mCurrentFile = Nothing
End Sub

' ==========================================
' PROPIEDADES PÚBLICAS
' ==========================================

'@Description: Obtiene o establece el archivo Excel activo actual
Public Property Get CurrentFile() As clsFileXLS
    Set CurrentFile = mCurrentFile
End Property

Friend Property Set CurrentFile(f As clsFileXLS)
    Set mCurrentFile = f
    LogDebug MODULE_NAME, "[CurrentFile] Changed to: " & GetCurrentFileName()
End Property

'@Description: Indica si el archivo actual es un archivo de oportunidad
Public Property Get IsOpportunityFile() As Boolean
    If mCurrentFile Is Nothing Then Exit Property
    IsOpportunityFile = mCurrentFile.IsOpportunityFile
End Property

' ==========================================
' CONSULTAS DE ESTADO
' ==========================================

'@Description: Indica si hay un archivo actualmente activo
Public Function HasCurrentFile() As Boolean
    HasCurrentFile = Not (mCurrentFile Is Nothing)
End Function

'@Description: Obtiene el nombre del archivo actual
'@Returns: String con el nombre del archivo o "(ninguno)"
Public Function GetCurrentFileName() As String
    If mCurrentFile Is Nothing Then
        GetCurrentFileName = "(ninguno)"
    Else
        On Error Resume Next
        GetCurrentFileName = mCurrentFile.Name
        If Err.Number <> 0 Then
            GetCurrentFileName = "(error)"
        End If
        On Error GoTo 0
    End If
End Function

'@Description: Obtiene el path completo del archivo actual
'@Returns: String con el path o cadena vacía
Public Function GetCurrentFilePath() As String
    If mCurrentFile Is Nothing Then
        GetCurrentFilePath = ""
    Else
        On Error Resume Next
        GetCurrentFilePath = mCurrentFile.path
        If Err.Number <> 0 Then
            GetCurrentFilePath = ""
        End If
        On Error GoTo 0
    End If
End Function