diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index d35ac32a..a3bfefc6 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -1164,6 +1164,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property modaltrans_original() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("modaltrans_original", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 1977ba8e..b851cfd2 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -148,9 +148,6 @@ ..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\verag_Card1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -160,8 +157,8 @@ ..\..\..\data\reloadFinance.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -172,11 +169,14 @@ ..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\dakosy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -196,6 +196,9 @@ ..\Resources\food1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\mic-logo - short.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -256,9 +259,6 @@ ..\Resources\rechnung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\beleg1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -271,6 +271,9 @@ ..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -286,6 +289,9 @@ ..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -295,12 +301,12 @@ ..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -322,6 +328,9 @@ ..\Resources\Plakette.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\locked.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -334,15 +343,15 @@ ..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -382,9 +391,6 @@ ..\Resources\Unisped_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -427,15 +433,15 @@ ..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -445,18 +451,15 @@ ..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\VERAG_AEO_MailSig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -469,15 +472,21 @@ ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -508,8 +517,8 @@ ..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Verag-AG-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -529,15 +538,12 @@ ..\Resources\arrow_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\SBG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pay_card_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -547,6 +553,9 @@ ..\Resources\android-note11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\email1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -556,12 +565,15 @@ ..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\cards.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -601,8 +613,8 @@ ..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -610,9 +622,6 @@ ..\Resources\Unisped_DE_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\list_new_small1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -622,12 +631,15 @@ ..\Resources\plose_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Route4_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\pay_card.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\statistik1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\android-add-contact1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -658,8 +670,8 @@ ..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -685,17 +697,14 @@ ..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 ..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -706,8 +715,8 @@ ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -715,8 +724,8 @@ ..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -727,8 +736,8 @@ ..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -736,20 +745,17 @@ ..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 ..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -757,8 +763,8 @@ ..\Resources\print_rg.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_it.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\road.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -766,14 +772,14 @@ ..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -835,11 +841,8 @@ ..\..\..\data\mahn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\email_print1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -865,11 +868,11 @@ ..\Resources\Einheitspapier-0777_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\food2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -880,7 +883,7 @@ ..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\locked.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\modaltrans_original.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/SDL/Resources/modaltrans_original.png b/SDL/Resources/modaltrans_original.png new file mode 100644 index 00000000..ba6386d8 Binary files /dev/null and b/SDL/Resources/modaltrans_original.png differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index a911168c..2a52dbbd 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -90,7 +90,7 @@ false - SDL_TemporaryKey.pfx + Test.pfx @@ -2698,6 +2698,12 @@ UserControl + + usrCntlModaltrans_NCTS.vb + + + UserControl + usrCntlSGS_NCTS.vb @@ -3982,6 +3988,9 @@ usrCntlMIC_NCTS.vb + + usrCntlModaltrans_NCTS.vb + usrCntlSGS_NCTS.vb @@ -4477,6 +4486,7 @@ + Always diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb index d8b2fcb2..d440c572 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb @@ -144,6 +144,29 @@ End Select + Case "MODALTRANS" + Select Case ART + Case "Export", "Import" ', "NCTS", "ÜT" + + If ART = "ÜT" Then + ART = "T1" + isSTAMMREF = False + STAMMREF = "" '?????????????????????????????? + End If + + If Me.DY Is Nothing Then + Dim usrcntl As New usrCntlModaltrans_NCTS(ART, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF, FIRMA_DY) + usrcntl.Dock = DockStyle.Fill + Me.pnl.Controls.Add(usrcntl) + + Else + 'Dim usrcntl As New usrCntlModaltrans_NCTS(DY, AVISO, SENDUNG, JAHR, , isSTAMMREF, STAMMREF) + 'usrcntl.Dock = DockStyle.Fill + 'Me.pnl.Controls.Add(usrcntl) + End If + + End Select + Case Else '"DAKOSY' diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.Designer.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.Designer.vb new file mode 100644 index 00000000..d2c163a3 --- /dev/null +++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.Designer.vb @@ -0,0 +1,517 @@ + +Partial Class usrCntlModaltrans_NCTS + Inherits System.Windows.Forms.UserControl + + 'UserControl ü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() + Me.components = New System.ComponentModel.Container() + Me.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.btnAllgemein = New System.Windows.Forms.Button() + Me.btnAdressen = New System.Windows.Forms.Button() + Me.btnSicherheit = New System.Windows.Forms.Button() + Me.btnVerschlüsse = New System.Windows.Forms.Button() + Me.btnPositionen = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.pnl = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboDakosyAction = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblBezugsnummer = New System.Windows.Forms.Label() + Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.pic = New System.Windows.Forms.PictureBox() + Me.txtDyMandant = New System.Windows.Forms.Label() + Me.txtDyNiederlassung = New System.Windows.Forms.Label() + Me.MenuStrip = New System.Windows.Forms.MenuStrip() + Me.OptionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer.Panel1.SuspendLayout() + Me.SplitContainer.SuspendLayout() + Me.MyFlowLayoutPanel1.SuspendLayout() + Me.pnl.SuspendLayout() + Me.cntxtBezugsnr.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + Me.MenuStrip.SuspendLayout() + Me.SuspendLayout() + ' + 'SplitContainer + ' + Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.SplitContainer.IsSplitterFixed = True + Me.SplitContainer.Location = New System.Drawing.Point(0, 25) + Me.SplitContainer.Margin = New System.Windows.Forms.Padding(0) + Me.SplitContainer.Name = "SplitContainer" + Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer.Panel1 + ' + Me.SplitContainer.Panel1.Controls.Add(Me.MyFlowLayoutPanel1) + Me.SplitContainer.Panel1.Controls.Add(Me.pnl) + ' + 'SplitContainer.Panel2 + ' + Me.SplitContainer.Panel2.BackColor = System.Drawing.Color.WhiteSmoke + Me.SplitContainer.Size = New System.Drawing.Size(934, 687) + Me.SplitContainer.SplitterDistance = 72 + Me.SplitContainer.SplitterWidth = 1 + Me.SplitContainer.TabIndex = 0 + ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.WhiteSmoke + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAllgemein) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnAdressen) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSicherheit) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnVerschlüsse) + Me.MyFlowLayoutPanel1.Controls.Add(Me.btnPositionen) + Me.MyFlowLayoutPanel1.Controls.Add(Me.Button5) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 0) + Me.MyFlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(1) + Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(573, 72) + Me.MyFlowLayoutPanel1.TabIndex = 0 + ' + 'btnAllgemein + ' + Me.btnAllgemein.BackColor = System.Drawing.Color.SteelBlue + Me.btnAllgemein.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnAllgemein.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAllgemein.ForeColor = System.Drawing.SystemColors.ControlLightLight + Me.btnAllgemein.Image = Global.SDL.My.Resources.Resources.android_note12 + Me.btnAllgemein.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAllgemein.Location = New System.Drawing.Point(2, 2) + Me.btnAllgemein.Margin = New System.Windows.Forms.Padding(2) + Me.btnAllgemein.Name = "btnAllgemein" + Me.btnAllgemein.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3) + Me.btnAllgemein.Size = New System.Drawing.Size(75, 67) + Me.btnAllgemein.TabIndex = 0 + Me.btnAllgemein.Text = "Allgemein" + Me.btnAllgemein.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnAllgemein.UseVisualStyleBackColor = False + ' + 'btnAdressen + ' + Me.btnAdressen.BackColor = System.Drawing.Color.White + Me.btnAdressen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnAdressen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAdressen.Image = Global.SDL.My.Resources.Resources.house1 + Me.btnAdressen.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAdressen.Location = New System.Drawing.Point(81, 2) + Me.btnAdressen.Margin = New System.Windows.Forms.Padding(2) + Me.btnAdressen.Name = "btnAdressen" + Me.btnAdressen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3) + Me.btnAdressen.Size = New System.Drawing.Size(75, 67) + Me.btnAdressen.TabIndex = 1 + Me.btnAdressen.Text = "Adressen" + Me.btnAdressen.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnAdressen.UseVisualStyleBackColor = False + ' + 'btnSicherheit + ' + Me.btnSicherheit.BackColor = System.Drawing.Color.White + Me.btnSicherheit.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnSicherheit.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSicherheit.Image = Global.SDL.My.Resources.Resources.sicherheit1 + Me.btnSicherheit.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSicherheit.Location = New System.Drawing.Point(160, 2) + Me.btnSicherheit.Margin = New System.Windows.Forms.Padding(2) + Me.btnSicherheit.Name = "btnSicherheit" + Me.btnSicherheit.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3) + Me.btnSicherheit.Size = New System.Drawing.Size(81, 67) + Me.btnSicherheit.TabIndex = 2 + Me.btnSicherheit.Text = "Sicherheit" + Me.btnSicherheit.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSicherheit.UseVisualStyleBackColor = False + Me.btnSicherheit.Visible = False + ' + 'btnVerschlüsse + ' + Me.btnVerschlüsse.BackColor = System.Drawing.Color.White + Me.btnVerschlüsse.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnVerschlüsse.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVerschlüsse.Image = Global.SDL.My.Resources.Resources.seal3 + Me.btnVerschlüsse.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnVerschlüsse.Location = New System.Drawing.Point(245, 2) + Me.btnVerschlüsse.Margin = New System.Windows.Forms.Padding(2) + Me.btnVerschlüsse.Name = "btnVerschlüsse" + Me.btnVerschlüsse.Padding = New System.Windows.Forms.Padding(0, 6, 0, 3) + Me.btnVerschlüsse.Size = New System.Drawing.Size(81, 67) + Me.btnVerschlüsse.TabIndex = 3 + Me.btnVerschlüsse.Text = "Verschlüsse" + Me.btnVerschlüsse.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnVerschlüsse.UseVisualStyleBackColor = False + Me.btnVerschlüsse.Visible = False + ' + 'btnPositionen + ' + Me.btnPositionen.BackColor = System.Drawing.Color.White + Me.btnPositionen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnPositionen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnPositionen.Image = Global.SDL.My.Resources.Resources.list_new_small2 + Me.btnPositionen.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnPositionen.Location = New System.Drawing.Point(330, 2) + Me.btnPositionen.Margin = New System.Windows.Forms.Padding(2) + Me.btnPositionen.Name = "btnPositionen" + Me.btnPositionen.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3) + Me.btnPositionen.Size = New System.Drawing.Size(81, 67) + Me.btnPositionen.TabIndex = 4 + Me.btnPositionen.Text = "Positionen" + Me.btnPositionen.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnPositionen.UseVisualStyleBackColor = False + ' + 'Button5 + ' + Me.Button5.BackColor = System.Drawing.Color.White + Me.Button5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Image = Global.SDL.My.Resources.Resources.android_note12 + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button5.Location = New System.Drawing.Point(415, 2) + Me.Button5.Margin = New System.Windows.Forms.Padding(2) + Me.Button5.Name = "Button5" + Me.Button5.Padding = New System.Windows.Forms.Padding(0, 12, 0, 3) + Me.Button5.Size = New System.Drawing.Size(81, 67) + Me.Button5.TabIndex = 5 + Me.Button5.Text = "Referenzen" + Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.Button5.UseVisualStyleBackColor = False + Me.Button5.Visible = False + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnl.Controls.Add(Me.Label8) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.cboStammreferenz) + Me.pnl.Controls.Add(Me.cboDakosyAction) + Me.pnl.Controls.Add(Me.Button1) + Me.pnl.Controls.Add(Me.Label4) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Right + Me.pnl.Location = New System.Drawing.Point(573, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(361, 72) + Me.pnl.TabIndex = 1 + ' + 'Label8 + ' + Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(8, 34) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(60, 13) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "Rohmasse:" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label7 + ' + Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) + Me.Label7.Location = New System.Drawing.Point(73, 31) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(122, 18) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "0 kg" + Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label6 + ' + Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(8, 51) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(57, 13) + Me.Label6.TabIndex = 12 + Me.Label6.Text = "Stammref.:" + Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboStammreferenz + ' + Me.cboStammreferenz._allowedValuesFreiText = Nothing + Me.cboStammreferenz._allowFreiText = False + Me.cboStammreferenz._value = "" + Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboStammreferenz.FormattingEnabled = True + Me.cboStammreferenz.Location = New System.Drawing.Point(66, 48) + Me.cboStammreferenz.Name = "cboStammreferenz" + Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21) + Me.cboStammreferenz.TabIndex = 11 + ' + 'cboDakosyAction + ' + Me.cboDakosyAction._allowedValuesFreiText = Nothing + Me.cboDakosyAction._allowFreiText = False + Me.cboDakosyAction._value = "" + Me.cboDakosyAction.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboDakosyAction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboDakosyAction.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboDakosyAction.FormattingEnabled = True + Me.cboDakosyAction.Location = New System.Drawing.Point(200, 48) + Me.cboDakosyAction.Name = "cboDakosyAction" + Me.cboDakosyAction.Size = New System.Drawing.Size(158, 21) + Me.cboDakosyAction.TabIndex = 1 + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button1.Location = New System.Drawing.Point(200, 5) + Me.Button1.Margin = New System.Windows.Forms.Padding(2) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(159, 42) + Me.Button1.TabIndex = 6 + Me.Button1.Text = "An MT senden -->" + Me.Button1.UseVisualStyleBackColor = False + ' + 'Label4 + ' + Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(8, 19) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(67, 13) + Me.Label4.TabIndex = 9 + Me.Label4.Text = "Packstücke:" + Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label5 + ' + Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) + Me.Label5.Location = New System.Drawing.Point(73, 16) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(122, 18) + Me.Label5.TabIndex = 10 + Me.Label5.Text = "0 Pk" + Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label2 + ' + Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(8, 4) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(59, 13) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "Positionen:" + Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label3 + ' + Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold) + Me.Label3.Location = New System.Drawing.Point(103, 1) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(92, 18) + Me.Label3.TabIndex = 8 + Me.Label3.Text = "1" + Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label1 + ' + Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label1.AutoSize = True + Me.Label1.BackColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(581, 7) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Bezugsnummer:" + ' + 'lblBezugsnummer + ' + Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblBezugsnummer.BackColor = System.Drawing.Color.White + Me.lblBezugsnummer.ContextMenuStrip = Me.cntxtBezugsnr + Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblBezugsnummer.Location = New System.Drawing.Point(738, 1) + Me.lblBezugsnummer.Name = "lblBezugsnummer" + Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) + Me.lblBezugsnummer.TabIndex = 6 + Me.lblBezugsnummer.Text = "4800/000000/17 AAA" + Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'cntxtBezugsnr + ' + Me.cntxtBezugsnr.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueBezugsnummerVergebenToolStripMenuItem}) + Me.cntxtBezugsnr.Name = "cntxtBezugsnr" + Me.cntxtBezugsnr.Size = New System.Drawing.Size(239, 26) + Me.cntxtBezugsnr.Text = "Bezugsnr" + ' + 'NeueBezugsnummerVergebenToolStripMenuItem + ' + Me.NeueBezugsnummerVergebenToolStripMenuItem.Name = "NeueBezugsnummerVergebenToolStripMenuItem" + Me.NeueBezugsnummerVergebenToolStripMenuItem.Size = New System.Drawing.Size(238, 22) + Me.NeueBezugsnummerVergebenToolStripMenuItem.Text = "neue Bezugsnummer vergeben" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.pic) + Me.Panel1.Controls.Add(Me.txtDyMandant) + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Controls.Add(Me.txtDyNiederlassung) + Me.Panel1.Controls.Add(Me.lblBezugsnummer) + Me.Panel1.Controls.Add(Me.MenuStrip) + 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(934, 25) + Me.Panel1.TabIndex = 1 + ' + 'pic + ' + Me.pic.BackColor = System.Drawing.Color.White + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.modaltrans_original + Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pic.Location = New System.Drawing.Point(217, 0) + Me.pic.Name = "pic" + Me.pic.Size = New System.Drawing.Size(100, 24) + Me.pic.TabIndex = 20 + Me.pic.TabStop = False + ' + 'txtDyMandant + ' + Me.txtDyMandant.BackColor = System.Drawing.Color.White + Me.txtDyMandant.Location = New System.Drawing.Point(443, 7) + Me.txtDyMandant.Name = "txtDyMandant" + Me.txtDyMandant.Size = New System.Drawing.Size(48, 13) + Me.txtDyMandant.TabIndex = 19 + Me.txtDyMandant.Text = "VERG" + Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'txtDyNiederlassung + ' + Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White + Me.txtDyNiederlassung.Location = New System.Drawing.Point(497, 7) + Me.txtDyNiederlassung.Name = "txtDyNiederlassung" + Me.txtDyNiederlassung.Size = New System.Drawing.Size(63, 13) + Me.txtDyNiederlassung.TabIndex = 18 + Me.txtDyNiederlassung.Text = "SUB" + ' + 'MenuStrip + ' + Me.MenuStrip.BackColor = System.Drawing.Color.White + Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OptionenToolStripMenuItem}) + Me.MenuStrip.Location = New System.Drawing.Point(0, 0) + Me.MenuStrip.Name = "MenuStrip" + Me.MenuStrip.Size = New System.Drawing.Size(934, 24) + Me.MenuStrip.TabIndex = 0 + ' + 'OptionenToolStripMenuItem + ' + Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem}) + Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem" + Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20) + Me.OptionenToolStripMenuItem.Text = "Optionen" + ' + 'SpeichernToolStripMenuItem + ' + Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem" + Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.SpeichernToolStripMenuItem.Text = "Speichern" + ' + 'LadenToolStripMenuItem + ' + Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem" + Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22) + Me.LadenToolStripMenuItem.Text = "Laden ..." + ' + 'usrCntlModaltrans_NCTS + ' + 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.SplitContainer) + Me.Controls.Add(Me.Panel1) + Me.Name = "usrCntlModaltrans_NCTS" + Me.Size = New System.Drawing.Size(934, 712) + Me.SplitContainer.Panel1.ResumeLayout(False) + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer.ResumeLayout(False) + Me.MyFlowLayoutPanel1.ResumeLayout(False) + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.cntxtBezugsnr.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + Me.MenuStrip.ResumeLayout(False) + Me.MenuStrip.PerformLayout() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents SplitContainer As System.Windows.Forms.SplitContainer + Friend WithEvents MyFlowLayoutPanel1 As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel + Friend WithEvents btnAllgemein As System.Windows.Forms.Button + Friend WithEvents btnAdressen As System.Windows.Forms.Button + Friend WithEvents btnSicherheit As System.Windows.Forms.Button + Friend WithEvents btnVerschlüsse As System.Windows.Forms.Button + Friend WithEvents btnPositionen As System.Windows.Forms.Button + Friend WithEvents Button5 As System.Windows.Forms.Button + Friend WithEvents pnl As System.Windows.Forms.Panel + Friend WithEvents Button1 As System.Windows.Forms.Button + Friend WithEvents Label5 As System.Windows.Forms.Label + Friend WithEvents lblBezugsnummer As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Panel1 As System.Windows.Forms.Panel + Friend WithEvents MenuStrip As System.Windows.Forms.MenuStrip + Friend WithEvents OptionenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents SpeichernToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents LadenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents cboDakosyAction As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cntxtBezugsnr As System.Windows.Forms.ContextMenuStrip + Friend WithEvents NeueBezugsnummerVergebenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtDyMandant As System.Windows.Forms.Label + Friend WithEvents txtDyNiederlassung As System.Windows.Forms.Label + Friend WithEvents Label4 As Label + Friend WithEvents Label7 As Label + Friend WithEvents Label8 As Label + Friend WithEvents pic As PictureBox +End Class diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.resx b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.resx new file mode 100644 index 00000000..0e5e2b9b --- /dev/null +++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + 17, 17 + + + 145, 17 + + \ No newline at end of file diff --git a/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.vb b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.vb new file mode 100644 index 00000000..e720ddc8 --- /dev/null +++ b/SDL/ZOLLSYSTEM/MODALTRANS/usrCntlModaltrans_NCTS.vb @@ -0,0 +1,613 @@ +Imports DAKOSY_Worker +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange +Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat + +Public Class usrCntlModaltrans_NCTS + + Property ALLG As usrCntlATLAS_NCTS_Allg + Property ADRESSEN As usrCntlATLAS_ncts_Adressen + 'Property SICHERHEIT As usrCntlATLAS_NCTS_Sicherheit + Property POSITIONEN As usrCntlATLAS_NCTS_Positionen + 'Property VERSCHLUESSE As usrCntlATLAS_NCTS_Verschluesse + Property Jahr2Stellig As Integer + Property zusatz As String + Property BezugsNr As String = "" + Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso + Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen + Property sendToModaltrans = False + Property isSTAMMREF As Boolean = False ' Wenn das Formular als Stammreferenz bearbeitet wird + Property STAMMREF As String = "" ' Wenn eine Stammrefereenz als Grundlage dient + + Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1") + + Dim ncts_OUT As VERAG_PROG_ALLGEMEIN.cNCTS_TR = Nothing + 'Dim DY_ANM As cDakosy_Zollanmeldungen = Nothing + + Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "") + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + + Me.Jahr2Stellig = Jahr2Stellig + Me.zusatz = zusatz + + Me.AVISO = AVISO + Me.SENDUNG = SENDUNG + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + + 'DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID) + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + + + + Sub New(ART As String, Aviso As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, Jahr2Stellig As Integer, Optional zusatz As String = "", Optional isSTAMMREF As Boolean = False, Optional STAMMREF As String = "", Optional FIRMA_DY As String = "") + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.cDy_ART = If(ART = "NCTS", "T1", ART) + + Me.AVISO = Aviso + Me.SENDUNG = SENDUNG + Me.isSTAMMREF = isSTAMMREF + Me.STAMMREF = STAMMREF + + Me.Jahr2Stellig = Jahr2Stellig + Me.zusatz = zusatz + If FIRMA_DY <> "" Then Me.FIRMA_DY = FIRMA_DY + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + + Function getBezugsnr(ByRef BezugsNr) + Dim BezugsNrTmp = "" + Select Case FIRMA_DY + Case "UNISPED" + If If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then + BezugsNrTmp = SENDUNG.tblSnd_DakosyRef + Else + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr + End If + Case Else + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig + End Select + BezugsNr = BezugsNrTmp + zusatz = "A" + 'Soloagne bis die Bezugsnummer noch nicht existiert + While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing + BezugsNr = BezugsNrTmp & "/" & zusatz + + If zusatz.Length = 1 Then + zusatz = Chr(Asc(zusatz.ToString) + 1) + Else + zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1) + End If + + If zusatz = "Z" Then zusatz = "AA" + End While + lblBezugsnummer.Text = BezugsNr + Return BezugsNr + End Function + + Private Sub usrCntlATLAS_Load(sender As Object, e As EventArgs) Handles Me.Load + 'MsgBox("LOAD") + + cboDakosyAction.Items.Clear() + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neuen Datensatz erstellen", DY_ObjektAktion.OBJ_CREATE)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vohr. DS ändern", DY_ObjektAktion.OBJ_CHANGE)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorh. DS stornieren", DY_ObjektAktion.OBJ_CANCEL)) + cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND)) + cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE) + + Select Case FIRMA_DY + Case "VERAG" : txtDyMandant.Text = "VERG" + txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" + Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED" + Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME" + Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" + End Select + + + cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) + cboStammreferenz.changeItem("") + + 'SICHERHEIT = New usrCntlATLAS_NCTS_Sicherheit(ncts_OUT, FIRMA_DY) + 'VERSCHLUESSE = New usrCntlATLAS_NCTS_Verschluesse() 'ncts_OUT) + ADRESSEN = New usrCntlATLAS_ncts_Adressen(ncts_OUT, FIRMA_DY) ') + ALLG = New usrCntlATLAS_NCTS_Allg(ncts_OUT) + POSITIONEN = New usrCntlATLAS_NCTS_Positionen(ncts_OUT) + + If isSTAMMREF Then + Me.BezugsNr = "STAMMREFERENZ" + If ncts_OUT Is Nothing Then ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR() + ncts_OUT.ncts_ObjectName = BezugsNr + Else + If ncts_OUT Is Nothing Then ' NEUE ZOLLANMELDUNG + 'Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY) + Dim Stammreferenz = Nothing + 'If f.ShowDialog(Me) Then + 'Stammreferenz = f.STAMMREF + 'End If + Try + + BezugsNr = getBezugsnr(BezugsNr) + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByBezugsNr(BezugsNr, True) + If ncts_OUT Is Nothing Then + 'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist + 'ncts_OUT = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist! + + + If ncts_OUT IsNot Nothing Then + 'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben + ncts_OUT.ncts_dyaAnmID = -1 + ncts_OUT.ncts_Id = -1 + Else + ncts_OUT = New VERAG_PROG_ALLGEMEIN.cNCTS_TR() + End If + + + 'loaddataFromAVISO(ncts_OUT) + cboStammreferenz.changeItem(Stammreferenz) + + + End If + 'ncts_OUT + + Else + ' ncts_OUT is ot nothing + Me.BezugsNr = ncts_OUT.ncts_ObjectName + 'MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name) + + End If + End If + If If(ncts_OUT.ncts_firma, "") = "" Then If FIRMA_DY <> "" Then ncts_OUT.ncts_firma = FIRMA_DY + + If If(Me.cDy_ART, "") <> "" Then + 'Muss noch überschrieben werdne, da sonst Art von Stammref hergenommen wird... + ncts_OUT.ncts_ArtAnmeldung = Me.cDy_ART + Else + 'Wenn keine Art --> T1 + If ncts_OUT.ncts_ArtAnmeldung Is Nothing Or ncts_OUT.ncts_ArtAnmeldung = "" Then + ncts_OUT.ncts_ArtAnmeldung = "T1" + End If + End If + + + 'hinzufügen, damit alle Controls richtig geladen und initialisiert werden:s + 'Me.SplitContainer.Panel2.Controls.Add(SICHERHEIT) + 'Me.SplitContainer.Panel2.Controls.Add(VERSCHLUESSE) + Me.SplitContainer.Panel2.Controls.Add(ALLG) + Me.SplitContainer.Panel2.Controls.Add(POSITIONEN) + Me.SplitContainer.Panel2.Controls.Add(ADRESSEN) + + ' MsgBox(ncts_OUT.ncts_Hauptverpflichteter_Name) + 'Werte setzen: + 'SICHERHEIT.setValues_TR(ncts_OUT.ncts_SICHERHEITSANGABEN) + 'VERSCHLUESSE.setValues_TR(ncts_OUT) + ADRESSEN.setValues_TR(ncts_OUT) + ALLG.setValues(ncts_OUT) + POSITIONEN.setValues_TR(ncts_OUT) + + If If(ncts_OUT.ncts_Stammreferenz, "") <> "" Then cboStammreferenz.changeItem(ncts_OUT.ncts_Stammreferenz) + + 'Controls wieder entfernen: + Me.SplitContainer.Panel2.Controls.Clear() + + + ' If ALLG.txtKennnummer.Text = "" Then ALLG.txtKennnummer.Text = BezugsNr + + + + ' ADRESSEN.CreateControl() + For Each c In MyFlowLayoutPanel1.Controls + If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then + AddHandler DirectCast(c, System.Windows.Forms.Button).Click, AddressOf buttonClick + End If + Next + + SplitContainer.Panel2.Controls.Add(ALLG) + lblBezugsnummer.Text = BezugsNr + + + + + ALLG.Dock = DockStyle.Fill + ADRESSEN.Dock = DockStyle.Fill + POSITIONEN.Dock = DockStyle.Fill + 'SICHERHEIT.Dock = DockStyle.Fill + 'VERSCHLUESSE.Dock = DockStyle.Fill + + ' + ' + AddHandler POSITIONEN.RohmasseChanged, Sub(rohmasse, packstuecke) + Label5.Text = packstuecke.ToString("N0") & " Pk" + Label7.Text = rohmasse.ToString("N2") & " kg" + + End Sub + AddHandler POSITIONEN.PosAnzChanged, Sub(anz) + Label3.Text = anz + End Sub + + If isSTAMMREF Then + Button1.Visible = False + cboDakosyAction.Visible = False + lblBezugsnummer.Text = "STAMMREFERENZ" + lblBezugsnummer.ForeColor = Color.Red + End If + + + If sendToModaltrans Then + + Try + Me.Button1.PerformClick() + Me.FindForm.Close() + Catch + End Try + End If + Try + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_AVISO_Edit", "AVISO") Then + Me.FindForm.Close() + End If + Catch + End Try + End Sub + + Sub buttonClick(sender As Object, e As EventArgs) 'HANDLED + Dim btn As System.Windows.Forms.Button = DirectCast(sender, System.Windows.Forms.Button) + + For Each c In MyFlowLayoutPanel1.Controls + If c.GetType.ToString = GetType(System.Windows.Forms.Button).ToString Then + DirectCast(c, System.Windows.Forms.Button).BackColor = Drawing.Color.White + DirectCast(c, System.Windows.Forms.Button).ForeColor = Drawing.Color.Black + End If + Next + + btn.BackColor = Drawing.Color.SteelBlue 'Drawing.Color.FromArgb(0, 54, 128) + btn.ForeColor = Drawing.Color.White + + + SplitContainer.Panel2.Controls.Clear() + + If btn Is btnAllgemein Then + SplitContainer.Panel2.Controls.Add(ALLG) + ElseIf btn Is btnAdressen Then + SplitContainer.Panel2.Controls.Add(ADRESSEN) + 'ElseIf btn Is btnSicherheit Then + ' SplitContainer.Panel2.Controls.Add(SICHERHEIT) + ' ElseIf btn Is btnVerschlüsse Then + ' SplitContainer.Panel2.Controls.Add(VERSCHLUESSE) + ElseIf btn Is btnPositionen Then + SplitContainer.Panel2.Controls.Add(POSITIONEN) + End If + End Sub + + + Sub loaddataFromAVISO(ByRef cdy As VERAG_PROG_ALLGEMEIN.cOregonNCTs_DeclarationData) + Try + + '==> VORBLENDUNG: + + cdy.auto_send = False 'If the declaration is created correctly, and if it is desired to be sent directly to the customs system after this process, it should be set as "true". + + cdy.service_code = "" 'Options: - "chief" - "cds" + cdy.doc_type = "" 'EXA, EXD, IMA, IMD declaration type code + cdy.declaration_type = cDy_ART + cdy.commercial_ref = BezugsNr + cdy.ducr = "" + cdy.mucr = "" + cdy.ducr_part = "" + + + + + + cdy.export_country_id = "" + + cdy.multiple_consignor = "" + + cdy.invoice_amount = "" + cdy.invoice_curr = "" + cdy.goods_location = "" + cdy.border_transport_type = "" + cdy.border_vehicle_code = "" + cdy.border_vehicle_coun = "" + cdy.inland_transport_type = "" + cdy.container_no = "" + cdy.gvms_interested = "" + cdy.freight_amount = "" + cdy.freight_curr = "" + cdy.payment_method = "" + cdy.total_packages = "" + cdy.nature_of_transaction = "" + cdy.premises_code = "" + cdy.first_dan_no = "" + cdy.second_dan_no = "" + cdy.insurance_amount = "" + cdy.insurance_curr = "" + cdy.other_amounts = "" + cdy.other_amounts_curr = "" + cdy.apportment_indicator = "" + cdy.total_gross_weight = "" + cdy.total_net_weight = "" + cdy.airfreight_cost = "" + cdy.vat_adjustment = "" + cdy.vat_adjustment_curr = "" + cdy.discount_amount = "" + cdy.discount_curr = "" + cdy.discount_rate = "" + cdy.incoterm = "" + cdy.incoterm_location = "" + cdy.trader_ref = "" + cdy.arrival_transport_type = "" + cdy.guarantee_code = "" + cdy.guarantee_reference = "" + + + If AVISO IsNot Nothing Then + 'cdy.ncts_Befoerderungsmittel_KennzeichenAbgang = AVISO.LKW_Nr + 'cdy.ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode = AVISO.LKW_Nationalitaet + 'cdy.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = AVISO.LKW_Nr + 'cdy.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = AVISO.LKW_Nationalitaet + + End If + + cdy.consignee_eori = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_EORI) + cdy.consignee_name = cProgramFunctions.isLeerNothing(SENDUNG.tblSnd_NCTSVerzollungsadresse) + cdy.consignee_address = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Strasse) + cdy.consignee_postcode = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_PLZ) + cdy.consignee_city_name = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Ort) + cdy.consignee_country_id = cProgramFunctions.isLeerNothing(SENDUNG.NCTS_Verzollungsadresse_Land) + + If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then + Dim AD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cAdressen(AVISO.Frächter_KdNr) ' Befoerderer + Dim KD_Befoerderer As New VERAG_PROG_ALLGEMEIN.cKunde(AVISO.Frächter_KdNr) ' Befoerderer + cdy.carrier_eori = KD_Befoerderer.EORITIN + If KD_Befoerderer.EORITIN IsNot Nothing Then + 'cdy.ncts_SumA_Befoerderer_NLNR = KD_Befoerderer.EORITIN_NL + End If + cdy.carrier_name = (If(AD_Befoerderer.Name_1, "") & " " & If(AD_Befoerderer.Name_2, "")).Trim + cdy.carrier_address = AD_Befoerderer.Straße + cdy.carrier_postcode = AD_Befoerderer.PLZ + cdy.carrier_city_name = AD_Befoerderer.Ordnungsbegriff + cdy.carrier_country_id = cProgramFunctions.getISO2Land(AD_Befoerderer.LandKz) + Else + cdy.carrier_name = If(AVISO.Frächter, "") + End If + + + + If SENDUNG IsNot Nothing Then + + Dim FilialeAktFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(SENDUNG.FilialenNr,, "") + + + cdy.declarant_eori = FilialeAktFirma + cdy.declarant_name = "" + cdy.declarant_address = "" + cdy.declarant_city_name = "" + cdy.declarant_country_id = "" + cdy.declarant_postcode = "" + cdy.declarant_rep = "" + + + + Dim p As VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute = Nothing + If SENDUNG.tblSnd_anzahlPOS > 0 Then + p = Nothing 'cdy.ncts_WARENPOS(0) + Else + p = New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute + p.declarationDataID = cdy.id + p.SAVE() + End If + p.commodity = SENDUNG.tblSnd_Warenbezeichnung + If SENDUNG.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Colli) Then + Dim pk As New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute + pk.pack_count = SENDUNG.tblSnd_Colli + pk.pack_type = "PKG" + pk.goods_attribute_id = p.id + pk.SAVE() + End If + p.net_wg = SENDUNG.tblSnd_Gewicht + p.invoice_amount = SENDUNG.tblSnd_Warenwert + p.invoice_curr = SENDUNG.tblSnd_WarenwertWaehrung + + + If SENDUNG.tblSnd_AbsenderKdNr > 0 Then + Dim adVERSENDER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_AbsenderKdNr) + Dim kdVERSENDER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_AbsenderKdNr) + p.sender_eori_code = kdVERSENDER.EORITIN + p.sender_name = If(adVERSENDER.Name_1, "") & If(adVERSENDER.Name_2, "") + p.sender_address = adVERSENDER.Straße + p.sender_postcode = adVERSENDER.PLZ + p.sender_city_name = adVERSENDER.Ort + If adVERSENDER.LandKz IsNot Nothing Then + p.sender_country_id = cProgramFunctions.getISO2Land(adVERSENDER.LandKz) + End If + + End If + + If SENDUNG.tblSnd_EmpfaengerKdNr > 0 Then + Dim adEMPFAENGER As New VERAG_PROG_ALLGEMEIN.cAdressen(SENDUNG.tblSnd_EmpfaengerKdNr) + Dim kdEMPFAENGER As New VERAG_PROG_ALLGEMEIN.cKunde(SENDUNG.tblSnd_EmpfaengerKdNr) + p.consignee_eori_code = kdEMPFAENGER.EORITIN + p.consignee_name = If(adEMPFAENGER.Name_1, "") & If(adEMPFAENGER.Name_2, "") + p.consignee_address = adEMPFAENGER.Straße + p.consignee_postcode = adEMPFAENGER.PLZ + p.consignee_city_name = adEMPFAENGER.Ort + If adEMPFAENGER.LandKz IsNot Nothing Then + p.consignee_country_id = cProgramFunctions.getISO2Land(adEMPFAENGER.LandKz) + End If + + End If + + End If + + Catch ex As Exception + MsgBox(ex.StackTrace) + End Try + End Sub + + + Sub setValue(ncts_OUT) + BezugsNr = ncts_OUT.ncts_ObjectName + + End Sub + + + Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) + + End Sub + + Sub loadDYZollanmeldungen(Optional Status As String = "") ' + Speichern + 'If DY_ANM Is Nothing Then + ' DY_ANM = New cDakosy_Zollanmeldungen(ncts_OUT.ncts_dyaAnmID) + 'End If + 'DY_ANM.dy_ART = ALLG.NCTS_ART 'cDy_ART + 'DY_ANM.dy_BezugsNr = BezugsNr + 'DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID) + 'DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID) + 'DY_ANM.SAVE() 'Speichern, ID wird erzeugt + + End Sub + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + Me.Refresh() + Me.Cursor = Cursors.WaitCursor + If False Then 'sentToDakosy OrElse vbYes = MsgBox("Sollen die Daten abgeschickt werden?" & vbNewLine & "Eine Änderung ist nur noch in der MIC Software möglich.", vbYesNoCancel) Then + ' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID) + loadDYZollanmeldungen() + + If ncts_OUT IsNot Nothing Then + 'Dim cDY As New VERAG_PROG_ALLGEMEIN.cNCTS_TR(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB) + 'ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + 'ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB + ncts_OUT.ncts_LetzteBearbeitung = Now + 'ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB + ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem + ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05 + ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 + loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY) + + + If Not ncts_OUT.SAVE_ALL() Then Exit Sub '---> DANN SCHON + + Dim saveFile = "" + If VERAG_PROG_ALLGEMEIN.cMIC.generateNCTS(ncts_OUT, saveFile, BezugsNr) Then + If saveFile <> "" Then + Process.Start(saveFile) + ' VERAG_PROG_ALLGEMEIN.cMIC.send_Data_To_Dakosy_FTP() + 'If Not send_Data_To_Dakosy_FTP(saveFile, BezugsNr, Nothing, Nothing) Then + ' MsgBox("Sendefehler!") + 'End If + End If + End If + + '---> DANN SCHON::: + 'Dim saveFile = "" + 'If VERAG_PROG_ALLGEMEIN.cMICInterface.generateVersandanmeldungNCTS(ncts_OUT, saveFile, cboDakosyAction._value) Then + ' If saveFile <> "" Then + ' If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then + ' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) + ' Else + ' DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) + ' MsgBox("Sendefehler!") + ' End If + ' End If + 'End If + End If + + 'DY_ANM.UPDATE_DATA() + Me.FindForm.Close() + End If + Me.Cursor = Cursors.Default + End Sub + + + Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click + + Me.Refresh() + + ' Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, If(AVISO Is Nothing, Nothing, AVISO.AvisoID), If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID)) + loadDYZollanmeldungen() + + If ncts_OUT IsNot Nothing Then + + 'ncts_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + 'ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB + ncts_OUT.ncts_LetzteBearbeitung = Now + 'ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB + ncts_OUT.ncts_Partnersystem = "VERAG_MIC" ' eigene Anmeldungen in Fremdsystem + ncts_OUT.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_00 + ncts_OUT.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_00 + + loadInClass_VersandanmeldungNCTS(ncts_OUT, Me, FIRMA_DY) + + If Not ncts_OUT.SAVE_ALL() Then + 'gespeichert + End If + + + End If + 'DY_ANM.UPDATE_DATA() + + End Sub + + Private Sub NeueBezugsnummerVergebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueBezugsnummerVergebenToolStripMenuItem.Click + BezugsNr = getBezugsnr(BezugsNr) + End Sub + + Function loadInClass_VersandanmeldungNCTS(ByRef NCTS As VERAG_PROG_ALLGEMEIN.cNCTS_TR, USRCNTL As usrCntlModaltrans_NCTS, FIRMA_DY As String) As VERAG_PROG_ALLGEMEIN.cNCTS_TR + Try + + Select Case FIRMA_DY + Case "UNISPED" + NCTS.ncts_Trans_Partner = "UNAT" + Case Else + NCTS.ncts_Trans_Partner = "VERA" + End Select + + + NCTS.ncts_Trans_DatumZeit = Now + NCTS.ncts_Gestellt = False + NCTS.ncts_Status = "00" + NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + NCTS.ncts_Trans_Referenz = USRCNTL.BezugsNr & "_" & Now.ToString("ddMMyyHHmmSS") 'Eindeutig + NCTS.ncts_ObjectAlias = If(USRCNTL.AVISO IsNot Nothing, USRCNTL.AVISO.AvisoID, Nothing) + NCTS.ncts_Trans_Version = "003" + NCTS.ncts_Trans_Div1 = "ATILLA" + 'NCTS.ncts_Trans_Div1 = "ATILLA" + 'NCTS.ncts_Trans_Div1 = "ATILLA" + + NCTS.ncts_Stammreferenz = If(USRCNTL.cboStammreferenz._value = "", Nothing, USRCNTL.cboStammreferenz._value) + NCTS.ncts_BezugsnummerVorblendung = NCTS.ncts_Stammreferenz + + NCTS.ncts_ObjectName = USRCNTL.BezugsNr + 'NCTS.ncts_ObjectAlias = USRCNTL.AVISO.AvisoID + USRCNTL.ALLG.getValues(NCTS) + USRCNTL.ADRESSEN.getValues_TR(NCTS) + USRCNTL.POSITIONEN.getValues_TR(NCTS) + 'NCTS.ncts_SICHERHEITSANGABEN = USRCNTL.SICHERHEIT.getValues_TR() + 'USRCNTL.VERSCHLUESSE.getValues_TR(NCTS) + 'NCTS.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues() + '-------------------------------- + + + + Return NCTS + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return Nothing + End Try + End Function + +End Class diff --git a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb index ff3e00c2..52fb4aba 100644 --- a/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb +++ b/SDL/ZOLLSYSTEM/TELOTEC/eZOLL/EZA/usrCntlTCeZOLL_EZA.vb @@ -9,26 +9,20 @@ Public Class usrCntlTCeZOLL_EZA Property POSITIONEN As usrCntlATLAS_EZA_Positionen Property DV1 As usrCntlATLAS_EZA_DV1 - - Property Jahr2Stellig As Integer Property zusatz As String Property BezugsNr As String = "" Dim sentToDakosy = False - Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen - Dim cDy_ART As String = "EZA" 'Dim EZA As cDakosyEZA = Nothing Dim TC_ANM As cTelotec_Anmeldung = Nothing - Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Property isSTAMMREF As Boolean = False Property STAMMREF As String = "" diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index 3f621d1f..0fc25fb1 100644 --- a/SDL/frmMain.vb +++ b/SDL/frmMain.vb @@ -139,9 +139,9 @@ Public Class frmMain btnMitarbeiterKonto.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME setProfileImage() - If False Then 'Bei Produktivstart Bedingung auf True!!!!! - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then Dim timas As New cTimasAPI Dim infoMessage As String = "" Dim timeEntryExisting As Boolean = False @@ -157,7 +157,6 @@ Public Class frmMain End If End If - End If End If AddHandler KdSearchBox1.PropertyChanged, Sub() diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cOregonNCTSDeclarations.vb b/VERAG_PROG_ALLGEMEIN/Classes/cOregonNCTSDeclarations.vb deleted file mode 100644 index 6f53ab6b..00000000 --- a/VERAG_PROG_ALLGEMEIN/Classes/cOregonNCTSDeclarations.vb +++ /dev/null @@ -1,166 +0,0 @@ -Public Class cOregonNCTSDeclarations - - Public Class PacksAttribute - Public Property pack_count As Integer - Public Property pack_type As String - Public Property notes As String - End Class - - Public Class DocumentsAttribute - Public Property doc_type As String - Public Property doc_no As String - Public Property pre_post As String - End Class - - Public Class ProducedDocumentsAttribute - Public Property code As String - Public Property reference As String - Public Property status As String - Public Property reason As String - Public Property quantity As Integer - End Class - - Public Class AdditionalCodesAttribute - Public Property code As String - Public Property notes As String - End Class - - Public Class GoodsAttribute - Public Property commodity As String - Public Property gtip_code As String - Public Property gtip_language As String - Public Property brut_wg As Double - Public Property net_wg As Double - Public Property sender_name As String - Public Property sender_address As String - Public Property sender_city_name As String - Public Property sender_country_id As String - Public Property sender_postcode As String - Public Property sender_eori_code As String - Public Property consignee_name As String - Public Property consignee_address As String - Public Property consignee_city_name As String - Public Property consignee_country_id As String - Public Property consignee_postcode As String - Public Property consignee_eori_code As String - Public Property invoice_amount As String - Public Property invoice_curr As String - Public Property cpc_code As String - Public Property additional_cpc_code As String - Public Property container_no As String - Public Property preferential_country_id As String - Public Property cus_code As String - Public Property nature_of_transaction As String - Public Property additional_commodity_codes As String - Public Property origin_country_id As String - Public Property preference_request As String - Public Property quota_desc As String - Public Property valuation_method As String - Public Property valuation_adjustment As String - Public Property third_quantity_type As String - Public Property third_quantity As String - Public Property supplementary_unit As String - Public Property packs_attributes As PacksAttribute() - Public Property documents_attributes As DocumentsAttribute() - Public Property produced_documents_attributes As ProducedDocumentsAttribute() - Public Property additional_codes_attributes As AdditionalCodesAttribute() - End Class - - Public Class PartiesAttribute - Public Property party_role As String - Public Property party_code As String - Public Property eori_code As String - End Class - - Public Class TraderAdditionsAttribute - Public Property code As String - Public Property amount As Integer - Public Property curr As String - Public Property rate_code As Integer - End Class - - Public Class DeclarationData - Public Property auto_send As Boolean - Public Property badge_code As String - Public Property service_code As String - Public Property doc_type As String - Public Property declaration_type As String - Public Property commercial_ref As String - Public Property ducr As String - Public Property mucr As String - Public Property ducr_part As String - Public Property declarant_eori As String - Public Property declarant_name As String - Public Property declarant_address As String - Public Property declarant_city_name As String - Public Property declarant_country_id As String - Public Property declarant_postcode As String - Public Property declarant_rep As String - Public Property export_country_id As String - Public Property consignor_eori As String - Public Property consignor_name As String - Public Property consignor_address As String - Public Property consignor_city_name As String - Public Property consignor_country_id As String - Public Property consignor_postcode As String - Public Property multiple_consignor As Boolean - Public Property import_country_id As String - Public Property consignee_eori As String - Public Property consignee_name As String - Public Property consignee_address As String - Public Property consignee_city_name As String - Public Property consignee_country_id As String - Public Property consignee_postcode As String - Public Property multiple_consignee As Boolean - Public Property invoice_amount As String - Public Property invoice_curr As String - Public Property goods_location As String - Public Property border_transport_type As String - Public Property border_vehicle_code As String - Public Property border_vehicle_coun As String - Public Property inland_transport_type As String - Public Property container_no As String - Public Property gvms_interested As Boolean - Public Property freight_amount As String - Public Property freight_curr As String - Public Property payment_method As String - Public Property carrier_eori As String - Public Property carrier_name As String - Public Property carrier_address As String - Public Property carrier_city_name As String - Public Property carrier_country_id As String - Public Property carrier_postcode As String - Public Property total_packages As Integer - Public Property nature_of_transaction As String - Public Property premises_code As String - Public Property first_dan_no As String - Public Property second_dan_no As String - Public Property insurance_amount As String - Public Property insurance_curr As String - Public Property other_amounts As String - Public Property other_amounts_curr As String - Public Property apportment_indicator As String - Public Property total_gross_weight As String - Public Property total_net_weight As String - Public Property airfreight_cost As String - Public Property vat_adjustment As String - Public Property vat_adjustment_curr As String - Public Property discount_amount As String - Public Property discount_curr As String - Public Property discount_rate As String - Public Property incoterm As String - Public Property incoterm_location As String - Public Property trader_ref As String - Public Property arrival_transport_type As String - Public Property guarantee_code As Integer - Public Property guarantee_reference As String - Public Property goods_attributes As GoodsAttribute() - Public Property parties_attributes As PartiesAttribute() - Public Property trader_additions_attributes As TraderAdditionsAttribute() - End Class - - Public Class CustomsDeclaration - Public Property declaration_data As DeclarationData - End Class - -End Class diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb index f1357a3e..4abb3104 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb @@ -29,8 +29,11 @@ Partial Class frmMitarbeitersuche Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.pnlMain = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel() - Me.btnSettings = New System.Windows.Forms.Button() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.lblTimasSaldo = New System.Windows.Forms.Label() + Me.lblTimasZeiten = New System.Windows.Forms.Label() Me.pnlWohnadresse = New System.Windows.Forms.Panel() + Me.btnSettings = New System.Windows.Forms.Button() Me.lblWohnadresse = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.lblSpitzname = New System.Windows.Forms.Label() @@ -54,8 +57,6 @@ Partial Class frmMitarbeitersuche Me.lblGeburtstag = New System.Windows.Forms.Label() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Panel1 = New System.Windows.Forms.Panel() - Me.lblTimasZeiten = New System.Windows.Forms.Label() - Me.lblTimasSaldo = New System.Windows.Forms.Label() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel() Me.lblPosition = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() @@ -70,6 +71,7 @@ Partial Class frmMitarbeitersuche CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlMain.SuspendLayout() Me.pnl.SuspendLayout() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlWohnadresse.SuspendLayout() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlMotto.SuspendLayout() @@ -148,8 +150,9 @@ Partial Class frmMitarbeitersuche 'pnl ' Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.pnl.Controls.Add(Me.lblTimasSaldo) Me.pnl.Controls.Add(Me.btnSettings) + Me.pnl.Controls.Add(Me.PictureBox9) + Me.pnl.Controls.Add(Me.lblTimasSaldo) Me.pnl.Controls.Add(Me.lblTimasZeiten) Me.pnl.Controls.Add(Me.pnlWohnadresse) Me.pnl.Controls.Add(Me.lblSpitzname) @@ -175,20 +178,33 @@ Partial Class frmMitarbeitersuche Me.pnl.Size = New System.Drawing.Size(774, 437) Me.pnl.TabIndex = 24 ' - 'btnSettings + 'PictureBox9 ' - Me.btnSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSettings.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.wheel_s - Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.TopLeft - Me.btnSettings.Location = New System.Drawing.Point(647, 385) - Me.btnSettings.Name = "btnSettings" - Me.btnSettings.Size = New System.Drawing.Size(125, 35) - Me.btnSettings.TabIndex = 29 - Me.btnSettings.Text = "Einstellungen" - Me.btnSettings.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnSettings.UseVisualStyleBackColor = True - Me.btnSettings.Visible = False + Me.PictureBox9.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.uhr_green + Me.PictureBox9.Location = New System.Drawing.Point(7, 393) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(34, 27) + Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.PictureBox9.TabIndex = 120 + Me.PictureBox9.TabStop = False + ' + 'lblTimasSaldo + ' + Me.lblTimasSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.lblTimasSaldo.Location = New System.Drawing.Point(45, 396) + Me.lblTimasSaldo.Name = "lblTimasSaldo" + Me.lblTimasSaldo.Size = New System.Drawing.Size(157, 24) + Me.lblTimasSaldo.TabIndex = 30 + Me.lblTimasSaldo.Visible = False + ' + 'lblTimasZeiten + ' + Me.lblTimasZeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.lblTimasZeiten.Location = New System.Drawing.Point(203, 396) + Me.lblTimasZeiten.Name = "lblTimasZeiten" + Me.lblTimasZeiten.Size = New System.Drawing.Size(563, 25) + Me.lblTimasZeiten.TabIndex = 12 + Me.lblTimasZeiten.Visible = False ' 'pnlWohnadresse ' @@ -199,6 +215,21 @@ Partial Class frmMitarbeitersuche Me.pnlWohnadresse.Size = New System.Drawing.Size(701, 34) Me.pnlWohnadresse.TabIndex = 20 ' + 'btnSettings + ' + Me.btnSettings.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnSettings.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSettings.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.wheel_s + Me.btnSettings.ImageAlign = System.Drawing.ContentAlignment.TopLeft + Me.btnSettings.Location = New System.Drawing.Point(650, 386) + Me.btnSettings.Name = "btnSettings" + Me.btnSettings.Size = New System.Drawing.Size(125, 35) + Me.btnSettings.TabIndex = 29 + Me.btnSettings.Text = "Einstellungen" + Me.btnSettings.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSettings.UseVisualStyleBackColor = True + Me.btnSettings.Visible = False + ' 'lblWohnadresse ' Me.lblWohnadresse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) @@ -426,24 +457,6 @@ Partial Class frmMitarbeitersuche Me.Panel1.Size = New System.Drawing.Size(553, 1) Me.Panel1.TabIndex = 29 ' - 'lblTimasZeiten - ' - Me.lblTimasZeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.lblTimasZeiten.Location = New System.Drawing.Point(203, 396) - Me.lblTimasZeiten.Name = "lblTimasZeiten" - Me.lblTimasZeiten.Size = New System.Drawing.Size(563, 25) - Me.lblTimasZeiten.TabIndex = 12 - Me.lblTimasZeiten.Visible = False - ' - 'lblTimasSaldo - ' - Me.lblTimasSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.lblTimasSaldo.Location = New System.Drawing.Point(6, 396) - Me.lblTimasSaldo.Name = "lblTimasSaldo" - Me.lblTimasSaldo.Size = New System.Drawing.Size(196, 24) - Me.lblTimasSaldo.TabIndex = 30 - Me.lblTimasSaldo.Visible = False - ' 'MyPanel1 ' Me.MyPanel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(254, Byte), Integer), CType(CType(255, Byte), Integer)) @@ -593,6 +606,7 @@ Partial Class frmMitarbeitersuche CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlMain.ResumeLayout(False) Me.pnl.ResumeLayout(False) + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlWohnadresse.ResumeLayout(False) CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlMotto.ResumeLayout(False) @@ -649,4 +663,5 @@ Partial Class frmMitarbeitersuche Friend WithEvents btnSettings As Windows.Forms.Button Friend WithEvents lblTimasZeiten As Windows.Forms.Label Friend WithEvents lblTimasSaldo As Windows.Forms.Label + Friend WithEvents PictureBox9 As Windows.Forms.PictureBox End Class diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index 34c7d8e1..26b9ceba 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -383,6 +383,8 @@ Public Class frmMitarbeitersuche End Sub - - + Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click + Dim webAddress As String = "https://zeit.verag.ag/webterminal/" + Process.Start(webAddress) + End Sub End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb index 166fde3b..297d144c 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Resources.Designer.vb @@ -470,6 +470,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property TiMaS_Paket_Time() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("TiMaS-Paket-Time", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx b/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx index 54645e9e..2f20c2fc 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx +++ b/VERAG_PROG_ALLGEMEIN/My Project/Resources.resx @@ -121,9 +121,15 @@ ..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\house.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\personGray_m.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -136,9 +142,6 @@ ..\Resources\pfeil_links.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\seal2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -181,704 +184,7 @@ ..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\weiblich.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\uhr_green.png;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 - - - ..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\Verag-Spedition-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\easteregg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\..\..\..\AVISO\Aviso\Diverses\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\cake.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\house.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\..\..\..\AVISO\Aviso\Diverses\wheel_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - - iVBORw0KGgoAAAANSUhEUgAAA5YAAAPUCAYAAADWm6YZAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 - JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AACMFklEQVR4Xu3debyN5f7/8bXN81SJZMhw - hJQoijoNaEKlKGQqUmRo1vRFIw3HUWlQmk7j0aw6x5BOoUFp0KSUhCiZ52Fvrt91rX6KdX+whzXc1+d+ - /fFcj+1a295rfa7hvt973UPMGAMAkbd69Woze/Zs88ILL5g777zTXH755eaCCy4wrVu3Nk2aNDG1a9c2 - Bx54oClfvryJxWK7ycrKMhUrVjTVq1c39evXN0cddZQ544wzTO/evc2NN95o7r33XvPaa6+Zr776ymza - tMn+Ovk1AAAA+EpsBACtcnJyzBdffGGefPLJeHg88cQTzX777RcIi6lUrVo1c/LJJ5srrrgi/jo+//xz - s3XrVvvy5NcMAAAQdmIjAGiRnZ1tZsyYYW6//XZz2mmnmbJlywaCXhiUKFHCHHfccWbo0KHm9ddfN8uX - L7cvX35PAAAAYSM2AoDPVqxYYSZMmGB69OgRP0RVCnI+aNiwYTxoTp06lU80AQBAqImNAOAbFyYffPBB - 06pVK1OoUKFASPNdhQoV4kHZnavJeZoAACBsxEYA8MGWLVvin0yeeeaZplixYoEwplWZMmVMly5dzJtv - vmncOaOJdQEAAEg3sREAwuyXX34xN910U/wqrVLwipKqVauaa665xnz77be2NHK9AAAAUk1sBIAwchfh - 6dSpkylSpEggYCFmTjrpJPPKK6/wKSYAAEg7sREAwmTatGnx24JIYQpBNWvWNHfddZdZu3atLZ9cUwAA - gGQSGwEgDCZNmhS/GI8UnrBv7oq4w4YNMytXrrTllGsMAACQDGIjAGTSp59+ak4++eRAUEL+uHt3utuW - rFq1ypZXrjkAAEBBiI0AkAmLFi2K31JD4+1CwsB9gnn33XebzZs323LLfQAAAJAfYiMApJO7bciIESNM - yZIlA2EIyVevXj3z9ttv29LL/QEAAJBXYiMApMv//vc/U79+/UD4QWplZWXFPx1evXq17Qa5bwAAAHJL - bASAVFuxYoXp1atXPOBIwQfp4a4gO3PmTNslcj8BAADkhtgIAKk0efJkU61atUDIQWYULlzYDB8+nPtf - AgCAfBMbASAVNm3aZAYPHsynlCF1zDHHmJ9++sl2ldx/AAAAeyI2AkCyffLJJ+Zvf/tbIMwgXCpVqmTe - eOMN22VyPwIAAEjERgBIpqeeeoorvnrEfaLsDo1N7EcAAIA9ERsBIBnc/RL79u0bCC7wQ58+fcy2bdts - V8r9CwAAsJPYCAAFNX/+fHPEEUcEwgr80rp1a7Nq1SrbpXI/AwAAOGIjABTEhx9+aCpXrhwIKfBT3bp1 - zXfffWe7Vu5vAAAAsREA8uu5554zJUqUCIQT+G2//fYzs2bNsl0s9zsAAIg2sREA8mrHjh3m5ptv5lYi - ipUrV85Mnz7ddrc8BgAAQHSJjQCQFy5UDhkyJBBEoE+pUqXM5MmTbbfLYwEAAEST2AgAuZWTk2MuvPDC - QACBXsWKFTOvvvqq7X55TAAAgOgRGwEgN7Zu3Wo6deoUCB7Qr2jRoubFF1+0w0AeGwAAIFrERgDYFxcq - 27dvHwgciI4iRYqYZ5991g4HeYwAAIDoEBsBYG/c4a9dunQJBA1ET+HChc3LL79sh4U8VgAAQDSIjQCw - J+5CPX379g0EDERXyZIlzXvvvWeHhzxmAACAfmIjAOzJgAEDAsECKF++vPn888/tEJHHDQAA0E1sBADJ - 7bffHggUwE4HHHCA+e677+xQkccPAADQS2wEgETuCqCFChUKhAlgV9WrVzcLFy60Q0YeRwAAQCexEQB2 - 9eGHH8bPo5OCBJCocePGZv369XboyOMJAADoIzYCwE7u06fKlSsHwgOwN+ecc45xF3pKHE8AAEAnsREA - nG3btpmWLVsGQgOQG8OHD7fDSB5bAABAF7ERAJz+/fsHwgKQW1lZWebf//63HUry+AIAAHqIjQDw/PPP - B4ICkFdlypQxX375pR1S8jgDAAA6iI0Aou377783pUuXDoQEID/q1KljVq5caYeWPN4AAID/xEYA0bV9 - +3Zz3HHHBcIBUBBnnXWWHV7ymAMAAP4TGwFE12233RYIBUAyPPbYY3aIyeMOAAD4TWwEEE1ffPGFKVas - WCAQAMngDq+eN2+eHWry+AMAAP4SGwFET3Z2tmnSpEkgDADJ1KpVK5OTk2OHnDwOAQCAn8RGANEzZsyY - QAgAUuGOO+6wQ04ehwAAwE9iI4Bo+fXXX0358uUDAQBIBXe4tTvsOnEcAgAAf4mNAKKle/fugZ1/BLlz - BA8++GBz2GGHmWbNmv3JHUJcvXp1U6pUKfH/Iahly5Zmx44ddvjJYxIAAPhFbAQQHe+//77JysoK7PhH - WZEiRUzTpk3NZZddZp588knzwQcfmN9//92WS67hrjZu3GjmzJljXn75ZTNq1Chz/vnnm7p161JjwRNP - PGFLJtcRAAD4RWwEEB0nnHBCYIc/iipWrGh69OhhJkyYYNauXWtLI9crv1avXm0mTpxohgwZEv/Ek6AZ - MwceeKBZv369LY9cMwAA4A+xEUA0TJo0KbCzHyUu3J188snm2WefNZs3b7YlkeuUCgsXLjR33nmnOfTQ - Q8XXFhXuvqmJtQEAAP4RGwHo585vc+cHSjv72hUqVCh+iGoYLiCzfft28+qrr5qjjjpKfK3aVahQwaxa - tcqWQq4PAADwg9gIQD93DqC0o69dhw4dzHfffWdLINclU1zQf+aZZ+IXAZJet2bDhg2zJZDrAgAA/CA2 - AtDNhRh3JVNpJ1+rBg0amClTpti3L9ckLDZs2BA/D9N9qiq9D43c+a2pOK8VAACkj9gIQLfXX389sHOv - lbvC63XXXZf2cygLyl2JtlatWuJ70mjkyJH2bcu1AAAA4Sc2AtAtKufzudt8fPzxx/Yty3UIu5UrV5r2 - 7duL702bypUrG3erlsQaAAAAP4iNAPR66623Ajv1Gp155pkqLgrjDlseM2aMKVq0qPg+NXHvM/H9AwAA - P4iNAPQ65phjAjv0mrhzE91tPFwgS3zvPps2bVr8Uz3pPWtRrVo1s2XLFvt25RoAAIDwEhsB6DR58uTA - zrwmJUqUMM8//7x9q/L7992CBQtMvXr1xPeuxbhx4+xbld8/AAAIL7ERgE7HH398YEdei/3339989NFH - 9m3K712LX3/91RxxxBFiDTSoXbu2yc7Otm9Vfv8AACCcxEYA+rzzzjuBnXgtDjzwQPPll1/atym/d21W - r15tNP+R4F//+pd9m/J7BwAA4SQ2AtDn5JNPDuzAa+DOy/vuu+/sW5Tft1abNm1Se8XYQw891Gzfvt2+ - Tfm9AwCA8BEbAegyc+bMwM67BlWqVDHz5s2zb1F+39pt3brVnHrqqWJtfDdhwgT7FuX3DQAAwkdsBDRY - vHhxYGcVelSoUMF8/vnntqvl/o8Kd+/H4447TqwRdJg1a5btarn/AQAIC7ER0IBgqVe5cuXMxx9/bLtZ - 7vuoWbNmjeoL+kQdwRIA4AOxEdCAYKlTyZIlzfTp020Xy/0eVb/88oupWbOmWDP4jWAJAPCB2AhoQLDU - 6emnn7bdK/d51LmLGJUvX16sG/xFsAQA+EBsBDQgWOpz5ZVX2q6V+xt/eP31101WVpZYP/iJYAkA8IHY - CGhAsNSldevW3Dg/l1wAl2oIPxEsAQA+EBsBDQiWerh7VS5fvtx2q9zX2N22bdtMq1atxFrCPwRLAIAP - xEZAA4KlHm+88YbtUrmfIXMX86lcubJYT/iFYAkA8IHYCGhAsNShZ8+etjvlPsbeTZw4Uawp/EKwBAD4 - QGwENCBY+q9KlSpm5cqVtjvlPsa+nXvuuWJt4Q+CJQDAB2IjoAHB0n/cWqTglixZYkqXLi3WF34gWAIA - fCA2AhoQLP3WqFEjs337dtuVcv8i90aMGCHWGH4gWAIAfCA2AhoQLP32yiuv2G6U+xZ5s3HjRi7k4zGC - JQDAB2IjoAHB0l/NmjUzO3bssN0o9y3y7rbbbhNrjfAjWAIAfCA2AhoQLP31wgsv2C6U+xX5s2rVKlOy - ZEmx3gg3giUAwAdiI6ABwdJP++23n9myZYvtQrlfkX+dO3cWa45wI1gCAHwgNgIaECz9NGTIENt9cp+i - YNx5q1LNEW4ESwCAD8RGQAOCpZ+++uor231yn6Jg1q5da4oUKSLWHeFFsAQA+EBsBDQgWPqnXr16tuvk - /kRyHHvssWLtEV4ESwCAD8RGQAOCpX8uvfRS23VyfyI5hg0bJtYe4UWwBAD4QGwENCBY+uell16yXSf3 - J5Jj0qRJYu0RXgRLAIAPxEZAA4KlXwoVKmSWL19uu07uTyTHypUrTVZWltgHCCeCJQDAB2IjoAHB0i+c - X5k+devWFfsA4USwBAD4QGwENCBY+qVdu3a22+S+RHKdc845Yh8gnAiWAAAfiI2ABgRLv1x55ZW22+S+ - RHINHTpU7AOEE8ESAOADsRHQgGDpl4cffth2m9yXSK7x48eLfYBwIlgCAHwgNgIaECz98p///Md2m9yX - SK5p06aJfYBwIlgCAHwgNgIaECz9MmPGDNttcl8iub788kuxDxBOBEsAgA/ERkADgqVfPv/8c9ttcl8i - uX799VexDxBOBEsAgA/ERkADgqVf5s2bZ7tN7ksk1+bNm8U+QDgRLAEAPhAbAQ0Iln5ZsmSJ7Ta5L5Fc - 27ZtE/sA4USwBAD4QGwENCBY+mX+/Pm22+S+RHLl5OSIfYBwIlgCAHwgNgIaECz98tlnn9luk/sSyZWd - nS32AcKJYAkA8IHYCGhAsPTLu+++a7tN7ksk1/Lly8U+QDgRLAEAPhAbAQ0Iln55/fXXbbfJfYnkchdK - kvoA4USwBAD4QGwENCBY+uWhhx6y3Sb3JZLrgw8+EPsA4USwBAD4QGwENCBY+mXgwIG22+S+RHI9/fTT - Yh8gnAiWAAAfiI2ABgRLv5x44om22+S+RHINHz5c7AOEE8ESAOADsRHQgGDpl/333992m9yXSK7OnTuL - fYBwIlgCAHwgNgIaECz94/ossR+RfNWrVxfrj3AiWAIAfCA2AhoQLP3z+OOP266T+xPJsWTJErH2CC+C - JQDAB2IjoAHB0j/nnXee7Tq5P5EcXLjHPwRLAIAPxEZAA4KlfypWrGiys7Nt98l9ioI799xzxdojvAiW - AAAfiI2ABgRLP82cOdN2n9ynKJgtW7aYsmXLinVHeBEsAQA+EBsBDQiWfrrkkkts98l9ioJ54YUXxJoj - 3AiWAAAfiI2ABgRLP5UpU8asW7fOdqHcr8i/Nm3aiDVHuBEsAQA+EBsBDQiW/ho/frztQrlfkT8//vij - KVSokFhvhBvBEgDgA7ER0IBg6a8WLVrYLpT7FfnjDjGWao3wI1gCAHwgNgIaECz99s4779hulPsWeePm - QvHixcU6I/wIlgAAH4iNgAYES78dd9xxthvlvkXeDBgwQKwx/ECwBAD4QGwENCBY+m/KlCm2K+X+Re58 - 8803pkiRImJ94QeCJQDAB2IjoAHB0n/uXMsdO3bY7pT7GPvWtm1bsbbwB8ESAOADsRHQgGCpw5NPPmm7 - U+5j7N0zzzwj1hR+IVgCAHwgNgIaECx1qFSpklm2bJntUrmfIVu6dGm8dlJN4ReCJQDAB2IjoAHBUo8L - LrjAdqnczwhyhw+3a9dOrCX8Q7AEAPhAbAQ0IFjq8p///Md2q9zX2N1dd90l1hB+IlgCAHwgNgIaECx1 - cYd1/vzzz7Zr5f7GHz744ANTtGhRsYbwE8ESAOADsRHQgGCpT8uWLc22bdts98p9HnULFy40VatWFWsH - fxEsAQA+EBsBDQiWOl1++eW2e+U+j7J169aZww8/XKwZ/EawBAD4QGwENCBY6pSVlWWeeOIJ28Vyv0fR - 1q1bDfer1ItgCQDwgdgIaECw1Ktw4cLm5Zdftt0s932U5OTkmC5duoh1gg4ESwCAD8RG5I/bwVu1apVx - 94+bP3+++fzzz+M7BFOnTjUTJ040EyZMMI8++qgZN26cGTt2rBk1atRuhg4dupvLLrvM9OvX7089e/Y0 - nTt3zpdzzjnHtGnTJlKOP/74wA4a9ChZsqSZMWOGnXryfIyC7du3mx49eoj1gR7NmzcX1zhtTj/9dHH7 - lVcXXXTRbtvOK664Yrdt64gRI3bb9v7zn/+Mb5d3+ve//21ee+21+LbbbcO/+OKL+Db9t99+M2vWrLFT - T56PABB1YiNMbNOmTfENibvCoguFjz32mLnjjjviG6ju3bub0047zTRp0sRUq1bNVKxYMf4JirRDACB1 - KlSoYGbPnm2nrDyPNXN/yHI70FJdAKSW+8OW2/bXrl3bNGzYMP6HzLPPPtv06dPHXHfddeaee+4xTz/9 - tHnvvffMDz/8YDZv3mynrTyXAUALsTEq3I7Z999/b1588UUzfPjweGB0V52sUqVKYCMCIJzKlStn3nnn - HTul5Xmukbsy7vnnny/WA0A4HXDAAeaYY46JH2Vw6623mhdeeMF88803xu2LJM5xAPCR2KjVkiVL4iHS - XVWyRYsW8b84Sos/AL8UL148MudcuqMp2rVrJ9YBgH9KlSoVD5wDBgwwzz33nHH7KonzHgB8IDZq4f6q - //bbb5urr77aNGrUKLCYA9DDHY7+wAMP2KkvrwcarF271px00kni+wegx9/+9jfTv39/M3nyZOOu+py4 - FgBAGImNPnOHlLgT7vv27WsqVaoUWKwB6OYucrVx40a7HMhrhK++++47c+ihh4rvGYBe5cuXN127djVv - vfWWyc7OtsuBvEYAQKaJjT5yt5Zw50kefPDBgUUZQLQ0btw4fv504jrhqzfffDO+cym9VwDR4a4BcdVV - V8UvCJS4TgBApomNPnFXhOzUqRNXZQWwG3dRn/Hjx5sdO3bYpUJeP8LOHYHhLvJRqFAh8T0CiCa3JrRv - 395MmTLF6zUOgC5iow/c/evcopqVlRVYcAFgJ3cbgG+//dYuG/JaElbuE4m///3v4nsCgJ0OP/zw+H2y - CZgAMk1sDCu3aLqbFrurp0mLKwBISpQoYW655RbjrqiauK6EjTuHauTIkfHXLL0XAJAcffTR8fMwE9cU - AEgXsTGM3CeUTZs2DSykAJBbBx10kBk7dmxor7LozqU84ogjxNcOALnhbqf2n//8xy4p8joDAKkiNobJ - woUL4zcC55BXAMlSo0YNM27cOLN582a7zMhrTzq9++67plWrVuJrBYD8cKcBfP3113aJkdcdAEg2sTEM - 3D0o3aFr7sbB0oIJAAXlbkk0ePBg89VXX9llR16LUsXdEuVf//pXfOdPem0AUFBFixY1N9xwgxenAQDw - n9iYae6iFc2bNw8skACQKscee6wZPXq0mTt3rl2G5LWpoNwfzKZPn24uvfRSbh8CIG3q1q0bv4Js4poE - AMkkNmbS448/bsqUKRNYFAEgXWrVqhUPfy+88EL8UDIXCBPXqtxYt26d+eSTT+KBtV27dqxtADLKHaER - 1nPMAfhPbMyEVatWxe9HKS2EAJBJxYoVM40bN46f792/f39z3XXXmVGjRpmHHnoofq7m3XffbW6++WZz - 7bXXmosuusicdNJJ8QsFST8LADLJXVl/0aJFdtdL3h8DgPwSG9Nt3rx55tBDDw0sfgAAAEiu/fff30ya - NMnugsn7ZQCQH2JjOrl7LnGuEQAAQPoULlzY3HrrrcbdIzxx3wwA8kNsTJcxY8bEFzZpwQMAAEBq9ezZ - M9/nkQPArsTGVHMnjruFTFrgAAAAkD7t27c37hZIiftrAJAXYmMqbdiwwZx22mmBRQ0AAACZ4W7z9vvv - v9tdNXn/DQD2RWxMlZUrV8avRiYtaAAAAMgcdyHFn3/+2e6yyftxALA3YmMq/Prrr+aII44ILGIAAAAI - hxo1apgFCxbYXTd5fw4A9kRsTDa3QNWtWzeweAEAACBc3D7bL7/8Ynfh5P06AJCIjcm0cOFCU7NmzcCi - BQAAgHCqV6+eWbp0qd2Vk/fvACCR2JgsixYtMoccckhgsQIAAEC41a9f37hTmRL37wBAIjYmw5IlSzj8 - FQAAwGPu+hhr1qyxu3by/h4A7CQ2FpS7XHXDhg0DixMAAAD8cuKJJxp3D/LE/T0A2JXYWBCrV682jRs3 - DixKAAAA8FOfPn3sbp687wcAjtiYX9u2bTNt2rQJLEYAAADw28iRI+3unrwPCABiY35dcsklgUUIAAAA - /svKyjLPPvus3eWT9wMBRJvYmB+33XZbYAECAACAHiVKlDCzZs2yu37y/iCA6BIb8+rf//53/K9Y0gIE - AAAAPapXr25WrFhhdwHl/UIA0SQ25sXs2bPjf72SFh4AAADoc+aZZ5odO3bYXUF5/xBA9IiNubVu3br4 - zXOlBQcAAAB63XPPPXZ3UN5HBBA9YmNudevWLbDIAAAAQL8iRYqYmTNn2l1CeT8RQLSIjbkxduzYwAID - AACA6KhRo4ZZtWqV3TWU9xcBRIfYuC+ffvqpKV68eGBxAQAAQLT07t3b7h7K+4wAokNs3JucnBxz5JFH - BhYVAAAARNOkSZPsbqK87wggGsTGvRk9enRgMQEAAEB01axZ06xfv97uKsr7jwD0Exv3ZOnSpaZ8+fKB - xQQAAADRNmTIELu7KO9DAtBPbNyTc845J7CIAAAAAIUKFTIffPCB3WWU9yMB6CY2SqZNmxZYQAAAAICd - jjrqKLNjxw676yjvTwLQS2xMtH37di7YAwAAgH166aWX7O6jvE8JQC+xMdGjjz4aWDQAAACARH/7299M - dna23YWU9ysB6CQ27spd4atq1aqBRQMAAACQPPLII3Y3Ut63BKCT2LirESNGBBYLAAAAYE8OOuggs3Hj - RrsrKe9fAtBHbNxp+fLlply5coHFAgAAANibsWPH2t1JeR8TgD5i407ufkTSQgEAAADsTf369blCLBAh - YqOzcuVKU6pUqcAiAQAAAOTGW2+9ZXcr5X1NALqIjc7IkSMDiwMAAACQW6eccordrZT3NQHoIjbm5OSY - WrVqBRYHAAAAIC/mzJljdy+D+5sAdBEb33jjjcCiAAAAAORVv3797O5lcH8TgC5io1sApIUBAAAAyIuS - JUuaFStW2F3M4D4nAD3Exho1agQWBQAAACA/7rjjDruLGdznBKBHoMEdBy8tCAAAAEB+uGt3bN++3e5q - 7r7fCUCPQMOoUaMCiwEAAABQEO+8847d1dx9vxOAHoGGs88+O7AQAAAAAAXRq1cvu6u5+34nAD0CDdxm - BAAAAMlWqVIlDocFFNvtH2vXrjVZWVmBhQAAAADIq6JFi5pq1aqZ5s2bm27dupk1a9bYXc7dd0YB6LDb - P2bMmBFYEAAAAJB5JUqUMBUrVgw4+OCDTe3atQOOOOII06xZs90ce+yxpk2bNn/q3Lnzn3r37h2/56Qz - cOBAM3To0D+5a3DsdP/995tx48aZZ555xrz00ktm6tSpZubMmWb27Nnmxx9/NL/88otZtWqVycnJsbuX - u+94AtBrt3+MHTs2sIgBvipbtuxuG0UAyIRhw4bttlMeFXfddVc8fOTVY489ZiZMmJBnr732Wjzg5JX7 - o7oLRHk1d+5cM3/+/Dz7/fff46FrbzZs2GB3y3bfYQOAsNvtH5dccklg5xzwlfsL7q7jGwAAAEBq7PaP - U045JbBzDviKYAkAAACkx27/aNiwYWDnHPAVwRIAAABIj93+Ua5cucDOOeArgiUAAACQHn9+4S7/LO2c - A74iWAIAAADp8ecXX3/9dWDHHPAZwRIAAABIjz+/mDRpUmDHHPAZwRIAAABIjz+/ePTRRwM75oDPCJYA - AABAevz5xc033xzYMQd8RrAEAAAA0uPPLwYNGhTYMQd8RrAEAAAA0uPPL7p37x7YMQd8RrAEAAAA0uPP - L9q1axfYMQd8RrAEAAAA0uPPL1q2bBnYMQd8RrAEAAAA0uPPLxo0aBDYMQd8RrAEAAAA0uPPL6pUqRLY - MQd8RrAEAAAA0uPPL0qUKBHYMQd8RrAEAAAA0iP+sHHjxsBOOeA7giUAAACQHvGHX375JbBTDviOYAkA - AACkR/zhq6++CuyUA74jWAIAAADpEX94//33AzvlgO8IlgAAAEB6xB+mTJkS2CkHfEewBAAAANIj/vDa - a68FdsoB3xEsAQAAgPSIPzz33HOBnXLAdwRLAAAAID3iD+PHjw/slAO+I1gCAAAA6RF/uO+++wI75YDv - CJYAAABAesQfRo0aFdgpB3xHsAQAAADSI/4wfPjwwE454DuCJQAAAJAe8YdrrrkmsFMO+I5gCQAAAKRH - /OGyyy4L7JQDviNYAgAAAOkRf7jwwgsDO+WA7wiWAAAAQHrEH84777zATjngO4IlAAAAkB7xh/bt2wd2 - ygHfESwBAACA9Ig/nHzyyYGdcsB3BEsAAAAgPeIPLVu2DOyUA74jWAIAAADpEX9o1qxZYKcc8B3BEgAA - AEiP+EPjxo0DO+WA7wiWAAAAQHrEH+rXrx/YKQd8R7AEAAAA0iP+cMghhwR2ygHfESwBAACA9Ig/VKtW - LbBTDviOYAkAAACkR/zhgAMOCOyUA74jWAIAAADpEX8oX758YKcc8B3BEgAAAEiP+EPJkiUDO+WA7wiW - AAAAQHrEHwoXLhzYKQd8R7AEAAAA0iOWk5MT2CEHNCBYAgAAAOkR27hxY2CHHNCAYAkAAACkR2z16tWB - HXJAA4IlAAAAkB6xZcuWBXbIAQ0IlgAAAEB6xBYvXhzYIQc0IFgCAAAA6RGbP39+YIcc0IBgCQAAAKRH - bO7cuYEdckADgiUAAACQHrE5c+YEdsgBDQiWAAAAQHrEPv3008AOOaABwRIAAABIj9isWbMCO+SABgRL - AAAAID1i77//fmCHHNCAYAkAAACkR2z69OmBHXJAA4IlAAAAkB6xd955J7BDDmhAsAQAAADSIzZ16tTA - DjmgAcESAAAASI/YpEmTAjvkgAYESwAAACA9Ym+++WZghxzQgGAJAAAApEfs9ddfD+yQAxoQLAEAAID0 - iL388suBHXJAg6gGy6+//trMnj0bAAAvbN++3W6+5G0aAH/EJkyYENghBzSIarD829/+JtYDAIAw6tKl - i8nOzrabMHm7BsAPseeeey4wwQENCJYAAPiBcAn4L/b0008HJjegAcESAAB/EC4Bv8WeeOKJwMQGNCBY - AgDgF8Il4K/Y+PHjA5Ma0IBgCQCAfwiXgJ9i48aNC0xoQAOCJQAAfiJcAv6JPfDAA4HJDGhAsAQAwF+E - S8Avsfvuuy8wkQENCJYAAPiNcAn4IzZ69OjAJAY0IFgCAOA/wiXgh9jdd98dmMCABgRLAAB0IFwC4Rcb - OXJkYPICGhAsAQDQg3AJhFvstttuC0xcQAOCJQAAuhAugfCK3XzzzYFJC2hAsAQAQB/CJRBOseHDhwcm - LKABwRIAAJ0Il0D4xIYNGxaYrIAGBEsAAPQiXALhEvu///u/wEQFNCBYAgCgG+ESCI/YjTfeGJikgAYE - SwAA9Dv//PMJl0AIxG644YbABAU0IFgCABANhEsg82LXX399YHICGhAsAQCIDsIlkFmxoUOHBiYmoAHB - EgCAaCFcApkTu/baawOTEtCAYAkAQPQQLoHMiF199dWBCQloQLAEACCaCJdA+sWuuuqqwGQENCBYAgAQ - XYRLIL1iV155ZWAiAhoQLAEAiDbCJZA+scsvvzwwCQENCJYAAIBwCaRHbMiQIYEJCGhAsAQAAA7hEki9 - 2KBBgwKTD9CAYAkAAHYiXAKpFRs4cGBg4gEaECwBAMCuCJdA6sQuu+yywKQDNCBYAgCARIRLIDVi/fv3 - D0w4QAOCJQAAkBAugeSLXXrppYHJBmhAsAQAAHtCuASSK9avX7/ARAM0IFgCAIC9IVwCyRO7+OKLA5MM - 0IBgCQAA9oVwCSRHrG/fvoEJBmhAsAQAALlBuAQKLnbRRRcFJhegAcESAADkFuESKJjYhRdeGJhYgAYE - SwAAkBeESyD/Yr169QpMKkADgiUAAMgrwiWQP7GePXsGJhSgAcESAADkB+ESyLtYjx49ApMJ0IBgCQAA - 8otwCeRN7IILLghMJEADgiUAACgIwiWQe7Fu3boFJhGgAcESAAAUFOESyJ1Yly5dAhMI0IBgCQAAkoFw - CexbzE0UaQIBviNYAgCAZCFcAnsXO++88wITB9CAYAkAAJKJcAnsWaxTp06BSQNoQLAEAADJRrgEZLFz - zz03MGEADQiWAAAgFQiXQFCsY8eOgckCaECwBAAAqUK4BHYXO/vsswMTBdCAYAkAAFKJcAn8JXbWWWcF - JgmgAcESAACkGuES+EOsQ4cOgQkCaECwBAAA6UC4BOxUaN++fWByABoQLAEAQLoQLhF1sTPOOCMwMQAN - CJYAACCdCJeIstjpp58emBSABgRLAACQboRLRFXstNNOC0wIQAOCJQAAyATCJaIodsoppwQmA6ABwRIA - AGQK4RJRE2vbtm1gIgAaECwBAEAmES4RJbHWrVsHJgGgAcESAABkGuESURE7+eSTAxMA0IBgCQAAwoBw - iSiInXTSSYHBD2hAsAQAAGFBuIR2sRNOOCEw8AENCJYAACBMCJfQLPb3v/89MOgBDQiWAAAgbAiX0Cp2 - 3HHHBQY8oAHBEgAAhBHhEhrFWrVqFRjsgAYESwAAEFaES2gTa9myZWCgAxoQLAEACLcePXqYxo0bi89F - AeESmsSOOeaYwCAHNCBYAgAQbiNGjDCrVq0yzZo1E5+PAsIltIi1aNEiMMABDQiWAACE2+jRo+2my8Rc - uDz66KPF74kCwiU0iEV5EkM3giUAAOE2fvx4u+n6Y/u1evVq07x5c/H7ooBwCd/FjjrqqMDABjQgWAIA - EG7//ve/7abrr21Y1D+57N69u8nJydmtJoAvYlE+ph26ESwBAAi31157zW66dt+OrVmzxkT5GiB8cglf - xY488sjAgAY0IFgCABBub775pt10BbdlGzZsMCeeeKL4f6KAcAkfxZo0aRIYzIAGBEsAAMLtv//9r910 - ydszFy5POukk8f9FAeESvokdfvjhgYEMaECwBAAg3KZOnWo3XfL2zNm4caM5+eSTxf8bBYRL+CQW5ZvS - QjeCJQAA4fa///3Pbrrk7dlOLly2adNG/P9RQLiELwiWUItgCQBAuE2fPt1uuuTt2a42bdpk2rZtK/6M - KCBcwgexww47LDB4AQ0IlgAAhNsHH3xgN13y9izRli1bTIcOHcSfEwWES4QdwRJqESwBAAi3WbNm2U2X - vD2TbN261Zx55pniz4oCwiXCLNaoUaPAoAU0IFgCABBun376qd10yduzPXHh8uyzzxZ/XhScd955hEuE - EsESahEsAQAIty+++MJuuuTt2d64cNmxY0fxZ0YB4RJhRLCEWgRLAADC7euvv7abLnl7ti85OTmmW7du - 4s+NAsIlwoZgCbUIlgAAhNvcuXPtpkvenuWGC5cXXHCB+LOjgHCJMIk1bNgwMEgBDQiWAACE27x58+ym - S96e5ZYLVl26dBF/fhR0797duICdWBcg3QiWUItgCQBAuM2fP99uuuTtWV64YNWjRw/xd0QBn1wiDAiW - UItgCQBAuCUrWDqES8IlMivWoEGDwMAENCBYAgAQbj/99JPddMnbs/wgXBIukTkES6hFsAQAINwWLFhg - N13y9iy/XLjs2bOn+PuigHCJTCFYQi2CJQAA4fbzzz/bTZe8PSsIwiXhEulHsIRaBEsAAMJt4cKFdtMl - b88KyoXLXr16ib83CgiXSLfYoYceGhiIgAYESwAAwm3RokV20yVvz5Jh+/bthEvCJdKEYAm1CJYAAIRb - qoOlQ7gkXCI9CJZQi2AJAEC4LV682G665O1ZMhEuCZdIPYIl1CJYAgAQbr/88ovddMnbs2Rz4bJ3797i - 64gCwiVSLVa/fv3AwAM0IFgCABBu6QyWTtTDZffu3Y27qFFiXYBkIFhCLYIlAADhtnTpUrvpkrdnqbJj - xw5z6aWXiq8nCvjkEqlCsIRaBEsAAMLt119/tZsueXuWSoRLwiWSj51QqEWwBAAg3H777Te76ZK3Z6nm - wmX//v3F1xUFhEskGzuhUItgCQBAuGUyWDqES8IlkoedUKhFsAQAINyWLVtmN13y9ixdCJeESyQHO6FQ - i2AJAEC4/f7773bTJW/P0smFywEDBoivMQoIl0iGWL169QKDC9CAYAkAQLgtX77cbrrk7Vm6ES4JlygY - giXUIlgCABBuK1assJsueXuWCYRLwiXyj2AJtQiWAACE28qVK+2mS96eZQrhknCJ/InVrVs3MKAADQiW - AACEWxiDpePC5WWXXSa+5iggXCI/CJZQi2AJAEC4rVq1ym665O1ZphEuCZfIG4Il1CJYAgAQbqtXr7ab - Lnl7FgaES8Ilco9gCbUIlgAAhNuaNWvspkvenoWFC5cDBw4UX38UEC6RW7E6deoEBhCgAcESAIBwW7t2 - rd10yduzMCFcEi6xbwRLqEWwBAAg3NatW2c3XfL2LGxcuBw0aJD4PqKAcIl9IVhCLYIlAADhtn79ervp - krdnYUS4JFxiz2K1a9cODBpAA4IlAADh5luwdAiXhEvICJZQi2AJAEC4bdiwwW665O1ZmLlwOXjwYPE9 - RQHhEhKCJdQiWAIAEG4bN260my55exZ2hEvCJXZHsIRaBEsAAMJt06ZNdtMlb8984MLlkCFDxPcWBYRL - 7Cp2yCGHBAYJoAHBEgCAcNu8ebPddMnbM18QLgmX+APBEmoRLAEACLctW7bYTZe8PfMJ4ZJwCTsUCJbQ - imAJAEC4aQmWO1133XXi+4wCwiUIllCLYAkAQLht3brVbrrk7ZmvCJeEy6iK1apVKzAoAA0IlgAAhNu2 - bdvspkvenvmMcEm4jCKCJdQiWAIAEG6aA8j1118vvucoIFxGE8ESahEsAQAIt5ycHLvpkrdnGhAuCZdR - EqtZs2ZgIAAaECwBAAi37du3202XvD3T4oYbbhDfexQQLqOFYAm1CJYAAISbu01H4nZMI8Il4TIKCJZQ - i2AJAEC4RSVYOoRLwqV2BEuoRbCEZsccc4yZMGECoNLZZ58tjnvoE6Vg6VxzzTViHaKge/fu6s+pjbpY - jRo1Ah0PaECwhGadOnWy3S2PAcB3Ub5VQ9Qk9n0UXHvttWItooBwqRvBEmoRLKEZwRKaESyjI7Hvo+LG - G28U6xEFHBarF8ESahEsoRnBEpoRLKMjse+jhHBJuNQmVr169UBnAxoQLKEZwRKaESyjI7Hvo4ZwSbjU - hGAJtQiW0IxgCc0IltGR2PdRRLgkXGpBsIRaBEtoRrCEZgTL6Ejs+6giXBIuNSBYQi2CJTQjWEIzgmV0 - JPZ9lBEuCZe+i7mdb6mDAd8RLKEZwRKaESyjI7Hvo45wSbj0GcESahEsoRnBEpoRLKMjse9BuCRc+otg - CbUIltCMYAnNCJbRkdj3+APhknDpI4Il1CJYQjOCJTQjWEZHYt/jL4RLwqVvYtWqVQt0JqABwRKaESyh - GcEyOhL7HrsjXBIufUKwhFoES2hGsIRmBMvoSOx7BBEuCZe+IFhCLYIlNCNYQjOCZXQk9j1khEvCpQ9i - Bx10UKADAQ0IltCMYAnNCJbRkdj32LMoh8vzzz+fcOkBgiXUIlhCM4IlNCNYRkdi32PvCJeEyzAjWEIt - giU0I1hCM4JldCT2PfaNcEm4DCuCJdQiWEIzgiU0I1hGR2LfI3cIl4TLMIpVrVo10GGABgRLaEawhGYE - y+hI7HvkHuGScBk2BEuoRbCEZgRLaEawjI7EvkfeEC4Jl2FCsIRaBEtoRrCEZgTL6Ejse+Qd4ZJwGRax - KlWqBDoJ0IBgCc0IltCMYBkdiX2P/CFcEi7DgGAJtQiW0IxgCc0IltGR2PfIP8Il4TLTCJZQi2AJzQiW - 0IxgGR2JfY+CIVwSLjOJYAm1CJbQjGAJzQiW0ZHY9yg4wiXhMlNiBx54YKBTAA0IltCMYAnNCJbRkdj3 - SA7CJeEyEwiWUItgCc0IltCMYBkdiX2P5CFcEi7TjWAJtQiW0IxgCc0IltGR2PdILsIl4TKdCJZQi2AJ - zQiW0IxgGR2JfY/kI1wSLtMlVrly5UAnABoQLKEZwRKaESyjI7HvkRqES8JlOhAsoRbBEpoRLKEZwTI6 - EvseqXPDDTeIfRAFhMv0IFhCLYIlNCNYQjOCZXQk9j1Si3BJuEyl2AEHHBAoPKABwRKaESyhGcEyOhL7 - HqlHuCRcpgrBEmoRLKEZwRKaESyjI7HvkR6ES8JlKhAsoRbBEpoRLKEZwTI6Evse6UO4JFwmG8ESahEs - oRnBEpoRLKMjse+RXoRLwmUyESyhFsESmhEsoRnBMjoS+x7pR7gkXCYLwRJqESyhGcESmhEsoyOx75EZ - hEvCZTIQLKEWwRKaESyhGcEyOhL7HplDuCRcFhTBEmoRLKEZwRKaESyjI7HvkVmES8JlQRAsoRbBEpoR - LKEZwTI6EvsemUe4JFzmF8ESahEsoRnBEpoRLKMjse8RDoRLwmV+ECyhFsESmhEsoRnBMjoS+x7hQbgk - XOYVwRJqESyhGcESmhEsoyOx7xEuhEvCZV4QLKEWwRKaESyhGcEyOhL7HuFDuCRc5hbBEmoRLKEZwRKa - ESyjI7HvEU6ES8JlbhAsoRbBEpoRLKEZwTI6Evse4UW4JFzuC8ESahEsoRnBEpoRLKMjse8RboRLwuXe - ECyhFsESmhEsoRnBMjoS+x7hR7gkXO4JwRJqESyhGcESmhEsoyOx7+EHwiXhUkKwhFoES2hGsIRmBMvo - SOx7+INwSbhMRLCEWgRLaEawhGYEy+hI7Hv4hXBJuNwVwRJqESyhGcESmhEsoyOx7+EfwiXhcieCJdQi - WEIzgiU0I1hGR2Lfw0+ES8KlQ7CEWgRLaEawhGYEy+hI7Hv4i3BJuCRYQi2CJTQjWEIzgmV0JPY9/Ea4 - jHa4JFhCLYIlNCNYQjOCZXQk9j38R7iMbrgkWEItgiU0I1hCM4JldCT2PXQgXEYzXBIsoRbBEpoRLKEZ - wTI6EvseehAuoxcuCZZQi2AJzQiW0IxgGR2JfQ9drrnmGrHfo+DSSy+1JZDrohXBEmoRLKFZ06ZNzbhx - 4wCVTjvtNHHcQx+p/6HLoYceKva9dkceeaTdLZP31bQiWEItgiUAAAAygWAJKEKwBAAAQCYQLAFFCJYA - AADIBIIloAjBEgAAAJlAsAQUIVgCAAAgEwiWgCIESwAAAGQCwRJQhGAJAACATCBYAooQLAEAAJAJBEtA - EYIlAAAAMoFgCShCsAQAAEAmECwBRQiWAAAAyASCJaAIwRIAAACZQLAEFCFYAgAAIBMIloAiBEsAAABk - AsESUIRgCQAAgEwgWAKKECwBAACQCQRLQBGCJQAAADKBYAkoQrAEAABAJhAsAUUIlgAAAMgEgiWgCMES - AAAAmUCwBBQhWAIAACATCJaAIgRLAAAAZALBElCEYAkAAIBMIFgCihAsAQAAkAkES0ARgiUAAAAygWAJ - KEKwBAAAQCYQLAFFCJYAAADIBIIloAjBEgAAAJlAsAQUIVgCAAAgEwiWgCIESwAAAGQCwRJQhGAJAACA - TCBYAooQLAEAAJAJBEtAEYIlAAAAMoFgCShCsAQAAEAmRDJYVq5cOVAIQAOCJQAAADKBYAkoQrAEAABA - JhAsAUUIlgAAAMgEgiWgCMESAAAAmUCwBBQhWAIAACATCJaAIgRLAAAAZALBElCEYAkAAIBMIFgCihAs - AQAAkAkES0ARgiUAAAAygWAJKEKwBAAAQCYQLAFFCJYAAADIBIIloAjBEgAAAJlAsAQUIVgCAAAgEwiW - gCIESwAAAGQCwRJQhGAJAACATCBYAooQLAEAAJAJBEtAEYIlAAAAMoFgCShCsAQAAEAmECwBRQiWAAAA - yASCJaAIwRIAAACZQLAEFCFYAgAAIBMIloAiBEsAAABkAsESUIRgCQAAgEwgWAKKECwBAACQCQRLQBGC - JQAAADKBYAkoQrAEAABAJhAsAUUIlgAAAMgEgiWgCMESAIDoKVq0qKlYseJuqlevbmrXrr1Xif+nZMmS - 4s8HcoNgCShCsAQAILxKlChhatSoYZo3b27at29vzj//fNOvXz9z5ZVXmptuusmMGjXKPPTQQ+app54y - L774opk6dar58MMPzZw5c8z8+fPNihUrzKpVq0xOTo7d/MnbxGRbs2ZN/HcuWLDAfPPNN+aTTz6Jv67X - XnvNPPfcc2bcuHHm7rvvNjfffLMZOnRo/P1ccMEFpmPHjqZVq1bGbaPLli0r1gO6ECwBRQiWAACkV+HC - heNh8fjjjzedOnUyAwcOjIcsFxBfffVVM3PmTDNv3jyzbt06u8mSt2NRsHnzZrNo0SLz8ccfmzfffNM8 - 8cQTZuTIkebyyy+PB9E2bdqY+vXrm+LFi4t1RvgRLAFFCJYAAKRG1apVTdu2beOfLj788MNm8uTJ8cC4 - detWuymSt0/Iux07dphffvnFzJgxI/7Jrfsk95xzzjH16tWLh3ipbxAOBEtAEYIlAAAF57an7tPHe+65 - x7z77rtm5cqVdnMjb4OQPps2bTKffvqpGT9+vLn44ovN4YcfTtgMEYIloAjBEgCAvClVqpT5+9//bq65 - 5hrz8ssvxz8tS9zOILzWr19v/ve//8XPT+3QoUP8IkRSPyP1CJaAIgRLAAD2zgVJd1EZd6EZdxGaLVu2 - 2E2JvH2Bn9yFjtxFhXr06BE//1UaB0g+giWgCMESAIDdESSxM2h27tyZK9SmEMESUIRgCQBALH6PxsGD - BxMkEeDO03Tjwv2hoVmzZiYrK0scQ8g7giWgCMESABBF++23X/zTKPep1OLFi+2mQd5eAIl+++03M2HC - hPhhs5UqVRLHF3KHYAkoQrAEAERFkyZNzLBhw8ysWbPM9u3b7eZA3kYAuZWTk2M+/PDD+Lhq3LixOO6w - ZwRLQBGCJQBAK3dbCXeupLv65/fff2+Xf3mbACTLggULzJgxY+LjjkNm941gCShCsAQAaFK+fHnTpUsX - 8/zzz5vVq1fbJV/eDgCptmjRInPfffeZE088kXtn7gHBElCEYAkA8F2FChXi57tNnDiRC+8glFauXGme - euop0759e1O8eHFxHEcRwRJQhGAJAPCRC5O9evUyb775ptm6datd2uX1HgibNWvWmGeeecZ06NDBFC1a - VBzfUUGwBBQhWAIAfFGuXDnCJFT5/fff44fLHn300eKY145gCShCsAQAhJk7N61NmzbxwwjXr19vl3B5 - XQd8N3fuXDN8+PD4PVWluaARwRJQhGAJAAijhg0bxq/m+uuvv9plW17LAY3crXBmzJhhBg8eHL/fqjQ/ - tCBYAooQLAEAYVGtWjVz4403GvfJTeK6DUTRpk2bzHPPPWfOOOMMU6RIEXHe+IxgCShCsAQAZJLbWT7r - rLPMG2+8YdzN5hPXawB/cJ/e33777aZmzZriXPIRwRJQhGAJAMiE6tWrm6FDh5qFCxfaZVleqwEEuUNl - p06dajp37uz9p5gES0ARgiUAIF3crRXOO+88M23aNLNjxw67HMtrNIDc+fnnn80NN9xgDjzwQHHOhR3B - ElCEYAkASDV3z0l3IRI+nQRSw91+Z8KECfErKGdlZYnzMIwIloAiBEsAQKo0adLEjBs3zmzcuNEuvfJ6 - DCC5vv/++/hh5j5cUZZgCShCsAQAJFOhQoXMOeecY9577z273MprMIDUc3/Qeeihh0zdunXFuRoGBEtA - EYIlACAZihcvbnr06MGtQoCQcRf7mThxomnZsqU4dzOJYAkoQrAEABTE/vvvHz/sbunSpXZ5lddcAOEw - e/bs+B+AChcuLM7ndCNYAooQLAEA+VG7dm0zZswYzp8EPPTjjz/GL6hVsmRJcX6nC8ESUIRgCQDIi6ZN - m5qnnnrKZGdn2+VUXmMB+GHZsmVm+PDhplKlSuJ8TzWCJaAIwRIAsC/ugjxnnXWWmTFjhl1C5XUVgL/W - r19v/vnPf5pq1aqJa0CqRDJY+nrTUWBfCJbQzPWzO/cLQP4NGzbMfPfdd3bplNdTAHps2bLF3H///fH9 - Q2m7mmx8YgkoQrCEZu6WB4l9DwAA9m7r1q3xQ97dudTS9jVZCJaAIgRLaEawBAAg/9wnmGPHjjVVq1YV - t7MFRbAEFCFYQjOCJQAABeeu/jxq1ChTsWJFcXubXwRLQBGCJTQjWAIAkDyrVq2KX0W2bNmy4nY3rwiW - gCIES2hGsAQAIPmWLFliLrroovgVo6Xtb24RLAFFCJbQjGAJAEDqfPPNN+b0008Xt8G5QbAEFCFYQjOC - JQAAqTd16lTTqFEjcVu8NwRLQBGCJTQjWAIAkB7btm0zd911lylTpoy4TZYQLAFFCJbQjGAJAEB6ufMv - e/ToIW6XExEsAUUIltCMYAkAQGa88847pmHDhuL2eSeCJaAIwRKaESwBAMicLVu2mFtuucWUKFFC3E4T - LAFFCJbQjGAJAEDm/fjjj+bUU08NbKcJloAiBEtoRrAEACA8Jk6cGN/33LmdJlgCihAsoRnBEgCAcFmz - Zo0ZPHiwKVy4MMES0IRgCc0IlgAAhNNHH31kevfubb+Un9eKYAm1CJbQjGAJAADChGAJtQiW0IxgCQAA - woRgCbUIltCMYAkAAMKEYAm1CJbQjGAJAADChGAJtQiW0IxgCQAAwoRgCbUIltCMYAkAAMKEYAm1CJbQ - jGAJAADChGAJtQiW0IxgCQAAwoRgCbUIltCMYAkAAMKEYAm1CJbQjGAJAADChGAJtQiW0IxgCQAAwoRg - CbUIltCMYAkAAMKEYAm1CJbQjGAJAADChGAJtQiW0IxgCQAAwoRgCbUIltCMYAkAAMKEYAm1CJbQjGAJ - IOpWrVplFixYYObMmWOmT59u3njjDfP888+bcePG/emuu+4yo0aNihs2bJgZOnTobm666aY/n9/p4Ycf - jv/fp556yrzyyitm6tSpZvbs2eb77783S5cuNevXr7e/Xn5NQJQRLKEWwRKaESwBaLN161azePFi88EH - H5hXX33V3H///fHg17t3b3P66aebxo0bm+rVq5vy5cuL62I6ZWVlmUqVKpn69eub448/3px33nlm8ODB - 5rbbbjOPP/64efPNN82nn35qfvvtN/vW5PcLaEOwhFoES2hGsATgqyVLlsQ/BXSfCrpPDdu3b29q165t - ChUqJK53vitevHj8/bn36d6ve9/u/c+fP99s377dlkSuE+AbgiXUIlhCM4IlgLD7/fffzeTJk82dd95p - unTpYg477LB4yJLWtKgqW7asadWqlbnsssvMo48+Gj/kdsuWLbZ8ck2BMCNYQi2CJTQjWAIIk9WrV5tJ - kyaZESNGmHbt2plq1aqJaxf2rUiRIvHDfnv06GFGjx5t3n//feMOE06sORA2BEuoRbCEZgRLAJn07bff - mkceecRceOGFpkGDBvFzDqW1CslRokSJ+Ceb11xzjXnttdeM+zQ4sU+ATCNYQi2CJTQjWAJIlx07dpiv - vvrKjB071nTu3NkceOCB4rqE9HLb+169epknn3zS/PLLL7ar5P4D0oVgCbUIltCMYAkgldxtNVxg6dq1 - qznggAPEdQjh4j45dlemnThxolm3bp3tRrlvgVQhWEItgiU0I1gCSKbs7Gwzbdo0c+2115ojjjiCQ1s9 - 587TdIfOunNeP/74Y+M+dU7scyDZCJZQi2AJzQiWAApq48aN8U+33EViKlasKK410MF96uz62fU3V51F - qhAsoRbBEpoRLAHkx7Jly8yDDz5o2rZta4oVKyauL9DN3eLEnSv7zDPPmFWrVtlhIY8VIK8IllCLYAnN - CJYAcmv58uXxm/K3bt3aFC5cWFxTEE3ukNnTTjvNPPXUU5yXiQIjWEItgiU0I1gC2JsNGzaYf/3rX+bU - U0+NhwdpHQF2VbJkyfgnma+88gqHyyJfCJZQi2AJzQiWABJt377dvP3226Znz56mTJky4toB5EaFChXi - 9yidOnWqceMqcawBEoIl1CJYQjOCJYCdfvrpJ3PDDTeY6tWri+sFUBA1a9Y0t9xyi1m8eLEdbvIYBByC - JdQiWEIzgiUQbTk5OfFPk9yhi5w3iXQoVKiQadOmjZkwYYLZtm2bHYby2ER0ESyhFsESmhEsgWhatGiR - ufHGG03VqlXFtQFIBzf+rr/+ejN//nw7LOWxiughWEItgiU0I1gC0TJ79uz4fQiLFi0qrglAJuz8FNPd - H3PHjh12qMrjF9FAsIRaBEtoRrAE9Nu8ebN5/PHHzZFHHimuA0CYNGnSxDzxxBNcUTbCCJZQi2AJzQiW - gF7ufoJjxowx1apVE+c/EGYuWwwdOpSL/UQQwRJqESyhGcES0OeXX34xV199tSlXrpw47wGfFC9e3PTr - 14/zMCOEYAm1CJbQjGAJ6OF2vPv06WOKFSsmznfAZ0WKFImfH/ztt9/a4S7PAehAsIRaBEtoRrAE/Ldg - wYL4Jzpux1ua54Am7kI/7du3Nx9//LEd/vKcgN8IllCLYAnNCJaAv+bNm2d69epFoEQkZWVlETCVIlhC - LYIlNCNYAv5x51DyCSXwF3erkjlz5tjpIc8Z+IVgCbUIltCMYAn4Y9WqVfGrZJYsWVKcz0CUuUNkO3fu - zEV+FCBYQi2CJTQjWALht2nTJjNy5EhToUIFcR4D+EuJEiXMFVdcYZYvX26njzynEG6xAw44INCxgAYE - S2hGsATCa8eOHea5554zNWrUEOcvgD1zt9u59dZbjfvDTOLcQrgRLKEWwRKaESyBcHIXJDnuuOPEeQsg - 99x+3FNPPWXcH2oS5xnCiWAJtQiW0IxgCYSLuzBP165d41e8lOYsgPw58cQTucCPJwiWUItgCc1OOukk - M3v2bKTYjz/+GL+ghGTRokXGXZRFsmHDBjsd5TkKXbKzs82YMWPih+9JcxVAwbkL/PTo0cMsW7bMTjt5 - LiLzCJZQi2AJIIzcBSoqVqwY57bBtWvXjqtXr55p1qxZ3FFHHRW/DP9OnTp1il81sXfv3mbAgAHxK4ze - eeedZsqUKXbay2sBUu+dd94xDRs2FPsZQPK5dXPs2LFm+/btdgrK8xKZQ7CEWgRLANo99NBDdtrLawFS - 57fffjPdunUT+wRA6h1zzDEcHhtCBEuoRbAEoNkJJ5xgcnJy7LSX1wKkxoQJE8z+++8v9gmA9ClSpIgZ - PHgwpx6ECMESahEsAWjlDgdbuHChnfLyOoDk++mnn8wpp5wi9geAzHGnEkyaNMlOU3nuIn0IllCLYAlA - I3fV0TfeeMNOd3kNQHK5T4XvueceU6pUKbE/AISDu7jP8uXL7bSV5zJSj2AJtQiWADS68cYb7VSX5z+S - y31K6Q45lvoBQPhUrlzZvPbaa3b6ynMaqUWwhFoESwDatG3blvMq08DdkH3cuHGmTJkyYj8ACDd3FW13 - 66fEuY3UIlhCLYIlAE1q1aplVqxYYae5PPeRHO7c1datW4t9AMAfbs1899137bSW5zqSj2AJtQiWALQo - Xbq0+fLLL+0Ul+c9kuOll14ylSpVEvsAgH/cOen9+vUzGzdutFNcnvdIHoIl1CJYAtDA7Ri98MILdnrL - cx4Ft27dOtO7d2+x/gD817BhQ/44lwYES6hFsASgwdChQ+3Uluc7Cu7jjz829erVE2sPQI8SJUqYMWPG - 2GkvrwUoOIIl1CJYAvCdO9ePi/WkhrtAz913322KFi0q1h6ATl26dDFr1661y4C8NiD/CJZQi2AJwGc1 - a9bknmwp4nYqO3XqJNYdgH5uff3www/tciCvEcgfgiXUIlgC8FXJkiXN559/bqe0PM+Rf59++qmpU6eO - WHcA0eGOVhg1apRxRy8krhPIH4Il1CJYAvDV448/bqezPMeRfw888IApXry4WHMA0eTueblhwwa7RMjr - BnKPYAm1CJYAfNS3b187leX5jfzZsmWL6dOnj1hvAGjcuLGZP3++XS7kNQS5Q7CEWgRLAL45/PDDud9a - kv3yyy+mRYsWYr0BYCd3D9vJkyfbZUNeS7BvBEuoRbAE4JOyZcua7777zk5jeW4j72bMmGGqVKki1hsA - EhUuXJjzLguAYAm1CJYAfJGVlWVeeuklO4XleY28e/TRR7mVCIB86dq1K0eP5APBEmoRLAH44pprrrHT - V57TyJvt27ebq6++WqwzAORWs2bNzNKlS+2yIq81CCJYQi2CJQAfNG/e3Gzbts1OX3lOI/fclR3PPvts - sc4AkFfVqlXj1k95QLCEWgRLAGFXqlQp8/3339upK89n5J67SM+RRx4p1hkA8qt8+fJm6tSpdpmR1x78 - hWAJtQiWAMLu4YcfttNWnsvIPXebgDp16og1BoCCKlKkiHnooYfsciOvQfgDwRJqESwBhNmpp57KlQeT - YPbs2aZy5cpijQEgmQYPHmzcedyJ6xD+QLCEWgRLAGG1//77m19//dVOWXkeI3fc4WllypQRawwAqdCj - Rw+TnZ1tlyB5XYoygiXUIlgCCKsXX3zRTld5DiN3Xn31VVOiRAmxvgCQSu3btzebNm2yS5G8PkUVwRJq - ESwBhFGfPn3sVJXnL3LnwQcfNIUKFRLrCwDpcMIJJ5i1a9faJUlep6KIYAm1CJYAwqZ27dpm3bp1dqrK - 8xf7NmrUKLG2AJBu7l6Xy5cvt0uTvF5FDcESahEsAYRJVlYWl6wvAHehoyuuuEKsLQBkSoMGDYy73VHi - mhVFBEuoRbAEECaXXHKJnaLyvMXe5eTkmK5du4p1BYBMc0ej/PTTT3a5ktewqCBYQi2CJYCwqFatmlmz - Zo2dovK8xZ65UNm9e3exrgAQFtWrVzc//vijXbbktSwKCJZQi2AJICzcFUwT5yr2zR3+evHFF4s1BYCw - ceFy/vz5dvmS1zTtCJZQi2AJIAzcIZyJ8xT75kKlO3xYqikAhFWNGjUie1gswRJqESwBZNp+++1nli1b - ZqemPF8hc6Gyf//+Yk0BIOyiGi4JllCLYAkg05599lk7LeW5CpkLlZdddplYTwDwRc2aNc2CBQvssiav - dRoRLKEWwRJAJp1xxhl2SsrzFDIXKgcNGiTWEwB8U6dOnUjdioRgCbUIlgAypXTp0mbhwoV2SsrzFLKh - Q4eK9QQAXzVq1MisXLnSLnHyuqcJwRJqESwBZMqoUaPsdJTnKGTXX3+9WEsA8N2xxx5rNm7caJc6ef3T - gmAJtQiWADLBzcEtW7bY6SjPUQQ99NBDYi0BQIs2bdqo3zYQLKEWwRJAJkybNs1ORXl+ImjixImmcOHC - Yi0BQBN3+6nt27fbpU9eD31HsIRaBEsA6datWzc7DeW5iaCPPvrIlCpVSqwlAGg0YMAAu/zJa6LvCJZQ - i2AJIJ3KlStnlixZYqehPDexu7lz55pKlSqJtQQAzW677Ta7DMpro88IllCLYAkgne699147BeV5id0t - XbrU1KpVS6wjAGiXlZVlnnnmGbscymukrwiWUItgCSBdGjdubLKzs+0UlOcl/rJu3Tpz5JFHinUEgKgo - UaKEef/99+2yKK+VPiJYQi2CJYB0cH95/uCDD+z0k+ck/rJt2zZz6qmninUEgKjZf//9zQ8//GCXR3nN - 9A3BEmoRLAGkQ48ePezUk+cj/rJjxw7Ts2dPsYYAEFUNGzY0q1evtsukvHb6hGAJtQiWAFKtZMmSZuHC - hXbqyfMRfxk1apRYQwCIuhNOOMFs3brVLpXy+ukLgiXUIlgCSLURI0bYaSfPRfxlypQp3KsSAPaiX79+ - drmU11BfECyhFsESQCpVq1bNbNiwwU47eS7iDz///HP8PCKphgCAv4wbN84um/Ja6gOCJdQiWAJIpaef - ftpOOXke4g+bNm0yTZs2FesHANhd0aJFzcyZM+3yKa+pYUewhFoESwCp0qJFC+MuRpM4/7C7Ll26iPUD - AMiqVq1q3L1+E9dTHxAsoRbBEkAquNuLzJgxw043eQ7iD3fddZdYPwDA3rVq1cq42zMlrqthR7CEWgRL - AKnQrVs3O9Xk+Yc/vP3226ZIkSJi/QAA+3bllVfa5VReY8OKYAm1CJYAkq1EiRLcXmQfFixYYPbbbz+x - fgCA3HvuuefssiqvtWFEsIRaBEsAyebjX5DTafPmzaZJkyZi7QAAeVOmTBnz/fff2+VVXnPDhmAJtQiW - AJLJbeCXLVtmp5k892BigwYNEmsHAMifxo0bG/dHu8T1NowIllCLYAkgmUaMGGGnmDzvYGL//e9/4xc2 - kmoHAMi/yy+/3C6z8tobJgRLqEWwBJAs7gb/a9eutVNMnndR5z7JrVKlilg7AEDBuD/avf7663a5ldfg - sCBYQi2CJYBkGT16tJ1e8pyLOnc/z3bt2ol1AwAkh/sD55IlS+yyK6/FYRCrXLly4IUDGhAsASRDtWrV - zKZNm+z0kudc1P3jH/8Q6wYASK4TTjjB5OTk2KVXXo8zjWAJtQiWAJJh/PjxdmrJ8y3qPv/8c1O8eHGx - bgCA5Lv99tvt8iuvyZlGsIRaBEsABeXmU3Z2tp1a8nyLMneVQne1QqluAIDUKFq0qJk9e7ZdhuW1OZNi - Bx54YOAFAxoQLAEU1DPPPGOnlTzXou6SSy4RawYgnKpWrWr69+8vPge/HHHEEWbr1q12KZbX50whWEIt - giWAgqhduzafVu7Ba6+9JtYMQHgddNBBZvv27aZPnz7i8/DLsGHD7HIsr9GZQrCEWgRLAAXxyCOP2Ckl - z7MoW7NmTfyCRlLNAISXC5ZuDrsrOfPJpf+KFCliPv7443ifhgXBEmoRLAHkl1s/tmzZYqeUPM+irG/f - vmLNAITbzmDpuHB56aWXit8HfzRo0MC489139mumxbihMbQiWALIrzFjxtjpJM+xKHv33XfjN+qWagYg - 3HYNlg7hUofrrrtut37NJIIl1CJYAsgPdxPqDRs22Okkz7GocvfyrFevnlgzAOGXGCwdd87lhRdeKH4/ - /FC4cGHzySefBPo2EwiWUItgCSA/Ro4caaeSPL+izP1VXKoXAD9IwdJxn1xylWe/NWvWzOTk5NjuDPZv - OhEsoRbBEkBelS9f3qxevdpOJXl+RdWcOXPi906TagbAD3sKlg7h0n/33nuv7Uq5f9Ml5u5pI704wHcE - SwB5de2119ppJM+tqHJ/BT/qqKPEegHwx96CpeMOi+3Vq5f4fxF+ZcuWNYsXL7ZdKfdvOhAsoRbBEkBe - FCpUyPz00092GslzK6ruvvtusV4A/LKvYOkQLv127rnn2m6U+zYdCJZQi2AJIC/at29vp5A8r6JqwYIF - pnTp0mK9APglN8HSceGyZ8+e4s9A+E2cONF2o9y3qRZzg0x6UYDvCJYA8uK///2vnULyvIqqdu3aibUC - 4J/cBkvHHQLfvXt38ecg3GrWrJmxK5sTLKEWwRJAbtWpU8e4v9InzqcomzRpklgrAH7KS7B0CJf+uuGG - G2wXyv2aSgRLqEWwBJBbo0ePttNHnlNRlJ2dbQ477DCxVgD8lNdg6bhw2aNHD/HnIbyKFy9ufvjhB9uF - cr+mCsESahEsAeRGyZIlzcqVK+30kedUFN13331irQD4Kz/B0iFc+qlz5862++Q+TZVYtWrVAi8E0IBg - CSA3evfubaeOPJ+iaNWqVWa//fYTawXAX/kNlg6Hxfrpvffes90n92kqECyhFsESQG6ke8MbdoMGDRLr - BMBvBQmWDuHSP0ceeWRarx9AsIRaBEsA+1K7dm2zY8cOO3Xk+RQ1c+fONUWLFhVrBcBvBQ2WDuHSP489 - 9pjtOrk/ky3mdr6lFwH4jmAJYF9uv/12O23kuRRFp59+ulgnAP5LRrB0CJd+OfDAA83atWtt18n9mUwE - S6hFsASwN4UKFTKLFi2y00aeS1Hzn//8R6wTAB2SFSwdd+Xo888/X/w9CJ+bbrrJdpvcl8lEsIRaBEsA - e+M+nUucP1HldhIbNGgg1gmADskMlo5bN8477zzxdyFcypQpY5YtW2a7Te7LZCFYQi2CJYC9mTBhgp0y - 8jyKGncOjlQjAHokO1g67rDYCy64QPx9CJfLL7/cdpncj8kSq169euAXAxoQLAHsSaVKlcyWLVvslJHn - UZRs27YtfhEjqU4A9EhFsHRcuOzWrZv4OxEexYsXNwsXLrRdJvdjMhAsoRbBEsCeDB482E4XeQ5FzaOP - PirWCIAuqQqWDuHSD3379rXdJfdhMhAsoRbBEsCefP7553a6yHMoStynlYcccohYIwC6pDJYOi5cdu3a - VfzdCIfChQsbd1upxL5LFoIl1CJYApAcfvjhdqrI8ydqHn74YbFGAPRJdbB0CJfh16VLF9tVcv8VVKxG - jRqBXwhoQLAEILnvvvvsVJHnT5Rs3brVsA8AREc6gqXjjoQ455xzxNeAzHO32pozZ47tKrn/CoJgCbUI - lgASFStWzCxfvtxOFXn+RMmDDz4o1giATukKlo775NJ9Mia9DmReqj61JFhCLYIlgETunmuJcyaK3KeV - NWvWFGsEQKd0BkuHcBle7lzL77//3naT3Hf5FWPDAq0IltDM7SB07twZeTRz5kw7TeS5EyX333+/OK4A - 6JXuYOm4w2I7duwovh5kVp8+fWwXyf2WXwRLqEWwhGZnnXWW7W55DAB7s3nzZlOtWjVxXAHQKxPB0nHh - 8uyzzxZfEzLHnRqyaNEi20Vyv+UHwRJqESyhGcES+TV+/HhxTAHQLVPB0iFchtOQIUNs98h9lh8ES6hF - sIRmBEvkl7vdijSmAOiWyWDpEC7Dp1SpUmbZsmW2e+Q+y6tYrVq1Ar8E0IBgCc0IlsiPKVOmiOMJgH6Z - DpYO4TJ8brzxRts1cn/lFcESahEsoRnBEvlx+umni+MJgH5hCJaOuyq124ZJrxHpV6FCBbN+/XrbNXJ/ - 5QXBEmoRLKEZwRJ55S4t726MLY0nAPqFJVg6hMtwcfc1Tuyj/IgdcsghgR8OaECwhGYES+TVJZdcIo4l - ANEQpmDpEC7Dw+077tixw3aL3Fe5RbCEWgRLaEawRF6sXLnSlC5dWhxLAKIhbMHSceHyzDPPFF8v0mvy - 5Mm2S+R+yi2CJdQiWEIzgiXy4vbbbxfHEYDoCGOwdAiX4XDGGWfY7pD7KLcIllCLYAnNCJbILXcVRrce - SuMIQHSENVg6hMvMy8rKMnPnzrXdIfdRbsRq164d+MGABgRLaEawRG49/fTT4hgCEC1hDpYO4TLzBg4c - aLtC7p/cIFhCLYIlNCNYIrdatWoljiEA0RL2YOls2bLFcFukzClbtqxZu3at7Qq5f/aFYAm1CJbQjGCJ - 3HC3GHGHN0ljCEC0+BAsHffJZYcOHcT3gNR7+OGHbTfIfbMvBEuoRbCEZgRL5MZ1110njh8A0eNLsHRc - uGzfvr34PpBaRx99tO0CuV/2JVanTp3ADwQ0IFhCM4Il9iUnJye+DkrjB0D0+BQsHcJl5nz++ee2C+R+ - 2RuCJdQiWEIzgiX25a233hLHDoBo8i1YOoTLzMjvRXwIllCLYAnNCJbYl06dOoljB0A0+RgsHcJl+pUv - X95s3LjRll/ukz2J1a1bN/DDAA0IltCMYIm9WbFihSlevLg4dgBEk6/B0nFXi23Xrp34vpAa7lZVif2w - LwRLqEWwhGYES+zNvffeK44bANHlc7B0CJfpdeKJJ9qyy32xJwRLqEWwhGYES+zNkUceKY4bANHle7B0 - Nm3aZNq2bSu+PySXu1XVDz/8YMsu94WEYAm1CJbQjGCJPfnss8/EMQMg2jQES4dPLtPnlltusSWX+0ES - q1evXuCHABoQLKEZwRJ7MmTIEHHMAIg2LcHScZ9ctm7dWnyfSJ4GDRrYcst9ICFYQi2CJTQjWEKyY8cO - U716dXHMAIg2TcHSceGyTZs24ntF8uTlnpYES6hFsIRmBEtIPvzwQ3G8AIC2YOnwyWXqXXvttbbUcv0T - sRMKtQiW0IxgCck111wjjhcA0BgsHXe/RcJl6rijYNzRMIl1l7ATCrUIltCMYAlJnTp1xPECAFqDpUO4 - TK0ZM2bYMsu13xU7oVCLYAnNCJZI9MUXX4hjBQAczcHSceHy5JNPFt87CmbAgAG2xHLdd8VOKNQiWEIz - giUSDR8+XBwrAOBoD5aOC5fuxv7S+0f+Va5c2eTk5NgSy3XfKVa/fv3AfwY0IFhCM4IlEh122GHiWAEA - JwrB0uGTy9SYPn26La9c850IllCLYAnNCJbY1bx588RxAgA7RSVYOoTL5LvqqqtsaeV670SwhFoES2hG - sMSuRo4cKY4TANgpSsHS2bBhg/n73/8u1gJ5V7duXVtWudY7xQ499NDAfwQ0IFhCM4IldnXUUUeJ4wQA - dopasHT45DK5vvnmG1tWudYOwRJqESyhGcESOy1dutRkZWWJ4wQAdopisHTcJ5cnnHCCWBPkzR133GFL - KtfZIVhCLYIlNCNYYqenn35aHCMAsKuoBkuHTy6To0WLFracco0dgiXUIlhCM4Ildurdu7c4RgBgV1EO - lg7hsuDc0TG//PKLLadc41iDBg0C/wnQgGAJzQiW2Kl69eriGAGAXUU9WDouXJ500klifZA7jzzyiC2l - XF+CJdQiWEIzgiWc7777ThwfAJCIYPkHFy5bt24t1gj7du6559oyyrUlWEItgiU0I1jCGTt2rDg+ACAR - wfIvLly2adNGrBP2rkKFCiYnJ8eWMVhXgiXUIlhCM4IlnI4dO4rjAwASESx3t2nTJsJlPs2aNcuWMFjT - WMOGDQPfDGhAsIRmBEu4vxhXrFhRHB8AkIhgGUS4zJ/bbrvNli9YT4Il1CJYQjOCJdxfjKWxAQASgqWM - cJl37r6giXV0CJZQi2AJzQiWuP3228WxAQASguWebdmyxbRr106sG4KKFStm1q9fb0u3ex1jjRo1Cnwz - oAHBEpoRLMH92ADkBcFy7wiXefPWW2/Zsu1eQ4Il1CJYQjOCZbRlZ2ebUqVKiWMDACQEy31zh8Wecsop - Yv2wuyFDhtiS7V4/giXUIlhCM4JltH322WfiuACAPSFY5o775LJ9+/ZiDfGXJk2a2HLtXjuCJdQiWEIz - gmW0jRs3ThwXALAnBMvcI1zuW+HChc2aNWtsuf6qW+ywww4LfCOgAcESmhEso61v377iuACAPSFY5s3W - rVsJl/swefJkW6q/akawhFoES2hGsIy2ww8/XBwXALAnBMu8c+GyQ4cOYj0RM8OGDbNl+qtescaNGwe+ - CdCAYAnNCJbRtXHjRlOkSBFxXADAnhAs84dwuWfu6uS71opgCbUIltCMYBldM2bMEMcEAOwNwTL/CJey - 0qVLm23bttkS/VEnDqeBWgRLaEawjK7Ro0eLYwIA9oZgWTAuXJ555plibaPsk08+seX5o0Yxd6lY6ZsA - 3xEsoRnBMrq6du0qjgkA2BuCZcERLoP++c9/2tL8UZ/YkUceGfgGQAOCJTQjWEZXvXr1xDEBAHtDsEwO - dyuSdu3aiTWOoi5dutiy/FGbWLNmzQLfAGhAsIRmBMtoWrlypcnKyhLHBADsDcEyedwnl247LNU5atwd - RnbWJXbUUUcFvgHQgGAJzQiW0TRt2jRxPADAvhAsk8t9csl9LmOmWLFif17AJ3b00UcHvgHQgGAJzQiW - 0XTfffeJ4wEA9oVgmXxcLfYPc+fOteWwX7Zo0SLwJKABwRKaESyj6ZJLLhHHAwDsC8EyNVy4PPvss8Wa - R8V///tfWwr75THHHBN4EtCAYAnNCJbRdNxxx4njAQD2hWCZOlEPlw8//LAtg/2yZcuWgScBDQiW0Ixg - GU2VKlUSxwMA7AvBMrXceYZRDZfXX3+9LYH9slWrVoEnAQ0IltCMYBk9S5cuFccCAOQGwTL1ovrJZffu - 3e3bt19yWA20IlhCs9NPP92sWrUqclavXm2HuTz2tXvvvffEsaBRyZIlTcWKFQEkUYMGDexSIq8vSJ4o - hsvTTjvNvnX75d///vfAk4AGBEtAn/32288Oc3nsa/fYY4+JNdFo5MiR9i3LdQCAsHOHxXbs2FFc3zRy - t6907zt2wgknBJ4ENCBYAvq4cwwTx3xU3HDDDWJNNCJYAvCdC5fnnHOOuMZpU6tWLfuW7ZcnnXRS4ElA - A4IloE+FChXsMJfHvnbnnXeeWBONCJYANMjJyTFdu3YV1zlNypYta9+u/fLkk08OPAloQLAE9Clfvrwd - 5vLY165Zs2ZiTTQiWALQIirhcvPmzSbWunVr8UnAdwRLQJ+dfxWNInfxDakmGhEsAWjiDos999xzxfVO - iyVLlphY27ZtxScB3xEsAX3KlCljh7k89jVbv369WA+tCJYAtHGfXHbr1k1c8zSYM2eOiZ1yyinik4Dv - CJaAPqVKlbLDXB77mn377bdiPbQiWALQSHO4nDZtmom5+45ITwK+I1gC+rj7GyaO+SiYPHmyWA+tCJYA - tMrOzjadO3cW1z6fTZgwwcTcTbalJwHfESwBfYoXL26HuTz2NXv00UfFemhFsASgmfvk8oILLhDXP189 - /vjjJnbGGWeITwK+I1gC+hQrVswOc3nsazZ8+HCxHloRLAFo5z65PP/888U10Edjx441sfbt24tPAr4j - WAL6FClSxA5zeexr1q9fP7EeWhEsAUSB++Sye/fu4jrom7vuusvEOnToID4J+I5gCehTuHBhO8zlsa/Z - 2WefLdZDK4IlgKjQEi5HjBhhYmeddZb4JOA7giWgT1ZWlh3m8tjXrGXLlmI9tCJYAogSDeFy6NCh0fsr - KKKDYAnolDjmo6Bu3bpiLbQiWAKIGhcue/ToIa6JPhg0aJCJdezYUXwS8B3BEtBpx44ddqjL41+rcuXK - ibXQimAJIIp8Dpd9+/Y1sXPPPVd8EvAdwRLQafv27Xaoy+Nfo61bt4p10IxgCSCqXLj08VYkXbt2NbFO - nTqJTwK+I1gCOrlLtCeOe81+++03sQ6aESwBRJkLlz179hTXx7CKn1553nnniU8CviNYAjpt27bNDnV5 - /Gv0/fffi3XQjGAJIOp8C5ennHKKiWm6MSewK4IloNOWLVvsUJfHv0Yff/yxWAfNCJYA4Nc5l61atTKx - Ll26iE8CviNYAjpt3rzZDnV5/Gs0depUsQ6aESwB4A/uugK9evUS18owadGihYl169ZNfBLwHcES0Gnj - xo12qMvjX6OXXnpJrINmBEsA+IsP4bJZs2Ym5uNVh4DcIFgCOm3YsMEOdXn8a/TEE0+IddCMYAkAuwt7 - uGzSpImJ+XwjTmBvCJaATuvWrbNDXR7/Gj344INiHTQjWAJAkAuXvXv3FtfNTGvcuLGJ+XYpWyC3CJaA - TmvXrrVDXR7/Go0ePVqsg2YESwCQ7dixw1x66aXi2plJDRs2NDEfTgYF8oNgCei0evVqO9Tl8a+RC1lS - HTQjWALAnoUxXNavX9/ELrzwQvFJwHcES0CnVatW2aEuj3+Nhg8fLtZBM4IlAOxd2MJlnTp1TOyiiy4S - nwR8R7AEdFqxYoUd6vL41+i6664T66AZwRIA9s2Fy/79+4vraLrVqlXLxPr27Ss+CfiOYAnotHz5cjvU - 5fGv0VVXXSXWQTOCJQDkjrugT58+fcS1NJ2qV69uYhdffLH4JOA7giWg07Jly+xQl8e/RldccYVYB80I - lgCQe+6TywEDBojrabocdNBBJtavXz/xScB3BEtAp99++80OdXn8a3T55ZeLddCMYAkAeZPpcHnggQea - WBgvVwskA8ES0Gnp0qV2qMvjX6MhQ4aIddCMYAkAeecOiz3mmGPEdTXV9t9/fxMLywmfQLIRLAGdlixZ - Yoe6PP41GjRokFgHzQiWAJB3//jHP8Q1NR0qV65sYpdddpn4JOA7giWg08KFC+1Ql8e/RgMHDhTroBnB - EgDy5q677hLX03SpWrVqNDdYiAaCJaDT/Pnz7VCXx79GnGMJANibe+65R1xL0yl+VdgoHmKDaCBYAjp9 - 9913dqjL41+ja6+9VqyDZgRLAMidu+++W1xH0y1+H8soXhQA0UCwBHT66quv7FCXx79GN910k1gHzQiW - ALBvYQmVTp06daJ5iA2igWAJ6PTZZ5/ZoS6Pf41uvvlmsQ6aESwBYO/CFCqd+P7nlVdeKT4J+I5gCeg0 - a9YsO9Tl8a+RC1lSHTQjWALAnmX6Qj2SBg0amNhVV10lPgn4jmAJ6DRz5kw71OXxr9E///lPsQ6aESwB - QHb77beL62amHXbYYSZ29dVXi08CviNYAjr973//s0NdHv8aPfLII2IdNCNYAkDQnXfeKa6ZYdCkSZNo - Xm0O0UCwBHSaMmWKHery+Nfo+eefF+ugGcESAHYX5lDpNGvWzMSGDh0qPgn4jmAJ6PTWW2/ZoS6Pf43e - fPNNsQ6aESwB4C9hD5VO8+bNTez6668XnwR8R7AEdHrttdfsUJfHv0bTp08X66AZwRIA/nDLLbeI62TY - tGzZ0sRuuOEG8UnAdwRLQKcJEybYoS6Pf43c7VWkOmhGsAQAExs1apS4RoZRmzZtTOzGG28UnwR8R7AE - dHr22WftUJfHv0bz588X66AZwRJA1I0YMUJcH8PqzDPPNLH/+7//E58EfEewBHR68skn7VCXx79Ga9eu - FeugGcESQJQNHz5cXBvDrEuXLiY2bNgw8UnAdwRLQCd3+43Eca9d8eLFxVpoRbAEEFU+hkrnoosu8vfF - A/tCsAR0+uc//2mHujz+tTrooIPEWmhFsAQQRT5/4Ddw4EATu/nmm8UnAd8RLAGdbr31VjvU5fGv1RFH - HCHWQiuCJYCo8f0o0muvvdbEbrvtNvFJwHcES0Cn6667zg51efxr1bp1a7EWWhEsAUSJhlMT40fBusVb - ehLwHcES0MkdbpM47rXr1q2bWAutCJYAokLLHTruvPNOE7v77rvFJwHfESwBnXr37m2Hujz+tbrmmmvE - WmhFsAQQBZruznH//feb2OjRo8UnAd8RLAGdOnXqZIe6PP61chcskmqhFcESgHY33XSTuP756rHHHjOx - ++67T3wS8B3BEtDptNNOs0NdHv9aTZgwQayFVgRLAJpdf/314trnsxdeeMHEHnjgAfFJwHcES0Cn4447 - zg51efxr9f7774u10IpgCUArbZ9U7vT222+b2Lhx48QnAd8RLAGdmjRpYoe6PP61+vnnn8VaaEWwBKDR - 0KFDxTVPg88++8zExo8fLz4J+I5gCehUt25dO9Tl8a9Vdna2KVq0qFgPjQiWALTRcvXXPVm8eLGJPfHE - E+KTgO8IloBOVapUsUNdHv+a1a5dW6yHRgRLAJrccMMN4lqnyaZNm0zs6aefFp8EfEewBHQqU6aMHery - +NesTZs2Yj00IlgC0CIKobJ06dL2rdovn3vuucCTgAYES0CnrKws4w4NTRz72l1yySViPTQiWALQIAqh - 0qlZs6Z9u/bLqF3CHNFBsAT0+vXXX+1wl+eAVnfeeadYC40IlgB8p/GWInvStGlT+5btly+//HLgSUAD - giWg15w5c+xwl+eAVlHaXlerVs00a9YMQBJF8R7AmXLllVeKa5tWbdu2tW/bfvn6668HngQ0IFgCek2Z - MsUOd3kOaPX111+LtQCA3DjooIPsUiKvL0ieqIVKp2vXrvat2y/ffPPNwJOABgRLQK9nnnnGDnd5Dmi1 - detWU6RIEbEeALAvBMvUu+6668Taa3f11Vfbt2+/nDRpUuBJQAOCJaDX6NGj7XCX54Bm9evXF+sBAPtC - sEytoUOHinWPgvvvv9+WwH45derUwJOABgRLQC93UYTEsR8FHTt2FOsBAPtCsEyNHTt2mCFDhog1j4o3 - 3njDlsJ++c477wSeBDQgWAJ69enTxw53eQ5oduONN4r1AIB9IVgmH6HyD19++aUth/1y+vTpgScBDQiW - gF4dOnSww12eA5o9++yzYj0AYF8IlsnlQuXgwYPFWkdJ4cKFzebNm21J7D/ff//9wDcAGhAsAb2aN29u - h7s8BzT75ptvxHoAwL4QLJOHUPkXt9+5sy6xWbNmBb4B0IBgCehVq1YtO9zlOaBZTk6OKVWqlFgTANgb - gmVyuFA5cOBAscZR5M7931mb2OzZswPfAGhAsAT0KlasmHEhK3H8R8Exxxwj1gQA9oZgWXAuVA4aNEis - b1SNGjXKluaP+sTmzJkT+AZAA4IloNvChQvtkJfngWb9+/cX6wEAe0OwLBhCpWzmzJm2PH/UKDZ37tzA - NwAaECwB3f73v//ZIS/PA80eeeQRsR4AsDcEy/zj8FdZ8eLF/7xwjxObP39+4JsADQiWgG6PPfaYHfLy - PNCMU1gA5AfBMn9cqORIEVmrVq1sif6qVWzx4sWBbwI0IFgCul1//fV2yMvzQLNt27ZxAR8AeUawzDsX - Ki+77DKxnoiZ6667zpbpr3rFli1bFvgmQAOCJaBbu3bt7JCX54F2xx9/vFgTANgTgmXeECr37Y033rCl - +qtmsdWrVwe+CdCAYAnoFtU57lxzzTViTQBgTwiWuUeo3LesrCyzYsUKW66/6hbbuHFj4BsBDQiWgH7L - ly+3w16eC5q99NJLYj0AYE8IlrnjQuWAAQPEGuIvjRo1suXavXbxmy1L3wz4jmAJ6Dd16lQ77OW5oNmS - JUvEegDAnhAs982Fyn79+on1w+5c+E6sX/yhcOHCgW8GfEewBPS744477LCX54J2tWrVEmsCABKC5d5t - 377dXHzxxWLtEPTKK6/Ysu1ew/hDyZIlA98M+I5gCejXsWNHO+zluaBd7969xZoAgIRguWfuk0puKZJ7 - 7kPJVatW2dLtXsf4Q/ny5QP/AfAdwRLQL6rz3HniiSfEmgCAhGApI1Tm3THHHGNLF6xl/OGAAw4I/AfA - dwRLIBqWLl1qh748HzRbuHChWA8AkBAsgwiV+fN///d/tnzBesYfqlWrFvgPgO8IlkA0vP7663boy/NB - O86zBJBbBMvduVB56aWXirXC3k2fPt2WMFjT+MMhhxwS+A+A7wiWQDTcdNNNdujL80E7zrMEkFsEy78Q - KvOvdOnSZuvWrbaMwbrGH+rXrx/4T4DvCJZANJx66ql26MvzQbunn35arAkAJCJY/sGFyksuuUSsEfat - Xbt2toxybeMPjRs3DvwnwHcESyAaKlWqZNyOQuJciIJly5aZQoUKiXUBgF0RLP+4pQhHehTM/fffb0sp - 1zf+0KxZs8B/AnxHsASi48cff7TDX54T2rENB5AbUQ+WLlT26tVLrA1yb8GCBbacco3jDy1btgz8J8B3 - BEsgOp5//nk7/OU5od2NN94o1gQAdhXlYEmoTI6mTZvacso1duIPJ598cuA/Ar4jWALRceWVV9rhL88J - 7dzV+aSaAMCuohosc3JyCJVJMmLECFtSuc5O/KF9+/aB/wj4jmAJRMfxxx9vh788J7TLzs425cuXF+sC - ADtFMVi6UNmjRw+xHsi7Tz/91JZVrrUTfzjvvPMC/xHwHcESmpUqVcrUrl0b/5+7CF1UL+DjnH/++eI4 - AYCdohYsCZXJVb169X1uZ+MPXB0JGhEsodlZZ51lu1seA4ie5557ThwnALBTlIKlC5U9e/YU64D8GThw - oC2tXO+d4g8DBgwI/GfAdwRLaEawxK7WrFljihUrJo4VAHCiEizdhXoIlck3ZcoUW1655jvFH66++urA - fwZ8R7CEZgRLJGrbtq04VgDAiUKw5OqvqeHuF71t2zZbYrnuO8Ufhg8fHvgBgO8IltCMYIlEY8eOFccK - ADjagyWhMnX69etnSyzXfVfxh1GjRgV+AOA7giU0I1gi0eLFi01WVpY4XgBAc7B0oZJrxqTOtGnTbJnl - 2u8q/nDfffcFfgDgO4IlNCNYQtKqVStxvACA1mDprlR6ySWXiO8ZBVelShXjLoaUWHdJ/GH8+PGBHwL4 - jmAJzQiWkNx///3ieAEAjcHShcpLL71UfL9IjiFDhthSy/VPFH/gMuXQiGAJzQiWkPz++++mSJEi4pgB - EG3agiWhMj0++OADW265DxLFH1577bXADwF8R7CEZgRL7EmbNm3EMQMg2jQFS0JletSoUcO4WifWf0/i - D+6+JNIPA3xGsIRmBEvsyaOPPiqOGQDRpiVYugv19OnTR3yPSK5rr73WllzuB0n84f333w/8IMB3BEto - RrDEnqxatcoUK1ZMHDcAoktDsHSfnvXv3198f0i+b775xpZd7gtJ/OHrr78O/CDAdwRLaEawxN506NBB - HDcAosv3YOlC5cUXXyy+NyTfsccea8su98WexB+WLFkS+GGA7wiW0Ixgib15+eWXxXEDILp8DpYuVA4Y - MEB8X0gNd1pFYj/sS/xh06ZNgR8G+I5gCc0Iltibbdu2mcqVK4tjB0A0+RosCZXpV7p0abN27VpbfrlP - 9uTPL0qUKBH4oYDPCJbQjGCJfbnyyivFsQMgmnwMloTKzLjwwgtt+eU+2Zs/v6hatWrghwI+I1hCM4Il - 9oXrJwDYlW/B0oXKyy67THwvSK2ZM2faLpD7ZW/+/KJhw4aBHwr4jGAJzQiWyI3mzZuL4wdA9PgULAmV - meP2I139E/skN/78olWrVoEfDPiMYAnNCJbIjYcfflgcPwCix5dgyeGvmXXXXXfZbpD7Zl/+/KJ9+/aB - Hwz4jGAJzQiWyI01a9aYMmXKiGMIQLT4ECwJlZlVqlQps3LlStsVcv/sy59f9OjRI/DDAZ8RLKEZwRK5 - xc3EAThhD5YuVA4cOFB87UgPd5/QxH7Jiz+/GDx4cOCHAz4jWEIzgiVy65tvvjFZWVniOAIQHWEOli5U - Dho0SHzdSJ85c+bY7pD7KDf+/OLmm28O/HDAZwRLaEawRF6cdNJJ4jgCEB1hDZaEynA44YQTbHfIfZRb - f34xfvz4wC8AfEawhGYES+TFyy+/LI4jANERxmDpQiVHTYbDSy+9ZLtE7qfc+vOLyZMnB34B4DOCJTQj - WCIvcnJyTK1atcSxBCAawhYsCZXhUaNGDZOdnW27Re6r3PrzC3cOhvSLAF8RLKEZwRJ5dfvtt4tjCUA0 - hClYulA5ZMgQ8XUi/e644w7bLXJf5cWfX6xbty7wSwCfESyhGcESeeUuIc+tR4DoClOwHDp0qPgakX6l - S5c2K1assN0i91Ve7PaPcuXKBX4Z4CuCJTQjWCI/+IQAiK6wBEtCZbhcddVVtlvkvsqr3f7RsGHDwC8D - fEWwhGYES+THokWLTNGiRcUxBUC3MATL6667TnxtyAy3PVi4cKHtGrm/8mq3f5x66qmBXwj4imAJzQiW - yK/u3buLYwqAbpkOloTK8Onbt6/tGrm/8mO3f1xyySWBXwj4imAJzQiWyK8vv/zSZGVlieMKgF6ZDJaE - yvApVKiQ+fbbb233yH2WH7v9Y+zYsYFfCviKYAnNCJYoiNNPP10cVwD0ylSwvP7668XXg8zq1KmT7R65 - z/Jrt3/MmDEj8EsBXxEsoRnBEgXx3nvvieMKgF6ZCJZXX321+FqQeZ988ontIrnf8mu3f6xdu5bDY6AG - wRKaESxRUCeddJI4tgDolO5gec0114ivA5l32mmn2S6S+60gAg2HHHJI4JcDPiJYQjOCJQpq5syZ4tgC - oFM6g+UNN9wgvgaEw0cffWS7Se67ggg0nH322YFfDviIYAnNCJZIhtatW4vjC4A+6QqWN954o/j7EQ6p - 3H8INIwcOTLwAgAfESyhGcESyfD++++L4wuAPukIloTKcHOnPH7++ee2q+T+K6hAwxdffBF4EYCPCJbQ - jGCJZGnbtq04xgDokupgSagMv86dO9uukvsvGcTGGjVqBF4I4BuCJTQjWCJZPvjgA3GMAdAllcGSW4qE - X+HChc0333xju0vuw2QQGy+++OLAiwF8Q7CEZgRLJBPXVwD0S1WwvOmmm8Tfh3Dp3r277S65D5NFbJw4 - cWLgxQC+IVhCM4Ilkmnu3LmmSJEi4lgDoEMqgiWHv/qhWLFi5ocffrBdJvdjsoiNOTk5platWoEXBfiE - YAnNCJZItksvvVQcawB0SHaw/L//+z/x9yB8rrzySttlcj8mk9jocHVY+I5gCc0Ilki2ZcuWmbJly4rj - DYD/khksCZX+qFixolmxYoXtNrkvk0lsdFauXGlKlSoVeHGALwiW0IxgiVQYPny4ON4A+C9ZwXLYsGHi - z0c43Xvvvbbb5L5MNrFxp0GDBgVeHOALgiU0I1giFdavX2+qVq0qjjkAfktGsCRU+qVOnTpm69attuvk - /kw2sXGn33//3ZQrVy7wIgEfECyhGcESqTJ+/HhxzAHwW0GDJUc0+Of111+3XSf3ZyqIjbsaMWJE4EUC - PiBYQjOCJVJl+/btpkWLFuK4A+CvggRLQqV/TjzxRNt1cn+miti4K3dYTJUqVQIvFgg7giU0I1gilWbN - mmUKFSokjj0AfspvsORDJv+420d98cUXtvvkPk0VsTHRI488EnjBQNgRLKEZwRKp1qdPH3HsAfBTfoLl - qFGjxJ+FcLv88stt98l9mkpiYyJ3X8vGjRsHXjQQZgRLaEawRKq5249UqFBBHH8A/JPXYHnnnXeKPwfh - 5o40XbNmje1CuV9TSWyUTJs2LfDCgTAjWEIzgiXSwV2mXhp/APyTl2BJqPTX888/b7tQ7tdUExv3xO3I - SG8ACCOCJTQjWCIdsrOzTdOmTcUxCMAvuQ2Wt956q/j/EX6tW7e2XSj3azqIjXuyaNEiU6ZMmcCbAMKI - YAnNCJZIF3cBiKJFi4rjEIA/chMs77rrLvH/IvyKFStm5s6da7tR7tt0EBv35u677w68ESCMCJbQjGCJ - dLr66qvFcQjAH/sKloRKv9144422G+W+TRexcW/cYTFHHnlk4M0AYUOwhGYES6TTxo0bTZ06dcSxCMAP - ewuWfHDkN7fvt2nTJtuVcv+mi9i4L7Nnz45/3Cq9MSAsCJbQjGCJdHvnnXdMVlaWOB4BhN+egiWh0m/u - nsPTp0+3XRns23QTG3NjzJgxgTcGhAnBEpoRLJEJPXr0EMcjgPCTguU999wjfi/8kal7VkrExtw655xz - Am8OCAuCJTQjWCITVqxYYapWrSqOSQDhlhgsR40aJX4f/OFOUdiwYcNu/ZpJYmNurV692tSuXTvwJoEw - IFhCM4IlMmXy5MkcEgt4aNdgySeV/nOHwL777rt/9mkYiI158fHHH5vixYsH3iyQaQRLaEawRCZdfPHF - 4rgEEF47g+U//vEP8Xn45bLLLov3Z5iIjXn1wgsv8NdLhA7BEpoRLJFJ69atM4cccog4NgGEkwuWXKhH - B7f+rl+/3i7H8hqdKWJjfgwfPjzwpoFMIlhCM4IlMu29996LH4oljU8A4VO4cGGxHX4pUqSIef/99+0y - LK/NmSQ25seOHTtMz549A28eyBSCJTQrVapU/Bx3pNYtt9xip5U812BiV155pTg+AQCp4T7MS1yLw0Js - zK9t27aZ1q1bBwoAZALBEkBBuXs2f/fdd3ZqyfMt6rZs2WKaNm0q1g4AkFxHH320cXkrcS0OC7GxIFau - XGkaNWoUKASQbgRLAMlwyimn2KklzzeY2A8//GDKlSsn1g4AkBxlypQx8+bNs8uuvBaHgdhYUMuWLTMN - GjQIFARIJ4IlgGSZOHGinV7ynMMfF/GT6gYASI5nnnnGLrfyGhwWYmMyLF68OH5+ilQYIB0IlgCSxW3P - Nm/ebKeYPO9gYr169RJrBwAomM6dO9tlVl57w0RsTJaFCxeaWrVqBYoDpAPBEkAy3XrrrXaKyfMOJrZh - wwaOVgKAJKtXr55Zs2aNXWbltTdMxMZkcudeuPvmSIUCUolgCSCZSpYsaRYsWGCnmTz3YGJffPFFvE5S - /QAAeVO6dGnz5Zdf2uVVXnPDRmxMtvnz55s6deoEigWkEsESQLJ16tTJTjN57uEP7jwgqXYAgLx58skn - 7bIqr7VhJDamwtKlS03jxo0DBQNShWAJIBX++9//2qkmzz/8YcCAAWLtAAC549bRxLU17MTGVFm1apU5 - 9thjA4UDUoFgCSAV3HmEYb6PWBi4+hx//PFi/QAAe9e8eXPj7hOcuLaGndiYSu7kfndPMKmIQDIRLAGk - yj333GOnmzwH8Ydff/2VaywAQB5VqlTJ/PTTT3YZldfWMBMbU80l8K5duwYKCSQTwRJAqpQtW9YsWbLE - Tjl5HuIP06dPN0WLFhVrCADYXZEiRcyUKVPs8imvqWEnNqbLmDFjTKFChQJFBZKBYAkglXr06GGnnDwP - 8ZcHH3xQrB8AYHf33XefXTbltdQHYmM6/ec//zHly5cPFBYoKIIlgFTKysoy7733np128lzEXwYPHizW - EADwh4suusgul/Ia6guxMd2++uorc8ghhwQKDBQEwRJAqrmrnWdnZ9upJ89H/CEnJ8d06NBBrCEARJ27 - 2NnWrVvtcimvob4QGzNhxYoV5uyzzw4UGsgvgiWAdHjggQfs1JPnI/6ybt06c/jhh4s1BICoch+u/f77 - 73aZlNdOn4iNmfTUU0+ZMmXKBIoO5BXBEkA6lCtXzrh7NSfORQT9/PPP5sADDxTrCABR4y4E547cTFwr - fSU2Zpq7xG7Lli0DxQfygmAJIF26d+9up588J7G7Dz74wJQsWVKsIwBEhbti9qRJk+yyKK+VPhIbw8Dd - XHnYsGGmRIkSgY4AcoNgCSCd3n77bTsF5XmJ3b3xxhvxy+pLdQQA7dzF35544gm7HMprpK/ExjBZvHhx - /JLurgOkjgH2hGAJIJ3q1atnNm/ebKehPDexu3/9619s2wFE0qhRo+wyKK+NPhMbw+jdd981RxxxRKBj - gD0hWAJIt1tvvdVOQ3luIuiWW24R6wgAWl166aV2+ZPXRN+JjWG1fft2M3HiRNOiRYtAJwGJCJYA0s2d - O/jjjz/aqSjPTwRxj0sAUXHWWWcZd/ulxHVQC7HRBzNmzDDt27cPdBiwE8ESQCaceuqpdirK8xNBbifr - 3HPPFWsJAFqccMIJ6k+XEBt98vHHH8c3SIULFw50IKKNYAkgU1588UU7HeU5iiB3Y/DTTz9drCUA+K5Z - s2Zm9erVdrmT10AtxEYfLVmyJH4ibK1atQKdiWgiWALIlAMOOEDNDa/TZcuWLea0004T6wkAvmrcuLFZ - sWKFXebktU8TsdFn7pCaqVOnmr59+5pKlSoFOhfRQbAEkEkXXHCBnZLyPIVs48aN5u9//7tYTwDwjbta - +NKlS+3yJq952oiNWrhDa1zIvOqqq0yjRo0CnQ3dCJYAMu3ll1+201Keq5CtXbvWNG/eXKwnAPiiRo0a - 5ueff7bLmrzWaSQ2auX+YvDSSy+ZK664whxzzDGmVKlSgUEAPQiWADKtSpUqZuXKlXZqyvMVMlezJk2a - iDUFgLCrXr26+emnn+xyJq9xWomNUeFuXzJv3rx42Lz55ptNjx49TMuWLeM7AtIggV8IlgDCoHv37nZq - yvMVe+bOSXIXvJBqCgBhVbVqVfP999/bZUxe2zQTG/HHeR4//PCD+eCDD8zrr79uHnvsMXP77bebyy+/ - PL6T4C4w4P6aWq1aNVOxYkWuShtCBEsAYcEhsfmzZs0ac+yxx4o1BYCwcZ9Uug+tEteyqBAbkT/uwkGr - Vq0y7gq18+fPN5999pn56KOP4ud5unA6YcIE88gjj5hx48aZMWPGxK9iu9Ntt91mhg4dupt+/frtplu3 - bqZz58554u6n1qZNm0jq0qWL7Ra5rzQjWALhwyGx+bdhwwZz0kkniXUFgLBwd6b48ccf7bIlr2VRIDYC - 8BfBEggnDonNP3cUkfuDoVRXAMi0+vXrm8WLF9vlSl7DokJsBOAvgiUQXq+88oqdpvLcxd5t2rQpfhSO - VFcAyBR3n8rffvvNLlPy2hUlYiMAfxEsgfBy5+QvXLjQTlV5/mLv3G3EunbtKtYWANKtadOmZvny5XZ5 - ktesqBEbAfiLYAmE2wknnGDcOfmJcxe5467oPmjQILG2AJAuJ554onEXGEtco6JMbATgL4IlEH533XWX - na7yHEbuuAvfZWVlifUFgFTq2LGj2bx5s12K5PUpqsRGAP4iWALhV7RoUTNr1iw7ZeV5jNx58sknTZEi - RcQaA0AquCMm3JETiesRbHmkRgD+IlgCfqhbt65Zt26dnbbyXEbuvPrqq6ZUqVJijQEgWdwREnfeeadd - duS1CLZMUiMAfxEsAX9cfPHFdtrKcxm598UXX5iDDz5YrDEAFJQ7MmL8+PF2uZHXIPxBbATgL4Il4JcX - XnjBTl15PiP3Fi1aZA4//HCxxgCQXxUqVDBTpkyxy4y89uAvYiMAfxEsAb9UqlSJG2snyfr1602HDh3E - OgNAXtWpU8d88803dnmR1xzsTmwE4C+CJeCfFi1aGHePxsT5jLxzt3IZOnSoWGcAyK3jjz/e/P7773ZZ - kdcaBImNAPxFsAT8dMUVV9gpLM9r5N24ceNMsWLFxFoDwN7079/fZGdn26VEXl8gExsB+ItgCfjJXXHw - xRdftNNYntvIu9mzZ5saNWqI9QaARIULFzbuHrmJawlyR2wE4C+CJeCvsmXLmrlz59qpLM9v5N3SpUtN - q1atxHoDwE4HHHCAefvtt+2yIa8l2DexEYC/CJaA3xo3bmw2btxop7M8x5F37pA2zrsEsCdHHXWUWbBg - gV0u5DUEuSM2AvAXwRLwX58+fex0luc48u+xxx4zJUuWFGsOIJoGDRrExdOSRGwE4C+CJaDD448/bqe0 - PM+Rf99++238U2Gp5gCio0yZMub555+3y4K8ViDvxEYA/iJYAjqUKFHCfPbZZ3Zay3Md+bdp0yYzePBg - se4A9HP7Sl999ZVdDuQ1AvkjNgLwF8ES0KNWrVpm+fLldmrL8x0F8+STT5rSpUuLtQegU69evcz69evt - EiCvC8g/sRGAvwiWgC5t2rThfmop5A6NPfzww8XaA9CjQoUK5oUXXrDTXl4LUHBiIwB/ESwBfa644go7 - veU5j4Lbtm2bGT58ePwedlL9AfjtmGOOMfPnz7fTXV4DkBxiIwB/ESwBnR599FE7xeV5j+R4//33TZ06 - dcT6A/BPkSJF4n80ysnJsVNcnvdIHrERgL8IloBOxYsXNx9++KGd5vLcR3KsWbPG9OjRQ+wDAP6oV6+e - mTVrlp3W8lxH8omNAPxFsAT0qlKlilm8eLGd6vL8R/JMmDDB7LfffmI/AAivQoUKmcsvv9xs3LjRTmV5 - fiM1xEYA/iJYAro1bdrUuNtlJM59JN+yZcv49BLwiDuU/d1337XTV57TSC2xEYC/CJaAfi7sJM59pM6b - b75pDj74YLEvAGSe+5SyX79+ZsOGDXbKyvMYqSc2AvAXwRKIhpEjR9opL68DSD537qXbcc3KyhL7A0Bm - NGrUiHMpQ0JsBOAvgiUQDS7gPP3003bay2sBUuPtt982devWFfsEQPqULFnS3HzzzWbLli12asrzFekl - NgLwF8ESiI5ixYqZadOm2akvrwdIDXffyzFjxpjSpUuL/QIgtU4++WQzd+5cOx3lOYrMEBsB+ItgCURL - pUqVzHfffWenv7wmIHXcFXo7deok9guA5DvooIPMU089ZaefPCeRWWIjAH8RLIHoOeSQQ8xvv/1mlwB5 - XUBqTZw4Md4HUt8AKLgiRYqYwYMHm3Xr1tkpJ89DZJ7YCMBfBEsgmo466iiuiJhB7hYwI0aM4PBYIMlO - O+00880339hpJs89hIfYCMBfBEsgutq3b29ycnLsUiCvD0i9JUuWxK8eW7hwYbGPAOTOoYceat544w07 - reS5hvARGwH4i2AJRJs7XCxxXUD6uU9YTj/9dLGPAOzZfvvtF784VnZ2tp1K8vxCOImNAPxFsARwyy23 - 2OVAXiOQXu78S/fJi9RPAP5SokQJc/3113MepcfERgD+IlgCcP7xj3/YJUFeJ5Be7pOXxx57zNSsWVPs - KyDKihYtavr27WsWLlxop4s8h+AHsRGAvwiWAJysrKx4mElcI5A57v6X48aNi98yQeozIEoKFSpkOnfu - bObNm2enhzxn4BexEYC/CJYAdnIXkHnxxRft0iCvF8iMjRs3xs8hq1y5sthvgGbuj17uQmNz5syx00Ge - I/CT2AjAXwRLALsqVqyYmTRpkl0e5DUDmbN27Vpz++23mwMOOEDsO0ATFyg7duxovvzySzv85TkBv4mN - APxFsASQqFSpUmbmzJl2iZDXDWTWli1b4ofIVq9eXew/wGc7D3n9+uuv7XCX5wB0EBsB+ItgCUDiLuH/ - 1Vdf2WVCXjuQeVu3bjVPPfWUqV+/vtiHgE+KFy9uevTowTmUESI2AvAXwRLAnrhDLjkMLfxycnLMc889 - Z44++mixH4Ewq1ixornpppvM77//boezPMahk9gIwF8ESwB748IlF83wx4wZM8y5554bvxCT1J9AWLj9 - j3vvvZf7UEaY2AjAXwRLAPviPlH45JNP7JIhryMIn59++skMHTo03ndSnwKZ4M6fbNOmjZkwYYJxn7Qn - jltEi9gIwF8ESwC5UaFCBfPxxx/bZUNeSxBO7kqy999/vznssMPEfgXSoXz58mbIkCGcP4ndiI0A/EWw - BJBbLlzOmjXLLh3yeoJwc1f6dRdHKVGihNi/QLI1bdrUPPjgg2b9+vV2CMrjEtElNgLwF8ESQF64Tx4+ - +ugju3zIawrCb82aNfHblTRu3FjsY6Ag3BrRr18/8+mnn9rhJo9BwBEbAfiLYAkgr9yOo7tITOJ6Av/M - nj3bDB482Oy///5iXwO54c6dbNWqVfwPFhs3brRDSx5vwK7ERgD+IlgCyA93z7mXX37ZLiPy2gK/bNmy - xbz44oumQ4cOpmjRomKfA4kaNWpkbr31VrNgwQI7jOSxBeyJ2AjAXwRLAPnlbmnx2GOP2aVEXl/gJ3c/ - QXcbiJYtW5qsrCyx7xFdderUMTfccAP3uEWBiY0A/EWwBFAQLnjcc889djmR1xj4bfHixWbMmDHxW0Rw - b8zoqlatWvyQaXcI/I4dO+zQkMcLkBdiIwB/ESwBJIO7Z2Li+gJdfvnlF3PfffeZ448/npAZAQ0bNjTX - XXed+fDDD8327dvtEJDHBZBfYiMAfxEsASRL//792QGNiJUrV8Zvcu9uX+JuQyONB/jF/bHAXYBn1KhR - 5ttvv7XdLPc9kCxiIwB/ESwBJFPHjh2NuxBM4loDvbZt22beeecdc9VVVxm2KX6pXLmy6datm/nXv/5l - VqxYYbtT7mMgFcRGAP5iJwBAsrVu3dqsW7fOLjHyugPdli5dGv80093L8OCDDxbHCDKjZMmS8fNl3aeS - 7lYzHGGATBIbAfiLYAkgFY4++mizfPlyu8zIaw+iwV3oZc6cOWb06NGmXbt2pmzZsuJ4QWoUK1YsfnXf - 66+/3kybNo2jCRAqYiMAfxEsAaSKu/iHu6po4rqD6MrJyTFff/11/Eb67vxMN0aksYP8ccHdfSI5fPhw - M3XqVLNp0yZbdrkvgEwTGwH4i2AJIJVq1apl5s2bZ5cbeQ0C3B8fnn/+eTNkyJD4YdRVqlQRxxJ250Jk - 8+bNTZ8+fcyDDz5ovvrqKw5thVfERgD+IlgCSLUDDzzQfP7553bJkdchINGqVavMp59+al555ZX4fTSv - uOIK07NnT3PGGWeYFi1amLp165py5cqJ4813pUqVMtWrVzdNmjQxbdu2NV27djUDBw40d9xxh3n22WfN - zJkzjbv1S2LNAN+IjQD8RbAEkA7ulhTTp0+3y468FgH54a5I++uvv8YPr33vvffMm2++Gb9w0OOPPx4/ - 3PbOO+80t912W/w+q+4G/+6CQi6ode7c2Zx66qnxw0Z35W630axZs924gFe7dm3TqFGjwHMu5Cb+DKdT - p07x33HxxRebAQMGxH+/OzzVXTTngQceMI888kj8db766qvm7bffjv/hZdGiRRy6ikgRGwH4i2AJIF2K - Fy9uXn75Zbv0yOsRACAqTOz/AQDTq+UV1OGCAAAAAElFTkSuQmCC - - iVBORw0KGgoAAAANSUhEUgAAA5YAAAPUCAYAAADWm6YZAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH @@ -2039,4 +1345,701 @@ FgIAAAAAAAC0SrAQAAAAAAAAoFWChQAAAAAAAACt0ej5/x9oWtk/vf5fAAAAAElFTkSuQmCC + + ..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pdf_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + + iVBORw0KGgoAAAANSUhEUgAAA5YAAAPUCAYAAADWm6YZAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6 + JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AACMFklEQVR4Xu3debyN5f7/8bXN81SJZMhw + hJQoijoNaEKlKGQqUmRo1vRFIw3HUWlQmk7j0aw6x5BOoUFp0KSUhCiZ52Fvrt91rX6KdX+whzXc1+d+ + /fFcj+1a295rfa7hvt973UPMGAMAkbd69Woze/Zs88ILL5g777zTXH755eaCCy4wrVu3Nk2aNDG1a9c2 + Bx54oClfvryJxWK7ycrKMhUrVjTVq1c39evXN0cddZQ544wzTO/evc2NN95o7r33XvPaa6+Zr776ymza + tMn+Ovk1AAAA+EpsBACtcnJyzBdffGGefPLJeHg88cQTzX777RcIi6lUrVo1c/LJJ5srrrgi/jo+//xz + s3XrVvvy5NcMAAAQdmIjAGiRnZ1tZsyYYW6//XZz2mmnmbJlywaCXhiUKFHCHHfccWbo0KHm9ddfN8uX + L7cvX35PAAAAYSM2AoDPVqxYYSZMmGB69OgRP0RVCnI+aNiwYTxoTp06lU80AQBAqImNAOAbFyYffPBB + 06pVK1OoUKFASPNdhQoV4kHZnavJeZoAACBsxEYA8MGWLVvin0yeeeaZplixYoEwplWZMmVMly5dzJtv + vmncOaOJdQEAAEg3sREAwuyXX34xN910U/wqrVLwipKqVauaa665xnz77be2NHK9AAAAUk1sBIAwchfh + 6dSpkylSpEggYCFmTjrpJPPKK6/wKSYAAEg7sREAwmTatGnx24JIYQpBNWvWNHfddZdZu3atLZ9cUwAA + gGQSGwEgDCZNmhS/GI8UnrBv7oq4w4YNMytXrrTllGsMAACQDGIjAGTSp59+ak4++eRAUEL+uHt3utuW + rFq1ypZXrjkAAEBBiI0AkAmLFi2K31JD4+1CwsB9gnn33XebzZs323LLfQAAAJAfYiMApJO7bciIESNM + yZIlA2EIyVevXj3z9ttv29LL/QEAAJBXYiMApMv//vc/U79+/UD4QWplZWXFPx1evXq17Qa5bwAAAHJL + bASAVFuxYoXp1atXPOBIwQfp4a4gO3PmTNslcj8BAADkhtgIAKk0efJkU61atUDIQWYULlzYDB8+nPtf + AgCAfBMbASAVNm3aZAYPHsynlCF1zDHHmJ9++sl2ldx/AAAAeyI2AkCyffLJJ+Zvf/tbIMwgXCpVqmTe + eOMN22VyPwIAAEjERgBIpqeeeoorvnrEfaLsDo1N7EcAAIA9ERsBIBnc/RL79u0bCC7wQ58+fcy2bdts + V8r9CwAAsJPYCAAFNX/+fHPEEUcEwgr80rp1a7Nq1SrbpXI/AwAAOGIjABTEhx9+aCpXrhwIKfBT3bp1 + zXfffWe7Vu5vAAAAsREA8uu5554zJUqUCIQT+G2//fYzs2bNsl0s9zsAAIg2sREA8mrHjh3m5ptv5lYi + ipUrV85Mnz7ddrc8BgAAQHSJjQCQFy5UDhkyJBBEoE+pUqXM5MmTbbfLYwEAAEST2AgAuZWTk2MuvPDC + QACBXsWKFTOvvvqq7X55TAAAgOgRGwEgN7Zu3Wo6deoUCB7Qr2jRoubFF1+0w0AeGwAAIFrERgDYFxcq + 27dvHwgciI4iRYqYZ5991g4HeYwAAIDoEBsBYG/c4a9dunQJBA1ET+HChc3LL79sh4U8VgAAQDSIjQCw + J+5CPX379g0EDERXyZIlzXvvvWeHhzxmAACAfmIjAOzJgAEDAsECKF++vPn888/tEJHHDQAA0E1sBADJ + 7bffHggUwE4HHHCA+e677+xQkccPAADQS2wEgETuCqCFChUKhAlgV9WrVzcLFy60Q0YeRwAAQCexEQB2 + 9eGHH8bPo5OCBJCocePGZv369XboyOMJAADoIzYCwE7u06fKlSsHwgOwN+ecc45xF3pKHE8AAEAnsREA + nG3btpmWLVsGQgOQG8OHD7fDSB5bAABAF7ERAJz+/fsHwgKQW1lZWebf//63HUry+AIAAHqIjQDw/PPP + B4ICkFdlypQxX375pR1S8jgDAAA6iI0Aou377783pUuXDoQEID/q1KljVq5caYeWPN4AAID/xEYA0bV9 + +3Zz3HHHBcIBUBBnnXWWHV7ymAMAAP4TGwFE12233RYIBUAyPPbYY3aIyeMOAAD4TWwEEE1ffPGFKVas + WCAQAMngDq+eN2+eHWry+AMAAP4SGwFET3Z2tmnSpEkgDADJ1KpVK5OTk2OHnDwOAQCAn8RGANEzZsyY + QAgAUuGOO+6wQ04ehwAAwE9iI4Bo+fXXX0358uUDAQBIBXe4tTvsOnEcAgAAf4mNAKKle/fugZ1/BLlz + BA8++GBz2GGHmWbNmv3JHUJcvXp1U6pUKfH/Iahly5Zmx44ddvjJYxIAAPhFbAQQHe+//77JysoK7PhH + WZEiRUzTpk3NZZddZp588knzwQcfmN9//92WS67hrjZu3GjmzJljXn75ZTNq1Chz/vnnm7p161JjwRNP + PGFLJtcRAAD4RWwEEB0nnHBCYIc/iipWrGh69OhhJkyYYNauXWtLI9crv1avXm0mTpxohgwZEv/Ek6AZ + MwceeKBZv369LY9cMwAA4A+xEUA0TJo0KbCzHyUu3J188snm2WefNZs3b7YlkeuUCgsXLjR33nmnOfTQ + Q8XXFhXuvqmJtQEAAP4RGwHo585vc+cHSjv72hUqVCh+iGoYLiCzfft28+qrr5qjjjpKfK3aVahQwaxa + tcqWQq4PAADwg9gIQD93DqC0o69dhw4dzHfffWdLINclU1zQf+aZZ+IXAZJet2bDhg2zJZDrAgAA/CA2 + AtDNhRh3JVNpJ1+rBg0amClTpti3L9ckLDZs2BA/D9N9qiq9D43c+a2pOK8VAACkj9gIQLfXX389sHOv + lbvC63XXXZf2cygLyl2JtlatWuJ70mjkyJH2bcu1AAAA4Sc2AtAtKufzudt8fPzxx/Yty3UIu5UrV5r2 + 7duL702bypUrG3erlsQaAAAAP4iNAPR66623Ajv1Gp155pkqLgrjDlseM2aMKVq0qPg+NXHvM/H9AwAA + P4iNAPQ65phjAjv0mrhzE91tPFwgS3zvPps2bVr8Uz3pPWtRrVo1s2XLFvt25RoAAIDwEhsB6DR58uTA + zrwmJUqUMM8//7x9q/L7992CBQtMvXr1xPeuxbhx4+xbld8/AAAIL7ERgE7HH398YEdei/3339989NFH + 9m3K712LX3/91RxxxBFiDTSoXbu2yc7Otm9Vfv8AACCcxEYA+rzzzjuBnXgtDjzwQPPll1/atym/d21W + r15tNP+R4F//+pd9m/J7BwAA4SQ2AtDn5JNPDuzAa+DOy/vuu+/sW5Tft1abNm1Se8XYQw891Gzfvt2+ + Tfm9AwCA8BEbAegyc+bMwM67BlWqVDHz5s2zb1F+39pt3brVnHrqqWJtfDdhwgT7FuX3DQAAwkdsBDRY + vHhxYGcVelSoUMF8/vnntqvl/o8Kd+/H4447TqwRdJg1a5btarn/AQAIC7ER0IBgqVe5cuXMxx9/bLtZ + 7vuoWbNmjeoL+kQdwRIA4AOxEdCAYKlTyZIlzfTp020Xy/0eVb/88oupWbOmWDP4jWAJAPCB2AhoQLDU + 6emnn7bdK/d51LmLGJUvX16sG/xFsAQA+EBsBDQgWOpz5ZVX2q6V+xt/eP31101WVpZYP/iJYAkA8IHY + CGhAsNSldevW3Dg/l1wAl2oIPxEsAQA+EBsBDQiWerh7VS5fvtx2q9zX2N22bdtMq1atxFrCPwRLAIAP + xEZAA4KlHm+88YbtUrmfIXMX86lcubJYT/iFYAkA8IHYCGhAsNShZ8+etjvlPsbeTZw4Uawp/EKwBAD4 + QGwENCBY+q9KlSpm5cqVtjvlPsa+nXvuuWJt4Q+CJQDAB2IjoAHB0n/cWqTglixZYkqXLi3WF34gWAIA + fCA2AhoQLP3WqFEjs337dtuVcv8i90aMGCHWGH4gWAIAfCA2AhoQLP32yiuv2G6U+xZ5s3HjRi7k4zGC + JQDAB2IjoAHB0l/NmjUzO3bssN0o9y3y7rbbbhNrjfAjWAIAfCA2AhoQLP31wgsv2C6U+xX5s2rVKlOy + ZEmx3gg3giUAwAdiI6ABwdJP++23n9myZYvtQrlfkX+dO3cWa45wI1gCAHwgNgIaECz9NGTIENt9cp+i + YNx5q1LNEW4ESwCAD8RGQAOCpZ+++uor231yn6Jg1q5da4oUKSLWHeFFsAQA+EBsBDQgWPqnXr16tuvk + /kRyHHvssWLtEV4ESwCAD8RGQAOCpX8uvfRS23VyfyI5hg0bJtYe4UWwBAD4QGwENCBY+uell16yXSf3 + J5Jj0qRJYu0RXgRLAIAPxEZAA4KlXwoVKmSWL19uu07uTyTHypUrTVZWltgHCCeCJQDAB2IjoAHB0i+c + X5k+devWFfsA4USwBAD4QGwENCBY+qVdu3a22+S+RHKdc845Yh8gnAiWAAAfiI2ABgRLv1x55ZW22+S+ + RHINHTpU7AOEE8ESAOADsRHQgGDpl4cffth2m9yXSK7x48eLfYBwIlgCAHwgNgIaECz98p///Md2m9yX + SK5p06aJfYBwIlgCAHwgNgIaECz9MmPGDNttcl8iub788kuxDxBOBEsAgA/ERkADgqVfPv/8c9ttcl8i + uX799VexDxBOBEsAgA/ERkADgqVf5s2bZ7tN7ksk1+bNm8U+QDgRLAEAPhAbAQ0Iln5ZsmSJ7Ta5L5Fc + 27ZtE/sA4USwBAD4QGwENCBY+mX+/Pm22+S+RHLl5OSIfYBwIlgCAHwgNgIaECz98tlnn9luk/sSyZWd + nS32AcKJYAkA8IHYCGhAsPTLu+++a7tN7ksk1/Lly8U+QDgRLAEAPhAbAQ0Iln55/fXXbbfJfYnkchdK + kvoA4USwBAD4QGwENCBY+uWhhx6y3Sb3JZLrgw8+EPsA4USwBAD4QGwENCBY+mXgwIG22+S+RHI9/fTT + Yh8gnAiWAAAfiI2ABgRLv5x44om22+S+RHINHz5c7AOEE8ESAOADsRHQgGDpl/333992m9yXSK7OnTuL + fYBwIlgCAHwgNgIaECz94/ossR+RfNWrVxfrj3AiWAIAfCA2AhoQLP3z+OOP266T+xPJsWTJErH2CC+C + JQDAB2IjoAHB0j/nnXee7Tq5P5EcXLjHPwRLAIAPxEZAA4KlfypWrGiys7Nt98l9ioI799xzxdojvAiW + AAAfiI2ABgRLP82cOdN2n9ynKJgtW7aYsmXLinVHeBEsAQA+EBsBDQiWfrrkkkts98l9ioJ54YUXxJoj + 3AiWAAAfiI2ABgRLP5UpU8asW7fOdqHcr8i/Nm3aiDVHuBEsAQA+EBsBDQiW/ho/frztQrlfkT8//vij + KVSokFhvhBvBEgDgA7ER0IBg6a8WLVrYLpT7FfnjDjGWao3wI1gCAHwgNgIaECz99s4779hulPsWeePm + QvHixcU6I/wIlgAAH4iNgAYES78dd9xxthvlvkXeDBgwQKwx/ECwBAD4QGwENCBY+m/KlCm2K+X+Re58 + 8803pkiRImJ94QeCJQDAB2IjoAHB0n/uXMsdO3bY7pT7GPvWtm1bsbbwB8ESAOADsRHQgGCpw5NPPmm7 + U+5j7N0zzzwj1hR+IVgCAHwgNgIaECx1qFSpklm2bJntUrmfIVu6dGm8dlJN4ReCJQDAB2IjoAHBUo8L + LrjAdqnczwhyhw+3a9dOrCX8Q7AEAPhAbAQ0IFjq8p///Md2q9zX2N1dd90l1hB+IlgCAHwgNgIaECx1 + cYd1/vzzz7Zr5f7GHz744ANTtGhRsYbwE8ESAOADsRHQgGCpT8uWLc22bdts98p9HnULFy40VatWFWsH + fxEsAQA+EBsBDQiWOl1++eW2e+U+j7J169aZww8/XKwZ/EawBAD4QGwENCBY6pSVlWWeeOIJ28Vyv0fR + 1q1bDfer1ItgCQDwgdgIaECw1Ktw4cLm5Zdftt0s932U5OTkmC5duoh1gg4ESwCAD8RG5I/bwVu1apVx + 94+bP3+++fzzz+M7BFOnTjUTJ040EyZMMI8++qgZN26cGTt2rBk1atRuhg4dupvLLrvM9OvX7089e/Y0 + nTt3zpdzzjnHtGnTJlKOP/74wA4a9ChZsqSZMWOGnXryfIyC7du3mx49eoj1gR7NmzcX1zhtTj/9dHH7 + lVcXXXTRbtvOK664Yrdt64gRI3bb9v7zn/+Mb5d3+ve//21ee+21+LbbbcO/+OKL+Db9t99+M2vWrLFT + T56PABB1YiNMbNOmTfENibvCoguFjz32mLnjjjviG6ju3bub0047zTRp0sRUq1bNVKxYMf4JirRDACB1 + KlSoYGbPnm2nrDyPNXN/yHI70FJdAKSW+8OW2/bXrl3bNGzYMP6HzLPPPtv06dPHXHfddeaee+4xTz/9 + tHnvvffMDz/8YDZv3mynrTyXAUALsTEq3I7Z999/b1588UUzfPjweGB0V52sUqVKYCMCIJzKlStn3nnn + HTul5Xmukbsy7vnnny/WA0A4HXDAAeaYY46JH2Vw6623mhdeeMF88803xu2LJM5xAPCR2KjVkiVL4iHS + XVWyRYsW8b84Sos/AL8UL148MudcuqMp2rVrJ9YBgH9KlSoVD5wDBgwwzz33nHH7KonzHgB8IDZq4f6q + //bbb5urr77aNGrUKLCYA9DDHY7+wAMP2KkvrwcarF271px00kni+wegx9/+9jfTv39/M3nyZOOu+py4 + FgBAGImNPnOHlLgT7vv27WsqVaoUWKwB6OYucrVx40a7HMhrhK++++47c+ihh4rvGYBe5cuXN127djVv + vfWWyc7OtsuBvEYAQKaJjT5yt5Zw50kefPDBgUUZQLQ0btw4fv504jrhqzfffDO+cym9VwDR4a4BcdVV + V8UvCJS4TgBApomNPnFXhOzUqRNXZQWwG3dRn/Hjx5sdO3bYpUJeP8LOHYHhLvJRqFAh8T0CiCa3JrRv + 395MmTLF6zUOgC5iow/c/evcopqVlRVYcAFgJ3cbgG+//dYuG/JaElbuE4m///3v4nsCgJ0OP/zw+H2y + CZgAMk1sDCu3aLqbFrurp0mLKwBISpQoYW655RbjrqiauK6EjTuHauTIkfHXLL0XAJAcffTR8fMwE9cU + AEgXsTGM3CeUTZs2DSykAJBbBx10kBk7dmxor7LozqU84ogjxNcOALnhbqf2n//8xy4p8joDAKkiNobJ + woUL4zcC55BXAMlSo0YNM27cOLN582a7zMhrTzq9++67plWrVuJrBYD8cKcBfP3113aJkdcdAEg2sTEM + 3D0o3aFr7sbB0oIJAAXlbkk0ePBg89VXX9llR16LUsXdEuVf//pXfOdPem0AUFBFixY1N9xwgxenAQDw + n9iYae6iFc2bNw8skACQKscee6wZPXq0mTt3rl2G5LWpoNwfzKZPn24uvfRSbh8CIG3q1q0bv4Js4poE + AMkkNmbS448/bsqUKRNYFAEgXWrVqhUPfy+88EL8UDIXCBPXqtxYt26d+eSTT+KBtV27dqxtADLKHaER + 1nPMAfhPbMyEVatWxe9HKS2EAJBJxYoVM40bN46f792/f39z3XXXmVGjRpmHHnoofq7m3XffbW6++WZz + 7bXXmosuusicdNJJ8QsFST8LADLJXVl/0aJFdtdL3h8DgPwSG9Nt3rx55tBDDw0sfgAAAEiu/fff30ya + NMnugsn7ZQCQH2JjOrl7LnGuEQAAQPoULlzY3HrrrcbdIzxx3wwA8kNsTJcxY8bEFzZpwQMAAEBq9ezZ + M9/nkQPArsTGVHMnjruFTFrgAAAAkD7t27c37hZIiftrAJAXYmMqbdiwwZx22mmBRQ0AAACZ4W7z9vvv + v9tdNXn/DQD2RWxMlZUrV8avRiYtaAAAAMgcdyHFn3/+2e6yyftxALA3YmMq/Prrr+aII44ILGIAAAAI + hxo1apgFCxbYXTd5fw4A9kRsTDa3QNWtWzeweAEAACBc3D7bL7/8Ynfh5P06AJCIjcm0cOFCU7NmzcCi + BQAAgHCqV6+eWbp0qd2Vk/fvACCR2JgsixYtMoccckhgsQIAAEC41a9f37hTmRL37wBAIjYmw5IlSzj8 + FQAAwGPu+hhr1qyxu3by/h4A7CQ2FpS7XHXDhg0DixMAAAD8cuKJJxp3D/LE/T0A2JXYWBCrV682jRs3 + DixKAAAA8FOfPn3sbp687wcAjtiYX9u2bTNt2rQJLEYAAADw28iRI+3unrwPCABiY35dcsklgUUIAAAA + /svKyjLPPvus3eWT9wMBRJvYmB+33XZbYAECAACAHiVKlDCzZs2yu37y/iCA6BIb8+rf//53/K9Y0gIE + AAAAPapXr25WrFhhdwHl/UIA0SQ25sXs2bPjf72SFh4AAADoc+aZZ5odO3bYXUF5/xBA9IiNubVu3br4 + zXOlBQcAAAB63XPPPXZ3UN5HBBA9YmNudevWLbDIAAAAQL8iRYqYmTNn2l1CeT8RQLSIjbkxduzYwAID + AACA6KhRo4ZZtWqV3TWU9xcBRIfYuC+ffvqpKV68eGBxAQAAQLT07t3b7h7K+4wAokNs3JucnBxz5JFH + BhYVAAAARNOkSZPsbqK87wggGsTGvRk9enRgMQEAAEB01axZ06xfv97uKsr7jwD0Exv3ZOnSpaZ8+fKB + xQQAAADRNmTIELu7KO9DAtBPbNyTc845J7CIAAAAAIUKFTIffPCB3WWU9yMB6CY2SqZNmxZYQAAAAICd + jjrqKLNjxw676yjvTwLQS2xMtH37di7YAwAAgH166aWX7O6jvE8JQC+xMdGjjz4aWDQAAACARH/7299M + dna23YWU9ysB6CQ27spd4atq1aqBRQMAAACQPPLII3Y3Ut63BKCT2LirESNGBBYLAAAAYE8OOuggs3Hj + RrsrKe9fAtBHbNxp+fLlply5coHFAgAAANibsWPH2t1JeR8TgD5i407ufkTSQgEAAADsTf369blCLBAh + YqOzcuVKU6pUqcAiAQAAAOTGW2+9ZXcr5X1NALqIjc7IkSMDiwMAAACQW6eccordrZT3NQHoIjbm5OSY + WrVqBRYHAAAAIC/mzJljdy+D+5sAdBEb33jjjcCiAAAAAORVv3797O5lcH8TgC5io1sApIUBAAAAyIuS + JUuaFStW2F3M4D4nAD3Exho1agQWBQAAACA/7rjjDruLGdznBKBHoMEdBy8tCAAAAEB+uGt3bN++3e5q + 7r7fCUCPQMOoUaMCiwEAAABQEO+8847d1dx9vxOAHoGGs88+O7AQAAAAAAXRq1cvu6u5+34nAD0CDdxm + BAAAAMlWqVIlDocFFNvtH2vXrjVZWVmBhQAAAADIq6JFi5pq1aqZ5s2bm27dupk1a9bYXc7dd0YB6LDb + P2bMmBFYEAAAAJB5JUqUMBUrVgw4+OCDTe3atQOOOOII06xZs90ce+yxpk2bNn/q3Lnzn3r37h2/56Qz + cOBAM3To0D+5a3DsdP/995tx48aZZ555xrz00ktm6tSpZubMmWb27Nnmxx9/NL/88otZtWqVycnJsbuX + u+94AtBrt3+MHTs2sIgBvipbtuxuG0UAyIRhw4bttlMeFXfddVc8fOTVY489ZiZMmJBnr732Wjzg5JX7 + o7oLRHk1d+5cM3/+/Dz7/fff46FrbzZs2GB3y3bfYQOAsNvtH5dccklg5xzwlfsL7q7jGwAAAEBq7PaP + U045JbBzDviKYAkAAACkx27/aNiwYWDnHPAVwRIAAABIj93+Ua5cucDOOeArgiUAAACQHn9+4S7/LO2c + A74iWAIAAADp8ecXX3/9dWDHHPAZwRIAAABIjz+/mDRpUmDHHPAZwRIAAABIjz+/ePTRRwM75oDPCJYA + AABAevz5xc033xzYMQd8RrAEAAAA0uPPLwYNGhTYMQd8RrAEAAAA0uPPL7p37x7YMQd8RrAEAAAA0uPP + L9q1axfYMQd8RrAEAAAA0uPPL1q2bBnYMQd8RrAEAAAA0uPPLxo0aBDYMQd8RrAEAAAA0uPPL6pUqRLY + MQd8RrAEAAAA0uPPL0qUKBHYMQd8RrAEAAAA0iP+sHHjxsBOOeA7giUAAACQHvGHX375JbBTDviOYAkA + AACkR/zhq6++CuyUA74jWAIAAADpEX94//33AzvlgO8IlgAAAEB6xB+mTJkS2CkHfEewBAAAANIj/vDa + a68FdsoB3xEsAQAAgPSIPzz33HOBnXLAdwRLAAAAID3iD+PHjw/slAO+I1gCAAAA6RF/uO+++wI75YDv + CJYAAABAesQfRo0aFdgpB3xHsAQAAADSI/4wfPjwwE454DuCJQAAAJAe8YdrrrkmsFMO+I5gCQAAAKRH + /OGyyy4L7JQDviNYAgAAAOkRf7jwwgsDO+WA7wiWAAAAQHrEH84777zATjngO4IlAAAAkB7xh/bt2wd2 + ygHfESwBAACA9Ig/nHzyyYGdcsB3BEsAAAAgPeIPLVu2DOyUA74jWAIAAADpEX9o1qxZYKcc8B3BEgAA + AEiP+EPjxo0DO+WA7wiWAAAAQHrEH+rXrx/YKQd8R7AEAAAA0iP+cMghhwR2ygHfESwBAACA9Ig/VKtW + LbBTDviOYAkAAACkR/zhgAMOCOyUA74jWAIAAADpEX8oX758YKcc8B3BEgAAAEiP+EPJkiUDO+WA7wiW + AAAAQHrEHwoXLhzYKQd8R7AEAAAA0iOWk5MT2CEHNCBYAgAAAOkR27hxY2CHHNCAYAkAAACkR2z16tWB + HXJAA4IlAAAAkB6xZcuWBXbIAQ0IlgAAAEB6xBYvXhzYIQc0IFgCAAAA6RGbP39+YIcc0IBgCQAAAKRH + bO7cuYEdckADgiUAAACQHrE5c+YEdsgBDQiWAAAAQHrEPv3008AOOaABwRIAAABIj9isWbMCO+SABgRL + AAAAID1i77//fmCHHNCAYAkAAACkR2z69OmBHXJAA4IlAAAAkB6xd955J7BDDmhAsAQAAADSIzZ16tTA + DjmgAcESAAAASI/YpEmTAjvkgAYESwAAACA9Ym+++WZghxzQgGAJAAAApEfs9ddfD+yQAxoQLAEAAID0 + iL388suBHXJAg6gGy6+//trMnj0bAAAvbN++3W6+5G0aAH/EJkyYENghBzSIarD829/+JtYDAIAw6tKl + i8nOzrabMHm7BsAPseeeey4wwQENCJYAAPiBcAn4L/b0008HJjegAcESAAB/EC4Bv8WeeOKJwMQGNCBY + AgDgF8Il4K/Y+PHjA5Ma0IBgCQCAfwiXgJ9i48aNC0xoQAOCJQAAfiJcAv6JPfDAA4HJDGhAsAQAwF+E + S8Avsfvuuy8wkQENCJYAAPiNcAn4IzZ69OjAJAY0IFgCAOA/wiXgh9jdd98dmMCABgRLAAB0IFwC4Rcb + OXJkYPICGhAsAQDQg3AJhFvstttuC0xcQAOCJQAAuhAugfCK3XzzzYFJC2hAsAQAQB/CJRBOseHDhwcm + LKABwRIAAJ0Il0D4xIYNGxaYrIAGBEsAAPQiXALhEvu///u/wEQFNCBYAgCgG+ESCI/YjTfeGJikgAYE + SwAA9Dv//PMJl0AIxG644YbABAU0IFgCABANhEsg82LXX399YHICGhAsAQCIDsIlkFmxoUOHBiYmoAHB + EgCAaCFcApkTu/baawOTEtCAYAkAQPQQLoHMiF199dWBCQloQLAEACCaCJdA+sWuuuqqwGQENCBYAgAQ + XYRLIL1iV155ZWAiAhoQLAEAiDbCJZA+scsvvzwwCQENCJYAAIBwCaRHbMiQIYEJCGhAsAQAAA7hEki9 + 2KBBgwKTD9CAYAkAAHYiXAKpFRs4cGBg4gEaECwBAMCuCJdA6sQuu+yywKQDNCBYAgCARIRLIDVi/fv3 + D0w4QAOCJQAAkBAugeSLXXrppYHJBmhAsAQAAHtCuASSK9avX7/ARAM0IFgCAIC9IVwCyRO7+OKLA5MM + 0IBgCQAA9oVwCSRHrG/fvoEJBmhAsAQAALlBuAQKLnbRRRcFJhegAcESAADkFuESKJjYhRdeGJhYgAYE + SwAAkBeESyD/Yr169QpMKkADgiUAAMgrwiWQP7GePXsGJhSgAcESAADkB+ESyLtYjx49ApMJ0IBgCQAA + 8otwCeRN7IILLghMJEADgiUAACgIwiWQe7Fu3boFJhGgAcESAAAUFOESyJ1Yly5dAhMI0IBgCQAAkoFw + CexbzE0UaQIBviNYAgCAZCFcAnsXO++88wITB9CAYAkAAJKJcAnsWaxTp06BSQNoQLAEAADJRrgEZLFz + zz03MGEADQiWAAAgFQiXQFCsY8eOgckCaECwBAAAqUK4BHYXO/vsswMTBdCAYAkAAFKJcAn8JXbWWWcF + JgmgAcESAACkGuES+EOsQ4cOgQkCaECwBAAA6UC4BOxUaN++fWByABoQLAEAQLoQLhF1sTPOOCMwMQAN + CJYAACCdCJeIstjpp58emBSABgRLAACQboRLRFXstNNOC0wIQAOCJQAAyATCJaIodsoppwQmA6ABwRIA + AGQK4RJRE2vbtm1gIgAaECwBAEAmES4RJbHWrVsHJgGgAcESAABkGuESURE7+eSTAxMA0IBgCQAAwoBw + iSiInXTSSYHBD2hAsAQAAGFBuIR2sRNOOCEw8AENCJYAACBMCJfQLPb3v/89MOgBDQiWAAAgbAiX0Cp2 + 3HHHBQY8oAHBEgAAhBHhEhrFWrVqFRjsgAYESwAAEFaES2gTa9myZWCgAxoQLAEACLcePXqYxo0bi89F + AeESmsSOOeaYwCAHNCBYAgAQbiNGjDCrVq0yzZo1E5+PAsIltIi1aNEiMMABDQiWAACE2+jRo+2my8Rc + uDz66KPF74kCwiU0iEV5EkM3giUAAOE2fvx4u+n6Y/u1evVq07x5c/H7ooBwCd/FjjrqqMDABjQgWAIA + EG7//ve/7abrr21Y1D+57N69u8nJydmtJoAvYlE+ph26ESwBAAi31157zW66dt+OrVmzxkT5GiB8cglf + xY488sjAgAY0IFgCABBub775pt10BbdlGzZsMCeeeKL4f6KAcAkfxZo0aRIYzIAGBEsAAMLtv//9r910 + ydszFy5POukk8f9FAeESvokdfvjhgYEMaECwBAAg3KZOnWo3XfL2zNm4caM5+eSTxf8bBYRL+CQW5ZvS + QjeCJQAA4fa///3Pbrrk7dlOLly2adNG/P9RQLiELwiWUItgCQBAuE2fPt1uuuTt2a42bdpk2rZtK/6M + KCBcwgexww47LDB4AQ0IlgAAhNsHH3xgN13y9izRli1bTIcOHcSfEwWES4QdwRJqESwBAAi3WbNm2U2X + vD2TbN261Zx55pniz4oCwiXCLNaoUaPAoAU0IFgCABBun376qd10yduzPXHh8uyzzxZ/XhScd955hEuE + EsESahEsAQAIty+++MJuuuTt2d64cNmxY0fxZ0YB4RJhRLCEWgRLAADC7euvv7abLnl7ti85OTmmW7du + 4s+NAsIlwoZgCbUIlgAAhNvcuXPtpkvenuWGC5cXXHCB+LOjgHCJMIk1bNgwMEgBDQiWAACE27x58+ym + S96e5ZYLVl26dBF/fhR0797duICdWBcg3QiWUItgCQBAuM2fP99uuuTtWV64YNWjRw/xd0QBn1wiDAiW + UItgCQBAuCUrWDqES8IlMivWoEGDwMAENCBYAgAQbj/99JPddMnbs/wgXBIukTkES6hFsAQAINwWLFhg + N13y9iy/XLjs2bOn+PuigHCJTCFYQi2CJQAA4fbzzz/bTZe8PSsIwiXhEulHsIRaBEsAAMJt4cKFdtMl + b88KyoXLXr16ib83CgiXSLfYoYceGhiIgAYESwAAwm3RokV20yVvz5Jh+/bthEvCJdKEYAm1CJYAAIRb + qoOlQ7gkXCI9CJZQi2AJAEC4LV682G665O1ZMhEuCZdIPYIl1CJYAgAQbr/88ovddMnbs2Rz4bJ3797i + 64gCwiVSLVa/fv3AwAM0IFgCABBu6QyWTtTDZffu3Y27qFFiXYBkIFhCLYIlAADhtnTpUrvpkrdnqbJj + xw5z6aWXiq8nCvjkEqlCsIRaBEsAAMLt119/tZsueXuWSoRLwiWSj51QqEWwBAAg3H777Te76ZK3Z6nm + wmX//v3F1xUFhEskGzuhUItgCQBAuGUyWDqES8IlkoedUKhFsAQAINyWLVtmN13y9ixdCJeESyQHO6FQ + i2AJAEC4/f7773bTJW/P0smFywEDBoivMQoIl0iGWL169QKDC9CAYAkAQLgtX77cbrrk7Vm6ES4JlygY + giXUIlgCABBuK1assJsueXuWCYRLwiXyj2AJtQiWAACE28qVK+2mS96eZQrhknCJ/InVrVs3MKAADQiW + AACEWxiDpePC5WWXXSa+5iggXCI/CJZQi2AJAEC4rVq1ym665O1ZphEuCZfIG4Il1CJYAgAQbqtXr7ab + Lnl7FgaES8Ilco9gCbUIlgAAhNuaNWvspkvenoWFC5cDBw4UX38UEC6RW7E6deoEBhCgAcESAIBwW7t2 + rd10yduzMCFcEi6xbwRLqEWwBAAg3NatW2c3XfL2LGxcuBw0aJD4PqKAcIl9IVhCLYIlAADhtn79ervp + krdnYUS4JFxiz2K1a9cODBpAA4IlAADh5luwdAiXhEvICJZQi2AJAEC4bdiwwW665O1ZmLlwOXjwYPE9 + RQHhEhKCJdQiWAIAEG4bN260my55exZ2hEvCJXZHsIRaBEsAAMJt06ZNdtMlb8984MLlkCFDxPcWBYRL + 7Cp2yCGHBAYJoAHBEgCAcNu8ebPddMnbM18QLgmX+APBEmoRLAEACLctW7bYTZe8PfMJ4ZJwCTsUCJbQ + imAJAEC4aQmWO1133XXi+4wCwiUIllCLYAkAQLht3brVbrrk7ZmvCJeEy6iK1apVKzAoAA0IlgAAhNu2 + bdvspkvenvmMcEm4jCKCJdQiWAIAEG6aA8j1118vvucoIFxGE8ESahEsAQAIt5ycHLvpkrdnGhAuCZdR + EqtZs2ZgIAAaECwBAAi37du3202XvD3T4oYbbhDfexQQLqOFYAm1CJYAAISbu01H4nZMI8Il4TIKCJZQ + i2AJAEC4RSVYOoRLwqV2BEuoRbCEZsccc4yZMGECoNLZZ58tjnvoE6Vg6VxzzTViHaKge/fu6s+pjbpY + jRo1Ah0PaECwhGadOnWy3S2PAcB3Ub5VQ9Qk9n0UXHvttWItooBwqRvBEmoRLKEZwRKaESyjI7Hvo+LG + G28U6xEFHBarF8ESahEsoRnBEpoRLKMjse+jhHBJuNQmVr169UBnAxoQLKEZwRKaESyjI7Hvo4ZwSbjU + hGAJtQiW0IxgCc0IltGR2PdRRLgkXGpBsIRaBEtoRrCEZgTL6Ejs+6giXBIuNSBYQi2CJTQjWEIzgmV0 + JPZ9lBEuCZe+i7mdb6mDAd8RLKEZwRKaESyjI7Hvo45wSbj0GcESahEsoRnBEpoRLKMjse9BuCRc+otg + CbUIltCMYAnNCJbRkdj3+APhknDpI4Il1CJYQjOCJTQjWEZHYt/jL4RLwqVvYtWqVQt0JqABwRKaESyh + GcEyOhL7HrsjXBIufUKwhFoES2hGsIRmBMvoSOx7BBEuCZe+IFhCLYIlNCNYQjOCZXQk9j1khEvCpQ9i + Bx10UKADAQ0IltCMYAnNCJbRkdj32LMoh8vzzz+fcOkBgiXUIlhCM4IlNCNYRkdi32PvCJeEyzAjWEIt + giU0I1hCM4JldCT2PfaNcEm4DCuCJdQiWEIzgiU0I1hGR2LfI3cIl4TLMIpVrVo10GGABgRLaEawhGYE + y+hI7HvkHuGScBk2BEuoRbCEZgRLaEawjI7EvkfeEC4Jl2FCsIRaBEtoRrCEZgTL6Ejse+Qd4ZJwGRax + KlWqBDoJ0IBgCc0IltCMYBkdiX2P/CFcEi7DgGAJtQiW0IxgCc0IltGR2PfIP8Il4TLTCJZQi2AJzQiW + 0IxgGR2JfY+CIVwSLjOJYAm1CJbQjGAJzQiW0ZHY9yg4wiXhMlNiBx54YKBTAA0IltCMYAnNCJbRkdj3 + SA7CJeEyEwiWUItgCc0IltCMYBkdiX2P5CFcEi7TjWAJtQiW0IxgCc0IltGR2PdILsIl4TKdCJZQi2AJ + zQiW0IxgGR2JfY/kI1wSLtMlVrly5UAnABoQLKEZwRKaESyjI7HvkRqES8JlOhAsoRbBEpoRLKEZwTI6 + EvseqXPDDTeIfRAFhMv0IFhCLYIlNCNYQjOCZXQk9j1Si3BJuEyl2AEHHBAoPKABwRKaESyhGcEyOhL7 + HqlHuCRcpgrBEmoRLKEZwRKaESyjI7HvkR6ES8JlKhAsoRbBEpoRLKEZwTI6Evse6UO4JFwmG8ESahEs + oRnBEpoRLKMjse+RXoRLwmUyESyhFsESmhEsoRnBMjoS+x7pR7gkXCYLwRJqESyhGcESmhEsoyOx75EZ + hEvCZTIQLKEWwRKaESyhGcEyOhL7HplDuCRcFhTBEmoRLKEZwRKaESyjI7HvkVmES8JlQRAsoRbBEpoR + LKEZwTI6EvsemUe4JFzmF8ESahEsoRnBEpoRLKMjse8RDoRLwmV+ECyhFsESmhEsoRnBMjoS+x7hQbgk + XOYVwRJqESyhGcESmhEsoyOx7xEuhEvCZV4QLKEWwRKaESyhGcEyOhL7HuFDuCRc5hbBEmoRLKEZwRKa + ESyjI7HvEU6ES8JlbhAsoRbBEpoRLKEZwTI6Evse4UW4JFzuC8ESahEsoRnBEpoRLKMjse8RboRLwuXe + ECyhFsESmhEsoRnBMjoS+x7hR7gkXO4JwRJqESyhGcESmhEsoyOx7+EHwiXhUkKwhFoES2hGsIRmBMvo + SOx7+INwSbhMRLCEWgRLaEawhGYEy+hI7Hv4hXBJuNwVwRJqESyhGcESmhEsoyOx7+EfwiXhcieCJdQi + WEIzgiU0I1hGR2Lfw0+ES8KlQ7CEWgRLaEawhGYEy+hI7Hv4i3BJuCRYQi2CJTQjWEIzgmV0JPY9/Ea4 + jHa4JFhCLYIlNCNYQjOCZXQk9j38R7iMbrgkWEItgiU0I1hCM4JldCT2PXQgXEYzXBIsoRbBEpoRLKEZ + wTI6EvseehAuoxcuCZZQi2AJzQiW0IxgGR2JfQ9drrnmGrHfo+DSSy+1JZDrohXBEmoRLKFZ06ZNzbhx + 4wCVTjvtNHHcQx+p/6HLoYceKva9dkceeaTdLZP31bQiWEItgiUAAAAygWAJKEKwBAAAQCYQLAFFCJYA + AADIBIIloAjBEgAAAJlAsAQUIVgCAAAgEwiWgCIESwAAAGQCwRJQhGAJAACATCBYAooQLAEAAJAJBEtA + EYIlAAAAMoFgCShCsAQAAEAmECwBRQiWAAAAyASCJaAIwRIAAACZQLAEFCFYAgAAIBMIloAiBEsAAABk + AsESUIRgCQAAgEwgWAKKECwBAACQCQRLQBGCJQAAADKBYAkoQrAEAABAJhAsAUUIlgAAAMgEgiWgCMES + AAAAmUCwBBQhWAIAACATCJaAIgRLAAAAZALBElCEYAkAAIBMIFgCihAsAQAAkAkES0ARgiUAAAAygWAJ + KEKwBAAAQCYQLAFFCJYAAADIBIIloAjBEgAAAJlAsAQUIVgCAAAgEwiWgCIESwAAAGQCwRJQhGAJAACA + TCBYAooQLAEAAJAJBEtAEYIlAAAAMoFgCShCsAQAAEAmRDJYVq5cOVAIQAOCJQAAADKBYAkoQrAEAABA + JhAsAUUIlgAAAMgEgiWgCMESAAAAmUCwBBQhWAIAACATCJaAIgRLAAAAZALBElCEYAkAAIBMIFgCihAs + AQAAkAkES0ARgiUAAAAygWAJKEKwBAAAQCYQLAFFCJYAAADIBIIloAjBEgAAAJlAsAQUIVgCAAAgEwiW + gCIESwAAAGQCwRJQhGAJAACATCBYAooQLAEAAJAJBEtAEYIlAAAAMoFgCShCsAQAAEAmECwBRQiWAAAA + yASCJaAIwRIAAACZQLAEFCFYAgAAIBMIloAiBEsAAABkAsESUIRgCQAAgEwgWAKKECwBAACQCQRLQBGC + JQAAADKBYAkoQrAEAABAJhAsAUUIlgAAAMgEgiWgCMESAIDoKVq0qKlYseJuqlevbmrXrr1Xif+nZMmS + 4s8HcoNgCShCsAQAILxKlChhatSoYZo3b27at29vzj//fNOvXz9z5ZVXmptuusmMGjXKPPTQQ+app54y + L774opk6dar58MMPzZw5c8z8+fPNihUrzKpVq0xOTo7d/MnbxGRbs2ZN/HcuWLDAfPPNN+aTTz6Jv67X + XnvNPPfcc2bcuHHm7rvvNjfffLMZOnRo/P1ccMEFpmPHjqZVq1bGbaPLli0r1gO6ECwBRQiWAACkV+HC + heNh8fjjjzedOnUyAwcOjIcsFxBfffVVM3PmTDNv3jyzbt06u8mSt2NRsHnzZrNo0SLz8ccfmzfffNM8 + 8cQTZuTIkebyyy+PB9E2bdqY+vXrm+LFi4t1RvgRLAFFCJYAAKRG1apVTdu2beOfLj788MNm8uTJ8cC4 + detWuymSt0/Iux07dphffvnFzJgxI/7Jrfsk95xzzjH16tWLh3ipbxAOBEtAEYIlAAAF57an7tPHe+65 + x7z77rtm5cqVdnMjb4OQPps2bTKffvqpGT9+vLn44ovN4YcfTtgMEYIloAjBEgCAvClVqpT5+9//bq65 + 5hrz8ssvxz8tS9zOILzWr19v/ve//8XPT+3QoUP8IkRSPyP1CJaAIgRLAAD2zgVJd1EZd6EZdxGaLVu2 + 2E2JvH2Bn9yFjtxFhXr06BE//1UaB0g+giWgCMESAIDdESSxM2h27tyZK9SmEMESUIRgCQBALH6PxsGD + BxMkEeDO03Tjwv2hoVmzZiYrK0scQ8g7giWgCMESABBF++23X/zTKPep1OLFi+2mQd5eAIl+++03M2HC + hPhhs5UqVRLHF3KHYAkoQrAEAERFkyZNzLBhw8ysWbPM9u3b7eZA3kYAuZWTk2M+/PDD+Lhq3LixOO6w + ZwRLQBGCJQBAK3dbCXeupLv65/fff2+Xf3mbACTLggULzJgxY+LjjkNm941gCShCsAQAaFK+fHnTpUsX + 8/zzz5vVq1fbJV/eDgCptmjRInPfffeZE088kXtn7gHBElCEYAkA8F2FChXi57tNnDiRC+8glFauXGme + euop0759e1O8eHFxHEcRwRJQhGAJAPCRC5O9evUyb775ptm6datd2uX1HgibNWvWmGeeecZ06NDBFC1a + VBzfUUGwBBQhWAIAfFGuXDnCJFT5/fff44fLHn300eKY145gCShCsAQAhJk7N61NmzbxwwjXr19vl3B5 + XQd8N3fuXDN8+PD4PVWluaARwRJQhGAJAAijhg0bxq/m+uuvv9plW17LAY3crXBmzJhhBg8eHL/fqjQ/ + tCBYAooQLAEAYVGtWjVz4403GvfJTeK6DUTRpk2bzHPPPWfOOOMMU6RIEXHe+IxgCShCsAQAZJLbWT7r + rLPMG2+8YdzN5hPXawB/cJ/e33777aZmzZriXPIRwRJQhGAJAMiE6tWrm6FDh5qFCxfaZVleqwEEuUNl + p06dajp37uz9p5gES0ARgiUAIF3crRXOO+88M23aNLNjxw67HMtrNIDc+fnnn80NN9xgDjzwQHHOhR3B + ElCEYAkASDV3z0l3IRI+nQRSw91+Z8KECfErKGdlZYnzMIwIloAiBEsAQKo0adLEjBs3zmzcuNEuvfJ6 + DCC5vv/++/hh5j5cUZZgCShCsAQAJFOhQoXMOeecY9577z273MprMIDUc3/Qeeihh0zdunXFuRoGBEtA + EYIlACAZihcvbnr06MGtQoCQcRf7mThxomnZsqU4dzOJYAkoQrAEABTE/vvvHz/sbunSpXZ5lddcAOEw + e/bs+B+AChcuLM7ndCNYAooQLAEA+VG7dm0zZswYzp8EPPTjjz/GL6hVsmRJcX6nC8ESUIRgCQDIi6ZN + m5qnnnrKZGdn2+VUXmMB+GHZsmVm+PDhplKlSuJ8TzWCJaAIwRIAsC/ugjxnnXWWmTFjhl1C5XUVgL/W + r19v/vnPf5pq1aqJa0CqRDJY+nrTUWBfCJbQzPWzO/cLQP4NGzbMfPfdd3bplNdTAHps2bLF3H///fH9 + Q2m7mmx8YgkoQrCEZu6WB4l9DwAA9m7r1q3xQ97dudTS9jVZCJaAIgRLaEawBAAg/9wnmGPHjjVVq1YV + t7MFRbAEFCFYQjOCJQAABeeu/jxq1ChTsWJFcXubXwRLQBGCJTQjWAIAkDyrVq2KX0W2bNmy4nY3rwiW + gCIES2hGsAQAIPmWLFliLrroovgVo6Xtb24RLAFFCJbQjGAJAEDqfPPNN+b0008Xt8G5QbAEFCFYQjOC + JQAAqTd16lTTqFEjcVu8NwRLQBGCJTQjWAIAkB7btm0zd911lylTpoy4TZYQLAFFCJbQjGAJAEB6ufMv + e/ToIW6XExEsAUUIltCMYAkAQGa88847pmHDhuL2eSeCJaAIwRKaESwBAMicLVu2mFtuucWUKFFC3E4T + LAFFCJbQjGAJAEDm/fjjj+bUU08NbKcJloAiBEtoRrAEACA8Jk6cGN/33LmdJlgCihAsoRnBEgCAcFmz + Zo0ZPHiwKVy4MMES0IRgCc0IlgAAhNNHH31kevfubb+Un9eKYAm1CJbQjGAJAADChGAJtQiW0IxgCQAA + woRgCbUIltCMYAkAAMKEYAm1CJbQjGAJAADChGAJtQiW0IxgCQAAwoRgCbUIltCMYAkAAMKEYAm1CJbQ + jGAJAADChGAJtQiW0IxgCQAAwoRgCbUIltCMYAkAAMKEYAm1CJbQjGAJAADChGAJtQiW0IxgCQAAwoRg + CbUIltCMYAkAAMKEYAm1CJbQjGAJAADChGAJtQiW0IxgCQAAwoRgCbUIltCMYAkAAMKEYAm1CJbQjGAJ + IOpWrVplFixYYObMmWOmT59u3njjDfP888+bcePG/emuu+4yo0aNihs2bJgZOnTobm666aY/n9/p4Ycf + jv/fp556yrzyyitm6tSpZvbs2eb77783S5cuNevXr7e/Xn5NQJQRLKEWwRKaESwBaLN161azePFi88EH + H5hXX33V3H///fHg17t3b3P66aebxo0bm+rVq5vy5cuL62I6ZWVlmUqVKpn69eub448/3px33nlm8ODB + 5rbbbjOPP/64efPNN82nn35qfvvtN/vW5PcLaEOwhFoES2hGsATgqyVLlsQ/BXSfCrpPDdu3b29q165t + ChUqJK53vitevHj8/bn36d6ve9/u/c+fP99s377dlkSuE+AbgiXUIlhCM4IlgLD7/fffzeTJk82dd95p + unTpYg477LB4yJLWtKgqW7asadWqlbnsssvMo48+Gj/kdsuWLbZ8ck2BMCNYQi2CJTQjWAIIk9WrV5tJ + kyaZESNGmHbt2plq1aqJaxf2rUiRIvHDfnv06GFGjx5t3n//feMOE06sORA2BEuoRbCEZgRLAJn07bff + mkceecRceOGFpkGDBvFzDqW1CslRokSJ+Ceb11xzjXnttdeM+zQ4sU+ATCNYQi2CJTQjWAJIlx07dpiv + vvrKjB071nTu3NkceOCB4rqE9HLb+169epknn3zS/PLLL7ar5P4D0oVgCbUIltCMYAkgldxtNVxg6dq1 + qznggAPEdQjh4j45dlemnThxolm3bp3tRrlvgVQhWEItgiU0I1gCSKbs7Gwzbdo0c+2115ojjjiCQ1s9 + 587TdIfOunNeP/74Y+M+dU7scyDZCJZQi2AJzQiWAApq48aN8U+33EViKlasKK410MF96uz62fU3V51F + qhAsoRbBEpoRLAHkx7Jly8yDDz5o2rZta4oVKyauL9DN3eLEnSv7zDPPmFWrVtlhIY8VIK8IllCLYAnN + CJYAcmv58uXxm/K3bt3aFC5cWFxTEE3ukNnTTjvNPPXUU5yXiQIjWEItgiU0I1gC2JsNGzaYf/3rX+bU + U0+NhwdpHQF2VbJkyfgnma+88gqHyyJfCJZQi2AJzQiWABJt377dvP3226Znz56mTJky4toB5EaFChXi + 9yidOnWqceMqcawBEoIl1CJYQjOCJYCdfvrpJ3PDDTeY6tWri+sFUBA1a9Y0t9xyi1m8eLEdbvIYBByC + JdQiWEIzgiUQbTk5OfFPk9yhi5w3iXQoVKiQadOmjZkwYYLZtm2bHYby2ER0ESyhFsESmhEsgWhatGiR + ufHGG03VqlXFtQFIBzf+rr/+ejN//nw7LOWxiughWEItgiU0I1gC0TJ79uz4fQiLFi0qrglAJuz8FNPd + H3PHjh12qMrjF9FAsIRaBEtoRrAE9Nu8ebN5/PHHzZFHHimuA0CYNGnSxDzxxBNcUTbCCJZQi2AJzQiW + gF7ufoJjxowx1apVE+c/EGYuWwwdOpSL/UQQwRJqESyhGcES0OeXX34xV199tSlXrpw47wGfFC9e3PTr + 14/zMCOEYAm1CJbQjGAJ6OF2vPv06WOKFSsmznfAZ0WKFImfH/ztt9/a4S7PAehAsIRaBEtoRrAE/Ldg + wYL4Jzpux1ua54Am7kI/7du3Nx9//LEd/vKcgN8IllCLYAnNCJaAv+bNm2d69epFoEQkZWVlETCVIlhC + LYIlNCNYAv5x51DyCSXwF3erkjlz5tjpIc8Z+IVgCbUIltCMYAn4Y9WqVfGrZJYsWVKcz0CUuUNkO3fu + zEV+FCBYQi2CJTQjWALht2nTJjNy5EhToUIFcR4D+EuJEiXMFVdcYZYvX26njzynEG6xAw44INCxgAYE + S2hGsATCa8eOHea5554zNWrUEOcvgD1zt9u59dZbjfvDTOLcQrgRLKEWwRKaESyBcHIXJDnuuOPEeQsg + 99x+3FNPPWXcH2oS5xnCiWAJtQiW0IxgCYSLuzBP165d41e8lOYsgPw58cQTucCPJwiWUItgCc1OOukk + M3v2bKTYjz/+GL+ghGTRokXGXZRFsmHDBjsd5TkKXbKzs82YMWPih+9JcxVAwbkL/PTo0cMsW7bMTjt5 + LiLzCJZQi2AJIIzcBSoqVqwY57bBtWvXjqtXr55p1qxZ3FFHHRW/DP9OnTp1il81sXfv3mbAgAHxK4ze + eeedZsqUKXbay2sBUu+dd94xDRs2FPsZQPK5dXPs2LFm+/btdgrK8xKZQ7CEWgRLANo99NBDdtrLawFS + 57fffjPdunUT+wRA6h1zzDEcHhtCBEuoRbAEoNkJJ5xgcnJy7LSX1wKkxoQJE8z+++8v9gmA9ClSpIgZ + PHgwpx6ECMESahEsAWjlDgdbuHChnfLyOoDk++mnn8wpp5wi9geAzHGnEkyaNMlOU3nuIn0IllCLYAlA + I3fV0TfeeMNOd3kNQHK5T4XvueceU6pUKbE/AISDu7jP8uXL7bSV5zJSj2AJtQiWADS68cYb7VSX5z+S + y31K6Q45lvoBQPhUrlzZvPbaa3b6ynMaqUWwhFoESwDatG3blvMq08DdkH3cuHGmTJkyYj8ACDd3FW13 + 66fEuY3UIlhCLYIlAE1q1aplVqxYYae5PPeRHO7c1datW4t9AMAfbs1899137bSW5zqSj2AJtQiWALQo + Xbq0+fLLL+0Ul+c9kuOll14ylSpVEvsAgH/cOen9+vUzGzdutFNcnvdIHoIl1CJYAtDA7Ri98MILdnrL + cx4Ft27dOtO7d2+x/gD817BhQ/44lwYES6hFsASgwdChQ+3Uluc7Cu7jjz829erVE2sPQI8SJUqYMWPG + 2GkvrwUoOIIl1CJYAvCdO9ePi/WkhrtAz913322KFi0q1h6ATl26dDFr1661y4C8NiD/CJZQi2AJwGc1 + a9bknmwp4nYqO3XqJNYdgH5uff3www/tciCvEcgfgiXUIlgC8FXJkiXN559/bqe0PM+Rf59++qmpU6eO + WHcA0eGOVhg1apRxRy8krhPIH4Il1CJYAvDV448/bqezPMeRfw888IApXry4WHMA0eTueblhwwa7RMjr + BnKPYAm1CJYAfNS3b187leX5jfzZsmWL6dOnj1hvAGjcuLGZP3++XS7kNQS5Q7CEWgRLAL45/PDDud9a + kv3yyy+mRYsWYr0BYCd3D9vJkyfbZUNeS7BvBEuoRbAE4JOyZcua7777zk5jeW4j72bMmGGqVKki1hsA + EhUuXJjzLguAYAm1CJYAfJGVlWVeeuklO4XleY28e/TRR7mVCIB86dq1K0eP5APBEmoRLAH44pprrrHT + V57TyJvt27ebq6++WqwzAORWs2bNzNKlS+2yIq81CCJYQi2CJQAfNG/e3Gzbts1OX3lOI/fclR3PPvts + sc4AkFfVqlXj1k95QLCEWgRLAGFXqlQp8/3339upK89n5J67SM+RRx4p1hkA8qt8+fJm6tSpdpmR1x78 + hWAJtQiWAMLu4YcfttNWnsvIPXebgDp16og1BoCCKlKkiHnooYfsciOvQfgDwRJqESwBhNmpp57KlQeT + YPbs2aZy5cpijQEgmQYPHmzcedyJ6xD+QLCEWgRLAGG1//77m19//dVOWXkeI3fc4WllypQRawwAqdCj + Rw+TnZ1tlyB5XYoygiXUIlgCCKsXX3zRTld5DiN3Xn31VVOiRAmxvgCQSu3btzebNm2yS5G8PkUVwRJq + ESwBhFGfPn3sVJXnL3LnwQcfNIUKFRLrCwDpcMIJJ5i1a9faJUlep6KIYAm1CJYAwqZ27dpm3bp1dqrK + 8xf7NmrUKLG2AJBu7l6Xy5cvt0uTvF5FDcESahEsAYRJVlYWl6wvAHehoyuuuEKsLQBkSoMGDYy73VHi + mhVFBEuoRbAEECaXXHKJnaLyvMXe5eTkmK5du4p1BYBMc0ej/PTTT3a5ktewqCBYQi2CJYCwqFatmlmz + Zo2dovK8xZ65UNm9e3exrgAQFtWrVzc//vijXbbktSwKCJZQi2AJICzcFUwT5yr2zR3+evHFF4s1BYCw + ceFy/vz5dvmS1zTtCJZQi2AJIAzcIZyJ8xT75kKlO3xYqikAhFWNGjUie1gswRJqESwBZNp+++1nli1b + ZqemPF8hc6Gyf//+Yk0BIOyiGi4JllCLYAkg05599lk7LeW5CpkLlZdddplYTwDwRc2aNc2CBQvssiav + dRoRLKEWwRJAJp1xxhl2SsrzFDIXKgcNGiTWEwB8U6dOnUjdioRgCbUIlgAypXTp0mbhwoV2SsrzFLKh + Q4eK9QQAXzVq1MisXLnSLnHyuqcJwRJqESwBZMqoUaPsdJTnKGTXX3+9WEsA8N2xxx5rNm7caJc6ef3T + gmAJtQiWADLBzcEtW7bY6SjPUQQ99NBDYi0BQIs2bdqo3zYQLKEWwRJAJkybNs1ORXl+ImjixImmcOHC + Yi0BQBN3+6nt27fbpU9eD31HsIRaBEsA6datWzc7DeW5iaCPPvrIlCpVSqwlAGg0YMAAu/zJa6LvCJZQ + i2AJIJ3KlStnlixZYqehPDexu7lz55pKlSqJtQQAzW677Ta7DMpro88IllCLYAkgne699147BeV5id0t + XbrU1KpVS6wjAGiXlZVlnnnmGbscymukrwiWUItgCSBdGjdubLKzs+0UlOcl/rJu3Tpz5JFHinUEgKgo + UaKEef/99+2yKK+VPiJYQi2CJYB0cH95/uCDD+z0k+ck/rJt2zZz6qmninUEgKjZf//9zQ8//GCXR3nN + 9A3BEmoRLAGkQ48ePezUk+cj/rJjxw7Ts2dPsYYAEFUNGzY0q1evtsukvHb6hGAJtQiWAFKtZMmSZuHC + hXbqyfMRfxk1apRYQwCIuhNOOMFs3brVLpXy+ukLgiXUIlgCSLURI0bYaSfPRfxlypQp3KsSAPaiX79+ + drmU11BfECyhFsESQCpVq1bNbNiwwU47eS7iDz///HP8PCKphgCAv4wbN84um/Ja6gOCJdQiWAJIpaef + ftpOOXke4g+bNm0yTZs2FesHANhd0aJFzcyZM+3yKa+pYUewhFoESwCp0qJFC+MuRpM4/7C7Ll26iPUD + AMiqVq1q3L1+E9dTHxAsoRbBEkAquNuLzJgxw043eQ7iD3fddZdYPwDA3rVq1cq42zMlrqthR7CEWgRL + AKnQrVs3O9Xk+Yc/vP3226ZIkSJi/QAA+3bllVfa5VReY8OKYAm1CJYAkq1EiRLcXmQfFixYYPbbbz+x + fgCA3HvuuefssiqvtWFEsIRaBEsAyebjX5DTafPmzaZJkyZi7QAAeVOmTBnz/fff2+VVXnPDhmAJtQiW + AJLJbeCXLVtmp5k892BigwYNEmsHAMifxo0bG/dHu8T1NowIllCLYAkgmUaMGGGnmDzvYGL//e9/4xc2 + kmoHAMi/yy+/3C6z8tobJgRLqEWwBJAs7gb/a9eutVNMnndR5z7JrVKlilg7AEDBuD/avf7663a5ldfg + sCBYQi2CJYBkGT16tJ1e8pyLOnc/z3bt2ol1AwAkh/sD55IlS+yyK6/FYRCrXLly4IUDGhAsASRDtWrV + zKZNm+z0kudc1P3jH/8Q6wYASK4TTjjB5OTk2KVXXo8zjWAJtQiWAJJh/PjxdmrJ8y3qPv/8c1O8eHGx + bgCA5Lv99tvt8iuvyZlGsIRaBEsABeXmU3Z2tp1a8nyLMneVQne1QqluAIDUKFq0qJk9e7ZdhuW1OZNi + Bx54YOAFAxoQLAEU1DPPPGOnlTzXou6SSy4RawYgnKpWrWr69+8vPge/HHHEEWbr1q12KZbX50whWEIt + giWAgqhduzafVu7Ba6+9JtYMQHgddNBBZvv27aZPnz7i8/DLsGHD7HIsr9GZQrCEWgRLAAXxyCOP2Ckl + z7MoW7NmTfyCRlLNAISXC5ZuDrsrOfPJpf+KFCliPv7443ifhgXBEmoRLAHkl1s/tmzZYqeUPM+irG/f + vmLNAITbzmDpuHB56aWXit8HfzRo0MC489139mumxbihMbQiWALIrzFjxtjpJM+xKHv33XfjN+qWagYg + 3HYNlg7hUofrrrtut37NJIIl1CJYAsgPdxPqDRs22Okkz7GocvfyrFevnlgzAOGXGCwdd87lhRdeKH4/ + /FC4cGHzySefBPo2EwiWUItgCSA/Ro4caaeSPL+izP1VXKoXAD9IwdJxn1xylWe/NWvWzOTk5NjuDPZv + OhEsoRbBEkBelS9f3qxevdpOJXl+RdWcOXPi906TagbAD3sKlg7h0n/33nuv7Uq5f9Ml5u5pI704wHcE + SwB5de2119ppJM+tqHJ/BT/qqKPEegHwx96CpeMOi+3Vq5f4fxF+ZcuWNYsXL7ZdKfdvOhAsoRbBEkBe + FCpUyPz00092GslzK6ruvvtusV4A/LKvYOkQLv127rnn2m6U+zYdCJZQi2AJIC/at29vp5A8r6JqwYIF + pnTp0mK9APglN8HSceGyZ8+e4s9A+E2cONF2o9y3qRZzg0x6UYDvCJYA8uK///2vnULyvIqqdu3aibUC + 4J/cBkvHHQLfvXt38ecg3GrWrJmxK5sTLKEWwRJAbtWpU8e4v9InzqcomzRpklgrAH7KS7B0CJf+uuGG + G2wXyv2aSgRLqEWwBJBbo0ePttNHnlNRlJ2dbQ477DCxVgD8lNdg6bhw2aNHD/HnIbyKFy9ufvjhB9uF + cr+mCsESahEsAeRGyZIlzcqVK+30kedUFN13331irQD4Kz/B0iFc+qlz5862++Q+TZVYtWrVAi8E0IBg + CSA3evfubaeOPJ+iaNWqVWa//fYTawXAX/kNlg6Hxfrpvffes90n92kqECyhFsESQG6ke8MbdoMGDRLr + BMBvBQmWDuHSP0ceeWRarx9AsIRaBEsA+1K7dm2zY8cOO3Xk+RQ1c+fONUWLFhVrBcBvBQ2WDuHSP489 + 9pjtOrk/ky3mdr6lFwH4jmAJYF9uv/12O23kuRRFp59+ulgnAP5LRrB0CJd+OfDAA83atWtt18n9mUwE + S6hFsASwN4UKFTKLFi2y00aeS1Hzn//8R6wTAB2SFSwdd+Xo888/X/w9CJ+bbrrJdpvcl8lEsIRaBEsA + e+M+nUucP1HldhIbNGgg1gmADskMlo5bN8477zzxdyFcypQpY5YtW2a7Te7LZCFYQi2CJYC9mTBhgp0y + 8jyKGncOjlQjAHokO1g67rDYCy64QPx9CJfLL7/cdpncj8kSq169euAXAxoQLAHsSaVKlcyWLVvslJHn + UZRs27YtfhEjqU4A9EhFsHRcuOzWrZv4OxEexYsXNwsXLrRdJvdjMhAsoRbBEsCeDB482E4XeQ5FzaOP + PirWCIAuqQqWDuHSD3379rXdJfdhMhAsoRbBEsCefP7553a6yHMoStynlYcccohYIwC6pDJYOi5cdu3a + VfzdCIfChQsbd1upxL5LFoIl1CJYApAcfvjhdqrI8ydqHn74YbFGAPRJdbB0CJfh16VLF9tVcv8VVKxG + jRqBXwhoQLAEILnvvvvsVJHnT5Rs3brVsA8AREc6gqXjjoQ455xzxNeAzHO32pozZ47tKrn/CoJgCbUI + lgASFStWzCxfvtxOFXn+RMmDDz4o1giATukKlo775NJ9Mia9DmReqj61JFhCLYIlgETunmuJcyaK3KeV + NWvWFGsEQKd0BkuHcBle7lzL77//3naT3Hf5FWPDAq0IltDM7SB07twZeTRz5kw7TeS5EyX333+/OK4A + 6JXuYOm4w2I7duwovh5kVp8+fWwXyf2WXwRLqEWwhGZnnXWW7W55DAB7s3nzZlOtWjVxXAHQKxPB0nHh + 8uyzzxZfEzLHnRqyaNEi20Vyv+UHwRJqESyhGcES+TV+/HhxTAHQLVPB0iFchtOQIUNs98h9lh8ES6hF + sIRmBEvkl7vdijSmAOiWyWDpEC7Dp1SpUmbZsmW2e+Q+y6tYrVq1Ar8E0IBgCc0IlsiPKVOmiOMJgH6Z + DpYO4TJ8brzxRts1cn/lFcESahEsoRnBEvlx+umni+MJgH5hCJaOuyq124ZJrxHpV6FCBbN+/XrbNXJ/ + 5QXBEmoRLKEZwRJ55S4t726MLY0nAPqFJVg6hMtwcfc1Tuyj/IgdcsghgR8OaECwhGYES+TVJZdcIo4l + ANEQpmDpEC7Dw+077tixw3aL3Fe5RbCEWgRLaEawRF6sXLnSlC5dWhxLAKIhbMHSceHyzDPPFF8v0mvy + 5Mm2S+R+yi2CJdQiWEIzgiXy4vbbbxfHEYDoCGOwdAiX4XDGGWfY7pD7KLcIllCLYAnNCJbILXcVRrce + SuMIQHSENVg6hMvMy8rKMnPnzrXdIfdRbsRq164d+MGABgRLaEawRG49/fTT4hgCEC1hDpYO4TLzBg4c + aLtC7p/cIFhCLYIlNCNYIrdatWoljiEA0RL2YOls2bLFcFukzClbtqxZu3at7Qq5f/aFYAm1CJbQjGCJ + 3HC3GHGHN0ljCEC0+BAsHffJZYcOHcT3gNR7+OGHbTfIfbMvBEuoRbCEZgRL5MZ1110njh8A0eNLsHRc + uGzfvr34PpBaRx99tO0CuV/2JVanTp3ADwQ0IFhCM4Il9iUnJye+DkrjB0D0+BQsHcJl5nz++ee2C+R+ + 2RuCJdQiWEIzgiX25a233hLHDoBo8i1YOoTLzMjvRXwIllCLYAnNCJbYl06dOoljB0A0+RgsHcJl+pUv + X95s3LjRll/ukz2J1a1bN/DDAA0IltCMYIm9WbFihSlevLg4dgBEk6/B0nFXi23Xrp34vpAa7lZVif2w + LwRLqEWwhGYES+zNvffeK44bANHlc7B0CJfpdeKJJ9qyy32xJwRLqEWwhGYES+zNkUceKY4bANHle7B0 + Nm3aZNq2bSu+PySXu1XVDz/8YMsu94WEYAm1CJbQjGCJPfnss8/EMQMg2jQES4dPLtPnlltusSWX+0ES + q1evXuCHABoQLKEZwRJ7MmTIEHHMAIg2LcHScZ9ctm7dWnyfSJ4GDRrYcst9ICFYQi2CJTQjWEKyY8cO + U716dXHMAIg2TcHSceGyTZs24ntF8uTlnpYES6hFsIRmBEtIPvzwQ3G8AIC2YOnwyWXqXXvttbbUcv0T + sRMKtQiW0IxgCck111wjjhcA0BgsHXe/RcJl6rijYNzRMIl1l7ATCrUIltCMYAlJnTp1xPECAFqDpUO4 + TK0ZM2bYMsu13xU7oVCLYAnNCJZI9MUXX4hjBQAczcHSceHy5JNPFt87CmbAgAG2xHLdd8VOKNQiWEIz + giUSDR8+XBwrAOBoD5aOC5fuxv7S+0f+Va5c2eTk5NgSy3XfKVa/fv3AfwY0IFhCM4IlEh122GHiWAEA + JwrB0uGTy9SYPn26La9c850IllCLYAnNCJbY1bx588RxAgA7RSVYOoTL5LvqqqtsaeV670SwhFoES2hG + sMSuRo4cKY4TANgpSsHS2bBhg/n73/8u1gJ5V7duXVtWudY7xQ499NDAfwQ0IFhCM4IldnXUUUeJ4wQA + dopasHT45DK5vvnmG1tWudYOwRJqESyhGcESOy1dutRkZWWJ4wQAdopisHTcJ5cnnHCCWBPkzR133GFL + KtfZIVhCLYIlNCNYYqenn35aHCMAsKuoBkuHTy6To0WLFracco0dgiXUIlhCM4Ildurdu7c4RgBgV1EO + lg7hsuDc0TG//PKLLadc41iDBg0C/wnQgGAJzQiW2Kl69eriGAGAXUU9WDouXJ500klifZA7jzzyiC2l + XF+CJdQiWEIzgiWc7777ThwfAJCIYPkHFy5bt24t1gj7du6559oyyrUlWEItgiU0I1jCGTt2rDg+ACAR + wfIvLly2adNGrBP2rkKFCiYnJ8eWMVhXgiXUIlhCM4IlnI4dO4rjAwASESx3t2nTJsJlPs2aNcuWMFjT + WMOGDQPfDGhAsIRmBEu4vxhXrFhRHB8AkIhgGUS4zJ/bbrvNli9YT4Il1CJYQjOCJdxfjKWxAQASgqWM + cJl37r6giXV0CJZQi2AJzQiWuP3228WxAQASguWebdmyxbRr106sG4KKFStm1q9fb0u3ex1jjRo1Cnwz + oAHBEpoRLMH92ADkBcFy7wiXefPWW2/Zsu1eQ4Il1CJYQjOCZbRlZ2ebUqVKiWMDACQEy31zh8Wecsop + Yv2wuyFDhtiS7V4/giXUIlhCM4JltH322WfiuACAPSFY5o775LJ9+/ZiDfGXJk2a2HLtXjuCJdQiWEIz + gmW0jRs3ThwXALAnBMvcI1zuW+HChc2aNWtsuf6qW+ywww4LfCOgAcESmhEso61v377iuACAPSFY5s3W + rVsJl/swefJkW6q/akawhFoES2hGsIy2ww8/XBwXALAnBMu8c+GyQ4cOYj0RM8OGDbNl+qtescaNGwe+ + CdCAYAnNCJbRtXHjRlOkSBFxXADAnhAs84dwuWfu6uS71opgCbUIltCMYBldM2bMEMcEAOwNwTL/CJey + 0qVLm23bttkS/VEnDqeBWgRLaEawjK7Ro0eLYwIA9oZgWTAuXJ555plibaPsk08+seX5o0Yxd6lY6ZsA + 3xEsoRnBMrq6du0qjgkA2BuCZcERLoP++c9/2tL8UZ/YkUceGfgGQAOCJTQjWEZXvXr1xDEBAHtDsEwO + dyuSdu3aiTWOoi5dutiy/FGbWLNmzQLfAGhAsIRmBMtoWrlypcnKyhLHBADsDcEyedwnl247LNU5atwd + RnbWJXbUUUcFvgHQgGAJzQiW0TRt2jRxPADAvhAsk8t9csl9LmOmWLFif17AJ3b00UcHvgHQgGAJzQiW + 0XTfffeJ4wEA9oVgmXxcLfYPc+fOteWwX7Zo0SLwJKABwRKaESyj6ZJLLhHHAwDsC8EyNVy4PPvss8Wa + R8V///tfWwr75THHHBN4EtCAYAnNCJbRdNxxx4njAQD2hWCZOlEPlw8//LAtg/2yZcuWgScBDQiW0Ixg + GU2VKlUSxwMA7AvBMrXceYZRDZfXX3+9LYH9slWrVoEnAQ0IltCMYBk9S5cuFccCAOQGwTL1ovrJZffu + 3e3bt19yWA20IlhCs9NPP92sWrUqclavXm2HuTz2tXvvvffEsaBRyZIlTcWKFQEkUYMGDexSIq8vSJ4o + hsvTTjvNvnX75d///vfAk4AGBEtAn/32288Oc3nsa/fYY4+JNdFo5MiR9i3LdQCAsHOHxXbs2FFc3zRy + t6907zt2wgknBJ4ENCBYAvq4cwwTx3xU3HDDDWJNNCJYAvCdC5fnnHOOuMZpU6tWLfuW7ZcnnXRS4ElA + A4IloE+FChXsMJfHvnbnnXeeWBONCJYANMjJyTFdu3YV1zlNypYta9+u/fLkk08OPAloQLAE9Clfvrwd + 5vLY165Zs2ZiTTQiWALQIirhcvPmzSbWunVr8UnAdwRLQJ+dfxWNInfxDakmGhEsAWjiDos999xzxfVO + iyVLlphY27ZtxScB3xEsAX3KlCljh7k89jVbv369WA+tCJYAtHGfXHbr1k1c8zSYM2eOiZ1yyinik4Dv + CJaAPqVKlbLDXB77mn377bdiPbQiWALQSHO4nDZtmom5+45ITwK+I1gC+rj7GyaO+SiYPHmyWA+tCJYA + tMrOzjadO3cW1z6fTZgwwcTcTbalJwHfESwBfYoXL26HuTz2NXv00UfFemhFsASgmfvk8oILLhDXP189 + /vjjJnbGGWeITwK+I1gC+hQrVswOc3nsazZ8+HCxHloRLAFo5z65PP/888U10Edjx441sfbt24tPAr4j + WAL6FClSxA5zeexr1q9fP7EeWhEsAUSB++Sye/fu4jrom7vuusvEOnToID4J+I5gCehTuHBhO8zlsa/Z + 2WefLdZDK4IlgKjQEi5HjBhhYmeddZb4JOA7giWgT1ZWlh3m8tjXrGXLlmI9tCJYAogSDeFy6NCh0fsr + KKKDYAnolDjmo6Bu3bpiLbQiWAKIGhcue/ToIa6JPhg0aJCJdezYUXwS8B3BEtBpx44ddqjL41+rcuXK + ibXQimAJIIp8Dpd9+/Y1sXPPPVd8EvAdwRLQafv27Xaoy+Nfo61bt4p10IxgCSCqXLj08VYkXbt2NbFO + nTqJTwK+I1gCOrlLtCeOe81+++03sQ6aESwBRJkLlz179hTXx7CKn1553nnniU8CviNYAjpt27bNDnV5 + /Gv0/fffi3XQjGAJIOp8C5ennHKKiWm6MSewK4IloNOWLVvsUJfHv0Yff/yxWAfNCJYA4Nc5l61atTKx + Ll26iE8CviNYAjpt3rzZDnV5/Gs0depUsQ6aESwB4A/uugK9evUS18owadGihYl169ZNfBLwHcES0Gnj + xo12qMvjX6OXXnpJrINmBEsA+IsP4bJZs2Ym5uNVh4DcIFgCOm3YsMEOdXn8a/TEE0+IddCMYAkAuwt7 + uGzSpImJ+XwjTmBvCJaATuvWrbNDXR7/Gj344INiHTQjWAJAkAuXvXv3FtfNTGvcuLGJ+XYpWyC3CJaA + TmvXrrVDXR7/Go0ePVqsg2YESwCQ7dixw1x66aXi2plJDRs2NDEfTgYF8oNgCei0evVqO9Tl8a+RC1lS + HTQjWALAnoUxXNavX9/ELrzwQvFJwHcES0CnVatW2aEuj3+Nhg8fLtZBM4IlAOxd2MJlnTp1TOyiiy4S + nwR8R7AEdFqxYoUd6vL41+i6664T66AZwRIA9s2Fy/79+4vraLrVqlXLxPr27Ss+CfiOYAnotHz5cjvU + 5fGv0VVXXSXWQTOCJQDkjrugT58+fcS1NJ2qV69uYhdffLH4JOA7giWg07Jly+xQl8e/RldccYVYB80I + lgCQe+6TywEDBojrabocdNBBJtavXz/xScB3BEtAp99++80OdXn8a3T55ZeLddCMYAkAeZPpcHnggQea + WBgvVwskA8ES0Gnp0qV2qMvjX6MhQ4aIddCMYAkAeecOiz3mmGPEdTXV9t9/fxMLywmfQLIRLAGdlixZ + Yoe6PP41GjRokFgHzQiWAJB3//jHP8Q1NR0qV65sYpdddpn4JOA7giWg08KFC+1Ql8e/RgMHDhTroBnB + EgDy5q677hLX03SpWrVqNDdYiAaCJaDT/Pnz7VCXx79GnGMJANibe+65R1xL0yl+VdgoHmKDaCBYAjp9 + 9913dqjL41+ja6+9VqyDZgRLAMidu+++W1xH0y1+H8soXhQA0UCwBHT66quv7FCXx79GN910k1gHzQiW + ALBvYQmVTp06daJ5iA2igWAJ6PTZZ5/ZoS6Pf41uvvlmsQ6aESwBYO/CFCqd+P7nlVdeKT4J+I5gCeg0 + a9YsO9Tl8a+RC1lSHTQjWALAnmX6Qj2SBg0amNhVV10lPgn4jmAJ6DRz5kw71OXxr9E///lPsQ6aESwB + QHb77beL62amHXbYYSZ29dVXi08CviNYAjr973//s0NdHv8aPfLII2IdNCNYAkDQnXfeKa6ZYdCkSZNo + Xm0O0UCwBHSaMmWKHery+Nfo+eefF+ugGcESAHYX5lDpNGvWzMSGDh0qPgn4jmAJ6PTWW2/ZoS6Pf43e + fPNNsQ6aESwB4C9hD5VO8+bNTez6668XnwR8R7AEdHrttdfsUJfHv0bTp08X66AZwRIA/nDLLbeI62TY + tGzZ0sRuuOEG8UnAdwRLQKcJEybYoS6Pf43c7VWkOmhGsAQAExs1apS4RoZRmzZtTOzGG28UnwR8R7AE + dHr22WftUJfHv0bz588X66AZwRJA1I0YMUJcH8PqzDPPNLH/+7//E58EfEewBHR68skn7VCXx79Ga9eu + FeugGcESQJQNHz5cXBvDrEuXLiY2bNgw8UnAdwRLQCd3+43Eca9d8eLFxVpoRbAEEFU+hkrnoosu8vfF + A/tCsAR0+uc//2mHujz+tTrooIPEWmhFsAQQRT5/4Ddw4EATu/nmm8UnAd8RLAGdbr31VjvU5fGv1RFH + HCHWQiuCJYCo8f0o0muvvdbEbrvtNvFJwHcES0Cn6667zg51efxr1bp1a7EWWhEsAUSJhlMT40fBusVb + ehLwHcES0MkdbpM47rXr1q2bWAutCJYAokLLHTruvPNOE7v77rvFJwHfESwBnXr37m2Hujz+tbrmmmvE + WmhFsAQQBZruznH//feb2OjRo8UnAd8RLAGdOnXqZIe6PP61chcskmqhFcESgHY33XSTuP756rHHHjOx + ++67T3wS8B3BEtDptNNOs0NdHv9aTZgwQayFVgRLAJpdf/314trnsxdeeMHEHnjgAfFJwHcES0Cn4447 + zg51efxr9f7774u10IpgCUArbZ9U7vT222+b2Lhx48QnAd8RLAGdmjRpYoe6PP61+vnnn8VaaEWwBKDR + 0KFDxTVPg88++8zExo8fLz4J+I5gCehUt25dO9Tl8a9Vdna2KVq0qFgPjQiWALTRcvXXPVm8eLGJPfHE + E+KTgO8IloBOVapUsUNdHv+a1a5dW6yHRgRLAJrccMMN4lqnyaZNm0zs6aefFp8EfEewBHQqU6aMHery + +NesTZs2Yj00IlgC0CIKobJ06dL2rdovn3vuucCTgAYES0CnrKws4w4NTRz72l1yySViPTQiWALQIAqh + 0qlZs6Z9u/bLqF3CHNFBsAT0+vXXX+1wl+eAVnfeeadYC40IlgB8p/GWInvStGlT+5btly+//HLgSUAD + giWg15w5c+xwl+eAVlHaXlerVs00a9YMQBJF8R7AmXLllVeKa5tWbdu2tW/bfvn6668HngQ0IFgCek2Z + MsUOd3kOaPX111+LtQCA3DjooIPsUiKvL0ieqIVKp2vXrvat2y/ffPPNwJOABgRLQK9nnnnGDnd5Dmi1 + detWU6RIEbEeALAvBMvUu+6668Taa3f11Vfbt2+/nDRpUuBJQAOCJaDX6NGj7XCX54Bm9evXF+sBAPtC + sEytoUOHinWPgvvvv9+WwH45derUwJOABgRLQC93UYTEsR8FHTt2FOsBAPtCsEyNHTt2mCFDhog1j4o3 + 3njDlsJ++c477wSeBDQgWAJ69enTxw53eQ5oduONN4r1AIB9IVgmH6HyD19++aUth/1y+vTpgScBDQiW + gF4dOnSww12eA5o9++yzYj0AYF8IlsnlQuXgwYPFWkdJ4cKFzebNm21J7D/ff//9wDcAGhAsAb2aN29u + h7s8BzT75ptvxHoAwL4QLJOHUPkXt9+5sy6xWbNmBb4B0IBgCehVq1YtO9zlOaBZTk6OKVWqlFgTANgb + gmVyuFA5cOBAscZR5M7931mb2OzZswPfAGhAsAT0KlasmHEhK3H8R8Exxxwj1gQA9oZgWXAuVA4aNEis + b1SNGjXKluaP+sTmzJkT+AZAA4IloNvChQvtkJfngWb9+/cX6wEAe0OwLBhCpWzmzJm2PH/UKDZ37tzA + NwAaECwB3f73v//ZIS/PA80eeeQRsR4AsDcEy/zj8FdZ8eLF/7xwjxObP39+4JsADQiWgG6PPfaYHfLy + PNCMU1gA5AfBMn9cqORIEVmrVq1sif6qVWzx4sWBbwI0IFgCul1//fV2yMvzQLNt27ZxAR8AeUawzDsX + Ki+77DKxnoiZ6667zpbpr3rFli1bFvgmQAOCJaBbu3bt7JCX54F2xx9/vFgTANgTgmXeECr37Y033rCl + +qtmsdWrVwe+CdCAYAnoFtU57lxzzTViTQBgTwiWuUeo3LesrCyzYsUKW66/6hbbuHFj4BsBDQiWgH7L + ly+3w16eC5q99NJLYj0AYE8IlrnjQuWAAQPEGuIvjRo1suXavXbxmy1L3wz4jmAJ6Dd16lQ77OW5oNmS + JUvEegDAnhAs982Fyn79+on1w+5c+E6sX/yhcOHCgW8GfEewBPS744477LCX54J2tWrVEmsCABKC5d5t + 377dXHzxxWLtEPTKK6/Ysu1ew/hDyZIlA98M+I5gCejXsWNHO+zluaBd7969xZoAgIRguWfuk0puKZJ7 + 7kPJVatW2dLtXsf4Q/ny5QP/AfAdwRLQL6rz3HniiSfEmgCAhGApI1Tm3THHHGNLF6xl/OGAAw4I/AfA + dwRLIBqWLl1qh748HzRbuHChWA8AkBAsgwiV+fN///d/tnzBesYfqlWrFvgPgO8IlkA0vP7663boy/NB + O86zBJBbBMvduVB56aWXirXC3k2fPt2WMFjT+MMhhxwS+A+A7wiWQDTcdNNNdujL80E7zrMEkFsEy78Q + KvOvdOnSZuvWrbaMwbrGH+rXrx/4T4DvCJZANJx66ql26MvzQbunn35arAkAJCJY/sGFyksuuUSsEfat + Xbt2toxybeMPjRs3DvwnwHcESyAaKlWqZNyOQuJciIJly5aZQoUKiXUBgF0RLP+4pQhHehTM/fffb0sp + 1zf+0KxZs8B/AnxHsASi48cff7TDX54T2rENB5AbUQ+WLlT26tVLrA1yb8GCBbacco3jDy1btgz8J8B3 + BEsgOp5//nk7/OU5od2NN94o1gQAdhXlYEmoTI6mTZvacso1duIPJ598cuA/Ar4jWALRceWVV9rhL88J + 7dzV+aSaAMCuohosc3JyCJVJMmLECFtSuc5O/KF9+/aB/wj4jmAJRMfxxx9vh788J7TLzs425cuXF+sC + ADtFMVi6UNmjRw+xHsi7Tz/91JZVrrUTfzjvvPMC/xHwHcESmpUqVcrUrl0b/5+7CF1UL+DjnH/++eI4 + AYCdohYsCZXJVb169X1uZ+MPXB0JGhEsodlZZ51lu1seA4ie5557ThwnALBTlIKlC5U9e/YU64D8GThw + oC2tXO+d4g8DBgwI/GfAdwRLaEawxK7WrFljihUrJo4VAHCiEizdhXoIlck3ZcoUW1655jvFH66++urA + fwZ8R7CEZgRLJGrbtq04VgDAiUKw5OqvqeHuF71t2zZbYrnuO8Ufhg8fHvgBgO8IltCMYIlEY8eOFccK + ADjagyWhMnX69etnSyzXfVfxh1GjRgV+AOA7giU0I1gi0eLFi01WVpY4XgBAc7B0oZJrxqTOtGnTbJnl + 2u8q/nDfffcFfgDgO4IlNCNYQtKqVStxvACA1mDprlR6ySWXiO8ZBVelShXjLoaUWHdJ/GH8+PGBHwL4 + jmAJzQiWkNx///3ieAEAjcHShcpLL71UfL9IjiFDhthSy/VPFH/gMuXQiGAJzQiWkPz++++mSJEi4pgB + EG3agiWhMj0++OADW265DxLFH1577bXADwF8R7CEZgRL7EmbNm3EMQMg2jQFS0JletSoUcO4WifWf0/i + D+6+JNIPA3xGsIRmBEvsyaOPPiqOGQDRpiVYugv19OnTR3yPSK5rr73WllzuB0n84f333w/8IMB3BEto + RrDEnqxatcoUK1ZMHDcAoktDsHSfnvXv3198f0i+b775xpZd7gtJ/OHrr78O/CDAdwRLaEawxN506NBB + HDcAosv3YOlC5cUXXyy+NyTfsccea8su98WexB+WLFkS+GGA7wiW0Ixgib15+eWXxXEDILp8DpYuVA4Y + MEB8X0gNd1pFYj/sS/xh06ZNgR8G+I5gCc0Iltibbdu2mcqVK4tjB0A0+RosCZXpV7p0abN27VpbfrlP + 9uTPL0qUKBH4oYDPCJbQjGCJfbnyyivFsQMgmnwMloTKzLjwwgtt+eU+2Zs/v6hatWrghwI+I1hCM4Il + 9oXrJwDYlW/B0oXKyy67THwvSK2ZM2faLpD7ZW/+/KJhw4aBHwr4jGAJzQiWyI3mzZuL4wdA9PgULAmV + meP2I139E/skN/78olWrVoEfDPiMYAnNCJbIjYcfflgcPwCix5dgyeGvmXXXXXfZbpD7Zl/+/KJ9+/aB + Hwz4jGAJzQiWyI01a9aYMmXKiGMIQLT4ECwJlZlVqlQps3LlStsVcv/sy59f9OjRI/DDAZ8RLKEZwRK5 + xc3EAThhD5YuVA4cOFB87UgPd5/QxH7Jiz+/GDx4cOCHAz4jWEIzgiVy65tvvjFZWVniOAIQHWEOli5U + Dho0SHzdSJ85c+bY7pD7KDf+/OLmm28O/HDAZwRLaEawRF6cdNJJ4jgCEB1hDZaEynA44YQTbHfIfZRb + f34xfvz4wC8AfEawhGYES+TFyy+/LI4jANERxmDpQiVHTYbDSy+9ZLtE7qfc+vOLyZMnB34B4DOCJTQj + WCIvcnJyTK1atcSxBCAawhYsCZXhUaNGDZOdnW27Re6r3PrzC3cOhvSLAF8RLKEZwRJ5dfvtt4tjCUA0 + hClYulA5ZMgQ8XUi/e644w7bLXJf5cWfX6xbty7wSwCfESyhGcESeeUuIc+tR4DoClOwHDp0qPgakX6l + S5c2K1assN0i91Ve7PaPcuXKBX4Z4CuCJTQjWCI/+IQAiK6wBEtCZbhcddVVtlvkvsqr3f7RsGHDwC8D + fEWwhGYES+THokWLTNGiRcUxBUC3MATL6667TnxtyAy3PVi4cKHtGrm/8mq3f5x66qmBXwj4imAJzQiW + yK/u3buLYwqAbpkOloTK8Onbt6/tGrm/8mO3f1xyySWBXwj4imAJzQiWyK8vv/zSZGVlieMKgF6ZDJaE + yvApVKiQ+fbbb233yH2WH7v9Y+zYsYFfCviKYAnNCJYoiNNPP10cVwD0ylSwvP7668XXg8zq1KmT7R65 + z/Jrt3/MmDEj8EsBXxEsoRnBEgXx3nvvieMKgF6ZCJZXX321+FqQeZ988ontIrnf8mu3f6xdu5bDY6AG + wRKaESxRUCeddJI4tgDolO5gec0114ivA5l32mmn2S6S+60gAg2HHHJI4JcDPiJYQjOCJQpq5syZ4tgC + oFM6g+UNN9wgvgaEw0cffWS7Se67ggg0nH322YFfDviIYAnNCJZIhtatW4vjC4A+6QqWN954o/j7EQ6p + 3H8INIwcOTLwAgAfESyhGcESyfD++++L4wuAPukIloTKcHOnPH7++ee2q+T+K6hAwxdffBF4EYCPCJbQ + jGCJZGnbtq04xgDokupgSagMv86dO9uukvsvGcTGGjVqBF4I4BuCJTQjWCJZPvjgA3GMAdAllcGSW4qE + X+HChc0333xju0vuw2QQGy+++OLAiwF8Q7CEZgRLJBPXVwD0S1WwvOmmm8Tfh3Dp3r277S65D5NFbJw4 + cWLgxQC+IVhCM4Ilkmnu3LmmSJEi4lgDoEMqgiWHv/qhWLFi5ocffrBdJvdjsoiNOTk5platWoEXBfiE + YAnNCJZItksvvVQcawB0SHaw/L//+z/x9yB8rrzySttlcj8mk9jocHVY+I5gCc0Ilki2ZcuWmbJly4rj + DYD/khksCZX+qFixolmxYoXtNrkvk0lsdFauXGlKlSoVeHGALwiW0IxgiVQYPny4ON4A+C9ZwXLYsGHi + z0c43Xvvvbbb5L5MNrFxp0GDBgVeHOALgiU0I1giFdavX2+qVq0qjjkAfktGsCRU+qVOnTpm69attuvk + /kw2sXGn33//3ZQrVy7wIgEfECyhGcESqTJ+/HhxzAHwW0GDJUc0+Of111+3XSf3ZyqIjbsaMWJE4EUC + PiBYQjOCJVJl+/btpkWLFuK4A+CvggRLQqV/TjzxRNt1cn+miti4K3dYTJUqVQIvFgg7giU0I1gilWbN + mmUKFSokjj0AfspvsORDJv+420d98cUXtvvkPk0VsTHRI488EnjBQNgRLKEZwRKp1qdPH3HsAfBTfoLl + qFGjxJ+FcLv88stt98l9mkpiYyJ3X8vGjRsHXjQQZgRLaEawRKq5249UqFBBHH8A/JPXYHnnnXeKPwfh + 5o40XbNmje1CuV9TSWyUTJs2LfDCgTAjWEIzgiXSwV2mXhp/APyTl2BJqPTX888/b7tQ7tdUExv3xO3I + SG8ACCOCJTQjWCIdsrOzTdOmTcUxCMAvuQ2Wt956q/j/EX6tW7e2XSj3azqIjXuyaNEiU6ZMmcCbAMKI + YAnNCJZIF3cBiKJFi4rjEIA/chMs77rrLvH/IvyKFStm5s6da7tR7tt0EBv35u677w68ESCMCJbQjGCJ + dLr66qvFcQjAH/sKloRKv9144422G+W+TRexcW/cYTFHHnlk4M0AYUOwhGYES6TTxo0bTZ06dcSxCMAP + ewuWfHDkN7fvt2nTJtuVcv+mi9i4L7Nnz45/3Cq9MSAsCJbQjGCJdHvnnXdMVlaWOB4BhN+egiWh0m/u + nsPTp0+3XRns23QTG3NjzJgxgTcGhAnBEpoRLJEJPXr0EMcjgPCTguU999wjfi/8kal7VkrExtw655xz + Am8OCAuCJTQjWCITVqxYYapWrSqOSQDhlhgsR40aJX4f/OFOUdiwYcNu/ZpJYmNurV692tSuXTvwJoEw + IFhCM4IlMmXy5MkcEgt4aNdgySeV/nOHwL777rt/9mkYiI158fHHH5vixYsH3iyQaQRLaEawRCZdfPHF + 4rgEEF47g+U//vEP8Xn45bLLLov3Z5iIjXn1wgsv8NdLhA7BEpoRLJFJ69atM4cccog4NgGEkwuWXKhH + B7f+rl+/3i7H8hqdKWJjfgwfPjzwpoFMIlhCM4IlMu29996LH4oljU8A4VO4cGGxHX4pUqSIef/99+0y + LK/NmSQ25seOHTtMz549A28eyBSCJTQrVapU/Bx3pNYtt9xip5U812BiV155pTg+AQCp4T7MS1yLw0Js + zK9t27aZ1q1bBwoAZALBEkBBuXs2f/fdd3ZqyfMt6rZs2WKaNm0q1g4AkFxHH320cXkrcS0OC7GxIFau + XGkaNWoUKASQbgRLAMlwyimn2KklzzeY2A8//GDKlSsn1g4AkBxlypQx8+bNs8uuvBaHgdhYUMuWLTMN + GjQIFARIJ4IlgGSZOHGinV7ynMMfF/GT6gYASI5nnnnGLrfyGhwWYmMyLF68OH5+ilQYIB0IlgCSxW3P + Nm/ebKeYPO9gYr169RJrBwAomM6dO9tlVl57w0RsTJaFCxeaWrVqBYoDpAPBEkAy3XrrrXaKyfMOJrZh + wwaOVgKAJKtXr55Zs2aNXWbltTdMxMZkcudeuPvmSIUCUolgCSCZSpYsaRYsWGCnmTz3YGJffPFFvE5S + /QAAeVO6dGnz5Zdf2uVVXnPDRmxMtvnz55s6deoEigWkEsESQLJ16tTJTjN57uEP7jwgqXYAgLx58skn + 7bIqr7VhJDamwtKlS03jxo0DBQNShWAJIBX++9//2qkmzz/8YcCAAWLtAAC549bRxLU17MTGVFm1apU5 + 9thjA4UDUoFgCSAV3HmEYb6PWBi4+hx//PFi/QAAe9e8eXPj7hOcuLaGndiYSu7kfndPMKmIQDIRLAGk + yj333GOnmzwH8Ydff/2VaywAQB5VqlTJ/PTTT3YZldfWMBMbU80l8K5duwYKCSQTwRJAqpQtW9YsWbLE + Tjl5HuIP06dPN0WLFhVrCADYXZEiRcyUKVPs8imvqWEnNqbLmDFjTKFChQJFBZKBYAkglXr06GGnnDwP + 8ZcHH3xQrB8AYHf33XefXTbltdQHYmM6/ec//zHly5cPFBYoKIIlgFTKysoy7733np128lzEXwYPHizW + EADwh4suusgul/Ia6guxMd2++uorc8ghhwQKDBQEwRJAqrmrnWdnZ9upJ89H/CEnJ8d06NBBrCEARJ27 + 2NnWrVvtcimvob4QGzNhxYoV5uyzzw4UGsgvgiWAdHjggQfs1JPnI/6ybt06c/jhh4s1BICoch+u/f77 + 73aZlNdOn4iNmfTUU0+ZMmXKBIoO5BXBEkA6lCtXzrh7NSfORQT9/PPP5sADDxTrCABR4y4E547cTFwr + fSU2Zpq7xG7Lli0DxQfygmAJIF26d+9up588J7G7Dz74wJQsWVKsIwBEhbti9qRJk+yyKK+VPhIbw8Dd + XHnYsGGmRIkSgY4AcoNgCSCd3n77bTsF5XmJ3b3xxhvxy+pLdQQA7dzF35544gm7HMprpK/ExjBZvHhx + /JLurgOkjgH2hGAJIJ3q1atnNm/ebKehPDexu3/9619s2wFE0qhRo+wyKK+NPhMbw+jdd981RxxxRKBj + gD0hWAJIt1tvvdVOQ3luIuiWW24R6wgAWl166aV2+ZPXRN+JjWG1fft2M3HiRNOiRYtAJwGJCJYA0s2d + O/jjjz/aqSjPTwRxj0sAUXHWWWcZd/ulxHVQC7HRBzNmzDDt27cPdBiwE8ESQCaceuqpdirK8xNBbifr + 3HPPFWsJAFqccMIJ6k+XEBt98vHHH8c3SIULFw50IKKNYAkgU1588UU7HeU5iiB3Y/DTTz9drCUA+K5Z + s2Zm9erVdrmT10AtxEYfLVmyJH4ibK1atQKdiWgiWALIlAMOOEDNDa/TZcuWLea0004T6wkAvmrcuLFZ + sWKFXebktU8TsdFn7pCaqVOnmr59+5pKlSoFOhfRQbAEkEkXXHCBnZLyPIVs48aN5u9//7tYTwDwjbta + +NKlS+3yJq952oiNWrhDa1zIvOqqq0yjRo0CnQ3dCJYAMu3ll1+201Keq5CtXbvWNG/eXKwnAPiiRo0a + 5ueff7bLmrzWaSQ2auX+YvDSSy+ZK664whxzzDGmVKlSgUEAPQiWADKtSpUqZuXKlXZqyvMVMlezJk2a + iDUFgLCrXr26+emnn+xyJq9xWomNUeFuXzJv3rx42Lz55ptNjx49TMuWLeM7AtIggV8IlgDCoHv37nZq + yvMVe+bOSXIXvJBqCgBhVbVqVfP999/bZUxe2zQTG/HHeR4//PCD+eCDD8zrr79uHnvsMXP77bebyy+/ + PL6T4C4w4P6aWq1aNVOxYkWuShtCBEsAYcEhsfmzZs0ac+yxx4o1BYCwcZ9Uug+tEteyqBAbkT/uwkGr + Vq0y7gq18+fPN5999pn56KOP4ud5unA6YcIE88gjj5hx48aZMWPGxK9iu9Ntt91mhg4dupt+/frtplu3 + bqZz58554u6n1qZNm0jq0qWL7Ra5rzQjWALhwyGx+bdhwwZz0kkniXUFgLBwd6b48ccf7bIlr2VRIDYC + 8BfBEggnDonNP3cUkfuDoVRXAMi0+vXrm8WLF9vlSl7DokJsBOAvgiUQXq+88oqdpvLcxd5t2rQpfhSO + VFcAyBR3n8rffvvNLlPy2hUlYiMAfxEsgfBy5+QvXLjQTlV5/mLv3G3EunbtKtYWANKtadOmZvny5XZ5 + ktesqBEbAfiLYAmE2wknnGDcOfmJcxe5467oPmjQILG2AJAuJ554onEXGEtco6JMbATgL4IlEH533XWX + na7yHEbuuAvfZWVlifUFgFTq2LGj2bx5s12K5PUpqsRGAP4iWALhV7RoUTNr1iw7ZeV5jNx58sknTZEi + RcQaA0AquCMm3JETiesRbHmkRgD+IlgCfqhbt65Zt26dnbbyXEbuvPrqq6ZUqVJijQEgWdwREnfeeadd + duS1CLZMUiMAfxEsAX9cfPHFdtrKcxm598UXX5iDDz5YrDEAFJQ7MmL8+PF2uZHXIPxBbATgL4Il4JcX + XnjBTl15PiP3Fi1aZA4//HCxxgCQXxUqVDBTpkyxy4y89uAvYiMAfxEsAb9UqlSJG2snyfr1602HDh3E + OgNAXtWpU8d88803dnmR1xzsTmwE4C+CJeCfFi1aGHePxsT5jLxzt3IZOnSoWGcAyK3jjz/e/P7773ZZ + kdcaBImNAPxFsAT8dMUVV9gpLM9r5N24ceNMsWLFxFoDwN7079/fZGdn26VEXl8gExsB+ItgCfjJXXHw + xRdftNNYntvIu9mzZ5saNWqI9QaARIULFzbuHrmJawlyR2wE4C+CJeCvsmXLmrlz59qpLM9v5N3SpUtN + q1atxHoDwE4HHHCAefvtt+2yIa8l2DexEYC/CJaA3xo3bmw2btxop7M8x5F37pA2zrsEsCdHHXWUWbBg + gV0u5DUEuSM2AvAXwRLwX58+fex0luc48u+xxx4zJUuWFGsOIJoGDRrExdOSRGwE4C+CJaDD448/bqe0 + PM+Rf99++238U2Gp5gCio0yZMub555+3y4K8ViDvxEYA/iJYAjqUKFHCfPbZZ3Zay3Md+bdp0yYzePBg + se4A9HP7Sl999ZVdDuQ1AvkjNgLwF8ES0KNWrVpm+fLldmrL8x0F8+STT5rSpUuLtQegU69evcz69evt + EiCvC8g/sRGAvwiWgC5t2rThfmop5A6NPfzww8XaA9CjQoUK5oUXXrDTXl4LUHBiIwB/ESwBfa644go7 + veU5j4Lbtm2bGT58ePwedlL9AfjtmGOOMfPnz7fTXV4DkBxiIwB/ESwBnR599FE7xeV5j+R4//33TZ06 + dcT6A/BPkSJF4n80ysnJsVNcnvdIHrERgL8IloBOxYsXNx9++KGd5vLcR3KsWbPG9OjRQ+wDAP6oV6+e + mTVrlp3W8lxH8omNAPxFsAT0qlKlilm8eLGd6vL8R/JMmDDB7LfffmI/AAivQoUKmcsvv9xs3LjRTmV5 + fiM1xEYA/iJYAro1bdrUuNtlJM59JN+yZcv49BLwiDuU/d1337XTV57TSC2xEYC/CJaAfi7sJM59pM6b + b75pDj74YLEvAGSe+5SyX79+ZsOGDXbKyvMYqSc2AvAXwRKIhpEjR9opL68DSD537qXbcc3KyhL7A0Bm + NGrUiHMpQ0JsBOAvgiUQDS7gPP3003bay2sBUuPtt982devWFfsEQPqULFnS3HzzzWbLli12asrzFekl + NgLwF8ESiI5ixYqZadOm2akvrwdIDXffyzFjxpjSpUuL/QIgtU4++WQzd+5cOx3lOYrMEBsB+ItgCURL + pUqVzHfffWenv7wmIHXcFXo7deok9guA5DvooIPMU089ZaefPCeRWWIjAH8RLIHoOeSQQ8xvv/1mlwB5 + XUBqTZw4Md4HUt8AKLgiRYqYwYMHm3Xr1tkpJ89DZJ7YCMBfBEsgmo466iiuiJhB7hYwI0aM4PBYIMlO + O+00880339hpJs89hIfYCMBfBEsgutq3b29ycnLsUiCvD0i9JUuWxK8eW7hwYbGPAOTOoYceat544w07 + reS5hvARGwH4i2AJRJs7XCxxXUD6uU9YTj/9dLGPAOzZfvvtF784VnZ2tp1K8vxCOImNAPxFsARwyy23 + 2OVAXiOQXu78S/fJi9RPAP5SokQJc/3113MepcfERgD+IlgCcP7xj3/YJUFeJ5Be7pOXxx57zNSsWVPs + KyDKihYtavr27WsWLlxop4s8h+AHsRGAvwiWAJysrKx4mElcI5A57v6X48aNi98yQeozIEoKFSpkOnfu + bObNm2enhzxn4BexEYC/CJYAdnIXkHnxxRft0iCvF8iMjRs3xs8hq1y5sthvgGbuj17uQmNz5syx00Ge + I/CT2AjAXwRLALsqVqyYmTRpkl0e5DUDmbN27Vpz++23mwMOOEDsO0ATFyg7duxovvzySzv85TkBv4mN + APxFsASQqFSpUmbmzJl2iZDXDWTWli1b4ofIVq9eXew/wGc7D3n9+uuv7XCX5wB0EBsB+ItgCUDiLuH/ + 1Vdf2WVCXjuQeVu3bjVPPfWUqV+/vtiHgE+KFy9uevTowTmUESI2AvAXwRLAnrhDLjkMLfxycnLMc889 + Z44++mixH4Ewq1ixornpppvM77//boezPMahk9gIwF8ESwB748IlF83wx4wZM8y5554bvxCT1J9AWLj9 + j3vvvZf7UEaY2AjAXwRLAPviPlH45JNP7JIhryMIn59++skMHTo03ndSnwKZ4M6fbNOmjZkwYYJxn7Qn + jltEi9gIwF8ESwC5UaFCBfPxxx/bZUNeSxBO7kqy999/vznssMPEfgXSoXz58mbIkCGcP4ndiI0A/EWw + BJBbLlzOmjXLLh3yeoJwc1f6dRdHKVGihNi/QLI1bdrUPPjgg2b9+vV2CMrjEtElNgLwF8ESQF64Tx4+ + +ugju3zIawrCb82aNfHblTRu3FjsY6Ag3BrRr18/8+mnn9rhJo9BwBEbAfiLYAkgr9yOo7tITOJ6Av/M + nj3bDB482Oy///5iXwO54c6dbNWqVfwPFhs3brRDSx5vwK7ERgD+IlgCyA93z7mXX37ZLiPy2gK/bNmy + xbz44oumQ4cOpmjRomKfA4kaNWpkbr31VrNgwQI7jOSxBeyJ2AjAXwRLAPnlbmnx2GOP2aVEXl/gJ3c/ + QXcbiJYtW5qsrCyx7xFdderUMTfccAP3uEWBiY0A/EWwBFAQLnjcc889djmR1xj4bfHixWbMmDHxW0Rw + b8zoqlatWvyQaXcI/I4dO+zQkMcLkBdiIwB/ESwBJIO7Z2Li+gJdfvnlF3PfffeZ448/npAZAQ0bNjTX + XXed+fDDD8327dvtEJDHBZBfYiMAfxEsASRL//792QGNiJUrV8Zvcu9uX+JuQyONB/jF/bHAXYBn1KhR + 5ttvv7XdLPc9kCxiIwB/ESwBJFPHjh2NuxBM4loDvbZt22beeecdc9VVVxm2KX6pXLmy6datm/nXv/5l + VqxYYbtT7mMgFcRGAP5iJwBAsrVu3dqsW7fOLjHyugPdli5dGv80093L8OCDDxbHCDKjZMmS8fNl3aeS + 7lYzHGGATBIbAfiLYAkgFY4++mizfPlyu8zIaw+iwV3oZc6cOWb06NGmXbt2pmzZsuJ4QWoUK1YsfnXf + 66+/3kybNo2jCRAqYiMAfxEsAaSKu/iHu6po4rqD6MrJyTFff/11/Eb67vxMN0aksYP8ccHdfSI5fPhw + M3XqVLNp0yZbdrkvgEwTGwH4i2AJIJVq1apl5s2bZ5cbeQ0C3B8fnn/+eTNkyJD4YdRVqlQRxxJ250Jk + 8+bNTZ8+fcyDDz5ovvrqKw5thVfERgD+IlgCSLUDDzzQfP7553bJkdchINGqVavMp59+al555ZX4fTSv + uOIK07NnT3PGGWeYFi1amLp165py5cqJ4813pUqVMtWrVzdNmjQxbdu2NV27djUDBw40d9xxh3n22WfN + zJkzjbv1S2LNAN+IjQD8RbAEkA7ulhTTp0+3y468FgH54a5I++uvv8YPr33vvffMm2++Gb9w0OOPPx4/ + 3PbOO+80t912W/w+q+4G/+6CQi6ode7c2Zx66qnxw0Z35W630axZs924gFe7dm3TqFGjwHMu5Cb+DKdT + p07x33HxxRebAQMGxH+/OzzVXTTngQceMI888kj8db766qvm7bffjv/hZdGiRRy6ikgRGwH4i2AJIF2K + Fy9uXn75Zbv0yOsRACAqTOz/AQDTq+UV1OGCAAAAAElFTkSuQmCC + + + + ..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\picboxZoomIn_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\weiblich.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\..\..\..\AVISO\Aviso\Diverses\wheel_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pfeil_unten.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_green.png;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 + + + ..\Resources\android-note1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\easteregg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\..\..\..\AVISO\Aviso\Diverses\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\cake.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\uhr_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Verag-Spedition-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\sicherheit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Atilla.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\TiMaS-Paket-Time.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Resources/TiMaS-Paket-Time.png b/VERAG_PROG_ALLGEMEIN/Resources/TiMaS-Paket-Time.png new file mode 100644 index 00000000..de71c230 Binary files /dev/null and b/VERAG_PROG_ALLGEMEIN/Resources/TiMaS-Paket-Time.png differ diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb index 644b9e10..edaa12db 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb @@ -527,14 +527,6 @@ Public Class cATEZ_NCTS_IN Dim sbResponseBody As New Chilkat.StringBuilder success = rest.FullRequestSb("POST", "/api/integrations/verag", sbRequestBody, sbResponseBody) - 'Dim bdRequest As New Chilkat.BinData - 'success = rest.GetLastDebugRequest(bdRequest) - 'Debug.WriteLine("----") - 'Debug.WriteLine(bdRequest.GetString("utf-8")) - 'Debug.WriteLine("----") - - - If (rest.LastMethodSuccess <> True) Then Debug.WriteLine(rest.LastErrorText) failureDesc = rest.LastErrorText @@ -556,9 +548,6 @@ Public Class cATEZ_NCTS_IN End If - - - Catch ex As WebException VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try @@ -606,7 +595,6 @@ Public Class cATEZ_NCTS_IN Next - For Each r As DataGridViewRow In dgv.Rows Dim isSelected = IIf(DBNull.Value Is r.Cells("anh_selekt").Value, False, r.Cells("anh_selekt").Value) If isSelected Then diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/BMD/cBMD_Interface.vb similarity index 100% rename from VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb rename to VERAG_PROG_ALLGEMEIN/Schnittstellen/BMD/cBMD_Interface.vb diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb similarity index 100% rename from VERAG_PROG_ALLGEMEIN/Schnittstellen/cCreditSafeAPI.vb rename to VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cOregonNCTSDeclarations.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cOregonNCTSDeclarations.vb new file mode 100644 index 00000000..05221b09 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Modaltrans/cOregonNCTSDeclarations.vb @@ -0,0 +1,1602 @@ +Imports System.Data.SqlClient +Imports System.Drawing +Imports System.Net +Imports System.Reflection +Imports System.Security +Imports System.Security.Cryptography +Imports System.Windows.Forms +Imports System.Windows.Forms.VisualStyles.VisualStyleElement +Imports Spire.Pdf.General.Paper.Uof +Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange +Imports VERAG_PROG_ALLGEMEIN.cOregonNCTSDeclarations +Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat + + +Public Class cOregonNCTs_DeclarationData + + Public Property id As Integer + Public Property AvisoId As Integer + Public Property auto_send As Boolean + Public Property badge_code As String + Public Property service_code As String + Public Property doc_type As String + Public Property declaration_type As String + Public Property commercial_ref As String + Public Property ducr As String + Public Property mucr As String + Public Property ducr_part As String + Public Property declarant_eori As String + Public Property declarant_name As String + Public Property declarant_address As String + Public Property declarant_city_name As String + Public Property declarant_country_id As String + Public Property declarant_postcode As String + Public Property declarant_rep As String + Public Property export_country_id As String + Public Property consignor_eori As String + Public Property consignor_name As String + Public Property consignor_address As String + Public Property consignor_city_name As String + Public Property consignor_country_id As String + Public Property consignor_postcode As String + Public Property multiple_consignor As Boolean + Public Property import_country_id As String + Public Property consignee_eori As String + Public Property consignee_name As String + Public Property consignee_address As String + Public Property consignee_city_name As String + Public Property consignee_country_id As String + Public Property consignee_postcode As String + Public Property multiple_consignee As Boolean + Public Property invoice_amount As String + Public Property invoice_curr As String + Public Property goods_location As String + Public Property border_transport_type As String + Public Property border_vehicle_code As String + Public Property border_vehicle_coun As String + Public Property inland_transport_type As String + Public Property container_no As String + Public Property gvms_interested As Boolean + Public Property freight_amount As String + Public Property freight_curr As String + Public Property payment_method As String + Public Property carrier_eori As String + Public Property carrier_name As String + Public Property carrier_address As String + Public Property carrier_city_name As String + Public Property carrier_country_id As String + Public Property carrier_postcode As String + Public Property total_packages As Integer + Public Property nature_of_transaction As String + Public Property premises_code As String + Public Property first_dan_no As String + Public Property second_dan_no As String + Public Property insurance_amount As String + Public Property insurance_curr As String + Public Property other_amounts As String + Public Property other_amounts_curr As String + Public Property apportment_indicator As String + Public Property total_gross_weight As String + Public Property total_net_weight As String + Public Property airfreight_cost As String + Public Property vat_adjustment As String + Public Property vat_adjustment_curr As String + Public Property discount_amount As String + Public Property discount_curr As String + Public Property discount_rate As String + Public Property incoterm As String + Public Property incoterm_location As String + Public Property trader_ref As String + Public Property arrival_transport_type As String + Public Property guarantee_code As Integer + Public Property guarantee_reference As String + Public Property status As String + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", AvisoId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("auto_send", auto_send)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("badge_code", badge_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("service_code", service_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("doc_type", doc_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declaration_type", declaration_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("commercial_ref", commercial_ref)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ducr", ducr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mucr", mucr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ducr_part", ducr_part)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_eori", declarant_eori)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_name", declarant_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_address", declarant_address)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_city_name", declarant_city_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_country_id", declarant_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_postcode", declarant_postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarant_rep", declarant_rep)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", carrier_eori)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("export_country_id", export_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_eori", consignor_eori)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_name", consignor_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_address", consignor_address)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_city_name", consignor_city_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_country_id", consignor_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignor_postcode", consignor_postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("multiple_consignor", multiple_consignor)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("import_country_id", import_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_eori", consignee_eori)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_name", consignee_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_address", consignee_address)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_city_name", consignee_city_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_country_id", consignee_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_postcode", consignee_postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("multiple_consignee", multiple_consignee)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_amount", invoice_amount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_curr", invoice_curr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_location", goods_location)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_transport_type", border_transport_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_vehicle_code", border_vehicle_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("border_vehicle_coun", border_vehicle_coun)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("inland_transport_type", inland_transport_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("container_no", container_no)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", carrier_eori)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gvms_interested", gvms_interested)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("freight_amount", freight_amount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("freight_curr", freight_curr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("payment_method", payment_method)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_eori", carrier_eori)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_name", carrier_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_address", carrier_address)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_city_name", carrier_city_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_country_id", carrier_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("carrier_postcode", carrier_postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("total_packages", total_packages)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nature_of_transaction", nature_of_transaction)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("premises_code", premises_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("first_dan_no", first_dan_no)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("second_dan_no", second_dan_no)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", carrier_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("insurance_amount", insurance_amount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("insurance_curr", insurance_curr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("other_amounts", other_amounts)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("other_amounts_curr", other_amounts_curr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("apportment_indicator", apportment_indicator)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("total_gross_weight", total_gross_weight)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("total_net_weight", total_net_weight)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("airfreight_cost", airfreight_cost)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vat_adjustment", vat_adjustment)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("vat_adjustment_curr", vat_adjustment_curr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_amount", discount_amount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_curr", discount_curr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("discount_rate", discount_rate)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("incoterm", incoterm)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("incoterm_location", incoterm_location)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trader_ref", trader_ref)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("arrival_transport_type", arrival_transport_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("guarantee_code", guarantee_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("guarantee_reference", guarantee_reference)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status)) + + Return list + End Function + + Sub New() + + End Sub + + Sub New(Id) + Me.id = Id + LOAD() + End Sub + + Public Function UPDATE_STATUS(status) As Boolean + Me.status = status + Return Me.SAVE + End Function + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_DeclarationData WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim IdTMP = id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _id <= 0 Then id = IdTMP + Return id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblOregonNCTS_DeclarationData] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOregonNCTS_DeclarationData (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_DeclarationData WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 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 Sub +End Class + +Public Class cOregonNCTs_GoodsAttribute + Public Property id As Integer + Public Property commodity As String + Public Property gtip_code As String + Public Property gtip_language As String + Public Property brut_wg As Double + Public Property net_wg As Double + Public Property sender_name As String + Public Property sender_address As String + Public Property sender_city_name As String + Public Property sender_country_id As String + Public Property sender_postcode As String + Public Property sender_eori_code As String + Public Property consignee_name As String + Public Property consignee_address As String + Public Property consignee_city_name As String + Public Property consignee_country_id As String + Public Property consignee_postcode As String + Public Property consignee_eori_code As String + Public Property invoice_amount As String + Public Property invoice_curr As String + Public Property cpc_code As String + Public Property additional_cpc_code As String + Public Property container_no As String + Public Property preferential_country_id As String + Public Property cus_code As String + Public Property nature_of_transaction As String + Public Property additional_commodity_codes As String + Public Property origin_country_id As String + Public Property preference_request As String + Public Property quota_desc As String + Public Property valuation_method As String + Public Property valuation_adjustment As String + Public Property third_quantity_type As String + Public Property third_quantity As String + Public Property supplementary_unit As String + Public Property declarationDataID As Integer + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("commodity", commodity)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gtip_code", gtip_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gtip_language", gtip_language)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brut_wg", brut_wg)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("net_wg", net_wg)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_name", sender_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_address", sender_address)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_city_name", sender_city_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_country_id", sender_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_postcode", sender_postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sender_eori_code", sender_eori_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_name", consignee_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_address", consignee_address)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_city_name", consignee_city_name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_country_id", consignee_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_postcode", consignee_postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("consignee_eori_code", consignee_eori_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_amount", invoice_amount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_curr", invoice_curr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cpc_code", cpc_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("additional_cpc_code", additional_cpc_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("container_no", container_no)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("preferential_country_id", preferential_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("cus_code", cus_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nature_of_transaction", nature_of_transaction)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("additional_commodity_codes", additional_commodity_codes)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("origin_country_id", origin_country_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("preference_request", preference_request)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("quota_desc", quota_desc)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("valuation_method", valuation_method)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("valuation_adjustment", valuation_adjustment)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("third_quantity_type", third_quantity_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("third_quantity", third_quantity)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("supplementary_unit", supplementary_unit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationDataID", declarationDataID)) + + Return list + End Function + + Sub New() + + End Sub + + Sub New(Id) + Me.id = Id + LOAD() + End Sub + + + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim IdTMP = id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _id <= 0 Then id = IdTMP + Return id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblOregonNCTS_Declarations_GoodsAttribute] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOregonNCTS_Declarations_GoodsAttribute (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 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 Sub + + Shared Sub LOAD_LIST_ByNCTS(ByRef GA_LIST As List(Of cOregonNCTs_GoodsAttribute), tco_nctsId As Integer) + If GA_LIST Is Nothing Then GA_LIST = New List(Of cOregonNCTs_GoodsAttribute) + GA_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_GoodsAttribute WHERE AtezNCTS_Id=" & tco_nctsId, "FMZOLL").Rows + GA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute(r("id"))) + Next + End Sub + +End Class + +Public Class cOregonNCTs_PacksAttribute + + Public Property Id As Integer + Public Property goods_attribute_id As Integer + Public Property pack_count As Integer + Public Property pack_type As String + Public Property notes As String + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pack_count", pack_count)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pack_type", pack_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("notes", notes)) + + Return list + End Function + + Sub New() + + End Sub + + Sub New(Id) + Me.Id = Id + LOAD() + End Sub + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_PacksAttribute WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim IdTMP = Id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _Id <= 0 Then Id = IdTMP + Return Id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblOregonNCTS_Declarations_PacksAttribute] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOregonNCTS_Declarations_PacksAttribute (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PacksAttribute WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 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 Sub + + Shared Sub LOAD_LIST_ByNCTS(ByRef PA_LIST As List(Of cOregonNCTs_PacksAttribute), tco_nctsId As Integer) + If PA_LIST Is Nothing Then PA_LIST = New List(Of cOregonNCTs_PacksAttribute) + PA_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_PacksAttribute WHERE goods_attribute_id=" & tco_nctsId, "FMZOLL").Rows + PA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute(r("id"))) + Next + End Sub + + +End Class + +Public Class cOregonNCTs_DocumentsAttribute + + Public Property id As Integer + Public Property goods_attribute_id As Integer + Public Property doc_type As String + Public Property doc_no As String + Public Property pre_post As String + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("doc_type", doc_type)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("doc_no", doc_no)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pre_post", pre_post)) + + Return list + End Function + + Sub New() + + End Sub + + Sub New(Id) + Me.id = Id + LOAD() + End Sub + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_DocumentsAttribute WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & +" commit tran " + + Dim IdTMP = id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _id <= 0 Then id = IdTMP + Return id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblOregonNCTS_Declarations_DocumentsAttribute] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOregonNCTS_Declarations_DocumentsAttribute (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_DocumentsAttribute WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 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 Sub + + Shared Sub LOAD_LIST_ByNCTS(ByRef DA_LIST As List(Of cOregonNCTs_DocumentsAttribute), tco_nctsId As Integer) + If DA_LIST Is Nothing Then DA_LIST = New List(Of cOregonNCTs_DocumentsAttribute) + DA_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_DocumentsAttribute WHERE goods_attribute_id=" & tco_nctsId, "FMZOLL").Rows + DA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_DocumentsAttribute(r("id"))) + Next + End Sub + +End Class + +Public Class cOregonNCTs_ProducedDocumentsAttribute + + Public Property id As Integer + Public Property goods_attribute_id As Integer + Public Property code As String + Public Property reference As String + Public Property status As String + Public Property reason As String + Public Property quantity As Integer + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("code", code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reference", reference)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reason", reason)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("quantity", quantity)) + + Return list + End Function + + Sub New() + + End Sub + + Sub New(Id) + Me.id = Id + LOAD() + End Sub + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_ProducedDocumentsAttribute WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim IdTMP = id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _id <= 0 Then id = IdTMP + Return id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblOregonNCTS_Declarations_ProducedDocumentsAttribute] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOregonNCTS_Declarations_ProducedDocumentsAttribute (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_ProducedDocumentsAttribute WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 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 Sub + + Shared Sub LOAD_LIST_ByNCTS(ByRef PDA_LIST As List(Of cOregonNCTs_ProducedDocumentsAttribute), tco_nctsId As Integer) + If PDA_LIST Is Nothing Then PDA_LIST = New List(Of cOregonNCTs_ProducedDocumentsAttribute) + PDA_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_ProducedDocumentsAttribute WHERE goods_attribute_id=" & tco_nctsId, "FMZOLL").Rows + PDA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_ProducedDocumentsAttribute(r("id"))) + Next + End Sub +End Class + +Public Class cOregonNCTs_AdditionalCodesAttribute + + Public Property id As Integer + + Public Property goods_attribute_id As Integer + + Public Property code As String + Public Property notes As String + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("goods_attribute_id", goods_attribute_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("code", code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("notes", notes)) + + + Return list + End Function + + Sub New() + + End Sub + + Sub New(Id) + Me.id = Id + LOAD() + End Sub + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_AdditionalCodesAttribute WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim IdTMP = id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _id <= 0 Then id = IdTMP + Return id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblOregonNCTS_Declarations_AdditionalCodesAttribute] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOregonNCTS_Declarations_AdditionalCodesAttribute (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_AdditionalCodesAttribute WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 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 Sub + + Shared Sub LOAD_LIST_ByNCTS(ByRef ACA_LIST As List(Of cOregonNCTs_AdditionalCodesAttribute), tco_nctsId As Integer) + If ACA_LIST Is Nothing Then ACA_LIST = New List(Of cOregonNCTs_AdditionalCodesAttribute) + ACA_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_AdditionalCodesAttribute WHERE goods_attribute_id=" & tco_nctsId, "FMZOLL").Rows + ACA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_AdditionalCodesAttribute(r("id"))) + Next + End Sub +End Class + + + +Public Class cOregonNCTs_PartiesAttribute + + Public Property id As Integer + Public Property declarationdata_id As String + Public Property party_role As String + Public Property party_code As String + Public Property eori_code As String + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationdata_id", declarationdata_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("party_role", party_role)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("party_code", party_code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("eori_code", eori_code)) + + Return list + End Function + + Sub New() + + End Sub + + Sub New(Id) + Me.id = Id + LOAD() + End Sub + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim IdTMP = id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _id <= 0 Then id = IdTMP + Return id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblOregonNCTS_Declarations_PartiesAttribute] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOregonNCTS_Declarations_PartiesAttribute (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 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 Sub + + Shared Sub LOAD_LIST_ByNCTS(ByRef PA_LIST As List(Of cOregonNCTs_PartiesAttribute), tco_nctsId As Integer) + If PA_LIST Is Nothing Then PA_LIST = New List(Of cOregonNCTs_PartiesAttribute) + PA_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_PartiesAttribute WHERE declarationdata_id=" & tco_nctsId, "FMZOLL").Rows + PA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute(r("id"))) + Next + End Sub + +End Class + +Public Class cOregonNCTs_TraderAdditionsAttribute + + Public Property id As Integer + + Public Property declarationdata_id As Integer + Public Property code As String + Public Property amount As Integer + Public Property curr As String + Public Property rate_code As Integer + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("declarationdata_id", declarationdata_id)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("code", code)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("amount", amount)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("curr", curr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rate_code", rate_code)) + + + Return list + End Function + + Sub New() + + End Sub + + Sub New(Id) + Me.id = Id + LOAD() + End Sub + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim IdTMP = id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _id <= 0 Then id = IdTMP + Return id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblOregonNCTS_Declarations_TraderAdditionsAttribute] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblOregonNCTS_Declarations_TraderAdditionsAttribute (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + 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 Sub + + Shared Sub LOAD_LIST_ByNCTS(ByRef TAA_LIST As List(Of cOregonNCTs_TraderAdditionsAttribute), tco_nctsId As Integer) + If TAA_LIST Is Nothing Then TAA_LIST = New List(Of cOregonNCTs_TraderAdditionsAttribute) + TAA_LIST.Clear() + Dim SQL As New SQL + For Each r In SQL.loadDgvBySql("SELECT id FROM tblOregonNCTS_Declarations_TraderAdditionsAttribute WHERE declarationdata_id=" & tco_nctsId, "FMZOLL").Rows + TAA_LIST.Add(New VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute(r("id"))) + Next + End Sub +End Class + + +Public Class cModalAPI + + 'DEV + Shared API_STRING As String = "https://modaltrans.com" + Shared token As String = "" + Public dataTable As New DataTable() + Shared jsonData As New Chilkat.JsonObject + + + Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String) As String + Try + If Itoken <> "" Then Return "200" + + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + + Dim rest As New Chilkat.Rest + Dim success As Boolean + + + Dim bTls As Boolean = True + Dim port As Integer = 443 + Dim bAutoReconnect As Boolean = True + success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) + If (success <> True) Then + Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + Return rest.LastErrorText + + End If + + + Dim json As New Chilkat.JsonObject + json.UpdateString("password", "Verag2023") + json.UpdateString("email", "mdlapi@verag.ag") + + + rest.AddHeader("Content-Type", contentType) + + Dim sbRequestBody As New Chilkat.StringBuilder + json.EmitSb(sbRequestBody) + + + Dim sbResponseBody As New Chilkat.StringBuilder + Dim ResponseStr = rest.FullRequestSb(method, myuri, sbRequestBody, sbResponseBody) + + + If (rest.ResponseStatusCode <> 200) Then + Return rest.ResponseStatusCode & " " & rest.ResponseStatusText + End If + + Dim jsonResp = New Chilkat.JsonObject() + jsonResp.LoadSb(sbResponseBody) + + token = jsonResp.StringOf("access_token") + Itoken = token + + Return rest.ResponseStatusCode + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Function + + Shared Function authenticate() As String + + Dim myUri As String = API_STRING & "/api/v1/login" + Dim response = SendRequestAuthentificationToken(myUri, "application/json", "POST", token) + + Return response + + + End Function + + Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String) As String + Try + + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + + Dim rest As New Chilkat.Rest + Dim success As Boolean + + + Dim bTls As Boolean = True + Dim port As Integer = 443 + Dim bAutoReconnect As Boolean = True + success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) + If (success <> True) Then + Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + failureDesc = rest.LastErrorText + Return failureDesc + End If + + + rest.AddHeader("Content-Type", "application/json") + rest.AddHeader("Authorization", "Bearer " & token) + rest.AddHeader("Accept", acceptContentType) + + Dim sbRequestBody As New Chilkat.StringBuilder + jsonData.EmitSb(sbRequestBody) + Debug.WriteLine(sbRequestBody) + + Dim sbResponseBody As New Chilkat.StringBuilder + success = rest.FullRequestSb("POST", "api/v1/customs_declarations ", sbRequestBody, sbResponseBody) + + 'Dim bdRequest As New Chilkat.BinData + 'success = rest.GetLastDebugRequest(bdRequest) + 'Debug.WriteLine("----") + 'Debug.WriteLine(bdRequest.GetString("utf-8")) + 'Debug.WriteLine("----") + + + + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + failureDesc = rest.LastErrorText + Return failureDesc + + Else + If (rest.ResponseStatusCode <> 200) Then + failureDesc = rest.ResponseStatusText + Return failureDesc + Else + + Dim jsonResult As New Chilkat.JsonObject + success = jsonResult.LoadSb(sbResponseBody) + jsonResult.Emit() + Return jsonResult.StringOf("") + + End If + + End If + + + + + + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Function + + Shared Function setJson(declaration_data As cOregonNCTs_DeclarationData, dgv As DataGridView) + + Dim json As New Chilkat.JsonObject + Dim success As Boolean + json.UpdateBool("customs_declaration.declaration_data.auto_send", declaration_data.auto_send) + json.UpdateString("customs_declaration.declaration_data.badge_code", declaration_data.badge_code) + json.UpdateString("customs_declaration.declaration_data.service_code", declaration_data.service_code) + json.UpdateString("customs_declaration.declaration_data.doc_type", declaration_data.doc_type) + json.UpdateString("customs_declaration.declaration_data.declaration_type", declaration_data.declaration_type) + json.UpdateString("customs_declaration.declaration_data.commercial_ref", declaration_data.commercial_ref) + json.UpdateString("customs_declaration.declaration_data.ducr", declaration_data.ducr) + json.UpdateString("customs_declaration.declaration_data.mucr", declaration_data.mucr) + json.UpdateString("customs_declaration.declaration_data.ducr_part", declaration_data.ducr_part) + json.UpdateString("customs_declaration.declaration_data.declarant_eori", declaration_data.carrier_eori) + json.UpdateString("customs_declaration.declaration_data.declarant_name", declaration_data.declarant_name) + json.UpdateString("customs_declaration.declaration_data.declarant_address", declaration_data.declarant_address) + json.UpdateString("customs_declaration.declaration_data.declarant_city_name", declaration_data.declarant_city_name) + json.UpdateString("customs_declaration.declaration_data.declarant_country_id", declaration_data.declarant_country_id) + json.UpdateString("customs_declaration.declaration_data.declarant_postcode", declaration_data.declarant_postcode) + json.UpdateString("customs_declaration.declaration_data.declarant_rep", declaration_data.declarant_rep) + json.UpdateString("customs_declaration.declaration_data.export_country_id", declaration_data.export_country_id) + json.UpdateString("customs_declaration.declaration_data.consignor_eori", declaration_data.consignor_eori) + json.UpdateString("customs_declaration.declaration_data.consignor_name", declaration_data.consignor_name) + json.UpdateString("customs_declaration.declaration_data.consignor_address", declaration_data.consignor_address) + json.UpdateString("customs_declaration.declaration_data.consignor_city_name", declaration_data.consignor_city_name) + json.UpdateString("customs_declaration.declaration_data.consignor_country_id", declaration_data.consignor_country_id) + json.UpdateString("customs_declaration.declaration_data.consignor_postcode", declaration_data.consignor_postcode) + json.UpdateBool("customs_declaration.declaration_data.multiple_consignor", declaration_data.multiple_consignor) + json.UpdateString("customs_declaration.declaration_data.import_country_id", declaration_data.import_country_id) + json.UpdateString("customs_declaration.declaration_data.consignee_eori", declaration_data.consignee_eori) + json.UpdateString("customs_declaration.declaration_data.consignee_name", declaration_data.consignee_name) + json.UpdateString("customs_declaration.declaration_data.consignee_address", declaration_data.consignee_address) + json.UpdateString("customs_declaration.declaration_data.consignee_city_name", declaration_data.consignee_city_name) + json.UpdateString("customs_declaration.declaration_data.consignee_country_id", declaration_data.consignee_country_id) + json.UpdateString("customs_declaration.declaration_data.consignee_postcode", declaration_data.consignee_postcode) + json.UpdateBool("customs_declaration.declaration_data.multiple_consignee", declaration_data.multiple_consignee) + json.UpdateString("customs_declaration.declaration_data.invoice_amount", declaration_data.invoice_amount) + json.UpdateString("customs_declaration.declaration_data.invoice_curr", declaration_data.invoice_curr) + json.UpdateString("customs_declaration.declaration_data.goods_location", declaration_data.goods_location) + json.UpdateString("customs_declaration.declaration_data.border_transport_type", declaration_data.border_transport_type) + json.UpdateString("customs_declaration.declaration_data.border_vehicle_code", declaration_data.border_vehicle_code) + json.UpdateString("customs_declaration.declaration_data.border_vehicle_coun", declaration_data.border_vehicle_coun) + json.UpdateString("customs_declaration.declaration_data.inland_transport_type", declaration_data.inland_transport_type) + json.UpdateString("customs_declaration.declaration_data.container_no", declaration_data.container_no) + json.UpdateBool("customs_declaration.declaration_data.gvms_interested", declaration_data.gvms_interested) + json.UpdateString("customs_declaration.declaration_data.freight_amount", declaration_data.freight_amount) + json.UpdateString("customs_declaration.declaration_data.freight_curr", declaration_data.freight_curr) + json.UpdateString("customs_declaration.declaration_data.payment_method", declaration_data.payment_method) + json.UpdateString("customs_declaration.declaration_data.carrier_eori", declaration_data.carrier_eori) + json.UpdateString("customs_declaration.declaration_data.carrier_name", declaration_data.carrier_name) + json.UpdateString("customs_declaration.declaration_data.carrier_address", declaration_data.carrier_address) + json.UpdateString("customs_declaration.declaration_data.carrier_city_name", declaration_data.carrier_city_name) + json.UpdateString("customs_declaration.declaration_data.carrier_country_id", declaration_data.carrier_country_id) + json.UpdateString("customs_declaration.declaration_data.carrier_postcode", declaration_data.carrier_postcode) + json.UpdateInt("customs_declaration.declaration_data.total_packages", declaration_data.total_packages) + json.UpdateString("customs_declaration.declaration_data.nature_of_transaction", declaration_data.nature_of_transaction) + json.UpdateString("customs_declaration.declaration_data.premises_code", declaration_data.premises_code) + json.UpdateString("customs_declaration.declaration_data.first_dan_no", declaration_data.first_dan_no) + json.UpdateString("customs_declaration.declaration_data.second_dan_no", declaration_data.second_dan_no) + json.UpdateString("customs_declaration.declaration_data.insurance_amount", declaration_data.insurance_amount) + json.UpdateString("customs_declaration.declaration_data.insurance_curr", declaration_data.insurance_curr) + json.UpdateString("customs_declaration.declaration_data.other_amounts", declaration_data.other_amounts) + json.UpdateString("customs_declaration.declaration_data.other_amounts_curr", declaration_data.other_amounts_curr) + json.UpdateString("customs_declaration.declaration_data.apportment_indicator", declaration_data.apportment_indicator) + json.UpdateString("customs_declaration.declaration_data.total_gross_weight", declaration_data.total_gross_weight) + json.UpdateString("customs_declaration.declaration_data.total_net_weight", declaration_data.total_net_weight) + json.UpdateString("customs_declaration.declaration_data.airfreight_cost", declaration_data.airfreight_cost) + json.UpdateString("customs_declaration.declaration_data.vat_adjustment", declaration_data.vat_adjustment) + json.UpdateString("customs_declaration.declaration_data.vat_adjustment_curr", declaration_data.vat_adjustment_curr) + json.UpdateString("customs_declaration.declaration_data.discount_amount", declaration_data.discount_amount) + json.UpdateString("customs_declaration.declaration_data.discount_curr", declaration_data.discount_curr) + json.UpdateString("customs_declaration.declaration_data.discount_rate", declaration_data.discount_rate) + json.UpdateString("customs_declaration.declaration_data.incoterm", declaration_data.incoterm) + json.UpdateString("customs_declaration.declaration_data.incoterm_location", declaration_data.incoterm_location) + json.UpdateString("customs_declaration.declaration_data.trader_ref", declaration_data.trader_ref) + json.UpdateString("customs_declaration.declaration_data.arrival_transport_type", declaration_data.arrival_transport_type) + json.UpdateInt("customs_declaration.declaration_data.guarantee_code", declaration_data.guarantee_code) + json.UpdateString("customs_declaration.declaration_data.guarantee_reference", declaration_data.guarantee_reference) + + + Dim goodsAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute) + + VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute.LOAD_LIST_ByNCTS(goodsAttributes_LIST, declaration_data.id) + + For Each GA In goodsAttributes_LIST + Dim i As Integer = 0 + + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].commodity", GA.commodity) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].gtip_code", GA.gtip_code) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].gtip_language", GA.gtip_language) + json.UpdateNumber("customs_declaration.declaration_data.goods_attributes[" & i & "].brut_wg", GA.brut_wg) + json.UpdateNumber("customs_declaration.declaration_data.goods_attributes[" & i & "].net_wg", GA.net_wg) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_name", GA.sender_name) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_address", GA.sender_address) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_city_name", GA.sender_city_name) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_country_id", GA.sender_country_id) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_postcode", GA.sender_postcode) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].sender_eori_code", GA.sender_eori_code) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_name", GA.consignee_name) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_address", GA.consignee_address) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_city_name", GA.consignee_city_name) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_country_id", GA.consignee_country_id) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_postcode", GA.consignee_postcode) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].consignee_eori_code", GA.consignee_eori_code) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].invoice_amount", GA.invoice_amount) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].invoice_curr", GA.invoice_curr) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].cpc_code", GA.cpc_code) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].additional_cpc_code", GA.additional_cpc_code) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].container_no", GA.container_no) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].preferential_country_id", GA.preferential_country_id) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].cus_code", GA.cus_code) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].nature_of_transaction", GA.nature_of_transaction) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].additional_commodity_codes", GA.additional_commodity_codes) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].origin_country_id", GA.origin_country_id) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].preference_request", GA.preference_request) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].quota_desc", GA.quota_desc) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].valuation_method", GA.valuation_method) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].valuation_adjustment", GA.valuation_adjustment) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].third_quantity_type", GA.third_quantity_type) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].third_quantity", GA.third_quantity) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].supplementary_unit", GA.supplementary_unit) + + Dim packsAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_PacksAttribute) + VERAG_PROG_ALLGEMEIN.cOregonNCTs_GoodsAttribute.LOAD_LIST_ByNCTS(goodsAttributes_LIST, declaration_data.id) + For Each PA In packsAttributes_LIST + Dim j As Integer = 0 + + json.UpdateInt("customs_declaration.declaration_data.goods_attributes[" & i & "].packs_attributes[" & j & "].pack_count", PA.pack_count) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].packs_attributes[" & j & "].pack_type", PA.pack_type) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].packs_attributes[" & j & "].notes", PA.notes) + j = j + 1 + Next + + + Dim docAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_DocumentsAttribute) + VERAG_PROG_ALLGEMEIN.cOregonNCTs_DocumentsAttribute.LOAD_LIST_ByNCTS(docAttributes_LIST, declaration_data.id) + For Each DA In docAttributes_LIST + Dim j As Integer = 0 + + + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].documents_attributes[" & j & "].doc_type", DA.doc_type) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].documents_attributes[" & j & "].doc_no", DA.doc_no) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].documents_attributes[" & j & "].pre_post", DA.pre_post) + + j = j + 1 + Next + + Dim prodocAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_ProducedDocumentsAttribute) + VERAG_PROG_ALLGEMEIN.cOregonNCTs_ProducedDocumentsAttribute.LOAD_LIST_ByNCTS(prodocAttributes_LIST, declaration_data.id) + For Each PDA In prodocAttributes_LIST + Dim j As Integer = 0 + + + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].code", PDA.code) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].reference", PDA.reference) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].status", PDA.status) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].reason", PDA.reason) + json.UpdateInt("customs_declaration.declaration_data.goods_attributes[" & i & "].produced_documents_attributes[" & j & "].quantity", PDA.quantity) + + j = j + 1 + Next + + + Dim addcodeAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_AdditionalCodesAttribute) + VERAG_PROG_ALLGEMEIN.cOregonNCTs_AdditionalCodesAttribute.LOAD_LIST_ByNCTS(addcodeAttributes_LIST, declaration_data.id) + For Each ACA In addcodeAttributes_LIST + Dim j As Integer = 0 + + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].additional_codes_attributes[" & j & "].code", ACA.code) + json.UpdateString("customs_declaration.declaration_data.goods_attributes[" & i & "].additional_codes_attributes[" & j & "].notes", ACA.notes) + + j = j + 1 + Next + + i = i + 1 + Next + + + Dim partyAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute) + VERAG_PROG_ALLGEMEIN.cOregonNCTs_PartiesAttribute.LOAD_LIST_ByNCTS(partyAttributes_LIST, declaration_data.id) + For Each PA In partyAttributes_LIST + Dim j As Integer = 0 + json.UpdateString("customs_declaration.declaration_data.parties_attributes[" & j & "].party_role", PA.party_role) + json.UpdateString("customs_declaration.declaration_data.parties_attributes[" & j & "].party_code", PA.party_code) + json.UpdateString("customs_declaration.declaration_data.parties_attributes[" & j & "].eori_code", PA.eori_code) + j = j + 1 + Next + + + Dim tradAddAttributes_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute) + VERAG_PROG_ALLGEMEIN.cOregonNCTs_TraderAdditionsAttribute.LOAD_LIST_ByNCTS(tradAddAttributes_LIST, declaration_data.id) + For Each TAA In tradAddAttributes_LIST + Dim j As Integer = 0 + json.UpdateString("customs_declaration.declaration_data.trader_additions_attributes[" & j & "].code", TAA.code) + json.UpdateInt("customs_declaration.declaration_data.trader_additions_attributes[" & j & "].amount", TAA.amount) + json.UpdateString("customs_declaration.declaration_data.trader_additions_attributes[" & j & "].curr", TAA.curr) + json.UpdateInt("customs_declaration.declaration_data.trader_additions_attributes[" & j & "].rate_code", TAA.rate_code) + j = j + 1 + Next + + + + Return True + + End Function + + +End Class + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cNorsware.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Norsware/cNorsware.vb similarity index 100% rename from VERAG_PROG_ALLGEMEIN/Schnittstellen/cNorsware.vb rename to VERAG_PROG_ALLGEMEIN/Schnittstellen/Norsware/cNorsware.vb diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb similarity index 76% rename from VERAG_PROG_ALLGEMEIN/Schnittstellen/cTimasAPI.vb rename to VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index cffa6b93..cca0cf81 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cTimasAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb @@ -6,7 +6,6 @@ Public Class cTimasAPI Dim rest As New Chilkat.Rest - Sub New() VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() End Sub @@ -201,7 +200,7 @@ Public Class cTimasAPI End Sub - Public Function createMA(ByVal mitarbeiter As cMitarbeiter, ByRef info As String, ByRef dgvData As MyDatagridview, Optional ByRef requestDone As Boolean = False) + Public Function createMA(ByVal mitarbeiter As cMitarbeiter, ByRef info As String, ByRef datatableTimas As DataTable, Optional ByRef requestDone As Boolean = False) Try rest.ClearAllHeaders() @@ -229,31 +228,34 @@ Public Class cTimasAPI success = json.UpdateString("lastname", mitarbeiter.mit_nname) success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female")) 'success = json.UpdateInt("card", 42) - 'success = json.UpdateString("info", "Gebäude 2, 1. OG, Büro 54") + success = json.UpdateString("info", mitarbeiter.mit_firma & " - " & mitarbeiter.mit_abteilung) 'success = json.UpdateString("clientNumber", "5600-02") 'success = json.UpdateInt("rfid", 178230359) - success = json.UpdateString("birthday", CDate(mitarbeiter.mit_gebdat).ToString("yyyy-MM-dd")) + If mitarbeiter.mit_gebdat <> "" And IsDate(mitarbeiter.mit_gebdat) Then + success = json.UpdateString("birthday", CDate(mitarbeiter.mit_gebdat).ToString("yyyy-MM-dd")) + End If + success = json.UpdateString("entry", CDate(mitarbeiter.mit_einstiegsdatum).ToString("yyyy-MM-dd")) success = json.UpdateNull("exit") - success = json.UpdateString("importSign", "AX-034511") + success = json.UpdateString("importSign", "Iimport from Aviso") success = json.UpdateString("login", mitarbeiter.mit_AliasAD_Username) - success = json.UpdateBool("loginActive", 0) + success = json.UpdateBool("loginActive", 1) success = json.UpdateString("email", mitarbeiter.mit_email) success = json.UpdateString("street", mitarbeiter.mit_strasse) success = json.UpdateString("city", mitarbeiter.mit_ort) success = json.UpdateString("zipcode", mitarbeiter.mit_plz) success = json.UpdateString("phone1", mitarbeiter.mit_telefonnr & " " & mitarbeiter.mit_durchwahl) success = json.UpdateString("phone2", mitarbeiter.mit_mobiltel) - success = json.UpdateString("password", "password") - success = json.UpdateBool("resetPassword", 1) + success = json.UpdateString("password", mitarbeiter.mit_pwd) + success = json.UpdateBool("resetPassword", 0) - For Each r In dgvData.Rows - Dim i As Integer = 0 - If r.Cells("set").Value = True Then - success = json.UpdateInt("groups[" & i & "]", r.Cells("id").Value) + Dim i As Integer = 0 + For Each r As DataRow In datatableTimas.Rows + If r("set") = True Then + success = json.UpdateInt("groups[" & i & "]", r("id")) + i = i + 1 End If - Next Debug.WriteLine(json.Emit()) @@ -283,7 +285,7 @@ Public Class cTimasAPI End If Return timasEmployeeCreated Else - info = "Mitarbeiter angelegt!" + info = "Mitarbeiter angelegt!" & vbNewLine Dim jsonResult As New Chilkat.JsonObject success = jsonResult.LoadSb(sbResponseBody) @@ -355,7 +357,7 @@ Public Class cTimasAPI info &= IIf(json.StringOf("info") <> "", "Info: " & json.StringOf("info") & vbNewLine, "") info &= IIf(json.StringOf("id") <> "", "Timas-ID: " & json.StringOf("id") & vbNewLine, "") If json.BoolOf("loginActive") Then - info &= IIf(json.StringOf("login") <> "", "Login: " & vbNewLine & json.StringOf("login") & vbNewLine, "") + info &= IIf(json.StringOf("login") <> "", "Login: " & json.StringOf("login") & vbNewLine, "") info &= IIf(json.StringOf("password") <> "", "PW: " & json.StringOf("password"), "") End If @@ -376,11 +378,6 @@ Public Class cTimasAPI End If - dt.Columns.Add("id", GetType(Integer)) - dt.Columns.Add("name", GetType(String)) - dt.Columns.Add("info", GetType(String)) - dt.Columns.Add("set", GetType(Boolean)) - Dim responseBody As String = rest.FullRequestNoBody("GET", API_STRING & "/rest/web-api/groups3") If (rest.LastMethodSuccess <> True) Then Debug.WriteLine(rest.LastErrorText) @@ -407,22 +404,37 @@ Public Class cTimasAPI Dim j As Integer = 0 - While j < num - Dim groups As Chilkat.JsonObject = jsonArray.ObjectAt(j) + If dt IsNot Nothing And Not dt.Columns.Contains("id") Then - Dim R As DataRow = dt.NewRow - R("id") = groups.IntOf("id") - R("name") = groups.StringOf("name") - R("info") = groups.StringOf("info") - If R("id") = "19" Or R("id") = "129" Then 'Typ Mitarbeiter und Standardgruppe für Mitarbeiter Default true - R("set") = True - Else - R("set") = False - End If - dt.Rows.Add(R) - j = j + 1 - End While + dt.Columns.Add("id", GetType(Integer)) + dt.Columns.Add("name", GetType(String)) + dt.Columns.Add("groupType", GetType(String)) + dt.Columns.Add("info", GetType(String)) + dt.Columns.Add("set", GetType(Boolean)) + + While j < num + + Dim groups As Chilkat.JsonObject = jsonArray.ObjectAt(j) + + Dim R As DataRow = dt.NewRow + R("id") = groups.IntOf("id") + R("name") = groups.StringOf("name") + R("groupType") = groups.StringOf("groupType") + R("info") = groups.StringOf("info") + If R("id") = "19" Or R("id") = "129" Then 'Typ Mitarbeiter und Standardgruppe für Mitarbeiter Default true + R("set") = True + Else + R("set") = False + End If + dt.Rows.Add(R) + j = j + 1 + End While + + dt.DefaultView.Sort = " groupType asc, name asc" + dt = dt.DefaultView.ToTable() + + End If Catch ex As WebException @@ -492,7 +504,7 @@ Public Class cTimasAPI Return timeEntryCreated Else - info = "Zeiteintrag " & entryType & " angelegt!" + info = "Zeiteintrag " & entryType & " angelegt!" & timeEntry.ToString("HH:mm:ss") 'Dim jsonResult As New Chilkat.JsonObject 'success = jsonResult.LoadSb(sbResponseBody) @@ -506,5 +518,79 @@ Public Class cTimasAPI End Function + Public Function getEmployeeList(ByRef dt As DataTable) As String + + Dim failureText As String = "" + + Try + + If Not checkConnectionTImas(failureText) Then + Return failureText + + End If + + Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/") + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + Return rest.LastErrorText + End If + + If (rest.ResponseStatusCode <> 200) Then + Debug.WriteLine(rest.ResponseHeader) + failureText = rest.ResponseStatusCode & " " & rest.ResponseStatusText + Return rest.ResponseStatusCode & " " & rest.ResponseStatusText + End If + + Debug.WriteLine(responseJson) + + Dim jsonArray As New Chilkat.JsonArray + Dim success As Boolean = jsonArray.Load(responseJson) + If (success <> True) Then + Debug.WriteLine(jsonArray.LastErrorText) + Return jsonArray.LastErrorText + End If + + + Dim num As Integer = jsonArray.Size + If num = -1 Then + Return "Array Failure" + End If + + If dt IsNot Nothing And Not dt.Columns.Contains("id") Then + dt.Columns.Add("id", GetType(Integer)) + dt.Columns.Add("externid", GetType(String)) + dt.Columns.Add("pnr1", GetType(String)) + dt.Columns.Add("firstname", GetType(String)) + dt.Columns.Add("lastname", GetType(String)) + dt.Columns.Add("gender", GetType(String)) + dt.Columns.Add("card", GetType(Integer)) + dt.Columns.Add("info", GetType(String)) + + + + Dim j As Integer = 0 + While j < num + + Dim employee As Chilkat.JsonObject = jsonArray.ObjectAt(j) + + Dim R As DataRow = dt.NewRow + R("id") = employee.IntOf("id") + R("externid") = employee.StringOf("externid") + R("pnr1") = employee.StringOf("pnr1") + R("firstname") = employee.StringOf("firstname") + R("lastname") = employee.StringOf("lastname") + R("gender") = employee.StringOf("gender") + R("card") = employee.IntOf("card") + R("info") = employee.StringOf("info") + dt.Rows.Add(R) + j = j + 1 + End While + End If + + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Function + End Class diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 73ab47d0..c68f5505 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -366,7 +366,7 @@ - + @@ -575,18 +575,18 @@ - - + + - + - + @@ -1297,6 +1297,9 @@ Reference.vb + + +