MNTA420S - Ponto de entrada para gravar campos da tabela SD4

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][1] + (aLPSD4[nI][2] + "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.