Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite excluir registro de uma tabela específica na rotina de Retorno (MNTA400)

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

MNTA400

Retorno

Rotina(s) envolvida(s)

Nome Técnico

MNT40014

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 Retorno (MNTA400) que permite excluir registros de uma tabela específica 

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Retorno de O.S./Retorno

Programa Fonte:

MNTA400.prx

Função:

MNT40014()

Retorno:


.T.


 

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

User Function MNT40014()

	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
			    
				If SZA->ZA_PROD == STL->TL_CODIGO	 
					RecLock("SZA", .F.)	 
					DbDelete()	 
					MsUnlock("SZA")       
				EndIf	       
				
				DbSelectArea("SZA")       
				DbSkip()    
			End
	EndIf   
	
Return .T.