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

2024-04-06 06:34:40 -07:00
parent 7c1d4d14e5 2ed4bac6a1
commit 1bbfa6727e
11 changed files with 25373 additions and 37 deletions
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1062,6 +1062,8 @@ Public Class ClsInventarios
        Catch Ex1 As SqlException
            If Ex1.Message.Contains("UK_Inv_MovimientosFolio") Then
                Me.OnError("El Folio ya se encuentra registrado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            ElseIf Ex1.Message.Contains("50016") Then
+                Me.OnError("No se puede registrar salida con entradas posteriores.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
            Else
                Me.OnError("Ocurrió un error al guardar el movimiento.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
            End If
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -744,12 +744,9 @@ Partial Class Bancos_IE



-            'If TabCancelacion.Visible Then
-            '    LnkCancelar.Visible = False
-            '    LnkCancelarComplemento.Visible = False
-            '    'LnkEliminar.Visible = False
-            '    LnkCancelarComplementoImporte.Visible = False
-            'End If
+            If TabCancelacion.Visible Then
+                LnkCancelar.Visible = False
+            End If

            UppEliminarIE.Update()

--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -498,8 +498,12 @@
                                        <asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
                                        <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
                                        <asp:ListItem Text="NC Por Devolución" Value="11"></asp:ListItem>
-                                        <%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem>--%> 
-                                        <%--<asp:ListItem Text="Remision Nota De Crédito" Value="13"></asp:ListItem> Ocuado se carga con funcionalidad 574  --%>
+
+                                        <%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem> Ocuoado usado en Garantía--%> 
+                                        <%--<asp:ListItem Text="" Value="13"></asp:ListItem> Ocupado RECEPCION ADELANTADO --%>
+                                        <%--<asp:ListItem Text="Recolecciones" Value="14"></asp:ListItem> Ocupado Recolecciones  --%>
+                                        <%--<asp:ListItem Text="Remision Nota De Crédito" Value="15"></asp:ListItem> Ocuado se carga con funcionalidad 574  --%>
+
                                    </asp:DropDownList>
                                    
                                </div>
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1222,6 +1222,61 @@ Partial Class Compras_Compras
    End Property


+    Private Property SerieFolioProntoPago As String
+        Get
+            If ViewState("SerieFolioProntoPago") Is Nothing Then
+                ViewState("SerieFolioProntoPago") = ""
+            End If
+            Return ViewState("SerieFolioProntoPago").ToString
+        End Get
+        Set(value As String)
+            ViewState("SerieFolioProntoPago") = value
+        End Set
+    End Property
+
+    Private Property TipoCambioProntoPago As Decimal
+        Get
+            If ViewState("TipoCambioProntoPago") Is Nothing Then
+                ViewState("TipoCambioProntoPago") = 0D
+            End If
+            Return ViewState("TipoCambioProntoPago").ToString.ToDecimal
+        End Get
+        Set(value As Decimal)
+            ViewState("TipoCambioProntoPago") = value
+        End Set
+    End Property
+
+    Private Property FechaProntoPago As Date
+        Get
+            If ViewState("FechaProntoPago") Is Nothing Then
+                ViewState("FechaProntoPago") = MinFecha
+            End If
+            Return ViewState("FechaProntoPago").ToString.ToDate
+        End Get
+        Set(value As Date)
+            ViewState("FechaProntoPago") = value
+        End Set
+    End Property
+
+    Private Property CveMonedaProntoPago As Integer
+        Get
+            If ViewState("CveMonedaProntoPago") Is Nothing Then
+                ViewState("CveMonedaProntoPago") = 0D
+            End If
+            Return ViewState("CveMonedaProntoPago").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMonedaProntoPago") = value
+        End Set
+    End Property
+
+    'ImporteRNCSaldar = 0
+    'SerieFolioProntoPago = ""
+    'TipoCambioProntoPago = 1
+    'FechaProntoPago = MinFecha
+    'CveMonedaProntoPago = 1
+
+
 #End Region


@@ -1631,7 +1686,7 @@ Partial Class Compras_Compras
            End If

            If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
-                DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "13"))
+                DdlTipoCompra.Items.Add(New ListItem("Remision Nota De Crédito", "15"))
            End If


@@ -6961,18 +7016,33 @@ Partial Class Compras_Compras

                                                            Dim CompraPago As New Compra
                                                            ''datos de la compra tipodocto:Fac, para sobreescribirlos
-                                                            'CompraPago.CveCompra = DdlRemisionNotaCredito.SelectedValue.ToEntero
-                                                            'CompraPago.CveProveedor = DdlProveedor.SelectedValue.ToEntero
-                                                            'CompraPago.SerieFolio = Gvr.DataKey("SerieFolio")
-                                                            'CompraPago.TC = Gvr.DataKey("TipoCambio").ToDecimal
-                                                            'CompraPago.Fecha = Gvr.DataKey("Fecha").ToDate
-                                                            'CompraPago.CveMoneda = Gvr.DataKey("CveMoneda").ToEntero
-                                                            'CompraPago.Total = Gvr.DataKey("Total").ToDecimal
-                                                            'CompraPago.CveTipoConceptoProveedor = CveTipoConcepto
+                                                            CompraPago.CveCompra = DdlRemisionNotaCredito.SelectedValue.ToEntero
+                                                            CompraPago.CveProveedor = DdlProveedor.SelectedValue.ToEntero
+                                                            CompraPago.SerieFolio = SerieFolioProntoPago
+                                                            CompraPago.TC = TipoCambioProntoPago
+                                                            CompraPago.Fecha = FechaProntoPago
+                                                            CompraPago.CveMoneda = CveMonedaProntoPago
+                                                            CompraPago.Total = ImporteRNCSaldar
+                                                            CompraPago.CveTipoConceptoProveedor = CveTipoConcepto
                                                            CompraPago.CveSubProyecto = CompraActual.CveSubProyecto

                                                            ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraPago, Pago, CvePrePoliza, ObjConta)

