-- que filtre Método y Forma, según su valor

Ventas/Clientes.aspx.vb

@@ -1436,7 +1436,7 @@ Partial Class Clientes
         DdlMonedaExtranjeraAnticipos.SelectedValue = IdCtaMonedaExtranjeraAnticipos
 
         ActivarRegistroAutomatico()
-        HeedarContable.Attributes.Remove("onclick")
+        HeaderContable.Attributes.Remove("onclick")
         UpFiscalContable.Update()
     End Sub
 
@@ -2061,30 +2061,40 @@ Partial Class Clientes
 
     End Sub
     Private Sub CargaFormaPago33()
-        DdlFormaPago33.Items.Clear()
-        DdlFormaPago33.DataSource = GlobalDTVtaFormaPago
-        DdlFormaPago33.DataBind()
+        'DdlFormaPago33.Items.Clear()
+        'DdlFormaPago33.DataSource = GlobalDTVtaFormaPago
+        'DdlFormaPago33.DataBind()
+        CargaFormaDePago()
 
         DdlSucursalFormaPago33.Items.Clear()
         DdlSucursalFormaPago33.DataSource = GlobalDTVtaFormaPago
         DdlSucursalFormaPago33.DataBind()
     End Sub
     Private Sub CargaComboCFDI()
-        Dim RegimenFiscalCliente = DdlRegimenFiscal.SelectedValue.ToString()
-        'If Not UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
-        '    RegimenFiscalCliente = "-1"
-        'End If
+        Dim RegimenFiscalCliente As String = "-1"
+        If DdlRegimenFiscal.SelectedValue <> "-1" Then RegimenFiscalCliente = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscal.SelectedValue}")
+        Dim tcveuso As Integer = DdlUsoCFDI.SelectedValue.ToEntero
 
-        DdlUsoCFDI.Items.Clear()
+        DdlUsoCFDI.SelectedIndex = -1
+        DdlUsoCFDI.Items.Clear()
+        DdlUsoCFDI.ClearSelection()
         Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
-        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+        DdlUsoCFDI.ClearSelection()
 
-        DdlUsoCFDI.DataBind()
+        Try
+            DdlUsoCFDI.DataBind()
+        Catch ex As Exception
+
+        End Try
+
         DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        If tcveuso > 0 Then DdlUsoCFDI.SelectedValueExist(tcveuso)
 
         DdlSucursalUsoCFDI.Items.Clear()
         DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
         DdlSucursalUsoCFDI.DataBind()
+        UpFiscalContable.Update()
     End Sub
 #End Region
 
@@ -10322,6 +10332,7 @@ Partial Class Clientes
         DdlRegimenFiscal.DataSource = dt
         DdlRegimenFiscal.DataBind()
         DdlRegimenFiscal.SelectedValueExist(Val)
+        CargaComboCFDI()
         UpDatos.Update()
     End Sub
 
@@ -10480,10 +10491,8 @@ Partial Class Clientes
 
         UpLineaAdicionalmodal.Update()
 
-    End Sub
-
-
-
+    End Sub
+
     Protected Sub LnkEliminarLineaAdicional_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim CveLineaAdicionalEliminar = GvRow.DataKey("CveLineaAdicional").ToEntero
@@ -10503,10 +10512,8 @@ Partial Class Clientes
             GetLineasAdicionales()
         End If
 
-    End Sub
-
-
-
+    End Sub
+
     Protected Sub DdlTipoLineaAdicionalModal_SelectedIndexChanged(sender As Object, e As EventArgs)
 
         DvLineaAdicionalDiasVenciemientoModal.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, True, False)
@@ -10525,7 +10532,7 @@ Partial Class Clientes
 
         DdlFormaPago33.Items.Clear()
 
-        If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
+        If DdlMetodoPago33.SelectedValue = "3" Then
             DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
         Else
             DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
@@ -10572,11 +10579,8 @@ Partial Class Clientes
 
         If Not ErrorCambio Then
             Alert("Vendedor Cambiado Correctamente.", TipoMensaje.MsgInformacion, $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}""")
-        End If
-
-
-
-
+        End If
+
     End Sub
 
 
@@ -10589,7 +10593,10 @@ Partial Class Clientes
 
         UpDatos.Update()
 
+    End Sub
+
+    Private Sub DdlRegimenFiscal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRegimenFiscal.SelectedIndexChanged
+        CargaComboCFDI()
     End Sub
-
 End Class