Como Usar a Função ExistChav no ADVPL

Tempo de leitura: 1 minuto

Olá, no post de hoje iremos aprender como usar a função ExistChav no ADVPL. Elá é uma das funções de validação no ADVPL. A função ExistChav verifica se o conteúdo especificado existe no arquivo de dados.

Sintaxe:

ExistChav(cAlias,cExpr,nInd,cHelp)

Parâmetro(s):

Retorno:

Dica:

As funções ExistChav e ExistCpo tem algumas semelhanças. Porém, enquanto que a função ExistChav verifica uma chave única, ou seja, verifica se um código já existe no próprio arquivo de dados que está sendo manipulado, a função ExistCpo verifica uma chave estrangeira, ou seja, verifica se um código existe em outro arquivo de dados.

Exemplo da função ExistChav no ADVPL:

#include 'protheus.ch'
#include "tbiconn.ch"

/*{Protheus.doc} User Function User Function PExisChv()
 
    @author Adilio Costa
    @since 103/10/2023
    @version 12.1.2210
    @site https://www.protheusadvpl.com.br
    @canal https://www.youtube.com/protheusadvpl
    @instagram https://www.instagram.com/protheusadvpl
    @Portal ProtheusAdvpl:https://hotmart.com/pt-br/marketplace/produtos/portal-protheusadvpl/O10336806O
    @Post:Como Usar a Função ExistChav no ADVPL
*/

User Function PExisChv()

	Local cAlias := "SA2"
	Local cCod := "000001"
	Local cLoja := "01"
	Local cExpr := cCod+cLoja
	Local cInd := 1

	DBSelectArea(cAlias)
	DBSetOrder(1)
	If(ExistChav(cAlias,cExpr,cInd))
		MsgInfo("Já existe um fornecedor cadastrado com esse código e loja!")
	Else
		MsgInfo("Fornecedor cadastrado com sucesso....")
	EndIf

Return

Bem, finalizamos mais um post aqui no blog. Espero que você tenha entendido, qualquer dúvida nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Grande abraço e fica com Deus.

Links de referência(s):