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

Cuenta contable de retenciones de servicios al 6%

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-01-28 16:54:49 -07:00
parent 6523ae98c5
commit c3bea161c1
1 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Ventas/Ventas.aspx.vb
View File

@@ -10430,7 +10430,11 @@ Partial Class Ventas
CveSubProyectoContabilizar = CveSubProyectoVenta CveSubProyectoContabilizar = CveSubProyectoVenta
If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" 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 If IdCtaContRetIVA > 0 Then
IdCtaContable = IdCtaContRetIVA IdCtaContable = IdCtaContRetIVA
Else Else
@@ -10440,8 +10444,9 @@ Partial Class Ventas
End If End If
End If End If
End If End If
End If
'Contabilidad SIG 'CONTABILIDAD SIG
If CveCuentaRetIVA > 0 Then If CveCuentaRetIVA > 0 Then
CveCuenta = CveCuentaRetIVA CveCuenta = CveCuentaRetIVA
Else Else
@@ -10451,6 +10456,8 @@ Partial Class Ventas
End If End If
End If End If
End If End If
End If End If
Case 9 'Ret ISR por Trasladar Case 9 'Ret ISR por Trasladar