What is wrong with this???

[jaloplo]

Hi,

I have an application that was moved to other server. Before the
changed, It works properly, but now, there is an error when it creates
a Crystal Report.

I would like to know if this code is correct or has something wrong or
not correct at all.

'------------------------------------------------------------------------------------------

Public Function GenerarInformePdf() As Stream
Dim client As ReportClientDocument
Dim miStream As Stream

On Error GoTo controlError

Set client = DameInforme()

Set miStream = New Stream

miStream.Open
miStream.Type = adTypeBinary
miStream.Write
client.PrintOutputController.Export(crReportExportFormatPDF,
0).ByteArray
miStream.Position = 0

Set GenerarInformePdf = miStream
Set miStream = Nothing

Exit Function
controlError:

Set GenerarInformePdf = Nothing
End Function

'------------------------------------------------------------------------------------------


I'm not able to know the error it produces, because the function is in
a dll file.


Thanks in advance!!!!

 

[Mark Schupp]

Is the code you are showing from the DLL? If not then I'm guessing you code
is ASP.NET. You'll need to check a .net group.

If the code is in a DLL then you need to modify the dll to report errors
when it encounters then instead of just exiting (either raise the error
again after cleaning up or write it to a log file).