Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Ajuda a direcionar
8/12/2016, 01:17 por miiiih

» Alterar uma palavra num arquivo de texto
5/12/2016, 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6964 usuários registrados
O último usuário registrado atende pelo nome de Ricardo Cassolatto

Os nossos membros postaram um total de 17119 mensagens em 2577 assuntos

Montar arvore genealogica

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

Resolvido Montar arvore genealogica

Mensagem por Julio em 15/4/2010, 14:15

Boa tarde pessoal

Tenho uma tabela que guarda os nomes do filho, pai e mae. (Tabela_A)

Tenho que montar em uma outra tabela a arvore genealogica.(Tabela_B)

Para montar a Tabela_B, faço da seguinte forma:

É informado um nome em um textbox, ao gravar tenho uma rotina que le a tabela_A e procura os respectivos pais, indo gravar na tabela_B, o nome do filho, do pai e mae, mas preciso verificar na tabela_A se o pai tem pai e mae se tiver pega o pai e mae e coloca na tabela_B sendo avo e avo do filho.

Consigo montar os pais da primeira geração mas os avos ja nao consigo.

select tabela_A
seek alltrim(filho)
achou o pai guardou em uma variavel = pf
achou a mae guardou em uma variavel = mf

pego a variavel pf e mando localizar na tabela_A
seek alltrim(pf)

depois faço a mesma coisa com a variavel da mf
e assim por diante ate completar a arvore ate a quinta geração.


Alguem tem alguma ideia.


julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Montar arvore genealogica

Mensagem por Marcos Guedes em 15/4/2010, 14:32

Podes postar os DBF's?
Ou o SCRIPT de criação de sua tabela?
ex.: CREATE TABLE...

??

_________________
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: Montar arvore genealogica

Mensagem por Julio em 15/4/2010, 14:56

Marcos

A tabela arvores contem os dados para leitura e a tabela arvoregs sera guardado os dados.


[Você precisa estar registrado e conectado para ver este link.]

tabela cdx
[Você precisa estar registrado e conectado para ver este link.]

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Montar arvore genealogica

Mensagem por Marcos Guedes em 15/4/2010, 15:26

Irei analisar os DBF's, e se algum colega não respoder primeiro, posto o resultado.

_________________
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: Montar arvore genealogica

Mensagem por Tales Ruan em 16/4/2010, 09:17

Hum.... este é um problema bem interessante..

Estou pensando.. voce exibiria a árvore genealógica na tela, certo?

É mesmo necessário armazená-la numa tabela?

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Montar arvore genealogica

Mensagem por Julio em 16/4/2010, 09:22

Tales

Bem fiz alguns progressos aqui, e ja consegui fazer a paternidade, estou terminando agora a parte da mãe.

Nao necessariamente precisaria esta gravado em uma tabela, mas para pesquisas futuras sim, porque no caso de se excluir um passaro do cadastro, e ele ter tido um filho nao podera ira ficar faltando , por este motivo escolhi em gravar em uma tabela.

Será visualizado no video e tambem impressa.


julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Montar arvore genealogica

Mensagem por Tales Ruan em 16/4/2010, 10:29

Hum.. então você terá uma tabela de pessoas (ou pássaros, eu acho) e uma tabela com a arvore genealógica..

Eu acho que aí, quando acontecesse qualquer alteração na filiação de uma pessoa voce teria que "recalcular" a árvore genealógica e alterar a tabela de árvore..

Outro problema.. é quando voce excluir uma pessoa.. Não sei exatamente como é o seu banco de dados, mas eu imagino que tenha mais tabelas que se relacionam com a tabela de pessoas..
Se voce exclui uma pessoa, que é a tabela mãe, vai deixar registros órfãos nas tabelas filhas, o que é triste pode acabar em inconsistências. Talvez o melhor seja apenas inativar um registro, mas você decide, é seu banco de dados, não quero me intrometer Smile

Vou ver se consigo um tempo hoje pra ver esta questão, achei bem legal, talvez dê pra fazer algo gráfico também..

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Montar arvore genealogica

Mensagem por Marcos Guedes em 16/4/2010, 10:32

