Reset Sort List

Pannello.ResetSortList()

// ***************************
// Esegue il sort del pannello
// ***************************
public void Fornitori.BottoneSort()
{
  // Cancello il sort precedente
  Fornitori.ResetSortList()
  // 
  // Seleziono i campi per cui è stato chiesto l'ordinamento
  for each row
  {
    select
      SequenzaSortCampo := SequenzaSort
      NumeroCampo := Numero
      TipoSortCampo := TipoSort
    from
      CampiPannello // Master Table
    where
      SequenzaSort > ZERO
    order by
      SequenzaSort
    // 
    record Campo
      int SequenzaSort // 
      int Numero       // 
      string TipoSort  // 
    // 
    // Aggiungo alla lista di sorting
    Fornitori.AddToSortList(Campo.Numero, Campo.TipoSort <> D)
  }
  // 
  // Abilito il sort
  Fornitori.EnableSorting()
  // 
  // Scrivo nel pannello la lista di ordinamento
  CampiPannello.SortString.Caption := Fornitori.SortingList
}