From a7c7dfee216568f14b2d49e254addba2a3f57f4f Mon Sep 17 00:00:00 2001 From: ja Date: Fri, 10 Sep 2021 16:59:40 +0200 Subject: [PATCH] Uhrzeit wird korrekt gesplittet fast fertig --- Customers/CustomsAviso.aspx | 43 +++- Customers/CustomsAviso.aspx.vb | 454 ++++++++++----------------------- images/Icons/main/uhr.gif | Bin 0 -> 1818 bytes 3 files changed, 181 insertions(+), 316 deletions(-) create mode 100644 images/Icons/main/uhr.gif diff --git a/Customers/CustomsAviso.aspx b/Customers/CustomsAviso.aspx index eb1fbce..2ee3165 100644 --- a/Customers/CustomsAviso.aspx +++ b/Customers/CustomsAviso.aspx @@ -43,7 +43,7 @@

Kundencenter:


-

Hier finden Sie Informationen zu den aktuell an der Grenze stehenden LKWs.

+

Hier finden Sie Informationen zu den aktuellen Aufträgen.

<%Try VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW 'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124) @@ -74,9 +74,46 @@ - + + + +
+
+
+ +
+
+
+ +
+
+ + +
+
+
+
- + + + +
+
+
+ +
+
+
+ +
+
+ + + +
+
+
+
diff --git a/Customers/CustomsAviso.aspx.vb b/Customers/CustomsAviso.aspx.vb index 4fa6f26..ee50300 100644 --- a/Customers/CustomsAviso.aspx.vb +++ b/Customers/CustomsAviso.aspx.vb @@ -19,12 +19,15 @@ Partial Class Kundenbereich_Default Response.Redirect("../newpageJulius_Sidebar.aspx", True) End Sub - - + Dim datevon As Date + Dim datebis As Date + Dim Kdnrtext As String + Dim dt + Dim hrv, hrb, minv, minb, secv, secb As DateAndTime + Dim setuhrzeit1bool As Boolean = False + Dim setuhrzeit2bool As Boolean = False Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs) - Dim Kdnrtext = txt_KdNr.Text - Dim datevon As Date - Dim datebis As Date + Kdnrtext = txt_KdNr.Text Dim tbl_CellIndex = New TableCell Dim tbl_CellArt = New TableCell @@ -36,26 +39,102 @@ Partial Class Kundenbereich_Default Dim tbl_CellEmpfaenger = New TableCell Dim tbl_CellLKWs = New TableCell Dim tbl_CellKundAuftNr = New TableCell - Dim novalexception As Exception + Dim tbl_CellInfo = New TableCell - Dim dt - Try - datevon = pickdate1.SelectedDate - datebis = pickdate2.SelectedDate - Catch ex As Exception When datevon < Date.Parse("01.01.2001") Or datebis > Date.Now - datevon = DateValue(Date.Now.ToString("01.MM.yyyy")) - datebis = DateValue(Date.Now) - End Try + dt = Nothing + If txt_pickdate1.Text = "" AndAlso txt_pickdate2.Text = "" AndAlso setuhrzeit1bool = False And setuhrzeit2bool = False Then + Try + datevon = Date.Parse(pickdate1.SelectedDate.Day.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString) + txt_pickdate1.Text = Date.Parse(pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString) + datebis = Date.Parse(pickdate2.SelectedDate.Day.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString) + txt_pickdate2.Text = Date.Parse(pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString) + + Catch ex As Exception When datebis < datevon + Dim dttemp As Date + + dttemp = datebis + datebis = datevon + datevon = datebis + + End Try + ElseIf txt_pickdate1.Text = "" AndAlso txt_pickdate2.Text = "" AndAlso setuhrzeit1bool = False And setuhrzeit2bool = False Then + Try + + Dim splitArray1 As String() = txt_Uhrzeit1_von.Text.Split(New Char() {":"}) + Dim splitArray2 As String() = txt_Uhrzeit2_bis.Text.Split(New Char() {":"}) + + + Dim hrv, hrb, m1, m2 As Integer + If ((Integer.TryParse(splitArray1(0), hrv)) AndAlso + ((Integer.TryParse(splitArray1(1), m1)) AndAlso + ((Integer.TryParse(splitArray1(1), m1)) AndAlso + (Integer.TryParse(splitArray2(0), hrb)) AndAlso + (Integer.TryParse(splitArray2(1), m2))) Then + + + + + Else + + // invalid format HHMM + + End If + End Try + temp2 = DateAndTime.Minute(txt_Uhrzeit2_bis.Text) + + datevon = Date.Parse(pickdate1.SelectedDate.Day.ToString + "-" + pickdate1.SelectedDate.Month.ToString + "-" + pickdate1.SelectedDate.Year.ToString + temp1.ToString) + txt_pickdate1.Text = datevon + datebis = Date.Parse(pickdate2.SelectedDate.Day.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString + hrb.ToString) + txt_pickdate2.Text = Date.Parse(pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Month.ToString + "-" + pickdate2.SelectedDate.Year.ToString) + + Catch ex As Exception When datebis < datevon + Dim dttemp As Date + + dttemp = datebis + datebis = datevon + datevon = datebis + + End Try + Else + Try + datevon = Date.Parse(txt_pickdate1.Text) + pickdate1.SelectedDate = datevon + datebis = Date.Parse(txt_pickdate2.Text) + pickdate2.SelectedDate = datebis + Catch ex As Exception When datevon < Date.Parse("01-01-2001") Or datebis > Date.Now + datevon = DateValue(Date.Now.ToString("01-MM-yyyy")) + txt_pickdate1.Text = datevon.ToString + datebis = DateValue(Date.Now) + txt_pickdate2.Text = datebis.ToString + End Try + End If 'Dim tr If rbt_Erf.Checked = True Then - - dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {0}) + ElseIf rbt_Freig.Checked = True Then + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis) + + ElseIf rbt_Ankunft.Checked = True Then + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3}) + + ElseIf rbt_Vorb.Checked = True Then + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4}) + + + ElseIf rbt_Vorg.Checked = True Then + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5}) + + ElseIf rbt_Erf.Checked = False And rbt_Freig.Checked = False And rbt_Ankunft.Checked = False And rbt_Vorb.Checked = False And rbt_Vorg.Checked = False Then + dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis) + + End If + + If dt IsNot Nothing Then Dim i As Integer = 0 @@ -83,182 +162,6 @@ Partial Class Kundenbereich_Default 'sb.Append("") ' ltTable.Text = sb.ToString - Dim Cell = New TableCell - - For Each d In dt.Rows - If i <= dt.Rows.Count Then - - 'tr = New HtmlTableRow() - Dim tr = New TableRow - - tbl_CellIndex.Text = i - tr.Controls.Add(tbl_CellIndex) - tbl_CellArt.Text = "" - tr.Controls.Add(tbl_CellArt) - tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundenNr) - - Select Case d("Status") - Case 1 - tbl_CellStatus.Text = "Erfasst" - tr.Controls.Add(tbl_CellStatus) - 'Case 2 - ' tbl_CellStatus = "Nicht eingetroffen" - ' tr.Controls.Add(Cell) - Case 3 - tbl_CellStatus.Text = "Ankunft" - tr.Controls.Add(tbl_CellStatus) - Case 4 - tbl_CellStatus.Text = "Vorbereitet" - tr.Controls.Add(tbl_CellStatus) - Case 5 - tbl_CellStatus.Text = "Vorgeschrieben" - tr.Controls.Add(tbl_CellStatus) - Case Else - tbl_CellStatus.Text = "Undefiend" - tr.Controls.Add(tbl_CellStatus) - End Select - tbl_Cellvon.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellvon) - tbl_Cellbis.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellbis) - tbl_CellAbsender.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellAbsender) - tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellEmpfaenger) - tbl_CellLKWs.Text = d("LKW_Nr").ToString - tr.Controls.Add(tbl_CellLKWs) - tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundAuftNr) - - normaltable.Rows.Add(tr) - i = i + 1 - End If - Next - - ElseIf rbt_Freig.Checked = True Then - - dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {1}, datevon, datebis) - - - Dim i As Integer = 0 - Dim Cell = New TableCell - - For Each d In dt.Rows - If i <= dt.Rows.Count Then - - 'tr = New HtmlTableRow() - Dim tr = New TableRow - - tbl_CellIndex.Text = i - tr.Controls.Add(tbl_CellIndex) - tbl_CellArt.Text = "" - tr.Controls.Add(tbl_CellArt) - tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundenNr) - - Select Case d("Status") - Case 1 - tbl_CellStatus.Text = "Erfasst" - tr.Controls.Add(tbl_CellStatus) - 'Case 2 - ' tbl_CellStatus = "Nicht eingetroffen" - ' tr.Controls.Add(Cell) - Case 3 - tbl_CellStatus.Text = "Ankunft" - tr.Controls.Add(tbl_CellStatus) - Case 4 - tbl_CellStatus.Text = "Vorbereitet" - tr.Controls.Add(tbl_CellStatus) - Case 5 - tbl_CellStatus.Text = "Vorgeschrieben" - tr.Controls.Add(tbl_CellStatus) - Case Else - tbl_CellStatus.Text = "Undefiend" - tr.Controls.Add(tbl_CellStatus) - End Select - tbl_Cellvon.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellvon) - tbl_Cellbis.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellbis) - tbl_CellAbsender.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellAbsender) - tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellEmpfaenger) - tbl_CellLKWs.Text = d("LKW_Nr").ToString - tr.Controls.Add(tbl_CellLKWs) - tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundAuftNr) - - normaltable.Rows.Add(tr) - i = i + 1 - End If - Next - - ElseIf rbt_Ankunft.Checked = True Then - - dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {3}) - - Dim i As Integer = 0 - Dim Cell = New TableCell - - For Each d In dt.Rows - If i <= dt.Rows.Count Then - - 'tr = New HtmlTableRow() - Dim tr = New TableRow - - tbl_CellIndex.Text = i - tr.Controls.Add(tbl_CellIndex) - tbl_CellArt.Text = "" - tr.Controls.Add(tbl_CellArt) - tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundenNr) - - Select Case d("Status") - Case 1 - tbl_CellStatus.Text = "Erfasst" - tr.Controls.Add(tbl_CellStatus) - 'Case 2 - ' tbl_CellStatus = "Nicht eingetroffen" - ' tr.Controls.Add(Cell) - Case 3 - tbl_CellStatus.Text = "Ankunft" - tr.Controls.Add(tbl_CellStatus) - Case 4 - tbl_CellStatus.Text = "Vorbereitet" - tr.Controls.Add(tbl_CellStatus) - Case 5 - tbl_CellStatus.Text = "Vorgeschrieben" - tr.Controls.Add(tbl_CellStatus) - Case Else - tbl_CellStatus.Text = "Undefiend" - tr.Controls.Add(tbl_CellStatus) - End Select - tbl_Cellvon.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellvon) - tbl_Cellbis.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellbis) - tbl_CellAbsender.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellAbsender) - tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellEmpfaenger) - tbl_CellLKWs.Text = d("LKW_Nr").ToString - tr.Controls.Add(tbl_CellLKWs) - tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundAuftNr) - - normaltable.Rows.Add(tr) - i = i + 1 - End If - Next - - ElseIf rbt_Vorb.Checked = True Then - - dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {4}) - - - Dim i As Integer = 0 Dim Cell = New TableCell 'tr = New HtmlTableRow() Dim tr = New TableRow @@ -304,136 +207,18 @@ Partial Class Kundenbereich_Default tr.Controls.Add(tbl_CellEmpfaenger) tbl_CellLKWs.Text = d("LKW_Nr").ToString tr.Controls.Add(tbl_CellLKWs) - tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString + tbl_CellKundAuftNr.Text = d("KdAuftragsNr_Avisierer").ToString tr.Controls.Add(tbl_CellKundAuftNr) - normaltable.Rows.Add(tr) - i = i + 1 - End If - Next - - ElseIf rbt_Vorg.Checked = True Then - - dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext, {5}) - - - Dim i As Integer = 0 - Dim Cell = New TableCell - - For Each d In dt.Rows - If i <= dt.Rows.Count Then - - 'tr = New HtmlTableRow() - Dim tr = New TableRow - - tbl_CellIndex.Text = i - tr.Controls.Add(tbl_CellIndex) - tbl_CellArt.Text = "" - tr.Controls.Add(tbl_CellArt) - tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundenNr) - - Select Case d("Status") - Case 1 - tbl_CellStatus.Text = "Erfasst" - tr.Controls.Add(tbl_CellStatus) - 'Case 2 - ' tbl_CellStatus = "Nicht eingetroffen" - ' tr.Controls.Add(Cell) - Case 3 - tbl_CellStatus.Text = "Ankunft" - tr.Controls.Add(tbl_CellStatus) - Case 4 - tbl_CellStatus.Text = "Vorbereitet" - tr.Controls.Add(tbl_CellStatus) - Case 5 - tbl_CellStatus.Text = "Vorgeschrieben" - tr.Controls.Add(tbl_CellStatus) - Case Else - tbl_CellStatus.Text = "Undefiend" - tr.Controls.Add(tbl_CellStatus) - End Select - tbl_Cellvon.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellvon) - tbl_Cellbis.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellbis) - tbl_CellAbsender.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellAbsender) - tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellEmpfaenger) - tbl_CellLKWs.Text = d("LKW_Nr").ToString - tr.Controls.Add(tbl_CellLKWs) - tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundAuftNr) - normaltable.Rows.Add(tr) - i = i + 1 - End If - Next - - ElseIf rbt_Erf.Checked = False And rbt_Freig.Checked = False And rbt_Ankunft.Checked = False And rbt_Vorb.Checked = False And rbt_Vorg.Checked = False Then - - dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB("", Kdnrtext,, datevon, datebis) - - - Dim i As Integer = 0 - Dim Cell = New TableCell - - For Each d In dt.Rows - If i <= dt.Rows.Count Then - - 'tr = New HtmlTableRow() - Dim tr = New TableRow - - tbl_CellIndex.Text = i - tr.Controls.Add(tbl_CellIndex) - tbl_CellArt.Text = "" - tr.Controls.Add(tbl_CellArt) - tbl_CellKundenNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundenNr) - - Select Case d("Status") - Case 1 - tbl_CellStatus.Text = "Erfasst" - tr.Controls.Add(tbl_CellStatus) - Case 2 - tbl_CellStatus.Text = "Nicht eingetroffen" - tr.Controls.Add(tbl_CellStatus) - Case 3 - tbl_CellStatus.Text = "Ankunft" - tr.Controls.Add(tbl_CellStatus) - Case 4 - tbl_CellStatus.Text = "Vorbereitet" - tr.Controls.Add(tbl_CellStatus) - Case 5 - tbl_CellStatus.Text = "Vorgeschrieben" - tr.Controls.Add(tbl_CellStatus) - Case Else - tbl_CellStatus.Text = "Undefiend" - tr.Controls.Add(tbl_CellStatus) - End Select - tbl_Cellvon.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellvon) - tbl_Cellbis.Text = d("AvisoEingang").ToString - tr.Controls.Add(tbl_Cellbis) - tbl_CellAbsender.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellAbsender) - tbl_CellEmpfaenger.Text = d("Auftraggeber").ToString - tr.Controls.Add(tbl_CellEmpfaenger) - tbl_CellLKWs.Text = d("LKW_Nr").ToString - tr.Controls.Add(tbl_CellLKWs) - tbl_CellKundAuftNr.Text = d("Auftraggeber_KdNr").ToString - tr.Controls.Add(tbl_CellKundAuftNr) - - normaltable.Rows.Add(tr) - i = i + 1 + End If + i = i + 1 Next End If - End Sub Protected Sub rbt_Freig_Click(sender As Object, e As EventArgs) MsgBox("Es funzt!") @@ -452,13 +237,56 @@ Partial Class Kundenbereich_Default rbt_Vorb.Checked = False rbt_Vorb.Enabled = True txt_KdNr.Text = "" + txt_pickdate1.Text = "" + txt_pickdate2.Text = "" + datevon = Nothing + datebis = Nothing + dt = Nothing + Kdnrtext = "" txt_KdNr.Focus() + + End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load tbl_Header_row.TableSection = TableRowSection.TableHeader End Sub + + Protected Sub ckb_Uhrzeit1_CheckedChanged(sender As Object, e As EventArgs) + If ckb_Uhrzeit1.Checked = False Then + lbl_Uhrzeit1_von.ForeColor = Drawing.Color.LightGray + txt_Uhrzeit1_von.ReadOnly = True + lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.LightGray + txt_Uhrzeit1_bis.Enabled = True + lbl_Uhrzeit2_von.ForeColor = Drawing.Color.LightGray + txt_Uhrzeit2_von.Enabled = True + lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.LightGray + txt_Uhrzeit2_bis.Enabled = True + setuhrzeit1bool = True + ElseIf ckb_Uhrzeit2.Checked = False Then + lbl_Uhrzeit1_von.ForeColor = Drawing.Color.LightGray + txt_Uhrzeit1_von.ReadOnly = True + lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.LightGray + txt_Uhrzeit1_bis.Enabled = True + lbl_Uhrzeit2_von.ForeColor = Drawing.Color.LightGray + txt_Uhrzeit2_von.Enabled = True + lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.LightGray + txt_Uhrzeit2_bis.Enabled = True + setuhrzeit2bool = True + Else + lbl_Uhrzeit1_von.ForeColor = Drawing.Color.FromArgb(452129) + txt_Uhrzeit1_von.ReadOnly = False + lbl_Uhrzeit1_bis.ForeColor = Drawing.Color.FromArgb(452129) + txt_Uhrzeit1_bis.ReadOnly = False + lbl_Uhrzeit2_von.ForeColor = Drawing.Color.FromArgb(452129) + txt_Uhrzeit2_von.ReadOnly = False + lbl_Uhrzeit2_bis.ForeColor = Drawing.Color.FromArgb(452129) + txt_Uhrzeit2_bis.ReadOnly = False + setuhrzeit1bool = False + setuhrzeit2bool = False + End If + End Sub End Class diff --git a/images/Icons/main/uhr.gif b/images/Icons/main/uhr.gif new file mode 100644 index 0000000000000000000000000000000000000000..9dea53d8933a0ce0cb7809106c134d621df47908 GIT binary patch literal 1818 zcmW-feRNJ&7RI+EC5#~v$`GBr+V`byW-7Cjw2dP4O-KkqZj+Sw2-%SkVI(R_+$KVW zF+zePGrkqKv>6p2%dm7tXkz1y^w6=Q3xk@LnW~}^)}G7xN?63_Uld+uo8#9 zV>U7ngJNLE3^srbWP{jHY%m+bCa{TY5}S%mW>eS#wva7iOR>dl3ERLnvQ2C&wwY~V z4Xlwhu~w{^wXgsSvJi`6VHSBF1jh{riPM);bfRE@7$^pbp~PS@L`)D9#UwG6m@KA< z1!AFCB$g73#S*bWY!sWsR${Z*A{s=aXcDbNv*_nyPS6~;9puj3FT`J@{>2t3@VI^G zh?=cmmiqmWvk*OJ`~!kqx4){0U-yTlJutUTzO- zPCQrn=D*YbS`fU-WqdKI=c$7G(a|$5zu}iuUDf;EvD%%mxVqhW-J#+q+VSb}4s-Hq zUrDI*i`^Z4WW&$rn~Sz>%d?B#{71yRK|dTSe{a8)a5}30%5y0vuWcJ57grbiexKUL zSMxwdm0z(B-16ps+I7nM!t|rJnwFI9*$|VwF!juy@bp6m>mx(mI%GlC_4SwMe3Dm? zKHgW=t$WJdD)+=OqjDlQjH%0TPnfph$yfcM;iKEr$K`s5rxrAvI@)E@y2!%aD^C2n<&|Zvcl%{WuI+H= zKc*`JC0HtphsBYnb3{f!f~Ge4hGm+jm4H0q@p+Y^V*zgT>> z{NeX=m)!FYuGrPGJac@f9uvA$w|#bPYX0E4-}TQ)&eK(y?zn}%sZ)yfuJv!u>T~k_ zz+d9JXY6*}{9Sot(1+if*{*IEN4VODclVCSO7PhS`qy9mXFz?8S)Mhx@{LnLmj`-w zxbw>I(}2M>7k0S6ydUww@rbh226xtipC~ud{c4Gvc&F(|=|>NJ^P@wmniKuAV!{p& znjF`0duvK=ZsUUJxb{Q8E#jZ!iN!%0a0T^U)@?bbkX@k4@af?rTUIc{`3B8 zFs1iMU*jkJ_eEzX?VXuCeO~s`(p?EtAA2txOgQ?N!?95j8^>-Ql`!a0?$@+a*OiW( z5Pcz_eq{d5*1J~^C5OhfFZi}^OlZi=*<+69j*gnQ?0?_nH@XkU4}TC?aih5`+${A5 zW3w-MW=UnLHze+l8T%J^9G4iL`11R@waud+)B6qUu_*n&%L+Ht4D0htWnpvgxX*I} zuMMvBgq`~?}mbnoa(=W>w0XX_erm`>^sAb-s!q} z@ud0{%QtQR;_g20qCp>~q+L1m+e^M*^_kzRdPdM|TQ6=sn}!RneiK