Fórum Pesquisa por data em firebird #398220

so uma coisa...esse :NDIAS é parametro?

pq to usando atraves de rtti pra verficiar no banco de dados se ha expirando algo...

procedure TFrmPrincipal.VerificaDia;
var
  Qry: TSQLQuery;
begin
  if not FileExists(ExtractFilePath(Application.ExeName) + 'Dia.ini') then
  begin
    AbreForm(TFrmDia, FrmDia);
  end
  else
  begin
    Qry := TSQLQuery.Create(nil);
    Qry.SQLConnection := Dm_Dados.con;
    try
      with Qry do
      begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM CONVENIO WHERE DT_FINAL BETWEEN CURRENT_DATE AND CURRENT_DATE +'+CarregaDia);
        Open;
        if not IsEmpty then
        begin
          MessageDlg('Há convenio expirando o prazo limite',mtWarning,[mbOK],0);
          AbreForm(TFrmCalConv,FrmCalConv);
        end;
      end;
    finally
      FreeAndNil(Qry);
    end;
  end;
end;

se for parametro como passar?

valeu cara...pq eu carrego de um arquivo ini o numero de dias de prazo

Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.