Melhor Maneira

[JuniorVaz]

Gostaria de uma opiniaum sobre a melhor maneira de se deletar dados de um dbf, vou explicar abaixo a minha necessidade e gostaria de uma ideia...
Uso um DBF chamado FICCLI, e nele existe o campo NUMNF, onde se repete o numero de NUMNF algumas vezes, por exemplo:

NUNNF
328
328
329
329
329
329
330
330

No entando, preciso apagar os dados indicados pelo campo XNUMNF, vamos supoer que neste campo seja digitado 329, entaum ele apagar todos os 329 existentes... Era soh isso, vlw ae colegas...

[Junior]

Veja se é isso :

Código: Selecionar todos

use FICCLI
dbSetOrder(1)  --> Supondo q seja esse o indice por numero de NF
dbGoTop()

wnf := 0
@ 10,10 say " Numero NF : " get wnf pict "999999999999999"

If dbSeek( wnf )
   do While !EOF() .And. str(NUMNF,6,0) == str(wnf,6,0)
        Rlock()
        dbDelete()
        Unlock
        dbSkip()
   Enddo
   dbCommitAll()
Else
   alert(" Numero de NF nao encontrado ! ")
Endif

- comando seek para procurar a NF digitada pelo usuario
- se achar, abre um laco e executa a tarefa ate o numero da NF ser diferente do solicitado

Qq coisa me avise.
Abraços !