+                                                            If Not ErrorPrepoliza Then
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteRNCSaldar, ImporteRNCSaldar, 371, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
+                                                                                                    CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
+                                                                    ErrorPrepoliza = True
+                                                                End If
+
+                                                                If Not ErrorPrepoliza Then
+                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteRNCSaldar, ImporteRNCSaldar, 372, Referencia, Concepto, CveCompra:=DdlRemisionNotaCredito.SelectedValue.ToEntero, CveProveedor:=Me.CveProveedor, ImporteME:=If(TipoCambio = 1, 0, ImporteRNCSaldar), TipoCambio:=TipoCambio,
+                                                                                                            CveClasificacion:=-1, CveSubProyecto:=CompraActual.CveSubProyecto, Contabilizable:=True) Then
+                                                                        ErrorPrepoliza = True
+                                                                    End If
+                                                                End If
+                                                            End If
+
+
                                                        End If

                                                        If ErrorPrepoliza Then
@@ -7536,7 +7606,7 @@ Partial Class Compras_Compras
                                    If Not ErrorPrepoliza AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4, AutoConta:=AutoConta) Then
                                        TieneError = True
                                        'If ObjConta.ValorPolizaDescuadre > 0 Then
-                                        '    GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                        '    Alert($"{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia}", TipoMensaje.MsgError)
                                        '    ErrorPrepolizaDescuadre = True
                                        'End If
                                    End If
@@ -14422,7 +14492,7 @@ Partial Class Compras_Compras

    End Sub
    Protected Sub BtnVincularOC_Click(sender As Object, e As EventArgs)
-        VincularOcProntoPago = False
+        'VincularOcProntoPago = False
        AjusteProntoPagoPorcentajeIVA = 0D
        AjusteProntoPagoConIVA = 0D
        AjusteProntoPagoSinIVA = 0D
@@ -17066,7 +17136,7 @@ Partial Class Compras_Compras
                                  DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDecimal, Total, IVA,
                                  TxtRetIVAModal.Text.ToDecimal / 100, TxtRetISRModal.Text.ToDecimal / 100, TxtIEPSModal.Text.ToDecimal / 100, 0, TxtDescuentoModal.Text.ToDecimal, OtrosGastos:=0, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
                                  NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle,
-                                  CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, ""), CodigoPS:=CodigoPS)
+                                  CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, ""))

                AddPS2()
                LimpiaAgregar()
