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:
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):
