Olá!
Certamente o programa armazena a numeração de clientes em algum campo de tabela.
Se desejar reiniciar a numeração, você terá que identificar esta tabela/campo e, através do DBU, zerá-lo.

Moderador: Moderadores
Poderia até ser criado um utilitário que abrisse cada tabela e limpasse os dados.
Emanuel escreveu:queria saber se é muito complexo a criação de um programa como esse
Emanuel escreveu:queria saber se é muito complexo a criação de um programa como esse que o sr.alxsts comentou.
//apaga dbf
//*********
REQUEST DBFCDX
procedure main()
USE dias ALIAS welcome
USE cadastro NEW ALIAS nomes
USE cadastro3 NEW ALIAS cad
USE thevoice NEW ALIAS well
SELECT 1
IF NETERR()
ALERT("ARQUIVO EM USO")
ELSE
DELETE
zap
ENDIF
//browse()
SELECT 2
IF NETERR()
ALERT("ARQUIVO EM USO")
ELSE
DELETE
zap
ENDIF
//browse()
SELECT 3
IF NETERR)
ALERT("ARQUIVO EM USO")
ELSE
DELETE
zap
ENDIF
//browse()
SELECT 4
IF NETERR()
ALERT("ARQUIVO EM USO")
ELSE
DELETE
zap
ENDIF
//browse()
return
alxsts escreveu:Vamos planejar:
- criar uma interface com o usuário (tela)
- solicitar ao usuário que informe o local onde estão as tabelas
- solicitar ao usuário que informe o local onde deverão ser gravadas as estruturas das novas tabelas
- carregar para a memória o nome de todas as tabelas encontradas no local de origem informado
- varrer a lista de tabelas e para cada uma delas copiar a estrutura para o diretório destino
- manter o usuário informado do andamento da operação
JoséQuintas escreveu:É o mesmo que perguntar se é difÃcil quebrar uma parede.
Seria só usar marreta e quebrar tudo mas...
E se tiver encanamento, ou fiação elétrica passando pela parede?
E se tiver parte da construção apoiada encima dessa parede?
O simples ato de derrubar uma parede poderia precisar de pedreiro, encanador e eletricista.
Parece simples, mas nem sempre é.
FOR EACH cFile IN { "DIAS", "CADASTRO", "CADASTRO3", "THEVOICE" }
//--- cada arquivo inicio
USE ( cFile ) EXCLUSIVE
IF NetErr()
Alert( "Arquivo em uso" )
ELSE
ZAP
ENDIF
USE
//--- cada arquivo fim
NEXT
#include "directry.ch"
FOR EACH aFile IN Directory( "*.DBF" )
cFile := aFile[ F_NAME ]
// copiar do outro exemplo ref. cada arquivo inicio/fim
NEXT
USE dias EXCLUSIVE NEW ALIAS welcome
//apaga dbf
//*********
#include "directry.ch"
REQUEST DBFCDX
procedure main()
local aFile
local cFile
for each aFile IN Directory( "home/music/*.dbf" )
cFile := aFile[ F_NAME ]
USE ( cFile ) EXCLUSIVE
if NetErr()
alert( "Arquivo em uso" )
else
if ( cFile == "dias.dbf" .or. cFile == "cadastro.dbf" .or. cFile == "cadastro3.dbf" )
alert("as tres tabelas não seram apagadas!")
else
zap
endif
endif
next
return
Usuários vendo este fórum: Nenhum usuário registrado online e 14 visitantes