Add New

Recordset.AddNew()

// ****************************************************************************
// Aggiorna il recordset a partire dai dati del pannello (che sono su tabella
// IMDB)
// ****************************************************************************
public void ProdottiRecordset.AggiornaRecordsetSulDB()
{
  // Alzo il numero di loop memorizzati nel log per avere più informazioni di
  // debug. (il default è 10)
  EsempiGL.DTTLoggedLoops := C100
  // 
  // Per ogni riga della tabella IMDB sottesa al pannello.
  for each row
  {
    select
      ...
    // 
    record Prodotto
      ...
    // 
    if Prodotto.Inserito = True
    {
      this.Rs.AddNew()
      // 
      this.Rs.SetFieldValue(this.Rs.FieldName(ONE), Prodotto.Idprodotto)
      this.Rs.SetFieldValue(this.Rs.FieldName(C2), Prodotto.NomeProdotto)
      this.Rs.SetFieldValue(this.Rs.FieldName(C3), Prodotto.Idfornitore)
      this.Rs.SetFieldValue(this.Rs.FieldName(C4), Prodotto.Idcategoria)
      this.Rs.SetFieldValue(this.Rs.FieldName(C5), Prodotto.
         QuantitaPerUnita)
      this.Rs.SetFieldValue(this.Rs.FieldName(C6), Prodotto.PrezzoUnitar-
         io)
      this.Rs.SetFieldValue(this.Rs.FieldName(C7), Prodotto.Scorte)
      this.Rs.SetFieldValue(this.Rs.FieldName(C8), Prodotto.
         QuantitaOrdinata)
      this.Rs.SetFieldValue(this.Rs.FieldName(Nine), Prodotto.
         LivelloDiRiordino)
      this.Rs.SetFieldValue(this.Rs.FieldName(C10), Prodotto.Sospeso)
    }
    // 
    if Prodotto.Aggiornato = True
      ...
    // 
    // Se è cancellato lo tolgo dal RS
    if Prodotto.Cancellato = True
      ...
  }
  this.Rs.MoveFirst()
  // 
  this.Rs.Update()
  // 
  // Rimetto il DTTLoggedLoops a 10
  EsempiGL.DTTLoggedLoops := C10
}