Buscar por:

Criar horários em um determinado dia de uma agenda usando repeat

Código

Procedure TfmAgendaExames.BtSalvarClick(Sender: TObject);

var

   hHora, hInicio, hFim, hIntervalo: TDateTime;

   //exameid: asstring;

begin

//  fmAgendaExames.Tbageexa.Insert;

 {With qryMaxCount do

   Begin

    If not Prepared then Begin

       prepare;

       open;

    end;

  end; }

  hInicio := strToTime(edMOE_EMISSAO_TIME.Text);

  hFim := strToTime(MaskEdit1.Text);

  hIntervalo := strToTime(MaskEdit2.Text);

  hHora := hInicio;

  lbHorarios.Items.clear();

    repeat

  //  vAgd_id := vAgd_id + 1;

    lbHorarios.Items.Add(TimeToStr(hHora)); // Horarios

    hHora := hHora + hIntervalo;

    tbageexa.Insert;

    tbageexa.FieldByName('agd_data').AsDateTime := fmAgendaExames.DateEdit1.Date;

    tbageexa.FieldByName('agd_hora').AsDateTime := hHora + fmAgendaExames.DateEdit1.Date;

    tbageexa.FieldByName('agd_exa').AsString := Tbproc.fieldbyname('exa_id').asstring;

    tbageexa.FieldByName('agd_exadesc').AsString := Tbproc.fieldbyname('exa_nome').asstring;

    tbageexa.FieldByName('agd_exaprepa').AsString := tbproc.fieldbyname('exa_preparo').AsString;

    tbageexa.FieldByName('agd_setid').AsInteger := Tbsetor.fieldbyname('set_id').asInteger;

    tbageexa.FieldByName('agd_setdesc').AsString := Tbsetor.fieldbyname('set_nome').asString;

    with qrymaxAgd do

      Begin

        If not Prepared then Begin

          prepare;

        end;

      open;

     end;

    tbageexa.FieldByName('agd_id').AsInteger := qrymaxAgd.fieldbyname('vTOTAL').asInteger +1;

    tbAgeExa.Post;

    qrymaxAgd.Close;

    //tbageexa.FieldByName('')

    //table1.fieldByName('Campo').AsDateTime := nHora;

  until (hHora >= hFim);

   //DateEdit1.Date := 

   dbgrid1.DataSource.Enabled := False;

   dbgrid2.DataSource.Enabled := False;

end;