DTT Hide Message

Applicazione.DTTHideMessage(numero messaggio)

// *********************************************************
// Explain which processing is carried out by this procedure
// *********************************************************
public void XMLDocument.Importa0(
  XMLNode Sorgente          // Nodo XML da cui leggere
  MyXMLItem Padre           // INDE Item in cui inserire i figli
  optional boolean loop = 0 // Vero per resettare ad ogni ciclo il nodo XM...
)
{
  // Se devo trovare un loop fermo il debug a 10 iterazioni
  if loop
  {
    EsempiGL.DTTMaxLoopCycles := C10
  }
  // 
  // Nascondo i messaggi di debug predefiniti, in questo modo mostro solamente
  // quelli manualmente specificati nel codice di questa procedura.
  EsempiGL.DTTHideMessage(C999)
  // 
  // Finché trovo degli oggetti contenuti nella sorgente aggiungo figli
  // all'oggetto padre
  while Sorgente.HasNextNode()
  {
    MyXMLItem NuovoOggetto = new() // 
    XMLNode Nodo = null            // 
    string s = ""                  // 
    // 
    Nodo := Sorgente.GetNextNode()
    // 
    // Scrivo nel debug da descrizione del codice XML che sto leggendo
    EsempiGL.DTTLogMessage(Nodo.ToString(), ONE, ??)
    // 
    // Scrivo nel debug il testo contenuto nel nodo XML
    EsempiGL.DTTLogMessage(Nodo.SaveToString(), ONE, ??)
    // 
    // Se sto leggendo un oggetto di tipo item
    if Nodo.Name() = item AND Nodo.IsElement()
      ...
    // 
    // Se è un nodo di tipo commento lo scrivo nel debug
    if Nodo.Type() = XML Comment Type
      ...
    // 
    // Se il sorgente è di tipo text scrivo nel debug il testo contenuto
    if Nodo.IsText()
      ...
    // 
    if Nodo.HasNextNode()
    {
      this.Importa0(Nodo, NuovoOggetto, ??)
    }
    // 
    // Se devo causo volontariamente un loop
    if loop
    {
      Sorgente.Reset()
    }
  }
  Padre.Loaded := True
  Padre.ItemsFigli.Loaded := True
}