Codeunit "Utilities UTCAP"

ID 70344759

Namespace: CapVision.Core.Misc

Properties

Name	Value
Access	Public
SingleInstance	True

Methods

GetDialogProgressBar

Génère une barre de progression à placer dans un objet Dialog au sein d'un placeholder #1############.

procedure GetDialogProgressBar(ProgressValue: Integer, DialogWidth: Integer): Text

Parameters

Name	Type	Description
ProgressValue	Integer	Valeur de la progression. Cette valeur doit être comprise entre 0 et 10000.
DialogWidth	Integer	Largeur du placeholder en nombre de caractères.

Returns

Type	Description
Text	Texte à placer dans le placeholder sous la forme Dialog.Update(1, GetDialogProgressBar(50000, StrLen('#1############'))).

Examples

Le code ci-dessous donne un exemple d'utilisation de la fonction GetDialogProgressBar pour simuler une barre de progression dans une boîte de dialogue.

``` AL
    var
        Utilities: Codeunit "Utilities UTCAP";
        Window: Dialog;
        Step, StepCount: Integer;
    begin
        Window.Open('Doing some stuff...\#1##################');
    
        StepCount := 100;
        for Step := 1 to StepCount do begin
            //20 is the length of the placeholder #1##################
            Window.Update(1, Utilities.GetDialogProgressBar(Step / (StepCount * 1.0) * 10000 div 1, 20));
            Sleep(500);
        end;
    
        Window.Close();
    end;
```

GetHtmlImgSrc

Renvoie l'image d'un article sous la forme d'une URL en base64.

procedure GetHtmlImgSrc(Item: Record Item, MaxSize: Integer): Text

Parameters

Name	Type	Description
Item	Record Item
MaxSize	Integer

Returns

Type	Description
Text

AppendFilterValue

Concatène un filtre à un autre.

procedure AppendFilterValue(ValueToAdd: Text, var FilterText: Text)

Parameters

Name	Type	Description
ValueToAdd	Text
FilterText	Text

GetPrimaryCultureName

Renvoie le nom de la culture principale de l'utilisateur.

procedure GetPrimaryCultureName(): Text

Returns

Type	Description
Text

TryGetCultureName

Obtient le nom de la culture correspondant à la langue spécifiée.

[TryFunction]
procedure TryGetCultureName(LanguageId: Integer, var CultureName: Text): Boolean

Parameters

Name	Type	Description
LanguageId	Integer
CultureName	Text

Returns

Type	Description
Boolean

SafeDiv

Effectue une division en renvoyant 0 en cas de tentative de division par zéro.

procedure SafeDiv(Numerator: Decimal, Denominator: Decimal): Decimal

Parameters

Name	Type	Description
Numerator	Decimal	Numérateur
Denominator	Decimal	Dénominateur

Returns

Type	Description
Decimal

SafeDiv

procedure SafeDiv(Numerator: Decimal, Denominator: Decimal, ZeroDivValue: Decimal): Decimal

Parameters

Name	Type	Description
Numerator	Decimal
Denominator	Decimal
ZeroDivValue	Decimal

Returns

Type	Description
Decimal

ConvertToBase

Convertie un nombre dans sa représentation en base choisie.

procedure ConvertToBase(Num: Integer, Base: Integer): Text

Parameters

Name	Type	Description
Num	Integer	Nombre entier.
Base	Integer	Base de destination comprise en 2 et 62.

Returns

Type	Description
Text

DecodeXmlName

Décode un nom dans un document XML. Cette procédure a le même fonctionnement que XmlConvert.DecodeName (https://docs.microsoft.com/en-us/dotnet/api/system.xml.xmlconvert.decodename?view=netcore-3.1)

procedure DecodeXmlName(Name: Text): Text

Parameters

Name	Type	Description
Name	Text

Returns

Type	Description
Text

ConvertFromBase

Convertie un nombre écrit en base 2 à 62 vers un nombre entier.

procedure ConvertFromBase(ValueToConvert: Text, FromBase: Integer): Integer

Parameters

Name	Type	Description
ValueToConvert	Text	Parameter of type Text.
FromBase	Integer	Parameter of type Integer.

Returns

Type	Description
Integer	Return variable "Integer".

SerializeRecordToJson

Sérialise un enregistrement en un objet Json.

procedure SerializeRecordToJson(VarRec: Variant): JsonObject

Parameters

Name	Type	Description
VarRec	Variant	VAR Variant.

Returns

Type	Description
JsonObject

DeserializeJsonToRecord

Désérialise un objet objet Json en un record.

procedure DeserializeJsonToRecord(Payload: JsonObject, var VarRec: Variant)

Parameters

Name	Type	Description
Payload	JsonObject	JsonObject.
VarRec	Variant	VAR Variant.

See also

• Codeunit