進行中のブラウズからレポートを生成する一般的な手順4gl

Question

プロシージャは、ブラウズにリンクされたテーブルを処理して、ジェネリックである必要があることを意味します。 助けてください。

/* 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

あなたはそうのようなバッファフィールドを取得することができます。

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

して、フィールドの値を取得：

DISPLAY hfld:BUFFER-VALUE. 

は、これらが何をするかの説明のためのドキュメントを参照してください。