From cf4bb7562e3f366e5e23843ad6a761a5b1fb5a80 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 22 Feb 2023 07:57:46 +0100 Subject: [PATCH] +SDL-Leistung_MED PASS; Anpassung Fakturierung --- SDL/Fakturierung/cFakturierung.vb | 24 +- SDL/Fakturierung/frmAbrechnungsMaske.vb | 4 + SDL/Fakturierung/frmFaktEmail.vb | 8 +- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 2 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/My Project/Resources.Designer.vb | 10 + SDL/My Project/Resources.resx | 3 + .../ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx | Bin 0 -> 65121 bytes SDL/Resources/plose_medpass.png | Bin 0 -> 3986 bytes SDL/SDL.vbproj | 13 + SDL/kunden/Vorauskasse/frmVorauskasse.vb | 6 +- SDL/kunden/frmKundenblatt.Designer.vb | 949 ++++++++++-------- SDL/kunden/frmKundenblatt.vb | 6 +- ...CntlSDLLeistungenPLOSE_MEDPASS.Designer.vb | 650 ++++++++++++ .../usrCntlSDLLeistungenPLOSE_MEDPASS.resx | 120 +++ .../usrCntlSDLLeistungenPLOSE_MEDPASS.vb | 209 ++++ SDL/mdm/frmMDMDatenverarbetiung.vb | 14 +- SDL/mdm/frmNewData.Designer.vb | 25 +- SDL/mdm/frmNewData.resx | 71 ++ SDL/mdm/frmNewData.vb | 3 +- SDL/mdm/usrCntlKartenDaten.Designer.vb | 36 +- SDL/mdm/usrCntlKartenDaten.vb | 52 +- .../Classes/cAvisoBenachrichtigungen.vb | 1 + .../Classes/cRechnungsnummern.vb | 35 +- VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb | 2 + VERAG_PROG_ALLGEMEIN/Classes/cSession.vb | 4 +- .../Messenger/frmMessenger.Designer.vb | 544 +++++----- 27 files changed, 2055 insertions(+), 740 deletions(-) create mode 100644 SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx create mode 100644 SDL/Resources/plose_medpass.png create mode 100644 SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb create mode 100644 SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.resx create mode 100644 SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.vb diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 92096d24..c7acb5f3 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -659,7 +659,7 @@ Public Class cFakturierung Dim SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RG_TMP.FilialenNr, RG_TMP.AbfertigungsNr, RG_TMP.SpeditionsbuchUnterNr) If SPEDBUCH_TMP Is Nothing Then Return False - Dim f As New frmFaktEmail(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), SPEDBUCH_TMP, Nothing) + Dim f As New frmFaktEmail(RG_TMP, SPEDBUCH_TMP, Nothing) f.Show() Return True ' Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb) @@ -1648,17 +1648,19 @@ Public Class cFakturierung Return False End If - Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) - ' Nächste Rechnungsnummer speichern. - RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! - ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) - RG_NR.CHECK_RGNR() - RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr + RECHNUNG.[RechnungsNr] = getNewRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) + + 'Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) + '' Nächste Rechnungsnummer speichern. + 'RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! + '' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) + 'RG_NR.CHECK_RGNR() + 'RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr 'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr If RECHNUNG.SAVE Then Else - RG_NR.DECREASE_RGNR() ' Bei Fehler --> LfdRgNr um eins mindern. + VERAG_PROG_ALLGEMEIN.cRechnungsnummern.DECREASE_RGNR_NEW(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) ' Bei Fehler --> LfdRgNr um eins mindern. Return False End If @@ -1899,7 +1901,7 @@ Public Class cFakturierung Else sqlStr &= " ORDER BY Rechnungsausgang.Firma_ID, Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID " End If - MsgBox(sqlStr) + ' MsgBox(sqlStr) Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL") Return dt End Function @@ -2032,12 +2034,12 @@ Public Class cFakturierung Shared Function getNewRgNr(Firma_ID, Buchungsjahr) Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(Firma_ID, Buchungsjahr) + getNewRgNr = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet ' Nächste Rechnungsnummer speichern. RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) - RG_NR.CHECK_RGNR() - getNewRgNr = RG_NR.LfdRechnungsNr + getNewRgNr = VERAG_PROG_ALLGEMEIN.cRechnungsnummern.CHECK_RGNR_NEW(getNewRgNr, Firma_ID, Buchungsjahr) End Function diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 4849b1b1..7c78eaaa 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -262,8 +262,12 @@ Public Class frmAbrechnungsMaske Case Else : orderBy = " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]" End Select + 'MsgBox("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy) + 'Exit Sub + Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy, "FMZOLL") + If dt IsNot Nothing Then If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then Dim RechnungsDatum As Date = Now diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 554ac0e6..33ff9057 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -25,6 +25,7 @@ Public Class frmFaktEmail Dim xlsTransFerry As Boolean Dim RechnungsNr As Integer Dim FakturierungsGruppe As String + Dim Abfertigungsart As String Dim DruckDatumZeit As DateTime Dim AvisoIds As List(Of Integer) @@ -44,13 +45,13 @@ Public Class frmFaktEmail End Sub - Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False, Optional xlsTransFerry As Boolean = False, Optional FakturierungsGruppe As String = "") + Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False, Optional xlsTransFerry As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "") '(Firma_ID As Integer, SammelrechungArt As Integer, KdNr As Integer, DatumBis As Date, SB As String, EinzelAnlagen As Boolean, Sammelbericht As Boolean) 'Sammelrechnung ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() - Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, KdNr, SB, AvisoIds) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") + Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, KdNr, SB, AvisoIds, FakturierungsGruppe, Abfertigungsart) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") Me.Firma_ID = Firma_ID Me.SammelrechungArt = SammelrechungArt Me.DatumBis = DatumBis @@ -63,6 +64,7 @@ Public Class frmFaktEmail Me.Rechnungsdatum = Rechnungsdatum Me.RechnungsNr = lastAktuelle_RgNr Me.FakturierungsGruppe = FakturierungsGruppe + Me.Abfertigungsart = Abfertigungsart Me.AvisoIds = AvisoIds SR = True End Sub @@ -260,7 +262,7 @@ Public Class frmFaktEmail '----------------------------------------------------------------- Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) If RechnungsNr <= 0 Then - cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe) + cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe, Abfertigungsart) RechnungsNr = lastAktuelle_RgNr Else Dim path = "" diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 51c8f7ee..0a1e1d95 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -216,7 +216,7 @@ Public Class frmFaktSammelRgDrucken If Not IsNumeric(getSelectionKdNr_Simple) Then MsgBox("Es muss eine eindeutige KundenNr ausgewählt werden!") : Exit Sub - Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value) + Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value) f.ShowDialog(Me) initDGV() 'Else diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index c52b47ce..9caa35bf 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/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index d759e767..03543544 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -1513,6 +1513,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property plose_medpass() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("plose_medpass", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 22f9c7f9..2e4daf69 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -853,4 +853,7 @@ ..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_medpass.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx b/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx new file mode 100644 index 0000000000000000000000000000000000000000..2d09647aad73646555d75c40b18c7109539ef7e1 GIT binary patch literal 65121 zcmeFZbBrxfm;c?iZQHhO+qP}n?!Il?wr%%q+qQ0ZzxR12li%RUB=6rdb&@*gWbf>x zD&K`&pS4Os8W;ox01N;E004jxKxQi%cM1>yz!(Yu02u%RNL$$6&c)QuMPJ3!!PHro z&coJ*pb!LzA|C+g@BIHe{ukeY;WSzKLk5JfTk3m!B7McfK`DruOsBm=2#J7Z^|jn) zwC^Nd(2ra9t>y(NEhI%Ex>T&W&)&HhZBsII`&ATrgyff6Bl6=6)V*T$jT!2fCl6*W zb5WuF6owta5w(QhBTr{*M~7%G)2DEG0Gl?3#j? z)>_i$FPgL?^n|2bq*qfQ*c8AOvC;fq>sLL}Om5_m6@IJVMup3{ZZ4xd$!p6g_eb+cvM} zAnYv*z-XV!g@8hU-rxNkfd`GYn}46jAD>QP761I>H^A5HwEgJQXZR_11S6_AApyL)pq-LMDDMNL;v*w`c9@c&h&KuIRBsR|1UQ9|8VKmNds0x z3@`$>!C%1(J&GFx7)5gQ#`BvP>);UDk}}Afzpd83zj%KC2GTt@6rWmLN}l&}&K7gs zOVPchc6>VaH+*BjFQ?Dhai4ec&r^jLK`fXO;}G5eY%mZY2vj@Cqtn!^H1e2d7K z=|?`M5_vf;gSI51oLe>~X)4NfR9$<`@MF&Z#kjI+C86yNUdb!k8;09Ci|Get#@~?6 zOq&otxYMXRta6du&J=4!`Amal!$41(ooG}Ig>~1xaN$+dS2hwEN&{H{8A<=?W2S?o z^?e$3g2~TzOQ_kbzi*G7tt+Qr!8iXqqVzXp;s8JZy4yRM(Epo}nAjV; z+Wrlf|A>?SZZLp`DixrZraIDS5 zp627*E+9l9!799INAibh54W{Rm+zv@Gw5vl>Io4naw4GQ%|b?1vYm8#c6g$Pa+v}x zYXW5KJ0rfX-ppR1ssyvNgmaf= zhY4U(){Yhi>hYYwg3r8mS{DX&eN~+Ap9v2JP{QbV7{7^apvBVj09!!?pJ%k{`WO6g zX`T?Wgd~vPH;Pv9i&wKE4uPq#L1t=4NS@UG{EEgiB8JSIc;Cix1iKNs@E^K>MX-bc znD#YTXL_qx?&!7q>caGhhB#lKut4eE;ul1Fe zkFI=)O3fZEu>jC45-A%aMQ9)p&mYz7z62@Nfqk*77L9E_}_*n~XWt1ioh3U}mslSTsh>(25U8WcM$m zUTZX7bQ9NR!hPS>NTmZh+wToT@J zn~`1l_npHl&VhUl<+;M2(msLfzRhzGOfrhE0MgSe;aa|!g<;=@f>DWE6EyJ?8=0M5 zx;bZg9J+W;@Z1AZw*l-1`HlMv!!!IiM}T~TMG7Ef;n@os`cJcxfz1zI_um@Lz&S^< zVX@h4zZ5tp)@&!j)Yn3_-N+?0RkN>IED(F!Z;9zA?&pjG@aER^UQ@4u9+Km}7Mh z&ol??90b(I+|+4FXH$TZ#08=b#)9!!K;BQK#Ja#js^SnRQ6a(*W-XwiJkvsR?J$Fa zp3!a_2^QP};Qhc?}<|MRN<1AEJ#@rVe82$e1ix1!>9I0sBtbZ!{1hn7 zMX}{5DH(@&7Ykl>%OaK_OoMA6c8MU35VnXSOfZOlAQB{3IHhK=4}rBZjf*HUO#~4Q zfSKU2nj(%S0HXDjU@jO)3#Y14?-4uK>gOoar zqkL1d_Hj;(Z}Emd2cS!HgfD5O!xN%g?29efcYp8p1gU_C%-_#+JmEV`R3R>J1x?pizEnP!lDJ;x-lc;Oq0Vm6!iuFl5>$}tC zu%k5#s{G7CuwWZ1;h!~R+T96b3uXL3s*009Utijyhi!@7zOY-vi=!^YS}yZa>|V@$ z^i>IQ>ziBA$DFD&f#W_W*jO7+1Em-6A2Tq&6XD^yI|TLWkW)S%9{i;x#pf*9MNjx5 zq9>v!KR7RZ)<}KbBGMtNW-X3dJ`awz8i>3hTy>J5D2tBQ7V8-G!>6iv2JJ$gB$b6k zl^JDy-)0Zfdmj`WeOZU@y1zb5ACahxU`8;)2P)Lw%nXG>JkTjbFGLT8qK{cYY`)>l za1#jEHi+N+D`1R-YIzAPg90|YOMr3Q-Ls}Z&4wDjy_2u93SWolw6VrL$S-+4UupR z5en@@D14UtGTlBYB1b8+E>inh5c&rxZgN?_@xP$kQ8-J+DMcwnD1362h3f1?<<5z- zmD*?CrLz}j3&cK)`~lO6%KlD*2!#lpbC#mGMCL4scaYkrX8Xq?a}pca|78)ccY@4u z%AE6*!8Pu_Vaftqac?+se4e8M1Kwin8#iPQ=p5 zD;mlhuKVLRE!1Te$S4tXyPsAPjnb4KiBm|V~VJ1D1j+C4%wqe-oBlneJr9XP4MGi zEfTs34Aj$~aBqnFm_ss6%uMTAunvIc2QUM7ABV0t0^ekyF$|w5i0T4)j}M4dQA8ZHmS5g$ z-OKN>3o8b2Srs7!{1V5Kho&SH-CZ&fYAiIy}G~dhnAq#y4TC)Dqsrz{}k*jPz5WYk&s!iqDA% z+daTG8|(p}(;%KyF_%EUVgg{E1~`?D4SYW6ThzeGBJSv%WOg(W5b9cP8ptN()t@F` z>}wy1<5z$_r|uy9uNqksv6O(M_uP-q3%oZ7*TnU=*j@8XY`@=(!E~U02_!AF2 zQxIJ>mfhesi)#I}(OzJ2uS&;XTJ090UAs{2BJ#l02ef^1YIy+nZln2O*Z>M`ZrHb~ z!^XhH0dKqIyNfZ`fc~a{yb`4T#{Ju+^OG>((4f;v;U3}+?>4OiX5lu8p#CFZ;&AF( z(AYs)nF*jjt%jcPb+aT*6~RB?+d+K(ew9?F&PS3ZYE28052-e6uXR6-2LAGg#-4l> zFH$)ojRSDcB0q@s``N1F=H%BS#_ybc1{?1SHq*=FJUdn|m8($Fr84}y>FCKir24pI zrGCa*ax9u42=2f9gq$;erLTGxvdleO&w6%dg$dRB71oTD7HOB5?u?qH|3+R*kDe3H(&&&2sy0yo>8oVw zl(LW4+99$SRDIr9y=N#d8k)3m4Um|CVJen_hN;H4NUBSP!mresq&NVn&HmcOmSymM+HJymip@TWc}VtNkxhPKR+Q-8nTG@e2tJV%f{z0NAQ5 zMjJ2;S7?%LC!|~@1x~Nk_d^5u*-GS`ylY8jx?7DFf(K$%e}eFeA7w>}ehH0S$Cq-k z&oOr@=a!OQdp4e}G+W{Wl1%ijx`{X~*1d(udBEllGFI3rJbLy;(MK#R6k@7b22f>T z8r#uHx8CazuMf|-sh%kvhNR+^$EF%1Y7rdcNzZd0)+QoBGP;o#6UO@v-aLaXFiXmd+(U zpQ@>sHolY3G4NI=>F>a*u@R<>hXnC+0j=YmvdrdT>DCftoRh5RV?r3@u3d80Zg`O- zVTr?9INrI4ONvr`#%OL&(CFKtV9VfR#5`o=i_IX}#!R(zIpwmfZ&?vZ8ar>1le^aH zWSJoLuRHgsAVD;dmUctkZ^^}_F%?XmEFDpreum2VmZ+VJHj=bp~lYQYoR&HNGh4k$_a>I&|5& z3cM#-*wu}5LlTlNv#6Ufj5fS`N^6@?yDU-APOK=bUR_0G#Yc)q+PNb1 z%h_AHJ7u(bSka8Z_N+=BcR+0$EI*w==Amt7Ygx`j7^=^Z1(MA#WoIF8?r_}0q@~NW zr0bJ$#aqSs4o`hB14$^5UAu+JL(0f!ptb6}oSc`aOQXn0U9GxKIg`8F?$%Imm(fv{ ztv6n!cNz2TUN!k0Hj(eWu~BaForqTY7da15u2HZ@yk5OPdpr2 zWn9dS9RlUB1Hqd8DJYY z%?zmacBG`AM~YDP+PFv_35S^WEDW@ZwUUygFK$zW)+yyIh765}8Q`$^5Mo)jC>G~t z{@&}bk^Ybdu@)y&5J-nJxo!y!eP)5)I7F%N%KwXJSSy zO}n?QvqR7116UM31fo2lT+txNk{yO{R=`k9)d51!qpH@lm_jNIX|+mgN%RSzR zHG2Y}u8H;mkl$&VSeH8Keivp3K%80wA`}QJ?#~$yUW(~|!}x~0U~=T+{=6JSX0u>1 z16sRfkf^c-RI_rAmW@DPD7_OGF?!z1|w0-j%BGLR@kPT=Q_!Gk$2>wd6a%G@+uv-v%gx2{MP z$(-FPNk?>7u&TWIfox;>;? zLZCbqspJ;xb%LXNLuCit6Ipp*_p|X?KIVlmFg z4H}lM+VbC6pHBf|r-Wh%?B-fQx&u}7Qvr3F2D+8UMc>ej z6D?E7V2lzJ?w3gl5fZ$Nr@_UqiD2gf9jy$Qy?%H22KS)cUdOswcDFTwnG~0YzPg5E zwa@WO(ig?XVZXpPhhoiAYFKI}KPzw$5@Z0+IQEpXigyteAYJVgNWs}UZdL43Gt>yF zu>|X;-PLyWZW6RBCUh53-Z??|0mcaEj;m1p3Axl`6rDet(hILyI)APJ9uO;KO_!kB0{4;fB}BUPbC5=RbN5A` z1r^y6!^rB`i`yf+0LZM3nk}$FJlz*lB?SC|=9pL6ra!*0Bbp$m6@MJc?!&+4i(^iOfkhOwl!XaZy{v>&^>vOH{SynJk5V}>398dy zQ*A%XVa$(gs*N%jfAXzOCZIpr$LH>Kt@%uy=EdD4vep6-*2X``Gj*SO+Q>5UYMiWWOYT4_nO5wYcQ-k@_;776H)b_9UCTGyv;k_ z^`mR!aOlIFoO!dpld%xCG5J0^2&-acbN&L}w1IaBTSXwQGQJ=!R9sz$2M$!1t-)Ne z-g1caQcz;iHyBZmtSdU*R*}X}m-WzGfNv1_j@`M@yOBa%w%omCKJ0OkH=d^wG?rAo z%_!FT8vaBYdlVOblO1mT$91L@uG{H?WHrWymMH(DnraGpz2YG3xGNOXX#zMb}%YFb5?iM zhxddwNFq$%%9xa2*pa7RBgEP#0>Ri@^wO~+N*^ke>v3ilaafq0*13}S4X%4s6df+a z1Fmm5@l&6A_ro1L&_1Yxoo~m%)M$y9UF?L!z#_CgX1QqPqmMW1ch1ZQoG!6v)SI`YvErE9qv%KaCrU3c@5 z7S|u^K@YsLYij1bnlH&mF2s(()t$M=Ta`1P+AwAhv}5hChh@>HTT9KB<;CaOE8;GJPS{D#NsYZh8^d-qe$v5MI^(|{86rU9_Pis z@_fScZBP-*J2zPQszi25-4U zmQIyR4nKrfI_`ww6C?Q4Mf}$xU3fbRe!&01c&^m9?KT)t{8GnXwT&SV6oOOGsGf}= zQm+AHu0v$xY}Vnbd1i7=<=K7^Mn|K{-IlbvBz^pxdmnMN;fyc|o`k4MLs4ogVU8MwU@$zB*)LQ^E0J{$TD&X2dSbVUlwJBxX<=AR%RZ?Q0#ni? z)YT1tu@9H=GN&W0h+kq4WBOLDi$I3R)(9zy9;XFaq5uVFB&YSn^}Y(vKR6;1qJhav zU=?nt-!#7ptFC|uCI^lrK&6q6I)-cpu&I=bAYzTW8L7%*D-*+}l*bFsH}4JPddOmw z

UIsf14|L7+$$i)tE1@4WOFZih)N;Io50qQL2?_tp40R+QBm?a>&FmH|6}l%|L$kBlj+2!DZrp3kBdpx zGsAURoQ0gs9bh#DKVjQ-J45y0@7EqG_R@1prq(1(${Fiqf}nw*^+dSid zBes8@+>pt1YEV%pavdoQ8;2LRz$8tDu-4C63fhp1%O&Q*Y!cYFr;3jf40&Ib@7ZG-Pe|v^D?VI z^*7;t9;vph^h653XdEqa0(6bez)Z=|u?Ch58m-BXB7!&N#w!&vtWEk4uKcDm755&( zr|fqL2lr0~Mkugbv6v2uFwLJHvr7>nR5$2&sTozLqCjv7=m_rs(qmxhPSflr$oqhY zsKej38KTjS;_EG5rf#pQQ|wjJOABwl&FQtTRUhzgU~0;)YdL#2%#T_Kz~Vv06H{`Q z(mNm=L0C}vFhNUj%ksZd^X<5r1GR%7D?#kg*W*z__my$x^7f(@{xq9%Qik?ra#Hqg zF5O+k19?p3MxgMf_hF*L?9X7a*DW8OL!u|n;Qv+0f7ekXeP0I>JOBVI^?%b5(?4{y ztaTo@DdqN!PjD+hA&?-lbV8<7c+(7?LSdy}-a-n3;Xp};#Ez70dU2TQmZPzO0iVv?A$)snE

