Página 1 de 1

organizando dados em banco de dados

Enviado: 24 Mai 2005 08:11
por Gelson
Olá, pessoal

Estou com o seguinte problema:

Tenho no meu banco de dados um arquivo chamado data.dbf (data_movim), e este armazem as datas do lançamentos que são feitos no programa, e outro arquivo chamado movim.dbf (dat_lanc,nome,conta,valor,doc) as datas sempre devem vir na sequencia, porém tem acontecido das pessoas mudarem a data do sistema do micro e quando faço os lancamentos ficam todos com as datas erradas e os lançamentos ficam da sequencia no arquivo movim(ex. documento do dia 10/05 é lançado em 11/05,etc..) Coloquei um say date() na minha tela inicial, porém na pressa acabo passando batido.Só descubro isto quando vou tirar algum relatório e o sistema me retorna que a data não foi encontrada na tabela. Ai tenho que editar o arquivo pelo dbu e acertar tudo na mão.

Existe a possibilidade de antes dos lançamentos serem feitos, o sistema consultar o arquivo datas.dbf para ver se as datas estão na sequencia e caso afirmativo ele me infromar ?

O que posso fazer para caso do movim.dbf, as datas sempre ficarem na sequencia ? se auto ordenarem. Tem como ?

Enviado: 24 Mai 2005 09:39
por kiko
vc pode comparar com a ultima data lançada?

se a ultima data gravada for menor que a data que o usuario quer gravar, vc naum deixa, trava, manda um alerta, desliga o comp. dele, qualquer coisa...hehehehehehe...
eu faria dessa forma...

[z]

Enviado: 24 Mai 2005 14:49
por Gelson
Olá, Kiko . como vai você ?

obrigado pela sugestão, acho que vou fazer isto mesmo.
Mas quanto a organização das informações no arquivo movim.?! É que tenho um monte de registros tudo fora da seguencia. Gostaria de saber se no clipper tem como usar uma rotina ou coisa do tipo para organizar os dados pela data, já que este movim possui os campos(conta,ct,dat_lanc,valor)

um abraço.

Enviado: 25 Mai 2005 17:51
por rochinha
Amiguinho

Coloque um VALID no GET que pega a data em questão que não deve possuir data menor que a atual

M->MYVAR := DATE()
@..GET M->MYVAR ... VALID M->MYVAR>=DATE()

@braços :?)

Enviado: 27 Mai 2005 07:08
por Gelson
Olá, Rocinha

Valeu pela sugestão, muito obrigado.