ItemSubFamily.Update
| ItemSubFamily = class static (TObject) | Interface de ItemSubFamily | Exemples de ItemSubFamily |
Qubes 10.0 Met à jour les informations d'une sous-famille d'article
Syntaxe
class procedure Update(subFamilyID: Integer; parentFamilyID: Integer; name: String; description: String)
subFamilyID: ID de la sous-famille d'article à modifier
parentFamilyID: ID de la famille d'article parente
name: Nouveau nom de la sous-famille. 60 caractères max.
description: Nouvelle description de la sous-famille. 255 caractères max.
Remarques
Le nom doit être unique parmi les sous-familles de la famille parente ou, le cas échéant, être déjà attribué à la sous-famille modifiée.
Exemples
uses QuBESStock;
// Nom de la famille d'article à laquelle on veut ajouter une sous-famille
var familyName := "Boulangerie";
// Nom de la nouvelle sous-famille
var subFamilyName := "Chocolat";
// Description de la sous-famille
var description := "Sous-famille regroupant les différents articles de chocolat.";
/**
* Vérifie si le nom de la sous-famille n'est pas attribué à une autre
* sous-famille de la famille
*/
if SubFamilyIDFromName(familyName, subFamilyName) <> 0 then begin
PrintLn("Le nom choisi est déjà utilisé par une autre sous-famille de la famille");
exit;
end;
// Récupération de l'ID de la famille
var familyID := ArticleFamilyIDFromName(familyName);
// Création d'une sous-famille
var newSubFamilyID := ItemSubFamily.Create(familyID, subFamilyName, description);
// Vérifie que la création s'est bien déroulée
if newSubFamilyID <= 0 then begin
PrintLn("Impossible de créer la sous-famille");
exit;
end;
/**
* Modification de la sous-famille nouvellement créée
*/
// Nouveau nom
var newName := "Vanille";
/**
* Vérifie si le nouveau nom de la sous-famille n'est pas attribué à une autre
* sous-famille de la famille
*/
if (SubFamilyIDFromName(familyName, subFamilyName) <> 0)
and (SubFamilyIDFromName(familyName, subFamilyName) <> newSubFamilyID) then begin
PrintLn("Le nom choisi est déjà utilisé par une autre sous-famille de la famille");
exit;
end;
// Nouvelle description
var newDescription := "Finalement je préfère la vanille.";
try
// Modification de la sous-famille
ItemSubFamily.Update(
newSubFamilyID,
familyID,
newName,
newDescription
);
PrintLn("Modification réussie de la sous-famille");
except
PrintLn("Impossible de modifier la sous-famille");
end;