TManufacturingConsumptionItem.DestroyStockItemsWhenEmpty
redirigé depuis TManufacturingConsumptionItem.SetDestroyStockItemsWhenEmpty
| TManufacturingConsumptionItem = class (TObject) | Interface de TManufacturingConsumptionItem | Exemples de TManufacturingConsumptionItem |
Destruction de l'élément de stock lorsqu'il est vide.
Syntaxe
property DestroyStockItemsWhenEmpty: Boolean read GetDestroyStockItemsWhenEmpty write SetDestroyStockItemsWhenEmpty
Remarques
Exemples
var gammeCroissant: TManufacturing;
var gammeSubOperation: TManufacturingSubOperation;
var gammeConsumptionItem: TManufacturingConsumptionItem;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeSubOperation:=gammeCroissant.GetOperationByNumber(10).GetManufacturingSubOperation(0);
gammeConsumptionItem:=gammeSubOperation.GetManufacturingConsumptionItem(0);
gammeConsumptionItem.DestroyStockItemsWhenEmpty:=true;
gammeCroissant.post;
finally
gammeCroissant.free;
end;
var gammeSubOperation: TManufacturingSubOperation;
var gammeConsumptionItem: TManufacturingConsumptionItem;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeSubOperation:=gammeCroissant.GetOperationByNumber(10).GetManufacturingSubOperation(0);
gammeConsumptionItem:=gammeSubOperation.GetManufacturingConsumptionItem(0);
gammeConsumptionItem.DestroyStockItemsWhenEmpty:=true;
gammeCroissant.post;
finally
gammeCroissant.free;
end;
var gammeCroissant: TManufacturing;
var gammeSubOperation: TManufacturingSubOperation;
var gammeConsumptionItem: TManufacturingConsumptionItem;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeSubOperation:=gammeCroissant.GetOperationByNumber(10).GetManufacturingSubOperation(0);
gammeConsumptionItem:=gammeSubOperation.GetManufacturingConsumptionItem(0);
if gammeConsumptionItem.DestroyStockItemsWhenEmpty=true then
InformationDlg('Destruction des éléments de stock vides.')
else
InformationDlg('Éléments de stock vide non détruit.');
finally
gammeCroissant.free;
end;
var gammeSubOperation: TManufacturingSubOperation;
var gammeConsumptionItem: TManufacturingConsumptionItem;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeSubOperation:=gammeCroissant.GetOperationByNumber(10).GetManufacturingSubOperation(0);
gammeConsumptionItem:=gammeSubOperation.GetManufacturingConsumptionItem(0);
if gammeConsumptionItem.DestroyStockItemsWhenEmpty=true then
InformationDlg('Destruction des éléments de stock vides.')
else
InformationDlg('Éléments de stock vide non détruit.');
finally
gammeCroissant.free;
end;