Usos CFDI en clientes en Timbrado 4.0

Ventas/Clientes.aspx.vb

@@ -2064,20 +2064,25 @@ Partial Class Clientes
         DdlSucursalFormaPago33.DataSource = GlobalDTVtaFormaPago
         DdlSucursalFormaPago33.DataBind()
     End Sub
-    Private Sub CargaComboCFDI()
+    Private Sub CargaComboCFDI()
+        Dim RegimenFiscalCliente = DdlRegimenFiscal.SelectedValue.ToString()
+        If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
+            RegimenFiscalCliente = "-1"
+        End If
+
         DdlUsoCFDI.Items.Clear()
-        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
         DdlUsoCFDI.DataBind()
         DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         DdlSucursalUsoCFDI.Items.Clear()
-        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
         DdlSucursalUsoCFDI.DataBind()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "V E R  M Á S"
-
+
     Protected Sub BtnVerMasVentas_Click(sender As Object, e As EventArgs)
         If BtnVerMasVentas.Text = "Ver Más" Then
             CargaHistorial(-1)