BDH. al hacer un ajuste el distribuidor es requerido

Ventas/PV.aspx.vb

@@ -4889,6 +4889,12 @@ Partial Class PV
         End If
 
         If ChkAjuste.Checked Then
+
+            If DdlDistribuidor.SelectedValue.ToEntero() <= 0 Then
+                Alert("Debe seleccionar un distribuidor", TipoMensaje.MsgAdvertencia)
+                Return False
+            End If
+
             If TxtFechaAjuste.Text.ToDate > Now Then
                 Alert("La fecha de compra no puede ser mayor a la de hoy.", TipoMensaje.MsgAdvertencia)
                 Return False
@@ -7590,6 +7596,11 @@ Partial Class PV
         'params.Add(New ReportParameter("Comprobante", TxtComprobante.Text))
         'params.Add(New ReportParameter("CodigoTD", TxtCodigoTD.Text))
 
+        If DdlDistribuidor.SelectedValue.ToEntero() <= 0 Then
+            Alert("Debe seleccionar un distribuidor", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim URLDescarga As New StringBuilder
 
         URLDescarga.Append($"OP=AJUSTE&CVEPSAJUSTE={DdlPSAjuste.SelectedValue.ToEntero}&CVECLIENTE={CveCliente}&CVECLIENTEDISTRIBUIDOR={DdlDistribuidor.SelectedValue.ToEntero()}&CONSEC={TxtConsecutivoAjuste.Text.Trim}")