AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Formato PDF de Ajuste

Browse Source
This commit is contained in:
janeth arvizu
2019-10-30 13:56:01 -07:00
parent 5277d66c59
commit bb8308e702
2 changed files with 35 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Ventas/PV.aspx.vb
View File

@@ -5651,21 +5651,28 @@ Partial Class PV
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))
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)))
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))
'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