From bd6c491a4ec3a75299c917a2014808872c945154 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 Feb 2021 11:07:46 -0700 Subject: [PATCH] en refacturar, E72, que las facturas tengan el mismo total --- Compras/Compras.aspx.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) 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)