TManufacturingOperation.ManagerGroups
redirigé depuis TManufacturingOperation.GetOperationManagerGroups
| TManufacturingOperation = class (TObject) | Interface de TManufacturingOperation | Exemples de TManufacturingOperation |
Liste des groupes de responsables.
Syntaxe
property ManagerGroups: TStrings read GetManagerGroups write SetManagerGroups
Remarques
Exemples
var gammeCroissant: TManufacturing;
var gammeOperation: TManufacturingOperation;
var groupList: TStrings;
groupList:=TStrings.create;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
groupList.Add('groupe laboratoire');
groupList.Add('groupe technique');
gammeOperation:=gammeCroissant.GetOperationByNumber(10);
gammeOperation.ManagerGroups:=groupList;
gammeCroissant.post;
finally
gammeCroissant.free;
groupList.free;
end;
var gammeOperation: TManufacturingOperation;
var groupList: TStrings;
groupList:=TStrings.create;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
groupList.Add('groupe laboratoire');
groupList.Add('groupe technique');
gammeOperation:=gammeCroissant.GetOperationByNumber(10);
gammeOperation.ManagerGroups:=groupList;
gammeCroissant.post;
finally
gammeCroissant.free;
groupList.free;
end;
var gammeCroissant: TManufacturing;
var gammeOperation: TManufacturingOperation;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeOperation:=gammeCroissant.GetOperationByNumber(10);
informationDlg('groupe de responsables l''opération 10: '+gammeOperation.managerGroups.Commatext+'');
finally
gammeCroissant.free;
end;
var gammeOperation: TManufacturingOperation;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeOperation:=gammeCroissant.GetOperationByNumber(10);
informationDlg('groupe de responsables l''opération 10: '+gammeOperation.managerGroups.Commatext+'');
finally
gammeCroissant.free;
end;