From c3bea161c1759f395c7a2218a10e0b11ca17cf89 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 28 Jan 2020 16:54:49 -0700
Subject: [PATCH] Cuenta contable de retenciones de servicios al 6%

---
 Ventas/Ventas.aspx.vb | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 6e2f3a290..7774afcb2 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10430,18 +10430,23 @@ Partial Class Ventas
                                 CveSubProyectoContabilizar = CveSubProyectoVenta
                                 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
-                                'Contabilidad ContPAQ
-                                If IdCtaContRetIVA > 0 Then
-                                    IdCtaContable = IdCtaContRetIVA
+                                'CONTABILIDAD CONTPAQ
+                                'SI LA RETENCION ES AL 6% DEBE USAR ESTA CUENTA
+                                If UsuarioActual.Empresa.Funcionalidad(580).ToEntero() > 0 AndAlso (DdlTipoRetencion.SelectedValue = "4") Then
+                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(580).ToEntero()
                                 Else
-                                    If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
-                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                    If IdCtaContRetIVA > 0 Then
+                                        IdCtaContable = IdCtaContRetIVA
+                                    Else
+                                        If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then
+                                            If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                            End If
                                         End If
                                     End If
                                 End If
 
-                                'Contabilidad SIG
+                                'CONTABILIDAD SIG
                                 If CveCuentaRetIVA > 0 Then
                                     CveCuenta = CveCuentaRetIVA
                                 Else
@@ -10451,6 +10456,8 @@ Partial Class Ventas
                                         End If
                                     End If
                                 End If
+
+
                             End If
 
                         Case 9 'Ret ISR por Trasladar