Information générale
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement