DocClassifFieldAlternativesAsCommaText
Description de DocClassifFieldAlternativesAsCommaText
Syntaxe
function DocClassifFieldAlternativesAsCommaText(classifFieldName: String): String
classifFieldName: nom du champ de classification
Remarques
Retourne la liste des valeurs possibles pour un champ de classification pour les documents.
Si un champ n'est pas connu cela génère une exception
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;