TDataViewSourceConso - Exemples

TDataViewSourceConso = class (TQubesDataViewSource)

Interface de TDataViewSourceConso

Exemples de TDataViewSourceConso

Exemple d'utilisation dans un suivi en continu

uses SysUtils, QubesDataViews, QubesDataViewsSources.Conso;

//Creation de l'objet de source
var dataSource := TDataViewSourceConso.Create;

//Creation de la vue maintenue
var dataView := DeclareView('Consommations', dataSource, ['ID', 'USER', 'LOT', 'ACTUAL_USER','LOT_ITEM', 'ITEM_GPAOID', 'QUANTITY', 'DATE_CONSO', 'METATASK_ID', 'USED_FOR', 'Traca=USED_FOR_LOT', 'EXPEDITION_ID', 'ANNUL_DATE', 'ANNUL_USER', 'ANNUL_ACTUAL_USER', 'ANNUL_MOTIF']);

//Récupération de l'ancienne valeur du checkpoint pour la mise à jour de la vue
var CP := ObjectStore.Value['Conso.CheckPoint'];

//Initialisation ou mise à jour de la vue
CP := dataSource.Update(dataView,CP);

//Sauvegarde de la valeur du checkpoint pour la future mise à jour de la vue
ObjectStore.Value['Conso.CheckPoint'] := CP;