Nesse vídeo demonstraremos a utilização das funções ChkCPF e CNPJ para validar um número de CPF ou de CNPJ respectivamente.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe081
Exemplo de como validar CPF e CNPJ
@type Function
@author Atilio
@since 09/12/2022
@obs 
    Função ChkCPF
    Parâmetros
        + Código do CPF a ser validado
    Retorno
        + .T. se a composição do CPF estiver válida ou .F. se não estiver

    Função CNPJ
    Parâmetros
        + Código do CNPJ a ser validado
    Retorno
        + .T. se a composição do CNPJ estiver válida ou .F. se não estiver


    Para realizar os testes, foi utilizado os sites https://www.geradordecpf.org/ e https://www.4devs.com.br/gerador_de_cnpj


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

User Function zExe081()
    Local aArea     := FWGetArea()
    Local cCPF_1    := "744.249.744-64"
    Local cCNPJ_1   := "50.195.033/0001-02"
    Local cCPF_2    := "123.456.789-01"
    Local cCNPJ_2   := "12.345.678/9012-34"

    //Retira os caracteres especiais das 4 strings
    cCPF_1  := StrTran(cCPF_1 , ".", "")
    cCPF_1  := StrTran(cCPF_1 , "-", "")
    cCPF_1  := StrTran(cCPF_1 , "/", "")
    cCPF_2  := StrTran(cCPF_2 , ".", "")
    cCPF_2  := StrTran(cCPF_2 , "-", "")
    cCPF_2  := StrTran(cCPF_2 , "/", "")
    cCNPJ_1 := StrTran(cCNPJ_1, ".", "")
    cCNPJ_1 := StrTran(cCNPJ_1, "-", "")
    cCNPJ_1 := StrTran(cCNPJ_1, "/", "")
    cCNPJ_2 := StrTran(cCNPJ_2, ".", "")
    cCNPJ_2 := StrTran(cCNPJ_2, "-", "")
    cCNPJ_2 := StrTran(cCNPJ_2, "/", "")



    //Faz um teste se o CPF é válido
    If ChkCPF(cCPF_1)
        FWAlertSuccess("O CPF '" + cCPF_1 + "' é válido!", "Teste CPF 1")
    Else
        FWAlertError("O CPF '" + cCPF_1 + "' é inválido!", "Teste CPF 1")
    EndIf



    //Faz um teste se o CPF é válido
    If ChkCPF(cCPF_2)
        FWAlertSuccess("O CPF '" + cCPF_2 + "' é válido!", "Teste CPF 2")
    Else
        FWAlertError("O CPF '" + cCPF_2 + "' é inválido!", "Teste CPF 2")
    EndIf



    //Faz um teste se o CNPJ é válido
    If CNPJ(cCNPJ_1)
        FWAlertSuccess("O CNPJ '" + cCNPJ_1 + "' é válido!", "Teste CNPJ 1")
    Else
        FWAlertError("O CNPJ '" + cCNPJ_1 + "' é inválido!", "Teste CNPJ 1")
    EndIf



    //Faz um teste se o CNPJ é válido
    If CNPJ(cCNPJ_2)
        FWAlertSuccess("O CNPJ '" + cCNPJ_2 + "' é válido!", "Teste CNPJ 2")
    Else
        FWAlertError("O CNPJ '" + cCNPJ_2 + "' é inválido!", "Teste CNPJ 2")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++