USE MyTable IN  0  ALIAS MyTable SHARED
cItogLine=""
nPrevNum= 0 
FlagDefis=.F.
FOR i= 1  TO RECCOUNT("MyTable")
  GO RECORD i IN MyTable
  IF nPrevNum= 0 
    cItogLine=LTRIM(STR(MyTable.MyField))
    nPrevNum=MyTable.MyField
  ENDIF
  DO CASE
    CASE MyTable.MyField-nPrevNum= 1 
      IF FlagDefis=.F.
        cItogLine=cItogLine+"-"
        FlagDefis=.T.
      ENDIF
    CASE MyTable.MyField-nPrevNum> 1 
       IF FlagDefis=.T.
       	cItogLine=cItogLine+LTRIM(STR(nPrevNum))+", "+LTRIM(STR(MyTable.MyField))
       ELSE
       	cItogLine=cItogLine+", "+LTRIM(STR(MyTable.MyField))
       ENDIF
       FlagDefis=.F.
  ENDCASE
  nPrevNum=MyTable.MyField
ENDFOR
USE IN MyTable
? cItogLine