Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Bruno Souza

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Juliani Schlickmann Damasceno

Gravado em

Chave

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

Chamado após

clicar no botão Ok para confirmar a

confirmação da exclusão, na

gravação da movimentação (TPN).

rotina de Movimentação de Bens (MNTA470)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

MNTA470 - Movimentação de Bens

Chamados Relacionados

MNG-4688

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada chamado após clicar no botão Ok para confirmar a exclusão, na gravação da movimentação (TPN).

Programa Fonte:

MNTA470.prx

Função:

MNTA470()

Parâmetros:

http://tdn.totvs.com/pages/viewpage.action?pageId=208345968

Retorno:

.T. ou .F. (logico)

.T. indica que a verificação está correta, .F. indica que há algum problema e/ou não deverá prosseguir

Observação:Este ponto de entrada foi descontinuado no modelo antigo, passado a partir da versão 12.1.17 para o modelo MVC.

 


Bloco de código
languagecpp
themeConfluence
titleExemplo PE MNTA470E
User Function MNTA470

    Local aParam    := PARAMIXB
    Local oObject   := ''
    Local cIdPonto  := ''
    Local cIdModel  := ''
    Local lRetorno  := .T.
    Local nOpc      := 0

    If aParam <> NIL
        oObj        	:= aParam[1]
        cIdPonto    	:= aParam[2]
        cIdModel   	 := aParam[3]
        nOpc       	 := oObj:GetOperation()

        If cIdPonto == 'MODELPOS' .And. nOpc == 5
              lRetorno := MsgYesNo("Atenção","Deseja excluir a movimentação?","Atenção")
        EndIf
    EndIf

Return lRetorno