recursividade

[fxavierds]

Galear aqui estou eu de novo precisando de ajuda...
tenho uma tabela como se fosse um plano de contas
Campo1 -> codigo da conta
Campo2 -> codigo da conta superior


Quero fazer algo assim
while !eof()
mcampo := campo1
pegaconta(campo1)
skip
Enddo

funcao pegaconta(super)
seek (super) // procura os registro que campo2 = super
While campo2 = super
pegaconta(campo2)
Enddo

Como faço para que ele retorne na posicao que estava antes de chamar pegaconta???

[billy1943]

Simples, meu caro Watson,

Antes de você sair para dar seek em algum arquivo, o que vai mudar completamente a posição do ponteiro do arquivo que está sendo pesquisado, guarde em uma ou mais variáveis de memória a posição do registro atual, assim:

Ex;
.....
select carquivo
set order to ...
go top

do while ! eof()

nposicao := recno()
nordem := indexord() // caso tenha de trocar de índice para a procura

set order to ... // setar o novo índice
seek ...... // chave interna de procura dentro do mesmo arquivo

if ! eof()
tratamento ..... // fazer todo o processamento necessário
endif

go nposicao // volta à posição do ponteiro
set order to nordem //( caso tenha trocado de índice para o tratamento desejado)
dbskip() // avança para o próximo registro pelo índice inicial

enddo

[Vagner Almeida]

bom dia a todos,

caso eu esteja em um arquivo .dbf, e sem sair dele, preciso pesquisar o campo de um outro arquivo .dbf.

Exemplo: estou no arquivo A.dbf (cadastro de um processo), sendo que o primeiro campo, eu preciso pesquisar e informar através do SAY o nome de um cliente que está em outro arquivo b.dbf (Cadastro de cliente).
eu escrevi, não fechar o arquivo A, pois logo em seguida, o restante dos campos serão todos referentes a este arquivo.
não sei se me expliquei direito.

grato
vagner almeida

[anacatacombs]

Acho que vc esta falando a respeito de relacionamentos.
Por exemplo:
Banco de dados de clientes: CLIENTE.DBF
cl_codi : Codigo do cliente
cl_vend: Codigo do vendedor
cl_raza : Razao social do cliente

Banco de dados de vendedor : VENDEDOR.DBF
ve_codi : codigo do vendedor
ve_nome : nome do vendedor

vc faz o relacionamento da seguinte forma, considerando que os bancos já estão abertos:

Código: Selecionar todos

SELECT Cliente
bla bla bla bla
// aqui vc coloca seu codigo
SELECT Vendedor
SET ORDER TO 1 // que seria a ordem do codigo do vendedor
SEEK Cliente->CL_VEND // aqui vc esta procurando o codigo do vendedor do cadastro de clientes no banco de dados de vendedor
IF FOUND() // se achou o registro
   @ 10,10 say STRZERO(Cliente->cl_vend,5)+"-"+alltrim(Vendedor->ve_nome)
ENDIF
SELECT Cliente // Retorna o select anterior.

Deu pra pegar o espírito da coisa?

[]'s

Ana

[jelias]

Amiguinho,

Não sei se entendi corretamente, mais você não precisa fechar um arquivo para que possa realizar uma pesquisa em um campo em outro banco de dados.
Você pode fazer isso da seguinte forma:
sele 1
use fornecedor index fornecedor1,fornecedor2,fornecedor3 SHARED ALIAS AL_FORNE

sele 2
use cidades index cidades1,cidades2 SHARED ALIAS AL_CIDAD

Quando estiver incluindo um fornecedor e desejar confirmar no cadastro da cidade por exemplo, posso fazer da seguinte forma:


sele AL_CIDAD
DBSETORDER(1)
DBSEEK(chave)

sele AL_FORNE
DBAPPEND()
repl ...
repl...
repl...
repl...
repl cidade with AL_CIDAD->nomecidade
DBCOMMIT()
DBUNlOCK()

Sds,
Júlio.

[asimoes]

Olá,

Pode tentar assim:

Código: Selecionar todos

select dbfpri
set order to x
dbgotop()
do while !eof()
   nPosRecno:=Recno()
   for i:=1 to fcount()
      if fieldname(i) $ "CAMPO1|CAMPO2"
         cCampo:=fieldget(i)
         pegaconta(cCampo)   
      endif
   next
   go nPosRecno
   dbskip() 
enddo

function pegaconta(cCampo)
dbseek(cCampo,.t.)
if found()
   ... faz alguma coisa 
endif
return nil

[alxsts]

Olá!

Creio que o material já postado pelos colegas é suficiente para esclarecer as dúvidas do OP.
Penso que o título do tópico induz o leitor a pensar em uma coisa e, ao abri-lo, percebe que o assunto é outro. Recursividade é realmente um assunto vasto. Achei um artigo (o link segue abaixo) que diz “A recursividade na programação de computadores envolve a definição de uma função que pode invocar a si própria.”
Se alguém se interessar, acesse http://pt.wikipedia.org/wiki/Recursivid ... %C3%A3o%29

[Pablo César]

Até agora o autor não se pronunciu, mas acho muito estranho ele estar utilizando recursividade onde não deveria haver. Isso gera um loop infinito. E nesse caso não tem lógica !