Nesse vídeo demonstraremos a utilização das funções IndexKey e IndexOrd, que servem para retornar informações dos índices utilizados.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe305
Retorna o dados de um índice do Protheus
@type Function
@author Atilio
@since 22/02/2023
@see https://tdn.totvs.com/display/tec/IndexKey e https://tdn.totvs.com/display/tec/IndexOrd
@obs
Função IndexKey
Parâmetros
+ nOrdem , Numérico , Número do Índice do Alias sendo que a partir da letra A no configurador passa a ser 10 (então B é 11, C é 12, D é 13 e assim por diante)
Retorno
+ cRet , Caractere , Conteúdo do índice com os campos
Função IndexOrd
Parâmetros
Não possui parâmetros
Retorno
+ nOrd , Numérico , Número do Índice do Alias sendo que a partir da letra A no configurador passa a ser 10 (então B é 11, C é 12, D é 13 e assim por diante)
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe305()
Local aArea := FWGetArea()
Local cMensagem := ""
//Abre a tabela de produtos e posiciona num índice
DbSelectArea("SB1")
SB1->(DbSetOrder(5))
//Monta a mensagem e exibe
cMensagem := "Cadastro de Produtos" + CRLF + CRLF
cMensagem += "O índice numérico é: " + cValToChar(SB1->(IndexOrd())) + CRLF
cMensagem += "E a chave do índice é: " + SB1->(IndexKey(IndexOrd())) + CRLF
FWAlertInfo(cMensagem, "Teste IndexKey e IndexOrd")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
