Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 3 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:MNTA0901
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Estrutura de Bens (MNTA090) que é chamado ao confirmar a inclusão de um item

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Bens/Estrutura de Bens

Programa Fonte:

MNTA090.prw

Função:

MNTA0901()

Retorno:
NomeTipoDescrição
lRetLógicoSe as informações estiverem de acordo com as validações retorna verdadeiro (.T.), caso contrário, retorna falso (.F.)

03. DEMAIS INFORMAÇÕES

Exemplo MNTA0901()
#Include 'Protheus.ch'
 
//O exemplo abaixo faz uma verificação simples no cadastro do bem.
//Na situacao se 'Movim. Bem' estiver como "Sim" e 'Status' preenchido no cadastro, o bem não será adicionado à estrutura.
User Function MNTA0901()
 
    Local lRet := .T.
    Local aArea := GetArea()
     
    dbSelectArea("ST9")
    dbSetOrder(01)
    If dbSeek(xFilial("ST9")+M->TC_COMPONE) 
        If ST9->T9_MOVIBEM == "S" .And. !Empty(ST9->T9_STATUS)       
            APMSGINFO("Não é possível incluir o bem '"+AllTrim(M->TC_COMPONE)+"' na estrutura.","ATENCAO")      
            lRet := .F.
        EndIf
    EndIf
    RestArea(aArea)
 
Return lRet


04. ASSUNTOS RELACIONADOS

  • Não se aplica.