Dump GUIDs

Applicazione.DumpGUIDs(id sessione, percorso file)

// *********************************************************
// Salvo la copertura su file
// *********************************************************
public void TestSuite.Copertura()
{
  int NumeroSessioni = 0 // 
  // 
  NumeroSessioni := ZERO
  // 
  // Svuoto l'elenco delle Test Suite che devo analizzare
  delete from DTTTestSuites
  // 
  // Se è stato selezionata una test suite, aggiungo lei per prima
  if NOT(IsNull(TabellaParametri.ID))
    ...
  // 
  // Cerco tutte le test suite figlie di quella selezionata (per ogni test
  // suite trovata inserisco un record nella tabella IMDB)
  Teamworks.TrovaTestSuite(NullValue(TabellaParametri.ID, --(ONE)))
  // 
  // Cancello il file se esisteva
  try
    ...
  // 
  // Per ogni suite
  for each row
  {
    select
      IDTestSuite := ID
    from
      DTTTestSuites // Master Table
    // 
    record TestSuite
      int IDTestSuite // 
    // 
    // Recupero tutte le sessioni nella suite
    for each row
    {
      select
         IDSession := ID
      from
         DTTSessions // Master Table
      where
         TestSuite = TestSuite.IDTestSuite
         IsNull(TestExecution)
      // 
      record Session
         int IDSession // 
      // 
      // Dumpo i GUID sul file
      Teamworks.DumpGUIDs(Session.IDSession, Path() +c Separatore
         Directory +c Coverage.lst)
      NumeroSessioni := NumeroSessioni + ONE
    }
  }
  // 
  // Svuoto l'elenco delle Test Suite che devo eseguire
  delete from DTTTestSuites
  // 
  if NumeroSessioni > ZERO
  {
    Teamworks.OpenDocument(Coverage.lst, True, ??)
  }
  else  // 
  {
    Teamworks.MessageBox(Nessuna sessione trovata)
  }
}