Linha Microsiga Protheus

Árvore de páginas

Carregando...

Versões comparadas

Versão antiga 1

changes.mady.by.user Marcelo dos Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcelo dos Santos

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Manutenção de Ativos

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoManufatura

Módulo:

Modulos_totvs_manufatura
ModulosTOTVSManufaturaTOTVS 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

Bloco de código
languagevb
themeFadeToGrey
titleExemplo MNTA0901()
linenumberstrue
#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.



Templatedocumentos