TLogisticsDetail.TypeLogistic

redirigé depuis TLogisticsDetail.GetTypeLogistic



TLogisticsDetail = class (TObject)Interface de TLogisticsDetailExemples de TLogisticsDetail

Qubes 6.3 Description de TypeLogistic

Syntaxe

property TypeLogistic: TTypeLogistic read GetTypeLogistic

Remarques

Non renseigné

Exemples

uses QubesLogistics;
uses QubesLogistics.ReceiptAndDelivery;

var logisticsDetail: TLogisticsDetail;
var logistics: TLogisticsNote;
var logisticsContainer: TLogisticsContainer;
var i, j: integer;

logistics:=TLogisticsNote.ConnectByDeliveryCodeAndShippingDateMinAndMax('france');
for i:=0 to logistics.Count-1 do begin
   logisticsContainer:=logistics.LogisticsContainer[i];
   if logisticsContainer.Code='Palette2015' then begin
      for j:=0 to logisticsContainer.Count-1 do begin
         logisticsDetail:=logisticsContainer.Detail[j];
         if logisticsDetail.TypeLogistic=Consumption then
            InformationDlg('Type : Consumption')
         else InformationDlg('Type :  Production');
      end;
   end;
end;

Classification

QubesLogistics.ReceiptAndDelivery TLogisticsDetail