| Docs Hilfe

☰ Inhaltsverzeichnis
Allgemein

NAVAX Extension Base

Einrichtung

Arbeiten mit NAVAX Apps

Informationen für Entwickler

Anhang

Docs / NAVAX Extension Base / Informationen für Entwickler

Texteditor

2023/12/28 • 6 Min. Lesedauer

In diesem Thema

Alles im Textfeld speichern
Text auf mehrere Zeilen aufsplitten
Text in einem Blob speichern
Siehe auch

Der Texteditor kann mit Hilfe der Codeunit NCEX Text Editor Mgt. über die Funktion EditText und ShowText aufgerufen werden. Für die Funktion EditText stehen mehrere Varianten (bzw. mehrere Überladungen) zur Verfügung. Die Funktion ShowText ist nur zum Anzeigen und nicht zum Bearbeiten eines Textes gedacht. Nachfolgenden Beispiele zeigen verschiedene Ausgangssituationen und Möglichkeiten zur Integration des Texteditors.

Alles im Textfeld speichern

Der Texteditor kann z.B. mit einer Variable der Art Text aufgerufen werden:

procedure EditText(var Text: Text; MaxLineStrLen: Integer; MaxTextLen: Integer; ReadOnly: Boolean) TextModified: Boolean

Parameter

Text Gibt den Text an, der editiert werden soll.
MaxLineStrLen Falls angegeben, kann damit die maximale Anzahl der Zeichen pro Zeile begrenzt werden. Der Text wird bei der Eingabe im Editor automatisch umgebrochen, falls die Länge überschritten wird. Der Umbruch versucht dabei Wörter ganz zu lassen.
MaxTextLen Falls angegeben, kann damit die maximale Anzahl der Zeichen des gesamten Textes begrenzt werden.
ReadOnly Gibt an, ob der Editor im schreibgeschützten Modus geöffnet werden soll. Im schreibgeschützten Modus kann der Text nicht geändert werden. Der Text kann aber markiert und Inhalte daraus können kopiert werden.

Szenario

Nachfolgendes Beispiel zeigt die Integration des Editors in die Registrierkassenbon-Texteinrichtung. Die Tabelle verfügt über ein Textfeld mit einer Länge von 1000 Zeichen:
```
...
field(10; "Text"; Text[1000])
{
    DataClassification = CustomerContent;
    Caption = 'Text', Comment = 'DEU="Text"';
}
field(15; "Starting Date"; Date)
{
...
```
Da jeder Textzeile zusätzlich zum Text noch ein Startdatum und ein Enddatum hinterlegt werden kann und das Textfeld selbst groß genug ist, wurde hier nachfolgende einfache Lösung gewählt, welche den Text nicht auf mehrere Zeilen aufgesplittet. Ein Zeilenumbruch im Text ist trotzdem möglich. Wichtig dabei ist, dass das Textfeld in der Page auf Editable = false; gesetzt wird, da in dieser Lösung die Zeilenumbrüche (nicht sichtbar) ebenfalls im Textfeld gespeichert werden.

Implementierung

Table

...
procedure EditText(Editable: Boolean)
var
    NCEXTextEditorMgt: Codeunit "NCEX Text Editor Mgt.";
    TempText: Text;
begin
    TempText := Text;
    if not NCEXTextEditorMgt.EditText(TempText, 0, MaxStrLen(Text), not Editable) then
        exit;
    Text := CopyStr(TempText, 1, MaxStrLen(Text));
end;
...

Page

...
field("Text"; Rec."Text")
{
    ApplicationArea = All;
    ToolTip = 'Specifies the text. Click on the field to edit the text.', Comment = 'DEU="Gibt den Text an. Klicken Sie auf das Feld, um den Text zu bearbeiten."';
    Editable = false;
    AssistEdit = true;

    trigger OnAssistEdit()
    begin
        Rec.EditText(CurrPage.Editable());
        CurrPage.Update();
    end;
}
...

Text auf mehrere Zeilen aufsplitten

Der Texteditor kann auch mit einer Variable der Art RecordRef aufgerufen werden:

procedure EditText(RecordRef: RecordRef; TextFieldNo: Integer; var TempBlob: Codeunit "Temp Blob"; ReadOnly: Boolean) TextModified: Boolean

Parameter

RecordRef Gibt an, welche Tabelle und welche Datensätze aus der Tabelle in den Texteditor geladen werden sollen.
Wichtig
Es muss besonders darauf geachtet werden, dass die richtigen Filter am RecordRef gesetzt sind.
TextFieldNo Gibt an, in welchem Feld der Text gespeichert ist.
Hinweis
Die maximale Anzahl der Zeichen pro Zeile (MaxLineStrLen) wird bei diesem Aufruf über die Länge des TextFieldNo-Feldes ermittelt. Der Text wird bei der Eingabe im Editor automatisch umgebrochen, falls die Länge überschritten wird. Der Umbruch versucht dabei Wörter ganz zu lassen.
TempBlob Enthält den neuen, editierten Text.
ReadOnly Gibt an, ob der Editor im schreibgeschützten Modus geöffnet werden soll. Im schreibgeschützten Modus kann der Text nicht geändert werden. Der Text kann aber markiert und Inhalte daraus können kopiert werden.

Szenario

Nachfolgendes Beispiel zeigt eine mögliche Integration des Editors in die Textbausteinzeilen: Da die Tabelle "Extended Text Line" nur den Text enthält und das Textfeld mit einer Länge von 100 Zeichen nicht groß genug ist, wurde hier nachfolgende Lösung gewählt, welche den Text auf mehrere Zeilen aufgesplittet.

Implementierung

