I wonder... Why could it be that following code don't work as spected?
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:
hBrowse:GET-BROWSE-COLUMN(1):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.
First, customer name won't shows full name as contained on record, it uses "X(8)", alsto RFC column has same problem.
Width of fields apparently is correct, but not format...
Thanks!
set the format stuff in the temp-table definition
One solution is before you add to the browse set via the buffer field handle:
BUFFER ttClienteNombre:HANDLE:BUFFER-FIELD("Nombre"):FORMAT = "X(40)".set the format stuff in the temp-table definition
thanks [mention:b5de43d9c892484d8d242a9b1a4b6e69:e9ed411860ed4f2ba0265705b8793d05] you nailed it...
Just I wonder, If on a future task, I need diferent format for some field, I see impractical to make another .i defining TT with other fortmat...
One solution is before you add to the browse set via the buffer field handle:
BUFFER ttClienteNombre:HANDLE:BUFFER-FIELD("Nombre"):FORMAT = "X(40)".