Jump to content
Murilo Leticia Pecorari

Duvida atualizar varias tabelas verificando data do sistema com data cadastrada..

Recommended Posts

Bom dia  pessoal 

Estou com uma duvida sobre atualizar vários cadastro de uma vez com a data abaixo da data atual

veja 

 

  var
   Data: string;

 

depois

tento

Data :=  formatdatetime('dd\mm\yyyy', now);

 qry_atividades.Close;
 qry_atividades.SQL.Clear;
 qry_atividades.open;
     qry_atividades.Edit;
qry_atividades.SQL.Add('update atividades set finaliza < Data and situação SET  "vencido"');
qry_atividades.Post;

oq queria seria o sistema ver cadastros com campos finaliza abaixo da data atual do sistema e depois alterar dados do campo situacao para vencido..

 

tipo os cadastros com campo finaliza fica data de expiração

exemplo

03/05/2017

e situação alterava de ativo para vencido...

 

quem poderia me dar uma força?

uso delphi e firebird como bd

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By Aureo Almeida
      Problema em definir largura e disposição horizontal de tabelas com resultado de while
      Como iniciante em programação estou tendo problemas para estilizar uma tabela dentro de um script PHP. Possuo o seguinte script:
      <?php $sql = 'SELECT * FROM psd_produtos'; $stmt = $conn->query($sql); echo '<table>'; while($row = $stmt->fetch(PDO::FETCH_OBJ)){ echo " <td> <tr><h1>$row->prd_nome <br /></h1></tr> <tr><p>$row->prd_detalhe <br /></p></tr> <tr>$row->prd_valor <br /></tr> </td> "; } echo '</table>'; ?> Ele funciona perfeitamente, buscando e produzindo um loop das informações que preciso, porém, gostaria que o resultado me retornasse em tabelas que ficasse dispostas horizontalmente lado a lado, e imaginei colocar uma classe CSS que estabelecesse a largura da tabela em 400px com um float que me permitiria alinhar o resultado em “4 colunas”. Porém, essa classe não funciona dentro do script.
      Tentei echo '<table class="tabela-produto">'; e não funciona.
      A mesma classe, que estabelece uma largura para a tabela, aplicada a uma tabela fora do script funciona e isso tirou minha dúvida se este tópico seria sobre CSS/HTML ou PHP.
      Como posso fazer para obter meu objetivo com este script, alinhando horizontalmente o resultado do while em tabelas dispostas horizontalmente em 4 colunas?
    • By Dani_Ambrosio
      Preciso criar uma coluna em uma tabela já existente, porém os dados dessa nova coluna vão depender de outra tabela
      Ex:
      tenho a tabela faturamento e nela eu preciso criar uma nova coluna que vai chamar fat_removido e os dados dessa coluna vão depender de uma outra tabela que se chama Faturamento removido.
      tanto as tabelas faturamento e a faturamento removido tem o ID_faturamento, quando o mesmo constar nas duas tabelas a nova coluna deverá ser preenchida com Sim e quando não constar deve ser preenchida com Não 
      Como faço isso?
    • By mayconyury
      Galera, boa noite.
       
      Estou com dificuldades para realizar um insert em uma tabela no oracle. 
       
      Criei duas lists, uma buscando o código das filiais existentes em uma tabela e outro para receber as filiais de acordo com a escolha do usuário. Estou realizando um cadastro de produtos por filial, então ao terminar o cadastro o dialog pergunta se quer atualizar os dados em outra filial. Se marcada a opção SIM, abre a tela para escolher para qual filial o usuário quer copiar ( update ). Mas pode existir situações onde o produto não existe, então queria que realiza-se um insert para essas filiais ao invés do update.
       
      Alguém pode ajudar?
       
    • By JorgeeHenrique
      Bom dia, sou iniciante em Delphi, estou fazendo um Cadastro de Clientes, gostaria de usar três Edit´s para filtrar alguns  dados porem com o código abaixo consegui fazer apenas com 1 edit.text, como faço pra usar três e que se algum estiver em branco ele retorna o valor apenas do Edit.text que foi preenchido?
       
      Exemplo: 
       
      Quero buscar por Nome, Situação e Rota (Cliente a da rota B com situação C) e se algum desses campos estiver vazio ele busca apenas o que foi preenchido. Obrigado pela atenção!
       
      .
      procedure TFrm_Cadastro.Bt_BuscarClick(Sender: TObject); begin with Frm_Cadastro.Tbl_Clientes do begin Close; SQL.Clear; SQL.Add( 'Select * from Tbl_Cad_Clientes'); SQL.Add('where Cli_Nome like :nome'); ParamByName('nome').Value := '%' + txt_buscar_nome.Text + '%'; Open; end; end;  
    • By lhdario
      Boa tarde Senhores, estou com um projeto de inclusão da QR-Code no sistema para um cliente que fica no Rio Grande do Sul através de WEB Service. Estou colocando os web-service disponível no site da SEFAZ-RS, mas está dando erro 403. Preciso que vocês me enviem um WEB-Service e se precisa de algum certificado digital válido. 
       
      Estou tentando com esse:
       
      https://nfce.sefazrs.rs.gov.br/ws/NfeConsulta/NfeConsulta4.asmx

      Encontrei ele por esse site:
       
      http://nfce.encat.org/desenvolvedor/webservices-p/
       
      Desde já agradeço.
      Luis Dario
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.