vincentd
11-11-2007, 04:53 PM
I would like the following code to display the specifed report if either a "0A" (zero A) or "0B" is present. These are prefixes to an eight digit retirement code that is displayed on a report and on an ASCII file.
The code line with the "0A" is in bold.
If bRetirementNo0 = False And sRetirementNo < "50000000" Then
If lReportcode = "010" Then
StrASCIIText = StrASCIIText & String(8 - Len(sRetirementNo), "0") & Trim(sRetirementNo)
ElseIf lReportcode = "020" Then
sRetirementNo = "0A" & Mid(sRetirementNo, 2) StrASCIIText = StrASCIIText & String(8 - Len(sRetirementNo), "0") & Trim(sRetirementNo)
End If
sSql = "INSERT INTO tl_PR_NYSRetirementReport "
sSql = sSql & "(fknCompany, fknEmployee, sName, sRetirementNumber, sSocialSecurityNumber, nTier, cGrossSalary )"
sSql = sSql & "SELECT DISTINCTROW "
sSql = sSql & "td_PREmployees.fknCompany, "
sSql = sSql & "AND ((td_PRCalculatedHistory.ynVoided)=False) "
sSql = sSql & "AND ((IIf(Not IsNull([sRetirementAccountNumber]) "
sSql = sSql & "And Left$([sRetirementAccountNumber],2)='0A',True,False))"
If Me!opgReportType = 1 Then
sSql = sSql & "=False)) "
Else
sSql = sSql & "=True)) "
End If
The code line with the "0A" is in bold.
If bRetirementNo0 = False And sRetirementNo < "50000000" Then
If lReportcode = "010" Then
StrASCIIText = StrASCIIText & String(8 - Len(sRetirementNo), "0") & Trim(sRetirementNo)
ElseIf lReportcode = "020" Then
sRetirementNo = "0A" & Mid(sRetirementNo, 2) StrASCIIText = StrASCIIText & String(8 - Len(sRetirementNo), "0") & Trim(sRetirementNo)
End If
sSql = "INSERT INTO tl_PR_NYSRetirementReport "
sSql = sSql & "(fknCompany, fknEmployee, sName, sRetirementNumber, sSocialSecurityNumber, nTier, cGrossSalary )"
sSql = sSql & "SELECT DISTINCTROW "
sSql = sSql & "td_PREmployees.fknCompany, "
sSql = sSql & "AND ((td_PRCalculatedHistory.ynVoided)=False) "
sSql = sSql & "AND ((IIf(Not IsNull([sRetirementAccountNumber]) "
sSql = sSql & "And Left$([sRetirementAccountNumber],2)='0A',True,False))"
If Me!opgReportType = 1 Then
sSql = sSql & "=False)) "
Else
sSql = sSql & "=True)) "
End If