Validaciones de OC

OC/OC.aspx.vb

@@ -2356,6 +2356,11 @@ Partial Class OC_OC
     Private Function ValidaGuardar() As Boolean
         Dim TieneError = False
 
+        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
+        End If
+
         'Entrega Directa requiere Cliente y Vendedor
         If ChkEntregaDirecta.Checked And Ddlcliente.txtValue.Value.ToEntero <= 0 Then
             Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")