Procédure générique pour générer un rapport à partir de la navigation en cours 4gl

Question

La procédure doit gérer toute table liée à la navigation signifie qu'elle doit être générique. aidez s'il vous plaît.

/* below code is sample to Show the data in message box , 
     but only first data it is showing right now.*/ 

    DEFINE INPUT PARAMETER hRecord AS WIDGET-HANDLE. 
    DEFINE INPUT PARAMETER hQuery AS WIDGET-HANDLE . 

    DEF VAR hFld  AS HANDLE NO-UNDO. 
     DEFINE VARIABLE iCOunt AS INTEGER INITIAL 0. 
     DEFINE VARIABLE i AS INTEGER NO-UNDO. 
     DEFINE VARIABLE j AS integer INITIAL 1. 


     MESSAGE hRecord:NUM-COL VIEW-AS ALERT-BOX. 

     DO WHILE TRUE: 
       hQuery:GET-NEXT(). 
       iCount = iCount + 1. 


       DO i = 1 TO hRecord:NUM-COL: 
         hfld = hRecord:GET-BROWSE-COL(i). 
        MESSAGE hfld:SCREEN-VALUE. 

       END. 
        j = j + 1. 


     END. 
     MESSAGE iCount VIEW-AS ALERT-BOX. 
    END PROCEDURE. 

Answer 1

Vous pouvez obtenir un champ tampon comme ceci:

hfld = hRecord:GET-BUFFER-FIELD(i). 

puis obtenir la valeur du champ:

DISPLAY hfld:BUFFER-VALUE. 

Voir la documentation pour une explication de ce que ceux-ci font.