Public Class ficheroscompanias
    Public Enum TipoFicheroCompania As Integer
        POLIZAS_EIAC = 1
        RECIBOS_EIAC = 2
        MOVIMIENTOS_RECIBOS_EIAC = 3
        SINIESTROS_EIAC = 4
        MOVIMIENTOS_SINIESTROS_EIAC = 5
        LIQUIDACIONES_EIAC = 5
        RECIBOS_PATRIA_HISPANA = 12
        RECIBOS_PREVISION_MALLORQUINA = 12
        CARTERA_COMPLETA_EIAC = 98
        DESCONOCIDO = 99
    End Enum
    Public Function ContieneMovimientosDeRecibos() As Boolean
        Try
            If Me.Version = "6.0" Then
                Dim DatosEIAC As ProcesosEIAC_V6.ProcesosEIAC = tsl5.Utilidades.Deserializa(Me.Fichero, GetType(ProcesosEIAC_V6.ProcesosEIAC))
                If DatosEIAC.Objetos IsNot Nothing AndAlso DatosEIAC.Objetos.Items IsNot Nothing Then
                    Return DatosEIAC.Objetos.Items.Any(Function(x) x.GetType Is GetType(ProcesosEIAC_V6.tipo_movimientorecibo))
                Else
                    Return False
                End If
            Else
                'Dim DatosEIAC As ProcesosEIAC_V5.ProcesosEIAC = tsl5.Utilidades.Deserializa(Me.Fichero, GetType(ProcesosEIAC_V5.ProcesosEIAC))
                'If DatosEIAC.Objetos IsNot Nothing AndAlso DatosEIAC.Objetos.Items IsNot Nothing Then
                '    Return DatosEIAC.Objetos.Items.Any(Function(x) x.GetType Is GetType(ProcesosEIAC_V5.tipo))
                'Else
                Return False
                'End If
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function

End Class