Ventas.aspx.vb UsuarioActual.Empresa.TipoContabilidad = 2 en UsaAC y GetRetCuenta

2022-06-17 16:59:47 -07:00
parent 2e870ec179
commit 0766030aca
1 changed files with 30 additions and 30 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2535,7 +2535,7 @@ Partial Class Ventas
            CargarCamiones()

            'SI USUARIO USA AMORTIZACIÓN CONTABLE, se carga las tablas para usarlas mas adelante
-            If UsuarioActual.Empresa.UsaAC Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then

                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
                DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot"))
@@ -5112,7 +5112,7 @@ Partial Class Ventas

                Else
                    'cuando no este contabilizada y usa AC, habilita el boton para generar la poliza
-                    If UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.CveRol = 1 Then
+                    If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.CveRol = 1 Then
                        BtnGenerarPoliza.Visible = True
                    End If
                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
@@ -7304,7 +7304,7 @@ Partial Class Ventas
        dtt.Dispose()
    End Sub
    Private Sub CargaClasificaciones()
-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
            DdlClasificacionPyME.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
        Else
@@ -7606,7 +7606,7 @@ Partial Class Ventas
            Else
                'MODO NORMAL

-                If UsuarioActual.Empresa.UsaAC Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
                    e.Row.FCDropDownList("DdlFR").DataSource = DTPresupuestoIngresos
                    e.Row.FCDropDownList("DdlFR").DataBind()
                    e.Row.FCDropDownList("DdlFR").SelectedValue = e.Row.DBCampo("CvePresupuestoIngreso")
@@ -8880,7 +8880,7 @@ Partial Class Ventas
        End If

        'VALIDA CUENTAS CONTABLES DE AC
-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
            If ObjFactura.Cliente.IdCtaContClientes <= 0 Then
                Alert("El Cliente no tiene registrado la cuenta contable", TipoMensaje.MsgError)
                Exit Sub
@@ -9316,7 +9316,7 @@ Partial Class Ventas
                            End If

                        Else
-                            If UsuarioActual.Empresa.UsaAC Then
+                            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
                                If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
                            End If
                        End If
@@ -13381,7 +13381,7 @@ Partial Class Ventas
                                    If row2.DataKey("IdCtaContable").ToEntero() > 0 Then
                                        IdCtaContable = row2.DataKey("IdCtaContable").ToEntero()
                                    Else
-                                        If ObjConta.GetRetCuenta(row2.DataKey("CveConceptoContable").ToEntero(), ObjFactura.CveCliente) Then
+                                        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(row2.DataKey("CveConceptoContable").ToEntero(), ObjFactura.CveCliente) Then
                                            If ObjConta.DtResultados.Rows.Count > 0 Then
                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContFondoGarantia").ToString().ToEntero()
                                            End If
@@ -13839,7 +13839,7 @@ Partial Class Ventas
                                FechaMovimiento = ObjFactura.FechaPago
                                CveSubProyectoContabilizar = CveSubProyectoVenta

-                                If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
                                    If ObjConta.DtResultados.Rows.Count > 0 Then
                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString().ToEntero()
                                        'CveCuenta = ObjConta.DtResultados.Rows(0)("Conta_IdCuentaDescuentoVenta").ToString().ToEntero()
@@ -13912,7 +13912,7 @@ Partial Class Ventas
                                If IdCtaContRetIVA > 0 Then
                                    IdCtaContable = IdCtaContRetIVA
                                Else
-                                    If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                    If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
                                        If ObjConta.DtResultados.Rows.Count > 0 Then
                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero()
                                        End If
@@ -13938,7 +13938,7 @@ Partial Class Ventas
                                End If

                                'OBTENER CUENTAS
-                                If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                    If ObjConta.DtResultados.Rows.Count > 0 Then
                                        'Conta ContPAQ
                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString().ToEntero()
@@ -13968,7 +13968,7 @@ Partial Class Ventas
                                If IdCtaContRetISR > 0 Then
                                    IdCtaContable = IdCtaContRetISR
                                Else
-                                    If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                    If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
                                        If ObjConta.DtResultados.Rows.Count > 0 Then
                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString().ToEntero()
                                        End If
@@ -14016,13 +14016,13 @@ Partial Class Ventas
                                    importeMX = importeMX * -1
                                    CveIE = ObjFacturaNC.PagadoCveIE

-                                    If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                    If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
                                        If ObjConta.DtResultados.Rows.Count > 0 Then
                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString().ToEntero()
                                        End If
                                    End If
                                Else
-                                    If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                    If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
                                        If ObjConta.DtResultados.Rows.Count > 0 Then
                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString().ToEntero()
                                        End If
@@ -14192,7 +14192,7 @@ Partial Class Ventas
                                            'RETIVA X TRASLADAR
                                            'OBTENER CUENTAS

