Forum Post: RE: ADD-NEW-FIELD on a dynamic temp-table

[Marco Aurelio]

Hi, Just a little change from hBufferGroup to hBufTTSoldesGroup and all worked fine. DEF VAR hTable AS HANDLE NO-UNDO. DEF VAR hBufTTSoldesGroup AS HANDLE NO-UNDO. DEF VAR qh AS HANDLE NO-UNDO. DEF VAR fld1 AS HANDLE NO-UNDO. DEF VAR fld2 AS HANDLE NO-UNDO. CREATE TEMP-TABLE hTable. hTable:ADD-NEW-FIELD ( "idGroup", "character"). hTable:ADD-NEW-FIELD ( "nomGroupe", "character"). hTable:TEMP-TABLE-PREPARE("Soldes"). hBufTTSoldesGroup = hTableEFAULT-BUFFER-HANDLE. DO TRANSACTION: hBufTTSoldesGroup:BUFFER-CREATE(). hBufTTSoldesGroup:BUFFER-FIELD("idGroup"):BUFFER-VALUE = "AAA". hBufTTSoldesGroup:BUFFER-FIELD("nomGroupe"):BUFFER-VALUE = "AAAaaaaaaaaaaaaa". hBufTTSoldesGroup:BUFFER-CREATE(). hBufTTSoldesGroup:BUFFER-FIELD("idGroup"):BUFFER-VALUE = "bbb". hBufTTSoldesGroup:BUFFER-FIELD("nomGroupe"):BUFFER-VALUE = "bbbbbbbbbbbbb". END. CREATE QUERY qh. qh:SET-BUFFERS(hBufTTSoldesGroup). qh:QUERY-PREPARE("FOR EACH Soldes no-lock"). qh:QUERY-OPEN(). fld1 = hBufTTSoldesGroup:BUFFER-FIELD("idGroup"). fld2 = hBufTTSoldesGroup:BUFFER-FIELD("nomGroupe"). REPEAT: qh:GET-NEXT(). IF qh:QUERY-OFF-END THEN LEAVE. DISPLAY fld1:BUFFER-VALUE() FORMAT "X(10)". DISPLAY fld2:BUFFER-VALUE() FORMAT "X(20)". END. qh:QUERY-CLOSE().

Continue reading...