Nesse vídeo demonstraremos a utilização das funções X2Unique2Index e GetSx2Unico, que servem para buscar a informação da chave de registro único da tabela.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe538
Busca a informação de registro único da tabela (X2_UNICO)
@type Function
@author Atilio
@since 07/04/2023
@obs 

    Função GetSX2Unico
    Parâmetros
        Recebe o alias da tabela que será analisada
    Retorno
        Retorna a chave de registro único

    Função X2Unique2Index
    Parâmetros
        Recebe o alias da tabela que será analisada
    Retorno
        Retorna a chave de registro único

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe538()
    Local aArea      := FWGetArea()
    Local cTabela    := ""
    Local cChaveUni  := ""

    //Busca a informação de chave única
    cTabela   := "SE2"
    cChaveUni := GetSX2Unico(cTabela)
    ShowLog("GetSX2Unico: Para a tabela '" + cTabela + "' a chave é '" + cChaveUni + "'")

    //Efetua a busca novamente com outra função
    cTabela   := "SE1"
    cChaveUni := X2Unique2Index(cTabela)
    ShowLog("X2Unique2Index: Para a tabela '" + cTabela + "' a chave é '" + cChaveUni + "'")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++