--precio de compra al aplicar descuento

Ventas/FacturacionAcarreos.aspx.vb

@@ -263,7 +263,9 @@ Partial Class Ventas_FacturacionAcarreos
                             drr("SerieFolio") = resp.SerieFolio
                             dtt.Rows.Add(drr)
 
-                            DescargarFactura(resp.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
+                            'DescargarFactura(resp.CveVenta, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
+                            GenerarPDFVenta(resp.CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False)
+
                             Archivo = String.Format("{0}PDF/ING/{1}.pdf", UsuarioActual.Empresa.Ruta.Replace("\", "/"), resp.SerieFolio)
                             If File.Exists(Archivo) Then
                                 archiveZip.CreateEntryFromFile(Archivo, resp.SerieFolio & ".pdf")

Ventas/Ventas.aspx

@@ -4376,7 +4376,9 @@
                                         </b>
                                     </td>
                                     <td><b>
-                                        <asp:Label ID="LblUtilidadPorcentaje" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label></b></td>
+                                        <asp:Label ID="LblUtilidadPorcentaje" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label></b>
+                                    &nbsp
+                                     <asp:Label ID="LblPrecioCompra" runat="server" ClientIDMode="Static" Text="0.00"></asp:Label></td>
                                 </tr>
                                 <tr>
                                     <td></td>

Ventas/Ventas.aspx.vb

@@ -23977,6 +23977,7 @@ Partial Class Ventas
                 Dim PrecioCompra = ObjPS.GetUltimoPrecioCompra(UsuarioActual.CveEmpresa, GvRow.DataKey("CvePS").ToEntero())
                 If PrecioCompra > 0 Then
                     HdnTotalCompra.Value = (PrecioCompra * GvRow.DataKey("Cantidad").ToDouble() * 1.16).ToString()
+                    LblPrecioCompra.Text = $"PU Compra: {(PrecioCompra * 1.16).FormatoNumero(2)}"
                 End If
             End Using