Tenho um código personalizado em um relatório do ReportViewer (RDLC) que basicamente verifica se uma data específica está dentro de um intervalo de datas contido em um conjunto de intervalos vindo de um banco de dados e retorna um valor.
O código personalizado do relatório, pra entenderem melhor a lógica, esse:
Public Function VerificarAusências(ByVal dia As Integer, ByVal competencia As DateTime, ByVal prefixo As String, ByVal ids As Object(), ByVal inicios As Object(), ByVal terminos As Object()) As String
Dim hoje As DateTime = competencia.AddDays(dia)
For i As Integer = 0 To inicios.Length - 1
Dim lInicio As DateTime = CType(inicios(i), DateTime)
Dim lTermino As DateTime = CType(terminos(i), DateTime)
If lInicio <= hoje AndAlso hoje <= lTermino Then
Return prefixo & ids(i).ToString()
End If
Next
Return Nothing
End Function
Em alguns campos do relátório eu coloquei a seguinte expressão que passa alguns arrays para o código acima:
=Code.VerificarAusências(0, Parameters!Competência.Value, "L", LookupSet(Fields!IdFuncionário.Value, Fields!IdFuncionário.Value, Fields!IdLicença.Value, "vi_licencas_resumo"), LookupSet(Fields!IdFuncionário.Value, Fields!IdFuncionário.Value, Fields!Início.Value, "vi_licencas_resumo"), LookupSet(Fields!IdFuncionário.Value, Fields!IdFuncionário.Value, Fields!Término.Value, "vi_licencas_resumo"))
O mais interessante é que tudo funciona bem quando o relatório é renderizado e impresso, mas quando eu vou exportar para PDF ou mesmo Word, os campos que contem a expressão acima aparecem como tendo erro: #Erro
Alguém poderia me ajudar?