Ola
Gostaria de parabeniza-lo pelo novo forum Toledo!.
Estou precisando do fonte do DBEDIT.PRG que vem junto com o clipper52e.
Urgente!
andrilsp1@ig.com.br
Preciso do DBEDIT.PRG do clipper52e!
Moderador: Moderadores
Re: Preciso do DBEDIT.PRG do clipper52e!
Ola,
Bem pessoal eu pensei que tivesse o fonte do DBEDIT assim como o ERROSYS.PRG e etc. pois precisava colocar uma atualização no Dbedit para que a tela em outro terminal seja atualizada assim que cadastro um novo registro no meu terminal ( como return 2 constante ). Consegui fazer com o TBROWSE porém algumas UDFS que desenvolvi não puderam serem aproveitadas.
Mesmo assim muito obrigado!
Bem pessoal eu pensei que tivesse o fonte do DBEDIT assim como o ERROSYS.PRG e etc. pois precisava colocar uma atualização no Dbedit para que a tela em outro terminal seja atualizada assim que cadastro um novo registro no meu terminal ( como return 2 constante ). Consegui fazer com o TBROWSE porém algumas UDFS que desenvolvi não puderam serem aproveitadas.
Mesmo assim muito obrigado!
Clipper 5.2e / Blinker 5.1 / Harbour 3.2 / GTwvg
Re: Preciso do DBEDIT.PRG do clipper52e!
Uma ideia! gere um execultavel so com a funcao do dbedit depois decompile este execultavel vc tera o o fonte do bdedit
-
Jorge Adourian
- Usuário Nível 2
- Mensagens: 95
- Registrado em: 05 Jul 2004 23:38
- Localização: São Paulo-SP-Brasil
- Contato:
-
rochinha
- Administrador
- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Amiguinho
Acho que vai depender da forma como voce esta usando o DBEDIT e suas funções de tratamento de teclas.
Por padrão, em se tratando de trabalho em rede, onde dois terminais estão com o mesmo .DBF aberto, ou seja, um cadastra e outro consulta(em um browse/dbedit) é de prache que a atualização seja automática.
O DBEDIT recebe em um parâmetro a chamada a uma função e esta mesma nunca deve prender a atenção do DBEDIT por muito tempo, exemplo:
...
DBEDIT(01,01,24,79,aCampos,'MinhaUDF')
...
FUNCTION MinhaUDF
parameters modo,ponteiro
@ 24,02 say time() // Fica apresentando o tempo enquanto dentro do DBEDIT
TECLA := LASTKEY()
DO CASE
CASE TECLA = T_TAB
retorno = 0
CASE TECLA = 13
... // Codigo qualquer
retorno = 2
CASE TECLA = 22 .or. (TECLA = 24 .AND. EOF())
... // Codigo qualquer
retorno = 2
OTHERWISE
retorno = 1 // Sempre devera existir retorno para não travar o DBEDIT
ENDCASE
return(retorno)
Esta função recebe o foco de atenção do DBEDIT executa o que esta programado e devolve o foco ao mesmo.
Então se estiver trabalhando em rede e suas telas não são atualizadas on-line verifique os caminhos de seus .DBFs e indices.
@braços :?)
Acho que vai depender da forma como voce esta usando o DBEDIT e suas funções de tratamento de teclas.
Por padrão, em se tratando de trabalho em rede, onde dois terminais estão com o mesmo .DBF aberto, ou seja, um cadastra e outro consulta(em um browse/dbedit) é de prache que a atualização seja automática.
O DBEDIT recebe em um parâmetro a chamada a uma função e esta mesma nunca deve prender a atenção do DBEDIT por muito tempo, exemplo:
...
DBEDIT(01,01,24,79,aCampos,'MinhaUDF')
...
FUNCTION MinhaUDF
parameters modo,ponteiro
@ 24,02 say time() // Fica apresentando o tempo enquanto dentro do DBEDIT
TECLA := LASTKEY()
DO CASE
CASE TECLA = T_TAB
retorno = 0
CASE TECLA = 13
... // Codigo qualquer
retorno = 2
CASE TECLA = 22 .or. (TECLA = 24 .AND. EOF())
... // Codigo qualquer
retorno = 2
OTHERWISE
retorno = 1 // Sempre devera existir retorno para não travar o DBEDIT
ENDCASE
return(retorno)
Esta função recebe o foco de atenção do DBEDIT executa o que esta programado e devolve o foco ao mesmo.
Então se estiver trabalhando em rede e suas telas não são atualizadas on-line verifique os caminhos de seus .DBFs e indices.
@braços :?)