[RESOLVIDO] Browse Dinamico

Discussão em 'EMS , HCM e Totvs 11' iniciado por Rogerio, Maio 31, 2016.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Bom dia, eu achei aqui no forum varias formas de trabalhar com Browse Dinamico, uma coisa que não achei e estou precisando é como eliminar as colunas para incluir novas!!!!
    Rogerio, Maio 31, 2016
    #1
  2. bootstrapmaster

    bootstrapmaster Moderator Moderador Equipe de Suporte

    Eu fiz outro dia, mas assim, eu criei pelo appbuilder mesmo o browse com todas as colunas que eu queria que seria possivel, depois eu só escondi as que eu achei que não iria usar de momento, assim o usuario pode em um botão, marcar as colunas que quer que apareça e pronto, fico brincando com o visible das colunas. então não é bem um browse dinamico, mas pra mim foi o suficiente.
    bootstrapmaster, Maio 31, 2016
    #2
  3. LeandroSantos

    LeandroSantos Membro Participativo

    Para eliminar todas as colunas do browse voce pode fazer assim:
    Código:
       do while Browse-Handle:num-columns > 0.
      Handle-Temp = Browse-Handle:get-browse-column(1).
      delete object Handle-Temp.
   end.
    LeandroSantos, Maio 31, 2016
    #3
    Rogerio curtiu isso.
  4. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Perfeito... Obrigado.
    Rogerio, Maio 31, 2016
    #4
  5. Rogerio

    Rogerio Moderator Moderador Equipe de Suporte

    Pessoal na linha do comando h-browse:add-like-column(entry(i-cont,c-campos)). está dando erro de Progress e fecha a sessao alguem saberia me dizer o porque disso???

    Problem signature:
    Problem Event Name: APPCRASH
    Application Name: prowin32.exe
    Application Version: 10.1.1.1483
    Application Timestamp: 47b5b4a1
    Fault Module Name: prow32.dll
    Fault Module Version: 10.1.1.1483
    Fault Module Timestamp: 47b5b49c
    Exception Code: c0000005
    Exception Offset: 003d03f4
    OS Version: 6.0.6002.2.2.0.274.10
    Locale ID: 1046
    Additional Information 1: 83e7
    Additional Information 2: cf7bdf73c69389f240efdd7ac0488153
    Additional Information 3: 449d
    Additional Information 4: c93938b4aa685ccaaba696c01bb66562

    Segue trecho do programa:


    do while h-browse:num-columns > 0.
    Handle-Temp = h-browse:get-browse-column(1).
    delete object Handle-Temp.
    end.

    ASSIGN c-campos = 'tt-diario.it-codigo,tt-diario.saldo'
    c-label = 'Item,Saldo'.

    DO i-cont = day(d-data-ini) TO day(d-data-fim).
    ASSIGN c-campos = c-campos + ',tt-diario.c-dia[' + STRING(i-cont) + ']'
    c-label = c-label + ',' + STRING(i-cont,'99') + '/' + STRING(MONTH(d-data-ini),'99').
    END.


    DO i-cont = 1 to num-entries(c-campos):
    MESSAGE entry(i-cont,c-campos) SKIP 'CARLOS'
    VIEW-AS ALERT-BOX INFO BUTTONS OK.
    h-browse:add-like-column(entry(i-cont,c-campos)).
    IF i-cont = 1 THEN
    h-browse:GET-BROWSE-COLUMN(i-cont):WIDTH = 18.
    ELSE
    h-browse:GET-BROWSE-COLUMN(i-cont):WIDTH = 7.
    h-browse:GET-BROWSE-COLUMN(i-cont):LABEL = entry(i-cont,c-label).
    end.
    Rogerio, Junho 13, 2016
    #5
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página