Atualizar os registros do banco de dados

Question

Tenho um sistema onde s�o cadastrados os d�bitos dos clientes de uma determinada empresa. Na hora do cadastro � colocado num campo chamado �Situa��o� a mensagem �Em dias�. Como devo proceder para que ...

Ehvasc · Answer

Cara Colega,

No OnCreate do form vc coloca uma Query que execute o seguinte comando:

 
UPDATE TABELA SET SITUACAO = �Em Atraso� 
WHERE VENCIMENTO < HOJE AND N�O ESTIVEREM PAGOS (AQUI VC DEVE COLOCAR A VALIDA��O QUE VC EXECUTA PRA SABER SE O D�BITO EST� PAGO)

Espero ter ajudado. Qualquer d�vida manda um email. Boa Sorte e at� a pr�xima

Anjinho Loiro · Answer

J� tentei algo parecido, mas o problema � justamente na valida��o que n�o estou conseguindo.
Toda vez que entra o formul�rio trava e os bot�es do DBNavigato ficam piscando sem parar e a�, s� CTRL+ALT+DELETE.

O resumo do que quero � isso, a data venceu, o campo situa��o assume o valor �Est� em atraso�.

Ser� que vc pode me dar um exemplo mais detalhado. Desculpe-me por bancar a chata.

Bjs.

Gordonsp · Answer

Que banco de dados vc. esta utilizando?Voce poderia criar uma procedure e deixar criar um JOB que a cada 6 horas ele verifique e atualize o status para vc., sendo assim nao precisaria fazer isso com nenhum codigo dentro de seu sistema, ou entao, pode executar essa procedure assim que abrir o sistema.Qualquer duvida estarei a disposi�ao....

Anjinho Loiro · Answer

Utilizo o Paradox, Query e Delphi 3 - Client/Server.Prefiro a sua segunda sugest�o. Se vc puder me dar uma dica de como fazer, eu agrade�o.Bjs....

Marcio.theis · Answer

Por qu� no caso deve de ser um campo na base de dados???? Na minha opini�o seria mais f�cil voc� cirar um campo calculado e executar pelo calcfield, e sempre que navegar ele executa o calcfield e te atualiza na tela.

Gordonsp · Answer

Concordo com vc., mas na minha opiniao, tudo o que puder fazer no banco eh melhor, pois vc. nao tem que ficar utilizando recursos extras para fazer uma coisa que num banco de dados eh meramente facil e na minha visao correta.
Hoje tudo o que desenvolvo e que tenha regras e recurso de banco, fa�o tudo no banco, por exemplo, insert, updates e relatorios, fica facil de dar manuten�ao, pois se voce nao alterar a regra do negocio, as alteracoes ficam mais facil.

Marcio.theis · Answer

Tudo bem tb concordo com vc... Mas no momento que um futuro cliente chega para vc e diz, �Eu quero o sistema na base de dados X� e esse banco n�o da suporte aos seus requerimentos de banco anteriores... Ai vc tera um problema, eu j� sou mais a favor de colocar no c�digo mesmo, temos aqui sistemas rodando direto em mais de cinco bd diferentes.

Gordonsp · Answer

voce esta certo marcio, infelizmente eu todos os clientes que trabalho utilizam postgresql, sendo assim, consigo montar um padrao e, que facilita muito.
Os bancos que utilizo hoje sao: Mysql, Postgre, Oracle e SQL-Server, eu tenho desenvolvido padroes para todos esses bancos.
Valeu pela troca de informa�oes.

Gordonsp · Answer

Irei pesquisar para voce como montar essa procedure em Paradox, uma vez que nunca utilizei esse banco.
Na minha opiniao, voce deveria pensar na possibilidade de futuramente migrar para um banco melhor(mais recursos).
Quero ver se ainda hoje vejo isso para vc.
Um grande abra�o

Andremuller · Answer

No Paradox n�o h� como criar procedimentos at� porque Paradox n�o � um banco de dados, � sistema de arquivos, como DBF.

Como funciona esse seu form?
Normalmente o que acontece: seleciona-se um cliente e aparecem seus pagamentos. Fa�a ent�o a atualiza��o do status desses pagamentos preferencialmente sem utilizar query porque s�o muito muito lerdas qdo utiliza-se paradox com BDE.

Caso seja necess�ria uma atualiza��o em massa, avalie pela quatindade de registros a possiblidade de utiliazar a query j� enviada para esse t�pico.
Caso a tabela seja muito grande, crie um rotina com while que certamente ser� mais r�pida no caso de Paradox/BDE.

Anjinho Loiro · Answer

Como devo montar esse �Do While�???Bjs.Obs>:O form � assimVenct.       Cliente                                   Valor         Situa��o20/03/05   NYVEA BEATRIZ                      R$ 25,00    Em dias15/03/05   GUILHERME MOREIRA              R$ 35,00    Em atrasoA situa��o � o que eu quero que mude automaticamente....

Andremuller · Answer

Se o form � s� aquilo ent�o voc� n�o deveria armazenar esse estado no banco.
Calcula na hora porque ele vai estar todo dia desatualizado.
Crie um campo calculado como um colega j� sugeriu e verifique se est� atrazado.

Joaoshi · Answer

Colega,Talvez o mais correto seria criar um campo calculado (como dito antes), j� que esta informa��o mudaria a cada dia.Adicionar os fields na TTable.Criar o campo calculadoNo onCalcfieds da Tabela:if Data.Tabela >= Date then  Situacao.Text := �Em Dias�else  Situacao.Text := �Em Atraso�;Espero ter ajudado....

Anjinho Loiro · Answer

Sobe[/url]...

Pro-luck · Answer

Coloque no seu form um bot�o e passe para ele o seguinte c�digo:

dm_.QrySuaQuery.First;
While not dm_.QrySuaQuery.EOF do
begin
if dm_.QrySuaQueryVencimento.Value < StrToDateTime(DateToStr(Now)) then
begin
dm_.QrySuaQuery.Edit;
dm_.QrySuaQuerySituacao.Text := �Pend�ncias�;
dm_.QrySuaQuery.Post;
dm_.QrySuaQuery.Next;
end
else
begin
dm_.QrySuaQuery.Edit;
dm_.QrySuaQuerySituacao.Text := �Atualizado�;
dm_.QrySuaQuery.Post;
dm_.QrySuaQuery.Next;
end;
end;

Assim, no �nicio do expediente da empresa, clica-se uma vez sobre o bot�o ele faz a atualiza��o que servir� at� o dia seguinte...

Espero que te sirva e qualquer coisa manda um e-mail...

Beijos...

F�rum Atualizar os registros do banco de dados #272871