Formato PDF de Ajuste

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

View File

@@ -252,7 +252,11 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Consecutivo acuse de acumuladores:</Value>
<Value>Consecutivo acuse de acumuladores: </Value>
<Style />
</TextRun>
<TextRun>
<Value>=Parameters!Consec.Value</Value>
<Style />
</TextRun>
</TextRuns>
@@ -292,7 +296,11 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>Folio acuse:</Value>
<Value>Folio acuse: </Value>
<Style />
</TextRun>
<TextRun>
<Value>=Parameters!FolioAcuse.Value</Value>
<Style />
</TextRun>
</TextRuns>
@@ -494,7 +502,7 @@
<Style />
</TextRun>
<TextRun>
<Value>= Month(Parameters!Fecha.Value)</Value>
<Value>= MonthName(Month(Parameters!Fecha.Value))</Value>
<Style />
</TextRun>
</TextRuns>
@@ -1796,6 +1804,18 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="FolioAcuse">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Consec">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<rd:ReportUnitType>Inch</rd:ReportUnitType>
<rd:ReportID>32a58a02-ed5a-499c-85e0-a4eefc333287</rd:ReportID>

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