From 952b16f031943d971b4d6d43ef694738f53a6330 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 27 Jul 2022 09:50:23 -0700 Subject: [PATCH] - cfdi, requerido --- Ventas/Clientes.aspx | 6 ++++-- Ventas/Clientes.aspx.vb | 5 +++-- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index fda9bb029..d6e3cb71f 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1072,8 +1072,7 @@
- ¿El Cliente nos retiene IVA por Fletes y Acarreos?: - + ¿El Cliente nos retiene IVA por Fletes y Acarreos?:

@@ -1090,6 +1089,8 @@ + +
@@ -5028,6 +5029,7 @@ +
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 4bd6fa8d7..55fa194cf 100644 --- a/Ventas/Clientes.aspx.vb +++ b/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