Julio, o que significa isto, no campo NF:
mae-mae-mae-mae-filho
scratch

_________________
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: Montar arvore genealogica

Mensagem por Julio em 16/4/2010, 11:30

Pessoal que esta ajudando.

Para entender na verdade é para montar um arvore genealogia de passaros, estes passaros sao identificados por numero em aneis de aluminio e tem nomes.

Marcos
Na tabela arvore voce encontra o compa anilha e nomecanari que corresponde aos dados do filho, existem outros campos anilhapai/noimepai e anilhamae/nomemae. (*isto porque existem criadores que querem controlar pelo nome e nao pelo numero do anel)

Na tabela arvoregs (que e onde monto a arvore) os campos que contem a letra "N" antes significa que é o campo para guardar o nome do passaro.

Vou ver se consiguo esclarecer isto (mae-mae-mae-mae-filho)
eu gravei desta forma para conseguir identificar o que esta sendo gravado onde.
mae-mae-mae-mae-filho seria a tataravo do filho, que neste caso é por parte da mãe do filhote; mãe da mãe da mãe da mãe, porque vai ter a mae por parte do pai.

Veja se agora esclarece suas duvidas, veja a imagem

[Você precisa estar registrado e conectado para ver esta imagem.]

Apesar que ja fiz grandes progressos aqui, mas acho que poderia ser melhor o meu codigo.

PS:
O NF significa nome do Filho so que neste caso este dado se refere aos dados do tataravo, que sera utilizado no futuro, coloquei desta forma para eu indetificar.
Acho que a imagem vai ajudar bastante

Tales

Como vim do clipper e estou começando agora no VFP 9.0, nao me adaptei muito com certas coisas ainda, estou na moda antiga, nao sei lhe dizer o porque; mas nao utilizo os relacionamentos nas tabelas ( eu faço na unha) como no clipper, e tambem nao gosto de utilizar o controsource nos textbox, sei que estou errado, mas ate este momento prefiro fazer desta forma.


Tenho pegado alguns exemplos e outras coisas para ir me adaptando com esta nova forma de programar.

obrigado a todos
Julio


Última edição por Julio em 16/4/2010, 11:49, editado 1 vez(es)

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Montar arvore genealogica

Mensagem por Julio em 16/4/2010, 12:28

Pessoal

Consegui fazer aqui, acho que o codigo pode ser melhorado, so teste uma vez, mas acho que vai funcionar.
O codigo que consegui fazer foi este, caso alguem ache que pode melhora-lo agradeço.

Código:
*!* Arvore
*!* Grava e tentar montar a arvore genealogica do passaro no arquivo ARVOREGS
troca="0"
ifem="-"
  * anilha filhote
  t_teste2=str(this.txtAnelfil.value,6)
  tteste2=strtran(t_teste2," ",troca)

  ca=SUBSTR(this.txtanilha.value, 1, 1)
  IF ca="-"
      v_anilha=tteste2+this.txtAnilha.value
      v_compl=this.txtAnilha.value
      v_nomy=this.txtNomecan.value
  ELSE
      v_anilha=tteste2 + ifem +this.txtAnilha.value
      v_compl= ifem + this.txtAnilha.value
      v_nomy=this.txtNomecan.value     
  ENDIF 
  * anilha pai
  t_pai=str(this.txtAnelpai.value,6)
  ttpai=strtran(t_pai," ",troca)
  v_pai=ttpai+this.txtAnilhapai.value
  pa=SUBSTR(this.txtAnilhapai.value, 1, 1)
  IF pa="-"
      v_pa=ttpai+this.txtAnilhapai.value
      v_pac=this.txtAnilhapai.value
  ELSE
      v_pa=ttpai + ifem +this.txtAnilhapai.value
      v_pac= ifem + this.txtAnilhapai.value
  ENDIF
  * anilha mae
  t_mae=str(this.txtAnelmae.value,6)
  ttmae=strtran(t_mae," ",troca)
  v_mae=ttmae+this.txtAnilhamae.value
  ma=SUBSTR(this.txtAnilhamae.value, 1, 1)
  IF ma="-"
      v_ma=ttmae+this.txtAnilhamae.value
      v_mac=this.txtAnilhamae.value
  ELSE
      v_ma=ttmae + ifem +this.txtAnilhamae.value
      v_mac= ifem + this.txtAnilhamae.value
  ENDIF
 
  IF v_pai = "000000"
    v_pa=SPACE(40)
    v_pac=SPACE(34)
  ENDIF
 
  IF v_mae = "000000"
    v_ma=SPACE(40)
    v_mac=SPACE(34)
  ENDIF
 
