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