Criação de "arrays" nas formulas do RM Labore

[Rick]

Boa tarde galera,

estou desenvolvendo algumas formulas no RM Labore e preciso saber se existe uma forma de o sistema trabalhar com "arrays", criando matrizes de vetores que armazenem temporariamente os dados e eu consiga trabalhar em cima disso...

Por exemplo:

eu tenho os dados

João

Ana

Rodrigo

Santos

Antonio

vou precisar criar uma matriz que armazene esses dados e quando eu for buscá-los eu os encontre pelos campos que o recerem.

Tipo:

1 - João

2 - Ana

3 - Rodrigo

4 - Santos

5 - Antonio

me traga o campo 4

imprime = Santos

porque vou trabalhar com o comando "REPITA ATÉ" e quando existem inconsistencias na sequencia ele retorna erro, por isso quero trabalhar com vetores.

[Frederico]

Rick,

O que necessariamente você está precisando, poderia exemplificar melhor pois as vezes você consegue tal resultado via SQL.

[]'s

[Rick]

Rick,

O que necessariamente você está precisando, poderia exemplificar melhor pois as vezes você consegue tal resultado via SQL.

[]'s

Então Frederico, perdão quanto a demora em responder, mas o que eu preciso, tentando simplificar é fazer com que o sistema leia um campo chamado "NRODEPEND" da tabela de dependentes, sem dar erro.

Porque quando essa numeração está em ordem o sistem lê normalmente, ex. quando eu tenho 3 dependentes, 1, 2 e 3 o sistema lê normal, utilizando a minha formula, mas quando a numeração não está em ordem, ex. 1, 2 e 4. o sistema retorna um erro.

[Rick]

Então Frederico, perdão quanto a demora em responder, mas o que eu preciso, tentando simplificar é fazer com que o sistema leia um campo chamado "NRODEPEND" da tabela de dependentes, sem dar erro.

Porque quando essa numeração está em ordem o sistem lê normalmente, ex. quando eu tenho 3 dependentes, 1, 2 e 3 o sistema lê normal, utilizando a minha formula, mas quando a numeração não está em ordem, ex. 1, 2 e 4. o sistema retorna um erro.

Boa tarde Frederico, estive pensando e talvez eu consiga realmente agilizar as coisas pelo SQL, mas não sou um programador nato, vc teria alguma idéia pra me ajudar?

[Rick]

Rick,

O que necessariamente você está precisando, poderia exemplificar melhor pois as vezes você consegue tal resultado via SQL.

[]'s

Boa tarde, tudo blz?

gostaria de seu apoio para trazer esses dados via sql, você poderia me ajudar?

[Frederico]

Boa tarde, tudo blz?

gostaria de seu apoio para trazer esses dados via sql, você poderia me ajudar?

Claro que posso te ajudar, você tem a consulta SQL montada?

[]'s

[Rick]

Bom dia Frederico, tenho sim a consulta montada.

Mas creio que ela não está totalmente adequada..

SELECT COUNT(INCDEFINIVEIS) FROM PFDEPEND

WHERE CHAPA=:FRM_CHAPA AND INCDEFINIVEIS='*' AND CODCOLIGADA = :FRM_CODCOLIG

e abaixo uma das formulas....

DECL QTDEPEND, DEP, VALOR, TABODO;

EXECSQL('TST00');

SETVAR(QTDEPEND,RESULTSQL('TST00','QTDE'));

SETVAR(DEP,1);

SETVAR(VALOR,0);

SETVAR(TABODO,TABCOMPL ('UNIODONTO' , 'V'));

Se TABODO >= 2 E TABODO <= 8

ENTAO

REPITA

SE INCDEP(DEP,1)=1

ENTAO

SETVAR(VALOR,VALOR+T('0027',TABODO));

SALVAVALDEP(DEP,T('0027',TABODO))

SENAO

SETVAR(VALOR,VALOR+0)

FIMSE;

SETVAR(DEP, DEP+1) ATE DEP=QTDEPEND+1;

SALVAVALDEP(0,T('0027',TABODO));

T('0027',TABODO)+VALOR

SENAO 0 FIMSE