@@ -17726,9 +17796,19 @@ Partial Class Compras_Compras

        Dim CvePS As Integer = -1
        Dim tPS As String = ""
+        Dim tCodigoPS As String = ""

        CvePS = DdlPSAlias2.SelectedValue.ToEntero
-        tPS = DdlPSAlias2.SelectedText
+
+        Dim dRowPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
+
+        If dRowPS IsNot Nothing Then
+            tPS = dRowPS("PS").ToString
+            tCodigoPS = dRowPS("CodigoPS").ToString
+        End If
+
+        'tPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("PS") 'DdlPSAlias2.SelectedText
+
        If CvePS <= 0 Then
            Alert("No se ha seleccionado el producto.", TipoMensaje.MsgAdvertencia)
            Exit Sub
@@ -17754,6 +17834,7 @@ Partial Class Compras_Compras

            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("PS") = tPS
+            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CodigoPS") = tCodigoPS
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveUM") = DdlUnidadAlias.SelectedValue.ToEntero
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("UM") = DdlUnidadAlias.SelectedItem.Text
            TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
@@ -17771,6 +17852,7 @@ Partial Class Compras_Compras
            For Each drt As DataRow In TmpDT.Select($"PS ='{TxtPSAlias.Text.Trim}' and ISNULL(CvePS,0) = 0")
                drt("CvePS") = CvePS
                drt("PS") = tPS
+                drt("CodigoPS") = tCodigoPS
                drt("CveUM") = DdlUnidadAlias.SelectedValue.ToEntero
                drt("UM") = DdlUnidadAlias.SelectedItem.Text
                drt("CveClasificacion") = HdnPSAliasCveClasificacion.Value.ToEntero
@@ -19434,7 +19516,7 @@ Partial Class Compras_Compras
            End If
        End If

-        If DdlTipoCompra.SelectedValue = "13" Then 'Remisión de nota de crédito
+        If DdlTipoCompra.SelectedValue = "15" Then 'Remisión de nota de crédito

            If DdlTipoComprobante.SelectedValue = "NC" Then
                CargaDdlRemisionNotaCredito()
@@ -20767,6 +20849,7 @@ Partial Class Compras_Compras

    Public Function GeneraRemisionsNotadeCredito(ByRef trasaccion As SqlTransaction, CveCompraRegistrada As Integer) As Boolean
        Dim respuesta As Boolean = True
+        Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal

        Dim CvePS_RNC As Integer = UsuarioActual.Empresa.Funcionalidad(580).ToEntero
        Dim PSRow As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS_RNC).FiltroPrimero("")
@@ -20816,8 +20899,10 @@ Partial Class Compras_Compras
            Dim PS As String = PSRow("PS").ToString
            Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero
            Dim UM As String = PSRow("UnidadMedida").ToString
+            Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)

-            CompraRNC.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, ImporteRNC)
+
+            CompraRNC.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, (ImporteRNC + IVARNC), IVARNC)
            If Not CompraRNC.AddCompraRNC(trasaccion) Then
                respuesta = False
            End If
@@ -20838,8 +20923,9 @@ Partial Class Compras_Compras
                CompraRNCProntoPAgo.Serie = $"{TxtSerie.Text}_P"
                CompraRNCProntoPAgo.Folio = $"{TxtFolio.Text}_P"
                CompraRNCProntoPAgo.CveCompraAmortizacion = CveCompraRegistrada
+                Dim IVARNCProntoPago As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2)

-                CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, ImporteRNCProntoPago)
+                CompraRNCProntoPAgo.ConfiguraRegistroRapidoRNC(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago)
                If Not CompraRNCProntoPAgo.AddCompraRNC(trasaccion) Then
                    respuesta = False
                End If
@@ -20874,7 +20960,7 @@ Partial Class Compras_Compras
        Else

            If ImporteRNCProntoPago > 0 Then
-                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generararan dos Remisiones de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")} y otra por  pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
+                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC + ImporteRNCProntoPago).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generaran dos Remisiones de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")} y otra por  pronto pago de ${ImporteRNCProntoPago.ToString("###,###,###.00")}"
            Else
                LblModalConfirmaVinculacionProntoPago.Text = $"Existe una diferencia de ${(ImporteRNC).ToString("###,###,###.00")} entre la compra y la Orden de Compra, se generara una Remision de Nota de Crédito una por descuento de ${ImporteRNC.ToString("###,###,###.00")}"
            End If
