TDataViewSourceWorkOrders - Exemples

TDataViewSourceWorkOrders = class (TQubesDataViewSource)

Interface de TDataViewSourceWorkOrders

Exemples de TDataViewSourceWorkOrders

Exemple d'utilisation dans un suivi en continu

uses SysUtils, QubesDataViews, QubesDataViewsSources.WorkOrders;

//Creation de l'objet de source
var dataSource := TDataViewSourceWorkOrders.Create('MaGamme','','','',['MyParam String=MYPARAM']);

//Creation de la vue maintenue
var dataView := DeclareView('WO', dataSource, ['ID', 'GPAO_ID', 'ITEM', 'FAMILY', 'LOT', 'MyParam', 'QUANTITY']);

//Récupération de l'ancienne valeur du checkpoint pour la mise à jour de la vue
var CP := ObjectStore.Value['WorkOrders.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['WorkOrders.CheckPoint'] := CP;