Nesse vídeo demonstraremos a utilização das funções PesqPict e X3Picture, que servem para buscar a máscara de um campo conforme o dicionário de dados.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe385
Realiza a conversão de uma string feita pelo Soma1 (sequencial entre números e caracteres) para o tipo numérico (igual a DecodeSoma1)
@type Function
@author Atilio
@since 28/03/2023
@see https://tdn.totvs.com/pages/releaseview.action?pageId=6815019
@obs 
    Função PesqPict
    Parâmetros
        Alias da Tabela
        Nome do Campo
    Retorno
        Máscara encontrada

    Função X3Picture
    Parâmetros
        + cCampo , Caractere     , Nome do Campo
    Retorno
        + cRet   , Caractere     , Máscara encontrada

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

User Function zExe385()
    Local aArea      := FWGetArea()
    Local cMascara   := ""

    //Busca a picture do campo
    cMascara := PesqPict("SA1", "A1_CEP")
    FWAlertInfo("A mascara encontrada foi '" + cMascara + "'", "Teste PesqPict")

    //Busca a picture do campo
    cMascara := X3Picture("A1_LC")
    FWAlertInfo("A mascara encontrada foi '" + cMascara + "'", "Teste X3Picture")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++