TDataViewSourceProd - Exemples
| TDataViewSourceProd = class (TQubesDataViewSource) | Interface de TDataViewSourceProd | Exemples de TDataViewSourceProd |
Exemple d'utilisation dans un suivi en continu
uses SysUtils, QubesDataViews, QubesDataViewsSources.Prod;
//Creation de l'objet de source
var dataSource := TDataViewSourceProd.Create;
//Creation de la vue maintenue
var dataView := DeclareView('Productions', dataSource, ['ID', 'USER', 'LOT', 'ACTUAL_USER', 'LOT_ITEM', 'Article=ITEM_GPAOID', 'Quantité=QUANTITY', 'DATE_CREATION', 'METATASK_ID', 'CREATED_BY', 'FORMULAR_ID', 'CONTAINER', '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['Prod.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['Prod.CheckPoint'] := CP;
//Creation de l'objet de source
var dataSource := TDataViewSourceProd.Create;
//Creation de la vue maintenue
var dataView := DeclareView('Productions', dataSource, ['ID', 'USER', 'LOT', 'ACTUAL_USER', 'LOT_ITEM', 'Article=ITEM_GPAOID', 'Quantité=QUANTITY', 'DATE_CREATION', 'METATASK_ID', 'CREATED_BY', 'FORMULAR_ID', 'CONTAINER', '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['Prod.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['Prod.CheckPoint'] := CP;