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 @@
- + @@ -319,9 +319,18 @@
-
- -
+
+ +
+ + + + + <%-- + --%> +
+
@@ -448,15 +457,7 @@ - - - - - - - -
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index c238cae1b..55db2884b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -5801,7 +5801,7 @@ Partial Class Compras_eFacturas If CompraActual.ConfiguraRegistroCompra(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal, DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text, - DTProrrateo:=DTProrrateo, DTPagosDeudores:=DTPagosDeudores) Then + DTProrrateo:=DTProrrateo, DTPagosDeudores:=DTPagosDeudores, Observaciones:=TxtObservaciones.Text) Then If CompraActual.AddCompra(Objcompras.IniciaTransacSQL()) Then Contador = Contador + 1 Else @@ -6874,7 +6874,7 @@ Public Class ClsCompraManager End Sub Public Function ConfiguraRegistroCompra(CvePS As Integer, CveSubProyecto As Integer, CveCajaChica As Integer, CvePersonal As Integer, CveRetIVAConcepto As Integer, CveRetISRConcepto As Integer, NumeroReembolso As String, DTProrrateo As DataTable, - DTPagosDeudores As DataTable, Optional TipoComprobante As String = "") As Boolean + DTPagosDeudores As DataTable, Optional TipoComprobante As String = "", Optional Observaciones As String = "") As Boolean Dim respuesta As Boolean = True Me.CveSubProyecto = CveSubProyecto @@ -6886,6 +6886,7 @@ Public Class ClsCompraManager Me.CveTipoPoliza = 3 Me.NumeroReembolso = NumeroReembolso Me.DTPagosDeudores = DTPagosDeudores + Me.Observaciones = Observaciones If TipoComprobante.Length > 0 Then Me.TipoComprobante = TipoComprobante diff --git a/Empresas/189/Formatos/Entradas.rdlc b/Empresas/189/Formatos/Entradas.rdlc index 2b765df5f..06dc666ac 100644 --- a/Empresas/189/Formatos/Entradas.rdlc +++ b/Empresas/189/Formatos/Entradas.rdlc @@ -2042,7 +2042,7 @@ - Capturo: + Capturó: