ItemSubFamily.Update

ItemSubFamily = class static (TObject)Interface de ItemSubFamilyExemples 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;

Classification

QuBESStock ItemSubFamily