@@ -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..9091c4b61 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,43 @@ 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)
+ 'Informacion Distribuidor
+ params.Add(New ReportParameter("NombreCliente", LtlCliente.Text))
+ params.Add(New ReportParameter("CiudadEstado", LblCiudad.Text.Trim + ", " + LblEstado.Text))
+ params.Add(New ReportParameter("TelCliente", LblTelefono.Text))
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("Consec", TxtConsecutivoAjuste.Text.Trim))
+ params.Add(New ReportParameter("FolioAcuse", If(DdlFolioGarantia.SelectedValue.ToEntero = -1, "", DdlFolioGarantia.SelectedItem.Text)))
+
+ 'Informacion de Garantia o ajuste
+ params.Add(New ReportParameter("Fecha", TxtFechaAjuste.Text.Trim))
+ params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
+ params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text.Trim))
+ params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.Text.Trim))
+
+ 'Informacion Acumulador
+ 'Informacion Vehiculo
+ params.Add(New ReportParameter("MarcaAuto", ""))
+ params.Add(New ReportParameter("TipoAuto", ""))
+
+ 'Informacion Consumidor
+
+
+ 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
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b39124cfb..c483557e1 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -15579,7 +15579,7 @@ Partial Class Ventas
End If
Catch ex As Exception
- Alert("No se pudo verificar la fecha del certificado", TipoMensaje.MsgError)
+ Alert("No se pudo verificar la fecha del certificado", TipoMensaje.ToastError)
End Try
End Sub
#End Region