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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-04-28 16:48:57 -07:00
parent fe546cf4d2 fbc80a664e
commit 7a7ed9ff35
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Ventas/ClientesAbonar.aspx.vb
View File

@@ -2693,12 +2693,18 @@ Partial Class Ventas_ClientesAbonar
If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos If CveConceptoDeduccion = 78 Then IdCuentaContableNoDeducible = UsuarioActual.Empresa.IdCuentaOtrosIngresos
If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
ClienteMovto = False : Saldo = Saldo * -1 ClienteMovto = False : Saldo = Saldo * -1
ImpuestosMovto = True : IVA = IVA * -1 ImpuestosMovto = True : IVA = IVA * -1
RETIVA = RETIVA * -1
'RETIVA = RETIVA * -1
RETIVA = ((SubTotal * RETIVA / gr.DataKey("SubTotal").ToDecimal.RoundSQL) * -1).RoundSQL(2)
CveConceptoCliente = 1 CveConceptoCliente = 1
'falta cuenta incobrable 'falta cuenta incobrable
IdCuentaContableNoDeducible = 3114 IdCuentaContableNoDeducible = 3114
End If End If
Dim UsaComplementaria As Boolean = False Dim UsaComplementaria As Boolean = False