Enviado: 26 Mar 2005 14:11
Não, é apenas um DBF de gravação, CAIXA.DBF, os demais são de apoio, Contas contabeis, etc... :-O
Já tive problemas com duplicidade.
Vou montar um exemplo de inclusão
Eu possuo um dbf denominado FUNC.DBF
nele contém os seguintes campos:
CODIGO - Caracter - 8
NOME - Caracter - 20
Nele tb possui dos indices.
FUN_COD - Ordenado pelo campo CODIGO
FUN_NOM - Ordenado pelo campo NOME
Quando vou cadastrar um novo funcionário.
O campo Codigo eu incremento +1 e mando ver.
tipo assim ->
// vou para o fim do dbf com o indice por CODIGO
func->(dbgobottom())
// incremento +1 no codigo
cCodigo := strzero(val(func->CODIGO)+1,8)
Mas se tiver mais de um cabra cadastrando ae dana tudo...
eu faço assim...
Código: Selecionar todos
lOk := .t.
while lOk
// Incluo o Código
dbappend()
replace func->CODIGO with cCodigo
// Pego a posição do registro
nrecno := recno()
// Verifico se tem duplicidade
if dbseek(cCodigo) .and. func->CODIGO =cCodigo .and. recno() != nRecno
goto nRecno
while !rlock()
enddo
dbdelete()
dbcommit()
dbunlock()
func->(dbgobottom())
// Como já existe um cara cadastrado eu incremento +1
cCodigo := strzero(val(func->CODIGO)+1,8)
else
// Tudo blz
goto nRecno
lOk := .f.
endif
enddo
replace NOME with cNome
dbcommit()
dbunlock()
Existem erros de duplicidade que podem ser ocasionados causa de indices corrompidos tb.
