cambios

OC/OC.aspx.vb

@@ -1741,20 +1741,25 @@ Partial Class OC
         CboUnidadMedida.DataBind()
     End Sub
     Private Sub CargaProveedores()
-        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlProveedores.setEsWebService(True)
-            DdlProveedores.Attributes.Add("metodo", "getproveedores")
+            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedores.SelectedText = "Seleccione"
+            DdlProveedores.SelectedValue = "-1"
+            DdlProveedorCot.setEsWebService(True)
+            DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores")
         Else
 
-            GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing
             DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
             DdlProveedores.DataBind()
+            DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+            DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
+            DdlProveedorCot.DataBind()
+            DdlProveedorCot.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         End If
-        'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual)
-        DdlProveedorCot.DataBind()
-        DdlProveedorCot.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         UPProv.Update() : UPPEmp.Update()
     End Sub
@@ -2105,6 +2110,8 @@ Partial Class OC
             Return True
         End If
 
+
+
         'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS
         'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then
         '    If Not UsuarioActual.TienePermisoProceso(179) Then 'PERMISO PARA GENERAR CON O
@@ -2222,6 +2229,13 @@ Partial Class OC
             TieneError = True
         End If
 
+        'Valida que tenga proveedore
+        If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
+
+
         'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR
         If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
             If (TipoOC.ToUpper = "REQ" And CboE.SelectedValue.ToEntero.Contiene(CveEstatusSupervisada, CveEstatusFinalOK)) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
@@ -5966,7 +5980,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