Arquivos deletados contiuam aparecendo

[Julio]

Relembrando a primeira mensagem :

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

[Julio]

Marcelo

De uma olhada no form que postei, tenho alguns vicios em trazer sempre algum codigo do clipper para o VFP sei que nao precisa, mas estou alterando aos poucos, quando o form esta funcionando eu não altero e deixo como esta. Mas os novos estou tentando programar da forma correta passad aqui pelos colegas.
Sei o que faz o comando PACK, mas neste caso eu tambem acho que nao se aplica.
Aceito bem as criticas sei que é para melhorar e sempre que alguem posta um codigo como exemplo ou da uma dica, estou sempre modificado meu metodo pois sei que alguem ja passou por isso e encontrou a solução.


Obrigado pessoal

julio

[m@r<3|o]

Julio voce nao desmerece ninguem vc é bacana
ocupa seu tempo com seu sistema

quem desmerece é quem tem tempo sobrando e se julga experiente .......

um forum ao meu ver pra ser organizado,
tem que somente 1 postar as postar perguntas

e outros somente escrever a resposta ,
brincar elogiar até é legal ,
mais criticar , ai já vira debate

[MODERADO]
Sr. usuario, nao utilize caixa alta! Leia as normas do forum!

o unico que me ajuda a nivel de resolver é o Marcos Guedes
e nem por isso desmereci ninguem ate hoje

[Julio]

Seguindo o que lardeCristo postou alterei meu metodo ativarcampos colocando no inicio dele o seguinte

Código:

 SET DELETED ON
 SELECT Cadastro
 GO TOP
 Thisform.label23.Caption    = anilha
 Thisform.txtAnilhageral.value=anilha
 Thisform.txtControle.value  = controle
 Thisform.txtAnilha.value    = nrocompl
 Thisform.txtAnelfil.Value  = anelso
...
...


O GO TOP acho que foi este go top que resolveu

Mais uma ves obrigado


julio

[hugo]

Topico Bloqueado e Resolvido!

[Marcos Guedes]

Como o tópico foi moderado pelo Hugo, não posso voltar atrás pois ele estar no direito, visto que o escolhi para nos ajudar com a organização do fórum.

Mais vai aí uma última resposta para o colega Marcelo, referente sua última resposta (a qual foi moderada).

---

Marcelo, desculpe-me mas tenho que discordar.
Se é um fórum e dúvidas são postadas, então é bem provável que nós que tentamos ajudar também erremos. (Isto é comum.)

As vezes aprendemos algo que pode ser melhorado, mas requer humildade.

Já melhorei muitas coisas que costumava fazer "errado" sendo corrigido por colegas.

Diferente das outras áreas, a nossa (informática) está sempre mudando com coisas novas aparecendo. Com isto... quem para de estudar (ou pesquisar) fica parado no tempo.

Mas voltando ao assunto...
Sua dica me chamou a atenção e precisei fazer uns testes.

Você citou que o Julio deveria dar um PACK no cursor. Mas ele afirmou, antes de sua postagem (respondendo a uma pergunta minha) que não trabalha com cursor, neste exemplo. Logo o PACK não se aplica a este exemplo de forma alguma. (Corrija-me se eu estiver errado pois quero aprender como...)

Aqui vai o teste que fiz:

Código:

ON ERROR trataerro()

SET DELETED OFF
SET SAFETY OFF

*!* Teste com tabela FREE *!*

IF USED("teste2") THEN
   USE IN SELECT("teste2")
ENDIF

CREATE TABLE teste2 (campo c(7), sequencia i AUTOINC NEXTVALUE 1 STEP 1)
INSERT INTO teste2(campo) VALUE('valor1')
INSERT INTO teste2(campo) VALUE('valor2')
INSERT INTO teste2(campo) VALUE('valor3')
INSERT INTO teste2(campo) VALUE('valor4')
INSERT INTO teste2(campo) VALUE('valor5')
INSERT INTO teste2(campo) VALUE('valor6')
INSERT INTO teste2(campo) VALUE('valor7')
INSERT INTO teste2(campo) VALUE('valor8')
INSERT INTO teste2(campo) VALUE('valor9')
INSERT INTO teste2(campo) VALUE('valor10')

DELETE FROM teste2 WHERE sequencia=1 OR sequencia=2 OR sequencia=3

