-- error al usocfdi. no existe en el listado

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)