Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 22

changes.mady.by.user Marcio Rogerio Menon

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcio Rogerio Menon

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
MA430BUT - Adicionar botões no controle de reservas
MA430BUT - Adicionar botões no controle de reservas

Ponto-de-Entrada: MA430BUT - Adicionar botões no controle de reservas


Descrição:

O ponto de entrada MA430BUTpertence a rotina de Controle de Reservas, e é utilizado para adicionar botões de usuário dentro da opção "Outras Ações", na rotina de Controle de Reservas.


Programa Fonte:
MATA430.PRW

Sintaxe:

MA430BUT( nOper ) --> aButton


Parâmetros:
nOper - Tipo: Numérico - Número da operação, sendo:

1 - Visualização / Eliminar Resíduos;
3 - Inclusão;
4 - Alteração;
5 - Exclusão.

Retorno:

aButton aButton - Tipo: Vetor - Array contendo as definições dos botões, sendo.

Sendo: / { cResource, bBloco, cTitulo } 
  
cResource - Tipo: Caractere - Nome do resource compilado no RPO que será a imagem do botão.
bBloco - Tipo: Bloco de Código - Bloco de código que será executado.
cTitulo - Tipo: Caractere - Título do botão.

Exemplo:

Bloco de código
languagejs
linenumberstrue
#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'
#INCLUDE 'PARMTYPE.CH'
#Include "FWMVCDEF.CH"
#Include "MATA430.CH"

User Function MA430BUT()

Local nOper   := PARAMIXB[1]                               //Variável nOper recebe o número	//Número da operação que está sendo executada  
Local aRetaButton := {}            

If nOper == 1                                            //Avalia se a operação que está sendo executada é igual à "1" 

aAdd( aRet3	//Cria o botão na inclusão de uma reserva 
	aAdd(aButton, {"PMSINFO",{|| MsagAlertAlert("testeTeste")},STR0005}) //Monta aRet, sendo: aRet[1]="Icone", aRet[2]=bBlocoaBotao; aRet[3]=Help

Return aRet                                              // Retorna aRet 

"Teste"})
EndIf

Return aButton