Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Logística
Módulo:SIGATMS - Gestão de Transportes 


02. DESCRIÇÃO

Através deste ponto de entrada é possível adicionar abas ao cockpit dos clientes.

O ponto de entrada está localizado na função TMSA510 do fonte TMSA510 (Cockpit dos Clientes) e possui seis etapas que devem ser utilizadas em conjunto:

  1. Execução do ponto de entrada e retorno das informações das novas abas;
  2. Inclusão dos novos folders;
  3. Inclusão das novas colunas no objeto Layer;
  4. Criação dos novos browses;
  5. Refresh dos novos browses;
  6. Limpeza das variáveis estáticas na saída do cockpit dos clientes.


Atenção

As novas abas serão sempre incluídas à direita das abas já existentes no padrão.

Cada linha do array de retorno refere-se a uma nova aba.

Não é possível a retirada de abas do padrão.


Parâmetros:

Não existem parâmetros de entrada.


Retorno:

  • Título da nova aba e do novo browse.
  • Nome da nova coluna.
  • Array com as propriedades do browse.
  • Array com as propriedades do relacionamento entre o novo browse e o browse principal (Clientes).
  • Nome do novo objeto browse.
  • Nome do novo objeto de relacionamento.

03. EXEMPLO DE UTILIZAÇÃO

TMA510Brw
#INCLUDE 'Protheus.ch'

User Function TMA510BRW()
Local aRet       := {}
Local aBrowseUS1 := {}
Local aBrowseUS2 := {}
Local aRelacUS1  := {}
Local aRelacUS2  := {}

Aadd(aBrowseUS1,"SetOwner(oFolders:aDialogs[21])")
Aadd(aBrowseUS1,"SetDescription('Teste 1')")
Aadd(aBrowseUS1,"SetMenuDef('TMSA610')")
Aadd(aBrowseUS1,"DisableDetails()")
Aadd(aBrowseUS1,"SetAlias('DV2')")
Aadd(aBrowseUS1,"SetProfileID('22')")
Aadd(aBrowseUS1,"SetMainProc('TMSA610')")

Aadd(aRelacUS1,"AddRelation(oBrowseUp,oBrowseUS1,{{'DV2_FILIAL','" + 'xFilial("DV2")' + "'},{'DV2_CODCLI','A1_COD'},{'DV2_LOJCLI','A1_LOJA'}})")

//--
Aadd(aBrowseUS2,"SetOwner(oFolders:aDialogs[22])")
Aadd(aBrowseUS2,"SetDescription('Teste 2')")
Aadd(aBrowseUS2,"SetMenuDef('TMSAF14')")
Aadd(aBrowseUS2,"DisableDetails()")
Aadd(aBrowseUS2,"SetAlias('DDO')")
Aadd(aBrowseUS2,"SetProfileID('23')")
Aadd(aBrowseUS2,"SetMainProc('TMSAF14')")

Aadd(aRelacUS2,"AddRelation(oBrowseUp,oBrowseUS2,{{'DDO_FILIAL','" + 'xFilial("DDO")' + "'},{'DDO_CODCLI','A1_COD'},{'DDO_LOJCLI','A1_LOJA'}})")

Aadd(aRet,{"Teste 1","COLTST1",aBrowseUS1,aRelacUS1,"oBrowseUS1","oRelacUS1"})
Aadd(aRet,{"Teste 2","COLTST2",aBrowseUS2,aRelacUS2,"oBrowseUS2","oRelacUS2"})

Return aRet


04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

Não há.