MassprocessingConfirm
Fonction de confirmation de modification en masse.
Syntaxe
function MassProcessing_Confirm(var gpaoids: String): Boolean
gpaoids: liste des GPAOIDs des gammes à modifier, au format CommaText
Remarques
Quand on sélectionne une ou plusieurs gammes dans l'écran d'administration des gammes, on a accès aux scripts de traitement en masse.
Avant d'effectuer le traitement sélectionné, Qubes appelle sa fonction MassProcessing_Confirm.
MassProcessing_Confirm peut :
- modifier la liste des gammes sélectionnées (qui sera ensuite passée au script de traitement).
- empêcher d'effectuer le traitement (en renvoyant False)
Ces actions peuvent être automatiques ou via une interface utilisateur gérée en script (par exemple QuestionDlg ou TXform).
Si la fonction renvoie True, Qubes appelle ensuite la fonction de traitement MassProcessing_Process.
Exemples
function MassProcessing_Confirm(var gpaoids : String): Boolean
var
i : Integer;
lstGammes : TStrings;
gamme : TManufacturing;
begin
// Parmi les gammes sélectionnées, on ne conserve que celles
// qui portent sur les articles ART1, ART2, ART3
lstGammes := TStrings.Create;
lstGammes.CommaText:=gpaoids;
for i:=lstGammes.Count-1 downto 0 do begin
gamme:=TManufacturing.ConnectByGPAOID(lstGammes[i]);
if gamme.ArticleGPAOID not in ['ART1', 'ART2', 'ART3'] then
lstGammes.Delete(i);
end;
gpaoids:=lstGammes.CommaText;
// Avant de faire le traitement, on demande une confirmation à l'utilisateur
Result:=QuestionDlg('Confirmez-vous la modification pour les gammes suivantes: '+gpaoids+' ?');
end;
var
i : Integer;
lstGammes : TStrings;
gamme : TManufacturing;
begin
// Parmi les gammes sélectionnées, on ne conserve que celles
// qui portent sur les articles ART1, ART2, ART3
lstGammes := TStrings.Create;
lstGammes.CommaText:=gpaoids;
for i:=lstGammes.Count-1 downto 0 do begin
gamme:=TManufacturing.ConnectByGPAOID(lstGammes[i]);
if gamme.ArticleGPAOID not in ['ART1', 'ART2', 'ART3'] then
lstGammes.Delete(i);
end;
gpaoids:=lstGammes.CommaText;
// Avant de faire le traitement, on demande une confirmation à l'utilisateur
Result:=QuestionDlg('Confirmez-vous la modification pour les gammes suivantes: '+gpaoids+' ?');
end;