From bc44998bb25a223b9e10f9d2674ecd6fb269b0dc Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 4 Mar 2024 18:13:21 -0700
Subject: [PATCH] --Ferretera. Mostrar total con impuestos

---
 Ventas/Ventas.aspx    |  2 +-
 Ventas/Ventas.aspx.vb | 13 ++++++++++++-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 25bdaabd5..5a677a9e8 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1386,7 +1386,7 @@
                                                 <%--16--%>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
-                                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("TotalImporte", "{0:#,##0.00##}") %>'></asp:Literal>
+                                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(109) = "1", Eval("TotalConImpuestos", "{0:#,##0.00##}"), Eval("TotalImporte", "{0:#,##0.00##}")) %>'></asp:Literal>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <%--17--%>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ed75d8147..dfdc87632 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8835,6 +8835,7 @@ Partial Class Ventas
             TmpDT.Rows(e.RowIndex)("Descuento") = ObjDescuento.ImporteDescuento
             TmpDT.Rows(e.RowIndex)("Total") = (Cantidad * PU)
             TmpDT.Rows(e.RowIndex)("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
+
             TmpDT.Rows(e.RowIndex)("ImporteIVA") = (TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales)
             TmpDT.Rows(e.RowIndex)("ImporteIEPS") = (TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
             TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
@@ -8844,6 +8845,8 @@ Partial Class Ventas
             TmpDT.Rows(e.RowIndex)("PorcentajeRetISR") = ClienteRetISR
             TmpDT.Rows(e.RowIndex)("CuentaPredial") = CuentaPredial
 
+            TmpDT.Rows(e.RowIndex)("TotalConImpuestos") = (TmpDT.Rows(e.RowIndex)("Total").ToString().ToDecimal() - TmpDT.Rows(e.RowIndex)("Descuento").ToString().ToDecimal() + TmpDT.Rows(e.RowIndex)("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
+
             Dim NumTurnos As Decimal = 0
             If UsuarioActual.CveEmpresa.Contiene(7, 122) Then
                 NumTurnos = GvPS.Rows(e.RowIndex).FCTextBox("TxtNumTurnosEditar").Text.ToDecimal()
@@ -16646,6 +16649,7 @@ Partial Class Ventas
                         dr("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
                         dr("PorcentajeRetIVA") = ClienteRetIVA
                         dr("PorcentajeRetISR") = ClienteRetISR
+                        dr("TotalConImpuestos") = (dr("Total").ToString().ToDecimal() - dr("Descuento").ToString().ToDecimal() + dr("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
 
                     Next
 
@@ -18929,6 +18933,8 @@ Partial Class Ventas
             Row("CvePromocionDetalle") = CvePromocionDetalle
             Row("Total") = (Cantidad * PU)
             Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
+            Row("TotalConImpuestos") = (Row("Total").ToString().ToDecimal() - Row("Descuento").ToString().ToDecimal() + Row("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
+
             Row("SATClaveProdServ") = DrPS("SATClavePS")
             Row("SATClaveUM") = DrPS("SATClaveUnidadMedida")
 
@@ -19097,6 +19103,7 @@ Partial Class Ventas
                         DrPoliza("TipoDescuento") = HdnTipoDescuento.Value
                         DrPoliza("Total") = (DrPoliza("Cantidad").ToString().ToDecimal * PU)
                         DrPoliza("TotalImporte") = (DrPoliza("Cantidad").ToString().ToDecimal * PU).RoundSQL(NumeroDecimales)
+                        DrPoliza("TotalConImpuestos") = (DrPoliza("Total").ToString().ToDecimal() - DrPoliza("Descuento").ToString().ToDecimal() + DrPoliza("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
                         DrPoliza("SATClaveProdServ") = DrPSAdicional("SATClavePS")
                         DrPoliza("SATClaveUM") = DrPSAdicional("SATClaveUnidadMedida")
                         DrPoliza("CveActivoFijo") = -1
@@ -19234,6 +19241,8 @@ Partial Class Ventas
         'USO PARA COMERCIO EXTERIOR
         TmpDT.Columns.Add("CantidadConversion", GetType(Decimal))
         TmpDT.Columns("CantidadConversion").DefaultValue = 0
+
+        TmpDT.Columns.Add("TotalConImpuestos", GetType(Decimal))
     End Sub
     Private Sub CreaDTmpC()
         DTmpC = New DataTable
@@ -29747,7 +29756,7 @@ Partial Class Ventas
         Row("Descuento") = Math.Round(Descuento, NumeroDecimales)
         Row("Total") = Math.Round(Total, NumeroDecimales)
         Row("TotalImporte") = Math.Round(Total, NumeroDecimales)
-
+        Row("TotalConImpuestos") = (Row("Total").ToString().ToDecimal() - Row("Descuento").ToString().ToDecimal() + Row("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
 
         Row("Serie") = Serie
         Row("TiempoEntrega") = TiempoEntrega
@@ -34715,6 +34724,7 @@ Partial Class Ventas
         Row("Descuento") = Math.Round(Descuento, 2)
         Row("Total") = Math.Round(Total, 2)
         Row("TotalImporte") = Math.Round(Total, 2)
+        Row("TotalConImpuestos") = (Row("Total").ToString().ToDecimal() - Row("Descuento").ToString().ToDecimal() + Row("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
 
         Row("Serie") = Serie
         Row("TiempoEntrega") = TiempoEntrega
@@ -37454,6 +37464,7 @@ Partial Class Ventas
                     Row("Descuento") = (ObjDescuento.ImporteDescuento).RoundSQL(NumeroDecimales)
                     Row("Total") = (Cantidad * PU)
                     Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
+                    Row("TotalConImpuestos") = (Row("Total").ToString().ToDecimal() - Row("Descuento").ToString().ToDecimal() + Row("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
                 End If
             Next