Olá pessoal…

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

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.

Tags: AdvPL