From a30a3776010373258f7d34f2c35885a3fb79ec99 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 9 Jan 2024 10:46:40 -0700
Subject: [PATCH] -- mejoras

---
 Transportes/Boletos.aspx.vb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb
index 9f3d7435d..cb4840b0e 100644
--- a/Transportes/Boletos.aspx.vb
+++ b/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()