Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada responsável por gravar os campos da tabela STL, referente a insumos (MNTA420)

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

MNTA420

O.S. Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA420R

Ponto de Entrada

País(es):

Todos.

Banco(s) de Dados:

Todos.

Sistema(s) Operacional(is):

Todos.




Ponto de Entrada

Descrição:

Ponto de entrada utilizado na rotina de O.S. Corretiva (MNTA420) para gravar campos da tabela STL, referente a insumos.

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva

Programa Fonte:

MNTA420.prx

Função:

MNTA420R()

Retorno:


.T.


 

Exemplo do Ponto de Entrada MNTA420R
#INCLUDE 'PROTHEUS.CH'

User Function MNTA420R()

	Local cCodAEN := ""
	Local lUPDPET01 := NGCADICBASE("TL_CODAEN", "A", "STL", .F.)

	cCodAEN := IIf(FunName() == "MNTA420", M->TL_CODAEN, M->TG_CODAEN)

	If lUPDPET01

		RecLock("STL", .F.)

		STL->TL_CODAEN := cCodAEN

		STL->(MsUnlock())

	EndIf

Return .T.