Histórico da Página

#Include "Protheus.ch"

User Function AF125GTL()

	Local cNota  := ""
	Local cCodSol := ""

    cCodSol := SNM->NM_CODIGO
    cNota   := '1234'

    DbSelectArea("SNM")
    SNM->(DbSetOrder(1))
    SNM->(DbSeek(xFilial("SNM")+cCodSol))

    While SNM->(!EOF()) .And. xFilial( "SNM" ) == SNM->NM_FILIAL .And. cCodSol == SNM->NM_CODIGO
        RecLock("SNM",.F.)
        SNM->NM_NOTA := cNota
        SNM->(MsUnlock())
        SNM->(DbSkip())
    EndDo

Retur