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:MNTA1151
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de entrada executado na rotina de Gera Bens a partir de ATF (MNTA115) que permite alterar campo da tabela de Bens (ST9) quando o mesmo for confirmado a partir de um Ativo Fixo.

Localização:

SIGAMDI: Miscelânea/Gera Bens/A Partir do ATF

Programa Fonte:

MNTA115.prx

Função:

MNTA1151()

Retorno:


Nulo.

03. DEMAIS INFORMAÇÕES

Exemplo MNTA1151()
#Include 'Totvs.ch'
 
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA1151
Grava campo customizado na ST9 a partir de um Ativo.
 
@author  NG Informática
@since   24/02/2020
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA1151()
 
    Local aAtvNBEM  := PARAMIXB[ 1 ]
    Local aAreaST9 := GetArea()
 
    If Len(aAtvNBEM) > 0
        dbSelectArea("ST9")
        dbSetOrder(1)
        If dbSeek(xFilial("ST9")+aAtvNBem[1,1] )
 
            RecLock('ST9',.F.)
            ST9->T9_CATBEM   := "4"
            ST9->(MsUnLock())
 
            MsgInfo("PE MNTA1151 executado.")
        EndIf
 
    EndIf
 
    RestArea( aAreaST9 )
 
Return .T.


04. ASSUNTOS RELACIONADOS

  • Não se aplica.