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

21
Ventas/Ventas.aspx.vb
View File

@@ -10430,18 +10430,23 @@ 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
If IdCtaContRetIVA > 0 Then 'SI LA RETENCION ES AL 6% DEBE USAR ESTA CUENTA
IdCtaContable = IdCtaContRetIVA If UsuarioActual.Empresa.Funcionalidad(580).ToEntero() > 0 AndAlso (DdlTipoRetencion.SelectedValue = "4") Then
IdCtaContable = UsuarioActual.Empresa.Funcionalidad(580).ToEntero()
Else Else
If ObjConta.GetRetCuenta(ConceptoContable, ObjFactura.CveEmpresa) Then If IdCtaContRetIVA > 0 Then
If ObjConta.DtResultados.Rows.Count > 0 Then IdCtaContable = IdCtaContRetIVA
IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero 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 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