Perguntas Proximo numero documento de saída

Obrigado pela ajuda, mas estou com outra duvida, como atualizar o numero da sx5, fiz assim:
a Duvida é se não existe um função tipo getxnum que pegue reserve e depois atualize a sx5

DbSelectArea("SX5")
DbSetOrder(1)
If DbSeek(xFilial("SX5")+"01"+cSerie)

cNumero :=SX5->X5_DESCRI
cNovonum := val(cNumero)
cNovonum += 1
cNovonum := PADL(cNovonum,9,"0")

RecLock("SX5",.F.)

SX5->X5_DESCRI := cNovonum
SX5->X5_DESCSPA := cNovonum
SX5->X5_DESCENG := cNovonum

MsUnlock()

EndIF