Partial Public Class ramos
    Public Shared Function ObtieneIDRamos(bd As bdGestionAsegasa.gestionasegasaEntities, CodigosRamos() As String) As Integer()
        Return bd.ramos.Where(Function(x) CodigosRamos.Contains(x.Codigo)).Select(Function(x) x.idRamo).ToArray
    End Function

    ''' <summary>
    ''' Cambia de idRamo todas las pólzias asociadas al ramoAnterior y tras el cambio elimina dicho ramo
    ''' </summary>
    ''' <param name="bd"></param>
    ''' <param name="ramoAnterior"></param>
    ''' <param name="ramoNuevo"></param>
    ''' <returns></returns>
    Public Shared Function EliminarRamo(bd As bdGestionAsegasa.gestionasegasaEntities, ramoAnterior As String, ramoNuevo As String) As Boolean

        Dim cambiosCorrectos = False
        Try
            bd.ExecuteStoreCommand("UPDATE polizassg set idRamo=" & ramoNuevo & " WHERE idRamo=" & ramoAnterior)

            bd.ExecuteStoreCommand("DELETE FROM ramos where idRamo=" & ramoAnterior)

            cambiosCorrectos = True
        Catch ex As Exception
            cambiosCorrectos = False
        End Try

        Return cambiosCorrectos
    End Function

    Public ReadOnly Property CodigoYDescripcion As String
        Get
            Return Me.Codigo & " " & Me.Descripcion
        End Get
    End Property
End Class