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: |
| ||||||||
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: |
|
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.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas