Nesse vídeo demonstraremos a utilização da função ExistCpo, que valida se uma chave de registro existe em outra tabela, ideal para validar por exemplo, se o usuário esta digitando um código válido de cliente, produto, fornecedor, etc em algum relatório ou tela.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe158
Verifica se a chave dos campos existe em outra tabela
@type Function
@author Atilio
@since 18/12/2022
@see https://tdn.totvs.com/pages/viewpage.action?pageId=24346640
@obs
Função ExistCpo
Parâmetros
+ Alias , Caractere , Nome da tabela a ser verificada
+ Expressao , Caractere , Conteúdo dos campos a ser verificado
+ Indice , Numérico , Número do índice a ser verificado
Retorno
Retorna .T. se já existir ou .F. se o registro não existir
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe158()
Local aArea := FWGetArea()
Local cCodigo := "C00001"
Local cLoja := "01"
//Verifica se já existe na tabela essa informação
If ExistCpo("SA1", cCodigo + cLoja, 1)
FWAlertSuccess("Cliente verificado com sucesso!", "Teste ExistCpo")
Else
FWAlertError("Cliente não encontrado!", "Teste ExistCpo")
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
