Update vor Import Gitea

2021-12-23 09:13:44 +01:00
parent 56bd02798f
commit 609bd2b3f6
72 changed files with 1687 additions and 700 deletions
--- a/AGB_Gen/.vs/AGB_Gen/v16/.suo
+++ b/AGB_Gen/.vs/AGB_Gen/v16/.suo
--- a/AGB_Gen/AGB_Gen/obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb
+++ b/AGB_Gen/AGB_Gen/obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb
@@ -0,0 +1,7 @@
 ' <autogenerated/>
            Option Strict Off
            Option Explicit On
            Imports System
            Imports System.Reflection
            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.5", FrameworkDisplayName:=".NET Framework 4.5")>
--- a/AGB_Gen/AGB_Gen/obj/Debug/AGB_Gen.vbproj.AssemblyReference.cache
+++ b/AGB_Gen/AGB_Gen/obj/Debug/AGB_Gen.vbproj.AssemblyReference.cache
--- a/AGB_Gen/AGB_Gen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
+++ b/AGB_Gen/AGB_Gen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
--- a/ARSDDE/ARSDDE/.vs/ARSDDE/v16/.suo
+++ b/ARSDDE/ARSDDE/.vs/ARSDDE/v16/.suo
--- a/ARSDDE/ARSDDE/ARSDDE/obj/Debug/ARSDDE.vbprojAssemblyReference.cache
+++ b/ARSDDE/ARSDDE/ARSDDE/obj/Debug/ARSDDE.vbprojAssemblyReference.cache
--- a/ARSDDE/ARSDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/ARSDDE/ARSDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/BCK_Massenimport/.vs/BCK_Massenimport/v16/.suo
+++ b/BCK_Massenimport/.vs/BCK_Massenimport/v16/.suo
--- a/BCK_Massenimport/BCK_Massenimport/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/BCK_Massenimport/BCK_Massenimport/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/BL_Aushaendigungen/.vs/DokSA/v16/.suo
+++ b/BL_Aushaendigungen/.vs/DokSA/v16/.suo
--- a/BL_Aushaendigungen/DokSA/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/BL_Aushaendigungen/DokSA/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/BinData/.vs/BinData/v16/.suo
+++ b/BinData/.vs/BinData/v16/.suo
--- a/BinData/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/BinData/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/BinData_Single/.vs/BinData/v16/.suo
+++ b/BinData_Single/.vs/BinData/v16/.suo
--- a/BinData_Single/obj/Debug/BinData.vbprojAssemblyReference.cache
+++ b/BinData_Single/obj/Debug/BinData.vbprojAssemblyReference.cache
--- a/EDKTester/EDKTester/bin/Debug/tmpedk.edk
+++ b/EDKTester/EDKTester/bin/Debug/tmpedk.edk
@@ -1,625 +0,0 @@
 <?xml version="1.0" encoding="ISO-8859-1"?><action xmlns:xs="http://www.w3.org/2001/XMLSchema-instance" xs:noNamespaceSchemaLocation="EdokaActionInterface.xsd">
  <actionId>3</actionId>
  <sourceApplication>TATG11</sourceApplication>
  <creatorTg>Stefan Hutter lokal</creatorTg>
  <PartnerNr>1000208</PartnerNr>
  <fanummer3>1435213046</fanummer3>
  <DokumentTypNr>900000870</DokumentTypNr>
  <DirekteErstellung>1</DirekteErstellung>
  <Dokumentpaket>0</Dokumentpaket>
  <dokwerte>
    <parameter>
      <name>Erstellungs_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>K<>rzel</name>
      <value>TGU2153</value>
    </parameter>
    <parameter>
      <name>BP_Nr.</name>
      <value>29547850</value>
    </parameter>
    <parameter>
      <name>Name</name>
      <value>Vasanthan, Shahana</value>
    </parameter>
    <parameter>
      <name>Strasse</name>
      <value>Erchingerstrasse 33b</value>
    </parameter>
    <parameter>
      <name>PLZ / Ort</name>
      <value>8500 Frauenfeld</value>
    </parameter>
    <parameter>
      <name>Kundensegment</name>
      <value>Privatkunden - Teambetreut</value>
    </parameter>
    <parameter>
      <name>Branche/Geb</name>
      <value>Geburtsdatum</value>
    </parameter>
    <parameter>
      <name>Branche/Geb Wert</name>
      <value>29.07.1998</value>
    </parameter>
    <parameter>
      <name>Bankbeziehung</name>
    </parameter>
    <parameter>
      <name>Kreditstrategie</name>
    </parameter>
    <parameter>
      <name>Order-Nr.</name>
      <value>1435213046</value>
    </parameter>
    <parameter>
      <name>Status</name>
      <value>Erstellt</value>
    </parameter>
    <parameter>
      <name>Auftragsart</name>
    </parameter>
    <parameter>
      <name>Ampel_Kreditgesch</name>
      <value>pendent</value>
    </parameter>
    <parameter>
      <name>Kompetenzstufe</name>
    </parameter>
    <parameter>
      <name>Review-Datum</name>
      <value>31.08.2016</value>
    </parameter>
    <parameter>
      <name>Kundenberater</name>
      <value>Beraterteam Frauenfeld 4</value>
    </parameter>
    <parameter>
      <name>Niederlassung</name>
      <value>GS Frauenfeld</value>
    </parameter>
    <parameter>
      <name>Finanzierungszweck</name>
      <value>Neugesch<63>ft</value>
    </parameter>
    <parameter>
      <name>GRDST_Selbst_Anz</name>
      <value>1</value>
    </parameter>
    <parameter>
      <name>GRDST_Bauland_Anz</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>GRDST_Rendite_Anz</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Kontrollfragen_vorh</name>
      <value>1</value>
    </parameter>
    <parameter>
      <name>Firma</name>
    </parameter>
    <parameter>
      <name>DA_1_1</name>
      <value>T$Engagement$$$500$500$500$$$500$$$$
 P$Vasanthan, Shahana$$$500$500$500$$$500$$$$
 L$2954.7850.1001 Hypothekarlimite CHF$$$500$500$500$$$500$$$$
 B$Freie Benutzung$$$$$$$$500$$$$
 S$250, 1. Rang, Registerschuldbrief, 01.01.1900, auf EFH, F...$$$$$$500$100%$500$$$$
 </value>
    </parameter>
    <parameter>
      <name>DA_2_2</name>
      <value>U$Unverpf<70>ndete Sicherheiten$0$$$$$$$$$$$
 P$Vasanthan, Shahana$0$$$$$$$$$$$
 G$Bar$0$$$$$$$$$$$
 W$2954.7850.2001/CHF/Privatkonto Young$0$$$$$0$$$$$$
 W$2954.7850.2002/CHF/Sparkonto Young$$$$$$0$$$$$$
 </value>
    </parameter>
    <parameter>
      <name>DA_3_3</name>
      <value>U$Grundst<73>cksbelehnung$1'000$$$$$$$$$$$
 P$Vasanthan, Shahana$1'000$$$$$$$$$$$
 G$2954.7850.1002 EFH, Frauenfeld, 250, Musterstrasse, 8500 ...$1'000$$$$$$50%$$$$$
 W$250, 1. Rang, Registerschuldbrief, 01.01.1900, auf EFH, F...$500$$$$$$$$$$$
 </value>
    </parameter>
    <parameter>
      <name>DA_nach_Objektart</name>
      <value>T$ENGAGEMENT$500$100.0%$$$$$500$100.0%$
 O$EFH/Reihen-EFH$500$100.0%$$$$$500$100.0%$
 </value>
    </parameter>
    <parameter>
      <name>Exception to Policy</name>
      <value>A1$Hypothekarlimite CHF 500'000
 E1$Keine ETP vorhanden
 </value>
    </parameter>
    <parameter>
      <name>Finanzierung_1</name>
      <value>A1$	FINANZIERUNG:	Hypothekarlimite CHF 500'000
 B1$
 C1$GRUNDDATEN
 A2$
 D1$Finanzierungsart:	Hypothekarfinanzierung
 D1$Finanzierungszweck:	Kauf bestehendes Objekt
 B1$
 C1$FINANZIERUNGSBEDARF
 A2$
 E1$Anlagekosten	Echte Eigenmittel
 F1$Kaufpreis	1'000'000	Bar	500'000
 F1$Anlagekosten	0	Vorbezug S<>ule 3a	0
 F1$Abl<62>sungssumme	0	Erbvorbezug	0
 F1$Renovation	0	Schenkung	0
 F1$Ausbau	0	Landwert	0
 F1$Erh<72>hung (Objektfremd)	0
 G1$	Unechte Eigenmittel
 F1$		Vorbezug 2. S<>ule	0
 F1$		Darlehen Dritte	0
 F1$		Eigenleistung	0
 F1$		Stehbetrag	0
 G1$		Finanzierungsbedarf
 F1$		Bestehende Finanzierung
 H1$	Erh<72>hung / Neu	500'000
 I1$	Bankfinanzierung	500'000
 B1$
 E2$Verwendungszweck
 J1$Kauf bestehendes Objekt
 B1$
 C1$AMORTISATION / REDUKTION
 A2$
 M1$Bewilligte, effektive Amortisation p.a. (bisher):
 M1$Geforderte Amortisation p.a.:	0
 M1$Effektive Amortisation p.a. (neu):
 N1$Erstmals per (Jahr):
 B1$
 C1$ZUGEWIESENE SICHERHEITEN
 A2$
 O1$Grundpfandtitel
 A2$
 P1$Grundpfandart	Nominal	Rang	Vorrang	Rangkonkur.	Anrechnung	Liegenschaft
 Q1$Registerschu...	500'000	1	0	0	500'000	EFH, 250, Frauenfeld, Musterstrasse 28, 8500 Frauenfeld
 A2$
 B1$
 C1$EXCEPTION TO POLICY
 A2$
 V1$Datum	ETP	Text
 W1$Keine
 B1$
 B1$
 C1$BEURTEILUNG (AMPEL)
 A2$
 O1$Detail-Beurteilung
 A2$
 X1$Kriterium	Ergebnis	Ampel
 Y1$  Bonit<69>t	Rating &lt;/= 7	Gr<47>n	Ampel 1: Berater
 Y1$  Eigenleistung	Eigenleistung &lt;/= 5 % der Gestehungs-/Anl...	Gr<47>n	Ampel 1: Berater
 Y1$  Stehbetraege	Stehbetrag &lt;/= 10 % der Gestehungs-/Anlag...	Gr<47>n	Ampel 1: Berater
 Y1$  Wohnrecht	Kein Grundst<73>ck mit Wohnrecht vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  Nutzniessung	Kein Grundst<73>ck mit Nutzniessung vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  Betreiberliegenschaft	Kein als Betreiberliegenschaft markiertes...	Gr<47>n	Ampel 1: Berater
 Y1$  Baurecht	Kein Grundst<73>ck im Baurecht vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  Niederstwertprinzip eingehalten	Niederstwertprinzip bei allen Grundst<73>cke...	Gr<47>n	Ampel 1: Berater
 Y1$  Vorzugspreis (Kaufpreis)	Kein Grundst<73>ck mit Vorzugspreis vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  Belehnung 1	Schlechtester Ampelwert aller zugewiesene...	Gr<47>n	Ampel 1: Berater
 Y1$  Belehnung 2	Schlechtester Ampelwert aller zugewiesene...	Gr<47>n	Ampel 1: Berater
 Y1$  Belehnung 3	Schlechtester Ampelwert aller zugewiesene...	Gr<47>n	Ampel 1: Berater
 Y1$  Belehnung 4	Schlechtester Ampelwert aller zugewiesene...	Gr<47>n	Ampel 1: Berater
 Y1$  Kalkulatorisch	Kosten/Einkommensrelation (KER): &lt;/= 30 %	Gr<47>n	Ampel 1: Berater
 Y1$  Effektiv	Kosten/Einkommensrelation (KER): &lt;/= 30 %	Gr<47>n	Ampel 1: Berater
 Y1$  Amortisation	Keine ETP vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  Echte Eigenmittel	Keine ETP vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  Kreditpolitik	Keine ETP vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  Grundst<73>ck: B<>ro / Verwaltung	Kein B<>ro- und Verwaltungsgeb<65>ude bzw. ke...	Gr<47>n	Ampel 1: Berater
 Y1$  Grundst<73>ck: Gewerbe &gt; 50 %	Kein Gewerbe &gt; 50 % bzw. keine diesbez<65>gl...	Gr<47>n	Ampel 1: Berater
 Y1$  Grundst<73>ck: Spezialobjekt	Kein Spezialobjekt bzw. keine diesbez<65>gli...	Gr<47>n	Ampel 1: Berater
 Y1$  Grundst<73>ck: Industrie	Kein Industrieobjekt bzw. keine diesbez<65>g...	Gr<47>n	Ampel 1: Berater
 Y1$  Grundst<73>ck: Promotion	Kein Promotions-Grundst<73>ck bzw. keine die...	Gr<47>n	Ampel 1: Berater
 Y1$  Wertberichtigungen	Keine Wertberichtigungen vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  Zinsr<73>ckstellungen	Keine Zinsr<73>ckstellungen vorhanden	Gr<47>n	Ampel 1: Berater
 Y1$  2. S<>ule	Schlechtester Ampelwert aller zugewiesene...	Gr<47>n	Ampel 1: Berater
 B1$
 O1$Gesamt-Beurteilung
 A2$
 Z1$Gesamtbeurteilung der Finanzierung	Gr<47>n	Ampel 1: Berater
 </value>
    </parameter>
    <parameter>
      <name>Grundstueck_1</name>
      <value>A1$	GRUNDST<53>CK:	Grundst<73>ck (5013)  
 B1$
 C1$GRUNDDATEN
 D1$
 E1$Adresse:	Musterstrasse 28, 8500 Frauenfeld, Thurgau, Schweiz
 E1$Eigent<6E>mer:	Vasanthan, Shahana
 E1$Eigentumsform:	Alleineigentum
 E1$Liegenschaftstyp:	EFH/Reihen-EFH
 E1$Bauzone:
 E1$Baujahr:	2016
 E1$Grundst<73>cksfl<66>che (m2):	500
 F1$
 E1$Wohnrecht:	Nein
 E1$Nutzniessung:	Nein
 E1$Baurecht:	Nein
 B1$
 C1$NUTZUNG
 D1$
 G1$Nutzung als	Nutzung durch	Quote (%)	Eigenmiete p.a.	Netto-MZ-Ein. p.a.
 H1$Wohnliegenschaft	Selbst	100	0	0
 B1$
 C1$LIEGENSCHAFTSWERTE
 D1$
 I1$Wert	Datum	Betrag	Sch<63>tzer	Vorzugspreis
 D1$
 J1$Massgebender Wert (Belehnungsbasis)
 D1$
 K1$Verkehrswert WuP	30.08.2016	1'000'000
 B1$
 J1$<24>brige Werte
 K1$Kaufpreis (Datum Hand<6E>nderung)	30.08.2016	1'000'000		Nein
 B1$
 C1$BELEHNUNG
 D1$
 N1$Belehnung 1: Hypothek / Belehnungsbasis	50 %
 N1$Belehnung 2: (Hypothek ./. s<>mtliche Mehrsicherheiten) / Belehnungsbasis	50 %
 N1$Belehnung 3: (Hypothek ./. s<>mtliche Mehrsicherheiten + PK-Vorbezug) / Belehnungsbasis	50 %
 N1$Belehnung 4: (Hypothek ./. Mehrsicherheiten (ohne PK-Guthaben)) / Belehnungsbasis	50 %
 B1$
 C1$GRUNDPFAND
 D1$
 O1$Grundpfandart	Nominal	Rang	Vorgang	Rangkonkurrenz	Anrechnungswert
 P1$Registerschuldbrief	500'000	1	0	0	500'000
 Q1$	500'000
 </value>
    </parameter>
    <parameter>
      <name>Kundenstammblatt_1</name>
      <value>A1$	KUNDENSTAMMBLATT:	Vasanthan, Shahana
 B1$
 C1$STAMMDATEN
 D1$
 E1$Adresse:	Erchingerstrasse 33b, 8500 Frauenfeld, Thurgau, Schweiz
 E1$Geburtsdatum:	29.07.1998
 E1$Zivilstand:	Ledig
 E1$G<>terstand:
 F1$
 E1$Erwerbsart:
 E1$Hauptberuf:
 E1$Arbeitgeber:
 E1$T<>tig seit:
 B1$
 C1$ZUSATZINFORMATIONEN
 D1$
 E1$Bankbeziehung:
 E1$Kreditstrategie:
 E1$Bemerkungen:
 B1$
 C1$EINKOMMEN
 D1$
 E1$Jahr:	2016
 G1$Einkommensart	Betrag	Anrechenbar	Info-Quelle	Bemerkungen
 H1$Haupteinkommen (brutto)	250'000	250'000	Lohnausweis
 H1$Haupteinkommen (netto)	240'000
 I1$Nachhaltiges Einkommen	250'000
 B1$
 C1$VERPFLICHTUNGEN BEI DRITTEN (FR<46>HERE)
 D1$
 J1$Verpflichtungsart	Schuldbetrag	Zinssatz	Amo. p.a.	Aufw. p.a.	F<>lligkeit	Gl<47>ubiger
 K1$Keine bekannten Verpflichtungen bei Dritten
 B1$
 C1$VERM<52>GEN BEI DRITTEN
 D1$
 L1$Produkt	WRG	Betrag	Zinssatz	Ertrag	F<>lligkeit	Institut
 K1$Kein bekanntes Verm<72>gen bei Dritten
 B1$
 C1$VORBEZ<45>GE 2./3. S<>ULE (FR<46>HERE)
 D1$
 N1$Datum	Betrag	Quelle	Zweck	Bemerkungen
 O1$Keine Vorbez<65>ge get<65>tigt
 B1$
 C1$BETREIBUNGEN
 D1$
 P1$Jahr	Anzahl	Totalbetrag	Bemerkungen
 Q1$Keine Betreibungen vorhanden
 B1$
 C1$ZEK / IKO AUSK<53>NFTE
 D1$
 R1$Info eingeholt	Eintr<74>ge vorhanden	Unregelm<6C>ssigkeiten	Datum	Bemerkungen
 S1$Keine Auskunft eingeholt
 T1$
 </value>
    </parameter>
    <parameter>
      <name>Kontrollfragen</name>
      <value>A1$HYPOTHEKARFINANZIERUNG
 B1$
 C1$Liegenschaftensch<63>tzung vorhanden und gem<65>ss Weisung korrekt?	Ja
 C1$Fr<46>here Vorbez<65>ge 2./3. S<>ule abgekl<6B>rt und erfasst?	Ja
 C1$Nachweis Eigenmittel vorhanden?	Ja
 C1$Steuererkl<6B>rung / Status vorhanden?	Ja
 C1$Betreibungsauskunft gem<65>ss Weisung eingeholt?	Ja
 C1$Grundbuchauszug eingeholt und gepr<70>ft?	Ja
 C1$Einkommensnachweis vorhanden?	Ja
 C1$Tragbarkeit bei Pensionierung gem<65>ss Weisung gepr<70>ft?	Ja
 C1$ETP Kreditpolitik gepr<70>ft?	Ja
 C1$Mindestanteil echter Eigenmittel von 10% gem<65>ss Mindestanforderung SBVg eingehalten?	Ja
 C1$Renditeobjekt: Mieterspiegel bzw. Mietzins-Nachweis gem<65>ss Weisung vorhanden?	Ja
 D1$
 A1$PHYSISCHE BEILAGEN
 B1$
 C1$Physische Beilagen zum Auftrag f<>r Verarbeitung?	Nein
 D1$
 A1$BEMERKUNGEN / BEGR<47>NDUNGEN
 B1$
 E1$Keine Bemerkungen vorhanden
 </value>
    </parameter>
    <parameter>
      <name>Beilagen</name>
      <value>A1$UNTERLAGEN ZUM KREDITNEHMER
 B1$
 C1$1	Einkommensnachweis
 C1$1	Steuererkl<6B>rung / Status
 C1$1	Betreibungsauskunft
 C1$1	Freitext
 D1$
 A1$UNTERLAGEN GRUNDPFANDOBJEKT
 B1$
 C1$1	Liegenschaften Sch<63>tzung
 C1$1	Grundbuchauszug
 C1$1	Kaufvertrag/-Entwurf
 C1$1	Geb<65>udeversicherungspolice
 C1$1	Verkaufsdokumentation
 </value>
    </parameter>
    <parameter>
      <name>Limite alt</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Limite neu</name>
      <value>500'000</value>
    </parameter>
    <parameter>
      <name>Limiten-Ver<65>nderung</name>
      <value>500'000</value>
    </parameter>
    <parameter>
      <name>Risikokategorie 1</name>
      <value>500'000</value>
    </parameter>
    <parameter>
      <name>Risikokategorie 2</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Risikokategorie 3</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>GE_EWB</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>GE_Zinsrueckst</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>DA_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>Saldo per</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>DA_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>Amo-Ausstand per</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>DA_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>Zinsausstand per</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>DA_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>Total Engagement</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Limite alt WE</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Limite neu WE</name>
      <value>500'000</value>
    </parameter>
    <parameter>
      <name>Limiten-Ver<65>nderung WE</name>
      <value>500'000</value>
    </parameter>
    <parameter>
      <name>Risikokategorie 1 WE</name>
      <value>500'000</value>
    </parameter>
    <parameter>
      <name>Risikokategorie 2 WE</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Risikokategorie 3 WE</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>GE_WE_EWB</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>GE_WE_Zinsrueckst</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>DA_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>Saldo per WE</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>DA_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>Amo-Ausstand per WE</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>DA_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>Zinsausstand per WE</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>DA_Datum</name>
      <value>30.08.2016</value>
    </parameter>
    <parameter>
      <name>Total Engagement WE</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Rel_Gesamteng</name>
      <value>500'000</value>
    </parameter>
    <parameter>
      <name>Rel_Blankoeng</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Rel_Lombardeng</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Rel_AusserkBlankoeng</name>
      <value>0</value>
    </parameter>
    <parameter>
      <name>Rel_Gesamteng_Komp</name>
      <value>3'000'000</value>
    </parameter>
    <parameter>
      <name>Rel_Blankoeng_Komp</name>
      <value>20'000</value>
    </parameter>
    <parameter>
      <name>Rel_Lombardeng_Komp</name>
      <value>750'000</value>
    </parameter>
    <parameter>
      <name>Rel_AKBlankoeng_Komp</name>
      <value>20'000</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_Eink</name>
      <value>250'000</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_Aufw</name>
      <value>32'000</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst</name>
      <value>13</value>
    </parameter>
    <parameter>
      <name>Antragsbegruendung</name>
      <value>Antrag	Kauf bestehendes Objekt</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_Aufw_Kalk</name>
      <value>25'000
 0
 0
 7'000
 0
 0
 0
 </value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_Aufw_Eff</name>
      <value>0
 0
 0
 7'000
 0
 0
 0
 </value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_AufwTotal_Kalk</name>
      <value>32'000</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_AufwTotal_Eff</name>
      <value>7'000</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_Eink_Kalk</name>
      <value>250'000
 0
 0
 0
 </value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_Eink_Eff</name>
      <value>250'000
 0
 0
 0
 </value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_EinkTotal_Kalk</name>
      <value>250'000</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_EinkTotal_Eff</name>
      <value>250'000</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_Kalk</name>
      <value>13</value>
    </parameter>
    <parameter>
      <name>Trag_Selbst_Eff</name>
      <value>3</value>
    </parameter>
    <parameter>
      <name>Bewilligungshistory</name>
      <value>30.08.2016	12:29:31	Testuser TGU2153 PK_GS_INDIVIDUAL_TL	Open
 30.08.2016	12:36:57	Testuser TGU2153 PK_GS_INDIVIDUAL_TL	Erstellt</value>
    </parameter>
  </dokwerte>
 </action>
