Acessando a tabela de Motivos de Baixa Financeiro via AdvPL

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

Esses e outros códigos, estão disponíveis gratuitamente no nosso GitHub, acesse em github.com/dan-atilio/AdvPL.

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

About Dan_Atilio

Analista e desenvolvedor de sistemas. Técnico em Informática pelo CTI da Unesp. Graduado em Banco de Dados pela Fatec Bauru. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor do projeto Terminal de Informação, onde são postados tutoriais e notícias envolvendo o mundo da tecnologia.

Deixe uma resposta

%d blogueiros gostam disto: