Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Caue Girardi

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Caue Girardi

Gravado em

Chave

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

Ponto de entrada que permite incluir novos botões na rotina MNTC510B.

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTC510B

Histórico

Ponto de Entrada

Descrição:

Ponto de entrada acionado para adicionar botões no "Outra Ações" da rotina MNTC510B.

Programa Fonte:

MNTC510B.prx

Parâmetros:
NomeTipoDescrição
ParamIXB[1]aRotina

Array de opções que serão disponibilizadas no menu da rotina


[n,1] Nome a aparecer no cabeçalho

[n,2] Nome da Rotina associada

[n,3] Reservado

[n,4] Tipo de Transação a ser efetuada:

    1 - Pesquisa e Posiciona em um Banco de Dados

    2 - Simplesmente Mostra os Campos

    3 - Inclui registros no Bancos de Dados

    4 - Altera o registro corrente

    5 - Remove o registro corrente do Banco de Dados

    6 - Alteração sem inclusão de registros

    7 - Cópia

    8 - Imprimir

[n,5] Nível de acesso

Retorno:

Tipo

Descrição

aRotina

Array com os botões e suas respectivas funções.

 

Bloco de código
languagesql
titleExemplo: P.E. MNTA8802MNTC510B1
linenumberstrue
#include 'totvs.ch'
#include 'mntc510.ch'

User Function MNTC510B1()
    
    Local aRotina := ParamIxb[1]

    AADD( aRotina, {'Função Teste', 'U_FuncTest()',0 ,4} )

Return aRotina

User Function FuncTest()

    Local cOrdem    := (_CTRB)->TJ_ORDEM
    Local cCodBem   := (_CTRB)->TJ_CODBEM
    Local cPlano    := (_CTRB)->TJ_PLANO

Return MsgInfo( 'Ponto de Entrada'Ordem: ' + cOrdem + ', Codigo do Bem: ' + cCodBem + ', Plano: ' + cPlano, 'Sucesso' )