SELECT arvores  &&1
SET ORDER TO ANILHA_TT  && ALLTRIM(ANILHA)
GO TOP
*Linhagem do Pai do Pai do Filho
SEEK ALLTRIM(v_pa)  &&1 pai
IF EOF()
  v_ppf=SPACE(40)    && avo
  vnppf=SPACE(30)
  v_mpf=SPACE(40)
  vnmpf=SPACE(30)
ELSE
  v_ppf=arvores.anilhapai
  vnppf=arvores.nomepai
  v_mpf=arvores.anilhamae
  vnmpf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_ppf) && avo
IF EOF()
  v_pppf=SPACE(40)  && tataravo
  vnpppf=SPACE(30)
  v_mppf=SPACE(40)
  vnmppf=SPACE(30)
ELSE
  v_pppf=arvores.anilhapai
  vnpppf=arvores.nomepai
  v_mppf=arvores.anilhamae
  vnmppf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_pppf)  &&  tataravo
IF EOF()
  v_ppppf=SPACE(40)  && trisavo = pai-tataravo
  vnppppf=SPACE(30)
  v_mpppf=SPACE(40)
  vnmpppf=SPACE(30)
ELSE
  v_ppppf=arvores.anilhapai
  vnppppf=arvores.nomepai
  v_mpppf=arvores.anilhamae
  vnmpppf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_mppf)
IF EOF()
  v_pmppf=SPACE(40)
  vnpmppf=SPACE(30)
  v_mmppf=SPACE(40)
  vnmmppf=SPACE(30)
ELSE
  v_pmppf=arvores.anilhapai
  vnpmppf=arvores.nomepai
  v_mmppf=arvores.anilhamae
  vnmmppf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_mpf)  &&3
IF EOF()
  v_pmpf=SPACE(40)
  vnpmpf=SPACE(30)
  v_mmpf=SPACE(40)
  vnmmpf=SPACE(30)
ELSE
  v_pmpf=arvores.anilhapai
  vnpmpf=arvores.nomepai
  v_mmpf=arvores.anilhamae
  vnmmpf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_pmpf)  &&6
IF EOF()
  v_ppmpf=SPACE(40)
  vnppmpf=SPACE(30)
  v_mpmpf=SPACE(40)
  vnmpmpf=SPACE(30)
ELSE
  v_ppmpf=arvores.anilhapai
  vnppmpf=arvores.nomepai
  v_mpmpf=arvores.anilhamae
  vnmpmpf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_mmpf)  &&7
IF EOF()
  v_pmmpf=SPACE(40)
  vnpmmpf=SPACE(30)
  v_mmmpf=SPACE(40)
  vnmmmpf=SPACE(30)
ELSE
  v_pmmpf=arvores.anilhapai
  vnpmmpf=arvores.nomepai
  v_mmmpf=arvores.anilhamae
  vnmmmpf=arvores.nomemae
ENDIF
******************************
* Linhagem da mae do pai do filho
SELECT arvores  &&1
SET ORDER TO ANILHA_TT  && ALLTRIM(ANILHA)
GO TOP
SEEK ALLTRIM(v_ma)  &&1 mae
IF EOF()
  v_pmf=SPACE(40)    && avo
  vnpmf=SPACE(30)
  v_mmf=SPACE(40)
  vnmmf=SPACE(30)
ELSE
  v_pmf=arvores.anilhapai
  vnpmf=arvores.nomepai
  v_mmf=arvores.anilhamae
  vnmmf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_pmf) &&2  && avo
IF EOF()
  v_ppmf=SPACE(40)  && tataravo
  vnppmf=SPACE(30)
  v_mpmf=SPACE(40)
  vnmpmf=SPACE(30)
