TPlannedTransportLine.InsertProgressDelta
| TPlannedTransportLine = class (TObject) | Interface de TPlannedTransportLine | Exemples de TPlannedTransportLine |
Qubes 6.3 Progression de la ligne d'attendu
Syntaxe
procedure InsertProgressDelta(delta: Float; comment: String)
delta: valeur de la progression
comment: commentaire sur la progression
Remarques
La progression est suivi ici sous forme de delta (insérés, jamais modifiés).
La valeur du delta peut être positive ou négative.
L'enregistrement est immédiat, il n'y a pas à faire appel à la méthode Post
Exemples
uses QubesLogistics.PlannedTransports, QubesLogistics.ReceiptAndDelivery;
var attendu:=TPlannedTransport.Connect('ACP', TLogisticsFlowType.Purchase, '56574', '56');
for var i:=0 to attendu.LineCount-1 do begin
var line := attendu.Lines[i];
if line.OrderLineNumber=10 then begin
line.InsertProgressDelta(14,"mise à jour de la commande");
break;
end;
end;
var attendu:=TPlannedTransport.Connect('ACP', TLogisticsFlowType.Purchase, '56574', '56');
for var i:=0 to attendu.LineCount-1 do begin
var line := attendu.Lines[i];
if line.OrderLineNumber=10 then begin
line.InsertProgressDelta(14,"mise à jour de la commande");
break;
end;
end;