Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
20 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 19 Visitantes :: 2 Motores de busca

ronaldo_jf@hotmail.com

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

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

Os nossos membros postaram um total de 49 mensagens em 26 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