MassprocessingResult
Fonction retournant le résultat des modifications
Syntaxe
function MassProcessing_Result(var gpaoids: String): String;
gpaoids: liste des GPAOIDs des gammes modifiées, au format CommaText
Remarques
Cette fonction est appelée après MassProcessing_Process.
Elle permet de faire un retour à l'utilisateur après un traitement en masse.
Exemples
// Vérification que les modifications ont bien été prises en compte.
function MassProcessing_Result(var gpaoids: String): String;
var
i : Integer;
lstGammes, lstLog : TStrings;
gamme : TManufacturing;
gammeOpe50 : TManufacturingOperation;
begin
lstLog := TStrings.Create;
lstGammes := TStrings.Create;
lstGammes.CommaText:=gpaoids;
for i:=0 to lstGammes.Count-1 do begin
gamme:=TManufacturing.ConnectByGPAOID(lstGammes[i]);
try
gammeOpe50:=gamme.GetOperationByNumber(50);
except
lstLog.Add(lstGammes[i]+': l''opération 50 n''a pas été enregistrée.'+#13#10);
end;
end;
Result:=lstLog.CommaText;
end;
function MassProcessing_Result(var gpaoids: String): String;
var
i : Integer;
lstGammes, lstLog : TStrings;
gamme : TManufacturing;
gammeOpe50 : TManufacturingOperation;
begin
lstLog := TStrings.Create;
lstGammes := TStrings.Create;
lstGammes.CommaText:=gpaoids;
for i:=0 to lstGammes.Count-1 do begin
gamme:=TManufacturing.ConnectByGPAOID(lstGammes[i]);
try
gammeOpe50:=gamme.GetOperationByNumber(50);
except
lstLog.Add(lstGammes[i]+': l''opération 50 n''a pas été enregistrée.'+#13#10);
end;
end;
Result:=lstLog.CommaText;
end;