Entrega Directa requiere Cliente y Vendedor

OC/OC.aspx

@@ -589,6 +589,8 @@
                                 </div>
                                 <div class="col-md-2">
                                     <asp:DropDownList ID="Ddlcliente" OnSelectedIndexChanged="Ddlcliente_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" Width="100%" DataTextField="Nombre" DataValueField="CveCliente" runat="server"></asp:DropDownList>
+<%--                                    <asp:RangeValidator ID="RVCliente" CssClass="form-control" runat="server" ControlToValidate="Ddlcliente" Display="None" Type="Integer" MinimumValue="1" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cliente''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RangeValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCECliente" runat="server" HighlightCssClass="vco" TargetControlID="RVCliente" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                 </div>
                                 <div class="col-md-1" style="max-width: 75px;">
                                     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