Debugging and Redirection

Question

Post Author: anthonydamasco
CA Forum: Data Connectivity and SQL
I am very new to crystal. I need to choose a field inside a microsoft database and run a VB script on it.
Can anyone give me a Step by Step?
Also I have a VB script that crystal doesnt seem to like, any debugging or suggestions would really help. -
Function AzaleaPOSTNET(ByVal theZIP as String) as String  Dim theZIP As String    Dim i As Integer              ' loop counter    Dim checkDigit As Integer     ' check digit variable    checkDigit = 0    For i = 1 To Len(theZIP)        checkDigit = (checkDigit + Val(Mid(theZIP, i, 1))) mod 10    Next i   checkDigit = (10 - checkDigit) mod 10  AzaleaPOSTNET = "s" + theZIP + checkDigit + "s"End Function----
Any help would be great! 

Answer 1

Post Author: PeterLiebich
CA Forum: Data Connectivity and SQL
Try this as your Function
Function AzaleaPOSTNET(theZIP as String) as String  ''   Cannot Use ByVal / ByRef  - ByVal is assumed  Dim i As Number              ' loop counter    Dim checkDigit As Number     ' check digit variable    checkDigit = 0    For i = 1 To Len(theZIP)       checkDigit = (checkDigit + Val(Mid(theZIP, i, 1))) mod 10    Next i   checkDigit = (10 - checkDigit) mod 10
  AzaleaPOSTNET = "s" + theZIP + totext(checkDigit) + "s"
End Function