>>>IIF(LEN(ALLTRIM(Zip))>5,TRANSFORM(Zip,"@R 99999-9999"),TRANSFORM(Zip,"99999")) >>>>>>
>>>* Code that runs the report >>>CREATE CURSOR MyRptCsr ; >>> ( Fld1 C(20), ; >>> ..., >>> Zip C(10)) >>> >>>SELECT TheTableForTheData >>>SCAN >>> APPEND BLANK IN MyRptCsr >>> IF LEN(ALLTRIM(Zip)) > 5 >>> REPLACE Fld1 WITH TheTableForTheData.Something, ; >>> ... WITH ..., ; >>> Zip WITH TRANSFORM(TheTableForTheData.Zip,"@R 99999-9999") >>> ELSE >>> REPLACE Fld1 WITH TheTableForTheData.Something, ; >>> ... WITH ..., ; >>> Zip WITH TheTableForTheData.Zip >>> ENDIF >>>ENDSCAN >>>>>>
>>SELECT * , ; >>IIF(LEN(ALLTRIM(Zip))>5,TRANSFORM(Zip,"@R 99999-9999"),TRANSFORM(Zip,"99999")) AS formatted_zip ; >>FROM mytable INTO CURSOR cReportCursor >>>
SELECT * , ; > Strtran(TRANSFORM(Zip,"@R 99999-9999"),"- ", " ") AS formatted_zip ; >FROM mytable INTO CURSOR cReportCursor >