SELECT teste2
BROWSE

SELECT teste2
PACK
BROWSE


*!* Teste com tabela de banco nativo *!*

IF DBUSED("dbTeste") THEN
   SET DATABASE TO dbteste
   CLOSE DATABASES

   DELETE DATABASE dbteste DELETETABLES
ENDIF

CREATE DATABASE dbteste
SET DATABASE TO dbteste


CREATE TABLE teste3 (campo c(7), sequencia i AUTOINC NEXTVALUE 1 STEP 1)
INSERT INTO teste3(campo) VALUE('valor1')
INSERT INTO teste3(campo) VALUE('valor2')
INSERT INTO teste3(campo) VALUE('valor3')
INSERT INTO teste3(campo) VALUE('valor4')
INSERT INTO teste3(campo) VALUE('valor5')
INSERT INTO teste3(campo) VALUE('valor6')
INSERT INTO teste3(campo) VALUE('valor7')
INSERT INTO teste3(campo) VALUE('valor8')
INSERT INTO teste3(campo) VALUE('valor9')
INSERT INTO teste3(campo) VALUE('valor10')

DELETE FROM teste3 WHERE sequencia=4 OR sequencia=5 OR sequencia=6

SELECT teste3
BROWSE

SELECT teste3
PACK
BROWSE

USE IN SELECT('teste1')
USE IN SELECT('teste2')
USE IN SELECT('teste3')

SET DATABASE TO dbteste
CLOSE DATABASES

DELETE DATABASE dbteste DELETETABLES




*!* Teste com CURSOR *!*
CREATE CURSOR teste1 (campo c(7), sequencia i AUTOINC NEXTVALUE 1 STEP 1)
INSERT INTO teste1(campo) VALUE('valor1')
INSERT INTO teste1(campo) VALUE('valor2')
INSERT INTO teste1(campo) VALUE('valor3')
INSERT INTO teste1(campo) VALUE('valor4')
INSERT INTO teste1(campo) VALUE('valor5')
INSERT INTO teste1(campo) VALUE('valor6')
INSERT INTO teste1(campo) VALUE('valor7')
INSERT INTO teste1(campo) VALUE('valor8')
INSERT INTO teste1(campo) VALUE('valor9')
INSERT INTO teste1(campo) VALUE('valor10')

DELETE FROM teste1 WHERE sequencia=1 OR sequencia=2 OR sequencia=3

SELECT teste1
BROWSE

SELECT teste1
PACK && Erro
BROWSE


PROCEDURE trataerro AS STRING
   MESSAGEBOX(MESSAGE())
ENDPROC

---

Desejando continuar este assunto, sobre o comando PACK, o espaço está aberto para abrirem um novo tópico.

[hugo]

Topico liberado para consideracoes!

[m@r<3|o]

Marcos, o problema real do topico
Não tem a ver com Pack
estou sem comentarios + para este topico

Não sei se voce fez uma pergunta ,e espera uma resposta
se confundi , ZAP com Delete Não sei

To sem Respostas e comentarios , a parte importante do topico foi moderada
sem sentido minha resposta
sem sentido eu continuar escrever nesse topico

OK ??

Abs
Marcelo

[lardecristo]

Olá Julio, foi o comando GO TOP que resolveu o seu problema, veja acho que isto é um bug do nosso amado VFP, quando você abre a tabela ele naturamente se posiciona no primeiro registro, mesmo que o SET DELE esteja ON, para aplicar o mesmo é necessário mover o ponteiro de registros e assim o VFP faz a execução do SET, isto não ocorre com os demais registro, a partir do segundo, porque para o mesmo você já move o ponteiro de registro.

Por favor se alguém souber de algo mais sobre a movimentação do ponteiro para este caso, post aqui....

Abraços,

[hugo]

Este problema citado nunca passei por ele!

De qualquer forma, acredito que a explicacao acima sobre o "go top/set dele on/vfp" do Lar explica o problema e nos da solucao!

Grande abraco galera!

[Julio]

Tambem não sei ate onde este GO TOP resolve, mas se retiro ele, valta tudo como antes.

Ate que nao encontremos outra solução fico com esta ainda.

[hugo]

julio, entao esta confirmado

a solucao do lar resolveu

abraco!

[Julio]

Ok, Hugo


Resolvido