From aaecc4fce6e18e3f68646afcf62cba2cf4cff7ff Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 30 Aug 2023 16:07:44 +0200 Subject: [PATCH] Fakturierung VERAG AG (DE); NCTS Adressen zugel.Empf.; ATEZ +Procedure --- SDL.sln | 1 + SDL/Fakturierung/cFakturierung.vb | 8 + SDL/Fakturierung/frmAbrechnungsMaske.vb | 21 ++- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 25 ++- SDL/My Project/Resources.Designer.vb | 10 ++ SDL/My Project/Resources.resx | 3 + SDL/Resources/Verag-AG-Logo_DE.jpg | Bin 0 -> 33430 bytes SDL/SDL.vbproj | 1 + .../ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb | 7 +- .../DAKOSY/ATLAS/cDakosyInterface_Send.vb | 6 +- VERAG_PROG_ALLGEMEIN/App.config | 4 + VERAG_PROG_ALLGEMEIN/Classes/SQL.vb | 34 +++++ VERAG_PROG_ALLGEMEIN/Classes/cParkzeiten.vb | 142 ++++++++++++++++++ .../My Project/Settings.Designer.vb | 24 ++- .../My Project/Settings.settings | 14 ++ .../ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb | 5 +- .../VERAG_PROG_ALLGEMEIN.vbproj | 1 + 17 files changed, 294 insertions(+), 12 deletions(-) create mode 100644 SDL/Resources/Verag-AG-Logo_DE.jpg create mode 100644 VERAG_PROG_ALLGEMEIN/Classes/cParkzeiten.vb diff --git a/SDL.sln b/SDL.sln index 9e1e52fa..bc501e31 100644 --- a/SDL.sln +++ b/SDL.sln @@ -137,6 +137,7 @@ Global {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86 {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Any CPU.ActiveCfg = Debug|x86 {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.ActiveCfg = Debug|x64 + {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.Build.0 = Debug|x64 {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x64.ActiveCfg = Debug|x64 {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x64.Build.0 = Debug|x64 {E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.ActiveCfg = Debug|x86 diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index a1aebbfc..86dfaca6 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -965,6 +965,7 @@ Public Class cFakturierung Select Case RECHNUNG.Firma_ID Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard + Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex @@ -1572,6 +1573,11 @@ Public Class cFakturierung If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine + Case 4 'VERAG AG (DE) + getSignature &= "" + If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" + getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y
" + If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 7 'ATILLA getSignature &= "" If displayFirmenmane Then getSignature &= "
ATILLA Spedition GmbH
" @@ -2506,6 +2512,7 @@ Public Class cFakturierung Select Case ROW("Firma_ID") Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard + Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex @@ -2919,6 +2926,7 @@ Public Class cFakturierung Select Case ROW("Firma_ID") Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard + Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index eeeb4779..1dcf0ca0 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -53,12 +53,23 @@ Public Class frmAbrechnungsMaske Select Case FirmaTmp Case "VERAG" If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "MDM" Then - cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE In ('VERAG360') ", False, "FMZOLL") + Dim whereFirma = " AND FIRMENGRUPPE In ('VERAG360')" + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then + whereFirma = " AND FIRMENGRUPPE In ('VERAG360','VERAGAG_DE') " + End If + cboFirma.fillWithSQL("Select [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL") cboFirma.changeItem("1") MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True) MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK")) Else - cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA') ", False, "FMZOLL") + + Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA') " + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then + whereFirma = " AND FIRMENGRUPPE In ('VERAG','VERAGUNISPED','FRONTOFFICE','ATILLA','VERAGAG_DE') " + + End If + + cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL") cboFirma.changeItem("1") MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR [mit_id] IN (SELECT [beroz_bergrId] FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND beroz_art='B')) order by mit_username", False, "ADMIN", True) End If @@ -75,7 +86,11 @@ Public Class frmAbrechnungsMaske cboFirma.changeItem("24") MyComboBox2.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='AMBAR' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) Case "VERAGIMEX" - cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') ", False, "FMZOLL") + Dim whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') " + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then + whereFirma = " AND FIRMENGRUPPE In ('VERAG','IMEX','VERAGUNISPED','FRONTOFFICE','ATILLA','VERAGAG_DE') " + End If + cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE 1=1 " & whereFirma, False, "FMZOLL") Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "VERAG" : cboFirma.changeItem("1") Case "IMEX" : cboFirma.changeItem("20") diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index dbedc2c3..f49a665c 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -516,7 +516,14 @@ Public Class usrCntlFaktAbrechnung End If Select Case FirmaTmp - Case "VERAG" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True + Case "VERAG" + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then + whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE','VERAGAG_DE') " : pnlDocs.Visible = True + MsgBox("AH") + Else + whereFirma = " AND FIRMENGRUPPE IN ('VERAG','ATILLA','FRONTOFFICE') " : pnlDocs.Visible = True + End If + Case "IMEX" : whereFirma = " AND FIRMENGRUPPE IN ('IMEX') " : pnlDocs.Visible = True 'Case "VERAG" : whereFirma = " AND Firma_ID<>20 " : pnlDocs.Visible = True 'Case "IMEX" : whereFirma = " AND Firma_ID=20 " @@ -525,7 +532,18 @@ Public Class usrCntlFaktAbrechnung Case "AMBAR" : whereFirma = " AND Firma_ID=24 " : pnlDocs.Visible = True Case "FRONT-OFFICE" : whereFirma = " AND Firma_ID=17 " : pnlDocs.Visible = True - Case "VERAGIMEX" : whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') " : pnlDocs.Visible = True + Case "VERAGIMEX" + whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE') " + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then + whereFirma = " AND FIRMENGRUPPE IN ('VERAG','IMEX','ATILLA','VERAGUNISPED','FRONTOFFICE','VERAGAG_DE') " + End If + pnlDocs.Visible = True + Case "VERA360" + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGAG_DE", "SDL") Then + whereFirma = " AND FIRMENGRUPPE IN ('VERAG360','VERAGAG_DE') " : pnlDocs.Visible = True + Else + whereFirma = " AND FIRMENGRUPPE IN ('VERAG360') " : pnlDocs.Visible = True + End If End Select cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) " & whereFirma & " ORDER BY Firma_ID ", True, "FMZOLL", firstEmpty) @@ -1681,6 +1699,8 @@ Public Class usrCntlFaktAbrechnung Select Case cboFirma._value Case 1 : pic.BackgroundImage = My.Resources.Verag_AG_Logo pnlTop.BackColor = Color.FromArgb(0, 54, 128) + Case 4 : pic.BackgroundImage = My.Resources.Verag_AG_Logo_DE + pnlTop.BackColor = Color.FromArgb(0, 54, 128) Case 7 : pic.BackgroundImage = My.Resources.Atilla_big_med pnlTop.BackColor = Color.FromArgb(192, 0, 0) : errCOlor = Color.Yellow Case 11 : pic.BackgroundImage = My.Resources.Verag_Customs_Service_GMBH_Logo @@ -1754,6 +1774,7 @@ Public Class usrCntlFaktAbrechnung Case "4805" : cboFirma.changeItem(11) : RECHNUNG.Firma_ID = 11 Case "4801" : cboFirma.changeItem(7) : RECHNUNG.Firma_ID = 7 Case "5501" : cboFirma.changeItem(20) : RECHNUNG.Firma_ID = 20 +'' Case "4819" : cboFirma.changeItem(4) : RECHNUNG.Firma_ID = 4 Case "5601" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UNISPED Case "7001" : cboFirma.changeItem("") : RECHNUNG.Firma_ID = -1 'UK oder AG diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index a3bfefc6..6f4c1212 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -2351,6 +2351,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Verag_AG_Logo_DE() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Verag_AG_Logo_DE", 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 b851cfd2..fe0b9bab 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -886,4 +886,7 @@ ..\Resources\modaltrans_original.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Verag-AG-Logo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/SDL/Resources/Verag-AG-Logo_DE.jpg b/SDL/Resources/Verag-AG-Logo_DE.jpg new file mode 100644 index 0000000000000000000000000000000000000000..bff133b2634a7cbe7b4058a6855c7b3ba2adf27d GIT binary patch literal 33430 zcmbTd1z4QB)-XCav{2loc#+}`#ob*8DegA7l~UZ@tvC$suEn*uYjO7?1@5$apMB1M z@ASQEqN-jBad<_8@a6 z79Jj+-!xcR86Y(noILED4c!^+oGAW9LCn<27-Z?-Y-w*t`kSJmk-dvEKRHCwznWm{ zATR$9;s4rOwzj|9^{2Lzvx@1z#rUtaozy%WOqo|M1{Z@|uP?mocK{W7p@*mZQWd4~vrgo4S1A3vfcn38(EoNY|G2-=p`oB4P>BBr z@PC_l=>ec40<@v7VW7|f(CAPw=uj`cP}~sv0U-vV{*P@zL_&B43kMGa1>yA<>>m&S z9sw2(8U_&x2@L>%gMo%*;9z0?LWPEbg@b}eK*Ppl$3aBLz~aOs#Z_WqGaU7< zNh(GlHcICN90aAD$+#&|RVQ|_I+wnn8Y&5)kJVeXYNm5s7yw9jz#<|dzCwcgBML-n zbQm-YR#-9?VaM1>Og2(w!<_1FP_Ex5xk#K77W?^y%9om+EsA(JC8H@(|JrZP0YV>D zDY0=dp&&BCK*Pg8Wc!O0IsigM*$~Z<^xQ8tr@MOcf>~)(=;O;002$J52p@FFz;|~2 zyNCWs(YvA?4lnt8c9tBC0#K*9PD+=}tJ_o)w(AvIG-p*8T`m`T0_s~&v%b@DPWlUJ zx0%f!(bflbQwdb`cNPA_b^Y4iIsRC8lh0Z3Pd zxfE{e&~zfL*{Yk6s{nLcgMo9~&$QdD4}vkErl$#By~x9lGx^^uj|s zvzyhF`c8S)u~)h6jb>=)DIh_QRKkUZlV5f74;Q82+kqf`Jq{CKpY{hle`~*zi6Vtn$T8>Ba%EyRE zyp1FLmB%+n90chM^uOVfzF}hIE%nq%i1s?sT#sH!tQ=W>H_8?5HN6CD9b_twigvDw zAvJ|P#9J(s*ro&0I@(Oxc_TCDsBk=tUbw9?C8>H00>M*gf>@90H+_=m^nJ)cBdC zC7R#l*=958dz30yLsyo$n{_ru>RGt-PD~sBRIAU1Z?m!+Y+R~vhjW=Q^4vFY;g9Gt zO~+Ph7)Tu2-+ye`s!NvEk8dj54jQu2fukqrRm!e-BwBp|Bqp3`dlmK+W*K(3q+`gQ zf%VJJ0%Zp3>2 zcs368uW$I#0ML&I^t`k5(p9DO)Y!sYK89r1eA;lLF8Y}h;q8%V7P(9zq!Aa9JsxJR?k^r4X-<1YfbU{mtG~XjEzq`gPMhiqYVT` zDpUT|j$;W1`r@$-xnxX2dCN zh5Dna9CzWPX(hidi7I_w*Y4KrPAqcqk;H3@#NMeF!2XetHM+>B)?+8PXAQ52rk~-x z>)*#jA4DBB>;p}LE=%sc_mt~98_BV(E*1{Yew9Hdl`mbU*tXnBJ;5(qRkG`4RDAf{ zPe{Zd@}wyCDSN#O+EAS9QQ&@j2iw%7r6sJh(>fx3)ZY z60H$E3x0CAzrdAN)=Cys(SiZC@ZFe?7@rC@l7yFCa_Q#k5n; z0EOPn`rbo*`L!}4 ztxg=xGVS^g-bY^C>h-a2jy>+*-Y&3rhe#JQm_Lf&4Jb{7 zn=`H@9liiS@fSBpzB?V*1^X{cT z+t%qOS!Lt8g6mNDj}h~~DV)3j-b)#jeac8($#AK77H#sbxtH1fRjvH9l|H(CQ5Tcf zG{3KU749d_?rifG6CMNAEbryu!hBwUC-glA^W_CRvdv?Se5H^9#aE`-cj)x5I*WlP zcc*sU3#YB{Jx==!KVhD#SbRR@BJH z4$n_5!e830n%j}ox)5FVw(4vBR5OX^2{{4XjMf)Ky#ScwWGc#B5r!|Ne>si_>#x=< zi8qzYMoqc$NhWEXu*dI}8(3Gepe>FDI3byNFplnrr=$9o7gmhet*D*`3E($)l5Dng z2E4wVwDewzV>#V2SW2cilGyr^X6z{XW~T;KS@&E0GK_uL)a~uZe$3d0*~d#kOw`!B z6z}NXZ`+@!acpmF*UOww2Nq%K4CdyU^CywBSX$oMN7tWPliFx(oFsLvGYagp+%D7c z>2^K=QM|tLghxo)pq=E`aQpHgVHIiVh%$(1FA5<1sBd8o;s~$G|4Zz>xT$7TMA_D) zs@50_nE}JIoBESTGNysI#K)VTgxKp(CpHP(BtJeN2``O3{*Y_`R1{rSkELwNa+7uV z*lN7M9&TK4ay(I5w{CW@8eIeDA75ePV4r}`?frGAd%{Uu+*yyu;bxqpFBwN9MHn_M zC%-J6Mr(QZ#LHXny>=z}ZJ)KJ)@}W~tiWkwVQz-7ED-ngqsph%EJLU6gH_yzQP<2f z$JOjMjuXN47U`?G%KEEnIh)YHuj|5E?Smhv@E{U5n0Ho$^Sl7okz=TLP3-U$Hwp9_ zrU`piGJ<^UMuAt+?kUZY$0+ zVm+7*>IF_s0yKRG(@kR4a_poKY195l`zzo|VWmoATK4%u|E{U(=flEKp<|bj8;%IZ z#xr`Q^BiiRa~~&bGxU`>R(f9f$?@2SeiCC;mf)0cP#T@C*Z&%FhH7i#xWLro3m07* z213uxOkXGYzJC7HIMKRd0o2}72XC21=*$A4^IanYq2bgYH6N?m|NT^QmfeP#9=sA6}Sg7Qoyhr@%10 zG^#!Fxc#2F?(8ilB`SG>_JiKoJe89V0>pQH!jEP|&7=89GaAWvfsP)=;y?OvS@scq zu^A)kQJf2Ni@oVCl2L#{HlS6^M`t;+TpQh*)nuHbFuCGG<5>W)>kn3S0bbp2KMF?w zGs+xh$XX}Y;=V3#=eltl|5RI6;@+`WcC)Rb&N1E68r@*)l}K_}wyumz-DAaT-(0Fg z;I_lifsrUv71>(UsIM_JF~@&ILw3~*yK^7MnqkI?b=olpPFbgC9irF0--TXkS5szJ zO+B?6HKj6jLon03+!WY929KG@g<~#~~>gjpS8qgW4xh9b!k|V>z)R=ikNI7t5`ts0T!f;u+g0jF8FbC1EVCT8Hx} z*l>5&?F-7=n(t`0j$BRMG?v@V8KJ)O7I2U7VqDWMcQIX>ODN=iE~%XtRaPsjF4o$xy@FD!+D2hG%K`HpxplrhZC>5sxLC=y$y@8VK^p> zjSlM+Qo37|>wgv_G#W=xeoZt{EX3iBUiqtLY=DVxp}@NG5E2ZYjLoFKc?98ykBi21 zM8Jpy`lQ1;pg8?j0ReA0KVg;gjG{<`1L%Rvc(N5iUaa(ofds>Ro7vX3>5f1|TIP?0 zX>#cn2Z`eMCG%=*yFK8-FJ7Y`*Now>@VHXCImm}bh#8_B7*A@ITl*u|*l{$tXW<#% zs84T{m(!|huq5Kum0Reb_3`M})AtWkn?#qXdh&jv*HH;hi%@9&rImlJC-O$gS=srW zB4_aP?h7DC9g{Xnghq4BhwdUHtO8BQ^VUdRZO-wT#$% z(<`SN;axPh^3I@k5c()M|a z@sk{osG^aJ>K_>_@u}m3e#<~XbKyF$nhmGUJM0^tr-@+ILKo|tEEa_x8nyf#_w^}X zr1q7O!R

WLRFG@>X$WTFWxghO)CVNpsB2sGmMNzgPg!Z3yyi;oPurH-FfScQ-BT z+JQlCnz~k_Or-*5BIYXGqfmy^=Fq?u{96DxO=;*hCrxV!5Jk@y`$-?+C5x=l(uv2b zv%XJn7_iu2bvhuX&cUY6Qi*1uEg#>gpBhUOMIWRy}v78YF#8q%DzW1}VQN?mDB1VnUB0nkmXq-|-Ee_%s z_btS|UB&wcn-*~i$$yyW+Jpy?#Z!6Loj;dnP&8W7+O_1m6j*9}e?!z*UU$|lHXb|K zs0)skub|6x?{Ao=@j$%DHPlj{G<{2u|M?(U0QCpzTZ!}1CQBKOdYM&MlhtlMtC)kv z3~FTTPqhJ7tG?YOGIPa4oY!Izc3=|KRLy*w3@?tHt>T)**qC@WtflsR2DBi_ND8O& zT}K2_99pcVQ#)~Yn?aq7tHL~ssu#cu0GYTg7Av+HS80OGQY}|2?~tS^F3*DR|pd zb>mf&F*X5|Y(}=Rc{Y)RCKk&S5{m?!gOdyK#Kn?g-i7i8dv9{elW>W&;5ge9v!jY zDLVwpHJ0UPURjGA+F!|v9NU+%9I^`Q)#JxUE2-h{1H?Wgt)dvP`Uq{gV&|^P+C>#K zib{^I7xlbTMG9);5Tnm#aRxO5$svkB8k(%mJ{)H_z=$YH=Tm>aY=H7RKi=O<&<2SpQT zb}(`BSzo2XsVadBsa72|(8j#;CkGhui^VcdM#}bZ1R}(h=-Npgsv+k3RCDI>XhYvmyA$O6qdt45p<*t@p^qUhwXpB(`nvVsRLYr9 zOVu>9sPyNR?yb5$Et1(${giM9#>tL~ya33iOe+(%um?ZwO*Q`drbf2|N(x|%;_(He zCQmsfqh!7RZqEdNd9Go&^V=X;3~5Rhe4x!4R~y`M;?^oCiC7BZ6t{yupphwbR%d;c zpQE8Doh2uH1?_ZmZQe1?*?4=kt%UQ!3P`KjvLLNSGsvn87imR#0SLV>QIb|i zt_dJZ;2@noUzj2!5H*&g5v2wZ4Q00UIfOVz7Yl8(noW-y{?Ic-uc)$*jSDH|G^@-p zdMy(7`9!DKUZmF(hm2iWBK-$r-K^L!*b5!LS7;~{KY3rN17ssc2+0apqy0|6Sj05~ zCCh0p_(S~SU$H*mhR_|^h`}<&_#Mf#G4={gF>r#PP$@873n2uu^9rN18lCCkgsW$4 zTnLFJdNBfRWD*Lf*gv;Wp6s9xN6;CxI8vNuNIe!|2psfA|CLD^n$Ruk*9?CGhH{>a zYX{wM?cyYgV_UMX_d;f?iXJp=TmFaZ%_&n%_)FUiA`EFNq84`ve@`I}PfZsMY08XG zLYF7|CRBtKj%^KBEzS}p`9;`*-K7SAQjT`%tg^HYsvJUmr&dr#_(P!#n?-L$RIAmH zx;7QJ&BpY(gzAXq;oE=++7G94R#?^I;0b@lCzZH87W|%k8Ls$ptQhAaq#8MJDP}WU zLWmApw!cOK2WK?d2)ayhjkj1zRUQLT!GKuIAvIyOHkE$eO=uF8N@AG~L)6Y&rEnZI zGxcfkV6~xy&`wFnFmJ>-SWJ(#w>ZWUFW$J-{xH^REi&f4h=~)#p#Jsx1`RI={X}P? zcY!Ys6Knj&y4or7*dLn}HfkL1#ISq~dFX1Ptee$!(+x@`YXm)*aLxO` zemnJl2#X!Q%prvnOSm?=7Se46f#+tBPV zPKOd|p?(u(+y}m;M_8y9?lz7LR~q+VXeSC`o60p~SKlBw?Ku%t zGn|-AH&^Aa+Y-QY{z4)oP^J-!05ZGSmJ*xr80L5E+Wl6QH8;Hy&DJKKI+@IbFYF@3 z)bSaGt_UJvU3znM67pFkyK%IF-6J|oT|(?Ot2YV4wtCig*&0D>gfW|AiAWJWJ>;3> zrpd4eYz%ch(N>>s%_lE@ObRu#jySXmhNbFPx3kN|(<2YSee@L7sp2Oq*CL6TD?^pC z7Ebmi2UENK0X4<57`)EE;hY7gV5o4|Mh7-$g-Y1<8>aygg`x^h;~_f+rpyAe1wrxA zTUZ%8Y*oCtV~864$XJa#p(&}`EVR;1#TFy6Iqz)t%1b38Ufs*y}`dRZaTJ17M5es&5@ z)0*ER+uZ6{%4afu3sB7;t=fduIcCdnxKTbXTOAo#x-gpV`mIG`3*K4vdrUkYBjfsN zmcRAJ=W1!;B8B0)QtG#-;k2po67m21x?j@zhq?lbbf;V|GgsM- zePOSyor6f}4!`y5J z$5$9Mm~7d{Db|XDIF{-ciLNhKI6K}bH>GiqCi9K9YFsIu=`|5~L`f16X{OsJ&Mcb* z){9F;PBm&-7Q-SmE!t!koZtk{mILQT$5MqUh^f)C_)LvITV(m$1nppGEa7p+o{OMQ zci9}cE*UlQpVj>KX;R?+2<7PDFN;lwO~kLA)*k8qi>IBpP1ISm1`UM8bCz2);BEXy zP2E;2A*vpDBiv=WZc30xY>%<>vt!tKB4Nw#4C^_Edn?HOSpb`m*xQ$5+yBBaY zO&kmZc*1_yw7zwrexucEfz_iN(HZB+#Hc_rA8Myqumy}ia8KHP(5Lz$ecdL5A!>S+ z9qfnO*0-C@xK41Xzd&!Zr?EI*UYiLt=WQ5wv28o7`>C<5?!A7K?p`0)tnR^NGCGVv zV7tK|X&vCuCmx;Td?=yYjqoL%w-w+Jg|`D-)IBmIJir&Cv4+> zRw%Qq0ftTl^P2eW@uhe}BjXKy!FAmMuLJIi7d>WSoPQh%b&gq5@L~wM&Ru1I>wmcI zyiF?@9@J;|meHGBZsf|yc>6}3_xAk9s z0~kl~3nN|1k)Uyv*1l!-X05lu;{VxAH@=7g@bJ--qo72l5x(G2~5wQV3t_suB?2A(ukfF*u`oQzCnZa z0zj~@Ll{Q=mrc%L)0;1YI4mp>$Fsa6QfQoln5W87pmYeJ>)7EeEM9&8j-B(BA!B;G zYrCK_{&O2Hl*_ z;j|oC;STHm2UfaX(HSz^&@^VUDAdEig1!Z`@Y#Fz{y=EOc~bS9O$>j0Y>YT2opv13 zJ{N|O9+5y*Gl(TvVZ_xV>G+CaaaVn}0mZMNy(3R}k-g=$>rN{uH0h8Y z*^tv555W&J6hF&MZWx9Dd?buiKKQ$LNG`01*@cXiOA4X1_g)QftDDvNi!R2Ir|Jb= z!+AdMnorX&QAwvAyrtpjYcYgf9-BN(<}ZT6dxcvPgWFFK&!_8=!MqouIX>;1G_&`t zM{crPwFzbs_eyvHh|9&^2NcO<*u!?Or~`vjef^(wkn@rYaCpCqSUY|R=+`EX^tWLv z>Jx5jC9F0pc=DeVr55O-oBXbx_q9|~SR?97sWc08((OYe<_BVLq(n!JT&*YJ$*u*? z<%bW>UZQ1eMZN6>4SLc1@Q0A@+3?;JH{NYv7d{1)+D@UFO@8(tD);&(K!SBxOK^AL z?L2(U^_719C!0X3{LK|_{4IbZ-n7940l&*R_U)?X$GzVJjOQvP zuwIk)FJg68d2-vG+^DRrD}O!C3G`^eP0#Vj>nbI(00^AXD&dtdxx_@wn+oUQi>T_Z z5ET!5rNaz|zhPEN8xhLkNRlerdquo(gvC}p-{odprb=J6_PNqvW%R+6Jp<^GDSg_~ zB%s#7sVhM)!R;=GeR;KuWMdzY@}&Mpe$CYE)ar5X#yUjqMm(0@M#W#6)Vg*exR&l! z1Nc!Nc76|rT#*qOzJ1**OneJ$^i~)IJwi92uVnP+=kEPneV14hZ5;70zkC0!>(udx z>l2*a`q$#-=pbXEZ}_@06xig4D|@9ub`|5i2lqW;6IEib!V$?NtVP3CtC2u3u9HKe zt;9zERwO#~uE6!nd&QKiUS{MyH2i5h29Bb59pk1I_hxvqBDxOO^j{5Su%+Vqc`pFI zPhl?rgoidLPdnpTa4gf5m6INY5o*5E$lK`}MOzc*s|z#jrb1^iuTq>Z%%)u6t2URl3- z9#FkYJerx%MCAgE_{8Cy?*qT(;NdmxY$Q2`Fl>Hr3>H}|o7pdH zjTq^>i`5E(e1*7iFQgLk7TQQlO>Kc1 zbNCsV&kEulpGv{k9(#fnz&;=mhs!Z zfkLdLiUzXabS6ccS#ac`AZox4go>2Lf~Uy(+p}Oh5qLw@se%Pr7dNf%ElOYze*h)7 z!Z6_}9!TC{aHWSY{lNQyj=n40nIdDIGZd^+_FmX_hqY}mz5u>M%i>k#pnW8M<45G~ zf#J^MpyM{AJzBJ>Ost?!?;4GQY_+BO?sSXTiw7uN+RYDHK! z8J8-L;GktiVMb88$)8D5=uNgTK^-dm8T+&*19WVsE5$puk4p_tZvD@%;SCTbfAGnc zEV>y4hm7v6`WMaCs}Xzxsao5A`81riF%Z+GC_$fR7Nit`5V#{|eP(s7ZntbK9$&&r z*-r~aO8NERHir83j49^wq8ABQy|TBfA9;Z;u|x*`N6LNTSTO{A^n3+!ULvgX6h_j@ z<}r|NgTF=*ehukNF0_p(mm?IZEzRndF5^i9-1M{!f5LG@=nOW+usih5Mf)Wi~tZS0e9B{b;;=uZUPC=YUxkKy)CSv3KA@&nozLw;Ps`yax z5AFXUKe^u$*0Oj#KTW4XOib$>(wG8c9Pn$wLCCqQZJ|P6hhJ7s4I`6P-P<8bJ@l0s z_lQE43klNXc4UV$3UHEX(eAqTyQlB0>zOP+LeZ1v|0m1#2Wnj)m8Y&1K1H-7S7gj2YPMVnI>rsM6Mx=&O9iq0(7V{>*u#^o!S{KCAL}`6?y(xV z4FwTMc&o3#Z=zgd6eT!xIP=m2exk*VUh;d}ffiJt3g~yC`oF<`E0lH^ zCg&hwWf>gF7^t=vKL@rDgioq;#+ucX%N9=)okU8X=Zp1sz|#ixxBFBGD->C_%2#qgWt)^4v@=MO{>vUuB)yiH zxCVVniEki7&kx<`dEH+fHsf90;dgC*bIdS7sU;a@*?zp}M>(e3pewGryhgTu33LzY zeFDGASh>*>rRrAegB_}?oSK{G1De!G#b)~E^bw7jc!$<6(D_n_jqiv3+E!>H_pXZ6 z`rOn*Dt7A*>mf%D0tGZzrm4$=9}vA73UouL0YivM>a-HPG*ctnItjA z-Q0fTtPbj>bkV}sbSR8?hW+LOfW|jml?f^>Kl#0j=qjlz9;)>p=rk#1_{r%DXNuyf zDK)rl976*qdZO6+Ij?nEXBk!&*9%oT4D5EtpI8$wAKf_J4iYMpmz!%l z3ettssj?-0Q{m)Dc!A7mU(E0>!(`Vw81?vXiVeinJ*W!Pa!1SF!@e5bL=TUNV`F9c z;U$P4chp|$MqPVucz5)7gdtp~?nWc8*-6KQc5P*=E-dLNa}?i|qy}-oL|miX!fUl% zwK~gcsg2WhmHB+$*OtQem0{s(7|qCun(%BVCaGhF`&gj+!C16soyBnab_Z=Q8AnF zk@^O#R{K@Qc6WRA?LQze5Dwy69BvoUD z(Uzc8eME0}94Se0fH!>l<;)u^2t8jht9NAh8HOyvyiNo$WeY3cbMs?ACwcRkSJJlF zQmI*rj*OgRJGyEewW?+B@=xVmIpid!hTcZEtp`x}_SMz3sJtVVH^TT{4_EGtfa z-dMgAz51q2wV_E6hePv4)T{#~M+GoZYfo>eoW|a>n0zpAmV!moSen}@cT`QmdJ5oS zWso)g0zd;=c3u()PF@_xU2F`TaKrZuxczb>0ZnJrC*i+QKnKI&~GI6^5>5BzjvhrQR3{AQj@B6S>oy43xMJ4Xs(*E+E!FB3Eu?vUH^20%@$3f zokARQNXJR%+S`5aL?14u*BUl1S|Fn2^F*}!1=jei&CHUp(^_oRtZB>mp8czm%jh>+ zZ|AT=wjILyZnKtET!?w>5@nKj5J%1%ggoPnVpZ=;lvg%edyiDD>w3((!QYSv$M+=g zLv{$KhiEdr^fSiA6@(Ay94}PZn@QqkquM~Fm2w#B-n0q?+eM$l6r?>ba|sLP(9dZ? zZm$Dnkp$_ImZz?@r-B1#VlQUO_U@J5FqEg%fg^n5WnG4xfC9|t;1__D z;Ol#8i&vqQu?iw;#dJSyy`eGg&$T^Y04_0dbA`Vs-Pn8r2V0SfE#JFE77qoq-hERL zk&ENRtfo-~v&8O4b-xb|R>W7v9sXD-a0Y#{{n5%LOpiO?>|>um4h9(_-}x>}+$%1g zl(?g5)7vwJjO$gl9nL^$d8dK{m9J`xA25dmGC6bvNQ6-F;g=#z#RRO?J@rLw8eag_ z2ZCSxUjPfX#V826$~W3{4jZA92a!?py(X$su8trpr$ilbUUD0I2HC5{^{v;oT+gDC z4+8x8YayMNo|;@?;<=829wYLZoJl>2!75vIR&O zU5G+P`PZg+sp>j+ry(zMR^DlK;0(9vFAi{|INVFSgYIiL)ZW^!z+vnyN99*pc~5i* zrM8-1yD0s|KHrTYQSn5_6uT?ux3YZ0OKJQt(p*xreujE2pyhd)MVLD~oA9v2(h8@F z_yV9vI*K=v5Bu=OpcOapSNsdWd=|#V3B2S>aL;d*5AP*=FN*mvTlesFZEZd!Ts{ZM zPTfUBl-M}}_XG=_BJ9*uBhS0^LxER_N_#IE$&S;YBp70BlC3lL7!Diq51JOzhRjE^ z$x3{YTw`abtDHWMK(C3^PlOz&MkL2(Fs9L%1(|K?v7QfT*0w`+7 zP)u6*Vv_b=k{>)1OAt4@xxRxM%Kmvvkq~DJvQ0`UlVCIyPg>~VF%B8GxOLu`>O4AyIj(`=AJY}CXv4}Mf(X=fqSN+CT^FPDc@Qh`oHEr)zG z%YcUy*mm>mDVmJ(q@kNJ2R<0iw2P>wi`9qowG?*xkzPrlRVnx*chFjDozPY}Z`dK5 zJoEh|qSUtKXWgPwr7n8xF;cnZjM;OB5}mM=V>Viq0ZL1sF*eLx_ukg~R3RtGC6RWQ z63;IwzXmz9jFR5An6Y1de)oBDIErvObxdEw$E3h_UyX+YbynqxL1uf}Kx6)Zr=zF! zMnZ8K%T6bGueP%nXUYCoQ1rF8my|^PxO%=y#qS81ZzCoKoSQ^Yh9Vy-mQPjN9G%4v zprvCO5Q!X&GF}64%rnmP*)k~hrsk&$Sk-32BmRKq@s_zaXt!m$ubU`%rxSo8NP|AW zOSCm4(u3Tlh?G}l6{b<~I!(NB+~ElYb?bz#T7yDXDJ{?W3o`=@aRRzuide5i!)7SM z^Z5%vbf?sEIP84SQ}58PHQIprG{MG72<3VkGJ2o|Yq$vy0Et7g|V=-0(%wkJcx ztg5Y|+DSsnp9kJ~@|it;qRu>b?EJDGTI5Y+ztOm5xsE`1$8eYC)(!dg`WXF<4P*T? zk9=>Veb3kt2y}2(F7iNLI_R9MY*inH%V2V=C!qUG{5qVTFAyD6%Q|=TbJcG9aH4kB zJ`UK-TYG#1+)i>1O_NpW15E0QO692aP;+oKZ+n{Ph)zu z=dssih&==kB%HE}e#J91)&3qy$P*1ige~x(d5aCr-_t!~0Mz@Gtt!7~N^0d9sC8Oq z)=JEq_1IYmIX1|Gk4{}1H$Q&JwdbOhSDQZk>0(mf1XjZLz3#E|!tCjBYE6i?vWeEu z$IGH-!X$YC1n`0+iq%7M^3`$%^JYvabf2+6QZPZPDZNfB%)=3*Zu-T2>dR)*`Lnb) zG}~fMDDWm8q9CSq*l1aJjhyKjaBs@yW|!rKBGnYGHI z0V}V=q(Jd0wG(az8J(19vTIHWM?=*vBnFyY0@mhS$59DgDqUHZpElc-J}U9oeS}E` z_s3@!a1H5@YYcf$Z%G!;x!$fC%IQBpV%XXh;2;Lgg4hG>(M)%VEQUO`(N_j%fKsLH zQLrr4WK&!G_Rj9)P8lmBiNIbduf(%fQ2BD)lEIZ_wv0lfe1y+(H3#tvAhHvK$>01O zsPNGm_yV9#oE1|%>!9~-6a4-Z@OBC11K*`3Z!qMtgQW|?qvbu{{6qdup)zx4ZP2Me zo!MHdT2qBpW>Y*^TER)AZ`YA&w<_iwvo_J2Fx}(ikt9+zUnT#;E;T ztwO)%@yPB!ye(P1FR|L*3t;0=x5ev7sUrk@Y2A5PclJxY(y(kx6cY+Rv6%@^V#Z>i z*D&U`x}>^nlx`)onuon;7K}UT=t0*KRd|%EvLzr=b1g~KE_EU9dsUOqlV=|}2i80^ z8O>Br(GE7C0*mj%T5bn%PvZ6N8Y?rv$1A|(PZSR$bAL9wBoRilQN*;@D{aQK_3u4g zszgr^pdcrb%Q&V@kB=@&jQYiO(z1F|{wWatudsJ$w%+>~b$B!om5J-s&aR=Z7K?qW z?Od_4m7&(vLEP9IrQ{(R{c?3H$o-Zx>qZ`MxCM5YWzvTSlPdWTwM!JD5DEQs78Z3z zkW=A^3I`=&j0;}5iPiU&gw{R63G$EU$rgwk`aWivjY7A#4SRw(a)16!<#*Yo+#?haGY0kZqy0(gWJg zwr=VgZ2rL^mdjK9nvC?S$(@8^5xF_NA`97zoVr>GBuo9W$+;3w%R&Um2Rxi zNS+9uidelh{Ll8orU$E&Wz2=y68ttnE7f^|S&+(AR>wk-^BueZmeWWcF6P}SQY(s*#45fqJ(3hrI&mHkv!hKfi9@t7>i*Hy( zmRz8GPDEZ|p%Nb&)^<4ewd};9T5VZ@fNICV8M-M1&1io#Igf2dd9H+sV%L9q$W( zieY`~HyxW3aq^~?Ag$aOtlhYz1?11F*QgAFOzCOn&=-xRfkY=ik8h!7pvw6a$Fw5D zl|~9Vzb<_VHnDv3s{=JJx)#~ zW5rVw5FyF+%9eoPSFzP7s{}a0L%3X3f8hqFx?MO`w+C7aI2veNbx*f^yyI6fnR_Y8 zq)0y)y5T6QWvus0tnm}=nt%KepW9mcK94|6qt8JHBuh{2+7>diH#{9g{+LoKTD7f7 zhb=F40p<((^h%HaFx`8DyeV!ai;?_D(oZoAQ7IQGClZGy1#bhBlidhyvdmbuZ@9N4 zbR!GClzbNQr~ax&s~tfMo;Zpv$lVQ2+n#dunseT`l#lC^&c$(g7^l`t?__PCPdYy3 zcuhac+h-T+LpJ>4fqRFz?Sk8L_YZ+*iuWA3 zcZf^Neo-vxRv*3H97=vqD>3M}%5rvzI(M4RoTE)$2z>+(Z*I3k1#v~I@8=liY1JqO za}FDxGM0j5L>`6mDCyd)Mtii?T39+ZgW5FH*Lko?iAob|76KrL_PdRv7EYWhaof>nzXNpYBwWDzDUxY6u`w320Fq^aVINV|3}V6)D*jgQ_H z-zuch4dE>1!Gloedt$hVal;gb>Sh-Bp1eCP*R@k55wn*y)9BoWs^eu=$C83{##Om@ z$GoId1tO(VpVXx4s|H?EzkLDNlgL@B1okqqAthDlMYg+wKIN$HC&rDQ=tQ#B+52}f znNcQ7CD+Jg2Y88b7=wG|>e`l(sv?&+HrQCfPmGAY$lXppl(2XD(Dg@d!En|eT(_+;!I*h)uA|(V}GlA?4#zP^7aIB z$%Y@n2L#D+mN%G#qgENY1fgG|z@~@-Ed}zR_I%!!&{OhBF511q=C4Z*b}lD zt;B_T;RT?BKFX$|8pOU&4z_R4=m7?Zrq~eRX9LccZDl%zmXz9+F6i)?0KQrg#20%I>(Y|F;! z#BbF>pV;hgGwqne5P^0DP8!duR1L&(dZ)`HY5Sc?#=O5scL&j=_l)vrrAGCZy3BK) zdRgVw-^mLQ(sVULK8&?SgRI+ZLqzyi8uDgPO((#!{)(@YJ^!D&-a0CdsOkTlfx!lM z_nE=nEg4{NcXtUE+=<}s?!n#N9fAgTNPqyrLy$lqkmcFuJ->JN?AgBmRrl@FeQtN( zx>eu$^ygB!X&slZT{4mr=S`zDnT`P}vBjgwN9d7KC(5IphDE2!mf~1GX_=cD4u-Wx z>4%4!%d0^=-HEx2vtJD6`(knF> znP%9kt8F#WS!FIAlsYivST`cbLOkm3r=R>ZVG~uh5nmZ+=ULvz;5lO|S2`7yXAk&- zm*!I(;Umy0VKdutX{SZRrIPW5nS@`dhpdb^eJOi^Z2X~=qWPVh5Wz1`U+zrBW_|us zB1abV)6A85)(!9U1@rTU4H;q#;=j#HLP_;{$^+Y3Fo8?|8mmtAmdPwc_|?C?g@HFrXB@ z#6NFbm-mj8`k75Sb9=!G^n8rE${G;e=6Iq<$cxB&sX8ts;s_YSV(X37Etk76@+uvu zurK9ciWoTW+>Slr?1%PKad#$N5tk60m%zO`WsZaw+RJ zm!AgGkX+GNiPjFIIC*knH5uh8LtWFV8;6;{R#fh^M281I6|eAD%tjH2$|f3M5p)yC zdEV<7dXxlyP{ecSBi7lp(DVA;R_Q1gH|$YN!BbpQ0{+Ual*3x8k$7+aM9KTxW23cv zSLH2ptAla2`QhbXX-gdSbP=kxbABful*!14{ zy2n~#ei9UZ#rc%uGZAXJ^yO~RucC*{8Ank@h^}_!ARSVM>WV_J-ryxBHeA zJ6i##<)75vij%RhsqV@)kuyl`dC7jT^$335*^OPU&X&|s<@u`^JaviZVwD(__`=(e z2O7p(^|0)$+XpSYZmpUDXYri;7$IV@2uMC-ZlXo%#3I0oU5`T*Xm|NiL92BFJ7i{> ziccz*_H&sLxAVLDHil1CQA%&x?Jw-Tp_&<|{}vyn7;ZqYjj=et6KS0^yf0|X**P}a zPn*)Ubk4r6QcAPVb75M3PF8c9%=k`OZeE3ZtZ`%RfyH|1kWi_)D=XWEsp@ z0LoH7Ctyi71izW;6bVk}iyMi4DJsK}+Jy8Bdkp%#MuaX9=a`3=Tr%C{X}$JzFit7? z!vj9Dl!c&p1z^Lcsd34 zL@g7+f+mW#dBUM0REo!mj>s#zc&fS? z5v^(TDAa({``AGzIIFWXFW*pucSZKjjnYtqOA``O3Rzd$D*nSDiANltGN&B)D%*QM%>A>8ZW}H1gMwI-w-8z1-8vt zvvAREUGkJwk*p0@%SM+HvGP`X>7KOsZ)$qT1*S^snjC!D*@=pfE7Ctsd9S(T7BIBO z6&w{&k{MYweVH5gjvG38l^Wm}INOL2#fr>;9a@>u!)gYLsR}ZFZBICc3|MpghL@5a>DxrzMdoP$GfP}w^kzWYI}r|8D;Z4MrWkC&fEnLd57 zdF?MJt+FuA6w9&B`giXj8n9DMQPUs3>U8j6vgq@=0#nqZe*o~;FR$q1( z3D3&RR%gy0=BsP^{2>esKHba-9*8=cG-Hg0J4*(NlVTh%s=JlT6dD}8nN-u>nlTqU z(!l%%qL*A5XNz{b|C8O?h*hmVb%wFk)}gBdU;Q4u**G!v?Au4OqiA`;0{bbAzZ6W= z8YCP)i0@kpxEy*ir8p@7{=kdzHI5Fab-4U~RN#G5GRKWSlsw{N-lga2diZLD6j@XI zdv8j#>zKWWKAYZ-S3Vj8B%DY3`+I9Zhz*ZQS!()06Cc9+hi0dQs`h>%wr-iXiL#%P zy{pRWv1t67ym#&G;h^Tv8+JkXf-JG}G2H0Y090~jhGhR$*~IXxqnGMOk;|h7^5ep< z`&dEkB%=!+JEiZ3l4_Y)=$u;aIM;b`unScUDj5u?@p%$&b2VWV2sJEznY5-}t^_wM z?G!FMp`>3jqT2$lU&Zs3}%e(KmCYynJh&F}uG&K2O zR8m9}nK`O^Zx8&D4&z&GyEgY^S!Egiy14ga3!7GnBsbOx_rcCaj3sToWE7s5#W4jK zA46u`PCg~(J5-Sv4U{O@?4=}?%!RE1RG)fnfl+)!UC;+rht?59h8OYR59P(kp?7E) zcx>EwT}xSf!A*q99BD!|N2x_3c_i4Az~kV-X^g1LE!+_+XxN-qTk%WK^{o&a!=Q$P za;+wSu7QTRD1*$0ZTg$np-b1b(6(RBMLH(M#LLs!-h#23jI~<`U^gn#G0@gy9lwcJ z(Wy6--L%Zn26g>lsUPSgQYsI#IO0+L?a;8g5&QZz(Y60I*S25AMeTu?eFu^)kJQjD zr>H22Q#i6dCREK5c}StV>`OKOQ?`W_poY1TY|XR9C4~_WEfoOJl(EDUkudU;1;iFJN}z#h z`CYB@oP{N64T}_R&(5unk+$sz zE8j+X^nQNpf9Jc?kAfD`lAa|>BfJl`M^#-rfSM)Jq=S>5qsz7}I+3$jS7+Vu?e)(& zllOmz&WBDoXd?G}JV0mVT}Ef9F{kM?B{1(!be2+eoKStmSvH%>Q%;-8Zb*M#4?0)^ z1*Pealm{UjI@O+05SH<(ucOvC0%D%WEE9i~ss(+(w!oEH0oGTO&Q(^DB#1(w8c8VQ z9JL4it*qXK>YPv#}LEEliDdAL6u}lpW zGms6@`44cgkDP_Tr`e@0WHn61z0MxR2#fL}( z8k)?hyCsB!w!GVsN|l&+1&8XSHCiR=ognBk6yr0__B)o|#*)gsp1OUxbk5pvQX|qz z-EJ5zlGK3uF>Z5WO)?jW%A7@sIu&h{{B}vBh&B4)t`F`FZde{Y+!~H#*#8fJ`#BGm zxP0+S;Y$F4YrASH)nb(-3Il*hlGx#=7L3`v(EtUxCqp6MW(rA@3atLY8WtTB2d!W8 zrXP?WWNu|vx+4Dgp1iWDOmposUlP05UYjYG^;2K>r50W+Gbf@&znyi|k#|IM+I^Wg zVHT5^OR}}+uN0T_TH*@c=Qcl)yX{h>H>m(9b|6cmN?_9HA(7{~y&E2eVDTme35Jpk+5 z6OcbQx2_VV!y*NDOv8ekPq9or00{l8Z4(*hv&RJ8-qFB|1*3%{PQ<9?sj#zJk%WF? z)b=qZ$!)^YLDtmHZFZP=_1@=c{x2$2V9+mHJwT)i@LlO7p*u zDY>;S1R$CPQ9}svVv`}GyNUtdEtAGYL_u)F68SJ8HaapMNtQ6{ZsiopFGvJATr;Dh zRW`a}$1=EY>w+)16W7|8dN`P{KNVsq2H_#I#LZnLAqhAqEjDIx2T?Ol%U>y zIGy<9wLjZ+^=8|T@1iH`&eZ9#$h~{EIc28$^x=87dan>nIU!odDCQx%9~v(?N@H1_ z+hQT@&tZ)};ey1aj4{|D(73+WsZDp0Y@oU;;_u0GuxgF%UU607{y)tCN+^-LE@uS3 zk?*01J57`Rp9a6j*e+y3Wz6Hw&7a>>3}cy2Tax&SsINs^APJOW!ktg~ z5uYxj*d7(17i!aCAj961qg1nTv(|12ynld8+;O89kY7B~8pMZuDUZp~)PuKCD}9Kf!X0zDzW-@~o17II+PNW-`i z5DL8UzWGqS&#Z0`dTREqcq0mSz1-28QzOx5QQn6x7B{&d?Clv4ceD}8rB=>F4IP{5 znBV`5SpV}mWd6fX>USY7QmjLS6xnT;d!sRUuvjSro|5y`{fCcSgDRu-Z(lJMd{;ZX zhm74-KMP&l!0UHDE^J4uCgiU8_tA(-(sGNX-w0g-)3>?Pqj2WYI*!4N9+zx0uXWsJ zgn(3yAN`-tg?cQ+#tk1$-d+1&ZKvf-W#{tNOD0%EV+Zz5Jk%!^JQIXv-%&iDV@VAY z=7iksEc9RHO6Z;aTBO~a^{?P^$mPE^`k@HIV`C4VS)uu}XWx*ldg@c3`1T)w$c$-` z-EmK&$kY4O5gE?^_8#ppm>Yl!7*zi*n3D%tbbm0--L?r9BPm6nyfwt%=vetPN0vkc+Wl&O!GxKrOnzxwt1 zIZuL%r}*EoNlpvjGYjFG%Wc04114%D?y}t*S~Ee51Hk*J?ZX78@Q#@A}HJO4V*KoRzHs(*z`x48liE~sG6k1)D=|2ktQ>5tS? z?d{@}(9J@&w?F{Ok!ujz&+d$D8wlZ`mI#|-=7N7gD2c-j-(1k{wLc*geYdt9xv#u( zKEBg)+i0f+JAuK$Q?fbw*@g^$%6x#oG5_-u!ex~{m|K9@c3qTufxmrWC&Lv-UbbogNE{LpbLHU?(%STgdR>E zwXta4&{zq4NX%tfX|X3n*t?Dz9`O~|{Bt1uZG&3LKY+k+)!Jx?y|Sl*0UDv{L2qXr zwVwAu5t$(DIU?*CvBm4e@%ZI-xax~7X$#IU&$rsb>VW(>xh4;RThjT*)nD4r4xeVU zJUVOV<;*%;2~wcCItQngJLc9;xdAfZ^KrFpKedIP@?%r2n|hW9z0@bR$>&tt;ewD= zy}cIq@i<1i&3^!kN*eM>XJEYk-Y3}><=(Qz6HP|=kWOZxG0t1k8P)!ck8CXca*RdV z*uO~u3WD{=AJUk^TDhB%TvzIIicd23QIxRfQAJ<^$1h4JNirTn|Ky9)fJW*rS+eLg zrV^8s>_rJZ2KTky0w8M)z1_OlX#AqsqAh{0JLQm7%cG~W)rP`6VY&ZHET5SkTf}}@ zf;WmUFXv-9$l;RMuD*3B7=b!6nCBS4-b`U`^fLlm$br;L`Hj))XG)8ZK5ZpeI!-|V zQ`)&g0hu5fEqVFy073eyWTS(JT`|aEi}(dtnfY!Mj-BT7u|5rT(%@kKY$ZwkZ1|Uq z&9l(&Mex0kevNhG+3e!iX8rDf+}9NFkmC}x7ikQyHZKLQ+Twie8{Xpw?!Fd4)|WA} z5G8~B^Iw7q(&~RHsGvvsj^d*}FKEYdZ~P=)=vdGbgd#<5hE9fF)o}Q&5=0+GP7V--*iO?c~p;@ zgVE5rqvTq83HSMLu_)WPWf{2*gm8KRlMXZ-C3p)sz1(y}5k<&T%p%&@@d3^;$xbd*l|n4Gt}eIzoEbE?_Z1Atoy zp5)G?>i(%10f8`RbD3>sq`Yr0vjWLJr-LRb1Jj!UCqM>rF6rHSwrN@&5&prT*tXwy z$BFl1!K;~l)i1U~+^TD|WxtSHdAD{$jme*_R z-+zq2tn&k>XlYvi+nxLHefcx(#Ga`Viut+ATxkss+LL3F@#LYp*`3> zm$P`Dyf04!;D#lx0RurVC_7XY!xk>xDOcVFyds^l`b`g=sf|;h*Z6-rV z+}Bumq@95&N}zckgF4m;LPJl&*Wf^q2b`6W#Rlo&2S`y*AmV?&w;T z?HRo_wS1`Od9Rn*SII|=o&0BY==12MjA6q25B|L54`0!Rw!Y6$mzS)ay|5YB?xJHP za7P|KF-gD@cD*DhAG&>s{5EbT$kF_8+l%wYq_0hFAFK0PZ0w@KKU7brWrb33T)o@} z`bunjG&;r-CV?JnIjY#y2MNMA>#JNmJUQJ^LMGIEe!qhSKOlU;x=;z+__V(5(X$Waw3;!NH2o?F$3smunU#oj0MI8Ke9$bKX3orgYr@O|y5TDl*ttRQ=T^VXlb-Wijo^caE(F-9M~+gW*AA0AzX|7ObMep3&vZ_Y zU9X-ViWb#69*@AADfTgsX&c*&vY7In{PFLDqfu1a21Vk|oj>vIeiR5M9($`C%Aoa< z5ig1l1q}vmlc^O3cd3l2PV4+mebBBu*M9!t*D0I?Eo8>WE4{SR!SK&B z(SHVfN#*)OzEN|TNaxSSla0Cwmg_NQ%#4t3^|i+Vz3b>_H|395>V>%2yz16BHIB4z zwC0aQTk8&Hv%zUno+JOzBwACA6=DG;~v*$>eGy-V6Ixn*UD^w0WLW4p6{xs|f5_>U(YeaoZ2 z>$qBJr0+~3b7@Kc6u^MygUgLl)+|l*37WqHkz%`A?f_=QPlg|>)o$&dYhN#y+nU}a z`4&yxCS){Gu67U1UWF|R{R6B=hO1DiK9xnzdMWvz{*uCqPXDsExjHDCT%jqzw%4p* zzo#*-6r*B`W*N%highV=lOx`=$P!>!zxk=@wO0VwLbOss_a7~%owm!Tg%E)DU(}+n z*?mho6XpV9s!!hw-6<*g2sa|83-Ev5!tqgEo^wHoEdBxV+2j`qqr#`IfhRTr{__c- zUdCHhE4=r5H`yw+`HxkN1M2+aCqD`L?C2=kWaG55*$6l}^SGBp3f{dY)LgN;p>0c! z3!%{){Mx!UTk$gK%{$%*1kt~*mTbOjE{5Ks;9^sp`y4U^C5fAasCC_-_WTT4Xr~L< z`BNkRipju^0Ef~U)cK#`2PR10n^%+**^yI7qdW8u^~x`01^ZM zXwlk(xeEb}ATVr+VVmY&$pa0*K~sPS7i$3}PVp6$x#vJ7BoVm|U=IKT;V8yBzX0FP zS@DoQIG`v%3aDQ{3j<>s3Rvk&B2g16j)LM80IY2rfTKVSxM#9r(4y87K#*6V1fax*-4_ClF z%91w*An<>!0FW*A!cM?NfYKHa^8d6mu@by!D65+|mW6r`b*`TWF|EzEMo2gCAC0C z=bi^IP#sV?XVW1L+ zd`|jyVKCbiG2yI@&-0e_FY=6ig4-#<^}0sdSM?*T2)p~f2sO;M^(vAg+O9;V>0#yY zFq@ug#c^jfxd(CTkN*J9JoLw!xr_#_Rr-vp=$M%}kIEDfLA>~4KWpsrh6C!ZvgvRo zC(d6)2K6Ez*gzVukknlXxu|JT)8C1HDHz8!eHvbAQ)ahUOiwelpj@37gGk*)KVuvAplO3s}l8-Run>QzO_j?EA2ZYkazb&Ie59A?|N2OA=mGws|gVUg$ z+#W`SO-aRH)6h@}yQ=sm3$jO}%gkNwH_63R4*|w|@mFbhpQ)nuppYFE=$({$D}s(e zTE)atRxMa_M_^KI{fs-*^ODq(mL~4apiQHyR6PT{b7;IKK!4rhWjK4s9Q6bRws}lh~nKy0nWrOdhfzJtbYJ5c0XTD1!THy zV%BHi8L4kkaKUMjN|#LMkqJ#kw&H?|l7IzQ9cYJ0q)EAMxLheq8bc_;3IY-dp%B^2xM(MJBFKf&QmtRU;2YY!V{|Ym#hxiy@qm`8jz+C2E)ZH@*~~t))|ebRnhr%}bn{fzs}b1Nd!i{Go2$ zD2ONOHI~_?f+^lXhZ6i@>Ebt6QJj2Au(*3mG>$;z_#zFe!JZu-`Z)^r*TYzJU+gfH z9IO0CPtYMHsSb7oGW?2QMc|Q=$c%H#a5BU z^1_L^_1=%jt&!NVQ36{yLR9ilb~>Ukd6=6aa}b2&Q<*p^JC;|tWJPxESnw8+=H*hV z@{iC!;ja70!_%<_>Sk}p6a3VGch6H{RK8+mpTFg;fYs9suM26lBqx<*elysi#Y-pRq2nLC z#tQT&i{Md^U{7`~SuIVUdAE~XsFEG?`9-?7>yBtbPkn@qVOYDI^XVqR!3xZ0yfx}l zr$wJ|3?0Nh*Jdx927rp-2{zNE1gT#zG>KO>fY=reY;ycY6^HafctJGYSA5@D>3mHI^&nB>fxn0K}GlrP+rW_<)K$Ih)r9HQ+PcRgM*GUfN z!z(27`v>^3^bGG>YuNQwC@7h7hcjSsMCc(I=_H@K-%XXX{M<`>E@-@RQ)C<;u@R}x z{0Cq_CN;_m&y|zmv8o_>vs7%ek9=s3qtGuKd2R0E^}KB|>{%?G!Y&3nS{Yy~UHFA8 z1PrQPLlJ&OGyu>HW@TWc5JZeCX83%4E%bi!2+@*vAe9jV_43~zpB*1zG$(XVhu!{& zCwK}M2VP@E@*q=r*P-w>QZ+J%uIVdMZ1@W&-bU7Fy^E#e8!-QJNfevJyWBtzfhWqu z6v0iPzl2?Phr>H8HOy}bn7k&1UMFHwC@Xm_2uE)4MR{6}sDUPJJX0vSRRk-NgHWaD zZP3vanEZ*CAGs4k3SH(LE5+J>G% zh=lp{`MT|sb7xWeL^f}09R{YaWnj0Y#s${hsc9ecx`i12(NNT=jEF@ONV{Yz14_Ej z_6aSQRmZtr{c0Xia}*i}ocVpwQsY__*^W%Z@p$+1Yhr#Pn`U^3g4p6tp>HC5GSM0H zkgfVz;m7mv9eM%01CzfYliYCc(>G&u3wZ-O2^v;A5W)d8rk&=eVuy?(Xdotv9a=!C ziSFVl!b1;#kF|QUxpT+DiwuayV+{qQ=?+x<5xegu&tlEgAP}2jlLjQ>@!v614JcE0 zSfVHv(gva&xJZ&@Y9#CyIude<6<{p649*MZUM9W}JJYmBcxvKc)}0Ke8AS7K7VdlU zzx$sLSpbH{AR?;yd-!TwT#}HQJnQifQanRP8@-hI(WBCcMndIZZUkVrpy?Xip-t9FCo!2;N*MR!XBg3dVoHO!~hL%Wv@C?oy#A?dnSD`2%X9N9dB+iJ_npNzl{vtix8z?F$jrUHO zT-E?Bg3T`Wzyaq7FX+!ba1i1hj7ca1ps+g`P_21mdq6}O zX_g;pjcv{K$rcF}&|q1fJIFw@$zFv^cEXkID_%!u!+y`unY>_Vp7B!o^ncPxFaD_` zg`+YFAtAF$FjlYvh3M}m09xT*rDmyO;@4Z5p}6_1DUKGNu2Bb$#`tfPt)s9;0A4Ht zP8_U{m8?Y#!9h|#WPqX%*I7FOBoWrh$rPnU73a`ArF^V7gPlEXM(ajz-eWbnTrx6* zrY4N6pe7VjSDEnXXthSGC*-+=2jM zxo2F@^`sHuWD)?URZX!bw*Yg8az|~w81*uqE1LGv71b>k5cw3V)Fdg^kDmPs(^u70 zGaD+R_7`L3b>4?RYnR1PX;ZtbqbA4aiiuhPVhtvflV3mObSMiaWT3I{mB#%@<95QM z04xr)%qZ|k(sL7cnZM()9F5+OLbtX_GU|_*uj!d8w#MP~VS8x#s2jx~4`cBKp3DU* zX!Cz^0-}X#W+|Bd@VZSvQsf3z1Y+x$v*IKo<`VOyC_|fC-jK@#Dw+U@tNY}4;KB&S z@D%7I%^**fL)k^8wGPd}%a{OqAyn*2k$C`g9<>QY0FsUoz{CjU6^}*2jr36$`fVZL z?=gcE(WEmrI0K-XNAEe+(VL+)+wM7FvB4pgOKt{>Y1N37v-CP#XXFttBON#Di<9dVG1I+6gx=GHiqpFq7ye9M=^ph z4~obMg;jVRJ8+vCuiss4Ir*DD$>$*b19;0}e#ExxMuD@>)3J-F;nth>!ilU~lG8D( zg)Seiv3pQ}@CT#(!+zg)e>oX^&8gOoQWbuzvwW?Et%CIknL?)G>Ng}z}wli^2k%fzl`yq9)%@>H*Jk%x%4It*DmJhVC zGa9V>%s;c#EY=`oxy>V(KJ||4@T>&?*p_cT@C36GP6q$aFDmU&f{Rh&bDgI=xph;^ z7T8PWy8Z$39QtajRk;Lst;k|l(^(FpS*^3&cU!%Q+*HQ_fH?rNgVk~%3nz<04-zOD zrB_2`L2uc=D@jQkxiO#v!-yCUw=4LLELR#SPdhNoTpMKt6J=!-gKwim9Lb7zS$>9! zf!ig@SZsbw2N}ppPas*uuRrzmlyOJ|siPNch1{f~eh>d^c5lh%_xmCfeW*)n0n26_ zkAN~7O9*!32aOs~TE4$g@gad1@ET5;sy!5hCc&|QK+D0MDU%m2xY}@axQCYP^+2Y# z0ydJpad#q;zEfg0und=kAaZM%Bx}U8H%3s9-^bFaN2azVY2?j({juJI&U4zwQj=6i zn1mT_@jCCu$hxuuPZX1c+jr56Ao?}bdgp|cJ$~LXL~ZDt4%_^TZ$$}VD)Ra=MK?wF zNG`PWt1U$`efSQt#cHogVFP*xdxLb)-d^^q6y&lu-N zSY)7*aQQ@)g+79>@4L$|_Hi`)Us-VXg-gz%hAyRCfm2FiP-~2Fq8ff(sC+~(GN)t; zE9bOXJb4|{U133&RcJ#IDy_|%nwBlinx(U>t2fdHn{gu^(Ze^ELE^srT+h8Zpkl2( zxkWrVkk*}_o)sUBJw8le{ehr^EmO0Mw_QO+bFNUk1tXxXF)gs$u!S6`JfV6!ROt!w{X~C&IQ$ZJ0CoX(Bk#wZP08NCrkK`z8 z{H0ug(Uv&#(nZbr$|VW>{c)0=)`5Il;}%W1D@IS>2}9E)X8fTY6H2Q;AsGt+&`|&_ zK1-!wZ0o$=yg?!kWNe`G^8Ez>1i=M~22FG2`zG3`+sp=`<;H0Nnc9mz{*B8kOoJBg#CPj*o^PKdSxbfY<%ycQ+LD+$JZ4w&eMR96jlcMZF ztkzjBe(n%*8pOl{?>%)+7#TMRzdj`=Lo(>opf6t(Ed6+r=_pvyYO-!Bg-XDh+H5pB zT`=}hfO--n3wN8@)n~%tw~I1l+?y_R}1x+m- ztpSE&ATuLD&?KsuzR`{CNjuz^C>H?Ii~yuM4dexC$lR(7Fh5zqMhR}1VVi=89?}uY zk(|T4+ekj^uP!e5lT#32&<4QxzUo?or2!pBhTd)QNo+?QscH?-RU6nXWqUAg9hp3i zS!3=`7I|sS91W@j2BQp*yElQgEA^afkBk6`y4-j>rDS=>RX2$k@MTVP61-+?a6pA< zmXs1E2iAz!8gv&_ONavN$4Ad?8I8oqvL4nr(Hr55J$@Q8YedaESN^?!^w1t^MJ7rWu6f09QRp;b}=s+-u8H}}U~qz9*>Ux*4}orQL4 zPI8t6VX;ek22L?*Fko4%k6;a{873n5#wUSU-jc!s^Vpdkf%dbZLrfcId0Ffz^i6SH zgxen%TQo%p0Y{OHy^<@gL=1qo3QC{@yMFj(*z=>8W`S*o8;Z1fO<4vqQagMmlCGKe zvz%v?aFE5gbq+^%&?k-x>pk<#X~O6avt-j!=)pS%9`atnSdIh}+}tvErRw@l{-?GX zZK%Ua-Fhhjlok^FYY+v~bl0O-%91N!94hic~7R1N({KKNQpm#O-Z1Cc%YhCdx z2=BZf?#`QD5{oOFWXC3$IAM;NyNu`{?Ena~%>7)5E#r-eOi(LDvypCR5W?Gl5e z&lD_IIyIZ~~IV>EA4!sVPpW z%M`u>(|rFB=Ts^1wr?N1MI1G7$ffyj9$AnNzjQ#Tk(p$B!FzpE2JJPAk~T8L50 z?TN$7xDcJxV-bl{ui(r93~0p_>tf;xoxOZ!de3&q7$Q5SXTFkORH}Q@uCrbF8$!ys z!0sGkNF$R1fcvBU3DCOig*h|Lr5eYU_1u|BEb~c*Fxlg}m84#gYfsiyZ5J~Q1uJ*t zu$ZSi4{}g*(>a0A3YRiO^N`F;;$E;_2~KAwg`sTDIbdALUoX=-yg894*RYH-35FGrKQj19;z%~Su5 zhjb*r+V<4kU4&kw2=ezy$aH!WNDRRa+v`v%em{j284ocG(xc2_#Ei6$lB%$0U2w>J zMIfo#Cr^)xM1*k=QSkkboICgZMD@N21sKlz%Kz|bZ4|b)mRcRYY1z)Msmic+{9NmzKlx&5gbtA6tXngK|<08DBR+m=aqD7?W?!*Y@Mpo7TDCQtlD zhui3yB`AwOk5;=`lev$AlBkcOduNJ^{w=u3(q6Wak4CKhMV{jIw<{B;iaDmSTqC^# zR0Lv~^gZ^bw{(Axq5MpPsS*fkV6YNiJNEnuSj#M>P*#&y?Gx01lBA#M#0xpH}bsyPyMZug42;ROFwAx#BRA003^F`3ZK01-FTGFh4*&B#+ZdKg>z+;=c8C zwcd#Mv&G$C4Uu&!m6C$T?>xZ$3BM0Ziyxn2=0=bZCuTq_?u~5J*g|0oz`nK@06jKx z3(*9l_(bbu5k&9T{3bbAx~ni=Q&tRfl#pjI)b;0X;+5wjt}rFRJroVbJHqme#@IW8||cbcdAjH0j|5 z5t0CFNpmc0mM;QrBcWNmZGWQO`eZ|;NC3{IUEH#%R8b&Gu=xfUF%8CCG_M(YoR_pU zNTnkvUDuCfG)$S}yr!M-*G6sT@;YZZmdZjluqm-mU%}fdcT)3Hx=Pgf^``&rE0vQ) zjsTPoVAz4p46ad1D>K1fO!AGrnHBiW+y@uDv*0Z)L;kc(W$t__8;S{GR^-T}i3|#; zphYQLyu{%L1+}CWr(A$rxSSDB}>1y!J6nT7-E{ zt~*6i z!&hqofQ_ar@G*)m+3wi1j990uSr*Cug~{V3TiQY@Ln7?y+F{s@8h + Always diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb index 42ce3458..0b0d7f13 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS_Adressen.vb @@ -71,7 +71,7 @@ NCTS.ncts_Empfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORI.Text) NCTS.ncts_Empfaenger_NLNR = cProgramFunctions.isLeerNothing(usrCntlEmpfaenger.txtEORINL.Text) NCTS.ncts_ZugelassenerEmpfaenger_EORI = cProgramFunctions.isLeerNothing(usrCntlZugelEmpfaenger.txtEORI.Text) - + ' MsgBox(NCTS.ncts_ZugelassenerEmpfaenger_EORI) 'SumA: Beförderer '-------------------------------- @@ -134,6 +134,7 @@ usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_Hauptverpflichteter_NLNR usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land) + usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht usrCntlVersender.kdFirma.Text = NCTS.ncts_Versender_Name @@ -281,8 +282,8 @@ usrCntlEmpfaenger.txtEORINL.Text = NCTS.ncts_Empfaenger_NLNR usrCntlEmpfaenger.sbLand.SET_VALUE(NCTS.ncts_Empfaenger_Land) 'usrCntlEmpfaenger.txtAnsprechpartner.Text=NCTS.ncts_Empfaenger_Ansprechpartner ' git es nicht - - ' usrCntlHauptverpflichteter.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI + + usrCntlZugelEmpfaenger.txtEORI.Text = NCTS.ncts_ZugelassenerEmpfaenger_EORI 'usrCntlHauptverpflichteter.txtEORINL.Text = NCTS.ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender 'usrCntlHauptverpflichteter.sbLand.SET_VALUE(NCTS.ncts_Hauptverpflichteter_Land) 'usrCntlHauptverpflichteter.txtAnsprechpartner.Text=NCTS.ncts_Hauptverpflichteter_Ansprechpartner ' git es nicht diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb index f535d2ba..b1ba7728 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb @@ -37,8 +37,6 @@ Class DAKOSY_Interface_SEND 'cDY.ncts_WARENPOS=USRCNTL.POSITIONEN.getValues() '-------------------------------- - - Return cDY Catch ex As Exception @@ -873,6 +871,10 @@ Class DAKOSY_Interface_SEND If cDY.ncts_ZugelassenerEmpfaenger_IDCarnet IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter.IDCarnet = cDY.ncts_ZugelassenerEmpfaenger_IDCarnet End If + If cDY.ncts_ZugelassenerEmpfaenger_EORI IsNot Nothing Then + XML.EinzelVersandanmeldung.KopfDaten.Adressen.Hauptverpflichteter = New VersandanmeldungNCTSDE.HauptverpflichteterVATyp + If cDY.ncts_ZugelassenerEmpfaenger_EORI IsNot Nothing Then XML.EinzelVersandanmeldung.KopfDaten.Adressen.ZugelassenderEmpfaenger.EORI = cDY.ncts_ZugelassenerEmpfaenger_EORI + End If diff --git a/VERAG_PROG_ALLGEMEIN/App.config b/VERAG_PROG_ALLGEMEIN/App.config index 6fbefb4e..c029c90d 100644 --- a/VERAG_PROG_ALLGEMEIN/App.config +++ b/VERAG_PROG_ALLGEMEIN/App.config @@ -45,6 +45,10 @@ connectionString="Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;" /> + + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 9127ba2a..6fd9a310 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -48,6 +48,20 @@ Public Class SQL End If + End Function + Public Shared Function GetPARKZEITConnectionString() As String + 'Properties.Settings.Default. + + If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then + Return My.MySettings.Default.PARKZEITConnectionString_DEV + + + Else + Return My.MySettings.Default.PARKZEITConnectionString_PROD + + End If + + End Function Public Shared Function GetWEBConnectionString() As String 'Properties.Settings.Default. @@ -212,6 +226,18 @@ Public Class SQL End Try Return Nothing + End Function + Public Shared Function GetNewOpenConnectionPARKZEIT(Optional pooling As Boolean = True) As SqlConnection + Dim cn As New SqlConnection() + Try + cn.ConnectionString = GetPARKZEITConnectionString() & IIf(pooling, "", ";pooling=false") + cn.Open() + Return cn + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return Nothing + End Function Public Shared Function GetNewOpenConnectionWEB(Optional pooling As Boolean = True) As SqlConnection Dim cn As New SqlConnection() @@ -432,6 +458,7 @@ Public Class SQL Case "FD" : conn = GetNewOpenConnectionFD() Case "WEB" : conn = GetNewOpenConnectionWEB() Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA() + Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() Case "AVISO_ATILLA" conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" @@ -473,6 +500,7 @@ Public Class SQL Case "AVISO" : conn = GetNewOpenConnectionAVISO() Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() Case "WEB" : conn = GetNewOpenConnectionWEB() + Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() End Select ' Using conn As SqlConnection = GetNewOpenConnection() @@ -508,6 +536,7 @@ Public Class SQL Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "WEB" : conn = GetNewOpenConnectionWEB() + Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() End Select Using cmd As New SqlCommand(sql, conn) @@ -576,6 +605,7 @@ Public Class SQL Case "SCANCANON" : conn = GetNewOpenConnectionSCANCANON() Case "WEB" : conn = GetNewOpenConnectionWEB() Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA() + Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() End Select End If @@ -625,6 +655,7 @@ Public Class SQL Case "AVISO" : conn = GetNewOpenConnectionAVISO() Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() Case "WEB" : conn = GetNewOpenConnectionWEB() + Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() End Select Using cmd As New SqlCommand(sql, conn) @@ -669,6 +700,7 @@ Public Class SQL Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "WEB" : conn = GetNewOpenConnectionWEB() Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA() + Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() Case "AVISO_ATILLA" conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200" @@ -708,6 +740,7 @@ Public Class SQL Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() Case "WEB" : conn = GetNewOpenConnectionWEB() + Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() End Select Try ' MsgBox(sql) @@ -742,6 +775,7 @@ Public Class SQL Case "DISPO" : conn = GetNewOpenConnectionDISPO() Case "VERAG" : conn = GetNewOpenConnectionFMZOLL() Case "WEB" : conn = GetNewOpenConnectionWEB() + Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT() End Select Try Using cmd As New SqlCommand(sql, conn) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cParkzeiten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cParkzeiten.vb new file mode 100644 index 00000000..7cd6d17a --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Classes/cParkzeiten.vb @@ -0,0 +1,142 @@ + +Imports System.Data.SqlClient +Imports System.Reflection +Imports Org.BouncyCastle.Utilities + +Public Class cParkzeiten + Property ParkzeitID As Integer + Property Laufende_Nr As Object = Nothing + Property Von As DateTime + Property Bis As DateTime + Property Dauer As String + Property Dauer_Minuten As Integer + Property Kennzeichen As String + Property TarifArt As String + Property KartenNr As String + Property Bereich As String + Property KundenNr As Object = Nothing + + + Public hasEntry = False + + Dim SQL As New SQL + + Sub New() + + End Sub + Sub New(ParkzeitID) + Me.ParkzeitID = ParkzeitID + LOAD() + End Sub + 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("ParkzeitID", ParkzeitID,, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Laufende_Nr", Laufende_Nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Von", Von)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bis", Bis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dauer", Dauer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Dauer_Minuten", Dauer_Minuten)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kennzeichen", Kennzeichen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TarifArt", TarifArt)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KartenNr", KartenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bereich", Bereich)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr)) + + Return list + End Function + + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM Parkzeiten WHERE ParkzeitID=@ParkzeitID) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "PARKZEIT", , list) + End Function + + Public Function INSERT_EXISTS() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF NOT EXISTS(SELECT * FROM Parkzeiten WHERE cast(Kennzeichen as varchar)=@Kennzeichen and Von=@Von and Bis=@Bis) " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "PARKZEIT", , list) + End Function + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionPARKZEIT() + Using cmd As New SqlCommand("SELECT * FROM Parkzeiten WHERE ParkzeitID=@ParkzeitID ", conn) + cmd.Parameters.AddWithValue("@ParkzeitID", ParkzeitID) + 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 + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Sub + + + + 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 [Parkzeiten] SET " & str & " WHERE ParkzeitID=@ParkzeitID ") + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + 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 Parkzeiten (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return "" + End Function + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb index 8ccb3031..d14cbdfa 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Public NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -345,6 +345,28 @@ Namespace My Return CType(Me("ADMINConnectionString"),String) End Get End Property + + _ + Public ReadOnly Property PARKZEITConnectionString_PROD() As String + Get + Return CType(Me("PARKZEITConnectionString_PROD"),String) + End Get + End Property + + _ + Public ReadOnly Property PARKZEITConnectionString_DEV() As String + Get + Return CType(Me("PARKZEITConnectionString_DEV"),String) + End Get + End Property End Class End Namespace diff --git a/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings b/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings index 6db54baf..a63a1bca 100644 --- a/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings +++ b/VERAG_PROG_ALLGEMEIN/My Project/Settings.settings @@ -152,5 +152,19 @@ </SerializableConnectionString> Data Source=192.168.0.90\DEVSQL;Initial Catalog=ADMIN;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$; + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> + <ConnectionString>Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956;</ConnectionString> +</SerializableConnectionString> + Data Source=DEVELOPER\DEVSQL;Initial Catalog=Parkzeit;Integrated Security=false;User ID=sa;Password=BmWr501956; + \ No newline at end of file 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 a0cf7944..ab09b6ee 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 @@ -20,7 +20,8 @@ Public Class cATEZ_NCTS_DATA Public Property DAKOSY_Division1 As String Public Property DAKOSY_Division2 As String Public Property DAKOSY_Division3 As String - Public Property status As Object = 0 + Public Property DAKOSY_Procedure As String + Public Property status As Object Property erstellung As DateTime = Now Public Property Route_Country As String Public Property Carrier_Name As String @@ -56,6 +57,7 @@ Public Class cATEZ_NCTS_DATA list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division1", DAKOSY_Division1)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division2", DAKOSY_Division2)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division3", DAKOSY_Division3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Procedure", DAKOSY_Procedure)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", Carrier_Name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Adress_Country", Carrier_Adress_Country)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Adress_Postcode", Carrier_Adress_Postcode)) @@ -603,6 +605,7 @@ Public Class cATEZ_NCTS_IN success = jsonData.UpdateString("DAKOSY.Division1", ncts.DAKOSY_Division1) success = jsonData.UpdateString("DAKOSY.Division2", ncts.DAKOSY_Division2) success = jsonData.UpdateString("DAKOSY.Division3", ncts.DAKOSY_Division3) + success = jsonData.UpdateString("DAKOSY.Procedure", ncts.DAKOSY_Procedure) success = jsonData.UpdateString("DepartureCustomsOffice", ncts.DepartureCustomsOffice) success = jsonData.UpdateString("DestinationCustomsOffice", ncts.DestinationCustomsOffice) success = jsonData.UpdateString("DatDeterminationLimit", ncts.DatDeterminationLimit) diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index c68f5505..ac14ba65 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -366,6 +366,7 @@ +