agregado procesos y bd clases

guia/Extensiones/ficheroscompanias.vb

@@ -0,0 +1,36 @@
+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