Nesse vídeo demonstraremos a utilização da função GetNextAlias, que serve para buscar o próximo alias disponível para uso.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe280
Classe para criar uma tabela temporária (enquanto a thread estiver aberta a tabela ficará disponível no SQL)
@type Function
@author Atilio
@since 21/02/2023
@see https://centraldeatendimento.totvs.com/hc/pt-br/articles/360052238313-Cross-Segmentos-TOTVS-Backoffice-Linha-Protheus-ADVPL-Onde-%C3%A9-feito-o-controle-sequencial-da-fun%C3%A7%C3%A3o-GetNextAlias
@obs
Função GetNextAlias
Parâmetros
Função não tem parâmetros
Retorno
Retorna o código do próximo alias disponível
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe280()
Local aArea := FWGetArea()
Local oTempTable
Local aFields := {}
Local cAliasTmp := GetNextAlias()
//Cria a temporária
oTempTable := FWTemporaryTable():New(cAliasTmp)
//Adiciona no array das colunas as que serão incluidas (Nome do Campo, Tipo do Campo, Tamanho, Decimais)
aAdd(aFields, {"CODIGO", "C", 6, 0})
aAdd(aFields, {"NOME", "C", 50, 0})
aAdd(aFields, {"VALOR", "N", 8, 2})
aAdd(aFields, {"EMISSAO", "D", 8, 0})
//Define as colunas usadas
oTempTable:SetFields( aFields )
//Cria índice com colunas setadas anteriormente
oTempTable:AddIndex("1", {"CODIGO", "NOME"} )
//Efetua a criação da tabela
oTempTable:Create()
//Exibe o alias da tabela
FWAlertInfo("O alias da tabela é " + cAliasTmp, "Teste GetNextAlias")
//Exclui a temporária
oTempTable:Delete()
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
