Posicione

Reading time: 1 minute

 

A função Posicione retorna o conteúdo de um campo(SX3) de um registro de uma tabela(SX2) especificado através de uma chave de busca. Ela é uma das Funções do Dicionário de Dados do Protheus em ADVPL.

Sintaxe:

Posicione(cAlias,nOrdem,cExpr,cCampo,cNickName)

 

Parâmetro(s):

 

Retorno:

 

 

Exemplo da função Posicione em ADVPL

#include 'protheus.ch'
#Include "tbiconn.ch"
/*{Protheus.doc} User Function PAPosici
    (Essa função tem por finalidade mostrar a função do Dicionário de Dados Posicione em ADVPL)
    @type  Function
    @author Adilio Costa
    @since 14/12/2023
    @version Protheus 12.1.2210
@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do ProtheusAdvpl:
https://hotmart.com/pt-br/club/protheusadvpl
|Se esse conteúdo foi útil pra você nos ajude divulgando 
ele e nossas redes sociais!!|
*/

*/
User Function PAPosici()
	Local cAlias := "SA2"
    Local nOrdem := 1
    Local cCodFor := "000001"
    Local cLojaFor := "01"
    //Informo o nome do campo em que queremos obter o conteúdo
    Local cCampo := "A2_NOME"
    Local cNomeFor:=""
    
    PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01'
	
    cNomeFor := Posicione(cAlias,nOrdem,xFilial("SA2")+cCodFor+cLojaFor,cCampo)
    
    MsgInfo("O nome do fornecedor é:"+cNomeFor,"Função Posicione")


	

Return

No código ADVPL acima nós passamos para a função Posicione o alias(tabela) “SA2“(fornecedores), a ordem do índice(nOrdem=1), a chave de busca(xFilial(“SA2“)+cCodFor+cLojaFor) e o campo(“A2_NOME“) que desejamos obter o conteúdo e ao final a função Posicione retorna o conteúdo “PROTHEUSADVPL“(conteúdo de “A2_NOME“) e atribui esse conteúdo à variável cNomeFor:

 

 

 

É isso aí, finalizamos mais um post aqui no Blog ProtheusAdvpl, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Até um próximo post. Grande abraço e fica com Deus.

 

Link(s) de referência:

Receba as últimas atualizações do ProtheusAdvpl
Deixe seu melhor email
Nós respeitamos sua privacidade.