Documentos relacionados en stimulsoft

App_Code/ClsPaginas.vb

@@ -7976,6 +7976,14 @@ Public Class ClsPaginas
             Dim rds4 As New ReportDataSource With {.Name = "DataSet4", .Value = If(Vta.DtDocumentosRelacionados IsNot Nothing, Vta.DtDocumentosRelacionados, New DataTable)} ' sino esta creado el objeto, lo creamos, para que no truene el reporte
             lrds.Add(rds4)
 
+            If UsuarioActual.Empresa.Funcionalidad(707) = "1" OrElse UsarStimulsoft Then
+                If Vta.DtDocumentosRelacionados IsNot Nothing AndAlso Vta.DtDocumentosRelacionados.Rows.Count > 0 Then
+                    params.Add(New ReportParameter("TieneDocumentosRelacionados", "True"))
+                Else
+                    params.Add(New ReportParameter("TieneDocumentosRelacionados", "False"))
+                End If
+            End If
+
             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)