CancelStockConsumption
Annule une consommation
Syntaxe
procedure CancelStockConsumption(consumptionID: Integer; motif: String; dateCancel: Float)
consumptionID: ID de la consommation (dans la structure des TStockConsumptions)
motif: motif de l'annulation
dateCancel: date de l'annulation
Remarques
- La consommation n'est pas supprimée, elle passe dans un état annulé.
- La quantité consommée n'est pas regénérée (il s'agit d'une annulation logique, pas d'un ajustement de stock).
- L'écran d'arborescence de traçabilité par défaut ne montre pas les noeuds correspondant aux consommations annulées.
Exemples
uses QubesStock;
// On parcourt toutes les consommations effectuées sur le lot LOT12345
var conso:=TStockConsumptions.CreateUsesOfLot('LOT12345', False);
for var i:=0 to conso.Count-1 do begin
// On annule celles dont le motif est "essai"
if conso.UsedFor[i]='essai' then
CancelStockConsumption(conso.ConsumptionID[i], 'Annulation suite essai', Now);
end;
// On parcourt toutes les consommations effectuées sur le lot LOT12345
var conso:=TStockConsumptions.CreateUsesOfLot('LOT12345', False);
for var i:=0 to conso.Count-1 do begin
// On annule celles dont le motif est "essai"
if conso.UsedFor[i]='essai' then
CancelStockConsumption(conso.ConsumptionID[i], 'Annulation suite essai', Now);
end;