Cuenta contable de retenciones de servicios al 6%

Ventas/Ventas.aspx.vb

@@ -10430,7 +10430,11 @@ Partial Class Ventas
                                 CveSubProyectoContabilizar = CveSubProyectoVenta
                                 If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
 
-                                'Contabilidad ContPAQ
+                                '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 IdCtaContRetIVA > 0 Then
                                         IdCtaContable = IdCtaContRetIVA
                                     Else
@@ -10440,8 +10444,9 @@ Partial Class Ventas
                                             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