Clipper On Line • Ver Tópico - Dúvida com TBrowse, cabeçalho

Dúvida com TBrowse, cabeçalho

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Dúvida com TBrowse, cabeçalho

Mensagempor porter » 13 Set 2017 16:15

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

PRIV xCampos:={{"ID      " ,"@X"               ," Cod   "               },;
          {"NOME    " ,"@X"            ,"Nome   "             },;
          {"CFOP    " ,"@9"             ,"CFOP   "              },;
          {"TRIBICMS" ,"@X"           ,"Tributar Icm"      },;
          {"TRIBIPI " ,"@X"             ,"Tributar Ipi"        }}    
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes

Dúvida com TBrowse, cabeçalho

Mensagempor Toledo » 13 Set 2017 22:25

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

Abraços
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Dúvida com TBrowse, cabeçalho

Mensagempor porter » 14 Set 2017 08:30

Olá Toledo, obrigado por responder

   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
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes

Dúvida com TBrowse, cabeçalho

Mensagempor Toledo » 14 Set 2017 12:19

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

     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:

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


Troque por:

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


Abraços
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Dúvida com TBrowse, cabeçalho

Mensagempor porter » 14 Set 2017 12:57

Obrigado Toledo, deu certo.
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 8 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro