OC/OC.aspx.vb

@@ -594,9 +594,9 @@ Partial Class OC
             lblTitulo.Text = TipoLargo
 
             'VALIDA PERMISOS
-            If UsuarioActual.TienePermisoProceso(123) Then
-                RFVcodigo.Enabled = True
-            End If
+            'If UsuarioActual.TienePermisoProceso(123) Then
+            '    RFVcodigo.Enabled = True
+            'End If
 
             'FUNCIONALIDAD 105
             CargaFuncionalidad105()
@@ -964,7 +964,7 @@ Partial Class OC
         DtDetalle.Columns.Add("CveContratoDetalle", GetType(Integer))
         DtDetalle.Columns.Add("CantidadNoEditable", GetType(Double))
 
-        'DtDetalle.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
+        DtDetalle.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
 
         ' DtDetalle.Columns.Add("ClasificacionOG", GetType(String))
 
@@ -5873,7 +5873,7 @@ Partial Class OC
 
     Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+        Dim excelFile As ExcelFile = excelFile.Load(flatFilePath)
 
         Dim unnamed As Integer = 0
         Dim cols As Integer