TQXPBadQties - Exemples
| TQXPBadQties = class (TObject) | Interface de TQXPBadQties | Exemples de TQXPBadQties |
//Ajout d'une quantité de 1 sur le motif de rejet Casse pour le workcenter Poste1
var rs:= TOEERejectReason.CreateFromCode('Casse');
var QXPBadQties : array of TQXPBadQties;
var QXPBadQtie := TQXPBadQties.Create;
QXPBadQtie.Qty := 1;
QXPBadQtie.Motif := rs ;
QXPBadQties.Add(QXPBadQtie);
TQXPQties.RecordQtiesForWkc('Poste1',Now,0,QXPBadQties);
var rs:= TOEERejectReason.CreateFromCode('Casse');
var QXPBadQties : array of TQXPBadQties;
var QXPBadQtie := TQXPBadQties.Create;
QXPBadQtie.Qty := 1;
QXPBadQtie.Motif := rs ;
QXPBadQties.Add(QXPBadQtie);
TQXPQties.RecordQtiesForWkc('Poste1',Now,0,QXPBadQties);