GetAdvFval - Execução de pesquisa em arquivo

Função: GetAdvFval - Execução de pesquisa em arquivo

Abrangências:	Microsiga Protheus 11 , Protheus 10
Nível de Acesso:	Nível 1 (Acesso Clientes)

Descrição:

Esta função executa uma pesquisa em um arquivo, pela chave especificada e ordem especificada, retornando o conteúdo de um ou mais campos.

Programa Fonte:

APLIB190.PRW

Sintaxe:

GetAdvFval - Execução de pesquisa em arquivo ( cKeyAliasuCpo [ uChave ] [ nOrder ] [ uDef ] [ lUseDef ] ) --> uRet

Retorno:

uRet

Retorna o conteúdo de um campo ou array com o conteúdo de vários campos.

Observações

Exemplos

#include "protheus.ch"       #include "tbiconn.ch"User Function TstGetADV()Local cChave                   Local cDesc  Local aDados := {}PREPARE ENVIRONMENT EMPRESA "01" FILIAL "01" MODULO "FAT"       DbSelectArea("SA1")DbSelectArea("SC5")// Obtendo apenas de um campo:cDesc := GetAdvFVal("SA1","A1_TIPO",xFilial("SA1")+C5_CLIENTE+C5_LOJACLI,1,"Erro")       MsgAlert("Tipo de cliente ("+cDEsc+") cadastrado para o pedido:" + SC5->C5_NUM)// Obtendo o conteudo de mais de um campo:aDados := GetAdvFVal("SA1", { "A1_NOME", "A1_END", "A1_BAIRRO", "A1_CEP", "A1_MUN", "A1_EST", "A1_CGC", "A1_CEINSS", "A1_PESSOA" }, xFilial("SA1")+C5_CLIENTE+C5_LOJACLI, 1, { "", "", "", "", "", "", "", "", "" })  Varinfo('aDados', aDados)Return

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

cKeyAlias

Caracter

Alias do arquivo.

X

uCpo

Array of Record

Nome de um campo ou array contendo os nomes dos campos desejados.

X

uChave

Array of Record

Chave para pesquisa.

nOrder

Array of Record

Ordem do índice para pesquisa.

uDef

Array of Record

Valor ou array "default" para ser retornado caso a chave não seja encontrada.

lUseDef

Array of Record

Se .T. retorna o valor definido em uDef caso o registro não seja encontrado.

.F.

Atalhos

Páginas filhas