--Cancelacion parcial de remison cuando se tiene varios boletos

Transportes/RepBoletos.aspx.vb

@@ -77,35 +77,40 @@ Partial Class ListadoBoletos
 
     Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero")
+        Dim CveViajePasajero As Integer = GvRow.DataKey("CveViajePasajero").ToEntero()
         Dim Estatus As String = GvRow.DataKey("Estatus")
-        Dim cambiarEstatus As Boolean = Not Estatus.ToBool
-        Dim ObjTransportes As New ClsTransportes
-
+        Dim cambiarEstatus As Boolean = Not Estatus.ToBool
+
+
         Dim TieneError As Boolean = False
         Try
             Dim DtRem As DataTable = Nothing
-            If ObjTransportes.GetRemisionBoleto(CveViajePasajero.ToEntero, UsuarioActual.CveEmpresa) Then
-                DtRem = ObjTransportes.DtResultados.Copy()
+
+            Dim ObjTran As New ClsTransportes
+            If ObjTran.GetRemisionBoleto(CveViajePasajero.ToEntero, UsuarioActual.CveEmpresa) Then
+                DtRem = ObjTran.DtResultados.Copy()
             End If
+            ObjTran.Dispose()
 
             If DtRem IsNot Nothing Then
                 If DtRem.Rows.Count > 0 Then
                     Dim CveVenta As Integer = DtRem.Rows(0)("CveVenta").ToString().ToEntero()
+                    Dim BoletosVigentes As Integer = DtRem.Rows(0)("BoletosVigentes").ToString().ToEntero()
+
                     If CveVenta > 0 Then
                         Dim ObjRem As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False)
 
                         If ObjRem.DtDetalle.Rows.Count > 0 Then
                             'SI SOLO TIENE UNA PARTIDA CANCELAR LA REMISION
-                            If ObjRem.DtDetalle.Rows.Count = 1 Then
-                                Dim RespCancelacion = ObjRem.CancelarFactura(False, ValidarSAT:=False, CancelarBoletos:=True)
+                            If ObjRem.DtDetalle.Rows.Count = 1 OrElse BoletosVigentes <= 1 Then
+                                Dim RespCancelacion = ObjRem.CancelarFactura(False, ValidarSAT:=False, CancelarBoletos:=True, ListaRemisionesCancelar:=New List(Of Integer))
                                 If RespCancelacion IsNot Nothing Then
                                     TieneError = RespCancelacion.HuboError
                                 Else
                                     TieneError = True
                                 End If
                             Else
-                                TieneError = Not ObjRem.CancelarBoleto(CveViajePasajero.ToEntero)
+                                TieneError = Not ObjRem.CancelarBoleto(CveViajePasajero)
                             End If
                         Else
                             TieneError = True
@@ -114,23 +119,24 @@ Partial Class ListadoBoletos
                     End If
                 Else
                     'SI NO TIENE VENTA, SOLO CANCELAR EL BOLETO
-                    If Not ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then
+                    Dim ObjTran2 As New ClsTransportes
+                    If Not ObjTran2.UpdateViajesPasajeros(CveViajePasajero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then
                         TieneError = True
                     End If
+                    ObjTran2.Dispose()
                 End If
 
             End If
-
         Catch ex As Exception
             TieneError = True
             GuardaLog(ex.ToString())
         Finally
             If TieneError Then
-                Alert($"El boleto ha sido cancelado correctamente.")
+                Alert($"Ocurrió un error al cancelar el boleto.", TipoMensaje.MsgError)
             Else
-                Alert($"Ocurrió un error al cancelar el boleto.")
-            End If
-            ObjTransportes.Dispose()
+                Alert($"El boleto ha sido cancelado correctamente.")
+            End If
+
             CargaDatos()
         End Try
     End Sub