Histórico da Página

#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_CHAPACATBEM	:= "Chapa 00014"
			ST9->(MsUnLock())

		EndIf
		MsgInfo("PE MNTA1151 executado.")
		EndIf

	EndIf

	RestArea( aAreaST9 )

Return .T.