pageextension 50000 "NVX Extended Text Lines" extends "Extended Text Lines"
{
    actions
    {
        addfirst(Processing)
        {
            action(NVXTextEditorAction)
            {
                ApplicationArea = All;
                Caption = 'Text Editor', Comment = 'DEU="Texteditor"';
                Image = Edit;
                ToolTip = 'Edit the text in the text editor.', Comment = 'DEU="Bearbeiten Sie den Text im Texteditor."';

                trigger OnAction()
                var
                    ExtendedTextLine: Record "Extended Text Line";
                    NCEXTextEditorMgt: Codeunit "NCEX Text Editor Mgt.";
                    TempBlob: Codeunit "Temp Blob";
                    RecordRef: RecordRef;
                    InStream: InStream;
                    NextLineNo: Integer;
                    TempText: Text;
                begin
                    Clear(ExtendedTextLine);
                    ExtendedTextLine.SetRange("Table Name", Rec."Table Name");
                    ExtendedTextLine.SetRange("No.", Rec."No.");
                    ExtendedTextLine.SetRange("Language Code", Rec."Language Code");
                    ExtendedTextLine.SetRange("Text No.", Rec."Text No.");
                    RecordRef.GetTable(ExtendedTextLine);
                    if not NCEXTextEditorMgt.EditText(RecordRef, ExtendedTextLine.FieldNo(Text), TempBlob, not CurrPage.Editable()) then
                        exit;

                    ExtendedTextLine.LockTable();
                    ExtendedTextLine.DeleteAll();
                    NextLineNo := 10000;
                    TempBlob.CreateInStream(InStream);
                    while (not InStream.EOS()) do begin
                        Clear(ExtendedTextLine);
                        ExtendedTextLine."Table Name" := Rec."Table Name";
                        ExtendedTextLine."No." := Rec."No.";
                        ExtendedTextLine."Language Code" := Rec."Language Code";
                        ExtendedTextLine."Text No." := Rec."Text No.";
                        ExtendedTextLine."Line No." := NextLineNo;
                        NextLineNo += 10000;
                        InStream.ReadText(TempText);
                        ExtendedTextLine.Text := CopyStr(TempText, 1, MaxStrLen(ExtendedTextLine.Text));
                        ExtendedTextLine.Insert();
                    end;
                end;
            }
        }
    }
}

Text in einem Blob speichern

Ein Aufruf des Texteditors mit Codeunit "Temp Blob" ohne RecordRef ist ebenfalls möglich:

procedure EditText(var TempBlob: Codeunit "Temp Blob"; MaxLineStrLen: Integer; MaxTextLen: Integer; ReadOnly: Boolean) TextModified: Boolean

Parameter

TempBlob Enthält den Text, der editiert werden soll.
MaxLineStrLen Falls angegeben, kann damit die maximale Anzahl der Zeichen pro Zeile begrenzt werden. Der Text wird bei der Eingabe im Editor automatisch umgebrochen, falls die Länge überschritten wird. Der Umbruch versucht dabei Wörter ganz zu lassen.
MaxTextLen Falls angegeben, kann damit die maximale Anzahl der Zeichen des gesamten Textes begrenzt werden.
ReadOnly Gibt an, ob der Editor im schreibgeschützten Modus geöffnet werden soll. Im schreibgeschützten Modus kann der Text nicht geändert werden. Der Text kann aber markiert und Inhalte daraus können kopiert werden.

Szenario

Wenn der Text direkt zum Datensatz gespeichert werden soll (d.h. keine Aufsplittung auf mehrere Datensätze) und die Lösung über ein Textfeld aufgrund der begrenzten Feldlänge (je nach Definition max. 2048 Zeichen) nicht in Frage kommt, kann der Text auch in einem Blob-Feld gespeichert werden. Optional kann ein weiteres Feld angelegt werden, welches eine Vorschau auf den Inhalt des Blob-Feldes anzeigt. Nachfolgendes Beispiel zeigt eine mögliche Lösung.

Implementierung

Table

...
field(50000; "Text Preview"; Text[250])
{
    DataClassification = CustomerContent;
    Caption = 'Text Preview', Comment = 'DEU="Textvorschau"';
}
field(50001; "Text Storage"; Blob)
{
    DataClassification = CustomerContent;
    Caption = 'Text Storage', Comment = 'DEU="Textspeicher"';
}

procedure EditText(Editable: Boolean)
var
    NCEXTextEditorMgt: Codeunit "NCEX Text Editor Mgt.";
    TempBlob: Codeunit "Temp Blob";
    InStream: InStream;
    OutStream: OutStream;
    NewText: Text;
begin
    CalcFields("Text Storage");
    "Text Storage".CreateInStream(InStream);
    TempBlob.CreateOutStream(OutStream);
    CopyStream(OutStream, InStream);
    if not NCEXTextEditorMgt.EditText(TempBlob, 0, 0, not Editable) then
        exit;
    TempBlob.CreateInStream(InStream);
    InStream.Read(NewText);
    SaveText(NewText);
end;

procedure SaveText(NewText: Text)
var
    OutStream: OutStream;
begin
    "Text Storage".CreateOutStream(OutStream);
    OutStream.Write(NewText);
    "Text Preview" := CopyStr(NewText, 1, MaxStrLen("Text Preview"));
end;
...

Page

...
field("Text Preview"; Rec."Text Preview")
{
    ApplicationArea = All;
    ToolTip = 'Specifies the text. Click on the field to edit the text.', Comment = 'DEU="Gibt den Text an. Klicken Sie auf das Feld, um den Text zu bearbeiten."';
    Editable = false;
    AssistEdit = true;

    trigger OnAssistEdit()
    begin
        Rec.EditText(CurrPage.Editable());
        CurrPage.Update();
    end;
}
...