Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • Ac090But - Adição de botões

Ponto-de-Entrada: Ac090But - Adição de botões
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todas TotvsDbAccess
Descrição: 
Este ponto de entrada permite que sejam adicionados botoes de usuario na EnchoiceButtons da rotina de Cadastro de Disciplinas - ACAA090.
Programa Fonte 
ACAA090.PRW
Sintaxe

Ac090But - Adição de botões ( [ ParamIxb[1] ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIxb[1] Numérico Tipo de Operação:2 - Visualização3 - Inclusão4 - Alteração5 - Exclusão
Retorno
    aRet(array_of_record)
  • Array com os novos botoes, conforme o layout exemplo (presente no RdMake exemplo) {{"BR_LARANJA" , {|| MsgInfo('Botao de Usuario 01 clicked') } , 'Botao de Usuario 01' , 'Botao de Usuario 01' }}
Exemplos 
User Function Ac090But()Local nOpc := ParamIxb[1]Local aRet := {}Local cTipo:= ""aAdd(aRet, {"BR_LARANJA"	, {|| MsgInfo('Botao de Usuario 01 clicked') } , 'Botao de Usuario 01' , 'Botao de Usuario 01' } )aAdd(aRet, {"BR_VERMELHO"	, {|| MsgInfo('Botao de Usuario 02 clicked') } , 'Botao de Usuario 02' , 'Botao de Usuario 02' } )aAdd(aRet, {"BR_BRANCO"		, {|| MsgInfo('Botao de Usuario 03 clicked') } , 'Botao de Usuario 03' , 'Botao de Usuario 03' } )aAdd(aRet, {"BR_VERDE"		, {|| MsgInfo('Botao de Usuario 04 clicked') } , 'Botao de Usuario 04' , 'Botao de Usuario 04' } )aAdd(aRet, {"BR_AMARELO"	, {|| MsgInfo('Botao de Usuario 05 clicked') } , 'Botao de Usuario 05' , 'Botao de Usuario 05' } )if nOpc == 2	cTipo := "Visualização"elseif nOpc == 3	cTipo := "Inclusão"elseif nOpc == 4	cTipo := 'Alteração'elseif nOpc == 5	cTipo := 'Exclusão'endif                MsgInfo('Ponto de Entrada Ac090But executado com sucesso. Opcao escolhida: ' + cTipo)Return aRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não