Has Next Node

boolean HasAnother = False          // 
// 
HasAnother := XMLDocument.HasNextNode()

// *********************************************************
// 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 XML padre... causa un loop
)
{
  // Se devo trovare un loop fermo il debug a 10 iterazioni
  if loop
  {
    EsempiGL.DTTMaxLoopCycles := C10
  }
  // 
  // 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 il codice XML che sto leggendo
    EsempiGL.DTTLogMessage(Nodo.ToString(), ??, ??)
    // 
    // Se sto leggendo un oggetto di tipo item
    if Nodo.Name() = item AND Nodo.IsElement()
    {
      this.ScriviDebugStruttura(Nodo)
      // 
      NuovoOggetto.Nome := Nodo.GetAttribute(Nome)
      NuovoOggetto.Descrizione := Nodo.GetAttribute(Descrizione)
      Padre.ItemsFigli.Add(NuovoOggetto)
    }
    // 
    // Se è un nodo di tipo commento lo scrivo nel debug
    if Nodo.Type() = XML Comment Type
    {
      EsempiGL.DTTLogMessage(Nodo.Value(), ??, ??)
    }
    // 
    // Se il sorgente è di tipo text scrivo nel debug il testo contenuto
    if Nodo.IsText()
    {
      EsempiGL.DTTLogMessage(Nodo.Value(), ??, ??)
    }
    // 
    if Nodo.HasNextNode()
    {
      this.Importa0(Nodo, NuovoOggetto, ??)
    }
    // 
    // Se devo causo volontariamente un loop
    if loop
    {
      Sorgente.Reset()
    }
  }
  Padre.Loaded := True
  Padre.ItemsFigli.Loaded := True
}