--- a/EDOKA_Toolset/.vs/EDOKA_Toolset/v16/.suo
+++ b/EDOKA_Toolset/.vs/EDOKA_Toolset/v16/.suo
--- a/EDOKA_Toolset/Plugin_EMailUpdate/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/EDOKA_Toolset/Plugin_EMailUpdate/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/EDOKA_Toolset/Plugin_ScanToEDOKA/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/EDOKA_Toolset/Plugin_ScanToEDOKA/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/ImgToBase64ToFile/ImgToFile/.vs/ImgToFile/v16/.suo
+++ b/ImgToBase64ToFile/ImgToFile/.vs/ImgToFile/v16/.suo
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile.sln
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile.sln
@@ -0,0 +1,25 @@
 Microsoft Visual Studio Solution File, Format Version 12.00
 # Visual Studio Version 16
 VisualStudioVersion = 16.0.31613.86
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ImgToFile", "ImgToFile\ImgToFile.vbproj", "{26B7CBBD-9C07-47F9-A65A-23A89FD0331E}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
 		Release|Any CPU = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
 		{26B7CBBD-9C07-47F9-A65A-23A89FD0331E}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{26B7CBBD-9C07-47F9-A65A-23A89FD0331E}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{26B7CBBD-9C07-47F9-A65A-23A89FD0331E}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{26B7CBBD-9C07-47F9-A65A-23A89FD0331E}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
 	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {2ED41448-C42D-41CC-87B3-61A09AC86D11}
 	EndGlobalSection
 EndGlobal
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/App.config
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/App.config
@@ -0,0 +1,21 @@
 <?xml version="1.0" encoding="utf-8" ?>
 <configuration>
    <configSections>
        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
            <section name="ImgToFile.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
        </sectionGroup>
    </configSections>
    <startup> 
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
    </startup>
    <userSettings>
        <ImgToFile.My.MySettings>
            <setting name="EDOKA_Connection" serializeAs="String">
                <value>Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29</value>
            </setting>
            <setting name="FilePath" serializeAs="String">
                <value>k:\edoka\imgtofile\</value>
            </setting>
        </ImgToFile.My.MySettings>
    </userSettings>
 </configuration>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/ImgToFile.vbproj
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/ImgToFile.vbproj
@@ -0,0 +1,115 @@
 <?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
  <PropertyGroup>
    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
    <ProjectGuid>{26B7CBBD-9C07-47F9-A65A-23A89FD0331E}</ProjectGuid>
    <OutputType>Exe</OutputType>
    <StartupObject>ImgToFile.Module1</StartupObject>
    <RootNamespace>ImgToFile</RootNamespace>
    <AssemblyName>ImgToFile</AssemblyName>
    <FileAlignment>512</FileAlignment>
    <MyType>Console</MyType>
    <TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
    <Deterministic>true</Deterministic>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
    <PlatformTarget>AnyCPU</PlatformTarget>
    <DebugSymbols>true</DebugSymbols>
    <DebugType>full</DebugType>
    <DefineDebug>true</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <OutputPath>bin\Debug\</OutputPath>
    <DocumentationFile>ImgToFile.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
  </PropertyGroup>
  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
    <PlatformTarget>AnyCPU</PlatformTarget>
    <DebugType>pdbonly</DebugType>
    <DefineDebug>false</DefineDebug>
    <DefineTrace>true</DefineTrace>
    <Optimize>true</Optimize>
    <OutputPath>bin\Release\</OutputPath>
    <DocumentationFile>ImgToFile.xml</DocumentationFile>
    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
  </PropertyGroup>
  <PropertyGroup>
    <OptionExplicit>On</OptionExplicit>
  </PropertyGroup>
  <PropertyGroup>
    <OptionCompare>Binary</OptionCompare>
  </PropertyGroup>
  <PropertyGroup>
    <OptionStrict>Off</OptionStrict>
  </PropertyGroup>
  <PropertyGroup>
    <OptionInfer>On</OptionInfer>
  </PropertyGroup>
  <ItemGroup>
    <Reference Include="System" />
    <Reference Include="System.Data" />
    <Reference Include="System.Deployment" />
    <Reference Include="System.Xml" />
    <Reference Include="System.Core" />
    <Reference Include="System.Xml.Linq" />
    <Reference Include="System.Data.DataSetExtensions" />
    <Reference Include="System.Net.Http" />
  </ItemGroup>
  <ItemGroup>
    <Import Include="Microsoft.VisualBasic" />
    <Import Include="System" />
    <Import Include="System.Collections" />
    <Import Include="System.Collections.Generic" />
    <Import Include="System.Data" />
    <Import Include="System.Diagnostics" />
    <Import Include="System.Linq" />
    <Import Include="System.Xml.Linq" />
    <Import Include="System.Threading.Tasks" />
  </ItemGroup>
  <ItemGroup>
    <Compile Include="db\clsConnectionProvider.vb" />
    <Compile Include="db\clsDBInteractionBase.vb" />
    <Compile Include="db\clsdbzugriff.vb" />
    <Compile Include="db\db_connection.vb" />
    <Compile Include="globals.vb" />
    <Compile Include="Module1.vb" />
    <Compile Include="My Project\AssemblyInfo.vb" />
    <Compile Include="My Project\Application.Designer.vb">
      <AutoGen>True</AutoGen>
      <DependentUpon>Application.myapp</DependentUpon>
    </Compile>
    <Compile Include="My Project\Resources.Designer.vb">
      <AutoGen>True</AutoGen>
      <DesignTime>True</DesignTime>
      <DependentUpon>Resources.resx</DependentUpon>
    </Compile>
    <Compile Include="My Project\Settings.Designer.vb">
      <AutoGen>True</AutoGen>
      <DependentUpon>Settings.settings</DependentUpon>
      <DesignTimeSharedInput>True</DesignTimeSharedInput>
    </Compile>
  </ItemGroup>
  <ItemGroup>
    <EmbeddedResource Include="My Project\Resources.resx">
      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
      <CustomToolNamespace>My.Resources</CustomToolNamespace>
      <SubType>Designer</SubType>
    </EmbeddedResource>
  </ItemGroup>
  <ItemGroup>
    <None Include="My Project\Application.myapp">
      <Generator>MyApplicationCodeGenerator</Generator>
      <LastGenOutput>Application.Designer.vb</LastGenOutput>
    </None>
    <None Include="My Project\Settings.settings">
      <Generator>SettingsSingleFileGenerator</Generator>
      <CustomToolNamespace>My</CustomToolNamespace>
      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
    </None>
    <None Include="App.config" />
  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/Module1.vb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/Module1.vb