3`T?4Wn0uy0{_AM zKI{-;(8hbD2v2YXEkfbG5TicqDDnms`T(n2AR(n5frFj!r_ho6TVW$TqLtn7;a(A| zZus+1Zcln#9*Dqruo(a^tC-ArB3@Lyq&qmkaH}hexXWSk5XpOWjFo%%+XM(lULud` z`)vrOPZ1Al~}`d~|AZLWe{;ApXXj zJI2AD*TMq9PpBk6Tf~Y}z4OKdKjZf9wA^B)RQUjV#GgX{Ia<;mE+W~U0V0fp#6wyl zp1en@$nfqv%LDg{6S0mbY~*p&08haF%UNvQk0?begcs?F`*~pK^hxY5z2w3EZ-^k{K^gqq9b7tC*Z<* zfNwE1LWg-(zCtQOl18#hx|nz0&_a;{I>++ib{ENh6=e2N;-qOO+RCGhfrEw!dAdRC z(n@dr#AId%9R!$&QYcGlRp)hoO)+Lnh2=PrdD!-@EmEe)%^}E zb1Rr66a|2r_pmA6&_e9<@ck6}E6NGOzJ0Jd-K9_kopuSbilFC}gf|o*KH1^p(6z|l zqaP4ih6tP<{Aav!^g{sG;9h%Vx%!R7nH82|1mENLJn=4Wo36HL6mtw~d4^$BDzxQc zFVGrs6^{Bty67+jV{U{Fypu~n+ZGO}LVcRh46^xSIZ2bWYEe0umM^`7tJXY3YYB27 zQC&_Z5}A-x#ZzgBXUr0NSK%nJy$YAf&Cw(7E|`UiSL{|z8uKOQAu!0g z)WPmHQX^^#9>;6sp9_?B`6R4rks#j&YBb1*YDkk-iW}E1TeaKw zOuDBeYF2HeAGaDTovY2bLjZiaFBdfSw6u0msuvTwcq;;Y;`Ab7M0$Cl^P#j2?^426 zfsUC2Rk6@N1bLi$w%ASim_(;AC;eYMw4s%%ADBdt&mM;u4PS|a{cX7EFQ|u{M^n{L zFpbl_Z5ipgr}>vmQd7(NSH$t$K=1ALDB2M*N{yu#;YP@=E+8pv4NCOA?_d6ZZ?%zPK_jBeL1)DY=93ZhpYG6 z7b5A&@=YGD1NM3-Tl>TA>isN5#)X5@^s76%5czRT7Rgi}S4Piyu4q>t%)$@B+~^sO z$`FV2Fe8F*qG%C<`ul>SA~BU$N!OjD+{I+4F>YonzFIfbAnxkG>^CEhr79k-mt&A5vKjv$H|X3dS3j1-GO(y9&uFkEe7W_O;%2t=<_J#Jh1V14gyg z7mMvHNk7l}PWSAA8<)ShlA9Ea>8Uad(Zl$>sq>lzsF9cVUJ~y3vFkFT5vWIjtu*B|s zr_l49(M(@=bZWh2t+&#VofOw$3Hxnf#yAVYkTNAe^;dL-05;=esNZnZmdXF>V2pgV zrAs#~5bYF#;C313Uma)AP?CbdDi2uWHyvvCwI`r3mN|5Vv!0ci!$sV*H0pXPT) zYW}0gqj9n%!N@)I-AL!TXtbjCSk1@(5$jdd8{Pe`0WiIh6}VcQhSPS=w6pwL(bN_K z=}83uz5qNgE`Fi0Ez!LuaFH&-gdI&EOS(EP8eiPd00zaj3h~Nc53GI}yOhZ904-3% z&Wkhpz{nkK%v~XM?#9NB-)WV`{aK>Ct-Q^0CAzqJKY9_ik&A)MbhuH?`clxkC?Q(j zQ7pM(9L_f@4Y}q^mO1*z$^dgEhgh?e(<&hNY7&}OS6NWu(!%z0YsR{CJ_j3X=y`Nu zm9O)j2cG?eT-e8k8u%DE-qthNDPj|sK{dKv+*R-39k(BEDBcx^&bZfzqsX&1<~h zEe%m#NSxQOm0gUw)^G4*1AMb@20e+yt=v}xL5#b`CQW`)R~wxGS5h}JcJgS#op$k> zO{JN9&O1*{1932E;mzDiAJB5)HP06QW<&4!C)eKjTo+8e6q`Il)6;fnb4jyi>-6a` zax2G1;EA{68#f*g8WX!#(7oVVd{o+Q(n=hR-uzrJO-)v<5AAErSH}k2TBI!=-Nx0f zH~3ypNttaqTEB3(o?Xj?sn*#D;(O{r@m2JG%fzc%4G5{)IHWai%5JADI8o)bv|anG zKjJ0fa#!69>AJR7h~hSEjH`*4r~`1F>T2)O9wocpbV_mO!?sMxT?=+PlND?-s3DNe zg5<_C|1D%NVsTH=^j~T!`IWK}UP)!w=CyIUMY+WQnm;^)+R%n!wa>Y-_~MjHJuSz< z64pYHUFJLrTatXmsYqPso)G`Be+ySfOJrzY(WT&){Ulm1nS)$l9URT$%8{lFuk|Kdf@;TGtqVS=#rxOewn zAnQaT&2_Cj5B{T=Ws37peVy66&rYQ}rL)|5!^lHb2O?hVTetQzsI^Akt@hbfUv=qK zaDx`qi3-*;)6o}m5=v8AUzSym;l^J-1(;_;KLxzVtt_AmCdG03iE zrUGB2M!j$-4))kZaO*?+>~%jt65>2Jiwb0`50jkhe&OqKSQTkX0C?!Id*Y*)b+0K^ za_7&pCGLV=g;OpZ8nq8Aes!k-M|MCCSfHVk*M=nxr`V4U-s-kPjO<6nM#*!AWBNX}{ z%`BmaNJU+8Fq#^H;b~P%DnOlo@v(ul3k9O~^Fscj-dWbs3F16$HC9gmu4%bGnp~Hx zA6`!T!MkWbAsMvHY3E^qVVX;$|x5XXq{Ok42Od zD6d6z;@M6nr4?53T3REmMFJ4_fsM|I@N#iN?fq%*S-Z|hN+?I|a^9r#mX{}Fh<$`q zT48|y=JT)leNVaGxM{mis08}$a@gSc?hfT>MPDyZJxUk!as=bBx54t!h7s6RbqSEl z*=_<#s$23TuS2H~zwG-iy59=g@wwZr9cK>yIa49-4}Z#bj(gnv!-vOCbzHQRTz!~= z2!I$wPdi=B>D(fXeATrJ>&(?mGBP#vT)$O3`5JjdUB+s5PLqEMQ~i6-#v|zCr?&Ww zPRrKsj~_(opni%l!e~iH*DR@G$~L}BS48*0_Rc4nh0O_!l02{i5by1$2uOgE`*VK2 zVT_Nt$3S)$_nlv0X*`?oo)+(84{{4Ec*O2vd(7{e6#hs`2{brc_PNwyQ9CZm=Uh#_ z=mC&})p>o~wm2=ZZnQ>~b#$kydtuers{iVfKp2ZRY9D4-WNz3bggD^;3C3_g*^cAM zi60>?^&xs6dPWBH!NfzK_%1UmnIrA^dOu|2T=)^k0eu^#cTHYPB7Ns^njCi02GLnO zy(QUWf0^OuneChSk;udTBhRO7ItB0h zPflLa+uA*OwpPgYJ@H(Y4AZZA~^{gsqp{ANim8YYMtQVqukb#MVEM-eMtP z4cONTcJvgw2zk<-+hsq3;Q&BCP%wdZp9J3m1{Sc#@Y7BXs?dGJ>RM+nW&Q$Jy7~^- zjc-M3@juZ2YX9t9WMaYe_hDZO>3`TiTbLS}m^%G)|9qvjZgVoR?4r2j$t)u@-0LidKT1ZqGvutU$NBgL z4=);L7IGhx#yiwo4(C`_RH z;GieUON?3wC7UcxNy*Sh(HNm9hwO;BFjy>^Bs!d}jFuH=s%@phh=n-2Uk*rTo`KD( z^W=b`HGPK@LYi+bMrjtrL&JDgB zFT7Ep^T|SDj!nq{JFzWxksa2IDmUU5uoRVY$52q+4^(PngqGo(sYVM>TR%RknHwqI z-@E|}Gdn3y&Hz*aDzrZ;P7GouXq?pL7%b#Hnv!ZryQ?)WeNm8B*M|k^7V)iRB2i>1 zC{@71jyW-a)_i2CM$6RAfeMRP3Ojy9Nopp#bCsq35_sNN#{=6!nH~^6Uw5s4l=;3C z(drr?PBJWXfByBn{Us2z7|@{=U_;T(K!P1(BQqafqIS>02`6T^ z|8C6a*TtjNL$^hTp^FynLgQ({Hl4FS9sM40{YAO<49GVRlfANzpd>}%otu(U*cc~6 z5QY!}n1rW*Uyyo&4A&u2X9(1c@EP5~XRe{9@7VpvywS3>y9}LMO+S=a^a!Ek9Si#A z=B-*9$^)*lzWsn?*dd_$F5(QO^)T&}tvgLmpgIQ-F>Cyl7w6a%t5U07?NOs9zB%1f zLISngJ$UOOd}<+UUD6JtRI)Bk|B5$9^JZ1q%upxQKs}TrW=Q~&xlT7Qig0W#T2VTI zop-IO{B62&E~={B4TZY5YiM2~x(N3A{dMcE>qc(iC<*ANFr+%RGnOw=1Kxo+7i!ya zz)@03phND`JGO<0vrYvlrU2`ZHs#@KIB^?uIer2MvJ)ppYfqvvd~r^t!vHjIxia2y z8H+TkT8jAtmRCbQw-HJ$A;VEKMGME3XEI54#FW}vYZqOHt!u+Ct8CU~cfyS2w$pznN=@!$Y%_zAh+=ODe;U0_iHxOJP5{q@t*HyBB-=x(X)0W7_S920zm8Dk;h0E|%l7cKGlwYQ(_`1-va zohqJYFg&O#n1_Uhp?|=FuvO)=#8VUO#vXX2(-C&zXv(x7ZHuW# zM_>y;lYr}a5R}e5z^u+{X3#oxlq98d64R}rOZ60=NcX)UewLe3WwdgpsDR@3*Ug>e zA7-#%>r|0bBdwHCBl8+Hiqq4kzg9xMcJix(?b6O@6?}bb3RkHw>+xMC7TA+JHPO{8 zyG`A41J04dQFV@&8S7Wyj`G(H@-RwuY%TxP{N0~>h9@Xxf z$Df+Pn(3fQ@l7doP4GiE{eG=<8_#_st$R(5vNES1S7+k2p|7|c@A1R8m{Q%QL_c9x zk2T(;dCmJ)!Y{D(VqcCuC-nK)JvTZCV4aOA5qaDYItR;sNU`hMz3;gEv6#u{M zHtDa*bHw?}Ii~(2=lHky%J@HU4z;QsmF*Y6?l|GwBdFShn%0BpmL>U8b=fXq6r7=tUD z5aRir2uCzszwQD`W-~HOX+_H{?EejPnEofw@tQ=bFaF;^$I+c00{CChA@wgnhkxEb zL5I-)KhQz`7j#(u19YfYy_Oc;e_G7x-lnhM-@#UwUet0AY@45y5P-#jNG6}=ET(ls zIe@UD2w;Ld!>RlObXffx=$QN$pkp1{pH-Ql=6;kb6 zBWH)N@e4qntBAi6WF*mwh?~w#pPy_sMP$g7IL&wkB(PC4M=4z8#4)rpnFOyi9IR4Q zwb@Ih3|h9GCLIc7f`s|+s@QE&OjifJtchNS3$euEzbqmNK{3+%&1IC0aJZXe_Uy({ z{Kul{C~yFP;D_>~Gq++h_mxz^pLifZD!Gc!85U7b&4wfl(^>GvGF>F24U6TtBJF~x zXGmb|QW1v-%GM19r`2o40al0a<#Qd~K}z|p8A7J&0HgXZWDt^%>;`e5Q|oP#SWr-l zw#Lg_@pG=F&le_o{aDaS``#p6;Unn&{?ed{$T5)nXehJuHl5VZ@=0T%;? z;P%HnSwZ23@(EET_&2~;n z)yGGA%14F~3(lX}lBW{pVNwL)JP^QkTY*oaxs6aq!_{n51*wbNlpD61W?~$q2+ph8 z{h=s7v3v`ul6asN>+OR(yf8pLYquhUpf-68H^FLxG>M z2z!Vkdk0R#jWcyKG>sj@8`Zij-Q!K8?T4j$mNtrC)YICcua>vZt#Mj?sTSlbGp#Mg zq5~NuR>xfd^FA(!c$5Hcxwk^D(BeR)r|M#{{jPpDIgZOp(uR4wdHC?1+C1Aj-yxSzzbGWyJ>b=#Z;aYH&xi1wey{N z#9w$u^`6!#H&*-eFS%_c8C-Ao-x0#UQ4{;$b@p%V!vA6S`Oj|Qn7M|iziriEdtdpt z2F>hpTq%bU$t5@@wAa88+Kw{D>%V&sA6{5pEDMHWlivF9pAYl&N9aqgfT+(h(LfsD zMjKQedVFsA1&@Mk9AIUj*d`g^y5hfOsMD|}qoXxdLYsn0Qr<{SSD`(pWg~{4nZl16 zmKilM6?f;8c$%*jOU;49(3NGx1T$s84;n>3;&D&bExACy4kM?spw4}+YYE7tMFYtX z?;5T$$I*`Fr_#s5xc}uv{}0K)|5Wtwf62iAB?JHEZ501Q`ON>6R{mf4%>R|o{HM2? z9BN6DKZ61QsQ&fAsQ>PUT`Wv(P3ix6{->C(G^OLQS#kP^?{TX;+B|KNZfY}Y*y_+a zwbi;T72{`Pm=8yp@z!VUoQ1CuAt4nJz^NP$0|KOKhD&@hLy0Jq`hfhs$tE})H&S#( z6tjd!<9C0)Ft|H>j_s!B84;5niqBQ)(s)IX^1xXjvvy|uZU;-liw7kGFy$qdvJlR7 z*FArFraZJoNys41kUL_t^omtFb*Uur(;B+Rm6Q5+5~4AvGotEIAbfy)jMXaBrec+1 zEDs7m#`@jhp{YoF=LwU-BHNfvcTMk7DJsx?$l_R>jg~MR7%I=gv&Y$x&oG)w!3%-> z7RlXH!!gpJ*fRCjeYzKCj~8PiDo~q2J9FQUTsQ?8DzUf_;mkr(^=vPd%tvDH!Ov-S4-8$9 z_l*%h*JJYjU&qkw3aEi|yMXp-&gUs_#As(K=4s_e6f)t?BkGJM~oOJ2m)XS z&lDesrJ_;WBqmE%IY83t+MV}mUb*8|!>UIEY^u0CT*Zxl$zqPYE+iZ+0+ zoaVH2*=)LNjZu0SVmMYu>}itGejPBlv3C1hw^>x?bLX6tX8 zByEU83yIO4;GOkE+}_G@_c>fIWRlAxz69b3L>amECM!VNs72-o;W#ug|3BK^Ix5QV z`yW*S5h)Q6>9-&$p|o@(Js=@15)x7(HFUQKLnAOl$j~9(f^-dyq=?keF~q>YeTMhv z`}zHTYu&rny?@+itr2GVoagMb&p!L?{d(>5uxpg~X4%ipVJQ!mKPE17JpATw>>RTF zg}Uj~XX;QtpT(WWG{3()FU1 zGhbJ^T2{2~M!VBomwt43tn=Zlt2nM#u74&z{dpCex=}LJ4H2xs|3c?Gvlq>e=PB=( zWdnyE6O>7Q;}nf@zW) z+Le7-^)m}bjwmuM_3rJl9jEQ!xF6z{7Bca|5>!x=vxm%z5Zv!weoqg zMI^~uidMBBnUV)lvr0W&|xwNGPUES8JQWG8GQ81RyCkK;JN#_DfD;5erwJ5$q zZ_`H05rMaK@VxJEF6WznRM*7Sf&U6jGdcI7MWisa$K>M*>MIVj@A31yS*1(h z|4prEEn5t$U6LEE&iMQJd3_i3*U>z6Fo+770Y2;-TXT!Uca@>WGHlyq@Sw{JTQFIu88D zZC7n2*;{49beq5z-1jo-GPiD3#t~kc1Dnt-0_Rr-u0T#OiT&Kh{aT%Q>y}@zvb>Cr zr|HfDLH$!*FUkFM^EbE#mOaq=m;jvb^JPUYOAl8b#=bzN!d-+dj1lb-&-v@n0)HGq zY%(3~?Jd50#$SrHAEdsH3}|FGLQk6)?(1c_~Ptvi`@9^L;^K&n7i5|gSFgB1O9t7PUKYZMOkAg z*q};wL7!8QXqMX6Dl@wK{m?%)%?=-+q8Ngl@`2tDAnpu-Er_ zpT7H(&dSWcwj-+6ECZ3e`uN0Z(A}`3Dp|qHlj7wS1L!#`IfOKY>~Xrq*c$^6#i@g^ zp|4yYw&sSnQgoO%52}sVng;2`Jl}Kus(F4lj(*tP)UX!iu+IHh$baTg#&}IzEj_d0 zaPT6ZCLHQzz!x(_*Xh0(WPTLR&G>Z4Sb&uyHq5;@y>GJW6O{lfw}7x}n2hTOh~8|2 zZBJKzT6p)<{DZqYi50F#?W>*81_M5#bPEXA*s!J;56_S|wt2XFzoB4uJs08hc_$Pt zq)a$8ly3fEjmtSrYzpyNS>;jLQMe4sfnV(z_~F+S!OodMgWr4}C3u7>X`u|npJM8HsfHf3asI?{!+3+WeJP{ojGS^D+=$X zsgX^7XQPq)06V3El%i5X)VQ%yiaWfjr-`3@{UUbe>XxFJqN%8b9A^%H{rZ)5mU`7& zp^%WwD_)jp$VsZTiMSokFsIHv*TSVE=1m$3VN|1Y;#t@=b?3MX;7(0C&=)TqQ z;|c!oL(F>lyEyK#HgQSTR<73h4YP0FseEZ^X${}6U8oz4{L2qPaekN3yq7vPGWfrt zR9#f10wGDidWm^4a4ZAX7_0JA9!OviPDo~v(9qqKdVo*o)0BdT z^gn%U|8V-ce8hzyZjRwGq3gGA-#&kymcDM;zs8_bV7(O*P?v*VP|-xk?dk0LvpE)` zBeJG53&JYNG8j(ob>&$V9wyGCX(9YH&ct&*;`;iIZ&q`OzjzeU0uIeI`pLA)lZz~AkDBiw%8GL{gl6RuUu2U0qb?sMtii>6zxQhb=uW+3alqKucuHAgKr2o z{btsa+|AJRM)6AH`VeoU67Rt3;2QrC$>+S@iiP8sC&Ooa0t^zhQ2(@HGv#j=4E$}L zi=3U_=#)M=3FWxglxWg=i5#93vgjWNqRLemOD7@7r2mWG95XOR-+hjSD-1 zh#zC*K9v$Jl=?S_Pe6`Euu}_Mf~KBp=KCtj;@qf~#r$4HIWg8~z(USSfEgd5q4G<- zG#ILAkx{gwf@i!P;cOpxqC0e%SL00D5!hx zXWSwe<+z;NAA($oD>oiWogSfBtMB}WsgOEPU&tAz{bD?d0e?N!GSm(Vd{T-2fTLR~ zA#U$)EL`K!0or!jT+B&k>~cj@Ox(qQrd4zl+`7|TnPe4iNj*1W{oh-DK+l7di7gfr zt;AB^{Sm9GNP;=yYl%V4@~uK4y7cU)12cHy?Sx;d zEf6cL2K9sL%%)4Mh1V!2%%ZbjGSSLM5{7DjO9_vXE{`Z>_@g~8NQv<}DS5e5h5$l5 zgXrC^eyZE>ojI@A0Cy4~E|u%JED z@*Ux1|G)0Q$~3uB`GXzwr7d|;Q{H{-bZdPN$+Ta7S*83?VCpFWO%p4)kt-DKlr_$1 z(A-;5*_ljhqvmfp!;p~7CZS=4l=^)K^`$FLfpJG-s@(tl&hbppS(V;;&d))xF znLEB|de;^$GA}R#qxI$kv7tTht*!lRcZticFJ2SIam$D8CRcN9x)cS6;yjON<%!#V zSLQ?XQslJaxsasfri%k2Fy7kWvMp9-;L%1f*kr6Kv|$~%c=$kfEo7W@ zega`rnlG$eCm0KT+ow#W-KU2d1gANmL5ityjk|C`NqdD>CshZ#s`?>J(bxMWxl`k0X}fw6}X0&D7GoGxI#uGmk#+FK~lAdKs3Lk(VDckpF~ zdIx84iBClnEji4rfET6*_77TfGtUrS zXI^Od*yQ#FC*PVJ{={?4o&-ZO6BGpncG#i_Zk^(Oo!h8*AuBlv9ZI_|6J~$&-TR3= z*qp@gm*f0=RHUo$0cNOMpk{+Hc>Sn)w@8loVbOIU{_UvZ=jf*;w3-`dRCkLEus6BA zqDFunUJFzYH-^wyI#d%d;Ih{aqCV;HGPJqo4pxLCyI;SDneUy;BPRr{>u!K3fPJar`dS&o{ot0ZelgUI1%dGh<#`ZwLY9x z#T4X_$W%R{zufpI4HP&yLrxR@u2qanbHlp>6w#lb+<`-8^;iIZHE)PCiTYf6i=Dp= zq@E}aZDj9(W2_YY#!U6ZcJnX#h`1awr8Bws=U30~d|qn^qamTEU{^-GNt{?}O}}lZ zndTB|ri_7#`{~xd!t=CQqBSt6*NVu370f}V+`{f z(1=H%`_&#}bVMtAsGMmCHhxPR1l(wbH%n9wqn9QKA%zUj!_c}0JW7c>rhacC&ZRXNf`&EU`jSs;(q`2C zlLNeI7j?nMN%j5v_v;GZixY1xYisM0wsWPCYp2YNy9!~fvaV?6&bzWlpyS#r#l2`o z$GO^_D?UMT9oL0MH}Aeb3Wzhux{IZ%RJaU+&}25xZEOv{{k*dZJWf;i{BgP%mwDp3 zV-`B}53}e#p7)!o=6cxqK`%n#n9v}kyN9`x9QM*6cYy1cu0usgLuA!wHX5@)^iKxf z56bAC9bxNNSSkd-f7U0r!)cxhPqEXf3>C7lS&c-Y*B*9(H5(XvWQmXadJLowi6$)Z>0OVoVi?fb;!5%a-}?JxU;qC zyP|jL0$IcjOx|n|?qM{0BXlp_0tnz_EYxd1{HiJ^QVv<$Tw-F#pb#)sArqtn2S&4% zR=7%h%@*q1Z3|jUeQE&NS9mN3r6M9XnE&oDSBo>6>Um6vG_t(^X*rZiQe0B$(GSVL z2OhaSv1cm@#a1p%&)MAaIT(; z8=ocV8k&!$oUzR~OuBLL_QA_4o4T{ZtKKgQh{xmxU+)c#w$O7#KN0AWeA1JHh!Uuptbe&(=$a( zs}*BX_(N3ejsk;eo_~xaf2%aZqTDqQSO1Z>8Lrr1aLmfc5Ytl0%USp3H^oY5&_j;h z(f@BQt%v@YMN_!xJ*fzbj0%jT6N;8JUJ%3#!@vr_%E9R-LNlcr#w*fpP5DBZ7{kOFy zu%l3zNf=pE;FOYg^&Sq#MfxaV9H2oNP*7GaUa8);V@H`wmhTMQgu@FL?rk z?IDM&^NISG_J(i8^juC=+~QW^xNk_MvWO7RF-s$vf?^vDJcs{tPIB;L(+en%<`s;PS9=-q( zKp0O}At_VE^=CF7%jiD`a|Qh|OEN2GqCc9y{V)68kaz&)3gnY zaHWsDh*47u(FjU_R$l`PRGnVzUb3ix&(C!Dv;GYO01<$! zIXHn$hmnO?U_@}@?M47lB@(MdFzgpF*o$wd^y_9jl~z}Me=f5nbI_dM#7gwLxM_Lb za|*6BK;!|JRH3oSvWNdb+zuSm=1rvbzCSVPERI!7KhV+leu~?r_$=H4R5ufIbL%of zCNK!Md)2#nTPjyRm;ej>C*!FoFg z$oR2$!O+g;E}>{{ei*v`lQvQHFdqb8hw5ek^84-5o8ig16nLeC`NN<#-KX30%=D}H zr3Kr#NR`cQhN5V!awwR5S(A4c2V2pyPU42iiGbz6Ca95h{eM><*GQF^DF71vt97Id zKEBFSrGm_sTp|C2QxZY$RzANl++CMo(qt@&UWdGEZ=Rk1FmNhRc7j~QN6K6~Dr71g zYiUI*Mfr=jw)CihC82G6UA57-UuaF9vw*n$E+Yr#rblT6*Au_l|6%EF5v9hh=+gEF zJ8Q*GKZ1XZ~}|X^YCG<84gg1$`mo?o2Eor`7QYe*o|P60U?thXeGT>`tMDE zO|JkBcNEUELXlu_YRX1c&* z4*n8M#`WASg50Ptl~sJ@XC@%7WT*#OF3%5q%M@rMx2$vFy&b`d+lKkB^UQ z#+#>Yo(mI45vk@~G~OQCiX&1FS$q0dG1Cm#{jM_AhAi#ukYC=km|DI_bQ2%-l;iab z{y2!nSXqN%jgO~fUwH5i-k(&C!omCzDK~rmJ6b5p&%DX-+qW>}@p?`)4{+-Fi2xe| zb^5&_W!jcF$7DV^*g0#JCz;7b0M|-ncS=J%IXF<2+^j{uh$wum;D0tZI$LIzurc1V zImG4F#*0X^rSR^a@f~-@XFvqxWx$*dgjmNX4hdb+8>^>3dop_8<$QZppGcrc>=mKV5|Ry|uDPX>hNeo?BNHl~+E46!fzZnfBO$!Ajnf5agzE6eYpVe1!D*b{^} z1$8UF0Et2v+t}O@jeurbg$B2LT-ucX6-}&BL?SKwmbifF>4Cg~+QdJ_lffsRGDm># zN|4~z$KQG3_@px=bBljyfNx5AMg2?l%B|xZ^C}=pxfu8&u|WkK_Fu6&khWonB3iW`k<;RhYERXFt!rvi!b3u8j-3I4f~!z55I8sXYNb;CK!oL}_94dlntfV)L0x zHScse<@@k}XcoL7XoCOY& z`fp-3xq~^zFVuaA=IW)`w7coT8|g1;ocM6TKM?07T*H)aG|Qzh9W@)7ROrgkt;^_P zKj58!ygvy6EbQUP{J3Jys8~0ECwiA#kQy5?>*d1~8V0 zdu_defI)Cub`^&Av%40qiaEz9KQxngKJJMVn;mf_oh-Y7*D3#KFRUBdyDxumu;6%F zSaq+g^J^%OL@yV5$H}=?DW0~-^s|gv@Bq+_Vm}#Ki0PRcfSaf#SWzMtUJbY>ukH@(h3qXi82K_EIq zjn`V{STn7gSK3t;WpB{AKLDHHh4t?thLt( zG8eKU!+Snvif`?O7;dkZf=Cm|vZkZ5aC>l((F{(DegGi<^!+x!?8AXy6k_0Z{n7Ue09SC&0kc* znh=4G;Y{aUXviofpO~Ppbt6toKwhk0CGCmHw@4?vZ7N2KDgdwzwmNXM`5MWk5wbR8 z2?nEK+7D%2)d0l<)opIc2l7J?+;;{($_OGuE%Cir@v7H&&@HzmBR+`12i0h57NW0m<$8Dw{{v#ACU_hKSRGh3#$7f zjd`WmC{siAr%p3o%RT6XuEc(9cEa1~lj$+xrc?k`qW-`i2H!{Mvi`FR4OFFsl%rb4CgI z#kZf$Kiq^wbftY`>^n9frcl$-3+U%;}qpPc3GSffx1^MqPVSJ!CQ%kJ-1pxwsj@o?&Ie;ckxI_ACAqr^{ary@j?P5^=(opxp5D3J zFl*@x=!QVhEUBY6{yKF&BdD)Nb&!!KiCc zf*1$){uJg{6?BiM$11h&@H|@~a^U^`thLeTLSreoS;`rN>ecE; zC__3{eK0iD?btM`ZF&>jEaxi@Z~XPpB+i8LbIUj)m^TinA`G(Fw+dBv%Zk6KMw zEovnF3H7@X^zm1h-^JxW9Ew$a+;TpNf_+fj_3DGaAB?8TO6~Iy%w~V-U*%)#hcl+o zm6N0(C#5BRg>6H9Z8I95JH402G*~C@#)O0*N$O2%0Zgair%ziayX;(o(jAncfgEbk zcU~)w$5vhPbrJdKjEvMV4?&KZ^6JO40(z1QXJvY5>jyb^L~FJB0`89M+iYOkM}6Du z9_$3nS!Rd`bhG$*f7f9kUYi2jh#CJW7FI=p(?F-;m|4~j*(^zsHe4`9pOmxA>{qMr z&PQ#XF+7EY6B!P@B(o{Ch0GHL4ziQ+MY(tm(W(g{qeITk4ngkvoYUEi5_cVg9Xf_< zv>USSxRGzqvF4&(738U*jD9I0qnX+bkNwv9>P=H72#_N}miRlWa}#99aiKN)Z6)Ga zk`$uvwXT?)ml~0+yh&T!Hf@hjozfZ!C;GA)R#X{YEG^5(6Ms4No(UR`)qZKVR{VPu zZLBQ}SDFjSY7Nz`HbdZx5 zNDk6yz1FcyD0tq8U)IS2H2Gjy6b7zRr-w;8@T-8XdHOi_>W0&%e~K1w5r`C-^gPfC zE*Uyk@ig_9fzFl{KAW%~*A|?BI3Vw$Y%)L#|LEE~E|^yMZ*5E~8?7Y=ReZBT`aB#a zcdmP&)p?eA9n5=|2gv^#z5!vqy6PlIv$im*{N$7sc$?=3C)6D`+U+61+}}U>NrPLO zeoi8V8SZQ~=6&|Ov-^n24*DF;>LcSENvzYuvX<567LInr3j6M4kbQshyZK%%!9-l% zM*w02G$DT5gOE&6XXfgbkCwBto!2#_QUlRo5;aYWY_Tn*K}P;c!oq=Wd*n!*-<`T#+d`b1K3`=&mLh1Cu7Ap7lTF;y@YLqIMTe2zM(oCTE#0k> zL=8@~F;KsZuPYONRqu=9PYLSJ-(`yuPP~7+RQrSp`4WIue^3#maNV2L?_A|MIH&xj z9bYATk?@N@tIl$IxG1vO2`0)@cxcAUIC8+3^6_l7W0B>h(alGa(yih-82#todnntCBB*KV^1+;u6=^a)>Iabq-0z8ZTm<`V z@BzEn3a*3M|8{GY#QxyL4@u+K`ZAxGx2IXmk6#y>GECq@=$LYJ5QMJ`sD*84GqS2+ z3?E)A!8PX+H_3o>N230xzEm<2rTddAClvW!yG0yMYV9(ZGD=34A7=V0YFI>e?$-P1{n7Kktd%h3N5 zb_T#{T2^|6%q>#}ar=g&{LRu5J%qUh$m^390LG_&Av#!#iySpol^8$Dl^UHpcJU^uLE`9SvT31(m>z?I+pZN(tH4m_5}UAcNPnOICHq4LaPjm&sOZ1Ay+G(=|$y zz0a;A5~r=&tssDcVa_kvI4_T$2GGXuwN?Yk!Jvg8*Ne+bAM>S|qAjPGQr;JQEc`mp zo=7Ef$jb{%u?jKbYtBchz!(3q=TW3KtLKN^F)(VKQk-r_tx}r#s!!=el^WIUl4?A^ zA1(P3`<|HM!oos)7|JU4Ds)+!Bdu?6aBu;hrJk23xG zr;Mf=nNluN;yxE3hi_;CRlNtDgA0(bSq4n%vRA?st*G z$03Zy-NFBz_wFr_wfXlR2U@>>zZASi+N+X=B$`lcz!$G&2QzY~RN-vy__C!l4(R@V z@z|BpM8!zX4gc>ZA2;Q~lB#rU;Aqcqu4SX3jxYxw3pqyIQMLwT2{5aIV@1SDV3}iE z-t9b*WgJ8wfU=y~`M)7&iP?=e*reyr^Mg7b1`X@-i8gVy;aYi-Vzg*U0t7*N3UOZy zh7kl^&<%2kg{2)UTu<9FihN-mL2fUhm`&(TDmMVi`@|%`mQ}s-h)+-9V^~+RPYa>|) z_a)uhFhXfb3`GzM57qX*pY6Tk_JnT7k$WdVVnL4T8(l;%8!u5cL)-QMPIQ9Jh>uQo z#iF4rW_<3-w1SJ{m;de9(YCjFt+Qp>kd%RHwPR7fmT8l326BQBCcp~jjlVBgs7|IM7B@ZgnH4HE`^FT;vZi z&^wM?aY7I%Xj{_cX>u-wuFWWN)bX;8&AH!~fwUh7o2LG`K1 zUkg-pivPYoI70ccuQuzq6jauh5GXTGM3#+Qd6X?dzhB_qkV|A@O_*IbvmC$xIpp|9 zzF}qY7-ySEYrUuR&0u_F?mcKBpo~yIknb zboYNLmWyb0v5-s9ct2Tf;sS2(WSR4W*a4Xf&?{%s(A32>?fqjvTnBC8uR&ppkWI zeU^THe!Mz_s{rICD*FwXn;BWQcgh6(^JpHOr2xUZUAoT>%}o-eF|mU*e+UMCU*^?I zqY@GnlTUru)v`bAhHLQL1$3}brm1sxQU82QmDl$cz((>dr0;Ue0wOI(BEFix+-pAC zWgCCu`%&_^Go26s(A=+n^A}}Mq$NapsopOV1n$3Il=8*ZQiatZi#ZM0Yb<~W<0Li* zK-HzxJBB4%pjNgC;UHhiDF%uo2CyqzGS?}YS;V(8%aB|sn zZz8vG)V4HaI`VTC;KeGyPxAV~WU1&_7G;aNM@~9B9}9%*`Vi(n>K&%W%#_n@Q%Kqg zsb+eOpvw2eq5@^*5dh}SHi8S8vsBMVuszCFWTW%4LP#BC`(K^wEtNI2f2Dvm9`x?R z5c8hL%F8{LXVQ&z6Z(3nHw8^|kKv9al8t(U4hCC>vxr`Mh2 z`*!4t)832d7OQdr&Bwk}yD3Z$i`EAWGpu$*Og4uf`yW|Y@je)x*`HkA$6sW5HqxA} z!$>SsKv>r)6xe9UNkv%NRJcswDe(|K(wk-bsG2uQ4T1|P54eEZ5=@X<#sO`mrM7tp zCN&DhX%Is7d0aLN>cpDuTM(^_a}P@Qvd{|{qI%tOXN7y)IIgY@Mv$9fH3DEIZ(yIp zfQHmbr1qhi8Rplu1e5yt9}f`d44SNfXCMP8u;Kgm8B%o9+6TI0`Dp!btWqBXbIywjiYsW-(+JaNHCuQnWCGN+ zQHO^VnTr+D_q!}Tr?%*iL)MsKiY>TsxYp_NF{L`$@M7-V_}I)Hv317YTBC`x$5*Z03*&75uYo z7B(5FKWt~~h93&vMF)B)L)Y>@QXXE9Wv)yvYd6ur*)l?qv^UA@IBOufw9c4bM|qI@ zrJS1~%jum|-3|W;hTX*Q*+iLcnfHLqOHBv-e@t`RdcJU*l_%p6OiUc=tb( z7YGYFd5JY^-4|@P;EZ#)nREFc-9TnS%LMfj)lv@cG}^a1E^}hQpN3u;)lto}Zo!+t zR-GG~2Oq;@a-c^f_1t9ylk|<~1e0flsY`yhw?_r#1->Cjn^ikD?iU(o?W-$wni^Nh z?l4al2cxS9G~0Jz7+Z*FW&rIPKP>>p#qd>2@Vr=R07z>OW!3D7xb){}p7}=r$Yh@f z_ASxjo+(z1uu+Tcl=!Yi%5#v5Ecc^@3uo-(&NIwr3l+{0)CZzJ^}!D(mz}*okjtB; z^f%Fc_wyGSX34$l5Nwa+1Tu3!0N=47!XTQS>MTL}yX*^>!X@hScz`nr{~4xs54m%j zE9Lg2P;S2ug4iL>;epgTqzdW_1HdpFTH}ZCQIp zqUbRDMoK0CVnPnD`{O2-rvdW+-$l~o4sMyXrhx4@_x&St{7j@r2-axK2|zDPEN=T-}%0pOH5l8)AurrX^b^Bh5O|06>O`94}^?stMf&_>&` z@f-l@X*Vo__G%C2mJ*79u;34{tbb66r_kk|q#(~_w?0NLT?Ocrkxmq-5Ar@UUyq4b zMfhcIMD2@PH4x%3Uth0cD*`M?nO?KKb3?8|KO;m7HKO|nn4JU#_#&bG3~NkT zNeW1D=ou#S=m&>medrer{$>MjRQ)tQypJokZ``vXYCfs4_@DQ%~ zY7$L2SJ&=PF{I*FqN71N>C#t3jQ?sCEGseht>zr2JsDfRNW3-89hjc{InrhuMs<7o zFW#iPx(UoQgCZ+{iV#3qrhc7&rAWGs+IvXLje7NFfCZ>AtO0y{q)iEo>P`xm)apNl zADn8y4@!0tCNrj9q0llIArA4|yc)&6WZUCHxlB6erWm2@41jWO_*#aCia{s zyipc28^-oqUf=`~9jI!U!N8I9op6Hn%{Ytw#Qj23P53%i2j_3TAKWX?&novmGn>h< zzZ|xiPr8HJeK=xNRa}81)kr^8tNsl9Ri}(;du17PBRcQ$NIrvmvh~Uz&K77i@#zur)2@9!b>?D z-O4|7Zf&HQa*nL?b1F1-f}dhXk5Y#M0Gy6L+&_il$+pkKvH>BP<2vmI22fn>GJy!0 zpyHP!;kvZEgD?CfVXh_*YyF>0ZjqvvuySV+%(_;2AbCHGbU0MRmP@iE9feP=Cy2^m zeqq%frB;uy)NG ziRuJy$BzC{S_+$+$eX}J4haPs^6D<^<9>}$ybE@52C}zToV-)V#Y=Z*@BVk!0D`c& zz4#Ws`-j(WSJ;77^97^D4WRh4D3(Ixjn(iOW@O(n`^Pva1WD{%qAH7e0nkJU_n8p3 z-zSKx4?YvmEcYf-8Z?EsTLSx52!oAbt;X6O@b`1rp1}yh5Y;=*lytGKLjW;h4uHsW zau<-%9-VdTUvj7ru%lhk<)bM)IB&`XJ@S_jcGOwY61c6e>hrRf&Z$JYS=Kt$bMHAs zt9#yYB;C=p*1xm~-_8dUhaeIJTNoZ`YqaQdu!pHWy&;elUyc9f}le+pHRy+rj z-@R*;$YvS-;l z;XnIgAD0F|(4_sL@TXN(vM4WGXxzIgYj;J(az=4}9F&V1JV z4>+i#lCD@t>P`7+bVYV^2e~s-5Q0#V{#_X&PPE!YU1Kk=$`VeRF|n-YOgQzGvV*~- zO0o0{mW_HL5{M@JWxr~W|2d@Pc_+F2dY|c2Cgh4oSs;Kwzo&!l*nRZ8la(!vc?mc+ zbMIgs9y3*p*mk7y4ZXLY%KMF(=??NVX=E+<`N}N^BM1UVp0$dsyafqo%QA9zqic&7AgV{|Fcu4XJ{bC)LJFR|B^T5q8H1DtYRTtJ!yP3$2-{Y$MdUlCwa<(k~$*zln}*?B01uGQfsMF#(P z!lcsW)JEDGkr-cbls(pUCO!A-?>?@$S+36=5^v|2b7`*ySgXm3*J`W7i2g{h?{ja~ znC>mJPm%Dq8=-kIG0fGO>Li-&M}kFcze_h<>hZ&4`criAc2YX8OdiUM<$=8h+k^nj zeoHLZ;aP`J?2|?j0Gy zj&mHOZP`sZJH;9fY!EbE#H$57;>8BNHzwq|^boP1*Z zIUzvdQ^f0qF170mRJZ&qUKHDJ=LMd^ji2MXaL4w!l`jNt{)MJxPzlltTf;$m&Ce1j z$twMb2rd{^Dihx@;sp51_qRu;;h6#9nY`FoD9VD9*T&oUbrQLT)Ps}p#E{HaC%9zs zxq?mx#AY^!G3BOA_OzNd88=g9KcUgS3KFCwKl_^sIrjTt?U zk%oLC^KlSFKYbq$&!*|$Mu{3gC=u@2LPCvi(`5Xb%I|{6Hwa9-?LtAW=z)}4Z^n{K zp+GLJLw6M2+1T>e-%g%;VbX|)UVqgZz*UX=c5&8Hy~9 z)^Of>V1{{fD!dc=9#dGSSo%17CFcLE@%n%Lt$VP)j~w6-4Ax(oJ_CnQDf<7$doL-^ zYfxq1e$N1t3~2^Ql-6;#NU^asuNG`SQ{A$k48svOE8W?-HW}%J9A8U;l0TO?)_KnW zR06YG7VP@sB|ksEX4BsURXqowq}_=cODG7eb)577)hf5!NPIy6%mZGWb_+#+O)TGG z_f7B}$T7ud0o8fQc<1WCHK2<{-fcK15f6(p(G3>~Kw<0V=B6$h_hNmn&Z$k6ICjJMJGKALooToe}GSoABsZq{CR73EEs z1mcg7oH~p*A4@R{oFOWPjVVVFC@^h@h^Cw&Uu(A*mkyDJVrHIh%

HrRnfw0i-Va z=Y`{p>Qu?><=a9-4&NZRn9nZ*71^frM%nDj;}1g{kH=Kwl(t4v8C70BgPN{wkoRV* zzO)Bt@5$Fh$C$1^vqFVRZ^@7L>`elAyu@kvfuV9dKzCrn4!r%p+#?~QQoXZLZeM44 z>mbvfvTh9}`67Owh>h!j^wOx%v=M;3J5dA^3mcZqJ>rUb`u7&Dr2^foKPL{TWuIXv zCI@It3RqZ5VU1P_Qlwk?vGeTtCvsb|l_qTf?nkBhFTxhH8^Y$G@UvMW=T#v3v9VLu z3#Uqs4lKaGHNej@&c@}D1BqeEnMUy&IP4M?F0sl;9>4;~EacMna(*sM4R>wchz__ol6vVx#$JxQS7;f&Cf! z>DqN(lCiP-FRSnz)QtS;$w!WiC z1W4B-5AJ3j`H5GL+F!*C^vFbVKTGM()Mi9aW z)V8N34aSXKzf0ox?P#XR)FB$co=wnx_rR4_SOmZiN2rVF<0M~-kxG1KvI>`Vy~x!x zj@wYg==wB#Zk^;`2A6W zbY4Q6T|q%kNPAwFUm5v6Lht2K(d>x?Cb!{ zz19)Hk5fvYfOb52n)f?$5i9K4?*B+QZa8dJ&9`*Qs~By$H~EJlb2ipb@cFpOb?iZw z>4KQ(@i>sl4X8XKb%S*VV$og2`?KZaY^(Yk*Zo%~Q5Bh24i8FuQw-dJCt0DWNfQh< zVWNZtVjf8H4YRGwSBmc~%6{fHD)-$P(p1qn?(1A1RaVeG?wgP06Xe$+RXEj|HKG{% z%)d!VFTIz6pW}rYWvi#!*vXI`0DbWL6$ub;Kao2;;0*00-Z}aIp_c&Y)+o*n)=L4D zU=eOS<>lbfb3#kJ;pcF(*v$z-%iB6!`KBdlJoY71u=3%?eiMb>)^RrmA*y)(pq?-)Y!tX0V2l%o+Erzz>P04uuPCJDd zOdS(gee?Dm85vp9|7JMKCbyn0iq8_*7&znBjx?0paPW2bI;BEMu zpljnL4)$kRBs9xrH;Y_5RtmEgZQy6LNwS>+VGTy@*iZZsz;>K>X?` z=No|KKxAJ?$zjP?n+TvLobwoGv6^4_w$OOVY`uyaqC`p$bsDksN!Yx+Dcq%sBNDWD-6ClH1Rx@=R)1fE7C3V>r~J7cUdq%IM^yvcU>=NI zDCIATau@EdJ=iA+o@X7+8+4hUXTCrmz1DYCIJc&wdiA z7P23)_{uig5fn+O6Ne4lW!mIC@Bp2;eY-Rl0`S4v&mFfo!F%9T!0!1Ge_lPZQOr|k zA0mQJwp;;~LZ9kc&oNK^*t#^(TFPMIx2saa*AZ;TsbCCNxYyQk^@{?xXUO73gqliL zT~C?2T*67|evB@@r)(eC*1NlS8TDLo<(`EK{p${Xf_Knp4h|jOgL8kYjMMS$#yiS%tTC}ij;lq^ zqGS?ZrDXd62LvcB^<5jB3I$eScG+p5L}(QF6BOC4(p_*txZ8(t^C2L&t2; z`oW3VBvTTRqe<2*G@vqBKi2JXAxe`Onn}}^XzDy=2v2+W%U>fqrXm(+r7xp2=8PAd z`e?_cP+%mB(b{iqRW7i~SuHp*_zV3g)8A$P+CwlrgXT3nOc78hT^FHkX(+8Gmgdto zA7)0vJ;nqa!$g)x=fx7SJ3@T--MHEGAU6wpYt*VGmHsenu8C7T7POFYK8s+YV<0lT z?Q^X3fA1AQk71rKEZ9DaScIwsnbFDV)LLoaaT#rJFR(Gg7NZW7_B!#TLj z_qeZlEX20Um1m`*EEKEMk#hmH{dM6;F3zn4Y%pdxNdLFh%(02CI^sSMbZVXoixCMzt z_uVG1fxNY?TAcR~+B^t(IWhxHo05@obnXg59snk*#ZL0|Wifn{&euGE_3>i|Od)-;KiuQ~z)B65YI+AzKyan(X2 zc5QlJUa!`-of{XtmwnQCOUn~`BHtIDpKpGL6}0SygHA!tK9i?7OK;U$;r)m%4!E-7 z#OsF-@4H7Ob=v22?*t9C;!PCy09i_>sXL}J;L^ChUcZU=UbWBO?S|-Ei&D>1%4!90d5i12aUZKW z%AYsG?f3)Ot zR8sTi;6Q+xvSzvO4Ui6zbE4RX;}m~2>|0rF%wc~=Gs~P3|5bg+J6w<7d`O!7;FCyz zdoECh;n3&J*UXv?(s(qi2y1)pZxWi$*bK&v>DRa3zVCkmN z3*jBIZGVd4yW3lrqqM#F$a=YD`u>XE^TZ>!a)hgkiY5;2qcDyG+@O4 zKYp~O$F`P3k>f-$tlH?gfJ|XE{RA;1;nQ^>-(MC~Y}>)*b{ zmYynQLC`t%4rOp}B`T=kS{6dgf1OD9e{|Y2PG?w`$t+{HC}o$KHOY_OKgRg>-BYuORsy&PG&gbz@Fu z+`GKKY!gZa-YfipmMR8PF&E5D;-Qi?%X?WjrTyUY&QTGu4(~4hWk^);BL(E`{iPJ% z7A^m2`(m+u{zO_%@57ZPNtwwr(b;g-tX2*ag*?X@lQyc>UZ6}6b1btXEEuq=2>Eyd zPX!Ef%{$o?NdTP4#iU#{nXZt3>DS4arA)g_(O{#MQ-Jj`uKWUG1jwK@ASP3 zn5XM+_OrMCjtd%C+?~c{7+{}s!+vTHdG8)tJQ$r)S^{DaA(_qvaEe^}KeS^d3gVE_ zM>?|mNnYtRikV4HJdiHu0DaLy%6Ir@lHg9-9nA{d5w!1Zx^ zboD;IFL9*E*#Bq9zMD6%U-b0?nV_ag^r*D!Z@{(GE(Z*V1&etPm7${?chw3~%*BS7 zjrcfG8NDV}c3X+-Ki@I@bN!{4aV$jXYE*R=n*Z=P+AVmHs!}9uRYbi?ZfhwtePaRL zD-g0+y4s@+;IVuyP2C*%>0X7d&uNZ^h9BllgYyOm7qyyLA+{!e2jnt4UbFc9BuAT0 zo;?(1Py50NODr}>$>zSbu}@0Nx~y2#mTZ+AsKvYn9rKN1ic_#u6jJU zHT!t*!P6#iLuu;21Nt8iCN10MXw#JNE}$oB%KZ8$s+EfBGOGH~h?oU*mw?d{(0B|| z_%lB>X-eXthj8aS6BS-Pi(q^;KZOL=E5n#;CYrlu=8|PQ<@}{MzGJ6Pa2iF!e^$R1 zQy@mHU|KUQK-$T_W%g30SQv2E(q_>De`YCy?Ad{!#5wia5}jTpgM=#fx!G{@;S7oG z)W7rdJzP%Cy{Xss7G^OrqT~EYO1}216XeiTP>t>SxQQh2S5Yk#7~#Vt&vcp+=KUVB zHY1r>=~!yL?fT1KrlI%Pg0!HRI18(BzaD&V&kG;eRuWvRA0B!=5-z^(KN!@ z%;ZE;L(TYSt$*?dxJR)V>G5tH46oW?qyvf7z&8`G^f=qx&ie&0a>0mZ6ICvW4%mV0 zG<6SR61q3$4AnDo&eCu@&hXS7c-8Rk1AIetJf9kPwrv=>bt4RL+4jyiW(&il1 zfox7wWHN{K+z;4?xDEm9*5;G?{V`<0V$mb=;cJmLcM&uD5kZ&JQJ#R+sbR-&S^nPz zxLQaC1r8{tzPY+To~otdH6iJ#qtE62(s*U+eDf|TlYr% zqnR0Btefr;GG;!YST}erGjD1|7N3iJhxDDj>mjN8I@&P2Ph03@=ykUMpqgZM!xi+u zygy--mhn&?T1QS(B_TKiR{N^Oiq)15w^4xJb^=|q#7UwqIxRv-w7u z3_^w$1)tgh*M}(ywvYfxCgEHC65r2yFdtJwHH_{b39L6fJbpt!nK9O#YBV`=)o7Mz z6t&)*xteg6HC&%tt1V%>`&f$o&51^v=rk!-pU;y2PT7=F-P@8YHK&(k#6*;Vk&27V zIiv4CDB!2ab?)taa`*ACfUACNNH%n6y6h_J>>eM!H&Iv@)csFVj#N<((Y#h8 z*6wdmuO=V!Il9;($gX2Gk6$n|`U9neOsM4s;0N-xO%>c;iHlf!SY%0xv2+d<*Ap*n z0M+2_`X)}>HdAr1?{i`WE}jn0zMHy8mL3>3WuCgW^uv&Ky>4Rur1$}NP1cXQo+B2{ z?c5wgm0NUe5Y{1}5B*EN(7CNs^30efpaY~VZq{$AChvx%yE}Vl`sBy7VPI!!bYk?Y z~m#)Uf^>%MaMBIFL~ zgM`aqeZv|487W4WlO9GlfeM`Jj(5@H{$}d|hPC|VdRVXrlE&@o^zm7`WoNl_E}7$; zD}4k_ukj$@C|@s{#024Ms21i7fy3kIk2#?}IcHILh@2SSvb{f-$X3EUFFM8(yM;z-E|~S4=kG7JD8lSELM^Sk*zKXS5NMm745nelCu7SP=6V zU;1B<_!wVFMKS3dPgVS6g|*oBbo`cGq36d*3-N&pdMWzxa&6Fr!abwI1{j_VnHw~& z-wgaIx5rEFUnP8XCyGCD@M_Hk1;WR9%GWM~=X(gCfQv7Z&TZGXR$N}Z;6V+ngbMOj zcVg)EQxC5*l2SFNcCp`1CxsEll##Sf#FpxCCL#%(hAk zdTD#9=^e3fXV;H1J+HZljL#zQg9?6)9;K7gj9f^zzX2FCtv4*XgSZdY(^_`#0Q!W|Dtp$c(=^4neiE4<`73^;-x)~p*Z{XZ(A(8HFAEb9V)la{HYjS_$ZCuVqhV?X~dE=C* z@nNYnb-rnX2K35`b259hk^~I@wp;)F=LJEuoP)SM0FuavbK1y9v|czcDSU@y$N)9@ zF5yd);r|)Egw1HlVKUwW!Z|fMS%3PE^JD%zrh~9%v=KORrZhjMqMzr3lZVIC1O zjb`F}7L5Kh2YR4zNjc1u-wDiNm(;5j;4-k~1?#wc#3j!Z>5^jDhaJz23c*mOXYnPv zhm?tccA4@rl;I!mGcDTypZk{g7_M7l3SBG^JhC?7?&{tbroOqzi~}~C|L`l1vAWe~ z&K}As^xN#C)` z0(2Qj{?uZ*R(LxbGVuoPle=2oP=NIpdUKLh*qNmat(oQW*?nJE`Pfn|0@LPGA@nsJa;d3H%SABKt;0?#i;0d zvT2ropD-^t@iWi<p6^`Wvj7{*am9I#diI-<0kP%g@O+O4hRSV<)ALH(Q zx~w#Il0GjRgd)q-f(31qnY16A2g7C){%2VJ6~BeU5vruz_i5!*N|{U3=dm8FFEUUF zyC`833qDM@ab{l_^4iSuXS0FfTmSt|l0}$fc7g}Dc79|LyRHAkoZ^GwjYS{F^y|sC z7*xCB$!lW%Eb5WlKUS)Ygi#aUgOKI5Y{@i`lboIW(st(gz*O`nrw!+U-yQpnFZ|oO zI5(%)%XO4g>PKV#`z^VrO=_Mly4;t1SftwDoENQ)SM73YKk%IwM_y|qkgg~11s~l1 z&(eab1(YUd;y3pl|8uE=K~uDbw{H7a(sz zzmzuU5unYuH_Ew^=T0nGI>nWPY=rdpMvAc_T@ZgeFQ>*NR21K_oihXosIWSF>C^Mi zi=M5U#H6n4zLtS3KFXy{2ymPlSvUvuS1ISYW}BdSy46>UPDAmvRDb-#tx3N3tyG$f z$awu!_Ioq@Z>E{4*Ug?PqQQaVCIR7(C)+yx56}|ouS#yyB&fIOgTACM;rP$buhG<4 za4V_aKicweX&VK)2hr{-qGO7uq*!}a;L^cXs|nX`a6SO!f=^EPv}y>8N&P!``LIC3 z87cDreMvQfnI+;HTii;toD_(_?}RRa-NP+xkM@XU`G95+K2L*UsxsDzr?d)f)}Xm@ z<&W3NQ6R-ocr9ubmSspPH;JH31A|XG-MCo{3(1g9>&d;r8R7pkZ?!Qpq>-z!Jel|_ zO-MaHY#QCA_2K`|sopIhN&)jJVbQPYqk()3xQM0ixTIPn&EKW%Rt6lBi^Zs5^Wb>m zrd`_ki@7p8V`IkyPyU#_e8lk@VTUZZCsB*=?)>oMmK&0`nNQk_`9^QY zUWo{ZIw8E=mp=Ntgu;3tOQ?A}`TH(n+=^O9e+d1bp*u=wi{?~3_q%mbOSL&&prfcB z93Fft?apz|lvSpzc@|wtORO>dYed?&(yv3xoWc%&fnEx633sQ_sW%A>bv94~eE#g@ z)#fLyD}2-=fz;4nXbJYA%GZVmCmB@Y^)Un7W_}()4mxy-6vRR?dYc& zF2&g#4@S)r4LR4z?`X@geaj{}XR*|#53U5vJU%#ZjNRvE+dhwA>z8;b1&_BG9AV&A zj<<#&k)tWgp4!^PyxrCdh=*Ss!t~>4y<`N`WFPMKcl=&swg3#D={I3L5&<=jqs56c zyELX&anMfHcFdDe>rBfRfEvV~uQmgelyTmS1dDj(#V(-s-Md?Y zIx*M9FMI1{atmz&E#RRJ!6j?P{-W_W5u<;Ek{78Ug$= zFJFa%sv0f}E+r-~UTg?xa7Q#(GKnwP%6aWJ&kni$6d-^Y%MKXdI(S+UfLpwp?Gv*I zitEV^$)1L}1mmun9GL{-X!lX8p~&+MTbC?Tv!2fx%7T?RCvh-}_X4V&UWL5H+5HZ{Lacub&$A`I2Qxd?WqSdINntSj#$=x{6gW}3w8I^ z#z5!S?;@}ow|b3=oPxM-EG1@r>q!0Om*yaXxbAcEzt0VvFC?ilAfmqhW%ltAydK~^ zaOzvAbXlrxb$Eu{AEU@MfsPee{(eRr?d}EftJjG>%DK}X#cQJK5uWk*e=P;fv+wJ1 zyuXx%S$KV|23!gU@-G!U&Y%+H)i!=FNZdl4%^8@sbAPIRvY$})&r@9*@X&h9s{4@G z++FSAGC}r-1@PburT-f9Lp?4keBQClNDhM<7NqCdOe4hx&Mel;++r1bOzT|Rou_(b zYt29QE?5!mbBSI7`~F^^g-Qfbj~)WIJf)ONDwT9;gx#E^5@bU%Kv2W50eX{vOc{P7 zvrBbXv%Y{>T0m>nAC?#~e2=PyXMX%yD3UB^*;@MDxlJefB6#ea$k6o4f8r9gRf__? z$FRiQ+4mFrUyBA7l!izRpmsJH7#82SJ}j8!4vmad=p7As)Q!bMh1id!v8<2+WZm7PN->!hh@*xIj1w&L zm;(jG49jAMjdKmw{Exn+CcXa?LV%De_f&Z#GXNt;75%}rwbilWCO{fy4u z1YIu>hqeLAoIp(bpeIJUnPPh??_Ihtu$DUP{VVe92((2d`cbjQ!!JO`;>W?(l-S_l zV1U{w_7r(~5_;kmeuADYgQEjV(Po6X(}E30qOxD2jvc!ZJy`KSAH**j=NEem8SMVd z=2fM4WotSp5v7uvd~wpuPn>;Aq1pA2A?drkAbembQrZYh+(g<>7w6+v7c^UHk>Kjv z-Y2{`C1=2m&AUk&ucHct+dGI-^K@;`%=FzMGL7@Wlx%(|C^mW-7CGC>JoF|h1zb!K z829FGHuihHmW8zv_H}BF9uL9KGz7K*Ga*$pRH zFw7N{$i}@LWzgn{(>w9H-s{jyBta&ip`41MLUU zOp9nAm#BCU#{wr6yIMc~{e!J#l5L#BuIDk1q(Ty^1W$(or9>ThNi{ta#@YRjZ~B{FY*a|% z4v%bJeHCg7mw5yg5tb?2DA#d!o{PpHSqMHm3Op8(fH%#F?BHBMUH|tTarB{Dn9K#3 zSCb(trsZt6eX}w&rrkd>07;P(pvE+_S&Fz>-HCxmX6UU;K|iSdVw>=!hdfwKbKAcE zZ9|o7p)>Mz)a=S!KMclxuQ|K!rTzXkDpXBVlK~eB#WfmLxQQ8iA{sZV`?fh84HVgF z8|MrxM{{G6jAxko{TR+5M>u_$JvD&zGhgW)Q=kw-h3pUkvK=!P2E?NlWWa1f#cOJO zeerNC6m-}!I7m*Q5era{RLaa17>HGeVx-0>bFd(vy~+@)wKclopR*aoWK^HDy}|X% zZ5A+@aj-Vj4BN{Dao3pD&f_+3KgU(M>*4kflw_z&#m1Ms1*TYwrd%=~b{;ROX4QG0 z7{#o!;$Nl{d!rdLypv~FyL^F=n6#*KkQ+L3{d<|)4XjT!XJ} zO8)Xi+^R0mlRnk+-katb$og??nKZAPN#cF?a*Iy;RTejs7|vz`BX*y*nF~GxECjz) z->eSnI=G12sgNAO)Z)XKe$tv_#jym#zBKMUazMmqYL=t4JL-s>#muvG5Mi6{t%OQt zT}dCW#`QW7srWOh+nLYqplNxVPL*=mOmpnF(^6BJ8w2kVD`2;B&IRmqLqC*zw@%d} z__vw&2nWS3>E3x%C{l~sh3-7JykPE;WfjrE0{hNf_qdZAVz}& zDyV>R6H!DqqG?v$HpLO_Q#arGEwF7h#_*>aH5vEdQ(oR|9$M~OkSEOva?nOa=P4=c z>BM$F?_6_>?9;=7%+v86}RBb-uTK9JPBIm zR+!|@{PB^$A{QO6?cAAh)EAM|%zO4lVeHWB2g_fw(7Z;EUmIv-kc>N~YC*N`CUvmP z6;Y3a5}wuNBk@=0#|t>q7uy}?k5S$*U#ed~DA#P4lE%AWYHJqEx$dlWLMS+fjvgSt zi!^PMThk|`0zYvUlPuCSh|qz^^_dOZkH*ffuCSg|1x&6nNkCc;7sCez2BgUNU_6?i z6M1tpJJ^F;({iy>T~_q@LsQzn6kPo8wHO)bMjRa-LH7@qPa-JY{QB-*^aN%;&5oI; zLEkUIg0*D=f)C)MQfJCa2AO@Rv{klm-mNh6rURwc!xYI-#J;w5m@$|nY2j}-&P_RK zMmU`Fc`iZZLU;xEnxQ^$n#A$?*6;6J^iuLMkTv=4zsh7me^k-O=_9jxN-Z0NV=lI! z1b!8!$Z*@W-wY6Kw5ywj!S-`H1AWkG+ECKLV2LDnCpSKO=hM#wRfi;0H@5jc#d^Js zugmduYpspiURb3>nTx{Mnc^O|&e%7|t+d}=>wD;PIwJ+7gEGqs=y2XRL1d@MicLX3 zBtqVu8X%!Y`SE+05gq^*q=B>aVV34z{wr#%;sS(84_a%e%^KX)vu1DG^JLCt1WPq? z*|uqqJyP}q;*%&-T16QI;sZ3ZR0hc3OmT|%FnAIDS`%ZerPF79{TIMI-wf%#=s#ze z9+&~#d+EvP>Kfs`ARwF$ec*3ed(UT5x5;bGTj+c2+TxkIwso8zzX|s!9C|Rd=CfiW z{0%6}o@O_Rt(r{qgJpc8j9&f}3dNgXn=}k`uR|+kqI}$crJa`{I#NP2BcA>LL^2N5l=~gGo zu)WpPa@Jewlkpfncvwqn4uGP)_EBtWYZp2f=3Rbp9yaIoA|Lg|bGbC>?Uq|iBS=6+ zDRmo1(w5YBV47bJ{G_iA>je{)x@7jTn-?tR@^nS<^Zrh+nl?uv2?^hV_$|TuBH1Me zOMVCC^-*_CK*y_AbnYYMTg6o1X@v)YRaXM528viCcpq{kOr*(=$AYPN9CLWsg#H+i zaiUzJ)`{rBe2dw6W%Y%xzXEAs=wn z+A==%W%*BA#ThE*M6!Lplw}L8$;q38L;A?V=<;&e)RuYJL8F3G>}Owa84%$%qdlve ztcePB4e?$s%xgE!l2}2*6l0yb)nH0~F9F6RRd-lrJVH+q`#PYdQZlE0OO&ws;hQ4N zH)7C-mT+1*()G`}xMMmNd73#E7$A50YTM9!l<(CWC9F$Fev&!v#)N)C?2<&%)U_xR zpgmNL?{@n8z(QlF%a8(uAjp?_ZWbd>b(Tsuo&{D=JfoO<Z8nIL!Lz|m_Yy@A2z5rg$F)fLccG|5dt_8zh-$0J7xD#w$-3;{HDLdHG&x> z$92Ltqa*G+e@e$$>O+4%f;rVj* zMK$EGv3*;zYI(Qw#?k7+U7|j7oB@lnl|Ve38>HUmRUy!QFP=tnv(u--+%apIR#~ux zX1Y?B{6+Y1-oJ`7S2G)04(Kjp2KFKzFeB@rnBa1yi)LT^IsVlVu@Mtq$;Aup!roXJyHSKHus-4;?_uMCO%9fSz;$z!uccOpErPW2GwKQ= zd4TDzpzb_qU$(Ky#H(Mz)&yo9`Q`McTr!rWE|*TILYm!MJ!=5r#p6~t3D zP*Ww$#OTfSDCG51hk=EMo2g@)oS zla4y`N^`rq&3VjYQE60@ki=R#>T;PFGGuynm=%8zIcV)b zd)`x7cWKi$dr*_fFr0Cu?dPK%>U`gF>(46K$>>!Q;{r$J(u8DUBM{J(0EbOhJgeQy zmn))r9b8RgROuEu)_IhI$36 zp=fVbem47qz2)_?9ud^Pq8=GYKmpH-!@g9pXuBP{{AqT}B4@-({peyYs@}{*y#rwOw5k?$^ijg!NbA9yv}oTOPYd zVWeQ~&aME(;}yY4JSc^o#v_-ej&#o`!)pV5L1fM!i%8I@Jaq%w0c%UnioHpsn0Y4X z<`R^FiunztPXqe4w>Qt_0Hq!KS$@TeJjRYcRH!@jt{{(3JZV`-!gBm@1a5& z_mrQx%1fd9_tBTNO8fnk>tok%6-ZNATtxo<`~l#^=ha_&*D@C}b7oC-5#^7yAl?e7 z()-pT`NJ||+(0ijH#0Y!m>dX<&Is{wi3pJ1{im`8`O#J{5g?ML) z$nVP9b;bsb@nn1e-Y(Ecb-7=n0;D?LWPPBmfP0`oM8QkYWd~i3GIE3lfQqGc4YVns zX0XTp6Y|a<5S}D!Y*ccX-uKdpI&*t@nHj!jEe0A#t>BQt*=)kIDot;d-btS=u-BIH zmLEUKDl5?QnK@-db&B9@c3nYY!R;#(X5lkv3HDU>{^S3d9(vC~ewkXCWm6>}J592q zx1qYsn9oWjze}k$dpK84))mlGm0=ril!011a{0oP$#Zso9whq>gESx8N>SrNASYCa zTP+>N58VQI$oUZiw`+f@m44{()Na#6uv2D^eIc&8^A<2Z=iJ%qpB^Ur$C=qp3M*0| z0ytBRQ;YN(N6NWx^-3>PJz_^$JOVqizW1(5eoVRCED!XGS=(V-r6uu3Peo|M&rMz< zg@s7m!_WV&O!ZJFWE^NZK(smorV)myu#G|906nCXLiP=u^RHA@(pvSBRS2lqjjz+7 zoi^!h;!isrpYOZX-K(PybhOaDk#Gk}lwTvy4dNucLe~ z3(+2XlYO_>QYD#&YMD3~Lm#q?h=*^Qi&d^oa`ys1jD^c&&$@Qwt>{C4HF<2Dtgy%T zpVRVZNjM0t_c60krOcOuHYlRn^mSTYe9SbJq#Ax6=Z2RB|2c9Lr<$NGS_JBr8wOVW z&AtQvVIhN2;%yU{!lv?1CgOSOMcaECfXh1}h?%d~427SnzCl`ARpRIzL;cx#uC)JN6WYgZK#jqt|towb371( z=qtp)e(F~#np2E&`uH!;b25_OP1HH*YnJmIhr434pAe@wS2yp0&oI>#L;l?|^sb`x~zz$H8E z3I95S17jPh+F_H=bP2@zf|Swv7HL{2^2lXMkxw>$sxwcAc$z?$$Q@N@XlqW@>Ry!5 zdq95W0DaIvK>(mW);RM=Za-T3oU@wfQ+h@oyJJ0SGL}qfvoTh#+SJuV?*@A_lZlov z^>7yZlMv$BP;1q?TG1!cG%iL2Ail}6P(kSGD*JiAq({a3u%GHhN=be@A?&7n%aoq$ z`AO0wnE5Z1kd~?%&#FIpXYKSd=_OfnM*jd|$oo`0pOVEs+iqR1mHp2Ta{)m>_G{j; z(n!uj6*W7#bVCn<1|?M&iH$36&Yp#k85Vz#T9onw5%?bQ%4Yhuf3)@8Wjuis^3yUl z1-N@q3H>?8p3taP{sW4gZ6?E5(?Xp!lByerYum0_7$&Z@x;8E=%b1~aZOw>>PcK>y z$~S5PKw(@ZxDDB+x1#v+%+yb>$_n_DPqGb7&tz7gk#o(`mU9Z zwA?7!md3T>zK-j_u!)&E6Hu#-LDOUa0{!y_8^!B$Kd?VsWpn##Qn?Xfc=o@ zOlO9*OVPPLW6xi|J2d6mWdi~VIj5=D+l{NU4CVLLK{h)#Ppx98X|Ef=sK)BZ-nG>| z$e^;V0i_xv$``4<`#lhEsE62({@Zn6ENR<$8R@ z8s`KUdLd0~IZ6(5tpsZT0&HOY{ia!`X-WNS4)7SL5#%(ElD}d8X-Xoq8UA-GhV$q2 z_8%?gzmdlO+yBD(Gq9&;Y^#P!RpS=!fjjC+lod4OE99O9YpI?kqa!&_ashmIlZ3Xb zhFOiAgrtU%gybst#?#r=3gTw%?*7Wj#*N?0(V@o3#Cht$wE&A}ry&cg>UlW#VV#m=ksJ&7b=?$OR_!gb0h75KEvD4+5xzmG#Dy00}Srf6d^y>8` zA2yCEP*aE(aC!-C^mde;!r6I)^)J|+5)^~TxW&Piel{`@>&n49!OoDeRCQFOXa>VJ z8AaW#ursnn6gxW08`w1`gfgD0)8ItjkjLuLN`FSUu zy&c03UPYx5sCn_qr`xjYd)kX4+t-5(O6A;HZx>Z?kz2b7sb%u`)DX@)#HiMkJeu~{ z9MOdlP`dL{y8m1>3dp1qMLvD|n^r3QP+H_9uRvmKaU-v&)SPzm4DN>5myK+fu7

oh976yEU zAx7Ty62&A*+CvT_#Ed$+kfI`glT1u^;bZB2>LGKm_(XT zVx96G)S77G8iP(PAS66m8nkaGk*viHWYi#kx2Q^({3>zxgo;`I4G5!>nLkLC5O@|UfXeQMepS>Sizn!TDP zUi^@jMfB^)h|jMp>K2c@9~DZ^{C3jkQDfbz^&`|&ciIMTM&}1J>wJ3iq@aq^dEv>*GLEqPtPg2<^41#Q3V5D- z5ri#Wo9US@J+UR26v-DOzWRWV_&f^SJ*hLR{GuaYf=c}9>0JkThkv|4{> z{_bYQ>Pz!Tj*pFW3h%MO<4#Y^s4)Xk#Yu~kFXq%;ZgT{@#V1P04!XSi`kX{si8S*! zYk7PAQvJ7m(qP~8ukl$|Id69- z*{)m&tz8tlscbrG|G7$1;hVaS*lyQr-)ODz7#4S_w|Rn0_DF5=$}1`amxlp2O>eYr zK;UabZ^I~@xc6T~R>bow(=AQD5VLA z^1sinAL?Pa9k7zsdhXSHfo*`?c!a<3SoVeun=$##-LwlzMM@XMOXXCKFJbsDwfvBE z!|n0Y%84z)DW110+Lk2=bnU)s{5UQ7n4_tm5&b$PP5e4i_P4jNoEwvO>*FDed{xi< zh)~XL47@>M$cS$1=N%W)u)cS)JHgJ+uPo4B`!p)+d(-%Qag5yuGsa}w=@)YmyXid9 zS#c zt!<;Yu5Jd|p5DINm)PL^bya7&{^RhaDBFu@b{Od;)w#z|jq5!^!iBFijv32Cgl(?M z=Eey!gwaI43wWz}dheonvY%1EBtw*KV#hy5W#-(~p`=sRldl=JRHztmqMi+o^e;i<^ihWO~u z)$20dJ~^KF0iVxy4bsv<2kJ-bvQrPz+ufdGT-3gHflKDuJnuR4ROB?@{H2gTzH*1d z$$N^5J7)muD^>ZMP{HoxIA8u7_rZT++LvR+sGnH?-%j~WXr7H-L)bY-YJr0`D$UkC z2TnVXX?qg!lZ)w_n6=CKu>^wKL{${xh+z?dhcPE`3(jW5;Ema>RJw@gIvW-s<&|*Ll&O7%z5vf+XACG zP?YN5K5?%4hR>-TNPaoIcOk9|4TVwH<88n#&2hJHTvc5=nxz~#Xg%G|JUx7a7wxmS z^~IazM$hcelcU+YuyJQH8&g8b+;%c_R0EwLL^w z@{sR&byBi4%KPi-0l~6er~3T^8pEhArB&r;yOj;UJf|O!u2_t4PRM(6wH9EDaV4!i zGWGX*?mOcXtpXS`P*U#%>kDJtH~e1+E+FSx^KbV-sz14Bn3~--s!z`R-a)?j`KmJ8 z(Gldf_#EZhN#|qqEkw2gql?w&Z5ZU;d=S!Y*O0lV31?7acR6+HcKwj|!ky!LX0w8) z5$DlqnGfbt->dG1WX{bM-c)V8Kiah-Of?rO`-ryOtoq_v+(sl<=6$BouE5rWgEFc^ zhqxVB*EiiB`S^2UFljSN)VvKX4VpKQjx^Sm;LGD%Bs_}nQ;2wfVfLo+;sw6f9}^$Q zs;1>|7T89leCigymcJ*;cX5|V%9nFmEc$iF?JQVm=cPw8p&VP?XQFHP$sY`_u*^SE zb$`pTHF9Q9t8^yx{-}!Q!lhc3`x=9OY&@}0(+}L-PJq{C>Gm>R(Coj{Er3^3^>u*-6 z|FiZaXXT;2aAr5^?CX}GZ`S;KuVVP1)`tzs-m%tG>R-nZGy`xoyc>d7z!GLu7Fnn|5Zp4B1`HO}= zy0+2#1w$e&+;TQ~bTu3sQmZ!)|}YacLXm>wQOu@INzf5G5`(yWwnkEO~OuVz`S zQHOc;e5bF=)iK`NhQ;N-Pa~;?)I<+(_F0X4X%}I!C_S&}mcsUL*i33kUAl+8%^C4* zON^-s(RJ>D>EI;>BnGT+hR_I@oqNvZUKgl6+@ zKkHYYPEw^OlCLkuX|Z^QU^)Da1U{d48rt@b?M^3EePqLQ?@W5}Cxz4p zJ*Lr57ay`z{cw{q59i|8Who<7Zebr5a8V2+bL)IZ=B5w={sxh`sk|i&Jipw3!uIw2 z%fQkG61R9#+h-M<{psV{_|7>X9k zHl^BrPWx$}_<6tc>Th*<_J|O~2I-cxwd(GnfNG@8UDijD2_xNR)dXI%2c51}RZnu> z3o6-bD0HzI2-iWxQ5=gS^dCsS9Jp5;nSQt)HJ*wV*+rCm3>B$W_BBt;NrXpj^{Lb^j>80l0>Iz&Q$59oUZUcbM!?)~@PGwaNH zW}W@{oO;ea`|M}WjKMwdJ()f83I}mw5hgWEr3PD7cjX~nOBp9&bt0oJXc|1C5U*WA zw3=m6D~rBs|7%umG;WK?a%s9!sw;E z90oXJaQjJn8XN{}n$3{OQV`d1Ze9>*n!>2ZedMN%1?2EC;L=H(PNGAD9%n>@9^+Rw zQ3`R^hC~5bvPFZwgIpmP@<1V&@NA||T%l}MxXvysEy^Awb&_+t$hfFTJ7$3#<*5Cb z9{`_X{fC_%qeJ7-9^?$^iwZ2x|0#0ve}wei%~_>iQj1$I3EjJ+Mm+d&Jy|zbD|Oqr zU`f5T@pXq$VzK#c$@NgyukCq$;zOY5ofh6_4p)LzxHTy4w3jP4>Cp!bdr}McA2y_C zQ2Ie7T_8)CXq&a{AV~^#>>+K{eHEj447mx#RK#)&-LlwXcx@F^!X>r+fWqz0O+Eq% zYP9KE-VAJ7aMMA0ISc-sF|rIH>Fnv+wtVcH7r!-|-CiFgu7AhndqZ7qVCl(i|30gy z;D)Yj8c6ebXF%b?eSNmtZ;z$WWWNw52GlV7)J;Em%d?|3K(G2YJ! z!OFJdgoY7C$GF5bdNGcAcKm z7yJiywroE;E)Rm2tAT4fQ^}-4+;qDwiH`f4Z2)5~^KCElayWfN zejJ?+^L(X^B5QX9Z>+dLgF3hy3nCH8>tWih{vf0qXmHCNWkc;KcWr?SaW)3!=5VkM z*N$dnUYu7BP-2QaZG65M^4S=lbS2eS_%#8mOp0Mz1oi03KiHSZ_h3^!@bP?^?W5&mn&$bfa z?Lb!T z^0KOepnDR8_K%4V*b&Vk*VE%)jU>vi^e|v%tPXYbTDK_MAT9Z?S0x(J=6NUED5MPS z3Zq13ydqa%d#}?EKKlumh=}eR?|4WLbQvS2`6V$@3co#$7S|&zEJzLd@p;%Lf76`7 z2=d8Oo_4j0e2^Hi9AzLyW7eD;xmqjxf??2K+ZOR87@FeCrBAIGRZROW+HtId+1Pq) zl=r^=hRj~9kirBare8Lh-P*pwB|4b@ghCQMq}^gp=Xg$CY{h!M0HeQVm;nB+&MqpP37J~|SM*`#00xFp}ImGSh> ztM5uTdfIRHbRODc6MjS(TsJEH>a&*L)vAK`RE>o_Gg`nc9hvfj zB&eXbGbi@7Y*D=1(qOo#mcyE|0Ap`1c(0THg0)UaL|Wq>Y5N<~Lo0a%B>tc?mO=58 zwdB^M2os_-LuM^zzHj1lprvfee3NRp9tLLdfy(t;cdIcFVy^cjXpFYh<5GrE93Njd zEOe?^V&eS>+nUNFO8}Rwgv-fqzBxe9kV;plp^;D+H5lJhyhE!kqcL8{{v_Qn!v=E6 zWWk3!xAxUjG9>78Gkv5-qnkZ4In-k1!IIf`yI{kVIYT|!V2gEvHDV1I6!|tr&MMF< zeP)=UYUb#>RM-#{X2;H8>bUE`U>t(HQ3o+ML8|?S;7`qqi%Ba$qR8yjHOvb?93~+Nf_ZasW4(=#{Er%A{G249WCMNlZ5)CJF3rFY1*%9cP~)VAV=93 zZ8_dwe|r~(5IV>OqwaAFc;j}8XVfzHnqu4!`n*vegc3J?>^`8Sfz{R?&-re(b8-!h zQJo`VCyC+qu4FHa^IbC@xvs5pQX$$7|UOdm`jA-|oDji;96cqpSEDtq1q0lnCdfuw+rSyz%ivU(ytKX&eZ%OJKwQ~}n z4AOOi+9cV#q_lT*sLYQ}4=`k$C(0n(A9~rF05M?gZ<9Po+U> zlU;rec{6K!$)sD6hMFrEpNTUEj*xnz{AKZDI(rgtx~BCAonV0#C;P;+9N8Y0nV))V zc%-CYHV^IGRyEX?tI`pYVP+z!Ez)%K)woBoeY{n&a=x&ep|z0s&rMS|U*DV_mtF*c zd9x{lSD|J9zW==v%}J(!xO`VmY0}m)L_vxfbh&7}El=p9W~S#I+bp-AG)b*G$=<=4@7Oy}m(B!&q|pJA|Nr#z zS-njoFK)GkYc59|Yw&_Av?y;G@`V0v;7UYfv3qKx>bN88hT^TssE&cq z#1i*yX;BWkN#3?Tc9gX!mWQu(J5328Vr6cQ6Q>AY6*((29Bjs#f&0<3T3%4sWy5$Ygn;^mK9L=(Ciy6rjkp4hE>jM|ez7mN`DUxx! zal(_)?53nT>YJX)?4W6%dOnZ_XZhGRtlw_k3HU*g zyUa%!df!(`k;jgce-9r?oX_qq;B=w63<41W5+_eJ>|9}{7EZu(jpKoX#~Ip<^5XhW zVt&OBp~WlC{%9w00RDh0#AIrBjh&o?*H!lmif zb7iWi3EFk6>!_PT%<~Xu zXhczOJZ?#ky4*UMFMdTmIFx`u={CnZjb3#4r3g`fHWP8>D$Cg6Ade3v&Bfb-T^5nW z-i{A;4D5|`xKblKwjZ?^Dd^L9Nq&3S$Xb+}YwI51n<7BKHsrvBMZ_bbNl`sBb!AW; zWI;$GI+a?)@yNbv{n9Fqheb+#lW(W2gP?vxW@8FEr82@E&Tu1eW>Je!ytlsu+hwq?u2HcRpMNQ6<9%0#jNw5jrC;h zmrM?q1;~@12O95dg5?bPO0yoM<=Ci`Q{zdfUh+FQvOy1PZmH)c`S^jF;_djnf_GE1 z686Sd;=FWOVcu}KeZg=yIj2r6Z(QfC>-X5qUb&R4LRklmU2BHE*P)F+&%qCT_&DKC#&etoINtP!t*BI)Wych+?+7%D%+ibhvVpf)0IIj z&-$u?DWw8tmiS*=&3|i`$&acJYv3i3d&pdUBuGuhfGEIPQj%T3txUL`RQvYPTuqFa z+|LPKT)%qGwRaBO6%!HxI_?qed_wEGv1!jZ37%$Ns;zrUOR27ii`ODxg5FdFTdrN& zyUN9ae67H7&1G}@-H%~Ix8`!uNBbA8i21uzsK+6tH*i%q3A3w}a+W9)Z;&8=`* zNUP~S+s%GGJ_J6ZhNc>ixT9P0s}7(@F2UXqZt_^*=BCS>$KMKJm& z>R0zSnRDyAp~^8~LH%Vr%aa7^4mV0gI}Tp5hE_0T`09G-^WMG7E+r;QrVA)se)!0+!L^G6-C4_;S2bYA=6MMpicRl&mRSUsv2;6Boj4bN zt0T4xsZiRKv>~K_0Uw)UiinE1i*F3ecbxL0BAdsXK}xN%3-x>?>H$ty2mEIQmOsSq zevwK(WKdqj2iv6^ej4!R@OG#ez4$&`ZuyAq$IIK3BWgPco2nWA64~`niaJul!gO1% zh%Jn7Ye}(`_Y3)lONn-#?_?$)iH!PN7jr{xxD#AU_vM|iO?@ise_AB*q3aKi+3ZT` z!zJB&-bHsjYP)$8Qv%QTCYd?8q(pO&&rUzSl4>)J2>LWKxT$r&YL3y%(@>?aoJVZG z@JnyQX4!6C3-6}lLTCYB7m=*S!=lXz7GZjIZM{hR%$jWz-j!ht^t(rlr7~( zbP}SIFD0wqkA2<=Bw2Vx(OC|b-xGU6sP)ds0l1vBdS2=m1XV-^;1qn~9pR%iH1<7o zct_1y&dwEZ@PfL{hrFP(guJP^8>OP@U3fY3zGF@#oLQxtJ#KIe7FKG|84%~wbCJiL zPceow*St$#d)ukqc~^IyvR!*|Eeek~E&GMxR>Latt-Z#mO(`UzC$ZeYk}cpB+(5iz zs*Hun)2{xTUcB=&n(3Hmst=zvhPFl~F_3O;9eZ^LifM(l6fPHuj5?HbNE~K0GlS zQs&=VW2u3-QEmwd#a)jqipJQAQQ~&<&ifdXTcp0uZ@jkhZO~!<{=E{Pip0S&M9>`i`5NUqzDM#ScWZGh;O zJ$&w$+D7ifGTS~UHFt@##?M`w(P@L|ie$6&{EDo^BmM4Z>6j}Hx5T4(M;wau?N;hq z(8e{*ws$X5am$S@yrc^Kmay%ONj1@LpA0ea`$*KfJs$!dVkD2eI*TcowhtyVtrbz1vnLfjL{tqoy{(g@mhN2GEz4Ei;+mWab^P zvQb`frElaB+EL1~Ef+)YHbWtSqw&Jch6kA&#@h@c+CBB9Rx=GdH1zBSJpJ6<6R1F@ zVMhZvhAEwI*)^g$S0cZ#QIrWJ=lY-3-M?X%OD~Sq0u8 z-ArPW7|3I#vF$~Lhj7JY>ZJkh_xDJ0e)hr@zpwrnPBJHWBv^$==;e?0*Scq0p&Mqb z7Nuh>cT=NE5A0Gzf=TCCw|}@;$fcj{cQe8#hA8tIdx2gUETUFLOH;on#&V(Fv8evO z#T@Jt{BFpk=tD%G7lkV#@@c3`v_&vE-!vl$6kITchU^IluaUsJpYZtU+mV6jA-|v@ z(`;X9pD@J@<$(NrY+38G(tqi&nG@?wui!F26s`~qY?>nMFVhgkQ!lI)~ zHX~$s@t)K2xfHE)66JN+Q-(_44N*L_CMx7!tRFA+9u8xL4|#)8aIW`b_V!`Tu5sf= z-!^cT8)axml^X|G`+GXKHmH+4wk_XG(0Y{~g&$xaA)F)m(tYRW#fDrL@;&;my|S&R z^jhq34T;B**MBWdqwp^L8eNyJ`#(etwwd@*OC-e>fwXB^KakEh1m&x4IO z`+WIF;?lI`NS^h_Ce%gDSb=k2)!y&_)h=Onve>-{s5jubIf(G|7Hs0+@P9k-@!tC@ zz0|6A0+f7>d*;unkK$NFA@B$X7DDh1*ac!0r>^WxuwXHBWSL3Yyr29}7RjMN4!yg$-*&k;+2E;c2FK(58Z{{r##K-oZGS5{A}s!zO}s* zEcPMmz>~GSlDN8^?1@|=Yn6Yc@^r}KU;~-Q-T^2nF}+kGNm1hJ5Yv)qBX%bH*>FGO z^{Zq$J)iXynNYL(1=V=MjSq~I z-7F-$;oaqhSy{%p0Fml|l``R>BTaL>r^FnZ)^tAkPwm?1y9Ac-e$u~1UDdbFMhrQ% z(75bE4R=*%rc3HN)S%OF`V7y&w#E4(rzbVs?sMH;v-fQeqrf7{tfYAJ1K-nXunLHa z;Sjjsu;sPeQeD}ksqs6D#-$i?`NDXDJ((D~FQ9WViZeCV_k4m-UKv zfeTQ7|Acj_jD=Ho0!q;g=h&z}pY&w_E5X9f#aP?Z!NS?_cr~djpCzD)23M>BI8|T; z0#1}u2?GNJ`gJ}$IToG=+M^+8t$>;}f%sCYQ!o&S2?#SiQO>{6fJyBN0~&E$`(K&7 z7N&=FC_tbgEVPr*)IVh1*uR-hbDVET5v_zg7-)Sv&=A5uSl~*F@i*Mk-rmK+N#Jk& zFX5?sM+7*RggDNllbO$;`TvG?&M<$#4|F#ckUd-XsNiq(0}B#Y%LKjfu4QUNXR z{8!6G#m=Bl4rk~4UF9|ORRloC0E2WK(fcO_OZ-M#*qPe_JwFLEIuCy{uQ78CfF}U( zW7pZAv@CV14@qCOp2xdp=C3-> zb=J>unv41CX|7`j`>7fIqf^iN1Wps&SOJ0lG)Y83RCwCdS$lL8=XJlcGqbZV?L)5> z5+Jlf!aRixR6@vzhf;$9JJ<+QH#MO>f!JwM9H+HQY@g&bNpZoc>(n_3P{;NuDYgRC z1{)AUE|!plCGj#s4hSSbCUBxbF{}AA&#TjcFMPK<$tZ7N_c9&?ABf z3aIXbJc8HLbSzYNxqhB!;ZD!DYX8l{hvEOrrZRFgr0W zjA}436byKUE&i~wG+E1n9_NS~MNu!IDQIWO1Mt@tJC2@9*uUSooeA^A&52flR-QO6 z4rJ0iJ7eeeCY<|iG{TC4e~^=erjD=}jV;5{0C+)}!b4g$4dVeRPZ1+v56OiZ1g~YM zWCVFJ8~L4d-i3Bx(lHrRjn;xzfks~L<=FKDu`w^jtR>-IGWI|WV0?}xXas2Wr18Xw zl?>SbG`-sAm!_n3 zdF%!5*%U>2IUzFf>*NJrkNuua7=9qZ5%D>R1A55Zc)taIEeYc*W7p&7EU`I>^{C>b z!WdCKMwUcu$R~gxMSxRLz*2XOLsR4k4Elw2pjLsz%dAgO)>$*%-6Qqu`LFwG6tq120reLow4Wk#GY%5or^k*NqiDbO+@tSXb_60 zC1K90!4VJvF#=)-HL@TmN7!D!R0b^i3dQR3?ck%!GL!x@qEM5iE*_P*hs(c$($$jy zTP7XHDIIs(k{EzHEJDU?Md$5G09zijZ^Rr|9tVC8VB$uSRxw>&&_xr4AILl1-o zL5z5so`#xRo=t*R)B!1DNb7#T@I*4FdM;I`L;Mk#1SB5aM8ID~>BPK*SPt(^pfuUK zCpoMlrWGH?_Ls&$?~DQbFg8zROc(Br@LkX(cnS~&*Dy5j2$n&*YSHX|=}CwK;~2O- z9-7wV2$ZbJG1vS2;mLqqlSJkYrKgDS-UJ%AOrZz1m{lhTnk5D<&Zg!B7FAD5jp)40 zR7#`7=&fT^P(SF8=JGn535LA_b$K+j2E7mq&&1&RA>YOnEnV-NsK;^f=}GvF?>nXd zGnG?bj#2aVg#2{Hj$5XnJ9*}=ggifhEb2kWE=^!e3!bZF?pLH`tj#*iRSlvKpbERh zur?@#r$xPSr*%<5w?`<($zU`j6S}q}ywvMch|$;GS|;7&N{H-KV_K%D29xIi)%~8R zMX+g@t46H7-7X$3*#p~wuvtajqja8-G(RLO`6T!Mp<(EcyS1Erf<%--HI^`kT|wFA z5rmb!E`E(8B&{6xOW7#ZL}~8cfX4wTlKzwWp$@F!m-EeB%@w=9D$A&@^@tJlg90Yh z0-qR;3ZEz|Sm%vI?eDGeEQg&Q15Nv1grTlZ*tq#A=kqD)dbyoN$H?B)xH$AX2x(l45|%xJ2P zJ%{t2oSV#@#~MFK%9;ylPa{JjI0sElDrC`P>cK`Bou1J?68vUEukSC~ouT5e9Eq(R zs0kpb#Q)H#kvMuW2G6TC(;13H7%qBkHp@dU+CzGPRA)CxJ`X4~``{vssp`xyaz`FXF&-f= zD#%J!uUl9(=o2%H4tht_R(VVkr*`p~Y zL!C~`DUuKbyVD25JO$-!2=Z7rq|jl!l>(!Qf)4u-9OnfL1O4Ct6TuZR8cxhDH6}DR z8bkBbb%*DqXb;nrq8avzkBsx-KSjE)#hfk-lgQDkMC}K9LeX6oJyY{=hW=c-)%v*# zl-31$5!`|d?YCVJ7?(h0Fk&Ir!*b3KkLmn)EexIr8_gJXgaR3(PO0d79r_?unmk9u zNQERh`kSg}_`Foz*(Dr(c1flldR;5c3Kj7qlVK)I5p>SjyoX`2u4BZ^?G2j^tjy~n-M;hH1>cJR z#7+uAq0nNN%Prw?YjUy$WOSg*<%HqkVUr*VRJ<%vl!{za-M7;sQ6`{^Fd~HeDh2p+ z1HM~!C!YgadcrND41bcLuPwHvfZY2ToIm#-%*e^1_q_3&8~&f}%Z{M@DhlP+>9of| zZ`wT&2zy7bwNgLc^J;TzYwJVB#l=t0oH^rT;=>iC%ONW(3!0l+iVq$t-4T8gW@h7HPFpN0^ERPKmCZlC={HAe00>+Ks%PDwf9@%prFZ5{QY zU?@8^E$y7k=}dQfoePg0JN|Cg^sM*i&0COq`pg*vnPYm^OoxWkFk@q5j8>~@W2OR2 zzHbrc=9;*uICnYuD5XQ_rF^sI4|QsKSG4qCe{C|Tdo0GJOZ`LRpc?4|bCMYbF5g%u z$RX^I*1TU<_Q>`tm#;orTUU3wtFvoG&Dk1GltkpC0tJf~T`eeBWGA^dGkYfV_w^g9 z&Qw>C7u~%1saMypU-z?>D_6q%@4f%*{{3&fS9hV|?XBCMKH_kUJlt`!ExWj=#PQ5C z&y;+SMj{DfRM{e{?xXw+GlWO&5O55DHzYz&ch5%h(yLdm zI$Ts-ge_kB=a`Ftw1oNd=gCN|r4c0z+1c60oh}zRMn-_-aQ%h)RmcQx?wom-wpMKU z8AcFZeBnoM^5iEUuvnWp4VPR|Q311NWe<|~z0ulcZTjMizs<-_=> zc(gXBYMC>nyl6dkNKZC{B!{)5qoYMyjSl-;z2jWy`kRDhQNTodNJI%sZ~MgP z*Gl#)dfG7NTZ)D`MfRub*h}bnKHzqNRV9NVB?IYMTgqccm71D1K6n0HhsW*l;{M6j z>(|~gnT&pUb&{6K7DG>7mXLc^Z2HXJ41Y^ zAjtdRx#xfMou;PdstXq`M6r3?ZcKq2SZNR}S*nqhk^$-3;})UUBf_9hn$m8J@p!vx zfYvgKnWHZQRyLI^MVFOgScZXtfz{zi7?zh5{oQ{YIlSQ8JGPey0{@GJiwgW3Hf{tg zHLFPe=H=&KSW!}%hC-6y!+EVdtNbhclD_L`Im2gxAN$R z+h^PI#Dc?uk&C0e3@kSMdNm7UScLPmxawr$%6`E&B%(7{80PUdKAX#7EO(efYgJP#hP2cCca zxkoo_-0*ho`MQ6-bh)`m#~IvMuB0!T8>1_Utxs<)x7l)}fBgAg@+oKb(BSYJzk2i6 zuVUk223&EiTv_%*`>=z#{^j-cDt!KllOJ6tyw!3B2nl}Jwd=c^R+N^UWN^ubBE&>L z)`g?1BkF%&3L!1l%rd@qeT?S?NrZ=u068<~z(8Y5c8KTO=g(bWPf1DX?m!{IGJ&n1 z7O=^Hy1F_FBkG%G&ANo8NP}SY*j6eiaB^W`VJGH3q+8S0sZ`ci@Omj>_pF(=`WZ83 z>_Y*p?e6M^$2P2ga>Oz6QbXg#r!h|p1c@J9UQ&GMt+(F%&6zV*a{>W>t0g&^Pq(J0 s(khx3M3JJIOuscFqftOT`ELOR0DEUNC01fs=>Px#07*qoM6N<$f{JXtZU6uP literal 0 HcmV?d00001 diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 3fd8eee6..da7a7146 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -638,6 +638,12 @@ Component + + usrCntlSDLLeistungenPLOSE_MEDPASS.vb + + + UserControl + True True @@ -2847,6 +2853,9 @@ rptPLOSE_CustomerConsortio.vb + + usrCntlSDLLeistungenPLOSE_MEDPASS.vb + rptKontrolleLKW_TELOTEC.vb @@ -3882,6 +3891,9 @@ Always + + Always + Always @@ -4281,6 +4293,7 @@ + diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index 9c537f41..3dc6d78d 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -666,14 +666,14 @@ Public Class cVorauskasseOptions 'Wenn Benutzer der Vorauskasse nicht online, dann Benutzer der Sendung... If vk_QS_SachbearbeiterId IsNot Nothing Then sendToID = vk_QS_SachbearbeiterId - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO") art = "B" End If End If 'Wenn Benutzer der Sendung nicht online, dann Benutzer der Sendung .. - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO") art = "B" End If @@ -682,7 +682,7 @@ Public Class cVorauskasseOptions Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' --> Bezieht sich auf BU MA Case "IMEX" ' Bie IMEX kommen die MA durhc verschobene Dienstzeiten oft später Case Else - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO") art = "T" End If diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 6f642b6b..6e590ff9 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -26,12 +26,22 @@ Partial Class frmKundenblatt 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt)) Me.pnlInfo = New System.Windows.Forms.Panel() Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.Label17 = New System.Windows.Forms.Label() @@ -79,9 +89,6 @@ Partial Class frmKundenblatt Me.Panel5 = New System.Windows.Forms.Panel() Me.Label35 = New System.Windows.Forms.Label() Me.flpSDLDok = New System.Windows.Forms.FlowLayoutPanel() - Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label34 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() @@ -92,24 +99,18 @@ Partial Class frmKundenblatt Me.Label33 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() - Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.lblAenderungsdatum_SDL = New System.Windows.Forms.Label() Me.lblErfassungsdatum_SDL = New System.Windows.Forms.Label() Me.grpMautDE = New System.Windows.Forms.GroupBox() Me.Button15 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() - Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMautDEFlottenPIN = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() - Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -128,19 +129,10 @@ Partial Class frmKundenblatt Me.Panel3 = New System.Windows.Forms.Panel() Me.tbDokumente = New System.Windows.Forms.TabPage() Me.Label7 = New System.Windows.Forms.Label() - Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() - Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -160,11 +152,30 @@ Partial Class frmKundenblatt Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() Me.lblINAKTIV = New System.Windows.Forms.Label() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.tbiLeistungen = New System.Windows.Forms.ToolStripMenuItem() Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() + Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -236,7 +247,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 642) + Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 676) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -246,19 +257,9 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1617, 636) + Me.Panel4.Size = New System.Drawing.Size(1617, 670) Me.Panel4.TabIndex = 0 ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1617, 636) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -273,7 +274,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1631, 671) + Me.tbcntrMain.Size = New System.Drawing.Size(1631, 705) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -306,7 +307,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1623, 642) + Me.tbAllgemein.Size = New System.Drawing.Size(1623, 676) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -322,10 +323,34 @@ Partial Class frmKundenblatt 'dgvOfferte ' Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvOfferte.Location = New System.Drawing.Point(433, 37) Me.dgvOfferte.Name = "dgvOfferte" Me.dgvOfferte.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOfferte.Size = New System.Drawing.Size(293, 320) Me.dgvOfferte.TabIndex = 12 ' @@ -589,19 +614,35 @@ Partial Class frmKundenblatt Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvSperrliste.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.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.Color.Black - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle1 + 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.Color.Black + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36) Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True - Me.dgvSperrliste.Size = New System.Drawing.Size(828, 532) + 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.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + Me.dgvSperrliste.Size = New System.Drawing.Size(828, 566) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -655,7 +696,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1623, 642) + Me.tbZoll.Size = New System.Drawing.Size(1623, 676) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -667,7 +708,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 636) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 670) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -675,7 +716,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 610) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 644) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -686,7 +727,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1623, 642) + Me.tbMdm.Size = New System.Drawing.Size(1623, 676) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -704,7 +745,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1617, 636) + Me.tbcntrMDM.Size = New System.Drawing.Size(1617, 670) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -716,7 +757,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1609, 610) + Me.tbSDL.Size = New System.Drawing.Size(1609, 644) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -725,16 +766,40 @@ Partial Class frmKundenblatt ' Me.dgvSDLLeistungenFull.AllowUserToAddRows = False Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window + 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.ControlText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle9 Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50) Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull" Me.dgvSDLLeistungenFull.ReadOnly = True + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control + 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.WindowText + DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1603, 414) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1603, 448) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -838,7 +903,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 464) + Me.Panel5.Location = New System.Drawing.Point(3, 498) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1603, 143) Me.Panel5.TabIndex = 177 @@ -864,67 +929,6 @@ Partial Class frmKundenblatt Me.flpSDLDok.Size = New System.Drawing.Size(158, 125) Me.flpSDLDok.TabIndex = 176 ' - 'scanErstbestellung - ' - Me.scanErstbestellung._ARCHIV = True - Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" - Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing - Me.scanErstbestellung._MULTI_FILES = True - Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" - Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanErstbestellung.BackColor = System.Drawing.Color.White - Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) - Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) - Me.scanErstbestellung.Name = "scanErstbestellung" - Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) - Me.scanErstbestellung.TabIndex = 172 - ' - 'scanJaraVereinbarung - ' - Me.scanJaraVereinbarung._ARCHIV = True - Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" - Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing - Me.scanJaraVereinbarung._MULTI_FILES = True - Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" - Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White - Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) - Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) - Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" - Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) - Me.scanJaraVereinbarung.TabIndex = 173 - ' - 'scanMWSTAgreement - ' - Me.scanMWSTAgreement._ARCHIV = True - Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" - Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing - Me.scanMWSTAgreement._MULTI_FILES = True - Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" - Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White - Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) - Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) - Me.scanMWSTAgreement.Name = "scanMWSTAgreement" - Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) - Me.scanMWSTAgreement.TabIndex = 174 - Me.scanMWSTAgreement.Visible = False - ' 'Label34 ' Me.Label34.AutoSize = True @@ -1024,25 +1028,6 @@ Partial Class frmKundenblatt Me.Label32.TabIndex = 13 Me.Label32.Text = "Letzter Sachbearbeiter:" ' - 'scanSDLSonst - ' - Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" - Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" - Me.scanSDLSonst._OPEN_ORIGINAL = False - Me.scanSDLSonst._TYPE = "PDF" - Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSDLSonst.BackColor = System.Drawing.Color.White - Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) - Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) - Me.scanSDLSonst.Name = "scanSDLSonst" - Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) - Me.scanSDLSonst.TabIndex = 173 - ' 'lblAenderungsdatum_SDL ' Me.lblAenderungsdatum_SDL.AutoSize = True @@ -1099,29 +1084,6 @@ Partial Class frmKundenblatt Me.Label1.TabIndex = 19 Me.Label1.Text = "Benutzer-Nr:" ' - 'txtMautDE_BenutzerNr - ' - Me.txtMautDE_BenutzerNr._DateTimeOnly = False - Me.txtMautDE_BenutzerNr._numbersOnly = True - Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" - Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True - Me.txtMautDE_BenutzerNr._Prozent = False - Me.txtMautDE_BenutzerNr._ShortDateNew = False - Me.txtMautDE_BenutzerNr._ShortDateOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False - Me.txtMautDE_BenutzerNr._value = "" - Me.txtMautDE_BenutzerNr._Waehrung = False - Me.txtMautDE_BenutzerNr._WaehrungZeichen = True - Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) - Me.txtMautDE_BenutzerNr.MaxLineLength = -1 - Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" - Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing - Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" - Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) - Me.txtMautDE_BenutzerNr.TabIndex = 18 - ' 'lblMautDEFlottenPIN ' Me.lblMautDEFlottenPIN.AutoSize = True @@ -1140,52 +1102,6 @@ Partial Class frmKundenblatt Me.Label6.TabIndex = 17 Me.Label6.Text = "Master-PIN:" ' - 'txtMautDE_FlottenPIN - ' - Me.txtMautDE_FlottenPIN._DateTimeOnly = False - Me.txtMautDE_FlottenPIN._numbersOnly = True - Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" - Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True - Me.txtMautDE_FlottenPIN._Prozent = False - Me.txtMautDE_FlottenPIN._ShortDateNew = False - Me.txtMautDE_FlottenPIN._ShortDateOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False - Me.txtMautDE_FlottenPIN._value = "" - Me.txtMautDE_FlottenPIN._Waehrung = False - Me.txtMautDE_FlottenPIN._WaehrungZeichen = True - Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) - Me.txtMautDE_FlottenPIN.MaxLineLength = -1 - Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" - Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" - Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDE_FlottenPIN.TabIndex = 14 - ' - 'txtMautDEMasterPIN - ' - Me.txtMautDEMasterPIN._DateTimeOnly = False - Me.txtMautDEMasterPIN._numbersOnly = True - Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" - Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True - Me.txtMautDEMasterPIN._Prozent = False - Me.txtMautDEMasterPIN._ShortDateNew = False - Me.txtMautDEMasterPIN._ShortDateOnly = False - Me.txtMautDEMasterPIN._TimeOnly = False - Me.txtMautDEMasterPIN._TimeOnly_Seconds = False - Me.txtMautDEMasterPIN._value = "" - Me.txtMautDEMasterPIN._Waehrung = False - Me.txtMautDEMasterPIN._WaehrungZeichen = True - Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) - Me.txtMautDEMasterPIN.MaxLineLength = -1 - Me.txtMautDEMasterPIN.MaxLines_Warning = "" - Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" - Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDEMasterPIN.TabIndex = 16 - ' 'lblLetzterSA_SDL ' Me.lblLetzterSA_SDL.AutoSize = True @@ -1211,21 +1127,11 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) + Me.tbSDLKarten.Size = New System.Drawing.Size(1609, 644) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) - Me.usrcntlKarten.TabIndex = 0 - ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1233,7 +1139,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(178, 39) + Me.tbLKW.Size = New System.Drawing.Size(1609, 644) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1245,22 +1151,9 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) + Me.pnlLKWRight.Size = New System.Drawing.Size(1297, 638) Me.pnlLKWRight.TabIndex = 2 ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) - Me.UsrCntlLKW1.TabIndex = 0 - ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1269,24 +1162,48 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 33) + Me.pnlLKW.Size = New System.Drawing.Size(306, 638) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW ' Me.dgvLKW.AllowUserToAddRows = False Me.dgvLKW.AllowUserToDeleteRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvLKW.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.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvLKW.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.dgvLKW.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvLKW.Location = New System.Drawing.Point(0, 62) Me.dgvLKW.Name = "dgvLKW" Me.dgvLKW.ReadOnly = True + DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 0) + Me.dgvLKW.Size = New System.Drawing.Size(306, 464) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1298,7 +1215,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 526) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1439,7 +1356,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) + Me.tbVERAGCard.Size = New System.Drawing.Size(1609, 644) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1451,16 +1368,16 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(172, 33) + Me.Panel3.Size = New System.Drawing.Size(1603, 638) Me.Panel3.TabIndex = 0 ' 'tbDokumente ' Me.tbDokumente.Controls.Add(Me.Label7) - Me.tbDokumente.Controls.Add(Me.scanUebernahmebestätigungen) - Me.tbDokumente.Controls.Add(Me.scanHKA) Me.tbDokumente.Controls.Add(Me.Label3) Me.tbDokumente.Controls.Add(Me.lblSonstigeDokumente) + Me.tbDokumente.Controls.Add(Me.scanUebernahmebestätigungen) + Me.tbDokumente.Controls.Add(Me.scanHKA) Me.tbDokumente.Controls.Add(Me.scanSonstiges) Me.tbDokumente.Controls.Add(Me.scanEULizenz) Me.tbDokumente.Controls.Add(Me.scanHRA) @@ -1469,7 +1386,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(178, 39) + Me.tbDokumente.Size = New System.Drawing.Size(1609, 644) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1484,45 +1401,6 @@ Partial Class frmKundenblatt Me.Label7.TabIndex = 6 Me.Label7.Text = "Übernahmebestätigungen:" ' - 'scanUebernahmebestätigungen - ' - Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" - Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False - Me.scanUebernahmebestätigungen._TYPE = "PDF" - Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White - Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) - Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) - Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" - Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) - Me.scanUebernahmebestätigungen.TabIndex = 5 - ' - 'scanHKA - ' - Me.scanHKA._ARCHIV = True - Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHKA._DATENSERVER_ORDNER = "MDM" - Me.scanHKA._DATENSERVER_UOrdner1 = Nothing - Me.scanHKA._DATENSERVER_UOrdner2 = Nothing - Me.scanHKA._DATENSERVER_UOrdner3 = Nothing - Me.scanHKA._MULTI_FILES = True - Me.scanHKA._TEXT_PDF = "Handelskammerauszug" - Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHKA.BackColor = System.Drawing.Color.White - Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHKA.Location = New System.Drawing.Point(17, 163) - Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHKA.Name = "scanHKA" - Me.scanHKA.Size = New System.Drawing.Size(168, 24) - Me.scanHKA.TabIndex = 4 - ' 'Label3 ' Me.Label3.AutoSize = True @@ -1543,131 +1421,12 @@ Partial Class frmKundenblatt Me.lblSonstigeDokumente.TabIndex = 2 Me.lblSonstigeDokumente.Text = "Sonstige Dokumente" ' - 'scanSonstiges - ' - Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" - Me.scanSonstiges._DATENSERVER_UOrdner1 = "" - Me.scanSonstiges._DATENSERVER_UOrdner2 = "" - Me.scanSonstiges._DATENSERVER_UOrdner3 = "" - Me.scanSonstiges._OPEN_ORIGINAL = False - Me.scanSonstiges._TYPE = "PDF" - Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSonstiges.BackColor = System.Drawing.Color.White - Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) - Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) - Me.scanSonstiges.Name = "scanSonstiges" - Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) - Me.scanSonstiges.TabIndex = 1 - ' - 'scanEULizenz - ' - Me.scanEULizenz._ARCHIV = True - Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" - Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing - Me.scanEULizenz._MULTI_FILES = True - Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" - Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanEULizenz.BackColor = System.Drawing.Color.White - Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default - Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) - Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanEULizenz.Name = "scanEULizenz" - Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) - Me.scanEULizenz.TabIndex = 0 - ' - 'scanHRA - ' - Me.scanHRA._ARCHIV = True - Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHRA._DATENSERVER_ORDNER = "MDM" - Me.scanHRA._DATENSERVER_UOrdner1 = Nothing - Me.scanHRA._DATENSERVER_UOrdner2 = Nothing - Me.scanHRA._DATENSERVER_UOrdner3 = Nothing - Me.scanHRA._MULTI_FILES = True - Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" - Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHRA.BackColor = System.Drawing.Color.White - Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHRA.Location = New System.Drawing.Point(17, 133) - Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHRA.Name = "scanHRA" - Me.scanHRA.Size = New System.Drawing.Size(168, 24) - Me.scanHRA.TabIndex = 0 - ' - 'scanPersonalAusweisGF - ' - Me.scanPersonalAusweisGF._ARCHIV = True - Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing - Me.scanPersonalAusweisGF._MULTI_FILES = True - Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" - Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White - Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default - Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) - Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" - Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) - Me.scanPersonalAusweisGF.TabIndex = 0 - ' - 'scanBankGarantie - ' - Me.scanBankGarantie._ARCHIV = True - Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" - Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing - Me.scanBankGarantie._MULTI_FILES = True - Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" - Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanBankGarantie.BackColor = System.Drawing.Color.White - Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default - Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) - Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanBankGarantie.Name = "scanBankGarantie" - Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) - Me.scanBankGarantie.TabIndex = 0 - ' - 'scanVertragVeragKd - ' - Me.scanVertragVeragKd._ARCHIV = True - Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" - Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing - Me.scanVertragVeragKd._MULTI_FILES = True - Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" - Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White - Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default - Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) - Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanVertragVeragKd.Name = "scanVertragVeragKd" - Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) - Me.scanVertragVeragKd.TabIndex = 0 - ' 'tbBesuchsberichte ' Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(1609, 644) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -1678,21 +1437,11 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1623, 642) + Me.tbOfferte.Size = New System.Drawing.Size(1623, 676) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1623, 642) - Me.UsrCntlOfferte1.TabIndex = 0 - ' 'cntxtExcel ' Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) @@ -1894,6 +1643,337 @@ Partial Class frmKundenblatt Me.lblINAKTIV.Text = "! INAKTIV !" Me.lblINAKTIV.Visible = False ' + 'tbiLeistungen + ' + Me.tbiLeistungen.Name = "tbiLeistungen" + Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) + Me.tbiLeistungen.Text = "Leistungen" + ' + 'tbiKartenverwaltung + ' + Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" + Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) + Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + ' + 'tbiLKW + ' + Me.tbiLKW.Name = "tbiLKW" + Me.tbiLKW.Size = New System.Drawing.Size(186, 22) + Me.tbiLKW.Text = "LKWs" + ' + 'tbiVERAGCard + ' + Me.tbiVERAGCard.Name = "tbiVERAGCard" + Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) + Me.tbiVERAGCard.Text = "VERAG Card" + ' + 'scanErstbestellung + ' + Me.scanErstbestellung._ARCHIV = True + Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" + Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanErstbestellung._MULTI_FILES = True + Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" + Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanErstbestellung.BackColor = System.Drawing.Color.White + Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) + Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) + Me.scanErstbestellung.Name = "scanErstbestellung" + Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) + Me.scanErstbestellung.TabIndex = 172 + ' + 'scanJaraVereinbarung + ' + Me.scanJaraVereinbarung._ARCHIV = True + Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" + Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing + Me.scanJaraVereinbarung._MULTI_FILES = True + Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" + Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White + Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) + Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) + Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" + Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) + Me.scanJaraVereinbarung.TabIndex = 173 + ' + 'scanMWSTAgreement + ' + Me.scanMWSTAgreement._ARCHIV = True + Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" + Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing + Me.scanMWSTAgreement._MULTI_FILES = True + Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" + Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White + Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) + Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) + Me.scanMWSTAgreement.Name = "scanMWSTAgreement" + Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) + Me.scanMWSTAgreement.TabIndex = 174 + Me.scanMWSTAgreement.Visible = False + ' + 'scanSDLSonst + ' + Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" + Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" + Me.scanSDLSonst._OPEN_ORIGINAL = False + Me.scanSDLSonst._TYPE = "PDF" + Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSDLSonst.BackColor = System.Drawing.Color.White + Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) + Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) + Me.scanSDLSonst.Name = "scanSDLSonst" + Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) + Me.scanSDLSonst.TabIndex = 173 + ' + 'txtMautDE_BenutzerNr + ' + Me.txtMautDE_BenutzerNr._DateTimeOnly = False + Me.txtMautDE_BenutzerNr._numbersOnly = True + Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" + Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True + Me.txtMautDE_BenutzerNr._Prozent = False + Me.txtMautDE_BenutzerNr._ShortDateNew = False + Me.txtMautDE_BenutzerNr._ShortDateOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False + Me.txtMautDE_BenutzerNr._value = "" + Me.txtMautDE_BenutzerNr._Waehrung = False + Me.txtMautDE_BenutzerNr._WaehrungZeichen = True + Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) + Me.txtMautDE_BenutzerNr.MaxLineLength = -1 + Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" + Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing + Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" + Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) + Me.txtMautDE_BenutzerNr.TabIndex = 18 + ' + 'txtMautDE_FlottenPIN + ' + Me.txtMautDE_FlottenPIN._DateTimeOnly = False + Me.txtMautDE_FlottenPIN._numbersOnly = True + Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" + Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True + Me.txtMautDE_FlottenPIN._Prozent = False + Me.txtMautDE_FlottenPIN._ShortDateNew = False + Me.txtMautDE_FlottenPIN._ShortDateOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False + Me.txtMautDE_FlottenPIN._value = "" + Me.txtMautDE_FlottenPIN._Waehrung = False + Me.txtMautDE_FlottenPIN._WaehrungZeichen = True + Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) + Me.txtMautDE_FlottenPIN.MaxLineLength = -1 + Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" + Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" + Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDE_FlottenPIN.TabIndex = 14 + ' + 'txtMautDEMasterPIN + ' + Me.txtMautDEMasterPIN._DateTimeOnly = False + Me.txtMautDEMasterPIN._numbersOnly = True + Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" + Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True + Me.txtMautDEMasterPIN._Prozent = False + Me.txtMautDEMasterPIN._ShortDateNew = False + Me.txtMautDEMasterPIN._ShortDateOnly = False + Me.txtMautDEMasterPIN._TimeOnly = False + Me.txtMautDEMasterPIN._TimeOnly_Seconds = False + Me.txtMautDEMasterPIN._value = "" + Me.txtMautDEMasterPIN._Waehrung = False + Me.txtMautDEMasterPIN._WaehrungZeichen = True + Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) + Me.txtMautDEMasterPIN.MaxLineLength = -1 + Me.txtMautDEMasterPIN.MaxLines_Warning = "" + Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" + Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDEMasterPIN.TabIndex = 16 + ' + 'scanUebernahmebestätigungen + ' + Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" + Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False + Me.scanUebernahmebestätigungen._TYPE = "PDF" + Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White + Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) + Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) + Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" + Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) + Me.scanUebernahmebestätigungen.TabIndex = 5 + ' + 'scanHKA + ' + Me.scanHKA._ARCHIV = True + Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHKA._DATENSERVER_ORDNER = "MDM" + Me.scanHKA._DATENSERVER_UOrdner1 = Nothing + Me.scanHKA._DATENSERVER_UOrdner2 = Nothing + Me.scanHKA._DATENSERVER_UOrdner3 = Nothing + Me.scanHKA._MULTI_FILES = True + Me.scanHKA._TEXT_PDF = "Handelskammerauszug" + Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHKA.BackColor = System.Drawing.Color.White + Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHKA.Location = New System.Drawing.Point(17, 163) + Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHKA.Name = "scanHKA" + Me.scanHKA.Size = New System.Drawing.Size(168, 24) + Me.scanHKA.TabIndex = 4 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) + Me.scanSonstiges.TabIndex = 1 + ' + 'scanEULizenz + ' + Me.scanEULizenz._ARCHIV = True + Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" + Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing + Me.scanEULizenz._MULTI_FILES = True + Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" + Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanEULizenz.BackColor = System.Drawing.Color.White + Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default + Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) + Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanEULizenz.Name = "scanEULizenz" + Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) + Me.scanEULizenz.TabIndex = 0 + ' + 'scanHRA + ' + Me.scanHRA._ARCHIV = True + Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHRA._DATENSERVER_ORDNER = "MDM" + Me.scanHRA._DATENSERVER_UOrdner1 = Nothing + Me.scanHRA._DATENSERVER_UOrdner2 = Nothing + Me.scanHRA._DATENSERVER_UOrdner3 = Nothing + Me.scanHRA._MULTI_FILES = True + Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" + Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHRA.BackColor = System.Drawing.Color.White + Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHRA.Location = New System.Drawing.Point(17, 133) + Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHRA.Name = "scanHRA" + Me.scanHRA.Size = New System.Drawing.Size(168, 24) + Me.scanHRA.TabIndex = 0 + ' + 'scanPersonalAusweisGF + ' + Me.scanPersonalAusweisGF._ARCHIV = True + Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing + Me.scanPersonalAusweisGF._MULTI_FILES = True + Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" + Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White + Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default + Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) + Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" + Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) + Me.scanPersonalAusweisGF.TabIndex = 0 + ' + 'scanBankGarantie + ' + Me.scanBankGarantie._ARCHIV = True + Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" + Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing + Me.scanBankGarantie._MULTI_FILES = True + Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" + Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBankGarantie.BackColor = System.Drawing.Color.White + Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) + Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanBankGarantie.Name = "scanBankGarantie" + Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) + Me.scanBankGarantie.TabIndex = 0 + ' + 'scanVertragVeragKd + ' + Me.scanVertragVeragKd._ARCHIV = True + Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" + Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing + Me.scanVertragVeragKd._MULTI_FILES = True + Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" + Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White + Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default + Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) + Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanVertragVeragKd.Name = "scanVertragVeragKd" + Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) + Me.scanVertragVeragKd.TabIndex = 0 + ' 'KdSearchBox1 ' Me.KdSearchBox1._AlleFirmenCLUSTER = False @@ -1927,29 +2007,48 @@ Partial Class frmKundenblatt Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing ' - 'tbiLeistungen + 'UsrcntlKundeBearbeitenFull1 ' - Me.tbiLeistungen.Name = "tbiLeistungen" - Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) - Me.tbiLeistungen.Text = "Leistungen" + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1617, 670) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 ' - 'tbiKartenverwaltung + 'usrcntlKarten ' - Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" - Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) - Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(1603, 638) + Me.usrcntlKarten.TabIndex = 0 ' - 'tbiLKW + 'UsrCntlLKW1 ' - Me.tbiLKW.Name = "tbiLKW" - Me.tbiLKW.Size = New System.Drawing.Size(186, 22) - Me.tbiLKW.Text = "LKWs" + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 638) + Me.UsrCntlLKW1.TabIndex = 0 ' - 'tbiVERAGCard + 'UsrCntlOfferte1 ' - Me.tbiVERAGCard.Name = "tbiVERAGCard" - Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) - Me.tbiVERAGCard.Text = "VERAG Card" + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1623, 676) + Me.UsrCntlOfferte1.TabIndex = 0 ' 'frmKundenblatt ' @@ -1957,7 +2056,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1180, 800) + Me.ClientSize = New System.Drawing.Size(1180, 834) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index e95c829d..a91b32bd 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -1210,7 +1210,7 @@ Public Class frmKundenblatt Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS - Case 214, 215, 216 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE + Case 214, 215, 216, 217 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE @@ -1229,7 +1229,7 @@ Public Class frmKundenblatt Case 203 : scanErstbestellung.Visible = True Case 209 : scanErstbestellung.Visible = True Case 215 : scanErstbestellung.Visible = True' PLOSE IT - Case 214 : scanErstbestellung.Visible = True 'PLOSE Roadmaster + Case 214, 217 : scanErstbestellung.Visible = True 'PLOSE Roadmaster Case 211 ' scanErstbestellung.Visible = True scanMWSTAgreement.Visible = True @@ -1255,7 +1255,7 @@ Public Class frmKundenblatt 'gibt keine Einträge Case 202 : kundenSQL.setPartnerKdNrFromFMZOLL("TELEPASS-Kd-Nr", txtPartnerKdNr.Text, kdNr) 'TELEPASS kundenSQL.setPartnerKdNrSDL("TELEPASS-Kd-Nr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) - Case 214, 215, 216 : kundenSQL.setPartnerKdNrFromFMZOLL("PLOSEKundenNr", txtPartnerKdNr.Text, kdNr) 'PLOSE + Case 214, 215, 216, 217 : kundenSQL.setPartnerKdNrFromFMZOLL("PLOSEKundenNr", txtPartnerKdNr.Text, kdNr) 'PLOSE Case 201 : kundenSQL.setPartnerKdNrFromFMZOLL_DE(kdNr, txtMautDE_FlottenPIN.Text, txtMautDEMasterPIN.Text, txtMautDE_BenutzerNr.Text) kundenSQL.setPartnerKdNrSDL("FlottenPIN", txtMautDE_FlottenPIN.Text, kdNr, sdlNrTmp) kundenSQL.setPartnerKdNrSDL("MasterPIN", txtMautDEMasterPIN.Text, kdNr, sdlNrTmp) diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb new file mode 100644 index 00000000..a5ebcf97 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb @@ -0,0 +1,650 @@ + +Partial Class usrCntlSDLLeistungenPLOSE_MEDPASS + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.tbcntr = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.UsrCntlDetails = New SDL.usrCntlAllg() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.Panel2.SuspendLayout() + Me.tbcntr.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.SuspendLayout() + ' + 'cbxRetourniert + ' + Me.cbxRetourniert._date = Nothing + Me.cbxRetourniert._showdate = True + Me.cbxRetourniert._value = "" + Me.cbxRetourniert.AutoSize = True + Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64) + Me.cbxRetourniert.Name = "cbxRetourniert" + Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17) + Me.cbxRetourniert.TabIndex = 7 + Me.cbxRetourniert.Text = "Retourniert" + Me.cbxRetourniert.UseVisualStyleBackColor = True + ' + 'txtPin + ' + Me.txtPin._DateTimeOnly = False + Me.txtPin._numbersOnly = False + Me.txtPin._numbersOnlyKommastellen = "" + Me.txtPin._numbersOnlyTrennzeichen = True + Me.txtPin._Prozent = False + Me.txtPin._ShortDateNew = False + Me.txtPin._ShortDateOnly = False + Me.txtPin._TimeOnly = False + Me.txtPin._TimeOnly_Seconds = False + Me.txtPin._value = Nothing + Me.txtPin._Waehrung = False + Me.txtPin._WaehrungZeichen = True + Me.txtPin.ForeColor = System.Drawing.Color.Black + Me.txtPin.Location = New System.Drawing.Point(106, 118) + Me.txtPin.MaxLength = 9 + Me.txtPin.MaxLineLength = -1 + Me.txtPin.MaxLines_Warning = "" + Me.txtPin.MaxLines_Warning_Label = Nothing + Me.txtPin.Name = "txtPin" + Me.txtPin.Size = New System.Drawing.Size(74, 20) + Me.txtPin.TabIndex = 3 + ' + 'txtKartenNr + ' + Me.txtKartenNr._DateTimeOnly = False + Me.txtKartenNr._numbersOnly = False + Me.txtKartenNr._numbersOnlyKommastellen = "" + Me.txtKartenNr._numbersOnlyTrennzeichen = True + Me.txtKartenNr._Prozent = False + Me.txtKartenNr._ShortDateNew = False + Me.txtKartenNr._ShortDateOnly = False + Me.txtKartenNr._TimeOnly = False + Me.txtKartenNr._TimeOnly_Seconds = False + Me.txtKartenNr._value = Nothing + Me.txtKartenNr._Waehrung = False + Me.txtKartenNr._WaehrungZeichen = True + Me.txtKartenNr.ForeColor = System.Drawing.Color.Black + Me.txtKartenNr.Location = New System.Drawing.Point(196, 181) + Me.txtKartenNr.MaxLength = 22 + Me.txtKartenNr.MaxLineLength = -1 + Me.txtKartenNr.MaxLines_Warning = "" + Me.txtKartenNr.MaxLines_Warning_Label = Nothing + Me.txtKartenNr.Name = "txtKartenNr" + Me.txtKartenNr.Size = New System.Drawing.Size(93, 20) + Me.txtKartenNr.TabIndex = 2 + Me.txtKartenNr.Visible = False + ' + 'txtOBUID + ' + Me.txtOBUID._DateTimeOnly = False + Me.txtOBUID._numbersOnly = False + Me.txtOBUID._numbersOnlyKommastellen = "" + Me.txtOBUID._numbersOnlyTrennzeichen = True + Me.txtOBUID._Prozent = False + Me.txtOBUID._ShortDateNew = False + Me.txtOBUID._ShortDateOnly = False + Me.txtOBUID._TimeOnly = False + Me.txtOBUID._TimeOnly_Seconds = False + Me.txtOBUID._value = Nothing + Me.txtOBUID._Waehrung = False + Me.txtOBUID._WaehrungZeichen = True + Me.txtOBUID.ForeColor = System.Drawing.Color.Black + Me.txtOBUID.Location = New System.Drawing.Point(106, 96) + Me.txtOBUID.MaxLength = 18 + Me.txtOBUID.MaxLineLength = -1 + Me.txtOBUID.MaxLines_Warning = "" + Me.txtOBUID.MaxLines_Warning_Label = Nothing + Me.txtOBUID.Name = "txtOBUID" + Me.txtOBUID.Size = New System.Drawing.Size(183, 20) + Me.txtOBUID.TabIndex = 4 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(3, 121) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(29, 13) + Me.Label3.TabIndex = 14 + Me.Label3.Text = "Pin:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(121, 184) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(69, 13) + Me.Label1.TabIndex = 9 + Me.Label1.Text = "Karten-Nr.:" + Me.Label1.Visible = False + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(3, 99) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(52, 13) + Me.Label9.TabIndex = 12 + Me.Label9.Text = "OBU-Id:" + ' + 'txtPLOSEKdNr + ' + Me.txtPLOSEKdNr._DateTimeOnly = False + Me.txtPLOSEKdNr._numbersOnly = True + Me.txtPLOSEKdNr._numbersOnlyKommastellen = "" + Me.txtPLOSEKdNr._numbersOnlyTrennzeichen = True + Me.txtPLOSEKdNr._Prozent = False + Me.txtPLOSEKdNr._ShortDateNew = False + Me.txtPLOSEKdNr._ShortDateOnly = False + Me.txtPLOSEKdNr._TimeOnly = False + Me.txtPLOSEKdNr._TimeOnly_Seconds = False + Me.txtPLOSEKdNr._value = "" + Me.txtPLOSEKdNr._Waehrung = False + Me.txtPLOSEKdNr._WaehrungZeichen = True + Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6) + Me.txtPLOSEKdNr.MaxLineLength = -1 + Me.txtPLOSEKdNr.MaxLines_Warning = "" + Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr" + Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20) + Me.txtPLOSEKdNr.TabIndex = 21 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(471, 9) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(93, 13) + Me.Label2.TabIndex = 20 + Me.Label2.Text = "Plose-Kunden-Nr.:" + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.Label8) + Me.Panel2.Controls.Add(Me.txtPLOSEKdNr) + Me.Panel2.Controls.Add(Me.Label2) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(760, 30) + Me.Panel2.TabIndex = 94 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(6, 9) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(114, 13) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "PLOSE MED PASS" + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._TimeOnly_Seconds = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.Location = New System.Drawing.Point(106, 162) + Me.txtVermerk.MaxLength = 100 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Multiline = True + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(183, 55) + Me.txtVermerk.TabIndex = 5 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(3, 165) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(49, 13) + Me.Label4.TabIndex = 119 + Me.Label4.Text = "Vermerk:" + ' + 'cbxGestohlen + ' + Me.cbxGestohlen._date = Nothing + Me.cbxGestohlen._showdate = True + Me.cbxGestohlen._value = "" + Me.cbxGestohlen.AutoSize = True + Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134) + Me.cbxGestohlen.Name = "cbxGestohlen" + Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17) + Me.cbxGestohlen.TabIndex = 9 + Me.cbxGestohlen.Text = "Gestohlen" + Me.cbxGestohlen.UseVisualStyleBackColor = True + ' + 'cbxVerloren + ' + Me.cbxVerloren._date = Nothing + Me.cbxVerloren._showdate = True + Me.cbxVerloren._value = "" + Me.cbxVerloren.AutoSize = True + Me.cbxVerloren.Location = New System.Drawing.Point(333, 111) + Me.cbxVerloren.Name = "cbxVerloren" + Me.cbxVerloren.Size = New System.Drawing.Size(65, 17) + Me.cbxVerloren.TabIndex = 8 + Me.cbxVerloren.Text = "Verloren" + Me.cbxVerloren.UseVisualStyleBackColor = True + ' + 'cbxGesperrt + ' + Me.cbxGesperrt._date = Nothing + Me.cbxGesperrt._showdate = True + Me.cbxGesperrt._value = "" + Me.cbxGesperrt.AutoSize = True + Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155) + Me.cbxGesperrt.Name = "cbxGesperrt" + Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17) + Me.cbxGesperrt.TabIndex = 10 + Me.cbxGesperrt.Text = "Gesperrt" + Me.cbxGesperrt.UseVisualStyleBackColor = True + ' + 'cbxDefekt + ' + Me.cbxDefekt._date = Nothing + Me.cbxDefekt._showdate = True + Me.cbxDefekt._value = "" + Me.cbxDefekt.AutoSize = True + Me.cbxDefekt.Location = New System.Drawing.Point(333, 177) + Me.cbxDefekt.Name = "cbxDefekt" + Me.cbxDefekt.Size = New System.Drawing.Size(58, 17) + Me.cbxDefekt.TabIndex = 11 + Me.cbxDefekt.Text = "Defekt" + Me.cbxDefekt.UseVisualStyleBackColor = True + ' + 'txtLieferung + ' + Me.txtLieferung._DateTimeOnly = False + Me.txtLieferung._numbersOnly = False + Me.txtLieferung._numbersOnlyKommastellen = "" + Me.txtLieferung._numbersOnlyTrennzeichen = True + Me.txtLieferung._Prozent = False + Me.txtLieferung._ShortDateNew = True + Me.txtLieferung._ShortDateOnly = False + Me.txtLieferung._TimeOnly = False + Me.txtLieferung._TimeOnly_Seconds = False + Me.txtLieferung._value = "" + Me.txtLieferung._Waehrung = False + Me.txtLieferung._WaehrungZeichen = True + Me.txtLieferung.ForeColor = System.Drawing.Color.Red + Me.txtLieferung.Location = New System.Drawing.Point(106, 62) + Me.txtLieferung.MaxLength = 10 + Me.txtLieferung.MaxLineLength = -1 + Me.txtLieferung.MaxLines_Warning = "" + Me.txtLieferung.MaxLines_Warning_Label = Nothing + Me.txtLieferung.Name = "txtLieferung" + Me.txtLieferung.Size = New System.Drawing.Size(74, 20) + Me.txtLieferung.TabIndex = 1 + ' + 'txtBestellung + ' + Me.txtBestellung._DateTimeOnly = False + Me.txtBestellung._numbersOnly = False + Me.txtBestellung._numbersOnlyKommastellen = "" + Me.txtBestellung._numbersOnlyTrennzeichen = True + Me.txtBestellung._Prozent = False + Me.txtBestellung._ShortDateNew = True + Me.txtBestellung._ShortDateOnly = False + Me.txtBestellung._TimeOnly = False + Me.txtBestellung._TimeOnly_Seconds = False + Me.txtBestellung._value = "" + Me.txtBestellung._Waehrung = False + Me.txtBestellung._WaehrungZeichen = True + Me.txtBestellung.ForeColor = System.Drawing.Color.Red + Me.txtBestellung.Location = New System.Drawing.Point(106, 36) + Me.txtBestellung.MaxLength = 10 + Me.txtBestellung.MaxLineLength = -1 + Me.txtBestellung.MaxLines_Warning = "" + Me.txtBestellung.MaxLines_Warning_Label = Nothing + Me.txtBestellung.Name = "txtBestellung" + Me.txtBestellung.Size = New System.Drawing.Size(74, 20) + Me.txtBestellung.TabIndex = 0 + ' + 'txtGueltigkeit2 + ' + Me.txtGueltigkeit2._DateTimeOnly = False + Me.txtGueltigkeit2._numbersOnly = False + Me.txtGueltigkeit2._numbersOnlyKommastellen = "" + Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True + Me.txtGueltigkeit2._Prozent = False + Me.txtGueltigkeit2._ShortDateNew = True + Me.txtGueltigkeit2._ShortDateOnly = False + Me.txtGueltigkeit2._TimeOnly = False + Me.txtGueltigkeit2._TimeOnly_Seconds = False + Me.txtGueltigkeit2._value = "" + Me.txtGueltigkeit2._Waehrung = False + Me.txtGueltigkeit2._WaehrungZeichen = True + Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red + Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36) + Me.txtGueltigkeit2.MaxLength = 10 + Me.txtGueltigkeit2.MaxLineLength = -1 + Me.txtGueltigkeit2.MaxLines_Warning = "" + Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing + Me.txtGueltigkeit2.Name = "txtGueltigkeit2" + Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20) + Me.txtGueltigkeit2.TabIndex = 6 + Me.txtGueltigkeit2.Visible = False + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(3, 65) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(65, 13) + Me.Label6.TabIndex = 123 + Me.Label6.Text = "Lieferdatum:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(3, 39) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(70, 13) + Me.Label7.TabIndex = 122 + Me.Label7.Text = "Bestelldatum:" + ' + 'Label11 + ' + Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(330, 39) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(53, 13) + Me.Label11.TabIndex = 121 + Me.Label11.Text = "Gültig bis:" + Me.Label11.Visible = False + ' + 'tbcntr + ' + Me.tbcntr.Controls.Add(Me.TabPage1) + Me.tbcntr.Controls.Add(Me.TabPage2) + Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right + Me.tbcntr.Location = New System.Drawing.Point(496, 30) + Me.tbcntr.Name = "tbcntr" + Me.tbcntr.SelectedIndex = 0 + Me.tbcntr.Size = New System.Drawing.Size(264, 190) + Me.tbcntr.TabIndex = 127 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.UsrCntlDetails) + 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(256, 164) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Details" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'UsrCntlDetails + ' + Me.UsrCntlDetails.BackColor = System.Drawing.Color.White + Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlDetails.Name = "UsrCntlDetails" + Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158) + Me.UsrCntlDetails.TabIndex = 18 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.scanBestellung) + Me.TabPage2.Controls.Add(Me.scanPIN) + Me.TabPage2.Controls.Add(Me.scanLieferschein) + Me.TabPage2.Controls.Add(Me.scanSonstiges) + Me.TabPage2.Controls.Add(Me.scanRetourniert) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(256, 164) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Dokumente" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'scanBestellung + ' + Me.scanBestellung._ARCHIV = True + Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBestellung._DATENSERVER_ORDNER = "MDM" + Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanBestellung._MULTI_FILES = True + Me.scanBestellung._TEXT_PDF = "Bestellung" + Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBestellung.BackColor = System.Drawing.Color.White + Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBestellung.Location = New System.Drawing.Point(3, 30) + Me.scanBestellung.Name = "scanBestellung" + Me.scanBestellung.Size = New System.Drawing.Size(94, 24) + Me.scanBestellung.TabIndex = 26 + ' + 'scanPIN + ' + Me.scanPIN._ARCHIV = True + Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPIN._DATENSERVER_ORDNER = "MDM" + Me.scanPIN._DATENSERVER_UOrdner1 = Nothing + Me.scanPIN._DATENSERVER_UOrdner2 = Nothing + Me.scanPIN._DATENSERVER_UOrdner3 = Nothing + Me.scanPIN._MULTI_FILES = True + Me.scanPIN._TEXT_PDF = "PIN" + Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPIN.BackColor = System.Drawing.Color.White + Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default + Me.scanPIN.Location = New System.Drawing.Point(192, 4) + Me.scanPIN.Name = "scanPIN" + Me.scanPIN.Size = New System.Drawing.Size(58, 24) + Me.scanPIN.TabIndex = 24 + ' + 'scanLieferschein + ' + Me.scanLieferschein._ARCHIV = True + Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanLieferschein._DATENSERVER_ORDNER = "MDM" + Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing + Me.scanLieferschein._MULTI_FILES = True + Me.scanLieferschein._TEXT_PDF = "Lieferschein" + Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanLieferschein.BackColor = System.Drawing.Color.White + Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default + Me.scanLieferschein.Location = New System.Drawing.Point(3, 4) + Me.scanLieferschein.Name = "scanLieferschein" + Me.scanLieferschein.Size = New System.Drawing.Size(94, 24) + Me.scanLieferschein.TabIndex = 23 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanSonstiges.Location = New System.Drawing.Point(3, 56) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(250, 108) + Me.scanSonstiges.TabIndex = 21 + ' + 'scanRetourniert + ' + Me.scanRetourniert._ARCHIV = True + Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanRetourniert._DATENSERVER_ORDNER = "MDM" + Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing + Me.scanRetourniert._MULTI_FILES = True + Me.scanRetourniert._TEXT_PDF = "Retourniert" + Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanRetourniert.BackColor = System.Drawing.Color.White + Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default + Me.scanRetourniert.Location = New System.Drawing.Point(98, 4) + Me.scanRetourniert.Name = "scanRetourniert" + Me.scanRetourniert.Size = New System.Drawing.Size(93, 24) + Me.scanRetourniert.TabIndex = 20 + ' + 'cbxArchiviert + ' + Me.cbxArchiviert._date = Nothing + Me.cbxArchiviert._showdate = True + Me.cbxArchiviert._value = "" + Me.cbxArchiviert.AutoSize = True + Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200) + Me.cbxArchiviert.Name = "cbxArchiviert" + Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17) + Me.cbxArchiviert.TabIndex = 128 + Me.cbxArchiviert.Text = "ARCHIVIERT" + Me.cbxArchiviert.UseVisualStyleBackColor = True + ' + 'usrCntlSDLLeistungenPLOSE_MEDPASS + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.cbxArchiviert) + Me.Controls.Add(Me.tbcntr) + Me.Controls.Add(Me.txtLieferung) + Me.Controls.Add(Me.txtBestellung) + Me.Controls.Add(Me.txtGueltigkeit2) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.cbxGestohlen) + Me.Controls.Add(Me.cbxVerloren) + Me.Controls.Add(Me.cbxGesperrt) + Me.Controls.Add(Me.cbxDefekt) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.cbxRetourniert) + Me.Controls.Add(Me.txtPin) + Me.Controls.Add(Me.txtKartenNr) + Me.Controls.Add(Me.txtOBUID) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.txtVermerk) + Me.Name = "usrCntlSDLLeistungenPLOSE_MEDPASS" + Me.Size = New System.Drawing.Size(760, 220) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.tbcntr.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tbcntr As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList + Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan +End Class diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.resx b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.vb new file mode 100644 index 00000000..58918f57 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.vb @@ -0,0 +1,209 @@ + +Imports System.Globalization + +Public Class usrCntlSDLLeistungenPLOSE_MEDPASS + Public KfzKennzeichen As String + Public SDLNr As String + Public kdNr As String + Dim PROG As New cProgramFunctions + Dim kundenSQL As New kundenSQL + Public History As String + + Dim culture As CultureInfo = New CultureInfo("de-DE") + Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll + Public addnew As Boolean = False + Dim VAL As New cValidationSDLLeistungen + Public Event LKWChanged(kdNr, newKfz, SDLNr, History) + Public Event CHANGED(kdNr, newKfz, SDLNr, History) + 'Public WithEvents s As New cBinding 'fürs Binding + Public SDL As VERAG_PROG_ALLGEMEIN.cSDL + Dim boud = False + + + Sub New(kdNr, KfzKennzeichen, SDLNr, History) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kdNr = kdNr + Me.KfzKennzeichen = KfzKennzeichen + Me.SDLNr = SDLNr + Me.History = History + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed + 'MsgBox("disp") + End Sub + + Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load + + UsrCntlDetails.kdNr = kdNr + UsrCntlDetails.SDLNr = SDLNr + UsrCntlDetails.History = History + UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen + AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz) + RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History) + End Sub + + 'Scan-Elemente initialisieren: + scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + + initDataBinding() + If txtPLOSEKdNr.Text = "" Then + getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr + End If + + boud = True + + ' If txtMSEKdNr.Text = "" Then + ' getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + ' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr + ' End If + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then + cProgramFunctions.setControlReadOnly(Me) + End If + End Sub + Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr) + End Sub + + + Function gueltigBisabgelaufen(o) As Boolean + If CDate(o) > Now Then + Return False + End If + Return True + End Function + + Sub initDataBinding() + Try + SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History) + + PROG.initDTPE(txtLieferung) + PROG.initDTPE(txtBestellung) + 'PROG.initDTPE(txtGueltigkeit2) + + txtLieferung._value = SDL.Lieferdatum + txtBestellung._value = SDL.Bestelldatum + ' txtGueltigkeit2._value = SDL.GültigBis + + cbxRetourniert._date = SDL.RetourniertAm + cbxVerloren._date = SDL.VerlorenAm + cbxGestohlen._date = SDL.GestohlenAm + cbxGesperrt._date = SDL.GesperrtAm + cbxDefekt._date = SDL.DefektAm + + cbxGesperrt.Checked = SDL.Gesperrt + cbxDefekt.Checked = SDL.Defekt + cbxGestohlen.Checked = SDL.Gestohlen + cbxVerloren.Checked = SDL.Verloren + cbxArchiviert.Checked = SDL.Archiviert + + cbxRetourniert.Checked = SDL.Retourniert + + txtVermerk.Text = SDL.Vermerk + + UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum + UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum + UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter + + ' txtPLOSEKdNr.Text = SDL.MSE_Kd_Nr + txtOBUID.Text = SDL.OBUID + txtKartenNr.Text = SDL.KartenNr + txtPin.Text = SDL.PIN + PROG.initPIN(txtPin) + + Catch ex As Exception + MsgBox(ex.Message) + MsgBox(ex.StackTrace) + End Try + + End Sub + + + Public Sub newEntry() + ' s.updateBinding() + ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG! + If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString + End Sub + + Sub BindingTableColumnChanged() + UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub + If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History) + End Sub + + Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) + Dim valid As Boolean = VAL.checkValidDate(sender, True) + End Sub + + Public Function save() As Boolean + loadDataInClass() + Return SDL.SAVE + 'If checkSave() Then + ' Return kundenSQL.doSQLByList(s.bindingSource) + 'End If + Return False + End Function + + Sub loadDataInClass() + SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value) + SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value) + ' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value) + SDL.Gesperrt = cbxGesperrt.Checked + SDL.Defekt = cbxDefekt.Checked + SDL.Gestohlen = cbxGestohlen.Checked + SDL.Verloren = cbxVerloren.Checked + SDL.Retourniert = cbxRetourniert.Checked + SDL.Vermerk = txtVermerk.Text + SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text + SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text + SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text + 'SDL. = txtPLOSEKdNr.Text + SDL.OBUID = txtOBUID.Text + SDL.KartenNr = txtKartenNr.Text + SDL.PIN = txtPin.Text + + SDL.RetourniertAm = cbxRetourniert._date + SDL.VerlorenAm = cbxVerloren._date + SDL.GestohlenAm = cbxGestohlen._date + SDL.GesperrtAm = cbxGesperrt._date + SDL.DefektAm = cbxDefekt._date + SDL.Archiviert = cbxArchiviert.Checked + End Sub + + Function checkSave() As Boolean + ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False + Return True + End Function + + + + Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged, + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub + + If boud And Me.FindForm IsNot Nothing Then + If sender Is txtLieferung Then + If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!") + End If + BindingTableColumnChanged() + End If + End Sub + Function addTxtToVermerk(tmp, txt) As String + If txtVermerk.Text <> "" Then tmp &= " / " + tmp &= txt & ", am " & Now.ToShortDateString + If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength) + Return tmp + End Function +End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 9a036ae6..0f99ccb4 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -92,6 +92,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " AND plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' " sqlstr &= " AND plose_Fakturiert =0 " + sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " sqlstr &= " group by plose_ProduktCode" sqlstr &= " order by plose_ProduktCode" @@ -179,7 +180,8 @@ Public Class frmMDMDatenverarbetiung FROM tblPLOSE_Details WHERE 1 = 1 And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' - AND plose_Fakturiert=0 + AND plose_Fakturiert=0 + AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) group by plose_POLSEKundennummer,plose_ProduktCode order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL") .LOAD() @@ -285,7 +287,7 @@ Public Class frmMDMDatenverarbetiung Function genRGAtt_PLOSE() As Boolean - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") 'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ") If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then MsgBox("Keine Daten!") @@ -307,7 +309,7 @@ Public Class frmMDMDatenverarbetiung If verarbOK Then 'UPDATE Fakturiert - SQL.doSQL("UPDATE tblPLOSE_Details SET plose_FakturiertDatum=GETDATE() WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND plose_POLSEKundennummer='" & R_PLOSE("PLOSEKundenNr") & "' ", "FMZOLL") + SQL.doSQL("UPDATE tblPLOSE_Details SET plose_FakturiertDatum=GETDATE() WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND plose_POLSEKundennummer='" & R_PLOSE("PLOSEKundenNr") & "' ", "FMZOLL") End If If True Then 'cnt Mod 10 = 0 Then @@ -358,7 +360,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung " sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null " sqlstr &= " WHERE 1=1 " - sqlstr &= " AND plose_Fakturiert=0 AND plp_Land NOT IN ('AT','DE') " + sqlstr &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plp_Land NOT IN ('AT','DE') " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " sqlstr &= " order by plp_Land, plose_DatumTransaktion" @@ -371,7 +373,7 @@ Public Class frmMDMDatenverarbetiung sqlstrAT &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,'' as plose_Produktbeschreibung ,plose_NummerKarteGeraet as plose_NummerKarteGeraet ,'' as plose_BeschreibungEinfahrt,'' as plose_BeschreibungAusfahrt,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,sum(plose_BruttobetragWaehrungAbbuchung ) as plose_BruttobetragWaehrungAbbuchung " sqlstrAT &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null " sqlstrAT &= " WHERE 1=1 " - sqlstrAT &= " AND plose_Fakturiert=0 AND plp_Land IN ('AT','DE') " + sqlstrAT &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plp_Land IN ('AT','DE') " sqlstrAT &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " sqlstrAT &= " group by plp_Land, AdressenNr, plose_Kennzeichen,plose_DatumTransaktion,plose_NummerKarteGeraet" sqlstrAT &= " order by plp_Land" @@ -546,6 +548,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr " sqlstr &= " WHERE 1=1 " sqlstr &= " AND plose_Fakturiert=0 " + sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " sqlstr &= " AND AdressenNr = '" & KdNr & "' " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " @@ -826,6 +829,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " sqlstr &= " WHERE 1=1 " sqlstr &= " AND plose_Fakturiert=0 " + sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' " sqlstr &= " AND plp_LeistungsNr is not null " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " diff --git a/SDL/mdm/frmNewData.Designer.vb b/SDL/mdm/frmNewData.Designer.vb index 8902ff2c..4eb5095c 100644 --- a/SDL/mdm/frmNewData.Designer.vb +++ b/SDL/mdm/frmNewData.Designer.vb @@ -51,6 +51,7 @@ Partial Class frmNewData Me.btnSDL_PLOSE = New System.Windows.Forms.Button() Me.btnSDL_PLOSE_IT = New System.Windows.Forms.Button() Me.btnSDL_PLOSE_CZ = New System.Windows.Forms.Button() + Me.btnSDL_PLOSE_MEDPASS = New System.Windows.Forms.Button() Me.btnVeragParkplatz = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() @@ -167,6 +168,7 @@ Partial Class frmNewData Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_IT) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_CZ) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_MEDPASS) Me.FlowLayoutPanel.Controls.Add(Me.btnVeragParkplatz) Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Bottom Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 119) @@ -571,6 +573,26 @@ Partial Class frmNewData Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True ' + 'btnSDL_PLOSE_MEDPASS + ' + Me.btnSDL_PLOSE_MEDPASS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnSDL_PLOSE_MEDPASS.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE_MEDPASS.Enabled = False + Me.btnSDL_PLOSE_MEDPASS.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver + Me.btnSDL_PLOSE_MEDPASS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE_MEDPASS.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE_MEDPASS.Image = CType(resources.GetObject("btnSDL_PLOSE_MEDPASS.Image"), System.Drawing.Image) + Me.btnSDL_PLOSE_MEDPASS.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE_MEDPASS.Location = New System.Drawing.Point(168, 140) + Me.btnSDL_PLOSE_MEDPASS.Margin = New System.Windows.Forms.Padding(2) + Me.btnSDL_PLOSE_MEDPASS.Name = "btnSDL_PLOSE_MEDPASS" + Me.btnSDL_PLOSE_MEDPASS.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE_MEDPASS.TabIndex = 61 + Me.btnSDL_PLOSE_MEDPASS.Tag = "216" + Me.btnSDL_PLOSE_MEDPASS.Text = "MEDPASS" + Me.btnSDL_PLOSE_MEDPASS.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE_MEDPASS.UseVisualStyleBackColor = True + ' 'btnVeragParkplatz ' Me.btnVeragParkplatz.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom @@ -581,7 +603,7 @@ Partial Class frmNewData Me.btnVeragParkplatz.ForeColor = System.Drawing.Color.Black Me.btnVeragParkplatz.Image = Global.SDL.My.Resources.Resources.verag_Card1 Me.btnVeragParkplatz.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnVeragParkplatz.Location = New System.Drawing.Point(168, 140) + Me.btnVeragParkplatz.Location = New System.Drawing.Point(250, 140) Me.btnVeragParkplatz.Margin = New System.Windows.Forms.Padding(2) Me.btnVeragParkplatz.Name = "btnVeragParkplatz" Me.btnVeragParkplatz.Size = New System.Drawing.Size(78, 64) @@ -725,4 +747,5 @@ Partial Class frmNewData Friend WithEvents btnSDL_PLOSE As Button Friend WithEvents btnSDL_PLOSE_IT As Button Friend WithEvents btnSDL_PLOSE_CZ As Button + Friend WithEvents btnSDL_PLOSE_MEDPASS As Button End Class diff --git a/SDL/mdm/frmNewData.resx b/SDL/mdm/frmNewData.resx index d584bd9e..6dfd0179 100644 --- a/SDL/mdm/frmNewData.resx +++ b/SDL/mdm/frmNewData.resx @@ -118,6 +118,77 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAADwAAAAeCAYAAABwmH1PAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAA8dSURBVFhH1VhnVBbXun4AUXoTIYBYsB1CxBITK1hA + kAQLIBZQEVAQUUFEEQUBKypFRBTxmIiiGARbFCtoaCJdP5DeESuanLuSc5N1k7nv+8noZ0nOOT9yV+5e + 61l7Zs/ee/bz9hmcq+tCQtkTpNe+QHrdv4ebbf9AdFHn0C9OVxo6ZlTD6ewbCILwlwZCctsw+XQV/G42 + wymjFjMzajCb+t8DP/e40oh+8SVnrFIknutvtcCL7kV86CV/JWBP0UM4X6yFz/UmLLvcgICsZvhcbcTK + ax/GmhtNWEuQ25EvjE2+f2hX4UOszW55DWpBBNoZN6QvAEy676VjMtd/NOZFEPcR8YLgTLCWGfN6TeTt + faTj1CJlxg5Lx3bffYiF39YhOKcN7lcasI4Ir85qwWrS+KoPIIjmLbvSOARhuUK/xLLC2JJObMptfQ1q + sgdlsnx48Z4PxQfng4h4LaDu+8bue3H8MEE8eEn3PV9L13QTE98h7s8QBc1rGHxtLSW8gAiH53dgxNf3 + YHemGpF3O7HhdivWEQJlwPfRJY9glfpgDUJyBMW9hb8EZDWp7yrswGYiy6AmS5gP8tYBCS9ErXQf9tPu + Z7yOm6hBcR9+zo0FwQfnngnxNffaBFmhiQIS9+X54pjJa8Khee2YkFIJh3M1Uu363WjGJtJm8HdvsIkQ + RSY87Eh5JrbmCdiWJyzPbJyTWPEEEfnthA7a8/XL+TD8IvGA4oG4l4U4XyTMBN6dI0LUFO8rrmOhsqnL + zuP38D7iexl8jrcJW5yshCMRtkytIg23UfR+jFAKakx2M5FnQlvz2hV7xRb9iF0FApv1mGOSQ0kVTxGW + 14FwAjVZab9LVBxjaYt4V8OyPs8QtcPPxb1lkSZj1qJAGCwE3ltWyJFvEZ5EhOedr4Xj+To4X6ijvgY7 + CtuxixBK5nqw4hHmnqtxRARpN+qugO35gt6Bks706uc4S+nqFPXUxEOJPRMUr6WE/4VJv7teNGluorWI + whLv0wjiXBaQ7HruRR9/n7AzEZ5HZGedrcWiy/Xks53YcadDqt2v7z/FxBOSFGzJeUV4LyEiVwi61Trh + WssPSK58Rnu+dVA+DJMUx2SlLeJDY6ypdwmLmuf5YnuXnAh+ryhIWTh/kDBr1+FcLbwoDTmRtl0u1uN4 + 5VNEFrTLqcQUdWInmTMTZoTnChYplTv3UODaSEGNGr+IpS8GE9G0eMy/u5cFz3l3jJvsPty453veT2zi + HO5Zi+J6ExnrEcecpWN/RNiD0tRiys3LKS8fKn+EoNstKth9R5BCJExmbZhQmr37Tjs8/z8UHn9E2Pdm + EwI4HVFBEZjdjOmpVT7YRWT3Fr4hTMFLNarwSXhu29AgCnRbCzo++KK/Ct4j7EZ+60kaXUKadblYZ/Ll + meqlZknlx3vHFbWAqqu3yDKiCZGvtE6aLptysjLKMaPGZvWNJmXpHpfq4UOVGccDRxKmfXoN9pJXRJBg + WDgiIoqfYb/kJRa7eWDaxEmIiYqF3xp/DP/EHKt912D8uIlwX7KUxqOxP24/plvbYM4sB1hb2cBnxUqs + D9wAH28fJBxIwBSLaSgsLERjUyPu37//FhBFpeWy642IL38Mm28e4ItvHoykknG9QXxxofweIkImK825 + 7LciWe5lwWNs5iwQCmI8Vyu26Ongw+WplNtdPTPr+3pT6epBgmTLiaHiJYzy9nuEK78nwp5/LmGqhT+a + dEKywiypIl8h8s6vUoJ88B1EcDcT6tbkfwIWApu+uA9ZgHr03Wd/Syo7PvVU1VSyKqUdVMBsyX+I9XmP + pAgo7MLeqh/h5v4nEw7IbtUZ8feKBQMSSlL14ksaerGJMultBC4uRA3+J9hDa3gPiuBMWC2m6Af9uOLC + scfvR1udkkzwvNLQc1vJcynhw3ebkUhIknTh69z7cJk7F1Mtp/55hP2yWmGbVo1VWU30cdDEEdlo+ukH + rqZHyk9rxxY9wc7ugzMBMTq/a87csx+L5k+C6nugVDL5ZNW+OWfrLDyzOuVWF3Rhxa12+sR8ALtzjUi9 + 146SexI0V1agQXIPT9takHv9CmbZz8TUKdZ/HuG12a2YSqWky6U6LL1SjxUUYPwpKq+iWtrvZpOS89ma + 6dNOVe01PFBSpsDEZFNSN1keV4u++8I4vjh99pkHPstzusy8c54jvrQT2wra4Hq+CgvSKuCS2YSxGa3w + z6zCD/X30FpZRoeQQEJoa2nFrexszJ41B1MnW/3fEHbLrJcGFrfMBvpkrMdqSkX8ARFJkXz97RY4n6t1 + lpq6rF+Tr/aOK37kealWw+lyM6I7BGy8UIwjVwvQ8eIfePacNOvrjxEjPkVA+C4cuVWO+tpadDY3oLWt + HU1Nzaivb6B5z5GTk4OZ9rMwxXIa9u+LR9CGjRhhPhKBAYHvEba2mg4nh7mYYfsF1voHYPOmEHgv98aB + +AOYNtka1dXVePGyC21trW/hdwm7EOGVZOLeVG29+jam1HKxTklquuyjIuGt+cLAxLLrUcVPMP9qK+yC + ojByyFCkJ8YpPW1r1K6uKNfycHFRGDPcHOHr16Ii+zK+f9KJopJShfyCfO3S0jLNSkkVamvrcOXKVcyZ + 7YAv7WbiUEIivL18TD42NZvk471SbzL5tUh4X2wcvrD7EnMdnUHjI5e6eZixcIKDNtKzfRhlPhpZWVma + FfcqtPLz86UoKLijlZOTq/OHhJcRWf4p8JXkCY5XPUUKlZcGCaVNUi1HdZMO+U6Yf742NK/rfxB55gbs + xgzHTBtbhaFDTJsMDfr++pGegaDfx/DlwP6DvgoPD9f49tuLuHHjhtznn40rV1VR/6fVtOmz3Jd6gA6N + I0eOwHflKoz9bPy40SPH5KooqQtyUBAM9Ix+HWwyNHDNqtWIjY7BV0ePkjnPMdTR0r2trqolaGnoCLq9 + +0g8lnq60d6k9Rn6RgbG/6WvZyjQHEFXR4/m9BYM9PsKHyS8lAhztbWCcif/CGDChyse40J9FyalSBIR + 2v3xwJqmKLzmesPoY60/Ys/R04gOD8HqVX6f9uqhwsUsHbjH99qaunQtJ4wwH5V38NAh+PsFqMqjh6Ag + 11PYGBRsEBm5G6EhoTidmorFi5ZY8lxeSyQfTRg3qUw6V15RmG0/a0F4WDjCwyKUhw0xbVHuqSoYGw24 + qaasQc4JKfHQkC1yAWsDzcQ9+hr1e0T7PKNnL00GDC54jzBXWVwduVD1tZd8N7b4IX34t9I3cQv2lTyE + x6V669d+THlWM664MazwCRUPbdi+czcOREeRWTpu5hdOmTwtOWxLGGbPnGOro60rqJLGyAx7zZo5W1te + TkEYPWpMReqpVJxMOYnc3Fzu1cga/psP6uDgFJKUdAQ1NbXYFLx5SU9FJaG3dp8unhsdFTOR54wbO+HR + /rgDiNobTUJe4zGgn4kZmT8cZjtGyEFeIN+22rZ1G5yd5sGT8nto6JZ3ojQRXkzadSfSEfQ5GEIf/qEU + tPgnAGM7V0S57VCPLXopzdH0mWhzuirmZMvPCLtwF8FrVmHn9p0w/2TkHT5QRPhWm8zMTCzz9FJWV9MU + 9HQ/EsJCwxTmz1swXUpqjlNYQsJBRJOZXjh/Ab4+vvYsKNNhH5eyIOL27Zf6s/nwkb1YWOQiwi8//4KM + 9Iz+vF5DTfu3xa5L1qecOIHEg4lwWbgIe3bvxd+GflympqIurPBeaeXk4Dzwk4/Nh7q6LBpw7dq1N4Rd + L9fRl1G9NDovzWykWPSQixKsu/U2Igs7MSSpPENaQlLOdblQa5tQ+xMij59HLJlzRPg2ZQN9o9+UlVSE + 6Kho83UB602NDI1z+YDjx07IT09Px7jPxyfzvbubh3XgunXYsX0Hiu4WwXXhomget/9ypg8Jhk0fjg5O + sLSYaqyppi31xdiYfYqdHQ/ZbfbxXBUlNUFTXeuMn58/rl2/juCNm1SNjfr/U11VU2D/1tPVF9TU1IVJ + Eyyy4/cfeEN43sVaLCEN82/bQCLmc70ZKykX+8qA78NI8/bp1V6s3Z4xd38MyetQCi96jF3xSTiVlIi1 + fgFTVZXVBR3yW6WeKoI8FAWlXqrU92i3nT5DL45SCvndTxyQ7Gzt1LZt3U4mNx/ko9DV1rvBpkikJjVQ + qjpxPAXpZ9IRuStyZE/FXoKZ6fA68k+5MPLj27dvkyZNd4q+amMzIyklJYWsZJUl701BqlVdRfOqjlaf + mz3ke+bMn7dwVkx07CvCk09VYf5F+tAn7QZmNWMtYQ2log+Bf9y7Xao3ZsImiWW54YWPsf56NaWRg7iY + cRYLF7iGKsgrCP2NTZ5PnGBRSeZUMMXSalMfnT5q8+bOo8PvHij135GflqSlpaFSUon7FRJpOiINXmPC + lEttL1++THu5oKqK3G2B6zEmtXKFb3Dm5Uy6hNwMWzsOXuSvTjuUe6kQQW1eBw93z9U8d11AoI2lxRSp + IIkwZtjYYZnHcsCfSsvPjkvgTr7rdbUJjhm1cDhbC8dzdb+LpZcaobCr4LfRX9/bH170HEGZ95FM2k0n + ApMmWmbzCxfMX+jR1tYmDSjjx07ENCoXk48d5/Tjzs9J4nEPOzrV8/MKdIuLS/rcvv2dMhURvqxJCmaF + I0aM0vx8zDj5ZZ7LVygqKlLEHvLz4cNJim5L3O1off3gQUMCIrZGYGv4NhsWoIqy6k/JycmUn+0z1VQ1 + hJn2s80MDA170FyGsqa6hpqRvhHgc62ZqqhWKgMfg3+3/js4V/8CVqeqvrJOkbj65jyG/ze5SD92FImH + EnU4MIG05OToNIhNMjh4M0dNfJOahvKyclhMtLzJhPsbD6SU0l/o01tf4Ajs77fWJj4+AapKGlITVeml + Jhh+1PcXvmZQpLbgHEuR+DzfK5Ob6Orov1RV1pC6DQlrBVlPj359Bwga5Luv1snRPDXp9YbADfYXztNS + jrx/v/cYKVXPkEz5Nlny9F+ACNd1Ufpt77vwYr3usqw2HL2Si9I7eYiNjRulrqZVbWZqnu213Ashm0Ow + fJk3Fs53xZaQMK6J5SiCn6OgVkpkq4hsCxUGzZrqOvWk/QEcVKhAsR00cEgu9QKDCOZbTJw8Z+eOnSxQ + rPTxlaeSMtjQwLhiAD1XV9dsJ9cJq6NKjdYP662tW0nuVEK5t2XYYNP2Af0GdQwyGVpDqUw3Le0M/hdJ + 9RrEJqMV8wAAAABJRU5ErkJggg== + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/SDL/mdm/frmNewData.vb b/SDL/mdm/frmNewData.vb index 86346766..58fa37cd 100644 --- a/SDL/mdm/frmNewData.vb +++ b/SDL/mdm/frmNewData.vb @@ -205,6 +205,7 @@ Public Class frmNewData Case 214 : btnAddLeistungVordefiniert.Image = My.Resources.plose : btnAddLeistungVordefiniert.Text = "PLOSE" & vbNewLine & "hinzufügen" Case 215 : btnAddLeistungVordefiniert.Image = My.Resources.plose_it : btnAddLeistungVordefiniert.Text = "PLOSE IT" & vbNewLine & "hinzufügen" Case 216 : btnAddLeistungVordefiniert.Image = My.Resources.plose_cz : btnAddLeistungVordefiniert.Text = "PLOSE CZ" & vbNewLine & "hinzufügen" + Case 217 : btnAddLeistungVordefiniert.Image = My.Resources.plose_medpass : btnAddLeistungVordefiniert.Text = "MEDPASS" & vbNewLine & "hinzufügen" Case 209 : btnAddLeistungVordefiniert.Image = My.Resources.viatoll : btnAddLeistungVordefiniert.Text = "Maut PL" & vbNewLine & "hinzufügen" Case 210 : btnAddLeistungVordefiniert.Image = My.Resources.abc_obu : btnAddLeistungVordefiniert.Text = "Maut SI" & vbNewLine & "hinzufügen" Case 208 : btnAddLeistungVordefiniert.Image = My.Resources.mse : btnAddLeistungVordefiniert.Text = "MSE" & vbNewLine & "hinzufügen" @@ -254,7 +255,7 @@ Public Class frmNewData Private Sub btnSDL_Woelfl_Click(sender As Object, e As EventArgs) Handles btnSDL_Woelfl.Click, btnSDL_IDS.Click, btnSDL_MautAT.Click, btnSDL_MautDE.Click, btnSDL_MautMSE.Click, btnSDL_UTA.Click, btnSDL_MautPL.Click, btnSDL_MautIT.Click, btnSDL_MautSI.Click, btnSDL_MautCZ.Click, btnSDL_ECOTAX.Click, btnSDL_FREJUS.Click, btnSDL_Hugo.Click, btnSDL_DouBox.Click, btnSDL_MotorWay.Click, btnSDL_MautFR.Click, btnAddLeistungVordefiniert.Click, btnSDL_MANAbgas.Click, - btnVeragParkplatz.Click, btnSDL_PLOSE.Click, btnSDL_PLOSE_IT.Click, btnSDL_PLOSE_CZ.Click + btnVeragParkplatz.Click, btnSDL_PLOSE.Click, btnSDL_PLOSE_IT.Click, btnSDL_PLOSE_CZ.Click, btnSDL_PLOSE_MEDPASS.Click If KdSearchBox1.KdNr <= 0 Then MsgBox("Kunde auswählen!") : Exit Sub diff --git a/SDL/mdm/usrCntlKartenDaten.Designer.vb b/SDL/mdm/usrCntlKartenDaten.Designer.vb index a4d412b8..23bb6800 100644 --- a/SDL/mdm/usrCntlKartenDaten.Designer.vb +++ b/SDL/mdm/usrCntlKartenDaten.Designer.vb @@ -74,13 +74,14 @@ Partial Class usrCntlKartenDaten Me.Panel3 = New System.Windows.Forms.Panel() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails() Me.Panel4 = New System.Windows.Forms.Panel() Me.pnlTest = New System.Windows.Forms.Panel() Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails() + Me.btnSDL_PLOSE_MEDPASS = New System.Windows.Forms.Button() Me.FlowLayoutPanel.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -128,6 +129,7 @@ Partial Class usrCntlKartenDaten Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_IT) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_CZ) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_MEDPASS) Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 0) Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(0) @@ -857,6 +859,15 @@ Partial Class usrCntlKartenDaten Me.dgvSDL.Size = New System.Drawing.Size(1354, 599) Me.dgvSDL.TabIndex = 29 ' + 'UsrCntlDatenDetails1 + ' + Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1" + Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234) + Me.UsrCntlDatenDetails1.TabIndex = 0 + Me.UsrCntlDatenDetails1.Visible = False + ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.White @@ -915,14 +926,22 @@ Partial Class usrCntlKartenDaten Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" ' - 'UsrCntlDatenDetails1 + 'btnSDL_PLOSE_MEDPASS ' - Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1" - Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234) - Me.UsrCntlDatenDetails1.TabIndex = 0 - Me.UsrCntlDatenDetails1.Visible = False + Me.btnSDL_PLOSE_MEDPASS.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE_MEDPASS.FlatAppearance.BorderSize = 0 + Me.btnSDL_PLOSE_MEDPASS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE_MEDPASS.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE_MEDPASS.Image = Global.SDL.My.Resources.Resources.plose_medpass + Me.btnSDL_PLOSE_MEDPASS.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE_MEDPASS.Location = New System.Drawing.Point(404, 64) + Me.btnSDL_PLOSE_MEDPASS.Margin = New System.Windows.Forms.Padding(0) + Me.btnSDL_PLOSE_MEDPASS.Name = "btnSDL_PLOSE_MEDPASS" + Me.btnSDL_PLOSE_MEDPASS.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE_MEDPASS.TabIndex = 44 + Me.btnSDL_PLOSE_MEDPASS.Text = "MEDPASS" + Me.btnSDL_PLOSE_MEDPASS.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE_MEDPASS.UseVisualStyleBackColor = True ' 'usrCntlKartenDaten ' @@ -1007,4 +1026,5 @@ Partial Class usrCntlKartenDaten Friend WithEvents btnSDL_PLOSE As Button Friend WithEvents btnSDL_PLOSE_IT As Button Friend WithEvents btnSDL_PLOSE_CZ As Button + Friend WithEvents btnSDL_PLOSE_MEDPASS As Button End Class diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index f0ff9e05..1d6fcd03 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -94,6 +94,7 @@ Public Class usrCntlKartenDaten btnSDL_PLOSE.Visible = dt.Select("SDLNr=214").Count > 0 btnSDL_PLOSE_IT.Visible = dt.Select("SDLNr=215").Count > 0 btnSDL_PLOSE_CZ.Visible = dt.Select("SDLNr=216").Count > 0 + btnSDL_PLOSE_MEDPASS.Visible = dt.Select("SDLNr=217").Count > 0 btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0 btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0 @@ -123,6 +124,7 @@ Public Class usrCntlKartenDaten btnSDL_PLOSE.Visible = dt.Select("SDLNr=214").Count > 0 btnSDL_PLOSE_IT.Visible = dt.Select("SDLNr=215").Count > 0 btnSDL_PLOSE_CZ.Visible = dt.Select("SDLNr=216").Count > 0 + btnSDL_PLOSE_MEDPASS.Visible = dt.Select("SDLNr=217").Count > 0 btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0 btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0 @@ -511,6 +513,7 @@ Public Class usrCntlKartenDaten Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, /*KartenNr,*/ OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=214" Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=215" Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=216" + Case 217 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=217" Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209" Case 210 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, OBUID, [SERIE-Nr],Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=210" Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, GültigBis,Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=208" @@ -563,6 +566,7 @@ Public Class usrCntlKartenDaten Case 214 : Return btnSDL_PLOSE Case 215 : Return btnSDL_PLOSE_IT Case 216 : Return btnSDL_PLOSE_CZ + Case 217 : Return btnSDL_PLOSE_MEDPASS Case 209 : Return btnSDL_MautPL Case 210 : Return btnSDL_MautSI Case 208 : Return btnSDL_MautMSE @@ -721,7 +725,7 @@ Public Class usrCntlKartenDaten End If btnRetourniert.Enabled = False - If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213 Or sdlNr = 214 Or sdlNr = 215 Or sdlNr = 216) Then + If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213 Or sdlNr = 214 Or sdlNr = 215 Or sdlNr = 216 Or sdlNr = 217) Then btnRetourniert.Enabled = True End If @@ -737,6 +741,7 @@ Public Class usrCntlKartenDaten If sdlNr = 214 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 215 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 216 Then btnBenachrichtigungKartenboxen.Enabled = True + If sdlNr = 217 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 208 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 207 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 101 Then btnBenachrichtigungKartenboxen.Enabled = True @@ -1149,6 +1154,7 @@ Public Class usrCntlKartenDaten Case 214 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE.doc" Case 215 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_IT.doc" Case 216 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_CZ.doc" + Case 217 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE.doc" End Select If Not System.IO.File.Exists(pfad) Then @@ -1173,7 +1179,8 @@ Public Class usrCntlKartenDaten Case 213 : odoc = getWordRetourniert_HUGO(odoc, kdNr, datum) Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum) Case 215 : odoc = getWordRetourniert_PLOSE_IT(odoc, kdNr, datum) - Case 216 : odoc = getWordRetourniert_PLOSE_CZ(odoc, kdNr, datum) + Case 216 : odoc = getWordRetourniert_PLOSE_MEDPASS(odoc, kdNr, datum) + Case 217 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum) Case Else : odoc.Close() : MsgBox("Falsche Leistung") End Select @@ -1368,6 +1375,43 @@ Public Class usrCntlKartenDaten Return odoc End Function + Function getWordRetourniert_PLOSE_MEDPASS(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document + Try + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=217 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'") + Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr) + If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc + Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr) + + Dim oTable As Word.Table + odoc.FormFields("Anzahl").Range.Text = dt.Rows.Count + odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2 + odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße + odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort + odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr + odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr + odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + + If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then + If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then + oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1) + Dim i = 1 + For Each r As DataRow In dt.Rows + oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen")) + oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr")) + oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID")) + If i < dt.Rows.Count Then oTable.Rows.Add() + i += 1 + Next + End If + Else + MessageBox.Show("Textmarke nicht vorhanden!") + End If + Catch ex As Exception + MessageBox.Show(ex.ToString) + End Try + Return odoc + End Function + Function getWordRetourniert_MULTI(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document Try Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=211 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'") @@ -1586,4 +1630,8 @@ Public Class usrCntlKartenDaten Private Sub btnSDL_PLOSE_CZ_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_CZ.Click SET_SDL(216) End Sub + + Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_MEDPASS.Click + SET_SDL(217) + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb index 22f8c70e..ff419f85 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb @@ -245,5 +245,6 @@ Public Class cAvisoBenachrichtigungenCodes Public Shared Vermerke_Reminder As Integer = 5 Public Shared Vorauskasse_OK As Integer = 6 Public Shared ZOLL_Dokumentenbeschau As Integer = 7 + Public Shared ZOLL_Rueckweisung As Integer = 8 End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb index e833d7e1..05e682d2 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb @@ -9,6 +9,7 @@ Public Class cRechnungsnummern Property VonRechnungsNr As Integer = -1 Property BisRechnungsNr As Integer = -1 Property LfdRechnungsNr As Integer = 0 + ' Property upsize_ts As String Dim SQL As New SQL @@ -58,6 +59,7 @@ Public Class cRechnungsnummern '------------------------------------- + 'LOAD(SpeditionsbuchNr, Buchungsjahr) LOAD(SpeditionsbuchNr, Buchungsjahr) End Sub @@ -69,6 +71,8 @@ Public Class cRechnungsnummern LfdRechnungsNr = 1 End If SAVE() + + 'ROWVERSION Return LfdRechnungsNr End Function @@ -94,6 +98,29 @@ Public Class cRechnungsnummern End Function + + Public Shared Function CHECK_RGNR_NEW(aktuelleRechnungsnummer, SpeditionsbuchNr, Buchungsjahr) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. + CHECK_RGNR_NEW = aktuelleRechnungsnummer + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ' If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird + While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & aktuelleRechnungsnummer & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0 + 'Wenn eine Doppelvergabe festgestellt wurde --> LfdRgNr aus DB neu ziehen:... + Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(SpeditionsbuchNr, Buchungsjahr) + aktuelleRechnungsnummer = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet + CHECK_RGNR_NEW = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet + RG_NR.INCREASE_RGNR() ' ..... und gelcih wieder hcoh zählen + + System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird + End While + + End Function + + + Public Shared Function DECREASE_RGNR_NEW(SpeditionsbuchNr, Buchungsjahr) As Boolean + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.doSQL("UPDATE [Rechnungsnummern] SET LfdRechnungsNr=LfdRechnungsNr-1 WHERE SpeditionsbuchNr='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) + End Function + Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList() @@ -103,13 +130,16 @@ Public Class cRechnungsnummern " BEGIN " & getInsertCmd() & " END " & " commit tran " 'MsgBox(sqlstr) + ' Dim returnBool = SQL.doSQL(sqlstr, "FMZOLL", , list) + ' Me.upsize_ts = SQL.DLookup("upsize_ts", "Rechnungsnummern", "SpeditionsbuchNr ='" & Me.SpeditionsbuchNr & "' AND Buchungsjahr='" & Me.Buchungsjahr & "'") + ' Return returnBool Return SQL.doSQL(sqlstr, "FMZOLL", , list) End Function Public Sub LOAD(SpeditionsbuchNr As String, Buchungsjahr As String) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ", conn) + Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WITH(updlock,serializable) WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ", conn) cmd.Parameters.AddWithValue("@SpeditionsbuchNr", SpeditionsbuchNr) cmd.Parameters.AddWithValue("@Buchungsjahr", Buchungsjahr) @@ -120,7 +150,7 @@ Public Class cRechnungsnummern Me.LfdRechnungsNr = cSqlDb.checkNullStr(dr.Item("LfdRechnungsNr")) Me.VonRechnungsNr = cSqlDb.checkNullInteger(dr.Item("VonRechnungsNr")) Me.BisRechnungsNr = cSqlDb.checkNullInteger(dr.Item("BisRechnungsNr")) - + ' Me.upsize_ts = dr.Item("upsize_ts") End If dr.Close() End Using @@ -140,6 +170,7 @@ Public Class cRechnungsnummern list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdRechnungsNr", LfdRechnungsNr)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("VonRechnungsNr", VonRechnungsNr)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BisRechnungsNr", BisRechnungsNr)) + Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index b06ea453..5b291790 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -674,6 +674,8 @@ Public Class cSendungen If i.Text = "tblSnd_AbklaerungTR_MA" Then jump = True If i.Text = "tblSnd_AbfertigungTR" Then jump = True If i.Text = "tblSnd_AbfertigungTR_MA" Then jump = True + If i.Text = "tblSnd_AbfertigungTRAnzahl" Then jump = True + If i.Text = "tblSnd_AbfertigungTRAnzahlPos" Then jump = True End If diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb index 61069cf7..01fc22ec 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb @@ -125,9 +125,11 @@ Public Class cSession - Public Shared Function IS_ONLINE(sess_maId) As Boolean + Public Shared Function IS_ONLINE(sess_maId, Optional andIsRealUser = False) As Boolean Try Dim SQL As New SQL + Dim where = "" + If andIsRealUser Then where = " AND mit_pseudoUser=0 " Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_Id FROM tblSessions where sess_lastRm > dateadd(MINUTE,-2, getdate()) AND sess_maId='" & sess_maId & "' ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, -1) If sess_IdOnline > 0 Then Return True diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index dd3c3b0c..30d0ab19 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -25,24 +25,27 @@ Partial Class frmMessenger _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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 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 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel6 = New System.Windows.Forms.Panel() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() + Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel5 = New System.Windows.Forms.Panel() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.Label1 = New System.Windows.Forms.Label() Me.Button8 = New System.Windows.Forms.Button() @@ -52,11 +55,17 @@ Partial Class frmMessenger Me.cbxInaktiveChatsSpecial = New System.Windows.Forms.CheckBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() + Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() + Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() + Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.lbl = New System.Windows.Forms.Label() Me.btnNeu = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() Me.Panel4 = New System.Windows.Forms.Panel() @@ -68,6 +77,9 @@ Partial Class frmMessenger Me.pnlTeilnehmer = New System.Windows.Forms.Panel() Me.Label4 = New System.Windows.Forms.Label() Me.dgvChatMembers = New System.Windows.Forms.DataGridView() + Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Panel8 = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label() Me.Panel9 = New System.Windows.Forms.Panel() @@ -87,18 +99,6 @@ Partial Class frmMessenger Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() - Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() - Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) - Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() - Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -107,7 +107,9 @@ Partial Class frmMessenger Me.SplitContainer2.Panel1.SuspendLayout() Me.SplitContainer2.Panel2.SuspendLayout() Me.SplitContainer2.SuspendLayout() + CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel6.SuspendLayout() + CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel5.SuspendLayout() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() @@ -118,6 +120,7 @@ Partial Class frmMessenger Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() + Me.MyFlowLayoutPanel1.SuspendLayout() Me.Panel3.SuspendLayout() Me.pnl.SuspendLayout() CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() @@ -130,9 +133,6 @@ Partial Class frmMessenger Me.Panel9.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.cntxt.SuspendLayout() - CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit() - Me.MyFlowLayoutPanel1.SuspendLayout() Me.SuspendLayout() ' 'SplitContainer @@ -179,6 +179,53 @@ Partial Class frmMessenger Me.SplitContainer2.SplitterWidth = 3 Me.SplitContainer2.TabIndex = 8 ' + 'dgvChats + ' + Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvChats.AllowUserToAddRows = False + Me.dgvChats.AllowUserToDeleteRows = False + Me.dgvChats.AllowUserToResizeColumns = False + Me.dgvChats.AllowUserToResizeRows = False + Me.dgvChats.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvChats.ColumnHeadersVisible = False + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvChats.Location = New System.Drawing.Point(0, 0) + Me.dgvChats.Name = "dgvChats" + Me.dgvChats.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvChats.RowHeadersVisible = False + Me.dgvChats.RowHeadersWidth = 62 + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvChats.RowTemplate.Height = 30 + Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvChats.Size = New System.Drawing.Size(275, 773) + Me.dgvChats.TabIndex = 0 + ' 'Panel6 ' Me.Panel6.Controls.Add(Me.lblLKWChat_MsgCntInaktiv) @@ -213,6 +260,53 @@ Partial Class frmMessenger Me.cbxInaktiveChats.Text = "inaktive Chats" Me.cbxInaktiveChats.UseVisualStyleBackColor = True ' + 'DGVSonstige + ' + Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1 + Me.DGVSonstige.AllowUserToAddRows = False + Me.DGVSonstige.AllowUserToDeleteRows = False + Me.DGVSonstige.AllowUserToResizeColumns = False + Me.DGVSonstige.AllowUserToResizeRows = False + Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control + 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.WindowText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5 + Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DGVSonstige.ColumnHeadersVisible = False + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window + 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.ControlText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6 + Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill + Me.DGVSonstige.Location = New System.Drawing.Point(0, 63) + Me.DGVSonstige.Name = "DGVSonstige" + Me.DGVSonstige.ReadOnly = True + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7 + Me.DGVSonstige.RowHeadersVisible = False + Me.DGVSonstige.RowHeadersWidth = 62 + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8 + Me.DGVSonstige.RowTemplate.Height = 30 + Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DGVSonstige.Size = New System.Drawing.Size(150, 0) + Me.DGVSonstige.TabIndex = 1 + ' 'Panel5 ' Me.Panel5.BackColor = System.Drawing.Color.White @@ -227,6 +321,30 @@ Partial Class frmMessenger Me.Panel5.Size = New System.Drawing.Size(150, 63) Me.Panel5.TabIndex = 2 ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(20, 40) + Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(250, 20) + Me.MyTextBox2.TabIndex = 4 + ' 'PictureBox2 ' Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search @@ -332,6 +450,60 @@ Partial Class frmMessenger Me.FlowLayoutPanel1.Size = New System.Drawing.Size(275, 30) Me.FlowLayoutPanel1.TabIndex = 10 ' + 'UsrCntlChat_Art_Btn_MACHAT + ' + Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True + Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein" + Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0) + Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT" + Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29) + Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8 + ' + 'UsrCntlChat_Art_Btn_LKWCHAT + ' + Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False + Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW" + Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0) + Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0) + Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT" + Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29) + Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9 + ' + 'UsrCntlChat_Art_Btn_SNDCHAT + ' + Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False + Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung" + Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0) + Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0) + Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT" + Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29) + Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(20, 40) + Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(250, 20) + Me.MyTextBox1.TabIndex = 4 + ' 'PictureBox1 ' Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search @@ -397,6 +569,28 @@ Partial Class frmMessenger Me.SplitContainer1.SplitterDistance = 600 Me.SplitContainer1.TabIndex = 0 ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.AutoScroll = True + Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44) + Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556) + Me.MyFlowLayoutPanel1.TabIndex = 0 + ' + 'UsrCntlMessenger_ChatElement1 + ' + Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5) + Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1" + Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48) + Me.UsrCntlMessenger_ChatElement1.TabIndex = 4 + Me.UsrCntlMessenger_ChatElement1.Visible = False + ' 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.White @@ -542,42 +736,67 @@ Partial Class frmMessenger Me.dgvChatMembers.AllowUserToResizeColumns = False Me.dgvChatMembers.AllowUserToResizeRows = False Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White - 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.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle20 + 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.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma}) - 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.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle21 + 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.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle10 Me.dgvChatMembers.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvChatMembers.Location = New System.Drawing.Point(0, 23) Me.dgvChatMembers.Name = "dgvChatMembers" Me.dgvChatMembers.ReadOnly = True - 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.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.dgvChatMembers.RowHeadersVisible = False Me.dgvChatMembers.RowHeadersWidth = 62 Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvChatMembers.Size = New System.Drawing.Size(220, 146) Me.dgvChatMembers.TabIndex = 8 ' + 'clmnMaId + ' + Me.clmnMaId.HeaderText = "Column1" + Me.clmnMaId.MinimumWidth = 8 + Me.clmnMaId.Name = "clmnMaId" + Me.clmnMaId.ReadOnly = True + Me.clmnMaId.Visible = False + Me.clmnMaId.Width = 150 + ' + 'clmnName + ' + Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnName.HeaderText = "Name" + Me.clmnName.MinimumWidth = 8 + Me.clmnName.Name = "clmnName" + Me.clmnName.ReadOnly = True + ' + 'clmnFirma + ' + Me.clmnFirma.HeaderText = "Firma" + Me.clmnFirma.MinimumWidth = 8 + Me.clmnFirma.Name = "clmnFirma" + Me.clmnFirma.ReadOnly = True + Me.clmnFirma.Width = 85 + ' 'Panel8 ' Me.Panel8.BackColor = System.Drawing.SystemColors.Control @@ -760,225 +979,6 @@ Partial Class frmMessenger Me.DataGridViewTextBoxColumn3.ReadOnly = True Me.DataGridViewTextBoxColumn3.Width = 150 ' - 'dgvChats - ' - Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvChats.AllowUserToAddRows = False - Me.dgvChats.AllowUserToDeleteRows = False - Me.dgvChats.AllowUserToResizeColumns = False - Me.dgvChats.AllowUserToResizeRows = False - Me.dgvChats.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.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 - Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvChats.ColumnHeadersVisible = False - 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.dgvChats.DefaultCellStyle = DataGridViewCellStyle13 - Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvChats.Location = New System.Drawing.Point(0, 0) - Me.dgvChats.Name = "dgvChats" - Me.dgvChats.ReadOnly = True - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 - Me.dgvChats.RowHeadersVisible = False - Me.dgvChats.RowHeadersWidth = 62 - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvChats.RowTemplate.Height = 30 - Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvChats.Size = New System.Drawing.Size(275, 773) - Me.dgvChats.TabIndex = 0 - ' - 'DGVSonstige - ' - Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1 - Me.DGVSonstige.AllowUserToAddRows = False - Me.DGVSonstige.AllowUserToDeleteRows = False - Me.DGVSonstige.AllowUserToResizeColumns = False - Me.DGVSonstige.AllowUserToResizeRows = False - Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control - 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.WindowText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle16 - Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DGVSonstige.ColumnHeadersVisible = False - DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle17 - Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill - Me.DGVSonstige.Location = New System.Drawing.Point(0, 63) - Me.DGVSonstige.Name = "DGVSonstige" - Me.DGVSonstige.ReadOnly = True - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle18 - Me.DGVSonstige.RowHeadersVisible = False - Me.DGVSonstige.RowHeadersWidth = 62 - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle19 - Me.DGVSonstige.RowTemplate.Height = 30 - Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.DGVSonstige.Size = New System.Drawing.Size(150, 0) - Me.DGVSonstige.TabIndex = 1 - ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = False - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Black - Me.MyTextBox2.Location = New System.Drawing.Point(20, 40) - Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(250, 20) - Me.MyTextBox2.TabIndex = 4 - ' - 'UsrCntlChat_Art_Btn_MACHAT - ' - Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True - Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein" - Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0) - Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT" - Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29) - Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8 - ' - 'UsrCntlChat_Art_Btn_LKWCHAT - ' - Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False - Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW" - Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0) - Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0) - Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT" - Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29) - Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9 - ' - 'UsrCntlChat_Art_Btn_SNDCHAT - ' - Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False - Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung" - Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0) - Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0) - Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT" - Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29) - Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10 - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = False - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(20, 40) - Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(250, 20) - Me.MyTextBox1.TabIndex = 4 - ' - 'MyFlowLayoutPanel1 - ' - Me.MyFlowLayoutPanel1.AutoScroll = True - Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White - Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1) - Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44) - Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" - Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556) - Me.MyFlowLayoutPanel1.TabIndex = 0 - ' - 'UsrCntlMessenger_ChatElement1 - ' - Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White - Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing - Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5) - Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1" - Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48) - Me.UsrCntlMessenger_ChatElement1.TabIndex = 4 - Me.UsrCntlMessenger_ChatElement1.Visible = False - ' - 'clmnMaId - ' - Me.clmnMaId.HeaderText = "Column1" - Me.clmnMaId.MinimumWidth = 8 - Me.clmnMaId.Name = "clmnMaId" - Me.clmnMaId.ReadOnly = True - Me.clmnMaId.Visible = False - Me.clmnMaId.Width = 150 - ' - 'clmnName - ' - Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnName.HeaderText = "Name" - Me.clmnName.MinimumWidth = 8 - Me.clmnName.Name = "clmnName" - Me.clmnName.ReadOnly = True - ' - 'clmnFirma - ' - Me.clmnFirma.HeaderText = "Firma" - Me.clmnFirma.MinimumWidth = 8 - Me.clmnFirma.Name = "clmnFirma" - Me.clmnFirma.ReadOnly = True - Me.clmnFirma.Width = 85 - ' 'frmMessenger ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -997,8 +997,10 @@ Partial Class frmMessenger Me.SplitContainer2.Panel2.ResumeLayout(False) CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer2.ResumeLayout(False) + CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel6.ResumeLayout(False) Me.Panel6.PerformLayout() + CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel5.ResumeLayout(False) Me.Panel5.PerformLayout() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() @@ -1012,6 +1014,7 @@ Partial Class frmMessenger Me.SplitContainer1.Panel2.ResumeLayout(False) CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) + Me.MyFlowLayoutPanel1.ResumeLayout(False) Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() Me.pnl.ResumeLayout(False) @@ -1026,9 +1029,6 @@ Partial Class frmMessenger Me.Panel9.ResumeLayout(False) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() Me.cntxt.ResumeLayout(False) - CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit() - Me.MyFlowLayoutPanel1.ResumeLayout(False) Me.ResumeLayout(False) End Sub