| Produto: | TOTVS Agro Beneficiamento
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Agroindústria |
| Módulo: | Gestão de Agronegocio |
| Função: | UBSA040 |
| Ticket: | |
| Requisito/Story/Issue (informe o requisito relacionado) : | DAGROOGD-12624 |
É necessário disponibilizar um ponto de entrada que permita adicionar novas abas na consulta de Rastreabilidade de Sementes disponível no módulo SIGAAGR.
Foi disponibilizado um ponto de entrada que é executado durante a construção da tela de Rastreabilidade de Sementes. Ela recebe um objeto do tipo TFolder, permitindo a adição de novas abas. Exemplo:
User Function UB040FOL()
Local oFolder := PARAMIXB[1]
Local oDialog as object
Local oBrowse as object
// adiciona nova aba
oFolder:AddItem('Aba Custom' , .T.)
// recupera dialog criado para a aba.
// neste caso, é utilizado a ultima aba adicionada
// caso sejam adicionadas várias em sequência, deverá ser utitilizado os indices do array em sequencia
// da adição deles
oDialog := oFolder:aDialogs[Len(oFolder:aDialogs)]
DbSelectArea("NK9")
If TableInDic('N72')
NK9->(DbSetOrder(3)) //ordenar por data e hora de inclusão do histórico
EndIf
oBrowse := FWMBrowse():New()
oBrowse:SetAlias('NK9')
oBrowse:SetDescription('Teste PE')
oBrowse:DisableDetails()
oBrowse:SetColumns(GetColumns())
// usa o dialog normalmente
// não é necessário ativar o dialog, ele será ativado junto com o objeto principal
oBrowse:Activate(oDialog)
Return oFolder
É esperado o retorno do mesmo objeto enviado como parâmetro para o ponto de entrada após a sua modificação. Caso não seja retornado, não haverão abas apresentadas.
Documentação do objeto TFolder enviado para o PE: TFolder