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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas