diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index aa2f8b39b..4c2765223 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2755,6 +2755,9 @@ + + +
@@ -2764,10 +2767,10 @@ Ajuste
+
-
@@ -3129,7 +3132,7 @@ var Descuento = parseFloat($get("TxtDescP").value); $get("TxtPorDescP").value = Descuento * 100 / Monto * 10 - $get("LblPrecioFinal").innerText = formato_numero(Monto - Descuento, 2, '.', ','); + $get("LblPrecioFinal").innerText = formato_numero(Monto - Descuento, 2, '.', ','); $get("TxtPrecio").value = formato_numero(parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")), 2, '.', ','); var Total = Monto - parseFloat($get("LblPrecioFinal").innerText.replace(",", "").replace(",", "")); $get("LblDescuento").innerText = formato_numero(Total, 2, '.', ','); diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index c1c1ff79b..3b1d75480 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -8,6 +8,7 @@ Imports System.Linq Imports System.Security.Cryptography.X509Certificates Imports System.Globalization Imports System.Net.Http +Imports Microsoft.Reporting.WebForms Partial Class PV Inherits ClsPaginas @@ -5644,6 +5645,36 @@ Partial Class PV End Sub #End Region + Protected Sub BtnPDFHistorial_Click(sender As Object, e As EventArgs) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim DtDatos As New DataTable + + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreCliente", LtlCliente.Text)) + params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text)) + params.Add(New ReportParameter("TelCliente", LblTelefono.Text)) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + + params.Add(New ReportParameter("Fecha", TxtFechaAjuste.Text)) + params.Add(New ReportParameter("Defecto", DdlTipoDefecto.SelectedItem.Text)) + params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text)) + params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text)) + + params.Add(New ReportParameter("MarcaAuto", "")) + params.Add(New ReportParameter("TipoAuto", "")) + + + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") + + End Sub End Class