Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 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
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

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: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Estatísticas
Temos 7037 usuários registrados
O último usuário registrado atende pelo nome de GETULIO

Os nossos membros postaram um total de 31 mensagens em 17 assuntos

Como localizar registro em mais de 02 tabelas?

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

Resolvido Como localizar registro em mais de 02 tabelas?

Mensagem por Linghston em 1/3/2012, 11:14

Ola amigos,
Preciso criar um procedimento onde a rotina deve fazer o seguinte:

1º) Pesquisar se o contato que o usuário esta digitando (neste caso seria um código) já foi cadastrado na tabela CONTATOS, se foi a rotina emite uma mensagem e sai.
2ª) Se o contato não foi cadastrado na tabela contatos, a rotina passa para frente e pesquisa se este contato existe na tabela APROVADOS, se o contato não existir na tabela aprovado a rotina emiti uma mensagem e sai. Caso contrario vai para o próximo passo.
3º) Se o contato existir na tabela APROVADOS ela libera o usuário para prosseguir o cadastramento deste contato na tabela CONTATOS.

Estou trabalho com IF e ENDF, porem não estou conseguindo, alguem poderia me ajudar?
Abaixo a rotina que criei.

Obrigado.

Close All
Close Databases
Set Exclusive Off
Set Safety Off

With Thisform
*PRIMEIRO PASSO
* Pesquisar se o contato que o usuário esta digitando (neste caso seria um código)
* já foi cadastrado na tabela CONTATOS, se foi a rotina emite uma mensagem e sai.
Open Database \\124.12.123.431\clientes\siclin\bdados.Dbc
Set Defa To \\124.12.123.431\clientes\siclin\tabelas\
Use contatos
Set Filter To codforn =m.fornec And mesa =m.mesa
Loca=1
If Loca=1
Locate For codforn =m.fornec And mesa =m.mesa
If .Not.Found()
Messagebox('Ok pode cadastrar contato',16+0+0,'Atenção:')

*SEGUNDO PASSO
*Se o contato não foi cadastrado na tabela contatos, a rotina passa para frente e pesquisa
* se este contato existe na tabela APROVADOS, se o contato não existir na tabela aprovado
* a rotina emiti uma mensagem e sai. Caso contrario vai para o próximo passo.
Use \\124.12.123.431\clientes\siclin\tabelas\nomeforn
Loca=1
If Loca=1
Locate For fornec = m.fornec
.txtnomefornec.Value = Nome
ELSE
Messagebox('Contato não aprovado.',16+0+0,'Atenção:')
*TERCEIRO PASSO
* Se o contato existir na tabela APROVADOS ela libera o usuário para
* prosseguir o cadastramento deste contato na tabela CONTATOS.

Endif
Endif
Endif
Endwith
avatar
Linghston
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Como localizar registro em mais de 02 tabelas?

Mensagem por Linghston em 1/3/2012, 14:42

Amigos boa tarde,

Consegui resolver este problema com a rotina que criei abaixo, mas se alguém tiver mais algum ideia poste para podemos compartilhar e melhor este post.
Abraços


Close All
Close Databases
Set Exclusive Off
Set Safety Off

With Thisform
Open Database bdados.Dbc
Set Defa To tabelas\
Use contatos
Set Filter To codforn =m.fornec
Loca=1
If Loca=1
Locate For codforn =m.fornec
If .Not.Found()
Messagebox('Pode cadastrar o contato.',64+0+0,'Atenção:')
ELSE
Messagebox('Contato ja cadastrado.',16+0+0,'Atenção:')
.text1.value =1 (COLOQUEI ESTE FLAG)
thisform.Release
CLOSE ALL
endif
ENDIF

IF .text1.value <>1
Open Database \bdados.Dbc
Set Defa To tabelas\
Use aprovados
Set Filter To fornec =m.fornec
Loca=1
If Loca=1
Locate For fornec =m.fornec
If .Not.Found()
Messagebox('Fornecedor Inexistente.',16+0+0,'Atenção:')
thisform.Release
ELSE
CLOSE ALL
endif
ENDIF
endif
Endwith
avatar
Linghston
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