Auxílio Para Criar Uma Formular Que Traga O Valor Da Bolsa No Classis

[Kelin Fulber]

Boa tarde pessoal,

Preciso criar uma formula que traga o valor da bolsa no módulo classis para que o valor apareça no momento da contabilização por diferimento contábil.

Tenho o evento contábil para isso, então a ideia é fixar o numero das contas contábeis, pois elas são bolsas de outro sacado preenchido, por isso não consigo usar percentual no evento por ter outro sacado preenchido e preciso usar fórmula para essas linhas de bolsa.

Criei um sql para verificar se o codcfo é is not null e então tratar para trazer o valor da bolsa que esta em percentual para valor.

sql:

select SBOLSA.CODBOLSA AS CODBOLSA

from SBOLSA, SBOLSALAN

where SBOLSA.CODBOLSA = SBOLSALAN.CODBOLSA

AND SBOLSA.CODCFO IS NOT NULL

na formula uso o resultsql:

Na fórmula:

Se (RESULTSQL ('EBVALORBOLSA' , 'CODBOLSA') <> ' ' ENTAO

Traz o valor da bolsa de percentual em valor

Tem como trazer este valor usando as formulas dos classis??

Se alguém puder de me ajudar agradeço muito. abs Kelin

[Frederico]

Kelin,

Já tentou utilizar a opção TABBOLSALAN ('VALOR','') ?

Ele retorna Bolsa do Totvs Educacional.

[Kelin Fulber]

Frederico, dá erro na compilação, não reconhece a função lá no classis

[Frederico]

Kelin,

Mas qual versão está usando ? É a nova MDI ?

[Kelin Fulber]

eu tava usando a mdi delphi, pois não encontrei o cadastro de formulas na nova, sabe onde fica?

[Frederico]

Kelin,

Está em serviços globais, ou você pode ir na lateral direita e clicar em executar e digitar Fórmula.

[Kelin Fulber]

Frederico,

Fui lá nos globais e tentei salvar a formula:

Se (RESULTSQL ('EBVALORBOLSA' , 'CODBOLSA')) <> '' ENTAO

TABBOLSALAN ('VALOR','')

senao

0.00

fimse

Só que apresentou este erro:

Erro de compilação da fórmula Testing na linha 2!

'TABBOLSALAN' is not declared. It may be inaccessible due to its protection level.

parece que não existe esta função ou precisa declarar alguma coisa...

[Frederico]

Kelin,

Estranho pois utilizo isso em fórmula sem fazer declaração

SE TABLAN('CODTB3FLX','S') = '0397'

ENTAO

TABBOLSALAN ('VALOR','')

SENAO

0

FIMSE