From 7072c2304716c50d1ffe82e349e4ab38883e7456 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 15 Jul 2023 11:39:30 -0700
Subject: [PATCH] -- error al usocfdi. no existe en el listado

---
 Ventas/Clientes.aspx    |  2 +-
 Ventas/Clientes.aspx.vb | 11 ++++++++---
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 030bf901b..daa330f9b 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1108,7 +1108,7 @@
                                                 </div>
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:DropDownList ID="DdlUsoCFDI" CssClass="form-control  select2me" runat="server" Width="250" AppendDataBoundItems="false" CausesValidation="true" DataTextField="UsoCFDIDescripcion" DataValueField="CveUsoCFDI" ValidationGroup="GrpGuardar">
-                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
                                                     </asp:DropDownList>
                                                     <label for="<%= DdlUsoCFDI.ClientID.ToString()%>">Uso CFDI:</label>
                                                     <asp:RequiredFieldValidator ID="RFVUsoCFDI" runat="server" InitialValue="-1" ControlToValidate="DdlUsoCFDI" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''USO CFDI''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index ce5467765..1bd927b65 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2075,11 +2075,16 @@ Partial Class Clientes
         If DdlRegimenFiscal.SelectedValue <> "-1" Then RegimenFiscalCliente = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscal.SelectedValue}")
         Dim tcveuso As Integer = DdlUsoCFDI.SelectedValue.ToEntero
 
-        DdlUsoCFDI.SelectedIndex = -1
-        DdlUsoCFDI.Items.Clear()
+        DdlUsoCFDI.SelectedIndex = 0
         Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
         DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
-        DdlUsoCFDI.DataBind()
+        DdlUsoCFDI.Items.Clear()
+        DdlUsoCFDI.ClearSelection()
+        Try
+            DdlUsoCFDI.DataBind()
+        Catch ex As Exception
+
+        End Try
 
         DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
         If tcveuso > 0 Then DdlUsoCFDI.SelectedValueExist(tcveuso)