Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite customizar campos da tabela de Bens (ST9) gerado a partir de um Ativo Fixo

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA115

Cadastros Bens a partir de Ativo Fixo

Rotina(s) envolvida(s)

Nome Técnico

MNTA115

Cadastros Bens a partir de ATF

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

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:

Nome

Tipo

Descrição

Obrigatório

aLegendaArrayCores e descrições da legendaSim
Exemplo do Ponto de Entrada 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.