Merci pour ces modifications.
Par contre, effectivement, il serait préférable d'utiliser le terme champs personnalisés.
J'ai regardé vite fait et j'ai remarqué des choses bizarres :
- Ne serait-ce pas "Nb := Nb+1;" plutôt que "Nb := 0;" ligne 541 ?
- La fonction CustomField dans ScorEpioNCommonScrip.pas ne devrait-elle pas initialiser la variable "Result" avec la valeur 'Champs d''origine' au départ ? Personnellement j'aurais utilisé la valeur vide comme valeur par défaut plutôt que 'Champs d''origine' lorsque l'on ne sélectionne pas de champ personnalisé (voir code ci-dessous) .
Code: Select all
function SelectCustomField(Nom : String): string;
var
n, i : Integer;
Tag : String;
begin
PickTreeClear; // init list
PickTreeAdd('Champ(s) personnalisé(s) pour ''' + Nom + '''','');
PickTreeAdd('Champs d''origine','');
n := GetCustomFieldCount;
for i := 0 to n-1 do
begin
Tag := GetCustomFieldTag(i);
PickTreeAdd(GetCustomFieldName(Tag) + ' (' + Tag + ')', Tag);
end;
PickTreeExec(Result);
end;