-- cambio de nombre de descarga pdf

Transportes/RepContratoDetalle.aspx.vb

@@ -113,7 +113,6 @@ Partial Class RepContratoDetalle
             CveViajePasajero = 0
             Session("FileExtension") = ""
             ArchivoUpdate = ""
-            TelefonoEmpresa = ""
 
         End If
     End Sub
@@ -333,7 +332,7 @@ Partial Class RepContratoDetalle
             New ReportParameter("Usuario", UsuarioActual.Nombre)
         }
 
-        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato")
+        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:=LbFolio.Text)
     End Sub
     Protected Sub AgregarABitacora(Descripcion As String)
         Dim ObjEventoBitacora As New ClsOIEventos