@@ -20918,16 +21004,19 @@ Partial Class Compras_Compras
    End Sub
    Protected Sub DdlRemisionNotaCredito_SelectedIndexChanged(sender As Object, e As EventArgs)

-        'ImporteRNCSaldar = 0
+        ImporteRNCSaldar = 0
+        SerieFolioProntoPago = ""
+        TipoCambioProntoPago = 1
+        FechaProntoPago = MinFecha
+        CveMonedaProntoPago = 1

-        'If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 Then
-        '    ImporteRNCSaldar = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
-        '    SerieFolioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
-        '    TipoCambioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
-        '    FechaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
-        '    CveMonedaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
-        '    ProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
-        'End If
+        If DdlRemisionNotaCredito.SelectedValue.ToEntero > 0 Then
+            ImporteRNCSaldar = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Saldo", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
+            SerieFolioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("SerieFolio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ")
+            TipoCambioProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("TipoCambio", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToDecimal
+            FechaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("Fecha", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToString.ToDate
+            CveMonedaProntoPago = DTRemisionesNotaDeCredito.FiltroPrimeroValor("CveMoneda", $" CveCompra = {DdlRemisionNotaCredito.SelectedValue.ToEntero} ").ToEntero
+        End If

        ''Alert(ImporteRNCSaldar.ToString)
        'CompraPago.SerieFolio = Gvr.DataKey("SerieFolio")
@@ -21545,7 +21634,7 @@ Public Class ClsCompraManagerCompras

    End Function
    Public Function ConfiguraRegistroRapidoRNC(CvePS As Integer, CveUM As Integer, UM As String, CveClasificacion As Integer, Clasificacion As String, PS As String, CveSubProyecto As Integer, SubProyecto As String,
-                                               SubTotal As Decimal, Total As Decimal) As Boolean
+                                               SubTotal As Decimal, Total As Decimal, IVA As Decimal) As Boolean

        Dim respuesta As Boolean = True
        Me.CveSubProyecto = CveSubProyecto
@@ -21557,6 +21646,7 @@ Public Class ClsCompraManagerCompras
        Me.CveTipoPoliza = 3
        Me.NumeroReembolso = ""
        Me.SubTotal = SubTotal
+        Me.IVA = IVA
        Me.Total = Total


--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2879,7 +2879,7 @@ Partial Class PopUpVerFactura
                    If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"

                    'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186) Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193) Then
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("Concepto", ConceptoFormato))
                        params.Add(New ReportParameter("Almacen", Almacen))
@@ -2907,7 +2907,7 @@ Partial Class PopUpVerFactura
                        End If


-                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+                        If UsuarioActual.CveEmpresa.Contiene(72, 80, 193) Then
                            params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                            params.Add(New ReportParameter("DireccionProveedor", If(CveCompra > 0, dr("Direccion").ToString, "")))
                            params.Add(New ReportParameter("RFCProveedor", If(CveCompra > 0, dr("RFC").ToString, "")))
--- a/Empresas/193/Formatos/Factura.mrt
+++ b/Empresas/193/Formatos/Factura.mrt
--- a/Empresas/193/Formatos/Nomina.rdlc
+++ b/Empresas/193/Formatos/Nomina.rdlc
--- a/Empresas/193/Formatos/OC.rdlc
+++ b/Empresas/193/Formatos/OC.rdlc
--- a/Empresas/193/Formatos/ReciboDePago.rdlc
+++ b/Empresas/193/Formatos/ReciboDePago.rdlc
--- a/Empresas/193/Formatos/Remision.mrt
+++ b/Empresas/193/Formatos/Remision.mrt
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -37836,6 +37836,8 @@ Partial Class Ventas

                    RowUpdate("ImporteIVA") = ImporteIVA

+                    RowUpdate("TotalConImpuestos") = (RowUpdate("Total").ToString().ToDecimal() - RowUpdate("Descuento").ToString().ToDecimal() + RowUpdate("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
+
                    CalculaTotalesVenta()
                    RegistraScript("$('#ModalDescPS').modal('hide');")
                Else