TManufacturingConsumptionItem.AutoSelectBatch
redirigé depuis TManufacturingConsumptionItem.SetAutoSelectBatch
| TManufacturingConsumptionItem = class (TObject) | Interface de TManufacturingConsumptionItem | Exemples de TManufacturingConsumptionItem |
Affectation automatique d'un lot dans...
Syntaxe
property AutoSelectBatch: TManufacturingConsumptionItem read GetAutoSelectBatch write SetAutoSelectBatch (Qubes 11.0)
property AutoSelectBatch: TManufacturingConsumptionBatchAutoSelect read GetAutoSelectBatch write SetAutoSelectBatch
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.AutoSelectBatch:=mcbasInContainerLevel0;
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.AutoSelectBatch:=mcbasInContainerLevel0;
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);
case gammeConsumptionItem.AutoSelectBatch of
mcbasNone: InformationDlg('Affectation automatique d''un lot dans aucun contenant.');
mcbasInContainerLevel0:InformationDlg('Affectation automatique d''un lot dans le contenant courant.');
mcbasInContainerLevel1:InformationDlg('Affectation automatique d''un lot dans un des sous-contenants direct du contenant.');
mcbasInContainerAllLevels:InformationDlg('Affectation automatique d''un lot dans le contenant ou un des sous-contenants.');
end;
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);
case gammeConsumptionItem.AutoSelectBatch of
mcbasNone: InformationDlg('Affectation automatique d''un lot dans aucun contenant.');
mcbasInContainerLevel0:InformationDlg('Affectation automatique d''un lot dans le contenant courant.');
mcbasInContainerLevel1:InformationDlg('Affectation automatique d''un lot dans un des sous-contenants direct du contenant.');
mcbasInContainerAllLevels:InformationDlg('Affectation automatique d''un lot dans le contenant ou un des sous-contenants.');
end;
finally
gammeCroissant.free;
end;