ELSE
  v_ppmf=arvores.anilhapai
  vnppmf=arvores.nomepai
  v_mpmf=arvores.anilhamae
  vnmpmf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_ppmf)  &&4
IF EOF()
  v_pppmf=SPACE(40)
  vnpppmf=SPACE(30)
  v_mppmf=SPACE(40)
  vnmppmf=SPACE(30)
ELSE
  v_pppmf=arvores.anilhapai
  vnpppmf=arvores.nomepai
  v_mppmf=arvores.anilhamae
  vnmppmf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_mpmf)  &&5
IF EOF()
  v_pmpmf=SPACE(40)
  vnpmpmf=SPACE(30)
  v_mmpmf=SPACE(40)
  vnmmpmf=SPACE(30)
ELSE
  v_pmpmf=arvores.anilhapai
  vnpmpmf=arvores.nomepai
  v_mmpmf=arvores.anilhamae
  vnmmpmf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_mmf)  &&3
IF EOF()
  v_pmmf=SPACE(40)
  vnpmmf=SPACE(30)
  v_mmmf=SPACE(40)
  vnmmmf=SPACE(30)
ELSE
  v_pmmf=arvores.anilhapai
  vnpmmf=arvores.nomepai
  v_mmmf=arvores.anilhamae
  vnmmmf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_pmmf)  &&6
IF EOF()
  v_ppmmf=SPACE(40)
  vnppmmf=SPACE(30)
  v_mpmmf=SPACE(40)
  vnmpmmf=SPACE(30)
ELSE
  v_ppmmf=arvores.anilhapai
  vnppmmf=arvores.nomepai
  v_mpmmf=arvores.anilhamae
  vnmpmmf=arvores.nomemae
ENDIF
SELECT arvores  &&1
SET ORDER TO ANILHA_TT
GO TOP
SEEK ALLTRIM(v_mmmf)  &&7
IF EOF()
  v_pmmmf=SPACE(40)
  vnpmmmf=SPACE(30)
  v_mmmmf=SPACE(40)
  vnmmmmf=SPACE(30)
ELSE
  v_pmmmf=arvores.anilhapai
  vnpmmmf=arvores.nomepai
  v_mmmmf=arvores.anilhamae
  vnmmmmf=arvores.nomemae
ENDIF
*
SELECT arvoregs
SET ORDER TO ANILHA  && ALLTRIM(ANILHA)
GO TOP
SEEK ALLTRIM(v_anilha)
IF NOT EOF()
  *wait 'ACHOU'
  replace ppf    with v_ppf
  replace mpf    with v_mpf
  replace pppf  with v_pppf
  replace mppf  with v_mppf
  replace pmpf  with v_pmpf
  replace mmpf  with v_mmpf
  replace ppppf  with v_ppppf
  replace mpppf  with v_mpppf
  replace pmppf  with v_pmppf
  replace mmppf  with v_mmppf
  replace ppmpf  with v_ppmpf
  replace mpmpf  with v_mpmpf
  replace pmmpf  with v_pmmpf
  replace mmmpf  with v_mmmpf
  replace nppf  with vnppf  && Começa gravar os nomes
  replace nmpf  with vnmpf
  replace npppf  with vnpppf
  replace nmppf  with vnmppf
  replace nppppf with vnppppf
  replace nmpppf with vnmpppf
  replace npmppf with vnpmppf
  replace nmmppf with vnmmppf
  replace npmpf  with vnpmpf
  replace nmmpf  with vnmmpf
  replace nppmpf with vnppmpf
  replace nmpmpf with vnmpmpf
  replace npmmpf with vnpmmpf
  replace nmmmpf with vnmmmpf 
  * mae
  replace pmf      with v_pmf
  replace mmf      with v_mmf
  replace ppmf    with v_ppmf
  replace mpmf    with v_mpmf
  replace pppmf    with v_pppmf
  replace mppmf    with v_mppmf
  replace pmpmf    with v_pmpmf
  replace mmpmf    with v_mmpmf
  replace pmmf    with v_pmmf
  replace mmmf    with v_mmmf
  replace ppmmf    with v_ppmmf
  replace mpmmf    with v_mpmmf
  replace pmmmf    with v_pmmmf
  replace mmmmf    with v_mmmmf
  replace npmf    with vnpmf  && Começa gravar os nomes
  replace nmmf    with vnmmf
  replace nppmf    with vnppmf
  replace nmpmf    with vnmpmf
  replace npppmf  with vnpppmf
  replace nmppmf  with vnmppmf
  replace npmpmf  with vnpmpmf
  replace nmmpmf  with vnmmpmf
  replace npmmf    with vnpmmf
  replace nmmmf    with vnmmmf
  replace nppmmf  with vnppmmf
  replace nmpmmf  with vnmpmmf
  replace npmmmf  with vnpmmmf
  replace nmmmmf  with vnmmmmf
