CreateJobsFor
Qubes Expert v5 Description de CreateJobsFor
Syntaxe
function CreateJobsFor(const aEventCode: String; const aEqpt: String; const aItem: String; const aEtape: String; const aLot: String; const aWorkOrderID: Integer): array of TQXPControlJob (Qubes Expert v6)
procedure CreateJobsFor(const aEventCode: String; const aEqpt: String; const aItem: String; const aEtape: String; const aLot: String; const aWorkOrderID: Integer)
const aEventCode:
const aEqpt:
const aItem:
const aEtape:
const aLot:
const aWorkOrderID:
Remarques
Cette fonction permet de planifier les contrôles correspondants à l'évènement déclencheur et au contexte transmis. Les contrôles doivent exister, être au statut "En application", avoir l'évènement déclencheur comme évènement de planification et le bon contexte d'application
Attention selon le besoin il est préférable d'utiliser la fonction NotifyOEEEvent qui appelle automatiquement les fonctions CreateJobsFor et RemoveJobsFor sur l'évènement choisi et le contexte courant du WorkCenter transmis
Exemples
// Permet de créer un ou des contrôles sur l'évenement NewBobine selon le contexte transmis
var wkcCtx := TWorkcenterContext.GetCurrent('LIGNE CDT3', True, False, False);
var lot := wkcCtx.ProductionOrder+'-'+FormatInteger('%.3d', cnt);
var olot := TLot.CreateNew(lot, wkcCtx.Item);
var jobs := CreateJobsFor('NewBobine', wkcCtx.Workcenter, wkcCtx.Item, wkcCtx.ProcessStage, lot, wkcCtx.WorkOrderID);
var wkcCtx := TWorkcenterContext.GetCurrent('LIGNE CDT3', True, False, False);
var lot := wkcCtx.ProductionOrder+'-'+FormatInteger('%.3d', cnt);
var olot := TLot.CreateNew(lot, wkcCtx.Item);
var jobs := CreateJobsFor('NewBobine', wkcCtx.Workcenter, wkcCtx.Item, wkcCtx.ProcessStage, lot, wkcCtx.WorkOrderID);