Aller au contenu

Extension des rapports avec Document Central

Document Central peut être étendu avec du code permettant l’archivage automatique des documents lors de l’impression d’un rapport ou lors de la validation ou de la conversion d’un document. Pendant ce processus, le document est envoyé à la file d’attente d’archivage de Document Central. Pour activer l’archivage, le rapport doit également être configuré dans la Configuration des rapports de Document Central.

Warning

À partir de la version 21.16.6.0 (BC21), 22.7.6.0 (BC22) et 23.3.6.0 (BC23), il n’est plus nécessaire d’étendre les rapports pour Document Central. La nouvelle méthode, beaucoup plus simple, consiste à utiliser l’intégration via événement d’impression et à activer la case à cocher "Imprimer sur événement" dans la Configuration des rapports de Document Central. Si cette option est activée et que le rapport est configuré dans Document Central, celui-ci sera automatiquement archivé via la file d’attente d’archivage de Document Central dès qu’il est imprimé depuis le système.

Il existe deux manières d’ajouter le code nécessaire aux rapports :

  • Dans le cas d’un rapport personnalisé, le code peut être directement ajouté dans le rapport.
  • Pour les autres rapports, vous pouvez créer une extension de rapport qui exécutera le code.

Les conditions suivantes doivent être remplies :

  • Le module Document Central doit être sous licence.
  • Le module CORE doit être référencé dans l’extension.
  • Le module Document Central doit être référencé dans l’extension.

Code pour l’extension d’un rapport Business Central avec Document Central :

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
reportextension 5492913 "SIM_DMS Sales Quote Ext" extends "Standard Sales - Quote"
{
    trigger OnPostReport()

    var
        LocalCodeunitSIMDMSArchiveMgt: Codeunit "SIM_DMS Archive Mgt";
        LocalCodeunitSIMDMSSI: Codeunit "SIM_DMS SI";
        LocalCodeunitSIMDMSMgt: Codeunit "SIM_DMS Mgt.";
        LocalRecordRef: RecordRef;
        LocalReportIDInteger: Integer;
    begin

        if not EVALUATE(LocalReportIDInteger, COPYSTR(CurrReport.OBJECTID(FALSE), 7)) then exit;
        LocalCodeunitSIMDMSSI.SetRequestPage(LocalCodeunitSIMDMSMgt.GetRequestPageXML(LocalReportIDInteger));

        LocalRecordRef.GETTABLE(Header);
        LocalCodeunitSIMDMSArchiveMgt.OnReportPostDataItem(LocalRecordRef, LocalReportIDInteger, CurrReport.PREVIEW);
    end;

    procedure HasDMSReportExtensionSIM_DMS(): Boolean
    begin
        exit(true);
    end;
}