Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada chamado na exclusão de uma O.S., permitindo a exclusão de tabelas específicas na rotina de O.S. Corretiva (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

Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA420F

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 executado na rotina de O.S. Corretiva (MNTA420) ao excluir uma O.S., permitindo a exclusão de uma tabela específica relacionada a O.S.

Localização:

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

Programa Fonte:

MNTA420.prx

Função:

MNTA420G()

Retorno:

.T.
Exemplo do Ponto de Entrada MNTA420G()
#INCLUDE 'PROTHEUS.CH'

User Function MNTA420G()

	DbSelectArea("SZA")
	DbSetOrder(4)
	If DbSeek(xFilial("SZA")+STJ->TJ_ORDEM+STJ->TJ_PLANO)   
		While !Eof() .And. SZA->ZA_FILIAL == xFilial("SZA") .And. SZA->ZA_OS == STJ->TJ_ORDEM .And. SZA->ZA_PLANO == STJ->TJ_PLANO      
			RecLock("SZA", .F.)     
			DbDelete()     
			MsUnlock("SZA")     
			DbSelectArea("SZA")     
			DbSkip()   
		End
	EndIf   
	
Return .T.