Histórico da Página
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 |
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/ |
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. |
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 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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas