Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

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


02. SITUAÇÃO/REQUISITO

É necessário disponibilizar um ponto de entrada que permita adicionar novas abas na consulta de Rastreabilidade de Sementes disponível no módulo SIGAAGR.

03. SOLUÇÃO

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:


UB040FOL
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.

04. DEMAIS INFORMAÇÕES

Documentação do objeto TFolder enviado para o PE: TFolder


05. ASSUNTOS RELACIONADOS