--Se implementa rowdatabound para poder imprimir boletos

Transportes/RepContratoDetalle.aspx

@@ -313,7 +313,8 @@
                             <ContentTemplate>
                                 <asp:GridView ID="GvViajesPasajeros" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado"
                                     CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
-                                    data-sort="true" DataKeyNames="CveViajePasajero, CveViaje, CveDestinoFinal, CveVendedor, Importe, Asiento, Nombre, Visa, Celular, Observacion, Estatus, CveUsuario, FechaIng, Sexo, Partida, Destino, Vendedor">
+                                    data-sort="true" DataKeyNames="CveViajePasajero, CveViaje, CveDestinoFinal, CveVendedor, Importe, Asiento, Nombre, Visa, Celular, Observacion, Estatus, CveUsuario, FechaIng, Sexo, Partida, Destino, Vendedor, Agencia, TelefonoAgencia"
+                                    OnRowDataBound="GvViajesPasajeros_RowDataBound">
                                     <Columns>
                                         <asp:TemplateField HeaderText="No. Asiento">
                                             <ItemTemplate>

Transportes/RepContratoDetalle.aspx.vb

@@ -369,6 +369,7 @@ Partial Class RepContratoDetalle
         ViajeActual = dt
     End Sub
     Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
+
         Dim dtResult As New DataTable()
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim Fecha As Date = GvRow.DataKey("FechaIng").ToDate
@@ -385,15 +386,17 @@ Partial Class RepContratoDetalle
             New ReportParameter("Celular", GvRow.DataKey("Celular")),
             New ReportParameter("Importe", Math.Round(Importe, 1).ToString),
             New ReportParameter("TipoBoleto", "Tipo Boleto"),
-            New ReportParameter("Agencia", GvRow.DataKey("Agencia")),
+            New ReportParameter("Agencia", "Agencia"),
-            New ReportParameter("TelefonoAgencia", GvRow.DataKey("TelefonoAgencia")),
+            New ReportParameter("TelefonoAgencia", "TelefonoAgencia"),
             New ReportParameter("Asiento", GvRow.DataKey("Asiento"))
         }
 
         ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
-        'Empresas/Grales/Formatos/EntradaSalida.mrt
+    End Sub
-        'Empresas/188/Formatos/Boleto.mrt
+    Protected Sub GvViajesPasajeros_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("BtnImprimir"))
+        End If
     End Sub
     Protected Sub EditarBoleto(sender As Object, e As EventArgs)
 

Transportes/RepViajes.aspx.vb

@@ -92,7 +92,7 @@ Partial Class ListadoViajes
     End Sub
     Protected Sub AddViaje(sender As Object, e As EventArgs)
         'Generador de Viajes Masivos
-        Dim CveSubProyecto As Integer = DdlRutas.SelectedValue.ToEntero 'GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
         If IsMasivo.Checked = True Then
             If TxtFechaInicial.Text = "" Or TxtFrecuencia.Text = "" Then
                 Alert("Es necesario agregar la fecha inicial y la frecuencia", TipoMensaje.MsgAdvertencia)
@@ -121,14 +121,15 @@ Partial Class ListadoViajes
                     End If
                     'Agregamos contrato
                     ObjContratos.IniciaTransacSQL()
-                    If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
+                    If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, fecha, fecha, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, -1, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero, CveMasivo:=CveMasivo, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then
                         ObjContratos.Commit()
                     End If
                     'Actualizamos Folio
                     ObjFolio.IniciaTransacSQL()
                     If ObjFolio.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
-                        ObjFolio.Dispose()
+                        ObjFolio.Commit()
                     End If
+                    ObjFolio.Dispose()
                 Next
                 Alert("Viajes Masivos generados correctamente.")
             Catch ex As Exception
@@ -171,8 +172,9 @@ Partial Class ListadoViajes
                 Dim ObjFolios As New ClsGralFolios
                 ObjFolios.IniciaTransacSQL()
                 If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
-                    ObjFolios.Dispose()
+                    ObjFolios.Commit()
                 End If
+                ObjFolios.Dispose()
 
                 ObjContratos.Dispose()
                 CargaDatos()