QUERY DYNAMIC

DEFINE QUERY Rechentete FOR tickets_entete.
     OPEN QUERY Rechentete
        FOR EACH tickets_entete WHERE tickets_entete.attente = YES.
            DEFINE BROWSE BrwArticle QUERY Rechentete
                            DISPLAY tickets_entete.no_piece LABEL "NO PIECE"
                            WITH 5 DOWN SEPARATORS TITLE " N° PIECE " NO-LABELS.
                                DEFINE FRAME f1 BrwArticle
                                  WITH SIDE-LABELS AT ROW 1 COLUMN 2.
            DEFINE QUERY Rechentete1 FOR tickets_ligne.
                 OPEN QUERY Rechentete1
                    FOR EACH tickets_ligne OF tickets_entete WHERE tickets_ligne.NO_ligne NE 0  BY tickets_entete.no_piece .
                       
                                    DEFINE BROWSE BrwArticle1 QUERY Rechentete1
                                        DISPLAY tickets_ligne.NO_tpv
                                            tickets_ligne.no_piece
                                            tickets_ligne.NO_ligne  LABEL  "ligne"
                                            tickets_ligne.CODE_produit LABEL  "code"
                                            tickets_ligne.designation  LABEL  "libelle"
                                        WITH 12 DOWN SEPARATORS TITLE " Liste Des Article " NO-LABELS.
                                            DEFINE FRAME f1 BrwArticle1
                                              WITH 1 COLUMNS AT ROW 1 COLUMN 10.
                                        GET FIRST Rechentete.
                                        DO WHILE NOT QUERY-OFF-END('Rechentete') :
                                   
        FOR EACH tickets_entete WHERE tickets_entete.attente = YES  
            , EACH tickets_ligne OF tickets_entete WHERE tickets_ligne.NO_ligne NE 0.
            IF AVAILABLE tickets_entete THEN DO:
                   
                                         ENABLE BrwArticle WITH FRAME f1.
                                         APPLY "VALUE-CHANGED" TO BROWSE BrwArticle.
                                         WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.                                                                                                           
     
                                    DISABLE BrwArticle1 WITH FRAME f1.
                                    APPLY "VALUE-CHANGED" TO BROWSE BrwArticle1.
                                    GET NEXT Rechentete.
                 CLOSE QUERY Rechentete1.
           END.
     END.
      CLOSE QUERY Rechentete.
     END.