Devart Forums

Code: Select all

  AdoFasi.SQL.Clear;
  AdoFasi.SQL.Add('SELECT Prestazioni.IdPaziente, ');
  AdoFasi.SQL.Add('Prestazioni.Accettata,');
  AdoFasi.SQL.Add('Prestazioni.Famiglia,');
  AdoFasi.SQL.Add('Prestazioni.Prestazione,');
  AdoFasi.SQL.Add('Prestazioni.Storico,');
  AdoFasi.SQL.Add('Prestazioni.Dente,');
  AdoFasi.SQL.Add('Prestazioni.Stato as StatoPrestazione,');
  AdoFasi.SQL.Add('Prestazioni.Fasi as NumeroFasi,');
  AdoFasi.SQL.Add('Prestazioni.Abbreviazione as ABBR,');

  AdoFasi.SQL.Add(' Fasi.*');
  AdoFasi.SQL.Add
    ('FROM Prestazioni INNER JOIN Fasi ON Prestazioni.idprestazione = Fasi.IdPrestazione');
  AdoFasi.SQL.Add('Where (Prestazioni.IdPaziente = ' + QuotedStr('1') + ')');
  AdoFasi.SQL.Add('And (Prestazioni.Accettata = TRUE)');
  AdoFasi.SQL.Add('ORDER BY Prestazioni.Prestazione, Fasi.DescrizioneFase');

  AdoFasi.Open;

  Assert(AdoFasi.Locate('IdFase',
    '{22DC64EB-71CE-469D-A62B-21A6B6E1E85C}', []));

  AdoFasi.Edit;
  try
    AdoFasi.FieldByName('IdStory').AsString := 'AAAAAAAAA';
    AdoFasi.Post;
  except
    on E: Exception do
    begin
      messageDlg(E.Message, mtError, [mbOk], 0);
    end;
  end;

 // Field 'IdStory' cannot be modified.
  // how you suggest in http://forums.devart.com/viewtopic.php?t=22631

  AdoFasi.Close;
  AdoFasi.Options.SetFieldsReadOnly := FALSE;
  AdoFasi.Open;

  Assert(AdoFasi.Locate('IdFase',
    '{22DC64EB-71CE-469D-A62B-21A6B6E1E85C}', []));

  AdoFasi.Edit;
  AdoFasi.FieldByName('IdStory').AsString := 'AAAAAAAAA';
  AdoFasi.Post;

  AdoFasi.Close;
  AdoFasi.Open;
  Assert(AdoFasi.Locate('IdFase',
    '{22DC64EB-71CE-469D-A62B-21A6B6E1E85C}', []));
  Assert(AdoFasi.FieldByName('IdStory').AsString = 'AAAAAAAAA');

  // assertion FAILURE !

Code: Select all

...
  AdoFasi.SQL.Add('ORDER BY Prestazioni.Prestazione, Fasi.DescrizioneFase');
  AdoFasi.UpdatingTable := 'Fasi';
  AdoFasi.Open;
....