Nesse vídeo demonstraremos a utilização da função NextNumero, que serve para buscar o próximo número sequencial de uma tabela.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe367
Retorna o próximo número disponível na tabela
@type Function
@author Atilio
@since 27/03/2023
@see https://tdn.totvs.com/pages/releaseview.action?pageId=6814928
@obs
Função NextNumero
Parâmetros
+ cAlias , Caractere , Alias da Tabela
+ nOrdem , Numérico , Índice utilizado
+ cNomeCpo , Caractere , Nome do campo a ser verificado
+ lSomar , Lógico , .T. se irá incrementar ou .F. se não
+ cVar , Caractere , Valor a ser pesquisado caso o lSomar seja .F.
Retorno
+ cNumero , Caractere , Retorna o número conforme os parâmetros informados
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe367()
Local aArea := FWGetArea()
Local cProximo := ""
//Busca o próximo pedido de compra
cProximo := NextNumero("SC7", 1, "C7_NUM", .T.)
//Exibe em uma mensagem
FWAlertInfo("O próximo pedido de compra é '" + cProximo + "'", "Teste NextNumero")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
