Nesse vídeo demonstraremos a utilização da função FTipPessoa, que serve para buscar o tipo da pessoa (física ou jurídica) do cadastro de clientes (SA1) ou de fornecedores (SA2).

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe197
Função que retorna o tipo de pessoa se é fisica ou juridica do Cliente ou Fornecedor
@type Function
@author Atilio
@since 11/02/2023
@obs 
    Função FTipPessoa
    Parâmetros
        + Tipo que deseja validar 2=Clientes ; 1=Fornecedores
        + Código e Loja de pesquisa na tabela de cliente ou fornecedor dependendo do cTipo
    Retorno
        + Retorna o tipo de pessoa se é física ou jurídica

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

User Function zExe197()
    Local aArea     := FWGetArea()
    Local cTipo     := "2"
    Local cChave    := "C0000101" //A1_COD + A1_LOJA
    Local cRetorno  := ""

    //Montando uma mensagem que será exibida
    cRetorno := FTipPessoa(cTipo, cChave)
    FWAlertInfo("O tipo de pessoa é: " + cRetorno, "Teste FTipPessoa")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima

Tags: AdvPLMaratonaProtheusTL++