Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

changes.mady.by.user Juliani Schlickmann Damasceno

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (brngi0017)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Chamado após confirmação da exclusão, na

Ponto de entrada para 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

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:

MNTA470E

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:

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

O

nome do fonte a ser criado é MNTA470E, contudo, o

nome da função a ser criada

dentro do fonte deve ser

é 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