TLogisticsDetail.TypeLogistic
| TLogisticsDetail = class (TObject) | Interface de TLogisticsDetail | Exemples de TLogisticsDetail |
Qubes 6.3 Description de TypeLogistic
Syntaxe
property TypeLogistic: TTypeLogistic read GetTypeLogistic
Remarques
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;