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

eFacturas Observaciones, Compras prorrateo validacion IVA, Proveedores Abonar aplicacion de mas en pago RNC

Browse Source
This commit is contained in:
rakcsle
2025-03-12 08:34:23 -07:00
parent 7a7213771c
commit 45a171ab06
5 changed files with 37 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Bancos/ProveedoresAbonar.aspx.vb
View File

@@ -1169,6 +1169,7 @@ Partial Class Bancos_ProveedoresAbonar
IDPoliza = 0
End If
TieneError = True
If Not TieneError Then
ObjIE.Commit()
@@ -2022,12 +2023,12 @@ Partial Class Bancos_ProveedoresAbonar
Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)
Dim TotalRNC As Decimal = (ImporteRNC + IVARNC).RoundSQL(2)
CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC.RoundSQL(2), IVARNC, TotalRNC, PorcentajeIVA)
CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, IVARNC, TotalRNC, PorcentajeIVA)
If CompraRNC.AddCompra(sqltransaccion) Then
Dim tImporteRNC = (ImporteRNC + IVARNC).RoundSQL(2) ' le agrego el importe del iva
'Dim tImporteRNC = (ImporteRNC + IVARNC).RoundSQL(2) ' le agrego el importe del iva
Dim Pago As New CompraPago
Pago.ImportePago = tImporteRNC
Pago.ImportePago = TotalRNC
Pago.CveMonedaPago = CompraActual.CveMoneda
Pago.CveCompraAmortizacion = CompraRNC.CveCompra
Pago.Referencia = CompraRNC.SerieFolio
@@ -2713,7 +2714,7 @@ Public Class ClsCompraManagerComprasCA
Me.CveRetISRConcepto = -1
Me.CveTipoPoliza = 3
Me.NumeroReembolso = ""
Me.SubTotal = SubTotal
Me.SubTotal = SubTotal.RoundSQL
Me.IVA = IVA
Me.Total = Total
Me.PorcentajeIVA = PorcentajeIVA
@@ -3664,7 +3665,7 @@ Public Class ClsCompraManagerComprasCA
'HACEMOS CALCULOS
LocalSubTotalIVA = TmpDT.SUMD("IVA")
LocalSubTotalIEPSIVA = TmpDT.SUMD("IEPSPSIVA")
LocalSubTotal = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).RoundSQL(8)
LocalSubTotal = (TmpDT.SUMD("Total") + TmpDT.SUMD("Descuento")).RoundSQL(2)
LocalRetIVA = TmpDT.SUMD("RetIVA")
LocalRetISR = TmpDT.SUMD("RetISR")
LocalIEPSPS = TmpDT.SUMD("IEPSPS")