diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index ea8f5663a..0c7c732ac 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -71,7 +71,6 @@ Partial Class ListadoContratos
     End Sub
 
     Private Sub CargaFolio()
-        'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
 
         Dim ObjFolio As New ClsGralFolios
         If ObjFolio.GetFolios("Con", UsuarioActual.CveEmpresa, CveSubProyecto:=-1) Then
@@ -122,7 +121,7 @@ Partial Class ListadoContratos
             Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
-        'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
+
 
         'Agregamos Contrato
 
@@ -413,68 +412,5 @@ Partial Class ListadoContratos
     End Sub
 
 
-    'Private Sub CargaFolios(Optional FacturarDocumentoNuevo As Boolean = False)
-
-
-    '    Dim ObjFolios As New ClsGralFolios()
-    '    Dim TipoDoctoConsulta As String = ""
-
-    '    If ObjFolios.GetFolios(TipoDoctoConsulta, UsuarioActual.CveEmpresa) Then
-    '        Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format("  CveSubProyecto = {0}  And Estado = 'Activo'", DdlSubProyectoDatos.SelectedValue))
-    '        If DT.Rows.Count > 0 Then
-    '            ViewState("CveFolio") = DT.Rows(0)("CveFolio").ToString().ToEntero()
-    '            'ViewState("NumAprobacion") = CLng(DT.Rows(0)("Aprobacion").ToString())
-    '            'ViewState("FechaAprobacion") = DT.Rows(0)("FechaAprobacion").ToString().ToDate
-    '            ViewState("FolioActual") = DT.Rows(0)("FActual").ToString()
-    '            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveVenta > 0 AndAlso Not EsCreaApartirDe AndAlso Not String.IsNullOrEmpty(SerieVenta) Then
-    '                LblSerie.Text = SerieVenta
-    '            Else
-    '                LblSerie.Text = DT.Rows(0)("Serie").ToString()
-    '            End If
-    '            TxtFolio.Text = DT.Rows(0)("FActual").ToString()
-
-    '            If Not FacturarDocumentoNuevo Then
-    '                If Not CveEmpresaCRM > 0 Then
-    '                    'SI ES UNA REMISION EXISTENTE, NO MOSTRAR LOS BOTONES
-    '                    If Not (CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then
-    '                        BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-    '                        BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-    '                        TrVistaPrevia.Visible = EstatusCliente
-    '                    End If
-    '                Else
-    '                    If TipoDoctoConsulta.Contiene("Ing", "Egs", "Ant", "Dev") Then
-    '                        BtnCrearApartirDe.Enabled = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-    '                        BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
-    '                        TrVistaPrevia.Visible = EstatusCliente
-    '                    Else
-    '                        BtnCrearApartirDe.Enabled = True
-    '                        BtnEmitirImprimir.Visible = True
-    '                        TrVistaPrevia.Visible = True
-    '                    End If
-    '                End If
-
-    '            End If
-
-    '            UpFacturar.Update()
-    '        Else
-
-    '            If DdlTipoComprobante.Items.Count > 0 Then
-    '                Alert("No tiene registrados Folios para " & DdlTipoComprobante.SelectedItem.Text & " en esta sucursal.", TipoMensaje.MsgAdvertencia)
-    '            Else
-    '                Alert("No tiene permisos para generar ningun tipo de documento.", TipoMensaje.MsgAdvertencia)
-    '            End If
-
-    '            TrEmitir.Visible = False
-    '            TrVistaPrevia.Visible = False
-    '            BtnCrearApartirDe.Enabled = False
-    '            BtnEmitirImprimir.Visible = False
-    '            UpFacturar.Update()
-    '        End If
-    '        DT.Dispose()
-    '    End If
-    '    ObjFolios.Dispose()
-    '    'End If
-
-    'End Sub
 
 End Class