RenderCell

procedure TfrmDefinirEquipe.grdCadEquipeParesRenderCell(ACell: TIWGridCell; const ARow, AColumn: Integer);

  function Existe(nome: String): TIWButton;
  var
    i: Integer;
  begin
    Result := nil;
    for i := 0 to Length(btnDeletarEquipe) - 1 do
      if btnDeletarEquipe[i].Name = nome then
        Result := btnDeletarEquipe[i];
    if not Assigned(Result) then
    begin
      SetLength(btnDeletarEquipe, Length(btnDeletarEquipe) + 1);
      btnDeletarEquipe[Length(btnDeletarEquipe) - 1]               := TIWButton.Create(grdCadEquipePares);
      btnDeletarEquipe[Length(btnDeletarEquipe) - 1].Font.FontName := 'Verdana';
      btnDeletarEquipe[Length(btnDeletarEquipe) - 1].Font.Size     := 8;
      btnDeletarEquipe[Length(btnDeletarEquipe) - 1].Height        := 17;
      btnDeletarEquipe[Length(btnDeletarEquipe) - 1].Caption       := 'Excluir';
      btnDeletarEquipe[Length(btnDeletarEquipe) - 1].Visible       := True;
      btnDeletarEquipe[Length(btnDeletarEquipe) - 1].OnClick       := BotaoExcluiEmpregadoEquipe;

      if (dmGer.cdsConsultaPares.FieldByName('CMEQ_IND_SIT_TIPO_EQU').AsString <> 'C') and
         ExisteRespostaPar then
        btnDeletarEquipe[Length(btnDeletarEquipe) - 1].Enabled     := False;

      if (dmGer.cdsConsultaPares.FieldByName('CMEQ_IND_SIT_TIPO_EQU').AsString = 'C') then
        btnDeletarEquipe[Length(btnDeletarEquipe) - 1].Enabled     := True;

      Result := btnDeletarEquipe[Length(btnDeletarEquipe) - 1];
    end;
  end;

  function Email(nome: String): TIWButton;
  var
    i: Integer;
  begin
    Result := nil;
    for i := 0 to Length(btnEnviarEmail) - 1 do
      if btnEnviarEmail[i].Name = nome then
        Result := btnEnviarEmail[i];
    if not Assigned(Result) then
    begin
      SetLength(btnEnviarEmail, Length(btnEnviarEmail) + 1);
      btnEnviarEmail[Length(btnEnviarEmail) - 1]               := TIWButton.Create(grdCadEquipePares);
      btnEnviarEmail[Length(btnEnviarEmail) - 1].Font.FontName := 'Verdana';
      btnEnviarEmail[Length(btnEnviarEmail) - 1].Font.Size     := 8;
      btnEnviarEmail[Length(btnEnviarEmail) - 1].Height        := 17;
      btnEnviarEmail[Length(btnEnviarEmail) - 1].Caption       := 'Enviar';
      btnEnviarEmail[Length(btnEnviarEmail) - 1].Visible       := True;
      btnEnviarEmail[Length(btnEnviarEmail) - 1].OnClick       := BotaoClickEnvio;

      //Criar campo na tabela para tratar isso
      if dmGer.cdsConsultaPares.FieldByName('CMEQ_QTD_ENVIO_EMAIL').AsInteger > 0 then
        btnEnviarEmail[Length(btnEnviarEmail) - 1].Caption := 'ReEnviar'
      else
        btnEnviarEmail[Length(btnEnviarEmail) - 1].Caption := 'Enviar';

      if (dmGer.cdsConsultaPares.FieldByName('CMEQ_IND_SIT_TIPO_EQU').AsString = 'E') or
         (dmGer.cdsConsultaPares.FieldByName('CMEQ_IND_SIT_TIPO_EQU').AsString = 'C') then
        btnEnviarEmail[Length(btnEnviarEmail) - 1].Enabled := False;

      Result := btnEnviarEmail[Length(btnEnviarEmail) - 1];
    end;
  end;

