-- mejoras, cambio de "no requiere unidad"

-- quitar la unidad especificada!

Transportes/RepContratoDetalle.aspx.vb

@@ -7,8 +7,6 @@ Imports System.IO
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
-
-
 Partial Class RepContratoDetalle
     Inherits ClsPaginas
 #Region "Propiedades"
@@ -279,18 +277,8 @@ Partial Class RepContratoDetalle
                 LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-light"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveContrato:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveContrato)
                 CargaEventoBitacora()
             End If
-
-            'If CveVentaRemision > 0 Then
-            '    DVFactura.Visible = True
-            '    ChkEsPresupuestal.Enabled = False
-            '    ChkEsPresupuestal.Checked = False
-            'End If
-
         End If
 
-
-
-
     End Sub
     Private Sub InicializaCombos()
         'Lista Tipo AF
@@ -325,16 +313,12 @@ Partial Class RepContratoDetalle
             DdlVendedor.Enabled = False
         End If
 
-
     End Sub
     Private Sub CargaDatos()
 
         CargaDatosContrato()
         CargaDatosViajes()
         'Información General
-
-
-
     End Sub
 
     Private Sub CargaDatosContrato()
@@ -440,7 +424,6 @@ Partial Class RepContratoDetalle
         UpTabContainer.Update()
     End Sub
 
-
 #End Region
     Protected Sub DdlUsuarioFiltroBoletos_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaDatosViajes()
@@ -478,8 +461,6 @@ Partial Class RepContratoDetalle
             Filename = fileItem.filename
         Next
 
-
-
         If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
             If Filename <> "" Then
                 Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
@@ -499,7 +480,6 @@ Partial Class RepContratoDetalle
         CargaEventoBitacora()
         UPAddEventoBitacora.Update()
     End Sub
-
     Private Sub CargaEventoBitacora()
 
         If CveContrato > 0 Then
@@ -515,8 +495,6 @@ Partial Class RepContratoDetalle
         End If
 
     End Sub
-
-
     Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
         Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
         Dim Archivo As New System.IO.FileInfo(filePath)
@@ -578,8 +556,6 @@ Partial Class RepContratoDetalle
             BtnDescargar.Visible = True
         End If
     End Sub
-
-
     Public Function ObtenerUrlCompleta() As String
 
         Dim Solicitud As HttpRequest = HttpContext.Current.Request
@@ -589,7 +565,6 @@ Partial Class RepContratoDetalle
             url &= ":" & Solicitud.Url.Port
         End If
 
-
         url &= Solicitud.ApplicationPath
 
         If Not url.EndsWith("/") Then
@@ -599,15 +574,12 @@ Partial Class RepContratoDetalle
         Return url
 
     End Function
-
-
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
         Dim ArchivoUpdate As String = "-1"
         Dim ErrorProceso As Boolean = False
         Dim SeGeneroRemision As Boolean = False
         Dim SerieFolioRemision As String = ""
         If Session("FileExtension").ToString <> "" Then
-
             'ArchivoUpdate = $"{CveContrato.ToString}.{  Session("FileExtension")}"
             ArchivoUpdate = $".{Session("FileExtension").ToString}"
         Else
@@ -617,7 +589,6 @@ Partial Class RepContratoDetalle
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
 
-
         If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
                                             DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkEsPresupuestal.Checked, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
                                             DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then