TDataViewSourceOperations - Exemples
| TDataViewSourceOperations = class (TQubesDataViewSource) | Interface de TDataViewSourceOperations | Exemples de TDataViewSourceOperations |
Exemple d'utilisation dans un suivi en continu
uses SysUtils, QubesDataViews, QubesDataViewsSources.Operations;
//Creation de l'objet de source
var dataSource := TDataViewSourceOperations.Create('MaGamme','','','',['MyParam String=MYPARAM']);
//Creation de la vue maintenue
var dataView := DeclareView('Opérations', dataSource, ['ID', 'WO_GPAO_ID', 'OPENUM', 'STATUS', 'RESPONSIBLE', 'MyParam', 'DATE_BEGIN', 'DATE_END']);
//Récupération de l'ancienne valeur du checkpoint pour la mise à jour de la vue
var CP := ObjectStore.Value['Operations.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['Operations.CheckPoint'] := CP;
//Creation de l'objet de source
var dataSource := TDataViewSourceOperations.Create('MaGamme','','','',['MyParam String=MYPARAM']);
//Creation de la vue maintenue
var dataView := DeclareView('Opérations', dataSource, ['ID', 'WO_GPAO_ID', 'OPENUM', 'STATUS', 'RESPONSIBLE', 'MyParam', 'DATE_BEGIN', 'DATE_END']);
//Récupération de l'ancienne valeur du checkpoint pour la mise à jour de la vue
var CP := ObjectStore.Value['Operations.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['Operations.CheckPoint'] := CP;