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.

Tags: AdvPLMaratonaProtheusTL++