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çãoExclusao nao depermitida bempois nãopossui permitehistorico exlcuirmais poisrecente possuide históricomovimentacao 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