PC Toledo

Obrigado Marcos,

Mas pelo que estive analisando, o arquivo em questão (CAD) não pode ser indexado, pois ele tem que gravar os registros na ordem em que são inseridos.

Obrigado pessoal pelas sugestões.

Vou tentar implementar algumas delas e depois informo o resultado.

Olá,

Apenas informando que já tentei colocar essa função de validação de registro duplicado nesses dois locais.

@ 250,30 BROWSE BROWSE_1 ;
width 800 ;
height 170 ;
HEADERS { ' S ','Item' , 'Exame', 'Descricao do Exame', 'Codigo AMB' , 'Data Coleta' , 'Preco em R$','Prazo','Medicam ...

Olá,

Já fiz isso também e não funcionou.

Valida Existe( cChave )
nRecNo := RecNo()
lEncontrou := dbSeek ....
GOTO (nRecNo)
RETURN lEncontrou

Analisando as possibilidades, acho que não é possível fazer essa verificação, pois eu estou usando o browse pra editar o próprio arquivo DBF, e não ...

Bom dia Marcelo,

Já utilizei o SEEK, porém não funcionou, o browse simplesmente congela. A entrada de dados é feita diretamente pelo browse e no DBF como se fosse uma planilha do Excel ou quando vc edita diretamente um DBF através de um gerenciador.
Não estou conseguindo validar a entrada do ...

Bom dia José Quintas,

Obrigado pela ajuda.
Fiz um pouco diferente e acebei retirando a função busc_exa.

Esse sistema não foi desenvolvido por mim, apenas dou manutenção no mesmo, e existem algumas alterações um pouco mais complicadas, como essa da restrição de cadastro duplicados. Vou aguardar que ...

Bom dia.

Gostaria de saber como fazer para evitar que itens sejam duplicados no Browse. Quando vc digita um código em uma linha e na linha de baixa digita o mesmo código. Preciso evitar que o usuário possa digitar dois códigos repetidos.

Segue o programa.


@ 250,30 BROWSE BROWSE_1 ;
width 800 ...

Bom dia pessoal,

Preciso que seja utilizada a tecla ENTER para selecionar um registro no TBrowse, mas não achei nenhum método para isso.
Atualmente é utilizado o método double click (dblclick).

Segue a parte do código fonte.

DEFINE TBROWSE Browse_1 AT 80,20 alias "PAC" OF WIN_1 ;
WIDTH 925 ...