PEX - Usando coluna (Verdadeiro / Falso) da grade

Neste fórum faremos um exemplo de selecionar um registro da grade de dados usando uma coluna de verdadeiro/falso, e na próxima atividade mostrar em tela as informações da linha selecionada.
Verifique o passo a passo abaixo:

image-1640627901228.png

Código: 

const
cs_grade = '1';
var
  liIdRegistro, Contador: Integer;
  loRegistro: TJSONObject;
begin   
  Contador := 0;      
   
  for liIdRegistro := 0 to Pred(aoFormularios.GetJSON(cs_grade).GetArrayJSON('DADOS').Count) do
  begin
    loRegistro := aoFormularios.GetJSON(cs_grade).GetArrayJSON('DADOS').GetItemAsJson(liIdRegistro);  // Aqui percorremos a grade

    if loRegistro.GetBol('CHECK') then  // Se o campo "Check" estiver marcado
    begin
        Contador:= Contador + 1; // Passa pelo contador
    end;
    
    if Contador > 1 then   // Se houver mais de um registro marcado
    begin
       aoMensagem.SetStr('MENSAGEM', 'Selecione apenas um registro!');  // Mensagem de informação e aborte caso a condição for verdadeira   
       aoMensagem.SetStr('TIPO', 'INFO');
       aoMensagem.SetBol('ABORTA', True);
    end;
    
    if ((Contador = 1) and (loRegistro.GetBol('CHECK'))) then // Se for apenas um registro marcado e a coluna "Check" estiver selecionada
    begin
          aoVariaveis.SetStr('/*EMAIL*/', loRegistro.GetStr('EMAIL')); // Atribui o email selecionado da grade para a variável EMAIL
    end;
  end;                           
end;

image-1640628986818.png

image-1640629010965.gif


Revisão #4
Criado 27 December 2021 14:53:04 por Nicolly Andrielly
Atualizado 6 April 2022 09:07:47 por Nicolly Andrielly