Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

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

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

Os nossos membros postaram um total de 47 mensagens em 24 assuntos

Erro no retorno do Focu no controle

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

Resolvido Erro no retorno do Focu no controle

Mensagem por Nelson Arcas em 17/3/2010, 15:07

Pessoal, boa tarde

Tenho um campo textbox que efetua uma validação caso seja positiva essa validação ele passa para o proximo campo quando não ele gera uma mensagem e continua no mesmo lugar, estou gerando a mensagem informando que um codigo não foi localizado porem ele está indo para o próximo campo. Tentei utilizar o comando Set Focus para retornar, mas está gerando erro. Na versão 2.5 utilizava o comando _curobj=m.matricula e retornava para o campo normalmente.
Exemplo do código que estou tentando utilizar.
Código:

IF !SEEK(THISFORM.TXT_MATRICULA.VALUE,'CADFUNC')
      WAIT WINDOW 'Funcionário não localizado'
      this.setfocus
ENDIF
avatar
Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Erro no retorno do Focu no controle

Mensagem por Marcos Guedes em 17/3/2010, 16:38

qual a mensagem de erro?

_________________
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: Erro no retorno do Focu no controle

Mensagem por alceu11 em 17/3/2010, 17:33

Nelson
Voce esta usando metodo valid de textbox, se sim coloque , return .F.
ao inves do setfocus.....

*********************
Ou tente este codigo!!

usando o indexseek , veja a sintaxe

NO EVENTO VALID DO seu TEXTBOX


INDEXSEEK(expressão, lSeMovePoteiro, alias, chave de indice)

Então supondo que você tenha uma tabela chamada clientes.dbf e nesta tabela tenha o campo CODIGO, e você cria um indice chamado INDICE1 cuja expressão é o campo CODIGO, o comando ficaria assim:

INDEXSEEK(this.value, .F., "cliente", "indice1")

Os parâmetros são:
1 - this.value = é o valor a ser pesquisado, no caso o código que acabou de ser digitado
2 - .F. = significa para não mover o ponteiro da tabela, isto evitará que o registro seja salvo se voê usa buffer de linha.
3 - "cliente" = é a sua tabela dbf
4 - é o nome da sua chave de índice
****************
Código:

**************************************
NO EVENTO VALID DO seu TEXTBOX


No evento VALID do campo que o cliente digitou o RAZAO SOCIAL, você já pode verificar se nao  existir vc nao deixa pular de campo sem dar setfocus


set notify off

IF empty(ALLTRIM(.txtRAZAO.value))
=messagebox('Nome preenchimento Obrigatorio',48+0+0,'Atencao')

return .F.
ENDIF


wrazao=thisform.txtrazao.value
 IF !INDEXSEEK(alltrim(wrazao), .F., "cliente", "sua chave de índice")
messagebox('cliente nao tem cadastro,48)
return .f.
ENDIF

ENDIF
nao esqueca de estar com no init do seu form
set nofify off


avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Erro no retorno do Focu no controle

Mensagem por Nelson Arcas em 18/3/2010, 09:00

Alceu, valeu

Funcionou utilizei da seguinte forma, pois estava gerando uma mensagem "Invalid Input"
Código:

IF !SEEK(THISFORM.TXT_MATRICULA.VALUE,'CADFUNC')
      WAIT WINDOW 'Funcionário não localizado'
      Return (0)
ENDIF
avatar
Nelson Arcas
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Erro no retorno do Focu no controle

Mensagem por alceu11 em 18/3/2010, 09:17

invald input
é pq tu tens que colocar set notify off,
antes desta da validacao

e depoi tu quiser manter
set notfy on

Nelson a rotina a cima que postei e para valdar nao deixar criar duplicidade, e nao quebrar a chave primaria ou candidate.......pode usar eu garanto, so tire "!" do indexseek(
eu estou de barba branca de tanto usar isto........
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Erro no retorno do Focu no controle

Mensagem por Nelson Arcas em 18/3/2010, 10:37

Tranquilo coloquei "set notfy on" e funcinou
cheers
avatar
Nelson Arcas
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