[RESOLVIDO] Dataviewer Exportar com os Nomes dos Campos

Bom dia Pessoal.

Tenho o DataViewer instalado aqui e estou necessitando exportar tabelas para serem importadas no RM.

Estou tentando gerar um .csv com os nomes dos campos na primeira linha.

Alguém me dá uma luz de como fazer isso no DataViewer?

Muito Obrigado.

DEFINE VARIABLE hBufferHandle AS HANDLE NO-UNDO.
DEFINE VARIABLE hFieldHandle AS HANDLE NO-UNDO.
DEFINE VARIABLE iCounter AS INTEGER NO-UNDO.
DEFINE VARIABLE cFieldNameList AS CHARACTER NO-UNDO.
DEFINE VARIABLE iExtent AS INTEGER NO-UNDO.
DEFINE VARIABLE X AS INT.
DEFINE VARIABLE c-Count AS INT.
DEFINE BUFFER tt-exporta for nota-fiscal. /* Informe o nome da tabela aqui, nesse exemplo: nota-fiscal*/
hBufferHandle = BUFFER tt-exporta:HANDLE.

DO iCounter = 1 TO hBufferHandle:NUM-FIELDS:
ASSIGN
hFieldHandle = hBufferHandle:BUFFER-FIELD(iCounter)
cFieldNameList = cFieldNameList + hFieldHandle:NAME + ";"
/*cFieldNameList = cFieldNameList + hFieldHandle:LABEL + ";"*/
iExtent = hFieldHandle:EXTENT
.
DO x = 2 to iExtent:
Assign cFieldNameList = cFieldNameList + ";".
end.
END.
cFieldNameList = RIGHT-TRIM(cFieldNameList, ";").

OUTPUT TO "c:\temp\nota-fiscal.csv". /* informe o nome do arquivo a ser gerado */
PUT UNFORMATTED cFieldNameList SKIP.
FOR EACH tt-exporta NO-LOCK:
EXPORT DELIMITER ";" tt-exporta.
END.
OUTPUT CLOSE.

Deu certo tanto com a dica do bootstrapmaster no DataViewer como com o script do marco.luques

Valew pessoal