--

Ventas/Clientes.aspx.vb

@@ -10231,9 +10231,19 @@ Partial Class Clientes
             TxtNombreComercial.Enabled = True
         End If
         ' DdlRegimenFiscal.SelectedIndex = -1
-        DdlRegimenFiscal.Items.Clear()
-        DdlRegimenFiscal.SelectedValue = Nothing
-        DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
+
+        Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+            'verifico que sino existe el valor. lo limpie 
+            Dim Val As String = dt.FiltroPrimeroValor("CveRegimenFiscal", "CveRegimenFiscal = " & DdlRegimenFiscal.SelectedValue)
+            If Val = "" Then 'sino encuentra valor, lo limpia
+                DdlRegimenFiscal.Items.Clear()
+                DdlRegimenFiscal.SelectedValue = Nothing
+            End If
+        End If
+
+        DdlRegimenFiscal.DataSource = dt
         DdlRegimenFiscal.DataBind()
 
         UpDatos.Update()