-- error al usocfdi. no existe en el listado

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>

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)