DocClassifFieldsNamesAsCommaText
Liste des champs de classification
Syntaxe
function DocClassifFieldsNamesAsCommaText(): String
Remarques
Retourne la liste des champs de classification possible pour les documents.
Si un champ n'est pas défini, il y a "Non Utilisé" dans la liste
Elle est sous la forme d'une commatext. Pour plus de détails sur ce format, cliquer ici.
Exemples
uses SysUtils, QuBESDocuments;
var doc := TDocument.ConnectByID(12);
var classifFieldsNames := TStrings.Create;
classifFieldsNames.CommaText := DocClassifFieldsNamesAsCommaText;
var classif := JSON.NewObject;
for var i:=0 to classifFieldsNames.count-1 do begin
var classifFieldValues := TStrings.Create;
classifFieldValues.CommaText := DocClassifFieldAlternativesAsCommaText(classifFieldsNames[i]);
if doc.ClassifFieds[i]=-1 then
classif[classifFieldsNames[i]] := _('-- Non Défini --')
else
classif[classifFieldsNames[i]] := classifFieldValues[doc.ClassifFieds[i]];
end;
var doc := TDocument.ConnectByID(12);
var classifFieldsNames := TStrings.Create;
classifFieldsNames.CommaText := DocClassifFieldsNamesAsCommaText;
var classif := JSON.NewObject;
for var i:=0 to classifFieldsNames.count-1 do begin
var classifFieldValues := TStrings.Create;
classifFieldValues.CommaText := DocClassifFieldAlternativesAsCommaText(classifFieldsNames[i]);
if doc.ClassifFieds[i]=-1 then
classif[classifFieldsNames[i]] := _('-- Non Défini --')
else
classif[classifFieldsNames[i]] := classifFieldValues[doc.ClassifFieds[i]];
end;