-                                            If ObjConta.GetRetCuenta(313, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(313, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
                                                'Conta ContPAQ
                                                IdCtaContableRetIVA = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
                                            Else
@@ -14206,7 +14206,7 @@ Partial Class Ventas
                                            End If

                                            'RETIVA PAGADO
-                                            If ObjConta.GetRetCuenta(314, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(314, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
                                                'Conta ContPAQ
                                                IdCtaContableRetIVA = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
                                            Else
@@ -14603,7 +14603,7 @@ Partial Class Ventas
        End If
    End Sub
    Private Sub GuardarVentaAC(ObjVentas As ClsVentas, factura As Modelos.Factura, Msgok As StringBuilder, ObjAC As ClsContPAQi)
-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then

            If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then

@@ -15582,7 +15582,7 @@ Partial Class Ventas
                                                importeMovimiento = importeMovimiento.RoundSQL
                                                importeMX = importeMX.RoundSQL

-                                                If ObjConta.GetRetCuenta(ConceptoContable, CveCliente) Then
+                                                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(ConceptoContable, CveCliente) Then
                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString().ToEntero()
                                                    End If
@@ -15844,7 +15844,7 @@ Partial Class Ventas

                                                importeMovimiento = (TxtIEPS.Text.ToDecimal * (importeMovimiento / TxtTotal.Text.ToDecimal())).RoundSQL
                                                importeMX = importeMovimiento
-                                                If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxTrasladar").ToString().ToEntero()
                                                    End If
@@ -15864,7 +15864,7 @@ Partial Class Ventas

                                                importeMovimiento = (TxtIEPS.Text.ToDecimal * (importeMovimiento / TxtTotal.Text.ToDecimal())).RoundSQL
                                                importeMX = importeMovimiento
-                                                If importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso importeMovimiento <> 0 AndAlso ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSTrasladado").ToString().ToEntero()
                                                    End If
@@ -16146,7 +16146,7 @@ Partial Class Ventas
        If IdCtaContRetIVA <> 0 Then
            IdCtaContable = IdCtaContRetIVA
        Else
-            If ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(8, UsuarioActual.CveEmpresa) Then
                If ObjConta.DtResultados.Rows.Count > 0 Then
                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero()
                End If
@@ -16172,7 +16172,7 @@ Partial Class Ventas
        If IdCtaContRetISR <> 0 Then
            IdCtaContable = IdCtaContRetISR
        Else
-            If ObjConta.GetRetCuenta(9, UsuarioActual.CveEmpresa) Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(9, UsuarioActual.CveEmpresa) Then
                If ObjConta.DtResultados.Rows.Count > 0 Then
                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString().ToEntero()
                End If
@@ -16238,7 +16238,7 @@ Partial Class Ventas
        If IdCtaContRetIVA <> 0 Then
            IdCtaContable = IdCtaContRetIVA
        Else
-            If ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(62, UsuarioActual.CveEmpresa) Then
                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString().ToEntero()
            End If
        End If
@@ -16262,7 +16262,7 @@ Partial Class Ventas
        If IdCtaContRetISR <> 0 Then
            IdCtaContable = IdCtaContRetISR
        Else
-            If ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ObjConta.GetRetCuenta(63, UsuarioActual.CveEmpresa) Then
                If ObjConta.DtResultados.Rows.Count > 0 Then
                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString().ToEntero()
                End If
@@ -16757,7 +16757,7 @@ Partial Class Ventas
                If RespCancelacion.Verificado Then
                    'falta verificar traer el acuse y reenviarlo 

-                    If UsuarioActual.Empresa.UsaAC Then
+                    If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
                        Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True)
                        IDPoliza = IDMPoliza.IdPoliza
                        If IDMPoliza.IdPoliza <= 0 Then
@@ -16848,7 +16848,7 @@ Partial Class Ventas
                Mensaje = "La factura no se pudo cancelar. <br />Posbiles causas:<br />&nbsp;&nbsp;- Los servicios del SAT están ocupados.<br />&nbsp;&nbsp;- El Folio Fiscal no ha quedado registrado."
            ElseIf Respuesta.NoCertificadoSAT <> String.Empty Then

-                If UsuarioActual.Empresa.UsaAC Then
+                If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
                    Dim IDMPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, ObjFacturaDevolucion, True)
                    IDPoliza = IDMPoliza.IdPoliza
                    If IDMPoliza.IdPoliza <= 0 Then
@@ -18445,7 +18445,7 @@ Partial Class Ventas
            Row("SATClaveProdServ") = DrPS("SATClavePS")
            Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")

-            If UsuarioActual.Empresa.UsaAC Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
                Row("CvePresupuestoIngreso") = Me.DdlFuenteRecaudacion.SelectedValue
            End If

@@ -19445,7 +19445,7 @@ Partial Class Ventas
        Dim DdlFR_Gv As DropDownList = CType(sender, DropDownList)
        Dim index As Integer = CType(DdlFR_Gv.NamingContainer, GridViewRow).FCLiteral("LtlConsecutivo").Text.ToString().ToEntero()

-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
            TmpDT(index - 1)("CvePresupuestoIngreso") = DdlFR_Gv.SelectedValue
        End If
        TmpDT.AcceptChanges()
@@ -19642,7 +19642,7 @@ Partial Class Ventas
            Dim ErrorMovimiento = False

            'Elimina la poliza 
-            If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
+            If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
                If Not ObjAC.RemovePoliza(IdPoliza) Then
                    ErrorMovimiento = True
                End If
@@ -24660,7 +24660,7 @@ Partial Class Ventas
        DdlTipo.DataBind()
    End Sub
    Private Sub CargaClasificacionesPS()
-        If UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then
            DdlClasificacionPS.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
            'DdlTipo.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
        Else
@@ -32862,7 +32862,7 @@ Partial Class Ventas

    Protected Sub TxtFecha_TextChanged(sender As Object, e As EventArgs)
        'SI USUARIO USA AMORTIZACIÓN CONTABLE, se carga las tablas para usarlas mas adelante
-        If UsuarioActual.CveEmpresa = 48 AndAlso UsuarioActual.Empresa.UsaAC Then
+        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.CveEmpresa = 48 AndAlso UsuarioActual.Empresa.UsaAC Then

            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Rem"))
            DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Cot"))