diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 3ab2de74e..9310dd23c 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -14509,7 +14509,7 @@ Partial Class Compras_Compras Protected Sub BtnRefacturacionVer_Click(sender As Object, e As EventArgs) Handles BtnRefacturacionVer.Click Dim Opcion As Integer = 1 - If UsuarioActual.CveEmpresa.Contiene(119, 72, 1) Then Opcion = 2 + If UsuarioActual.CveEmpresa.Contiene(119, 1) Then Opcion = 2 Dim ObjCompras As New ClsCompras @@ -17947,12 +17947,12 @@ Partial Class Compras_Compras Exit Sub End If - If UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 4 Or UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then - If Not DdlProyecto.SelectedValue.ToEntero > 0 Then - Alert("Es necesario seleccionar un proyecto.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If + 'If UsuarioActual.Empresa.Tipo_CentroCosto = 3 Or UsuarioActual.Empresa.Tipo_CentroCosto = 4 Or UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then + ' If Not DdlProyecto.SelectedValue.ToEntero > 0 Then + ' Alert("Es necesario seleccionar un proyecto.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + ' End If + 'End If If Not DdlSubProyecto.SelectedValue.ToEntero > 0 Then Alert("Es necesario seleccionar un subproyecto.", TipoMensaje.MsgAdvertencia)