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

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

MNTA470 - Movimentação de Bens

Chamados Relacionados

15246783

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada no padrão MVC para customização da rotina de Movimentação de Bens.

Programa Fonte:

MNTA470.prx

Função:

MNTA470()

Parâmetros:

Parâmetros para utilização de PE em MVC http://tdn.totvs.com/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:

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

 


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            := aParam[1]
		cIdPonto        := aParam[2]
		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:GetValue('TPNMASTER','TPN_HRINIC')

				DbSelectArea('TPN')
				DbSetOrder(1)

				If dbSeek(xFilial('TPN') + cBem + DTOS(dData) + cHora)
					DBSKIP()
					If TPN->TPN_CODBEM == cBem .AND. (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