AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- opcion 2 en la funcionalidad 350, para no timbrar pero si ver los datos de clientes

Browse Source
This commit is contained in:
rrene
2022-05-25 20:47:07 -07:00
parent cb97f9d0b7
commit 76d972e63a
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Ventas/Clientes.aspx.vb
View File

@@ -753,7 +753,7 @@ Partial Class Clientes
DivRetIVA.Visible = False DivRetIVA.Visible = False
End If End If
If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
divRegimen.Visible = True divRegimen.Visible = True
End If End If
@@ -2082,7 +2082,7 @@ Partial Class Clientes
End Sub End Sub
Private Sub CargaComboCFDI() Private Sub CargaComboCFDI()
Dim RegimenFiscalCliente = DdlRegimenFiscal.SelectedValue.ToString() Dim RegimenFiscalCliente = DdlRegimenFiscal.SelectedValue.ToString()
If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then If Not UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
RegimenFiscalCliente = "-1" RegimenFiscalCliente = "-1"
End If End If
@@ -10213,7 +10213,7 @@ Partial Class Clientes
DVRegimenSociedad.Visible = False DVRegimenSociedad.Visible = False
DivRazonSocial2.Attributes.Add("class", "col-md-12") 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") DivRazonSocial2.Attributes.Add("class", "col-md-8")
DVRegimenSociedad.Visible = True DVRegimenSociedad.Visible = True

2
Ventas/PV.aspx.vb
View File

@@ -8319,7 +8319,7 @@ Partial Class PV
DVRegimenSociedad.Visible = False DVRegimenSociedad.Visible = False
DivRazonSocial2.Attributes.Add("class", "col-md-12") 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") DivRazonSocial2.Attributes.Add("class", "col-md-8")
DVRegimenSociedad.Visible = True DVRegimenSociedad.Visible = True

2
Ventas/Ventas.aspx.vb
View File

@@ -34050,7 +34050,7 @@ Partial Class Ventas
DVRegimenSociedad.Visible = False DVRegimenSociedad.Visible = False
DivRazonSocial2.Attributes.Add("class", "col-md-12") 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") DivRazonSocial2.Attributes.Add("class", "col-md-8")
DVRegimenSociedad.Visible = True DVRegimenSociedad.Visible = True