diff --git a/.vs/EDKB08/v16/.suo b/.vs/EDKB08/v16/.suo index 8fadd56..c179fb9 100644 Binary files a/.vs/EDKB08/v16/.suo and b/.vs/EDKB08/v16/.suo differ diff --git a/EDKB08.vbproj b/EDKB08.vbproj index 392da3b..9c487e1 100644 --- a/EDKB08.vbproj +++ b/EDKB08.vbproj @@ -19,7 +19,7 @@ - EDKB08 + EDKB08_DMS None @@ -31,8 +31,8 @@ Binary On Off - EDKB08 - EDKB08.Service1 + EDKB08_DMS + EDKB08_DMS.Service1 Console @@ -58,7 +58,7 @@ bin\ - EDKB08.xml + EDKB08_DMS.xml 285212672 @@ -78,7 +78,7 @@ bin\ - EDKB08.xml + EDKB08_DMS.xml 285212672 diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb index d10d86f..663d56c 100644 --- a/My Project/Settings.Designer.vb +++ b/My Project/Settings.Designer.vb @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.34209 +' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. @@ -13,33 +13,33 @@ Option Explicit On Namespace My - - _ + + _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase - - Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings) - -#Region "Funktion zum automatischen Speichern von My.Settings" + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Automatische My.Settings-Speicherfunktion" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If End Sub #End If #End Region - + Public Shared ReadOnly Property [Default]() As MySettings Get - + #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject @@ -53,15 +53,15 @@ Namespace My Return defaultInstance End Get End Property - - _ + + _ Public Property Setting() As String Get - Return CType(Me("Setting"), String) + Return CType(Me("Setting"),String) End Get - Set(value As String) + Set Me("Setting") = value End Set End Property @@ -69,16 +69,16 @@ Namespace My End Namespace Namespace My - - _ + + _ Friend Module MySettingsProperty - - _ - Friend ReadOnly Property Settings() As Global.EDKB08.My.MySettings + + _ + Friend ReadOnly Property Settings() As Global.EDKB08_DMS.My.MySettings Get - Return Global.EDKB08.My.MySettings.Default + Return Global.EDKB08_DMS.My.MySettings.Default End Get End Property End Module diff --git a/ProjectInstaller.vb b/ProjectInstaller.vb index ca0d92e..f1b3683 100644 --- a/ProjectInstaller.vb +++ b/ProjectInstaller.vb @@ -46,8 +46,8 @@ Imports System.Configuration.Install ' 'ServiceInstaller1 ' - Me.ServiceInstaller1.DisplayName = "EDKB08WS" - Me.ServiceInstaller1.ServiceName = "EDKB08WS" + Me.ServiceInstaller1.DisplayName = "EDKB08_DMS" + Me.ServiceInstaller1.ServiceName = "EDKB08_DMS" ' 'ProjectInstaller ' diff --git a/app.config b/app.config index fab6604..92f540c 100644 --- a/app.config +++ b/app.config @@ -2,7 +2,7 @@ -
+
@@ -28,10 +28,10 @@ - + - + diff --git a/bin/20221227_EDKB08_DMS.zip b/bin/20221227_EDKB08_DMS.zip new file mode 100644 index 0000000..5846634 Binary files /dev/null and b/bin/20221227_EDKB08_DMS.zip differ diff --git a/bin/EDKB08.exe b/bin/EDKB08_DMS.exe similarity index 63% rename from bin/EDKB08.exe rename to bin/EDKB08_DMS.exe index 8f074d9..fa650d4 100644 Binary files a/bin/EDKB08.exe and b/bin/EDKB08_DMS.exe differ diff --git a/bin/EDKB08.exe.config b/bin/EDKB08_DMS.exe.config similarity index 83% rename from bin/EDKB08.exe.config rename to bin/EDKB08_DMS.exe.config index fab6604..92f540c 100644 --- a/bin/EDKB08.exe.config +++ b/bin/EDKB08_DMS.exe.config @@ -2,7 +2,7 @@ -
+
@@ -28,10 +28,10 @@ - + - + diff --git a/obj/Release/EDKB08.xml b/bin/EDKB08_DMS.xml similarity index 75% rename from obj/Release/EDKB08.xml rename to bin/EDKB08_DMS.xml index a6a2938..efd3f14 100644 --- a/obj/Release/EDKB08.xml +++ b/bin/EDKB08_DMS.xml @@ -2,11 +2,11 @@ -EDKB08 +EDKB08_DMS - + Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in EDOKA Mit den Methoden dieser Klasse werden einerseits die angelieferten @@ -16,23 +16,23 @@ entsprechenden Dokumente in die EDOKA-Datenbank importiert. Je Applikation ist festgehalten ob - Alle Parameter korrekt sein müssen, bevor der Dokumentimport stattfinden - Nur die fehlerhaften Importe nicht verarbeitet werden - + Interne Variable für das Property IndexData - + Datentabelle mit den Indexwerten - + Interne temporöre Datentabelle - + Prüfung der Indexwerte Sofern die Indexwerte vollständig sind, werden die Dokumente in EDOKA importiert. - + Prüft die Indexdaten und löst ggf. den Import des Dokumentes aus. Die Funktion prüft die Indexwerte. Sofern die Werte i.O. sind und der @@ -45,13 +45,13 @@ importieren (nur plausibilisieren) True=Verarbeitung i.O. False=Verarbeitung fehlerhaft Stefan Hutter - + Importiert ein Dokument nach EDOKA Gültige Werte sind: ADD, UPD, REPL, DEL True = Import erfolgreich$EOL$ False = Import fehlgeschalgen - + Prüfung der Partnerzuordnung Mit der Funktion wird abhängig vom angelieferten Wert die Partnerzuordungen zu einem bestehenden Partner in EDOKA überprüft. @@ -72,9 +72,9 @@ geliefertenen EDOKA-BarcodeID Aktuelle Datenzeile in der Tabelle Indexdata True=Partnerzuordnung i.O. False=Partnerzuordnung nicht i.O. -Checkdata +Checkdata - + Prüft, ob alle Werte für eine EDOKA_Partner-Erfasssung vorhanden sind. Wenn dies der Fall ist, wird ein neuer EDOKA-Partner eröffnet Sofern genügend Informationen für die Partnereröffnung vorhanden sind, @@ -86,9 +86,9 @@ ausgelöst. False = Daten zur Eröffnung des EDOKA-Partners sind unvollständig Stefan Hutter -Checkdata +Checkdata - + Prüft die dokumentspezifischen Werte und das Vorhandensein des physischen Dokumentes Die Verarbeitung prüft folgende Elemente im Bereich der angelieferten @@ -106,28 +106,28 @@ Importverzeichnis True=Dokumentwerte i.O. False=Dokumentwerte nicht i.O. Stefan Hutter -Checkdata +Checkdata - + Notiz zu einem Dokument hinzufügen Fühgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz hinzu Aktuelle Dokumentid Meldung / Notiz - + Auslesen der Daten "Herkunftsapplikation" und in der internen Variable Herkunftsapplikationen zwischenspeichern - + Auslesen der Herkunftsapplikation anhand des Dokumenttyps Aktueller Datensatz aus den Indexdaten "" = Herkunftsapplikation nicht vorhanden$EOL$ "[Bezeichnung] = Herkunftsapplikation vorhanden Herkuftsapplikation_auslesen +cref="M:EDKB08_DMS.clsCheckandImport.Herkunftsapplikationen_auslesen">Herkuftsapplikation_auslesen - + Importiert ein Dokument nach EDOKA Mit dem Dokumentimport werden folgende Tabellenenträge erstellt: $EOL$ @@ -163,7 +163,7 @@ EDOKA eingefügt wurde True = Import erfolgreich $EOL$ False = Import fehlgeschalgen - + FA-Nummer 1-3 in EDOKA ergänzen Setzt für die Fremdanwendung die Felder @@ -181,7 +181,7 @@ EDOKA eingefügt wurde Geschäftsfallnummer Aktuelle Zeile der Indexdatei - + FA-Nummer 3 in EDOKA ergänzen Setzt für die Fremdanwendung die Felder @@ -193,7 +193,7 @@ EDOKA eingefügt wurde Geschäftsfallnummer Aktuelle Zeile der Indexdatei - + Löst das Importieren des Original-Dokumentes in die Datenbank aus Die Methode löst das Importieren des Origianldokumentes in die @@ -201,28 +201,28 @@ EDOKA-Datenbank aus EDOKA-DokumentID Aktuelle Zeile der Indexdaten True=Improt erfolgreich, False=Import fehlgeschlagen -clsDivFnkt.Save_To_DB(System.String, +clsDivFnkt.Save_To_DB(System.String, System.String) - + EDOKA-Dokumenttypnr auslesen Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp aus. Aktuelle Datenzeile der Indexdaten Dokumenttypnr - + Auslesen von Coldschema und -Folder Dokumenttypnr des aktuellen Dokumentes Datatable mit den COLD-Werten - + Coldindex zum erstellen Dokument erstellen und speichern Standard 1 Dokumentid des aktuellen Dokumentes Datatable - + Dokument Cold Indexwert anpassen Führt einen Wert in der Tabelle Dokumentcoldindexwert nach DokumentID des aktuellend Dokumentes @@ -231,7 +231,7 @@ aus. Nummer des Indexfeldes Wert - + Edoka-spezifische Dokumentwerte nachführen Führt folgende Daten in den Dokumentwerten hinzu - Herkunftsapplikation @@ -240,38 +240,38 @@ aus. - Individuelle Dokumentwerte der Fremdanwendung Aktuelle Zeile der Indexdaten - + Edoka-spezifischer Dokumentwert auf der Datenbank sichern Inhalt Feldnummer - + Erstellen der Dokumentstatus und eintragen der entsprechenden Statushistory-Einträge Aktuelle Zeile der Indexdaten Status, welcher im Dokument unter "Statusnr" nachgeführt wird edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32) +cref="M:EDKB08_DMS.clsCheckandImport.Create_Dokumentstatus(System.Int32,System.Int32)">edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32) edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32) -edkb08.clsCheckandImport.insert_history_status(System.Int32, +cref="M:EDKB08_DMS.clsCheckandImport.Get_Dokumentstatus(System.Int32)">edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32) +edkb08.clsCheckandImport.insert_history_status(System.Int32, System.String, System.Int32, System.DateTime) - + Dokumentstatus für das zu erstellende Dokument generieren Erstellt die Dokumentstatus gem. Statussequenz des Dokumenttyps Aktuelle Zeile der Indexdaten Datatable - + Alle Dokumentstatus eines Dokumentes lesen Diese Funktion liest alle Dokumentstatus eines Dokumentes Aktuelle Ziele der Indexdaten Datatable mit den Dokumentstatus - + Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten TG-Nummer Aktuelle Import-Datenzeile @@ -280,7 +280,7 @@ die in der Tabelle FA_Appl definierte Mitarbeiternr, sofern die gelieferte TGNummer "" oder nicht als Mitarbeiter in EDOKA vorhanden ist - + Statushistory nachführen Diese Funktion fügt für einen Dokumentstatus eines bestimmten Dokuments die Statushistory nach @@ -289,7 +289,7 @@ die Statushistory nach Verantwortlicher Mitarbeiter Timestamp - + Löschung des Dokumentes, abhängig vom Ãœbergabewert (Dokumentid oder Dokumentname) auslösen Abhängig vom Ãœbergabeparameter Dokumentid (Indexfeld 23) oder @@ -301,7 +301,7 @@ wurde. True=Löschung durchgeführt False=Löschung nicht durchgeführt - + Dokument löschen bzw. aufheben Als erstes wird der aktuelle Status des Dokumentes ausgelesen bzw. es wird überprüft, ob das zu löschende Dokumente den Status "Aufgehoben" @@ -312,17 +312,17 @@ Dokument aufgehoben, ansonsten gelöscht resp. inaktiviert. True=Löschung erfolgt False=Löschung nicht durchgeführt - + Auselesen des letzten Status in der Seqeunz des zu löschenden Dokumentes Dokumentid des zu löschenden Dokumentes Status_Bezeichnungnr - + Dokument aufheben Dokumentid des aufzuhebenden Dokumentes - + SColdindex und Aufhebungsstatus des eines zu löschenden bzw. aufzuhebenden Dokumentes auslesen Sofern das Dokument aufgehoben wird, wird der Status @@ -337,7 +337,7 @@ Dokumentes False=Keine Dokumentreaktivierung Datentable mit den Dokumentstatus - + AGI-COLD-Dokument-Status ändern Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter "neuerstatus" @@ -345,7 +345,7 @@ Dokumentes DokumentID Neuer Status der entsprechenden COLD-Dokumente - + Tabelle COLD-Update mit Updates ergänzen DokumentID des EDOKA-Dokumentes DokumentID des COLD-Bildes @@ -354,15 +354,15 @@ Dokumentes Feldnr des Feldes im Cold-Index Neuer Wert - + Dokumentwerte eines Dokumentes updaten Aktuelle Zeile der Indexdaten - + Prüfung, ob das Dokument bereits in AGI-COLD archiviert wurde Dokumentid des zu prüfenden Dokumentes - + Prüfung des zu löschenden Dokumentes in der EDOKA-Datenbank 1=Prüfung anhand einer EDOKA_Dokumentid 2=Prüfung anhand des Dateinamens @@ -372,30 +372,30 @@ Dokumentes False=Dokument nicht gefunden bzw. es kann nicht gelöscht werden, da die Suche mittels Dateiname mehrere Treffer ergab - + Diverse allgemeine Funktionen Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus diversen anderen Klassen genutzt werden.$EOL$ Die Instanzierung der Klasse erfolgt über das Module Globals.vb -Globals.DivFnkt +cref="T:EDKB08_DMS.Globals">Globals.vb +Globals.DivFnkt - + Generieren der EDOKA-DokumentID Diese Methode generiert eine neue eindeutige, 22-stellige EDOKA-Dokumentid. $EOL$ Die Letzte ziffer ist eine Prüfziffer DokumentID für EDOKA Prüfziffer-Berechnung +cref="M:EDKB08_DMS.clsDivFnkt.Pruefziffer(System.String)">Prüfziffer-Berechnung - + Berechnung der Prüfziffer nach Modulo9/Rekursiv Dokumentid ohne Präfix DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer -EDKB08.clsDivFnkt +EDKB08.clsDivFnkt - + Dokumen in der EDOKA-Datenbank speichern Die Funktion speichert ein Dokument des Filesystems in die EDOKA-Datenbank Tabelle DOKS @@ -403,7 +403,7 @@ EDOKA-Datenbank Tabelle DOKS Origianl-Dokumentname (Fullpath) True=Speichern erfolgreich, False=Speichern fehlgeschalgen - + Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder Textdatei Die Funktion liest je nach Inhalt der Inputdatei (Indexfilename) als @@ -411,56 +411,56 @@ XML oder als TXT (Komma-getrennt) die Indexwerte aus der Datei und liefert diese im Property IndexData zurück. Stefan Hutter - + Interne Variable für IndexFilenName - + Enthält der Name der Inputdatei mit den Indexdaten (XML oder TXT) Stefan Hutter - + Interne Variable für IndexData - + Datentabelle mit den geladenen Indexwerten Stefan Hutter - + Temporäre Collection mit den getrennten Indexdaten aus der txt-Input-Datei Stefan Hutter - + Angelieferte Indexdaten auslesen und in die Datentabele Indexdata speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder Komma-getrennte Textdatei auslesen Stefan Hutter - + XML-Datei als Datatable einlesen Stefan Hutter - + Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten Datensätze eingelesen und zugewiesen werden können Stefan Hutter - + Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der Tabelle "Indexdata" speichern Zeile der Inputdatei (Komma-getrennte Werte) Stefan Hutter - + Datensatz in der Tabelle "Indexdata" einfügen. Die Anzahl der Spalten in der Tabelle ist abhängig vom Default-XML, welches zur Tabellenerstellung verwendet wird. Stefan Hutter - + Splitfunktion Input-Zeile Trennzeichen der einzelnen werte (z.B. Komma, @@ -469,116 +469,116 @@ Strichpunkt usw.) ") Stefan Hutter - + Klasse zum auselesen der Steuerparameter aus der Datei \bin\parameters.cfg Stefan Hutter - + Interne Variable zum Auslesen der Datei - + Interne Variable zum Auslesen der Datei - + Interne Variable für das Property Application ID - + ApplikationsID für die Journalisierung - + Interne Variable für das Property Inputverzeichnis - + Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert sind - + Interne Variable für das Property MailadresseOK - + EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung ordnungsgemäss durchgelaufen ist - + Interne Variable für das Property MailadresseNOK - + Mailadresse, an die im Fehlerfall ein Mail gesendet wird - + Interne Variable für das Property Meldung - + Allfälliger Meldungstext, welcher beim Laden der Parameter generiert wird - + Interne Variable für das Property Temppfad - + Pfad für temporäre Dateien - + Interne Variable für das Property Mailserver - + SMTP-Mailserver für den Journalversand - + Interne Variable für das Property Journaltimer_time - + Journaltimer-Zeit in Milisekunden - + Interne Variable für das Property DeleteOriginalfiles - + DeleteOriginalfiles - + Interne Variable für das Property GSF Config File Path - + gsf ConfigPath - + Interne Variable für das Property GSF Timer Intervall - + gsf Timer Interval - + Interne Variable für das Property GSF DateiEndung - + gsf DateiEndung - + Laden der Parameterdaten aus parameters.cfg Die Funktion lädt für die Anwendung die notwendigen Parameter aus der Datei "Parameters.cfg" True im OK-Fall False im Fehlerfall - + Parameterbezeichnung und Parameterwert trennen Inputstring mit Parameterbezeichnung und Parameterwert Parameterwert als String - + Purpose: Data Access class for the table 'edex_sb_serienbrief'. - + Purpose: Class constructor. - + Purpose: Insert method. This method will insert one new row into the database. @@ -621,7 +621,7 @@ Parameterwert - + Purpose: Update method. This method will Update one existing row in the database. @@ -664,7 +664,7 @@ Parameterwert - + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. @@ -680,7 +680,7 @@ Parameterwert - + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. @@ -725,7 +725,7 @@ Parameterwert Will fill all properties corresponding with a field in the table with the value of the row selected. - + Purpose: SelectAll method. This method will Select all rows from the table. @@ -737,17 +737,17 @@ Parameterwert - + Purpose: Data Access class for the table 'Partner'. - + Purpose: Class constructor. - + Purpose: Insert method. This method will insert one new row into the database. @@ -803,7 +803,7 @@ Parameterwert - + Purpose: Update method. This method will Update one existing row in the database. @@ -859,7 +859,7 @@ Parameterwert - + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. @@ -875,7 +875,7 @@ Parameterwert - + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. @@ -933,7 +933,7 @@ Parameterwert Will fill all properties corresponding with a field in the table with the value of the row selected. - + Purpose: SelectAll method. This method will Select all rows from the table. @@ -945,105 +945,105 @@ Parameterwert - + Globale Variablen und FUnktionen - + Datentabelle mit den EDOKA-Applikationsdaten - + Datensatzzeiger in der Tabelle Applikationsdaten - + Verbindung zur Daten EDOKA - + Verbindung zur Daten EDOKA_Journale - + Verbindung zur Daten EDOKA_Journale mit dem Mail-User - + Befehlszeilenargumente - + Connectionprovider für die Datenbank EDOKA edokadb.clsConnectionProvider +cref="T:EDKB08_DMS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider - + Connectionprovider für die Datenbank EDOKA_Journale edokadb.clsConnectionProvider +cref="T:EDKB08_DMS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider - + Connectionprovider für die Datenbank EDOKA_Journale edokadb.clsConnectionProvider +cref="T:EDKB08_DMS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider - + Instanz des Objektes DivFnkt - + Hält die Applikationsdaten für ein zu importierendes Dokumente fest - + Ausgabe eines Strings mit vorgestelltem TimeStamp - + Eintrag ins EventLog von EDKB08 schreiben - + Globaler Verweis zur Klasse CLSJournal - + Daten für der Herkunftsapplikation Diese interne Tabelle enthält die Daten für die Herkunftsapplikation einer Indexdatei - + Interne Variable zur Festhaltung von Fehlern - + Funktionen für die Journalisierung der einzelnen Verarbeitungsschritte - + Interne Variable für das Property JournalNr - + Property für die JournalNr - + Variable für die Datenbankklasse clsImport_Job - + Variable für die Datenbankklasse clsimport_eintrag - + Interne Variable für das halten einer Datentabelle - + Öffnet ein neuer Journaleintrag in der Tabelle Import_Job Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den entsprechenden Einträgen erstellt -Verarbeiten +Verarbeiten - + Schliessen des aktuell geöffneten Verarbeitungsjournales Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle Import_Job nachgeführt -Verarbeiten +Verarbeiten - + Journaleintrag löschen Löscht den Journaleintrag aus der Variabel JournalNr - + Einfügen eines neuen Journaldatensatzes Recordnummer der Indexdaten bzw. "" für allgemeine Journaleinträte @@ -1058,31 +1058,31 @@ Datei Dokumentid des EDOKA-Dokumentes nach dem Import oder "" Fremdschlüssel zur Tabelle FA_APPL -edkb08.edokadb.clsFA_APPL +edkb08.edokadb.clsFA_APPL - + Ergänzt den Journaleintrag mit der zugehörenden Herkunftsapplikation -edkb08.Globals +edkb08.Globals - + Funktionen für den Export der Journaldaten - + Auswertung erstellen und ggf. mittels DTO versenden Datentabelle mit den Auswertungsdaten der Applikation Format der Auswertung (txt, csv, xls, doc, pdf, xml) - + Journaldatei als CSV-Datei erstellen Journaldaten - + Journaldatei als TXT-Datei erstellen Journaldaten - + EDKB08 - Hauptprogramm EDKB08 ist ein Importfunktion für Dokumente, welche durch Fremdanwendungen geliefert und in EDOKA importiert werden sollen. @@ -1093,19 +1093,19 @@ den zugehörenden Indexinformationen in ein definiertes Verzeichnis gestellt. EDKB08 überwacht das definierte Verzeichnis. Sobald eine Datei mit der Endung ".IND" angeliefert wird, startet der eigentliche Importvorgang. - + Variable mit dem Namen des zu überwachenden Verzeichnises - + FileSystemWatcher Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis (Watch_Directory) - + Varaible zum Zwischenspeichern der Indexdaten einer Indexdaten-Datei - + Steuerroutine für EDKB08 Diese Routine wird beim Programmstart durchlaufen. Dabei werden die benötigten Parameter ausgelesen und an der Konsole angezeigt. @@ -1113,32 +1113,32 @@ benötigten Parameter ausgelesen und an der Konsole angezeigt. Nach erfolgreicher Initialisierung werden Aktivitäten im vordefinierten Verzeichnis abgewartet. - + Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden sind. Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und verarbeitet. - + Journaldatei erstellen und je nach Applikationseinstellungen versenden Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und sendet diese mittels Mail bzw. mittls DTO weiter - + DTO-Versand - + Initialisierung des Filewacher-Objektes Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie Dateifilter-Angaben initialisiert. - + Eventhandler des FileWatching-Objektes aktivieren - + Aktivitäten im Inputverzeichnis verarbeiten Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler gestoppt und die anstehenden Dokumente verarbeitet. @@ -1148,40 +1148,40 @@ eingeschaltet - + - + Variable mit dem Namen des zu überwachenden Verzeichnises - + FileSystemWatcher Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis (Watch_Directory) - + Varaible zum Zwischenspeichern der Indexdaten einer Indexdaten-Datei - + Timer zur Auslösung der täglichen Journalaufbereitung - + Start des Dienstes EDKB08WS Beim Start des Dienstes werden neben dem Einlesen der Parameter der Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung initialisiert. - + Initialisierung des Filewacher-Objektes Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie Dateifilter-Angaben initialisiert. - + Eventhandler des FileWatching-Objektes aktivieren - + Aktivitäten im Inputverzeichnis verarbeiten Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler gestoppt und die anstehenden Dokumente verarbeitet. @@ -1191,7 +1191,7 @@ eingeschaltet - + Verarbeiten von angelieferten Daten In dieser Methode werden angelieferte Indexdateien verarbeitet. @@ -1204,22 +1204,22 @@ gestartet. - + Journaldatei erstellen und je nach Applikationseinstellungen versenden Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und sendet diese mittels Mail bzw. mittls DTO weiter - + DTO-Versand - + Versand von Journaldaten mittels Email - + diff --git a/edkb08/clsCheckandImport.vb b/edkb08/clsCheckandImport.vb index a895fc5..334d358 100644 --- a/edkb08/clsCheckandImport.vb +++ b/edkb08/clsCheckandImport.vb @@ -780,7 +780,7 @@ Public Class clsCheckandImport scmCmdToExecute.ExecuteNonQuery() Return scmCmdToExecute.Parameters("@dokid").Value Catch ex As Exception - PrintOut("clsCheckandImport.get_bcdokumentid()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.get_bcdokumentid()" + ex.Message, EventLogEntryType.Error) Return "" Finally conn_edoka.CloseConnection(True) @@ -826,7 +826,7 @@ Public Class clsCheckandImport scmCmdToExecute.ExecuteNonQuery() Return scmCmdToExecute.Parameters("@nrpar00").Value Catch ex As Exception - PrintOut("clsCheckandImport.Get_VVParnter()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.Get_VVParnter()" + ex.Message, EventLogEntryType.Error) Finally conn_edoka.CloseConnection(True) scmCmdToExecute.Dispose() @@ -854,10 +854,10 @@ Public Class clsCheckandImport Dim key As Long Try - If Me.IndexData.Rows(datarow).Item(5) = "" And _ - Me.IndexData.Rows(datarow).Item(6) = "" And _ - Me.IndexData.Rows(datarow).Item(8) = "" And _ - Me.IndexData.Rows(datarow).Item(9) = "" And _ + If Me.IndexData.Rows(datarow).Item(5) = "" And + Me.IndexData.Rows(datarow).Item(6) = "" And + Me.IndexData.Rows(datarow).Item(8) = "" And + Me.IndexData.Rows(datarow).Item(9) = "" And Me.IndexData.Rows(datarow).Item(10) = "" Then Return False End If @@ -931,11 +931,11 @@ Public Class clsCheckandImport '''Checkdata Private Function Check_Dokumentdaten(ByVal datarow As Integer) As Boolean 'Prüfung Dateityp - If UCase(Me.IndexData.Rows(datarow).Item(13)) <> "DOC" And _ - UCase(Me.IndexData.Rows(datarow).Item(13)) <> "XLS" And _ - UCase(Me.IndexData.Rows(datarow).Item(13)) <> "PDF" And _ - UCase(Me.IndexData.Rows(datarow).Item(13)) <> "TIF" And _ - UCase(Me.IndexData.Rows(datarow).Item(13)) <> "JPG" And _ + If UCase(Me.IndexData.Rows(datarow).Item(13)) <> "DOC" And + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "XLS" And + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "PDF" And + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "TIF" And + UCase(Me.IndexData.Rows(datarow).Item(13)) <> "JPG" And UCase(Me.IndexData.Rows(datarow).Item(13)) <> "" Then If Not Me.BarcodeImport Then Fehler = 9 @@ -978,7 +978,7 @@ Public Class clsCheckandImport Return True End If Catch ex As Exception - PrintOut("clsCheckandImport.Check_Dokumentdaten()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.Check_Dokumentdaten()" + ex.Message, EventLogEntryType.Error) Finally conn_edoka.CloseConnection(True) scmCmdToExecute.Dispose() @@ -1098,7 +1098,7 @@ Public Class clsCheckandImport Return True End If Catch ex As Exception - PrintOut("clsCheckandImport.Get_herkunfstapplikation()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.Get_herkunfstapplikation()" + ex.Message, EventLogEntryType.Error) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() @@ -1291,21 +1291,21 @@ Public Class clsCheckandImport End If If dd.bBl_scan.Value = True Then - dd.bBldossier = New SqlBoolean(CType(True, Boolean)) - Try - conn_edoka.OpenConnection() - Catch - End Try - dd.Update() - Try - conn_edoka.CloseConnection(True) - Catch - End Try + dd.bBldossier = New SqlBoolean(CType(True, Boolean)) + Try + conn_edoka.OpenConnection() + Catch + End Try + dd.Update() + Try + conn_edoka.CloseConnection(True) + Catch + End Try - End If End If + End If - Return True + Return True Else 'Dokumentid auslesen ' If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB14" Or Globals.Herkunftsapplikation.Rows(0).Item(1) = "FinFox" Then @@ -1613,11 +1613,12 @@ Public Class clsCheckandImport conn_edoka.CloseConnection(True) 'EDKB09 - If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Then - If IndexData.Rows(datarow).Item("DokumentidBdr") <> "" Then - Insert_Bedingte_Retournierung(datarow) - End If - End If + 'Erneuerung DMS - keine Bedingte Retournieren mehr + 'If Globals.Herkunftsapplikation.Rows(0).Item(1) = "EDKB09" Then + ' If IndexData.Rows(datarow).Item("DokumentidBdr") <> "" Then + ' Insert_Bedingte_Retournierung(datarow) + ' End If + 'End If End Function #Region "Bedingte Retournierung" @@ -1988,7 +1989,7 @@ Public Class clsCheckandImport Return scmCmdToExecute.Parameters("@edokadokumenttyp").Value End If Catch ex As Exception - PrintOut("clsCheckandImport.Get_EDOKA_Dokumenttypnr()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.Get_EDOKA_Dokumenttypnr()" + ex.Message, EventLogEntryType.Error) Return 0 Finally scmCmdToExecute.Dispose() @@ -2458,7 +2459,7 @@ Public Class clsCheckandImport dbkey.Dispose() sh.Dispose() Catch ex As Exception - PrintOut("clsCheckandImport.insert_history_status()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.insert_history_status()" + ex.Message, EventLogEntryType.Error) End Try End Sub @@ -2575,7 +2576,7 @@ Public Class clsCheckandImport conn_edoka.CloseConnection(True) Return scmCmdToExecute.Parameters("@aufheben").Value Catch ex As Exception - PrintOut("clsCheckandImport.get_status()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.get_status()" + ex.Message, EventLogEntryType.Error) Return 0 Finally scmCmdToExecute.Dispose() @@ -2978,7 +2979,7 @@ Public Class clsCheckandImport sFieldArray(12) = "BERES03" For i = 0 To dtOrg.Rows.Count - 1 - If (i1 = 1 And dtOrg.Rows(i).Item("indextyp") = 1) Or _ + If (i1 = 1 And dtOrg.Rows(i).Item("indextyp") = 1) Or (i2 = 1 And dtOrg.Rows(i).Item("indextyp") = 2) Then dw.iIndextyp = New SqlInt32(CType(dtOrg.Rows(i).Item(1), Int32)) dw.iMandantnr = New SqlInt32(CType(dtOrg.Rows(i).Item("mandantnr"), Int32)) @@ -3222,7 +3223,7 @@ Public Class clsCheckandImport End If End If Catch ex As Exception - PrintOut("clsCheckandImport.get_edoka_dokument()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.get_edoka_dokument()" + ex.Message, EventLogEntryType.Error) Return False Finally scmCmdToExecute.Dispose() @@ -3293,7 +3294,7 @@ Public Class clsCheckandImport DA.Update(dsDATEN, "docs") End If Catch ex As Exception - PrintOut("clsCheckandImport.Save_ImportDaten()" + ex.Message, EventLogEntryType.Error) + Printout("clsCheckandImport.Save_ImportDaten()" + ex.Message, EventLogEntryType.Error) End Try fs = Nothing cb = Nothing diff --git a/obj/Release/DesignTimeResolveAssemblyReferences.cache b/obj/Release/DesignTimeResolveAssemblyReferences.cache index 1d7d54e..f7de12c 100644 Binary files a/obj/Release/DesignTimeResolveAssemblyReferences.cache and b/obj/Release/DesignTimeResolveAssemblyReferences.cache differ diff --git a/obj/Release/EDKB08.vbproj.AssemblyReference.cache b/obj/Release/EDKB08.vbproj.AssemblyReference.cache index bd5d599..09d5004 100644 Binary files a/obj/Release/EDKB08.vbproj.AssemblyReference.cache and b/obj/Release/EDKB08.vbproj.AssemblyReference.cache differ diff --git a/obj/Release/EDKB08.vbproj.FileListAbsolute.txt b/obj/Release/EDKB08.vbproj.FileListAbsolute.txt index a07940c..da2b86c 100644 --- a/obj/Release/EDKB08.vbproj.FileListAbsolute.txt +++ b/obj/Release/EDKB08.vbproj.FileListAbsolute.txt @@ -24,3 +24,17 @@ E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.Generat E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.CopyComplete E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.CoreCompileInputs.cache E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\obj\Release\EDKB08.vbproj.AssemblyReference.cache +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\bin\EDKB08_GSF.dll +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\bin\EDKB08_GSF.pdb +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\bin\EDKB08_GSF.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\obj\Release\EDKB08.vbproj.AssemblyReference.cache +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\obj\Release\EDKB08.vbproj.GenerateResource.cache +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\obj\Release\EDKB08.vbproj.CoreCompileInputs.cache +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\obj\Release\EDKB08.vbproj.CopyComplete +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\bin\EDKB08_DMS.exe.config +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\bin\EDKB08_DMS.exe +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\bin\EDKB08_DMS.xml +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\obj\Release\EDKB08_DMS.ProjectInstaller.resources +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\obj\Release\EDKB08_DMS.Service1.resources +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\obj\Release\EDKB08_DMS.exe +E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08_DMS\obj\Release\EDKB08_DMS.xml diff --git a/obj/Release/EDKB08.ProjectInstaller.resources b/obj/Release/EDKB08_DMS.ProjectInstaller.resources similarity index 100% rename from obj/Release/EDKB08.ProjectInstaller.resources rename to obj/Release/EDKB08_DMS.ProjectInstaller.resources diff --git a/obj/Release/EDKB08.Service1.resources b/obj/Release/EDKB08_DMS.Service1.resources similarity index 100% rename from obj/Release/EDKB08.Service1.resources rename to obj/Release/EDKB08_DMS.Service1.resources diff --git a/obj/Release/EDKB08.exe b/obj/Release/EDKB08_DMS.exe similarity index 63% rename from obj/Release/EDKB08.exe rename to obj/Release/EDKB08_DMS.exe index 8f074d9..fa650d4 100644 Binary files a/obj/Release/EDKB08.exe and b/obj/Release/EDKB08_DMS.exe differ diff --git a/bin/EDKB08.xml b/obj/Release/EDKB08_DMS.xml similarity index 75% rename from bin/EDKB08.xml rename to obj/Release/EDKB08_DMS.xml index a6a2938..efd3f14 100644 --- a/bin/EDKB08.xml +++ b/obj/Release/EDKB08_DMS.xml @@ -2,11 +2,11 @@ -EDKB08 +EDKB08_DMS - + Plausibilisierung der angelieferten Indexdaten sowie Dokumentimport in EDOKA Mit den Methoden dieser Klasse werden einerseits die angelieferten @@ -16,23 +16,23 @@ entsprechenden Dokumente in die EDOKA-Datenbank importiert. Je Applikation ist festgehalten ob - Alle Parameter korrekt sein müssen, bevor der Dokumentimport stattfinden - Nur die fehlerhaften Importe nicht verarbeitet werden - + Interne Variable für das Property IndexData - + Datentabelle mit den Indexwerten - + Interne temporöre Datentabelle - + Prüfung der Indexwerte Sofern die Indexwerte vollständig sind, werden die Dokumente in EDOKA importiert. - + Prüft die Indexdaten und löst ggf. den Import des Dokumentes aus. Die Funktion prüft die Indexwerte. Sofern die Werte i.O. sind und der @@ -45,13 +45,13 @@ importieren (nur plausibilisieren) True=Verarbeitung i.O. False=Verarbeitung fehlerhaft Stefan Hutter - + Importiert ein Dokument nach EDOKA Gültige Werte sind: ADD, UPD, REPL, DEL True = Import erfolgreich$EOL$ False = Import fehlgeschalgen - + Prüfung der Partnerzuordnung Mit der Funktion wird abhängig vom angelieferten Wert die Partnerzuordungen zu einem bestehenden Partner in EDOKA überprüft. @@ -72,9 +72,9 @@ geliefertenen EDOKA-BarcodeID Aktuelle Datenzeile in der Tabelle Indexdata True=Partnerzuordnung i.O. False=Partnerzuordnung nicht i.O. -Checkdata +Checkdata - + Prüft, ob alle Werte für eine EDOKA_Partner-Erfasssung vorhanden sind. Wenn dies der Fall ist, wird ein neuer EDOKA-Partner eröffnet Sofern genügend Informationen für die Partnereröffnung vorhanden sind, @@ -86,9 +86,9 @@ ausgelöst. False = Daten zur Eröffnung des EDOKA-Partners sind unvollständig Stefan Hutter -Checkdata +Checkdata - + Prüft die dokumentspezifischen Werte und das Vorhandensein des physischen Dokumentes Die Verarbeitung prüft folgende Elemente im Bereich der angelieferten @@ -106,28 +106,28 @@ Importverzeichnis True=Dokumentwerte i.O. False=Dokumentwerte nicht i.O. Stefan Hutter -Checkdata +Checkdata - + Notiz zu einem Dokument hinzufügen Fühgt dem aktuellen Dokument die Meldung als Betreff bzw. Notiz hinzu Aktuelle Dokumentid Meldung / Notiz - + Auslesen der Daten "Herkunftsapplikation" und in der internen Variable Herkunftsapplikationen zwischenspeichern - + Auslesen der Herkunftsapplikation anhand des Dokumenttyps Aktueller Datensatz aus den Indexdaten "" = Herkunftsapplikation nicht vorhanden$EOL$ "[Bezeichnung] = Herkunftsapplikation vorhanden Herkuftsapplikation_auslesen +cref="M:EDKB08_DMS.clsCheckandImport.Herkunftsapplikationen_auslesen">Herkuftsapplikation_auslesen - + Importiert ein Dokument nach EDOKA Mit dem Dokumentimport werden folgende Tabellenenträge erstellt: $EOL$ @@ -163,7 +163,7 @@ EDOKA eingefügt wurde True = Import erfolgreich $EOL$ False = Import fehlgeschalgen - + FA-Nummer 1-3 in EDOKA ergänzen Setzt für die Fremdanwendung die Felder @@ -181,7 +181,7 @@ EDOKA eingefügt wurde Geschäftsfallnummer Aktuelle Zeile der Indexdatei - + FA-Nummer 3 in EDOKA ergänzen Setzt für die Fremdanwendung die Felder @@ -193,7 +193,7 @@ EDOKA eingefügt wurde Geschäftsfallnummer Aktuelle Zeile der Indexdatei - + Löst das Importieren des Original-Dokumentes in die Datenbank aus Die Methode löst das Importieren des Origianldokumentes in die @@ -201,28 +201,28 @@ EDOKA-Datenbank aus EDOKA-DokumentID Aktuelle Zeile der Indexdaten True=Improt erfolgreich, False=Import fehlgeschlagen -clsDivFnkt.Save_To_DB(System.String, +clsDivFnkt.Save_To_DB(System.String, System.String) - + EDOKA-Dokumenttypnr auslesen Liest anhand des Fremdanwendungs-Dokumenttyps den EDOKA-Dokumenttyp aus. Aktuelle Datenzeile der Indexdaten Dokumenttypnr - + Auslesen von Coldschema und -Folder Dokumenttypnr des aktuellen Dokumentes Datatable mit den COLD-Werten - + Coldindex zum erstellen Dokument erstellen und speichern Standard 1 Dokumentid des aktuellen Dokumentes Datatable - + Dokument Cold Indexwert anpassen Führt einen Wert in der Tabelle Dokumentcoldindexwert nach DokumentID des aktuellend Dokumentes @@ -231,7 +231,7 @@ aus. Nummer des Indexfeldes Wert - + Edoka-spezifische Dokumentwerte nachführen Führt folgende Daten in den Dokumentwerten hinzu - Herkunftsapplikation @@ -240,38 +240,38 @@ aus. - Individuelle Dokumentwerte der Fremdanwendung Aktuelle Zeile der Indexdaten - + Edoka-spezifischer Dokumentwert auf der Datenbank sichern Inhalt Feldnummer - + Erstellen der Dokumentstatus und eintragen der entsprechenden Statushistory-Einträge Aktuelle Zeile der Indexdaten Status, welcher im Dokument unter "Statusnr" nachgeführt wird edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32) +cref="M:EDKB08_DMS.clsCheckandImport.Create_Dokumentstatus(System.Int32,System.Int32)">edkb08.clsCheckandImport.Create_Dokumentstatus(System.Int32) edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32) -edkb08.clsCheckandImport.insert_history_status(System.Int32, +cref="M:EDKB08_DMS.clsCheckandImport.Get_Dokumentstatus(System.Int32)">edkb08.clsCheckandImport.Get_Dokumentstatus(System.Int32) +edkb08.clsCheckandImport.insert_history_status(System.Int32, System.String, System.Int32, System.DateTime) - + Dokumentstatus für das zu erstellende Dokument generieren Erstellt die Dokumentstatus gem. Statussequenz des Dokumenttyps Aktuelle Zeile der Indexdaten Datatable - + Alle Dokumentstatus eines Dokumentes lesen Diese Funktion liest alle Dokumentstatus eines Dokumentes Aktuelle Ziele der Indexdaten Datatable mit den Dokumentstatus - + Auslesen der EDOKA-Mitarbeiternummer aufgrund der gelieferten TG-Nummer Aktuelle Import-Datenzeile @@ -280,7 +280,7 @@ die in der Tabelle FA_Appl definierte Mitarbeiternr, sofern die gelieferte TGNummer "" oder nicht als Mitarbeiter in EDOKA vorhanden ist - + Statushistory nachführen Diese Funktion fügt für einen Dokumentstatus eines bestimmten Dokuments die Statushistory nach @@ -289,7 +289,7 @@ die Statushistory nach Verantwortlicher Mitarbeiter Timestamp - + Löschung des Dokumentes, abhängig vom Ãœbergabewert (Dokumentid oder Dokumentname) auslösen Abhängig vom Ãœbergabeparameter Dokumentid (Indexfeld 23) oder @@ -301,7 +301,7 @@ wurde. True=Löschung durchgeführt False=Löschung nicht durchgeführt - + Dokument löschen bzw. aufheben Als erstes wird der aktuelle Status des Dokumentes ausgelesen bzw. es wird überprüft, ob das zu löschende Dokumente den Status "Aufgehoben" @@ -312,17 +312,17 @@ Dokument aufgehoben, ansonsten gelöscht resp. inaktiviert. True=Löschung erfolgt False=Löschung nicht durchgeführt - + Auselesen des letzten Status in der Seqeunz des zu löschenden Dokumentes Dokumentid des zu löschenden Dokumentes Status_Bezeichnungnr - + Dokument aufheben Dokumentid des aufzuhebenden Dokumentes - + SColdindex und Aufhebungsstatus des eines zu löschenden bzw. aufzuhebenden Dokumentes auslesen Sofern das Dokument aufgehoben wird, wird der Status @@ -337,7 +337,7 @@ Dokumentes False=Keine Dokumentreaktivierung Datentable mit den Dokumentstatus - + AGI-COLD-Dokument-Status ändern Setzt den aktuellen Status der COLD-Dokumente auf den Wert im Parameter "neuerstatus" @@ -345,7 +345,7 @@ Dokumentes DokumentID Neuer Status der entsprechenden COLD-Dokumente - + Tabelle COLD-Update mit Updates ergänzen DokumentID des EDOKA-Dokumentes DokumentID des COLD-Bildes @@ -354,15 +354,15 @@ Dokumentes Feldnr des Feldes im Cold-Index Neuer Wert - + Dokumentwerte eines Dokumentes updaten Aktuelle Zeile der Indexdaten - + Prüfung, ob das Dokument bereits in AGI-COLD archiviert wurde Dokumentid des zu prüfenden Dokumentes - + Prüfung des zu löschenden Dokumentes in der EDOKA-Datenbank 1=Prüfung anhand einer EDOKA_Dokumentid 2=Prüfung anhand des Dateinamens @@ -372,30 +372,30 @@ Dokumentes False=Dokument nicht gefunden bzw. es kann nicht gelöscht werden, da die Suche mittels Dateiname mehrere Treffer ergab - + Diverse allgemeine Funktionen Diesee Klasse kapselt diverse, allgemeine Funktionen, welche aus diversen anderen Klassen genutzt werden.$EOL$ Die Instanzierung der Klasse erfolgt über das Module Globals.vb -Globals.DivFnkt +cref="T:EDKB08_DMS.Globals">Globals.vb +Globals.DivFnkt - + Generieren der EDOKA-DokumentID Diese Methode generiert eine neue eindeutige, 22-stellige EDOKA-Dokumentid. $EOL$ Die Letzte ziffer ist eine Prüfziffer DokumentID für EDOKA Prüfziffer-Berechnung +cref="M:EDKB08_DMS.clsDivFnkt.Pruefziffer(System.String)">Prüfziffer-Berechnung - + Berechnung der Prüfziffer nach Modulo9/Rekursiv Dokumentid ohne Präfix DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer -EDKB08.clsDivFnkt +EDKB08.clsDivFnkt - + Dokumen in der EDOKA-Datenbank speichern Die Funktion speichert ein Dokument des Filesystems in die EDOKA-Datenbank Tabelle DOKS @@ -403,7 +403,7 @@ EDOKA-Datenbank Tabelle DOKS Origianl-Dokumentname (Fullpath) True=Speichern erfolgreich, False=Speichern fehlgeschalgen - + Funktionen für d4as Einlesen der Indexdaten aus einer XML- oder Textdatei Die Funktion liest je nach Inhalt der Inputdatei (Indexfilename) als @@ -411,56 +411,56 @@ XML oder als TXT (Komma-getrennt) die Indexwerte aus der Datei und liefert diese im Property IndexData zurück. Stefan Hutter - + Interne Variable für IndexFilenName - + Enthält der Name der Inputdatei mit den Indexdaten (XML oder TXT) Stefan Hutter - + Interne Variable für IndexData - + Datentabelle mit den geladenen Indexwerten Stefan Hutter - + Temporäre Collection mit den getrennten Indexdaten aus der txt-Input-Datei Stefan Hutter - + Angelieferte Indexdaten auslesen und in die Datentabele Indexdata speichern. Abhängig vom angelieferten Format, XML-Datei einlesen oder Komma-getrennte Textdatei auslesen Stefan Hutter - + XML-Datei als Datatable einlesen Stefan Hutter - + Datentabelle "Indexdata" erstellen, damit die Komma-Getrennten Datensätze eingelesen und zugewiesen werden können Stefan Hutter - + Einzele Indexwerte aus dem Inputfile auslesen und als Datensatz in der Tabelle "Indexdata" speichern Zeile der Inputdatei (Komma-getrennte Werte) Stefan Hutter - + Datensatz in der Tabelle "Indexdata" einfügen. Die Anzahl der Spalten in der Tabelle ist abhängig vom Default-XML, welches zur Tabellenerstellung verwendet wird. Stefan Hutter - + Splitfunktion Input-Zeile Trennzeichen der einzelnen werte (z.B. Komma, @@ -469,116 +469,116 @@ Strichpunkt usw.) ") Stefan Hutter - + Klasse zum auselesen der Steuerparameter aus der Datei \bin\parameters.cfg Stefan Hutter - + Interne Variable zum Auslesen der Datei - + Interne Variable zum Auslesen der Datei - + Interne Variable für das Property Application ID - + ApplikationsID für die Journalisierung - + Interne Variable für das Property Inputverzeichnis - + Inputverzeichnis, in welchem die Dokumente und Indexdateien gespeichert sind - + Interne Variable für das Property MailadresseOK - + EMail-Adresse, an die ein Mail gesendet wird, sofern die Verarbeitung ordnungsgemäss durchgelaufen ist - + Interne Variable für das Property MailadresseNOK - + Mailadresse, an die im Fehlerfall ein Mail gesendet wird - + Interne Variable für das Property Meldung - + Allfälliger Meldungstext, welcher beim Laden der Parameter generiert wird - + Interne Variable für das Property Temppfad - + Pfad für temporäre Dateien - + Interne Variable für das Property Mailserver - + SMTP-Mailserver für den Journalversand - + Interne Variable für das Property Journaltimer_time - + Journaltimer-Zeit in Milisekunden - + Interne Variable für das Property DeleteOriginalfiles - + DeleteOriginalfiles - + Interne Variable für das Property GSF Config File Path - + gsf ConfigPath - + Interne Variable für das Property GSF Timer Intervall - + gsf Timer Interval - + Interne Variable für das Property GSF DateiEndung - + gsf DateiEndung - + Laden der Parameterdaten aus parameters.cfg Die Funktion lädt für die Anwendung die notwendigen Parameter aus der Datei "Parameters.cfg" True im OK-Fall False im Fehlerfall - + Parameterbezeichnung und Parameterwert trennen Inputstring mit Parameterbezeichnung und Parameterwert Parameterwert als String - + Purpose: Data Access class for the table 'edex_sb_serienbrief'. - + Purpose: Class constructor. - + Purpose: Insert method. This method will insert one new row into the database. @@ -621,7 +621,7 @@ Parameterwert - + Purpose: Update method. This method will Update one existing row in the database. @@ -664,7 +664,7 @@ Parameterwert - + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. @@ -680,7 +680,7 @@ Parameterwert - + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. @@ -725,7 +725,7 @@ Parameterwert Will fill all properties corresponding with a field in the table with the value of the row selected. - + Purpose: SelectAll method. This method will Select all rows from the table. @@ -737,17 +737,17 @@ Parameterwert - + Purpose: Data Access class for the table 'Partner'. - + Purpose: Class constructor. - + Purpose: Insert method. This method will insert one new row into the database. @@ -803,7 +803,7 @@ Parameterwert - + Purpose: Update method. This method will Update one existing row in the database. @@ -859,7 +859,7 @@ Parameterwert - + Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key. @@ -875,7 +875,7 @@ Parameterwert - + Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key. @@ -933,7 +933,7 @@ Parameterwert Will fill all properties corresponding with a field in the table with the value of the row selected. - + Purpose: SelectAll method. This method will Select all rows from the table. @@ -945,105 +945,105 @@ Parameterwert - + Globale Variablen und FUnktionen - + Datentabelle mit den EDOKA-Applikationsdaten - + Datensatzzeiger in der Tabelle Applikationsdaten - + Verbindung zur Daten EDOKA - + Verbindung zur Daten EDOKA_Journale - + Verbindung zur Daten EDOKA_Journale mit dem Mail-User - + Befehlszeilenargumente - + Connectionprovider für die Datenbank EDOKA edokadb.clsConnectionProvider +cref="T:EDKB08_DMS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider - + Connectionprovider für die Datenbank EDOKA_Journale edokadb.clsConnectionProvider +cref="T:EDKB08_DMS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider - + Connectionprovider für die Datenbank EDOKA_Journale edokadb.clsConnectionProvider +cref="T:EDKB08_DMS.edokadb.clsConnectionProvider">edokadb.clsConnectionProvider - + Instanz des Objektes DivFnkt - + Hält die Applikationsdaten für ein zu importierendes Dokumente fest - + Ausgabe eines Strings mit vorgestelltem TimeStamp - + Eintrag ins EventLog von EDKB08 schreiben - + Globaler Verweis zur Klasse CLSJournal - + Daten für der Herkunftsapplikation Diese interne Tabelle enthält die Daten für die Herkunftsapplikation einer Indexdatei - + Interne Variable zur Festhaltung von Fehlern - + Funktionen für die Journalisierung der einzelnen Verarbeitungsschritte - + Interne Variable für das Property JournalNr - + Property für die JournalNr - + Variable für die Datenbankklasse clsImport_Job - + Variable für die Datenbankklasse clsimport_eintrag - + Interne Variable für das halten einer Datentabelle - + Öffnet ein neuer Journaleintrag in der Tabelle Import_Job Für jede Indexdatei wird in der Verarbeitung ein neues Journal mit den entsprechenden Einträgen erstellt -Verarbeiten +Verarbeiten - + Schliessen des aktuell geöffneten Verarbeitungsjournales Beim Abschluss eines Jobs wird der aktuelle Timestamp in der Tabelle Import_Job nachgeführt -Verarbeiten +Verarbeiten - + Journaleintrag löschen Löscht den Journaleintrag aus der Variabel JournalNr - + Einfügen eines neuen Journaldatensatzes Recordnummer der Indexdaten bzw. "" für allgemeine Journaleinträte @@ -1058,31 +1058,31 @@ Datei Dokumentid des EDOKA-Dokumentes nach dem Import oder "" Fremdschlüssel zur Tabelle FA_APPL -edkb08.edokadb.clsFA_APPL +edkb08.edokadb.clsFA_APPL - + Ergänzt den Journaleintrag mit der zugehörenden Herkunftsapplikation -edkb08.Globals +edkb08.Globals - + Funktionen für den Export der Journaldaten - + Auswertung erstellen und ggf. mittels DTO versenden Datentabelle mit den Auswertungsdaten der Applikation Format der Auswertung (txt, csv, xls, doc, pdf, xml) - + Journaldatei als CSV-Datei erstellen Journaldaten - + Journaldatei als TXT-Datei erstellen Journaldaten - + EDKB08 - Hauptprogramm EDKB08 ist ein Importfunktion für Dokumente, welche durch Fremdanwendungen geliefert und in EDOKA importiert werden sollen. @@ -1093,19 +1093,19 @@ den zugehörenden Indexinformationen in ein definiertes Verzeichnis gestellt. EDKB08 überwacht das definierte Verzeichnis. Sobald eine Datei mit der Endung ".IND" angeliefert wird, startet der eigentliche Importvorgang. - + Variable mit dem Namen des zu überwachenden Verzeichnises - + FileSystemWatcher Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis (Watch_Directory) - + Varaible zum Zwischenspeichern der Indexdaten einer Indexdaten-Datei - + Steuerroutine für EDKB08 Diese Routine wird beim Programmstart durchlaufen. Dabei werden die benötigten Parameter ausgelesen und an der Konsole angezeigt. @@ -1113,32 +1113,32 @@ benötigten Parameter ausgelesen und an der Konsole angezeigt. Nach erfolgreicher Initialisierung werden Aktivitäten im vordefinierten Verzeichnis abgewartet. - + Verarbeitung von angelieferten Indexdateien. Die Verarbeitung läuft so lange, bis keine .IND-Dateien mehr im Improt-Verzeichnis vorhanden sind. Die angeleiferten Indexdateien im Verzeichnis werden eingelesen und verarbeitet. - + Journaldatei erstellen und je nach Applikationseinstellungen versenden Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und sendet diese mittels Mail bzw. mittls DTO weiter - + DTO-Versand - + Initialisierung des Filewacher-Objektes Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie Dateifilter-Angaben initialisiert. - + Eventhandler des FileWatching-Objektes aktivieren - + Aktivitäten im Inputverzeichnis verarbeiten Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler gestoppt und die anstehenden Dokumente verarbeitet. @@ -1148,40 +1148,40 @@ eingeschaltet - + - + Variable mit dem Namen des zu überwachenden Verzeichnises - + FileSystemWatcher Dieser Reagiert auf das Ereignis OnCreate im angegebenen Verzeichnis (Watch_Directory) - + Varaible zum Zwischenspeichern der Indexdaten einer Indexdaten-Datei - + Timer zur Auslösung der täglichen Journalaufbereitung - + Start des Dienstes EDKB08WS Beim Start des Dienstes werden neben dem Einlesen der Parameter der Journaltimer sowie der Systemfilewatcher zur Verzeichnisüberwachung initialisiert. - + Initialisierung des Filewacher-Objektes Das Filewacher-Objekt wird mit den entpsrechenden Pfad- sowie Dateifilter-Angaben initialisiert. - + Eventhandler des FileWatching-Objektes aktivieren - + Aktivitäten im Inputverzeichnis verarbeiten Wird eine Datei mit der Endung .IND angeliefert, wird der Eventhandler gestoppt und die anstehenden Dokumente verarbeitet. @@ -1191,7 +1191,7 @@ eingeschaltet - + Verarbeiten von angelieferten Daten In dieser Methode werden angelieferte Indexdateien verarbeitet. @@ -1204,22 +1204,22 @@ gestartet. - + Journaldatei erstellen und je nach Applikationseinstellungen versenden Erstellt eine Journaldatei mit den Journaldaten der Verarbeitung und sendet diese mittels Mail bzw. mittls DTO weiter - + DTO-Versand - + Versand von Journaldaten mittels Email - +