Having issues with a function to change a parameter value.

Question

I have 2 parameters coming in - one has a job number that has to be reformatted and updated to the other. I wrote a function to do the format because nothing I tried in the expression for the second parameter worked.
Well, it's still not working. The catch is that I have to figure out the position of the "-" in the data. If it's 947- I need to add 2 spaces to the beginning. If it's 1008- I have to add 1 space before it.

Public Shared Function ReFormatJob(NewJobNo as String)
If NewJobNo.IndexOf("-") <=4 Then
NewJobNo = " " & NewJobNo
else
NewJobNo = " " & NewJobNo
End If

End Function

In the parm expression:

=Code.ReFormatJob(Parameters!Job.Value)

I really appreciate any help I can get with this.

Thank you

Accepted Answer

My boss ended up fixing it.

This was his solution

Public Function FormatJob(pJob As String)
Dim NewJob As String
Dim J As String
Dim Pos as Integer
Dim Part1 as String
Dim Part2 as String

J=Trim(pJob)
Pos=InStr(J,"-")

If Pos=0 Then
    NewJob=Right("     " + J,5) + "-"
Else
    Part1=Left(J,Pos-1)
    Part2=Mid(J,Pos+1,99)
    NewJob=Right("     " + Part1,5) + "-" + Right("  " + Part2,2)
End If

Return NewJob

End Function

2) I changed the Expression values for the two parameters @BeginContract and @EndContract in the Dataset to be: "=Code.FormatJob(Parameters!Job.Value)"

Answer

Hi,

I'm not familiar with VB.

So I tried another way to meet your need without custom code fuction.

Try the expression:

=Right(space(10)&left(Parameters!Job.Value,len(Parameters!Job.Value)-1),5)&"-"

If you have any question, please feel free to let me know.

If your problem has been solved, please mark "accepted answer" on my reply, thanks for your understanding.

Regards,

Zoe

Share via

Having issues with a function to change a parameter value.

1 additional answer

Your answer