Histórico da Página

GetAdvFVal - Execução de pesquisa em arquivo ( < cKeyAlias>, < uCpo>, [ uChave], [ nOrder], [ uDef] ) --> uRet

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

#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")// Exemplo de uso da funcao GetAdvFVal:// Obtendo apenas de um campo://cDesc := GetAdvFVal("SB1","B1_DESC",cChave,1,SC6->C6_DESCRI)    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