From 0a1ea6392946ff0f15a483e767e28b88c77cd3d8 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 5 Nov 2024 16:46:34 -0700
Subject: [PATCH] --Porcentaje Utilidad al agregar

---
 Ventas/Ventas.aspx    |  4 +++-
 Ventas/Ventas.aspx.vb | 21 +++++++++++++++++++++
 2 files changed, 24 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 3be72d870..b3ebebe4c 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1260,7 +1260,9 @@
                                                 <th runat="server" id="thOrden"></th>
                                                 <th runat="server" visible="false" id="nomostrar"></th>
                                                 <th runat="server" visible="false" id="thProntoPago"></th>
-                                                <th runat="server" visible="false" id="thCosto"></th>
+                                                <th runat="server" visible="false" id="thCosto">
+                                                    <asp:Literal ID="LtlHeaderCosto" runat="server" Text=""></asp:Literal>
+                                                </th>
                                             </tr>
                                         </table>
                                         <%--</asp:Panel>--%>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b695cbc7b..c256dd38c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18365,6 +18365,27 @@ Partial Class Ventas
 
                 If UsuarioActual.CveEmpresa = 189 Then
                     AgregarPSAutomaticamente = False
+                    Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385)
+
+                    Dim Costo As Decimal = 0
+
+                    If (CveVenta <= 0 OrElse EsCreaApartirDe) AndAlso DdlTipoComprobante.SelectedValue = "Cot" AndAlso PuedeVerCosto Then
+                        GvPS.Columns(23).Visible = True
+                        thCosto.Visible = True
+                        thCosto2.Visible = True
+
+                        Dim ObjInventarios As New ClsInventarios
+
+                        Costo = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1)
+                        'si el costo es cero, puede ser que no halla movimientos del producto, en  esa sucursal. y se volverá a sacar sin especificar sucursal
+                        If Costo <= 0 Then Costo = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDecimal, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1)
+
+                        ObjInventarios.Dispose()
+
+                        If Costo > 0 Then
+                            LtlHeaderCosto.Text = String.Format("{0:N2} %", ((TxtPrecio.Text.ToDecimal() - Costo) / TxtPrecio.Text.ToDecimal()) * 100D)
+                        End If
+                    End If
                 End If
 
                 If AgregarPSAutomaticamente Then