--Implementación de carga y descarga de pdfs

Transportes/RepContratoDetalle.aspx.vb

@@ -19,6 +19,14 @@ Partial Class RepContratoDetalle
             ViewState("CveContrato") = value
         End Set
     End Property
+    Private Property ArchivoUpdate As String
+        Get
+            Return ViewState("ArchivoUpdate").ToString
+        End Get
+        Set(value As String)
+            ViewState("ArchivoUpdate") = value
+        End Set
+    End Property
     Private Property CveContratoTipo As Integer
         Get
             Return CType(ViewState("CveContratoTipo"), Integer)
@@ -27,6 +35,14 @@ Partial Class RepContratoDetalle
             ViewState("CveContratoTipo") = value
         End Set
     End Property
+    Private Property CveContratoEstatus As Integer
+        Get
+            Return CType(ViewState("CveContratoEstatus"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("CveContratoEstatus") = value
+        End Set
+    End Property
     Private Property CveMasivo As Integer
         Get
             Return CType(ViewState("CveMasivo"), Integer)
@@ -88,6 +104,8 @@ Partial Class RepContratoDetalle
             CargaDatos()
             AsientoSeleccionado = ""
             CveViajePasajero = 0
+            Session("FileExtension") = ""
+            ArchivoUpdate = ""
 
         End If
     End Sub
@@ -95,7 +113,7 @@ Partial Class RepContratoDetalle
         'Lista Tipo AF
         DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
         DdlTipoAF.DataBind()
-        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
+        DdlTipoAF.Items.Insert(0, New ListItem("-", "0"))
     End Sub
     Private Sub CargaDatos()
         'Información General
@@ -120,11 +138,14 @@ Partial Class RepContratoDetalle
                 TxtDolares.Text = Contrato.Rows(0)("Importe").ToString
                 TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString
                 TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString
-                If Not String.IsNullOrEmpty(Contrato.Rows(0)("Archivo").ToString) Then
-                    BtnDescargar.Visible = True
-                    LbArchivo.Text = Contrato.Rows(0)("Archivo").ToString
-                    LbArchivo.Visible = True
+                CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero
+                If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then
                     ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo)
+                    'A2.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CONTRATO&CveEmpresa={0}&Archivo={1}", ObjContratos.CveEmpresa, ViewState("FUrl").ToString)))
+                    BtnDescargar.Visible = True
+                Else
+                    BtnDescargar.Visible = False
+                    A1.Visible = True
                 End If
                 'Boletos Vendidos
                 If Contrato.Rows(0)("CveContratoTipo").ToString() = "35" Then
@@ -144,12 +165,13 @@ Partial Class RepContratoDetalle
             Response.Redirect($"~/Transportes/RepContratos.aspx")
         End If
         ObjContratos.Dispose()
+        UpTabContainer.Update()
 
     End Sub
 #End Region
 
 #Region "Información General"
-    Protected Sub GuardarArchivo(sender As Object, e As EventArgs)
+    Protected Sub BtnGuardarArchivo_Click1(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
         Dim FileExtension As String = "-1"
         Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
         Dim Filename As String = ""
@@ -165,7 +187,7 @@ Partial Class RepContratoDetalle
 
         For Each fileItem As Archivo In Filesgral
 
-            FileExtension = IO.Path.GetExtension($"{AppDomain.CurrentDomain.BaseDirectory}Temp\{fileItem.filename}").Replace(".", "")
+            FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             Session("FileExtension") = FileExtension
             Dim tempArray() As String
             tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
@@ -180,15 +202,18 @@ Partial Class RepContratoDetalle
             'ImgArchivo.Src = "/imagenes/accept.png"
         Next
 
-        UpTabContainer.Update()
+        UPAFUL.Update()
+
         RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
-        Button1.Visible = True
+        A1.Visible = True
         If Not FileExtension = "-1" Then
             BtnDescargar.Visible = True
         End If
-        UpdateContrato(sender, e)
     End Sub
-    Protected Sub DescargarArchivo(sender As Object, e As EventArgs)
+    Private Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
+        DescargarArchivo()
+    End Sub
+    Private Sub DescargarArchivo()
         Dim File As New FileInfo(ViewState("FUrl").ToString)
 
         If File.Exists Then 'set appropriate headers
@@ -212,18 +237,25 @@ Partial Class RepContratoDetalle
         End If 'nothing in the URL as HTTP GET
     End Sub
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
+        Dim ArchivoUpdate As String = "-1"
+
+        If Session("FileExtension").ToString <> "" Then
+            ArchivoUpdate = "." & Session("FileExtension").ToString
+        Else
+        End If
+
         Dim ObjContratos As New ClsContratos
+        ObjContratos.IniciaTransacSQL()
         Try
-            If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, -1) Then
+            'ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text)
+            If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus) Then
                 Alert("Contrato actualizado correctamente")
             End If
             ObjContratos.Commit()
-
         Catch ex As Exception
-            Alert($"Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
+            Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
             ObjContratos.RollBack()
         Finally
-            Alert("Contrato actualizado correctamente")
             ObjContratos.Dispose()
             CargaDatos()
         End Try
@@ -270,7 +302,7 @@ Partial Class RepContratoDetalle
         AsientoSeleccionado = buttonID
         TxtAsiento.Text = buttonID.Substring(1)
 
-        UpBoletos.Update()
+        UpTabContainer.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
     End Sub
     Protected Sub UpdateBoleto(sender As Object, e As EventArgs)
@@ -295,8 +327,12 @@ Partial Class RepContratoDetalle
         Finally
             Alert("Su asiento fue actualizado correctamente")
             ObjTransportes.Dispose()
-            CargaDatos()
+
         End Try
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
+        UpTabContainer.Update()
+        UpPasajeros.Update()
+        CargaDatos()
     End Sub
     Protected Sub OnChangeRuta(sender As Object, e As EventArgs)
         Dim ObjTransportes As New ClsTransportes
@@ -363,7 +399,6 @@ Partial Class RepContratoDetalle
 
     End Sub
     Protected Sub CambiarBoleto(sender As Object, e As EventArgs)
-        DdlRuta.ClearSelection()
         PnEditarViaje.Visible = True
         PnEditarUsuario.Visible = False
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -387,14 +422,15 @@ Partial Class RepContratoDetalle
         If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, -1, CveEstatus:=-1, CveTipoContrato:=35) Then
             For Each row As DataRow In ObjContratos.DtResultados.Rows
                 Dim fecha As DateTime = row("FechaInicial").ToString.ToDateTime
-                ' Asigna los valores de la columna deseada al ListItem
+                'Asigna los valores de la columna deseada al ListItem
                 Dim listItem As New ListItem(row("SubProyecto").ToString() + " - " + fecha.ToShortDateString + " - " + fecha.ToShortTimeString, row("CveContrato").ToString())
-                ' Agrega el ListItem al DropDownList
+                'Agrega el ListItem al DropDownList
                 DdlRuta.Items.Add(listItem)
             Next
         End If
         DdlRuta.SelectedValue = GvRow.DataKey("CveViaje")
         ObjContratos.Dispose()
+        UpTabContainer.Update()
         RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
     End Sub
     Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)