Few Subreports Not Rendering After Adding Script Code

Hi All,
I have a report which has a few subreports in it. Earlier I had drop downs for Begin and End dates (these are the parameters), which I populated from date column of the table the report is generated from. The report along with the subreports was rendering correctly.

Now, the requirement is that, instead of drop downs, it should be a text box and it should have a default value. For that I added a bit of VB Script code to have a default values to be populated to the text boxes for Begin and End dates. NOW, the problem has surfaced that almost none of the reports are getting rendered.

What could be the problem? Below is the code I have added. It is basically to have

the begin date as "now -1 at 00:00:00.000" and the end date as "now - 1at 23:59:59.999". The values are properly getting into the boxes.




Code Block
Public Function GetMyStartDateFromCustomCode() As String
Dim ReturnValueStartDateFixed As String
ReturnValueStartDateFixed = Replace(FormatDateTime(DateAdd("d", -1, DateTime.Today), 2), "/", "-")
ReturnValueStartDateFixed = Month(ReturnValueStartDateFixed).ToString().PadLeft(2, "0") & "-" & Day(ReturnValueStartDateFixed).ToString().PadLeft(2, "0") & "-" & Year(ReturnValueStartDateFixed)
Return ReturnValueStartDateFixed & " " & "00:00:00.000"

End Function

Public Function GetMyEndDateFromCustomCode() As String
Dim ReturnValueEndDateFixed As String
ReturnValueEndDateFixed = Replace(FormatDateTime(DateAdd("d", -1, DateTime.Today), 2), "/", "-")
ReturnValueEndDateFixed = Month(ReturnValueEndDateFixed).ToString().PadLeft(2, "0") & "-" & Day(ReturnValueEndDateFixed).ToString().PadLeft(2, "0") & "-" & Year(ReturnValueEndDateFixed)
Return ReturnValueEndDateFixed & " " & "23:59:59.999"
End Function




Please let me know if the issue is not clear. Thanks a lot.

Mannu.