TManufacturingStandardControlItem.Procedure
| TManufacturingStandardControlItem = class (TObject) | Interface de TManufacturingStandardControlItem | Exemples de TManufacturingStandardControlItem |
Procédure de l'élément de contrôle standard.
Syntaxe
property Procedure: String read GetProcedure write SetProcedure
Remarques
Exemples
var gammeCroissant: TManufacturing;
var gammeSubOperation: TManufacturingSubOperation;
var gammeStandardControlItem: TManufacturingStandardControlItem;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeSubOperation:=gammeCroissant.GetOperationByNumber(10).GetManufacturingSubOperation(0);
gammeStandardControlItem:=gammeSubOperation.GetManufacturingStandardControlItem(0);
gammeStandardControlItem.Procedure:='Commentaire à propos de l'élément du contrôle standard.';
gammeCroissant.post;
finally
gammeCroissant.free;
end;
var gammeSubOperation: TManufacturingSubOperation;
var gammeStandardControlItem: TManufacturingStandardControlItem;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeSubOperation:=gammeCroissant.GetOperationByNumber(10).GetManufacturingSubOperation(0);
gammeStandardControlItem:=gammeSubOperation.GetManufacturingStandardControlItem(0);
gammeStandardControlItem.Procedure:='Commentaire à propos de l'élément du contrôle standard.';
gammeCroissant.post;
finally
gammeCroissant.free;
end;
var gammeCroissant: TManufacturing;
var gammeSubOperation: TManufacturingSubOperation;
var gammeStandardControlItem: TManufacturingStandardControlItem;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeSubOperation:=gammeCroissant.GetOperationByNumber(10).GetManufacturingSubOperation(0);
gammeStandardControlItem:=gammeSubOperation.GetManufacturingStandardControlItem(0);
InformationDlg(gammeStandardControlItem.Procedure);
finally
gammeCroissant.free;
end;
var gammeSubOperation: TManufacturingSubOperation;
var gammeStandardControlItem: TManufacturingStandardControlItem;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeSubOperation:=gammeCroissant.GetOperationByNumber(10).GetManufacturingSubOperation(0);
gammeStandardControlItem:=gammeSubOperation.GetManufacturingStandardControlItem(0);
InformationDlg(gammeStandardControlItem.Procedure);
finally
gammeCroissant.free;
end;