From f5248e4a51dcfe61b4352554ac97abaf2ce45c65 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 23 Sep 2020 07:22:38 +0200 Subject: [PATCH] neu --- ADMIN.sln | 6 + DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb | 2 + RKSV_DE/App.config | 6 + RKSV_DE/My Project/Application.Designer.vb | 38 + RKSV_DE/My Project/Application.myapp | 10 + RKSV_DE/My Project/AssemblyInfo.vb | 35 + RKSV_DE/My Project/Resources.Designer.vb | 73 ++ RKSV_DE/My Project/Resources.resx | 124 +++ RKSV_DE/My Project/Settings.Designer.vb | 73 ++ RKSV_DE/My Project/Settings.settings | 7 + RKSV_DE/RKSV_DE.vbproj | 130 +++ RKSV_DE/Resources/rksv_de.jpg | Bin 0 -> 15502 bytes RKSV_DE/cRKSV_DE.vb | 121 +++ RKSV_DE/frmRKSV.Designer.vb | 284 +++++ RKSV_DE/frmRKSV.resx | 980 ++++++++++++++++++ RKSV_DE/frmRKSV.vb | 414 ++++++++ UID/ADMIN.vbproj | 2 + UID/Mitarbeiter/frmMitarbDetails.Designer.vb | 1 + UID/Mitarbeiter/frmMitarbDetails.vb | 78 +- .../usrCntlMitarbeiter.Designer.vb | 76 +- UID/Mitarbeiter/usrCntlMitarbeiter.vb | 39 +- UID/My Project/Resources.Designer.vb | 20 + UID/My Project/Resources.resx | 6 + UID/Programme/frmProgDetails.vb | 1 + UID/Programme/usrCntlProgramme.Designer.vb | 41 +- UID/Programme/usrCntlProgramme.vb | 5 + UID/Resources/personGray_m.jpg | Bin 0 -> 4213 bytes UID/Resources/personGray_w.png | Bin 0 -> 4332 bytes cNCTSPartnerWorker/cNCTS_TR.vb | 21 +- .../frmStartOptions.Designer.vb | 295 ++++-- initATLASAufschubkonten/frmStartOptions.vb | 29 +- 31 files changed, 2776 insertions(+), 141 deletions(-) create mode 100644 RKSV_DE/App.config create mode 100644 RKSV_DE/My Project/Application.Designer.vb create mode 100644 RKSV_DE/My Project/Application.myapp create mode 100644 RKSV_DE/My Project/AssemblyInfo.vb create mode 100644 RKSV_DE/My Project/Resources.Designer.vb create mode 100644 RKSV_DE/My Project/Resources.resx create mode 100644 RKSV_DE/My Project/Settings.Designer.vb create mode 100644 RKSV_DE/My Project/Settings.settings create mode 100644 RKSV_DE/RKSV_DE.vbproj create mode 100644 RKSV_DE/Resources/rksv_de.jpg create mode 100644 RKSV_DE/cRKSV_DE.vb create mode 100644 RKSV_DE/frmRKSV.Designer.vb create mode 100644 RKSV_DE/frmRKSV.resx create mode 100644 RKSV_DE/frmRKSV.vb create mode 100644 UID/Resources/personGray_m.jpg create mode 100644 UID/Resources/personGray_w.png diff --git a/ADMIN.sln b/ADMIN.sln index 8158a20..ed36b73 100644 --- a/ADMIN.sln +++ b/ADMIN.sln @@ -31,6 +31,8 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "MDM_Worke EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}" EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "RKSV_DE", "RKSV_DE\RKSV_DE.vbproj", "{173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}" +EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU @@ -93,6 +95,10 @@ Global {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.Build.0 = Debug|Any CPU {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.ActiveCfg = Release|Any CPU {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.Build.0 = Release|Any CPU + {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}.Debug|Any CPU.Build.0 = Debug|Any CPU + {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}.Release|Any CPU.ActiveCfg = Release|Any CPU + {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb index 22b90d0..c5136fd 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -1653,6 +1653,7 @@ Public Class cDakosy_EZA_Warenposition Property ezaWP_PositionsZusatz As Object = Nothing ' VARCHAR (100) NULL, Property ezaWP_AHStatWertManuellKZ As Object = Nothing ' VARCHAR (1) NULL, Property ezaWP_Artikelpreis As Object = Nothing ' DECIMAL (13, 2) NULL, + Property ezaWP_ArtikelpreisWaehrung As Object = Nothing ' DECIMAL (13, 2) NULL, Property ezaWP_OrtVerbringens As Object = Nothing ' VARCHAR (35) NULL, Property ezaWP_AbflughafenIATACode As Object = Nothing ' VARCHAR (3) NULL, Property ezaWP_WarenmengeAVUVZugang As Object = Nothing ' DECIMAL (15, 3) NULL, @@ -1799,6 +1800,7 @@ Public Class cDakosy_EZA_Warenposition list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_PositionsZusatz", ezaWP_PositionsZusatz)) ' VARCHAR (100) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AHStatWertManuellKZ", ezaWP_AHStatWertManuellKZ)) ' VARCHAR (1) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_Artikelpreis", ezaWP_Artikelpreis)) ' DECIMAL (13, 2) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_ArtikelpreisWaehrung", ezaWP_ArtikelpreisWaehrung)) ' DECIMAL (13, 2) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_OrtVerbringens", ezaWP_OrtVerbringens)) ' VARCHAR (35) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_AbflughafenIATACode", ezaWP_AbflughafenIATACode)) ' VARCHAR (3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaWP_WarenmengeAVUVZugang", ezaWP_WarenmengeAVUVZugang)) ' DECIMAL (15, 3) NULL, diff --git a/RKSV_DE/App.config b/RKSV_DE/App.config new file mode 100644 index 0000000..8ccef15 --- /dev/null +++ b/RKSV_DE/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/RKSV_DE/My Project/Application.Designer.vb b/RKSV_DE/My Project/Application.Designer.vb new file mode 100644 index 0000000..cf8df2a --- /dev/null +++ b/RKSV_DE/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' 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 + + 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten + ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer. + ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im + ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.RKSV_DE.frmRKSV + End Sub + End Class +End Namespace diff --git a/RKSV_DE/My Project/Application.myapp b/RKSV_DE/My Project/Application.myapp new file mode 100644 index 0000000..90e0fd2 --- /dev/null +++ b/RKSV_DE/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frmRKSV + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/RKSV_DE/My Project/AssemblyInfo.vb b/RKSV_DE/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..ac9b313 --- /dev/null +++ b/RKSV_DE/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 bestimmt die ID der Typbibliothek, 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, +' übernehmen, indem Sie "*" eingeben: +' + + + diff --git a/RKSV_DE/My Project/Resources.Designer.vb b/RKSV_DE/My Project/Resources.Designer.vb new file mode 100644 index 0000000..7993969 --- /dev/null +++ b/RKSV_DE/My Project/Resources.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 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 + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + 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("RKSV_DE.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property rksv_de() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("rksv_de", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/RKSV_DE/My Project/Resources.resx b/RKSV_DE/My Project/Resources.resx new file mode 100644 index 0000000..43d4e00 --- /dev/null +++ b/RKSV_DE/My Project/Resources.resx @@ -0,0 +1,124 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\rksv_de.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/RKSV_DE/My Project/Settings.Designer.vb b/RKSV_DE/My Project/Settings.Designer.vb new file mode 100644 index 0000000..b2f37ed --- /dev/null +++ b/RKSV_DE/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 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 + + _ + 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 "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + 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 + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.RKSV_DE.My.MySettings + Get + Return Global.RKSV_DE.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/RKSV_DE/My Project/Settings.settings b/RKSV_DE/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/RKSV_DE/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/RKSV_DE/RKSV_DE.vbproj b/RKSV_DE/RKSV_DE.vbproj new file mode 100644 index 0000000..d0a4757 --- /dev/null +++ b/RKSV_DE/RKSV_DE.vbproj @@ -0,0 +1,130 @@ + + + + + Debug + AnyCPU + {173CD166-FB23-4E8F-9BAA-DBDAF2A0383F} + WinExe + RKSV_DE.My.MyApplication + RKSV_DE + RKSV_DE + 512 + WindowsForms + v4.7 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + RKSV_DE.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + RKSV_DE.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + ..\..\..\..\RKSV DE\KsVCom.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + frmRKSV.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + frmRKSV.vb + + + 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/RKSV_DE/Resources/rksv_de.jpg b/RKSV_DE/Resources/rksv_de.jpg new file mode 100644 index 0000000000000000000000000000000000000000..861ee88ef25cbff2de77a463c4427a8fe7039212 GIT binary patch literal 15502 zcmeIYXH-+)w>BDzG(ki_I#G&r3rLX`5$OU_Lyt%&(tC}7fOJ6tsi7lXq_=>yP^35M zy|;uKAcULqKks?(8Rye|&$#C|?uWa_n0tR%d+fF6Tx-qw%xBJ;3x=1Rrod;^E`xV*(02 z72Khu{J370%kv+YAqhsR}lT&}EXO>r1*VZ>Sx3+iCN5?0pXXluUO9BAVzpI14|GPr} zNgo=#K7_=?M8u^3rVjz37hZ^Hh;Kc7MsiP1i`3kOmP0s*jP6x@cI9t!P7!Ss{d?CD ziu+v8m$}jZrqaJO`hTWS@PA9A|EVqe|t1oht zt`HPzk}QGr^xdaFu36ldD&#Y_S#FvpwGis#*&-<2ye`Zi>Rq-(UV#g50H4c}D4MPw zIkw1djv3}4pdn|OZ{k4hL$Oy+lunK2#$a|Zs=hYJHgip_?>Cx0Qk*oOG@I3#V#!#5 zrgu*B@oUV$lDg^0!zuIH#8^Tz&X+JT#%pMEbyHn)kacw?-?HQDcnJ^C=atHg7xF9m z&$Tt*`|`4mynUJz$qV==CF>+B9sJGT5mVu?r1s?JHbQUcvm@=Z&bhKi_=O$MiP;T6 zwb6ZD+oW4=M_;ln4=)=tblZEhbpy-H3s0 zs?QSHo$bG{8XhMM8PMpc%tjY6S;KcqrN3j`G(GG7Rdt#NOPa+>k#9CZNy)b>WZ0oY z!)IIlI$507RAX#joonn_zY1rP#VJo}Y@|T-CIxTK$A8J#u*bD=$2rI9>+$kEZnph( ze(G^|P>i*fyvkO0nlbzN5`0F=;HP^?SCY$)=QUMVJwdO=A*xxP7dvt7Q z*n>FZo3%2_TGEsAFGsR1GP}n|rQ1{IzE*qSRF6NCby}=>!wrf$dkW5zZ918iBWWG9 zyoW`X@(SLNy&C`;qK{4-PkmHpY13Husn3J)r5^tskar6ad#A?<{XydDL_WXvdi*>& zUrAO@q=0bnKjQ>sc!^RmQ7a`*B;Kkw0Ha2NXuev;DqO8jJI{*m6%m9Onp$?yP%^*c zo3}5sKOUxHDbss$LX^e!k^T@^v-mmF!9p3eCmgu3!096#GVwR@%{86)^(jPps^Mc! zwr0k`Amy9G$7a73=)f+2=(jS-F;XixfcqWv6E%^4|El!OEmTH7J=MGVBZH3fJ*}8t zTxKiYo<#7Yg?^^)I4%60>1!|;!&trZt=u74qGWH8jnWD-v*rZ$T-ar}|2zlBABTOt zdNx~J0%hmQm~AvNzD0y1?z{o;&xM~sQ8^WdqB3?v6)B836|-#x=VmLLv)E9@+u2KX zz$&G%49)mbC{0}n<9FDW=#c$l6dTcTxH+*BD1?bWF<&yga89O2Y5 z3ouRY))PR3yW|?L5%L#HQ!Eg51*3Fuf^;#QmSPNrNN;S7aL;)0o6pOOj;gMF(wTZY z^-tL$V7@FoR$9j6VY|YQmwy6Czl&gZ3IoCKEgCLq94I|ed2fFx=f3@%<(x$c;8&GX zgFNiDemKIvpjXhfol913O*<7ITc4WMela?tkl(*g zb0W8&$sS_FR}G}0OC@TR4*oo7j4yWh^HgvR>@!XqK{hu$Xpw3GI@Js8>uuJEFl8&x->*@^( zrh!V?s=pGd=1!S;dvfYEKK_$2=)cTGDA43xzQ0~quaH3gHn+QjzfX~jvz`ONhnYq- z9=4@6%^M)O7TD@xCq9keRc-)D8UX>+E{70@Dbdw^n~p~Du!B7GhuV%eiEo@JcUuQ< z0OmR+K=Vtm#{K3Z&H2e|%HlB{BRE`FzcBLAsH5m^ufG)3%`RVLgUpfZ&JJSp;tt-B zlcoU_USR3T()PGAy0@IeSSmEEE0gAExejp^m*yBukEo zw9I)hJ!_xaB3ngGSBOsQpT!zk=~{ZCF|TG-Mh{MJU+A-_*`^wr+yE$k^k&GWP5P(%#g)>6gMJE@vryf(r^>tC8S#MvDvxT?n zER} z6MX})o|oM8$K4yxtNd~#T&dUJ55NC$k6xY_I3% zw;>xaQeBNsHyt@U$GZnJR`id^sR7);BuiYS$xoJ{Ymq>FfVu+bhooYs^!eM09tQPr z22+;>(4ru#rIVwxTbW|;f!g<+;W}=|N?Y7A$g2P)|5#{W=Mrnc4#Z_vjV6FAKu&?< zsXJxfT}3(42cuKpJ#Nuyz5GYS|KiFBQ&f7QF4dv`D>30ZrmIKi1|axlS?)||2up$p zsfd8t$*9y&NBNdoW+Z8KeMmneW5kt1tBBM!ezmH!4H|vFCbOSk>vS+ zKQ=Ej7;%XKFY`7tEoDflDrh<1RdZhoxcF`rw><1e0Aa*(RmN#y(w5Tvcfw$eakFy~9ah-R4$6WcbZClSxn$J66}$VD8X<|v{!D|$*@&{Wk} zDwl60dT79oCf8F*yF9N%fby==dl@@{eWz$3*-0zQ^ni~AtG?Mog-23}Ec#AoRzww7 z^GfwA2;uR)$L=k!Ho9>P!3PV9kp}7Sa*2WkraM+FOidk~C-Sy`)zE2~k|>QY{@U#1 z6O~dzC6)0dY>a}0yOmxDk?jH-%yR!;frk?>7MEH)A(WU3)ya2Uq8aTyZNTP~j*6AM z$ZM)#-BhjwG0NENZ?Q{90v*T^-5ocflr8hk0T$Vit(?eZNy2{sAOlV+LJ$%p!28Ww z&Btd|7Y-(Y-z%D-D-|ZZdzXxkx|i4{>Yc*ll?M>1o| zq`Tv}^KZAhy}Rmvcf$C}xB^48 zAkVzj&XO`^;=M~04PUm2i&51e3dAHpK|s|rIJv(jDlYQXqr}qLsH7V}GBjkZAFf^& zjbo~iEnqGKMX)_9A^$Kq8u{ip(x`2iTJ=KbtPxG@75H%Egx5s;uQ@cLa(b=pEewzA zFn23*upTQV)TG|l#|GoG=g#H#o(9@kf;<@J;A4*vBxv?ZuN5lKEB$du!2DW)A=wuB z7U@q$qQBtWwDF~Qc&BhP*3DN;+Il@rve-BY0b9sv7uEe#d|dJa)k##?@X>Qu&oDIH38ygkIeNn z{7bU8%(MGh5ZU+yl3k5q)JE9%xKg-H~Is#Fk7w_W+W!cAX_b<=RmT_40M6|-F z*EE(drkb>j#>ymNM3whGSvAUXpl$F-+#B{M{yDnXs6y5;bHNu1 zvy!O6#HRY|T5h9NWj7t|72GVdG7A$h8!bDCefleLmLJx*N(quYC`=K}S2$-qYA-}p z9j`=Q3Ls%s0TYdC9!s+~fEwP5(8Ohm8-T(WXV}uq0BD=2so1%4YbsK=CUx|PHsWCl z#V;IivV~u7SQvUXRHnYze|%Skt}?x(h=~}yaq4%z*Mufi2Z7n|jTb!XMkQ4W!Y0(mv(6kf zK+Q6{1KrEC8hPS79>b-F{hT{}d<^+Q-kY}ngWvvZ5G1d~8}nuk|%#BX-43)H=}3J5I3$b=KgQw-bNim6X7kr`0p`p4wTF zOg5~lWDy1(V3vZ=ZOt^>(=8fH3)5iLnHWJ|gD~JA@W^n{zFkqKsq&FZR#B;AL1lCB z!N`nMl+S&Gc@2tR=^+=9VUgpX0;9Z*_2bM?3n?Y?=T97R)2Y?_$blL5;IzQOWFa>c zOm4yJxtgHi*}YoO8*tv#AH6uPIX{ufsAe5J_nC#~68|AaqX8IcCKA$yxZ60fuAAiY zxh%^fPE7x*xBCTSLKWClo)a9y_v2hYc^i$t>!Io_ z9H*WSx`y#z6gS012a5h%zScb@`Hf&oGeV&y2LusPx%j+ikl=Dc-!V0^T-50P&1^Hp zNL9z-7M;#=q{>Dtqi*xBr?1}%tI>W0NzV0L`JK7fLY+cpNR~r5`kyRW`Qw3~N-2zV z`*s!vtTGDDPb_t&-O+o=b3E_?{6{bO`CL=gWMsAWKW6jnMlCbrD|zp})%HNbln=xu z0Y56MBdv5k%K=61Z{3k#-<&B=XH(%V&-wOEZ~Az1pJufJqlUGf^b|fAeV#M?O76n) zE6zyeu&3>e{d8Sd3!G+o?`d9rJ zRzGkx272~w_&|%clUZ;7QwwF%nkMkX{DS#HBeJjHUZT3uc>QF$FWh?@a=-a@@vSTI zhz~Sr7)QqT!0*lid39*^DA$I%iIZ)mV$+AXnu`gQ8dzg%qHA+48`p&Jn*P{? zm+0vah>q|LAjaC>OcXVk!hUrPQwxI4Hon0bRt)L%{N7duumON_k!pf*hNP3&xJoSe z>Xo;=stV_*`e2nSY2O3&c$@jzOCpG*zcMCwg_>O=N-I&QdfcJc!YQ8J@4k%5wXY{( zy{bTQ?7a*g_Zs00JI$APM4Q(sFb%SHBJN!QGL_eO0I_QBVfQR!x!@QE)D?0|2Kou( zu@nPF8Xeiq=vrBrh<1(fJ!{J>9KU>`b2&AKphPXem!D7@*o`cBtLLToCPW6$Ma;B@KT$7lDm3{!^!Lqo zs)NE@>TJ2fAtc_}X}6bKY~gYiPi_FTU4&xIK-H-IcQEAm4WK0rWxb7g-}K;_34PW5lY&xrdCH_;&;0q8GoG|JN=sUY+a^s` z9wP-{hQ%=8y_2EO&>tE6gJ-jQ3Pjg=59XUBx+g*NCAw=X8%du{ zdZpMV=xBq!n(3`VV%b?ybrD=6%(HLDD>&MF&$tzJ@oB8!g?Z9;+bPoMp@tq?PWior z*wRxY{_E4=qI#i&b26=(|BTJ12hkL{r9UA>=7<2D^NAvkH$(UeM5GCzjOB;j>L{U$_plF~= z>MQvRftq)CZ_Uvj9cLu40h<9M7kE*N(OF~FLht=p#D5w_zAh$r9VDMq^t*Ff#{9Ut z;r;84tn#4(-r`iX>Qsl)gl9IkZ!2YbwNmR0@6)~2xaA`rhLhMbT8tLLzPQdPHe48x znsuxGQtDF4GB|DQaU5Yn*ThiIj1U)Wy1 zncfxa4WJkezM8xN^zKds{--gBwErFS0Q_S!_sX^EnqZx)G>wt54T;^;O_bI+T+_`g zl&oPnpT6Y=(6jktv^Y%$zPi~(j53S6PRmy<>}2@t-|Ti~d+AfSc$GVq8C<_Oja+sM zi|RJxiO5{hT=*+5&Se9aslqB@+;%fp8sNb=vSv)iN>eMNH$vXcoUMEF4s3PDJeZa( zSF0{AYdiIFgpNP-Er1n3s+#)Cz}t_}X#y7#>;aUn-QrA)Vfq`Y$AovFGSJW|*~i{M zg_N9TG*wmKSCdJ1clAbpe9{8N=I+l5&@SJQ_RP%km4=lImp*BH7SpOpqWYX0J)S zdWebKuswxSYjVm|QzU!tXkIpFl#^!h*dfaU@T^lIzhnNRlX+pfwfuhB!qGP`iNAgn z7_2#rULYNLoH?^bg>3wQQl#fo$a?6U z4rjrE$PNL0FO~?SvK)68BTVJhNh6jk+L^%rdsA46On)|*F4$mII`fl@Y6cm9;ADyC z5xH)%IG3gY>agnuK)idd;$T%SPv4O)=%qY-U-n}?0OzsAw93(})CI4q2t5_BmLyJQ zmYLGK_=5(%FLk?MK8gEP5sW3^l7yu=H>!txZ=QTSO83e~c1_=dQ)PBqe5)@id4>fK z3W46xb`~&XqHN#Vyx|>_kAd%}w;BS8RT%UVOG>8=IEgZyG<8$~GQ=7vdOY_f zzV!Tw)mtfJXixe%hY5Kb*-Z}bk69xQ`(VRLG*e$Oz1p43{uG4=$#%+C<0sp){nFv3 zA%I-CYfHdyncc+eidbp391C19@JhXe@okHf6~{WrErY$zWtEL^w!?Y%T(YdxNP3H1 zAce)ghgv=BNV8VNB(wqv0nC~DfMzxCYY->Q^nHfiYYr4$gOK1@&HNQdPp;Lv8Nj3+ zsje)hvZG?t8=)5UYwjj%_g-*WJfPS?2xFO1wP{N-O8Th%D7*6+e=}IGNMm1COyBQ_ zO{U*$yG|CbM9y3taj)G5$}Ov94hDBv`fbaFtYiIrbR|_-Nc44vgC!%;6*F~^hSBC* z(83wz5xk0X7b3#xw9G~CTO($uYoSlhfKYL;Sgz1mH{JjY$0c9hHz@Bs>(6=*^F0OsuUE$SfT&b+1NdnK+j0euEK*>} zp{N@`2V~lFirPb<$2!xK#jA2Pw3h+^us~O&!=O$VeD_nfuT$7zhii!jT#0@P^At^i zLpodg7D#qBlxI|7-DeMF2WB<*XI;TZ5;HHzvJzy_h6pwcaw*35Qc6n3>U~3EEs||q z^Um>K!VV^o(K3SFpDEn57D9tnwL29uy3m)iAN{7RLu8Bh1un4!0QZf0*bHbnDQf9T zMg)vndjfTGc~P7Cw`VZBHc4N*GydFw2Cn)x_m$h3m)GGiw`7EyvHY&sHiXIFd#nIu z(``LbDyLANAf!(yanV7wio3*@D+9pzV?yZBaEjlNGi>u~Wul{slSj()2Hjn9vV{OQ zlPCCM(G8#$qoy&%@ut5}bG_#!z8ON>WoRTAXPrcI#g9!mVS@z1g->OgR1i@*V}ghK z-=8zQ%|pk}8_EF(bEj$;s{@#?wCf+p+Yt?3$Rw)Z5;qpB#G08_=rFq#Df$3UJ zDWyMf%q{^&7gR&ia{U$62bEa-aGBR@57_AJ1k*fXb1|SX!4G1I=z=ty{Cu;l+EA616%MoC-oKJiM7~;C1J*C9A zJ47~HY511U3f)qa{)uN_8q{C?HJ~zAX zSNs>b1F{N^>udz`4WJ#8eFK1QKixF@`AQF5_DB9J@Tw!B_4A<#&t5;8ceWoG;?es# zrWZGuB!6z)%(L4I@sCp#P45&w>ruxV84ZuRUp3Laf-xg6 zaW=Cp{@VfQsV)TnBwPdIwR~#ctDnI6ybIRc@$hbd+iCgKS#g2~Mqi(5!FaK)%Hj(C zj0xXNcB>RNeNT#JY5u)IZ9wy)1H51GUkuRL?f;q;F0Hc*(J<|`kJ}s1k^=k-yx48sq-k(sC+&7 z>s4k2XSSXmTkj);*Yy_zY8EKJa_^WDF2-nvcC%yPD1Ym9ZojtV+$HS_EVxYCXW6bg zt(Wp139a$mtvT~AHl%FbM{ero+SXQdhTt^0hfM*B#^8g zYzoXzkcW)ku6u^w9V)T=U$83%G5KxRV(@-+#gA$SW6jAu&X!Rpp+g6*t6y!)<2a6= zfseM09u+RN7~}3qILr(R*l`_O5k38q7pA}G7HzSuA(1cjs@mxyB)`9uE!-c3UWi#O zEuqG4_R8GiB~8ww2#zFNJ#)tJtLM z6_9bVDH1y;?7*|gb1K?$Wws?8qxpI&p1dyM{;$MvR6Tbx=&dpCqO3?Kh84^&lAgY8 zqE5T&73Dt9+}=I)`_@uzT`c3G~k?oWjx%YBQP?nAI zCb#^ZEQbnP48uwjh!!g|`Uy-nHTjmiY+MTAZpk9YIsB1KbkSr^9_qw(E}ZwYTU7XK>l+%4;ElZ;-I)=){|DjzCMfPuBswVbnGpmZ zTCfo_JlCJ7aZ&c?YPV+{UJbG|-TsWnFK^NPv?SnvffrQk%nbnddY=~8PKqzL)X)|C znW(1elOq$pDj8pi;$sx+@C{(0{su5IWW31Ox|Zyni~D_qZ(RL-oq7XUi?xLvn!vWs z%MPPqM{3PlH-L8+utY1+dHC*SB5)ZS$8a6fy1Lp0KQOuhynt>e5bQ!k0=w~j#^{xy zb0JuI%>la@dNCZ!_yM0{gf=vP?T>kt^uWuN^r4a)I65lnVP0zqtz5pkm?>I3^!XFo zSs&)JWT^i~b0gi0sq0DBxVEV<@8dJ)8mP~KKTCk18^G|xlRGD{GkuNRS0Y?usYwUV{`U4A|7YB<@+-GT0C#sH60{qY7e69!v9;sZw+H<@&Qbxf0n zor&E5QmSzCu(L9EeC?~OqYE`N$lYUD!#hzqM;zaPeOYetpWg8W?sH}hl=}-I#70sc z{fvL|DmEYd5RLCIum*+lmkC-edR!3Gy1PGvSvI-HEticKD_+zvsri||r5*;?f(KfE zfg%N0t0tsH-T0L}$F6@(8&+-H+Rqs3(i5i(;%V3v*$v=?#_ZV@9&&@mKzonim;9<{F)TPaG015< z=$aTD9f%K4nkPe7b_kHo)dPWb3X)rbFM#`7B>nI?>0h) zAM{4gcWe;L;J`EVze$_NBN~IH5Z|uFPIiZyNswnor-3c&ix%aoBWJC16y~`PY2b-Kblcn)H9@W%2GYb%wN#R6%c5#+IIj$kg8> z$*JLLE!FC6sWzTlqSh|83#=_uI3ODla?z@>F$u`A0#)Kt2|4N^*9u=^&rtAwfe}F8 zZfEYSV<($@@4dKwugm4khsmwY!@L@2jVNx*B`nT-hht-xRJ$a*n6i_opOo>IQx0AMVHL!+>i(>szEN#LF zeK(Wl?f6+%m()uZx_5d3js-1E?hKU?8#e$39D@;7p}N+lHM1KxVrcGi+$p!i3~FC&KCpZAH?&E;`hzZO^`jX0e* zb!zsiD3XtRiWD)?SiQ>r4rr|yZP~f{?W=$cT5ON!nrxK&XdH^~cjb?DYibzck?|RH zGZm#Pe$TIKSNBsf-JbyLGSy3g_fd`(lFVnq)_aTaNsxSA|=PMREugKDY?eMS}NXNXeLFt-b*{fBcT~qwa zC$W*a7+p8yrm1+OKd8_fF5fs>^O^X}>vovQQt%7P!b;LFP@~ArL={z&{T=(9gkQ4y z6S4#tWXDYIJch?ug*Hc`9%|Tr`HU4fgepX$peve@+`4Gk=jJBq;C|87IrtB`qs<+K z0QE?L!rdC_iiK{oc2aTFRl8><1!@8jWA5VSLixJEXOXMQ)mf5v$h^z7m0kK)5#|OU zH@4><6(zx4*LXZPFTyMEGghn!-^#lqkSS`#bfwUc8|<>a<@z_bojB!T$RhW6VGkKTOh{`~N+v%J= z-(wvlf&eQrDa+npR$Jv}E`cz34YTt6@L@6iKB)p?(YFPCWJ+8db#QpUd~ zOZld{<~3-ofdB{=`x^i?s18)?_`&AN>+AY;;(YDizpG`|xWh(Ke@po{u_cXK(6$0S zziM9kdc7h)f6qn73hCal)Xu1VATc6rSi~oI(9`lL4VR)U5|sJz-?>g5Cb+-gWY;fOMaROT42tNctad^ZF-R$^PLvU^mnM7ykZ^ AkN^Mx literal 0 HcmV?d00001 diff --git a/RKSV_DE/cRKSV_DE.vb b/RKSV_DE/cRKSV_DE.vb new file mode 100644 index 0000000..4df7845 --- /dev/null +++ b/RKSV_DE/cRKSV_DE.vb @@ -0,0 +1,121 @@ +Imports ItgKsV +Public Class cRKSV_DE + + Private Function SurroundingSub() + + + ' COM-Objekt anlegen + + Dim licenseKey As String = "MEUCIQDg2GSwFrgOMHLzKBO7Sac+D3xBh9Ct+QRBXarDFPtdNgIgQyvotBil11sRfqQgdY+spD3aUve/HZS9cF7MS0D720w=" + Dim m_ksv As ItgKsV.KsVCom = New ItgKsV.KsVCom() + Dim result As Integer = m_ksv.InitialiseLibrary("F:", "SwissbitDemo", "12345", licenseKey) + + If result <> &H0 Then + MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + Return False + End If + + + + ' Setup bei erstmaliger Verwendung der Swissbit-TSE !!! + + result = m_ksv.SetupTSEForFirstUse("123456", "12345", "98765", "SwissbitDemo") + + If result <> &H0 Then + MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + Else + MessageBox.Show("TSE setup succeeded.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information) + End If + + + + ' BeginTransaction: für jede neue Rechnung wird eine Transaktion gestartet + + Dim transactionNumber As Long = 0 + result = m_ksv.StartTransaction(transactionNumber) + + If result <> &H0 Then + MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + Return False + End If + + + + ' UpdateTransaction: processData bleibt leer + + result = m_ksv.UpdateTransaction(transactionNumber, "", "KassenBeleg-V1") + + If result <> &H0 Then + MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + End If + + + + ' FinishTransaction: Abschluss einer Rechnung, processData nach vorgegebenem Format + + result = m_ksv.FinishTransaction(transactionNumber, "Beleg^19.99_0.00_0.00_0.00_0.00^19.99:Bar", "KassenBeleg-V1") + + If result <> &H0 Then + MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + End If + + + + ' QR-Code und weitere Werte, die auf der Rechnung angedruckt werden müssen + + ' QR-Code wird als base64 kodiertes bitmap geliefert + + Dim qrCode As String = String.Empty + + ' QR-Code Inhalt für die Ablage in der Datenbank, falls eine Rechnung nochmals gedruckt werden muss + + Dim qrCodeContent As String = String.Empty + m_ksv.GetLastReceiptQrCode(qrCode) + m_ksv.GetLastReceiptQrCodeContent(qrCodeContent) + Dim sTransactionNumber As String = String.Empty + Dim serialNumber As String = String.Empty + Dim signature As String = String.Empty + Dim sigCounter As String = String.Empty + Dim dtStartTransaction As Date = Date.MinValue + Dim dtFinishTransaction As Date = Date.MinValue + m_ksv.GetLastReceiptValues(sTransactionNumber, serialNumber, signature, dtStartTransaction, dtFinishTransaction, sigCounter) + + + ' Anzeige der gestarteten/noch möglichen Transaktionen + + Dim maxTransactions As Integer = 0 + Dim openTransactions As Integer = 0 + m_ksv.GetMaxStartedTransactions(maxTransactions) + m_ksv.GetStartedTransactions(openTransactions) + Dim startedTransactions As Integer() = Nothing + result = m_ksv.GetStartedTransactionNumbers(startedTransactions) + + If result <> &H0 Then + MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + End If + + + + ' Export der TSE-Daten im TAR-Format + + result = m_ksv.ExportAsTarFile("d:\export.tar") + + If result <> 0 Then + MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + End If + + + + ' Bibliothek aufräumen, andernfalls wird ein power-cycle der TSE erforderlich um sie wieder einsetzen zu können + + 'result = CSharpImpl.__Assign(,, m_ksv.CleanupLibrary()) + result = m_ksv.CleanupLibrary() + + If result <> 0 Then + MessageBox.Show(m_ksv.StringifyErrorCode(result), "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error]) + End If + Return True + End Function + + +End Class diff --git a/RKSV_DE/frmRKSV.Designer.vb b/RKSV_DE/frmRKSV.Designer.vb new file mode 100644 index 0000000..7d528d6 --- /dev/null +++ b/RKSV_DE/frmRKSV.Designer.vb @@ -0,0 +1,284 @@ + +Partial Class frmRKSV + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmRKSV)) + Me.Label1 = New System.Windows.Forms.Label() + Me.txtLog = New System.Windows.Forms.TextBox() + Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.Label2 = New System.Windows.Forms.Label() + Me.cbxAMBAR = New System.Windows.Forms.CheckBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtFSSATLAS = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.txtInitAufschubStatus = New System.Windows.Forms.Label() + Me.cbxVERAG_DE = New System.Windows.Forms.CheckBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.pic = New System.Windows.Forms.PictureBox() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.Panel2.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label1.Location = New System.Drawing.Point(5, 5) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(28, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Log" + ' + 'txtLog + ' + Me.txtLog.BackColor = System.Drawing.Color.White + Me.txtLog.Dock = System.Windows.Forms.DockStyle.Fill + Me.txtLog.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtLog.Location = New System.Drawing.Point(0, 24) + Me.txtLog.Multiline = True + Me.txtLog.Name = "txtLog" + Me.txtLog.ReadOnly = True + Me.txtLog.Size = New System.Drawing.Size(485, 318) + Me.txtLog.TabIndex = 3 + ' + 'LinkLabel1 + ' + Me.LinkLabel1.AutoSize = True + Me.LinkLabel1.Location = New System.Drawing.Point(359, 85) + Me.LinkLabel1.Name = "LinkLabel1" + Me.LinkLabel1.Size = New System.Drawing.Size(105, 13) + Me.LinkLabel1.TabIndex = 8 + Me.LinkLabel1.TabStop = True + Me.LinkLabel1.Text = "Log ein-/ausblenden" + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.SplitContainer1.IsSplitterFixed = True + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.pic) + Me.SplitContainer1.Panel1.Controls.Add(Me.LinkLabel1) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label2) + Me.SplitContainer1.Panel1.Controls.Add(Me.cbxAMBAR) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label5) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtFSSATLAS) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label3) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label6) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtInitAufschubStatus) + Me.SplitContainer1.Panel1.Controls.Add(Me.cbxVERAG_DE) + Me.SplitContainer1.Panel1.Controls.Add(Me.Button1) + Me.SplitContainer1.Panel1.Controls.Add(Me.Button3) + Me.SplitContainer1.Panel1.Controls.Add(Me.Button2) + Me.SplitContainer1.Panel1MinSize = 100 + ' + 'SplitContainer1.Panel2 + ' + Me.SplitContainer1.Panel2.Controls.Add(Me.txtLog) + Me.SplitContainer1.Panel2.Controls.Add(Me.Panel1) + Me.SplitContainer1.Panel2MinSize = 50 + Me.SplitContainer1.Size = New System.Drawing.Size(485, 446) + Me.SplitContainer1.SplitterDistance = 100 + Me.SplitContainer1.TabIndex = 9 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label2.Location = New System.Drawing.Point(5, 16) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(50, 13) + Me.Label2.TabIndex = 1 + Me.Label2.Text = "Dienste" + ' + 'cbxAMBAR + ' + Me.cbxAMBAR.AutoSize = True + Me.cbxAMBAR.Location = New System.Drawing.Point(8, 63) + Me.cbxAMBAR.Name = "cbxAMBAR" + Me.cbxAMBAR.Size = New System.Drawing.Size(15, 14) + Me.cbxAMBAR.TabIndex = 7 + Me.cbxAMBAR.UseVisualStyleBackColor = True + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label5.Location = New System.Drawing.Point(206, 16) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(43, 13) + Me.Label5.TabIndex = 1 + Me.Label5.Text = "Status" + ' + 'txtFSSATLAS + ' + Me.txtFSSATLAS.AutoSize = True + Me.txtFSSATLAS.Location = New System.Drawing.Point(206, 63) + Me.txtFSSATLAS.Name = "txtFSSATLAS" + Me.txtFSSATLAS.Size = New System.Drawing.Size(74, 13) + Me.txtFSSATLAS.TabIndex = 5 + Me.txtFSSATLAS.Text = "nicht gestartet" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(29, 40) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(94, 13) + Me.Label3.TabIndex = 1 + Me.Label3.Text = "Kasse VERAG DE" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(29, 63) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(77, 13) + Me.Label6.TabIndex = 6 + Me.Label6.Text = "Kasse AMBAR" + ' + 'txtInitAufschubStatus + ' + Me.txtInitAufschubStatus.AutoSize = True + Me.txtInitAufschubStatus.Location = New System.Drawing.Point(206, 40) + Me.txtInitAufschubStatus.Name = "txtInitAufschubStatus" + Me.txtInitAufschubStatus.Size = New System.Drawing.Size(74, 13) + Me.txtInitAufschubStatus.TabIndex = 1 + Me.txtInitAufschubStatus.Text = "nicht gestartet" + ' + 'cbxVERAG_DE + ' + Me.cbxVERAG_DE.AutoSize = True + Me.cbxVERAG_DE.Location = New System.Drawing.Point(8, 40) + Me.cbxVERAG_DE.Name = "cbxVERAG_DE" + Me.cbxVERAG_DE.Size = New System.Drawing.Size(15, 14) + Me.cbxVERAG_DE.TabIndex = 4 + Me.cbxVERAG_DE.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(277, 11) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(45, 23) + Me.Button1.TabIndex = 2 + Me.Button1.Text = "start" + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' + 'Button3 + ' + Me.Button3.Location = New System.Drawing.Point(319, 40) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(54, 23) + Me.Button3.TabIndex = 2 + Me.Button3.Text = "restart" + Me.Button3.UseVisualStyleBackColor = True + Me.Button3.Visible = False + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(328, 12) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(45, 23) + Me.Button2.TabIndex = 2 + Me.Button2.Text = "stop" + Me.Button2.UseVisualStyleBackColor = True + Me.Button2.Visible = False + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(485, 24) + Me.Panel1.TabIndex = 4 + ' + 'pic + ' + Me.pic.BackgroundImage = Global.RKSV_DE.My.Resources.Resources.rksv_de + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(380, 11) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(100, 66) + Me.pic.TabIndex = 9 + Me.pic.TabStop = False + ' + 'frmRKSV + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(485, 446) + Me.Controls.Add(Me.SplitContainer1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmRKSV" + Me.Text = "RKSV Deutschland" + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel1.PerformLayout() + Me.SplitContainer1.Panel2.ResumeLayout(False) + Me.SplitContainer1.Panel2.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Label1 As Label + Friend WithEvents txtLog As TextBox + Friend WithEvents LinkLabel1 As LinkLabel + Friend WithEvents SplitContainer1 As SplitContainer + Friend WithEvents Label2 As Label + Friend WithEvents cbxAMBAR As CheckBox + Friend WithEvents Label5 As Label + Friend WithEvents txtFSSATLAS As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label6 As Label + Friend WithEvents txtInitAufschubStatus As Label + Friend WithEvents cbxVERAG_DE As CheckBox + Friend WithEvents Button1 As Button + Friend WithEvents Button3 As Button + Friend WithEvents Button2 As Button + Friend WithEvents Panel1 As Panel + Friend WithEvents pic As PictureBox +End Class diff --git a/RKSV_DE/frmRKSV.resx b/RKSV_DE/frmRKSV.resx new file mode 100644 index 0000000..227ecf4 --- /dev/null +++ b/RKSV_DE/frmRKSV.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////p6ferq+Kr + q+Krq+Krq+Krq+Krq+LFxer///////////////////////////////////////////////////////// + //////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP///////////////////////////////////////// + //////////////////////////////+4uOarq+Krq+Krq+Krq+Krq+Ld3fP///////////////////// + //////////////////////+rq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Kr + q+Krq+K4uOb////////////////////////////////Fxeqrq+Krq+Krq+Krq+Krq+Krq+Lp6ff///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////d3fMDA70DA70DA70DA70DA70DA71ZWcv///////////////////////// + ///////////////////////////////R0e9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA72dnd30 + 9Pv////////////////////////////////////////////////R0e9sbNADA70DA70DA70DA70DA70D + A70DA70DA70DA72dnd309Pv///////////////////////////////8pKcIDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////////+4uOZsbNADA70DA70D + A70DA70DA70DA70DA70DA70DA70DA72dnd3p6ff///////////////////////////////////////// + //////////////////////////////////////////////////////////8pKcIDA70DA70DA70DA70D + A70DA73///////////////////////////////////////////////////+dnd0DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////+d + nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////// + //////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv/ + ///////p6fdZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///// + //////////////////////////////////////////////////////////////////////////////// + //////////9sbNADA70DA70DA70DA70DA70DA73d3fP///////////////////////////////////// + //////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///// + //////////////////////////9+ftQDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA73d3fP////p6fcpKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////////////////////// + //////////////////////////////////////////+dnd0DA70DA70DA70DA70DA70DA73Fxer///// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////+rq+IDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///9ZWcsDA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer///////////// + //////////////////////////////////////////////////////////////////////////+rq+ID + A70DA70DA70DA70DA70DA72dnd3////////////////////////////////////p6fcDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP///////////// + ///p6fcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A73d3fP////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+K4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA71ZWcv///////////////////////////////////////////////////////////// + ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT///////////////////// + //////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R0e9+ftQDA70DA70DA70D + A70DA70DA70DA71sbND///////////////+rq+IDA70DA70DA70DA70DA70DA70DA72dnd309Pv////R + 0e9+ftQDA70DA70DA70DA70DA70DA70DA71sbND////////////////09PsDA70DA70DA70DA70DA70D + A71ZWcv///////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA72d + nd3d3fP////////d3fN+ftQDA70DA70DA70DA70DA70DA70DA73d3fP///////////////////////// + ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D + A70DA71ERMf///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA72rq+L/ + //////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///////////9ZWcsDA70DA70D + A70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA73Fxer///// + //////////8pKcIDA70DA70DA70DA70DA70DA73////////////////////////////////////09PsD + A70DA70DA70DA70DA70DA70DA73d3fP///////////////////////9sbNADA70DA70DA70DA70DA70D + A73Fxer///////////////////////////////////////////////////////////////////////// + //////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////09PsD + A70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsDA70DA70DA70DA70DA70D + A71sbND////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA71sbND///////////////9+ftQDA70DA70DA70DA70DA70DA73d3fP///// + ///////////////////////////09Purq+Krq+Krq+JsbNADA70DA72Ojtn///////////////////// + //////9ZWcsDA70DA70DA70DA70DA70DA724uOb///////////////////////////////////////// + //////////////////////////////////////////////9+ftQDA70DA70DA70DA70DA70DA73R0e// + ///////////////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT///////////////////// + //////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv////d3fMDA70DA70DA70DA70DA70DA71+ftT/ + //////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA7309Pv///////////+dnd0D + A70DA70DA70DA70DA70DA73Fxer///////////////////////////////////////////////////// + ///////////////////////////d3fOrq+IpKcIDA70DA70DA70DA70DA70DA70DA73Fxer///////// + //////////////////////////////////////////////////////////////////////////////+r + q+IDA70DA70DA70DA70DA70DA72rq+L////////////////////////////R0e8DA70DA70DA70DA70D + A70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA73Fxer////R + 0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////8pKcIDA70DA70DA70D + A70DA70DA73Fxer///////////+4uOYDA70DA70DA70DA70DA70DA72rq+L///////////////////// + //////////////////////////////////////////////+4uOarq+IDA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA7309Pv///////////////////////////////////////////////////////// + ///////////////////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3///////////////// + ///////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////////9+ftQD + A70DA70DA70DA70DA70DA72rq+L////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////// + //////////////9+ftQDA70DA70DA70DA70DA70DA72rq+L////////////d3fMDA70DA70DA70DA70D + A70DA71+ftT////////////////////////////////////////////////////////p6fednd0DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND///////////////////////////// + ///////////////////////////////////////////////////////////////p6fcDA70DA70DA70D + A70DA70DA71ZWcv////////////////////////////p6fcDA70DA70DA70DA70DA70DA71ZWcv///// + //////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn////p6fcDA70DA70DA70D + A70DA70DA71ZWcv///////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72Ojtn/ + ///////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////////////// + ///////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcLp + 6ff///////////////////////////////////////////////////////////////////////////// + //////////////////8pKcIDA70DA70DA70DA70DA70pKcL////////////////////////////09PsD + A70DA70DA70DA70DA70DA70pKcL////////////////////////////////d3fMDA70DA70DA70DA70D + A70DA71sbND////09PsDA70DA70DA70DA70DA70DA70pKcL////////////////////////////////d + 3fMDA70DA70DA70DA70DA70DA71sbND///////////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv/ + ///////////////////////////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA71ERMfd3fP///////////////////////////////////////////////// + //////////////////////////////////////////////////9ZWcsDA70DA70DA70DA70DA70DA73d + 3fP///////////////////////////8pKcIDA70DA70DA70DA70DA70DA73R0e////////////////// + ///////////p6fcDA70DA70DA70DA70DA70DA71sbND///////8pKcIDA70DA70DA70DA70DA70DA73R + 0e/////////////////////////////p6fcDA70DA70DA70DA70DA70DA71sbND///////////////9+ + ftQDA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////////09PspKcID + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcurq+L///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70D + A70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70DA70DA70DA71+ftT///// + //9+ftQDA70DA70DA70DA70DA70DA72Ojtn////////////////////////////p6fcDA70DA70DA70D + A70DA70DA71+ftT///////////////+rq+IDA70DA70DA70DA70DA70DA724uOb///////////////// + ///////////////////////FxeoDA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbNCrq+Lp6ff/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////// + ///////////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff////////////////////////FxeoD + A70DA70DA70DA70DA70DA72Ojtn////////FxeoDA70DA70DA70DA70DA70DA70DA73p6ff///////// + ///////////////FxeoDA70DA70DA70DA70DA70DA72Ojtn////////////////FxeoDA70DA70DA70D + A70DA70DA72dnd3///////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA72Ojtm4uOb///////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////d3fMDA70DA70D + A70DA70DA70DA71+ftT///////////////////////////////8pKcIDA70DA70DA70DA70DA70DA71+ + ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///////////8pKcIDA70D + A70DA70DA70DA70DA71+ftT///////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L/ + ///////////////d3fMDA70DA70DA70DA70DA70DA71sbND///////////////////////////////// + //////+rq+IDA70DA70DA70DA70DA70DA73d3fP////////////////////p6ferq+Krq+L09Pv///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////09PsDA70DA70DA70DA70DA70DA71ERMf///////////////////////////// + //+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYDA70DA70DA70DA70DA70D + A70DA73d3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA71+ftT///////////////+4uOYD + A70DA70DA70DA70DA70DA70DA73d3fP///////////////////8pKcIDA70DA70DA70DA70DA70pKcL/ + //////////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA724uOb///////// + ///////09PtZWcsDA70DA70DA70DA71sbNCrq+L09Pv///////////////////////////////////// + ///////////////////////////09Purq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70D + A72rq+Krq+Krq+Krq+Krq+Krq+LR0e////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA72rq+Kr + q+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////9ERMcDA70DA70DA70DA70D + A70DA70DA70DA72rq+Krq+JZWcsDA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////// + //9ZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////////////R0e8DA70D + A70DA70DA70DA70DA70DA71ZWcurq+Krq+J+ftQDA70DA70DA70DA70DA70DA70DA70pKcL09Pv///// + ///////////////////////////////////////////////////////////09PsDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn////////d3fMDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73R0e////////// + ///////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73R0e////////////////////////+OjtkDA70DA70DA70DA70DA70DA73R0e////////////// + //////////////////////////9ERMcDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72rq+L///////////////////////////////////////////////////////// + //////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA71ZWcv///////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA72dnd3///////////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////+rq+IDA70DA70D + A70DA70DA70DA72rq+L////////////////////////////////////////d3fMDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////////////// + //////////////////////////////////////////////9sbNADA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////+4uOYDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////////////////////////////// + //+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////////// + ///////////////////R0e8DA70DA70DA70DA70DA70DA72Ojtn///////////////////////////// + //////////////+4uOYDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcvp + 6ff///////////////////////////////////////////////////////////////////////////+d + nd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p + 6ff////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///// + ///////////////////////////////////////d3fNZWcsDA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA724uOb////////////////////////////////////09PsDA70DA70DA70DA70DA70DA71Z + Wcv////////////////////////////////////////////////R0e9ERMcDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA72Ojtn///////////////////////////////////////////////////// + //////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA73R0e/////////////////////////R0e+rq+IpKcIDA70DA70D + A70DA70DA72Ojtmrq+L////////////////////////////////////////////////////////////R + 0e+rq+IpKcIDA70DA70DA70DA70DA72Ojtmrq+L///////////////////////////////////////// + //////8pKcIDA70DA70DA70DA70DA70DA73///////////////////////////////////////////// + //////////+4uOarq+IDA70DA70DA70DA70DA70DA71+ftSrq+L09Pv///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/RKSV_DE/frmRKSV.vb b/RKSV_DE/frmRKSV.vb new file mode 100644 index 0000000..9885fbe --- /dev/null +++ b/RKSV_DE/frmRKSV.vb @@ -0,0 +1,414 @@ +Imports System.Net, System.Net.Sockets +Imports System.Text +Imports System.Threading + +Public Class frmRKSV + Dim serverSocket As Socket + Dim clientSocket As Socket + Dim byteData(1023) As Byte + + Public Shared boolInitAufschub As Boolean = False + Public Shared boolFSSAtlas As Boolean = False + Public Shared boolDatenserver As Boolean = False + + Dim splitPanelDefaultHeight As Integer = 0 + + Private Sub frmServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load + splitPanelDefaultHeight = SplitContainer1.Panel2.Height + + Dim computername As String = System.Environment.MachineName.ToUpper + + If computername = "YLPS023046" Then 'DEVELOPER ANDREAS + cbxVERAG_DE.Checked = True + cbxAMBAR.Checked = True + End If + + If computername = "DEVELOPER" Then 'DEVELOPER SERVER + cbxVERAG_DE.Checked = True + cbxAMBAR.Checked = True + cbxAMBAR.Enabled = True + End If + + If True Or computername = "RKSV.........1" Then 'RKSV 1 SERVER,2 + cbxVERAG_DE.Checked = True + cbxAMBAR.Checked = True + cbxAMBAR.Enabled = True + + End If + + ' cbxInitAufschub.Checked = True + cbxVERAG_DE.Focus() + DIENST_InitSocket() 'initialisieren + End Sub + + Sub DIENST_InitSocket() + serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) + Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8800) + serverSocket.Bind(IpEndPoint) + serverSocket.Listen(5) + serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing) + End Sub + + Private Sub OnAccept(ByVal ar As IAsyncResult) + clientSocket = serverSocket.EndAccept(ar) + serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing) + AddClient(clientSocket) + End Sub + + Delegate Sub _AddClient(ByVal client As Socket) + Private Sub AddClient(ByVal client As Socket) ' Neunen Client hinzufügen + If InvokeRequired Then + Invoke(New _AddClient(AddressOf AddClient), client) + Exit Sub + End If + writeToFrmLog(client, "", "Verbindungsaufbau.. ") + Send("ConSuccess", client) ' Der Client bekommt die Nachricht, dass die Verbindung steht... + '... jetzt kann der Client senden, der Server horcht... + clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, + New AsyncCallback(AddressOf OnRecieve), clientSocket) + End Sub + + Private Sub Send(ByVal msg As String, ByVal client As Socket) 'An den Client senden + Dim sendBytes As Byte() = Encoding.BigEndianUnicode.GetBytes(msg) + client.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), client) + End Sub + Private Sub OnSend(ByVal ar As IAsyncResult) + Dim client As Socket = ar.AsyncState + client.EndSend(ar) + End Sub + + Private Sub OnRecieve(ByVal ar As IAsyncResult) ' Wenn ein Task-Befehl vom Client empfangen wurde + Dim client As Socket = ar.AsyncState + Try + client.EndReceive(ar) + Dim bytesRec As Byte() = byteData + Dim message As String = Encoding.BigEndianUnicode.GetString(bytesRec) '.Replace(Convert.ToChar(0), "") + Dim s As String = Read(message, client) + If s <> "" Then Send(s, client) ' Die Aufgabe wird abgearbeitet, der Client bekommt bei Fehler eine Antwort... + Catch ex As Exception + client.Shutdown(SocketShutdown.Both) + client.Close() + End Try + End Sub + Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) + + End Sub + + Delegate Function _Read(ByVal msg As String, client As Socket, messageFile() As Byte, fileName As String) + Private Function Read(ByVal msg As String, client As Socket, Optional messageFile() As Byte = Nothing, Optional fileName As String = "") As String + If InvokeRequired Then + Invoke(New _Read(AddressOf Read), msg, client, messageFile, fileName) + Return "" + End If + + ' writeToFrmLog(client, "testDS", msg) + + msg = msg.Replace(Convert.ToChar(0), "") + ' MsgBox(msg) + If True Then 'msg.Contains("|||") Then ''!!!!!!!!!!!!! NICHT FERTIG + Dim split() As String = msg.Split("|||") + Select Case split(0) + Case "RKSV_DE" 'der Task für die RKSV Signierung wird aufgerufen + 'If Not boolDatenserver Then Me.writeToFrmLog(client, "DATENSERVER", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive" + + If split.Length > 1 Then + Select Case split(1) + Case "VERAG_DE" + writeToFrmLog(client, "testDS", "VERAG_DE") + + '' die eigentliche Funktion wird in einem Tread aufgrufen + 'Dim thread As New Thread(AddressOf SignRKSV) + 'thread.IsBackground = True + 'thread.Start(client) + + ''Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + 'Dim st As New Thread(AddressOf stopThread) + 'st.IsBackground = True + 'Dim param_obj(3) As Object + ''Übergabeparameter des 2. Threads + 'param_obj(0) = thread + 'param_obj(1) = client + 'param_obj(2) = 110 'SEKUNDEN + 'st.Start(param_obj) + + ' Return "Task successful" + Send("Task successful", client) 'Client-Mittelung + + Case "AMBAR" + + writeToFrmLog(client, "testDS", "AMBAR") + + ' die eigentliche Funktion wird in einem Tread aufgrufen + Dim thread As New Thread(AddressOf SignRKSV_AMBAR) + thread.IsBackground = True + thread.Start(client) + + 'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + Dim st As New Thread(AddressOf stopThread) + st.IsBackground = True + Dim param_obj(3) As Object + 'Übergabeparameter des 2. Threads + param_obj(0) = thread + param_obj(1) = client + param_obj(2) = 110 'SEKUNDEN + st.Start(param_obj) + + ' Return "Task successful" + Send("Task successful", client) 'Client-Mittelung + End Select + End If + + + + + Return "" + End Select + 'Else + ' Select Case msg + ' Case "test" 'nur ein Test, des Ergbnis ist immer Positiv + ' writeToFrmLog(client, "test", "test ") + ' ' Return "Task successful" + ' Send("Task successful", client) 'Client-Mittelung + ' Case "initAufschubkonten" 'der Task initAufschubkonten wird aufgerufen + ' ' MsgBox("initAufschubkonten") + ' If Not boolInitAufschub Then Me.writeToFrmLog(client, "initAufschubkonten", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive" + + ' ' die eigentliche Funktion wird in einem Tread aufgrufen + ' Dim thread As New Thread(AddressOf startInitAufschubkonten) + ' thread.IsBackground = True + ' thread.Start(client) + + ' 'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + ' Dim st As New Thread(AddressOf stopThread) + ' st.IsBackground = True + ' Dim param_obj(3) As Object + ' 'Übergabeparameter des 2. Threads + ' param_obj(0) = thread + ' param_obj(1) = client + ' param_obj(2) = 60 + ' st.Start(param_obj) + + ' Return "" + ' Case "FSSAtlasStart" 'der Task initAufschubkonten wird aufgerufen + ' ' MsgBox("initAufschubkonten") + ' If Not boolFSSAtlas Then Me.writeToFrmLog(client, "KASSE_AMBAR", "Abgebrochen - Task nicht aktiv " & msg) : Return "Task inactive" + + ' ' die eigentliche Funktion wird in einem Tread aufgrufen + ' Dim thread As New Thread(AddressOf startFSSAtlas) + ' thread.IsBackground = True + ' thread.Start(client) + + ' 'Ein zweiter Thread kontrolliert, ob die Funktion nach einer gewissen Zeit noch läuft und beendet diese ggf. + ' Dim st As New Thread(AddressOf stopThread) + ' st.IsBackground = True + ' Dim param_obj(3) As Object + ' 'Übergabeparameter des 2. Threads + ' param_obj(0) = thread + ' param_obj(1) = client + ' param_obj(2) = 110 'SEKUNDEN + ' st.Start(param_obj) + + ' Return "" + + ' End Select + End If + Return "Task not found" + Me.writeToFrmLog(client, "", "ERROR: Undefinierter Task: " & msg) + + End Function + + + Sub stopThread(param_obj As Object) 'Stoppt einen Hauptthread nach einer gewissen Anzahl von Sekunden; Übergabeparameter: Object { Tread, clientSocket, SekundenToTimeout } + Thread.Sleep(param_obj(2) * 1000) ' Hier wird soviele Senkunden gewartet, wie in den Übergabeparametern definiert wurde. + If param_obj(0).IsAlive Then + param_obj(0).Abort() ' Wenn der Hauptthread noch immer läuft, wird er jetzt beendet. + Else + Exit Sub + End If + Send("Task timeout", param_obj(1)) 'Client-Mittelung + Me.writeToFrmLog(param_obj(1), "ERROR: Task wurde aufgrund eines Timeouts abgebrochen.") 'Log-Mittelung + End Sub + + + + Function SignRKSV(client As Socket) As Boolean + Me.writeToFrmLog(client, "KASSE_VERAG_DE", "Signierung gestartet...") + + Try + 'SIGNIERUNG"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + Me.writeToFrmLog(client, "KASSE_VERAG_DE", "Signierung beendet (Success)") + Send("Task successful", client) + Return True + Catch ex As Exception + Me.writeToFrmLog(client, "KASSE_VERAG_DE", "ERROR: Fehler Signierung: " & ex.Message) + Send("Task error", client) + Return False + End Try + End Function + + + Function SignRKSV_AMBAR(client As Socket) As Boolean + Me.writeToFrmLog(client, "KASSE_AMBAR", "Signierung gestartet...") + + Try + 'SIGNIERUNG"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + Me.writeToFrmLog(client, "KASSE_AMBAR", "Signierung beendet (Success)") + Send("Task successful", client) + Return True + Catch ex As Exception + Me.writeToFrmLog(client, "KASSE_AMBAR", "ERROR: Fehler Signierung: " & ex.Message) + Send("Task error", client) + Return False + End Try + End Function + + + 'Threadsichere Funktion zum schreiben in die TextBox: + Delegate Sub writeToFrmLogCallback(ByVal client As Socket, ByVal nameTask As String, ByVal text As String) + Public Sub writeToFrmLog(ByVal client As Socket, ByVal nameTask As String, ByVal text As String) + + ' InvokeRequired required compares the thread ID of the + ' calling thread to the thread ID of the creating thread. + ' If these threads are different, it returns true. + If Me.txtLog.InvokeRequired Then + Dim d As New writeToFrmLogCallback(AddressOf writeToFrmLog) + Me.Invoke(d, New Object() {client, nameTask, text}) + Else + Dim remoteIpEndPoint As IPEndPoint = client.RemoteEndPoint + Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & " (" & remoteIpEndPoint.Address.ToString & "): " & text & vbNewLine + If Me.txtLog.Lines.Count > 35 Then + Dim arr As String() = Me.txtLog.Lines + Me.txtLog.Text = "" + For i = arr.Count - 35 To arr.Count - 1 + Me.txtLog.Text &= arr(i) & vbNewLine + Next i + End If + End If + Me.txtLog.SelectionLength = 0 + End Sub + + Public Sub writeToFrmLog(ByVal nameTask As String, ByVal text As String) + Me.txtLog.Text &= Now.ToString("dd.MM.yyyy HH:mm ") & nameTask & ": " & text & vbNewLine + If Me.txtLog.Lines.Count > 35 Then + Dim arr As String() = Me.txtLog.Lines + Me.txtLog.Text = "" + For i = arr.Count - 35 To arr.Count - 1 + Me.txtLog.Text &= arr(i) & vbNewLine + Next i + End If + End Sub + + Private Sub CheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVERAG_DE.CheckedChanged + boolInitAufschub = cbxVERAG_DE.Checked + If cbxVERAG_DE.Checked Then + txtInitAufschubStatus.Text = "läuft" + writeToFrmLog("KASSE_VERAG_DE", "läuft ...") + txtInitAufschubStatus.ForeColor = Color.DarkGreen + Else + txtInitAufschubStatus.Text = "läuft nicht" + writeToFrmLog("KASSE_VERAG_DE", "läuft nicht ...") + txtInitAufschubStatus.ForeColor = Color.DarkRed + End If + + + + End Sub + + Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAMBAR.CheckedChanged + + + boolFSSAtlas = cbxAMBAR.Checked + If cbxAMBAR.Checked Then + txtFSSATLAS.Text = "läuft" + writeToFrmLog("KASSE_AMBAR", "läuft ...") + txtFSSATLAS.ForeColor = Color.DarkGreen + Else + txtFSSATLAS.Text = "läuft nicht" + writeToFrmLog("KASSE_AMBAR", "läuft nicht ...") + txtFSSATLAS.ForeColor = Color.DarkRed + End If + + + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + DIENST_InitSocket() + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'geht nicht + clientSocket.Close() + + If clientSocket.Connected Then + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + End If + clientSocket.Disconnect(True) + + txtInitAufschubStatus.Text = "angehalten" + txtInitAufschubStatus.ForeColor = Color.DarkRed + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + clientSocket.Shutdown(SocketShutdown.Both) + clientSocket.Close() + serverSocket.Shutdown(SocketShutdown.Both) + serverSocket.Close() + DIENST_InitSocket() + End Sub + + + + + + Private Result As Object = Nothing 'Store the worked result of abc() + Private Sub Worker(ByVal state As Object) + Dim are As AutoResetEvent = DirectCast(state, AutoResetEvent) + ' do anything you want here: + + + + + + Dim result As Integer = 0 + 'result = abc(input_val); + + SyncLock Me.Result + Me.Result = result + End SyncLock + are.[Set]() + End Sub + Private Sub method() + + Const TimeOut As Int32 = 5000 + Dim [handles] As WaitHandle() = New WaitHandle() {New AutoResetEvent(False)} + + ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf Worker), [handles](0)) + Dim finished As Boolean = WaitHandle.WaitAll([handles], TimeOut, True) + 'ThreadPool.RegisterWaitForSingleObject () + + If finished Then + ' step 2 + MessageBox.Show("Worker function finished sucessfully, go to Step2") + Else + ' step 3 + MessageBox.Show([String].Format("Worker function time out({0})!, go to Step3", TimeOut)) + End If + End Sub + + + Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked + SplitContainer1.Panel2Collapsed = Not SplitContainer1.Panel2Collapsed + If SplitContainer1.Panel2Collapsed Then + Me.Height = 150 + Else + Me.Height = 620 + End If + End Sub + + + + Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click + + End Sub +End Class \ No newline at end of file diff --git a/UID/ADMIN.vbproj b/UID/ADMIN.vbproj index a7464c5..01e7a40 100644 --- a/UID/ADMIN.vbproj +++ b/UID/ADMIN.vbproj @@ -831,6 +831,8 @@ + + diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index 7149b0f..caae9a7 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -1149,6 +1149,7 @@ Partial Class frmMitarbDetails ' 'picFoto ' + Me.picFoto.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.picFoto.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.picFoto.Cursor = System.Windows.Forms.Cursors.Hand Me.picFoto.Location = New System.Drawing.Point(523, 12) diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index 9cf6b33..4196bc5 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -57,6 +57,7 @@ cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE")) + cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERIMEX", "VERIMEX")) cboDPFirma2.Items.Clear() cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE")) @@ -66,6 +67,7 @@ cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE")) + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERIMEX", "VERIMEX")) cboALIASDomain.Items.Clear() @@ -95,6 +97,7 @@ cboFirma.Items.Add("UNISPED") cboFirma.Items.Add("AMBAR") cboFirma.Items.Add("FRONTOFFICE") + cboFirma.Items.Add("VERIMEX") cboFirma.Items.Add("ALLE") @@ -105,6 +108,7 @@ cboFirmaHaupt.Items.Add("UNISPED") cboFirmaHaupt.Items.Add("AMBAR") cboFirmaHaupt.Items.Add("FRONTOFFICE") + cboFirmaHaupt.Items.Add("VERIMEX") ZOLLDATENBEARB = False @@ -283,10 +287,15 @@ Else cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = mitarbeiter.mit_einstiegsdatum End If - If mitarbeiter.mit_kuendigungsdatum = "" Then - cbxGekuendigt.Checked = False + + + If mitarbeiter.mit_gekuendigt Then + cbxGekuendigt.Checked = True + If mitarbeiter.mit_kuendigungsdatum <> "" Then + datGekuendigtAm.Text = mitarbeiter.mit_kuendigungsdatum + End If Else - cbxGekuendigt.Checked = True : datGekuendigtAm.Text = mitarbeiter.mit_kuendigungsdatum + cbxGekuendigt.Checked = False End If If mitarbeiter.mit_FMZollPersID > 0 Then @@ -313,10 +322,23 @@ cbxTestaccount.Checked = If(mitarbeiter.mit_TESTonly, False) - picFoto.ImageLocation = mitarbeiter.mit_foto + initFoto() + ' picFoto.ImageLocation = mitarbeiter.mit_foto End Sub - + Sub initFoto() + If mitarbeiter.mit_foto_DocId IsNot Nothing Then + Try + picFoto.BackgroundImage = Image.FromFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(mitarbeiter.mit_foto_DocId)) + Catch ex As Exception + picFoto.BackgroundImage = My.Resources.personGray_m + End Try + ElseIf mitarbeiter.mit_geschlecht = "w" Then + picFoto.BackgroundImage = My.Resources.personGray_w + Else + picFoto.BackgroundImage = My.Resources.personGray_m + End If + End Sub Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click Me.Close() End Sub @@ -560,7 +582,8 @@ If cbxEinsteigsDat.Checked Then mitarbeiter.mit_einstiegsdatum = datEinstiegsdatum.Text Else mitarbeiter.mit_einstiegsdatum = "" mitarbeiter.mit_gekuendigt = cbxGekuendigt.Checked If cbxGekuendigt.Checked Then mitarbeiter.mit_kuendigungsdatum = datGekuendigtAm.Text Else mitarbeiter.mit_kuendigungsdatum = "" - If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation + 'If picFoto.ImageLocation <> "" Then mitarbeiter.mit_foto = picFoto.ImageLocation + initFoto() mitarbeiter.mit_TESTonly = cbxTestaccount.Checked End Sub @@ -570,6 +593,31 @@ End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles picFoto.Click + Dim fd2 As Windows.Forms.OpenFileDialog = New Windows.Forms.OpenFileDialog() + + fd2.Title = "Bild auswählen" + ' fd.InitialDirectory = "F:\PROGRAMME\ADMIN_DATA\Fotos_Mitarbeiter\" + fd2.Filter = "Image Files(*.BMP;*.JPG;*.GIF;*.PNG)|*.BMP;*.JPG;*.GIF;*.PNG" + fd2.FilterIndex = 2 + fd2.RestoreDirectory = True + + If fd2.ShowDialog() = DialogResult.OK AndAlso fd2.FileName <> "" Then + + Dim Extension = New IO.FileInfo(fd2.FileName).Extension + Dim docId = -1 + If saveToDS(Extension, fd2.FileName, docId) Then + + mitarbeiter.mit_foto_DocId = docId + Try + picFoto.BackgroundImage = Image.FromFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(mitarbeiter.mit_foto_DocId)) + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End If + End If + Exit Sub + + Dim fd As OpenFileDialog = New OpenFileDialog() Dim strFileName As String @@ -600,6 +648,24 @@ End If End Sub + Public Function saveToDS(Extension, sourcePath, Optional ByRef da_id = -1) As Boolean + + Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing + If da_id > 0 Then + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(da_id) + Else + DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", mitarbeiter.mit_nname & "_" & mitarbeiter.mit_id & Extension, -1, False) + End If + + ' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MITARBEITER", "PERSONAL_FOTOS", "", "", MA.mit_nname & "_" & MA.mit_id, -1, False) + ' MsgBox(DS.da_id) + If Not DS.uploadDataToDATENSERVER(sourcePath,,, False,, False) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False + If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False + da_id = DS.da_id + ' destPath = DS.GET_TOP1_PATH + Return True + End Function + Private Function cut_file(ByVal file As String) As String ' Funktion zum Entfernen der Backslashs / Ordner While file.Contains("\") file = file.Remove(0, 1) End While Return file End Function While file.Contains("\") file = file.Remove(0, 1) diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb index f17ccee..e7e3eb4 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb @@ -39,6 +39,8 @@ Partial Class usrCntlMitarbeiter Me.dgvUNISPED = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.TabPage5 = New System.Windows.Forms.TabPage() Me.dgvAMBAR = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.TabPage6 = New System.Windows.Forms.TabPage() + Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel1 = New System.Windows.Forms.Panel() Me.cbx = New System.Windows.Forms.CheckBox() Me.txtSuche = New System.Windows.Forms.TextBox() @@ -46,8 +48,8 @@ Partial Class usrCntlMitarbeiter Me.Button2 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() Me.Panel3 = New System.Windows.Forms.Panel() - Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.dgvFRONTOFFICE = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.TabPage7 = New System.Windows.Forms.TabPage() + Me.dgvVERIMEX = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel2.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -60,10 +62,12 @@ Partial Class usrCntlMitarbeiter CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage5.SuspendLayout() CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).BeginInit() - Me.Panel1.SuspendLayout() - Me.Panel3.SuspendLayout() Me.TabPage6.SuspendLayout() CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.Panel3.SuspendLayout() + Me.TabPage7.SuspendLayout() + CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Button6 @@ -131,6 +135,7 @@ Partial Class usrCntlMitarbeiter Me.TabControl1.Controls.Add(Me.TabPage4) Me.TabControl1.Controls.Add(Me.TabPage5) Me.TabControl1.Controls.Add(Me.TabPage6) + Me.TabControl1.Controls.Add(Me.TabPage7) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.Location = New System.Drawing.Point(0, 0) Me.TabControl1.Name = "TabControl1" @@ -243,6 +248,27 @@ Partial Class usrCntlMitarbeiter Me.dgvAMBAR.Size = New System.Drawing.Size(875, 616) Me.dgvAMBAR.TabIndex = 25 ' + 'TabPage6 + ' + Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE) + Me.TabPage6.Location = New System.Drawing.Point(4, 22) + Me.TabPage6.Name = "TabPage6" + Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage6.Size = New System.Drawing.Size(881, 622) + Me.TabPage6.TabIndex = 5 + Me.TabPage6.Text = "FRONT-OFFICE" + Me.TabPage6.UseVisualStyleBackColor = True + ' + 'dgvFRONTOFFICE + ' + Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3) + Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE" + Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616) + Me.dgvFRONTOFFICE.TabIndex = 26 + ' 'Panel1 ' Me.Panel1.Controls.Add(Me.cbx) @@ -310,26 +336,26 @@ Partial Class usrCntlMitarbeiter Me.Panel3.Size = New System.Drawing.Size(889, 648) Me.Panel3.TabIndex = 27 ' - 'TabPage6 + 'TabPage7 ' - Me.TabPage6.Controls.Add(Me.dgvFRONTOFFICE) - Me.TabPage6.Location = New System.Drawing.Point(4, 22) - Me.TabPage6.Name = "TabPage6" - Me.TabPage6.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage6.Size = New System.Drawing.Size(881, 622) - Me.TabPage6.TabIndex = 5 - Me.TabPage6.Text = "FRONT-OFFICE" - Me.TabPage6.UseVisualStyleBackColor = True + Me.TabPage7.Controls.Add(Me.dgvVERIMEX) + Me.TabPage7.Location = New System.Drawing.Point(4, 22) + Me.TabPage7.Name = "TabPage7" + Me.TabPage7.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage7.Size = New System.Drawing.Size(881, 622) + Me.TabPage7.TabIndex = 6 + Me.TabPage7.Text = "VERIMEX" + Me.TabPage7.UseVisualStyleBackColor = True ' - 'dgvFRONTOFFICE + 'dgvVERIMEX ' - Me.dgvFRONTOFFICE.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvFRONTOFFICE.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvFRONTOFFICE.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvFRONTOFFICE.Location = New System.Drawing.Point(3, 3) - Me.dgvFRONTOFFICE.Name = "dgvFRONTOFFICE" - Me.dgvFRONTOFFICE.Size = New System.Drawing.Size(875, 616) - Me.dgvFRONTOFFICE.TabIndex = 26 + Me.dgvVERIMEX.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvVERIMEX.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvVERIMEX.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvVERIMEX.Location = New System.Drawing.Point(3, 3) + Me.dgvVERIMEX.Name = "dgvVERIMEX" + Me.dgvVERIMEX.Size = New System.Drawing.Size(875, 616) + Me.dgvVERIMEX.TabIndex = 27 ' 'usrCntlMitarbeiter ' @@ -353,11 +379,13 @@ Partial Class usrCntlMitarbeiter CType(Me.dgvUNISPED, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage5.ResumeLayout(False) CType(Me.dgvAMBAR, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage6.ResumeLayout(False) + CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.Panel3.ResumeLayout(False) - Me.TabPage6.ResumeLayout(False) - CType(Me.dgvFRONTOFFICE, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage7.ResumeLayout(False) + CType(Me.dgvVERIMEX, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -386,4 +414,6 @@ Partial Class usrCntlMitarbeiter Friend WithEvents dgvAMBAR As VERAG_PROG_ALLGEMEIN.MyDatagridview Friend WithEvents TabPage6 As TabPage Friend WithEvents dgvFRONTOFFICE As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents TabPage7 As TabPage + Friend WithEvents dgvVERIMEX As VERAG_PROG_ALLGEMEIN.MyDatagridview End Class diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb index ab4d8e3..d18cf05 100644 --- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb +++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb @@ -39,6 +39,8 @@ Public Class usrCntlMitarbeiter showVERAGATILLA("AMBAR") ElseIf TabControl1.SelectedIndex = 5 Then showVERAGATILLA("FRONTOFFICE") + ElseIf TabControl1.SelectedIndex = 6 Then + showVERAGATILLA("VERIMEX") End If End Sub @@ -147,14 +149,31 @@ Public Class usrCntlMitarbeiter dgvFRONTOFFICE.DataSource = Nothing Else sortDGV(dgvFRONTOFFICE) - 'Eintraege_festlegen() - 'AL: Sortierung nach Ausfahrt (Zeit) - dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending) + 'Eintraege_festlegen() + 'AL: Sortierung nach Ausfahrt (Zeit) + dgvFRONTOFFICE.Sort(dgvFRONTOFFICE.Columns(3), ListSortDirection.Ascending) + + End If + + + ElseIf firma = "VERIMEX" Then + ' dgvATILLA.DataSource = UID.AnzeigeTabelleFirma(sql) + + dgvVERIMEX.SET_SQL(sql, "ADMIN") + dgvVERIMEX.LOAD() + + 'Tabelle Kommt/Geht bereinigen + If dgvVERIMEX.RowCount = 0 Then + dgvVERIMEX.DataSource = Nothing + Else + sortDGV(dgvVERIMEX) + 'Eintraege_festlegen() + 'AL: Sortierung nach Ausfahrt (Zeit) + dgvVERIMEX.Sort(dgvVERIMEX.Columns(3), ListSortDirection.Ascending) End If End If - End Sub @@ -213,6 +232,7 @@ Public Class usrCntlMitarbeiter Case 3 : Firma = "UNISPED" Case 4 : Firma = "AMBAR" Case 5 : Firma = "FRONTOFFICE" + Case 6 : Firma = "VERIMEX" End Select Dim frmMitarbDetails As New frmMitarbDetails(Firma) frmMitarbDetails.Show() @@ -275,6 +295,14 @@ Public Class usrCntlMitarbeiter Tabelle_anzeigen() Case vbNo + End Select + ElseIf TabControl1.SelectedIndex = 5 Then + Select Case MsgBox("Soll der Mitarbeiter '" & dgvVERIMEX.CurrentRow.Cells(1).Value & "' wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?") + Case vbYes + UID.delData(Convert.ToInt32(dgvVERIMEX.CurrentRow.Cells(0).Value)) + Tabelle_anzeigen() + Case vbNo + End Select End If @@ -295,7 +323,7 @@ Public Class usrCntlMitarbeiter - Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick + Private Sub dgvIMEX_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIMEX.CellDoubleClick, dgvUNISPED.CellDoubleClick, dgvAMBAR.CellDoubleClick, dgvVERAG.CellDoubleClick, dgvATILLA.CellDoubleClick, dgvFRONTOFFICE.CellDoubleClick, dgvVERIMEX.CellDoubleClick Me.Cursor = Cursors.WaitCursor Dim frmMitarbDetails As New frmMitarbDetails frmMitarbDetails.mid = sender.CurrentRow.Cells(0).Value @@ -324,6 +352,7 @@ Public Class usrCntlMitarbeiter Case 3 : dgv = dgvUNISPED Case 4 : dgv = dgvAMBAR Case 5 : dgv = dgvFRONTOFFICE + Case 6 : dgv = dgvVERIMEX End Select If e.KeyCode = Keys.Return Then diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb index fabdff5..4efb6d1 100644 --- a/UID/My Project/Resources.Designer.vb +++ b/UID/My Project/Resources.Designer.vb @@ -414,6 +414,26 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property personGray_m() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("personGray_m", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property personGray_w() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("personGray_w", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx index 6e15519..7766c67 100644 --- a/UID/My Project/Resources.resx +++ b/UID/My Project/Resources.resx @@ -301,4 +301,10 @@ + + ..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\personGray_w.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/UID/Programme/frmProgDetails.vb b/UID/Programme/frmProgDetails.vb index cef47f5..f52f879 100644 --- a/UID/Programme/frmProgDetails.vb +++ b/UID/Programme/frmProgDetails.vb @@ -24,6 +24,7 @@ Public Class frmProgDetails If codename = "ROUTINE_MANAGER" Then picIcon.Image = My.Resources.admin_monitoring If codename = "MAIL_SENDER" Then picIcon.Image = My.Resources.admin_monitoring If codename = "DOKU" Then picIcon.Image = My.Resources.doku_sym + If codename = "RKSV_DE" Then picIcon.Image = My.Resources.admin_monitoring diff --git a/UID/Programme/usrCntlProgramme.Designer.vb b/UID/Programme/usrCntlProgramme.Designer.vb index 34caec6..cf2222d 100644 --- a/UID/Programme/usrCntlProgramme.Designer.vb +++ b/UID/Programme/usrCntlProgramme.Designer.vb @@ -97,6 +97,9 @@ Partial Class usrCntlProgramme Me.Label15 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.PictureBox13 = New System.Windows.Forms.PictureBox() + Me.Button11 = New System.Windows.Forms.Button() + Me.Label17 = New System.Windows.Forms.Label() + Me.PictureBox14 = New System.Windows.Forms.PictureBox() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() @@ -110,6 +113,7 @@ Partial Class usrCntlProgramme CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label1 @@ -782,11 +786,43 @@ Partial Class usrCntlProgramme Me.PictureBox13.TabIndex = 100 Me.PictureBox13.TabStop = False ' + 'Button11 + ' + Me.Button11.Location = New System.Drawing.Point(754, 604) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(100, 39) + Me.Button11.TabIndex = 108 + Me.Button11.Text = "Details" + Me.Button11.UseVisualStyleBackColor = True + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label17.Location = New System.Drawing.Point(775, 587) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(61, 13) + Me.Label17.TabIndex = 107 + Me.Label17.Text = "RKSV DE" + ' + 'PictureBox14 + ' + Me.PictureBox14.Image = Global.ADMIN.My.Resources.Resources.admin_monitoring + Me.PictureBox14.Location = New System.Drawing.Point(789, 551) + Me.PictureBox14.Name = "PictureBox14" + Me.PictureBox14.Size = New System.Drawing.Size(34, 33) + Me.PictureBox14.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox14.TabIndex = 106 + Me.PictureBox14.TabStop = False + ' 'usrCntlProgramme ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.Button11) + Me.Controls.Add(Me.Label17) + Me.Controls.Add(Me.PictureBox14) Me.Controls.Add(Me.txtDokuVersionAkt) Me.Controls.Add(Me.Button6) Me.Controls.Add(Me.Button10) @@ -876,6 +912,7 @@ Partial Class usrCntlProgramme CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -954,5 +991,7 @@ Partial Class usrCntlProgramme Friend WithEvents Label15 As System.Windows.Forms.Label Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents PictureBox13 As System.Windows.Forms.PictureBox - + Friend WithEvents Button11 As Button + Friend WithEvents Label17 As Label + Friend WithEvents PictureBox14 As PictureBox End Class diff --git a/UID/Programme/usrCntlProgramme.vb b/UID/Programme/usrCntlProgramme.vb index 878bc64..6b6b3b1 100644 --- a/UID/Programme/usrCntlProgramme.vb +++ b/UID/Programme/usrCntlProgramme.vb @@ -200,4 +200,9 @@ ADMIN.setProgrammVersion("DOKU", txtDokuVersionAkt.Text) init() End Sub + + Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click + frmProgDetails.codename = "RKSV_DE" + frmProgDetails.Show() + End Sub End Class diff --git a/UID/Resources/personGray_m.jpg b/UID/Resources/personGray_m.jpg new file mode 100644 index 0000000000000000000000000000000000000000..6733e6ed12c2df23847a573b07ba105cf15075d6 GIT binary patch literal 4213 zcmd^?c{tQx+rZBl1{Gs8_TBJUqAX+IMv>i=F(FG?nygu}Zz&~N8~h|?mo?c2StDEF zhh&|QEXh{FNQ8IP`##t6{`tOtJ=gWzf1LYspXGb*?|q$fuKPY5Kb!$9hUX2=0|-^5 zAW{GvegJm?jFy&;mKH`wM+bw!=oy(A85tNDS(%uQF|)Co&oomWCiT;!CHh^PpJx{Q&55y8la5aC2}iu|AD@HId%K%ZFtsr++M;R5vAtVQt})j%3zAg}68Z`(X-YJvp@i7vIb0go1%~1bFTBn0Kn{R?(VDckU>&gew1peg!%bY z0@<6!F3cU&?fOdXwkBKY%$}#Lv;x4po6-2Lm3}}gzQRusfMZ!IkDDXt!XNp30RXT( z&294q460h%FCzdryYaI(0$_%M@mYh^F<*}-UI2q{&{?Ef46gk(ML@_=dh^J`xcKf` zAiybdtrY+ThgKjGfB`@~e)K1R`#bFe0E8(RsMH%Oxaa}c{6i{)p4|bWwN!xc>`cfXCuV#OILDu|K3xG7bN8AGt1)mSxBqkO> zms&RiVAf3^7BloB01x*Jps$-qb7i193Sf(dWw?kV;*+DvKhod}F=ggR)9Z}p9%-Oz zK|NW>e?3#byTR`hMZ@yP_z!ET5n=mZ*X;NILw<(@`fnc+>MKSS^P@)m=uU%UzgwES zNBsX6I5jG|EPw_=Lqi8UPDjT8J^B`e21-i@5HMCDS#6e+GMJ0rg2HlV&FpUzb1L7_ zBQLalLdm0X4s7fq3g>)oMqYKS`tPR-q6H2?uP0gC2XK zBF)h!0uAd!101-cT`w4%D3%mZ;Y92xt`%~4$k&i5M5n#J_P$tWzD0ku>o=bviTTop z(i%uTyrXu_hfyry^jNx)f^239Mgz%@%WRbmX&Sa$NiPVC^bwqlop@_-1+Oibl$xt= zUBe^w{o3AHzf(-3GQEwNaUOhgOEJM|uAi*3iB9oR_9>s?GXZYRqUmYFc!Lrp$wY~P ztDG%MVPT)r6&$f9uhDAyluY#$?&~;LQn$7qmRt3+aao<5X-K7&HO}kl0A9XVXtulU z-4v?0V)#yevzh=|$FzNgzv<#gyR8YIiQ4@b?R4S}lb`#gWdqkj6+PA!fh(mPPnva? zYnHD&62~93aa8zTxjvT1gtHd)oalX`mj#>E$XnQft-4SSGE2nQwvwMe)+BW@I}$!+ z=^5cf`E>kPYM&D;u4z`r>XAjv{)$fbx&(`2N<`Bc+4aW>T&7nkV}9{m zQ+G<@-ilr29LkVOo&9ETc8yPbykC(^%aoYw6wezMx%jC3v=K8AKVAaW>6~$#>oD#5 zx~g0|S^Smcf;ZlMGpSs>s@YOsNIq+H2%O$)VmvbLpKJ>@GRX{i{^_D&2Ru=T2kg!n z+9#yeatB5kASJUyu&1LxlK=KHCnio^7joi7uDjDP^m*{PuG!T#`srF9f`YrZ$${{2 zvB%5*2zutwziRbh78?N(6Osu=m>P4u!kYjjI=` zr8tZ^YW(tduF%}b%Gl9>a4eCUAsqtrI1a;bYSJ027B7j=4fXcQ^iZMm#e#h z+(Igm`b7izop2Ijl(dzc@3Whyy}mH`Auxux!Wp=cfv1S?huiYms*b!jg8r0~z{N!K zrw2r7C+D%LH>m5kT)6gY>nEk0L_0hL^E4IFdbIGS#OhA`{JgBLsf2{k?SS*QgH2>= zSYCf(UDcGT_fm(Sj_vMup`$qjYxGlfWnuYkrB@6zt@(vp=5{x%a`rk$Q|07g7;LrY z!cZ?OmPc1O>O2=qVB8gHxJ&799|>ElNb&b^mQvp)wg#Smeh5yy(yZBzHRvbX7eU?S z*1n?7WZI;Q@i%{#|8h#H{mekYd;Li3++^uuasKrn&A*E&r6tP@lo|7c-kS}p?7hEQQl&dtPJV2f;q3||V5gOW zy3%krl}vq^k_A1TC$_ro-a2V^D?4=81APdj5)UqJD3i?gw->O?R(EFVyvRW(-`IVv zHfyMUqg6C#A`#TXSpq(soDWG{Nkt2z4kT@A14}oTNDU~_j5PREL*>u#z`+s?mx5CJ zN?7iXj2-Rg%W9^!uCwXYD_-_7y9(ubsgD!R>h`MF@lRSyS6*IX&lEPDoJiQ#Xjafc z48LCQQ6P2|bJl*Ct2L8W*QuaQ>JAb^8kApXj`X}-9{cpZB~xkL#Bf=qYo31ST4ZAx zBD2r@LPLx9i>l0iPG9Ho(i7235q%5MMWO+3yGr60kL4i6xgZsOy?2&}uP>e0b#)rc zpf4}C$@`nF8%kU%D=s^wMaLIx*-=@=k2>+pvUr-=RvKwD4Aod8QTF1vlvMNV$Ab-( zRhG^>cG?!M(_@zLQCDX%tQK*+6jNJdl9aw}0>&X-G=}YX2LbCjqr~Q06qHBqF?A$4 za1Hs6o|{%vWfZYYseT&KiN~2MIWV;&!k4tjTA@o$yb2Fxx1Gg~QSLH73$(y=GU#@gdZY1#MP})Qvh$NYAc;7gH!MEY541G@C z78nbqXo7M%fz?V_6IJ!Y{)YUEjk0Ok{bI4~G`Ey)FZ{NH!NQ|npD;UUklrhHCb3{) z(ny?LmX{-`aOtie5t;|P#C1mrF^10556W=m*8AT7mN%#+XJw)87LS9EKc2{2fJ zcJ&z<|CywYBm*%QvD6XCUeCM519(4dQ6h-@F>A=_^r5sQ!~*W-DTfK^VruYyDe+Z# z@19=HcTV=D{`I`3SwjS^iPX?NJlE4G#=hj<+<-}n2j$EmI4N)tT&h{e#P6 zgODjFAOYvSI4StTc-E6ACSxwUxHKwBZd3VUtG9B!tw?!jQ*_kAuYm|gdKn+({8u*4 zRi8_q7HwYX65us+X^*>SEAF`*x3I39H>Bo4&~~MD51mlQQNs{*^$r{{e5xF&I1~O| zHEN5)Eu_-6V5r4S7sLhocxbNTCtX*bT+R&=p`5G;QAPU4N9M8Fzl@Aw5}e|*JOmZt zfqGU*RhesQ(d&$W;D5s6$Ec&SE&PK!1FFsa0-w=t4CI{`YH;99iRhVDHg?(X$C!tl^+1GBVw4@QFjATVJ<|)VVK{>^=SraW?0-2CLf|A1_@RB+NzHvLH z3&f6XKb}h|BOf*r%v^=|-2^xTc&%Tg)G62Z1VK^+1`|A~5YPsedt zzs6zP!m-Cy+VfpXXK;0sawIOx&x3cG_tOGg_%agQyXAuaQZOD)mKxN5*YFj^&L@)a zh4$n%K7F2-S^@9>nsPiJASfC4RvmUGz~%HvypV`aBg(FgvP?8b=BD%hs>N;YtLCbm z|MV`V>S-HKTUUZz=V)4f{;}x$@%!iMl8q!yG%_)Ts8h7t-ao_HoL{*4z2<5g=lKU; zNx%#X2IbxLw8fnCmOQ_Ae`UwEz)_sB82eI0WGO``AqtTtS!!%aXoQg{*%QXj*h0lO#aJiA$TpL*4`%G! zShFuP_U!vQhTrG^@PE$hzTXe7r|)y_`&=<5MtU5qf~+7Ah~ts|LsK9(|L-s}05?mV zz;_Uce%(o1+vJh9_GOcI?v73_4j>SMF4C;WnMaHF^sd{_UNL5vGiNCxLG01qHE!RnSrSNFT?e5CDL|N{KxtTucDV?<}rn68H|IJsjk0W6^l2e6}FSGb% zwn%OU<+;m*?%+|#UAJoWMQmyZq$+IKd ztMMvEeh6Y2*Nyv4&&2{Y@5pqA7*;+di4SOo>nnfV^E6dYACCJvEX?HO=GfB4U2B|> zSJSm#_%bWqXrD8oHe)x~==YR*!<7a$fnp8a%1@bl9|tvN?52M#G)3JPx_D>z5PqRT z@aN&323}ik!|T~*o};%owooNB^Xwm}B2I25j{GP0}h83b#H-vrf$yb4{ezTZ^kOt{j ziWya$?#J=tttb3*2eFH2NqSiqN?S^`>r>AS?ktB~H?Iu%%id zU$N;O^kqDqkWaL~$UiC6KvEJ(#WeaRI9F{)1C;M~%CnbCJ|igu z!frxYDi02tFpnJ)kFi_la5S9h(NU4dn~ zn4f_B`~twwpM`*ef+9d+VKJbns02`4j0KdG-~d?cF8~f#3i$QwH=wli58(IjGQgid z<$$uX3P5>zC7`0B3Q$>DT~$>BsIJD>)YJm-_`2HKdO%%WeSJNlzMcpm5Qs!#1CiJW zXlQ6`Y;0<5Yz8znH8(f6G&i@lw6wLhwgcMQ+S}VZ+S@xjIyyT$yE;2bU0oy+shdRV z>F)07>FEXZ_Vxk#`uh9&2KxI41_u5D{{9^V3=R$r4h|0u4G#~G07gbe0i&a1fU&W0 z!1(wCU}9ntFgZCjIZ2+HB9qA!0EIFQn4X@Qo}QhVnVp@T1I*3M1Lo%!01FF?fW^gs zfPep%082~DfaT>Cz{<)hV0Cp3u(q}iSYO`&Y;0@-HaE8bTU*AFUXIdXJnm{17mRrYsO?-ogbK;{=VRK{+vN_!-z`plk8bCJn5$nnh1!{B`!zojoWb(9d#wEJN` ztiH=|jEx%?@*?iym%JNpAy*k?H8quSDxFwVH`JR{r1h%lZGk zlN%}dvM$d1N!n$ZmnfWI8}WAhCkvJQjob_Jcx2u5GnCQxS%Ww)O)o_`H-h%fS6zm-|_>43j* zBFasrMg-sUp{iORzUMuHPXcWse-geNRLYi5FS zpcfw8mYcrr(h!~kp>G};%b_eQdBO~QYNiDut5l*E#ktqywVA;{d)e-)UI*r;=#r8N(t*}R#6CJYcQq!I zp=S5J;`GbH(;M|bYW*8qd>Mw5Q){~9q;TW0z*{y zAJAoLOe;ZoEh8=(Zj4R7?V9_f;XU*$HoBf5gfel38+J+}ND4G(7=)OxLqG_Iv51bW z%6QlqFQ3CagXT0_!5`=)FL+1;znz zJf>$E94E6tG`vUT5nmui?+HgU9xS9WS&Rx2t#5Q0!_YY0O`RPZq5jc+y)IwHx4UJE zJ?6@w7fCZrE&pi}!kb%&5fe^9l(ZIEVa>K99SbO%`fTXuC~rfa5rP%s*NX8Np;n#A zgJr`hEmv0c3cTT1UItEls+vK!AC%UwD6Da)b*N+^kXe-WK9q5sNxQxxyG?SWLF>N# zAzdV_0N=FvGVtgtC(c^nxT+!bTNIP0-Q!N!hu=Bl4H}4v!#>2kZwC=68bKzjoKzj9 zRBOvy%5f!$RW7bYjlYc}b-Bc6*s_SR zwK?@uN6*tJ1QOI@+=!Q{BHel~+NKUmTfgGO=+$$g#Ci9QkAg3DXm#>SP5}E(FDXyE zY;WzL1y!YxX(40L33gvUl+z-A$6nWq!V143mi!dc(- z=ItJR=w030c-u5xoWkOgbT3qNi=TJTSM@6z#+p{;<*GKNtI-p9*_&7C-QO9x>HOtF zaiZFbijxHj*p^9Qe9v_8pA4Od<)y9hhzXlAIMJnoznRBfN8>mA)L^}!D8#cVg7!EW z0aoBLdm{9rP=2?=xzNm`o7>CzhwomGG!f~yyld6j3k^=EbU9jEHRYROMCS6EUy^FIRq0s?VVhwNJR-=8*O* zAZ;VwrYq*(>a*yQ`yA+u2uM(2K?KW+Xkmz0u-nT@OwLjw&-Kqrf4t+3ekrqBW<8V;n5`m)>5w<*)XarXl3y*lQFr2b=swSt!bQ$3mj_T< z9>c8MbTyf{2-s=U)!PIrBOw+^K3RXY_@UOr`xj+x;xbKLTVqFnn@-etDY(XLlTsIZ z6>~4Z=2kV%lENu`rL7h&G4~NS!Um_3T^VEz;y;0tl%vY9;j4Re59-jOSmFXycC<|i zgo@-A+izG<&$r~v8jC4Z9XsvpS8qxDmkhPtsra3|o%QBuG2?d+%2iub)IX!5f}T~$ zjkX!)Dm^_i(eCwJx|VQB5B<>azXbyF2<>1}he{dPY&*xow!nW~(dC)8=4nir1!rV6 z5jlEVdJ#5Mz+&n3BkidY=8w}ou0ihiYi8P-`&8GS#cZRqKVghJUEkE+;4f%_2^ItL zYEGC?qu^+#^{HaoddOyJ<;lS30OQ3ktLv|noaeWqTrTFDXgjzTxSskLSTrD?2bQrw z>OHhTxOZNps&&Ho*P*2Zq~9TkoqQ2<`JV4=Ur9_vs%i{J-pJYWTS8lAnT(+4M@;S? zM?G8958c!P1Fj2Af3k#i7E}EdyHPxKFu|k0@7R^ziC7II#zl=gVuBb#8DuUAwOHpD zkt;rR8d%EhOiq5DM}l0`RO=?-pQ%nT;>pQKTK8U5n@+2q!?l~>owE|&d#RTs_-#^O zNY5#Y-k)oC9;YDO|JhbnLGd<1whd3$=Jj*3t6#Tk{B7tumF*a~GST)GTIXkNWk0Hi z$g9(jceF9+R^LgD47k}S?CQ@H8mV}L-l$2W%`$dnqwpZtx|(eUC14*Db7anuE2U(4 z-Tu?;u!P!F=_My?aJ8TZ5ktY7!TB`!SCa;qWE#;_I&`AO# zDBYIxCMw{dItsd3yPYqejSpM6S>Zv)EzJNGzljJ$$5nzthw?x0Uq8wJ>tNH6#2?oj zM+kC$!6&QPx5FoPT;*Q8g1DnKST3yxHbZ#FURH< zMqP27yLdXXN5{alfIJtTa(!wCG@>K~VOwuM(1gxnr<2N$Qkg0vwj<>yz6MulCxWQK ztl_WUs>wwx%AO~xl@i(D51wBJ2frcmgex!JWpkAC^~=c#^U}g8&vTSSE~_{~ddvbC z3@pccki^7s$_39GY!HnyHHH$NE(&#%9kJr&cr!42fMJltewq_au+SC2w`x-w(F)3B lZHnPD_WcC@S6gRvEinh) 0 Then + Try + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_Id", ncts_Id, , True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ncts_AVISO_einarbeitet", ncts_AVISO_einarbeitet)) + ncts_AVISO_einarbeitet = ncts_AVISO_einarbeitet + Return SQL.doSQLVarList(" UPDATE [tblNCTS_TR] SET ncts_AVISO_einarbeitet=@ncts_AVISO_einarbeitet WHERE ncts_Id=@ncts_Id ", "FMZOLL", , list) + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End If + Return "" + End Function + Public Function getUpdateCmd() As String Try Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 56c2ef4..72bb5dd 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -24,6 +24,9 @@ Partial Class frmStartOptions Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.Button3 = New System.Windows.Forms.Button() + Me.CheckBox4 = New System.Windows.Forms.CheckBox() + Me.Label13 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.tbcntr = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() @@ -66,8 +69,6 @@ Partial Class frmStartOptions Me.Label9 = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.Label10 = New System.Windows.Forms.Label() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxISett_IMEX = New System.Windows.Forms.CheckBox() Me.cbxISett_VERAG = New System.Windows.Forms.CheckBox() Me.cbxISett_TEST = New System.Windows.Forms.CheckBox() @@ -80,8 +81,6 @@ Partial Class frmStartOptions Me.Label7 = New System.Windows.Forms.Label() Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() Me.Label6 = New System.Windows.Forms.Label() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.LinkLabel31 = New System.Windows.Forms.LinkLabel() Me.Label12 = New System.Windows.Forms.Label() @@ -95,7 +94,6 @@ Partial Class frmStartOptions Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -111,6 +109,14 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() + Me.CheckBox5 = New System.Windows.Forms.CheckBox() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button4 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() Me.tbcntr.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -138,6 +144,12 @@ Partial Class frmStartOptions ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.Button4) + Me.pnl.Controls.Add(Me.CheckBox5) + Me.pnl.Controls.Add(Me.Button3) + Me.pnl.Controls.Add(Me.cboBMDUnispedFirma) + Me.pnl.Controls.Add(Me.CheckBox4) + Me.pnl.Controls.Add(Me.Label13) Me.pnl.Controls.Add(Me.CheckBox3) Me.pnl.Controls.Add(Me.tbcntr) Me.pnl.Controls.Add(Me.CheckBox2) @@ -166,9 +178,42 @@ Partial Class frmStartOptions Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(790, 677) + Me.pnl.Size = New System.Drawing.Size(790, 720) Me.pnl.TabIndex = 0 ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(302, 228) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(148, 24) + Me.Button3.TabIndex = 40 + Me.Button3.Text = "Buchungen --> BMD" + Me.Button3.UseVisualStyleBackColor = True + ' + 'CheckBox4 + ' + Me.CheckBox4.AutoSize = True + Me.CheckBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox4.Location = New System.Drawing.Point(457, 255) + Me.CheckBox4.Name = "CheckBox4" + Me.CheckBox4.Size = New System.Drawing.Size(56, 17) + Me.CheckBox4.TabIndex = 41 + Me.CheckBox4.Text = "öffnen" + Me.CheckBox4.UseVisualStyleBackColor = True + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label13.Location = New System.Drawing.Point(299, 212) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(163, 13) + Me.Label13.TabIndex = 39 + Me.Label13.Text = "Routine Manager UNISPED" + ' 'CheckBox3 ' Me.CheckBox3.AutoSize = True @@ -185,7 +230,7 @@ Partial Class frmStartOptions Me.tbcntr.Controls.Add(Me.TabPage2) Me.tbcntr.Controls.Add(Me.TabPage3) Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom - Me.tbcntr.Location = New System.Drawing.Point(0, 254) + Me.tbcntr.Location = New System.Drawing.Point(0, 297) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 Me.tbcntr.Size = New System.Drawing.Size(788, 421) @@ -600,8 +645,6 @@ Partial Class frmStartOptions Me.TabPage2.Controls.Add(Me.Label9) Me.TabPage2.Controls.Add(Me.Button2) Me.TabPage2.Controls.Add(Me.Label10) - Me.TabPage2.Controls.Add(Me.MyComboBox2) - Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr) Me.TabPage2.Controls.Add(Me.cbxISett_IMEX) Me.TabPage2.Controls.Add(Me.cbxISett_VERAG) Me.TabPage2.Controls.Add(Me.cbxISett_TEST) @@ -614,6 +657,8 @@ Partial Class frmStartOptions Me.TabPage2.Controls.Add(Me.Label7) Me.TabPage2.Controls.Add(Me.LinkLabel27) Me.TabPage2.Controls.Add(Me.Label6) + Me.TabPage2.Controls.Add(Me.MyComboBox2) + Me.TabPage2.Controls.Add(Me.txtVRGOutEZA_BezugsNr) Me.TabPage2.Controls.Add(Me.MyComboBox1) Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr) Me.TabPage2.Location = New System.Drawing.Point(4, 22) @@ -679,39 +724,6 @@ Partial Class frmStartOptions Me.Label10.TabIndex = 62 Me.Label10.Text = "VERAG OUT - EZA" ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 230) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 230) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(119, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' 'cbxISett_IMEX ' Me.cbxISett_IMEX.AutoSize = True @@ -849,39 +861,6 @@ Partial Class frmStartOptions Me.Label6.TabIndex = 0 Me.Label6.Text = "VERAG IN" ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Multiline = True - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.LinkLabel31) @@ -974,7 +953,7 @@ Partial Class frmStartOptions ' Me.CheckBox1.AutoSize = True Me.CheckBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.CheckBox1.Location = New System.Drawing.Point(173, 220) + Me.CheckBox1.Location = New System.Drawing.Point(173, 255) Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Size = New System.Drawing.Size(56, 17) Me.CheckBox1.TabIndex = 18 @@ -986,7 +965,7 @@ Partial Class frmStartOptions Me.cbxBu.AutoSize = True Me.cbxBu.Checked = True Me.cbxBu.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxBu.Location = New System.Drawing.Point(87, 220) + Me.cbxBu.Location = New System.Drawing.Point(87, 255) Me.cbxBu.Name = "cbxBu" Me.cbxBu.Size = New System.Drawing.Size(81, 17) Me.cbxBu.TabIndex = 17 @@ -998,7 +977,7 @@ Partial Class frmStartOptions Me.cbxKd.AutoSize = True Me.cbxKd.Checked = True Me.cbxKd.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxKd.Location = New System.Drawing.Point(18, 220) + Me.cbxKd.Location = New System.Drawing.Point(18, 255) Me.cbxKd.Name = "cbxKd" Me.cbxKd.Size = New System.Drawing.Size(63, 17) Me.cbxKd.TabIndex = 16 @@ -1010,45 +989,23 @@ Partial Class frmStartOptions Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button9.Location = New System.Drawing.Point(18, 193) + Me.Button9.Location = New System.Drawing.Point(18, 228) Me.Button9.Name = "Button9" Me.Button9.Size = New System.Drawing.Size(211, 24) Me.Button9.TabIndex = 15 - Me.Button9.Text = "Kunden --> DVO" + Me.Button9.Text = "Kunden / Buchungen --> DVO" Me.Button9.UseVisualStyleBackColor = True ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(15, 177) + Me.Label3.Location = New System.Drawing.Point(15, 212) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(138, 13) Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._value = "10000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(111, 132) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "10000" - ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -1216,12 +1173,136 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' + 'CheckBox5 + ' + Me.CheckBox5.AutoSize = True + Me.CheckBox5.Checked = True + Me.CheckBox5.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.CheckBox5.Location = New System.Drawing.Point(519, 255) + Me.CheckBox5.Name = "CheckBox5" + Me.CheckBox5.Size = New System.Drawing.Size(79, 17) + Me.CheckBox5.TabIndex = 43 + Me.CheckBox5.Text = "Testsystem" + Me.CheckBox5.UseVisualStyleBackColor = True + ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(302, 251) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(148, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 230) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 230) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(119, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Multiline = True + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = "10000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(111, 132) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "10000" + ' + 'Button4 + ' + Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button4.Location = New System.Drawing.Point(449, 228) + Me.Button4.Name = "Button4" + Me.Button4.Size = New System.Drawing.Size(149, 24) + Me.Button4.TabIndex = 44 + Me.Button4.Text = "Stammdaten --> BMD" + Me.Button4.UseVisualStyleBackColor = True + ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(790, 677) + Me.ClientSize = New System.Drawing.Size(790, 720) Me.Controls.Add(Me.pnl) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) @@ -1345,4 +1426,10 @@ Partial Class frmStartOptions Friend WithEvents CheckBox3 As CheckBox Friend WithEvents LinkLabel31 As LinkLabel Friend WithEvents Label12 As Label + Friend WithEvents CheckBox4 As CheckBox + Friend WithEvents Button3 As Button + Friend WithEvents Label13 As Label + Friend WithEvents cboBMDUnispedFirma As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents CheckBox5 As CheckBox + Friend WithEvents Button4 As Button End Class diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index ff03cf8..cd3c555 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -51,6 +51,13 @@ Public Class frmStartOptions MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELEOTEC", "TC")) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF")) + cboBMDUnispedFirma.Items.Clear() + cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Österreich", "21")) + cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Deutschland", "22")) + cboBMDUnispedFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Zollservice (AT)", "23")) + cboBMDUnispedFirma.changeItem("") + Dim PARAM = "" Dim parameter() As String = Environment.GetCommandLineArgs().ToArray If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r Pfad zum programm ist @@ -112,6 +119,12 @@ Public Class frmStartOptions AddHandler f.FormClosed, AddressOf closeMe + Case "MDM_EINARBEITUNG" + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim f As New frmMDMNachrichtenVerarbeitung(True) + Me.Visible = False + f.Show() + AddHandler f.FormClosed, AddressOf closeMe Case "TC_EINARBEITUNG" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim f As New frmTCNachrichtenVerarbeitung(True) @@ -612,7 +625,7 @@ Public Class frmStartOptions getEZB_Waehrungskurse = True Next End If - + VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.UPDATE_Waehrungstabelle(datum) ' Waehrungstabelle befüllen End If @@ -1218,4 +1231,18 @@ Public Class frmStartOptions f.ShowDialog() Me.Visible = True End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False + If cboBMDUnispedFirma._value = "" Then + VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked, False) + Else + VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_Buchungen(cboBMDUnispedFirma._value, CheckBox4.Checked) + End If + End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = CheckBox5.Checked 'False + VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(CheckBox4.Checked,, False) + End Sub End Class \ No newline at end of file