- cfdi, requerido

Ventas/Clientes.aspx.vb

@@ -10243,10 +10243,11 @@ Partial Class Clientes
         ' DdlRegimenFiscal.SelectedIndex = -1
 
         Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
+        Dim Val As String
 
         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)
+            Val = dt.FiltroPrimeroValor("CveRegimenFiscal", "CveRegimenFiscal = " & DdlRegimenFiscal.SelectedValue)
             If Val = "" Then 'sino encuentra valor, lo limpia
                 DdlRegimenFiscal.Items.Clear()
                 DdlRegimenFiscal.SelectedValue = Nothing
@@ -10255,7 +10256,7 @@ Partial Class Clientes
 
         DdlRegimenFiscal.DataSource = dt
         DdlRegimenFiscal.DataBind()
-
+        DdlRegimenFiscal.SelectedValueExist(Val)
         UpDatos.Update()
     End Sub