37 lines
1.5 KiB
VB.net
37 lines
1.5 KiB
VB.net
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
|