Histórico da Página
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: | 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: | 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 é MNTA470. |
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
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!",,"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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas