TLogisticsContainer.Parent

redirigé depuis TLogisticsContainer.SetParent



TLogisticsContainer = class (TObject)Interface de TLogisticsContainerExemples de TLogisticsContainer

Qubes 6.3 Récupération du parent de ce contenant qui est lui-même un contenant (arborescence)

Syntaxe

property Parent: TLogisticsContainer read FParentContainer

Remarques

Non renseigné

Exemples

uses QubesLogistics;
uses QubesLogistics.ReceiptAndDelivery;

var logistics: TLogisticsNote;
var logisticsContainer: TLogisticsContainer;
var logisticsContainerParent: TLogisticsContainer;

var i:integer;


logistics:=TLogisticsNote.ConnectByDeliveryCodeAndShippingDateMinAndMax('france');
for i:=0 to logistics.Count-1 do begin
   logisticsContainer:=logistics.LogisticsContainer[i];
   logisticsContainerParent:=logisticsContainer.Parent;
   if logisticsContainerParent<>nil then
      InformationDlg(logisticsContainerParent.Code);
end ;

Classification

QubesLogistics.ReceiptAndDelivery TLogisticsContainer