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

0 BUG de ProveedoresAbonar descuento masivo

Browse Source
This commit is contained in:
rakcsle
2025-01-23 11:24:40 -07:00
parent 37e564b87b
commit 4cf4435584
1 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Compras/Compras.aspx.vb
View File

@@ -22354,6 +22354,8 @@ Partial Class Compras_Compras
TmpDTProrrateoGasolina.Columns.Add("RetISR", GetType(Decimal)) TmpDTProrrateoGasolina.Columns.Add("RetISR", GetType(Decimal))
TmpDTProrrateoGasolina.Columns.Add("Total", GetType(Decimal)) TmpDTProrrateoGasolina.Columns.Add("Total", GetType(Decimal))
TmpDTProrrateoGasolina.Columns.Add("PorcentajeIVA", GetType(Decimal)) TmpDTProrrateoGasolina.Columns.Add("PorcentajeIVA", GetType(Decimal))
TmpDTProrrateoGasolina.Columns.Add("RetISRPorcentaje", GetType(Decimal))
TmpDTProrrateoGasolina.Columns.Add("RetIVAPorcentaje", GetType(Decimal))
TmpDTProrrateoGasolina.Columns.Add("CveUM", GetType(Integer)) TmpDTProrrateoGasolina.Columns.Add("CveUM", GetType(Integer))
TmpDTProrrateoGasolina.Columns.Add("CveClasificacion", GetType(Integer)) TmpDTProrrateoGasolina.Columns.Add("CveClasificacion", GetType(Integer))
@@ -22518,13 +22520,13 @@ Partial Class Compras_Compras
nRow("SubProyecto") = SubProyecto nRow("SubProyecto") = SubProyecto
'If CveFactura > 0 Then 'If CveFactura > 0 Then
' nRow("IVA") = ivaParcial.RoundSQL(4) nRow("IVA") = ivaParcial.RoundSQL(4)
' nRow("RetIVA") = retIvaParcial.RoundSQL(4) nRow("RetIVA") = retIvaParcial.RoundSQL(4)
' nRow("RetISR") = retIsrParcial.RoundSQL(4) nRow("RetISR") = retIsrParcial.RoundSQL(4)
'Else 'Else
nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4) 'nRow("IVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4) 'nRow("RetIVA") = (retIvaParcial / subtotalParcial).RoundSQL(4)
nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4) 'nRow("RetISR") = (retIsrParcial / subtotalParcial).RoundSQL(4)
'End If 'End If
nRow("SubTotal") = subtotalParcial.RoundSQL(4) nRow("SubTotal") = subtotalParcial.RoundSQL(4)
@@ -22533,6 +22535,8 @@ Partial Class Compras_Compras
nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(4) nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(4)
nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2) nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2)
nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4)
nRow("RetISRPorcentaje") = (retIsrParcial / subtotalParcial).RoundSQL(4)
nRow("CveUM") = CveUM nRow("CveUM") = CveUM
nRow("UM") = UM nRow("UM") = UM
@@ -22584,7 +22588,8 @@ Partial Class Compras_Compras
TmpDT.Rows.Clear() TmpDT.Rows.Clear()
For Each dRow As DataRow In DTProrrateoGasolina.Rows For Each dRow As DataRow In DTProrrateoGasolina.Rows
AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "", AddPS(1, dRow("CveUM").ToString.ToEntero, dRow("UM").ToString, dRow("CveClasificacion").ToString.ToEntero, dRow("Clasificacion").ToString, dRow("CvePS").ToString.ToEntero, dRow("PS").ToString, 1, dRow("CveSubProyecto").ToString, dRow("SubProyecto").ToString, "",
"-1", "", dRow("SubTotal").ToString.ToDecimal, dRow("Total").ToString.ToDecimal, dRow("PorcentajeIVA").ToString.ToDecimal, dRow("RetIVA").ToString.ToDecimal, dRow("RetISR").ToString.ToDecimal, 0, 0, 0, PorcentajeIVA:=dRow("PorcentajeIVA").ToString.ToDecimal) "-1", "", dRow("SubTotal").ToString.ToDecimal, dRow("Total").ToString.ToDecimal, dRow("IVA").ToString.ToDecimal, dRow("RetIVA").ToString.ToDecimal, dRow("RetISR").ToString.ToDecimal, 0, 0, 0, PorcentajeIVA:=dRow("PorcentajeIVA").ToString.ToDecimal,
CargaXml:=True, PorcentajeRetIVA:=dRow("RetIVAPorcentaje").ToString.ToDecimal, PorcentajeRetISR:=dRow("RetISRPorcentaje").ToString.ToDecimal)
Next Next
AddPS2() AddPS2()