36 lines
1.3 KiB
VB.net
36 lines
1.3 KiB
VB.net
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
|
|
|