01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

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:


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




<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>