TFComissoesPgto.BTOkClick.pas

procedure TFComissoesPgto.BTOkClick(Sender: TObject);
begin
  inherited;
  QConsulta.First;
  if not QConsulta.Eof then
  begin
    try
      while not QConsulta.Eof do
      begin
        DMSistema.AtualizaBanco('COMISSOES', 'DT_PAGAMENTO', QuotedStr(FormatDateTime('YYYY.MM.DD', Date)), 'ID = ' + QConsultaID.Text);
        QConsulta.Next;
      end;
      DMSistema.TSistema.CommitRetaining;

      if FRReciboComissao = nil then
        FRReciboComissao := TFRReciboComissao.Create(Application);
      QConsulta.First;
      FRReciboComissao.QRRelatorio.Dataset := QConsulta;
      FRReciboComissao.QRRelatorio.Preview;
    except
      DMSistema.TSistema.RollbackRetaining;
      raise;
    end;
    Buscar;
  end;
end;