Robert,
You can simplify the second part
SCATTER MEMVAR NAME oRec
FOR ICPT =2 TO RECORD_QTY
APPEND BLANK
oRec.PIECESNUMBER = ICPT
GATHER MEMVAR NAME oRec
ENDFOR
I would suggest that you use < pre > and < /pre > tags (w/o spaces) to make your code more readable.
>this is my solution
>it seem ok ???
>STORE 2 TO ICPT
>STORE 21018 TO nID
>
>SELECT FFCONSOL.MAWB_MBL,;
> APD.DESCR AS DEPART,;
> APA.DESCR AS ARRIVAL,;
> FFFILE.ITM1_QTY AS QTY,;
> 01 as PIECESNUMBER;
> FROM FFCONSOL,FFFILE;
> JOIN FFAIRPT APD ON FFCONSOL.DEPART_PORT = APD.CODE;
> JOIN FFAIRPT APA ON FFCONSOL.ARRIVAL_PORT = APA.CODE;
> WHERE FFCONSOL.IDENT = NID AND;
> FFFILE.CONSOLID = NID;
> INTO CURSOR LABEL_4 READWRITE
>
>STORE LABEL_4.QTY TO RECORD_QTY
>
>SELECT LABEL_4
>GO TOP
>
>DO WHILE ICPT <= RECORD_QTY
> SCATTER MEMVAR
> APPEND BLANK
> GATHER MEMVAR
> REPLACE LABEL_4.PIECESNUMBER WITH ICPT
> STORE ICPT + 1 TO ICPT
>ENDDO
--sb--