Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
6 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 6 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Estatísticas
Temos 6987 usuários registrados
O último usuário registrado atende pelo nome de Alexsander Leal

Os nossos membros postaram um total de 3 mensagens em 1 assuntos

como criar um Array?

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido como criar um Array?

Mensagem por henriquexande106 em 11/9/2010, 21:45

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!!!

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 11/9/2010, 21:56

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 ?


Última edição por marcelofazan em 11/9/2010, 22:00, editado 1 vez(es)

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por henriquexande106 em 11/9/2010, 22:00

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

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 11/9/2010, 22:02

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

Voce esta montado um sistemas multi empresas ?

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por henriquexande106 em 11/9/2010, 22:09

Sim...Utilizo arquivos DBF.

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 11/9/2010, 22:12

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 =] Razz

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

]??/


Última edição por marcelofazan em 11/9/2010, 22:17, editado 1 vez(es)

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por henriquexande106 em 11/9/2010, 22:17

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.


henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 11/9/2010, 22:20

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 ?


m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por Marcos Guedes em 11/9/2010, 22:28

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')

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por henriquexande106 em 11/9/2010, 22:49

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

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 11/9/2010, 22:52

scater to memvar
m.empresa
?

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por henriquexande106 em 11/9/2010, 22:55

O ERRO QUE DÁ É:

"function argument value, type or count is invalid"

henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 11/9/2010, 23:00

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
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 11/9/2010, 23:03

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
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 11/9/2010, 23:19

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

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por lardecristo em 12/9/2010, 08:44

Para você criar um array é desta forma

Código:
DIMENSION LNEmpr[1]

Agora no seu caso ela deve ser redimensionada ou criada após o seu SELECT

Código:
SELECT.....o seu código

DIMENSION LNEmpr[RECCOUNT()]

Feito isso é só usar o comando FOR para o preenchimento da mesma.

Código:
FOR lnX = 1 to RECCOUNT()
      LNEmpr[lnX]
NEXT

Obs.: Um array pode ser redimensionada dinamicamente sem perda dos dados anteriores.

Código:
DIMENSION laTeste[1]
laTeste[1] = "Ops."
MESSAGEBOX(laTeste[1])
DIMENSION laTeste[4]
MESSAGEBOX(laTeste[1])

Outra coisa o código que o Marcos passou, deveria resolver o seu problema, faça um teste que e veja o resultado.

lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por Marcos Guedes em 12/9/2010, 13:00

Outra alternativa, já que pretendes trabalhar com um array preenchido dinamicamente é utilizar a classe Collection.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por m@r<3|o em 13/9/2010, 02:58

segue um exemplo achei em forums
1 prg somente apertar Run

Clique aqui para baixar o arquivo!

m@r<3|o
Participante Assíduo
Participante Assíduo


Voltar ao Topo Ir em baixo

Resolvido Resolvido

Mensagem por henriquexande106 em 14/9/2010, 23:23

Amigos esta resolvido, segue o código utilizado..

Código:
&& Declarei a variável e inicializei-as com " "

PUBLIC ARRAY Empresa[99] as Character

empresa[1] = " "
empresa[2] = " "
empresa[3] = " "
empresa[4] = " "
empresa[5] = " "
empresa[6] = " "
empresa[7] = " "
empresa[8] = " "
  .
  .
  .

&& Selecionai a tabela de empresas para fazer a contagem de quantas empresas eu tinha cadastrada.


SELECT COUNT(*) AS TotEmpr FROM TABPLAN INTO CURSOR tmpempr
I = TotEmpr


&& Criei um For para alimentar o meu vetor

SELECT TABPLAN
GO TOP
FOR EmpCount = 1 TO I
    lcempr1      = ALLTRIM(STR(empcount))
    Lcempr2      = "Empresa["+lcempr1+"]"
   &lcempr2    = NOME_EMPR  && Aqui utilizei macro substituição
   SKIP
ENDFOR


henriquexande106
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Resolvido Re: como criar um Array?

Mensagem por lardecristo em 15/9/2010, 01:45

Olá Henrique, você leu os códigos que foram expostos acima?
Para alimentar o array, você não precisa de macro-substituição.

Abraços,



lardecristo
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum