-- 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 Private Function ValidaGuardar() As Boolean
Dim TieneError As Boolean = False 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 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) Alert("Las ordenes de compra no puede tener el estatus 'Pre Solicitud'. Debe ser una requisición", TipoMensaje.MsgAdvertencia)
Return True Return True
@@ -2608,10 +2612,6 @@ Partial Class OC_OC
'VALIDACIONES PARA GUARDAR 'VALIDACIONES PARA GUARDAR
If ValidaGuardar() Then Exit Sub 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" Dim MsgError As String = "Hubo un error al registrar"
'VARIABLES 'VARIABLES
Dim CveProveedorSucursal As Integer = -1 Dim CveProveedorSucursal As Integer = -1