Ordena��o de registros de estrutura mestre/detalhe

Question

ol� pessoalgostaria de uma dica/id�ia.tenho uma estrtura mestre/detalhe.na tabela detalhe eu tenho um campo SEQ - que � um campo integer.na tela tenho dois grids. Acima o Grid com a tabela mestre e no...

Raserafim · Answer

diogoalles, a l�gica da resolu��o deste problema poderia ser o seguinte:
al clicar no bot�o �acima� o registro selecionado trocar de valor SEQ com o registro de cima e vice-versa. na pr�tica seiria, o valor SEQ do registro selecionado receberia o seu pr�prio valor diminu�do de 1; e o registro anterior receberia o valor de SEQ acrescido de 1.
Mas para conseguir isso voa c�digo agente pode fazer o seguinte:

procedure ....acima...
var
  Cod, Sequen: Integer;
begin
  Cod := Query.Cd_Item.Value;
  Sequen := Query.SEQ.value;
  Query.Locate(�SEQ�, Sequen - 1, [loCaseInsensitive]);
  Query.Edit;
  Query.SEQ.Value := Sequen;
  Query.Post;
  Query.Locate(�Cd_Item�, Cod, [loCaseInsensitive]);
  Query.Edit;
  Query.SEQ.Value := Sequen - 1;
  Query.Post;
  Query.Close;
  Query.Open;  
end;

procedure ....abaixo...
var
  Cod, Sequen: Integer;
begin
  Cod := Query.Cd_Item.Value;
  Sequen := Query.SEQ.value;
  Query.Locate(�SEQ�, Sequen + 1, [loCaseInsensitive]);
  Query.Edit;
  Query.SEQ.Value := Sequen;
  Query.Post;
  Query.Locate(�Cd_Item�, Cod, [loCaseInsensitive]);
  Query.Edit;
  Query.SEQ.Value := Sequen + 1;
  Query.Post;
  Query.Close;
  Query.Open;  
end;

F�rum Ordena��o de registros de estrutura mestre/detalhe #279184