Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 5 minutos

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA470()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada no padrão MVC para customização da rotina de Movimentação de Bens.

Programa Fonte:

MNTA70.prx

Função:

MNTA470()

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

03. DEMAIS INFORMAÇÕES

Exemplo MNTA470()
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!",,"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


04. ASSUNTOS RELACIONADOS

  • Não se aplica.