TStockConsumptions - Exemples
| TStockConsumptions = class (TObject) | Interface de TStockConsumptions | Exemples de TStockConsumptions |
uses QubesStock;
// On parcourt toutes les consommations effectuées sur le lot LOT12345
var qte : Float;
var conso:=TStockConsumptions.CreateUsesOfLot('LOT12345', False);
for var i:=0 to conso.Count-1 do begin
if conso.UsedFor[i]='essai' then begin
// On annule celles dont le motif est "essai"
CancelStockConsumption(conso.ConsumptionID[i], 'Annulation suite essai', Now);
end else begin
// On fait la somme des quantités consommées
qte+=conso.Quantity[i];
end;
end;
PrintLn(qte); // on affiche la qté consommée de ce lot
// On parcourt toutes les consommations effectuées sur le lot LOT12345
var qte : Float;
var conso:=TStockConsumptions.CreateUsesOfLot('LOT12345', False);
for var i:=0 to conso.Count-1 do begin
if conso.UsedFor[i]='essai' then begin
// On annule celles dont le motif est "essai"
CancelStockConsumption(conso.ConsumptionID[i], 'Annulation suite essai', Now);
end else begin
// On fait la somme des quantités consommées
qte+=conso.Quantity[i];
end;
end;
PrintLn(qte); // on affiche la qté consommée de ce lot