en refacturar, E72, que las facturas tengan el mismo total

This commit is contained in:
2021-02-22 11:07:46 -07:00
parent b6d714fd98
commit bd6c491a4e

View File

@@ -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)