Linha Microsiga Protheus

Árvore de páginas

PONTO DE ENTRADA TME70BUT

Descrição

Este Ponto de Entrada tem por finalidade permitir a inclusão de novos botões na tela da rotina TMSAE70(Monitor do CT-e).

ObservaçãoDevido ao espaço limitado para a inserção dos botões foi testado com limite máximo de 5 botões, para casos em que for necessário incluir mais do que 5 botões, utilize o exemplo 2 descrito neste documento.

Idioma

Português(Brasil)

Parâmetros Entradanão possui.

Versões

12.1.17 +

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Retorno

Array contendo o titulo do botão e um bloco de código para executar chamadas de rotinas do usuário ou um array contendo:

1º Titulo do Submenu;

2º Bloco de Código para chamada de funções.

Array no seguinte formato:
//-- aRetPE[01] = "Titulo do Botão".
//-- aRetPE[02] = Bloco de Código para chamada de funções ou array multidimensional contendo "[1]" - Titulo do Submenu e "[2]" - bloco de código para chamada de funções."

Programa Fonte

TMSAE70.PRW

Exemplos

Abaixo código de exemplo de utilização do ponto de entrada.

#include 'Protheus.ch'


/**
Exemplo de Ponto de Entrada 1
Insere novos botões contendo subitens
*/
User Function TME70But()
Local aBtnUser := {}

//+----------------------------------------------------------------------------------------
//| Botão Simples - Teste
//+----------------------------------------------------------------------------------------
AADD( aBtnUser,{'Teste S1',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S2',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S3',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S4',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S5',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S6',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S7',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S8',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S9',{|| U_TestePE() }})
AADD( aBtnUser,{'Teste S10',{|| U_TestePE() }})


Return aBtnUser

User Function TestePE()
Aviso("Teste","Este é um teste do ponto de entrada TME70BUT",{"OK"})
Return

#include 'Protheus.ch'


/**
Exemplo de Ponto de Entrada 1
Insere novos botões contendo subitens
*/
User Function TME70But()
Local aBtnUser := {}
Local i := 1

//+----------------------------------------------------------------------------------------
//| Botão "Outras Acoes 1"
//+----------------------------------------------------------------------------------------
Aadd(aBtnUser, {'Outras Acoes 1',{}}) //[1] Titulo Botão; [2] Code block / {|| function here...}

//+----------------------------------------------------------------------------------------
//| [2]- Action / Bloco de Código com a função que será executada. Sendo [2][n][1]-Titulo [2][n][2]-bCodeBlock
//| Sub-Item (Menu) inserido no botão
//+----------------------------------------------------------------------------------------
AADD(aBtnUser[Len(aBtnUser)][2], {"Pre Fatura", { || TMSAE45() } })

For i:=1 To 5
AADD(aBtnUser[Len(aBtnUser)][2], {"Teste " + StrZero(i,3), {|| U_TestePe() } })
Next i

//+----------------------------------------------------------------------------------------
//| Botão "Outras Acoes 2"
//+----------------------------------------------------------------------------------------
Aadd(aBtnUser, {'Outras Acoes 2',{}}) //[1] Titulo Botão; [2] Code block / {|| function here...}

For i:=1 To 5
AADD(aBtnUser[Len(aBtnUser)][2], {"Teste Btn 2 " + StrZero(i,3), {|| U_TestePe() } })
Next i

Return aBtnUser

User Function TestePE()
Aviso("Teste","Este é um teste do ponto de entrada TME70BUT",{"OK"})
Return