Arquivos deletados contiuam aparecendo

[Julio]

Bom Dia Pessoal

Registros marcados para deleção na tabela DBF contiua aparecendo no formulario quando é aberto.

No inicio.prg tenho varios comando e um dele é SET DELETED ON, para nao mostrar registros deletados.
Neste mesmo form tenho nop metodo INIT os seguintes comandos

Código:

SET TALK OFF
SET ECHO OFF
SET DELETED ON
SET NOTIFY OFF

mas mesmo assim quando abro o form o registro deletado aparece.


julio

[Marcos Guedes]

Tens certezas que estais abrindo a tabela certa?
Ou estarias apontando para uma outra tabela com mesmo nome, mas diretórios diferentes?

[Julio]

Marcos

A tabela esta correta.

Este registro é o primeiro da tabela e o usuário o deletou.

julio

[Marcos Guedes]

Tens como postar um exemplo?

Quando você abre o form, e fecha-o novamente, os arquivos desaparecem?
Caso desapareça, então está faltando um refresh no grid, em seu form.

[hugo]

julio

vc nao quer que o usuario consiga deletar ou nao quer que
se veja o que foi deletado?

se o problema ta chato faz assim
na hora que der o comando de mostrar os registros, uma linha antes
de o set dele on

dai nao tem como dar pau

se ainda ta dando mando o codigo pra galera que eles arruma pra voce

valeu!

[Julio]

Hugo

O usuário pode deletar o registro, o que não quero é que fique sendo visualizado no formulario.

Ja coloquei SET DELETED ON antes de mostrar
Julio

[Julio]

Marcos

Se clicar no botão proximo o registro desaparece. mas se fechar o form e abrir novamente ele aparece.

[Julio]

O INIT do meu form esta assim:

Código:

*!* INIT
SET TALK OFF
SET ECHO OFF
SET DELETED ON
SET NOTIFY OFF

if not dodefault()
  return .F.
endif

Thisform.ativarcampos  && Mostro os campos com registros
Thisform.Extracampo  && Habilito alguns campos conforme necessidade
*!* Define a configuração inicial
*!* para todos os controles
Thisform.coordenacampos("D")

*!* Define a configuração inicial
*!* para os botões
Thisform.coordenabotoes("PADRAO")


[alceu11]

Código:


CLOSE DATABASES all
SET DELETED ON

CREATE TABLE pp (nome_logr1 c(50), logr c(10),OOPSO c(1))
SELECT pp
INSERT INTO pp( nome_logr1,logr ,OOPSO) VALUES ('ABRASIL', 'AV','1')
INSERT INTO pp( nome_logr1,logr,OOPSO) VALUES ('PERUCHE', 'AV','1')
INSERT INTO pp( nome_logr1,logr,OOPSO) VALUES ('Fabia', 'AV','1')
INSERT INTO pp (nome_logr1,logr,OOPSO) VALUES ('BRASIL', 'TRAV','1')
INSERT INTO pp (nome_logr1,logr,OOPSO) VALUES ('FF', 'ALAMEDA','1')
INSERT INTO pp ( nome_logr1,logr,OOPSO) VALUES ('BRASILIA', 'AV','1')
INSERT INTO pp( nome_logr1,logr,OOPSO) VALUES ('Farias', 'TRAV','1')
INSERT INTO pp (nome_logr1,logr,OOPSO) VALUES ('BRASILINA', 'ALAMEDA','1')
SELECT pp
GO TOP
BROWSE NORMAL TITLE 'mostro os dados na tabela'
SKIP 2
 =cursorsetprop("buffering",3)
DELETE IN pp
IF TABLEUPDATE(.t.,.t.,'pp')
WAIT WINDOW 'dados gravados com sucesso ' TIMEOUT 2
ELSE
WAIT WINDOW 'dados nao gravados' TIMEOUT 2
ENDIF

SKIP -1
BROWSE NORMAL TITLE 'mosto o registro 2 av.fabia nao existe mais'
SET DELETED OFF
BROWSE NORMAL TITLE ' com set dele off visivel o registro excluido'


veja o codigo e teste

Se vc usa buffer modo no seu form baseado na sua classe basica de formularios e os textbox estao viunculados a tabela no form.
sempre que deletar um registro , faca o tableupdate() , conforme fiz aqui no exemplo ilustrativo!!, apesar que como vejo seu codigo esta usando a classe, isto ja deve estar no botao "excluir " da sua classe, se nao pegue isto na apostila caminho das pedras. que esta postado aqui no forum

[Marcos Guedes]

Como estais preenchendo o Grid?

[Julio]

Meu metodo ATIVARCAMPOS, é quando mostro os registros nos campos.

Código:

 Thisform.limpacampos
 SELECT cadastro
SETE DELETED ON
 Thisform.label23.Caption    = anilha
 Thisform.txtAnilhageral.value=anilha
 Thisform.txtControle.value  = controle
 Thisform.txtAnilha.value    = nrocompl
 Thisform.txtAnelfil.Value  = anelso
...
...
...


Não coloquei tudo para nao ficar enorme.
No INIT vem para este metodo.

Marcos

Não utilizo grid. So tem campos Textbox.

No ControlSource do textbox, não esta vinculado nada.

julio

[Tales Ruan]

Seu formulário está usando buffer?

[Nelson Arcas]

Julio
Não seria o comando que está errado.

SETE DELETED ON

O correto não seria

Código:


set deleted on


[Julio]

Nelson

Digitei errado la em cima e nao consegui editar.

Mas o comando utilizado ja verifiquei esta certo

SET DELETED ON

julio

[Julio]

O formulario utiliza BUUFERMODE = 2-Optimistic e a tabela esta BUFFERMODEOVERRIDE = 3 - Optimistic Row Buffering