Árvore de páginas

Versões comparadas

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 exclusão, na gravação da movimentação (TPN).

Ponto de entrada para rotina de Movimentação de Bens

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

15246783

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
padrão 
Ok
MVC para 
confirmar
customização 
a
da 
exclusão,
rotina 
na
de 
gravação
Movimentação 
da movimentação (TPN)
de Bens.

Programa Fonte:

MNTA470.prx

Função:

MNTA470()

Parâmetros:

Parâmetros para utilização de PE em MVC http://tdn.totvs.com/

pages/viewpage.action?pageId=208345968

x/cBtrD

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.

O nome da função a ser criada é MNTA470.

 


Bloco de código
languagecpp
themeConfluence
titleExemplo PE MNTA470EMNTA470
User Function MNTA470()

    	Local aParam    := PARAMIXB
    	Local oObject   := ''
    	Local cIdPonto  := ''
    	Local cIdModel  := ''
    	Local lRetorno  := .T.
	Local aArea   := TPN->(GetArea())
	Local nOpc      := 0

    	If aParam <> NIL
		oObj        oObj        	:= aParam[1]
		cIdPonto        cIdPonto    	:= aParam[2]
        cIdModel		cIdModel    	 := aParam[3]

		If cIdPonto == 'MODELPOS'
			nOpc    := oObj:GetOperation()
			If nOpc == 5
				cBem := oObj:GetValue('TPNMASTER','TPN_CODBEM')
				dData   	:= oObj:GetValue('TPNMASTER','TPN_DTINIC')
				cHora := oObj:GetOperation(GetValue('TPNMASTER','TPN_HRINIC')

				DbSelectArea('TPN')
				DbSetOrder(1)

				If dbSeek(xFilial('TPN') + cBem + DTOS(dData)   If cIdPonto+ cHora)
					DBSKIP()
					If TPN->TPN_CODBEM == 'MODELPOS'cBem .AndAND. nOpc == 5
              lRetorno := MsgYesNo("Atenção", "Deseja excluir a movimentação?")
        EndIf
    EndIf(TPN->TPN_DTINIC > dData .OR. (TPN->TPN_DTINIC == dData .AND. TPN->TPN_HRINIC > cHora))
						Help("",1,"Atenção!",,"Exclusao nao permitida pois possui historico de movimentacao de bem mais recente.",4,5)
						lRetorno := .F.
					EndIf
				EndIf
			EndIf
		EndIF

	EndIf
	RestArea(aArea)

Return lRetorno