Dynamics NAV: Verzeichnisinhalt ermitteln

Die Variable recFile verweist auf die Tabelle „File“.

File-Record

Heute möchte ich das Beispiel ein wenig ausbauen und vor allem auf die Gestaltung des XMLPorts mit einer variablen Anzahl von Unterknoten eingehen.

XML-Datei

Zum besseren Verständnis schauen wir uns am Beginn gleich einmal das gewünschte Ergebnis an:

Zu einem Mitarbeiter soll neben den allgemeinen Daten (Name, Geburtsdatum, Gehalt) auch die variable Anzahl der Kinder mit Namen und Alter abgespeichert werden.

XMLPort

Struktur

Den entsprechenden XMLPort habe ich folgendermaßen aufgebaut:

XMLPort – Struktur

Zu beachten ist der SourceType Table beim dynamischen Unterknoten „Kind“. Die DataSource wurde dabei auf Integer festgelegt (und der Name statt <Integer>(Integer) auf Kind(Integer) abgeändert).

Ich habe auch dieses Beispiel wieder bewußt sehr einfach gehalten. So würde man z.B. in Navision mangels dynamischer Arrays wohl eher auf eine temporäre Tabelle zum Zwischenspeichern der Kinderdaten zurückgreifen.

Der Einfachheit halber setze ich aber voraus, dass es keine Mitarbeiter mit mehr als 10 Kindern geben wird, um dennoch auf ein Array (eben mit fixer Dimensionsanzahl) zurückgreifen zu können.

Das Feld „KinderAnzahl“ soll nicht mit einem Fixwert beschickt sondern dynamisch aus der Anzahl der übergebenen Kinder-Daten errechnet werden.

Globale Variablen

Globale Variablen für den dynamischen Unterknoten

In g_intKinderZaehler wird automatisch die Anzahl der übergebenen Kinder hochgezählt.

Die Daten pro Kind (im Beispiel: Name und Alter) stehen im Array g_strKind. Die Länge dieser Variablen (im Beispiel: 20) muss der Länge des längsten „Unterfeldes“ (z.B. KindName) entsprechen, ansonst kann ein Laufzeitfehler auftreten – Siehe auch Routine AddKind.

Die Array-Dimensionen habe ich folgendermaßen festgelegt (wie gesagt: dynamsiche Arrays kennt NAV 5.0 SP1 nicht):

Festlegen der Array-Dimensionen für den Unterknoten

• Die 1. Dimension bezieht sich auf die maximale Anzahl der Kinder: 10
• Die 2. Dimension muss der Anzahl der Unterknoten-Elemente entsprechen (pro Kind: Name und Alter)

Programmierung

Wie wird nun die variable Anzahl an Kindern befüllt?

Ermittlung der Anzahl der Kinder

Im Trigger OnInitXMLPort() wird der „Kinder-Zähler“ auf 0 gesetzt.

Bei der Ausgabe der Daten wird diese Zähler-Variable im Trigger OnPreXMLPort() dem Element „KinderAnzahl“ zugewiesen.

Wie werden nun die Kind-Daten an den XML-Port übergeben?

Ich habe dazu eine Routine „AddKind“ entwickelt, welche meine Array-Variable entsprechend befüllt und dabei auch den Kinder-Zähler hochzählt.

Wie erfolgt nun die Ausgabe dieser Kinddaten?

Ausgabe der dynamischen Kinder-Daten

Im Trigger „Kind – Export::OnPreXMLItem()“ wird festgelegt, wieviele Unter-Elemente auszugeben sind. Im Trigger „Kind – Export::OnAfterGetRecord()“ erfolgt schließelich die Zuweisung der Array-Variablen an die XML-Unterknotenelemente.

Nur der Vollständigkeit halber möchte ich auch noch den Programmcode zur Befüllung der Mitarbeiterdaten anführen, welche ich mittels meiner Routine „SetMitarbeiter“ vornehme:

Befüllung der Mitarbeiterdaten

XMLPort-Aufruf

Zu guter Letzt fehlt uns jetzt nur noch der Aufruf unseres XMLPorts.

Die grundsätzliche Vorgangsweise habe ich ja bereits in einem früheren Artikel beschrieben. Heute wollen wir aber auch noch die neuen Erweiterungen berücksichtigen und in unserer Aufruf-CodeUnit einbauen:

Aufruf des XML-Ports

Schöne Grüße – Christian

Ich habe einen XMLPort für einen Daten-Export benötigt.

Dazu habe ich folgende Routine in eine CodeUnit eingebaut:

PROCEDURE XMLAusgabeTest();

VAR

XMLFile : File;
sOut : OutStream;
XMLPort : XMLport #ObjectID des XMLPorts#;

BEGIN

XMLFile.TEXTMODE(TRUE);
XMLFile.CREATE(‚C:\Temp\xmltest.xml‘);
XMLFile.CREATEOUTSTREAM(sOut);
XMLPort.SETDESTINATION(sOut);
XMLPort.EXPORT;
XMLFile.CLOSE;

END;

Die Routine benötigt in dieser einfachen Form 3 Variablen:

• XMLFile – Datentyp File
• sOut – Datentyp OutStream
• XMLPort – Datentyp XMLPort (Verweis auf einen zuvor errichteten XMLPort)

• CODE: Varchar (maximal 250 Zeichen)
• OPTION: Integer
• INTEGER: Integer (Wertebereich von -2.147.483.647 bis +2.127.283.647)
• DECIMAL: DECIMAL (oder FLOAT???)
• DATE: SMALLDATETIME (SQLServer startet erst ab 01.01.1754)
• TIME: DATETIME
• BOOLEAN: TINYINT (oder BIT???)
• TEXT: VARCHAR (maximal 250 Zeichen)

Zum einen, weil ich diese Unterlagen als Wissensbibliothek für meine eigenen Arbeiten nutzen möchte, zum anderen, weil es nach meinen Begriffen bislang keine umfassende deutschprachige Literatur zu diesem Themenbereich gibt.

Die einzelnen Blog-Beiträge sind nicht als einmalig beschriebene und dann abgeschlossene Artikel zu verstehen, sondern ich plane, die Dokumentationen immer weiter zu vertiefen, um so letztendlich ein umfassendes Kompendium zu erstellen.

Viele der beschriebenen Arbeitsschritte bei diesem Projekt sind keineswegs nur auf Navision (heißt jetzt neu ja eben Microsoft Dynamics NAV) beschränkt, sondern lassen sich analog eigentlich auf alle gängigen Software-Applikationsentwicklungen und Datenbankprogrammierungen übertragen.

Mit welchen Einzelaspekten werde ich mich auseinandersetzen:

• Zieldefinition und Anforderungsbeschreibung (Projektdokumentation)
• Feinkonzept und Aufgaben-Analyse
• Datenbank-Design
• Tabellen-Implementierung
• Formulare / Online-Masken
• Berichte (Datenblätter, Auswertungslisten)
• Schnittstellen (Dataports, N/ODBC)
• Programmierung (Trigger, Code-Module=CodeUnits)
• Testen und Debuggen
• Benutzer- und Entwickler-Dokumentation

Ergebnis := CONVERTSTR(String, AltesZeichen, NeuesZeichen);

Beispiel:

MESSAGE ( CONVERTSTR (‚Du bist raus‘, ‚r‘, ‚M‘ ));

Anzeige: „Du bist Maus“

CASE myParameter OF
  Wert1: Aktion 1;
  Wert2: Aktion 2;
  Wert3: Aktion 3;
  …
  ELSE Generelle Alternative;
END;