Entrega Directa requiere Cliente y Vendedor

OC/OC.aspx.vb

@@ -2219,6 +2219,12 @@ Partial Class OC
     End Function
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
+        'Entrega Directa requiere Cliente y Vendedor
+        If ChkEntregaDirecta.Checked And Ddlcliente.SelectedValue.ToEntero <= 0 Then
+            Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.")
+            Exit Sub
+        End If
+
         'VALIDACIONES PARA GUARDAR
         If ValidaGuardar() Then Exit Sub