Olá pessoal…
Hoje vou mostrar como acessar a tabela de Motivos de Baixa Financeiro utilizando uma User Function.
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.