Copy From

RecordSet.CopyFrom(recordset sorgente)

// ******************************************************************
// Fired by the framework when a Smart Lookup procedure is in effect.
// ******************************************************************
event Prodotto.OnGetSmartLookup(
  inout Recordset RecordSet // Recordset returned to the Smart Lookup search engine
  inout int Level           // Try Level
  inout boolean NullValue   // Set to TRUE to return a null value
  inout boolean Skip        // Set to TRUE to skip normal processing
  inout boolean Cancel      // Set to TRUE to cancel further processing
  IDDocument CallerDocument // The document that needs the smart lookup procedure
)
{
  // Dopo i quattro tentativi standard,
  // controllo per fornitore
  if Level = C5
  {
    Recordset rs = new() // 
    // 
    Skip := True
    // 
    select into recordset distinct (rs)
      Prodotti.Id as IdProdotto(IDPRODOTTO)
      C[ +c Fornitori.NomeSocieta +c C] +c Space +c Prodotti.NomeProdotto as C[+cNomeSociet-
         aFornitori+cC]+cSpace+cNomeProdotto(NOMEPRODOTTO)
    from
      Prodotti  // Master Table
      Fornitori // Joined with Prodotti using FK FornitoriProdotti
    where
      Fornitori.NomeSocieta Like Percent +c NomeProdotto +c Percent
    order by
      C[+cNomeSocietaFornitori+cC]+cSpace+cNomeProdotto
    // 
    RecordSet.CopyFrom(rs)
  }
  // 
  // ora controllo per paese fornitore
  if Level = C6
  {
    Recordset rs = new() // 
    // 
    Skip := True
    // 
    select into recordset distinct (rs)
      Prodotti.Id as IdProdotto(IDPRODOTTO)
      C[ +c Fornitori.NomeSocieta +c C] +c Space +c Prodotti.NomeProdotto as C[+cNomeSociet-
         aFornitori+cC]+cSpace+cNomeProdotto(NOMEPRODOTTO)
    from
      Prodotti  // Master Table
      Fornitori // Joined with Prodotti using FK FornitoriProdotti
    where
      Fornitori.Paese Like Percent +c NomeProdotto +c Percent
    order by
      C[+cNomeSocietaFornitori+cC]+cSpace+cNomeProdotto
    // 
    RecordSet.CopyFrom(rs)
  }
  // 
  if Level = C7
  {
    Cancel := True
  }
}