diff --git a/AGB_Gen/.vs/AGB_Gen/v16/.suo b/AGB_Gen/.vs/AGB_Gen/v16/.suo index 19abad7..31c900d 100644 Binary files a/AGB_Gen/.vs/AGB_Gen/v16/.suo and b/AGB_Gen/.vs/AGB_Gen/v16/.suo differ diff --git 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 new file mode 100644 index 0000000..6ffebde --- /dev/null +++ b/AGB_Gen/AGB_Gen/obj/Debug/.NETFramework,Version=v4.5.AssemblyAttributes.vb @@ -0,0 +1,7 @@ +' + Option Strict Off + Option Explicit On + + Imports System + Imports System.Reflection + diff --git a/AGB_Gen/AGB_Gen/obj/Debug/AGB_Gen.vbproj.AssemblyReference.cache b/AGB_Gen/AGB_Gen/obj/Debug/AGB_Gen.vbproj.AssemblyReference.cache new file mode 100644 index 0000000..43a4909 Binary files /dev/null and b/AGB_Gen/AGB_Gen/obj/Debug/AGB_Gen.vbproj.AssemblyReference.cache differ diff --git a/AGB_Gen/AGB_Gen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/AGB_Gen/AGB_Gen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index 7e301e6..195f73b 100644 Binary files a/AGB_Gen/AGB_Gen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/AGB_Gen/AGB_Gen/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/ARSDDE/ARSDDE/.vs/ARSDDE/v16/.suo b/ARSDDE/ARSDDE/.vs/ARSDDE/v16/.suo new file mode 100644 index 0000000..4894db3 Binary files /dev/null and b/ARSDDE/ARSDDE/.vs/ARSDDE/v16/.suo differ diff --git a/ARSDDE/ARSDDE/ARSDDE/obj/Debug/ARSDDE.vbprojAssemblyReference.cache b/ARSDDE/ARSDDE/ARSDDE/obj/Debug/ARSDDE.vbprojAssemblyReference.cache new file mode 100644 index 0000000..7ba1ac2 Binary files /dev/null and b/ARSDDE/ARSDDE/ARSDDE/obj/Debug/ARSDDE.vbprojAssemblyReference.cache differ diff --git a/ARSDDE/ARSDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/ARSDDE/ARSDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache index e6f6d6d..279de16 100644 Binary files a/ARSDDE/ARSDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/ARSDDE/ARSDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/BCK_Massenimport/.vs/BCK_Massenimport/v16/.suo b/BCK_Massenimport/.vs/BCK_Massenimport/v16/.suo index 86e0279..abde802 100644 Binary files a/BCK_Massenimport/.vs/BCK_Massenimport/v16/.suo and b/BCK_Massenimport/.vs/BCK_Massenimport/v16/.suo differ diff --git a/BCK_Massenimport/BCK_Massenimport/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/BCK_Massenimport/BCK_Massenimport/obj/Debug/DesignTimeResolveAssemblyReferences.cache index dfe658d..2a42ea9 100644 Binary files a/BCK_Massenimport/BCK_Massenimport/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/BCK_Massenimport/BCK_Massenimport/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/BL_Aushaendigungen/.vs/DokSA/v16/.suo b/BL_Aushaendigungen/.vs/DokSA/v16/.suo index 1579196..04ccd60 100644 Binary files a/BL_Aushaendigungen/.vs/DokSA/v16/.suo and b/BL_Aushaendigungen/.vs/DokSA/v16/.suo differ diff --git a/BL_Aushaendigungen/DokSA/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/BL_Aushaendigungen/DokSA/obj/Debug/DesignTimeResolveAssemblyReferences.cache index f01efee..5429aad 100644 Binary files a/BL_Aushaendigungen/DokSA/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/BL_Aushaendigungen/DokSA/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/BinData/.vs/BinData/v16/.suo b/BinData/.vs/BinData/v16/.suo index dfbef4a..6cf4267 100644 Binary files a/BinData/.vs/BinData/v16/.suo and b/BinData/.vs/BinData/v16/.suo differ diff --git a/BinData/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/BinData/obj/Debug/DesignTimeResolveAssemblyReferences.cache index 279de16..5a77c50 100644 Binary files a/BinData/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/BinData/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/BinData_Single/.vs/BinData/v16/.suo b/BinData_Single/.vs/BinData/v16/.suo new file mode 100644 index 0000000..f26fc58 Binary files /dev/null and b/BinData_Single/.vs/BinData/v16/.suo differ diff --git a/BinData_Single/obj/Debug/BinData.vbprojAssemblyReference.cache b/BinData_Single/obj/Debug/BinData.vbprojAssemblyReference.cache new file mode 100644 index 0000000..d8f1800 Binary files /dev/null and b/BinData_Single/obj/Debug/BinData.vbprojAssemblyReference.cache differ diff --git a/EDKTester/EDKTester/bin/Debug/tmpedk.edk b/EDKTester/EDKTester/bin/Debug/tmpedk.edk deleted file mode 100644 index bc604d6..0000000 --- a/EDKTester/EDKTester/bin/Debug/tmpedk.edk +++ /dev/null @@ -1,625 +0,0 @@ - - 3 - TATG11 - Stefan Hutter lokal - 1000208 - 1435213046 - 900000870 - 1 - 0 - - - Erstellungs_Datum - 30.08.2016 - - - K�rzel - TGU2153 - - - BP_Nr. - 29547850 - - - Name - Vasanthan, Shahana - - - Strasse - Erchingerstrasse 33b - - - PLZ / Ort - 8500 Frauenfeld - - - Kundensegment - Privatkunden - Teambetreut - - - Branche/Geb - Geburtsdatum - - - Branche/Geb Wert - 29.07.1998 - - - Bankbeziehung - - - Kreditstrategie - - - Order-Nr. - 1435213046 - - - Status - Erstellt - - - Auftragsart - - - Ampel_Kreditgesch - pendent - - - Kompetenzstufe - - - Review-Datum - 31.08.2016 - - - Kundenberater - Beraterteam Frauenfeld 4 - - - Niederlassung - GS Frauenfeld - - - Finanzierungszweck - Neugesch�ft - - - GRDST_Selbst_Anz - 1 - - - GRDST_Bauland_Anz - 0 - - - GRDST_Rendite_Anz - 0 - - - Kontrollfragen_vorh - 1 - - - Firma - - - DA_1_1 - 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$$$$ - - - - DA_2_2 - U$Unverpf�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$$$$$$ - - - - DA_3_3 - U$Grundst�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$$$$$$$$$$$ - - - - DA_nach_Objektart - T$ENGAGEMENT$500$100.0%$$$$$500$100.0%$ -O$EFH/Reihen-EFH$500$100.0%$$$$$500$100.0%$ - - - - Exception to Policy - A1$Hypothekarlimite CHF 500'000 -E1$Keine ETP vorhanden - - - - Finanzierung_1 - 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�sungssumme 0 Erbvorbezug 0 -F1$Renovation 0 Schenkung 0 -F1$Ausbau 0 Landwert 0 -F1$Erh�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�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�t Rating </= 7 Gr�n Ampel 1: Berater -Y1$ Eigenleistung Eigenleistung </= 5 % der Gestehungs-/Anl... Gr�n Ampel 1: Berater -Y1$ Stehbetraege Stehbetrag </= 10 % der Gestehungs-/Anlag... Gr�n Ampel 1: Berater -Y1$ Wohnrecht Kein Grundst�ck mit Wohnrecht vorhanden Gr�n Ampel 1: Berater -Y1$ Nutzniessung Kein Grundst�ck mit Nutzniessung vorhanden Gr�n Ampel 1: Berater -Y1$ Betreiberliegenschaft Kein als Betreiberliegenschaft markiertes... Gr�n Ampel 1: Berater -Y1$ Baurecht Kein Grundst�ck im Baurecht vorhanden Gr�n Ampel 1: Berater -Y1$ Niederstwertprinzip eingehalten Niederstwertprinzip bei allen Grundst�cke... Gr�n Ampel 1: Berater -Y1$ Vorzugspreis (Kaufpreis) Kein Grundst�ck mit Vorzugspreis vorhanden Gr�n Ampel 1: Berater -Y1$ Belehnung 1 Schlechtester Ampelwert aller zugewiesene... Gr�n Ampel 1: Berater -Y1$ Belehnung 2 Schlechtester Ampelwert aller zugewiesene... Gr�n Ampel 1: Berater -Y1$ Belehnung 3 Schlechtester Ampelwert aller zugewiesene... Gr�n Ampel 1: Berater -Y1$ Belehnung 4 Schlechtester Ampelwert aller zugewiesene... Gr�n Ampel 1: Berater -Y1$ Kalkulatorisch Kosten/Einkommensrelation (KER): </= 30 % Gr�n Ampel 1: Berater -Y1$ Effektiv Kosten/Einkommensrelation (KER): </= 30 % Gr�n Ampel 1: Berater -Y1$ Amortisation Keine ETP vorhanden Gr�n Ampel 1: Berater -Y1$ Echte Eigenmittel Keine ETP vorhanden Gr�n Ampel 1: Berater -Y1$ Kreditpolitik Keine ETP vorhanden Gr�n Ampel 1: Berater -Y1$ Grundst�ck: B�ro / Verwaltung Kein B�ro- und Verwaltungsgeb�ude bzw. ke... Gr�n Ampel 1: Berater -Y1$ Grundst�ck: Gewerbe > 50 % Kein Gewerbe > 50 % bzw. keine diesbez�gl... Gr�n Ampel 1: Berater -Y1$ Grundst�ck: Spezialobjekt Kein Spezialobjekt bzw. keine diesbez�gli... Gr�n Ampel 1: Berater -Y1$ Grundst�ck: Industrie Kein Industrieobjekt bzw. keine diesbez�g... Gr�n Ampel 1: Berater -Y1$ Grundst�ck: Promotion Kein Promotions-Grundst�ck bzw. keine die... Gr�n Ampel 1: Berater -Y1$ Wertberichtigungen Keine Wertberichtigungen vorhanden Gr�n Ampel 1: Berater -Y1$ Zinsr�ckstellungen Keine Zinsr�ckstellungen vorhanden Gr�n Ampel 1: Berater -Y1$ 2. S�ule Schlechtester Ampelwert aller zugewiesene... Gr�n Ampel 1: Berater -B1$ -O1$Gesamt-Beurteilung -A2$ -Z1$Gesamtbeurteilung der Finanzierung Gr�n Ampel 1: Berater - - - - Grundstueck_1 - A1$ GRUNDST�CK: Grundst�ck (5013) -B1$ -C1$GRUNDDATEN -D1$ -E1$Adresse: Musterstrasse 28, 8500 Frauenfeld, Thurgau, Schweiz -E1$Eigent�mer: Vasanthan, Shahana -E1$Eigentumsform: Alleineigentum -E1$Liegenschaftstyp: EFH/Reihen-EFH -E1$Bauzone: -E1$Baujahr: 2016 -E1$Grundst�cksfl�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�tzer Vorzugspreis -D1$ -J1$Massgebender Wert (Belehnungsbasis) -D1$ -K1$Verkehrswert WuP 30.08.2016 1'000'000 -B1$ -J1$�brige Werte -K1$Kaufpreis (Datum Hand�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 - - - - Kundenstammblatt_1 - 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�HERE) -D1$ -J1$Verpflichtungsart Schuldbetrag Zinssatz Amo. p.a. Aufw. p.a. F�lligkeit Gl�ubiger -K1$Keine bekannten Verpflichtungen bei Dritten -B1$ -C1$VERM�GEN BEI DRITTEN -D1$ -L1$Produkt WRG Betrag Zinssatz Ertrag F�lligkeit Institut -K1$Kein bekanntes Verm�gen bei Dritten -B1$ -C1$VORBEZ�GE 2./3. S�ULE (FR�HERE) -D1$ -N1$Datum Betrag Quelle Zweck Bemerkungen -O1$Keine Vorbez�ge get�tigt -B1$ -C1$BETREIBUNGEN -D1$ -P1$Jahr Anzahl Totalbetrag Bemerkungen -Q1$Keine Betreibungen vorhanden -B1$ -C1$ZEK / IKO AUSK�NFTE -D1$ -R1$Info eingeholt Eintr�ge vorhanden Unregelm�ssigkeiten Datum Bemerkungen -S1$Keine Auskunft eingeholt -T1$ - - - - Kontrollfragen - A1$HYPOTHEKARFINANZIERUNG -B1$ -C1$Liegenschaftensch�tzung vorhanden und gem�ss Weisung korrekt? Ja -C1$Fr�here Vorbez�ge 2./3. S�ule abgekl�rt und erfasst? Ja -C1$Nachweis Eigenmittel vorhanden? Ja -C1$Steuererkl�rung / Status vorhanden? Ja -C1$Betreibungsauskunft gem�ss Weisung eingeholt? Ja -C1$Grundbuchauszug eingeholt und gepr�ft? Ja -C1$Einkommensnachweis vorhanden? Ja -C1$Tragbarkeit bei Pensionierung gem�ss Weisung gepr�ft? Ja -C1$ETP Kreditpolitik gepr�ft? Ja -C1$Mindestanteil echter Eigenmittel von 10% gem�ss Mindestanforderung SBVg eingehalten? Ja -C1$Renditeobjekt: Mieterspiegel bzw. Mietzins-Nachweis gem�ss Weisung vorhanden? Ja -D1$ -A1$PHYSISCHE BEILAGEN -B1$ -C1$Physische Beilagen zum Auftrag f�r Verarbeitung? Nein -D1$ -A1$BEMERKUNGEN / BEGR�NDUNGEN -B1$ -E1$Keine Bemerkungen vorhanden - - - - Beilagen - A1$UNTERLAGEN ZUM KREDITNEHMER -B1$ -C1$1 Einkommensnachweis -C1$1 Steuererkl�rung / Status -C1$1 Betreibungsauskunft -C1$1 Freitext -D1$ -A1$UNTERLAGEN GRUNDPFANDOBJEKT -B1$ -C1$1 Liegenschaften Sch�tzung -C1$1 Grundbuchauszug -C1$1 Kaufvertrag/-Entwurf -C1$1 Geb�udeversicherungspolice -C1$1 Verkaufsdokumentation - - - - Limite alt - 0 - - - Limite neu - 500'000 - - - Limiten-Ver�nderung - 500'000 - - - Risikokategorie 1 - 500'000 - - - Risikokategorie 2 - 0 - - - Risikokategorie 3 - 0 - - - GE_EWB - 0 - - - GE_Zinsrueckst - 0 - - - DA_Datum - 30.08.2016 - - - Saldo per - 0 - - - DA_Datum - 30.08.2016 - - - Amo-Ausstand per - 0 - - - DA_Datum - 30.08.2016 - - - Zinsausstand per - 0 - - - DA_Datum - 30.08.2016 - - - Total Engagement - 0 - - - Limite alt WE - 0 - - - Limite neu WE - 500'000 - - - Limiten-Ver�nderung WE - 500'000 - - - Risikokategorie 1 WE - 500'000 - - - Risikokategorie 2 WE - 0 - - - Risikokategorie 3 WE - 0 - - - GE_WE_EWB - 0 - - - GE_WE_Zinsrueckst - 0 - - - DA_Datum - 30.08.2016 - - - Saldo per WE - 0 - - - DA_Datum - 30.08.2016 - - - Amo-Ausstand per WE - 0 - - - DA_Datum - 30.08.2016 - - - Zinsausstand per WE - 0 - - - DA_Datum - 30.08.2016 - - - Total Engagement WE - 0 - - - Rel_Gesamteng - 500'000 - - - Rel_Blankoeng - 0 - - - Rel_Lombardeng - 0 - - - Rel_AusserkBlankoeng - 0 - - - Rel_Gesamteng_Komp - 3'000'000 - - - Rel_Blankoeng_Komp - 20'000 - - - Rel_Lombardeng_Komp - 750'000 - - - Rel_AKBlankoeng_Komp - 20'000 - - - Trag_Selbst_Eink - 250'000 - - - Trag_Selbst_Aufw - 32'000 - - - Trag_Selbst - 13 - - - Antragsbegruendung - Antrag Kauf bestehendes Objekt - - - Trag_Selbst_Aufw_Kalk - 25'000 -0 -0 -7'000 -0 -0 -0 - - - - Trag_Selbst_Aufw_Eff - 0 -0 -0 -7'000 -0 -0 -0 - - - - Trag_Selbst_AufwTotal_Kalk - 32'000 - - - Trag_Selbst_AufwTotal_Eff - 7'000 - - - Trag_Selbst_Eink_Kalk - 250'000 -0 -0 -0 - - - - Trag_Selbst_Eink_Eff - 250'000 -0 -0 -0 - - - - Trag_Selbst_EinkTotal_Kalk - 250'000 - - - Trag_Selbst_EinkTotal_Eff - 250'000 - - - Trag_Selbst_Kalk - 13 - - - Trag_Selbst_Eff - 3 - - - Bewilligungshistory - 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 - - - diff --git a/EDOKA_Toolset/.vs/EDOKA_Toolset/v16/.suo b/EDOKA_Toolset/.vs/EDOKA_Toolset/v16/.suo index a5f23a1..93d181b 100644 Binary files a/EDOKA_Toolset/.vs/EDOKA_Toolset/v16/.suo and b/EDOKA_Toolset/.vs/EDOKA_Toolset/v16/.suo differ diff --git a/EDOKA_Toolset/Plugin_EMailUpdate/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/EDOKA_Toolset/Plugin_EMailUpdate/obj/Debug/DesignTimeResolveAssemblyReferences.cache index a0e390c..5655313 100644 Binary files a/EDOKA_Toolset/Plugin_EMailUpdate/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/EDOKA_Toolset/Plugin_EMailUpdate/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/EDOKA_Toolset/Plugin_ScanToEDOKA/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/EDOKA_Toolset/Plugin_ScanToEDOKA/obj/Debug/DesignTimeResolveAssemblyReferences.cache index e56e065..f47aa88 100644 Binary files a/EDOKA_Toolset/Plugin_ScanToEDOKA/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/EDOKA_Toolset/Plugin_ScanToEDOKA/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/ImgToBase64ToFile/ImgToFile/.vs/ImgToFile/v16/.suo b/ImgToBase64ToFile/ImgToFile/.vs/ImgToFile/v16/.suo new file mode 100644 index 0000000..e6d7cd5 Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/.vs/ImgToFile/v16/.suo differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile.sln b/ImgToBase64ToFile/ImgToFile/ImgToFile.sln new file mode 100644 index 0000000..cd5d307 --- /dev/null +++ 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 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/App.config b/ImgToBase64ToFile/ImgToFile/ImgToFile/App.config new file mode 100644 index 0000000..38dd831 --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/App.config @@ -0,0 +1,21 @@ + + + + +
+ + + + + + + + + Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29 + + + k:\edoka\imgtofile\ + + + + \ No newline at end of file diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/ImgToFile.vbproj b/ImgToBase64ToFile/ImgToFile/ImgToFile/ImgToFile.vbproj new file mode 100644 index 0000000..5ee8061 --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/ImgToFile.vbproj @@ -0,0 +1,115 @@ + + + + + Debug + AnyCPU + {26B7CBBD-9C07-47F9-A65A-23A89FD0331E} + Exe + ImgToFile.Module1 + ImgToFile + ImgToFile + 512 + Console + v4.6 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + ImgToFile.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + ImgToFile.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + \ No newline at end of file diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/Module1.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/Module1.vb new file mode 100644 index 0000000..36e72c0 --- /dev/null +++ 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 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Application.Designer.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Application.Designer.vb new file mode 100644 index 0000000..88dd01c --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Application.myapp b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Application.myapp new file mode 100644 index 0000000..e62f1a5 --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 2 + true + diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/AssemblyInfo.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..ddb464c --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + + +'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' 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: +' + + + diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Resources.Designer.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Resources.Designer.vb new file mode 100644 index 0000000..24572f9 --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + 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 + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + 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 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Resources.resx b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Settings.Designer.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Settings.Designer.vb new file mode 100644 index 0000000..2f0aa6a --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Settings.Designer.vb @@ -0,0 +1,98 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Automatische My.Settings-Speicherfunktion" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + 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 + + _ + Public Property EDOKA_Connection() As String + Get + Return CType(Me("EDOKA_Connection"),String) + End Get + Set + Me("EDOKA_Connection") = value + End Set + End Property + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.ImgToFile.My.MySettings + Get + Return Global.ImgToFile.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Settings.settings b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Settings.settings new file mode 100644 index 0000000..22342b1 --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/My Project/Settings.settings @@ -0,0 +1,12 @@ + + + + + + Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29 + + + k:\edoka\imgtofile\ + + + \ No newline at end of file diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/DokToFile.zip b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/DokToFile.zip new file mode 100644 index 0000000..7b35b28 Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/DokToFile.zip differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe new file mode 100644 index 0000000..8b146d1 Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe.config b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe.config new file mode 100644 index 0000000..38dd831 --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.exe.config @@ -0,0 +1,21 @@ + + + + +
+ + + + + + + + + Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29 + + + k:\edoka\imgtofile\ + + + + \ No newline at end of file diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.pdb b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.pdb new file mode 100644 index 0000000..7149655 Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.pdb differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.xml b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.xml new file mode 100644 index 0000000..a4ff2d4 --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/bin/Debug/ImgToFile.xml @@ -0,0 +1,26 @@ + + + + +ImgToFile + + + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + + Returns the cached ResourceManager instance used by this class. + + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsConnectionProvider.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsConnectionProvider.vb new file mode 100644 index 0000000..119a507 --- /dev/null +++ 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 + ' /// + ' /// 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. + ' /// + 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 + + + ' /// + ' /// Purpose: Implements the IDispose' method Dispose. + ' /// + Overloads Public Sub Dispose() Implements IDisposable.Dispose + Dispose(True) + GC.SuppressFinalize(Me) + End Sub + + + ' /// + ' /// Purpose: Implements the Dispose functionality. + ' /// + 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 + + + ' /// + ' /// Purpose: Initializes class members. + ' /// + 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 + + + ' /// + ' /// Purpose: Opens the connection object. + ' /// + ' /// True, if succeeded, otherwise an Exception exception is thrown. + 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 + + + ' /// + ' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class. + ' /// + ' /// Name of the transaction to start + ' /// True, if transaction is started correctly, otherwise an Exception exception is thrown + 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 + + + ' /// + ' /// Purpose: Commits a pending transaction on the open connection object of this class. + ' /// + ' /// True, if commit was succesful, or an Exception exception is thrown + 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 + + + ' /// + ' /// 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(). + ' /// + ' /// Name of transaction to roll back. Can be name of savepoint + ' /// True, if rollback was succesful, or an Exception exception is thrown + 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 + + + ' /// + ' /// 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. + ' /// + ' /// Name of the savepoint to store the current transaction under. + ' /// True, if save was succesful, or an Exception exception is thrown + 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 + + + ' /// + ' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending + ' /// transaction is commited, or aborted. + ' /// + ' /// 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. + ' /// True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when + ' /// an error occurs + 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 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsDBInteractionBase.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsDBInteractionBase.vb new file mode 100644 index 0000000..f8cbd4c --- /dev/null +++ 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 + ' /// + ' /// Purpose: Error Enums used by this LLBL library. + ' /// + Public Enum LLBLError + AllOk + ' // Add more here (check the comma's!) + End Enum + + + ' /// + ' /// Purpose: General interface of the API generated. Contains only common methods of all classes. + ' /// + 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 + + + ' /// + ' /// Purpose: Abstract base class for Database Interaction classes. + ' /// + 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 + + + ' /// + ' /// Purpose: Class constructor. + ' /// + Public Sub New() + ' // Initialize the class' members. + InitClass() + End Sub + + + ' /// + ' /// Purpose: Initializes class members. + ' /// + 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 + + + ' /// + ' /// Purpose: Implements the IDispose' method Dispose. + ' /// + Overloads Public Sub Dispose() Implements IDisposable.Dispose + Dispose(True) + GC.SuppressFinalize(Me) + End Sub + + + ' /// + ' /// Purpose: Implements the Dispose functionality. + ' /// + 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 + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.Insert() method. + ' /// + Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert + ' // No implementation, throw exception + Throw New NotImplementedException() + End Function + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.Delete() method. + ' /// + Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete + ' // No implementation, throw exception + Throw New NotImplementedException() + End Function + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.Update() method. + ' /// + Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update + ' // No implementation, throw exception + Throw New NotImplementedException() + End Function + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.SelectOne() method. + ' /// + Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne + ' // No implementation, throw exception + Throw New NotImplementedException() + End Function + + + ' /// + ' /// Purpose: Implements the ICommonDBAccess.SelectAll() method. + ' /// + 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 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsdbzugriff.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/db/clsdbzugriff.vb new file mode 100644 index 0000000..5a6ec4f --- /dev/null +++ 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 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/db/db_connection.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/db/db_connection.vb new file mode 100644 index 0000000..217976d --- /dev/null +++ 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 + + diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/globals.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/globals.vb new file mode 100644 index 0000000..2b3e2d3 --- /dev/null +++ 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 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/.NETFramework,Version=v4.6.AssemblyAttributes.vb b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/.NETFramework,Version=v4.6.AssemblyAttributes.vb new file mode 100644 index 0000000..498dcdd --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/.NETFramework,Version=v4.6.AssemblyAttributes.vb @@ -0,0 +1,7 @@ +' + Option Strict Off + Option Explicit On + + Imports System + Imports System.Reflection + diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferences.cache new file mode 100644 index 0000000..52faef1 Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..ec5507b Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.Resources.resources b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.Resources.resources new file mode 100644 index 0000000..6c05a97 Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.Resources.resources differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.exe b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.exe new file mode 100644 index 0000000..8b146d1 Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.exe differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.pdb b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.pdb new file mode 100644 index 0000000..7149655 Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.pdb differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.AssemblyReference.cache b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.AssemblyReference.cache new file mode 100644 index 0000000..f5e894a Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.AssemblyReference.cache differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.CoreCompileInputs.cache b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.CoreCompileInputs.cache new file mode 100644 index 0000000..ee72cde --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.CoreCompileInputs.cache @@ -0,0 +1 @@ +d1a3d4188cfa3151ff25e5022637869d8ab8f857 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.FileListAbsolute.txt b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..95da89b --- /dev/null +++ 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 diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.GenerateResource.cache b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.GenerateResource.cache new file mode 100644 index 0000000..8415c7a Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.vbproj.GenerateResource.cache differ diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.xml b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.xml new file mode 100644 index 0000000..a4ff2d4 --- /dev/null +++ b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/ImgToFile.xml @@ -0,0 +1,26 @@ + + + + +ImgToFile + + + + + + A strongly-typed resource class, for looking up localized strings, etc. + + + + + Returns the cached ResourceManager instance used by this class. + + + + + Overrides the current thread's CurrentUICulture property for all + resource lookups using this strongly typed resource class. + + + + diff --git a/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..c54b95d Binary files /dev/null and b/ImgToBase64ToFile/ImgToFile/ImgToFile/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/OnDemandDDE/.vs/OnDemandDDE/v16/.suo b/OnDemandDDE/.vs/OnDemandDDE/v16/.suo index f890c15..fd71548 100644 Binary files a/OnDemandDDE/.vs/OnDemandDDE/v16/.suo and b/OnDemandDDE/.vs/OnDemandDDE/v16/.suo differ diff --git a/OnDemandDDE/ARSDDE/ARSDDE.csproj b/OnDemandDDE/ARSDDE/ARSDDE.csproj index 56af777..6862adf 100644 --- a/OnDemandDDE/ARSDDE/ARSDDE.csproj +++ b/OnDemandDDE/ARSDDE/ARSDDE.csproj @@ -38,6 +38,7 @@ + diff --git a/OnDemandDDE/ARSDDE/App.config b/OnDemandDDE/ARSDDE/App.config index 27e399b..56d297f 100644 --- a/OnDemandDDE/ARSDDE/App.config +++ b/OnDemandDDE/ARSDDE/App.config @@ -25,6 +25,18 @@ 1000 + + 3 + + + 200 + + + false + + + 1500 + \ No newline at end of file diff --git a/OnDemandDDE/ARSDDE/Program.cs b/OnDemandDDE/ARSDDE/Program.cs index 04141fa..9ee06c4 100644 --- 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"); - Call_OnDemand("Start"); - Client = new DdeClient(Properties.Settings.Default.OnDemandClinetString, Properties.Settings.Default.OnDemandClinetString); - Client.Connect(); + try + { + Debug_Print("Start"); + 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"); - Debug_Print("Open_Folder"); - Call_OnDemand("Open_Folder"); - Debug_Print("Set_FieldData"); - Call_OnDemand("Set_FieldData"); - Debug_Print("Search_Folder"); - Call_OnDemand("Search_Folder"); - Debug_Print("Show_Doc"); - Call_OnDemand("Show_Doc"); - Debug_Print("Logoff"); - Call_OnDemand("Logoff"); - if (Debug == "true") { Console.ReadLine(); } - } + Call_OnDemand("Logon"); + Call_OnDemand("Open_Folder"); + Call_OnDemand("Set_FieldData"); + Call_OnDemand("Search_Folder"); + Call_OnDemand("Show_Doc"); + Call_OnDemand("Logoff"); + if (Debug == "true") { Console.ReadLine(); } + } + catch (Exception mainex) + { + MessageBox.Show("Fehler: " + mainex.Message); + } + } 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)); - //Client.Execute(string.Format("LOGON /S Test_System_NOVA /U {0} /P {1}", ARS_User, ARS_Password), 3000); - Client.ExecuteCommand(string.Format("LOGON /S {0} /U {1} /P {2}", ARS_System, ARS_User, ARS_Password)); - + int logontry; + logontry = 0; + 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 - - 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)); + ExecARS(string.Format("OPEN_FOLDER /F {0} /S /C /R /D", ARS_Foler)); break; case "Search_Folder": - Debug_Print("SEARCH_FOLDER"); - //Client.Execute("SEARCH_FOLDER", 3000); - Client.ExecuteCommand("SEARCH_FOLDER"); + ExecARS("SEARCH_FOLDER"); break; case "Show_Doc": - Client.ExecuteCommand("OPEN_DOC /N 0"); - //Client.ExecuteCommand("SHOW_WINDOW /W 0,0,75,100"); - - + ExecARS("OPEN_DOC /N 0"); 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"); - - Debug_Print(string.Format("SET_FIELD_DATA /F Dokument-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 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))); + 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); + ExecARS(string.Format("SET_FIELD_DATA /F Erstellung od. Valuta Datum /1 {0} /2 {1} ", FormatDate(ARS_Datum), FormatDate(ARS_Datum)),0); break; case "TGKB Kundenoutput ab 01.08.2008": - Debug_Print("TGKB Kundenoutput ab 01.08.2008"); - - 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))); + 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); break; case "TGKB ZV-Scanning Belege (erweiterte Suche)": - Debug_Print(string.Format("SET_FIELD_DATA /F Dokumenttyp /1 {0}", ARS_Doctype)); - //Client.Execute(string.Format("SET_FIELD_DATA /F Dokumenttyp /1 {0})", ARS_Doctype), 3000); - Client.ExecuteCommand(string.Format("SET_FIELD_DATA /F Dokumenttyp /1 {0}", ARS_Doctype)); - - 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}", "","")); - + ExecARS(string.Format("SET_FIELD_DATA /F Dokumenttyp /1 {0}", ARS_Doctype),0); + ExecARS(string.Format("SET_FIELD_DATA /F Auftrag-Nr. /1 {0}", ARS_AuftragNr),0); + 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); break; default: - Debug_Print(string.Format("SET_FIELD_DATA /F Dokument-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 Dokument-Id /1 {0}", ARS_DocID)); + ExecARS(string.Format("SET_FIELD_DATA /F Dokument-Id /1 {0}", ARS_DocID),0); 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; diff --git a/OnDemandDDE/ARSDDE/Properties/Settings.Designer.cs b/OnDemandDDE/ARSDDE/Properties/Settings.Designer.cs index 63f2ff1..8ce13dc 100644 --- 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; + } + } } } diff --git a/OnDemandDDE/ARSDDE/Properties/Settings.settings b/OnDemandDDE/ARSDDE/Properties/Settings.settings index efb104b..73d8e48 100644 --- a/OnDemandDDE/ARSDDE/Properties/Settings.settings +++ b/OnDemandDDE/ARSDDE/Properties/Settings.settings @@ -17,5 +17,17 @@ 1000 + + 3 + + + 200 + + + false + + + 1500 + \ No newline at end of file diff --git a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe index 7177f0c..c389da0 100644 Binary files a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe and b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe differ diff --git a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe.config b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe.config index 27e399b..56d297f 100644 --- a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe.config +++ b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.exe.config @@ -25,6 +25,18 @@ 1000 + + 3 + + + 200 + + + false + + + 1500 + \ No newline at end of file diff --git a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.pdb b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.pdb index d00eb9a..a0c7855 100644 Binary files a/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.pdb and b/OnDemandDDE/ARSDDE/bin/Debug/ARSDDE.pdb differ diff --git a/OnDemandDDE/ARSDDE/bin/Debug/arsdde.zip b/OnDemandDDE/ARSDDE/bin/Debug/arsdde.zip index 96be5bb..7362c44 100644 Binary files a/OnDemandDDE/ARSDDE/bin/Debug/arsdde.zip and b/OnDemandDDE/ARSDDE/bin/Debug/arsdde.zip differ diff --git a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.CoreCompileInputs.cache b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.CoreCompileInputs.cache index d2296ef..f983b2d 100644 --- a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.CoreCompileInputs.cache +++ b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.CoreCompileInputs.cache @@ -1 +1 @@ -44b08d7bf43be774c311a044a1c686ff613aa9da +04e3427731c69fd65ebee69d452207c09cd73b17 diff --git a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.FileListAbsolute.txt b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csproj.FileListAbsolute.txt index 4ee0303..fd21d27 100644 --- 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 diff --git a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csprojAssemblyReference.cache b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csprojAssemblyReference.cache index 434c975..e36e6f4 100644 Binary files a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csprojAssemblyReference.cache and b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.csprojAssemblyReference.cache differ diff --git a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.exe b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.exe index 7177f0c..c389da0 100644 Binary files a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.exe and b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.exe differ diff --git a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.pdb b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.pdb index d00eb9a..a0c7855 100644 Binary files a/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.pdb and b/OnDemandDDE/ARSDDE/obj/Debug/ARSDDE.pdb differ diff --git a/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache b/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache index ee9a30b..bfddbca 100644 Binary files a/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache and b/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache index 30a3c7f..6136f28 100644 Binary files a/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/OnDemandDDE/ARSDDE/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/OnDemandDDE/OnDemandDDE/obj/Debug/OnDemandDDE.csprojAssemblyReference.cache b/OnDemandDDE/OnDemandDDE/obj/Debug/OnDemandDDE.csprojAssemblyReference.cache index 37784c2..cc86acb 100644 Binary files a/OnDemandDDE/OnDemandDDE/obj/Debug/OnDemandDDE.csprojAssemblyReference.cache and b/OnDemandDDE/OnDemandDDE/obj/Debug/OnDemandDDE.csprojAssemblyReference.cache differ diff --git a/WordTest/.vs/WordTest/v16/.suo b/WordTest/.vs/WordTest/v16/.suo index c25b7f5..e3e4b7e 100644 Binary files a/WordTest/.vs/WordTest/v16/.suo and b/WordTest/.vs/WordTest/v16/.suo differ