F�rum Reordear registros de uma tabela #382545

30/07/2010

Ol�!

Tenho tr�s tabelas relacionadas entre si: Artigos, Processos e Roteiro.

Cada artigo possui um roteiro de processos a ser seguido na produ��o. Esse roteiro deve ser seguido conforme o campo ORDEM_ROTEIRO. MAS essa sequ�ncia pode ser alterada pelo usu�rio e para que ele n�o precise ir registro por registro alterando o n�mero da sequ�ncia, quero fazer um rotina no delphi ou no banco de dados(Trigger/Procedure) para automatizar esse processo. Exemplo 1: Tenho os registros com a sequ�ncia (1, 2, 3, 4, 5, 6, 7) ai deleto o registro cuja a ORDEM_ROTEIRO � 4 ai a sequ�ncia fica (1, 2, 3, 5, 6, 7), por�m preciso que fique (1, 2, 3, 4, 5, 6)
Exemplo 2: Tenho os registros com a sequ�ncia (1, 2, 3, 4, 5, 6, 7) ai insiro um registro cuja a ORDEM_ROTEIRO dever� ser 3, ai a sequ�ncia fica (1, 2, 3, 3, 4, 5, 6, 7), por�m preciso que fique (1, 2, 3, 4, 5, 6, 7, 8).

Se algu�m tiver uma rotina que reordene essa listagem automaticamente ficarei muito grato. Desde j� agrade�o a ajuda.

Estou usando Delphi 7, DBExpress, Firebird 2.1.3.

Valeu.

Carlos Heidrich

Curtir t�pico

+ 0

Responder

Posts

30/07/2010

Wilson Junior

Exemplo 1

UPDATE ORDEM_ROTEIRO
SET Ordem = Ordem - 1
WHERE Ordem > 4

Exemplo 2
Antes de gravar o novo registro de ordem 3, fa�a:

UPDATE ORDEM_ROTEIRO
SET Ordem = Ordem + 1
WHERE Ordem >= 3

Lembrando, abra uma transa��o para Apagar e depois efetuar o UPDATE e o mesmo para gravar.
Exemplo:

  try

    Inicia_Transacao;

  

    ApagaRegistro_4;
    ExecutaUpdateRegistro_4;



    Grava_Transacao;

  except

    Cancela_Transacao;

    raise;

  end;

  try

    Inicia_Transacao;

  

    ExecutaUpdateRegistro_3;

    GravaRegistro_3;


    Grava_Transacao;

  except

    Cancela_Transacao;

    raise;

  end;

Espero ter colaborado.

Responder

Gostei + 0

19/08/2010

Carlos Heidrich

Wilson... Valeu pela dica, me ajudou a ter algumas ideias, mas ainda n�o foi o suficiente. Tentei fazer por uma trigger o primeiro exemplo mas n�o tive sucesso, visto que sempre entrava em loop infinito na trigger.

Existe um m�todo de ordena��o que os professores ensinam para situa��es como essa, mas agora n�o me recordo como se faz(j� faz um tempinho que tranquei a faculdade) . O m�todo possui uns 3 ou 4

for

while

(n�o lembro direito). Se algu�m puder me citar exemplos de ordena��o desses que se ve nas faculdades, ou qualquer outra forma de resolver essa quest�o, eu agrade�o. Lembrando que � possivel alterar a sequ�ncia de um item ou at� mesmo deletar um item da lista sendo nesses�rio a reordena��o ap�s as altera��es.

Responder

Gostei + 0

20/08/2010

Eriley Barbosa

Vamos come�ar pelo deletar um item da sua lista. No evento AfterDelete do seu ClientDataset, digite: begin if not(SeuClientDataset.IsEmpty) then begin SeuClientDataset.DisableControls; While not(SeuClientDataset.Eof) do begin SeuClientDataset.Edit; SeuClientDataset.FieldByName('ordem').Value := SeuClientDataset.FieldByName('ordem').Value - 1; SeuClientDataset.Post; SeuClientDataset.Next; end; SeuClientDataset.ApplyUpdates(0); SeuClientDataset.EnableControls; end; Declare OrdemIns como sendo do tipo Integer na se��o Private da unit onde est� seu clientDataset. Vamos agora a inser��o, no evento BeforeInsert do seu clientDataset digite: begin if not(SeuClientDataset.IsEmpty) then begin SeuClientDataset.DisableControls; SeuClientDataset.Last; OrdemIns := SeuClientDataset.FieldByName('ordem').Value; SeuClientDataset.EnableControls; end; end; No evento BeforePost do seu clientDataset digite: begin if SeuClientDataset.Locate('Ordem', SeuClientDataset.FieldByName('ordem').Value, []) then SeuClientDataset.FieldByName('ordem').Value := OrdemIns; end; Atenciosamente Eriley

Responder

Gostei + 0

23/08/2010

Carlos Heidrich

Ol�Eriley, a sua rotina de deleta��o ficou perfeita , por�m a de inser��o entrou em loop infinito por causa do Locate no BeforePost(Acredito eu). Se puderes dar mais uma ajuda, inclusive na rotina de update, agrade�o muito. Valeu...

Responder

Gostei + 0

23/08/2010

Eriley Barbosa

N�o � o Locate e sim o Last no Before Insert, tente assim: Declare OrdemIns como sendo do tipo Integer na se��o Private da unit onde est� seu clientDataset. Vamos agora a inser��o, no evento BeforeInsert do seu clientDataset digite: var
Qry: TSQLQuery;
begin
if not(SeuClientDataset.IsEmpty) then
begin
    Qry := TSQLQuery.Create(nil); {: cria uma inst�ncia do objeto}
    try
      Qry.SQLConnection := SeuSQLConnection;
      Qry.SQL.Add('SELECT ORDEM_ROTEIRO FROM ROTEIRO WHERE COD_ARTIGO = ' +
        SeuClientDataset.FieldByName('COD_ARTIGO').AsString
      ' AND COD_PROCESSO = ' + SeuClientDataset.FieldByName('COD_PROCESSO').AsString + ')';
      Qry.Open;
      if not(Qry.Fields[0].IsNull) then
        OrdemIns := Qry.Fields[0].AsInteger;
    finally
      FreeAndNil(Qry); {: libera o objeto da mem�ria}
    end;
end;
end; Quanto ao Update, explique melhor.

Responder

Gostei + 0