Aller au contenu

Type de valeur de données : Codeunit

Avec le Type : Codeunit, une valeur d'une table peut être définie individuellement. Des fonctions programmées, des filtres et d'autres éléments peuvent être utilisés à cet effet.

Exemple

Lorsque le client utilise une codeunit pour fusionner des lignes ou une codeunit pour d'autres logiques pour une facture de vente publiée, il faut également une codeunit pour les eDocuments. Sinon, il y a un très grand risque qu'un fichier XML invalide soit créé pour les formats XInvoice et ZUGFeRD.

Dans la codeunit d'exemple, la méthode GETFUNCTION renvoie la liste des paramètres pour la configuration de la valeur de données.

Info

Cette codeunit doit être implémentée dans une extension personnalisée.

AL
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
codeunit 50000 "SIM_XSD Custom Data Value"
{
    TableNo = "SIM_XSD Data Value";

    trigger OnRun()
    var
        LocalRecordSalesInvoiceLine: Record "Sales Invoice Line";
        LocalRecordPurchInvLine: Record "Purch. Inv. Line";
        LocalRecordSIMXSDLinkedData: Record "SIM_XSD Linked Data";
        LocalRecordSIMXSDLinkedDataLine: Record "SIM_XSD Linked Data Line";
        LocalRecordRef: RecordRef;
        LocalParamText: Text;
    begin
        if Rec."Codeunit Function" = '' then
            LocalParamText := 'GETFUNCTIONS'
        else
            LocalParamText := Rec."Codeunit Function";

        case LocalParamText of
            'GETFUNCTIONS':
                Rec."Function List" := 'SalesInvoiceLine_CAT,PurchInvLine_CAT';
            'SalesInvoiceLine_CAT':
                begin
                    if not LocalRecordRef.Get(Rec."Codeunit Record ID") then
                        Error('L\'enregistrement n\'existe pas.');

                    if not LocalRecordSIMXSDLinkedData.Get('CATEGORY') then
                        Error('Les données liées n\'existent pas.');

                    if LocalRecordRef.Number <> 113 then
                        Error('Mauvaise table');

                    LocalRecordRef.SetTable(LocalRecordSalesInvoiceLine);

                    if LocalRecordSalesInvoiceLine."VAT Bus. Posting Group" = 'NICHTSTB' then begin
                        Rec."Function Return Value" := 'E';
                        exit;
                    end;

                    if LocalRecordSIMXSDLinkedDataLine.Get(LocalRecordSIMXSDLinkedData.Code, LocalRecordSalesInvoiceLine."VAT Prod. Posting Group") then begin
                        Rec."Function Return Value" := LocalRecordSIMXSDLinkedDataLine."New Value";
                        exit;
                    end;

                    Rec."Function Return Value" := '';
                end;
            'PurchInvLine_CAT':
                begin
                    if not LocalRecordRef.Get(Rec."Codeunit Record ID") then
                        Error('L\'enregistrement n\'existe pas.');

                    if not LocalRecordSIMXSDLinkedData.Get('CATEGORY') then
                        Error('Les données liées n\'existent pas.');

                    if LocalRecordRef.Number <> 123 then
                        Error('Mauvaise table');

                    LocalRecordRef.SetTable(LocalRecordPurchInvLine);

                    if LocalRecordPurchInvLine."VAT Bus. Posting Group" = 'NICHTSTB' then begin
                        Rec."Function Return Value" := 'E';
                        exit;
                    end;

                    if LocalRecordSIMXSDLinkedDataLine.Get(LocalRecordSIMXSDLinkedData.Code, LocalRecordPurchInvLine."VAT Prod. Posting Group") then begin
                        Rec."Function Return Value" := LocalRecordSIMXSDLinkedDataLine."New Value";
                        exit;
                    end;

                    Rec."Function Return Value" := '';
                end;
        end;
    end;
}

Voir aussi