A função aScan() é usada para procurar um valor específico em um array e retorna o índice do elemento correspondente ou zero se não for encontrado. Aqui está um exemplo simples de como usar a função aScan() em ADVPL:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
User Function MT120FIM() Local aArea := GetArea() Local aAreaC7 := SC7->(GetArea()) Local nOpcao := PARAMIXB[1] Local nOpcA := PARAMIXB[3] Local nPosItem := aScan(aHeader,{|x| AllTrim(x[2]) == "C7_ITEM"}) Local nPosQtde := aScan(aHeader,{|x| AllTrim(x[2]) == "C7_QUANT"}) Local nPosVlr := aScan(aHeader,{|x| AllTrim(x[2]) == "C7_PRECO"}) Local nPosIPI := aScan(aHeader,{|x| AllTrim(x[2]) == "C7_VALIPI"}) //Coloque aqui o que deseja fazer RestArea(aAreaC7) RestArea(aArea) Return |
Neste exemplo, recebemos um array “aHeader” com campos do dicionário de dados da tabela SC7. Em seguida, usamos a função aScan() para procurar os valores dos nomes dos campos e armazenar o índice do elemento correspondente nas variáveis “nPos…”.
Se o valor não for encontrado, aScan() retorna zero e exibe uma mensagem de erro. Se o valor for encontrado, aScan() retorna o índice do elemento correspondente e exibe uma mensagem informando o índice encontrado.
Fernando Bueno
Consultor em FBSOLUTIONS
Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In