Como usar Função Posicione() AdvPL ERP Protheus

Neste artigo vamos entender melhor como funciona a função Posicione() do advPL Totvs ERP Protheus. Uma alternativa é a função GetAdvFVal() que particularmente eu prefiro.

Essa função é utilizada para buscar uma informação para exibir na tela, atribuir a uma variável para impressão num relatório entre outras utilizações, como gatilhos e exibição em campo virtual.

Sintaxe: POSICIONE(<cAlias>, <nOrdem>, <cChave>, <cCampo>)

<cAlias> : Define o alias do arquivo cujo campo terá o seu conteúdo retornado.
<nOrdem>: Define o índice que será utilizado para a pesquisa. Informa-se a ordem do índice.
 <cChave>: Chave de pesquisa utilizada para se encontrar o registro do qual o conteúdo de um determinado campo será retornado.
<cCampo> :  Define o nome do campo cujo conteúdo será retornado.

 

#include "Protheus.ch"

/*-------------------------------------------------------------------------------------------*
	{Protheus.doc} User Function FPOSIC
    ()   
    @type: 		User Function
    @author: 	Jose Moura
    @site: 		https://academiaproerp.com
    @desc.: 	RDMAKE para pegar o MUNICIPIO, conforme o Estado e codigo
				Usando a função Posicione() 

 *-------------------------------------------------------------------------------------------*/

User Function FPOSIC()
Local aArea     := GetArea()
Local aAreaCC2  := CC2->(GetArea())
Local cCod 		:= '56958' //56958-VITORIA BRASIL                                              
Local cUF 		:= 'SP'
Local cMun		:= ''

cMun := Posicione('CC2',1,xFilial('CC2')+cUF+cCod,'CC2_MUN')
MsgAlert('Mostrar o Municipio: ' + cMun + CRLF + 'de código: '+ cCod,'Atenção!')

RestArea(aArea)
RestArea(aAreaCC2)

Return

Moura

Analista de sistemas, programador com mais de 18 anos de experiência no sistema Totvs Protheus, administrador, suporte e customizações, idealizador da Academia ProERP, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.