Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 11

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

Gravado em

comparado com

Nova versão 12

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 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-468815246783

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 MNTA470E
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("Deseja excluir a movimentação?", "Atenção")
        EndIf
    EndIf
(TPN->TPN_DTINIC > dData .OR. (TPN->TPN_DTINIC == dData .AND. TPN->TPN_HRINIC > cHora))
						Help("",1,"Atenção!",,"Movimentação de bem não permite exlcuir pois possui histórico mais recente",4,5)
						lRetorno := .F.
					EndIf
				EndIf
			EndIf
		EndIF


	EndIf
	RestArea(aArea)
Return lRetorno