DB
Size: a a a
DB
DB
N
N
N
DB
N
N
TDocumentInfo = class
ID: integer;
ID_Document: integer;
Create_Date: TDateTime;
Change_Date: TDateTime;
Description: string;
Info: TMemoryStream;
Photo: TMemoryStream;
constructor Create;
destructor Destroy; override;
end;
N
DB
N
mInfo.Lines.SaveToStream(Document.DocInfo.Info);
iPhoto.Bitmap.SaveToStream(Document.DocInfo.Photo);
DB
N
vTable := Core.Meta.GetTable('WT_AMB_DOCUMENT_INFO');
vFields := vTable.GetFieldList(['ID', 'CHANGE_DATE']);
vValues := TSetter.GetValues(Document.DocInfo, vFields);
Core.Executor.Scripts
.AddReference(vTable.TableName, vFields, vFields, vTable)
.Row(vValues);N
DB
DB
N
N
N
DB