agregado procesos y bd clases

guia/Extensiones/ramos.vb

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