-- verificaion de cotización en E119

This commit is contained in:
2023-09-27 07:15:38 -07:00
parent 727789040c
commit e39864726f

View File

@@ -2377,6 +2377,10 @@ Partial Class OC_OC
Private Function ValidaGuardar() As Boolean
Dim TieneError As Boolean = False
If UsuarioActual.CveEmpresa.Contiene(119) Then
ChkCotizacion.Checked = False
End If
If CboE.SelectedValue.ToEntero = 0 AndAlso TipoOC = "OC" Then
Alert("Las ordenes de compra no puede tener el estatus 'Pre Solicitud'. Debe ser una requisición", TipoMensaje.MsgAdvertencia)
Return True
@@ -2608,10 +2612,6 @@ Partial Class OC_OC
'VALIDACIONES PARA GUARDAR
If ValidaGuardar() Then Exit Sub
If UsuarioActual.CveEmpresa.Contiene(119) Then
ChkCotizacion.Checked = False
End If
Dim MsgError As String = "Hubo un error al registrar"
'VARIABLES
Dim CveProveedorSucursal As Integer = -1