-- mejoras

Transportes/Boletos.aspx.vb

@@ -86,6 +86,7 @@ Partial Class Boletos
     Protected Sub InicializaCombos()
         'Lista Destinos''carga específicos
         Dim ObjDestinos As New ClsTransportes()
+
         If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then
 
             If ObjDestinos.DtResultados.Rows.Count > 0 Then
@@ -159,6 +160,7 @@ Partial Class Boletos
                 ObjTransporte.Commit()
             End If
         Catch ex As Exception
+            ObjTransporte.RollBack()
             Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError)
         Finally
             ObjTransporte.Dispose()