SRS Dynamically Generating Barcode At Runtime.

Hello all. I need to build a barcode and stuff it in a image control at runtime in SRS. I have the code at it works perfect for webforms etc but not in the actual SRS report itself. In SRS I put the code in the report properties code but it blows up on bitmap, graphics etc so I added the system.drawing and system.drawing.imaging namespace and it still fails with the same error. I'm certain there is a simple fix for this and would greatly appreciate anyones assistance in making this happen.

Error:

There is an error on line 15 of custom code: [BC30002] Type 'Bitmap' is not defined.

Environment:

Visual Studio 2003

SQL Server 2000 SP4

SQL Reporting Services

Code (apologies in advance for the formatting):

private function getBarcode(input as string)

Dim ValidInput As String = " !" & Chr(34) & "#$%&()**+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_`abcdefghijklmnopqrstuvwxyz{|}~" & Chr(0) & Chr(1) & Chr(2) & Chr(3) & Chr(4) & Chr(5) & Chr(6) & Chr(7) & Chr(8) & Chr(9) & Chr(10) & Chr(255)

Dim ValidCodes As String = "17401644163811761164110012241220112416081604157214361244123014841260125416501628161417641652190218681836183018921844184217521734159013041112109414161128112216721576157014641422113414961478114219101678158217681762177418801862181418961890181819141602193013281292120011581068106214241412123212181076107415541616197815561146134012121182150812681266195619401938175817821974140013101118151215061960195415021518188619661724168016926379"

Dim Digit As Integer = 104

Dim i As Integer

For i = 1 To input.Length

Digit += (i * InStr(1, ValidInput, Mid(input, i, 1)))

Next

Digit = Digit Mod 103

input = Chr(9) & input & Mid(ValidInput, Digit, 1) & Chr(255)

Dim bmp As Bitmap = New Bitmap((input.Length * 11) + 13, 50)

Dim g As Graphics = Graphics.FromImage(bmp)

g.FillRectangle(New SolidBrush(Color.White), 0, 0, (input.Length * 11) + 13, 50)

Dim p As New Pen(Color.Black, 1)

Dim BarValue, BarX As Integer

Dim BarSlice As Short

For i = 1 To input.Length

BarValue = Val(Mid(ValidCodes, ((InStr(1, ValidInput, Mid(input, i, 1)) - 1) * 4) + 1, 4))

If BarValue > 0 Then

Digit = 11

If i = input.Length Then Digit = 13

For BarSlice = Digit To 0 Step -1

If BarValue >= 2 ^ BarSlice Then

g.DrawLine(p, BarX, 0, BarX, 50)

BarValue = BarValue - (2 ^ BarSlice)

End If

BarX += 1

Next

End If



Next



bmp.Save(Response.OutputStream, ImageFormat.Gif)



Best regards,

TKAP

g.Dispose()

bmp.Dispose()

end function