Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | ||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: MNTA0901 - Inclui Item na Estrutura de Bens
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
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