@@ -0,0 +1,13 @@
 Module Module1
    Sub Main()
        Dim db As New clsDBZugriffe
        Globals.sConnectionString_edoka = My.Settings.EDOKA_Connection
        db.Get_doks_to_export()
        For Each r As DataRow In db.Dokdaten.Rows
            db.get_dokumnet_from_db(r.Item(1), r.Item(1) + ".pdf")
        Next
    End Sub
 End Module
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/My
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My
@@ -0,0 +1,13 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     This code was generated by a tool.
 '     Runtime Version:4.0.30319.42000
 '
 '     Changes to this file may cause incorrect behavior and will be lost if
 '     the code is regenerated.
 ' </auto-generated>
 '------------------------------------------------------------------------------
 Option Strict On
 Option Explicit On
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/My
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My
@@ -0,0 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <MySubMain>false</MySubMain>
  <SingleInstance>false</SingleInstance>
  <ShutdownMode>0</ShutdownMode>
  <EnableVisualStyles>true</EnableVisualStyles>
  <AuthenticationMode>0</AuthenticationMode>
  <ApplicationType>2</ApplicationType>
  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
 </MyApplicationData>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/My
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My
@@ -0,0 +1,35 @@
 Imports System
 Imports System.Reflection
 Imports System.Runtime.InteropServices
 ' Allgemeine Informationen über eine Assembly werden über die folgenden
 ' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
 ' die einer Assembly zugeordnet sind.
 ' Werte der Assemblyattribute überprüfen
 <Assembly: AssemblyTitle("ImgToFile")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("ImgToFile")>
 <Assembly: AssemblyCopyright("Copyright ©  2021")>
 <Assembly: AssemblyTrademark("")>
 <Assembly: ComVisible(False)>
 'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird.
 <Assembly: Guid("b1d87276-6d7e-4578-a0da-4de7e025ef2b")>
 ' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
 '
 '      Hauptversion
 '      Nebenversion
 '      Buildnummer
 '      Revision
 '
 ' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
 ' indem Sie "*" wie unten gezeigt eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 <Assembly: AssemblyVersion("1.0.0.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/My
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My
@@ -0,0 +1,62 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     This code was generated by a tool.
 '     Runtime Version:4.0.30319.42000
 '
 '     Changes to this file may cause incorrect behavior and will be lost if
 '     the code is regenerated.
 ' </auto-generated>
 '------------------------------------------------------------------------------
 Option Strict On
 Option Explicit On
 Namespace My.Resources
    'This class was auto-generated by the StronglyTypedResourceBuilder
    'class via a tool like ResGen or Visual Studio.
    'To add or remove a member, edit your .ResX file then rerun ResGen
    'with the /str option, or rebuild your VS project.
    '''<summary>
    '''  A strongly-typed resource class, for looking up localized strings, etc.
    '''</summary>
    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
    Friend Module Resources
        Private resourceMan As Global.System.Resources.ResourceManager
        Private resourceCulture As Global.System.Globalization.CultureInfo
        '''<summary>
        '''  Returns the cached ResourceManager instance used by this class.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
            Get
                If Object.ReferenceEquals(resourceMan, Nothing) Then
                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ImgToFile.Resources", GetType(Resources).Assembly)
                    resourceMan = temp
                End If
                Return resourceMan
            End Get
        End Property
        '''<summary>
        '''  Overrides the current thread's CurrentUICulture property for all
        '''  resource lookups using this strongly typed resource class.
        '''</summary>
        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
        Friend Property Culture() As Global.System.Globalization.CultureInfo
            Get
                Return resourceCulture
            End Get
            Set(ByVal value As Global.System.Globalization.CultureInfo)
                resourceCulture = value
            End Set
        End Property
    End Module
 End Namespace
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/My
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My
@@ -0,0 +1,117 @@
 <?xml version="1.0" encoding="utf-8"?>
 <root>
  <!-- 
    Microsoft ResX Schema 
    Version 2.0
    The primary goals of this format is to allow a simple XML format 
    that is mostly human readable. The generation and parsing of the 
    various data types are done through the TypeConverter classes 
    associated with the data types.
    Example:
    ... ado.net/XML headers & schema ...
    <resheader name="resmimetype">text/microsoft-resx</resheader>
    <resheader name="version">2.0</resheader>
    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
        <value>[base64 mime encoded serialized .NET Framework object]</value>
    </data>
    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
        <comment>This is a comment</comment>
    </data>
    There are any number of "resheader" rows that contain simple 
    name/value pairs.
    Each data row contains a name, and value. The row also contains a 
    type or mimetype. Type corresponds to a .NET class that support 
    text/value conversion through the TypeConverter architecture. 
    Classes that don't support this are serialized and stored with the 
    mimetype set.
    The mimetype is used for serialized objects, and tells the 
    ResXResourceReader how to depersist the object. This is currently not 
    extensible. For a given mimetype the value must be set accordingly:
    Note - application/x-microsoft.net.object.binary.base64 is the format 
    that the ResXResourceWriter will generate, however the reader can 
    read any of the formats listed below.
    mimetype: application/x-microsoft.net.object.binary.base64
    value   : The object must be serialized with 
            : System.Serialization.Formatters.Binary.BinaryFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.soap.base64
    value   : The object must be serialized with 
            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
            : and then encoded with base64 encoding.
    mimetype: application/x-microsoft.net.object.bytearray.base64
    value   : The object must be serialized into a byte array 
            : using a System.ComponentModel.TypeConverter
            : and then encoded with base64 encoding.
    -->
  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
    <xsd:element name="root" msdata:IsDataSet="true">
      <xsd:complexType>
        <xsd:choice maxOccurs="unbounded">
          <xsd:element name="metadata">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" />
              <xsd:attribute name="type" type="xsd:string" />
              <xsd:attribute name="mimetype" type="xsd:string" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="assembly">
            <xsd:complexType>
              <xsd:attribute name="alias" type="xsd:string" />
              <xsd:attribute name="name" type="xsd:string" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="data">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
            </xsd:complexType>
          </xsd:element>
          <xsd:element name="resheader">
            <xsd:complexType>
              <xsd:sequence>
                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
              </xsd:sequence>
              <xsd:attribute name="name" type="xsd:string" use="required" />
            </xsd:complexType>
          </xsd:element>
        </xsd:choice>
      </xsd:complexType>
    </xsd:element>
  </xsd:schema>
  <resheader name="resmimetype">
    <value>text/microsoft-resx</value>
  </resheader>
  <resheader name="version">
    <value>2.0</value>
  </resheader>
  <resheader name="reader">
    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
  <resheader name="writer">
    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
  </resheader>
 </root>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/My
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My
@@ -0,0 +1,98 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     Dieser Code wurde von einem Tool generiert.
 '     Laufzeitversion:4.0.30319.42000
 '
 '     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
 '     der Code erneut generiert wird.
 ' </auto-generated>
 '------------------------------------------------------------------------------
 Option Strict On
 Option Explicit On
 Namespace My
    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.10.0.0"),  _
     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
    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 "Automatische My.Settings-Speicherfunktion"
 #If _MyType = "WindowsForms" Then
    Private Shared addedHandler As Boolean
    Private Shared addedHandlerLockObject As New Object
    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
    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
                        If Not addedHandler Then
                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
                            addedHandler = True
                        End If
                    End SyncLock
                End If
 #End If
                Return defaultInstance
            End Get
        End Property
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation i"& _ 
            "d =;packet size=4096;User ID=sa;Password=*shu29")>  _
        Public Property EDOKA_Connection() As String
            Get
                Return CType(Me("EDOKA_Connection"),String)
            End Get
            Set
                Me("EDOKA_Connection") = value
            End Set
        End Property
        <Global.System.Configuration.UserScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\imgtofile\")>  _
        Public Property FilePath() As String
            Get
                Return CType(Me("FilePath"),String)
            End Get
            Set
                Me("FilePath") = value
            End Set
        End Property
    End Class
 End Namespace
 Namespace My
    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
    Friend Module MySettingsProperty
        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
        Friend ReadOnly Property Settings() As Global.ImgToFile.My.MySettings
            Get
                Return Global.ImgToFile.My.MySettings.Default
            End Get
        End Property
    End Module
 End Namespace
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/My
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My
@@ -0,0 +1,12 @@
 <?xml version='1.0' encoding='utf-8'?>
 <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
  <Profiles />
  <Settings>
    <Setting Name="EDOKA_Connection" Type="System.String" Scope="User">
      <Value Profile="(Default)">Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29</Value>
    </Setting>
    <Setting Name="FilePath" Type="System.String" Scope="User">
      <Value Profile="(Default)">k:\edoka\imgtofile\</Value>
    </Setting>
  </Settings>
 </SettingsFile>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/DokToFile.zip
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/DokToFile.zip
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe.config
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe.config
@@ -0,0 +1,21 @@
 <?xml version="1.0" encoding="utf-8" ?>
 <configuration>
    <configSections>
        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
            <section name="ImgToFile.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
        </sectionGroup>
    </configSections>
    <startup> 
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
    </startup>
    <userSettings>
        <ImgToFile.My.MySettings>
            <setting name="EDOKA_Connection" serializeAs="String">
                <value>Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29</value>
            </setting>
            <setting name="FilePath" serializeAs="String">
                <value>k:\edoka\imgtofile\</value>
            </setting>
        </ImgToFile.My.MySettings>
    </userSettings>
 </configuration>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.pdb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.pdb
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.xml
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.xml
@@ -0,0 +1,26 @@
 <?xml version="1.0"?>
 <doc>
 <assembly>
 <name>
 ImgToFile
 </name>
 </assembly>
 <members>
 <member name="T:ImgToFile.My.Resources.Resources">
 <summary>
  A strongly-typed resource class, for looking up localized strings, etc.
 </summary>
 </member>
 <member name="P:ImgToFile.My.Resources.Resources.ResourceManager">
 <summary>
  Returns the cached ResourceManager instance used by this class.
 </summary>
 </member>
 <member name="P:ImgToFile.My.Resources.Resources.Culture">
 <summary>
  Overrides the current thread's CurrentUICulture property for all
  resource lookups using this strongly typed resource class.
 </summary>
 </member>
 </members>
 </doc>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsConnectionProvider.vb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsConnectionProvider.vb
@@ -0,0 +1,289 @@
 ' ///////////////////////////////////////////////////////////////////////////
 ' // Description: Connection Provider class for Database connection sharing  
 ' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:25
 ' // This class implements IDisposable.
 ' ///////////////////////////////////////////////////////////////////////////
 Imports System
 Imports System.Configuration
 Imports System.Data
 Imports System.Data.SqlClient
 Imports System.Collections
 Namespace edokadb
 	' /// <summary>
 	' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
 	' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
 	' /// on a high level.
 	' /// </summary>
 	Public Class clsConnectionProvider
 		Implements IDisposable
 #Region " Class Member Declarations "
 		Private		m_scoDBConnection As SqlConnection
 		Private		m_bIsTransactionPending, m_bIsDisposed As Boolean
 		Private		m_stCurrentTransaction As SqlTransaction
 		Private		m_alSavePoints As ArrayList
 #End Region
 		Public Sub New()
 			' // Init the class
 			InitClass()
 		End Sub
 		' /// <summary>
 		' /// Purpose: Implements the IDispose' method Dispose.
 		' /// </summary>
 		Overloads Public Sub Dispose() Implements IDisposable.Dispose
 			Dispose(True)
 			GC.SuppressFinalize(Me)
 		End Sub
 		' /// <summary>
 		' /// Purpose: Implements the Dispose functionality.
 		' /// </summary>
 		Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
 			' // Check to see if Dispose has already been called.
 			If Not m_bIsDisposed Then
 				If bIsDisposing Then
 					' // Dispose managed resources.
 					If Not (m_stCurrentTransaction Is Nothing) Then
 						m_stCurrentTransaction.Dispose()
 						m_stCurrentTransaction = Nothing
 					End If
 					If Not (m_scoDBConnection Is Nothing) Then
 						' // closing the connection will abort (rollback) any pending transactions
 						m_scoDBConnection.Close()
 						m_scoDBConnection.Dispose()
 						m_scoDBConnection = Nothing
 					End If
 				End If
 			End If
 			m_bIsDisposed = True
 		End Sub
 		' /// <summary>
 		' /// Purpose: Initializes class members.
 		' /// </summary>
 		Private Sub InitClass()
 			' // Create all the objects and initialize other members.
 			m_scoDBConnection = new SqlConnection()
 			m_bIsDisposed = False
 			m_stCurrentTransaction = Nothing
 			m_bIsTransactionPending = False
 			m_alSavePoints = new ArrayList()
 		End Sub
 		' /// <summary>
 		' /// Purpose: Opens the connection object.
 		' /// </summary>
 		' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
 		Public Function OpenConnection() As Boolean
 			Try
 				If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
 					' // It's already open.
 					Throw New Exception("OpenConnection::Connection is already open.")
 				End If
 				m_scoDBConnection.Open()
 				m_bIsTransactionPending = False
 				m_alSavePoints.Clear()
 				Return True
            Catch ex As Exception
                ' // bubble exception
                Throw ex
 			End Try
 		End Function
 		' /// <summary>
 		' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
 		' /// </summary>
 		' /// <param name="sTransactionName">Name of the transaction to start</param>
 		' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
 		Public Function BeginTransaction(sTransactionName As String) As Boolean
 			Try
 				If m_bIsTransactionPending Then
 					' // no nested transactions allowed.
 					Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
 				End If
 				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
 					' // no open connection
 					Throw New Exception("BeginTransaction::Connection is not open.")
 				End If
 				' // begin the transaction and store the transaction object.
 				m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
 				m_bIsTransactionPending = True
 				Return True
 			Catch ex As Exception
 				' // bubble exception
 				Throw ex
 			End Try
 		End Function
 		' /// <summary>
 		' /// Purpose: Commits a pending transaction on the open connection object of this class.
 		' /// </summary>
 		' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
 		Public Function CommitTransaction() As Boolean
 			Try
 				If Not m_bIsTransactionPending Then
 					' // no transaction pending
 					Throw New Exception("CommitTransaction::No transaction pending.")
 				End If
 				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
 					' // no open connection
 					Throw New Exception("CommitTransaction::Connection is not open.")
 				End if
 				' // commit the transaction
 				m_stCurrentTransaction.Commit()
 				m_bIsTransactionPending = False
 				m_stCurrentTransaction.Dispose()
 				m_stCurrentTransaction = Nothing
 				m_alSavePoints.Clear()
 				Return True
 			Catch ex As Exception
 				' // bubble exception
 				Throw ex
 			End Try
 		End Function
 		' /// <summary>
 		' /// Purpose: Rolls back a pending transaction on the open connection object of this class, 
 		' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
 		' /// </summary>
 		' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
 		' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
 		Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
 			Try
 				If Not m_bIsTransactionPending Then
 					' // no transaction pending
 					Throw New Exception("RollbackTransaction::No transaction pending.")
 				End If
 				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
 					' // no open connection
 					Throw New Exception("RollbackTransaction::Connection is not open.")
 				End If
 				' // rollback the transaction
 				m_stCurrentTransaction.Rollback(sTransactionToRollback)
 				' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
 				' // can clean it up.
 				If Not m_alSavePoints.Contains(sTransactionToRollback) Then
 					' // it's not a savepoint
 					m_bIsTransactionPending = False
 					m_stCurrentTransaction.Dispose()
 					m_stCurrentTransaction = Nothing
 					m_alSavePoints.Clear()
 				End If
 				Return True
 			Catch ex As Exception
 				' // bubble exception
 				Throw ex
 			End Try
 		End Function
 		' /// <summary>
 		' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
 		' /// with the given name.
 		' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
 		' /// </summary>
 		' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
 		' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
 		Public Function SaveTransaction(sSavePointName As String) As Boolean
 			Try
 				If Not m_bIsTransactionPending Then
 					' // no transaction pending
 					Throw New Exception("SaveTransaction::No transaction pending.")
 				End If
 				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
 					' // no open connection
 					Throw New Exception("SaveTransaction::Connection is not open.")
 				End If
 				' // save the transaction
 				m_stCurrentTransaction.Save(sSavePointName)
 				' // Store the savepoint in the list.
 				m_alSavePoints.Add(sSavePointName)
 				Return True
 			Catch ex As Exception
 				' // bubble exception
 				Throw ex
 			End Try
 		End Function
 		' /// <summary>
 		' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
 		' /// transaction is commited, or aborted. 
 		' /// </summary>
 		' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
 		' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
 		' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
 		' /// an error occurs</returns>
 		Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
 			Try
 				If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
 					' // No open connection
 					Return False
 				End If
 				If m_bIsTransactionPending Then
 					If bCommitPendingTransaction Then
 						' // Commit the pending transaction
 						m_stCurrentTransaction.Commit()
 					Else
 						' // Rollback the pending transaction
 						m_stCurrentTransaction.Rollback()
 					End If
 					m_bIsTransactionPending = False
 					m_stCurrentTransaction.Dispose()
 					m_stCurrentTransaction = Nothing
 					m_alSavePoints.Clear()
 				End If
 				' // close the connection
 				m_scoDBConnection.Close()
 				Return True
 			Catch ex As Exception
 				' // bubble exception
 				Throw ex
 			End Try
 		End Function
 #Region " Class Property Declarations "
 		Public ReadOnly Property stCurrentTransaction() As SqlTransaction
 			Get
 				Return m_stCurrentTransaction
 			End Get
 		End Property
 		Public ReadOnly Property bIsTransactionPending() As Boolean
 			Get
 				Return m_bIsTransactionPending
 			End Get
 		End Property
 		Public ReadOnly Property scoDBConnection() As SqlConnection
 			Get
 				Return m_scoDBConnection
 			End Get
 		End Property
 		Public WriteOnly Property sConnectionString() As String
 			Set (ByVal Value As String)
 				m_scoDBConnection.ConnectionString = Value
 			End Set
 		End Property
 #End Region
 	End Class
 End Namespace
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsDBInteractionBase.vb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsDBInteractionBase.vb
@@ -0,0 +1,202 @@
 ' //////////////////////////////////////////////////////////////////////////////////////////
 ' // Description: Base class for Database Interaction.                       
 ' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:25
 ' // Because this class implements IDisposable, derived classes shouldn't do so.
 ' //////////////////////////////////////////////////////////////////////////////////////////
 Imports System
 Imports System.Configuration
 Imports System.Data
 Imports System.Data.SqlClient
 Imports System.Data.SqlTypes
 Namespace edokadb
 	' /// <summary>
 	' /// Purpose: Error Enums used by this LLBL library.
 	' /// </summary>
 	Public Enum LLBLError
 		AllOk
 		' // Add more here (check the comma's!)
 	End Enum
 	' /// <summary>
 	' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
 	' /// </summary>
 	Public Interface ICommonDBAccess
 		Function	Insert() As Boolean
 		Function	Update() As Boolean
 		Function	Delete() As Boolean
 		Function	SelectOne() As DataTable
 		Function	SelectAll() As DataTable
 	End Interface
 	' /// <summary>
 	' /// Purpose: Abstract base class for Database Interaction classes.
 	' /// </summary>
 	Public MustInherit Class clsDBInteractionBase
 		Implements IDisposable
 		Implements ICommonDBAccess
 #Region " Class Member Declarations "
 		Protected	m_scoMainConnection As SqlConnection
 		Protected	m_iErrorCode As SqlInt32
 		Protected	m_bMainConnectionIsCreatedLocal As Boolean
 		Protected	m_cpMainConnectionProvider As clsConnectionProvider
 		Private		m_sConnectionString As String
 		Private		m_bIsDisposed As Boolean
 #End Region
 		' /// <summary>
 		' /// Purpose: Class constructor.
 		' /// </summary>
 		Public Sub New()
 			' // Initialize the class' members.
 			InitClass()
 		End Sub
 		' /// <summary>
 		' /// Purpose: Initializes class members.
 		' /// </summary>
 		Private Sub InitClass()
 			' // create all the objects and initialize other members.
 			m_scoMainConnection = new SqlConnection()
 			m_bMainConnectionIsCreatedLocal = True
 			m_cpMainConnectionProvider = Nothing
 			m_iErrorCode = New SqlInt32(LLBLError.AllOk)
 			m_bIsDisposed = False
 		End Sub
 		' /// <summary>
 		' /// Purpose: Implements the IDispose' method Dispose.
 		' /// </summary>
 		Overloads Public Sub Dispose() Implements IDisposable.Dispose
 			Dispose(True)
 			GC.SuppressFinalize(Me)
 		End Sub
 		' /// <summary>
 		' /// Purpose: Implements the Dispose functionality.
 		' /// </summary>
 		Overridable  Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
 			' // Check to see if Dispose has already been called.
 			If Not m_bIsDisposed Then
 				If bIsDisposing Then
 					' // Dispose managed resources.
 					If m_bMainConnectionIsCreatedLocal Then
 						' // Object is created in this class, so destroy it here.
 						m_scoMainConnection.Close()
 						m_scoMainConnection.Dispose()
 						m_bMainConnectionIsCreatedLocal = True
 					End If
 					m_cpMainConnectionProvider = Nothing
 					m_scoMainConnection = Nothing
 				End If
 			End If
 			m_bIsDisposed = True
 		End Sub
 		' /// <summary>
 		' /// Purpose: Implements the ICommonDBAccess.Insert() method.
 		' /// </summary>
 		Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
 			' // No implementation, throw exception
 			Throw New NotImplementedException()
 		End Function
 		' /// <summary>
 		' /// Purpose: Implements the ICommonDBAccess.Delete() method.
 		' /// </summary>
 		Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
 			' // No implementation, throw exception
 			Throw New NotImplementedException()
 		End Function
 		' /// <summary>
 		' /// Purpose: Implements the ICommonDBAccess.Update() method.
 		' /// </summary>
 		Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
 			' // No implementation, throw exception
 			Throw New NotImplementedException()
 		End Function
 		' /// <summary>
 		' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
 		' /// </summary>
 		Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
 			' // No implementation, throw exception
 			Throw New NotImplementedException()
 		End Function
 		' /// <summary>
 		' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
 		' /// </summary>
 		Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
 			' // No implementation, throw exception
 			Throw New NotImplementedException()
 		End Function
 #Region " Class Property Declarations "
 		Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
 			Set(ByVal Value As clsConnectionProvider)
 				If Value Is Nothing Then
 					' // Invalid value
 					Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
 				End If
 				' // A connection provider object is passed to this class.
 				' // Retrieve the SqlConnection object, if present and create a
 				' // reference to it. If there is already a MainConnection object
 				' // referenced by the membervar, destroy that one or simply 
 				' // remove the reference, based on the flag.
 				If Not (m_scoMainConnection Is Nothing) Then
 					' // First get rid of current connection object. Caller is responsible
 					If m_bMainConnectionIsCreatedLocal Then
 						' // Is local created object, close it and dispose it.
 						m_scoMainConnection.Close()
 						m_scoMainConnection.Dispose()
 					End If
 					' // Remove reference.
 					m_scoMainConnection = Nothing
 				End If
 				m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
 				m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
 				m_bMainConnectionIsCreatedLocal = False
 			End Set
 		End Property
 		Public ReadOnly Property iErrorCode() As SqlInt32
 			Get
 				Return m_iErrorCode
 			End Get
 		End Property
 		Public Property sConnectionString() As String
 			Get
 				Return m_sConnectionString
 			End Get
 			Set (ByVal Value As String)
 				m_sConnectionString = Value
 				m_scoMainConnection.ConnectionString = m_sConnectionString
 			End Set
 		End Property
 #End Region
 	End Class
 End Namespace
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsdbzugriff.vb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsdbzugriff.vb
@@ -0,0 +1,370 @@
 Imports System.Data.SqlTypes
 Imports System.Data.SqlClient
 Imports System
 Imports System.IO
 Public Class clsDBZugriffe
    Dim dbconn As New edokadb.DB_Connection
    Dim m_dokdaten As New DataTable
    Property Dokdaten As DataTable
        Get
            Return m_dokdaten
        End Get
        Set(value As DataTable)
            m_dokdaten = value
        End Set
    End Property
    Public Function Get_doks_to_export() As Boolean
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_admin_doks_to_export"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        conn_edoka.sConnectionString = sConnectionString_edoka
        scmCmdToExecute.Connection = conn_edoka.scoDBConnection
        scmCmdToExecute.Connection.ConnectionString = Globals.sConnectionString_edoka
        Dokdaten.Rows.Clear()
        Try
            sdaAdapter.Fill(Dokdaten)
        Catch ex As Exception
            Return False
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            dtToReturn.Dispose()
        End Try
    End Function
    Public Function Set_Status_Dokumente_angefordert(dossiernr As Integer) As Boolean
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_elektr_dossier"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        conn_edoka.sConnectionString = sConnectionString_edoka
        scmCmdToExecute.Connection = conn_edoka.scoDBConnection
        scmCmdToExecute.Connection.ConnectionString = Globals.sConnectionString_edoka
        scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 3))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dossiernr))
        scmCmdToExecute.Connection.Open()
        Try
            scmCmdToExecute.ExecuteNonQuery()
        Catch ex As Exception
            Return False
        Finally
            scmCmdToExecute.Connection.Close()
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            dtToReturn.Dispose()
        End Try
    End Function
    Public Function Set_Status_In_Bearbeitung(dossiernr As Integer) As Boolean
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_elektr_dossier"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        conn_edoka.sConnectionString = sConnectionString_edoka
        scmCmdToExecute.Connection = conn_edoka.scoDBConnection
        scmCmdToExecute.Connection.ConnectionString = Globals.sConnectionString_edoka
        scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dossiernr))
        scmCmdToExecute.Connection.Open()
        Try
            scmCmdToExecute.ExecuteNonQuery()
        Catch ex As Exception
            Return False
        Finally
            scmCmdToExecute.Connection.Close()
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            dtToReturn.Dispose()
        End Try
    End Function
    Public Function Set_Status_Erfolgreich(dossiernr As Integer) As Boolean
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_elektr_dossier"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        'conn_edoka.sConnectionString = sConnectionString_edoka
        scmCmdToExecute.Connection = conn_edoka.scoDBConnection
        scmCmdToExecute.Connection.ConnectionString = Globals.sConnectionString_edoka
        scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dossiernr))
        scmCmdToExecute.Connection.Open()
        Try
            scmCmdToExecute.ExecuteNonQuery()
        Catch ex As Exception
            Return False
        Finally
            scmCmdToExecute.Connection.Close()
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            dtToReturn.Dispose()
        End Try
    End Function
    Public Function Set_Status_Failed(dossiernr As Integer) As Boolean
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_elektr_dossier"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        conn_edoka.sConnectionString = sConnectionString_edoka
        scmCmdToExecute.Connection = conn_edoka.scoDBConnection
        scmCmdToExecute.Connection.ConnectionString = Globals.sConnectionString_edoka
        scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 5))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dossiernr))
        scmCmdToExecute.Connection.Open()
        Try
            scmCmdToExecute.ExecuteNonQuery()
        Catch ex As Exception
            Return False
        Finally
            scmCmdToExecute.Connection.Close()
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            dtToReturn.Dispose()
        End Try
    End Function
    Public Function Get_Dokumentbezeichnung(dokumentid As String) As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_elektr_dossier"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        'conn_edoka.sConnectionString = sConnectionString_edoka
        scmCmdToExecute.Connection = conn_edoka.scoDBConnection
        scmCmdToExecute.Connection.ConnectionString = Globals.sConnectionString_edoka
        scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 12))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
        Try
            sdaAdapter.Fill(dtToReturn)
            Try
                Return dtToReturn
            Catch
                Return Nothing
            End Try
        Catch ex As Exception
            Return Nothing
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            dtToReturn.Dispose()
        End Try
    End Function
    Public Function get_colddokumentid(ByVal dokumentid As String, ByVal fnkt As Integer) As String
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.sp_get_colddokumentid"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Connection = conn_edoka.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@coldpartnernr", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            sdaAdapter.Fill(dtToReturn)
            get_colddokumentid = scmCmdToExecute.Parameters("@colddokumentid").Value
        Catch ex As Exception
            MsgBox("Status Dokumentbearbeitung::" & scmCmdToExecute.CommandText + "::" + ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            dtToReturn.Dispose()
        End Try
    End Function
    Public Function get_dokumnet_from_db(ByVal Dokumentid As String, ByVal dokumentname As String) As String
        Dim connection As New SqlConnection()
        Dim da As New SqlDataAdapter("Select * From doks where dokumentid='" + Dokumentid + "'", connection)
        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()
        Try
            connection.ConnectionString = Globals.sConnectionString_edoka
            connection.Open()
            da.Fill(ds, "docs")
            Dim myRow As DataRow
            myRow = ds.Tables(0).Rows(0)
            Dim MyData() As Byte
            MyData = myRow.Item(1)
            Dim K As Long
            K = UBound(MyData)
            Dim sdokumentname As String = My.Settings.FilePath + dokumentname
            Dim fs As New FileStream(sdokumentname, FileMode.OpenOrCreate, FileAccess.Write)
            fs.Write(MyData, 0, K)
            fs.Close()
            fs = Nothing
        Catch ex As Exception
            Return False
        End Try
        CB = Nothing
        ds = Nothing
        da = Nothing
        connection.Close()
        connection = Nothing
        Return True
    End Function
    Public Function Save_ZipFile(ByVal dossiernr As Integer, Filename As String)
        Dim connection As New SqlConnection()
        Dim da As New SqlDataAdapter("Select top 1 * from Elektr_Dossier_ZIP where Elektr_Dossier_ZIPnr=-1", connection)
        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()
        Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
        Dim mydata(fs.Length) As Byte
        fs.Read(mydata, 0, fs.Length)
        fs.Close()
        Try
            connection.ConnectionString = Globals.sConnectionString_edoka
            connection.Open()
            da.Fill(ds, "docs")
            Dim myRow As DataRow
            If ds.Tables(0).Rows.Count = 0 Then
                myRow = ds.Tables(0).NewRow
                myRow.Item(1) = dossiernr
                myRow.Item(2) = mydata
                myRow.Item(3) = 0
                myRow.Item(4) = Now
                myRow.Item(5) = Now
                myRow.Item(6) = 1
                myRow.Item(7) = 9999
                ds.Tables(0).Rows.Add(myRow)
                da.Update(ds, "docs")
            Else
                myRow = ds.Tables(0).Rows(0)
                myRow.Item(1) = mydata
                da.Update(ds, "profil")
            End If
        Catch ex As Exception
            Return False
        End Try
        CB = Nothing
        ds = Nothing
        da = Nothing
        connection.Close()
        connection = Nothing
        Return True
    End Function
 #Region "Edoka_doc_Retrival"
    Public dsdaten As New DataSet
    Public Function Get_Pendente_Jobs() As Object
        Return Exec_sp_edoka_dok_retrival(11)
    End Function
    Public Function Get_DokumentIDs_from_Job(ByVal Jobnr As String) As Object
        Return Exec_sp_edoka_dok_retrival(12, Jobnr)
    End Function
    Public Function Update_Jobstatus(ByVal Jobnr As String, Status As String)
        Exec_sp_edoka_dok_retrival(4, Jobnr, Status)
    End Function
    Public Function Exec_sp_edoka_dok_retrival(fnkt As Integer, Optional param1 As String = "", Optional param2 As String = "", Optional param3 As String = "", Optional param4 As String = "", Optional param5 As String = "", Optional param6 As String = "", Optional param7 As String = "", Optional param8 As String = "", Optional param9 As String = "") As Object
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim conn As New SqlConnection(Globals.sConnectionString_edoka)
        scmCmdToExecute.CommandText = "dbo.sp_EDOKA_Dok_Retrival"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Connection = conn
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param1))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param2", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param2))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param3", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param3))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param4", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param4))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param5", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param5))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param6", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param6))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param7", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param7))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param8", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param8))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@param9", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, param9))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@Retvalue", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            conn.Open()
            If fnkt < 10 Then
                scmCmdToExecute.ExecuteNonQuery()
                Return scmCmdToExecute.Parameters("@Retvalue").Value.ToString
            Else
                sdaAdapter.Fill(dtToReturn)
                Return dtToReturn
            End If
        Catch ex As Exception
            MsgBox("Insert_job::" & scmCmdToExecute.CommandText + "::" + ex.Message)
            Return ""
        Finally
            conn.Close()
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            'dtToReturn.Dispose()
        End Try
    End Function
    Public Function Save_ZipFile_Edoka_doc_Retrival(ByVal JobNr As Integer, Filename As String)
        Dim connection As New SqlConnection()
        Dim da As New SqlDataAdapter("Select top 1 * from EDOKA_Doc_Retrival_Job where Jobnr=" + JobNr.ToString, connection)
        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New DataSet()
        Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
        Dim mydata(fs.Length) As Byte
        fs.Read(mydata, 0, fs.Length)
        fs.Close()
        Try
            connection.ConnectionString = Globals.sConnectionString_edoka
            connection.Open()
            da.Fill(ds, "docs")
            Dim myRow As DataRow
            If ds.Tables(0).Rows.Count = 0 Then
            Else
                myRow = ds.Tables(0).Rows(0)
                myRow.Item(4) = mydata
                da.Update(ds, "docs")
            End If
        Catch ex As Exception
            Return False
        End Try
        CB = Nothing
        ds = Nothing
        da = Nothing
        connection.Close()
        connection = Nothing
        Return True
    End Function
 #End Region
 End Class
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/db/db_connection.vb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/db/db_connection.vb
@@ -0,0 +1,19 @@
 Imports System.ComponentModel
 Imports Microsoft.VisualBasic
 Namespace edokadb
    Public Class DB_Connection
        Shared Sub New()
            'Edoka
            sConnectionString_edoka = My.Settings.EDOKA_Connection
            Globals.sConnectionString_edoka = sConnectionString_edoka
            'Journale
        End Sub
    End Class
 End Namespace
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/globals.vb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/globals.vb
@@ -0,0 +1,4 @@
 Module Globals
    Public sConnectionString_edoka As String
    Public conn_edoka As New edokadb.clsConnectionProvider()
 End Module
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/.NETFramework,Version=v4.6.AssemblyAttributes.vb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/.NETFramework,Version=v4.6.AssemblyAttributes.vb
@@ -0,0 +1,7 @@
 ' <autogenerated/>
            Option Strict Off
            Option Explicit On
            Imports System
            Imports System.Reflection
            <Assembly: Global.System.Runtime.Versioning.TargetFrameworkAttribute(".NETFramework,Version=v4.6", FrameworkDisplayName:=".NET Framework 4.6")>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.Resources.resources
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.Resources.resources
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.exe
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.exe
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.pdb
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.pdb
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.AssemblyReference.cache
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.AssemblyReference.cache
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.CoreCompileInputs.cache
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.CoreCompileInputs.cache
@@ -0,0 +1 @@
 d1a3d4188cfa3151ff25e5022637869d8ab8f857
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.FileListAbsolute.txt
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.FileListAbsolute.txt
@@ -0,0 +1,11 @@
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\obj\Debug\ImgToFile.vbproj.AssemblyReference.cache
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\obj\Debug\ImgToFile.Resources.resources
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\obj\Debug\ImgToFile.vbproj.GenerateResource.cache
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\obj\Debug\ImgToFile.vbproj.CoreCompileInputs.cache
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\bin\Debug\ImgToFile.exe.config
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\bin\Debug\ImgToFile.exe
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\bin\Debug\ImgToFile.pdb
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\bin\Debug\ImgToFile.xml
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\obj\Debug\ImgToFile.exe
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\obj\Debug\ImgToFile.xml
 E:\Software-Projekte\EDOKA\tools\ImgToBase64ToFile\ImgToFile\ImgToFile\obj\Debug\ImgToFile.pdb
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.GenerateResource.cache
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.GenerateResource.cache
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.xml
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.xml
@@ -0,0 +1,26 @@
 <?xml version="1.0"?>
 <doc>
 <assembly>
 <name>
 ImgToFile
 </name>
 </assembly>
 <members>
 <member name="T:ImgToFile.My.Resources.Resources">
 <summary>
  A strongly-typed resource class, for looking up localized strings, etc.
 </summary>
 </member>
 <member name="P:ImgToFile.My.Resources.Resources.ResourceManager">
 <summary>
  Returns the cached ResourceManager instance used by this class.
 </summary>
 </member>
 <member name="P:ImgToFile.My.Resources.Resources.Culture">
 <summary>
  Overrides the current thread's CurrentUICulture property for all
  resource lookups using this strongly typed resource class.
 </summary>
 </member>
 </members>
 </doc>
--- a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/TempPE/My
+++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/TempPE/My
--- a/OnDemandDDE/.vs/OnDemandDDE/v16/.suo
+++ b/OnDemandDDE/.vs/OnDemandDDE/v16/.suo
--- a/OnDemandDDE/ARSDDE/ARSDDE.csproj
+++ b/OnDemandDDE/ARSDDE/ARSDDE.csproj
@@ -38,6 +38,7 @@
    </Reference>
    <Reference Include="System" />
    <Reference Include="System.Core" />
    <Reference Include="System.Windows.Forms" />
    <Reference Include="System.Xml.Linq" />
    <Reference Include="System.Data.DataSetExtensions" />
    <Reference Include="Microsoft.CSharp" />
--- a/OnDemandDDE/ARSDDE/App.config
+++ b/OnDemandDDE/ARSDDE/App.config
@@ -25,6 +25,18 @@
            <setting name="WaitAfterStart" serializeAs="String">
                <value>1000</value>
            </setting>
            <setting name="LogonTry" serializeAs="String">
                <value>3</value>
            </setting>
            <setting name="DDESleep" serializeAs="String">
                <value>200</value>
            </setting>
            <setting name="UseShellExecute" serializeAs="String">
                <value>false</value>
            </setting>
            <setting name="DDETimeout" serializeAs="String">
                <value>1500</value>
            </setting>
        </ARSDDE.Properties.Settings>
    </userSettings>
 </configuration>
--- a/OnDemandDDE/ARSDDE/Program.cs
+++ b/OnDemandDDE/ARSDDE/Program.cs
@@ -5,6 +5,7 @@ using System.IO;
 using System.Linq;
 using System.Text;
 using System.Threading.Tasks;
 using System.Windows.Forms;
 using Microsoft.VisualBasic;
 using NDde.Client;
@@ -27,11 +28,12 @@ namespace ARSDDE
        static string ARS_AuftragNr;
        static string ARS_Belegart;
        static DdeClient Client;
        static string DebugFilename;
 //        static DdeClient Client = new DdeClient("ARS", "ARS");
        static void Main(string[] args)
        {
-
+            DebugFilename = @"h:\arsdebug_" + DateTime.Now.ToString("yyyyddMMhhmmsshs") + ".txt";
            Debug = Properties.Settings.Default.Debug;
            Debug =Debug.ToLower();
@@ -53,34 +55,53 @@ namespace ARSDDE
                Debug_Print(String.Format("ARS_Belegart: {0}", ARS_Belegart));
            }
-            Debug_Print("Start");
+            try
-            Call_OnDemand("Start");
+            {
-            Client = new DdeClient(Properties.Settings.Default.OnDemandClinetString, Properties.Settings.Default.OnDemandClinetString);
+                Debug_Print("Start");
-            Client.Connect();
+                Call_OnDemand("Start");
                Client = new DdeClient(Properties.Settings.Default.OnDemandClinetString, Properties.Settings.Default.OnDemandClinetString);
                try
                {
                    Client.Connect();
                    if (Client.IsConnected==false)
                    { 
                        MessageBox.Show("Client konnte nicht verbunden werden");
                    }
                }
                catch (NDde.DdeException e)
                {
                    MessageBox.Show(e.Message);
                };
                if (Client == null)
                {
                    MessageBox.Show("Client konnte nicht alloziert werden");
                }
-            Debug_Print("Logon");
+                Call_OnDemand("Logon");
-            Call_OnDemand("Logon");
+                Call_OnDemand("Open_Folder");
-            Debug_Print("Open_Folder");
+                Call_OnDemand("Set_FieldData");
-            Call_OnDemand("Open_Folder");
+                Call_OnDemand("Search_Folder");
-            Debug_Print("Set_FieldData");
+                Call_OnDemand("Show_Doc");
-            Call_OnDemand("Set_FieldData");
+                Call_OnDemand("Logoff");
-            Debug_Print("Search_Folder");
+                if (Debug == "true") { Console.ReadLine(); }
-            Call_OnDemand("Search_Folder");
+            }
-            Debug_Print("Show_Doc");
+            catch (Exception mainex)
-            Call_OnDemand("Show_Doc");
+            {
-            Debug_Print("Logoff");
+                MessageBox.Show("Fehler: " + mainex.Message);
-            Call_OnDemand("Logoff");
+            }
-            if (Debug == "true") { Console.ReadLine(); }
+            }
        }
        static void Debug_Print(string s)
        {
            if (Debug == "true")
            {
-                using (StreamWriter w = File.AppendText(@"h:\arsddedebug.txt"))
+                //string filename;
                using (StreamWriter w = File.AppendText(DebugFilename))
                {
                    w.WriteLine(s);
                    w.Close();
                }
            };
            if (Debug=="true")
@@ -102,89 +123,69 @@ namespace ARSDDE
                    psi.WorkingDirectory = Path.GetDirectoryName(ARS_Application);
                    psi.Arguments= "/1 " + ARS_Language + " /S " + ARS_System + " /U " + ARS_User + " /P " + ARS_Password + " /I /B /V /T EDOKA COLD-Dokumentanzeige " + " /Z /Q /Y /O 1 /X";
                    psi.Arguments = "/1 " + ARS_Language + " /S " + ARS_System + " /I /B /V /T EDOKA COLD-Dokumentanzeige " + " /Z /Q /Y /O 1 /X";
                        Debug_Print(ARS_Application + " /1 " + ARS_Language + " /S " + ARS_System + " /U " + ARS_User + " /P " + ARS_Password + " /I /B /V /T EDOKA COLD-Dokumentanzeige " + " /Z /Q /Y /O 1 /X ");
                    psi.WindowStyle = ProcessWindowStyle.Maximized;
-                    psi.UseShellExecute = true;
+                    psi.UseShellExecute = false;
                    if (Properties.Settings.Default.UseShellExecute.ToLower()== "true")
                    {
                       psi.UseShellExecute = true;
                    }
                    Process.Start(psi);
                        //                    Process.Start(""+ARS_Application+"" + " /1 " + ARS_Language + " /S " + ARS_System + " /U " + ARS_User + " /P " + ARS_Password + " /I /B /V /T EDOKA COLD-Dokumentanzeige " + " /Z /Q /Y /O 1 /X /W N");
                    System.Threading.Thread.Sleep(Convert.ToInt32(Properties.Settings.Default.WaitAfterStart));
                    }
                    break;
                case "Logon":
-                    Debug_Print(String.Format("LOGON /S {0} /U {1} /P {2}", ARS_System,ARS_User, ARS_Password));
+                    int logontry;
-                    //Client.Execute(string.Format("LOGON /S Test_System_NOVA /U {0} /P {1}", ARS_User, ARS_Password), 3000);
+                    logontry = 0;
-                    Client.ExecuteCommand(string.Format("LOGON /S {0} /U {1} /P {2}", ARS_System, ARS_User, ARS_Password));
+                    try
-
+                    {
                        ExecARS(string.Format("LOGON /S {0} /U {1} /P {2}", ARS_System, ARS_User, ARS_Password));
                    }
                    catch (Exception e)
                    {
                        logontry = logontry + 1;
                        if (logontry >= 3) {
                            throw new System.ArgumentException("3 Loginversuche sind fehlgeschlagen.Bitte erneut versuchen.", "LoginFehler");
                        }
                    }
                    System.Threading.Thread.Sleep(Convert.ToInt32(Properties.Settings.Default.DDESleep));
                    break;
                case "Open_Folder":
                    // 20201019 - Erweiterung /S /C /R /D -> Buttons ausblenden
-
+                    ExecARS(string.Format("OPEN_FOLDER /F {0} /S /C /R /D", ARS_Foler));
                    Debug_Print(string.Format("OPEN_FOLDER /F {0} /S /C /R /D", ARS_Foler));
                    //Client.Execute(string.Format("OPEN_FOLDER / F {0})", ARS_Foler), 3000);
                    Client.ExecuteCommand(string.Format("OPEN_FOLDER /F {0} /S /C /R /D", ARS_Foler));
                    break;
                case "Search_Folder":
-                    Debug_Print("SEARCH_FOLDER");
+                    ExecARS("SEARCH_FOLDER");
                    //Client.Execute("SEARCH_FOLDER", 3000);
                    Client.ExecuteCommand("SEARCH_FOLDER");
                    break;
                case "Show_Doc":
-                    Client.ExecuteCommand("OPEN_DOC /N 0");
+                    ExecARS("OPEN_DOC /N 0");
                    //Client.ExecuteCommand("SHOW_WINDOW /W 0,0,75,100");
                    break; 
                case "Set_FieldData":
                    switch (ARS_Foler)
                    {
                        case "TGKB Kundenoutput AGI-OMS für EDOKA User":
-                            Debug_Print("TGKB Kundenoutput AGI-OMS für EDOKA User");
+                            ExecARS(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0}", ARS_DocID),0);
-
+                            ExecARS(string.Format("SET_FIELD_DATA /F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)),0);
-                            Debug_Print(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0}", ARS_DocID));
+                            ExecARS(string.Format("SET_FIELD_DATA /F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)),0);
                            //Client.Execute(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0})", ARS_DocID), 3000);
                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0}", ARS_DocID));
                            Debug_Print(string.Format("SET_FIELD_DATA /F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)));
                            //Client.Execute(string.Format("SET_FIELD_DATA / F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)), 3000);
                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)));
                            break;
                        case "TGKB Kundenoutput ab 01.08.2008":
-                            Debug_Print("TGKB Kundenoutput ab 01.08.2008");
+                            ExecARS(string.Format("SET_FIELD_DATA /F Dokumenten-Id /1 {0}", ARS_DocID),0);
-
+                            ExecARS(string.Format("SET_FIELD_DATA /F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)),0);
                            Debug_Print(string.Format("SET_FIELD_DATA /F Dokumenten-Id /1 {0}", ARS_DocID));
                            //Client.Execute(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0})", ARS_DocID), 3000);
                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Dokumenten-Id /1 {0}", ARS_DocID));
                            Debug_Print(string.Format("SET_FIELD_DATA /F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)));
                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)));
                            break;
                        case "TGKB ZV-Scanning Belege (erweiterte Suche)":
-                            Debug_Print(string.Format("SET_FIELD_DATA /F Dokumenttyp /1 {0}", ARS_Doctype));
+                            ExecARS(string.Format("SET_FIELD_DATA /F Dokumenttyp /1 {0}", ARS_Doctype),0);
-                            //Client.Execute(string.Format("SET_FIELD_DATA /F Dokumenttyp /1 {0})", ARS_Doctype), 3000);
+                            ExecARS(string.Format("SET_FIELD_DATA /F Auftrag-Nr. /1 {0}", ARS_AuftragNr),0);
-                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Dokumenttyp /1 {0}", ARS_Doctype));
+                            ExecARS(string.Format("SET_FIELD_DATA /F Paginator /1 {0}", ARS_DocID),0);
-
+                            ExecARS(string.Format("SET_FIELD_DATA /F Valuta od. Archiv Datum /1 {0} /2 {1}", "",""),0);
                            Debug_Print(string.Format("SET_FIELD_DATA /F Auftrag-Nr. /1 {0}", ARS_AuftragNr));
                            //Client.Execute(string.Format("SET_FIELD_DATA /F Auftrag-Nr. /1 {0})", ARS_AuftragNr), 3000);
                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Auftrag-Nr. /1 {0}", ARS_AuftragNr));
                            Debug_Print(string.Format("SET_FIELD_DATA /F Paginator /1 {0}", ARS_DocID));
                            //Client.Execute(string.Format("SET_FIELD_DATA /F Paginator /1  {0})", ARS_DocID), 3000);
                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Paginator /1 {0}", ARS_DocID));
                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Valuta od. Archiv Datum /1 {0} /2 {1}", "",""));
                            break;
                        default:
-                            Debug_Print(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0}", ARS_DocID));
+                            ExecARS(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0}", ARS_DocID),0);
                            //Client.Execute(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0})", ARS_DocID), 3000);
                            Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0}", ARS_DocID));
                            break;
                    }
                    break;
                case "Logoff":
                    //ExecARS("Logoff");
                    //Client.Execute("LOGOFF",3000);
                    //Client.ExecuteCommand("LOGOFF");
                    break;
@@ -193,6 +194,19 @@ namespace ARSDDE
            }
        }
        static void ExecARS(string Params, int DoTimeout=1)
        {
            Debug_Print(Params);
            Client.ExecuteCommand(Params);
            //int i;
            //i=Client.TryExecute(Params, Convert.ToInt32(Properties.Settings.Default.DDETimeout));
            //MessageBox.Show(Convert.ToString(i));
            if (DoTimeout==1)
            { 
            System.Threading.Thread.Sleep(Convert.ToInt32(Properties.Settings.Default.DDESleep));
            }
        }
        static string FormatDate(string datum)
        {
            string dd;
--- a/OnDemandDDE/ARSDDE/Properties/Settings.Designer.cs
+++ b/OnDemandDDE/ARSDDE/Properties/Settings.Designer.cs
@@ -12,7 +12,7 @@ namespace ARSDDE.Properties {
    [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()]
-    [global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.6.0.0")]
+    [global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "16.6.0.0")]
    internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase {
        private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings())));
@@ -82,5 +82,53 @@ namespace ARSDDE.Properties {
                this["WaitAfterStart"] = value;
            }
        }
        [global::System.Configuration.UserScopedSettingAttribute()]
        [global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
        [global::System.Configuration.DefaultSettingValueAttribute("3")]
        public string LogonTry {
            get {
                return ((string)(this["LogonTry"]));
            }
            set {
                this["LogonTry"] = value;
            }
        }
        [global::System.Configuration.UserScopedSettingAttribute()]
        [global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
        [global::System.Configuration.DefaultSettingValueAttribute("200")]
        public string DDESleep {
            get {
                return ((string)(this["DDESleep"]));
            }
            set {
                this["DDESleep"] = value;
            }
        }
        [global::System.Configuration.UserScopedSettingAttribute()]
        [global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
        [global::System.Configuration.DefaultSettingValueAttribute("false")]
        public string UseShellExecute {
            get {
                return ((string)(this["UseShellExecute"]));
            }
            set {
                this["UseShellExecute"] = value;
            }
        }
        [global::System.Configuration.UserScopedSettingAttribute()]
        [global::System.Diagnostics.DebuggerNonUserCodeAttribute()]
        [global::System.Configuration.DefaultSettingValueAttribute("1500")]
        public string DDETimeout {
            get {
                return ((string)(this["DDETimeout"]));
            }
            set {
                this["DDETimeout"] = value;
            }
        }
    }
 }
--- a/OnDemandDDE/ARSDDE/Properties/Settings.settings
+++ b/OnDemandDDE/ARSDDE/Properties/Settings.settings
@@ -17,5 +17,17 @@
    <Setting Name="WaitAfterStart" Type="System.String" Scope="User">
      <Value Profile="(Default)">1000</Value>
    </Setting>
    <Setting Name="LogonTry" Type="System.String" Scope="User">
      <Value Profile="(Default)">3</Value>
    </Setting>
    <Setting Name="DDESleep" Type="System.String" Scope="User">
      <Value Profile="(Default)">200</Value>
    </Setting>
    <Setting Name="UseShellExecute" Type="System.String" Scope="User">
      <Value Profile="(Default)">false</Value>
    </Setting>
    <Setting Name="DDETimeout" Type="System.String" Scope="User">
      <Value Profile="(Default)">1500</Value>
    </Setting>
  </Settings>
 </SettingsFile>
--- a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe
+++ b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe
--- a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe.config
+++ b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe.config
@@ -25,6 +25,18 @@
            <setting name="WaitAfterStart" serializeAs="String">
                <value>1000</value>
            </setting>
            <setting name="LogonTry" serializeAs="String">
                <value>3</value>
            </setting>
            <setting name="DDESleep" serializeAs="String">
                <value>200</value>
            </setting>
            <setting name="UseShellExecute" serializeAs="String">
                <value>false</value>
            </setting>
            <setting name="DDETimeout" serializeAs="String">
                <value>1500</value>
            </setting>
        </ARSDDE.Properties.Settings>
    </userSettings>
 </configuration>
--- a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.pdb
+++ b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.pdb
--- a/OnDemandDDE/ARSDDE/bin/Debug/arsdde.zip
+++ b/OnDemandDDE/ARSDDE/bin/Debug/arsdde.zip
--- a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.CoreCompileInputs.cache
+++ b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.CoreCompileInputs.cache
@@ -1 +1 @@
-44b08d7bf43be774c311a044a1c686ff613aa9da
+04e3427731c69fd65ebee69d452207c09cd73b17
--- a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.FileListAbsolute.txt
+++ b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.FileListAbsolute.txt
@@ -7,3 +7,12 @@ E:\Software-Projekte\_Demos\DDE\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.csproj.CopyC
 E:\Software-Projekte\_Demos\DDE\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.exe
 E:\Software-Projekte\_Demos\DDE\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.pdb
 E:\Software-Projekte\_Demos\DDE\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.csprojAssemblyReference.cache
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.csproj.CoreCompileInputs.cache
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.exe
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.pdb
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\bin\Debug\ARSDDE.exe.config
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\bin\Debug\ARSDDE.exe
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\bin\Debug\ARSDDE.pdb
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\bin\Debug\NDde.dll
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.csproj.CopyComplete
 E:\Software-Projekte\EDOKA\tools\OnDemandDDE\ARSDDE\obj\Debug\ARSDDE.csprojAssemblyReference.cache
--- a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csprojAssemblyReference.cache
+++ b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csprojAssemblyReference.cache
--- a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.exe
+++ b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.exe
--- a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.pdb
+++ b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.pdb
--- a/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache
+++ b/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache
--- a/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
+++ b/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
--- a/OnDemandDDE/OnDemandDDE/obj/Debug/OnDemandDDE.csprojAssemblyReference.cache
+++ b/OnDemandDDE/OnDemandDDE/obj/Debug/OnDemandDDE.csprojAssemblyReference.cache
--- a/WordTest/.vs/WordTest/v16/.suo
+++ b/WordTest/.vs/WordTest/v16/.suo
`@@ -1 +1 @@`
	`44b08d7bf43be774c311a044a1c686ff613aa9da`	`04e3427731c69fd65ebee69d452207c09cd73b17`