ELSE
  *wait 'nao achou'
  APPEND BLANK
  replace controle WITH this.txtControle.Value
  replace f        WITH v_anilha
  replace nf      WITH v_nomy
  replace pf      WITH v_pa
  replace mf      WITH v_ma
  replace ppf      with v_ppf
  replace mpf      with v_mpf
  replace pppf    with v_pppf
  replace mppf    with v_mppf
  replace pmpf    with v_pmpf
  replace mmpf    with v_mmpf
  replace ppppf    with v_ppppf
  replace mpppf    with v_mpppf
  replace pmppf    with v_pmppf
  replace mmppf    with v_mmppf
  replace ppmpf    with v_ppmpf
  replace mpmpf    with v_mpmpf
  replace pmmpf    with v_pmmpf
  replace mmmpf    with v_mmmpf
  replace nppf    with vnppf  && Começa gravar os nomes
  replace nmpf    with vnmpf
  replace npppf    with vnpppf
  replace nmppf    with vnmppf
  replace nppppf  with vnppppf
  replace nmpppf  with vnmpppf
  replace npmppf  with vnpmppf
  replace nmmppf  with vnmmppf
  replace npmpf    with vnpmpf
  replace nmmpf    with vnmmpf
  replace nppmpf  with vnppmpf
  replace nmpmpf  with vnmpmpf
  replace npmmpf  with vnpmmpf
  replace nmmmpf  with vnmmmpf
  * mae
  replace pmf      with v_pmf
  replace mmf      with v_mmf
  replace ppmf    with v_ppmf
  replace mpmf    with v_mpmf
  replace pppmf    with v_pppmf
  replace mppmf    with v_mppmf
  replace pmpmf    with v_pmpmf
  replace mmpmf    with v_mmpmf
  replace pmmf    with v_pmmf
  replace mmmf    with v_mmmf
  replace ppmmf    with v_ppmmf
  replace mpmmf    with v_mpmmf
  replace pmmmf    with v_pmmmf
  replace mmmmf    with v_mmmmf
  replace npmf    with vnpmf  && Começa gravar os nomes
  replace nmmf    with vnmmf
  replace nppmf    with vnppmf
  replace nmpmf    with vnmpmf
  replace npppmf  with vnpppmf
  replace nmppmf  with vnmppmf
  replace npmpmf  with vnpmpmf
  replace nmmpmf  with vnmmpmf
  replace npmmf    with vnpmmf
  replace nmmmf    with vnmmmf
  replace nppmmf  with vnppmmf
  replace nmpmmf  with vnmpmmf
  replace npmmmf  with vnpmmmf
  replace nmmmmf  with vnmmmmf
  replace npf      with Thisform.txtNomepai.value
  replace nmf      with Thisform.txtNomemae.value
ENDIF

Mais uma vez muito obrigado a todos quie dispuserem do seu tempo para me ajudar.

Bom final de semana!, Abraços

Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Montar arvore genealogica

Mensagem por Marcos Guedes em 16/5/2010, 12:33

Boa, Julio!
Obrigado por compartilhar a solução!

[TÓPICO BLOQUEADO - Problema solucionado!]

Qualquer dúvida, abrir outro tópico.

_________________
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: Montar arvore genealogica

Mensagem por Conteúdo patrocinado Hoje à(s) 17:22


Conteúdo patrocinado


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