-- verificaion de cotización en E119
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user