Dúvida com TBrowse, cabeçalho

[porter]

Olá pessoal,
No TBrowse, estou criando os campos e cabeçalhos dessa forma, mas no caso do campo TRIBICMS, está como C 1,
onde informo "S" ou "N" , mas o cabeçalho da forma como está, aparece somente a letra "T", não aparece o cabeçalho
inteiro que é Tributar Icm, o cabeçalho só fica correto, se aumentar o tamanho do campo TRIBICMS la no DBF para por Exemplo Charactere 10

Harbour 3.2.0dev

Código: Selecionar todos

PRIV xCampos:={{"ID      " ,"@X"               ," Cod   "               },;
			 {"NOME    " ,"@X"            ,"Nome   "             },;
			 {"CFOP    " ,"@9"             ,"CFOP   "              },; 
			 {"TRIBICMS" ,"@X"           ,"Tributar Icm"      },; 
			 {"TRIBIPI " ,"@X"             ,"Tributar Ipi"        }} 	

[Toledo]

Amigo, como você está usando o addColumn com este xCampos?

Abraços

[porter]

Olá Toledo, obrigado por responder

Código: Selecionar todos

	DO WHILE .T. 
	  SETCOLOR("W+/N,R+G/G,,,G/R+G")
	  GOTO TOP
	  PRIV xCampos:={{"ID      " ,"@X"               ," Cod   "            },;
					 {"NOME    " ,"@X"               ,"Nome   "            },;
					 {"CFOP    " ,"@9"               ,"CFOP"               },; 
 					 {"TRIBICMS" ,"@X"               ,"Tributar Icm"       },; 
					 {"TRIBIPI " ,"@X"               ,"Tributar Ipi"       }} 					 
																					 
	  SETCOLOR("&BCB/&AZ")
	  QUADRO(11,00,23,79,1)
	  BRW_ArqOpe(11,00,23,79,xCampos)	  

	  IF LASTKEY() = 27 .OR. TKINKEY = 27
		 UNLOCK ALL ; CLOSE ALL 
		 RESTSCREEN(0,0,24,79,telaprincipal)
		 RETURN
	  ENDIF
	ENDDO

	PROCEDURE BRW_ArqOpe 
		  PARAMETERS brw_ls,brw_cs,brw_li,brw_ci,brw_campos
 		  brw:=TBrowseDB(brw_ls+1,brw_cs+1,brw_li-1,brw_ci-1)
		  brw:colorspec :=  "&BCB/&AZ , &MR+/&VD , &CYB/&AZ , &PR/&PR , &VDB/&MR , &VM/&AZB"
		  brw:headsep:=chr(205)+chr(205)
		  FOR i_=1 TO LEN(brw_campos)
			  cp_titu:=brw_campos[i_,3]
			  cp_masc:=brw_campos[i_,2]
			  cp_:=brw_campos[i_,1]
			  brw:addcolumn(tbcolumnnew(cp_titu,&("{||TRAN("+cp_+",["+cp_masc+"])}")))
			  brw:getcolumn(i_):width := LEN(TRAN(&cp_.,cp_masc))
		  NEXT

[Toledo]

Amigo, na matriz xCampos você poderia incluir um 4º elemento contendo o tamanho da coluna, por exemplo:

Código: Selecionar todos

     PRIV xCampos:={{"ID      " ,"@X"               ," Cod   ", 5            },;
                {"NOME    " ,"@X"               ,"Nome   ", 40            },;
                {"CFOP    " ,"@9"               ,"CFOP", 6               },; 
                 {"TRIBICMS" ,"@X"               ,"Tributar Icm", 12       },; 
                {"TRIBIPI " ,"@X"               ,"Tributar Ipi", 12       }}

Obs.: os tamanhos das colunas acima são só exemplos, coloque o tamanho correto.

Depois altere este código:

Código: Selecionar todos

brw:getcolumn(i_):width := LEN(TRAN(&cp_.,cp_masc))

Troque por:

Código: Selecionar todos

brw:getcolumn(i_):width :=brw_campos[i_,4]

Abraços

[porter]

Obrigado Toledo, deu certo.