Pessoal estou com um problema, No código a seguir está gerando: xxxxxxxxxxxxx xxxxxxxxxxxxx ------------------- ------------------ T T mas tem um traço a mais na minha coluna queria retirar este traço finalizando o tracejado junto com o ultimo X <code> OUTPUT TO "\\brsptotvs04\datasul\spool\esrr029.lst" NO-CONVERT. DEF VAR c-nr-pedido-dev AS CHAR NO-UNDO COLUMN-LABEL "xxxxxxxxxxxxx":U FORMAT "X(1)". DEF VAR c-nr-pedido-dev-2 AS CHAR NO-UNDO COLUMN-LABEL 'xxxxxxxxxxxxx' FORMAT "X(1)". ASSIGN c-nr-pedido-dev = "TESTEttt". ASSIGN c-nr-pedido-dev-2 = "TESTEttt". DISP c-nr-pedido-dev /*FORMAT ">>>,>>>,>>9" COLUMN-LABEL "Ped.Devolucao"*/ c-nr-pedido-dev-2 /*FORMAT ">>>,>>>,>>9" COLUMN-LABEL "Ped.Devolucao"*/ WITH STREAM-IO SCROLLABLE WIDTH 600 . OUTPUT CLOSE. </code>
Fiz um testes aqui e realmente, o progress coloca 2 traços além do tamanho do label, então, se vc colocou um label com 13 caracteres, o traço será com 15, eu nunca percebi esse detalhe porque os meus labels de campo nunca são do tamanho do format. Alias, faz muito tempo que eu não sei o que é fazer um programa que gera um relatorio em bloco de notas, tudo aqui é em excel.
