--Implementación de carga y descarga de pdfs

Transportes/RepViajes.aspx.vb

@@ -1,8 +1,8 @@
 Option Explicit On
 Option Strict On
 Imports System.Data
+Imports Extensiones
 Imports Extensiones.ModExtensiones
-
 Partial Class ListadoViajes
     Inherits ClsPaginas
 
@@ -24,6 +24,8 @@ Partial Class ListadoViajes
         End Set
     End Property
 #End Region
+
+#Region "Carga Página"
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
@@ -38,18 +40,7 @@ Partial Class ListadoViajes
         DdlRutas.DataBind()
 
         Dim ObjRutas As New ClsTransportes()
-        'If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
 
-        '    If ObjRutas.DtResultados.Rows.Count > 0 Then
-        '        DdlRutas.DataSource = ObjRutas.DtResultados
-        '        DdlRutas.DataBind()
-        '        DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", ""))
-        '    End If
-        'End If
-        'DdlRutas.DataSource = ObjRutas.DtResultados
-        '        DdlRutas.DataBind()
-        '        DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", ""))
-        'Lista Destinos'
         If ObjRutas.GetDestinos() Then
 
             If ObjRutas.DtResultados.Rows.Count > 0 Then
@@ -73,17 +64,12 @@ Partial Class ListadoViajes
         End If
         ObjContratos.Dispose()
         GvContratos.DataBind()
-        'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=35) Then
-        '    GvContratos.DataSource = ObjContratos.DtResultados
-        '    GvContratos.DataBind()
-        'End If
 
     End Sub
-
+#End Region
     Private Sub LBAgregarViaje_Click(sender As Object, e As EventArgs) Handles LBAgregarViaje.Click
         MostrarModal()
     End Sub
-
     Public Sub MostrarModal()
         'Generar Folio
         Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
@@ -104,7 +90,6 @@ Partial Class ListadoViajes
 
         RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
     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
@@ -140,6 +125,7 @@ Partial Class ListadoViajes
                         ObjContratos.Commit()
                     End If
                     'Actualizamos Folio
+                    ObjFolio.IniciaTransacSQL()
                     If ObjFolio.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
                         ObjFolio.Dispose()
                     End If
@@ -183,6 +169,7 @@ Partial Class ListadoViajes
                 TxtFechaViaje.Text = ""
                 'Actualizamos Folio
                 Dim ObjFolios As New ClsGralFolios
+                ObjFolios.IniciaTransacSQL()
                 If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
                     ObjFolios.Dispose()
                 End If
@@ -192,7 +179,6 @@ Partial Class ListadoViajes
             End Try
         End If
     End Sub
-
     Protected Sub ToggleMasivo(sender As Object, e As EventArgs)
         DivFechaMasivo.Visible = IsMasivo.Checked
         RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))