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

View File

@@ -5651,21 +5651,28 @@ Partial Class PV
Dim DtDatos As New DataTable Dim DtDatos As New DataTable
Dim params As New List(Of ReportParameter) Dim params As New List(Of ReportParameter)
'Informacion Distribuidor
params.Add(New ReportParameter("NombreCliente", LtlCliente.Text)) 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("TelCliente", LblTelefono.Text))
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) 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)) 'Informacion de Garantia o ajuste
params.Add(New ReportParameter("Defecto", DdlTipoDefecto.SelectedItem.Text)) params.Add(New ReportParameter("Fecha", TxtFechaAjuste.Text.Trim))
params.Add(New ReportParameter("MesesUso", TxtMesesUso.Text)) params.Add(New ReportParameter("Defecto", If(DdlTipoDefecto.SelectedValue.ToEntero = -1, "", DdlTipoDefecto.SelectedItem.Text)))
params.Add(New ReportParameter("PorcentajeAjuste", TxtPorcentajeAjuste.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("MarcaAuto", ""))
params.Add(New ReportParameter("TipoAuto", "")) params.Add(New ReportParameter("TipoAuto", ""))
'Informacion Consumidor
If Imagen.Exists Then If Imagen.Exists Then