Agrupar registros com FwMBrowse

Boa noite!

Possuo uma tabela que possui os seguintes campos e registros. Exemplo: como_esta.png

Utilizando a classe FwMBrowse, gostaria que só fossem exibidos no grid os dados agrupados por competência e vendedor, exemplo: como_quero.png

Ao usar o método SetOnlyFields, consigo que sejam exibidos apenas estes dois campos que desejo, mas não consigo agrupar os registros, os mesmos são exibidos "duplicados", assim: como_consegui.png

Gostaria de saber se existe algum método que eu possa estar usando de modo que os registros fiquem agrupados, ou se só é possível realizar isso usando uma tabela temporária.

Agradeço desde já pela atenção.

Como está atualmente:

Local aArea         := GetArea() 
Local oBrowse         := FwMBrowse():New()
Private cCadastro     := 'Metas de Positivação por Vendedor'
Private aRotina     := MenuDef() 

    oBrowse:SetAlias('ZT1')
    oBrowse:SetDescription(cCadastro)
    oBrowse:SetOnlyFields({'ZT1_MESANO','ZT1_CODVEN','ZT1_NOMVEN'})
    oBrowse:Activate()

    RestArea(aArea)

criado 13 de Nov de 2018
Giordano Trabach Xavier
4208 pontos
editado 13 de Nov de 2018

Anexos

como_quero.PNG

como_consegui.PNG

como_esta.PNG

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

3 respostas

Bom dia,

Use o SetFilterDefault, dando um Select no Recno do Registro, usando um sub Select para filtrar o Recno do Browse.

Exemplo:

Local cFiltro := ""

    oBrowse := FWMBrowse():New()

    oBrowse:SetAlias("ZCG")

cFiltro := " R_E_C_N_O_ IN ( SELECT " 
     cFiltro += "ZCG.R_E_C_N_O_ " 
     cFiltro += "FROM " 
     cFiltro += RetSQLName("ZCG") + " ZCG "
     cFiltro += "INNER JOIN ( " 
     cFiltro += "SELECT DISTINCT "
     cFiltro += "ZCG_PRIN.ZCG_NUMNF AS PEDIDO, "
     cFiltro += "( "
     cFiltro += "SELECT TOP 1 "
     cFiltro += "ZCG_ITE.ZCG_ITEM "
     cFiltro += "FROM "
     cFiltro += RetSQLName("ZCG") + " ZCG_ITE "
     cFiltro += "WHERE "
     cFiltro += "ZCG_ITE.ZCG_FILIAL = ZCG_PRIN.ZCG_FILIAL "
     cFiltro += "AND ZCG_ITE.ZCG_NUMNF = ZCG_PRIN.ZCG_NUMNF "
     cFiltro += "AND ZCG_ITE.D_E_L_E_T_ = ' ' "
     cFiltro += "ORDER BY "
     cFiltro += "ZCG_ITE.ZCG_ITEM DESC "
     cFiltro += ") AS ULT_ITEM "
     cFiltro += "FROM "
     cFiltro += "ZCG010 ZCG_PRIN "
     cFiltro += "WHERE "
     cFiltro += "ZCG_PRIN.ZCG_FILIAL = '" + FWxFilial("ZCG") + "' "
     cFiltro += "AND ZCG_PRIN.D_E_L_E_T_ = ' ' "
     cFiltro += ") TAB_AUX ON ( "
     cFiltro += "ZCG.ZCG_NUMNF  = TAB_AUX.PEDIDO "
     cFiltro += "AND ZCG.ZCG_ITEM = TAB_AUX.ULT_ITEM "
     cFiltro += ") "
     cFiltro += "WHERE "
     cFiltro += "ZCG.ZCG_FILIAL = '" + FWxFilial("ZCG") + "' "
     cFiltro +=  "AND ZCG.D_E_L_E_T_ = ' ' "
     cFiltro += ") "


    oBrowse:SetFilterDefault( "@"  + cFiltro )  

oBrowse:Activate()

Att,

Cristian Regazzo

editar
- x
grosseiro ou ofensivo pouco construtivo obsoleto outro...
Motivo

criado 21 de Nov de 2018
Cristian Regazzo
108 pontos
editado 06 de Jan de 2020
Patrick Zerbinatti
601 pontos

0

show!! Obrigado Cristian, o filtro desta forma funcionou perfeitamente, muito mais rápido!
— Caio Menezes 12 de Jan de 2021

up 0 down
Acredito que você está utilizando uma relacionamento entre uma tabela pai e uma filha, certo?

Se sim, faz o seguinte, ao invés de apontar para a tabela filha no método SetAlias(), aponta para a tabela pai.

ALIAS NO PAI

ALIAS NO FILHO
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 14 de Nov de 2018
  Guilherme Bigois
  1120 pontos
- 0
  
  Então, na verdade eu só tenho a tabela "filho". Na época do desenvolvimento da rotina, foi criada apenas uma tabela com itens ao invés de uma cabeçalho e outra com itens.
  
  Por isso tive a ideia de agrupar os itens, para melhorar a visualização e simulando um cabeçalho.
  — Giordano Trabach Xavier 14 de Nov de 2018
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Anexos
ALIAS_NO_FILHO.JPG

ALIAS_NO_PAI.JPG
up 0 down
Já tentou usar o SetFilterDefault ?

oBrowse:SetFilterDefault(" ( ZT1_MESANO = '" + ZT1->ZT1_MESANO + "' .And. ZT1_CODVEN = '" + ZT1->ZT1_CODVEN + "' ) ")
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 14 de Nov de 2018
  Jorge Alberto
  527 pontos
- 0
  
  Ainda não, irei realizar um teste e posto aqui os resultados. Obrigado!
  — Giordano Trabach Xavier 14 de Nov de 2018
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações
up 0 down
Amigo, boa tarde! Funcionou aqui! Obrigado pela dica!
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 05 de Jan de 2020
  Oscar Alderete
  16 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Anexos
filter_table_fwbrowse.png

Agrupar registros com FwMBrowse

Comentário

3 respostas

Comentário

Comentário

Comentário

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags fwmbrowse advpl protheus ou faça a sua própria pergunta.