A string is required here using crystal enterprise

[jasonhuibers]

Crystal Report V10
Crystal Enterprise 10
Sql 2000 database

When I run report VIA report designer I enocunter no errors.
When I take the same report publish to the CMC and try to either schedule or preview the report I encounter:
A string is required here using crystal enterprise

This used to work for us but ever since we now use SQL 2005 there seems to be issues.


StringVar txtRef := "";

if Shared numbervar varShowRepTradeName = 0 then

If IsNull({SP_Report;1.TradeName}) or TrimLeft({SP_Report;1.TradeName}) = '' Then
txtRef := txtRef
Else
txtRef := trimleft(txtRef + {SP_Report;1.TradeName})& chr(13)
else

If IsNull({SP_Report;1.RepName}) or TrimLeft({SP_Report;1.RepName}) = '' Then
txtRef := txtRef
Else
txtRef := trimleft(txtRef + {SP_Report;1.RepName})& chr(13);

If IsNull({SP_Report;1.BranchAddress}) or TrimLeft({SP_Report;1.BranchAddress}) = '' Then
txtRef := txtRef
Else
txtRef := trimleft(txtRef + {SP_Report;1.BranchAddress})& chr(13);

If IsNull({SP_Report;1.BCity}) or TrimLeft({SP_Report;1.BCity}) = '' Then
txtRef := txtRef
Else
txtRef := TrimLeft(txtRef + {SP_Report;1.BCity}) & ', ';

If IsNull({SP_Report;1.BProv}) or TrimLeft({SP_Report;1.BProv}) = '' Then
txtRef := txtRef
Else
txtRef := TrimLeft(txtRef + {SP_Report;1.BProv}) & chr(13) ;

If IsNull({SP_Report;1.BZip}) or TrimLeft({SP_Report;1.BZip}) = '' Then
txtRef := txtRef
Else
txtRef := TrimLeft(txtRef + {SP_Report;1.BZip}) & chr(13) & chr(13);

If IsNull({SP_Report;1.RepBusinessPhone}) or TrimLeft({SP_Report;1.RepBusinessPhone}) = '' Then
txtRef := txtRef
Else
if {SP_Report;1.languagePreference} = 0 then
txtRef := TrimLeft(txtRef + 'Phone: ' & {SP_Report;1.RepBusinessPhone}) & chr(13)
else
txtRef := TrimLeft(txtRef + 'Téléphone: ' & {SP_Report;1.RepBusinessPhone}) & chr(13);
If IsNull({SP_Report;1.RepFax}) or TrimLeft({SP_Report;1.RepFax}) = '' Then
txtRef := txtRef
Else
if {SP_Report;1.languagePreference} = 0 then
txtRef := TrimLeft(txtRef + 'Fax: ' & {SP_Report;1.RepFax}) & chr(13)
else
txtRef := TrimLeft(txtRef + 'Télécopieur: ' & {SP_Report;1.RepFax}) & chr(13);

If IsNull({SP_Report;1.RepEmailAddress}) or TrimLeft({SP_Report;1.RepEmailAddress}) = '' Then
txtRef := txtRef
Else
if {SP_Report;1.languagePreference} = 0 then
txtRef := TrimLeft(txtRef + 'Email: ' & {SP_Report;1.RepEmailAddress}) & chr(13)
else
txtRef := TrimLeft(txtRef + 'Courriel: ' & {SP_Report;1.RepEmailAddress}) & chr(13);

If IsNull({SP_Report;1.RepWeb}) or TrimLeft({SP_Report;1.RepWeb}) = '' Then
txtRef := txtRef
Else
if {SP_Report;1.languagePreference} = 0 then
txtRef := TrimLeft(txtRef + 'Web Site: ' & {SP_Report;1.RepWeb}) & chr(13)
else
txtRef := TrimLeft(txtRef + 'Site Web: ' & {SP_Report;1.RepWeb}) & chr(13);

trim(txtRef)