was How To Modify Dynamic Browse Column Attributes

Posted by OctavioOlguin on 23-Jan-2018 20:41

on this post, 10 years ago!!, @Admin makes reference to KB 21024, and KBP9248:


community.progress.com/.../2280

I want to change format to a dynamic browse column, but haven't found how, and neither those kbs, nor the original answer are to be found...

All Replies

Posted by Stefan Drissen on 24-Jan-2018 00:31

You can adjust the format of a column in the row-display trigger.

Posted by OctavioOlguin on 24-Jan-2018 09:02

CREATE BROWSE hBrowse
    ASSIGN
    X = 17
    Y = 63
    WIDTH = 90
    DOWN = 14
    FRAME = FRAME {&frame-name}:handle
    READ-ONLY  = YES
    SENSITIVE = TRUE
    ROW-MARKERS = TRUE
    SEPARATORS = TRUE
    FIT-LAST-COLUMN = TRUE
    FONT = 1
    TRIGGERS:
        ON DEFAULT-ACTION
            DO:
                IF AVAILABLE(ttClienteNombre) THEN
                DO:
                    ASSIGN
                        pSeleccion = ttClienteNombre.cliente.
                    APPLY "GO":U TO FRAME {&FRAME-NAME}.
                END.
            END.
        ON ROW-DISPLAY
            DO:
                hColumn = hBrowse:GET-BROWSE-COLUMN(1).
                hColumn:FORMAT = "X(40)".
                hBrowse:GET-BROWSE-COLUMN(2):FORMAT = "X(15)".
                hBrowse:GET-BROWSE-COLUMN(2):FORMAT = "X(16)".
            END.
    END TRIGGERS.


CREATE QUERY hQuery.
hQuery:SET-BUFFERS(BUFFER ttClienteNombre:handle).

hQuery:QUERY-PREPARE(cBaseQuery).

hQuery:QUERY-OPEN ().

hBrowse:QUERY = hQuery.

hColumn = hBrowse:ADD-LIKE-COLUMN ("ttClienteNombre.Nombre").
hColumn = hBrowse:ADD-LIKE-COLUMN ("ttClienteNombre.RFC").
hColumn = hBrowse:ADD-LIKE-COLUMN ("ttClienteNombre.Cliente").
hBrowse:GET-BROWSE-COLUMN(1):Width = 35.
hBrowse:GET-BROWSE-COLUMN(2):Width = 15.
hBrowse:GET-BROWSE-COLUMN(3):Width = 10.

This is it.... to no avail.    It chaged column-with, but not format as names (Nombr) is truncated on display.

Posted by olivier.dunemann on 25-Jan-2018 01:23

I believe you have to change the format of the field (rather than the browse's column) before the column is dynamically added to the browse (using ADD-LIKE-COLUMN).

Something like:

ASSIGN BUFFER ttClientNombre:BUFFER-FIELD("RFC"):FORMAT = "X(15)"
       BUFFER ttClientNombre:BUFFER-FIELD("Cliente"):FORMAT = "X(16)".


This thread is closed