Ponto de entrada responsável por gravar campos específicos da tabela SD4 (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

MNTA420S

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), responsável por gravar campos específicos da tabela SD4

Localização:

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

Programa Fonte:

MNTA420.prx

Função:

MNTA420S()

Parâmetros: 
NomeTipoDescrição
ParamIXBArrayCampos já gravados na tabela SD4

Retorno:


.T.


 



#INCLUDE "PROTHEUS.CH"

User Function MNTA420S()

	Local nI := 0
	Local aAreaAtual := ""
	Local aLPSD4 := {}

	aLPSD4 := aClone(ParamIXB)

	aAreaAtual := SD4->(GetArea())

	DbSelectArea("SD4")
	DbSetOrder(1)

	For nI := 1 To Len(aLPSD4)

		If DbSeek(xFilial("SD4") + aLPSD4[nI] + (aLPSD4[nI] + "OS001"))

			While xFilial("SD4") == SD4->D4_FILIAL .And. SD4->D4_COD == aLPSD4[nI][1] .And. AllTrim(SD4->D4_OP) == (aLPSD4[nI][2] + "OS001")

			If SD4->D4_QUANT == aLPSD4[nI][3]

				RecLock("SD4", .F.)

				SD4->D4_CODAEN := aLPSD4[nI][4]

				SD4->(MsUnlock())

			EndIf

			DbSelectArea("SD4")
			DbSkip()

			End

		EndIf

	Next nI

	RestArea(aAreaAtual)

Return .T.