From d3174821d38518119f5fbb723a9a4cbc5eaa8373 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 11 Sep 2024 11:58:25 +0200 Subject: [PATCH] BH, Kundenkontakte, MD; --- SDL/Fakturierung/frmFaktEmail.vb | 4 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 86 +-- SDL/Formulare/KDFormulare/frmFormulare.vb | 6 +- SDL/My Project/AssemblyInfo.vb | 4 +- .../MDM_Schreiben/GOBOX_UMSTELLUNG.dotx | Bin 0 -> 123279 bytes SDL/SDL.vbproj | 3 + SDL/buchhaltung/frmBU_Mahnlauf.vb | 6 +- SDL/buchhaltung/usrCntlBH.Designer.vb | 106 ++- SDL/buchhaltung/usrCntlBH.vb | 5 +- SDL/frmMain.Designer.vb | 206 +++--- SDL/frmMain.vb | 2 + SDL/frmdynMailvorlage.vb | 1 + SDL/kunden/frmGoMautBoxen.Designer.vb | 97 ++- SDL/kunden/frmGoMautBoxen.vb | 215 ++++-- .../frmKundenKontakteDetails.Designer.vb | 677 ++++++++++-------- SDL/kunden/frmKundenKontakteDetails.resx | 46 +- SDL/kunden/frmKundenKontakteDetails.vb | 25 +- SDL/kunden/usrCntlOfferte.vb | 6 +- .../usrcntlKundeBearbeitenFull.Designer.vb | 305 ++++---- SDL/mdm/frmMDMDatenverarbetiung.vb | 62 +- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 2 + .../Classes/cKundenKontakte.vb | 6 + .../Classes/cRechnungsausgang.vb | 6 +- .../DATENSERVER/cDATENSERVER.vb | 1 + .../frmMitarbeitersuche.vb | 8 +- .../Schnittstellen/cDatev_Interface.vb | 9 +- .../VERAG_PROG_ALLGEMEIN.vbproj | 10 +- VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb | 29 +- 28 files changed, 1149 insertions(+), 784 deletions(-) create mode 100644 SDL/Resources/MDM_Schreiben/GOBOX_UMSTELLUNG.dotx diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 5edf46a5..21ec5476 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -201,7 +201,7 @@ Public Class frmFaktEmail End With Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -234,7 +234,7 @@ Public Class frmFaktEmail End If Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Dim TextHTMLADD = "" diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index f7855093..e0e70b64 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -367,7 +367,7 @@ Public Class usrCntlFaktAbrechnung loaded = True allowGetValues = True Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -489,7 +489,7 @@ Public Class usrCntlFaktAbrechnung ' dgvOfferteDetailsUebersicht.Rows(dgvOfferteDetailsUebersicht.Rows.Count - 1).Cells("BerechnungsartNr").Value = POS.BerechnungsartNr Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try @@ -796,7 +796,7 @@ Public Class usrCntlFaktAbrechnung ToolTip.SetToolTip(pic, InfoText.Trim) Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -869,7 +869,7 @@ Public Class usrCntlFaktAbrechnung txtBesonderheiten.Visible = Not rtbAbf_Besonderheiten.Visible Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -1346,7 +1346,7 @@ Public Class usrCntlFaktAbrechnung Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try loaded = loadedtmp End Sub @@ -1438,7 +1438,7 @@ Public Class usrCntlFaktAbrechnung RECHNUNG.POSITIONEN.Add(POS) 'ALLE HINENLADEN! --> Sonst Proglem mit SVS/VP/KA Next Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Dim loadedTmp = loaded @@ -2934,7 +2934,7 @@ Public Class usrCntlFaktAbrechnung If loaded Then przRefreshDGV_Positionen() 'wegen SVS Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -3167,7 +3167,7 @@ Nächste_Textzeile_lesen: End If Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -3854,7 +3854,7 @@ Nächste_Textzeile_lesen: End If Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub @@ -3864,40 +3864,46 @@ Nächste_Textzeile_lesen: End Sub Private Sub AbsenderToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbsenderToolStripMenuItem.Click, EmpfängerToolStripMenuItem.Click, AuftraggeberToolStripMenuItem.Click, AvisiererToolStripMenuItem.Click - If cboRechnungAn._value = "" Then Exit Sub - getValues() - Dim ROLLE = "AUFTRAGGEBER" + Try - Dim FirmaFrm = (RECHNUNG.RechnungsName_1 & " " & If(RECHNUNG.RechnungsName_2, "")).trim - Dim kdnrFrm As Integer = RECHNUNG.RechnungsKundenNr - Select Case sender.text.ToString.Substring(0, 1) 'cboRechnungAn._value - Case "1" - ROLLE = "ABSENDER" - FirmaFrm = (RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "")).trim - kdnrFrm = RECHNUNG.AbsenderKundenNr - Case "2" - ROLLE = "EMPFAENGER" - FirmaFrm = (RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "")).trim - kdnrFrm = RECHNUNG.EmpfängerKundenNr - Case "3" - ROLLE = "AUFTRAGGEBER" - FirmaFrm = (RECHNUNG.VermittlerName_1 & " " & If(RECHNUNG.VermittlerName_2, "")).trim - kdnrFrm = RECHNUNG.VermittlerKundenNr - Case "4" - ROLLE = "AVISIERER" - FirmaFrm = (RECHNUNG.Avisierer) - kdnrFrm = RECHNUNG.AvisiererKundenNr - End Select - If SPEDBUCH IsNot Nothing Then + If cboRechnungAn._value = "" Then Exit Sub + getValues() + Dim ROLLE = "AUFTRAGGEBER" - Dim SENDUNG As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID) - Dim AVISODAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL - Dim AVISO = AVISODAL.LesenAviso(SPEDBUCH.AvisoID, "") - SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG, AVISO, ROLLE, -1, True}) - Else - MsgBox("Speditionsbuch Eintrag nicht gefunden.") - End If + Dim FirmaFrm = (RECHNUNG.RechnungsName_1 & " " & If(RECHNUNG.RechnungsName_2, "")).trim + Dim kdnrFrm As Integer = RECHNUNG.RechnungsKundenNr + + Select Case sender.text.ToString.Substring(0, 1) 'cboRechnungAn._value + Case "1" + ROLLE = "ABSENDER" + FirmaFrm = (RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "")).trim + kdnrFrm = RECHNUNG.AbsenderKundenNr + Case "2" + ROLLE = "EMPFAENGER" + FirmaFrm = (RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "")).trim + kdnrFrm = RECHNUNG.EmpfängerKundenNr + Case "3" + ROLLE = "AUFTRAGGEBER" + FirmaFrm = (RECHNUNG.VermittlerName_1 & " " & If(RECHNUNG.VermittlerName_2, "")).trim + kdnrFrm = RECHNUNG.VermittlerKundenNr + Case "4" + ROLLE = "AVISIERER" + FirmaFrm = (RECHNUNG.Avisierer) + kdnrFrm = RECHNUNG.AvisiererKundenNr + End Select + If SPEDBUCH IsNot Nothing Then + + Dim SENDUNG As New VERAG_PROG_ALLGEMEIN.cSendungen(SPEDBUCH.SendungID) + Dim AVISODAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL + Dim AVISO = AVISODAL.LesenAviso(SPEDBUCH.AvisoID, "") + SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Verzollungsunterlagen, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG, AVISO, ROLLE, -1, True}) + Else + MsgBox("Speditionsbuch Eintrag nicht gefunden.") + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Private Sub SeperateRechnungFürEUSTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SeperateRechnungFürEUSTToolStripMenuItem.Click diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 14d46ebb..77dd6326 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -1713,7 +1713,7 @@ Public Class FormularManagerNEU Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text - Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz.Text & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text + Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text Case "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text @@ -1843,9 +1843,9 @@ Public Class FormularManagerNEU Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text - Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz.Text & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text + Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text Case "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text - Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz.Text + Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", usrCntl.txt_GF_Name.Text, usrCntl.txtHerrFrau.Text) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 8a724051..f985731f 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/Resources/MDM_Schreiben/GOBOX_UMSTELLUNG.dotx b/SDL/Resources/MDM_Schreiben/GOBOX_UMSTELLUNG.dotx new file mode 100644 index 0000000000000000000000000000000000000000..575fe69c91cb13c246f1dd0f92ac236ed089ff92 GIT binary patch literal 123279 zcmeFY$kH{)|<0(&L41g`_R&R+LNBN zo~!Pv%3Y-(4Ge+;00sa7002M;V7FCSJq-u|U;+gIfD8Zuq$O-;>uh4{tf%Z@Z{nmw z=Wb(7Pyhl%kp}?u_x%4{{}2BILn*RW*o+9Fw;|tQqN@kV*+P)RR`~A@*1)oPY8n~M z$!E|OSwlZPg*sl85!pHiH0>BG881G$nCn+lsj(|4F9?axHHM9j6HxXG)YmJho$cS8 z?Z%=)`$-Htg2S$HYmWE#gP)%01gJ%><%ZZpcgcT9*!4xJd;rABn`2c8ct=>_g?1uX z?|z>@LZ|K!a%Aa0>;HapD;r+Xzdwxcv6Zw1uF|-#rk&D2U1Y;%0skx`3zU>+Ap$8Z z7T`L4k>e%IyegMcVq>)^6n+;0B}aM~KlksxVUK3E1RYKef0b6RIDqG)s_EL&R7#=W z#MyszsU~%Pzd|cWjYHZ_WF-xRT>?x}HFw+NA0cdo?EbQXT`g*l}*hFsX`MUR)2xJ6!p6P~wuX|_48umNsCTM;+(;b27?>~BXm02UJD`Qd+y%45Y#^SifwdutFo@BRCkU+4$;&nBaf@9A4?9KZW_ z61gha2*H}xix5FIS5Ze-EKiKvW~qPOT~7%o{QxxpNEn>5K~<3~^z9;JeK zgGVC?-S^*E|M>w1Q276;0A4&+>+N5(<^Bda^j{Uwb2PDbqNn@U{ePnW|KX7Tw^y%9 z=(ikXfDyP2`U;xwR@~^vD3qf&n%l%!2Zzv-ltJEHvt0fD;#pe*(m6K}pIlf>obzlCJq1upqrheG5vo9iLsrL zi_PDJ`L9g*-vI;oH(mZc{r~pWq&jIkz<|)DcEK;w!!DOs43F5RoZQx;e6dWD8HTkP z-`#Y4+X;jyBv^?zWy5tYEf_L7B+h;a6@ z^e_%g%F4l9UoDmsSn!G0R`Wu?wzrb=?IZ3%A4(V<4`Yqk8d@wh7qA6X@M&7Jwr}1S zm*x>6Q%C~&ZKH4*zi1^h{1BK58)Uj>nB-CQGyON7Au(je_}ey)1K5qwh2P)>EP@3L z7$=MXTST5*+{{4#V9Qp(=dX0_9^9&c%{=*IN&069v;F%Ac~tIri#Zr6EBkWQYkdq) z^IIXjFUTq1{|Ku62@}641^~ceCjbEAU;h39_1_V_(y@v?=tBM0E&m~$7?q+S5oj|{ zSEET?U!IX2?5eD&P);8b;EKpzg=A<{DX!pe?kyU11%gaHW`Z#$xeXh3xH{GLzWPIQ zNRsR4bw_dJ*r*P34f(A2I__p8Cd?Jdx4uNbFhADp;2@X&i$z*YG6_h` z1}BuDHfRhc#1qD>_bTj!fhBAPr%tJfJY4kEB*Fj(Mv0a!^2vqZ4+KHo9Lq}n1h}w< zXw5Q~!Z8KGoF#0zC(Z)cVbx*WluOZugT%2*(Yu3$)&5Z}I0r04KqB#kH%dPtHoDJH zPN^WEKQKzW@TyaxS|5!DB#h(uA4Dv{TF^i}S2(dURG+^DT#-;T70Y8jf zxx)V;;a%f&BY^a82h(4_$sx?v zm#_=uonsC`J{Z)mfRuT?pf7#r!RV#ctij9%lV*9bG2cyb@|$VA15|fdDmD{(WitUo zM(In~+nlyD62ipt%tIWC12f2rK-~KoEHn3BI9C%u4PEj$?hRnG16sDn)8e8~Emyy; z$x-HI(6vaZc3jm~cD;v??WS-M>*Hbg9z4k9BUOapRWR?|J7aT-A4MdyK`M#8X5gfF z@ZFa$%OtEV&P3HXBxI7iz|l76zrQe~DQipWR6PD;#bO6_vkU`lJcs}S6P7kz=lj%3 zx#+8KlFzsjy0(ln#j-=4;1dFkSzL&BSRzsj_y`AlTWI8{*}*r=2~ zFrMQfp;CNOD2=nzhbx~aUx)`U%tvM+wV4I;6T4&d(Q%i}JS8t{<@1B zdm%B+T9^k6j1ViTgF>iFBrX=Y$jla_-ADt<=GH2RuaD8q(jC2A5f&P( zQ+g^snWRt-0T@vZi!A!$!pfho)86*%S1In|ZPKPqrsR4O*GkMha)~hQpX2ivVp;Hm zG_mQb%B!`$Q`myqlk=6*_{5%M~ zd86F%NPuX@T6c@{X0hst-?ae0EG15Dy8Q0sx$jFk5Nppf#Vr`z1~V+o^>UPildHF+ zJ=SxsXY_%p(oc$I*MyFdlZyn$^mNea2H#=ywZhP3>B=PS!|KNsVB__W$ zUixkoC(~UmxWPE&lGE?jU%~d%Qk{+rYOT#~R98<{c#sq(6Z*}3Xc(raK#QophTy*D zSij&0UyhOVKfxJ5=*O=Dd<{s9S(3B3}|#9A&zl6lW~9_@XIu43wSM!-13=sGqIL>I)DpFPJ8>!UE*@y6--On-;;4ag z9Njg$pe}NN>M6-HasW@#p!&6`pw6SH4jr!ItU}heAfgrNg7dUYtE`W4HsSaOjI%dW zf^X%u%qrYTPq>JwFJyUZc=gt|*T-D%1uUcF>x+KF=Jvj0l+v3!7v%fU(d_WBJ~f); zxDOng%cjwQ%^46GyK~*tVrpS)*kNShDeBvG>ZL;qfnQ5s3iGthfWTb$q(4;s6*H>{ z&zj>6tGSlVlD}JtP@Jl3(Zz|DuUcurmHZ|>;b7a~R6_EpISB=tKPXXIN{LdkJWtuZ zHHn0-Sy_rpR0;_@dp0ov%Zic`%@>TkJgG=2;V*S}wv>{evU0^mzluoeSMOx(NF=-C zXsEwnbd@+Ik4cIHmG-wC6C4^=ZOV&CT;a1RDXV+QsZ)Hx=*x?W68`xGUrCFP-wkw+ zaAVaR)H<%+UwoU|)@V9@guV>ny4|9V`&OsS&6Qok@oVfR6O~UvMJNDLTuvS@aSM`+>=Clo+D`~MjmVHIxYKYW2L&=l`@!p}-Asu-*`|=M? z9crZwlbz+Y#}#&m>()ZTL%EA|d}cD~p&xuiy(26wWxfYG2l(W0ld189_Un!3Q_y*u z)%jNG-)r-jQlv?6n7i_0g>ZCKr1TAdP}EHBeIwxNgFV0--`i?rr$Ar+;2BTS8SHWME??GkkMFa2-^#9cVETk@(SGRTC*GWIbB`I>|YZ zCfkzyTO2$rgF@*GhDmf^qccGixj}@mh>WN^$FEb&u%6R>5(Hz`z@D})1+bZ8DdxXS zhQEEHvuHw^3>6wnhohw80;7qoroCg)_jSM!)A-L{k)f;tO_FtG%=KJ)0PPTO@W9df zVkphJyh=LsjSR+&vUr3Leh)h`PY?Y80kRH^U;I6Z==kPpzP>|TPnjoYn1qq%$0`-A z+pSiMLRGR%tt_=|o4{}BU#<6*wuaMYTf;Xs-EPI7g2cgW6xKs!hh;HZl;&O;2V~I* zBFY5KT-)tjPv3D+0jU&gj{}aJA!d_eB4pUS`~3OsGcx_sWR@E;J-^*yi{Z#DVfOx> z@0k7ty6FByje8{KoR1c3(-RX+SHd%?3;gXI?4=tdb_Qm@%L>UR&$d|E*>3ubAy>AC zZ0m2-uqb*+(YK+)jN`jmjTP)R%F_gOGG36OWkWr%7&g=a_#JNCeYCfFZg@8q5lI$s=r_0C3Jdzc@85JlhQY`D z&m6Cx@kkuwJG;f}g!X_B6i>|jP}C*KV*O-Je%!wI!lT=25~2F(Op=GaHeXAvpMA4% zsE-(Jz10h6lW-6p(1yPxSFxEX%M?8I4B6|q87lX}*~A>is(oeMA~~Uo3N%ewV@A!k29G|TR5(w zRSvKl$Lm=b1{B=}ATu>OZMkGyidi(hbi++(5)cRF=Hv^E`N)7(?t_xI3BBaFwIrr= zRo~P%9^sJ{jcIb5ow;~LU?&d6xqQ{rdt4vWN{FL_N?O)73Yp{yLr3x&@ooo*iOF@< zC$YYK$d}Ee8h1{QlC5D#oO%yEFYBg~+budSn%z@zYC3AxO4u*QTXLh@hFA35y|K9o zLZh9pHa4*IQpK1$setb%Fl$yjxLpI)b zu5?AxHpaEAE(4yBDO=mQEl4|x!CZE%p|BwpyZe)QKsCXub5^s)U~zJ&yW4SdGBmMr z6$Lpq3)6x4aA#F_2J0=nxHOhyOxSawu*}RM3|3{kYHcXX9kFs=7cY2bT3dBTi@27K z%#{pXaA<{Ku2kSjH5$oKz$UodnHI!-g(@5DXL~8m8!F7+g4`iuBJoUV{8QGopghBYno>#sFDf`^3u^-A<~f@HBeh*7l&im zmTrp)6ABH|n9&+;oSuMZLR{H*;iMkQ+RX8G*m%yeqST5mLu?XJ7&aVTQTY zZyOGM4JkgFCo+rvBKMN3uHLh7=>-T*-kQ5E& zjGv*#-s4?Py^HH1M-MBqU`dg$4!SOF!K1b&HdhhSLEXCxAw@2mEE;U&C}x^;GP1Y} zU(KJWZZ{vs^Va^d64rR+9%xY>kTGa5<8m6Xbi){8z)cv?X5h^{qrd7)9wdeYiVP_+ z6>QIpxo{kys#v)HmD!(0lHwNHi>~Etx6BbIKKpFsKzEHMvRDueXvl$qdk_%$_EGPv zekM3dp;nAm%}mFSe|YJs=cqN3au-@N1}K}iYFUx-W!*0~xMa3bcoBfhqN8GdpvfQ# z14&i17{G2??+;6SWsht$dTi zwS?5ja@@-FEX5F00JS7KNa00er=d%@eKM--Suo|KSvxdw+LX%er9%xjWviTvy|swr z$g`0bkG&{@HxAe5wrWt(7!NyfCr}H-SL1MUO9*Hsv$#gaJaazKoc_>%3ei$PW%KtA zKq*j;lu-N53-62)=Sm~?A`)s^W7=+LFb84!HIJiJTbU}mi&%|8(`mg-rBpIHwUE3s z>8kK>p(YhI_2G)craH87P;tzcZMkbvZ40pCor55#5-La=IKc9kzKY<=b6;hI04buBix=z=p~^@W8Xw~lwr{V)~q1VBv%h}zS8 zW60yA>{vy!9TN-B^yIV4c`!quR$7#)AM~3^!kQfncws02D?Jm<4=dCv~L2DOn+ACsG87 zz;HO$8Q~9%;TyNSw0Ajp5o>pidDcLyQ+H>7F1hXUxm4r`m{ZKsf zHrAjpuhB1}N9e6GtU%5$Z@5SzhX7w7sXmJ=1lxcEPB@7xus{(|Bnd%y=4PLteO(D} zW`CR$pgSjY6K-BqhP7Ft-Shk4oFb?9N>h+X_JAMMwu#!l=E^A`@r+CamHQ?BA%e>W z?OAxls&yK9UAN>p?RIiGp@ieB?KzP1l%O0zO#?R}lUuV=Q}-Q+5{xH?9pkq-@{~J9 z{KukDeJsT$?ey`5u_=&-01raJfwzHuda!Tvz{f!r>397Cw+|HnB+bRpajSz8+Xm3` zm+X!6=J$y?oscVPPilbgr z#bs~DP97y@=zYF)L}j0$-10X(=-y^G*)Tv!cecPN7xCi|DN4c^0zmPzoIp4V=WyH z4#SZQD=~R~Jyxvcn|~XeBxnfU7tS$IV+71}hIz#pb8_g0s;;bOa=wK49KgMExnEI)`wvaYqM`0>uX{}X?DV`vN3=eR zxiRi+U|vo49IouF;BNeB{;U#UhMxx;7$4^U^Fqf|-G#KaY(bHwfH0e$Tckk`1RZ8g z!9XuvrW6@CP1RM_OBAdq%OYGVfFU;c>m25;ieP!jZLbjA7YMJtLjh;@6rgsT<#)n; z)^NEQ81HD|@nKcPgS<@mslBGiJQm5bQ^v$TPDm6vx5p4kZ>lpAxFjLGla@ST_%D9< zK`8HBsgQ+2jjUo{)put&T=f}R`{|=|A|gcaJXM4J-mXPe2ygnX=mLzF4Zt0wAd311 zs+|Xt)oDdEA;m29o(UmCU|m}-1ONU*rifWFE6w(f^p(c-VMKdo8idjI^K!_hIVb2y z0tIM}(!kAMe$Nw&@sAY!E4#Pjx@&-Ta8{D%)BE&p>eZa@3(kXgXYbFSk})}6vQ7Se zB_ax^emO|pR|D~srxbWPsAV;UUl?3rztPOH=-(ga=z~4Zi)M$cZoSC#+Lr_0jo{$D zYjE+Xa&UKyj>mhmFKZ$AFYY8-WV|OEQQ;~Hx;G*aPuZh(?bRR#7g4>(d$ohwJ@Xw@ z5_{*|MLZUhQM!M#&S+_?tLz8YM!loFe?>g?m>2IJfuDGDhuK1P_XI{{-|KiaYPLg4 z729F6B)nJ%=0@Bu^70q^i066G?w6WA)BplRTc4_d0>t`0gSYYcjGOu+`RMPBMK$e);PoLw~iL1w#`7k#Bh+2{UbC3gz;US!o`rgS723U3!)i5fg7N zWNaHDccLB>Pk;P)W9PfW9rpg_zvG>B6bk40^^+JAKL>TnJ$pEYFBXdbNBx|3e85$v<~MCK6rjC@WH{;}2>V3+TiOO$yRnE{2hY*ZW?gRk@fvGgH;hVrO(tEb#+a__SUu1>P$!L zi8Imm#skb8q>@K~Lh|R9#Z5*`=Hpg+W?Me&?%0W$>CFo4?JZIg0J%%)Yj#ztCiiei z;3(WM=Mqh1gIXPVBzq@4tKUp61stKSQ1DHhb_+cmxGvVd#>c^e&=sbA$i549;OPAR zI1W#v2^22FMm#VVdSY}pnrC;MD5JV3QSW(R%^c5Gs)h4o>TY8|SUSiBJiOfAZIJ_~ z84ISn7jrLoP#xb^BTonUfen)~jj@S1;8NoODC1SarE(4C8RGXm)8n4Vvnl8gUf*Be z_&=D(?r~-un17Aq@xSI6!hd@XrgnDDCXUSia>a^LHe)gw{>}|hKjFsRHil-g2@-nE zn^$&Mc5H*+VIfyNNwz>r=Jo&w#6`M_j={*w#3+G)o8qog3C;_L1C^A? zwQrE0U9bKz4gorikcya#Bt09#@!atJYM?xv+5}jd7%t9-oakm}9EmxRL3$zJY~DDZ z;#Z)ppJ9^2q-&PFXNekkPpr>iI@K??6TuA^hK<1sn^%&SLQw1DEa9xr!Q~cnW;PC3 zbzcUT7566?uvikGwiTmwIIaNChy@C$#Isl#a1j~|i_u!bAk`(Tv;c4z%T8ZftEn2CmutK90y&kJu_WAc&v^kb3%J`r-1-Yx$z=} z3~QbGgDcbd+SQr2<0iE^? zAUy$|;ylS=hI{~cj5=Ds$?zNPP_Du1Y2oU&GUZkky`=E|!<=5{Hgy^Q4z{Y~qK3PF z+w6pu94rPz@-Ve~A*Bo29)uM|02Aa1PFa2}InR=-DMTv}astB^{d^WAWS=Xe*3BM^ zjsIF*3~ImD)N&YJ3%>T7#2+0$Tw>1YKGUHeVaL|~j}+^Qd|SBn&tFLX_Zb8bk-#k! zcmM!a>i-QRrhj4dw^57Plyd#XC%6@$5Qr05JRwsmxM>1UqOjB}YbFK3u&1O$VnkR`|(c3MAJ|)^LDYcexY3c^O?Hk6oJw=2Ko5`^%YQo z(6H z#;6~?WP>_F;5U%hiycf1+Hj8)?g5UVNhsVKY}kt(NnWo^?{9evB&5_WaIh2h7&3f+ zD{QDsw7eTO)FWcq1%DpG?Lm*r0}&7lHVxou8I>_d#EXiTa0dq%W_e{Eb2&sFEP1bn zv3w7I8wcUQOXOa4zYXEC01dO(FoH_jR!cHxr~7(~_f~&4o$&L}=GfO-)oUCN#Cz|L zk4{ZaXdh1p#NUv8$2idaQjjnB0hQougIIp5d)^S|Yt+`2l2fFVEbniJ_*39FOH2C0 zMI_tZPlRz0e@IKjllzA%BCPAq;=rx^M6CT08+i=X-vhAkat2%HJyOvUxfIVnUBb12opGB9#4$nLd;7 zc@^yvL`T9Pj=%+V0N-M&g!XePd<9g5Bn@O0bWv|UAq67&bPi=hZO)Q?%E;^^#0gW5 zv=v8b{Rj2o@^k}MB^6$J@rlg#+6sjCbGp5*R)7=WqWCoJc{r~Q!J*3%ZgCf)XJvFb zb7)^@^*Z(hjHo;L$+Vkrzz{UWE za4`|UfK2EO8u`i6T!OU*zn)yU{e$;K?vW^KmAabocE!w@I!2UIPd>{rId#thH4spn zOf2OD;W<*GtNQF&W|uKZDDnX}?_ra?poQ4y;QJ`_mVd)mKXOvrr5qyu`^Tay4Zo1f{ zP|Px{<{E@jDbtpPK0~X=lso7R>Y&3AjJguq^G+-RZJXPp3iWD0GsxzRW+zP0szzpG zT0Hj*tXT07t;WfLM0PqFOJw}*Rwq*s&zL3luEJ2xEAgO8;tzoXdlW7cn|=?wIb#+m zUa?y?s?Qah1;ZfgPzSkLOAV_kxF4^Qf6P?fMu2?ltI{ANsv=ETDysM7p*DRf z+48=i8n4u9Io7JU5KP6$~U^Z^xNs8Z0!%Zsr9iG8Wjvk)35C4K;*?RnI}@cUl~5- zx}aUTGYdZiaiga>{DL^7hZz=p6-5gd)Y}&n6^W|2O1SPA;VvROjdC?z_R+kd260mZ zW}lC*&)ScNx{j(Z?1gf~{RSG^O#X$y2c-YgLF&tNrVrg&%0D+{me{YlY-HPMgA@6&8|YC@}E<>ce@%d z+ZL}h4C39G=6=JPs*8oT<%FLnJ;!_YfQ`%a^<5ZMZyiM1)Lpo8&}BH!?G=M`c=1l# z8QMBi6Y+oW{Pv5xF?TBG~iM85(x=9A zcZRDFUiRQF2A1fZ?<9JjGn%RE_72V0%=H#JvXi1(EMea*%qS;87*eJuDpG5di{OOSGiwLo!mm9z@ek!) z7LXPI?W&T|uql2gq^3_@9`%z&2}bV0?*=-L1;b_4KUIAE@6n!xJ-@r&)B&b8G6PnM zQgB+&nRb?5${SmQAw8%7z~_PI#KkYvwC%|x`Lw7v8ak=M$MT6B72eI3Lgcp@&yQkI1ifJrb1%S}*Cb|pmk$8O1 z`c&!2Pl1xmb&YGhwdVRrPbAK3*osa@9jjOP(SE*}SN-mI;uh{Jf#{L+Xl&~glrFUq#u<9psKhwdtypwCMJgy6-9*Rw# z!Ko=*wAq9i({=h(7`f$RL-6?9v5gz|2leq?OXwbOO+G3uS7{{UahAeJL8h(q7#py{KVHH%it)3gFTa;T2pm{^nsP(NF zmiwH`3(t-@)KhXCETPQ=S*1=Ru*Hd2oQlM?jxMd8I+Jpl+-ry3+3yofD6BQf*CBvc zcB;yNZJeM>9cC(DDm|@aiK0uwPBE7ein|KlqqgL*q{YL!y{FA=-QJ8F%@lfnblYM^w2=20AYlWZJZxt}dEqq1uf z!C_=gXo7F!mv+|lSyJ#~!o{R{ciGMTO3Fs@($rC_elNLo8#FT0G|jBwby}&8UO0Y~ zH8UKt&`M`d8HMazV#@bHYS0aX;$V+n0Jl1{%UbsZBq7dqH7`fDd^gU%?i0Q)gH@KM z1b~MQy(d0;UiX|-A$R&XTjb8~Q8?wop;3LeGi}W^;Y25#;K&>}iijJ)?ViEa_4nHV7td*GI?TwIx~F#=^st zm>8^NN6sr9oq>A4fX zTZPr_k84tx-A&cJLbbJnK)o)p4S zvy?mGwB_jm8Eh9Wl~UmExA~Mlx9=g>6EkJo0ToBTT?QL8*VX>(x1x`yhc2ZvdKrRI z=<7h)Nc}MEikbvS#Y`6gCDko?g6E;*yKmNgC*7KYR&368OZ%Ci`44N=__|JmR)P<;&Yq zulaEUJDn+HbD1|hp9Qt@HCPf zFny8FO(uwlJ`(%WUj9M#w;9I%R_E6&A7JU7D)4S+@4_}S3anT}Z=+kxPZ|`z1SEwk z?G5@Z>8g4p@~@@w9_w3Bd&9em(jQ%FcAY|-O81OOEsx?-z)R2Mx8EQRpA@0e-pH)T zow$Jn-+%bS9n5yF#}?nzwGAi86Zp0H5&Kg29pbP2ELGpN6E<`CZ4;5d{Du_$?LL** zJ!mx&W{FE>Xj(=4NPWKLfP9U1KL-!5G9P$HR;b^zt428J(CL91=RRtGPrXpR!$Ypw zL48afymni9q3s-{Mw&~Wh_=L#d%s~nUQ1|*{BGJp{C({GVRoLYA!J0Vw^wJ!9YV*V z4~9USK<_8_$p@QiGI9Hq`LcSk5Dg58YT2fJ2gw>iwC##}ciyWb-m17s(!p>KI{*-e zptA~uXYVcYcHT?m%oYfs$oUFRlB*uvCqMu>FyNP$_KJ4l{2Ay3&tx1CUI)OX_y&d* zw@e{Kg3mYGxa%CTkodFvHqIUOe5NrBliIj>drG{^ip#bk*Sx(jf$6_iays<$2)`Y3 zFkoj~cEQ&0oLgrmVvf-{4|n_=xBzRM+aT!fM!_(TXlRls5Li%cF!(X)HR-huD?0L08eO+E zJ`<+hnHhEB7njoe@=i4~7sQaam}kFYo)jp8ut-8{?D@O7(YDNrfZi5vF9yB9egnzw z%lC61rlt}n0t4vMA5;PJAx0#EnMMYWoM7aeQc75uHF7{x)Gm3*0UM#Ah?X8>qGhSf zgoQM-UqMKRmWIu$?e2!5Ib;tygj8n}3TYa+Rn2fk9^`I1dvycEDGm@29McVb%!gTF zBvs?;zab6?sKza^;~?P`e2EiwbVc+wO4!~hv3(flx<$F`Vy~G1#AY<%NTWYtY8tbC z-DM4EA0f&m+o-$+T(WGTZ?Cz9*N><`i|EMi$rNaJ!a|ge%}UW^H>H8N^jJ;WZOl9O z_*9s$A2wDiDaMj@T7)3wm>3V^EC`)bbj&pH$7o)k*+Kv<7P5Y<@kCo?13Yw6_}rpM zr5%VT_)GK0qlD8BXTAllE<9LW31?v7Bpa5T(|!NqpisH7MEj!;WC4JK8z7s3cdi&4 zrdl=*oMP3U!via7weRl38}&kk(<`S{1|vI_y6MrwT&;4g))>$iNcGy~GQKZ&bm{}- z?|RAuLt6%F(!K>4P5?ZiJ#Y~XfnPtB1X#8MoQ_aL1whB|vl2V?lv58?H**&0RT;Wx zn%#%d$zjBZdmiM@(c0A%ln2&du`dUFL0&fHgbLiA@fHGXB_Vrt_<=28G{fmTIdJWsp)7?}gsn8Ki_MRKx(5hJOV;a8j-hH+ zMdq?}M-3W!W^~7KaaNl5p)H5eNqMY#pxvfPBOmSnzxexvOB;Q)P?t0yLrwgDGXN%0 z93KGZVOToX<8%W$c3x{fJ({u}Tj-h|WjMO1n!SR0$TlV5&fd85mM*f*C6VO$N$g+f ziw$ZaofGzyIytDoNRqX)Aj~jnb_a>E3>Is~!6`erlUj83n_p3x#bJ|3g=jyEXFspi zCkrR_C(t{W+P0_mD$$xKDCJBrJ$jDcq$yGe=Z$&jnmcm*p^M=}Jf$7Ie5O&@d^coX z=D;q?ZBdY(x{KOpS_gFH-M!%j`;=6S;|64fAD3G@_q5p!VdDXD;Mr`=(xpX?FhYuy z_ECNh2rypr7kv-4`oKH$EB1$4^MI!9$`NJhGL<;d;ZWJb8E_x4&)OlX<-_mMktqVP z;4rPD?*<2#D)BsqRZnEs8Ak+FOwA93Lk@>$+9Mq!qOIL}y8p=ay2M(7fQ~w`W|#EC zt&kCBGy|E_M@f=y(SNjVGIYoeRWjuSR9PBnz%tUgT!a83CE@`IiVdRQ2-M@#*?}R` z+v&>eI`sUk+^nCGI%Atc%@G?-(6AZP5w1$XC{z)$AHx2yE+{((8(pNK9koaq$3DWS z_doiD`GGLivcT{DicNPB-_nOK=LT@x*KQ8WYqe&n^=)D`XZ1n5+wr)m+Gz!Uy`P(a z#nhK24L`JACWGz9(Uhuj8CAUj>w>4!KpC1*YB;|nB%#}`FA^MqGeWQnTPC$g!=A*X z`Y?$Z1`}JdOg|U&0?UK0Ou0vA+U^bXOY2;!^62jzpV|`Xp`nm@%n`s6Gz_J47r@HX z{7JYrU74};c04LJbcwFwm2~JO;pZ9yK*zuM`>Mr(+1(SWqqn|OxdnP{V!?P#k~^F>EblKy zZu8LK|1ij6; z3IG(7PVPWYVOe!y)X(nDmKJeH^h^?YS}a_%UkGBJ^qTk#6L%F1s=~BBN6*F;9D!TL z;JAnen*10&eTE+WlzrXyKQ>HTXf+6OmTl}TIwZuo@=)q~7srz9^bK};&9DLE5R^Lzi`fZN0 z-mxX}XGzIht~2%spOw~la;w?8CZ-NKXGuZ$X%yY}1N5+{_C#b~cScP$=S2b6aC zvQ?Rqpe0l!>FM~aDoxLfK;o)T$J@@%?=q{J(-SZ~&9<^}=BzkzW-577|HM^304j{% z+A4e)6!CX|apj|PbS;lf?@JeNyqB%)os)7Z;;msTtEgntLJT%C^L*&0;yrwK1LcnB zAGZ4apc2$>KkIQ&*y>=&aluPpKMhBjcY7XhZ|LG?vX5 zvdi0i{;Lk*&3xl*An%Xa!NCf}IwAJRz%xH@x%W}`@8=Yv_WCOh)krAO!YB-)E)&ai zg1tLEF)0-GIb}%@)#`zAQ~9OSgQ+fvr{%B$)!Nz^8F^b?$VOM@Gb9d1KVC+FEpata?Ga+NuFOniGHWZu#pH+vO zeVyl1R}LF{@UTLzk$*HAmYwO-A5@Okm;l@7CXTnXxwPSm`;B)5;BrA7;tD)!85Cz- z-*)etcuN~VpX>Eb^&%Vp%tk1#8Hq~`iO!D>>{_wOktiE<-sLT6ld@lU__O#+g4gAB znMtxoIk6GqDd;-jbiy**G2D=Bs?ty0^jN-`KJ7HI_~Ks|Uw;*R0`~-{sBOEDw|z`? zoecHG6IgsU{Mtxx1B}TF1)>Pb+X#4o>_keE4P&#HW)MUiye9fe&tuRQZCpl^8+SD%{j-(nuaMMKT zE5qz2nM|3ICm68-gf`liSOn9ZxJK3%q96@N1Ai4(ZL~3}098(h{tA^gQR0Cttn*wH zQ#7TmddVKctuGsy_u<#Hlz<$;dkwb`i!%C1LEMH(-#6VAAR*W<^6UL5@? z9M_x|VmPOotvBEt5|Yex@Tst8Oacqi0AAN|G9-U6)h#c~IezFpwD5s3fxaT{jp-eW zov1}FtQ(DS9~v)+4enjFPJ$R4aNQTo=Y+Oh`U7AAkO-$Q=P{dPi!o{*$gl4)Qh&uZ zRn@;1WG>ykwE59+9HtmzYw^jq;idIa`~$t)SJ8OWg>>a($j4N$FM+_~yDMcfW(F5Y z5C$ai7bd{nff|sWv$=|HDiD(^I4o1Gk_bXMOb{L4Lvck``9X4R(S=+{sKL|Lb?fg7 zGi4pC7DCaR8L_UA`)SB9HEHc9!OF@O-M0jYilW1YGPsghKhThuvv!G|f@+`EO8)<- zS6C-0TAY6|OZ$r%(%%#R?1KHvm;E=+{@s~H7H$|fRUE6ZY+BxN-TcRy9R^<~v)<`3 zLIR?-5E+Z^4}1HZbswqo{YDY3Gy8`#*}sDIFV6l7mS4Aw>OY*J{1<1lnYDT=Dp{1r zMUGQoeQ|6xEV2qWSuu<)EM|dg<$FsMl}zl#Qu@gzSxnlLi3b`OAy1iXkxW(wgSR3# z5u)TcUpQjYu;qPg!1xT)5e`?4CL-*@Xs?j9?|JJG2<{xe-^<>n%SfLqJoCa72^5xz zX-DGeI9hSUGoB=44<-KaS+K?|Nt4gZ+ZU$?kIP^R;y6#kK^yW(@dDP7#q|CO>;z^Q zH2Eu9zEKJws%C*{rR>Of^$L{KCl=G?*a|Ab94Rn&s)z8JmGbqurdB&Jrwcd)d)q7JrSM* zYetcQT`x8%5MzVR`?5LbKy2790j$0%aCId!++au^SK0mLH(01JdA@;xn% z?0;}>)%6>(JN`Z) z`m1)>{|(xIZO8sw_xaCqY}9No)Ze90usfYQ+<|Mh>Y#8I7sP&*3t*ga)@U|AiGsCO z_Pv6=J$E=E`kSNYD+*8RIV@4IeIO^1X@!#!HihukcLNi`FYS?*vvF3czuZlp15-t6o zobvpv`C-Hs`X@U{Q~i|fjilWG87(J(XefhjO@8SBTkPpf_VQio{>NATKhy&MYv$p9 zYJvZ$1^%zK!2e-*=6@BH|1&)EKf^Qsm*JU1O-b@6Pyhgxzxs>%-xBO>Zen9X|Ihs& zmaa6UW3gFrdWr9GtJ+&VtP^f(GOF2X(K@tLJ1rDrXQG%7N0{-}XKbB>uMr_36%oLx z91i{crK*RDy)#0HD3p4E{JhAgevB^EOg&UMy3e!3^!wM0qCAkL86qce4jlsj~&B=J+~ zyT*Pc^zFp`#-L7%tV4nD2J$vitw@=SR*JGX$OjqibA^YdBJG(YObCr=Wj5J0xl5)f zNB1U+VR15C#IR?mI19@fV?#c}Xe0gpbC2CpOtZFLZfzGpT zo9fi5Nws3@>GLy!>|Orb&uO9U_%|5XK=x|bF1c3z^TkKwXT`R2yY3Dw2^L%Wb*H#m zYKZKM zoTEn&QX`}V!&{FtzqHDR(|`Mf;cQBjK}~7XKsIiE6NeNKqdUSo>590%mf`MmxLn92mW6)_ z#1M!wa_vo&gS1kM%o4(JXkgxGC8_WGy4dU%TE~}N2=Q0;0%KZPa_a0zPb=%r#5CNr%fCvb&fQX1# zXwsr6U5rSHs1Owa0TB^t0$D0zp+&lY5~YaJf=W>YB3%?jdJ{tLC7~uHS-I11->;ng zx%b(7-*fIc|Nrbf&q~5#l{w}dbBuSqW6YKPmT!0XNtW-6cN);U-LQFmuI`K7njzPC zukSX{+vVB*{Fp-gHQ{|b*sjOz|%EvKy}fuw|9L09y-D0cA0yM zx98mrwF|NQ?_T7Gn7i3@*I&v|S@=}Ce&kkO83QBPc3dTm-%<7(u5t76%ImY+qJ#yF zWOlf%yxAr;RHXX-1<`NHw5Rz><5st)Tg9r|tREy9%sOhJK6%C=6?&Ba=9DFu z|C-$c=@+h>q1Rfz?7E#`OZOAo1M5X&cpRPYE+nU!-f+3Vtv-|>=xBY?UG3~Q7Bcao z3H;=^!VBtI$B?h*G>WdSy*XZa=StXG-z9=hiccopoUdyh^}_Rb9+6-bSMZvVD7!l~lX!{r%m&T& zsCO=bGZ;7CBB3 zU#K{mNHRXzzH=?iU~fhcj;Czvr2|j!Ymp^*w%aeSZ3s6tt$Lda9Ecy=reFPpo5LmN z3(C%J7n~gS?{&H6;Kc4^_aio#7#JHMIKaza&T%4R-ygb}IzZ~*U zy|F(cgx7KO@uE37wjS=UOgq9?%Rva6rKZ(0oo# z&}c5uVsLaI_&;K;FxSRy`;Tyom|x)8?jd^McI5MQJM>?^4*UqN=8@aY*y%F?|C=BV!W_ODk*4X`3_lmmD0OE<3w;-thAF@%6hIbT|0k z{Ra<2qM~DBQCRvpMIqDD5ev#}S6YS2vB-w9* z{VrEGf}fKE3?8R20)=2PQ$ltj{=NOX5B{wK|JH$j>%f1a1F26Ra}<_z49d?WFt#xz zsoKdrv}%SmQ=O7r!0#+ujCxq&nbB#xec$KTA%3wHk>7^6^D|6xoUgZpMo&jWks_~7 zJaJcxTJYA<454CaenL!@ zYJ3ItD>K8&-UqW0gh)mQJ-JQam&nw<53e6$BMj##XW0nBxJWjlP86#A1obDQ7IAC@ z7l|_AjATX{F5|S|KvOn?0~$u2t6(DuA7+B^g8?lzkMx?ILl)&vxjo66c z5Y)ghih@S2qM$ou+KqfXY?R7CNwX2U>1@O;(!5aa1!!y-w*)&CnA<6`5klM8h&#S) zL=%I#iH)dCPlM+5k(7BPO&-relFHqgnr95z2w8I$Ap$i26dUmoOXum>M_QOi-DD#U zcE2QwVQIU@m?C}Nr$kp0yTuWSHwJ z`R?YT(#+N&+yt?{`KgO4ZoT~YteL*3wZUzD(UTni=_Wzcp%EDta6RY~)w8zZLm4wt z{a7wLte)fB0;*4FcK*cP9Rhd8i#9%Y;0X&0Yir3kmHqz0Ci11+x~E1Kc$KH|3FDTS z5FqWJd;4d@BG&Xr;Wx89`Pc~5juqm9PUb(Z3ixTJ4|6phUc*Lw(*0kk3aIBeG8>VX z5n8}N@zG3|J87nwE@y%(%I#lFkT$Bk&v+jj0mjw%i;0 z87W00(=EIF93Av!DF^&i&BM~=HfI$onC!>g-0>`>n}O`2&C!>XnOtndqrm?wwdKFYaQw_<;(uaVf48DRQ;)H9InE7XB zuqfm-MEZ+X99gPYW-{@8r22nr#s5xs@-wX{p1X_6FPdIp9R3n0{?Q#@#!r3gjI(JI zuh89{-x~fb+PhJGdL9)gW$)G-Hly)XK>xVR-Wb1(6UIKy>2$Fz1~O^y?N!LphJN~@ zm_vEy`l5(GZDx-jC2*I-SEGsu(>nb~QLL|WEmU~FB3%4*^Q~uC&FEt3pC!NWXZ!$r_wb|7MyQ>ka_=4czEFcf74C_=>MEC`S(oy z+raOCySM)@vEQQZzj)>$tR(-`ZcWqN~m5dpo)S(hy>mN{jAa6@Ko?Djrv1MMz^*}|) zK?DD99QqQCCjUuj@b_qxJD*eKioJ+p?*U2N_SQUF$jb7y>qVD-*n)!H)?-na+39}{JGlN4YfAjzi8cQ#v@chF06D`) z*)cSeGn!6O9`dG8pSiG{k}BsB?o3-YpZ{=imJ*H zVfDj2+M82UC<=vnN&MuGr)jzN-`u~6 z^qP$bNkdkgt!kelFz>pcXrcG}$DqzHRb-kKaADNM4wmsCew7=di9+-p%1cQgDkglH zji)1tF_>W_Q@@hp4u}1IIBIY&G6-69wA;x>RAhqKBdiHdqZ+a}QA}PW^AVKYg=E6m z8>COHfE3bJHsa5Rvk}7Am{K78JwR25#jM!~rXzkyJ_I!`0VF*MV&Nc`<0lXe%rnwq z!>JK5I?vC}_#p?GB@zFSM9C~-BZgFa= zzX<*xPpCSF;$|bp>r2eoh+r!c8zGVUTVJ5)pzStqP;_S51QfYS*T)@UBYtuMynTSC z&PEtG47xLS=dcm92IM4K6#8}$MBL8-H^8&n04RdSkrh)WzT>mv{3aw#%dMb!r;s#}kE8gLL@Y{c6%5|zbJ^sPYJ7Pq~Hrc zzjoxA$1b4_71oStFN=l)-Q9ZmSXK$CepNH1nu4!V=AeyMd!e~#Lq_dNm)Ho5NBX4s zIRns%U^%~7!IMRznt61;uA6;g#)Stzo-TLJ|GUi2tGq}mrY1AmAxJ+e)JjW{>_D0&_NSt-iblx_T0;y(~* zSdLR@u`g*+Ju9K4%4ZX=sB%C7qo-4@Ix$RtdWCQxBQ#^#F01&a>H^lYb)f#5%EFc{ zEXL>}VA^xo|e2ZeYSpAN|;;*K*lOC=xQY)&_~sm_OiA+{a`Z@+Lqh`?&d7)x=# zKSN<73Rb3FohVbaH|M$ooGESg&8o&bqYw1ia8>7&*VSq9#MM4|Ja4RoZ6MkyP72Xv z)n_^a8EfEfT^ZWb%wAJAVqNm3hM;WK*!+LH^X{h3+`Y=onua17zSlH5cSlQ7`9n#M15RNvy;k`l_M<$1eGXlJh5 z)dAz2tJ|*C?YY9K_)7Z7+7138@3CJsmrxG8yHalb{q045X2x1cL>;v#jHyhSs<@ef z*LKe7nJCr`y`VJv>ZPr2=S+V%UrCrh;#neW0rjUN3yBW^`O!_TBFlJ*C+qBVeUVSe zxm%lLrlzLI8`7@;hSN9PQBDG8=)tkK|KfBRX9NMhl8gQ|}tT^sTIm9t}E< z(X|waNWKzcjO@jKTcDw_1-_nlcoS5)A0dGn=Q@*>Ev=sB6`wRS zj}4s%B9Tt$Zux!Y6uSpu*O%B+$%CZ(IKcqj=HZg|64R_B854!nS8{2w6=UNZvdOpB zpiL6Kstk_EUn+3_^s>exDg@(xbg>Z@2xZ;6s;d~_(1vm&Jvg)8UC4JQI*)d|5&6X@ zOLNp%T<4hZzB-usC1^g6*!OrL&#{EGtju~`f@Da;^?f3&rzOH`AqUEAT;#cPyZd`> z)f=>DChhbZXdSNvxgZsfy`Fm()RK3A=Olm7cUzfdp?eOTD?DU}l|;Gv-7JM??u6_j zB9_4W?<`f>b~YmDK59e^)@CD!IVd*5dShq?Zh4Ob79rvL*jMVnwF?8=aA#5dv; zHJRjy>TiPR0!+Yf5wSwR)nJz9wY`9ID%=70f;J5X^6){Qmhr%689U85h?--+W=!Ay z36r`8)k_@VgL#|S2!(^RF*d?M(GqaKqok}3Mgj9VRDK3EvJ=|EMu4^7gjMa1iDUrm zKQ)tRsO8}R^cLt{GaDg39j74m+vw#^ z+-^^+@zlVNi|*WTC$hk&vg?#P7p^(^P)h*mgET2*?;VINwG7A3A_Y+W?@1I(bnwjP z7LtpZg;mIQwI14?cB!h`j5!fhPC&H&wT{p8-%k~|?2pg3U^aD_N{2sZYDU?Gr!Hao zi4 zVS+UY>p_llJ>tuWtjGWx@i4#%Kw*g;_i|GmoVVo{E4f|g_*!@VO6~6Cff#&kA}bSE z{>#ACeY zL>tAh{hwCnZC*TUo7<#4F)byi7q+g6rNiFKao#gJZB^mH5vr$b9!>+4bWK+d$gzSW z^D)G5HSyg%cU6gRX&r;&NvSkH`v7D2_1MLv=ije{-w9$(h^Ip;SLz$yM;H$i&aC>w zyb}yB7jjX@Owypx!{v^7_29*Oa4p3ldFYMQy2mg@XwGD0#GZUjTGW125)SWY;u%8n zVU8p})J;30!#p;;v4)0Mfm`dPLRWUAL6`+7_=i=<(hd0C%>4x{Fpk3O>=_WU(|)({}`qED|SBumFoyI>36vM%cTeIcXoxiO_lmGAq+uBkOiLyesI&)p^ZI zh(1U4JuEeVWU2ByRxTto+oqyeh1gU&^7%D8=j=RHN@h@M39qR#spmnfwiR5?hSUlr4g?Oxp3t@gP`0aJSCQBs>L^=ysZAu6%TeZzO(4}(0RUP`W(C67wm(=+>Ys+wO9$N9)62TtuJ z*?eXms-wIz-PCL2O|xH-_gR2;EHEJn$IbVK?wjz9l(6X+-%%r!GuL;D-5 z)|*lq(}lc1iM{K6K@_C!m=fz&_Ml4x-ctF7&^1D#KH)C|%xUR^Na5oRPrKV+tF{Z} zMLs|Vd#Yf%2d>wXIHfL(*T_VgQVSXrs_b7sCJtF%U%CQxZuXGgAN|qa`7YqjLu1rJ zLSFlGe0gdT3-9}u?#&N0IqS^BiM{rSoSfaIq?EGdwtZ-q+*FxlM!u{)(m`R}ubQqaeSBs|EF^DWD zKRAPasB*S|Tl%PBiE*m7)7n=Wy0zS-h%?K`&ave=RtD+<_CY%c$sni32P96YesF%uzkz3I;!=~Fb0017BbI_%4{kv#+wT-X03-oqxsz0{0jdROYVkc9* zQ72u(A=d77$@7Wj_`0cuK>SzV7R8ZQTijGro9#-G4bJnnjgP_1U|G^O{Mz}cvKx-n z9!d#nKtLc-eN|{?l8{fH#>;<1OS&qmhn9(FtKrVI;O3`{16YX{l2325e)xLD`-R6l z%y_H&=-z3}yg$gASFzp}5IYT*>nOz9v!<`Oql%DS@a_VG!Lj2BF~`$8{dkv8_t6aSEab@^s4AO2UCdCD9Cd4KHV6Z(B)x zOj$Ey$qxOAstcmDPFcc^ZQp^n>-qw*cy zowNn2B>jAIz`?XHejag^CZ9>NrjuVg&1YSUBYSb<#7c;EXaVMxmJbVXegT&w`3oRg z-1zmK8AB8O(V?NusHSP!%*N;)5!dGpH1;pdUYkW*Xg53$#tO~{rWCOea-)sP8uj+E z{qi<*`512yJ*W@kF5+6*hMP+l~amp)_uZv@2y=l8ng^I zOyTX{Ri_=P4;??1aUxu!aF>Uj17n_i)%=i zNc|nko!rtEn0CmW^q_dtfc@w=%poou*k$A0YbXCs?}Ekn{Av(3mhh%ydT3~_o4kCB zLYkhVw3EHF1_Q0NjAkYH3|)l}#SKuI!q1#^*7M!26Jt5yzGByu@GuSrh)~EMp?lsk z2B8DtI~5gmI>~#R7EFe{e6Dp+e2UiO5pFui+?AcWIYBE z3uwo%I<*BZ4FD0#b8N?u&QGI=Vc#j(_=+Lx187v$s^BI-@5~?xa8zUWXAs*xMR)zb zWAq>NaxL@$`&pbRmI|M8qBg>xtzQAQtpUOiS6u0Oz$@lMpO3?b*oZEZHq@dYu|-=M zTs9q|Kr^3c$r@~gM>?$hjXnxcRgX};-d`*FKl*nV;AnAGP&o-jIirKo?^wiknl8Vh zUW%S5O4?H<-eulb3Q z@xTNSAdQUm{z+^8PEaTig;l1xE@;7m$3f5DEt(!O+Nl6b)J;K4T8d+0vr z)!k2yf4||Jv|ilH1|D=XCjUkr7! z2ok}m5fzO>R(1!?Pzi-n!WMiF!q0$55vo8=XLN}fu8D4C#5CJl4_BWx4Q?J%4wu4X z#LoNQS*PkkQi1w=Ksk~qA>VzvTz6cp8kg? z>TsDxfCJ5gp&PKb9X=fGjjI=kp4CPHj!fqB(2KKGjdYaS#T%cxy!ia{v&17GsEt#&=wLoTynZmpzDjw!NO4U2|o>bffOHZg@ z2~Zx`JY2zli7zY6Lv~v0$z2}4uqd2qN(lU@{QR}|-kUT6v@I`4N5KW|S(CVfA=Q`~ zOsq?D2>}eT;>)prxEub83)4b(O@Zp1Dqt`Chqxb7Yx`Fo?rdISaZ}7(Jw!IVQ8sw^ zk@0CN)uMC}jB7X$A_$WDpON2g!c%+7_1(M#NcL2NdyNSyrTRQ`+jU=lHwtGO zO+DFioB0G5TghNb4KO^v!*%4s_5{k8YR!&l5Ews<)=!x<-t#zuZ}iHU6aGSd>T&3_ zCltj2+R*)p(XK16RXXOJcXm9n&P8P|Ea_$hFFbUhjTpFpPkK8ah#Y5@3Qg#oPHrvO zA}ypdX#zv2v;S%j{I5BWhJ*#zv2M+xuHZXI7Y2oH-N5Gik_R%sWKEb?$~ct1=1clu z9$`~bupsQ8?{BD#4Y1gGM$T(g9R7f-ppwCVMfq1?aUi8#e~1g-LT86Asv2&Lw}ayZLy_V^->Z!5R`_ zbs0~SADg*72z6qYi6HeLJU~@xFSe!N?OFz|NcHNX<9z)-ez%aj?(yEb%qQgf>9GXu zak)9-P2}L&z}1YYVSgLJOY`*=s!}U1RsqPXUw`D)AXme%Qy|1aGGa z*#=oOdG)GEvE)w{T}iJlc`2hVO|cAW+);W3vtXIJ>r0$T12X^BkIY1f0{^cf{m0K# z!n4s^+8CHuieXPXxV(`S!!&0cr4?W9cGGQ{hLJ5@dENKY_geRHNzZpVPTe(hA0Unh z4Wg@*H!;u9Zf7%3P)9RYy1$mbGJ{^(8g(5o+Yx8KSocvH@saoqPdmg3;2tWUIAcV5 zYk146G2a(G5Y~LwR^@=BR_Xchw z*tXj9oURNUf?X|e2-lO7iCL@-=K5kQhM$9fb95LYT!DP!9zt>>cBfXL-jae-BQZ9u zmXjUkueLW=>-vrA-afg-Khg$6H03j}%G5GYC}hZGsic~u-;B)Q^6oYr#k~a~OD;KY zhcEi$&7zqRs`$|!zd`+YQ;NnrJb$4P{#HL-TY#2pj{~V>E&7S*Rfd% zJMQGOw}aO$_O1kCm%f1^nMWV~j{_5eP#jdIX?Vis*rCSN)fP5lFh zLtB8$^4SQMg2}S44{X?pU8N%%WUhL!5!(TA*B?I&9puar70kyh(rK6fREYGm;-sJK z!%WvQB>~{tMv5RTO$~tC@xmmDsbzau0Fbti$hGLzC6GgbgCXpWTI@V{@XQREwO9Vz zwIU||G7~g84%ZGwi#dt=^fUHo2df)CN$Sr*&PSsnpyg8qXqJrYYUxiAAueG6VupjX zeh?dR)v$_M%LrGd;_f%90CK7mckySJ|3~+6_LVJx>w2MFrAS>Qn3pe|CVr~5Tbggs zD&bqfE}JrRzEgd{qll!tw{rdWWNUSlTfL>s)k=~pQOL^#;Q;kR_>6>T~?NX+pscBE5?z4O=xaw9dPpDXS^ zc!oX}u`lxF^h>U51+4v*2|C(%g?kbKXX{p?$+KO4vN-vtj;9*-&u1@p`N{`e9C7((|zTg&Cuk5a@>tZsV2`F z*VSU0{}7&!d7NS$O%*Sftk;ad=Q`(+Cw!J?V%`>Lx{(GLdSlX5zsMM(%2rNkQe+Z15?ZE0;#RZ$#(J9fg~IWD|B!JGC>rtHjY^dp0loaMw3$JyDr zlf_XmJZhYgY!Ky~e!XFbNK{p_vHX+dg4Hh|zB~=L5C}Ls⪼SyUwXpKWOw15uyy zqrW!I|3Z>Vw|jK(^QhK`v-j_v{;uL_P;Ik$%N-C(%^iQXMa|>zj#WS$+;NASu^?7| ztz1cpSizX8Jm`_Z7`hW-`xH}Id%3QsX_CZ^n}``qKB$y#GdoC} z%!eLK?n)`~{Pw>FVEq;J{fF8mqzwYy0A~Pa%2+{wrn`#mj6U6>A}!`XjlZ+vnk@Xz zvOZkaC4h1MW^CM^@KW_`Cz?LAU!x>!I0ikZx zN6g-$WU00|*9T$|Js&XKTA|+3?M4Y5J%_g3GF*B}aUUED($x%51RkwM=>BR*?>H>m ze4f-YYQVGq)9pNu?@m15C7DuH{CI|z%4(bHtW`&|Ev6A7yn&WUMFMOiq41 zvEsHOtq(G!h`^tC-nIRXx7Hk%P@TsxH#sfS3R!nZ_ByULx?9>dDogl=BaJ9m{L6f2 z)AS^Vg;p;mKxXBh6Ie`NZ_k--V;?WgYSG+}hWd zwdHi}A?7{MXgj#dZX1h)x`O3r3gm?tEgFr&&D49(vZ`Ms@NvhCG3FgEqL+uyQ3N2X zWHCx^Xg^740v4gPCkP}brFYf3UT|JBV{{>0FNI@Vl!JyDDU)?dt`yo*7`>8_%}fmx zZMwJ(KXfW_i>Wne+d{1wv})UAnwSu&)$%E?A> zr>!9u`b69Vnf2`)Q-JOBz|4_irxh2HWrv;^98J`g-K8KK{lN_o-;6!+!Q-Qk#U8|B zqzZFfXBJS8Aeue48(_6?^dK7EPz>tMBvRqc9m^!Zw^`7l0THkl6oCN;Nt-VXmcir^ zdEo7F%J6M4L2skxb=;T4K~(^X0Iwm{!=S!wARKaKBUV*W4^cF|NhGL?`}6gQQ$wGZ zMg8n5@U)QAq*ZP_ycQ6ZsMd2RCJfPd!P>4L^>X)ASwv88&_@L~~{2Cjv09cHEMP}nL@+b0u4ECRI0GDYKFBry7?_wh! zq=&K*&%jarXl4*gzY?G`P_uB0_%HNW>K{8y=->VIpJ~|tSbwo@0Jv|B;}5t%Gt6eX zKp|vaZL@*kvVw2=52=Dd9uCXlIe{OXo`jO5;x)b=IM`0Q0QBYf+3OkG^!;o)kQWbT z7rqd*6t$emjP`zucJ-6)a$n!{#Urn(CM%$*xxH7FT%QQ&yj!~O{yM1p@weem>tL3^ zT1RhEj51BpkeSvvL}10_Sb(*giL8SaYy@2r1F#zW9sh6$zaohpWC44}m47`KbP<(BcI$4~o(~L112d3+CDL zcu;Dj4KHF>L&1zAG%*sGvF6xzB2()qXfCLzl%{xs6j*KoFhXEn-oFf$1GaL!vP=*f zC}=^^s*zOD1Hj_&5c9(;&+$bbxiCM}56yP`D zjzFHK>3#qRuPa?&Kvb~I^{;!xkg3m4f^UzlJOh@;16o)`d7`2+6<6DS+Fr_x5KSJ- z+U!%_$W$wKVk0&KjlTyh`{4z~H|XU%5}k#7PpGpJW4VA^{&k-{0?1Vb^y8)TaQSZ? z`BMpQIFhmhUE%c(U@ZDO+$6s)EQ`@jhLHWTnS2gc$wB&(dCaM?#%>;1pb$uTm3h7; zS88DHjwiYT% zQY}v$MlxASE1mGwabgas{{?`4hU9K}czsTGd9LsCRI2iAFRfI;_#pu`ZsF{AvPZ5x zp&!_=UP24Y<1D*D*O*vVZlCx5o{TD`)fv(iq_p?;Pf84kJV*^6X;z0vW3Jg^vnR3!|kSsZY%|lh1 zVKu$)Ol11b`(FB#Ou;YuAB<>HaNgqMykiT<^_(WT1K`V7j?E)aKOb!Dmah@XW$mv0 z+_cB$-W1CK8`a%wc*^FJJYq)Qd;A3{8qmumVZiYF56To!kJct;^-bArZ5<`G=3crI zpJ=$Jw$l^;jI#h2JJ7DbRN`8{o9LY!xeyOAyl_h1y2@dm=&XUbjY%sRS@U=%vd-`E z4ZxXv$JzZJQJaL!YecB*sqeHhuhUIlaqK!y z_T$*;;>BHa#$Aw~TYU-9YsE(=?2BC0$h(_XE^exjVHYzShHK?O60Aw)H;uuh;XYyW ziQ&*CXW9mQ5G!D=15g_pHp8xkmWSu#p7H{ zRrnm)8Dx9w&@g6@43_%?AkGSg#V)(D^IOG@YCt*)JypQUfg%BSa13AS&^G^ zNkW~TAo@kdd?RSF25rEDVE~iah)ueCOUDS@&xfR5s*E+7YF$)vs~zCq-*LAs9CI?s zx^1tQD}E^+Bcwu@J9w$>CY)RGEkay?cYn8n+<0sxO=f#`7ADr%eJ7dx5;Xk%gWub| z=kolgysEJJ`ZbxkrXrn!i-_b!%mkJx(g6#+XQi+aARZNRCW(PBLK})IAwC!3?Bz2z z;$TOj-}>Q04+h-YZg1}M@#*G1xQb^0F20-t>Q8_W+wKgy-?E0)T2l~ZsY4&`wTktS zR<$mYC6>Yno>=ijk3Ri4%NsFIjg=(tWsUa6fA3oClo4y#|JuS?PdU4Y5lbf9)8m^K zbzG~|zr46CsnfRfh4sZ>%R9DbJafJ3gv@3ZK*?8#5}9=a_%4e<>0$R32YmU;ZK?5^ zeW)|=+Y(_4ejvV5Y5xrrh-L)xg@ihvaqL;t*)DZDUgqJ(mn_9+r%m{`TCMWZHTx8- zuCu<11&l!Da`faSU9JrGK2RC}gmIb=O#>hDP=DH){@x5+O`paU;N8rWzW|5%Dd#fO z9|p=&O>Y+~canhH3%e#XCI?w2pY>6h+tVRMMX62bA?fP$r>3{(;Q|L56v@m5?j#=S ze}!6f=-Ug%9t8Td86;(dOxulSN%(}4=8_;-3)_ZloH1;i0VqRQ3uMv>DxfUb9X5g{ zb%BpU$^UXC=%2WdA@kVu5FF3~mXeU@Kd|{c04{V?B@;j532y=X5EqDNQuk7QSPQ@a z);hm|$~TkxUpDPsVTG31;#an!7^g^?SVDL77vLyy;22$?8N+1eBT{Ps3C5u*Y{U+_ zQR^@1UdpMQ9WaVykCswqdA78pSzO`Qaod1{z~R1^iSc`py2Jc}%YqQ=#&@0Yo1IwEeQ%;pKhX-AlTg437%phI zQj{*&EV{}Mw_rou=TWheic1+VFThjW^|Y-1mEZzp0GM7YhY*=oFD59Z)pK{29IRVU ziH(GpJU~3Tr8{7CQS(w5vhHDjV!L<2`{1D{HAUI$3f9&<{%x`w4U z&Qq=OG+tg*&@vHFoo8u19^AJ`wUjeRDY=y0I3#kag_s|x7btJ}Ca!O?-SOUN-;Lc= zqYPI?&QDwKtkVuU*)hSx+;X46P3Wp!&cSvYmP;x}4`3h88+&;T*FKmj@Iri7M*7sR zHJvqO3@zYDFArqbM7YJbR5y3K&IV%Y#&J@Q&rgof>b|`y!S)rS5&?-=%K6(0CdK6* zSip-#!ho`rcG7w5gVi#3l}D?!w?-3BI278$v5p7()T&-`UneRb4njRt?Zee$^M%48 z2Rt6PiN>O=PNcRn4`x;SZE>NA)MTtYDq`$Sieb4{4(>@#_KRt)M1}g6HJ=S+pmsJ| z$k)roj&8^rvT|!IIDls5ucOy{OwfDs8Kt-*)`$q971NoH9SMr@Fqhq3sq)e>?M1HBnDhIzq z9!a`XNK@+9as5msS5-yT)Lnr3PCK8!I62Nn+<5Z9qV^sBU>Fw>mcB1+hR#&$3VxvsX*PP`SKO#HxFr87Y2pReJL| zo#T$%Rh+ZlYwcKKzyi&Hl^lp8UD{QqK_lxiP+_|AwVP76H_FHrG*gpKNBBv#CK!PW zh9>LdLM+t^t=r?MJ!kb^*GhuQ`;%gpHxPoiZd$f6%M%^N-kz&?u{U?YXVF%??lNxZ zc6rOk3)}Rh^v`yDpqJ`_bUSDEZ$a!Imd^e6q(3=UL43&#Fh|`OZ3?cVgOx4svQ`F3 z9Do37#nQFe2x+Jbg<8dk;h2~O5Vm6HPobIn!GcH)6nrdlDSi}KtAImGe>d^=x7Mfp zVgG;MDj5|Bi+vr>OjxPFGj!%6)_6QU|Bj5OR>CJJ?_ej_cCxo%oP@*o24%Y+`n zPIK>|72li6pTH=Lsr{x^f0bU)Aa(QfLx3LZHtYx8QnoI@{M$gQ3QBl_=9o@Af9g>6cLD3^&16)tYmk-ljZ(mp*66}1OpOChwNtE20woSK$?B9e0N-#EfA{+*Jn-0Q=WDkM22X( z4J!`joKkBp5qICYUVZ-gnsdmK?Y7OrEyIYV+%TCNR=wzjI^;Y4e>gf6_?L)oaCQ7*i2^5^T_hYW1d>rF4` zFv^IdODMtm{cQ*NFHuGM(6eCb0!wNaS@o;07F$tgZctucm$cl-dYjF(8JyYN(2u{b zYfT(ne+j?hBd$eiQu3R$ZGDgY{_t%NN@ya{ZTaoX@-*kTW;0K(1J&;QuJ6+#Bic^t z7;h)NBGP2#rxh~ba?)$3`>+JIa}RD;JI^vHEW=7F8MZ=xkZ+dd+ssCIwnpL9!xtK- z1D;kSfg+I_UDFvLN}r)irv=VFJD6(}y| zHJTMDeMD|hX)A3CFiva8n6z%rJzBk84E5lv;qx^l;ZL3}?{_+*#iXP2<9$mzCQF)8 zCmP<+9DOCe#mzZ&!5Z|%lv0c3c2-=;1;%E$C3z3)skR$G;W7nIsdKtMb=&9i zP=E;WrSE4#uA$3(G5jR;O!D?HmlmI}DCZTlWn+~~%TvjSCvAz|xR+p-eyji0U`~~B zGF_;R(-YLtN|F>THObv`hVnH_U@3HVn{DJ9^Ve;s9gJo-cPzy+w! zp6FLYIHLM&D^spzu4fkIbNf?+sIrM7C1?p$`u%*){JNhAOm+Y3GUe!UB;`0EEU|Ut zbR<(+C*LeNTtOJm;w^hDzonzku6r9 zPgIa+9$`VE-qYA$yD#>MfwRtojfqiXCqL_a9slQk9vDRI1Az6_=2Xq{?|9qnW z?kh4sH=bb>p!`kbN7z&q8(ZM2b@@)Ed$wVa;;tT|*h8<)NONFlWGdiDg?( z(<~qBm8QV2^%RXH z9<*3=tD7rVJ;Bv|B`cNQ01WS{3iI->3i{)d0Z?S_yM0i(RlxquJS%1zr}#xzl#z?_a{F>58;Jg$a&|%udW=XZLR&Of^A!aY#QCIb>-Tzgod+KLQc_>=A~8duKQW5r>h zdhRNv?D_VQY%e3L#Pvs}1<$C}TE^Digii%r7*O6ooas z)a$68kmIZou~i5p=-a5LzGRZTZ`OV`^;$5UvvaDX#$jgirX;wsZ^UOn(M$=ty}ryM zW=4MW!XJi!XF8rK*~9R8s&3hVI!};s-LtLO*^9*aaF`Kw?P^ZEJdM;IEX}O^p2*76 zGoHfMs+S|fl66?gWqW;nhI}em=Q^ig@wVr!Dj&iejzt!F=fScUVjW<)i&`B^Nem>e z1r)0Muwf7{{0-)aw63j6Jm*>GI(pSrE9|1HH>%H&zw~X`3bC?8zfL#f@t#1rSu0w} z3ld$9nCUcm4w)F}w2tx?x2U#&X9|?=x#=b9R3Jt#Uq12&Avmy6B#LJSQ*;gb9<+WD zEOYl6=zBjhC3E1Rdw^a0{J=mnNWuDW+DDEVl|)S5mDwD^+Q&*M)1rwiJJ6H|u@U5r zM7S}P=42W-KgG{!nji3b@68W|qW+QCy4snu43mH(EF$VMN)-1EU=R0z2253P(s%mq zs#<5B-h15ugs$}n)?YrCY)t&7jrs%@%6Ka0T46t=XD$%*=X;s>$ieBBNnhoxaz-0! z-4bJ&(WnjP-Ad5>qhD=jO31+wgk^-W!|4zTpkZ$b;214pj3oqkK7oP`}PyA--|IVFS{!}^;K%lQ8{0*EHiXFr2e6~yDWA~c z7|g;7An)v8GI{YBP6&9Qcq=wyBpmtYMgfK0u<#HShoWs1TB?+TouPjD#r66S3i|1> zKfC6yO#sZ^zgzHsL?5V<`llLuXdsN`J^G7!76A1GYjq#^RS~`*nd^C02f!K#6%u6= zbhs7s2(0ZxGHn?axY{2NfVhm7alYvl_j<6D%iW95cITmu-G}&!2lwyzz*P~EZFX}h zz~QFqzNK^%|LS~}#arE|Sflm~$;hs>j?`A*^*{ZnYW~yI{_jbBr-X3hr>2%cb~sv> zX3j=j>d<2&S^~r-tVT(H3WbN6SVkL~imGR=2*Gng`g9Q3oEt6wqy7KmcWh%LQ##-q z63n}DUY%SMk!;yaqb(dUVJ^Ruw7{r3z+=JI8tc+ho-U;f0p50nWeb)u^B& zdq2mZxnj|YW9JCmbcZS^3{1?kN-^Oe>UGfe9{5V>d9y9vFFwG*0kctg%?|8zsnC`> z-tRn~AH68L$VF1X2amJTC6$mec_3^A-&CB!a8p=02<2xi!5D3m;M)I*jL5l*>*Mb4 z2)FWeu9RuAFnviwF2)0+1f;)?$8a;C8xGXfuE-0sYJ9XIoiu{rqQT4QWZr8-v)#_g zC8%#t3|59yEGRvB0RG~VCiK{1W0DA3WLk>rc;AK)ZQ7UplSSQ9V*2UVoT1hFryft^f9*#!M;ObG|i$k`p>l75I8)nScj+FYzKXX zmr-iJVHQW#)*_7x;I(uhi6&}?5d>|8`tKdKHNO*h@ygOE+if_sXs2L;)Tr+Hz-t2x zO|1jZgSAI|Ib!#K$Ax_vFSrTjj4-BO6c@A+@LLBBl^u=#axbTHsME6qHU1b7>C~>H z=hOwik=B7}z~aj!#kk&->(Dwpm37X`QMb0n38$ZM;-yH=>$eAI)(@V<`9-?y9Dd!B zyDZ3y5^*F^<%QepvuT)Ygo|VVsRrPJ{P?=3gNexMXnnBJiz2#V@Y8uz=g$ zV;-d`Ze;>SL6L<_eQ$olUDcxs*omnP2c3&|hTggQO;{Q|10txE`rJq9)K)%5Fg8BgAX zKBJWT_mJ95F19=9*eO~NhFNaJqjj3XEI-=2p9{#0yn%z?ric0Jq)`Z^v0Tcp0~ zV*Rw?=M4^w{f9YjV;ecCi$p(9o#=4PTAgaQ7DISCl!O z5LbEdrJjHt-xMZt`IlFI`4>;Qu65?}ui|@08Y0V8T0I+@jS9=8IRRVF3s)X8@%2o(Kt2l5PDVn&lcebRiT6 zhyi@k_fb91Ee;fX=XnYHfzDVuI=vX0Id>H`K7g8wam#Mu`0q!6ehunS27r`C`)ObQ z7Q^l4&EbaO#kA=mj2BD~+KV9t8Z)A--69N_x`v}u{eIN1$jyNBzEQ|fT2K6zkMTKS z^nJcqNN$Ok(YY425g09f^19IwEm3sYQ>yp)TD9o;Qa1`~%IlspjN6H;tt!$ExI(85#;@Ke$7juTu0WuylORw#ZFVuCjPD6%*AW*?Td zHtZXvVg_pZMu2gOtou@k&1Mj35 z?~eZ4*HQmpeA@@4>#g6aC>f>twI=D^Rt+cXih5|R+bn7yx>yMZ_O`g(xP1-D0~qF9zCrjJ-*=|VVNsGr zoStY%tbO<79JZ_H>~cPWJrFYN$We;zTFmPxM8 zCRq)4^^T$iglH9(R~JbuZfZ;U7m`}0nJS8mwUS%twFI`SEAOdw4kR}-gC{T*v3zo~ zV|q12*|vCUVLz#vvfVk-f#tljCSln0vf72i_BAfSot|vBi=30n)x$6P<4;_cB;Oi7NpSQ5N8{k?OED`@^jCe0NehU&wzYWSZU0HFW64wV)}|RHTFskHGX>U z`-dL~={>*%3un_B0Dw&1gga4(mt`W(2U9Q7-~<6U;;xt@Xr3%ipf;jIBCRf@eoT(r z1lifLb#B01PO`hGg+`otkdNz}`(k_!n=lc~k84%lg2 z!f}gx-=tu9MgPqlw5vp5#N=4_Bf%5MR%35|fA|_nD{fob`$m)J=K5|)qHG`er%AfX z+o!^F=B@$r|LpD3#hn*19U1Uk8`F{O=_OEu(H((b(cEY#P7~DE+(V$Dvrn(Q4kLI`tFrrx8N+8K1n!3 z`cUF7Mk;A61T%&{zh6cNYnl3Uvu>We6_mYW#?2<@HomleA_eG|Kp1*bQ9l^;iB@Thha$8hjJAE$}sZ zq?;q=!{(KpRA!q(#iy7Hr`XyL$s(1)lQ~pL%iQKQHJ{mwr`$>)H>3A8Zi^XK+H%!n z*FH=Nd)xzj^$`~-A)Yh{tjCI_AG=#5N+>2+fsb;)r`omnU z?>re*(F@YR7f5#?Qj9Rh+E4TRPa9QV@@N=eghc(5f=UfGn|2vFQi!9i+-d>ec%S03 zC(1F#fK()0d*hF;?B~CQ=^`9)KtI?`q7QRD0R@9~K9n)}3tqg3nkryqOeg|9$RWbv zBS4tJ7^3OTpk4vh2|hC<3&;6w(tb|fzjKs>yy-EquwdDJ)CUSv%9j(pu7|?)qXRZ* z8*%xwpB>&oqvW-7A7)XlRhobx3(}K9u#=0!JD2Y~??HlM zagBwjqJ+?)X=4;XvXvITq1buqA_FS^*q3DAndmQ=lZ!x1eoT(M^g+UYPr<=s>!Tuu z6yI^)&x(A7FYx>uZz+2U@TmCPg=$-#8&e@i#F$pTAIq#WH!sSKjqKArr8zJCbS00- z!Xd^!9glnR<>LFpg0F z?cHjnCx_fB8{EoEi=)`lrni?~xoRZwn1Bq|l^a>ay0nkFgyt(YavB1a?2jazT&LNo z*_ocs&>J8v_<+uhcq0FAck*sj4)uQbnt5u_cb;u|NSaOY(~6cznU0W{ILM(F^sYr1>rsL&Qx`7}$_onI1 zi}oU$y0i?k{B2ucUd+Yj!^Piu){Nqp(JY?zIIeHI`nm2-qKDWKOT?aAC%2XPtKUC| zw5B|#wVKaTv3@PB_Bg{CDx%~+&xT-t1<54mRKjyoN0@%O20r{R{HIk zyE;RiQ?jW7!V{Gf+V4WGno@5RMQ(aAxO{(3dB_5GhNmXt5Nm3)L&*fBjTcvb_0(B(V(96bjMuF+oR z^GGr{?Mg64iZ*d}XEJi5e3QhtH?80b>#zL0FT$*Bkiiz?3(EUQWeP@&Z}h20^|tsm zuhPErtb5hJ=%j2DC@Otve&*WU;Z$8!Z^9Rf7iu-mhR*IA_QkK`s5gXN#ifOKk9p=&CiD!td)kB%R;mVPy1IDJTjR=<|>r8RM8vh7clvJ(2{<^o!U!In_j4{QxQHC zoXJ6iG{XBJ6hc4bA^L_fuJtwM zL*D0oM4Tl%l+S#2M|VLqY~~~=8S%TZZA>}p^q^D*w2Gq}EFo($d%eVD zA>wg**3q7;t!3u*Mv+HJ0sVmlw&m`-a-^>Fd12vfy`gjqJA{7GVmt$X<=x>a1MLA8 zs-ccp|3s+i>HhX*@#xt$7VT$*^s6JfkV3nS=0pXQVHk)y)Err!T}2iEAWSf2P{;zL zMxXvJ(SrVvXhF(phCo9V@pl@k2sBi<{yB;x?A%lJc>pRpejA!OF+@qYT2FaFVeX)E zVzE6`ZlDN?b=(=#_;wWY*cHs2R5)sW5*j^^I@bd&ZfX3^gBbAwxl;`x?dSZ9$+(E4 zdkLH^M)0~d;5KjLh5!Xzz_#UVX7aI5N$?eKyPOo#I!dHH9u=`L*Ktbz&Xbp&7JTxB z^h~)#;(|JP5>kR_w*)z{2Ia*0VL-Vb-HGmGdUzLEIwurwJgcND(5|D5w;i{BHIsMw zamm%&t+j#QFbB~3@u?H%Kmz0g^?-DL?jC0G3KIfN`%6jDAI~BCSV#tT9s>Nyx4IbS zUc><2kxPnzzMcZh;3)Kp;mbLN1fvJvkIwndQ_Tm=A?E?$d;a+(Mx;)gMR^LStGg6A zB7!r5leiApOBO)a)f{RXs&5B|3BJUYXn`+kAOO1)baegc6qD?aYU23959FYpEa)lZ zFw{M_5ye@L8S;Dw@b0xBtHpp|V2UzR2$m)20|S`fFV3P%=L}&I$gQ}0A?2iWZ%W*gkPN`D@GB1KRbx_#Z2xBgYP`NVT(jt zsN@8Nh6Z7hDv9%HNg}I4=+CEw>7GJR;-VmT`FSw>n_$pzOATdYC&Uz|d;#j8JB7hQ zq<{vLPH4~@gg5Xpz=8eKIa0t#G#66=jcf{o*ZD5;F_yT!#{oO7U=X%xN6Q z(D-+rJqSU-=Uw@$b2yA9VhlbB8d088XqQkGsPtJZYc&z(13Ld-fAM(ygGUCOM$aHv zD`LUOdtp%0`r8AuU{FkADo%rLiW0=egA#&h?#H|i^BVi+b&o-lAMaNY9QHusUXy~2 zPfu4IohyZOGgQe{K2+7)4$OWg7}ze$qVGJ6{ie{!9BIOx3adv0b{! zdy@A6DqkDP!~IBJ?wZJOXGYj#bm&?kyIzNAMFVMy^!`ab*UYH9MKYJBa9>NL*hIQQseQG@8UaB;Y@We5iF%kN+&Rw@h; zWANR?^>@^}E%)1YX_&h%UTmFA%e&#ie`=4Xg`zumb8+76*wK(eWBlOdytoYT*u99% z&_D$MS-UIEGV8hk3%+-J0XynUw*Y3aQ?RP&cLHpJjRfW)BgR}v4`p&$0=_&_twoI@ zz&Vah8$kk;?(#L|G7)vPk+OQ#v|H@qg)#9P{mqoX?$ylH5{u<@i&y=G)noOo_BraD z!{Lq-0={0Z-&Bq)@V{-D2WwzOGdDd?o$Ur!SODf}%*(4ydlks#eMyH7QCriG95d~o zUt7LO#;t7$jqU4_z7C;FwGYJPw~Z>wDG+P$$S+(aZzTgqUsn~v#c{;hL=Zx(@|YL$ z*Rim3nB|>X?k|^odi2;DX|gG=FlPoTtN`skTez_l`_&X{XqkhC%|o(ijWpUzR7s-i zlU7@dI^j7bN7DDpyfUi;7@sFx$`0;*$nuG0Ia#9d9ic3ol@ZeOGG>{-#p(FNss_eB z&a!Hoge2FH28&p%?>xrjhzm_v>#UrtSFu@Hkte3518;vRnYkDeY#`k-7AZDhQJ=EQ@k%(CM(D=$<86|l7lOG8``Ohoo-ml( zEOFoqnS9FWqk(le3WsOOuLR(uDNkY4UuM0_b2 z*W^tS=4#-#{fuA#OGio}vmO|AzW!r~CJbj|F>L5V!@wl~44u0XI#-ILg2xjW{O4D3 zB7n!Qf#Qno^4yQ9TBLBEq#*i<@N;Sx2wE1_VtNS!OX0(>Rp2(llhAGq&4jS1Lo7$J z<;>z?f-={F@(^-KYB1R&d%BhVKa)@#5d6GiEO1T%Ke_S_2qRvm zF7>tp2xCAO)wdJu)e+AXFC~J;^uwUL9bIzJ5KbOI%&h@FmWQw?%uV^LZ;=DR$p7wN z;bWBj^p>%(O-DCZ0!|x*H(ohV-4|0}4A(_NGrMpn zfxDeLzT|GfM1fg(3f-{&5z(v#5l#NDCK5y;B%nSHB9r|#OP%>oKu{4%7XT4NHXnDn z5iq<`z~TN|lR{!5iT`A3|9(>1+RHiOplYzvy1B=}gVg>c%A_Zq=yNAaY*z1zrYp9L z+R?zM=0^1dQ~S}ANI)UpV6O9~86Ez`tD7(LdCXq*6#p3&Bu>Ndd9PKC*2A6b_ob-9 ztxaE)*3#2;KL^i-K<{sT!waq5O*+;8`-gD72YO7FBPPh+Fh&Hc#I8n}neZmNXbS81665$Q@kZc5%|whP<@%X8mx^oLG5Bw!9|NH$2Ma*1(e zx*dh1Su&y(y>DIz^7?bHE|sFe1N=6HDO;d|nGmCmgT@p;ir)@>qq4HDvyN%B;fjnK zkWg}LRpg1C!TZJ>XbmGs26g>y)Q6rfOJk3wgM{ZEpwwLBS$Pko)W4^pW+SCJQQerY4!ZS$jUguzkONW}AX(tcr7@;fb}Axx0q&AE3fy3eDhUveP`FgWYEm z=!|$3%|Sh~WuAA<%@>^xJmFgx%TQ*Ydp0rR5XdEx*D?_dXQp~D=>h29J~)_O2PBM7 zT3-L~R%CTvu4ST6M6_QL{9lO2=Po&UW0o5*PgyZ)cKx<1rP#im>NS;tr#nR( zk$IrpgKmLAuUcDoX+nEjSe{cMo`=E`%+(HWsZTR1-r4)Cu_r;|@lHx=xu5jWtC(6U zNBkCeVCD?kEE&LnJ_=-d#Jt1_(>3h&#szJqOTPKI-f73&I$73$WSr*Kwa9slz%13q z#MBBML)z^=k5T?GYmiOD*@Uun9mMqQ)57AlXF7%mwJPAISfUR9wxBKqpT2DU=tOc- zsMU=P9^&QWwsCLPtlp|JmrM7#ic&RRshMf*p0N>~Ar()kYW??vyTRzbJ zt&T0iKSXRdy?q|fIS55B!ge8bn!+=Db^kDI|4~rg1y$`{LU^xoLEfX+N6Jg=>1G~9 z!iJjtifq9VA`2tzaS3>lU8{hj2f2iz4fO&U9QhcrlnS383}Ow5@|U>AjzRQTzomigT(=spcusA7n~^}w($5E_pl zV9j(?IY8pyf^cirX!7TRUzQq#Tm&=?@5j)fJRX#@N$OxsI-4kQT0s7x26)aA)J!M} zh&V?^fQq{xCd$4n%^KT_u0(F}FqIwb49^W>mHA#v1dXyBtO1};M?awS8#1mK;@)1WEBAm*uSEa!}D z3?L;Fqi)L5##!a_(%@QVEa(1I?~VFfDEZ&&y=3ivn)#cPdWr?c&5ll-@Mh~U za~b#OHK|F%kLGQ>j=s9N*O6MoKR!khHR0>ZYo@qBJ;T)2Z9o=hO&YNypcnQ56i>>k zvV+|sVy>`5l0x@>UFI}@U@@xmRq6s7@vz+68`B`J{90SBO0G|%x&CrYCVRo+497^V z+A4HtQ#9iqA-ZF#6%3aNaTWc67Yim~Ym}2p_8Rv+Gr#@$*;lV+eCcj& z8RpuDs>iO%PbxbwJQ0;+E`!YWSNH?My$sM9ND4=#z6V<*y}|4UPp&NFIF9J3W+(#D z!j6cM0lGk-lrH^_JpOv)Rpa#oF0&#xh>UvjYYF6{w}?-YSE+%Zv6-PG>H@ysmt-J( zLfI}i0r~blHhE`ShC{BO$&vo^^`~p@e^{j>`zc|UwAN`7mBKt?1g{l9O!%;+bZCUa zZQUXL1ixoB@uSuJFN3KDJnIsZ*P|b8Bqbg#bICYVeVe0YM~HtIl|P#6zL!*|aE6{$ zby0lJcw@UfoFDduLjXZpKNvb7F6E(aJkh}+5)MZ4(o`#>UC-|8R%k9OEuBJ*e!M?9 zJ^0a$XNnZ4BO7v3N!3YKV>n-!s~*;4Yn7$qYA;{sr2`QY-6=}632XTbrOon9lAl2g z@L*=?22C9G`sw;}1Rnx~6o&zA#V+2okb-U3!@^r0&!0ZXJ=Cr&omZb_$mAc0EZ8Axr+PSB<~gin|7QNH085odKUwo<#M;Beu;?KMW&^Skc@^$OyPWq|Ua8 zU87;IJvecoJagLSs5)|P9lS#XKvyG+BowV13`7=9wN^8JW_2Xqx72trT&LrOfoHl- zbX(zoXxvpzlXvS%=krXuk`VrP(33Wt6N>Ku@-}M$^->Jrvw(H-hrh+gS}f|GT|x?_ zL3FkAF7&}|fdkU?%4pc8?~O1U7}E^_BhVbKg~-G<02<g@h~S^01Go5zyKFU0wha8mf}i{P3f;)TuUA6i zhKPv=DmCJx>Y-W5p^k+dCv{}~I8Ci6T}|t%*++@SSebk=N5sdT(W)1lUQ4GN>ab#f zVMC zGq!Q4cGt6lt(S&ZXBk%(Ok2#PL~)zqm*>AHm8WbC)Y_YtXcF=~W~!r;7;PA>C#Y`} zmn8fdbg7ugJow43{MGT2;-n(IzW`*oA_W8?9FF+}m%&2$%)L@{dKIziMD&_%tkmoa zyxCWfSs_#C-g1rvAILG6hn05iuZOOXe9h=^&DU6h3B9Flps$aX?3iROVWMog!>H-a zn!%MGuT?`DsY>>)RMF~Fo`C?Q&(!9@!LG^!!Qh&zhxL+lHgSbw%`9kuhwh3LR0DB%fYQ2-B_Iq z?}uew=J9|;YVz>6OaMOy6_P+@Plv`=G-<@>XFiAmh0lP{xoJLb6e?U@8L^O>tSxyX zAWgDQ@x&Sql4MT<-5d~uLz8_3@TQfnNJbSiG-gyq|FuhwQ$#$oXlkp%l_w`+45PBv zet66CmWPK#?7NXF@!E>C=F$6iU${flpPQ>XJ4pi`qLQlX!Yoa8rd|4&rrWX5lES^= zV>}|~u&4}lzv7@m9n=VmjD&h`fyB9d_b<*NXE98lMFMxl$)(MT?clsCKz*!{JO`Ox zK+iY;^&8;pyn>;+d7KGA#rhV$^8^|Gqq7?*AOw5+*t7nJ{-MP_Xm$+aj{5ik`EQQ~ zjPNn$C8*Gy(ijERHPTkp;=E!$qS;uO0}__v1{BzWZO#)TOrd1~aH{_~^ovs^ieI3S zod~dZGO8sI!C{4U5ys{7#Nf3kwx}x>Y`qo2F{JTbylB}-+EYV)l)lDyOZf9EFA?g` zGpkzRE$R-7pwRitxdYXt!qZetM`9ld77?LvZf6uTu@P5qZAjAFyb|#FQaf>h&brLPMhJ|S(FJewv{WU-^@by;L$j^hHmv?f5)x( zGsi-tvQKO|4%e?;#P6*D;Ozl7BQNfN=ZJe!OO4&QwMU+MxEg6+U@T2f$6bS>0MD|r z9|vb^q>WK&<&O_yg_!Q;B{{32g`0w+9VBYreAz2%?bmo9OX~f0Z!=NS5c^23664PF zho9H*ry~=zm+Jzw+R(KcE@sKXVWk+iKUdrtSy)(?A27ds;pc?IDgZmxlKQdd(630$ zW7EtX)t2zuY})k@PEoF$WAHdMLjArcR(mv+>G_6(`tw^xu8N>~S)2TQ@g zqw6Ut<0vMBz^&sX&Ik%o{2tB`hd0liT>(o#7vY%aK#}bX{{DZd?C`&}t^EHxwVZ1l zEt-grhMcS5MJBdCX(y5^cDcbirD@L)=EX&;6G4<`3+ISka~Ml5DjX4w>LuUb^k$Av32i zONFj?ZZ~_+Z?!x>HDSQBa>XpB>K;d^o6*t&fvui_1*Aw|ZC=`GTxsASZRC!mH|(&U zdCt3_x5aKXJog0i5kYhI<--e35QK5)RD^j45{tgxqe)sA!8{eM5*6 zcP@oYp;X0*#U5gtO%KKg=HVPknYjb48#OfTNL`lW!h7Hh6Fz*q*0Y_m2kZq0wMxth zu5mzQl1kJ!JC>yk*=ejaf4sP*sx>?3(j5Qzpxl%c9@IMzP}b1bsj=YepDuJ~>p@57 z*%|ZMtoYSdkZ~c`+Mz45%W!mIdUT0mHQO-p6YBei$6wVT|IfF3MkEkv_KKWHD2Osa zByy4d6g-lKfCV%`-U*fjHw5Gwu|OKS6hbk#wp36ZBnRg-|* zjk~_wZF~5liT_|}&!?BHy+J$I-tyc=;V8|Tz1fO0ky>MTAzF4zPBiO1SV*^^LPN*~ z%iO(C%%JlXtDhOQkZrIu>Qh`bW~A6YaS^ahK^kYPQ?Y4xx%FCCQe0>qc^pmert$VK zlw#Wg`f8uiNj;eXPIs^yY%_P7nk@7TYd5Dknm7iXyfSGUjI+g^%AY$0!tb1-d89^C5ibzN@QugqK`R9;xi8RZR6n z+swF6v%=QX*Vb50IM^8~J`cM)+=-(`y$3r$8jbyiMg7F2ejdGU)d(XZ@-}|@$`=Iq z9vQOUsH?;_gHk9BT_(KVQ6=b|Y&F(NJ>coZAY);IJ$z1MH%^xxR)%_< z(_M;rY*rHfD7#PMyaV_A%-PTS$QPCqM+{a*{yaLx3Wlva(ud@&~wIOIz zjGNP1V>-C+;!Y^OW9eEgDZxTnXm32QFP-94Ew zr?Pf8pIRMewdc8CUEz=DOs5k(PEqt1;Oh4OEQ~y^D8(rOVuHwMa5uPU8S-|wlP{GO zwppl)oX@0=hBLC9K@cbV*C6ib&mis<=WCs|J(A`6_w@ZycnwY`kEu*27NJDa2CTDa zB)^Z!j|~m>G`DR0!q;ac%=KkDmzXK~<4~4;Si$aC5Q5qW*MycpE*GyK8!2v004j_9 z()Z6gus~7L8-g5i1=}Hb%|b7U-`*^zrccq=P|-Kt)pS-iWYc$^s0!_OzV^e}fh~h% zS*zJZ@902(rdYsS=to%Je8{tVg{2g~<{4GCj`A2F)Ao4Q0K3*NJG$eqY4P$Sdtx=+ zY)VkAz6=#+eqS5Mjc&s@$Gp|&Xg_-4vIAJZUN^9Nfah@y0n%t% z$CB1{evbbL{PhcJ7=UOrKvxKBq)}$4P`5#GrvzwhQ)nQFW$hOP)|lxy2UNDTIjU%Q z4Y)sAJ7^Gq+Q_ef05-DYeKh;zJ|N230BZfQ@YQ)WMGl()I^O6ArVEL)nF0s?Xz3R7 z1UER)5EMY0!1Vwmy6!O!0SrENNx+&hw)=M@dFg2Y!cmR>1;v^F;`N}?lmr*KC=Q@2 zAdCPpkDA4;<`BT*^|c3&l`4Q;OEd%l+aYsFrW*%f$d#4c`yeU?AAo53f{zg!VL{N9 zxt=4JY^xA|`DCIiw$SAeTKYcd%hjTK_9?r!tv|dkA@XX}2OW53+tI`E2PhUTYMhRB4;g|_Dw(b5mJF0ae|VUSKqN}thGOR z`NzbTm0S6-GL+X3BKs&YuG*@mLk4Sup*%t^=*b;Qp9lLh25qkb-8HjoP9VR%NST|Q zarZ0)_q!nyR4o3YmW*zNXdobB%1HxJd#L^FY^mfChswN-efpB-2AfRH_72ZVnFMzk zTTF@HpvL&VwkE4Z3s(je^v>=Pr!_V8@3H~p-WsR8+CUlk48e`t8sEf<+;P{QbY`Dn zE-;F@Q5++-CQh3O%ScK$NxDuNS8H22Xx85(aqp}HBu;4~64x$H?XHb}X0^El)9rp7a+_Rm;tETpM6I!4}r8EpSN_UKWa z&V2JJe9P9d{W>>5u#vF!=j8vR-Tj_a6cvA4eAWrube8N7DQ|5B&~Q)Xy{kVx9(IpKP^E&^$Tb=NXC_gq$^q z?M74N*|?}|BJ&aiqP&p=CKh<(7odc48S$rIRsZoNK|6yS_P_Z0?JR%3ix z#U2U#hEF+-2>TNOw~6KkeyS7%1M3LAD6TL{0FZ)afRhP`ZZn3_3;P()*`&PD_sKS} z2%-pL$^X!>AEW@1k2Ys73e+y=E^rP5CtVG}dkI$PMa;M2|GAofd~eu@02KecYQ-E^ zwNJzQ)~$mNc07`>*mBSE>q>!OI}a6N72NY<%11_`{Jp?p`OC8Z-SI!Q4>rmS^l>(0 zLAXJ)9}WU)&eF8ZQU|C*RVRf|(j}476#W@mQ7L7fRFiW?N`aA*mCUi>JyOf3J3{H( zNP3Kz!qtN1kc&=+NmbC`MS0YDhC8{pMi^rG&$O%$5wkBV;MFlBc5FBRROIrM}!=Y%qy7bXN~14w^820jDI z%G;QLs-|5U4PqreMetEWIPWH4lae^Aew0-I^;F1x1_4(zWkb{9lWgqB7f-Q*&)_e{ zJ|fKb`%p%9K|LTE95~4Zo01Jv`w_D!Nn27=w=nol93}no^F3Xwx$!V!Y_G=H*o%A3 zS715uR<6U)G=V}pMqtVd79j2B9SHXW`X&!`>Vz254#i8pE1258xc7AV(V4{5b){9@nS+-sf` zN;%|y;L{5H&IEK`Oza1>coB&uPw|_SD8dkP7b+xUGJ>Mna`-NH1Mjym)NrDs2N7uc+_U4k!#3Ws& zp zlQAFwPse|2$4&^cMVSG8`AM8x%&_x(I<&jF`#Sf&lRwnLoAumcH)Tka2?}lip8&F>eE*DhAf~Do8QmLEf~A}b-Q}7^88U& zn}W2?7p&R^4KK%}qMkpx<~TiW1GJLj-1Y_5P}m`0t+UR%Sl|Np(KHYqVc+**M}8 zfiPdHLiDu^F`-?|3K@zleeK2=kBmEfvsaszD}Gf6;R|%a!5U5z0pGL2wDT1~X|l!D zWxgh~jO4JVlQ-5x4_f(9+Ja?*56!RFbiJe#(m*{B{?dky6=~PQQfvmO=DWVch7N5^ zYOv0Yr*u+2pg#Gq)6nbKM>*~^?Bsr$b}>SNEYYP<_N>oQMy$iyq>^x(QX7p{t#B8IRPD*9&+U)v?j2piOA>bfu}F;^048UztdDtVH%$)}(5xpp{n^zMOPMaI zt0r<>$e&32xanj`f`9jC#S)S)9{utzcBTEk7!T)ca_yjY-?8M0_-(MM9mx`5lwxa zST~358s?DD`SmFk@sCb=3Aj|t40T{Cx+nbDF8D^UYfT^mU>m8#Qn60N@BrtG&@GJt3g7JLESuV?c0Fd%9!g^%S~r+I>Rdc;78ir>j1piH6TTueA&jVq*gfThQ_673<>eT`+MZ2H=$6 z^S8PB7hzqU>L||=Z*_N6q3+!hgL1c{nzJUFhxO~!g}zmC>$I-JBX9W(^}i51g{%#x z{CV#FIBi(zCIsPaTgHm+%S64u#0)u^Dw^9o(f^$%IZQr_Q*#|;&7vAYwp%9eCgaZ1 zxG}c^b1#i=*p8|B5Pdc#<4oA@a+f=eXfMtwU{Qc~E7ZUXYfbl)I>dUp5#?{1X-qGq zA7%BsJ;O93j2!$GqTK3FTMoWVOXEs1cp?_I?T?rn;AW7c)1IMLo_;9lUIZ8T3*rq-^P zx4dw(3@#Y^9KH>exjw{=HdDpwF2JwL;}6q7&?dg@$_)hMxCOrTW7@`-KX`Z@AwBjS zpT`UKgugP`VR@^@Lz7l&AMGiIO`LQTabbYHW%}G*#}oy8C{mqdvW^QV%u)0-q<=1t zrQ-;B0|*N)(kR?O6AVio$(Bq7`4Na0I)T1IkfL`FF+f9v7k;EFiJI(1vL(`1m}?1M zjz)#zQGH?bedG{MA3mUfQcN00GzNnnoJuO?UzPv(!h!a`Neo*3lASz)Q?Hl>)6a?Uhfp0 zLRVWZjI*AXx%)Hk!RuPU-V+@LjJ=KNM7|NC9X-ByKFplPDwed)^4om)P<4=wYuSmQ zWPhGoU2QiK-~;$0nkLx63JNAW`~e(7NM0 zk2Rr94zk5;8;L^*v!LEDTg`EbL_ofKl$v>M!8)42`1 zaEBy3te6IKMS^EhmwGRe*eFF~nS53_WfzdEL+xk;qI<{xy}bi48==Bt;*39_a6>K4 zzzW35VVqk2Ot(xerp#ynOs=H@ww-kbtx{+J4N#;OUrN}%y&FY|rxyQy26;1nzi9r| zYh)MH6ZRG=E`|k&EaFGh+!fL)k{g(F0N+-fTxz**Wdkc8z4GP|aYi8t5bV#40qPOi z=sS-PbPzJV1N!XciTOXP^S?i?{`F>uFbOl&GUEfR4OqI*UvZoP$`kql8kxn!xq|pg z3PkHYpgH9kUF{a!ugAf>o2>yAfege;pP${ll5>W~>bN+#OqW6{?_LW;X~O?1!jcp) zYT@{2X%^T3IJ5i zL5Sz)n>;e5bJ5pW=j)CweMmn3Lw(&bfmUK?>|b6YwgA%&^bbQYt5Mi)ubd1@@3esF zC`#y{he$S!`gron1&{0vPV8N^eACyS3cMx0+M2lhn0)t_jMNx=JfdkTO~Srra(a)` z^~{{iXE*Ck2O2+Td#xr-bRE-SQ(_?nh-QxU&Ooeydg4*SYO=9rAGc(Nm$;|r?GKbs z8rb-)$AfnVsYUHz?S5fdBgF({>0aCJxCG_V4-n)$+ofD>TePpV&@{7(GnWH-YZ!r| z=6vz&Z|ZYzZ{N}sTE;yOEZ81Hem^t3^?A;Pr54A|nKoyuH1lzA<42dGtl6`_{ZiC# zT?L7W_FGi+pRzfF zS3!8C8xzWj8@A{piglmNwiOk4#w|!_Ra9O;&DMRL5%z%&9?+4lt^YFd<%=E=l{7f- zFs8^vE=&$Ovmt!jw&9W|n_wL^si;&tjdeaVZ(GaC7uW`!N{6nOE#rBw=8aJZdV^#s zdEZ7&oQagTZ<3wXqddp!(X*M|8;1x=U&I0yq+%fSEac+_{KiKO+`n2?|MdMb+o=1f zYoKIJVD1)bKa`&c7eJftKD{x&$`ezt2^1a1oc2c~9*?YDUKP;x!XmZ|<&?2(2s0&G%i=XQ7^hZWQ3OIq#mC4f?`bR83mi$pEp{n~C5lux(3jwALUw4!)OsG2Bd%cVKz@&aNJMrNFP-S&HH4 z>EPvvkA|2!SDfY39HX4N2*ylcg)9n(ezO;UwHvFH+TZZcnpdTERMq9oBnKWxJUQgg z)71dWaSZA&$b`|wEHZfCW;V;5!RwoC#6iqyJ{I8#ey_m-PUjAa5qtZfiPIBNtnh-! zq`X1|yOs)XQ)K`<7Dewzapd=cBw`RjtLsivfl={eOlSae8vLRb3us-kngndV9OQ@H2_lhXm)?+5l=qguR-#KH5axsnkcWh z!{7}83HAv9VY?l8=z5h3|}FHeW^}_$d`6 zH4w37o<|d)go+!fkz|+bn{Aw~6zses`U0e6)Ht9qCl}7al&-CNan(19 z`~@Jb1#c*fhB@-8_}x8YjnmTPLEz`^f=4fmc>9l!-hcOh3yY`ZW>(4T?&e(t_?OoV zzEFy>o0~STU|HCXXj9wVKNMn0n<aZZ1E4JF!jT*oYEc0y3n~OuJk6 zmNOXKfV+T znW53)qG$)Hgu?TJCj_^WM(}HDL2KKAyP~;`@l(|`o?)|k_)#K(u7&1Cyga;e%D|XK z3gPV02E~_F;-O#7yYRd=XJa=*IExD!5gZkG3$_h~&$?=#xZA|Bl4(e5D=FTvxwVQ( z7%>-~DN3v;+z4#6{QH4$7{KH`UMQMDD|C&}+Dt7WD>mRL61Y<{^TbV}(Iqcj22pi4 zd~a@2%FkU4IWi#MQb~Vtj~ftDb~sl*?e^5hd3gxcM_&RY!J4I5d4N)}dy z**L_TYR9*>m-Fw_N-5^o6}CLLPiR>I&#eaqi9)Ski#q|H+TvL~fQBG0@GZqdfPxOZe^7b-_G8oDHo_r>Ya z7kuzrTt!TnA^lHGR3)TNG+2`x{}+4j9uH-^{tc5#rJ72T?NllxluaULDj`V|#n{AD z_9P*DW{Ob6gd~(HvX8MRyGeElA^SZu_S+eoG0e<$zh~=y)>^H5-RpUO@9*=x&*ynQ zpZhOdX0Dm*Jdg9(e2?S!9{0!YoxEOG_8PiKdWmF6Am;A8M{{Ma9(Ex*emSNWletoSW1Nwxuo1-7 zdx5#CuwsS*#(1YEF()w`ln^m#>%V0DxDq5d8i<`JhEgW9eftQkuk2bkph?H{m5r{L zbo<{PO!h>nR}Q78o7u<@p7{Zb+0z#q5af`;okTR;D_y=ymS`^a&*`qvrD0{pv_k)S;NXgFq>!d zL7AbC^(Rp-x>&Dzmd45atvQ}vCRw_DL#I(x$EoscKm2w}TK!$oBLz;|JbFo8{p|Vx zan@d5XuAcTKv$sFv)P}3)h!@V$54!89&CZsAmrjaFjykQj45J0vM3+Fu|55FGOIRH zzRTkJGK{qa7qOJeQU*6M163S$qj)A0#4Yt8f(br?tCAv3HLITfjRSWd$C&p+Yry-B z>)D$-fI%CF?y%!ya4oNKBT_7UG;;JSfqG?eLmssgH{4Hv&T0MoJsoCBC7{0V$f@J0 zKiQgKa|30NZ#77QV8(pG*V_FPF+$_o;yf)NXaHm<`~K~w7=tz~dY3cEohTv!wbyH$ z_4x4e1e~!0L|5Y|hKo3BUm5hgy&Aqop9F0P;EeqHO*gVbeqD)brV?;)2%uW!GkP6< z0#_Y@9El!Yu}(M$%Dak@EO-3B-L|{)p&q;N4X#xe^^?{M-uuaewH^#@B7I%I0SP|? zrac?PmH*t2f4^sCW+Hz6BL(ue$NgmUIt4X1k|vvwR6a=S8{yw}FX>NiTDWSqALnQT zU*QGuDj@O-rr!tqhX8KMBjOU`299wAtVR8O{(p)^Aq~djSBJI*P|tlPi!E?o3r*lNDb~pKcHQjyw^XXWa0S8oTfZSszX!BGdG>pe2H+<&% z(%?vGajZ*TU1QM2bN;)fie<^SC|qHwW?gSO%yV5F6+0CM3o-7KXXKAH(v0l%Z&HM^ z1ho|advQI>mY9JY$wB7GB!2>#lAa>fd0!Mhe@F|>~C&KR3dpC&-wv+~DrugZoR;Lzw$k44BW=yRs z_8M*3Gac27>A6)=G5@y7>ZrfvU80cWxY3>qfKh&qd{b`c4ipCSCD2FU3lN^s6yn44hn7)@C zSuW1p3pFBm*>B3lkLa?4Q;GDHcj?9R-7U)~WZRoJyT9#sC*HoUWdd1~uXZzSlrux{ zUj~yPzC`BQI-%II1gN{Bx7-!kY;z*3@&b_BC*F_$t9h#bi(bbix`(ZcJ4>KC!{@du z&BZb?N_Ds`wh1WzN(qH-de~0S@b(+}yE;GB^F+>`_>IH!@@Ky~B4|MaC*MC6s#U?v zPXaE_q>=Q(XN6zysKh*3c&mB4q8eo8xg~I$`@vu&Ly?0x47^FlVwRv`gPfWpSVmV5-OqT8Wgri~O`dp%;pse;+cq zS?`d6!IzA1jupNo9BVJ0&R4{Kg1kG(U1c)#`URkii^$HWa9au0c4VCSjQXHAf7Sh5 zh1W*gb=fPBE9K-e)8TAX0DC~KXT9G8z&7|^Pgg0ZsWCEgZTuriV~MpO4Z_OfKBNCt zk@^1zs@?Q2YxwJW{>kqZlhAg6yGgLy$_GckIC;UHPv7NK*KIl4WBn!S2g$&2h^$SsK zQHPZl9#DK>hhf2)E(q~(a4Y)AGC@?TKmRW=b^(m$BkznX&-2n0A z!mlC44u_()I5&Vg7sS*PIG`rvCYCO3nT*XS@)i$VNtbmxN_iNl)v#|9*6yfFTIS&E z9iFooeB@zLze;+wQf+UcGX zajtdl!Y!S4^1E&1|z993k9K zdpo51;_n9cT^j~q_EmhO5yA~<7*n)6HVI5b_wwB}dK_;+dl`SNfo#a`e2>U0+2Jz} zTg|@ZekKSLkZ?S|;5P978awC0pUVhl%kLFb=*n}4Dqz58W}F%RTdnlYNv0}t-jv3F zVM*1DcDzAI$Mk9Lv4pS}w4HmSmtSwcypV{zfN#Hqzw>=2yzyFIyJKQr`@BWaK{2Dz zpkq67(+=+77~wd}0Y+5U##c(3AH+$OP; zRnD(&%u9ZBQ_T2b{ubV7vowdbX#YTwl2K_e<{jhSg(Qz}Ox~}-3v5IG!$LrUQ*9<7#Y&a$&zcN@ zwS!wX^GTGY=4*YqBKIWgm^D~4y~F=i+xGX@X{n`c zj(U#nz~ursZ;?LA{^TZPN(?6KJl@Jul9wdZ4oRR3a>EgGvHHux4~;tWXSfv`L+b84 zP%yi7spCj#u|*Oru;y-tgkETr-`-`LK;L6zoCqVN@rx)Ab#)>u!ye7Em5|zFT9AM1 zN@^1p|x0{Ykr=n8RcJnZR1A6bTus?SLwr*gZGCTWp!T9S^Umy7Yli?_l* zI?NpnvtTBY_{j@OuN-tos7g00JBnPE%#s+DMLle(V8)%>M{^IpwP|~ZUnhMPyKwNc z!i)s*J1XyAl=vU|g8#4npTm)PaYvO94#<}@GEV9dgg+t`6q4p`sLSdHAVEg7n27y3 zPnt+}UMRDRlA1s&N91`0S70sC^k*8_=$DKzj7;P7XhthNe8<25z0}n18{Oo-@3lKs z1+>=dUu|Stqz86;90;d7a>DS*?YjrbOp?{mvQ#^z6DvlD5ABpb7VMhSp#d4pjzvd zX&G&0c_)Q^ynX4T8Y@Xt4^+W_Wq?EZb9UbU5RlYZS56{;#fiYFw{ zB-*RPY`)Qf-W|KTwC4!di-H0@Of3BVANAD#?C(DxzrxoWV}Z=4t>mhf4@Bx0&ikC} zqq{T1eXZfMp2lqzpQ6x1-C8tvl{QS@F}{spmIi7g0A%S2?DtgC44i!lH%4IRvdn(| z8?cju^+-dqz`FHuZv_9wp$A_V2Lsn|{11O_BN!iwoPqtuaRNtw488x2qeBbQ1}GxD zc94&qs0Rj={{7bPaA~-oZH$pPdOgiU184hE50IJOfZl<6*i;bV!vFf<|MpV<8+H$H z`kY$N_|-QG(|-B`4Vg^c>?~GL!CA4Mt}xU`^JZi~K4}@a#+Ych_n(Q^pZDulCRWA= zGD6v=wKucoDpKVNKYen{@aRoA?gfsC;~ff$5EVT{C+T=-{l3BI{$HO6e)@l@d}thd z`++#2VKeL6D3b)bK z%DW8m8cjKW_euZw6A)rRyFn7|W%4YXetZhF=1FF5Tu8IdD~e?`I9j-`+Eyv92rDN1 z#*x_@Q0s%hxz%-#4`w;p^yiM*7-Q&lupZZ?nYZ(P#2>StShw3Sz0~$O;7T20;1>JZ z*aUzkB7mY9E+m5V*Ds0+apPBQ^juJiiGW&i0E)Wp5AXX=%C9Psl)pH~gsoG9A$AtL zmkwVZg|V3?|4HHf;Un5jujSOUJb^~UzQQv?2&>$`aYQ4TAmIL0{{k5pc{058tR({+BycO`*KnH4^624OEF4$W3J6X{X-c6Aco48apGsRaJPUEcUUCoCuEu9& z5#R%w%R3Slf^+H@1g3wy_mNUQI(+Qqy?RF6DQ%+7;bsZT^_R|Wl0Mf=doizCk}47g z6^6}&W5fivj^zn+?ZQMvz(&xn0DL9|3UIEuPbRxX(1N%w?;?#_fM< zm-cG}i?Sm?Dp#cNr)Wa3*xMO*9B#9FGjY84TSf-e(C^y=M*2#GZ%Vb-%<|&`sEpD% z9qx_X0Mv(T{QC>nz1IFTdeD`4d*x>kEXhtLS;+Q!(5tBNo?7(h4B13RTu1uSeVKW> znJF*p`hcdPk?G(;Z&9gbZh9hc!t_|Dajwop>{n#LmRkROdG*m@0n_zwggNP^^QT3E z#=eRe#j#%|R(vErb$w2_Ds3IJRAI5E#{aE8KD=RRpq{bP?nlRYBV$P6V0Ni2Lvr|Y zgLULA{Xr#7c4^MD3|-AkDb(=W$Sd@8&-bsiu}e?7lR{a2stwdL=jIGT zS4#nR(z^H=7l`8fa8)ug{Zdp)O)FEK zoUXOJwUk0OKfe|Tavb-G(B;XP%@d7w>WjEB+?j{y6%W9>E(Nfx%IIR)F3(=Im|Bp4 zsnN&P$N~Hi7(@`f_I8rD(h0X$UG8cJeNSGG2N@)(+}`^P96w>!bxNSIO7EO#o(=59TN~-T-wnb@~>Nw`cBm+)=*VR9saFiK?TfIu7k~ zh(WH>$addxMvf-whNx+f& zgy))ok<i`Ro^>BrElxp6Dxj19Gv>xNE zF}>}hK9URvCXyjr-9&IMKiDummb0~dwg%+}WT2%7k`@r>2*brp;pw?sWPU4!@ zs?!ScHE6OUQJscaeB$Klnk5zohNr*5U&hxUv&!-DLP*OY)=hLbk`sthJDz{2VHXJS z#F!}Kp4u1I?Y_s7V?Q7=Cz=dyG6S8Gu>)-wwdXY6r@1OOoKr|;BG~m?t5h(5t*y(h zr4#r)_!nShWEn@4SiA)Kbi;po1GH5&Wt}(t)M0E;2GdSb2asT-#BY@0%8=imQ9C_O8;H~3Q zBF6gFRo_vGXlq5<{!;~mSMv09GTjlcmv5YH7Ii_75a*>q;$IK?k)ZIY z10F6lbL06^!CBuZn84x+80fAAQ)h7_ABU-Wi(&GYhZNX3z7G54EQQQqhK^^X zQyK1k>t66%-2)@ON-d}NP7o#9m+mhvm|(>l@0PSnB}wV)6B6@SZY@)4_;@F z2f3Q%`CqGUVvpzAFmkD-U6>=2fc``{wm#-KaYyl(2`PM$m(g8kex@91qs4?4>Y7j> zpBa-UQKX4EU26_+>xvSFN!H?BXbMN4jFmYD-9kdTASprU&5iB^7MS>ykA^RFfPewFQ8|klU6HkuR^%Rf} zm{p5%-wi$fL+$C2{LE3uOC+}tRM!F4O~RNNLM4?xg?vd|uf^J|(vNCR*)F3iaPlNB z5KxTb8Iq)`-qBDaMwJ6aO5*D-2Xe&;$=I0o=I3IQ1Cb7kpe2bH+6~YIO8+cs2h@$* zL1e*PNgHAyR}Rrp!}0io(LI-_Oomm2DHX1dL@!^j=~nN={rW=TGX*(I#%+mzH@uk zD);7xVv6nC<@(PPpTD%ac1_OE;o$~cTR_vf+^ls*BJsm7l|1(%pPW7NNJLjIZO)+) z2g2@t4E-)U%vW$onf(DFV}}(g=+mvJs0q@^%xCvFQg$6pWp^I(IOK|Xi7UjgL>w~) z1_y1Cx!s>Nii`CdU{8G=57}Yby7~^BAZWU`yd%0wj+RqYx_Puq05tIf=`-ABmSB!l zZgd%x>d>Z}kUlvsBOS^+QySeiZ~LKpA~CH|{tO3koIufH9RTy~>}X%SNFYMCC+)GN z=kr1VqsCif1#NO{H#OihtN#OYg1*r#P%1XXt@kzW}=&u}xQ)0P2JsoJ8$t zwN37>o*_Q*API0!+y=zaBE&+ZHIktsPyfQOb9G9=wjs8*LWk@^z8xo0sy+Y&{8O?SJ4t*u+oIXw^eVS$@yy6d&>-%x#<1N)SOc3cYo2w0T8u|jp55jud zp&eV2wVbG-^@QF^38OWPr&P@a$HIdsmw;n3yzI2tN04-C$i`je(6`BF2;&&;kS}+0 z6yFM85Q`hle)hj-yWak1rX<`nF!&^xzw2VECc!!Wnerp5 z*@O{8Ujg9361E1DE4+r-8Bi1H$*jv6H?2nOkG3>L*KeAbf@VZUj(=jF-ME-7hN(JFl#SH3j!uo!^sqh_8?KG`M9fYa zbwmqw)gEO^U}!Fwh~>_+GjX`Gcf%jE7$6ZX&y@TD9bs_YigjE;3EQqkDh=wGU6I_* z;tO+F583L#s8C(YULGaPYcq9x55_4&`>?H|^3?8_u=GUFxS3v9?xhDGeD-J6K)dLHH{hh|hFZHAt8o~e{=^t~F zpl!#PXAs`)ziGJkVDLl(S7wrozQ(;E(Zpn81melR_XznvkUzgg?38)ou7xD4R8zHu z_pZXH>OMu!&rf|eS5hMPT+9mmnz4IigBb5wCSKv2*=us z&u@0JR0a?=^()@%|bd*uoFAD+!kO1yGtdUfAhyVxr>QiJ4PN&sM?=$zA7Njuyuz zi7hGid79D*?02f7-yRY};tHOUmg+V}24vgU;!8H}K0@lO5wj!?0dmsf(P7s9q`J~u zxqU1h>f6e6m{v)9f5U5^k#W>CK@X$rdyM`5r;5)pX6+?kiX27D+Z7vyPsnEQwsg9v zO>vbZ#!pyM9916uT0*kv{EQu6fQyt=J@!~YRpri3Rbv;;W+hbI*ur8i4<{ocgf)#U zM9=S;!$1dyvR3vH;mIJYr-zBdQ9F?ZT5P@w3$rP!87a$ePU3^5E1mO1T(I4Pv5y+VQaWkPHI`31S%yCtuX%f z{&4^bGf{L|M)XJ4Rfdq&M@Ec6~o6a z3wW3jw~&=;YhqAW{L$>_nW7g3#k`k$ZW;)PFA*OjWU#$}gwEHL!epaA4=Gmuc!-y8 zY@eHdEwR-7s2*QFsLO#3X!~FGY*vaNZl1lrx(-%k*A3<+T$?EX1Q$V$YRBqg51t}h z4||3b?7mEs#XA-5k`qA~XOEU1j>$0}5RT(uDjS^|ND0vxb=LXa^HzL&b2Pm(kS1Px z2I8h3D5OZe;(S;k2nYM*yFK3M2?9$IHNO`y6*>W&m{iS@!1QI( zLoj7DSI~_>3jHY#hE4ogLP7GF_%2cr|Gbp-=USTidT!t4yZ0bFv#rmVSg0*dThAlg z2qS@%8?>8^Vq{Bjt#Em7v_Jm(l^F3iDrbfLg2uW@mlgkesh+lF^m zD*7rg%93~87zHCq=NBId#0{Ub4(_Em#o|u-v~nA3aEw|0v$B`->_mLIx1gI>%)A|q zUyoryl{KOr4^30dVs4wCvw6;H5GxT79kFcXP6>#UTE2|!gcn?%rMdq8aFV#u44f@~ zL&}@PhTx;;;mI$5%Ze2BQ{mNvPIWHP;EBv*6l?B~o^@_FV3~5! zh%Kj?2H4gy8*nE7agwa~)%;M8XNQtU7yUpa z#=J%NRJA~)vE_q|kgYoVygAO%(_fEj6YF6NWhAsCh78~0HB3d}{Y_YObWGQ26pdHE z@NT4ZLB`RLDx=$vkMMb&?i9FAZGvS*jxpXWp9((^9@AO*OnP{=EKilycq%D+WZXPe zH^!q4XSUk`;sF5*H!mZId9#CLP3RFa5C8FPNL#vGohAs6GYx`Esay2!agF^X%@R64 zFpO83_yqK{VM%wndd2_-V}A9=pt<=~%U3pP#<6)u%(zSqoW|JtaZJRhfv|$(5XK%= zhD&LD&zP`^ySsd4A=%DbCKQZkMVDj03{$Tm`|!{XUW%8mG!<4Qef;h18AZ~5dx6kv z?dlKr>4aN~9o78gveo&~<(1P1-yn8}W|?0(ZCW%JQLhzSro7`J%LMm$rJzJfIbEpm;JOlVB$n0RhAAh& zkt3b3UR;gI%{63xYF!JTr;T3U)dNF^Yzukx2VX{C9y3^L6l8_6OOYc9KiyW|ezJ+L zDr0TblM=LUq6;%`A84@1xRm-T{OZnA6qi#wKTTcO%rr*vS$^tZCy1t!NGGES-HoH`BsHAbg+F(JAoWAx2T5jUS8 zuScr5gS(S;nHQnmVE@l-FK;FrN4>hmNhDR?ui?$ zcbRT-278ndQ&62||NT-NE*S6E^BV`odHUcwIy2#n0+MPDDt1p=t<43F+L5eKy)89% z@R~4eH6$)rTej5+W_;y?6|T(n$mE@wM~fr#iY(UPkok;~i@ji2N7R7sVXxG#sr4JF&lDS{1yV_!GI5$?>`v|{7>(;3b5hZXA?$>=XZ1s#@I|&A zOGGM0Yj;GweA~Z6s*)X#w1$Th3hQfmkO8FpwQ6R|p4k`+AN6}B;eCfRr&C_Aay8}T zn$FKDA41Q1%z-5L)+ENAhh>fy^m6t);)n7G^;@>s?SW#KE70@uQkLPdd&%Xu`k&_c zMmF;4Nvb6l#tam#x@#rJjC~5S%Gze;;VoMM1%u&}?8A0Qs-qGhOh@H1MY*7Rm1cOJzr+fbA2+GaV?Dxo#x5)hz zh8HbUCx~2s-7w|??RfmF{EoyM4Hv!8=1Q6a**^ZeJf;1Lg!qE%u7}yn=|7KdH__r?y6VR@UTU@*&Tk@X&dVy>8+5dgL`|quAs$O zhcu*p?VQuPrRa|x8#1K0TqFA))k{+bhA&M~o#)^McV=(Y=!F@n9gX^1M=BQxtwWY3 zq;%XrCAfv3t(!g?@yI~0Bhvf&RvWyp*C;#)vA09jhqAcOcxvNJl>M5@tK_t+VnIX4 z1Wq=g;7tizuv=Sy zHg|(U@jiv+uiqDHV|(+A62{tX6G_()Apc#C8;M0yFOd59=^L%m&?(P)Q_LooTFHx0 zwYy6l4IUXB4|EHZ1+I>HJ---vw#9^fmf-=8NDZz^v0OSu%ZYNf+>sobL#q5#NjqF@ z=wzVtP&cV3YLyt(e767aH-}QihIMH?QH0E@8MZ?2%@y$N^g-^kd|oI4ORrih&F2Hw zbbUjowi)8MPt@xNLv}GY=+Q^s7%s@rS7#Y;xPGwJxq!XjT_h!l>8iXd%h0wqAlp;4 z-#F%)$!fB6H+B|F%bDn_To&P2(Ckf%(`nhQd`MD8Tdt2TfwdfcIl_k|#qBOjX2fV0 zcCScl@-zy~T9)LO6}?b(y)+|WX7u1D=pd>hQiQ2e^hIb_1bA5dELN_~33(e6GIS(z zhN4jr2|D$a(2=jA=I-PxzM2?&B3;3KJ^7_?#yhNT{Tp$uo<_NOV>h_B>LkVPLkhdXbUW0jc3YWhYNdKb0XihQ|G$)k3o1P#ga;+zD zyC4ze7z%7JW4R{AT#9x-^Vm3hEPf(Rb9N5YT5wEl;c$lwlI#c}7~$3Ju&1j|dDCSi z=cL|TBQf*Ofc<_Ws=GhgYoUcs+E|&>JI`_OU}DI0rJ(OY##@@tbq825w7;~{sAVyG z(_E13+J}1*8#dxO3Y<-C7##*Mwr^>>HwLX~T6l%V17Z_FLrSml^^Z-JkkqSE$)RUR zd^d1xh4yPm&3CYBTR!g>!R_#Ugg(<;-kT4LH9`Ogt|4gMDAo<8<|pwsCK|Vy>T=x-UI;V#@CVpLqxe z6G_)*7o+Rt`&nlgh0em>`FGWj2F!G?sc@B(36!7}ZeqLkVe2}nC1Zg^X9eBDj&U>3 z6Mhbh!##NV;}S;m$bq(U9iNHWz7rqOk@CLXdnsctHxjmqe-c-vIhspy{N$HxbBH2mI;qDS#6++d-SBZJabXs4#NX_ADLUW$y07opU`}A#G z#d)}2`nQQ!fz!47Id0s_xka44(%WC_g`d}<(c4Fm)n0`@c6(Pt=cSWm#moPN zYtCGPHrM7ieJ8irMPmg%otOq^Y?ibLAa`ms&{=AnTUZY+Eqid`x`vh_m9l&noxosaRNxI;_H};6a{1^ z>O*V0pQ)Z3u}uL4r>4d-6W6`v-zKfxI1iU54kiYES55@zkvNy)G$vnsZr+Qj;YqmO z+J4LN%<#2b-e$M4b;9Wf8Lz*NvFahN^P&zKe)mY!tD6^TW+W;wDZMvHquoFqwV|C@ z{5bke&LuUz)#!Q_?~dCgg^Z77r0JA6=M6;{#3>*P4?wl!?MTX(zJ-{Njskl!Ut2oe zDSOVo{0^2dm05Wd%%fxpWurz(d{f;A_`9--d>mfW^9ZT$=d`#B_1|$k?+SjxGA5(A z9C8>jUrd_lN=1vM%2~tQQ+`^xBVB#~kPu)V$F>&{;HnZ`-ZgrrfU8c!?BWozOm2nu z&>YOUhk3WcpQM1Z8h(n#?82&e;!HzElZs17;osRFw-w}a)CunoS7u_8JN_}X91Yk( zZr}xZa4=7sQ5LUnH`--*Kw>U8yQU>q<~NSDWaDgC zgpW=E7ArhQvJN>jLO5`L3Rh5GzHF467@QcA5!NxF4*MAGdLpc#$IvDY7KVl3LlmmD^<90^0s;WYlrA zWuNDaE!Lqd?c;oJFtv{73?jLny^Og@`F)JaFCC))Si!%p{qI>Dr9njytrdW-(PFw3 zJ4^8uO}u`wck%*l>&LFy?On$oCzWnX8W+8H@8kLTNM}%q@2Iu+>6Z@rOKXbEbOE$t zV;Ck#8&Bsu)|;8M>_o0-2?4BN^D>R1t@Nl6DFBF0lv&El{4zowF&Hw*=|K!%f&m&u6xDEjW{J3!m(Pa zuaIANEU0Re&A6&IwycGe-}q=cy>UO*=2+KzKet1dvqr*n%ERje4X$g8zvH7|s9^50 zcs*NGt9qCvc^mk>8Tt2^2y)1Sz{}>Rrni+T4bH627n84HUXFW-XkXcvA7iZO<8Er} z6Z!c0eDdcNBFN+g#{st)ft*@Ghyvb5T~JHQXDliP&UOK~e#Te+UbkTJe9Xv$%myYR zeG(fHMBJ@xZ6$7X(Fq!iSr`3~+as~4k7R(VV)>~^bfwgC613Z+tr8A=swyQ@1DYy8 zU;DbSa_#lOA8xBwNiFU>u~rr8j9kFmSI{P*-5}%#idHg*0PT_8=a8V!NNPuQI5&zBygxrn`PD(`G^8Aor#ZDVhgGH4voN zEdxJ2PtH#V6-NQa;nc771yC_~%n`^=eO#E+x_&keblmRgA4Q1%H0`BoIP-la==HKf zd9P_PgGj)vj!Y5zMJZ(5{Dt?>*Gm45cqaeoP(racS#$X0M&S?cJ|FmrfqJ}V+<9+w z+k+w$yZB9eb%RgnPz(dTUM3q$nfw$(H#b$uBztRt#K9{-qP2`B7uSLz(~gX&ES4$b zEmqL!g&WEUuk6ZK!hzUuz|KPJ z?}x7_14Y4y5AS~n4Hxe4%V(D~kUMy_EL;56idE=df0gaGJc#0m=EITW2F@-+QW`@j z4aVY_x4^Zn#;*|j`O(Bk6Vhik0_+(8j#LpqV5?N1O-8<_sMq2hT#4oy!b37NrASq_ z{-W^s)4}n>M~^(@hk8=f8)4A?8!4Oz=z?4AC7gszf~NpfLmz< z{*e{| z3>W!z9Ry^D&O)w>#i^nrt{Bou>nBNHnK2L#j(Mn_`IE^4!Ll1=^HfWxF*3h&*Z#%l>5W^OLIQoY+I_=wMcY=0I?^p?g99G8R2xQ{U zRHl^VNMOsfIWgVXPSBt(D{bJUAw5U6{o8!tCB0X7eKx5W zdqnEo@ylp%dRN!vyqmCnY2^AjtF3e1xx|u@laT^NPV*U=?a6kC?-(mA|GLpSR;p?I zQRDid`4e&8GQ^ej1W~WCH-Kq_&4JbATSc?>_S3fkbMgr4*+5pe?CZNa1Z$09n%3!G zs`cp8tai+~vu1+si=ElJq`axpfH-9V?Fwf{TQHQFyLFl8XG<|LA6dFxM?V!u#7vl- z>FwL5l{R>!S^T}BI!3lmpeFBLq?=vYHS;+?3?@=HVR833tttQVmn$^$VDju36gTB41aW5%`@lT5ETiOV9*NT&GO_?-L1bacH-)Al#t6z%|qoS^*A?{5tf(%U-cJ&>KDH!Mrp}%EQcG z7{T>PRoAJD2l}czdAT|9-X1gw>Q{wpAC?nm?I`c^mpiRtuRz;xbtSRfGR~pYTQ2?P z+Y=$q?sh4aT6E`k4uVdAAHoc$QLYnuZuVh97g;_!QtA4)>K^}Hw}@b~{O@>vU#~HWiin9#~2nK9sRAb{^J-bz8QXU!HF>W@@f zgYgX3gJLzJ`%4&&qiUz`bQa7Z(sHs9o!o0*p^eoR=Qng>N=5=Hsn0W5v#hmnTXFx8 zNx8g?N~R?DiUQ}lYWZ$m8HZ^d7~{B24Kp(cKzPEoUAa!@+@D$AvuTxpXFc2i2>6<= zK9LLy^?>R;&m87y!p0~l0}xjKze3f8KQt(tGSK;UWVj>>PY#-fW`S$Gx+F$qnm?V zzafelOo}SV=Wd!x;u#Y+Y2$OnN#mZ5g{f zm4RA$2W!Fg+tg{*VG7(!rq4`0Y>`D3!w2^gzatk%UqFgus~$CdogjABN%Qm{@BL6w z9_em9<8fN?%A*~tq#lo|2u3wM_(xcis8waWaB-BB40`;Q1d@6j9_@9^?+#GzbyRmI zp4W59sB$Xk+g7o3Wp`F3=KCXr9V2#Bi7F089#?(etuSclDb_+e@@WT-uZrbxpdyvN zL5*RF;R+NNl7vkyI%-urRr1>1cm zRM-}CEk12i>Qgtic(tHN_fxmV+T#5D$H^tJEju#gbg_<58%|geAO0K1zWcs6+*?GR zAA9%XUITd>Ck5I(sJ%+xRFMkp;AU#R)n`KcJpvXg@McG(&J&E@`e-GHwPfzar=aXPx~aimJgBI- zexk2CO`|x*Ia5=iWmo-)(V}ntR`H_K6DOeK<-QL`&|Sk+eKTzRB`PrxAuvTdxhLJL zw%mf#BJAQ3O1~<)LE&el%;|9PM{0LrquTBsxZKjr*&CuCKjTc;`qZK@?qF3Vi+3h< z2hN?lJQ{}1G2q%jPvYlXM`4VsfHZ@!yI0jTG5;;m`s>KaE2ad-fi_0>)Qn#rhspoo znGviBUtMozT6@;|+A%dfL&yTf)u{tA1Xyw8nH*5c5kI>kUfahe1*)D-^Nd?$n-eUg ztMS)EOyS8`L;JYsuKe_YS^ggdQD(PP+t0aKTc1Qt*lzk+a$kF2F62-~r&Mg?rZ;X{mwqX`-a4{8F*BIi|#SwgPxs(@8Nj+#nXiMbG8Pa(} z^s#<1H5Xg1eu-=)NKk0RiOuK71EBovkOI69K5}~!I#3x1Eca$GL7ihReH(`jU-d0) zJDkH2?K^zn;VoRgyU;pXoC5DB(7mb2AEJyHxrKHezC|03Wv8uI8gIk0ZMlHyA4wS! zXx;jFlz7nVbV@pXT3ShV=oPOhg>d~NcRQ}aH^4lAsR6YP9cRDy#fTPX^z*188U)qk zQRuIM+5*;R*Wc#I`8^^cKrw)v{PVU?ezsf|qg@ehWT2@o)kgT*(WFDQQl^=t+?r5)!Bv;ayBit)UeMZ)%C3JD7i?RUvB)oY zwO|n#a>jjwGmb@MgprL^ZD?G^G|RjLP-{m@tP!ZH%Gu7F4PZMofoM5Fa{~EXHu;x)d!G#1tL0i=tjrnz8Sq1FL_DFj9`xo-7lmT zs+f*YbH*veAz3N3ygT{EhN=C8d=K`131E^Apg`f6kn2xc*~CCNw5b6U3e76? zdZWQ;g8SI!;g#!2Ae{iJ2s7-#r}W^_ueNgr7d-hrU_bDRZkJ1`Rv;d{EoE zL2(Pmez^CE$zTNs;y#9db#5HliFmgqDXEAl$ZMyYc=tW5&ZIOZ*^xc z+Q0U$@sg;=Y;}#qOEUKtSk%}oNvG3*y4?Cs_7gzS9*$Ovi*H*-0oUffZ~osf)xBR~ zDHnndX@zpZF2Wk=Y*&6r{E))+y*VMls9BgzU)00}bj?Wm1e1Aaq%;MJ&zSr173*%f zN}OChWJ{GE{t=v_C{F)%MSV;|#|;M~iJ>Vx@$-Hg5~BzRA)>W`y*-O@s(kv+`0A(I zYfn1ZXX3C5LT+>ejx21Kzk1cyQ@(w^AJOu4c2zQQW3gx7WoWl{PyLd@C!gX%tk|5; zDtr%)Xp9(u;f*jPC7VvfxlwOi6bf&u&!at<>zFPZap=C??dLNkIy{h2eqrlXdwIvL zU1}vB8CtJ8E6etiq~2W1^&vHH)wjsKz;*P}#V3<3p$~H;@erCxz8jr3KYBXg%^`ZL<~wT51I!Q_d)^TTs?f%e)=#F>X+A?8HKK62fMt z_g5nk_TbyoDGXhN3G>I)iH6Ao;%+}62jfj{|Dgz%mOQkq)k^d!p3(a0?mq3BF<_xD zzRg8>NgKm(SHr-rUJZ?>U0NGDNc0bFAKTBUab9%Ia1m;L!dQ*8f_`R?5(B)E0+8sw z)*2h4oG!Xix}seZCjxv9XC8C};Yy@1|Bl z2WWADF(bZR&y&mfqN2YP#%Ax|jJ+ebSj3HTDiIK>UV&AnZd#D9A-c6RBd}H*1cH?% zzN3iOO#b#=4%P{Jl%#)rw}LadEYI(Z#u&=XxKz?-wbtkSJG)p#Z>p(z(aogc?2XZ0 zXnzgm6r9FJPx2$%Kdkj=f=@UN_O!q_WH_}y!2cpEY(Bja+%|>uy1dCNa=FX=9sS|$ zM5%WYuw>*J?iwp495&7}%=MG_f7DYOQrUHqne*uyH++_5G8^56wYL3WaVEgT&0PVYp2`AX*#Q z@i8|y<1I;{oE0*N{X};q*sdc2GPXtIpR+eS=i^?oG}CP@dO%%Xv~{(!kasl6dw>x{ zc7gkadi3B3pu)h4{A=0*kYV2bK|Kw|hf;CD=y-CDQYG2BC@gH#YBu0@iPZ9m-5 zI)k6i#~Oyd+NEl_r7?TAoU=bXF^mS-X~_Gadl9oH8%zXytc~qOb8C{)7Qd2H$Lg|) zn4-{P9zCHHU*#Ctel5l?DSE>d!aEZmkOJ{3Yto4%kLEjenckS) z3I5xI*MCET!_n8!iyAE@Zu4uyHU>A5fsd#=j7Ebk=Ao;cjSC@Q3`RctPdJOiYDXz0 zTs!h{F;Y`=eH%9qi+PMVN3kL>#%$#~kr72womm6n6Varz7KbOOlBC=sLH@ZP4IkgP zUd^47t9j4y8Fq(K?(F;kxBqsr5F)_xPXiH(H-bi7UPD|M(-NPy*}ALr>rn}B#1VZh z*E4}H=@1Eg2hYCVp)ycIG$gY4shL&leX^$>rk=jr^^-jAUVJE#&F*Y^Who`f^$DGH z(;di;MZk3&8j25$lbIDsxj`46?_H{|-=eHzm; z=)kz`Y)3(;pcD09j|7OxP>j4`EHF1{2#lxRw2>8W5-FBpn!uByB6HCpBA~G6-Y4F( zUU6Tz4n7B14WjU%QaZ+Z9cx)R|LpyN_b=tHuvY+nPpA=JuSOEqAmj)CCZyEY5Wf>% z36YFC)ZjW@+3Hx_fh5!}Cwie{LhW&+*8T0*>$+SxZ4+)^yH z8`GCJ;P=iv<8oPxjVylN4G+q|G4`=@R75&h$OmgaNeBjE$Std z%kzafWGh-fHi?-Rjj6PD^#}z z*79@7oc1j)_y^-q3&5b^r@cLntu`tQQH+YD8)8fI?qukno8wXzMiqSv_Oz2CU!}N= zBGf2)b%facG}iR;Xv0d-MKOEK{*9fiTeMHiW>X?=@84|9xH&8%qqne- zh|78?=Q$DOw%ZP|#nU1_`WM?);+Mi4McWtmT3X#%+;-IEA&krLJa}b6v!?j0RcoLJ zlXWNmw0>l@VZNQyyBCRBv%v!^j9<}bz)A~7{IJ&>g3bAoK6g@Ow&l_VymY^t3GsOp zKV>AV?x72CkM9jVT5PCGd}P`&s5c#TOrKInKkG3GJkHj!@e^WX!;riEE1ylR%Z9db zlS{Dq)QRBHdUJfK2h=}hzQay+RKwc4t-I)9Dvxy55M^|{A= zqQ@W4#1&^oA#urEo4fyNq_aGckAiGNCli6QbR_M^L=$NFKh#lIIat8muY=-Gy6rT3 z#qb?2(@q4=pZ(l;2G3AGqY$r1Z3&QQ^F+0!!EosZ0;YhA0;YW!MLdm6b;X_^XkM6% zD1~r_>EjH)1oYoFrGN5^F4r{|sd7H^3In}ph-8Av6<}aKxQ#QZjXP{v(sPQe(Y@#% zZob9}@jfxc)Y%1k+y#Bz}xiOmD zI>*}0j_a)Fd*c&Px?UmkKkr$k1c_4{8!u5{S^O{_gDl}8t0Q`4H2o3e_-nQ=G`#TY zXk!OSl`z%>Y4Jz753JNWcqY>};tby$xTER+l-o=8w>_s757?;`M_Aai%Y6?I>u5~TvjkCGq=ugY zY;9CZ<@VvbO8ae2x;<=>K)TOA2m0>={?GIO>g&O^gsCprl%GZa+yP$TR-2-P^Q|}Q z27;s>r1GTHYJW+=x^L%6yvlpg)0JI*?v~@*=S-y+%!}@nxDHt*rR&R-uDnr{yq2u2 zS|?IA1B`{EC_V%nMX-AIxM4HCk9cKd3$~mI3d7qu&=^l0Kxl7VZ>tC3G@}jT=izc1 z`}4-*{?O};RNKVhoYjc0Q%#8Ey~;N&=nGss+3A)KpO5 zA|n&sgj7OS_u$Oye7Wa)3Mb^^)y5VfJdxph5Qn@7^1D&zrmr1VsXaVq9R^CZ(eC*( z4kfkJg<1b%>COl95h1P(85LHWUk@*UdY}task;fkU$Ba*@@Nib?l`%6vp)Udy3&K| zkG@}OXFuv-FRY>>l)Q+-F9BYG9wgDYyf7IcV|cvG|2ITee-1`k2&o^#qAC3G zAipalh356T&w=1yTk}#@#8xJE4#jPUyZ-alR$jU+4Vp&n(5inZoH+QTmu}GY& zsO?W?6;@vzFGhgK^5PCKgs9iLaVQKZr=U`0B!QntH>vqmsAwUM`jqw7vBZ3IOugD5 zRQzVSQ>%b)iUuzBFx*z4$PqTe*xCmrd0-<#s*tbj*oFsp^v4u_dQ`0!9vZT|5;Unf z>fozLaoZKJ+Fb<664ig*8m!$@J#)QFHR}3e8N^McBb|AsclBPu&cPE&Y03S!1FT=Ze@sdt1s7Ljm>z4K z;*;y3p?NvVak_YN;f=VN2!$s*Kl4l_hO$OIz7jVWonBz(L;=YKF2~ian z*0rDmLE0aBbJr*CHZ111Jjxnf<4REF8AyI{)CxO8;pw3rkH@#pr2@{@qz6$4-?HL6 z5qPmt86TVg5ZQ~5ev;iQkUavYlsmL;2!7)^s=OKIUqIn>GslmlMfD2;A+y2=q+_iqGZ8-57(mVY&NHMspu-9TSuH^E&>@xa$P^_?T>5#pHV$CSvb z!w)H|H0Nz2(!kYqZKM(E6+}h#kNsE_3hEO-K2JMwA79yK$%7WmYQP?+sFqygXHu*N zGy>(mjRcLG@x&Z>eh}KO9jxgc{EvJ9>0@Sb;Z<+b3hGG7IUhG|H_ZY$oDL;JI{WEu zdGpnLDkktnl`qk&PCm1ew+iC&B_8LM?&ls(*WAoaPe?o7fhxlUDamYccI@# z(b(z+w#twW@QA}H=48jBo}!s;>@ejxoPcsaS@s?5A2-+qO!ay zQLyiN_(xnjC@2lkm`}zV$KM1&sW3=VUneN@=Cjnb&)XdE;Vbh|G)v@c%(T`JO#pnR z5rSj=F!NixhjQfL4_9~&)0mn4 z6|C>2;Z-++|QPzk4A)1edA=7DC==iT|e z^K;)=!aKPr-@%IzNViF#hXO<)%C64ET6k!{X4TE+ex28wd8$WHS8PR>IXUz0!t;X* z=oTwF2}dOrw+8D`A4y1VRM$b7WJigNxrBHLb!2r6KeQBN2~phVGY7@IhB8tQ>*rHRqTNhG+_*W z+nVnp=q|P@gsHn^&Vb;q+3373qS`5zsrRw)Qcemc-DINWUxgl<)qKoN6MSgffbM>V z_7}ilcEZT&8c^>Mj-?5G&9QSygr;l{>e>91OQuyHSYf4w)>|j2#L!@7UB%>u*M|H) zmX?ybOA<#ifrilW&Lfx`NGFNeh*_SO^PkD6pM)&UK=8Wsd8y}aIFq0B*v$BtMrQ3f z##;C$JGzPzrxhiF^b$MW}1PAU+(QH)fhuzwN7^H0w#D9(f!p0BW4S2oz` zLgAsuXR`!=j)$f=@j4z!5yMo$BD}}X&#*QO)Me_;KQe%$+UQ7Qt3qz`CL}Sd5F=c4 zy*A;P|Bp%LGbN=zccrB~9%wd2>JF@LRFkXd(&hz^&9qIQ8m?FO&d6>2l+Fk@?a~3T zP08@?YE|r=W&N+v`sy$Kd7!Aj9ZD(QOFppWql{5YG{k~<$k+T+^=^OG72Th>Z;NF4 z2n8TWHoFEm=OZ?OlaqQMYO3oJRJMf2pS<~cM7v8xEBEZJTc!b~knv8gHB^O36EooY zaoES-szGi@OQ*Qsx%yf}&{E*AMvHW;ez^s~Gp6B=wUK2a`SzB{dTep?`;XO~9wxID z^jod!Ho-yz*g^j%Vkt2kxB3X9f z$F!A1Myi!kwD+R80E`3m29-7T^;0>C_gCrDB_IXYPxoo~5~!;Jl7!(zqp}_11H3h1 zzZ1hudN%)yotR@g#p1cxnsysncmn}CcB1&YmLkwSPM3Z82GGTvS6{cRsb4ay`wbE5 z^)R>JE%>L(GeRV-6_-9dxvFN=QS`)9uuAsg%R|WoWHJO1O#3BtSxc6h>+|a7-Tu|f z+6ApU-anN=q{qbVEhvKB=A;o8!}Bmp^hB%4pVdiW$kgsLO|cZwZl1rcnN#)u^Q@6*B81NMjCM`*i$;Y9=7pa zvt#mCA$wrrqGk@su}Zs$ABl*piqzKOnBxPcV5xgIkQ=cf%!^WaTFwB*+9PLhzWB5IE_a64*mE5+ks16INajS}L0s9nNu^3p#oaW4WTy$#i@!j;e__?6 z=7jPoeyDV4kreo$Htl>^u=Ohl!U=OrgKLiL!9>zE#5Y7?1=Wp1Mq&H*F%q;}bfy1- zPX2>L{I5nL{`Gmb9-Ww%LOdi8biCT3M=7okMF%Ms@26H%dum`JsrRIlV~!MhB;WgEdmv$Fs~$C1PWtgI(ej(8w4y&OjFttAz$0)rQ1-@iq?tKb zY}L%G88!_Qzg)L;O|0!|ZE{S9>b+#+>qlUzp6&KaQHT0Ea?xN!e8s;!DOY5G{2oL{ zaG^r8v^f3iS}mdMFb_>J4>td(UzTEo5AjZeu7}|&>y3H(ZTFFoHRzl0}14O56CCUHsDMZ-^)LO%K6p?j`rk!wjrWNclX~ z&Fv%uWgnoP4&Wlk(OO}2Rjbv|NL00K=%Y3R{hH6C*sp2jl=CWvO2Osu?oQ%XbxjX# ztafsh2)ZA9g?+;1&-gC}Bu>{)*zw%|iV2K#f2J+lf!kJp=sDsHeHvxbTXQJ9=S4dK zwp_-O=uOdCcSE8JHDF@5O<4wr~Xwbt0T*I_&uY5yw}~rLQ@B zu8GakKXdV6u4v>61JV+MH((#1xkXLE+=GRqjt5eWmT6cp96;7s-x|5 zdiiog0=}ez>F;9)Kc7hbfIW;KkDv3~48%*>kr)W^I%LauwDsF`ZTjA-Brm}>U6O-N zEB$6DaQw=id$(oH=FXx+2+;S7rdqD|Z+n$gsD3_j3o%MSxKW6(*J@HL>?DbJ%ISi6 zB;|DO{9iMyjpD9@cUNi>^u@y{79LF8wWVJ)uhN)q-P3SR*2+EBh(xcl$Vjorwstfy zUC=RD%_RivO5HD3^WjP#_`pTJ43_<$o0dS4C3)a0wW;yQN9dDEu|i>d6aKJ{#3DD3 zinvpw3o&nr-ukL{voB1(Ky@JVxtcQ_-U^Tz_ks+Dyhm5};fs}O+f#j9$qzKEp*mT; zzRpC8S&RTMk5qc$ft@+xUu-h!U6=pMt_OY9DGaR<#IO6@&h4(j}N&#Q_9Sr_f;s-EI1D%9-*jY|J-kIBh;g(Y| zTI5Q2Dpo_bQ>S3-GKU+vyMSa%PS@}X^Q3NG5MLOA$HuS8gVOw@20Kt6;1QB1Ma;7* zUmtwb-!Pi{(N5%K$K_w|UXXkgNpO&Wg6aK`8PauPE`DmJf_)>c(8zO+y;{n@vOOlB z$I3y~#?5Da;TV7V_1Fan#4Lp}N%{)%rhb$V4vRQZB#tx`|^zp|Y} zgu@oSRyyS2+_V)|OvP#jl+v zN>g7qa?@I8Dv6VmeJ-`LrGb@HMZhnz zUa%|GcBcMpnB15c2>2X~JmIi+`E7M%`u@DNiH zswu^ih~m_MvY_WOmReYKjvZvRIBk_&aj@Tqsx9?w@Z%cW!s`MAn~s_M}L8!s5yHWVmWN zkMPqs3E6X>uA&#GOI+0&OS9KF)+U4sJe_@*kA-7Lo#OO7i8dEB86q4{2s6xqY1= z5`y}g#Rs~0b_!Q6?Sut>%*Y7Zg8GbZqjTrmjFUFBb(@V+V<4NPRk1bQv(h9a(oTqz zeGvV3ywk-ypcAc~cScdNr(K_tLR?Bkz!drMvlFbB*mm~O=1MMl8s8wK5DEPZ-a@=I4tX6I`L#L*swF}dpYwwP_b$vnRY)^GPj_7z5*ePuRN>=RtjLr>YD z%};3TKl?`-9L4L93$-#?H6B>`N0S^G4>a@do*I`1n5Nc-go0HSq80WD+1WQqp4UXT zKwr>!6C7_=xYaJUa8(XUdxa|W4QXD>?opj(V-or-%%RJyV^OTHbJ@y$BVH?(FL_PU zd&qqw)%-J9h9<~nwIEmUjdD^8yg^5x)zOnZw8~nzfzVO$%Gc)3W9-S9ozc7bw|qL5 z0LQTKH-z5*dTSO0pOrD|!MM`DdT1P9(C+x*=VbQn*$~C!ud==Au5c|PKfyQD!MrLR ziS9$t36fDk$S2xwh|Q>I40EjIUIb1?MDq|*Ja9`gjsc9AXb?P3nY_BZAD;Byhij%D zl|kXo?EC4D6pJ$t+s8!8M$)2(2!MCfcw;~0Ux?PRF1^_kBy-vcR{TTc(I7M6s`Dmq z!rq9$gA<$3y1g}gzj>Dh;!*UF{P`;?8qQp=Oo(V!&SE5J*C{p(BkR&2Ge<+Wx*BI` z_Gj?`E?p2(Rj|5CsF{t3K`@YNO<4TP24ak@OJoO3l6|22Nr#7V*<-?AoO!`y{vOu= zMUqsC#f93**ANOq(HdW|2Toy?i&Hv!-yf@o9tyd=%XzLvBUzArDV(HGdrrG^BbYg% zVZ9@6cdt|Ja6}OSj;yriJ+8G0czh6ZaZAN&mfT<&=YBX%iDm>(_AXK&cyh*Jw#u{F zN9r)#{&&8emY#`JAl+hb5XDMRjh^A!;FF9%*df|l>({)V5A$2vW>#Y4g8gdqgjU`Q z_&c1J-`Uowt{I$a;eoh_DPtjR08_0T0~qw0w`^?xn(&SA5L?%jRP_VN8RB}!5|z=z zd`VF4gv6Al%O5z3zJ{6}#24g87;3%4++HiYski(^u>Q-B9h7|xLh;Zk`^e?hC{jF) zsd%<;6B(se6O$M19blX;99ur9Zv#QjNRANq{waC?bVJ5A&FAH3O~%RXeBb3Z(v1{L zr6)BaGWM^;dwxN+U=&l&eR2bK_ZR$PbWr$xZM>}6HdxfaNPLxKUjnFBSx&3f}TvAblZ*O%gB$AQ#_W(H=j0!*PL z{zT_2GQ1Z0a^47Yf9PDC_HJ;lA5AlTMFOJQ$we@saAKMxj7ag>q@^*#o8w$#W(Ex99XM$hmJf~)g}WI)+_Yh=se_XdKMdPn3PfC|Lt}~?c=nCw$93L zQ?w|g+QFB1Y{~oLl+%9A%YTtB`(Pt;CdJA>s#@;pHC;jCN@tQG!7M0)e|Pll+{kvM z_Mp>bbyA{*zHhJQ+p3!7%$-Z|@lVd6S{g3YTJ^y2=EyS{@Z%)ECR6?1rT3znEuoal zV(oq9a?02$IzoN$h2iL|{6E^EcKFW`%27ck1tg~lZEHp5mC{iil@oVc7O3*KT75FY6h}%tJptzvq zl6`O#njsKzWraR&_zgjIBXM)!X6xIeGSfmWQKXZYc{5vobPLgS=`JbJBvRKhfxyZB zeQZ&85{+EmhLcIIXdgducCT}XT`u&y1s$kr#wIjf(~cXQWA}jfX;3up%WdU;F}DRM z5E5-0(NcRc2W7r(R6u&FdcDf)(vF9K5HJ48NA`11pDkpywppnx0ft3R$dxr0NWu8{ zuQjUySK=jwM3eKKEDu$E#UboLLvosKYwYG zN#Y0eUC~{6_pHNlZ!+?x)4kaECt;I#^bgTp^e1o*1wxlDk^EX4>7(o(%PcgcX#Mur}ZNQh8&{3E%#AwX~^+cJhXdOt1_C!SU}SgGYM^+ zna7;;pLS_9QZ|X3;Jy!Ld&M3YYen+{?n3eAiGNryf0!`;dHip?24^1Mlv+Xp)*6k; zntT!2e7#;tnAAQOYL8X7LCP8u!sChssh>9TU!A{ol-hZe?I-%f1ztayAz&C`DNcXa z^1U*zbox|Bqfne=Vu7WkSuihU5HSVEd*C*E$--+qc4zUhmy=lM(A=s1^=YmeX|JR9 z)$Lg~3a_knH>i+XRnQT8cf~FG(F=ps4NBM_YuuC44Z~upCl9$EalpqrUpH1S!USRW zVdM0~l(2cgLRTl5x5;TC2hj@t?M;22lFw(!q3KjvDT4fI1IaUMV2_%Pi(mST$$vvo z*<#AQX?*+6yG9d>ecS=6s}!I{4+$nmXp!Y&3!FWjvQFGk+7VS(?fIi|g>{Q|5*oFfJ@5&f+^ld0{Vu&{|1%D$7xeKyBwc&nn zqYd~bIBK1z*4BRkgNqj%g|@^erGqXX@T~{=v=qVDp$8X#Lk>=7KKUF39LxJ?M$jD? z&q~)Gdd4IIj(5dvxW2FVqTHZn)6TEsco}ks5bXu6;^oJ9QBYmR>BcM)=nWkO1yYDT z01^ix>8?a+>jGwyXdP_l-AL8P%Xb*6B#}=)?N7=icP>8mFJLC z4jsleFqG3s8f!ku41XSH0tO>dBiI&z6U)yBYdpqqvv^JS8l&>FKTrLIlHZ=R}d@ z*Z!UD9(mJz|AnD8iVD>e8ip#s8fv&G} zNuiVP&(h9s*Z+7U3>Ih!7f{Yr^23Qdp2$jT})OQ#cs&v&KM_P(9wvg8s zu%zepik90>wTnnHfAN!DH(;#5c?H&-{ke2l0sEdNyIB z4J)2w%-!&H?mdt%ADr$g++j(w#F0}R9lkcS%?veW@hW?Gc6ANv8mmr|SZl`FG2_|%}pB6NRuOiQ?p zjW?ISBNvqr4fKN&bdvma)e5OA5{KQ0R9IGnxX#EPRYzL*+F+SS*|PhmiHU22ddvNi zA^Pb4KhixE{%W!fVuUXl7260~-3hvkmzV3>d038Yn>00Mn+$wh9s*m;tMhzq0k7HW z+yIc(QA8)Q;#a*Vg^`+7FF&`MYpV6j{X_9DCH1ttU&7F*<7k`hFCA;7jmfrpBNsLQ z6G5ruo0Uk>ii4@c8<>#7!GtWCplL(xoj^>}cHcNZQI5nw<_MCmA?cH~NJ5kPLql#e zzvg{Lb1$9QDM*SPRQ}*^)&%hc2n^Rj^23pGuDb>mPZLKzZ%t}VXR3L-7GAZMP5_l% z<;6dH>V=B;ujz1r8A?ZhQn+Mk#|!YMLCt<&JkEPH8z0|R=-zUNR5sc#XBT!x4<~HP zd&`?WbM11-6=wJgU>^h$R5-DX8m?ie6-k(%lU`5@dMYdbHkwMtXm(f^oPi)exs90L9!`CtD5)@)-j%?%cX;? z&#P7bxErv#uvK^apky-qiFIB>UU2uGoAVmxF8jQAfmq@b^cph}97YH`vRMx45*;0D zWlKf9$1fFlCQKBB;2ee=rUGhGUbb}p%6)iXh!v;s8IiTttWFu?bBSLGanZa>DwM0) z6Kf8E+>xbT2UaU26OJ#4daKV%A1LzxdP$hs){^IF{#q?gt}_{!+$kqn>CVH;$1r%8 z{pg!FTrr=QGS5FI5BZ<#pI?#5I2c7mz-9+t@1K~yNd3xd&$`oD;Lmumbv$d=o_3%( zOSKRif0b7Dyn2P6s|X1 z@J)p9zB$nnNY@{sbwF995gfF>M*8Xj?=P3eBb`3Kb2e-*FXyK;C%hbX8+HQcD(l3A>ZqVumpgR3GGcf@W z(O}`A`<*{G9&~v=n45pyTJ?zbL9Pc**vE1o`mIr&1bP%lNd#QTVyYdF&>0TM(pk2$F$Uk9$j_6K{Yl6k;V_m^!A4k0`F@vtne4G8~y zgB<8S+0FIeMOS#sl0^4Iv){nmP+Zkg`83h;q4^r|$%}(X$z3!(tqoOK^CDA58psvp zd-5K&eYnH>LpQkoEDTKgGQJs%K^3>rL3@TVM^wBJm~%v4FDM=D8+4jj3-o zo}}A&tOpzTs$8kzqrTi{)opv~U_5!%0Tvs~V2cC$0{vu=5($}0VjFaPqfmEd^Lw-J zK@6jG{LQCGzLmni$vuA%l{qL$Vk`z$qosOv?rr`rq3HaM7|gE(_%y)AgObp6=z;iG znDTqO?Z+@i`j}bvZ=l+ln?_Z_sdS1a6n_0HP`WWs zvZDV*$`uk}4#`qwljCkC{#7vMQm9nu-YsDQx*Yaj|NgFcOW(NgY-e*H7dtOW+@L;= z>ORetuyl}rqBLe!h;*j!Yc{(+gU{+WijKTD~db;uVV9HaSqQ{b$1W zr{4p|)=+Kibp9S#kCz@A?AUcBlu2WZber2b^VVZWIr_sP@t$@7YW#C1hnc5ufrwPu z&)DQ`HG{(AOaRyHd3phjH7}PYxJp(8Jj=iTqAH0F&$~K^F>ZwT%hR}U%@`KaH9d{5 zr3$YahZ_^+aEX91bD!y^w-B&CGsTJ$-M6hNK|K=dMa zkB$H(by4VlJ<)9T=PPK;e_LU?6!jq@5Zuca10zA9t`hXKYRX>!=g-NdF>R8S*biQ; z{qsR|Qx~3IPNyENp+1K>=@~oV!xm;Xx=U>D(Tt_wH>fc%r`QXj&G^rQH;{e9+uvaX zA`rgm;e2`nt77luGzZ2W%f^~umB@~n$V#2Y(2bpGx|GfLbrXn69|); zVSQ4+$GMx$zo;BlX^MmqhPe*iFB(cF0VhMZ_C493?8GM{icEV_v5aQcGGeZR_9G$| zN8i0;Yk3ZX=>!hI5&!Mmh$s0KY>fSeTrn~SjP*fN#wO=!j3LYsa~yg!hynj2Qp85o zT~0mYxenU_(*No{KcHvD|MTSq>qP#2(-C_D{WtI5K6j;vFHGC4i9S1<>F>1b%$%3u z-(y_Qk+a!CmjI0?l^FVEP&m;$KsrXLIar{K2v&2%qMa~2$4-qJg`f}8Cfr?))zHtG z&e*(WBDY$)#~5o}9y9B`Y7P5;xk8RWN#Zr3o#7bgmFi~?CY5T6jC{ZAs_O_}-EDC| zHrQ=iBiQhW$XOGX+obEQuN5rSd}>?W_?57n-rZYnH~;6=|0B`zpU3~^Yj7=_n4j~U z&;I&E(pmF2pkn=-_4bGP_J8v@XR32qf3Z|83UVdeJOBR)SJS||Px+oq-U_Lcz4Asc-JZWNwD2TO z@gEMdo9|^K6)*=&-%ayoXxr6AvRnCEQX_WKUHs0T=O(WuTLk)5lXjFaEZjWQvlBOm zKPFp6=Wg&|>dEApX(7u7fn)d9Wv^&YqSLVt%lX3}SKAWXjg@kcxoYD_zF5?9(ATfk zISTKl2K!kTemH%-x@hg8ip<^4xoG{^+B+LQb?LWkl`P&{pg)IlSQl-6mR#8NNa;tH zt4HO1{Ha_aSkj)KqDab~Kv?-uOG*#S+#y>|qWeg$wqWzVAVzHc`Ki#s#n3jlDfuIr zmSG!#x3fQF36@MG-aouC5W1;+FYv^`$0MHDp9P&+l{oWRE%T=6j}$GzpuzH^-MRq* z2f+`2mVAIIZLgOUqTz`X9EYavRsHsJ#?RcNM)vL&SN$9Ya|!!LZhGHukVnRL;<8;E zFO1j7H-9nZ*z>)clY3{6-GlFCmbguZXiGD=z)H5NT(X}zMJ2CB*h|Br zEtf`H>pwCUz1X+Aa?x(auUig!-F>~?34tQd~Z;pM1f%b$u0)_mTsSon^o$uERsTCgtj z(PrTRJIerXflNkQabs~ip|F~b?D|NHkBf`K#mig~ zBbG()EkY?JP|ORcQ=DzW0FifG?EW(usmbl}p0uojVe8)0&7P;#HA_2L2X+~f7`@l# zjka`>2Zsmjtk5XS&u5Ghx^GE-Imgh$7Jb3Jd-Cx6{n*hFW!~yVkA57NOV#=z(jRZd zcEu-j(d3ehM||e@{4+#TR#^92=`ZzVwHXF(`RK`0;bSK9mhLq-LtmV@^ZS@&`QX~U zokzzQgOsTvb!0ml|J(aD+mGLq8`~Z}FQU>E^bu2Awmk*gVQ9>t@7rf2dbPzDBTPZE zk>Vz-0oU$9SqG15pJBCyYJUM>OWdb^R1`&kV122#LSDrCh;qwGY{GXV&zD};%-X!* zuOgl(3m1-wWVf}yd0TtovAB~+^P4ttjx8U9+Z)*9u{kW-a`6XWK2H(6;)LJD3zJl_ z^0J*LcUWIezVI}bSj#XB8q<|(+sj@uow2XXpFWxL z)un+UYyB^kYj^vu&oc!nd-jhYo{h0&hY|#iUP22ijGf!KOxj>&Vl}^IvqH9h>7)>& zmo=xSb3W+iOWtLc{j&we;eoH^J3Q6D{%*0lvS1pKE%&BJfW6n{sLdss;F~w3s@{toaxS3Sp1$%LR4n&DqeS+Z6V1$5`s6?{r<4KM@)-2RGprzr<}O za!;$#+40TqmW|#ATc^B(D+H8I-?G{I!lW&AIYP^EMRH*(nt*$)v3Nl%d1q?*ASmJT z$#?Mdsn`Dt-gP)x~w25)`6z>7u> zpUhUzN5@L&V;f%UFOF)B&1?4XM(7mfPtl0kJyVPZ)M88W%-(iA4-8Nlm`WqQ>dSDQj?{7H z(;WDD!(N;ZuRn>HR zK%~37ySo)dy1TojQ@TXD58Wksq$DMzyFrld?pBnzTi^HljMwiz&%OWNJ3Moq&7S$K znKg4}tu<@b-skdtf+BJO!7zuFRNxV%J=Trd(<>;E0Z$Ej1@h5?w+%YkngP#5FlqUEy{qns8Wgb zd&VyEN1N`UARzAVA3*%7$K#covzE{xAWq^SAW;9U$6Y*Z%)V>!Aw4~(bsh}g<X(H>0?vba!bbDX$2ZbX`*Pz3g@iqYNPT=8_&qtDKnbEG@S38d z60BVKKKF~l_os(W`yiFx{R#19^AWajnsQWI~Y|XzhvV zB@fGfF;AHsqyzfGD10)RydHn*&ZErch>KOH|COc1_=x4T62oSU34wzs4mF`)`iA9K z7E3Q2ulbaBTvF~uon)PeVWik>@hT8lU+ji3>f~EjGnJS@in`t$N!cAa(0rYc84&)d z`(AvJsU3VY$7*)xoZ?KsTFz#JgcaIjwTh7CRUV;7Yqd`=9RF9tvz0(qv zs!mC7>+D@if(#?MzGkK3BlWnjJXLIwaf-Z2Q-bzz7U--J-`I$X_-+f5qlJR~M$KrYpUEZL)1jlc zr{+-0k720PbkS?CAu+Q*lNkyU&8wnItOqNFe%wjd=Lzfg7%~5c}RM;zR|3299}R=}P@1BSH^NQAV?q6C0jWNNwEH9IS*eY&RcVq#`hPQX`$W z*#E>x#vWl9w1kyL-9lfp>gjbd`2?mzKJdt_tt(@BrHSRXH}vGGqdS~>yu`?(uznNS zIzow|IOO0K!=;FGL&`U}l6A^D{rA+zuSpMs_bXnS4>}_V$-Gxt(K^e5vTwNe-bl^s zQ(CHjeSz0IQ>L6Ck+kKy-YaEiiWAz585XsZi0sFz!{2N~J?*exDp)kNMK6h1hLrNv zl$M~yZ+0Suc1IyF&Q24p^3ml1Im={1I1Sw-hzFxC5^I6?T0eS;B+x5NuGU;RJF z5zCjyh^)azx3HhycJ}IQ2iS_SlVh2{p1dreM=Uccz0UHxmDaegn{0c?>Y9fu)1s%D z1|4gd>}wS^C9|a^vKAIkdc6jO6O!%@hR4lR2fi4MaM_)puYJ`(waP=N!TcE~#=}cL zR|oHedWn_lO6<~pu!Q7||MU1~{dSjxt|1|ff?Jv;_kME)PDxVc&dPHn3ny4PP`uus zlWopcpUzYSji|2#yVXHifUA=sr7)IzI8?Dm)!m$h=5LAhm+6FXD&1QU59rxoYYN+m z#?lb9DiQO$%wwptx>00+I<=M@7^58t!0%g;Up=xmm1NVA1u_?qi6q&;&`1W)r`v*A z`K%2)KW1{W$UWH7X$8;WdIHlLYS|=Cq`Qv2-pcA+`GwyPrp}nc`F>pL}Tkponf6sfX9TI!~nG zw9YnIRgx!lrFl4ndxxu_w!Uz+1#z8boUT5BP~&ijkjH+pJY5f6y42iAf7$x$_QqF0F=VNQu0`u9Ab6yVM(5kzMx z5rp<54#NaUi{s@F0s`dF@t>~zRdIm zv7cdQR>qo!6E>Qby~~4BjeyY&tXd;vz23x8;T&~-zebz;lIUnV_mU?c%Zo`L_qhU3 z)6c1443%Wmr8cv`hc{31$b6)JI_)us02RW)G=&EFz4(#C6P}KXA_9@iLLlc8(70)q zl0zj~h58o|P+a5@wEa}3+Hd*ivRWl(3nd2Ce7xx{N2wH=P{LU5r@9W)&|a!CX)dEy zQqOj@n4gwAjW|w$QW_g6(&ls@s4yKmR(00@-&t)l2Rig^G< zZY7|0hef)N)}p58>=T<04h!~h&N@)D+%dCe zgc(M7U@*#DKA;F$;S$W^*J?8g_rkN5OmVND&R^enR`r!D3&Kv-oxW?t`2@CE??g2l z9{qF}SH?efm)FfmKzl@U^>G)Pt8oEQqRvvRq0SfMOR`18`+@j4cSqxO{FbKqH!2DV zcE=6=LOpMjSr&ca5yXm7O2COU>Suc!*1l6=7b&Z^kJ+zu-fb{mdL4V&u=?hcR$Gmx ztAf%k)u=CR3vjBkZ$bKpxQRZa0_69uVt5RPwnFdURpob;D1}+YwH9HBDGrQUx_yml zQkvIYEo0tqLEN}g*WPVyIT?Ew zRY~Q0@CsUfct`0tbmiK;6~cX6&Jy1!pjKBqh#Fe&2m2v9+CrQdEOegek^xF2O1@qu zBFnMncWyT8zuu9{ib-Wj$%zVtCjBlJ+8YBNYemu%uNg+}hFko3h~_cKuqcY4<Mf-$6s#zJuGnM$8(-Tlg^MUMp{cspF@oWnYSW5@q3|Nhp z;;C3$R&{u(R+3FmRp`@~Fp8!#He}VHyvKBnd1-p87_+X4rR4jsa!*T&zi1O=sXa)* z4dGhBoz~Iuz<-k)b=`!G!VThmj%}I*ydN-Bw6;oP-oiZUGAk_H0=xpM-=^#@H`h5Y zprA0fpf$P9DxbSnyBc_&@6A-i7zsgPV-?l^zHVNoZYtI@dOGKdw8Vi-KZ&G-=3nRbdbjX3YzT%y zO2nhGs7$@b$u0RL*NC14qLTuhvY|=p`9&AyY%QAQ9&K0*-iO0Isw!@PV6VUESV>*vCM)}B=V-Chy zbF2_|vf8!YvP%p*m|eRNxR;8{^3$(O;moR{IhXNhVHg#C&>D`9aT>56gwxb~j_@kJ zN+xweEXn5z#LO|NKjE=7Co{8s<8^V%c53h?%!1w}_l^a>cHGJo2DylpGd~WjKg^j@ zVayINph;YvPSVI%Wt zg|#qTX;OhHe+tp+(RxSdw6T4)f(>g~f#X~uN2>$n{bYWcm9aU-wU6#F8H_Ush8CO$ zi5`LQoPKN%^xXR`LpV)jv1-~hyxcxK;#*!*hB#i6Q@@f=;o%%nra}x;>mmD_JcUQ* z*beql8^H~(qvg#r_5Ibu)at}dZ)!@j{Hjt6^z@23hfQ`L%vQ#RCV}H>gvbiteBces zp|(a=QJiJ>dTwn(x-am?U?U-|n0`_S?5f!0hdMl`TXQt<)W^26{7(3uuEL>EJ)wft zmuJW41-A~CQL6>>*~k4V0cz!sc|u>e{klEmf}&Iy-Csw%iv}z3C$Q= zpuyq(hSOs$T{Sp6Z3EmgT>H^vg{;gNo++NgGcdc1$*^YwX5!=7GScU5!z%(y_IZWy z>A^*{Uo0)!MBwD3s!wMxXA3%x(y$B^%I(Uj=q8f2jia@jpb&;*c)R`6ulf99BAsBz z<&DlS_8J>lnsS7kHH6o1d(tnZJ}}L8D0!T%3`sbX;XZm)*_;xS>VP0R$|Wnaa9y;~ zbPxF_SIA_I7WEq70#O4>@gV3ROkAB^>}@q|ZCIbXnAs{i**iG1e>>SA%cBC`f=LF{ z{O?mnY`aw_8&dFbU`ycmVr_M;p7vS-m0j+~s`m2ob*kVQlsZoBo+Td?LD$~QE?ROQ zVFnZp&OC+9z!ynR>+<{)63eIREKcrTbnxe(1=)7*yfHQ;CK~7s$wU6CE{dLazDJb! zv?N#Mku!_|zJc)hzn1T4A zCu`v<%xk7T(y0!&3OYZ4@qfCK7`B-ujvqikDB?gsU;s6~9|_sH+8UcV0f$20Ms6s1 z(QcjxtM?f8fEY;+Me@Q(=S7f!Skm;f@LIxHq^3gpIhqdCfY%3~>sYH>+DX6_W6$&rnCq|R!Wm*Kkpc9BSZ@@lkT?Kx^)z8P4RqS8!L$( z|8l6Aczh`xOzP*}A}2b6E85-$$@WUV4nNDo+T?B5CvJVr=nLv1O)2K&Eex5X!A+3y zntg%vEgjs0PYLv4Vbg8zo*D<%Xsn&AJJzV?GV|%I^z~Z5M)FwT>==oyx*y1{d#Z$r zHpGT7UuWK(ex< z>55vJcl3v6S$YtB&w^R#^37p~$jaG5!$U~W12p7TI%_zM)|^u@cw`yFGd$j5NbUM5 zeVreR?`XAQKy@9uK}@d4*v^1kH$P(Rc!EfOk!J21eEyzmM^__u*g1a2K|N~Td^K+O ztZaSPmVA@MUG{UqT?TfXumVybrFs{IRg8&%T56&sjG-057Y({wPa^Bp1TDx zDvD0WmB5W-)_pmFc3Dla(~eSwmCMXIOU84))x9h@TK`DMBKS_4=hfmdhjLU^JIC5k zH(Mv?6}F-NMP<}s&e#Xi!Rw54D;H_D&El@MVy`pJPq(T%%j*L@eG{71#|Pz)QZ8Gi zF|OjMyj>sRD^!GxO1)iT#*!1Bd3;sFl5gaFZbzb!J@Jr4u4e@Y$?l~T8gy<%d$%U6 z(r4}|osCHJA_wq6k3#3PG);-DAFZ^?WHzb%6PWj zQz;@)ONXCDIJP~J8@Z8G@tXQ%pa&AzBub_$N?z$@6=FQI2p~i#e}`N}DX%X6Vv3q5 z>I=LxrL$NVfj8Cs1K0O&jTcE~6`=7s)DXrsHX<`2ydLM?$M^kK72y zdQW_o#id_@<0R*BgZqbbIN?X@a|IO+)D^|jde&ASTBjm)Uqu7YYSR_#*y4L>=94lQ zXv%-MJf4tOhda)2zshC$9G={SWTcGK8MLYXy2}bpZg8S$aCi??s-K8)syEqe$tbqi zIejnYUUAth@vsA=_l`TbTQ zqstCm*!@?frj{TvJ@)D%%bXG`MLc5U$MP_~UvI4*gm?F}vtW(45#!e_ZcBJ|bxXsa z9$ret4IXb(Ea(L;4nk4ojVVJ^X}yOC`^v-4<(;nWzh9%}l-F(YMj7w2a2Dc|Ix`Wh^BA52QE?}btBqVmf z#D?VC&UF0Ffu(-w@koJJ42DsA`Q?|sH$ zrkTo>VB~W-yLfjutM{V2RxsepLkmofAz9)@x@rL=`7^ZQX6ceW!W6M2>3vfRBpU2y zvQ4`UyvPka+TrybrlZ*F~ZL|GJ+j%B-o)CWeN_BUmaU$ z^uvpjBY;JfwDDG%p}hxCQJr=M9kGEkPqVqX=&75$IxMT~5pw?~L zL@>Wm<>$-Z)FJG%JMzioPQ?-k+O?LA!4Qze%dFxe96Rn&Z%Z#|z0bJ$<6<7*EJOc( ztO%SO{@da+x3_aqH8QsO{>9x$QnH_8L+f3pJror6u*VFERaDi+hMCm=GRAQ@ONF8t zaX5tX@cr!w4_4``I=hfUJI$K@+3W3_^&{`(kJjp*sGl$U}YfPAS>NnPHihBgMG=}%Y@vsz>f!E?()jPzG%fZPw~{Z^C*aD5Xte& zSJg)z1aFR-xhBD@ucnPyO6|*`1sSc`n{8ODiYkpodZW*R(Dl=|A4o|nV(Btl7QCGy~@>o+Y zw@Jx50!Sf`ocz#qSvT5zp2#;oF=n^+&MZ_}i8;`gLNl2buPzO4--2yz+`*4~k<=IM zXJiw4^o>}sp0Zu~4+fCFFv?Nnl<9=NbL;$odeLDMP(Y#G$rAbIU0Y;QdZrpe@Vm@n z%S`4MSFlVaFUI8Q1wz6K(t>iTZ$D4JB-_Z=&g)4VQIRos@l;^mF+^_Wtb`ySD@;J& zTm&V$SqRxvVzf(kpu~o*61J-?$agjG-ir3DIJ?eUObFlMHAJ%FTP;CC`=87iQC`G{)T@Q;B!aj3b@hVsIhQwoSz?M z-SLCWC%(vnZ34EdyAJf;+Y0I=s;F4rp!OCl&d}5E{4RlSG{jW`88ZRn+gA&f9aI{W!^GY^&3KSW-%@K<|WFftmZ0Pgk zJ@9!ETo(>I`_N!A59S2Yqph^DoIT9fm=S8rxKCuwV^&lQDkvJ5K-*==-s6orHPObH z6!?ZC9%DXU#bx(KG^iSA+L&P_a_dA}H+fkDoAG(sxnCceclz&Qv+>s9n-7f!45GN2^ychK4Bmd=} zEy^VOUD#t_JdXh3g!Z%AG;(nGf35jVU;dRcRNC$4*^pXLXN2(@d8NbOXgv_?PP02C z*MsVM?ncO!D*tK#L{{~5u7cE-H>>)HD|?A@w}=*mp%F4*?iJea&TEq29&5Hz!x}k1 zGDCC!;wse)K9Mou62<)BAx0C3R5(=a0+ND25?`u;%S5n?ZBuBMSd{^p?vPI9izYo4 zLH$BuU%1_ErBC1iBFs+CJ^>U6Ol^nv=$>WRkPwC!We1iVwkP8;56} z*X!F`zL|b{Ogzi>utB|nD|-4HB#Fav51k}eqeBztL_n17I%Fh1OrQ*1ge400<&t79 zWya0VppHi@?_U{4sY}WweG-?*_70nU>zFllkGRB&?vl>Evu$}&P&Zy=Y(xb7uzd4F zQ>Ic|RijT^H(<^tK{L_IubK)?3djdG90wn_Lysg3q6G z?6QimQchz9y`-5(EABZ`ytb+CvtQS^zC812MxyzW`}~(Bbdm?=Li9@VeRpo%q)J zA1OI(aR`gyK|riG{S|KfgV-qi-;{o)@q0(yV=egbf!_B69RY%!eoD_M{)U^|+q;-K zasG*aXwjDoSb&Mc&GzoUmZ|3+Jy8JU_n{Sj@4(}YS0 z^nCCiJ!cgB1^s>N^gG`p?x%))02%}g(zht>AIas>-)J*CQ#*k3@6ler!wI&Mboc>y z3IP9R-~CAQ!ap(oAMu)o)r5@zhywTy02=Y9Br5VZ{;&D}X#oB>{r`Csc%S_;3V)ox z|2+HtVn4BA=JdxgT-TPOy?h9`g#iw*e_{awqF3T?w2P>r_e0&!0#D%k6t2hp^=l z9MUp^g!q;L=jc!ASnh8Uwq~Z!jaY$~kXx9svsgKpS^Pd1zX#m^AmUvC`OonC-{HT< z`Tc;4*8dCs@2J1u!M}ROe?TE16#5|lqo4eDD!==Of6$5P|GNvnc#D6>|LQ>cfrfx6 z2gKWd?@s!i)~{}epJ~;M{!Hte=l`cE{UKC;-Ln5opnnV!;vXCM-`oFv=k$X>z~tX! z@ykBycl__BAlways + + Always + Always diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 95a7d896..d378642a 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -434,10 +434,10 @@ Public Class frmBU_Mahnlauf rpt.Label15.ForeColor = Color.DarkRed End If - rpt.Label17.Text = cFakturierung.checkNull(rpt.Fields.Item("Rechnungsbetrag").Value) + rpt.Label17.Text = IIf(IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Rechnungsbetrag").Value)), CDbl(rpt.Fields.Item("Rechnungsbetrag").Value).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") rpt.TextBox1.Text = cFakturierung.checkNull(rpt.Fields.Item("Bemerkung").Value) - rpt.Label19.Text = cFakturierung.checkNull(rpt.Fields.Item("Zahlung").Value) - rpt.Label20.Text = cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value) + rpt.Label19.Text = IIf(IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Zahlung").Value)), CDbl(rpt.Fields.Item("Zahlung").Value).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + rpt.Label20.Text = IIf(IsNumeric(cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value)), CDbl(rpt.Fields.Item("Ausstand").Value).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") rpt.Label21.Text = cFakturierung.checkNull(rpt.Fields.Item("Mahnstufe").Value) rpt.Label22.Text = cFakturierung.checkNull(rpt.Fields.Item("Währung").Value) diff --git a/SDL/buchhaltung/usrCntlBH.Designer.vb b/SDL/buchhaltung/usrCntlBH.Designer.vb index 13d11c59..c800a0f2 100644 --- a/SDL/buchhaltung/usrCntlBH.Designer.vb +++ b/SDL/buchhaltung/usrCntlBH.Designer.vb @@ -68,6 +68,7 @@ Partial Class usrCntlBH Me.Button4 = New System.Windows.Forms.Button() Me.Label7 = New System.Windows.Forms.Label() Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.cbxBankgarantieInfo = New System.Windows.Forms.CheckBox() Me.cbxNichtVersicherbarAusblenden = New System.Windows.Forms.CheckBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.Label17 = New System.Windows.Forms.Label() @@ -121,7 +122,10 @@ Partial Class usrCntlBH Me.Label30 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Button7 = New System.Windows.Forms.Button() - Me.cbxBankgarantieInfo = New System.Windows.Forms.CheckBox() + Me.Label42 = New System.Windows.Forms.Label() + Me.GroupBox10 = New System.Windows.Forms.GroupBox() + Me.Label43 = New System.Windows.Forms.Label() + Me.Button12 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox9.SuspendLayout() @@ -138,6 +142,7 @@ Partial Class usrCntlBH Me.tbcntr.SuspendLayout() Me.TabPage5.SuspendLayout() Me.GroupBox6.SuspendLayout() + Me.GroupBox10.SuspendLayout() Me.SuspendLayout() ' 'Label6 @@ -162,6 +167,8 @@ Partial Class usrCntlBH ' 'TabPage1 ' + Me.TabPage1.Controls.Add(Me.Label42) + Me.TabPage1.Controls.Add(Me.GroupBox10) Me.TabPage1.Controls.Add(Me.Label37) Me.TabPage1.Controls.Add(Me.GroupBox9) Me.TabPage1.Controls.Add(Me.Label34) @@ -181,7 +188,7 @@ Partial Class usrCntlBH Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(956, 1010) + Me.TabPage1.Size = New System.Drawing.Size(956, 1062) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Allgemein" Me.TabPage1.UseVisualStyleBackColor = True @@ -191,7 +198,7 @@ Partial Class usrCntlBH Me.Label37.AutoSize = True Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label37.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label37.Location = New System.Drawing.Point(13, 640) + Me.Label37.Location = New System.Drawing.Point(13, 602) Me.Label37.Name = "Label37" Me.Label37.Size = New System.Drawing.Size(136, 17) Me.Label37.TabIndex = 16 @@ -207,7 +214,7 @@ Partial Class usrCntlBH Me.GroupBox9.Controls.Add(Me.Label39) Me.GroupBox9.Controls.Add(Me.Label38) Me.GroupBox9.Controls.Add(Me.Button9) - Me.GroupBox9.Location = New System.Drawing.Point(14, 660) + Me.GroupBox9.Location = New System.Drawing.Point(14, 622) Me.GroupBox9.Name = "GroupBox9" Me.GroupBox9.Size = New System.Drawing.Size(847, 67) Me.GroupBox9.TabIndex = 17 @@ -325,7 +332,7 @@ Partial Class usrCntlBH ' Me.Label34.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label34.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label34.Location = New System.Drawing.Point(11, 907) + Me.Label34.Location = New System.Drawing.Point(11, 869) Me.Label34.Name = "Label34" Me.Label34.Size = New System.Drawing.Size(298, 18) Me.Label34.TabIndex = 14 @@ -337,7 +344,7 @@ Partial Class usrCntlBH Me.GroupBox8.Controls.Add(Me.cboAbfVerbFirma) Me.GroupBox8.Controls.Add(Me.Button8) Me.GroupBox8.Controls.Add(Me.Label35) - Me.GroupBox8.Location = New System.Drawing.Point(10, 919) + Me.GroupBox8.Location = New System.Drawing.Point(10, 881) Me.GroupBox8.Name = "GroupBox8" Me.GroupBox8.Size = New System.Drawing.Size(847, 69) Me.GroupBox8.TabIndex = 15 @@ -389,7 +396,7 @@ Partial Class usrCntlBH ' Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label32.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label32.Location = New System.Drawing.Point(13, 239) + Me.Label32.Location = New System.Drawing.Point(13, 221) Me.Label32.Name = "Label32" Me.Label32.Size = New System.Drawing.Size(298, 18) Me.Label32.TabIndex = 12 @@ -399,7 +406,7 @@ Partial Class usrCntlBH ' Me.GroupBox7.Controls.Add(Me.Label33) Me.GroupBox7.Controls.Add(Me.Button6) - Me.GroupBox7.Location = New System.Drawing.Point(12, 251) + Me.GroupBox7.Location = New System.Drawing.Point(12, 233) Me.GroupBox7.Name = "GroupBox7" Me.GroupBox7.Size = New System.Drawing.Size(847, 69) Me.GroupBox7.TabIndex = 13 @@ -451,7 +458,7 @@ Partial Class usrCntlBH Me.Label27.AutoSize = True Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label27.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label27.Location = New System.Drawing.Point(11, 816) + Me.Label27.Location = New System.Drawing.Point(11, 778) Me.Label27.Name = "Label27" Me.Label27.Size = New System.Drawing.Size(101, 17) Me.Label27.TabIndex = 11 @@ -461,7 +468,7 @@ Partial Class usrCntlBH ' Me.GroupBox5.Controls.Add(Me.Label26) Me.GroupBox5.Controls.Add(Me.Button5) - Me.GroupBox5.Location = New System.Drawing.Point(10, 828) + Me.GroupBox5.Location = New System.Drawing.Point(10, 790) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(847, 61) Me.GroupBox5.TabIndex = 10 @@ -579,7 +586,7 @@ Partial Class usrCntlBH Me.Label24.AutoSize = True Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label24.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label24.Location = New System.Drawing.Point(11, 730) + Me.Label24.Location = New System.Drawing.Point(11, 692) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(150, 17) Me.Label24.TabIndex = 8 @@ -631,7 +638,7 @@ Partial Class usrCntlBH ' Me.GroupBox4.Controls.Add(Me.Label25) Me.GroupBox4.Controls.Add(Me.Button4) - Me.GroupBox4.Location = New System.Drawing.Point(10, 741) + Me.GroupBox4.Location = New System.Drawing.Point(10, 703) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(847, 61) Me.GroupBox4.TabIndex = 9 @@ -665,7 +672,7 @@ Partial Class usrCntlBH Me.Label7.AutoSize = True Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label7.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label7.Location = New System.Drawing.Point(13, 343) + Me.Label7.Location = New System.Drawing.Point(13, 305) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(182, 17) Me.Label7.TabIndex = 5 @@ -704,12 +711,23 @@ Partial Class usrCntlBH Me.GroupBox3.Controls.Add(Me.txtOPKdName) Me.GroupBox3.Controls.Add(Me.Label8) Me.GroupBox3.Controls.Add(Me.Button2) - Me.GroupBox3.Location = New System.Drawing.Point(12, 354) + Me.GroupBox3.Location = New System.Drawing.Point(12, 316) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(847, 283) Me.GroupBox3.TabIndex = 6 Me.GroupBox3.TabStop = False ' + 'cbxBankgarantieInfo + ' + Me.cbxBankgarantieInfo.AutoSize = True + Me.cbxBankgarantieInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxBankgarantieInfo.Location = New System.Drawing.Point(416, 178) + Me.cbxBankgarantieInfo.Name = "cbxBankgarantieInfo" + Me.cbxBankgarantieInfo.Size = New System.Drawing.Size(187, 17) + Me.cbxBankgarantieInfo.TabIndex = 28 + Me.cbxBankgarantieInfo.Text = "Zusatzinfo Bankgarantie anzeigen" + Me.cbxBankgarantieInfo.UseVisualStyleBackColor = True + ' 'cbxNichtVersicherbarAusblenden ' Me.cbxNichtVersicherbarAusblenden.AutoSize = True @@ -1333,7 +1351,7 @@ Partial Class usrCntlBH Me.tbcntr.Location = New System.Drawing.Point(0, 52) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(964, 1036) + Me.tbcntr.Size = New System.Drawing.Size(964, 1088) Me.tbcntr.TabIndex = 25 ' 'TabPage5 @@ -1411,16 +1429,48 @@ Partial Class usrCntlBH Me.Button7.Text = "Importieren" Me.Button7.UseVisualStyleBackColor = True ' - 'cbxBankgarantieInfo + 'Label42 ' - Me.cbxBankgarantieInfo.AutoSize = True - Me.cbxBankgarantieInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxBankgarantieInfo.Location = New System.Drawing.Point(416, 178) - Me.cbxBankgarantieInfo.Name = "cbxBankgarantieInfo" - Me.cbxBankgarantieInfo.Size = New System.Drawing.Size(187, 17) - Me.cbxBankgarantieInfo.TabIndex = 28 - Me.cbxBankgarantieInfo.Text = "Zusatzinfo Bankgarantie anzeigen" - Me.cbxBankgarantieInfo.UseVisualStyleBackColor = True + Me.Label42.AutoSize = True + Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label42.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label42.Location = New System.Drawing.Point(9, 963) + Me.Label42.Name = "Label42" + Me.Label42.Size = New System.Drawing.Size(168, 17) + Me.Label42.TabIndex = 19 + Me.Label42.Text = "Sachkontenzuweisung" + ' + 'GroupBox10 + ' + Me.GroupBox10.Controls.Add(Me.Label43) + Me.GroupBox10.Controls.Add(Me.Button12) + Me.GroupBox10.Location = New System.Drawing.Point(8, 975) + Me.GroupBox10.Name = "GroupBox10" + Me.GroupBox10.Size = New System.Drawing.Size(847, 61) + Me.GroupBox10.TabIndex = 18 + Me.GroupBox10.TabStop = False + ' + 'Label43 + ' + Me.Label43.AutoSize = True + Me.Label43.Location = New System.Drawing.Point(141, 28) + Me.Label43.Name = "Label43" + Me.Label43.Size = New System.Drawing.Size(165, 13) + Me.Label43.TabIndex = 2 + Me.Label43.Text = "Sachkontenzuweisung für Syska." + ' + 'Button12 + ' + Me.Button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button12.Location = New System.Drawing.Point(4, 11) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(121, 44) + Me.Button12.TabIndex = 7 + Me.Button12.Text = "Sachkonten" + Me.Button12.UseVisualStyleBackColor = True ' 'usrCntlBH ' @@ -1430,7 +1480,7 @@ Partial Class usrCntlBH Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.pnl) Me.Name = "usrCntlBH" - Me.Size = New System.Drawing.Size(964, 1088) + Me.Size = New System.Drawing.Size(964, 1140) Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() Me.TabPage1.ResumeLayout(False) @@ -1461,6 +1511,8 @@ Partial Class usrCntlBH Me.TabPage5.PerformLayout() Me.GroupBox6.ResumeLayout(False) Me.GroupBox6.PerformLayout() + Me.GroupBox10.ResumeLayout(False) + Me.GroupBox10.PerformLayout() Me.ResumeLayout(False) End Sub @@ -1564,4 +1616,8 @@ Partial Class usrCntlBH Friend WithEvents txtStichtag As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label39 As Label Friend WithEvents cbxBankgarantieInfo As CheckBox + Friend WithEvents Label42 As Label + Friend WithEvents GroupBox10 As GroupBox + Friend WithEvents Label43 As Label + Friend WithEvents Button12 As Button End Class diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 9b2aca42..a7b31f86 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -757,5 +757,8 @@ Public Class usrCntlBH End Sub - + Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click + Dim f As New SDL.frmLeistundenFIBUKonten(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Leistungen_FIBU", "SDL")) + f.ShowDialog(Me) + End Sub End Class diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index b2728fd5..e0517446 100644 --- a/SDL/frmMain.Designer.vb +++ b/SDL/frmMain.Designer.vb @@ -67,11 +67,13 @@ Partial Class frmMain Me.VERAGCardParkplatzToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlHeader = New System.Windows.Forms.Panel() + Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnlInfo = New System.Windows.Forms.Panel() Me.txtInfotext = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.Button9 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Button7 = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.lblTestsystem = New System.Windows.Forms.Label() @@ -84,11 +86,12 @@ Partial Class frmMain Me.NeuesPasswortToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.mnuFormular = New System.Windows.Forms.ToolStripMenuItem() + Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() + Me.MailvorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.mnuAdministrator = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.mnuFormular = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.mnuFunktionen = New System.Windows.Forms.ToolStripMenuItem() Me.SMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.NeueSMSSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -100,6 +103,7 @@ Partial Class frmMain Me.Panel2 = New System.Windows.Forms.Panel() Me.pnlJumpKunde = New System.Windows.Forms.Panel() Me.Button3 = New System.Windows.Forms.Button() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.Button4 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() Me.btnClose = New System.Windows.Forms.Button() @@ -110,10 +114,6 @@ Partial Class frmMain Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) - Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.MailvorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnlLeft.SuspendLayout() Me.MenuStripSDL.SuspendLayout() Me.Panel1.SuspendLayout() @@ -555,6 +555,24 @@ Partial Class frmMain Me.pnlHeader.Size = New System.Drawing.Size(1284, 73) Me.pnlHeader.TabIndex = 28 ' + 'btnMitarbeiterKonto + ' + Me.btnMitarbeiterKonto.allowBorder = False + Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White + Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 + Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black + Me.btnMitarbeiterKonto.Image = CType(resources.GetObject("btnMitarbeiterKonto.Image"), System.Drawing.Image) + Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(716, 0) + Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" + Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) + Me.btnMitarbeiterKonto.TabIndex = 87 + Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" + Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False + ' 'pnlInfo ' Me.pnlInfo.Anchor = System.Windows.Forms.AnchorStyles.Bottom @@ -622,6 +640,20 @@ Partial Class frmMain Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button2.UseVisualStyleBackColor = False ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Location = New System.Drawing.Point(130, 4) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(75, 23) + Me.FlatButton1.TabIndex = 36 + Me.FlatButton1.Text = "FlatButton1" + Me.FlatButton1.UseVisualStyleBackColor = True + Me.FlatButton1.Visible = False + ' 'Button7 ' Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke @@ -700,7 +732,7 @@ Partial Class frmMain ' Me.MenuStrip1.BackColor = System.Drawing.Color.White Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.mnuAdministrator, Me.StatistikToolStripMenuItem, Me.mnuFormular, Me.mnuFunktionen, Me.mnuFragezeichen}) + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.mnuFormular, Me.mnuAdministrator, Me.StatistikToolStripMenuItem, Me.mnuFunktionen, Me.mnuFragezeichen}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" Me.MenuStrip1.Size = New System.Drawing.Size(984, 24) @@ -719,49 +751,27 @@ Partial Class frmMain 'ToolStripSeparator4 ' Me.ToolStripSeparator4.Name = "ToolStripSeparator4" - Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6) + Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6) ' 'NeuesPasswortToolStripMenuItem ' Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem" - Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(157, 22) + Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort" ' 'UpdateToolStripMenuItem ' Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem" - Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(157, 22) + Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.UpdateToolStripMenuItem.Text = "Update" ' 'TESTToolStripMenuItem ' Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem" - Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(157, 22) + Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.TESTToolStripMenuItem.Text = "TEST" Me.TESTToolStripMenuItem.Visible = False ' - 'mnuAdministrator - ' - Me.mnuAdministrator.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator3}) - Me.mnuAdministrator.ForeColor = System.Drawing.Color.Black - Me.mnuAdministrator.Name = "mnuAdministrator" - Me.mnuAdministrator.Size = New System.Drawing.Size(92, 20) - Me.mnuAdministrator.Text = "Administrator" - Me.mnuAdministrator.Visible = False - ' - 'ToolStripSeparator3 - ' - Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6) - ' - 'StatistikToolStripMenuItem - ' - Me.StatistikToolStripMenuItem.ForeColor = System.Drawing.Color.Black - Me.StatistikToolStripMenuItem.Name = "StatistikToolStripMenuItem" - Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(60, 20) - Me.StatistikToolStripMenuItem.Text = "Statistik" - Me.StatistikToolStripMenuItem.Visible = False - ' 'mnuFormular ' Me.mnuFormular.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.MailvorlagenToolStripMenuItem}) @@ -775,9 +785,39 @@ Partial Class frmMain Me.ToolStripMenuItem3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.android_note12 Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" - Me.ToolStripMenuItem3.Size = New System.Drawing.Size(192, 30) + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(184, 22) Me.ToolStripMenuItem3.Text = "Formular - Manager" ' + 'MailvorlagenToolStripMenuItem + ' + Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MailvorlagenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift1 + Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem" + Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(184, 22) + Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen" + ' + 'mnuAdministrator + ' + Me.mnuAdministrator.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator3}) + Me.mnuAdministrator.ForeColor = System.Drawing.Color.Black + Me.mnuAdministrator.Name = "mnuAdministrator" + Me.mnuAdministrator.Size = New System.Drawing.Size(92, 20) + Me.mnuAdministrator.Text = "Administrator" + Me.mnuAdministrator.Visible = False + ' + 'ToolStripSeparator3 + ' + Me.ToolStripSeparator3.Name = "ToolStripSeparator3" + Me.ToolStripSeparator3.Size = New System.Drawing.Size(57, 6) + ' + 'StatistikToolStripMenuItem + ' + Me.StatistikToolStripMenuItem.ForeColor = System.Drawing.Color.Black + Me.StatistikToolStripMenuItem.Name = "StatistikToolStripMenuItem" + Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(60, 20) + Me.StatistikToolStripMenuItem.Text = "Statistik" + Me.StatistikToolStripMenuItem.Visible = False + ' 'mnuFunktionen ' Me.mnuFunktionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SMSToolStripMenuItem}) @@ -875,6 +915,35 @@ Partial Class frmMain Me.Button3.Text = "< >" Me.Button3.UseVisualStyleBackColor = False ' + 'KdSearchBox1 + ' + Me.KdSearchBox1._AlleFirmenCLUSTER = False + Me.KdSearchBox1._AllowSetValue = False + Me.KdSearchBox1._autoSizeGross = False + Me.KdSearchBox1._display_Name1 = False + Me.KdSearchBox1._displayAVISO_Email = False + Me.KdSearchBox1._displayFullName = False + Me.KdSearchBox1._displayWoelflKd = True + Me.KdSearchBox1._hideIfListEmpty = True + Me.KdSearchBox1._loadKdData = False + Me.KdSearchBox1._searchName1 = True + Me.KdSearchBox1._UseFIRMA = "" + Me.KdSearchBox1._ValueKdAndName = True + Me.KdSearchBox1.dgvpos = "RIGHT" + Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.KdSearchBox1.KdName = Nothing + Me.KdSearchBox1.KdNr = "-1" + Me.KdSearchBox1.kdNrField = Nothing + Me.KdSearchBox1.KdNrNullInt = Nothing + Me.KdSearchBox1.Location = New System.Drawing.Point(73, 30) + Me.KdSearchBox1.Name = "KdSearchBox1" + Me.KdSearchBox1.nurAktive = False + Me.KdSearchBox1.searchActive = True + Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26) + Me.KdSearchBox1.TabIndex = 76 + Me.KdSearchBox1.TIMER_SEARCH = True + Me.KdSearchBox1.usrcntl = Nothing + ' 'Button4 ' Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -978,75 +1047,6 @@ Partial Class frmMain Me.Timer_REFRESH.Enabled = True Me.Timer_REFRESH.Interval = 5000 ' - 'btnMitarbeiterKonto - ' - Me.btnMitarbeiterKonto.allowBorder = False - Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White - Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0 - Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black - Me.btnMitarbeiterKonto.Image = CType(resources.GetObject("btnMitarbeiterKonto.Image"), System.Drawing.Image) - Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(716, 0) - Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto" - Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61) - Me.btnMitarbeiterKonto.TabIndex = 87 - Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer" - Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Location = New System.Drawing.Point(130, 4) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(75, 23) - Me.FlatButton1.TabIndex = 36 - Me.FlatButton1.Text = "FlatButton1" - Me.FlatButton1.UseVisualStyleBackColor = True - Me.FlatButton1.Visible = False - ' - 'KdSearchBox1 - ' - Me.KdSearchBox1._AlleFirmenCLUSTER = False - Me.KdSearchBox1._AllowSetValue = False - Me.KdSearchBox1._autoSizeGross = False - Me.KdSearchBox1._display_Name1 = False - Me.KdSearchBox1._displayAVISO_Email = False - Me.KdSearchBox1._displayFullName = False - Me.KdSearchBox1._displayWoelflKd = True - Me.KdSearchBox1._hideIfListEmpty = True - Me.KdSearchBox1._loadKdData = False - Me.KdSearchBox1._searchName1 = True - Me.KdSearchBox1._UseFIRMA = "" - Me.KdSearchBox1._ValueKdAndName = True - Me.KdSearchBox1.dgvpos = "RIGHT" - Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.KdSearchBox1.KdName = Nothing - Me.KdSearchBox1.KdNr = "-1" - Me.KdSearchBox1.kdNrField = Nothing - Me.KdSearchBox1.KdNrNullInt = Nothing - Me.KdSearchBox1.Location = New System.Drawing.Point(73, 30) - Me.KdSearchBox1.Name = "KdSearchBox1" - Me.KdSearchBox1.nurAktive = False - Me.KdSearchBox1.searchActive = True - Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26) - Me.KdSearchBox1.TabIndex = 76 - Me.KdSearchBox1.TIMER_SEARCH = True - Me.KdSearchBox1.usrcntl = Nothing - ' - 'MailvorlagenToolStripMenuItem - ' - Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.MailvorlagenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift1 - Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem" - Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(192, 30) - Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen" - ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb index 50028714..0f22a664 100644 --- a/SDL/frmMain.vb +++ b/SDL/frmMain.vb @@ -1117,6 +1117,8 @@ Public Class frmMain Dim f As New SDL.frmdynMailvorlagen(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL")) f.ShowDialog(Me) End Sub + + End Class Public Class MyRenderer diff --git a/SDL/frmdynMailvorlage.vb b/SDL/frmdynMailvorlage.vb index 6ae7605b..ad047908 100644 --- a/SDL/frmdynMailvorlage.vb +++ b/SDL/frmdynMailvorlage.vb @@ -55,6 +55,7 @@ Public Class frmdynMailvorlagen cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sendung", "1")) cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Mahnung", "2")) + cbxTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OP-Liste", "3")) cbxTyp.changeItem("") diff --git a/SDL/kunden/frmGoMautBoxen.Designer.vb b/SDL/kunden/frmGoMautBoxen.Designer.vb index 1ffc3f2c..95ea33b0 100644 --- a/SDL/kunden/frmGoMautBoxen.Designer.vb +++ b/SDL/kunden/frmGoMautBoxen.Designer.vb @@ -26,6 +26,8 @@ Partial Class frmGoMautBoxen Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGoMautBoxen)) Me.pnl = New System.Windows.Forms.Panel() + Me.txtbishAbrp = New System.Windows.Forms.TextBox() + Me.Label4 = New System.Windows.Forms.Label() Me.GroupBoxBriefwaehlen = New System.Windows.Forms.GroupBox() Me.rbAP = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbPostPay = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) @@ -57,11 +59,10 @@ Partial Class frmGoMautBoxen Me.Label5 = New System.Windows.Forms.Label() Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.btnAbbrechen = New System.Windows.Forms.Button() - Me.btnOK = New System.Windows.Forms.Button() - Me.txtbishAbrp = New System.Windows.Forms.TextBox() - Me.Label4 = New System.Windows.Forms.Label() Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Button2 = New System.Windows.Forms.Button() + Me.btn = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() Me.GroupBoxBriefwaehlen.SuspendLayout() CType(Me.dgvLKW, System.ComponentModel.ISupportInitialize).BeginInit() @@ -71,6 +72,8 @@ Partial Class frmGoMautBoxen ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.Button2) + Me.pnl.Controls.Add(Me.btn) Me.pnl.Controls.Add(Me.txtbishAbrp) Me.pnl.Controls.Add(Me.Label4) Me.pnl.Controls.Add(Me.GroupBoxBriefwaehlen) @@ -102,13 +105,32 @@ Partial Class frmGoMautBoxen Me.pnl.Controls.Add(Me.Label5) Me.pnl.Controls.Add(Me.KdSearchBox1) Me.pnl.Controls.Add(Me.btnAbbrechen) - Me.pnl.Controls.Add(Me.btnOK) Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" Me.pnl.Size = New System.Drawing.Size(476, 569) Me.pnl.TabIndex = 1 ' + 'txtbishAbrp + ' + Me.txtbishAbrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtbishAbrp.Location = New System.Drawing.Point(257, 486) + Me.txtbishAbrp.MaxLength = 40 + Me.txtbishAbrp.Name = "txtbishAbrp" + Me.txtbishAbrp.ReadOnly = True + Me.txtbishAbrp.Size = New System.Drawing.Size(203, 20) + Me.txtbishAbrp.TabIndex = 494 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(118, 489) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(125, 13) + Me.Label4.TabIndex = 493 + Me.Label4.Text = "bish. Abrechnugspartner:" + ' 'GroupBoxBriefwaehlen ' Me.GroupBoxBriefwaehlen.Controls.Add(Me.rbAP) @@ -473,56 +495,54 @@ Partial Class frmGoMautBoxen ' Me.btnAbbrechen.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnAbbrechen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAbbrechen.Location = New System.Drawing.Point(167, 522) + Me.btnAbbrechen.Location = New System.Drawing.Point(12, 522) Me.btnAbbrechen.Name = "btnAbbrechen" Me.btnAbbrechen.Size = New System.Drawing.Size(87, 34) Me.btnAbbrechen.TabIndex = 5 Me.btnAbbrechen.Text = "Abbrechen" Me.btnAbbrechen.UseVisualStyleBackColor = True ' - 'btnOK - ' - Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnOK.Location = New System.Drawing.Point(285, 522) - Me.btnOK.Name = "btnOK" - Me.btnOK.Size = New System.Drawing.Size(160, 34) - Me.btnOK.TabIndex = 6 - Me.btnOK.Text = "OK" - Me.btnOK.UseVisualStyleBackColor = True - ' - 'txtbishAbrp - ' - Me.txtbishAbrp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtbishAbrp.Location = New System.Drawing.Point(257, 486) - Me.txtbishAbrp.MaxLength = 40 - Me.txtbishAbrp.Name = "txtbishAbrp" - Me.txtbishAbrp.ReadOnly = True - Me.txtbishAbrp.Size = New System.Drawing.Size(203, 20) - Me.txtbishAbrp.TabIndex = 494 - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(118, 489) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(125, 13) - Me.Label4.TabIndex = 493 - Me.Label4.Text = "bish. Abrechnugspartner:" - ' 'DataGridViewTextBoxColumn4 ' - Me.DataGridViewTextBoxColumn4.HeaderText = "Bez." + Me.DataGridViewTextBoxColumn4.HeaderText = "Kennzeichen" Me.DataGridViewTextBoxColumn4.MaxInputLength = 75 Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" ' 'DataGridViewTextBoxColumn2 ' Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.DataGridViewTextBoxColumn2.HeaderText = "Kennzeichen" + Me.DataGridViewTextBoxColumn2.HeaderText = "Box Nr." Me.DataGridViewTextBoxColumn2.MaxInputLength = 50 Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Location = New System.Drawing.Point(408, 519) + Me.Button2.Margin = New System.Windows.Forms.Padding(5) + Me.Button2.Name = "Button2" + Me.Button2.Padding = New System.Windows.Forms.Padding(5) + Me.Button2.Size = New System.Drawing.Size(50, 40) + Me.Button2.TabIndex = 496 + Me.Button2.UseVisualStyleBackColor = True + ' + 'btn + ' + Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.email_big + Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Location = New System.Drawing.Point(348, 519) + Me.btn.Margin = New System.Windows.Forms.Padding(5) + Me.btn.Name = "btn" + Me.btn.Padding = New System.Windows.Forms.Padding(5) + Me.btn.Size = New System.Drawing.Size(50, 40) + Me.btn.TabIndex = 495 + Me.btn.UseVisualStyleBackColor = True + ' 'frmGoMautBoxen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -544,7 +564,6 @@ Partial Class frmGoMautBoxen End Sub Friend WithEvents pnl As System.Windows.Forms.Panel Friend WithEvents btnAbbrechen As System.Windows.Forms.Button - Friend WithEvents btnOK As System.Windows.Forms.Button Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox @@ -579,4 +598,6 @@ Partial Class frmGoMautBoxen Friend WithEvents Label4 As Label Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn + Friend WithEvents Button2 As Button + Friend WithEvents btn As Button End Class diff --git a/SDL/kunden/frmGoMautBoxen.vb b/SDL/kunden/frmGoMautBoxen.vb index e20a440b..e176f9c0 100644 --- a/SDL/kunden/frmGoMautBoxen.vb +++ b/SDL/kunden/frmGoMautBoxen.vb @@ -1,5 +1,7 @@ Imports System.DirectoryServices.ActiveDirectory +Imports com.sun.org.apache.xerces.internal.xs Imports com.sun.tools.corba.se.idl.constExpr +Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN Public Class frmGoMautBoxen @@ -41,7 +43,7 @@ Public Class frmGoMautBoxen ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub - Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, btn.Click lblWarning.Text = "" @@ -58,6 +60,7 @@ Public Class frmGoMautBoxen If rbAP.Checked And txtbishAbrp.Text = "" Then lblWarning.Text = "Bitte bisherigen Abrechnungspartner eingeben." + Exit Sub End If @@ -73,38 +76,13 @@ Public Class frmGoMautBoxen Exit Sub End If - If rbPostPay.Checked Then - ' "rpt_GO_BOX_Umstellung_Vertragsart" - ElseIf rbAP.Checked Then - ' ' "rpt_GO_BOX_Umstellung_Vertragspartner" - End If + genMausboxenFormular(dgvLKW, sender) - btnOK.DialogResult = DialogResult.OK - - - - - - 'txtKennzeichen.Text = txtKennzeichen.Text.ToUpper.Trim - 'txtNationalitaet.Text = txtNationalitaet.Text.ToUpper - 'Label5.ForeColor = Color.Black - 'lblErfassung.ForeColor = Color.Black - 'If KdSearchBox1.KdNr < 0 Then Label5.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub - 'If txtKennzeichen.Text = "" Then lblErfassung.ForeColor = Color.Red : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub - - 'If s.updateBinding Then - ' Dim SQL As New SQL - ' If oldkfz <> txtKennzeichen.Text Then - ' VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.REMANE_FOLDER_KDNR(New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, oldkfz, Nothing, Nothing), - ' New VERAG_PROG_ALLGEMEIN.cDatenserver_Change_Value("DOKUMENTE", "MDM", kundenNr, txtKennzeichen.Text, Nothing, Nothing)) - ' SQL.doSQL("UPDATE SDL SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True) - ' SQL.doSQL("UPDATE [Kartenpool] SET KfzKennzeichen= '" & txtKennzeichen.Text & "' WHERE KundenNr='" & kundenNr & "' AND KfzKennzeichen='" & oldkfz & "'", "SDL", True) - ' End If - ' Me.Close() - 'End If End Sub + + Sub initdgv() Try @@ -138,49 +116,15 @@ Public Class frmGoMautBoxen End Try - If addnew Then newEntry() 'NEUER EINTRAG! - ready = True End Sub - Public Sub newEntry() - ' s.updateBinding() - Dim row = s.bindingdataTable.NewRow() - row.Item("KundenNr") = kundenNr - row.Item("KfzKennzeichen") = "" - s.bindingdataTable.Rows.Add(row) - s.bindingSource.MoveLast() - 'If save Then updateBinding() - lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") - lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - If kundenNr < 0 Then KdSearchBox1.Enabled = True - End Sub - - Sub BindingTableColumnChanged(sender As Object, e As System.Data.DataColumnChangeEventArgs) - If ready Then - lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") - changed = True - End If - End Sub Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click ', Me.FormClosing - If changed Then - Select Case MsgBox("Änderungen speichern", vbYesNoCancel) - Case vbYes : Me.DialogResult = Windows.Forms.DialogResult.None : btnOK.PerformClick() - Case vbNo : Me.Close() - Case vbCancel : Me.DialogResult = Windows.Forms.DialogResult.None - End Select - Else - Me.Close() - End If - End Sub - Private Sub frmLKWDetails_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown - If e.KeyCode = Keys.Return Then - btnOK.PerformClick() - End If + Me.Close() + End Sub Private Sub frmLKWDetails_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -215,7 +159,7 @@ Public Class frmGoMautBoxen If adresse IsNot Nothing Then - + kundenNr = adresse.AdressenNr txtName.Text = If(adresse.Name_1, "") & If(adresse.Name_2, "") txtStrasse.Text = If(adresse.Straße, "") txtOrt.Text = If(adresse.Ort, "") @@ -239,6 +183,7 @@ Public Class frmGoMautBoxen Dim KD = KdSearchBox1.KdData_KUNDE Dim KDERW = KdSearchBox1.KdData_KUNDE_ERW + kundenNr = AD.AdressenNr txtName.Text = If(AD.Name_1, "") & If(AD.Name_2, "") txtStrasse.Text = If(AD.Straße, "") txtOrt.Text = If(AD.Ort, "") @@ -246,6 +191,8 @@ Public Class frmGoMautBoxen cbxLandKz.changeItem(If(AD.LandKz, "")) txtAnsprechpartnerAnrede.Text = AD.Anrede txtAnsprechpartner.Text = AD.Ansprechpartner + txtFax.Text = (If(AD.Telefax, "")) + txtEmail.Text = (If(AD.E_Mail, "")) initdgv() @@ -280,4 +227,140 @@ Public Class frmGoMautBoxen End If End Sub + + + Public Function genMausboxenFormular(dgv As DataGridView, sender As Object, Optional PrinterName As String = "", Optional ByRef pfadWord As String = "", Optional printReportElsePDF As Boolean = False, Optional openWord As Boolean = False) As Microsoft.Office.Interop.Word.Document + + + Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing + + Try + pfadWord = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\GOBOX_UMSTELLUNG.dotx" + + Dim oWord As New Microsoft.Office.Interop.Word.Application + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) + + + Dim cGenWord As New cGenWord + + odoc = cGenWord.openWord(pfadWord, False, oWord) + Dim oTable As Word.Table + + 'odoc.FormFields("Adresse1").Range.Text = kunde.Name_1 & " " & kunde.Name_2 + 'odoc.FormFields("Adresse2").Range.Text = kunde.Straße + 'odoc.FormFields("Adresse3").Range.Text = kunde.LandKz & " " & kunde.PLZ & " " & kunde.Ort + '' odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr + '' odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.MSEKundenNr + 'odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + 'odoc.FormFields("Datum").Range.Text = Now.ToShortDateString + 'odoc.FormFields("KundenNr").Range.Text = kunde.AdressenNr + 'odoc.FormFields("AuftragsNr").Range.Text = AuftragsNr.ToString("000000.##") + + Dim textArt As String = "" + If rbPostPay.Checked Then + textArt = "hiermit beantragen wir die Umstellung unserer Pre-Pay GO-Box(en) auf Post-Pay." & vbNewLine & "Dies betrifft das/die folgende(n) Fahrzeug(e):" + ElseIf rbAP.Checked Then + textArt = "hiermit beantragen wir die Änderung des Abrechnungspartners unserer Post-Pay-GO-Boxen von " & txtbishAbrp.Text & " auf Verag." & vbNewLine & "Dies betrifft die folgenden Fahrzeuge:" + End If + + + Dim txtEnde As String = "" + + If rbPostPay.Checked Then + txtEnde = "Hiermit bestätige Ich, dass:" & vbNewLine & + "• die Änderungen in der Reihenfolge des Eintreffens bei ASFINAG laufend bearbeitet werden." & vbNewLine & + "• die Umstellung genau zu einem Stichtag von ASFINAG nicht zugesichert werden kann." & vbNewLine & + "• die Änderung der Vertragsart von Pre- auf Post-Pay erst nach erfolgter Aktualisierung der in der/den GO-Box(en) gespeicherten Daten an einer GO-Vertriebsstelle wirksam wird." + + ElseIf rbAP.Checked Then + txtEnde = "Weitere Fahrzeuge habe ich in einer zusätzlichen Liste beigefügt." & vbNewLine & + "Ich nehme zur Kenntnis, dass die Änderungen nach Eintreffen bei ASFINAG laufend bearbeitet werden." & vbNewLine & + "Die Umstellung genau zu einem Stichtag ist von ASFINAG nicht zugesichert." + End If + + + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + For Each item In odoc.FormFields + + Dim fieldName = item.Name.ToLower().Trim() + + Select Case fieldName + Case "adresse1" : odoc.FormFields(fieldName).Range.Text = txtName.Text + Case "adresse2" : odoc.FormFields(fieldName).Range.Text = txtAnsprechpartnerAnrede.Text & " " & txtAnsprechpartner.Text + Case "adresse3" : odoc.FormFields(fieldName).Range.Text = txtStrasse.Text + Case "adresse4" : odoc.FormFields(fieldName).Range.Text = cbxLandKz._value & " " & txtPlz.Text & " " & txtOrt.Text + Case "adresse5" : odoc.FormFields(fieldName).Range.Text = txtEmail.Text + Case "adresse6" : odoc.FormFields(fieldName).Range.Text = txtFax.Text + Case "sachbearbeiter" : odoc.FormFields(fieldName).Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + Case "datum" : odoc.FormFields(fieldName).Range.Text = Now.ToShortDateString + Case "kundennr" : odoc.FormFields(fieldName).Range.Text = IIf(kundenNr > 0, kundenNr, KdSearchBox1.KdNr_value) + Case "kartennr" : odoc.FormFields(fieldName).Range.Text = cbxKK.SelectedValue + Case "art" : odoc.FormFields(fieldName).Range.Text = IIf(rbPostPay.Checked, rbPostPay.Text, rbAP.Text) + Case "typ_text" : odoc.FormFields(fieldName).Range.Text = textArt + Case "ende" : odoc.FormFields(fieldName).Range.Text = txtEnde + + End Select + + Next + + If True Then + + + If odoc.Range.Bookmarks.Exists("TabelleKarten") Then + If odoc.Bookmarks("TabelleKarten").Range.Tables.Count > 0 Then + oTable = odoc.Bookmarks("TabelleKarten").Range.Tables(1) + Dim i = 1 + Dim kfzTmp = "" + For Each r As DataGridViewRow In dgvLKW.Rows + If r.Cells(0).Value <> "" And r.Cells(1).Value <> "" Then + oTable.Rows(i + 1).Cells(1).Range.Text = r.Cells(0).Value + oTable.Rows(i + 1).Cells(2).Range.Text = r.Cells(1).Value + + Else + oTable.Rows(i + 1).Cells(1).Range.Text = "" + oTable.Rows(i + 1).Cells(2).Range.Text = "" + End If + + + If i < dgvLKW.Rows.Count Then oTable.Rows.Add() + i += 1 + Next + End If + + + End If + End If + + odoc.Save() : odoc.Activate() + + Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("GOBOX_UMSTELLUNG_" & kundenNr & ".pdf", ".pdf", True, False) + odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF) + + + Try + odoc.Close() + oWord.Quit() + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + If sender Is Button2 Then + Process.Start(path) + ElseIf sender Is btn Then + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf") + Mail.Display() + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Function + End Class \ No newline at end of file diff --git a/SDL/kunden/frmKundenKontakteDetails.Designer.vb b/SDL/kunden/frmKundenKontakteDetails.Designer.vb index 2b2d185f..76796ca8 100644 --- a/SDL/kunden/frmKundenKontakteDetails.Designer.vb +++ b/SDL/kunden/frmKundenKontakteDetails.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmKundenKontakteDetails Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,12 +20,20 @@ Partial Class frmKundenKontakteDetails 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenKontakteDetails)) Me.btn = New System.Windows.Forms.Button() + Me.lbl = New System.Windows.Forms.Label() + Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.pnlKontakt = New System.Windows.Forms.Panel() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblEmailBCC = New System.Windows.Forms.TextBox() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.lblEmailCC = New System.Windows.Forms.TextBox() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.lblAnsprechpartnerNN = New System.Windows.Forms.TextBox() Me.lblMobil = New System.Windows.Forms.TextBox() Me.lblFax = New System.Windows.Forms.TextBox() Me.lblEmail = New System.Windows.Forms.TextBox() @@ -33,80 +41,187 @@ Partial Class frmKundenKontakteDetails Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.lblTel = New System.Windows.Forms.TextBox() Me.PictureBox3 = New System.Windows.Forms.PictureBox() - Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.lbl = New System.Windows.Forms.Label() - Me.lblAnsprechpartnerVN = New System.Windows.Forms.TextBox() - Me.lblEmailCC = New System.Windows.Forms.TextBox() - Me.PictureBox6 = New System.Windows.Forms.PictureBox() - Me.lblEmailBCC = New System.Windows.Forms.TextBox() - Me.PictureBox7 = New System.Windows.Forms.PictureBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.txtStrasse = New System.Windows.Forms.TextBox() - Me.txtOrt = New System.Windows.Forms.TextBox() - Me.txtPLZ = New System.Windows.Forms.TextBox() - Me.PictureBox8 = New System.Windows.Forms.PictureBox() - Me.PictureBox9 = New System.Windows.Forms.PictureBox() - Me.PictureBox10 = New System.Windows.Forms.PictureBox() - Me.Label3 = New System.Windows.Forms.Label() + Me.pnlGeschaeftsfuehrer = New System.Windows.Forms.Panel() + Me.picBoxKorr = New System.Windows.Forms.PictureBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.txtPassgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKorrAdd = New System.Windows.Forms.TextBox() Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.PictureBox10 = New System.Windows.Forms.PictureBox() + Me.PictureBox9 = New System.Windows.Forms.PictureBox() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtPLZ = New System.Windows.Forms.TextBox() Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtOrt = New System.Windows.Forms.TextBox() + Me.txtStrasse = New System.Windows.Forms.TextBox() Me.cboMannFrau = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lblAnsprechpartnerVN = New System.Windows.Forms.TextBox() + Me.lblAnsprechpartnerNN = New System.Windows.Forms.TextBox() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.pnlMain = New System.Windows.Forms.Panel() + Me.pnlKontakt.SuspendLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlGeschaeftsfuehrer.SuspendLayout() + CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlMain.SuspendLayout() Me.SuspendLayout() ' 'btn ' + Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(373, 358) + Me.btn.Location = New System.Drawing.Point(394, 430) Me.btn.Name = "btn" Me.btn.Size = New System.Drawing.Size(136, 39) Me.btn.TabIndex = 9 Me.btn.Text = "OK" Me.btn.UseVisualStyleBackColor = True ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Location = New System.Drawing.Point(5, 0) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(59, 13) + Me.lbl.TabIndex = 0 + Me.lbl.Text = "Kontaktart:" + ' + 'cboKontaktArt + ' + Me.cboKontaktArt._allowedValuesFreiText = Nothing + Me.cboKontaktArt._allowFreiText = False + Me.cboKontaktArt._value = "" + Me.cboKontaktArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.cboKontaktArt.FormattingEnabled = True + Me.cboKontaktArt.Location = New System.Drawing.Point(8, 16) + Me.cboKontaktArt.Name = "cboKontaktArt" + Me.cboKontaktArt.Size = New System.Drawing.Size(495, 28) + Me.cboKontaktArt.TabIndex = 1 + ' + 'pnlKontakt + ' + Me.pnlKontakt.AutoSize = True + Me.pnlKontakt.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.pnlKontakt.Controls.Add(Me.picBoxKorr) + Me.pnlKontakt.Controls.Add(Me.Label2) + Me.pnlKontakt.Controls.Add(Me.Label1) + Me.pnlKontakt.Controls.Add(Me.lblEmailBCC) + Me.pnlKontakt.Controls.Add(Me.txtKorrAdd) + Me.pnlKontakt.Controls.Add(Me.PictureBox7) + Me.pnlKontakt.Controls.Add(Me.lblEmailCC) + Me.pnlKontakt.Controls.Add(Me.PictureBox6) + Me.pnlKontakt.Controls.Add(Me.PictureBox1) + Me.pnlKontakt.Controls.Add(Me.lblMobil) + Me.pnlKontakt.Controls.Add(Me.lblFax) + Me.pnlKontakt.Controls.Add(Me.lblEmail) + Me.pnlKontakt.Controls.Add(Me.PictureBox4) + Me.pnlKontakt.Controls.Add(Me.PictureBox2) + Me.pnlKontakt.Controls.Add(Me.lblTel) + Me.pnlKontakt.Controls.Add(Me.PictureBox3) + Me.pnlKontakt.Controls.Add(Me.cboMannFrau) + Me.pnlKontakt.Controls.Add(Me.lblAnsprechpartnerVN) + Me.pnlKontakt.Controls.Add(Me.PictureBox5) + Me.pnlKontakt.Controls.Add(Me.lblAnsprechpartnerNN) + Me.pnlKontakt.Location = New System.Drawing.Point(8, 50) + Me.pnlKontakt.Name = "pnlKontakt" + Me.pnlKontakt.Size = New System.Drawing.Size(500, 238) + Me.pnlKontakt.TabIndex = 10 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(40, 152) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(31, 13) + Me.Label2.TabIndex = 235 + Me.Label2.Text = "BCC:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(40, 127) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(24, 13) + Me.Label1.TabIndex = 234 + Me.Label1.Text = "CC:" + ' + 'lblEmailBCC + ' + Me.lblEmailBCC.BackColor = System.Drawing.Color.White + Me.lblEmailBCC.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lblEmailBCC.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblEmailBCC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblEmailBCC.Location = New System.Drawing.Point(77, 145) + Me.lblEmailBCC.Name = "lblEmailBCC" + Me.lblEmailBCC.Size = New System.Drawing.Size(418, 26) + Me.lblEmailBCC.TabIndex = 232 + Me.lblEmailBCC.Text = "email" + ' + 'PictureBox7 + ' + Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.email + Me.PictureBox7.Location = New System.Drawing.Point(3, 147) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(22, 18) + Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox7.TabIndex = 233 + Me.PictureBox7.TabStop = False + ' + 'lblEmailCC + ' + Me.lblEmailCC.BackColor = System.Drawing.Color.White + Me.lblEmailCC.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lblEmailCC.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblEmailCC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblEmailCC.Location = New System.Drawing.Point(77, 120) + Me.lblEmailCC.Name = "lblEmailCC" + Me.lblEmailCC.Size = New System.Drawing.Size(418, 26) + Me.lblEmailCC.TabIndex = 230 + Me.lblEmailCC.Text = "email" + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox6.Image = Global.SDL.My.Resources.Resources.email + Me.PictureBox6.Location = New System.Drawing.Point(3, 122) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(22, 18) + Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox6.TabIndex = 231 + Me.PictureBox6.TabStop = False + ' 'PictureBox1 ' Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.telefon - Me.PictureBox1.Location = New System.Drawing.Point(9, 75) + Me.PictureBox1.Location = New System.Drawing.Point(0, 16) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(25, 18) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox1.TabIndex = 188 + Me.PictureBox1.TabIndex = 227 Me.PictureBox1.TabStop = False ' - 'lblAnsprechpartnerNN - ' - Me.lblAnsprechpartnerNN.BackColor = System.Drawing.Color.White - Me.lblAnsprechpartnerNN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.lblAnsprechpartnerNN.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAnsprechpartnerNN.Location = New System.Drawing.Point(304, 239) - Me.lblAnsprechpartnerNN.Name = "lblAnsprechpartnerNN" - Me.lblAnsprechpartnerNN.Size = New System.Drawing.Size(200, 26) - Me.lblAnsprechpartnerNN.TabIndex = 8 - Me.lblAnsprechpartnerNN.Text = "ansprechpartner" - ' 'lblMobil ' Me.lblMobil.BackColor = System.Drawing.Color.White Me.lblMobil.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.lblMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblMobil.Location = New System.Drawing.Point(52, 120) + Me.lblMobil.Location = New System.Drawing.Point(43, 61) Me.lblMobil.Name = "lblMobil" Me.lblMobil.Size = New System.Drawing.Size(452, 26) - Me.lblMobil.TabIndex = 4 + Me.lblMobil.TabIndex = 220 Me.lblMobil.Text = "mobil" ' 'lblFax @@ -114,10 +229,10 @@ Partial Class frmKundenKontakteDetails Me.lblFax.BackColor = System.Drawing.Color.White Me.lblFax.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.lblFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFax.Location = New System.Drawing.Point(52, 97) + Me.lblFax.Location = New System.Drawing.Point(43, 38) Me.lblFax.Name = "lblFax" Me.lblFax.Size = New System.Drawing.Size(452, 26) - Me.lblFax.TabIndex = 3 + Me.lblFax.TabIndex = 219 Me.lblFax.Text = "fax" ' 'lblEmail @@ -126,32 +241,32 @@ Partial Class frmKundenKontakteDetails Me.lblEmail.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.lblEmail.Cursor = System.Windows.Forms.Cursors.Hand Me.lblEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblEmail.Location = New System.Drawing.Point(52, 154) + Me.lblEmail.Location = New System.Drawing.Point(43, 95) Me.lblEmail.Name = "lblEmail" Me.lblEmail.Size = New System.Drawing.Size(452, 26) - Me.lblEmail.TabIndex = 5 + Me.lblEmail.TabIndex = 221 Me.lblEmail.Text = "email" ' 'PictureBox4 ' Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox4.Image = Global.SDL.My.Resources.Resources.email - Me.PictureBox4.Location = New System.Drawing.Point(12, 156) + Me.PictureBox4.Location = New System.Drawing.Point(3, 97) Me.PictureBox4.Name = "PictureBox4" Me.PictureBox4.Size = New System.Drawing.Size(22, 18) Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox4.TabIndex = 189 + Me.PictureBox4.TabIndex = 228 Me.PictureBox4.TabStop = False ' 'PictureBox2 ' Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox2.Image = Global.SDL.My.Resources.Resources.fax - Me.PictureBox2.Location = New System.Drawing.Point(9, 99) + Me.PictureBox2.Location = New System.Drawing.Point(0, 40) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New System.Drawing.Size(25, 18) Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox2.TabIndex = 187 + Me.PictureBox2.TabIndex = 226 Me.PictureBox2.TabStop = False ' 'lblTel @@ -159,201 +274,153 @@ Partial Class frmKundenKontakteDetails Me.lblTel.BackColor = System.Drawing.Color.White Me.lblTel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.lblTel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblTel.Location = New System.Drawing.Point(52, 73) + Me.lblTel.Location = New System.Drawing.Point(43, 14) Me.lblTel.Name = "lblTel" Me.lblTel.Size = New System.Drawing.Size(452, 26) - Me.lblTel.TabIndex = 2 + Me.lblTel.TabIndex = 218 Me.lblTel.Text = "tel" ' 'PictureBox3 ' Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox3.Image = Global.SDL.My.Resources.Resources.handy - Me.PictureBox3.Location = New System.Drawing.Point(9, 123) + Me.PictureBox3.Location = New System.Drawing.Point(0, 64) Me.PictureBox3.Name = "PictureBox3" Me.PictureBox3.Size = New System.Drawing.Size(25, 18) Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox3.TabIndex = 186 + Me.PictureBox3.TabIndex = 225 Me.PictureBox3.TabStop = False ' - 'PictureBox5 + 'pnlGeschaeftsfuehrer ' - Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.person - Me.PictureBox5.Location = New System.Drawing.Point(9, 242) - Me.PictureBox5.Name = "PictureBox5" - Me.PictureBox5.Size = New System.Drawing.Size(25, 18) - Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox5.TabIndex = 191 - Me.PictureBox5.TabStop = False + Me.pnlGeschaeftsfuehrer.AutoSize = True + Me.pnlGeschaeftsfuehrer.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label5) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtPassgueltigbis) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label4) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label3) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.PictureBox10) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.PictureBox9) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.PictureBox8) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtGebDatum) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtPLZ) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.cbxLand) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtOrt) + Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtStrasse) + Me.pnlGeschaeftsfuehrer.Location = New System.Drawing.Point(8, 294) + Me.pnlGeschaeftsfuehrer.Name = "pnlGeschaeftsfuehrer" + Me.pnlGeschaeftsfuehrer.Size = New System.Drawing.Size(500, 102) + Me.pnlGeschaeftsfuehrer.TabIndex = 11 + Me.pnlGeschaeftsfuehrer.Visible = False ' - 'lbl + 'picBoxKorr ' - Me.lbl.AutoSize = True - Me.lbl.Location = New System.Drawing.Point(6, 13) - Me.lbl.Name = "lbl" - Me.lbl.Size = New System.Drawing.Size(59, 13) - Me.lbl.TabIndex = 0 - Me.lbl.Text = "Kontaktart:" + Me.picBoxKorr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.picBoxKorr.Image = CType(resources.GetObject("picBoxKorr.Image"), System.Drawing.Image) + Me.picBoxKorr.Location = New System.Drawing.Point(0, 217) + Me.picBoxKorr.Name = "picBoxKorr" + Me.picBoxKorr.Size = New System.Drawing.Size(25, 18) + Me.picBoxKorr.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.picBoxKorr.TabIndex = 267 + Me.picBoxKorr.TabStop = False ' - 'lblAnsprechpartnerVN + 'Label5 ' - Me.lblAnsprechpartnerVN.BackColor = System.Drawing.Color.White - Me.lblAnsprechpartnerVN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.lblAnsprechpartnerVN.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAnsprechpartnerVN.Location = New System.Drawing.Point(105, 239) - Me.lblAnsprechpartnerVN.Name = "lblAnsprechpartnerVN" - Me.lblAnsprechpartnerVN.Size = New System.Drawing.Size(200, 26) - Me.lblAnsprechpartnerVN.TabIndex = 7 - Me.lblAnsprechpartnerVN.Text = "ansprechpartner" + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(268, 86) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(80, 13) + Me.Label5.TabIndex = 266 + Me.Label5.Text = "Pass gültig bis.:" ' - 'lblEmailCC + 'txtPassgueltigbis ' - Me.lblEmailCC.BackColor = System.Drawing.Color.White - Me.lblEmailCC.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.lblEmailCC.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblEmailCC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblEmailCC.Location = New System.Drawing.Point(86, 179) - Me.lblEmailCC.Name = "lblEmailCC" - Me.lblEmailCC.Size = New System.Drawing.Size(418, 26) - Me.lblEmailCC.TabIndex = 192 - Me.lblEmailCC.Text = "email" + Me.txtPassgueltigbis._DateTimeOnly = False + Me.txtPassgueltigbis._numbersOnly = False + Me.txtPassgueltigbis._numbersOnlyKommastellen = "" + Me.txtPassgueltigbis._numbersOnlyTrennzeichen = True + Me.txtPassgueltigbis._Prozent = False + Me.txtPassgueltigbis._ShortDateNew = True + Me.txtPassgueltigbis._ShortDateOnly = False + Me.txtPassgueltigbis._TimeOnly = False + Me.txtPassgueltigbis._TimeOnly_Seconds = False + Me.txtPassgueltigbis._value = "geburtsdatum" + Me.txtPassgueltigbis._Waehrung = False + Me.txtPassgueltigbis._WaehrungZeichen = False + Me.txtPassgueltigbis.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPassgueltigbis.ForeColor = System.Drawing.Color.Red + Me.txtPassgueltigbis.Location = New System.Drawing.Point(354, 73) + Me.txtPassgueltigbis.MaxLength = 10 + Me.txtPassgueltigbis.MaxLineLength = -1 + Me.txtPassgueltigbis.MaxLines_Warning = "" + Me.txtPassgueltigbis.MaxLines_Warning_Label = Nothing + Me.txtPassgueltigbis.Multiline = True + Me.txtPassgueltigbis.Name = "txtPassgueltigbis" + Me.txtPassgueltigbis.Size = New System.Drawing.Size(141, 26) + Me.txtPassgueltigbis.TabIndex = 265 + Me.txtPassgueltigbis.Text = "passgueltigbis" ' - 'PictureBox6 + 'txtKorrAdd ' - Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox6.Image = Global.SDL.My.Resources.Resources.email - Me.PictureBox6.Location = New System.Drawing.Point(12, 181) - Me.PictureBox6.Name = "PictureBox6" - Me.PictureBox6.Size = New System.Drawing.Size(22, 18) - Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox6.TabIndex = 193 - Me.PictureBox6.TabStop = False + Me.txtKorrAdd.BackColor = System.Drawing.Color.White + Me.txtKorrAdd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtKorrAdd.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtKorrAdd.Location = New System.Drawing.Point(45, 209) + Me.txtKorrAdd.Name = "txtKorrAdd" + Me.txtKorrAdd.Size = New System.Drawing.Size(452, 26) + Me.txtKorrAdd.TabIndex = 264 + Me.txtKorrAdd.Text = "adresse" ' - 'lblEmailBCC + 'Label4 ' - Me.lblEmailBCC.BackColor = System.Drawing.Color.White - Me.lblEmailBCC.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.lblEmailBCC.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblEmailBCC.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblEmailBCC.Location = New System.Drawing.Point(86, 204) - Me.lblEmailBCC.Name = "lblEmailBCC" - Me.lblEmailBCC.Size = New System.Drawing.Size(418, 26) - Me.lblEmailBCC.TabIndex = 194 - Me.lblEmailBCC.Text = "email" + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(36, 86) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(53, 13) + Me.Label4.TabIndex = 263 + Me.Label4.Text = "Geb-Dat.:" ' - 'PictureBox7 + 'Label3 ' - Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox7.Image = Global.SDL.My.Resources.Resources.email - Me.PictureBox7.Location = New System.Drawing.Point(12, 206) - Me.PictureBox7.Name = "PictureBox7" - Me.PictureBox7.Size = New System.Drawing.Size(22, 18) - Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox7.TabIndex = 195 - Me.PictureBox7.TabStop = False - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(49, 186) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(24, 13) - Me.Label1.TabIndex = 196 - Me.Label1.Text = "CC:" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Location = New System.Drawing.Point(49, 211) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(31, 13) - Me.Label2.TabIndex = 197 - Me.Label2.Text = "BCC:" - ' - 'txtStrasse - ' - Me.txtStrasse.BackColor = System.Drawing.Color.White - Me.txtStrasse.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtStrasse.Location = New System.Drawing.Point(52, 271) - Me.txtStrasse.Name = "txtStrasse" - Me.txtStrasse.Size = New System.Drawing.Size(452, 26) - Me.txtStrasse.TabIndex = 198 - Me.txtStrasse.Text = "adresse" - ' - 'txtOrt - ' - Me.txtOrt.BackColor = System.Drawing.Color.White - Me.txtOrt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtOrt.Location = New System.Drawing.Point(272, 303) - Me.txtOrt.Name = "txtOrt" - Me.txtOrt.Size = New System.Drawing.Size(232, 26) - Me.txtOrt.TabIndex = 203 - Me.txtOrt.Text = "ort" - ' - 'txtPLZ - ' - Me.txtPLZ.BackColor = System.Drawing.Color.White - Me.txtPLZ.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPLZ.Location = New System.Drawing.Point(167, 303) - Me.txtPLZ.Name = "txtPLZ" - Me.txtPLZ.Size = New System.Drawing.Size(99, 26) - Me.txtPLZ.TabIndex = 206 - Me.txtPLZ.Text = "plz" - ' - 'PictureBox8 - ' - Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox8.Image = CType(resources.GetObject("PictureBox8.Image"), System.Drawing.Image) - Me.PictureBox8.Location = New System.Drawing.Point(9, 271) - Me.PictureBox8.Name = "PictureBox8" - Me.PictureBox8.Size = New System.Drawing.Size(25, 18) - Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox8.TabIndex = 208 - Me.PictureBox8.TabStop = False - ' - 'PictureBox9 - ' - Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None - Me.PictureBox9.Image = CType(resources.GetObject("PictureBox9.Image"), System.Drawing.Image) - Me.PictureBox9.Location = New System.Drawing.Point(9, 340) - Me.PictureBox9.Name = "PictureBox9" - Me.PictureBox9.Size = New System.Drawing.Size(25, 18) - Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox9.TabIndex = 209 - Me.PictureBox9.TabStop = False + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(36, 51) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(78, 13) + Me.Label3.TabIndex = 262 + Me.Label3.Text = "Land/PLZ/Ort:" ' 'PictureBox10 ' Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox10.Image = CType(resources.GetObject("PictureBox10.Image"), System.Drawing.Image) - Me.PictureBox10.Location = New System.Drawing.Point(9, 305) + Me.PictureBox10.Location = New System.Drawing.Point(5, 46) Me.PictureBox10.Name = "PictureBox10" Me.PictureBox10.Size = New System.Drawing.Size(25, 18) Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox10.TabIndex = 210 + Me.PictureBox10.TabIndex = 261 Me.PictureBox10.TabStop = False ' - 'Label3 + 'PictureBox9 ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(40, 310) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(78, 13) - Me.Label3.TabIndex = 211 - Me.Label3.Text = "Land/PLZ/Ort:" + Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox9.Image = CType(resources.GetObject("PictureBox9.Image"), System.Drawing.Image) + Me.PictureBox9.Location = New System.Drawing.Point(5, 81) + Me.PictureBox9.Name = "PictureBox9" + Me.PictureBox9.Size = New System.Drawing.Size(25, 18) + Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox9.TabIndex = 260 + Me.PictureBox9.TabStop = False ' - 'Label4 + 'PictureBox8 ' - Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(40, 345) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(53, 13) - Me.Label4.TabIndex = 212 - Me.Label4.Text = "Geb-Dat.:" + Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox8.Image = CType(resources.GetObject("PictureBox8.Image"), System.Drawing.Image) + Me.PictureBox8.Location = New System.Drawing.Point(5, 12) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(25, 18) + Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox8.TabIndex = 259 + Me.PictureBox8.TabStop = False ' 'txtGebDatum ' @@ -371,7 +438,7 @@ Partial Class frmKundenKontakteDetails Me.txtGebDatum._WaehrungZeichen = False Me.txtGebDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtGebDatum.ForeColor = System.Drawing.Color.Black - Me.txtGebDatum.Location = New System.Drawing.Point(120, 332) + Me.txtGebDatum.Location = New System.Drawing.Point(116, 73) Me.txtGebDatum.MaxLength = 10 Me.txtGebDatum.MaxLineLength = -1 Me.txtGebDatum.MaxLines_Warning = "" @@ -379,9 +446,20 @@ Partial Class frmKundenKontakteDetails Me.txtGebDatum.Multiline = True Me.txtGebDatum.Name = "txtGebDatum" Me.txtGebDatum.Size = New System.Drawing.Size(146, 26) - Me.txtGebDatum.TabIndex = 207 + Me.txtGebDatum.TabIndex = 258 Me.txtGebDatum.Text = "geburtsdatum" ' + 'txtPLZ + ' + Me.txtPLZ.BackColor = System.Drawing.Color.White + Me.txtPLZ.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtPLZ.Location = New System.Drawing.Point(163, 44) + Me.txtPLZ.Name = "txtPLZ" + Me.txtPLZ.Size = New System.Drawing.Size(99, 26) + Me.txtPLZ.TabIndex = 257 + Me.txtPLZ.Text = "plz" + ' 'cbxLand ' Me.cbxLand._allowedValuesFreiText = Nothing @@ -390,10 +468,32 @@ Partial Class frmKundenKontakteDetails Me.cbxLand.DropDownWidth = 150 Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!) Me.cbxLand.FormattingEnabled = True - Me.cbxLand.Location = New System.Drawing.Point(120, 303) + Me.cbxLand.Location = New System.Drawing.Point(116, 44) Me.cbxLand.Name = "cbxLand" Me.cbxLand.Size = New System.Drawing.Size(41, 26) - Me.cbxLand.TabIndex = 205 + Me.cbxLand.TabIndex = 256 + ' + 'txtOrt + ' + Me.txtOrt.BackColor = System.Drawing.Color.White + Me.txtOrt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtOrt.Location = New System.Drawing.Point(268, 44) + Me.txtOrt.Name = "txtOrt" + Me.txtOrt.Size = New System.Drawing.Size(229, 26) + Me.txtOrt.TabIndex = 255 + Me.txtOrt.Text = "ort" + ' + 'txtStrasse + ' + Me.txtStrasse.BackColor = System.Drawing.Color.White + Me.txtStrasse.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtStrasse.Location = New System.Drawing.Point(48, 12) + Me.txtStrasse.Name = "txtStrasse" + Me.txtStrasse.Size = New System.Drawing.Size(449, 26) + Me.txtStrasse.TabIndex = 254 + Me.txtStrasse.Text = "adresse" ' 'cboMannFrau ' @@ -402,82 +502,100 @@ Partial Class frmKundenKontakteDetails Me.cboMannFrau._value = "" Me.cboMannFrau.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!) Me.cboMannFrau.FormattingEnabled = True - Me.cboMannFrau.Location = New System.Drawing.Point(52, 239) + Me.cboMannFrau.Location = New System.Drawing.Point(43, 177) Me.cboMannFrau.Name = "cboMannFrau" Me.cboMannFrau.Size = New System.Drawing.Size(54, 26) - Me.cboMannFrau.TabIndex = 6 + Me.cboMannFrau.TabIndex = 250 ' - 'cboKontaktArt + 'lblAnsprechpartnerVN ' - Me.cboKontaktArt._allowedValuesFreiText = Nothing - Me.cboKontaktArt._allowFreiText = False - Me.cboKontaktArt._value = "" - Me.cboKontaktArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.cboKontaktArt.FormattingEnabled = True - Me.cboKontaktArt.Location = New System.Drawing.Point(9, 29) - Me.cboKontaktArt.Name = "cboKontaktArt" - Me.cboKontaktArt.Size = New System.Drawing.Size(495, 28) - Me.cboKontaktArt.TabIndex = 1 + Me.lblAnsprechpartnerVN.BackColor = System.Drawing.Color.White + Me.lblAnsprechpartnerVN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lblAnsprechpartnerVN.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAnsprechpartnerVN.Location = New System.Drawing.Point(96, 177) + Me.lblAnsprechpartnerVN.Name = "lblAnsprechpartnerVN" + Me.lblAnsprechpartnerVN.Size = New System.Drawing.Size(200, 26) + Me.lblAnsprechpartnerVN.TabIndex = 251 + Me.lblAnsprechpartnerVN.Text = "ansprechpartner" + ' + 'lblAnsprechpartnerNN + ' + Me.lblAnsprechpartnerNN.BackColor = System.Drawing.Color.White + Me.lblAnsprechpartnerNN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.lblAnsprechpartnerNN.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAnsprechpartnerNN.Location = New System.Drawing.Point(295, 177) + Me.lblAnsprechpartnerNN.Name = "lblAnsprechpartnerNN" + Me.lblAnsprechpartnerNN.Size = New System.Drawing.Size(200, 26) + Me.lblAnsprechpartnerNN.TabIndex = 252 + Me.lblAnsprechpartnerNN.Text = "ansprechpartner" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None + Me.PictureBox5.Image = Global.SDL.My.Resources.Resources.person + Me.PictureBox5.Location = New System.Drawing.Point(0, 180) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(25, 18) + Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox5.TabIndex = 253 + Me.PictureBox5.TabStop = False + ' + 'pnlMain + ' + Me.pnlMain.Controls.Add(Me.lbl) + Me.pnlMain.Controls.Add(Me.pnlGeschaeftsfuehrer) + Me.pnlMain.Controls.Add(Me.cboKontaktArt) + Me.pnlMain.Controls.Add(Me.pnlKontakt) + Me.pnlMain.Location = New System.Drawing.Point(7, 12) + Me.pnlMain.Name = "pnlMain" + Me.pnlMain.Size = New System.Drawing.Size(513, 405) + Me.pnlMain.TabIndex = 12 ' 'frmKundenKontakteDetails ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(521, 409) - Me.Controls.Add(Me.Label4) - Me.Controls.Add(Me.Label3) - Me.Controls.Add(Me.PictureBox10) - Me.Controls.Add(Me.PictureBox9) - Me.Controls.Add(Me.PictureBox8) - Me.Controls.Add(Me.txtGebDatum) - Me.Controls.Add(Me.txtPLZ) - Me.Controls.Add(Me.cbxLand) - Me.Controls.Add(Me.txtOrt) - Me.Controls.Add(Me.txtStrasse) - Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.lblEmailBCC) - Me.Controls.Add(Me.PictureBox7) - Me.Controls.Add(Me.lblEmailCC) - Me.Controls.Add(Me.PictureBox6) - Me.Controls.Add(Me.cboMannFrau) - Me.Controls.Add(Me.lblAnsprechpartnerVN) - Me.Controls.Add(Me.cboKontaktArt) - Me.Controls.Add(Me.lbl) - Me.Controls.Add(Me.PictureBox1) - Me.Controls.Add(Me.lblAnsprechpartnerNN) - Me.Controls.Add(Me.lblMobil) - Me.Controls.Add(Me.lblFax) - Me.Controls.Add(Me.lblEmail) - Me.Controls.Add(Me.PictureBox4) - Me.Controls.Add(Me.PictureBox2) - Me.Controls.Add(Me.lblTel) - Me.Controls.Add(Me.PictureBox3) - Me.Controls.Add(Me.PictureBox5) + Me.ClientSize = New System.Drawing.Size(542, 481) + Me.Controls.Add(Me.pnlMain) Me.Controls.Add(Me.btn) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmKundenKontakteDetails" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Kunden Kontakt" + Me.pnlKontakt.ResumeLayout(False) + Me.pnlKontakt.PerformLayout() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlGeschaeftsfuehrer.ResumeLayout(False) + Me.pnlGeschaeftsfuehrer.PerformLayout() + CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlMain.ResumeLayout(False) + Me.pnlMain.PerformLayout() Me.ResumeLayout(False) - Me.PerformLayout() End Sub Friend WithEvents btn As Button + Friend WithEvents lbl As Label + Friend WithEvents cboKontaktArt As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents pnlKontakt As Panel + Friend WithEvents Label2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents lblEmailBCC As TextBox + Friend WithEvents PictureBox7 As PictureBox + Friend WithEvents lblEmailCC As TextBox + Friend WithEvents PictureBox6 As PictureBox Friend WithEvents PictureBox1 As PictureBox - Friend WithEvents lblAnsprechpartnerNN As TextBox Friend WithEvents lblMobil As TextBox Friend WithEvents lblFax As TextBox Friend WithEvents lblEmail As TextBox @@ -485,25 +603,24 @@ Partial Class frmKundenKontakteDetails Friend WithEvents PictureBox2 As PictureBox Friend WithEvents lblTel As TextBox Friend WithEvents PictureBox3 As PictureBox - Friend WithEvents PictureBox5 As PictureBox - Friend WithEvents lbl As Label - Friend WithEvents cboKontaktArt As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents lblAnsprechpartnerVN As TextBox - Friend WithEvents cboMannFrau As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents lblEmailCC As TextBox - Friend WithEvents PictureBox6 As PictureBox - Friend WithEvents lblEmailBCC As TextBox - Friend WithEvents PictureBox7 As PictureBox - Friend WithEvents Label1 As Label - Friend WithEvents Label2 As Label - Friend WithEvents txtStrasse As TextBox - Friend WithEvents txtOrt As TextBox - Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox - Friend WithEvents txtPLZ As TextBox - Friend WithEvents txtGebDatum As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents PictureBox8 As PictureBox - Friend WithEvents PictureBox9 As PictureBox - Friend WithEvents PictureBox10 As PictureBox - Friend WithEvents Label3 As Label + Friend WithEvents pnlGeschaeftsfuehrer As Panel + Friend WithEvents picBoxKorr As PictureBox + Friend WithEvents Label5 As Label + Friend WithEvents txtPassgueltigbis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtKorrAdd As TextBox Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents PictureBox10 As PictureBox + Friend WithEvents PictureBox9 As PictureBox + Friend WithEvents PictureBox8 As PictureBox + Friend WithEvents txtGebDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtPLZ As TextBox + Friend WithEvents cbxLand As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtOrt As TextBox + Friend WithEvents txtStrasse As TextBox + Friend WithEvents cboMannFrau As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lblAnsprechpartnerVN As TextBox + Friend WithEvents lblAnsprechpartnerNN As TextBox + Friend WithEvents PictureBox5 As PictureBox + Friend WithEvents pnlMain As Panel End Class diff --git a/SDL/kunden/frmKundenKontakteDetails.resx b/SDL/kunden/frmKundenKontakteDetails.resx index c830b5b5..f0e69382 100644 --- a/SDL/kunden/frmKundenKontakteDetails.resx +++ b/SDL/kunden/frmKundenKontakteDetails.resx @@ -118,7 +118,49 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t + 3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA + AAAAAAAAAMD7/PI9v37Pbz/z+4f8Mcj237b/vz62PgcwsXpIt4f3z+/563v+fmPq81Xqc9dEsU0OwMG2 + VX172EcP7FHZJoX6WkwIsJNthT/7gb+VrVKor9XWAV7Q5aH/KiYDeFD3h/5atskAuLCt9qMHJy2qAvhp + pQf/MjUR1ImCiYDl1KCvwT96MFZM/SycIhBv5RX/nqgIiOXBvy+ahUSp0rYG9Wiwy/XUz6xuHEJLVcom + HucdnfoZ2hbQSq36o8Esz8W2gDbs9feLSYBpKfmPSVUDtgRMpZpVo8Eq+8SWgGm40HNeTAKcSsl/fmoC + hsN5+OdJbQngEJp9c0ZzkN3VAKuBNhqAcn5MAuymBtZo0MlcMQnwdjWglP19YhLgrTz8/VKTALzMw983 + JgFe4uHvH/cEeIobfjlxY5CHeDtvXkwC3MVxX2aqH+AXj3KTfX9uNAX5UpWJo4EjOdEUZMi+f53YCvCJ + ff9acVOQT+z710u95qD0Xzi2AvwoB0eDQ/LjVGBxuv7igtDCRgNC1oqG4KLc9Zct7gYsRuNPLqMhuBDH + fnIZx4KLcOlHrkUVsAB7f7kWvYAFjF54kYoTgXDO/eVWVAHB3PqTW3E7MJS/wlvuTY0Vwqx+9FcrW/0M + qsStrVClBvqW+vcVR6SOBCONXuj01ENfD/qjx1vVCKuPqY9ddUJwJBhktfK/Htx3qgmhPufoz0rNu3+G + nGiVVWzvQbvSRGAbEGT0Aiel9u5Hnl+vMhHYBgRIL//r+ztL+iRgGxAg9ey/vq8ZVqiqBlJ/xrYBAUYv + bPfUA3dkyX9L6iRQ3xONJZb/s65KNQkkNlv1ARpL26POtvJfSqwE9AEaq+746EXtmg6rUU0Co6+9a/QB + Ghu9oF1zZrf/UUlbL32Apmq1HL2gHdNxFUqqvvQBGkpahWbe91+TtBXQB2goZQWq76OrlNfABNBQyuDr + uPpvUqoAjcCGEo6jOq/+m4SJWCOwodEL2S2dV/9NQhVgAmho9EJ2StKgS7ghmDAZLyPhBCCh/N8k3Mh0 + FNhIwgSQNOAS7mR0uoi1vIQJIElCH8AE0Ej3kjPx2Kl7H8BdgEa6TwBJ+/9N9+NAE0Aj3Qdb4gTQfVI2 + ATRitZmPqozDdJ8AEhtO3RuzJoBGTADzMQFwmO4TgC3AfDEBNNJ9sCVOAN0nZRNAI90ngMR7AKoyDmMC + mI+LQBym+wSQ+PbT0ffZKa4CN5Lw5pOkNwN1PwGomAAaSZgAkkrO7vv/it8H0IjfQjOX+l5G32OnmACa + Gb2I3ZKyDRh9b91CMwmrTsLZc0L5n9iUjdf92KlSA6976Tn6vrrFJaCGuh8Fbuk8+BJW/4o7AA0lnARU + qgro2AtIaMRucQTYUNIA7FgFJGzBtjgBaGr0YnZNpzI04eLPx9BU0irUZSuQsvXaogHYWEojcMvspwJJ + 264tJoDG0lajysxn0kkV1xYNwMYSV6TKbJVAfS2JD39l5oqLO6QOzJoEZlidEqusLTV2aC6tD/AxNQmc + eTqQ1u2/jP1/gOQVaksN1CNL1fqz6s8cfS1Jsf8PUIN19OKmZasG9pwI6nMnV1SXIURqH2CUPSaC1R78 + ivI/SPpe9VpqMqiB/MwFou2hr88x+tzpUf4HqcE8epFXSj3IVQnVhFCph7sGeaX+uVL/fqVq6au8s4Ji + Aga2PBLCrLaHledj/x/INkDujfI/lG2A3Er1SghlGyC3ovsfzDZAbkX5H842QK6lxgbhVr0UJLej/F+A + bYBcC4uwDZDLOPtfyApvEZbH8sz7JWhMFSAfw2I0A2WL5t+CNANli7P/RVXjZzQgZJ1o/i1MFSCaf4vT + DFw3bv7hSHDhaP7xYxugClgz8IMjwfVi9edfmoHrBT5RBayT+sUw8IkqYJ24+MOQi0H5cfGHq1QB+bH6 + 8yVVQG6s/tykCsiN1Z+7qALyYvXnbqqAvFj9eYgqICdWfx6mCsiJ1Z+n+KvE+setP56mCugfeIn3CPSN + 1Z+XVRVQf2X0aIDJ3IG3UAX0i/f78zZVBfitQX1SFRu8ld8d2Cd+0y+7UAXMH7/pl904Fpw/Vn925Yrw + vHHll92pAuZNvTawO8eC88WxH4dxLDhXHPtxOMeC80Tjj1NoCJ4fjT9OoyF4fjT+OJWG4Hnxbj9OpyF4 + TjT+mIaG4PHR+GMqGoLHReOP6WgIHheYkobg/nHjj6lpCO4Xb/VlerYC+0XjjxZsBd4fZ/604W7Ae6P0 + px1bgfdF6U9L/mqx16P0py1bgdfiui/t2Qo8H6U/EWwFHo/Snxi2Ao9F6U8cW4H7o/Qnkq3A7Sj9iWUr + 8HVc+CGercD1KP1Zgq3A/6P0Zxm2Ap+j9Gc5tgL/pX4WsBxvG7bvZ3Er/zJRpT/Lq/K3br6NHpDkuO0H + P1UZPHpIkqP0hw9WOhp05AcXVjkatO+HK1Y4GlT6wxeSjwY9/HCHxH6A0h/ulHY06MgPHpTUD1D6wxMS + +gEefnhB56vC9v3woq79APt+eJOO/QClP7xRp36Ahx920OF+gH0/7KS2AjO/X8C+H3Y2cz9A6Q8HmLEf + 4OGHA83UD/D+fjjYLP0ATT84ydmXhDT94GRnNgXt+2ECZzQFPfwwkSObgpp+MJmjmoKafjCpvZuCmn4w + uT2bgvb90MAeTUEPPzTyzqagph809I5fJ6bpB029ejLg4Yfmnj0ZqI+pjwWae+ZkQNMPgjxyMuDhh0D3 + nAzo+EOwryYBTT8Id+1kwMMPi7g8GXDHHxazTQKO+2BR9eDr+AMAAAAAAAAAAAAAAAAAAAAAAAAAABzj + 27d/ABBabbXEUZDWAAAAAElFTkSuQmCC + + + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t 3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA @@ -211,7 +253,7 @@ 5YK/CrjgMXgAAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAABGdBTUEAALGPC/xhBQAACHtJREFUeF7t 3Y1xJDUQBtALhVAIhUwIhVAIhVDg+uoG7EXr/Z0Z9af3qr4qCrDP9mqkVkvr+wYAAAAAAAAAAAAAAAAA diff --git a/SDL/kunden/frmKundenKontakteDetails.vb b/SDL/kunden/frmKundenKontakteDetails.vb index 8e53b751..89e46b96 100644 --- a/SDL/kunden/frmKundenKontakteDetails.vb +++ b/SDL/kunden/frmKundenKontakteDetails.vb @@ -39,7 +39,6 @@ If kkd_id > 0 Then KD_KONTAKT = New VERAG_PROG_ALLGEMEIN.cKundenKontakte(kkd_id) - Else KD_KONTAKT = Nothing End If @@ -64,8 +63,10 @@ txtOrt.Text = If(KD_KONTAKT.kkd_Ort, "") txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "") txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "") + txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "") If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land) txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "") + txtPassgueltigbis.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_Passgueltigbis) AndAlso IsDate(KD_KONTAKT.kkd_Passgueltigbis), CDate(KD_KONTAKT.kkd_Passgueltigbis), "") End Sub @@ -88,6 +89,8 @@ KD_KONTAKT.kkd_Mobil = lblMobil.Text KD_KONTAKT.kkd_GebDatum = IIf(txtGebDatum.Text <> "" AndAlso IsDate(txtGebDatum.Text), txtGebDatum.Text, "") + KD_KONTAKT.kkd_Passgueltigbis = IIf(txtPassgueltigbis.Text <> "" AndAlso IsDate(txtPassgueltigbis.Text), txtPassgueltigbis.Text, "") + KD_KONTAKT.kkd_Firmenname = txtKorrAdd.Text KD_KONTAKT.kkd_Ort = txtOrt.Text KD_KONTAKT.kkd_Land = cbxLand._value KD_KONTAKT.kkd_PLZ = txtPLZ.Text @@ -101,4 +104,24 @@ Me.Close() End Sub + Private Sub cboKontaktArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboKontaktArt.SelectedIndexChanged + + + If cboKontaktArt._value = "13" Then + pnlGeschaeftsfuehrer.Visible = True + Else + pnlGeschaeftsfuehrer.Visible = False + End If + + If cboKontaktArt._value = "14" Then + txtKorrAdd.Visible = True + picBoxKorr.Visible = True + Else + txtKorrAdd.Visible = False + picBoxKorr.Visible = False + + End If + End Sub + + End Class diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index 4ab4df9d..20d974cb 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -36,14 +36,14 @@ Public Class usrCntlOfferte End Sub - Public Sub init(kdNr As Integer, Optional isVerag360 As Boolean = False) + Public Sub init(kdNr As Integer, Optional _isVerag360 As Boolean = False) Me.kdNr = kdNr initDGVOfferte() edit = False handleEditMode(edit) KD_ERW = New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr) cbxAutoFakturierung.Checked = KD_ERW.AutoFakturierung - isVerag360 = isVerag360 + isVerag360 = _isVerag360 End Sub Sub initDGVOfferte() @@ -187,7 +187,7 @@ Public Class usrCntlOfferte Private Sub usrCntlOfferte_Load(sender As Object, e As EventArgs) Handles Me.Load - init(kdNr) + init(kdNr, isVerag360) ' sbLeistungAdd.initSearchBox(Me.FindForm, " [Code] ,[LeistungsNr],[LeistungsBez] FROM [Leistungen]", {"LeistungsNr", "LeistungsBez"}, " ", "LeistungsNr", "LeistungsNr", , "FMZOLL", , 400, 200) cboLeistungenAdd.fillWithSQL("SELECT [LeistungsNr],[LeistungsBez] FROM [Leistungen] ORDER BY LeistungsNr", , "FMZOLL", True) diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index b0366417..624648e3 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -22,22 +22,22 @@ Partial Class usrcntlKundeBearbeitenFull 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle31 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle32 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cbxVerzolltBeiExport = New System.Windows.Forms.CheckBox() @@ -48,11 +48,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFremdspedition = New System.Windows.Forms.ComboBox() Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox() Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox() - Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() Me.tbcntrAbf = New System.Windows.Forms.TabControl() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() - Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox() Me.Label18 = New System.Windows.Forms.Label() Me.TabPage3 = New System.Windows.Forms.TabPage() @@ -66,7 +64,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox() Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.tbAufschub = New System.Windows.Forms.TabPage() - Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.Label78 = New System.Windows.Forms.Label() Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox() @@ -91,7 +88,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.tbFiskal = New System.Windows.Forms.TabPage() - Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() Me.cbxKapitalWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label103 = New System.Windows.Forms.Label() @@ -336,7 +332,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbKontakt = New System.Windows.Forms.TabControl() Me.TabPage10 = New System.Windows.Forms.TabPage() Me.TabPage11 = New System.Windows.Forms.TabPage() - Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() Me.Label50 = New System.Windows.Forms.Label() Me.Label68 = New System.Windows.Forms.Label() Me.pnlNeukunde = New System.Windows.Forms.Panel() @@ -358,6 +353,11 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte() + Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten() + Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung() + Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten() + Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -535,16 +535,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU" Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True ' - 'UsrCntlKundenBesonderheiten1 - ' - Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) - Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" - Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) - Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 - Me.UsrCntlKundenBesonderheiten1.Visible = False - ' 'tbcntrAbf ' Me.tbcntrAbf.Controls.Add(Me.TabPage4) @@ -579,15 +569,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.FlowLayoutPanel1.Size = New System.Drawing.Size(200, 100) Me.FlowLayoutPanel1.TabIndex = 7 ' - 'UsrCntlKundenAvisoMailBenachrichtigung1 - ' - Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True - Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" - Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) - Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 - ' 'rtbLKWFreigabeSenden ' Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33) @@ -756,14 +737,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbAufschub.Text = "Aufschubkonten" Me.tbAufschub.UseVisualStyleBackColor = True ' - 'usrCntlAufschubkonten - ' - Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) - Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" - Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) - Me.usrCntlAufschubkonten.TabIndex = 0 - ' 'TabPage1 ' Me.TabPage1.Controls.Add(Me.Label78) @@ -1069,15 +1042,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal.Text = "Fiskal" Me.tbFiskal.UseVisualStyleBackColor = True ' - 'UsrCntlKundeFiskaldaten1 - ' - Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White - Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" - Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) - Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 - ' 'tbVerrechnung ' Me.tbVerrechnung.Controls.Add(Me.cbxKapitalWaehrung) @@ -2858,8 +2822,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -2958,8 +2922,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -3118,41 +3082,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle20 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 + DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle21 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle22 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle23 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -3291,26 +3255,26 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle24.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle24 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 + DataGridViewCellStyle25.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle25.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle25.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle25.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle25.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle25.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle25 Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle10 + DataGridViewCellStyle26.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle26.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle26.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle26.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle26.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle26.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvUstv_LaenderUndSteuernummern.DefaultCellStyle = DataGridViewCellStyle26 Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) Me.dgvUstv_LaenderUndSteuernummern.Name = "dgvUstv_LaenderUndSteuernummern" Me.dgvUstv_LaenderUndSteuernummern.Size = New System.Drawing.Size(657, 321) @@ -3547,26 +3511,26 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle28.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle28.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle28.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle28.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle28.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle28.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSonst_IDSKunden.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle28 Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle29.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle29.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle29.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle29.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle29.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle29.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSonst_IDSKunden.DefaultCellStyle = DataGridViewCellStyle29 Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) Me.dgvSonst_IDSKunden.MultiSelect = False Me.dgvSonst_IDSKunden.Name = "dgvSonst_IDSKunden" @@ -3783,26 +3747,26 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle31.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle31.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle31.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle31.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle31.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle31.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle31.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle31 Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle32.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle32.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle32.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle32.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle32.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle32.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle32 Me.DataGridView1.Enabled = False Me.DataGridView1.Location = New System.Drawing.Point(9, 93) Me.DataGridView1.MultiSelect = False @@ -3954,6 +3918,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'PictureBox5 ' + Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.PictureBox5.Location = New System.Drawing.Point(88, 62) Me.PictureBox5.Name = "PictureBox5" @@ -3986,6 +3951,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'Button13 ' + Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button13.FlatAppearance.BorderSize = 0 Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -3997,6 +3963,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'btnUIDPruef ' + Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.wait Me.btnUIDPruef.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUIDPruef.FlatAppearance.BorderSize = 0 Me.btnUIDPruef.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -4621,14 +4588,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.TabPage11.Text = "Spezifisch" Me.TabPage11.UseVisualStyleBackColor = True ' - 'ucKundenKontakte - ' - Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill - Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) - Me.ucKundenKontakte.Name = "ucKundenKontakte" - Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) - Me.ucKundenKontakte.TabIndex = 0 - ' 'Label50 ' Me.Label50.AutoSize = True @@ -4881,6 +4840,50 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' + 'ucKundenKontakte + ' + Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill + Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3) + Me.ucKundenKontakte.Name = "ucKundenKontakte" + Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169) + Me.ucKundenKontakte.TabIndex = 0 + ' + 'UsrCntlKundenBesonderheiten1 + ' + Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25) + Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1" + Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52) + Me.UsrCntlKundenBesonderheiten1.TabIndex = 235 + Me.UsrCntlKundenBesonderheiten1.Visible = False + ' + 'UsrCntlKundenAvisoMailBenachrichtigung1 + ' + Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True + Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1" + Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172) + Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6 + ' + 'usrCntlAufschubkonten + ' + Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3) + Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten" + Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172) + Me.usrCntlAufschubkonten.TabIndex = 0 + ' + 'UsrCntlKundeFiskaldaten1 + ' + Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White + Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1" + Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495) + Me.UsrCntlKundeFiskaldaten1.TabIndex = 0 + ' 'usrcntlKundeBearbeitenFull ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index a52300be..3ff2a390 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -11,9 +11,7 @@ Imports VERAG_PROG_ALLGEMEIN Public Class frmMDMDatenverarbetiung Public LIEFERANT = "" - Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - ' Dim ProduktCode_NOT_IN = "SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 " Dim ProduktCode_NOT_IN = "'9020'" Dim datum As Date = Nothing @@ -22,14 +20,6 @@ Public Class frmMDMDatenverarbetiung Me.Height = My.Computer.Screen.WorkingArea.Height End Sub - Private Sub Button4_Click(sender As Object, e As EventArgs) - - End Sub - - Private Sub pnl_Paint(sender As Object, e As PaintEventArgs) Handles pnl.Paint - - End Sub - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Select Case LIEFERANT Case "PLOSE" : genSummenbericht_PLOSE() @@ -563,6 +553,7 @@ Public Class frmMDMDatenverarbetiung Sub initDgv_PLOSE() With MyDatagridview1 + .Columns.Clear() .SET_SQL(" SELECT plose_POLSEKundennummer, count(*) Anzahl,plose_ProduktCode,max(plose_Produktbeschreibung) as plose_Produktbeschreibung, sum(plose_Menge) as plose_Menge,sum(plose_Preis) as plose_Preis,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_MWSTBetragWaehrungAbbuchung) as plose_MWSTBetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung) as plose_BruttobetragWaehrungAbbuchung FROM tblPLOSE_Details @@ -1535,7 +1526,7 @@ Public Class frmMDMDatenverarbetiung Return True Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False @@ -1663,7 +1654,7 @@ Public Class frmMDMDatenverarbetiung Return True Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False @@ -1767,7 +1758,7 @@ Public Class frmMDMDatenverarbetiung Return True Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False @@ -1856,7 +1847,7 @@ Public Class frmMDMDatenverarbetiung Return True Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False @@ -1902,7 +1893,7 @@ Public Class frmMDMDatenverarbetiung Return True Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False @@ -2047,7 +2038,7 @@ Public Class frmMDMDatenverarbetiung Return tmpPath Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return "" @@ -2237,7 +2228,7 @@ Public Class frmMDMDatenverarbetiung Return tmpPath Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return "" @@ -2424,7 +2415,7 @@ Public Class frmMDMDatenverarbetiung Return tmpPath Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return "" @@ -2591,7 +2582,7 @@ Public Class frmMDMDatenverarbetiung Return tmpPath Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return "" @@ -2656,7 +2647,7 @@ Public Class frmMDMDatenverarbetiung Return SPEDBUCH.SAVE Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False @@ -2954,6 +2945,7 @@ Public Class frmMDMDatenverarbetiung Case "ASFINAG" useNettogesamtbetrag = True + sqlstr = "SELECT '135' as LeistungsNr, 'MAUT AT lt. Auslage' as ProductCode, sum([netAmount]) as Netto ,sum([VATamount]) as Vatamount ,sum([totalAmount]) as Brutto FROM Kreditkarten INNER JOIN tblAsfinagMaut ON Kreditkarten.KartenNr = tblAsfinagMaut.cardnumber Where Kreditkarten.AdressenNr= '" & KD.KundenNr & "' and tblAsfinagMaut.VATamount <> 0 group by Kreditkarten.AdressenNr UNION SELECT '153' as LeistungsNr, 'MAUT AT lt. Auslage' as ProductCode, sum([netAmount]) as Netto ,sum([VATamount]) as Vatamount ,sum([totalAmount]) as Brutto FROM Kreditkarten INNER JOIN tblAsfinagMaut ON Kreditkarten.KartenNr = tblAsfinagMaut.cardnumber Where Kreditkarten.AdressenNr= '" & KD.KundenNr & "' and tblAsfinagMaut.VATamount = 0 group by Kreditkarten.AdressenNr" @@ -3081,18 +3073,12 @@ Public Class frmMDMDatenverarbetiung Call usrCntlFaktAbrechnung.przFixeTaxe(RG) ' Fixe Taxe errechnen Call usrCntlFaktAbrechnung.przPP(RG) ' Porto/Papiere errechnen - Call usrCntlFaktAbrechnung.przBS415(RG) ' Bankspesen errechnen - If RG.SAVE Then - - Return True - Else - Return False - End If + Return RG.SAVE Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return "" @@ -3144,7 +3130,7 @@ Public Class frmMDMDatenverarbetiung End If Next Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -3176,7 +3162,7 @@ Public Class frmMDMDatenverarbetiung Return True Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -3221,7 +3207,7 @@ Public Class frmMDMDatenverarbetiung End If Next Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return False End Function @@ -3335,7 +3321,7 @@ Public Class frmMDMDatenverarbetiung Next lblProzPruef.Text = CInt(cnt / MyDatagridview1.Rows.Count() * 100) & " %" '100 Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) pruefData_PLOSE = False End Try End Function @@ -3380,7 +3366,7 @@ Public Class frmMDMDatenverarbetiung cbxASFINAGAbgerechnet.Checked = True End If Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) pruefData_ASFINAG = False End Try End Function @@ -3505,7 +3491,7 @@ Public Class frmMDMDatenverarbetiung End If Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) pruefData_MSE = False End Try End Function @@ -3573,7 +3559,7 @@ Public Class frmMDMDatenverarbetiung Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) pruefData_PLOSE_old = False End Try End Function @@ -3582,7 +3568,7 @@ Public Class frmMDMDatenverarbetiung Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged If MyDatagridview1.SelectedRows.Count > 0 Then If MyDatagridview1.Columns("VERAGKdNr") IsNot Nothing Then - If MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value <> "" Then + If IsNumeric(MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value) AndAlso MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value > 0 Then btnKunde.Enabled = True Else btnKunde.Enabled = False @@ -3594,7 +3580,7 @@ Public Class frmMDMDatenverarbetiung Private Sub btnKunde_Click(sender As Object, e As EventArgs) Handles btnKunde.Click If MyDatagridview1.SelectedRows.Count > 0 Then If MyDatagridview1.Columns("VERAGKdNr") IsNot Nothing Then - If MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value <> "" Then + If IsNumeric(MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value) AndAlso MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value > 0 Then cProgramFunctions.openKundenblatt(MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value, Me.FindForm) End If End If @@ -3703,7 +3689,7 @@ Public Class frmMDMDatenverarbetiung MsgBox("Ergebnis: " & ergebnis) Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try End Sub diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 5a6e5ce4..a504ea41 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -1134,6 +1134,8 @@ Public Class cAvisoDAL sql = hSQL End If + If sql = "" Then Return Nothing 'weder ID noch hSQL + Dim daten As cAviso = Nothing Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb index 6d39563f..220dbce5 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb @@ -101,6 +101,10 @@ Public Class cKundenKontakte Property kkd_Adresse As Object = Nothing Property kkd_GebDatum As Object = Nothing Property kkd_Land As Object = Nothing + Property kkd_Passgueltigbis As Object = Nothing + Property kkd_Firmenname As Object = Nothing + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -136,6 +140,8 @@ Public Class cKundenKontakte list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_PLZ", kkd_PLZ)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_GebDatum", kkd_GebDatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Land", kkd_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Passgueltigbis", kkd_Passgueltigbis)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname)) Return list diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index 82116e63..fb938243 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -740,11 +740,13 @@ Public Class cRechnungsausgang 'l.BGebBgl = l.Preis If Not l.Steuerpflichtig Then - l.SteuerpflichtigerBetrag = l.Preis + 'l.SteuerpflichtigerBetrag = l.Preis 'alt + l.SteuerfreierBetrag = l.Preis 'neu l.Preis = l.Preis Else Dim steuersatz = SQL.DLookup("Steuertabelle.[Steuersatz %] ", "[Kunden] inner join Steuertabelle on Steuertabelle.Steuerschlüssel=kunden.Steuerschlüssel", "KundenNr='" & Me.RechnungsKundenNr & "'", "FMZOLL", "0") - l.SteuerfreierBetrag = l.Preis + (l.Preis * steuersatz) + 'l.SteuerfreierBetrag = l.Preis + (l.Preis * steuersatz) 'alt + l.SteuerpflichtigerBetrag = l.Preis + (l.Preis * steuersatz) 'neu l.Preis = l.Preis + (l.Preis * steuersatz) End If diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 9cea8186..b77e8fee 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1391,6 +1391,7 @@ Public Class cFormularManager 'End If VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() + For Each pdfPath In PDFFile Dim doc As New Spire.Pdf.PdfDocument(pdfPath) diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index 3bf1180c..d7ad3e90 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -291,7 +291,7 @@ Public Class frmMitarbeitersuche End Sub Private Sub pic_MouseHover(sender As Object, e As EventArgs) Handles pic.MouseHover - Dim point + Dim point As Point pic.PointToClient(point) End Sub @@ -337,7 +337,7 @@ Public Class frmMitarbeitersuche 'postgang ausstempen, dann beginn post, + 1h ende post Dim askPost As MsgBoxResult = MsgBox("Postgang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & Now.ToString(), vbYesNo) If askPost = vbYes Then - Dim info + Dim info As String = "" Dim timestp = Now Dim timeEntryExisting As Boolean = False @@ -388,7 +388,7 @@ Public Class frmMitarbeitersuche Dim aktengang As DateTime = Now().AddMinutes(-minutesBeforeStart) Dim askPost As MsgBoxResult = MsgBox("Aktengang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & aktengang.ToString(), vbYesNo) If askPost = vbYes Then - Dim info + Dim info As String = "" Dim timestp = aktengang Dim timeEntryExisting As Boolean = False @@ -428,7 +428,7 @@ Public Class frmMitarbeitersuche 'normales kommen/gehen Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo) If a = vbYes Then - Dim info + Dim info As String = "" timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, resultCode) MsgBox(info) Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb index 38cf8784..fddb46c6 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb @@ -127,7 +127,6 @@ Public Class cDatev_Interface fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15")) Dim month As String = IIf(automatischerExport, Now.AddDays(-1).Month.ToString("d2"), Now.Month.ToString("d2")) - fileKD.WriteLine(genStammdatenHeader(Geschaeftsjahr, month)) fileKD.WriteLine(genStammdatenBeginn()) @@ -387,8 +386,8 @@ Public Class cDatev_Interface headerString &= MandantenNr.ToString & ";" 'Mandantennummer headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn headerString &= KontenlängePersonKto.ToString & ";" - headerString &= Geschäftsjahr.ToString & aktuellesMonat & "01" & ";" 'DatumVon - headerString &= Geschäftsjahr.ToString & aktuellesMonat & day.GetLastyDayYInxMonth(Now.DayOfWeek, CInt(aktuellesMonat), Geschäftsjahr, True).Day & ";" 'DatumBis + headerString &= Geschäftsjahr.ToString & aktuellesMonat.PadLeft(2, "0") & "01" & ";" 'DatumVon + headerString &= Geschäftsjahr.ToString & aktuellesMonat.PadLeft(2, "0") & day.GetLastyDayYInxMonth(Now.DayOfWeek, CInt(aktuellesMonat), Geschäftsjahr, True).Day & ";" 'DatumBis headerString &= "IMPORT AUS AVISO;" 'Bezeichnung headerString &= Chr(34) & Chr(34) & ";" headerString &= emptyFormatedValueWithoutCommas(12) @@ -407,8 +406,8 @@ Public Class cDatev_Interface headerString &= MandantenNr.ToString & ";" headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn headerString &= KontenlängeSachKto.ToString & ";" - headerString &= Geschäftsjahr.ToString & aktuellesMonat & "01" & ";" 'DatumVon - headerString &= Geschäftsjahr.ToString & aktuellesMonat & day.GetLastyDayYInxMonth(Now.DayOfWeek, CInt(aktuellesMonat), Geschäftsjahr, True).Day & ";" 'DatumBis + headerString &= Geschäftsjahr.ToString & aktuellesMonat.PadLeft(2, "0") & "01" & ";" 'DatumVon + headerString &= Geschäftsjahr.ToString & aktuellesMonat.PadLeft(2, "0") & day.GetLastyDayYInxMonth(Now.DayOfWeek, CInt(aktuellesMonat), Geschäftsjahr, True).Day & ";" 'DatumBis headerString &= "IMPORT AUS AVISO;" 'Bezeichnung headerString &= Chr(34) & Chr(34) & ";" headerString &= emptyFormatedValueWithoutCommas(12) diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 2bb5cc87..247ee832 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -132,13 +132,13 @@ False F:\PROGRAMMIERUNG\dll\NetSpell.SpellChecker.DLL - + False - ..\..\..\dll\Spire.PDF\2024\Viewer Hotfix\Spire.Pdf.dll + bin\Debug\Spire.Pdf.dll - + False - ..\..\..\dll\Spire.PDF\2024\Viewer Hotfix\Spire.PdfViewer.Forms.dll + bin\Debug\Spire.PdfViewer.Forms.dll @@ -818,7 +818,7 @@ OpenApiCodeGenerator - Always + PreserveNewest diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index 2457acaf..361cf5c2 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -133,16 +133,25 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( End Function Public Shared Sub spireLoadLicense() - ''Nicht notwendig --> license.elic hat beide drinnen. - 'Spire.License.LicenseProvider.SetLicenseKey("MkctkXG06cMhlK6LAQCVDXFpzaLd8k9flTIXzX2vqnaj15/RjBiXqzJFPI5Ay0WJO+ng6Fwgb1s0Owoicm6acvP5dL8R/rHMlEAIQmWgY231zrrzVcbfujmJLyeYq1bwdbZY8vAtegSo3uhg8MruQ0NwF8OwrmrRTQzW8VkBRePb6jhCAWqMyr4Ho/d06JN3ngF3ulN/aNkFIWTHBvPG+M0CWuhudGhNtyDcnWPHDHm1+qigpwwnh69s8A4romdnSDQpFa2/LG5KAzwVmcjKSfVZs6e497ydRBFpggoe8d4J0FnRW//ROJOraTklVBMcGNZm9plWQvA23wxAhaVQHPINx/ecdTb9NIAeQajYyghx/tA+XVQ5uessceZW4LWZ4cnq6nhsBS4Y6oZ76/pHw1cUSfOHFCVi++X+2JYatsUJcAn2QXM6qpul7MpKCdDtT+yE94umhllKK7oBA8TMVFntgRfSZU+fftgMB+Nrs91UqM52OQsM4f0Q/dQvLGL/gr7NYE7QBQRV8ersUHls2s/7NHJ1VSoXKO9bghFaqzWoMGJ1UM/DvgdMg+URo6F9yanH4dEv8XDpTgx82f4pwncquCZJoPTdlXVhF4mK6/euo5Od3pmO9ZTqY+DxNwpgBIvkWTTvZiqkq4aDhNR5fhoihtAIWDiaHxMhlXxKTeK8z6n3puusWs0ZcXXaXb1jfUi7L9v8tWavr7Kag89coCXv7q5ejJ+mxTH9N6wIA029crL1+xyWSMOIaU6Iav8nrro5Xhdt14abW+458iqjVQRL1l6ZUkZjXaJHjoqy1aKg1OafFAGjULuOp8ozBJwQbRD0y5czx60NFjKlxR01SrfMrHV8uCjJXWm4BquAQPlHq6gfqSdXjmv/ZgKiKnXu+2FelPHK96IRK+y+pSv0hUx9JJ+9zL0JdAdwKmm2rRGk2KTKKfJ8jB+FdTpp61ecYsM2XB+GqZvLgJx6DUFklevpLG8XuKxcJFJGyAEhUzeUYhjUv60gSRKKAs8XlOmP35fBP2Gd2X6H1cUJFEdam62dDnE9ZBRyBlwA2n7iFav3s7+PzSuEACBG8R1nky52Ye9qE6zM8Plw0boPIoOueKYQIO+9wDLZyhHYjwc/6h3snP76tjsra7IS1c0Yx/P2lMx8C9LogL4c7Hyo7DH/bmn7Kx1C3eYH7IMY2uXoRfJ2tEtJ8MxvD1Xm4ZU1rL/BWpiwTi2rHNl/ikBteyZ7D4YlfoiEpB7P4UksR/SLYS1gpmeh3py7dQytQg8tfq7Ylyn+4umppvhi2ZBhJKElo7DdRegYofwM4XZW5eyWV0Qq7WoBs7YGwq0SHcuUEsgq9mW3j4a7g5/kuTkZSXxVXFKmYEHo+CLJvcbyeWrYeSfgdWd914iiNOzCo/mufmYsOxndMUCUEv9DeKS/zIu7OKM0OIE1O62kt7rBfRyJ5tLcoPKhCaU2y2sa4bsw59YAXq09Maj136qUjLiOfyROIvxlQ30zaydZnn/pqoseHtklySmgCnbO2uQ2vl5RHnv0AbOT7UgLFmQv4x3HL2M5ezEW+3POA1OuEW/TlAvMiaE=") - 'Spire.License.LicenseProvider.LoadLicense() - 'Spire.License.LicenseProvider.SetLicenseKey("DqgBAA7OVWqLrl0/vKFRQ3B4fULEZEi+uN7wMgS475TeA6kOemBFjzZEG9fkW/Bgn5JDj2f9fGF9/QZ3jnik3iDgvDkaWO3yrb0V+5OaXxviTkoSVmCxzBNhsfNre2Q9BkETcd3DCYew7psFTdQvVKTtugehhx5bhxitSH6q16Vvdma8/EvVg7dsYajEq+Bjxi5Ibe5Q3po5SnZBnvrbegroXy34zuauqFiKnuaIdSFlmqjuf59veZvss6mIqSZSW9IsyfyKRjLupvFZcsH5yKPOuzmoL00KQ2OqxToVvD45IEUEvjNqdWeUKLPx/JVgaV3RmsxqPWd9Bm6zb7h04OBOKNVRtSSmjX2KnBRXdQgXfSGF1uIDlvLNtpD5AOYxKPOIfJ/AFxi9m8pYKnzqSMbpaxxlOqy9Y03EXkrko3SOzhyg+k6ZyebbqMrzeOzJ7f5cl9TfttlADwnoLa42No35+xkYI3tF/kALsrWWGcVsUWK78cg2w2s79y4ERBbgZlbYqVpdsOyKBO7k1ujA83J2MUYfoSydNivNYM05Ll1UJzbMY0sxb6HGWwVHl3t7aVwioZbmonI90fmrZpfjrpkzlL0MvjY5LxL1JXcv5xJ/oXaLN/q1GxCuFvSDroV3uKRbGhonGmTroQpp7AMFoah8Bg+glLFL2ibSoJ16dlvmxwBuZM0uDMCMfJhsFRSEzUEHbX0gv8MTNC3ROmM81Rrm7klfKrsJD3FrBlf13q6yIpxo+qp0/AgkovpjsBv8y8dxEJs37C0PHcvkCr/kA0HDDTH+Rstx8EelQzOv5dcr6CgW1VWW3+dyPjHjADlRPXd+bo+gquT6NMezbQOUdm3wMNbpCQ/qwcZ5bzEXGmdhWcEs/Z+QmXRJvhBbEf3WQrlLSuzVIooL/nXo5MG8XooWPZHURz1g92vvqA2H6FU+DLJkiNp/OI5Xzp0NNqhOubcSX70noHx7SdgQrnAIGZtE90/MzLBPFZMIv1yjaDyoZsTA3nSatae4w7PvN6cXtacLZl5GnAJIRxlmjR+OvwbfXhAcbVeNYtRYXhExR9B4fxKp8/eXZorvzW7yFH8cSopnqSjmw6ywqx0u2upOuuNeGp5/kMP4QC+SMRruXWQM46Ed168OaU1GJ0PpHr+W2EWZLbqqNhrYct1FpOnVxJjA90DOKsbXFzbLGC83YgZdVo9AAIzMYu8RIhbn6ACJQlC+d9nn0S/wZPtX+PUZK1ACCCDdfm/0jwvUEb8Us2pWn6qA/ZHtkk4a/iII8F9hrDMVOQYJBJQ/IPnyJneHfqjtfB/Hw/1/KdHJYnyWg5KXaZWz+Ut4Vc48ZJCt3B6Izaf2wD68iYaDeemnJAFI3OcsjAzNx54kxs5VBJ4VtsFYPMN3SnovtfEVis3mLlKqzy0EdTOOIm0ZkgxCDHS3KogjOp2SI0kvAxxD1jE1IOKpgLkRo6mfjCzjS6RmZ/vBoBbx1OGqqxUlkD+2TyfQUGggoEX8XtYykiVoMuVUdikUQtHP12gq2aYzS9rKpaIINaEpcqU+vQlIumrlsL2MFIdvcdTEBhfoPtq4j9GZkOY=") - 'Spire.License.LicenseProvider.LoadLicense() - ' Exit Sub - Spire.PdfViewer.License.LicenseProvider.SetLicenseKey("PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apMQaEg2G7cDaQzVdmY9N6oMVZ+dDZ9Vet12GAvrD5akRHviXNhXis0W/WaaifHmbgfIO7zx35qNxRQ5mwouVh/byBw7sXBjtKwpJxulpVy0FNWSeSC4sskGn9+GO+inUrurRxX8EBEDBK0ev/558sYBQ4HloBvmWDX58ni7F0xv/1BdsvW2M+viIP4DATVUVoGh+lskcoBt2Z8g/Fxib/mBpQLmvg1fasZjscdfIyZBFJ57AtcNr9cT4oC2zn+ZodXXHYACD6+AFL3d0P1v/P3Bw5giOZpdeRmnlm9mD+OEXFWOgi+lfwF2S9IYcB+LrdckNiaRhserlEE6crn6HRquPQoqzo7J+nR63anp/HfJ3+n3RWVdSg+cJ13yPyMUhgQebsvcm+/bDCWaXc9+5THRJ6aAVoBE4hZ1eHdl1ukzuXiEJJ7GG2vk2MMcy9adKZyVATxSKuBeK1FYLF/62lZC0aoh4WV70Bth9MVWbLLKmZe3KttBYOtRpXvj1zk36RBubnLuSXp3aW7lJGwrHzMvaMGlYHmq1PUwgTLmL0d2p4FP9qSXHlAtRH8/O0AMsLHrLDe/4sNHkHqy+A8YM09t1adSnxOhoDyOb41zyvjsQ635gWYvOBimN0iEyVg3dEC7g5PZkAhIahBDz1qa4+GkluYvtmrafKZc/55KbYBZ23k+In8Qfabym0v7YWSpZ+/vwE2jNRupmL/6M0YnZUQolyFzBVqCdt40NYnnMD9o9I49XjB/8dWicpD2G60vIN4XvRc9/LG0elTqFiZkD9JLMGw+1fb0EwBb5XdGy68IHPoOFpXMcVFPHeBX45r7gZnaGAB11LhJiflSKnDd8unLrHUJJJvkPHyN5HWLrSAvcmJFS4JaHM7tHQorHF3xRYWHbGLWvGRtjfO43UlGhwklrH5rs4bop5R6m0eT/5eS/rbIoofUYQMEYexzGZwXAgNA6Sal7luN7Iqx7l4ykVrIwUAeLspfvsGT/aFDKBo77VQfPubHg/N7zd+wacmagI/7HznVCGkTApEcTrkade2cpsWGQa0sIrEDqt7s/1ZrwdqIQwgJ3rMnNGZ6ljV/FOT9OdVkkCKHkJrAwDlf2ssBbOvlHqxVz5x30mMkIQPZvSVFxSL2IKfx+FJ1VoQ==") - Spire.Pdf.License.LicenseProvider.SetLicenseKey("cEpc16XxAJrkAQDgjMzjDgDjuYoJMMP7BCUCCs6Z0SNyiAdLS2m1S5RaQhUNStB0GfzvEHaKikcHoHw2I22j0NgXiE3fhmOw0YHFw7FXbuGCUsX/DrJxVBLHGBVaWXzm/Gldmt9h3RVGQEh9V4IZN/+hOOcJXBL/TRvxGoZ3Zp4Ebhv12J/G83QlwqSjA4KqzNjlys4RVQNjIwCw1fIgSOh+GzLaGDm4Ii2+MfF0Ohr/+msHC44eKfUucyW4Vv/iW2muNqHstU5E8ezUNSXFZkS0wp4Hlbg/iorS1uuXNNdfECZL4BOV/qftRxrImsi3E3fdZ7FJw8JjvkoWWt1s4yPUtc1MS+0iXg2+64DiYwhLRTnV/8QUvOMEoQGMkDoOzMV1cabhSEJd6Z1iSFMdOZOdZR2E9nlDIJOoYPUR7HE9FclSxd6ICuBGM+Yb2YJpH9HgEkg0/3MC9kgJ9n6+XrW09oY3BvYRb9fYwdBWZ/3lqvGV9cHgQPP9EH6ApIZ8qoWH5nRQoeRwtiIrmOxRNVEN94TXuiQBuIvZMRu/uJs2ylAlIlbtMGUEK6VFys8OmY2G9fZsiKqUUQd3AyN2eOE/DJKSftJAoCqfaVqEJgbVy1zA0vjyIBsa42HCes8RJQrSdUWQyIsGWUf99mDvfSTxI+jsKGOAXgHmrK8kJ8orUL8L8P8NlyZp4RlRkCzkgP4yju0oeg32tss8iuwqXt44Gr1fk1ti5s1KXsZ1ZaGYAgucY5wEP4bmlPuQimfRIBvbNasSj/vk82RurAo77WDhmB63o9svfnVPExDpx1QxIYKezZGNA2A3J5gksZdhknWbSmcQy/HTP9bZdAfSEQCnXkdRIwnvdEts1rb5uWm4noCSVA3q7EMterUmfrKFpfzlCq96Lfor89p/nb0Cgl1xY0JDn+3k+na1rmGawro0Gz5jcPdVp+C3Z6afh03HBzbs/DSa3l+IMGLKEWP5f5wjy3ozgpP7GLuFHPtbOCy7/v7v/1mxZbUkT7CXPKVs1OEgYjH738igSjiziFJpVnDa/RmvV4WUmFLKcdNntuvpwu7hQFTDMrAU6G0K9weDH81xzJmAEZaVgW6aCu43wlPPKgvDjum5FcP/KHYG1s0CvF4ZVVON8fa0Jlmlg9zCPJ9POrmFa8Ap55BIQAgsXlyPXBXowQ3isZd3dK9R6ooq/6ODB3dnzn/QyVKljwyIxCZdJpMKza7k/hvpO3rlZne118AUE3Ry5QE7U7gDGFcn700R4vD3enxtausV+XiABDKHDBIAgLbT4ZyzXCHHxlgV2pvqL7GYwihN8FXc9UFRxqvMx8RA9gahKPIY6WOQ1q5NEyFTRPMYQRBHDTa9KSLBbfnbjmNaURfI0UeXV4/pPzEa+8in7rVJFltPk3z9XTqJK1hgd+1KfqXjmKKvh7tbM1KXx8yFI9JGTdL3vSqJGw2Qog/lLKez3ZshZVQbYJ54l4G+I6mQCOGUcKdvvOVWwggsxCAV78RuWKm7liUwnncpeSF2iq3AOMnVsTn6Bi7l4OYgZavoSEFTKuVRl+hSqC/Y9/x/ngTeAyudwAg=") - ' Spire.Pdf.License.LicenseProvider.LoadLicense() - Spire.PdfViewer.License.LicenseProvider.LoadLicense() + Try + + + ''Nicht notwendig --> license.elic hat beide drinnen. + 'Spire.License.LicenseProvider.SetLicenseKey("MkctkXG06cMhlK6LAQCVDXFpzaLd8k9flTIXzX2vqnaj15/RjBiXqzJFPI5Ay0WJO+ng6Fwgb1s0Owoicm6acvP5dL8R/rHMlEAIQmWgY231zrrzVcbfujmJLyeYq1bwdbZY8vAtegSo3uhg8MruQ0NwF8OwrmrRTQzW8VkBRePb6jhCAWqMyr4Ho/d06JN3ngF3ulN/aNkFIWTHBvPG+M0CWuhudGhNtyDcnWPHDHm1+qigpwwnh69s8A4romdnSDQpFa2/LG5KAzwVmcjKSfVZs6e497ydRBFpggoe8d4J0FnRW//ROJOraTklVBMcGNZm9plWQvA23wxAhaVQHPINx/ecdTb9NIAeQajYyghx/tA+XVQ5uessceZW4LWZ4cnq6nhsBS4Y6oZ76/pHw1cUSfOHFCVi++X+2JYatsUJcAn2QXM6qpul7MpKCdDtT+yE94umhllKK7oBA8TMVFntgRfSZU+fftgMB+Nrs91UqM52OQsM4f0Q/dQvLGL/gr7NYE7QBQRV8ersUHls2s/7NHJ1VSoXKO9bghFaqzWoMGJ1UM/DvgdMg+URo6F9yanH4dEv8XDpTgx82f4pwncquCZJoPTdlXVhF4mK6/euo5Od3pmO9ZTqY+DxNwpgBIvkWTTvZiqkq4aDhNR5fhoihtAIWDiaHxMhlXxKTeK8z6n3puusWs0ZcXXaXb1jfUi7L9v8tWavr7Kag89coCXv7q5ejJ+mxTH9N6wIA029crL1+xyWSMOIaU6Iav8nrro5Xhdt14abW+458iqjVQRL1l6ZUkZjXaJHjoqy1aKg1OafFAGjULuOp8ozBJwQbRD0y5czx60NFjKlxR01SrfMrHV8uCjJXWm4BquAQPlHq6gfqSdXjmv/ZgKiKnXu+2FelPHK96IRK+y+pSv0hUx9JJ+9zL0JdAdwKmm2rRGk2KTKKfJ8jB+FdTpp61ecYsM2XB+GqZvLgJx6DUFklevpLG8XuKxcJFJGyAEhUzeUYhjUv60gSRKKAs8XlOmP35fBP2Gd2X6H1cUJFEdam62dDnE9ZBRyBlwA2n7iFav3s7+PzSuEACBG8R1nky52Ye9qE6zM8Plw0boPIoOueKYQIO+9wDLZyhHYjwc/6h3snP76tjsra7IS1c0Yx/P2lMx8C9LogL4c7Hyo7DH/bmn7Kx1C3eYH7IMY2uXoRfJ2tEtJ8MxvD1Xm4ZU1rL/BWpiwTi2rHNl/ikBteyZ7D4YlfoiEpB7P4UksR/SLYS1gpmeh3py7dQytQg8tfq7Ylyn+4umppvhi2ZBhJKElo7DdRegYofwM4XZW5eyWV0Qq7WoBs7YGwq0SHcuUEsgq9mW3j4a7g5/kuTkZSXxVXFKmYEHo+CLJvcbyeWrYeSfgdWd914iiNOzCo/mufmYsOxndMUCUEv9DeKS/zIu7OKM0OIE1O62kt7rBfRyJ5tLcoPKhCaU2y2sa4bsw59YAXq09Maj136qUjLiOfyROIvxlQ30zaydZnn/pqoseHtklySmgCnbO2uQ2vl5RHnv0AbOT7UgLFmQv4x3HL2M5ezEW+3POA1OuEW/TlAvMiaE=") + 'Spire.License.LicenseProvider.LoadLicense() + 'Spire.License.LicenseProvider.SetLicenseKey("DqgBAA7OVWqLrl0/vKFRQ3B4fULEZEi+uN7wMgS475TeA6kOemBFjzZEG9fkW/Bgn5JDj2f9fGF9/QZ3jnik3iDgvDkaWO3yrb0V+5OaXxviTkoSVmCxzBNhsfNre2Q9BkETcd3DCYew7psFTdQvVKTtugehhx5bhxitSH6q16Vvdma8/EvVg7dsYajEq+Bjxi5Ibe5Q3po5SnZBnvrbegroXy34zuauqFiKnuaIdSFlmqjuf59veZvss6mIqSZSW9IsyfyKRjLupvFZcsH5yKPOuzmoL00KQ2OqxToVvD45IEUEvjNqdWeUKLPx/JVgaV3RmsxqPWd9Bm6zb7h04OBOKNVRtSSmjX2KnBRXdQgXfSGF1uIDlvLNtpD5AOYxKPOIfJ/AFxi9m8pYKnzqSMbpaxxlOqy9Y03EXkrko3SOzhyg+k6ZyebbqMrzeOzJ7f5cl9TfttlADwnoLa42No35+xkYI3tF/kALsrWWGcVsUWK78cg2w2s79y4ERBbgZlbYqVpdsOyKBO7k1ujA83J2MUYfoSydNivNYM05Ll1UJzbMY0sxb6HGWwVHl3t7aVwioZbmonI90fmrZpfjrpkzlL0MvjY5LxL1JXcv5xJ/oXaLN/q1GxCuFvSDroV3uKRbGhonGmTroQpp7AMFoah8Bg+glLFL2ibSoJ16dlvmxwBuZM0uDMCMfJhsFRSEzUEHbX0gv8MTNC3ROmM81Rrm7klfKrsJD3FrBlf13q6yIpxo+qp0/AgkovpjsBv8y8dxEJs37C0PHcvkCr/kA0HDDTH+Rstx8EelQzOv5dcr6CgW1VWW3+dyPjHjADlRPXd+bo+gquT6NMezbQOUdm3wMNbpCQ/qwcZ5bzEXGmdhWcEs/Z+QmXRJvhBbEf3WQrlLSuzVIooL/nXo5MG8XooWPZHURz1g92vvqA2H6FU+DLJkiNp/OI5Xzp0NNqhOubcSX70noHx7SdgQrnAIGZtE90/MzLBPFZMIv1yjaDyoZsTA3nSatae4w7PvN6cXtacLZl5GnAJIRxlmjR+OvwbfXhAcbVeNYtRYXhExR9B4fxKp8/eXZorvzW7yFH8cSopnqSjmw6ywqx0u2upOuuNeGp5/kMP4QC+SMRruXWQM46Ed168OaU1GJ0PpHr+W2EWZLbqqNhrYct1FpOnVxJjA90DOKsbXFzbLGC83YgZdVo9AAIzMYu8RIhbn6ACJQlC+d9nn0S/wZPtX+PUZK1ACCCDdfm/0jwvUEb8Us2pWn6qA/ZHtkk4a/iII8F9hrDMVOQYJBJQ/IPnyJneHfqjtfB/Hw/1/KdHJYnyWg5KXaZWz+Ut4Vc48ZJCt3B6Izaf2wD68iYaDeemnJAFI3OcsjAzNx54kxs5VBJ4VtsFYPMN3SnovtfEVis3mLlKqzy0EdTOOIm0ZkgxCDHS3KogjOp2SI0kvAxxD1jE1IOKpgLkRo6mfjCzjS6RmZ/vBoBbx1OGqqxUlkD+2TyfQUGggoEX8XtYykiVoMuVUdikUQtHP12gq2aYzS9rKpaIINaEpcqU+vQlIumrlsL2MFIdvcdTEBhfoPtq4j9GZkOY=") + 'Spire.License.LicenseProvider.LoadLicense() + ' Exit Sub + + 'wegen Problemen die extra Aktivierung pro Lizenzkey wieder eingebaut. + Spire.PdfViewer.License.LicenseProvider.SetLicenseKey("PeQezZrFLTMrIgEAK1BoHk0gh6gdmwDKMvN6ITlC5j6D/r6sSq/TXAl5H/H/P/NvV74UnH1KUt0Cy0ef1LzPpvmqxVTsiTYA2eB3CX21oTggkxa3qP/UOJ42Kk8rwgVqchV9RJj9SlZb/zzhfN3nB4NR9rfoiwRDoE45ECcmsCO948+auxqRrc1ikuFDIM2j2YpwzoFxw3QCtLNAjhWhA8Ly7HUCNbtibu6rOnuePVThtmVNfQeTuagFSCDovxIJzlvFggZaQXI7zh3PEChu65zP7VZoJyxzfagJv5JItQCrX8BP+5YgKe6B7NBzUFGl1RqcucKn+MAQypgXrRXQY4UAWfQ4g9QTN2JTpaHZfgg22sGGV+cccDJmekfUPGfBOzlnzedJelMNWDVNBw7prh8vTdNRsOTJoFYDbh82UwRNkXethAElaJ9apMQaEg2G7cDaQzVdmY9N6oMVZ+dDZ9Vet12GAvrD5akRHviXNhXis0W/WaaifHmbgfIO7zx35qNxRQ5mwouVh/byBw7sXBjtKwpJxulpVy0FNWSeSC4sskGn9+GO+inUrurRxX8EBEDBK0ev/558sYBQ4HloBvmWDX58ni7F0xv/1BdsvW2M+viIP4DATVUVoGh+lskcoBt2Z8g/Fxib/mBpQLmvg1fasZjscdfIyZBFJ57AtcNr9cT4oC2zn+ZodXXHYACD6+AFL3d0P1v/P3Bw5giOZpdeRmnlm9mD+OEXFWOgi+lfwF2S9IYcB+LrdckNiaRhserlEE6crn6HRquPQoqzo7J+nR63anp/HfJ3+n3RWVdSg+cJ13yPyMUhgQebsvcm+/bDCWaXc9+5THRJ6aAVoBE4hZ1eHdl1ukzuXiEJJ7GG2vk2MMcy9adKZyVATxSKuBeK1FYLF/62lZC0aoh4WV70Bth9MVWbLLKmZe3KttBYOtRpXvj1zk36RBubnLuSXp3aW7lJGwrHzMvaMGlYHmq1PUwgTLmL0d2p4FP9qSXHlAtRH8/O0AMsLHrLDe/4sNHkHqy+A8YM09t1adSnxOhoDyOb41zyvjsQ635gWYvOBimN0iEyVg3dEC7g5PZkAhIahBDz1qa4+GkluYvtmrafKZc/55KbYBZ23k+In8Qfabym0v7YWSpZ+/vwE2jNRupmL/6M0YnZUQolyFzBVqCdt40NYnnMD9o9I49XjB/8dWicpD2G60vIN4XvRc9/LG0elTqFiZkD9JLMGw+1fb0EwBb5XdGy68IHPoOFpXMcVFPHeBX45r7gZnaGAB11LhJiflSKnDd8unLrHUJJJvkPHyN5HWLrSAvcmJFS4JaHM7tHQorHF3xRYWHbGLWvGRtjfO43UlGhwklrH5rs4bop5R6m0eT/5eS/rbIoofUYQMEYexzGZwXAgNA6Sal7luN7Iqx7l4ykVrIwUAeLspfvsGT/aFDKBo77VQfPubHg/N7zd+wacmagI/7HznVCGkTApEcTrkade2cpsWGQa0sIrEDqt7s/1ZrwdqIQwgJ3rMnNGZ6ljV/FOT9OdVkkCKHkJrAwDlf2ssBbOvlHqxVz5x30mMkIQPZvSVFxSL2IKfx+FJ1VoQ==") + Spire.PdfViewer.License.LicenseProvider.LoadLicense() + Spire.Pdf.License.LicenseProvider.SetLicenseKey("cEpc16XxAJrkAQDgjMzjDgDjuYoJMMP7BCUCCs6Z0SNyiAdLS2m1S5RaQhUNStB0GfzvEHaKikcHoHw2I22j0NgXiE3fhmOw0YHFw7FXbuGCUsX/DrJxVBLHGBVaWXzm/Gldmt9h3RVGQEh9V4IZN/+hOOcJXBL/TRvxGoZ3Zp4Ebhv12J/G83QlwqSjA4KqzNjlys4RVQNjIwCw1fIgSOh+GzLaGDm4Ii2+MfF0Ohr/+msHC44eKfUucyW4Vv/iW2muNqHstU5E8ezUNSXFZkS0wp4Hlbg/iorS1uuXNNdfECZL4BOV/qftRxrImsi3E3fdZ7FJw8JjvkoWWt1s4yPUtc1MS+0iXg2+64DiYwhLRTnV/8QUvOMEoQGMkDoOzMV1cabhSEJd6Z1iSFMdOZOdZR2E9nlDIJOoYPUR7HE9FclSxd6ICuBGM+Yb2YJpH9HgEkg0/3MC9kgJ9n6+XrW09oY3BvYRb9fYwdBWZ/3lqvGV9cHgQPP9EH6ApIZ8qoWH5nRQoeRwtiIrmOxRNVEN94TXuiQBuIvZMRu/uJs2ylAlIlbtMGUEK6VFys8OmY2G9fZsiKqUUQd3AyN2eOE/DJKSftJAoCqfaVqEJgbVy1zA0vjyIBsa42HCes8RJQrSdUWQyIsGWUf99mDvfSTxI+jsKGOAXgHmrK8kJ8orUL8L8P8NlyZp4RlRkCzkgP4yju0oeg32tss8iuwqXt44Gr1fk1ti5s1KXsZ1ZaGYAgucY5wEP4bmlPuQimfRIBvbNasSj/vk82RurAo77WDhmB63o9svfnVPExDpx1QxIYKezZGNA2A3J5gksZdhknWbSmcQy/HTP9bZdAfSEQCnXkdRIwnvdEts1rb5uWm4noCSVA3q7EMterUmfrKFpfzlCq96Lfor89p/nb0Cgl1xY0JDn+3k+na1rmGawro0Gz5jcPdVp+C3Z6afh03HBzbs/DSa3l+IMGLKEWP5f5wjy3ozgpP7GLuFHPtbOCy7/v7v/1mxZbUkT7CXPKVs1OEgYjH738igSjiziFJpVnDa/RmvV4WUmFLKcdNntuvpwu7hQFTDMrAU6G0K9weDH81xzJmAEZaVgW6aCu43wlPPKgvDjum5FcP/KHYG1s0CvF4ZVVON8fa0Jlmlg9zCPJ9POrmFa8Ap55BIQAgsXlyPXBXowQ3isZd3dK9R6ooq/6ODB3dnzn/QyVKljwyIxCZdJpMKza7k/hvpO3rlZne118AUE3Ry5QE7U7gDGFcn700R4vD3enxtausV+XiABDKHDBIAgLbT4ZyzXCHHxlgV2pvqL7GYwihN8FXc9UFRxqvMx8RA9gahKPIY6WOQ1q5NEyFTRPMYQRBHDTa9KSLBbfnbjmNaURfI0UeXV4/pPzEa+8in7rVJFltPk3z9XTqJK1hgd+1KfqXjmKKvh7tbM1KXx8yFI9JGTdL3vSqJGw2Qog/lLKez3ZshZVQbYJ54l4G+I6mQCOGUcKdvvOVWwggsxCAV78RuWKm7liUwnncpeSF2iq3AOMnVsTn6Bi7l4OYgZavoSEFTKuVRl+hSqC/Y9/x/ngTeAyudwAg=") + Spire.Pdf.License.LicenseProvider.LoadLicense() + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try End Sub Public Shared Function genCSVFromDT(dt As DataTable, Optional openCSV As Boolean = False, Optional showColumnName As Boolean = True, Optional optFileName As String = "") As String