Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MNTA0901 - Inclui Item na Estrutura de Bens
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de entrada chamado ao confirmar a inclusão de um item na estrutura de um bem através do programa de Estrutura de Bens.
Programa Fonte 
MNTA090.PRW
Sintaxe

MNTA0901 - Inclui Item na Estrutura de Bens ( ) --> lRet

Retorno
    lRet()
  • Resultado da validação realizada para a inclusão do item na estrutura.
Exemplos 
#include "rwmake.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.	EndIfEndIfRestArea(aArea)Return lRet