como criar um Array?

[henriquexande106]

Amigos boa noite,

Estou precisando trabalhar com vetor ou array para preencher umas variáveis.

tenho uma tabela de empresas onde eu verifico quantas empresas que eu tenho (posso ter até 99)

Código:

SELECT COUNT(*) AS LNContEmp FROM EMPRESAS
I = LNContEmpr

Onde depois eu preciso preencher as variáveis (LNEmp1, LNEmp2, LNEmp3, LNEmp4...até , LNEmpI onde I é a quantidade de empresas que eu tenho.

e Sei que vou precisar fazer um FOR para poder preencher as minhas variáveis LNEmp1 atéLNEmpI

Código:

Select nome_empr from EMPRESA
FOR

ENDFOR

Como eu faço? Como que eu tenho que declarar avariável?
Desde Já Agradeço!!!

[m@r<3|o]

amigo nao entendi o que precisa ,
o banco array usando DBC ?

voce quer consultar as coisas de cada empresa e esta montando uma variavel para as 99 ?

vc esta com DBF ou DBC ?

[henriquexande106]

O que eu preciso é preencher as minhas variáveis LNEmp1, LNEmp2 até LNEmpI, onde "I" é a minha quantidade de empresas.

[m@r<3|o]

entendo ....
mais se voce estiver usando DBF te falo o simples de como é o mesmo

Voce esta montado um sistemas multi empresas ?

[henriquexande106]

Sim...Utilizo arquivos DBF.

[m@r<3|o]

tambem faço DBF

esse comandos voce quer o resultado do tanto de empresas cadastradas com uma condicao ?
seria isso ?

Código:

SELECT COUNT(*) AS LNContEmp FROM EMPRESAS

Quando usamos DBF dificilmente falamos array é busca mesmo traducao do Seek =]

count conta pra adquirir um resultado
for voce faz estrutura de repeticao numa tabela
e para voce buscar multiempresas necessita criar indices compostos nas tabelas

indice ( empresa + cliente )
indice ( empresa + fornecedor )
esta fazendo assim

]??/

[henriquexande106]

Não...isso eu já tenho....

Código:

SELECT COUNT(*) AS LNContEmp FROM EMPRESAS
I = LNContEmp

Ex: Se houver 5 empresas cadastradas I = 5. OK

Ai eu tenho que preencher as minhas variáves que na verdade é um vetor.

[m@r<3|o]

voce quer que apareça

empresa 1
empresa 2
empresa 3
empresa 4
empresa 5

ou

que apareca 5 ??? num label ?

exatamente o q faz sua rotina em modo visual de execucao ?
lista ? soma ? consulta ? para aparecer numero 5 ou cinco registros ?


voce tem que ter um select antes desse para continuar fazer o que quer essa linha somente somente corresponde ao numero 5 ?

[Marcos Guedes]

henrique veja se este exemplo lhe ajuda:

Código:

CLEAR

CREATE CURSOR teste(campo1 c(30), campo2 c(30), sequencia i(4) AUTOINC )
INSERT INTO teste(campo1, campo2) VALUES ('primeiro1', 'primeiro2')
INSERT INTO teste(campo1, campo2) VALUES ('segundo1', 'segundo2')
INSERT INTO teste(campo1, campo2) VALUES ('terceiro1', 'terceiro2')
INSERT INTO teste(campo1, campo2) VALUES ('quarto1', 'quarto2')
INSERT INTO teste(campo1, campo2) VALUES ('quinto1', 'quinto2')

SELECT campo1, campo2 FROM teste INTO ARRAY array1


FOR m.i=1 TO _TALLY
   ?m.array1[m.i,1]
   ??m.array1[m.i,2]
ENDFOR

SELECT campo1, campo2 FROM teste WHERE sequencia<=3 INTO ARRAY array2

?
?
FOR m.i=1 TO _TALLY
   ?m.array2[m.i,1]
   ??m.array2[m.i,2]
ENDFOR

RELEASE m.array1
RELEASE m.array2
USE IN SELECT('teste')

[henriquexande106]

Não...
Seria mais ou menos isso..

Código:

SELECT COUNT(*) AS LNContEmp FROM EMPRESAS
I = LNContEmpr

SELECT NOME_EMPR FROM EMPRESA INTO CURSOR TMPEMPRESA
GO TOP
FOR X 1 TO I
  EMPRESA[X] = NOME_EMPR
  SELECT TMPEMPRESA
  SKIP
ENDFOR

SÓ QUE QUANDO CHEGA NA LINHA EMPRESA[X] = NOME_EMPRESA DÁ ERRO
E EU NÃO SEI COMO DECLARAR A VARIAVEL EMPRESA

[m@r<3|o]

scater to memvar
m.empresa
?

[henriquexande106]

O ERRO QUE DÁ É:

"function argument value, type or count is invalid"

[m@r<3|o]

ai é tenta por int str val , vai depender como criou na tabela se é numerico integer caracter ...

amigo tem como voce usar

for to reccount
to procurando e te colo
somente qq estrutura de repeticao faz isso
ate select where mais ...

[m@r<3|o]

tenta algo assim

Código:

SELECT cadrecmov1.rec_parc, cadrecmov1.rec_dtpgto, cadped.ped_qtdadp, cadped.ped_status ;
FROM cadrecmov1;
WHERE cadrecmov1.rec_cod = thisformset.form1.txtped_cod.value AND cadrecmov1.rec_dtpgto # CTOD('');
INTO CURSOR cadlista
       
sele cadlista
FOR n = 1 TO RECCOUNT()
IF cadped.ped_qtdadp = n 
   replace cadped.ped_status WITH "F"
ENDIF
        ENDFOR

a ordem saca :

1 seleciona
2 conta
3 realiza a contagem selecionada dentro da repeticao

saco mano
Abralçosss

[m@r<3|o]

só que ainda achei mto dificil teria como fazer bem mais facil
tirando que para mostrar dados como nome de empresa etc seria melhor usar somente select ou do while .... acho que o for serve mais para numericos