Acessando a tabela de Motivos de Baixa Financeiro via AdvPL

Olá pessoal…

Hoje vou mostrar como acessar a tabela de Motivos de Baixa Financeiro utilizando uma User Function.

Motivos de Baixa

Motivos de Baixa

Os Motivos de Baixa Financeiro no Protheus, não ficam salvos em uma tabela no SQL, e para acessá-los, utilizamos a função ReadMotBx(), essa rotina retorna um array com todos os motivos de baixa cadastrados, porém as colunas ficam separadas por um caracter especial (que é o ³), então além de pegar a primeira vez, é necessário quebrar o array novamente com a função StrTokArr() para que possamos verificar os dados da tabela de Motivos de Baixa.

Abaixo o código desenvolvido para exemplificar (após utilizar o StrTokArr, basta manipular o array – por exemplo, o aBaixaAtu).

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zMotBaixa
Função que exemplifica como acessar os motivos de baixa financeiro
@type function
@author Atilio
@since 07/05/2016
@version 1.0
/*/

User Function zMotBaixa()
	Local aArea     := GetArea()
	Local aMotBx    := {}
	Local aBaixaAtu := {}
	
	//Pegando os motivos de baixa
	aMotBx := ReadMotBx()
	
	//Quebrando a primeira posição do Motivo de Baixas
	//  Abaixo as posições do motivo de baixas
	//  [1] -> Sigla
	//  [2] -> Descrição
	//  [3] -> Movimentação Bancária
	//  [4] -> Comissão
	//  [5] -> Carteira
	//  [6] -> Cheque
	aBaixaAtu := StrTokArr(aMotBx[1], '³')
	
	RestArea(aArea)
Return

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Dan Atilio (Daniel Atilio)
Especialista em Engenharia de Software pela FIB. Entusiasta de soluções Open Source. E blogueiro nas horas vagas.

Deixe uma resposta