从正在进行的浏览生成报告的通用过程 4gl

Question

程序应该处理任何 table 链接到浏览意味着它应该是通用的。请帮忙

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

有关这些功能的解释，请参阅文档。

从正在进行的浏览生成报告的通用过程 4gl

Generic Procedure to generate report from browse in progress 4gl

progress-4gl