From 76d972e63a5983fe54c36e5a47bd77d0f913ee1c Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 25 May 2022 20:47:07 -0700 Subject: [PATCH] -- opcion 2 en la funcionalidad 350, para no timbrar pero si ver los datos de clientes --- Ventas/Clientes.aspx.vb | 6 +++--- Ventas/PV.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 0f23a71bf..fbe2b19e6 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -753,7 +753,7 @@ Partial Class Clientes DivRetIVA.Visible = False End If - If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then divRegimen.Visible = True End If @@ -2082,7 +2082,7 @@ Partial Class Clientes End Sub Private Sub CargaComboCFDI() Dim RegimenFiscalCliente = DdlRegimenFiscal.SelectedValue.ToString() - If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then + If Not UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then RegimenFiscalCliente = "-1" End If @@ -10213,7 +10213,7 @@ Partial Class Clientes DVRegimenSociedad.Visible = False DivRazonSocial2.Attributes.Add("class", "col-md-12") - If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then DivRazonSocial2.Attributes.Add("class", "col-md-8") DVRegimenSociedad.Visible = True diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index dd24d323b..a4d00d997 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -8319,7 +8319,7 @@ Partial Class PV DVRegimenSociedad.Visible = False DivRazonSocial2.Attributes.Add("class", "col-md-12") - If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then DivRazonSocial2.Attributes.Add("class", "col-md-8") DVRegimenSociedad.Visible = True diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2cc4a6b2d..47a5e569d 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -34050,7 +34050,7 @@ Partial Class Ventas DVRegimenSociedad.Visible = False DivRazonSocial2.Attributes.Add("class", "col-md-12") - If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350) = "1" Then + If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then DivRazonSocial2.Attributes.Add("class", "col-md-8") DVRegimenSociedad.Visible = True