--QUITAR FUNCIONALIDAD 350

2023-07-04 13:25:13 -07:00
parent d4040c9b0e
commit f2e78e2b37
9 changed files with 105 additions and 193 deletions
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2466,9 +2466,6 @@ Partial Class PV
        'End If
    End Sub
    Private Sub CargaUsoCFDI()
-        If UsuarioActual.Empresa.Funcionalidad(350) <> "1" Then
-            ClienteCodigoRegimenFiscal = "-1"
-        End If
        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=ClienteCodigoRegimenFiscal)
        DdlUsoCFDI.DataBind()
    End Sub
@@ -2730,7 +2727,7 @@ Partial Class PV
                        'DdlFormaPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveFormaPago33").ToString)
                        DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
                        'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
-                        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                        If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
                            'S01	Sin efectos fiscales.
                            DdlUsoCFDI.SelectedValueExist("23")
                            DdlUsoCFDI.Enabled = False
@@ -2915,7 +2912,7 @@ Partial Class PV
                        DdlMetodoPago33.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveMetodoPago33").ToString)
                        DdlUsoCFDI.SelectedValueExist(ObjCliente.DtResultados.Rows(0)("CveUsoCFDI").ToString)
                        'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
-                        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                        If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
                            'S01	Sin efectos fiscales.
                            DdlUsoCFDI.SelectedValueExist("23")
                            DdlUsoCFDI.Enabled = False
@@ -2951,7 +2948,7 @@ Partial Class PV
                        DdlMetodoPago33.SelectedValueExist(ObjCliente.CveMetodoPago33)
                        DdlUsoCFDI.SelectedValueExist(ObjCliente.CveUsoCFDI)
                        'SI ES RFC GENERICO NO TIENE OBLIGACIONES FISCALES
-                        If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
+                        If LblRFC.Text.Contiene("XAXX010101000", "XEXX010101000") Then
                            'S01	Sin efectos fiscales.
                            DdlUsoCFDI.SelectedValueExist("23")
                            DdlUsoCFDI.Enabled = False
@@ -6499,7 +6496,7 @@ Partial Class PV
            RFVCiudadC.Visible = False
            RFVLocalidadC.Visible = False
            RFVSATPais.Visible = False
-            divRegimenCliente.Visible = UsuarioActual.Empresa.Funcionalidad(350) = "1"
+            divRegimenCliente.Visible = True

            RdTipoPersona.SelectedValue = "0"

@@ -6542,7 +6539,7 @@ Partial Class PV
                    DivCorreoCuentaCliente.Visible = True
                    DivBotonesAgregarCliente.Visible = True
                    DivFormaCliente.Visible = True
-                    divRegimenCliente.Visible = UsuarioActual.Empresa.Funcionalidad(350) = "1"
+                    divRegimenCliente.Visible = True
                End If
            End If
            ObjCliente.Dispose()
@@ -6580,17 +6577,13 @@ Partial Class PV
            Else
                Dim RegimenFiscalCliente As String = "-1"

-                If UsuarioActual.Empresa.Funcionalidad(350).Contiene("1") AndAlso DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+                If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
                    RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscalCliente.SelectedValue.ToEntero()}")
                End If

                DdlUsoCFDICliente.Items.Clear()
-                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-                    Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
-                    DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
-                Else
-                    DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
-                End If
+                Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+                DdlUsoCFDICliente.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)

                DdlUsoCFDICliente.DataBind()
                DdlUsoCFDICliente.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -6612,46 +6605,44 @@ Partial Class PV
        Dim CveRegimenFiscal As Integer = -1
        Dim CveUsoCFDI As Integer = 3

-        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-            CveRegimenFiscal = DdlRegimenFiscalCliente.SelectedValue.ToEntero()
-            CveUsoCFDI = DdlUsoCFDICliente.SelectedValue.ToEntero()
+        CveRegimenFiscal = DdlRegimenFiscalCliente.SelectedValue.ToEntero()
+        CveUsoCFDI = DdlUsoCFDICliente.SelectedValue.ToEntero()

-            Dim RegimenFiscalCliente As String = "-1"
-
-            If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
-                RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {CveRegimenFiscal}")
-            End If
-
-            If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue <> "11" Then
-                Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-
-            If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue <> "23" Then
-                Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-
-            If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
-                Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-
-            If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
-                Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
-
-            Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
-            Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}")
-
-            If DtUsosCFDI.Rows.Count = 0 Then
-                Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
+        Dim RegimenFiscalCliente As String = "-1"

+        If DdlRegimenFiscalCliente.SelectedValue.ToEntero() > 0 Then
+            RegimenFiscalCliente = GlobalDTRegimenesFiscales().FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {CveRegimenFiscal}")
        End If

+        If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue <> "11" Then
+            Alert("El Regimen fiscal del cliente debe ser <b>'616 - Sin obligaciones fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue <> "23" Then
+            Alert("El uso cfdi del cliente debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlRegimenFiscalCliente.SelectedValue = "11" Then
+            Alert("El Regimen fiscal del cliente no puede ser <b>'616 - Sin obligaciones fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If Not TxtRFCCliente.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDICliente.SelectedValue = "23" Then
+            Alert("El uso cfdi del cliente no puede ser <b>'S01 - Sin efectos fiscales'</b> si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+        Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {CveUsoCFDI}")
+
+        If DtUsosCFDI.Rows.Count = 0 Then
+            Alert("El Uso CFDI no corresponde con el tipo de persona (fisca, moral) y el régimen fiscal.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
        If DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
            If Dr IsNot Nothing Then