TPlannedTransportLine.LinkedTranportLine
redirigé depuis TPlannedTransportLine.SetLinkedTranportLine
| TPlannedTransportLine = class (TObject) | Interface de TPlannedTransportLine | Exemples de TPlannedTransportLine |
Qubes 6.3 Lien vers une autre ligne d'attendu
Syntaxe
property LinkedTranportLine: TPlannedTransportLine read GetLinkedTranportLine write SetLinkedTranportLine
Remarques
Lecture et écriture de la propriété
L'enregistrement de la propriété est fait par l'appel de la méthode Post
Exemples
uses QubesLogistics.PlannedTransports, QubesLogistics.ReceiptAndDelivery;
var attendu:=TPlannedTransport.Connect('ACL', TLogisticsFlowType.Purchase, '2877s555sq85', '56');
var attenduLine:=attendu.AddLine;
attenduLine.ItemGPAOID:='Farine55';
attenduLine.ExpectedQuantity2:=5000;
attenduLine.HandlingUnit2:='pal'; // palette
attenduLine.HandlingQuantity2:=5;
// ligne d'attendu liée
var linkedattenduLine:=attendu.Lines[0];
if linkedattenduLine<>nil then
attenduLine.LinkedTranportLine:=linkedattenduLine;
attendu.Post;
var attendu:=TPlannedTransport.Connect('ACL', TLogisticsFlowType.Purchase, '2877s555sq85', '56');
var attenduLine:=attendu.AddLine;
attenduLine.ItemGPAOID:='Farine55';
attenduLine.ExpectedQuantity2:=5000;
attenduLine.HandlingUnit2:='pal'; // palette
attenduLine.HandlingQuantity2:=5;
// ligne d'attendu liée
var linkedattenduLine:=attendu.Lines[0];
if linkedattenduLine<>nil then
attenduLine.LinkedTranportLine:=linkedattenduLine;
attendu.Post;