TManufacturingConsumptionItem.ToleranceMode
redirigé depuis TManufacturingConsumptionItem.SetToleranceMode
| TManufacturingConsumptionItem = class (TObject) | Interface de TManufacturingConsumptionItem | Exemples de TManufacturingConsumptionItem |
Type de tolérance sur la quantité.
Syntaxe
property ToleranceMode: TManufacturingToleranceMode read GetToleranceMode write SetToleranceMode
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.ToleranceMode:=mtmAbsolute;
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.ToleranceMode:=mtmAbsolute;
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
mtmAbsolute: InformationDlg('Tolérance Absolue.');
mtmRelative:InformationDlg('Tolérance Relative.');
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
mtmAbsolute: InformationDlg('Tolérance Absolue.');
mtmRelative:InformationDlg('Tolérance Relative.');
end;
finally
gammeCroissant.free;
end;