begin
  if (ARow > 0) and (AColumn = 3) then
  begin
    if dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsInteger > 0 then
    begin
      ACell.Control := Existe('btnEquipe' + dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsString);
      with (ACell.Control as TIWButton) do
      begin
        Name          := 'btnEquipe' + dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsString;
        FriendlyName  := 'btnEquipe' + dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsString;
        Tag           := dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsInteger;
      end;
    end;
  end;

  if (ARow > 0) and (AColumn = 4) then
  begin
    if dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsInteger > 0 then
    begin
      ACell.Control := Email('btnEnviarEmail' + dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsString);
      with (ACell.Control as TIWButton) do
      begin
        Name          := 'btnEnviarEmail' + dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsString;
        FriendlyName  := 'btnEnviarEmail' + dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsString;
        Tag           := dmGer.cdsConsultaPares.FieldByName('CMEQ_COD_MEMBRO_EQU').AsInteger;
      end;
    end;
  end;

  if ARow > 0 then
    if dmGer.cdsConsultaPares.FieldByName('CMEQ_IND_SIT_TIPO_EQU').AsString = 'C' then
      ACell.BGColor := clWebTOMATO;

end;


procedure TfrmDefinirEquipe.BotaoClickEnvio(Sender: TObject);
var
  cdsLocal: TClientDataSet;
  CodEquipe: Integer;
  TipoAvr: String;
begin

  CodEquipe := (Sender as TIWButton).Tag;

  if Pos('btnEmailCliente', (Sender as TIWButton).Name) > 0 then
  begin
    cdsLocal := DMGer.cdsConsultaCliente;
    TipoAvr := 'CLIENTE';
  end
  else
  begin
    cdsLocal := DMGer.cdsConsultaPares;
    TipoAvr := 'PAR';
  end;

  cdsLocal.Filtered := False;
  cdsLocal.Filter   := 'CMEQ_COD_MEMBRO_EQU = ' + IntToStr(CodEquipe);
  cdsLocal.Filtered := True;

  cdsLocal.First;

  while not cdsLocal.Eof do
  begin
    try
      MandarEmail(cdsLocal.FieldByName('COLA_COD_CHAVE_AVR').AsString,
                  cdsLocal.FieldByName('COLA_NOM_COMPLETO_AVR').AsString,
                  cdsLocal.FieldByName('EMAIL_AVR').AsString,
                  TipoAvr);
      AtualizaEnvioEmail(CodEquipe);
      WebApplication.ShowMessage('Email enviado com Sucesso!!!');
    except
      on E:Exception do
      begin
        WebApplication.ShowMessage( 'Falha no envio de e-mail. Ocorreu o seguinte erro: ' + #10 + E.Message, smAlert, '');
      end;
    end;
    cdsLocal.Next;
  end;

  cdsLocal.Filtered := False;
  cdsLocal.Filter   := '';
  cdsLocal.Filtered := True;
end;


procedure TfrmDefinirEquipe.BotaoExcluiEmpregadoCliente(Sender: TObject);
var
  Ok: Boolean;
begin
  if dmGer.cdsConsultaCliente.Locate('CMEQ_COD_MEMBRO_EQU', (Sender as TIWButton).Tag, []) then
  begin
     Ok := True;

     if ExisteResposta((Sender as TIWButton).Tag) then  // no caso de NSA pode haver algumas
       Ok := ExcluiResposta((Sender as TIWButton).Tag);

     if Ok then
     begin
       with dmGer.qryExcluiAvaliador do
       begin
         ParamByName('CMEQ_COD_MEMBRO_EQU').AsString := dmGer.cdsConsultaCliente.FieldByName('CMEQ_COD_MEMBRO_EQU').AsString;
         try
           ExecSQL;
           dmConn.log(Usersession.Matricula, UserSession.MatriculaPrincipal, 'Removida Equipe Pares: ' + dmGer.cdsConsultaCliente.FieldByName('CMEQ_COD_MEMBRO_EQU').AsString);
           WebApplication.ShowMessage('Empregado excluído.');
         except
           WebApplication.ShowMessage('Erro ao excluir o empregado.');
         end;
       end;
     end;
     AtualizaGrids;
   end
   else
     WebApplication.ShowMessage('Não é possível realizar a operação desejada!');
end;