Fórum MonthCalendar - MonthBoldInfo pegando mes anterior #350138

procedure TfrmMCAgenda.mcMComGetMonthInfo(Sender: TObject; Month: Cardinal;
  var MonthBoldInfo: Cardinal);
var
  Ano, Mes, Dia : word;
  Ano1, Mes1, Dia1 : word;
  DataMissa : string;
  Dias : array of cardinal; //array de dias do mês
  i, ContarReg : integer;

//  Meses : cardinal; //tentativa de pegar o valor do mês atual e passar como parâmetro

begin

  Inherited;
  Dias:= Nil;
  try
    DecodeDate(mcMCom.Date,Ano,Mes,Dia);
    i:= -1;

    qryMC_Agenda.Active := true;

  with qryMC_Agenda do
   begin
    close;
      SQL.Clear;
      SQL.add(´SELECT * FROM MC_TMP_EXIBE_DADOS´);
      SQL.add(´WHERE Month(DATA_MISSA)=:MES_MISSA´);
    SQL.Add(´and Year(DATA_MISSA)=:ANO_MISSA´);
      SQL.Add(´Order By DATA_MISSA´);
      Parameters.ParamByName(´MES_MISSA´).Value := IntToStr(mes);
      Parameters.ParamByName(´ANO_MISSA´).Value := IntToStr(ano);
      Prepared := true;
      ExecSQL;
      Open;

      if Eof then
        Exit
      else
      begin

        //estava tendo muitos problemas com Group By
        //e resolvi fazer deste jeito o agrupamento dos dias...
        qryMC_Agenda.First;

        ContarReg := RecordCount + 1; 
        //ContarReg serve para armazenar a quantidade total de dias no mês
        //após o agrupamento de dias, e este valor definirá o
        //tamanho do array Dias. 
        //Fiz isso para evitar o erro de espaços demais no array

        DataMissa := qryMC_AgendaDATA_MISSA.AsString;
        while not (Eof) do
        begin
          while (qryMC_AgendaDATA_MISSA.AsString = DataMissa) and not (Eof) do
          begin
            ContarReg := ContarReg - 1;
            qryMC_Agenda.Next;
          end;
          ContarReg := ContarReg + 1;
          DataMissa := qryMC_AgendaDATA_MISSA.AsString;
        end;

        SetLength(Dias,ContarReg); // Tamanho do array

        qryMC_Agenda.First;
        DataMissa := qryMC_AgendaDATA_MISSA.AsString;
        while not (Eof) do
        begin
          DecodeDate(qryMC_AgendaDATA_MISSA.AsDateTime,Ano1,Mes1,Dia1);
          Inc(i);
          Dias[i]:= Dia1;
          while (qryMC_AgendaDATA_MISSA.AsString = DataMissa) and not (Eof) do
          begin
            qryMC_Agenda.Next;
            DataMissa := qryMC_AgendaDATA_MISSA.AsString;
          end;
        end;
        Close;
      end;
//      Meses := Mes; //tentativa de pegar o valor do mês atual e passar como parâmetro
      mcMCom.BoldDays(Dias, MonthBoldInfo);
    end;
  except
    Exit;
  end;
  qryMC_Agenda.Active := false;
end;