soportes al reporte de cotizacion, faltaba el parametro de kilometraje

This commit is contained in:
Antonio Gonzalez
2020-05-05 15:16:45 -07:00
parent 695da1ce38
commit de6b73788b
2 changed files with 25 additions and 2 deletions

View File

@@ -6785,7 +6785,7 @@ Public Class ClsPaginas
Dim rds5 As New ReportDataSource With {.Name = "DataSet5", .Value = If(Vta.DtNCVinculadas IsNot Nothing, Vta.DtNCVinculadas, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
lrds.Add(rds5)
If UsuarioActual.CveEmpresa = 141 AndAlso RutaFormato.Contains("Factura") Then
If UsuarioActual.CveEmpresa = 141 AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then
params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString))
End If
'Imprime los parametros

View File

@@ -1157,6 +1157,20 @@
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=iif(Parameters!Kilometraje.Value = "-1", "","Kilometraje: "&amp; Parameters!Kilometraje.Value)</Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
@@ -1867,10 +1881,13 @@
</Paragraphs>
<rd:DefaultName>Textbox4</rd:DefaultName>
<Top>6.7641cm</Top>
<Left>3.33321cm</Left>
<Left>1.68221cm</Left>
<Height>1.05328cm</Height>
<Width>17.71415cm</Width>
<ZIndex>14</ZIndex>
<Visibility>
<Hidden>=IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") &gt; 0),false,true)</Hidden>
</Visibility>
<Style>
<Border>
<Style>None</Style>
@@ -3514,6 +3531,12 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Kilometraje">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters>
<EmbeddedImages>
<EmbeddedImage Name="ID2">