This commit is contained in:
2023-09-18 09:29:01 -07:00
6 changed files with 768 additions and 660 deletions

View File

@@ -2608,6 +2608,10 @@ 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
@@ -2666,6 +2670,7 @@ Partial Class OC_OC
CveProveedorContacto = IIf(DdlProveedorContacto.SelectedValue.ToEntero = 0, "-1", DdlProveedorContacto.SelectedValue).ToString.ToEntero
End If
Dim CveOrdenCompraPadre As Integer = -1
If GeneraReq Then