diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 73bc2593f..86c935ff1 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -415,7 +415,7 @@ Public Class ClsProductosServicios Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1, Optional NombreComercial As String = "", Optional NotasAdicionales As String = "", Optional EcommerceEtiquetas As String = "", Optional ActivoEcommerce As Boolean = False, Optional EcommercePrecio As Decimal = 0, Optional CveClasificacionEcommerce As Integer = -1, Optional EcommerceCantidad As Decimal = 0, Optional CodigoAlterno As String = "-1", Optional PSAlterno As String = "-1", Optional ProductoExhibicion As Boolean = False, - Optional Imagen As String = "", Optional PorcentajeMinimoUtilidad As Decimal = 0, Optional CveSelectiva As Integer = -1) As Integer + Optional Imagen As String = "", Optional PorcentajeMinimoUtilidad As Decimal = 0, Optional CveSelectiva As Integer = -1, Optional UltimoCosto As Decimal = 0) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -527,6 +527,7 @@ Public Class ClsProductosServicios .Add("@Imagen", SqlDbType.VarChar).Value = Imagen .Add("@PorcentajeMinimoUtilidad", SqlDbType.Decimal).Value = PorcentajeMinimoUtilidad .Add("@CveSelectiva", SqlDbType.Int).Value = CveSelectiva + .Add("@UltimoCosto", SqlDbType.Money).Value = UltimoCosto End With Try diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 2c5693387..721e35e49 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1169,6 +1169,7 @@ Partial Class Bancos_ProveedoresAbonar IDPoliza = 0 End If + 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") diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 033be19eb..1f3e35b51 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -22668,7 +22668,20 @@ Partial Class Compras_Compras nRow("SubTotal") = subtotalParcial.RoundSQL(4) nRow("Total") = totalParcialDeseado.RoundSQL(4) - nRow("PorcentajeIVA") = (ivaParcial / subtotalParcial).RoundSQL(2) + + + Dim tmpPorcentajeIVA As Decimal = 0 + If ivaParcial > 0 Then + tmpPorcentajeIVA = (ivaParcial / subtotalParcial).RoundSQL(2) + If tmpPorcentajeIVA = 0.17 Or tmpPorcentajeIVA = 0.15 Then + tmpPorcentajeIVA = 0.16D + End If + If tmpPorcentajeIVA = 0.07 Or tmpPorcentajeIVA = 0.09 Then + tmpPorcentajeIVA = 0.16D + End If + End If + + nRow("PorcentajeIVA") = tmpPorcentajeIVA nRow("Porcentaje") = ((totalParcialDeseado.RoundSQL(4) * 100) / TotalOriginal).RoundSQL(2) nRow("RetIVAPorcentaje") = (retIvaParcial / subtotalParcial).RoundSQL(4) diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 2573067e0..d57e53051 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -311,7 +311,7 @@