TManufacturingOperation.ManagerLogins
redirigé depuis TManufacturingOperation.SetManagerLogins
| TManufacturingOperation = class (TObject) | Interface de TManufacturingOperation | Exemples de TManufacturingOperation |
Liste des responsables.
Syntaxe
property ManagerLogins: TStrings read GetManagerLogins write SetManagerLogins
Remarques
Exemples
var gammeCroissant: TManufacturing;
var gammeOperation: TManufacturingOperation;
var managerList: TStrings;
managerList:=TStrings.create;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
managerList.Add('oc'); // on renseigne le login de l'utilisateur.
managerList.Add('ph');
gammeOperation:=gammeCroissant.GetOperationByNumber(10);
gammeOperation.ManagerLogins:=managerList;
gammeCroissant.post;
finally
gammeCroissant.free;
managerList.free;
end;
var gammeOperation: TManufacturingOperation;
var managerList: TStrings;
managerList:=TStrings.create;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
managerList.Add('oc'); // on renseigne le login de l'utilisateur.
managerList.Add('ph');
gammeOperation:=gammeCroissant.GetOperationByNumber(10);
gammeOperation.ManagerLogins:=managerList;
gammeCroissant.post;
finally
gammeCroissant.free;
managerList.free;
end;
var gammeCroissant: TManufacturing;
var gammeOperation: TManufacturingOperation;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeOperation:=gammeCroissant.GetOperationByNumber(10);
informationDlg('Liste de responsables l''opération 10: '+gammeOperation.managerLogins.Commatext+'');
finally
gammeCroissant.free;
end;
var gammeOperation: TManufacturingOperation;
gammeCroissant:=TManufacturing.ConnectByGPAOID('gammeCroissant v0.00');
try
gammeOperation:=gammeCroissant.GetOperationByNumber(10);
informationDlg('Liste de responsables l''opération 10: '+gammeOperation.managerLogins.Commatext+'');
finally
gammeCroissant.free;
end;