diff --git a/SDL/App.config b/SDL/App.config index 4dff7e24..a1e3df8f 100644 --- a/SDL/App.config +++ b/SDL/App.config @@ -39,7 +39,8 @@ - + https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/ @@ -48,12 +49,15 @@ http://ec.europa.eu/taxation_customs/vies/services/checkVatService - - http://ec.europa.eu/taxation_customs/vies/services/checkVatService - http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation + + https://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation + + + http://ec.europa.eu/taxation_customs/vies/services/checkVatService + diff --git a/SDL/Classes/cEORIWebService.vb b/SDL/Classes/cEORIWebService.vb new file mode 100644 index 00000000..a85e9797 --- /dev/null +++ b/SDL/Classes/cEORIWebService.vb @@ -0,0 +1,267 @@ + + + +' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer +' Aufgrund von verzögerten Bestätigungen wurd diese Funktion deaktiviert!!! + +Imports System.IO +Imports System.Net +Imports System.Text +Imports System.Xml +Imports System.Xml.Serialization + +Public Class cEORIWebService + + + + + 'Public Shared SESSION_ID As String = "" + + + 'Shared Function Call_Web_Service_MethodUID_Abfrage(ByRef session As String, ByVal txtFirma As String, ByVal txtEORI As String) As String + ' Try + ' ' Return CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "") + ' 'Dim s() As Object = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "") + + ' Dim EORIvalidation As New eu.europa.ec1.validation + + + ' Dim msg As String = "" + ' Dim name As String = "" + ' Dim adrz1 As String = "" + ' Dim adrz2 As String = "" + ' Dim adrz3 As String = "" + ' Dim adrz4 As String = "" + ' Dim adrz5 As String = "" + ' Dim adrz6 As String = "" + + + ' Dim returnInt As eu.europa.ec1.eoriValidationResult = EORIvalidation.validateEORI({txtEORI}) + + + ' If returnInt.result.Count > 0 Then + ' MsgBox(returnInt.result) + + ' 'Dim firma As String = name & vbNewLine & adrz1 + ' 'If adrz2 <> "" Then firma = firma & vbNewLine & adrz2 + ' 'If adrz3 <> "" Then firma = firma & vbNewLine & adrz3 + ' 'If adrz4 <> "" Then firma = firma & vbNewLine & adrz4 + ' 'If adrz5 <> "" Then firma = firma & vbNewLine & adrz5 + ' 'If adrz6 <> "" Then firma = firma & vbNewLine & adrz6 + + ' ' frmUIDCheck.firmaUIDFinanzOnline = firma + ' ' frmUIDCheck.firmaUIDProgramm = txtFirma + ' ' frmUIDCheck.uidnr = txtUid + ' ' frmUIDCheck.Show() + ' Else + ' MsgBox(returnInt) + ' End If + ' Return "" + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + ' Return "-1" + 'End Function + + + 'Shared Function genUID_Formular(ByVal txtUid As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef UID_ERG As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben + ' Try + + ' Dim msgErgebnis = "" + ' Dim tmp_SESSION_ID = "" + ' Dim Firma = "" + + ' UID_ERG = 0 'Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis) + + ' If UID_ERG = 0 Or UID_ERG = 1 Then + ' Select Case UID_ERG + ' Case 0 : msgErgebnis = "UID-Nr. GÜLTIG - OK" + ' Case 1 : msgErgebnis = "UID-Nr. UNGÜLTIG" + ' End Select + + ' Dim PdfTmp = "" 'SDL.FormularManagerNEU.UID_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, uid, txtUid, tid, AvisoId, SendungsId) + ' If PdfTmp <> "" Then + + ' Dim fileName = "UID_Prüfung_" & txtUid & ".pdf" + ' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "UID_PRUEFUNG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, txtUid, Now.ToString("ddMMyy_HHmmss.ffff"), fileName, -1, False) 'Now.ToString("ddMMyy_HHmmss.ffff") + ' If Not DS.uploadDataToDATENSERVER(PdfTmp) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False + ' If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False + ' Dim da_id = DS.da_id + ' Dim destPath = DS.GET_TOP1_PATH + + ' If AvisoId > 0 And SendungsId > 0 Then + ' Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "UID", "PDF", SendungsId) + ' If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False + ' Dim anhId = ANH.anh_id + ' End If + ' Return destPath + + + ' End If + ' Else + ' MsgBox(msgErgebnis) + ' End If + + ' Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + ' End Try + + ' Return "" + + 'End Function + + Shared _url = "http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation" + + + + + Shared Function genEORI_Formular(ByVal txtEORI As String, Optional AvisoId As Integer = -1, Optional SendungsId As Integer = -1, Optional ByRef EORI_ERGInt As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben + Try + + Dim msgErgebnis = "" + Dim tmp_SESSION_ID = "" + Dim Firma = "" + + Dim EORI_ERG = ValidateEoriNumber(txtEORI) + + + If EORI_ERG.Result.Count > 0 Then + + If EORI_ERG.Result(0).Status = 0 Or EORI_ERG.Result(0).Status = 1 Then + + Firma = EORI_ERG.Result(0).Name & vbNewLine + Firma &= EORI_ERG.Result(0).Street & vbNewLine + Firma &= EORI_ERG.Result(0).Country & " " & EORI_ERG.Result(0).PostalCode & " " & EORI_ERG.Result(0).City + Firma = Firma.Trim + + EORI_ERGInt = EORI_ERG.Result(0).Status + Select Case EORI_ERG.Result(0).Status + Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG - OK" + Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG" + End Select + + Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, Firma, tmp_SESSION_ID, txtEORI, AvisoId, SendungsId) + If PdfTmp <> "" Then + + Dim fileName = "EORI_Prüfung_" & txtEORI & ".pdf" + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "EORI_PRUEFUNG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, txtEORI, Now.ToString("ddMMyy_HHmmss.ffff"), fileName, -1, False) 'Now.ToString("ddMMyy_HHmmss.ffff") + If Not DS.uploadDataToDATENSERVER(PdfTmp) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False + If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False + Dim da_id = DS.da_id + Dim destPath = DS.GET_TOP1_PATH + + If AvisoId > 0 And SendungsId > 0 Then + Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(AvisoId, fileName, DS.da_id, "EORI", "PDF", SendungsId) + If Not ANH.SAVE Then MsgBox("Fehler beim Anhang speichern!") : Return False + Dim anhId = ANH.anh_id + End If + Return destPath + + + End If + Else + MsgBox(EORI_ERG.Result(0).StatusDescr) + End If + Else + MsgBox("Fehler bei der Prüfung der EORI-Nummer. WebService evtl. nicht verfügbar.") + End If + Return "" + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + Return "" + + End Function + + + Shared Function ValidateEoriNumber(ByVal number As String) As EoriResponseModel + If number Is Nothing Then + Return Nothing + End If + + Dim soapEnvelopeXml As XmlDocument = CreateSoapEnvelope(number) + Dim webRequest As HttpWebRequest = CreateWebRequest(_url) + InsertSoapEnvelopeIntoWebRequest(soapEnvelopeXml, webRequest) + Dim asyncResult As IAsyncResult = webRequest.BeginGetResponse(Nothing, Nothing) + asyncResult.AsyncWaitHandle.WaitOne() + Dim response As String + + Using webResponse As WebResponse = webRequest.EndGetResponse(asyncResult) + + Using rd As StreamReader = New StreamReader(webResponse.GetResponseStream()) + response = rd.ReadToEnd() + End Using + End Using + + Dim startPos As Integer = response.IndexOf("") + Dim lastPos As Integer = response.LastIndexOf("") - startPos + 9 + Dim responseFormatted As String = response.Substring(startPos, lastPos) + Dim serializer As XmlSerializer = New XmlSerializer(GetType(EoriResponseModel)) + Dim result As EoriResponseModel + + Using reader As TextReader = New StringReader(responseFormatted) + result = CType(serializer.Deserialize(reader), EoriResponseModel) + End Using + + Return result + End Function + + Private Shared Function CreateWebRequest(ByVal url As String) As HttpWebRequest + Dim webRequest As HttpWebRequest = CType(webRequest.Create(url), HttpWebRequest) + webRequest.ContentType = "text/xml;charset=""utf-8""" + webRequest.Accept = "text/xml" + webRequest.Method = "POST" + Return webRequest + End Function + + Private Shared Function CreateSoapEnvelope(ByVal number As String) As XmlDocument + Dim soapEnvelopeDocument As XmlDocument = New XmlDocument() + Dim xmlBuilder As StringBuilder = New StringBuilder() + xmlBuilder.AppendFormat("", "'http://schemas.xmlsoap.org/soap/envelope/'") + xmlBuilder.Append("") + xmlBuilder.AppendFormat("", "'http://eori.ws.eos.dds.s/'") + xmlBuilder.AppendFormat("{0}", number) + xmlBuilder.Append("") + xmlBuilder.Append(" ") + xmlBuilder.Append(" ") + soapEnvelopeDocument.LoadXml(xmlBuilder.ToString()) + Return soapEnvelopeDocument + End Function + + Private Shared Sub InsertSoapEnvelopeIntoWebRequest(ByVal soapEnvelopeXml As XmlDocument, ByVal webRequest As HttpWebRequest) + Using stream As Stream = webRequest.GetRequestStream() + soapEnvelopeXml.Save(stream) + End Using + End Sub +End Class + + + +Public Class EoriResponseModel + + Public Property RequestDate As String + + Public Property Result As List(Of Result) +End Class + + +Public Class Result + + Public Property Eori As String + + Public Property Status As String + + Public Property StatusDescr As String + + Public Property Name As String + + Public Property Street As String + + Public Property PostalCode As String + + Public Property City As String + + Public Property Country As String +End Class diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index e88f929f..816dfc17 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -391,19 +391,19 @@ Public Class cFakturierung 'End Function - Public Shared Function doRechnungsDruck_SRorER(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "") As Boolean + Public Shared Function doRechnungsDruck_SRorER(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printStbVdb As Boolean = False) As Boolean If RK_ID <= 0 Then Return False Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID) If RG_TMP.Sammelrechnung = 0 Then - Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName) + Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, , printStbVdb) Else Return cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, , 3,, True) End If End Function - Public Shared Function doRechnungsDruck(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional SammelrechnungAnlagendruck As Boolean = False) As Boolean + Public Shared Function doRechnungsDruck(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean If RK_ID <= 0 Then Return False - Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName,, SammelrechnungAnlagendruck) + Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb) End Function Shared Sub initRgFirma(ByRef rpt As rptRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Rechnung As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) @@ -588,7 +588,7 @@ Public Class cFakturierung Return CBool(CInt(SQL.getValueTxtBySql("SELECT TOP 1 isnull(count(*),0) FROM [tblVorauskassen] inner join Rechnungsausgang ON [vk_FilialeNr]=FilialenNr AND [vk_AbfertigungsNr]=AbfertigungsNr AND [vk_KdNr]=RechnungsKundenNr WHERE RechnungsNr='" & RechnungsNr & "' AND Buchungsjahr='" & Buchungsjahr & "'", "FMZOLL")) > 0) End Function - Public Shared Function doRechnungsDruck(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False) As Boolean + Public Shared Function doRechnungsDruck(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Try @@ -929,7 +929,14 @@ Public Class cFakturierung Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0) Case 0, 1 'DRUCKEN - Return cProgramFunctions.printRpt(rpt, PrinterName, False) + + Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) + + If printStbVdb Then + printSpedBuchAnhaenge(RECHNUNG) + End If + + Return ret 'Case 1 'FAX Case 2 'MAIL @@ -1007,6 +1014,28 @@ Public Class cFakturierung End Try Return False End Function + + Shared Sub printSpedBuchAnhaenge(RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional printStb As Boolean = False, Optional printVbD As Boolean = False) + Try + Dim SPEDBCUH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RG.FilialenNr, RG.AbfertigungsNr, RG.SpeditionsbuchUnterNr) + If SPEDBCUH.hasEntry Then + If printStb Then + If SPEDBCUH.DokumentId_Steuerbeleg IsNot Nothing Then + VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_Steuerbeleg)}) + End If + If printVbD Then + If SPEDBCUH.DokumentId_VBD IsNot Nothing Then + VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)}) + End If + End If + End If + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + End Sub + Shared Function getFirmaNr(Optional firma = -1) As String If firma < 0 Then 'Falls keine Firma Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -1025,7 +1054,7 @@ Public Class cFakturierung Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID) End Function - Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False) As String + Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = False) As String getSignature = "" firma = getFirmaNr(firma) @@ -1036,22 +1065,32 @@ Public Class cFakturierung Select Case firma Case 1 'VERAG getSignature &= "" + If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y
" Case 7 'ATILLA getSignature &= "" + If displayFirmenmane Then getSignature &= "
ATILLA Spedition GmbH
" getSignature &= "
A 4975 Suben, Nr. 15
T +43 7711 2845-0 | @ " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b
" Case 11 'VERAG CS getSignature &= "" + If displayFirmenmane Then getSignature &= "
VERAG Customs Service
" getSignature &= "
A 4975 Suben, Nr. 14
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "versand@verag.com") & " | www.verag.ag | FN 406316z
" Case 20 'Imex getSignature &= "" + If displayFirmenmane Then getSignature &= "
Imex Customs Service GmbH
" getSignature &= "
A 4975 Suben, Autobahngrenze 15
T +43 7711 31630 | F +43 7711 31630-1 | @ " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "info@imex-group.at") & " | www.imex-group.at | FN 410356s
" Case 21 'UNISPED getSignature &= "" + If displayFirmenmane Then getSignature &= "
Unisped Speditions GmbH
" getSignature &= "
A 4975 Suben, Nr. 15
T +43 7711 2677-0 | F +43 7711 2677-27 | @ " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "office@unisped.at") & " | www.unisped.at | FN 375838d
" Case 99 'GmbH getSignature &= "" + If displayFirmenmane Then getSignature &= "
VERAG Spedition GmbH
" getSignature &= "
D 94152 Neuhaus/Inn, Hartham 6
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag
" + Case 17 'Front-Office + getSignature &= "" + If displayFirmenmane Then getSignature &= "
Front Office Suben eG
" + getSignature &= "
A 4975 Suben, Nr. 14
T +43 7711 31636 -0 | @ " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "suben@front-office.eu") & " | www.front-office.eu
" End Select getSignature &= "
" @@ -1209,6 +1248,8 @@ Public Class cFakturierung VorschauID = DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "_" & Firma_ID End If + If SammelrechungArt = 7 And (AvisoIds IsNot Nothing AndAlso AvisoIds.Count = 0) Then Return False 'Prüfung, ob Daten vorhanden; Abbruch ZB wenn keine AvisoId + Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True diff --git a/SDL/Fakturierung/frmFaktAufschubSuche.vb b/SDL/Fakturierung/frmFaktAufschubSuche.vb index fee1f5dd..1c2016f1 100644 --- a/SDL/Fakturierung/frmFaktAufschubSuche.vb +++ b/SDL/Fakturierung/frmFaktAufschubSuche.vb @@ -15,11 +15,12 @@ End Sub - Sub New(BezugsNr As String, suche As Boolean) + Sub New(BezugsNr As String, suche As Boolean, Optional DY_BezugsNr As String = "") ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.BezugsNr = BezugsNr + If DY_BezugsNr <> "" Then Me.BezugsNr = DY_BezugsNr Me.suche = suche ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. @@ -36,6 +37,12 @@ cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUST (002719)", "'002719'")) cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL (002718)", "'002718'")) cboKonto.SelectedIndex = 0 + Case "UNISPED" + cboKonto.Items.Clear() + cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'006145','006146'")) + cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUST (006146)", "'006146'")) + cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL (006145)", "'006145'")) + cboKonto.SelectedIndex = 0 Case Else cboKonto.Items.Clear() cboKonto.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "'006136','006128','3517233'")) diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 468ef91a..ee46eb69 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -102,6 +102,10 @@ Public Class frmFaktSammelRgDrucken cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID=20", False, "FMZOLL") cboFirma.changeItem("20") cboSB.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='IMEX' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) + Case "UNISPED" + cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID IN (21,22,23) ", False, "FMZOLL") + cboFirma.changeItem("20") + cboSB.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma='UNISPED' and mit_gekuendigt=0 AND (mit_abteilung IN ('VRR','BH') OR (SELECT COUNT(*) FROM [tblBerechtigungsObjekteZuordnung] where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True) Case "VERAGIMEX" cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] ", False, "FMZOLL") Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA @@ -213,6 +217,9 @@ Public Class frmFaktSammelRgDrucken Dim AvisoIds As New List(Of Integer) If MyDatagridview1.SelectedRows.Count > 0 Then For Each r In MyDatagridview1.SelectedRows + If r.cells("AvisoId").value Is DBNull.Value Then + MsgBox("Nich alle Speditionsbcuheinträge haben eine Aviso-Id. LKW Abrechnung wird abgebrochen.") : Return (New List(Of Integer)) + End If AvisoIds.Add(r.cells("AvisoId").value) Next End If diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index 4ff49403..b339e26d 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -1528,7 +1528,7 @@ Partial Class frmRechnungenSuche Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1}) Me.MenuStrip1.Location = New System.Drawing.Point(368, 23) Me.MenuStrip1.Name = "MenuStrip1" - Me.MenuStrip1.Size = New System.Drawing.Size(299, 27) + Me.MenuStrip1.Size = New System.Drawing.Size(179, 27) Me.MenuStrip1.TabIndex = 43 Me.MenuStrip1.Text = "Kundenauswertungen" ' @@ -1556,6 +1556,7 @@ Partial Class frmRechnungenSuche Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24) Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)" + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False ' 'pnl ' diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 4b698e31..35bda564 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -646,14 +646,17 @@ Public Class frmRechnungenSuche End Sub Private Sub ZFPASSAUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Click + Me.Cursor = Cursors.WaitCursor Try - Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST(Rechnungsausgang.[FilialenNr] as varchar) + '/' + CAST(Rechnungsausgang.[AbfertigungsNr] as varchar) Abfertigungsnummer + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST(Rechnungsausgang.[FilialenNr] as varchar) + '/' + CAST(Rechnungsausgang.[AbfertigungsNr] as varchar) Abfertigungsnummer ,[RechnungsNr],RechnungsKundenNr ,cast([RechnungsDatum] as date)RechnungsDatum ,[AbsenderName 1]Absender ,(SteuerfreierGesamtbetrag+SteuerpflichtigerGesamtbetrag) Betrag ,Speditionsbuch.BelegNr - FROM [VERAG].[dbo].[Rechnungsausgang] inner join Speditionsbuch ON Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr + ,Rechnungsausgang.[FilialenNr],Rechnungsausgang.[AbfertigungsNr] ,Speditionsbuch.Abfertigungsart + FROM [Rechnungsausgang] inner join Speditionsbuch ON Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr where RechnungsKundenNr IN (714869) and rechnungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "'", "FMZOLL") Dim Path = "" @@ -683,6 +686,8 @@ Public Class frmRechnungenSuche Catch ex As System.Exception ' MsgBox(ex.Message) MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) + Me.Cursor = Cursors.Default + Exit Sub End Try @@ -701,6 +706,13 @@ Public Class frmRechnungenSuche Blatt.Range("F" & cnt).Value = r("Betrag") Blatt.Range("G" & cnt).Value = r("BelegNr") + 'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + 'If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "") Then + ' Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis + ' Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung + 'End If + + cnt += 1 Next Datei.Save @@ -719,6 +731,7 @@ Public Class frmRechnungenSuche Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try + Me.Cursor = Cursors.Default End Sub diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index a5005815..c242b09d 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -198,12 +198,13 @@ Partial Class usrCntlFaktAbrechnung Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnl = New System.Windows.Forms.Panel() + Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() Me.pnlDocs = New System.Windows.Forms.Panel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label51 = New System.Windows.Forms.Label() Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.Label50 = New System.Windows.Forms.Label() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.cbxAdmin = New System.Windows.Forms.CheckBox() Me.Label46 = New System.Windows.Forms.Label() Me.Button11 = New System.Windows.Forms.Button() @@ -229,7 +230,6 @@ Partial Class usrCntlFaktAbrechnung Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.ToolTip = New System.Windows.Forms.ToolTip(Me.components) Me.Timer = New System.Windows.Forms.Timer(Me.components) - Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.pnlTop.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() @@ -248,8 +248,8 @@ Partial Class usrCntlFaktAbrechnung Me.pnlEmpfaenger.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlDocs.SuspendLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label9 @@ -2917,6 +2917,16 @@ Partial Class usrCntlFaktAbrechnung Me.pnl.Size = New System.Drawing.Size(830, 139) Me.pnl.TabIndex = 2 ' + 'rtbAbf_Besonderheiten + ' + Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White + Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 39) + Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" + Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 52) + Me.rtbAbf_Besonderheiten.TabIndex = 235 + Me.rtbAbf_Besonderheiten.Visible = False + ' 'cbxOriginalPrint ' Me.cbxOriginalPrint.AutoSize = True @@ -2930,21 +2940,31 @@ Partial Class usrCntlFaktAbrechnung ' 'pnlDocs ' + Me.pnlDocs.Controls.Add(Me.PictureBox1) Me.pnlDocs.Controls.Add(Me.Label51) Me.pnlDocs.Controls.Add(Me.PictureBox2) Me.pnlDocs.Controls.Add(Me.Label50) - Me.pnlDocs.Controls.Add(Me.PictureBox1) Me.pnlDocs.Location = New System.Drawing.Point(264, 113) Me.pnlDocs.Name = "pnlDocs" Me.pnlDocs.Size = New System.Drawing.Size(129, 24) Me.pnlDocs.TabIndex = 27 Me.pnlDocs.Visible = False ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(19, 2) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(16, 16) + Me.PictureBox1.TabIndex = 23 + Me.PictureBox1.TabStop = False + ' 'Label51 ' Me.Label51.AutoSize = True Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label51.Location = New System.Drawing.Point(91, 3) + Me.Label51.Location = New System.Drawing.Point(90, 3) Me.Label51.Name = "Label51" Me.Label51.Size = New System.Drawing.Size(29, 13) Me.Label51.TabIndex = 26 @@ -2965,24 +2985,13 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label50.AutoSize = True Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label50.Location = New System.Drawing.Point(36, 3) + Me.Label50.Location = New System.Drawing.Point(35, 3) Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(23, 13) + Me.Label50.Size = New System.Drawing.Size(26, 13) Me.Label50.TabIndex = 24 - Me.Label50.Text = "Stb" + Me.Label50.Text = "STB" Me.Label50.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'PictureBox1 - ' - Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok - Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox1.Enabled = False - Me.PictureBox1.Location = New System.Drawing.Point(19, 2) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(16, 16) - Me.PictureBox1.TabIndex = 23 - Me.PictureBox1.TabStop = False - ' 'cbxAdmin ' Me.cbxAdmin.AutoSize = True @@ -3321,16 +3330,6 @@ Partial Class usrCntlFaktAbrechnung ' Me.Timer.Interval = 6000 ' - 'rtbAbf_Besonderheiten - ' - Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White - Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 39) - Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" - Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 52) - Me.rtbAbf_Besonderheiten.TabIndex = 235 - Me.rtbAbf_Besonderheiten.Visible = False - ' 'usrCntlFaktAbrechnung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3371,8 +3370,8 @@ Partial Class usrCntlFaktAbrechnung Me.pnl.PerformLayout() Me.pnlDocs.ResumeLayout(False) Me.pnlDocs.PerformLayout() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index a858f984..9ba147e0 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -2916,7 +2916,8 @@ Nächste_Textzeile_lesen: If RECHNUNG IsNot Nothing Then bezugsNr = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "" End If - Dim f As New frmFaktAufschubSuche(bezugsNr, True) + Dim DakosyRef = SQL.DLookup("tblSnd_DakosyRef", "tblSendungen", "FilialenNr='" & RECHNUNG.FilialenNr & "' and AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "'", "AVISO", "") + Dim f As New frmFaktAufschubSuche(bezugsNr, True, DakosyRef) If f.ShowDialog(Me) = DialogResult.OK Then For Each i In f.Zkteing_Index przInsertEUSTZOLL(i) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb index 046a5a95..d4e63d70 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb @@ -30,6 +30,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtEmpfänger = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Shape8 = New GrapeCity.ActiveReports.SectionReportModel.Shape() Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport() + Me.txtPos = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -75,7 +76,6 @@ Partial Public Class rptLaufzettelZollDE Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line() - Me.txtPos = New GrapeCity.ActiveReports.SectionReportModel.TextBox() CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit() @@ -83,6 +83,7 @@ Partial Public Class rptLaufzettelZollDE CType(Me.txtAnmerkung, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtEmpfänger, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtPos, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() @@ -117,7 +118,6 @@ Partial Public Class rptLaufzettelZollDE CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.txtPos, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -251,6 +251,17 @@ Partial Public Class rptLaufzettelZollDE Me.SubReport.Top = 0.1834646! Me.SubReport.Width = 5.27559! ' + 'txtPos + ' + Me.txtPos.Height = 0.3854331! + Me.txtPos.Left = 6.972441! + Me.txtPos.Name = "txtPos" + Me.txtPos.Style = "font-size: 12pt; font-weight: normal; text-align: center; vertical-align: middle;" & + " white-space: inherit; ddo-char-set: 1; ddo-wrap-mode: char-wrap" + Me.txtPos.Text = Nothing + Me.txtPos.Top = 0.1877953! + Me.txtPos.Width = 0.5299215! + ' 'PageFooter ' Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2}) @@ -729,17 +740,6 @@ Partial Public Class rptLaufzettelZollDE Me.Line1.Y1 = 0.02362205! Me.Line1.Y2 = 0.02370409! ' - 'txtPos - ' - Me.txtPos.CanGrow = False - Me.txtPos.Height = 0.3858268! - Me.txtPos.Left = 6.972441! - Me.txtPos.Name = "txtPos" - Me.txtPos.Style = "font-size: 12pt; font-weight: normal; text-align: center; vertical-align: middle;" & - " white-space: inherit; ddo-char-set: 1; ddo-wrap-mode: char-wrap" - Me.txtPos.Top = 0.1874016! - Me.txtPos.Width = 0.5299217! - ' 'rptLaufzettelZollDE ' Me.MasterReport = False @@ -768,6 +768,7 @@ Partial Public Class rptLaufzettelZollDE CType(Me.txtAnmerkung, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtEmpfänger, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtPos, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() @@ -802,7 +803,6 @@ Partial Public Class rptLaufzettelZollDE CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.txtPos, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 883ac679..9d3ce83a 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -329,7 +329,7 @@ DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 7ed40e05..1c77ece7 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -1664,6 +1664,49 @@ Public Class FormularManagerNEU End Try Return tmpPath End Function + + Shared Function printMRN(MRN) As Boolean + Try + If MRN.Length > 30 Or MRN.Length < 5 Then + MsgBox("Falsches Format") + Else + Dim rptMRNDruck As New rptMRNDruck + Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(MRN, 1, True, 20) + rptMRNDruck.picMRN.Image = barcodeATA + rptMRNDruck.lblMRN.Text = "MRN: " & MRN + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + rptMRNDruck.Label8.Text = "IMEX Customs Service GmbH" + Case "UNISPED" + rptMRNDruck.Label8.Text = "UNISPED Speditions GmbH" + Case "ATILLA" + rptMRNDruck.Label8.Text = "ATILLA Spedition GmbH" + Case "FRONTOFFICE" + rptMRNDruck.Label8.Text = "FRONT-OFFICE Suben eG" + Case "AMBAR" + rptMRNDruck.Label8.Text = "AMBAR" + Case Else + rptMRNDruck.Label8.Text = "VERAG Spedition AG" + End Select + rptMRNDruck.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + + rptMRNDruck.Run(False) + + rptMRNDruck.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0) + rptMRNDruck.Document.Printer.OriginAtMargins = False + rptMRNDruck.Document.Print(True, False) + rptMRNDruck.Dispose() + Return True + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Return False + End Function + + + Shared Function LaufzettelZollDE(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "") If AVISO Is Nothing Then Return "" @@ -1787,6 +1830,7 @@ Public Class FormularManagerNEU 'End Try rpt.SubReport1.Visible = False + If Vorpapier = "" Then AVISO.LOAD_Vorpapiere() If AVISO.VORPAPIERE.Count > 0 Then ' prüfen, ob AT-Zoll ohne Ãœ-T1 --> dann kein Eintrag! @@ -1821,7 +1865,13 @@ Public Class FormularManagerNEU rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1 - rpt.txtPos.Text = If(SND.tblSnd_Vorpapier_Pos, "") + If If(SND.tblSnd_Vorpapier, "") = Vorpapier Then + rpt.txtPos.Text = If(SND.tblSnd_Vorpapier_Pos, "").ToString.Trim + ElseIf If(SND.tblSnd_Vorpapier2, "") = Vorpapier Then + rpt.txtPos.Text = If(SND.tblSnd_Vorpapier2_Pos, "").ToString.Trim + ElseIf If(SND.tblSnd_Vorpapier3, "") = Vorpapier Then + rpt.txtPos.Text = If(SND.tblSnd_Vorpapier3_Pos, "").ToString.Trim + End If If SND.tblSnd_Fremdspedition Then rpt.txtAbfertigungsart.Text = "FREMD" @@ -2008,6 +2058,296 @@ Public Class FormularManagerNEU Return tmpPath End Function + + Shared Function Sammelakt_CheckIn(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String + ' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + Dim tmpPath = "" + Try + Dim rpt As New rptLaufzettelZollDE + gesColli = 0 + gesGewicht = 0 + + rpt.txtLKW.Text = AVISO.LKW_Nr + rpt.txtLKWId.Text = AVISO.AvisoID + + If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then + rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS") + Else + Select Case AVISO.Grenzstelle + Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN" + Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS" + Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL" + Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD" + Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "") + End Select + End If + + rpt.txtDatum.Text = Now.ToShortDateString + rpt.txtSB.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + + Dim ort = "Suben" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirmaInfo_IMEX.Visible = True + rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple + + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + Case "UNISPED" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirma_UNISPED.Visible = True + rpt.picVERAG.Image = My.Resources.Unisped_logo + + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + ' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter + Case "ATILLA" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirmaInfo_ATILLA.Visible = True + rpt.picVERAG.Image = My.Resources.Atilla + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + ' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter + 'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg + + Case "FRONTOFFICE" + rpt.txtFirmaInfo_VERAG.Visible = False + rpt.txtFirmeninfo_rontoffice.Visible = True + rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + ' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter + 'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg + Case Else + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Case "SBG" : ort = "Bad Reichenhall" + Case "WAI" : ort = "Waidhaus" + Case "NKD" : ort = "Nickelsdorf" + Case "NEU" : ort = "Neuhaus am Inn" + End Select + rpt.TextBox32.Text = "Avisierer (*):" + rpt.txtFraechter.Text = AVISO.Auftraggeber + 'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg + End Select + + + rpt.txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl + rpt.txtEmail.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email + + + + 'Dim tb As New DataTable + 'tb.Columns.Add("Nr", GetType(Integer)) + 'Dim cnt = 1 + + + + 'For Each s In SENDUNGEN + ' tb.Rows.Add(SENDUNGEN.IndexOf(s)) + ' cnt += 1 + 'Next + + + + ' rpt.DataSource = tb + Dim fiskal_bool = False + + AddHandler rpt.Detail.Format, Sub() + 'Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value) + + 'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + 'ZOLLANMELDUNG.getDataByBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef) ' Die weiteren Daten werden hier geladen + + + + 'rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1 + 'If If(SND.tblSnd_Vorpapier, "") = Vorpapier Then + ' rpt.txtPos.Text = If(SND.tblSnd_Vorpapier_Pos, "").ToString.Trim + 'ElseIf If(SND.tblSnd_Vorpapier2, "") = Vorpapier Then + ' rpt.txtPos.Text = If(SND.tblSnd_Vorpapier2_Pos, "").ToString.Trim + 'ElseIf If(SND.tblSnd_Vorpapier3, "") = Vorpapier Then + ' rpt.txtPos.Text = If(SND.tblSnd_Vorpapier3_Pos, "").ToString.Trim + 'End If + + 'If SND.tblSnd_Fremdspedition Then + ' rpt.txtAbfertigungsart.Text = "FREMD" + ' rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText + 'Else + ' rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-") + ' rpt.txtPosNr.Text &= vbNewLine & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False) + + ' If SND.tblSnd_Abfertigungsart_ID > 0 Then + ' Select Case SND.tblSnd_Abfertigungsart_ID + ' Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung" + ' Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr." + ' Case 26, 28 + ' rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID) + ' fiskal_bool = True + ' Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID) + ' End Select + ' Else + ' rpt.txtAbfertigungsart.Text = "-" + ' End If + 'End If + + + 'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer + 'End Select + + 'rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-") + '' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim + 'rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim + 'rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim + + 'Dim NCTS_VZAdr = "" + 'NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "") + 'NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "") + 'NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "") + 'NCTS_VZAdr &= vbNewLine + 'If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & " " + '' If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "") + + + 'rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim + + 'Dim ATAMRN_List As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) + 'Dim ATAMRN = "" + 'SND.LOAD_HANDLING() + + 'If SND.tblSnd_Abfertigungsart_ID = 23 AndAlso SND.tblSnd_ATANr IsNot Nothing Then + ' If SND.HANDLING.Count > 0 Then + ' ATAMRN_List = SND.HANDLING + + ' ' Else + ' ' ATAMRN = SND.tblSnd_ATANr + ' ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) + ' ' End If + ' 'Else + ' ' Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + ' ' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) + ' ' If ATAMRN <> "" Then ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, If(IsNumeric(SND.tblSnd_Colli), SND.tblSnd_Colli, ""), If(IsNumeric(SND.tblSnd_Gewicht), SND.tblSnd_Gewicht, ""))) + ' End If + 'End If + + 'If ATAMRN_List.Count = 0 Then 'kein Handling + ' 'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + ' 'ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString) + + ' 'Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0)) + ' 'Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0)) + ' 'ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht)) + + + + ' ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef) + + ' Dim Colli As Double = 0 + ' Dim Gewicht As Double = 0 + ' If ZOLLANMELDUNG.num_Colli > 0 Then + ' Colli = ZOLLANMELDUNG.num_Colli + ' Else + ' Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0)) + ' End If + + ' If ZOLLANMELDUNG.num_Gewicht > 0 Then + ' Gewicht = CDbl(ZOLLANMELDUNG.num_Gewicht) + ' Else + ' Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0)) + ' End If + + ' ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht)) + 'End If + + 'If isATZollWithoutUeT(SND, ZOLLANMELDUNG) Then ' prüfen, ob AT-Zoll ohne Ãœ-T1 --> dann kein Eintrag! + ' ' rpt.Detail.Visible = False + ' Dim SubRpt As New subRptLaufzettelZollDE_ATZOLL + ' rpt.SubReport.Report = SubRpt + 'Else + + ' rpt.Detail.Visible = True + ' For Each a In ATAMRN_List + ' gesColli += a.sndhdg_colli + ' gesGewicht += a.sndhdg_gewicht + ' Next + ' Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition, ZOLLANMELDUNG.Vorpapier, SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung) + ' rpt.SubReport.Report = SubRpt + + 'End If + + + 'rpt.txtAnmerkung.Visible = False + + ''If ATAMRN_List.Count = 0 Then + + '' rpt.txtAnmerkung.Text = "" + '' Dim colliGewicht = "" + '' If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; " + '' If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg" + '' If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim + '' rpt.txtAnmerkung.Visible = True + ''Else + '' rpt.txtAnmerkung.Visible = False + ''End If + + + + + + End Sub + + + + AddHandler rpt.ReportFooter1.Format, Sub() + Try + rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk" + rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg" + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + + AddHandler rpt.Detail.BeforePrint, Sub() + rpt.Shape8.Height = rpt.Detail.Height + rpt.Shape10.Height = rpt.Detail.Height + rpt.Shape11.Height = rpt.Detail.Height + + + End Sub + + If printReportElsePDF Then 'NUR DRUCK!! + rpt.Run(False) + + rpt.Document.Printer.PrinterName = printername + rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0) + rpt.Document.Printer.OriginAtMargins = False + + rpt.Document.Print((printername = ""), False) + rpt.Dispose() + Else + + + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Sammelakt_CheckIn.pdf", ".pdf", , False) + + + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + + p.NeverEmbedFonts = "" + p.Export(rpt.Document, tmpPath) + + rpt.Dispose() + + End If + + Catch ex As Exception + MessageBox.Show(ex.ToString & ex.StackTrace) + End Try + Return tmpPath + End Function + Shared Function isATZollWithoutUeT(SND As VERAG_PROG_ALLGEMEIN.cSendungen, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung) As Boolean If SND IsNot Nothing And ZOLLANMELDUNG IsNot Nothing Then Select Case SND.tblSnd_Abfertigungsart_ID @@ -2513,6 +2853,39 @@ Public Class FormularManagerNEU End Try End Function + + + Shared Function EORI_PRUEFUNG(ErgebnisTXT, firma, sessionID, txtEORI, Optional AvisoId = -1, Optional SendungsId = -1) As String + Try + 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ErgebnisTXT, 73, 110, 150, 10, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT)) + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString & " Uhr", 73, 118, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(txtEORI, 73, 126, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(firma, 73, 133, 150, 30, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + + ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(tid, 73, 163, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(uidAntragsteller, 73, 170, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 73, 158, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(sessionID, 73, 191, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT)) + + ' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "UID_Prüfung", listTowrite) + Dim PdfTmp = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2_FO, "", "EORI_Prufung", listTowrite) + + Return PdfTmp + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return "" + End Try + End Function + Shared Function VM_AT_EV(usrCntl As usrcntlVollmacht_AT_EV) As String 'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem) Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 9a1539f8..14416e82 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -488,15 +488,6 @@ Namespace My.Resources End Get End Property - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. - ''' - Friend ReadOnly Property dsfsdfsd4fsdfsdfsfffd() As String - Get - Return ResourceManager.GetString("dsfsdfsd4fsdfsdfsfffd", resourceCulture) - End Get - End Property - ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2161,7 +2152,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.7.9 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.8.2 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 6553430f..99291fff 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -629,7 +629,7 @@ ..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - 1.1.7.9 + 1.1.8.2 ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -781,9 +781,6 @@ ..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/SDL/My Project/Settings.Designer.vb b/SDL/My Project/Settings.Designer.vb index 5d4c1d1f..6f8b0448 100644 --- a/SDL/My Project/Settings.Designer.vb +++ b/SDL/My Project/Settings.Designer.vb @@ -86,20 +86,30 @@ Namespace My _ - Public ReadOnly Property SDL_eu_europa_ec_checkVatService() As String + Global.System.Configuration.DefaultSettingValueAttribute("http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation")> _ + Public ReadOnly Property SDL_EORI_validation() As String Get - Return CType(Me("SDL_eu_europa_ec_checkVatService"),String) + Return CType(Me("SDL_EORI_validation"),String) End Get End Property _ - Public ReadOnly Property SDL_EORI_validation() As String + Global.System.Configuration.DefaultSettingValueAttribute("https://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation")> _ + Public ReadOnly Property SDL_eu_europa_ec1_validation() As String Get - Return CType(Me("SDL_EORI_validation"),String) + Return CType(Me("SDL_eu_europa_ec1_validation"),String) + End Get + End Property + + _ + Public ReadOnly Property SDL_eu_europa_ec_checkVatService() As String + Get + Return CType(Me("SDL_eu_europa_ec_checkVatService"),String) End Get End Property End Class diff --git a/SDL/My Project/Settings.settings b/SDL/My Project/Settings.settings index 7656482c..d0954e4d 100644 --- a/SDL/My Project/Settings.settings +++ b/SDL/My Project/Settings.settings @@ -11,11 +11,14 @@ http://ec.europa.eu/taxation_customs/vies/services/checkVatService - - http://ec.europa.eu/taxation_customs/vies/services/checkVatService - http://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation + + https://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation + + + http://ec.europa.eu/taxation_customs/vies/services/checkVatService + \ No newline at end of file diff --git a/SDL/Reports/Zoll/rptAufschubabgleich.Designer.vb b/SDL/Reports/Zoll/rptAufschubabgleich.Designer.vb new file mode 100644 index 00000000..055fe5a0 --- /dev/null +++ b/SDL/Reports/Zoll/rptAufschubabgleich.Designer.vb @@ -0,0 +1,536 @@ + +Partial Public Class rptAufschubabgleich + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader + Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAufschubabgleich)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSummeOffenerSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAnnahme = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblGestellung = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblAbfertigungsort = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAKTO = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblATC = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblBUDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFakturiert = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblDifferenz = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFaelligkeit = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() + Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblKontoBez = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.lblBetragSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFakturiertSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblDifferenzSum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label() + CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsort, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAKTO, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblATC, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBUDatValue, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDifferenz, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKontoBez, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFakturiertSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDifferenzSum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label11, Me.Label4, Me.Label12, Me.lblSummeOffenerSachbearbeiter, Me.lblBezugsnummer, Me.lblAnnahme, Me.lblGestellung, Me.Line1}) + Me.PageHeader.Height = 0.186554! + Me.PageHeader.Name = "PageHeader" + ' + 'Label11 + ' + Me.Label11.Height = 0.1480315! + Me.Label11.HyperLink = Nothing + Me.Label11.Left = 4.877953! + Me.Label11.Name = "Label11" + Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right" + Me.Label11.Text = "Betrag" + Me.Label11.Top = 0.02874016! + Me.Label11.Width = 0.9330705! + ' + 'Label4 + ' + Me.Label4.Height = 0.1480315! + Me.Label4.HyperLink = Nothing + Me.Label4.Left = 5.811024! + Me.Label4.Name = "Label4" + Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right" + Me.Label4.Text = "Fakturiert" + Me.Label4.Top = 0.02874016! + Me.Label4.Width = 0.9330708! + ' + 'Label12 + ' + Me.Label12.Height = 0.1480315! + Me.Label12.HyperLink = Nothing + Me.Label12.Left = 6.744095! + Me.Label12.Name = "Label12" + Me.Label12.Style = "font-size: 8pt; font-weight: bold; text-align: right" + Me.Label12.Text = "Differenz" + Me.Label12.Top = 0.02874016! + Me.Label12.Width = 0.9330708! + ' + 'lblSummeOffenerSachbearbeiter + ' + Me.lblSummeOffenerSachbearbeiter.Height = 0.1480315! + Me.lblSummeOffenerSachbearbeiter.HyperLink = Nothing + Me.lblSummeOffenerSachbearbeiter.Left = 3.113386! + Me.lblSummeOffenerSachbearbeiter.Name = "lblSummeOffenerSachbearbeiter" + Me.lblSummeOffenerSachbearbeiter.Style = "font-size: 8pt; font-weight: bold" + Me.lblSummeOffenerSachbearbeiter.Text = "Abfertigungsort" + Me.lblSummeOffenerSachbearbeiter.Top = 0.02874016! + Me.lblSummeOffenerSachbearbeiter.Width = 1.764567! + ' + 'lblBezugsnummer + ' + Me.lblBezugsnummer.Height = 0.1478346! + Me.lblBezugsnummer.HyperLink = Nothing + Me.lblBezugsnummer.Left = 0.0000001192093! + Me.lblBezugsnummer.Name = "lblBezugsnummer" + Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold" + Me.lblBezugsnummer.Text = "Aufschubkonto" + Me.lblBezugsnummer.Top = 0.03031496! + Me.lblBezugsnummer.Width = 0.8748031! + ' + 'lblAnnahme + ' + Me.lblAnnahme.Height = 0.1478347! + Me.lblAnnahme.HyperLink = Nothing + Me.lblAnnahme.Left = 0.8748032! + Me.lblAnnahme.Name = "lblAnnahme" + Me.lblAnnahme.Style = "font-size: 8pt; font-weight: bold" + Me.lblAnnahme.Text = "Registriernumer" + Me.lblAnnahme.Top = 0.02992126! + Me.lblAnnahme.Width = 1.611024! + ' + 'lblGestellung + ' + Me.lblGestellung.Height = 0.1478347! + Me.lblGestellung.HyperLink = Nothing + Me.lblGestellung.Left = 2.485827! + Me.lblGestellung.Name = "lblGestellung" + Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold" + Me.lblGestellung.Text = "Bu.-Datum" + Me.lblGestellung.Top = 0.02913386! + Me.lblGestellung.Width = 0.6125984! + ' + 'Line1 + ' + Me.Line1.Height = 0.00008200109! + Me.Line1.Left = 0! + Me.Line1.LineWeight = 1.0! + Me.Line1.Name = "Line1" + Me.Line1.Top = 0.1795276! + Me.Line1.Width = 7.677084! + Me.Line1.X1 = 0! + Me.Line1.X2 = 7.677084! + Me.Line1.Y1 = 0.1795276! + Me.Line1.Y2 = 0.1796096! + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAbfertigungsort, Me.lblAKTO, Me.lblATC, Me.lblBUDatValue, Me.lblBetrag, Me.lblFakturiert, Me.lblDifferenz}) + Me.Detail.Height = 0.1480315! + Me.Detail.Name = "Detail" + ' + 'lblAbfertigungsort + ' + Me.lblAbfertigungsort.Height = 0.1379921! + Me.lblAbfertigungsort.HyperLink = Nothing + Me.lblAbfertigungsort.Left = 3.113386! + Me.lblAbfertigungsort.Name = "lblAbfertigungsort" + Me.lblAbfertigungsort.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" & + "ap" + Me.lblAbfertigungsort.Text = "-" + Me.lblAbfertigungsort.Top = 2.793968E-9! + Me.lblAbfertigungsort.Width = 1.764567! + ' + 'lblAKTO + ' + Me.lblAKTO.Height = 0.1374016! + Me.lblAKTO.HyperLink = Nothing + Me.lblAKTO.Left = 0! + Me.lblAKTO.Name = "lblAKTO" + Me.lblAKTO.Style = "font-size: 8pt; font-weight: normal; ddo-char-set: 1" + Me.lblAKTO.Text = "-" + Me.lblAKTO.Top = 0.0003937008! + Me.lblAKTO.Width = 0.8748031! + ' + 'lblATC + ' + Me.lblATC.Height = 0.1377953! + Me.lblATC.HyperLink = Nothing + Me.lblATC.Left = 0.8748032! + Me.lblATC.Name = "lblATC" + Me.lblATC.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" & + "ap" + Me.lblATC.Text = "-" + Me.lblATC.Top = 0.003149613! + Me.lblATC.Width = 1.611024! + ' + 'lblBUDatValue + ' + Me.lblBUDatValue.Height = 0.1377953! + Me.lblBUDatValue.HyperLink = Nothing + Me.lblBUDatValue.Left = 2.485827! + Me.lblBUDatValue.Name = "lblBUDatValue" + Me.lblBUDatValue.Style = "font-size: 8pt; font-weight: normal" + Me.lblBUDatValue.Text = "-" + Me.lblBUDatValue.Top = 4.656613E-9! + Me.lblBUDatValue.Width = 0.6275587! + ' + 'lblBetrag + ' + Me.lblBetrag.Height = 0.1480315! + Me.lblBetrag.HyperLink = Nothing + Me.lblBetrag.Left = 4.877953! + Me.lblBetrag.Name = "lblBetrag" + Me.lblBetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblBetrag.Text = "Betrag" + Me.lblBetrag.Top = 0! + Me.lblBetrag.Width = 0.9330708! + ' + 'lblFakturiert + ' + Me.lblFakturiert.Height = 0.1480315! + Me.lblFakturiert.HyperLink = Nothing + Me.lblFakturiert.Left = 5.811024! + Me.lblFakturiert.Name = "lblFakturiert" + Me.lblFakturiert.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblFakturiert.Text = "Fakturiert" + Me.lblFakturiert.Top = 0! + Me.lblFakturiert.Width = 0.9330708! + ' + 'lblDifferenz + ' + Me.lblDifferenz.Height = 0.1480315! + Me.lblDifferenz.HyperLink = Nothing + Me.lblDifferenz.Left = 6.744095! + Me.lblDifferenz.Name = "lblDifferenz" + Me.lblDifferenz.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblDifferenz.Text = "Differenz" + Me.lblDifferenz.Top = 0! + Me.lblDifferenz.Width = 0.9330708! + ' + 'lblFaelligkeit + ' + Me.lblFaelligkeit.Height = 0.1379921! + Me.lblFaelligkeit.HyperLink = Nothing + Me.lblFaelligkeit.Left = 1.18937! + Me.lblFaelligkeit.Name = "lblFaelligkeit" + Me.lblFaelligkeit.Style = "font-size: 8pt; font-weight: normal" + Me.lblFaelligkeit.Text = "-" + Me.lblFaelligkeit.Top = 0.6374016! + Me.lblFaelligkeit.Width = 5.171654! + ' + 'PageFooter + ' + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2}) + Me.PageFooter.Height = 0.2048064! + Me.PageFooter.Name = "PageFooter" + ' + 'ReportInfo1 + ' + Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten " + Me.ReportInfo1.Height = 0.2! + Me.ReportInfo1.Left = 4.199213! + Me.ReportInfo1.Name = "ReportInfo1" + Me.ReportInfo1.Style = "font-size: 8pt; text-align: right" + Me.ReportInfo1.Top = 0.05669292! + Me.ReportInfo1.Width = 3.478! + ' + 'lblDetails + ' + Me.lblDetails.Height = 0.2! + Me.lblDetails.HyperLink = Nothing + Me.lblDetails.Left = 0.02598425! + Me.lblDetails.Name = "lblDetails" + Me.lblDetails.Style = "font-size: 8pt" + Me.lblDetails.Text = "" + Me.lblDetails.Top = 0.05669292! + Me.lblDetails.Width = 3.187031! + ' + 'Label8 + ' + Me.Label8.Height = 0.2! + Me.Label8.HyperLink = Nothing + Me.Label8.Left = 3.213015! + Me.Label8.Name = "Label8" + Me.Label8.Style = "font-size: 8pt" + Me.Label8.Text = "VERAG Spedition AG" + Me.Label8.Top = 0.05688977! + Me.Label8.Width = 2.193284! + ' + 'Line2 + ' + Me.Line2.Height = 0.00008201972! + Me.Line2.Left = 0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.05708662! + Me.Line2.Width = 7.677084! + Me.Line2.X1 = 0! + Me.Line2.X2 = 7.677084! + Me.Line2.Y1 = 0.05708662! + Me.Line2.Y2 = 0.05716864! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.lblKontoBez, Me.Label5, Me.lblFaelligkeit, Me.Label1}) + Me.ReportHeader1.Height = 0.9941437! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'picVERAG + ' + Me.picVERAG.Height = 0.5000001! + Me.picVERAG.HyperLink = Nothing + Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream) + Me.picVERAG.Left = 4.932283! + Me.picVERAG.Name = "picVERAG" + Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.677166! + ' + 'lblText1 + ' + Me.lblText1.Height = 0.4082677! + Me.lblText1.HyperLink = Nothing + Me.lblText1.Left = 0! + Me.lblText1.Name = "lblText1" + Me.lblText1.Style = "font-weight: bold" + Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Aufschubkonten - Abgleich Fakturierung" + Me.lblText1.Top = 0.09173229! + Me.lblText1.Width = 4.000394! + ' + 'lblKontoBez + ' + Me.lblKontoBez.Height = 0.1374017! + Me.lblKontoBez.HyperLink = Nothing + Me.lblKontoBez.Left = 1.18937! + Me.lblKontoBez.Name = "lblKontoBez" + Me.lblKontoBez.Style = "font-size: 8pt; font-weight: normal" + Me.lblKontoBez.Text = "Aufschubkonto:" + Me.lblKontoBez.Top = 0.5000001! + Me.lblKontoBez.Width = 5.171653! + ' + 'Label5 + ' + Me.Label5.Height = 0.1374017! + Me.Label5.HyperLink = Nothing + Me.Label5.Left = 0! + Me.Label5.Name = "Label5" + Me.Label5.Style = "font-size: 8pt; font-weight: normal" + Me.Label5.Text = "Aufschubkonto:" + Me.Label5.Top = 0.5000001! + Me.Label5.Width = 1.18937! + ' + 'Label1 + ' + Me.Label1.Height = 0.1374017! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 0! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 8pt; font-weight: normal" + Me.Label1.Text = "Fälligkeit:" + Me.Label1.Top = 0.6377953! + Me.Label1.Width = 1.18937! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBetragSum, Me.lblFakturiertSum, Me.lblDifferenzSum, Me.Label2, Me.lblAnzahl}) + Me.ReportFooter1.Height = 0.4748033! + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'lblBetragSum + ' + Me.lblBetragSum.Height = 0.1480315! + Me.lblBetragSum.HyperLink = Nothing + Me.lblBetragSum.Left = 4.877953! + Me.lblBetragSum.Name = "lblBetragSum" + Me.lblBetragSum.Style = "font-size: 8pt; font-weight: bold; text-align: right" + Me.lblBetragSum.Text = "Betrag" + Me.lblBetragSum.Top = 0.1708661! + Me.lblBetragSum.Width = 0.9330708! + ' + 'lblFakturiertSum + ' + Me.lblFakturiertSum.Height = 0.1480315! + Me.lblFakturiertSum.HyperLink = Nothing + Me.lblFakturiertSum.Left = 5.811024! + Me.lblFakturiertSum.Name = "lblFakturiertSum" + Me.lblFakturiertSum.Style = "font-size: 8pt; font-weight: bold; text-align: right" + Me.lblFakturiertSum.Text = "Fakturiert" + Me.lblFakturiertSum.Top = 0.1708661! + Me.lblFakturiertSum.Width = 0.9330708! + ' + 'lblDifferenzSum + ' + Me.lblDifferenzSum.Height = 0.1480315! + Me.lblDifferenzSum.HyperLink = Nothing + Me.lblDifferenzSum.Left = 6.744095! + Me.lblDifferenzSum.Name = "lblDifferenzSum" + Me.lblDifferenzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right" + Me.lblDifferenzSum.Text = "Differenz" + Me.lblDifferenzSum.Top = 0.1708661! + Me.lblDifferenzSum.Width = 0.9330708! + ' + 'Label2 + ' + Me.Label2.Height = 0.1374017! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 0.02598429! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 8pt; font-weight: normal" + Me.Label2.Text = "Anzahl:" + Me.Label2.Top = 0.1708661! + Me.Label2.Width = 1.18937! + ' + 'lblAnzahl + ' + Me.lblAnzahl.Height = 0.1379921! + Me.lblAnzahl.HyperLink = Nothing + Me.lblAnzahl.Left = 1.252756! + Me.lblAnzahl.Name = "lblAnzahl" + Me.lblAnzahl.Style = "font-size: 8pt; font-weight: normal" + Me.lblAnzahl.Text = "-" + Me.lblAnzahl.Top = 0.1704725! + Me.lblAnzahl.Width = 1.233071! + ' + 'rptAufschubabgleich + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.1968504! + Me.PageSettings.Margins.Left = 0.1968504! + Me.PageSettings.Margins.Right = 0.1968504! + Me.PageSettings.Margins.Top = 0.1968504! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.677166! + Me.ScriptLanguage = "VB.NET" + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.PageFooter) + Me.Sections.Add(Me.ReportFooter1) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsort, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAKTO, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblATC, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBUDatValue, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDifferenz, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKontoBez, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFakturiertSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDifferenzSum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblSummeOffenerSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblAnnahme As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblGestellung As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo + Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblBetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFakturiert As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblDifferenz As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblBetragSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFakturiertSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblDifferenzSum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAbfertigungsort As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAKTO As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblATC As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblBUDatValue As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFaelligkeit As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblKontoBez As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture + Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label +End Class diff --git a/SDL/Reports/Zoll/rptAufschubabgleich.resx b/SDL/Reports/Zoll/rptAufschubabgleich.resx new file mode 100644 index 00000000..6e2bbfec --- /dev/null +++ b/SDL/Reports/Zoll/rptAufschubabgleich.resx @@ -0,0 +1,762 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAAAAAAB6TAAAekwAAAQEBAQoPAgAAAB6TAAACAhmTAACJUE5HDQoaCgAAAA1JSERS + AAAJOgAAAZIIBgAAAMnO7JoAAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29mdHdh + cmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJKeSURBVHhe7N0LvG1T3f/xczgOh1MuIbekSC4VXZyuShfy + pHokSRc93dOF7qX7qVS6SXcSqXZFqVQq3aQ7SegiIkmJJCKh4/D/f3+W09pzr+/eZ+21xxxrzDk/vV7v + 1//1Hw97jPWbYy5jrfFdc8z7f//v/wEAAAAAAAAAAAAAAABA0WwjAAAAAAAAAAAAAAAAAJTENgIAAAAA + AAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTE + NgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAA + AAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAA + AAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABA + SWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAA + AAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIA + AAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAA + AJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAA + AAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwj + AAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAA + AABASWwjAAAAAAAAAAAAAAAAAJTENgIAAAAAAAAAAAAAAABASWwjAAAAAAAAAAAAAAAAAJTENuY0b8lS + AAAAAAAAAACAJlhTNpedZHd5qrxQXiPvkA/Lp+Urcor8WM6S38pFcon881Y3yP9DNjfKitqHP0lck3CO + xHX6hcR1+5acIJ+TY+RD8l5ZKi+VZ8u+soc8RHaQO8ha4uZN57g9QQAAgBRsY05u8QMAAAAAAAAAAJDR + qrKF7CxPklfJ++WLcppEKOY6cQEaYLL/yF/lN/JD+bx8UCIM9wyJgNw9ZF1xc7EV3J4gAABACrYxJ7f4 + AQAAAAAAAAAAqMEmspscIBFkOlHOlWXiQitAneLJUvEkqS/LoRJPB9tFNhA3fxvD7QkCAACkYBvroEXN + T8Qt4lB1vWwsA4tCoFCryNni5jN6uK/TeYm4GgNopngEvLvXUZb40tVdP6Btph5f8SuJDYc4auSbEr/C + PloOkzfLK+T/5NFyf9labifuPgKAYSwR9/6ENOJ9Pb7DcLUH0E4LJY6X21/i2LE4juxKce8RQIn+LjFv + IwAVx+TdWdxcL5LbKwQAAEjBNtZBi5oHi1uoYVB86BpYFAKFikftunmMvkPE1Q6zR9AJaBeCTs1A0AmY + nXgSwMXyMzle4vPdQbKPxEYbYSgA04mjbdz7CtJ5mrjaA2iHreQpEkeEnSpxfJh7LwCaLMJP8X1KfE96 + N5kv7n4YO7dXCAAAkIJtrIsWNvErWLcwQ1V8MX5HGVgYAoVZUy4RN4/RE5vD64irH2aPoBPQLgSdmoGg + E5DeNXKmHCtvlMfL9rKauPsQQPs9Rtz7BdKKJ/bFE17cNQDQPPEd+tPlGIn72933QNv9TT4te8ticffK + WLh9QgAAgBRsY120sLmnuIUYBsWHs4GFIVCYN4ibv+iLX++72mE0BJ2AdiHo1AwEnYB8bpRfypESR6zE + E6BWF3dvAmiPBfJbce8LSO/F4q4DgPLF++Uu8l45T9w9DnTZDfI1earEj5TdfZSN2ycEAABIwTbWSYub + 48QtwFC1XLaVgcUhUIiN5Fpx8xc9l8oicfXDaAg6Ae1C0KkZCDoB4xWbFXGc1dtkd7mtuHsVQHM9S9z9 + j3rEkT+3EXctAJQnQt+Pk8/IleLuawCD/iVHy87i7q3auT1CAACAFGxjnbS42VoixOMWXqj6vAwsDoFC + HC5u3qLveeJqh9ERdALahaBTMxB0AsoSn6cj+PQ6uZfMF3fvAmiG+HEMR8Ln92Zx1wNAGVaReHJTPOXy + KnH3MYDhxbHZT5Osx7e6PUIAAIAUbGPdtMCJDyhusYVBcdzfwAIRGLPthMDizC6QeJy2qx9GR9AJaBeC + Ts1A0Ako22USP0J4uMSmoLuPAZQrQovu3ka94gnVG4q7JgDGJ+7LeF+8WNy9C2Bu/irx/WqWUwjc/iAA + AEAKtrFuWuDcQa4Xt9BC1TdkYIEIjNmJ4uYr+p4ornaYG4JOQLsQdGoGgk5Ac8TGxQeEH8wAzbC+XC3u + fkb94v3SXRcA+T1A4mi6ZeLuVwBpRZjwuVLrD3Xd/iAAAEAKtjEHLXIOFbfAwqAHysAiERiT+KW4m6fo + +6VwhEg9CDoB7ULQqRkIOgHNdIbE5sVtxN3bAMYvgjbu/kUeEai4s7hrAyCP+J7xFHH3KID6/Vpq239y + e4MAAAAp2MYctMiJX61dI25xhar4sDewSATGII7CiBCPm6foe6S4+mHuCDoB7ULQqRkIOgHNFvfwO2Qj + cfc4gPHYUnhyyfhNiLs+AOoV352dKu6+BJDfx2UdcffryNzeIAAAQAq2MRctdJaKW1RhEMEJlGA/cfMT + fd8XVzukQdAJaBeCTs1A0AlohxvkcNlE3L0OIK9jxd2ryOtm2UHcNQKQ3vbyLXH3I4Dx+pMkfbqT2xcE + AABIwTbmooXOYrlC3KIKVacLR2FhnBbJn8XNT/TdT1z9kAZBJ6BdCDo1A0EnoF2uk4NlbXH3PID63Ufc + /Ynx+Lq46wQgndvJR2W5uPsQQBniHn2DJNmLcvuCAAAAKdjGnLTYeam4BRUG7SkDi0Ugk9eKm5fo+7K4 + 2iEdgk5AuxB0agaCTkA7XS5PEnffA6jXyeLuS4zPg8VdKwBzF99pXybu3gNQpuNkTXH39NDcniAAAEAK + tjEnLXbiKTEXi1tMoeocWUUGFoxAzTaUa8TNS/TEr122E1c/pEPQCWgXgk7NQNAJaLdvyubi7n8A6e0h + 7l7EeP1M3PUCMLp4itNnxN1zAMr3c9lI3P09FLcnCAAAkIJtzOnWBc+zxC2kMGg/qSwWgQw+JG4+ou8T + 4mqHtAg6Ae1C0KkZCDoB7XeVPE7cewCAdOLHa78Wdx9i/HiSOpDOg+Qv4u41AM1xgWwm7j5fKbcnCAAA + kIJtzOnWBc8COU/cQgpVsbBcTSoLRqBGdxXOz5/ZDcKv4PMg6AS0C0GnZiDoBHTHYcLnTaA+zxR376EM + 8ST1VcVdOwDDi+9u+C4RaI+Rw05uTxAAACAF25jTpEXPPuIWURi0v0yuHVCnr4ibh+g7VFztkB5BJ6Bd + CDo1A0EnoFtOksXi3g8AjG6R8HST8kUYzV0/ACsXYemjxN1bAJotwk4biLv3p+X2BAEAAFKwjTlNWvTM + lzPFLaJQFV+MxRdkk+sH1OEh4uYg+q6R9cXVD+kRdALahaBTMxB0ArrnFzLrjQwAM3q1uPsNZblY+M4N + mL015Vvi7isA7XCaxL3u3gMstycIAACQgm3MacrCZ3dxCygMeqlMrR+QUoQPY4PDzT/0vVFc/VAPgk5A + uxB0agaCTkA3/VoIOwFp3E7472lzvFzcdQTgrS0/EXc/AWiXOP0h9g3ce8EAtycIAACQgm3MySx+ThG3 + gELVFcJxAqjTk8XNPfRdLtyHeRF0AtqFoFMzsDELdFf88CE2L917A4DhxXHn7h5DmeI7t3XEXUsAVbeR + eMqLu5cAtNPrxL0fDHB7ggAAACnYxpzM4ucB4hZPGMSTZFCXNeQicfMOfQeKqx/qQ9AJaBeCTs1A0Ano + th/IauLeHwCs3J1kmbj7C+V6m7jrCaBvoXxP3D0EoL1ukoeIe1+ocHuCAAAAKdjGnNziR74mbgGFqth0 + Wk9cDYG5eJW4OYe+P0p8oePqh/oQdALahaBTMxB0AvBRce8PAFbuM+LuK5Tt37KxuGsKoHd01XHi7h8A + 7XeprCvu/eG/3J4gAABACrYxJ7f4kR3kZnELKFQdIq6GwKjWFzY0V+5p4uqHehF0AtqFoFMzsC4AEJ4r + 7j0CwPTuJe5+QjN8RNx1BbBk6evF3TcAuuMYce8P/+X2BAEAAFKwjTm5xc+t+MXbcK4TfmGGlD4gbq6h + 79eyirj6oV4EnYB2IejUDASdAITrZVtx7xMAvO+Ku5/QDDfKVuKuLdBljxZ+pAwg7CbufeIWbk8QAAAg + BduYk1v83Cq+SIgvFNziCVUfFFdDYLbuIsvEzTP0PUZc/VA/gk5AuxB0agaCTgBW+KWsJu69AkDVI8Xd + R2iWOJrLXV+gq+I7ez4fAFjhQlko7v3C7gkCAACkYBtzcoufSQ4Xt3hCVQRTNhdXQ2A2vihujqHvJ+Jq + hzwIOgHtQtCpGdjIADDZm8W9VwDoiycAny3uHkLzxBGE7joDXbOq/EzcfQKgu14u7j3D7gkCAACkYBtz + coufSeJItng8vls8oWql5yEDK/EgcXMLVTuLqx/yIOgEtAtBp2Yg6ARgshtkS3HvFwB6nibu/kEzfVvc + dQa65vXi7hEA3XaVrCcD7xtuTxAAACAF25iTW/xM8U5xiydULZdtxNUQWJn5cpq4uYW+r4urH/Ih6AS0 + C0GnZiDoBGAq1sXA9BbJxeLuHTTXw8Vdb6Ar7ik3irs/AOAQGXjvcHuCAAAAKdjGnNziZ4pIgrO5Mpzj + xNUQWJl9xM0p9N0sO4irH/Ih6AS0C0GnZmAtDsB5pLj3DKDrXinunkGznS7xIzF3zYG2i+M4+YEkgJlc + I+tI5f3D7QkCAACkYBtzmrrwmQaPxR1e/LrG1RCYzkK5UNx8Qt+EuPohL4JOQLsQdGoGgk4AnNjwZNMf + qFpX4vgWd8+g+fYWd92BtnuOuHsCACZ7nVTeP9yeIAAAQAq2MaepC59pLJa/iVs8oYojBDBbLxc3l9C3 + TLYUVz/kRdAJaBeCTs1A0AnAdPYU974BdNV7xN0raIfzZIG4aw+0VQQ4Lxd3TwDAZH+X1eW/7yFuTxAA + ACAF25jT5EXPShwobvGEQQ8QV0Ngqjgakl+brtyHxNUP+RF0AtqFoFMzEHQCMJ0zxL1vAF10R7lB3L2C + 9niuuOsPtNX7xN0LAODsI/99D3F7ggAAACnYxpwmL3pWIo7X+pO4xROqThFXQ2CqQ8XNIfRdKxuJqx/y + I+gEtAtBp2Yg6ARgJjuLe+8AuubT4u4RtMtfZZG4OQC0zcZyvbh7AQCc78l/30fcniAAAEAKtjGnyYue + ITxd3OIJg3YVV0NghTtLHMnm5g/6DhZXP4wHQSegXQg6NQNBJwAzOV7cewfQJTvKzeLuEbTPq8XNA6Bt + DhN3DwDATLaSW95H3J4gAABACrYxpxULniGtKueIWzyh6jSZL66OQPi8uLmDvitkHXH1w3gQdALahaBT + MxB0AjCT5XIHce8fQFd8R9z9gXaKtdG64uYC0BabC09zAjCKN8gt7yVuTxAAACAF25jTigXPLOwlbvGE + QXuKqyFwf3FzBlWvEFc/jA9BJ6BdCDo1A0EnACvzOnHvH0AXPELcfYF2e5e4+QC0RcxxN/cBYGXOklve + S9yeIAAAQAq2MacVC55ZiKcU/VzcAgpVv5FVxNUR3RX30E/EzRn0/VkWiashxoegE9AuBJ2agaATgJU5 + T9z7B9B28Z3LL8XdF2i3eNLNpuLmBdB0a8lV4uY+AAxjS7F7ggAAACnYxpxisTMCfi03vKeIqyG66/Hi + 5gqqniWufhgvgk5AuxB0agaCTgCGsUTcewjQZk8Vdz+gG44UNy+Apttf3JwHgGG9UuyeIAAAQAq2MadY + 7IzoZHELKFRdIAvE1RDds1DOFzdX0HeucN+UiaAT0C4EnZqBoBOAYRwq7j0EaKvV5SJx9wO6YblsI25+ + AE0VT4L/nbg5DwDD+o7YPUEAAIAUbGNOsdgZ0X3FLaAw6HniaojuebG4OYKqeOqVqx/Gj6AT0C4EnZqB + oBOAYcSPbNx7CNBWLxd3L6BbvihufgBN9QBxcx0AZuMGWcPtCQIAAKRgG3PSYmcuYnPMLaJQ9WdZJK6G + 6I515B/i5gj6fi7x6zVXQ4wfQSegXQg6NQNBJwDD2k7c+wjQNvH5+kpx9wG6h6M70SaHi5vnADBbj3B7 + ggAAACnYxpy02JmL+BL1ZnGLKFRFOMDVEN3xHnFzA1UPF1c/lIGgE9AuBJ2agaATgGEdJO59BGibd4q7 + B9BNJ4ubJ0DTxJGcV4mb5wAwW293e4IAAAAp2MactNiZq0+KW0Sh6gpZLK6GaL8tJB4X6+YG+m45OxxF + I+gEtAtBp2Yg6ARgWN8V9z4CtMkd5Hpx9wC6azdx8wVokseLm98AMIrvuj1BAACAFGxjTlrszNWdZJm4 + hRSq3iCuhmi/z4qbE6i6j7j6oRwEnYB2IejUDASdAAzrOlko7r0EaItjxM1/dNuZwjH4aLpjxc1vABjF + NbKK2xcEAACYK9uYkxY6KXxQ3EIKVbFJta64GqK9dhI3H1D1BXH1Q1kIOgHtQtCpGQg6AZiNB4l7LwHa + 4B5ys7i5DzxJ3LwBmmA1uVrc3AaAUW3n9gUBAADmyjbmpIVOChvLteIWUqg6RFwN0V4/EjcX0LdcthZX + P5SFoBPQLgSdmoGgE4DZeL249xKgDb4pbt4D4QKJsIibO0DpdhU3rwFgLvZz+4IAAABzZRtz0kInlbeL + W0ih6t8SwTBXQ7TP48TNA1QdKa5+KA9BJ6BdCDo1A0EnALPxdXHvJUDTPVzcnAcme6G4+QOUjhMTANTh + ELcvCAAAMFe2MSctdFJZR9iEGc4HxNUQ7bJAzhM3B9B3vWwqroYoD0EnoF0IOjUDa2wAs3GZuPcSoMnm + yy/EzXlgsktlsbh5BJTsj+LmNADMxVfdviAAAMBc2cactNBJ6SBxiylULZPNxdUQ7fEicdcfVe8SVz+U + iaAT0C4EnZqBoBOA2eKHBGibJ4mb64DDEZ5omi3EzWUAmKsL3b4gAADAXNnGnLTQSWmRxC+n3IIKVUeL + qyHaYW35u7hrj77YuF1PXA1RJoJOQLsQdGoGgk4AZuux4t5PgCZaKBeKm+uAE2un9cXNJ6BETxc3lwFg + rm6WNdzeIAAAwFzYxpy0yEntBeIWVKhaLluLqyGa7xBx1x1VrxVXP5SLoBPQLgSdmoGgE4DZeoO49xOg + ifgMglEcKm4+ASU6Rtw8BoAUtnF7gwAAAHNhG3PSIie1+KXdH8QtqFB1rLgaotniWMLrxV1z9MXT39YS + V0OUi00GoF0IOjUDQScAszUh7v0EaJp15Apx8xyYyQ0S38+4eQWU5iJx8xgAUtjd7Q0CAADMhW3MSYuc + OuwnbkGFqnhs6D3F1RDN9Wlx1xtV8fQ3Vz+UjaAT0C4EnZqBoBOA2fqluPcToGneLm6OA8P4hLh5BZRk + Y3HzFwBS2d/tDQIAAMyFbcxJi5w6rCK/FreoQtXXxNUQzXRviQCbu9bou0BWE1dDlI2gE9AuBJ2agaAT + gNm6Vtz7CdAkmwpPS57edaYNVTfJ9uLmF1CKx4qbvxiveP+Ip9H/Qr4uH5N3yuvlxfJ0eZw8Qu4rO8qd + ZItb3VHiqYRNtq6seD0h3k/jR9u7yO6yp/yfPFcOknfJxyW+Z/iRnCP/EFdf5PV2tzcIAAAwF7YxJy1y + 6vK/4hZVGHQ/cTVE83xf3DVG1ZPF1Q/lI+gEtAtBp2Yg6ARgFJuIe08BmuIocXMbPU+S2IB3/zf0fUXc + /AJK8RZxcxf1i89ZP5Qj5ZWyl9xH4ilbq4q7Xpi9tWQbeaQ8W2LOf0EiCLVc3LVBWp9ye4MAAABzYRtz + 0iKnTqeKW1ih6hRx9UOzPEbc9UXVmRJPfXM1RPkIOg1qw6/00F3xhaO711EWgk4ARsEPatBkd5N4moab + 21iy9AyZLw+d1IbpPUDcPANKEE8LcvMWacXTLr8tB0t8h7uZuOuBvBbKPeQpcrj8Ttz1w9x80+0NAgAA + zIVtzEmLnDrFY0zdwgqD4jG3roZohgXCB7HhPEpcDdEMBJ0GRVjE1QoAUiHoVHWxTA3toRluJ3HsRRzt + EcddPFPiCJDY4PuruOuN0T1R3HsK0AQnipvX6Jn8HRK1Wrl4Ysvk+QWU5DJx8xZz90t5kzxQ4rtbV3+U + ZwPZWz4tV4q7tpid093eIAAAwFzYxpy0yKnbt8QtrlAVT7+KX+O5GqJ8+4u7rqj6gbj6oTkIOg2KjVtX + KwBIhaBT1UXi6oTmiyMtDpBYM7prj9l5hbg6A6XjR3Mz+65Mrlc8/Yqjf1bu0TK5bkAJ1hc3XzG6c+W1 + srm4mqNZVpcI7/P5YG4udnuDAAAAc2Ebc9Iip273Fre4wqA9xdUQZbuN/E3cNUXV/cXVEM1B0GkQQScA + dSPoVEXQqRu2lMPkenHzACv3AXG1BUoWPwA7XdycRk98zza1bh8X98+i71fCMfoozYPFzVfM3kmyq/BD + 4vaK75V/Ku76Y2bXu71BAACAubCNOWmRk8Px4hZYqPq18KVL88TZ7u56ouor4uqHZiHoNIigE4C6EXSq + IujULRvLMeLmAmZ2nLiaAiV7grj5jJ5jxdVtE/m3uH8HffuJqx8wLs8RN1cxvAi+xNF0rr5onwiyHSj/ + ETcfML0Fbn8QAABgVLYxJy1wcthWeIz2cJ4sroYo02bCr8xX7mbZXlwN0SwEnQYRdAJQN4JOVQSduime + fvsPcXMC3tTjrYDSLZQLxM1nLFm6TLYSV7vwVnH/Hvr+KDHPXP2AcXifuLmKlYvvY18k/Gi4m+4rfxc3 + N+Ct4/YHAQAARmUbc9ICJ5ejxS2wUBVf6i0QV0OU5xPiriOq4lf4rn5oHoJOgwg6AagbQacqgk7dtbXE + JrWbFxgUTwx2dQRKdYC4uYyeD4mr2wocqz+cF4urHzAO3xQ3TzGzP8s9xdUU3bGN8N+94d3R7Q8CAACM + yjbmpAVOLpsLjxQdznPF1RBl2UHiSUXuGqIvfnV6R3E1RPMQdBpE0AlA3Qg6VRF06rYt5K/i5gaqok6u + hkCJbis8mWF618pG4mo32QvF/fvoi3m2WFz9gNzOFTdPMb34kXA8Yd/VE91zL+Ho1uFs7/YHAQAARmUb + c9ICJ6fDxC2yUHWxLBJXQ5QjjoJw1w9Vcd+7+qGZCDoNIugEoG4EnaoIOiGOqrhR3PxAX/zgwNUPKNHB + 4uYxet4irm5TxRPCzxP3N9C3VFz9gNzi+DU3R+HFMcYzHeGJbnqGuPmCqp3c/iAAAMCobGNOWuDktIHE + r9DcQgtVESZwNUQZHiXuuqEq7ve4710N0UwEnQYRdAJQN4JOVQSdEAhFDGehuPoBJdlErhM3h9F7AlEc + S+dq5zxO3N9BX3xXsaG4+gG5xPdlbn5ieruKqyXwdXFzBn27uP1BAACAUdnGnLTAyS1+heYWWqi6XHiU + dplWld+Iu26o4leS7UPQaRBBJwB1I+hURdAJYXX5g7g5gj7WKWiCI8XNX/QcKK5uM/mxuL+Fvg+Iqx2Q + y73FzU14h4qrIxC2lHiaqZs76CHoBAAAkrKNOWmBk9vacoW4xRaqXieuhhivZ4u7XqiK+5ywXvsQdBrE + BiKAuhF0qiLohBWeLm6OoG8LcbUDSrGtLBc3f7Fk6R9llCez3V/c30NfbIjfSVz9gBx4+trw/ixriasj + sMIR4uYPegg6AQCApGxjTlrgjMMrxC22UBWbWmyglyWCO5eKu16o4vjFdiLoNIj3aQB1I+hURdAJKyyQ + i8XNE/RsJ652QCm+Km7uouep4uo2jOPF/U30fVpc7YAcXiBuXmJQhNtdDYHJthY3f9DzCLc/CAAAMCrb + mJMWOOOwSC4Rt+BC1TvE1RDj8WZx1wlVf5JRfnWK8hF0GkTQCUDdCDpVEXTCZG8TN0/Qs6O4ugEl2Fnc + vEXPWbKKuNoN4y7CMT4zu1nuIa5+QN2WipuXqDpfItzuaghM9QNx8whLlu7p9gcBAABGZRtz0gJnXJ4r + bsGFqmtlI3E1RF6byL/FXSdU8Uur9iLoNIigE4C6EXSqIuiEybYRN0/Q80BxdQPGbb6cKm7eomd3cbWb + jQ+K+9vo+7q42gF1+7C4OYmq2ENw9QOc/cXNIxB0AgAAidnGnLTAGZf4JcYF4hZdqDpMXA2R18fFXR9U + /Vbm8qtTlI2g0yCCTgDqRtCpiqATpuJz5fR2EVczYNz2Fjdn0fN9cXWbrQ3kanF9oO/B4uoH1Ok4cfMR + fVfJmuLqBzibiptLWLJ0N7c/CAAAMCrbmJMWOOO0r7hFF6riUeObi6sh8ri73CTu+qBqT3E1RDsQdBpE + 0AlA3Qg6VRF0wlT8IGF6BJ1Qovjh2+/FzVn0LBFXu1G8Tlwf6PupuNoBdfqeuPmIvsPF1Q6YSXxedPOp + 63Zx+4MAAACjso05aYEzTvHUlzPFLbxQdZS4GiKPk8RdF1T9TFz90B4EnQYRdAJQN4JOVQSdMNV+4uYK + CDqhTC8UN1/Rc7y4uo1qkfxFXF/o+19x9QPq8itxcxF9DxJXO2AmnxU3n7qOoBMAAEjKNuakBc647SFu + 4YWq5XIXcTVEvXYTd00w6CHiaoj2IOg0iKATgLoRdKoi6ISpdhQ3V7Bk6cPE1QwYl8XyN3HzFb3vfrYW + V7u5eIa4/tB3jqwqrn5AHXjqzMwuk/iRtKsdMJMDxc2priPoBAAAkrKNOWmBU4IfiVt8oepYcfVDfeID + Nb+wGs43xdUQ7ULQaRBBJwB1I+hURdAJU60hHDPt8UQnlOYt4uYqeuo6ponvNoYTgTBXP6AOV4ibh+g5 + WlzdgJV5lLg51XUEnQAAQFK2MSctcEqws7jFF6pulvi1sqsh6sGvHocTc/Oe4mqIdiHoNIigE4C6EXSq + IugEh6cieASdUJKN5VpxcxVLll4nUSNXuxR2F9cv+i6WCM+6+gGpXS9uHqJnH3F1A1ZmO3FzqusIOgEA + gKRsY05a4JTiG+IWYKj6qrj6Ib015RJx1wFVcfa5qyHah6DTIIJOAOpG0KmKoBOcU8XNl67jaGmU5Ahx + 8xQ9bxNXt5S+K65v9L1cXO2AlOaLm3/o20hc7YCVie/03Zzquge4/UEAAIBR2cactMApRTwNxi3AMOh+ + 4mqItN4grv6oulG2EldDtA9Bp0EEnQDUjaBTFUEnOF8RN1+6jicCoxR3leXi5il6R1jl+FwR373FE5nd + GNCT61qg22KOufmHnvPE1Q0Y1tXi5laX7eD2BwEAAEZlG3PSAqckx4pbhKHq++Lqh3TiV0M8Un84HxFX + Q7QTQadBfAkOoG4EnaoIOsE5Rtx86TqCTijFl8TNUfS8TFzd6vBpcWNA38Hiagekspm4uYeez4irGzCs + v4mbW122hdsfBAAAGJVtzEkLnJLEU2H4hd9wHi6uhkiDR+oP5zrZWFwN0U4EnQYRdAJQN4JOVQSd4HxI + 3HzpOoJOKMEDxc1P9Fwsq4urXR3uKNeLGwt64odvfNeBOm0hbu6hJ2f4E+0Unxnd3OqyDdz+IAAAwKhs + Y05a4JTmY+IWYqg6VVz9MHfbCYG74bxdXA3RXgSdBhF0AlA3gk5VBJ3gHCZuvnTdluLqBeT0E3HzEz3/ + J65udXq3uLGgj6dXo04EnWbGD3wxV78WN7e6bE23PwgAADAq25iTFjiliUf38suy4fyvuBpibk4UV29U + XSkEPLqHoNMg7gMAdSPoVEXQCQ5BJ48nkmDc9hI3N9ETG7GriKtdneIzzD/EjQk9N0o8ed7VD5grgk4z + 21Rc3YBhvUXiaGvcyu0NAgAAzIVtzEmLnBK9V9yHHFSdLeP4QqzN4hdDrtYY9CpxNUS7EXQaRNAJQN0I + OlURdIJD0MlbJK5eQA4L5DxxcxM9jxZXuxxeKm5M6PucuNoBc3U3cXMOS5ZeI65mAEbg9gQBAABSsI05 + ucVPAdaXq8V92EHVvuJqiNmL0NiZ4uqMqkuETZNuIug0iKATgLoRdKoi6ASHoNOgZeJqBeTyPHFzEz0/ + FFe3XBbKheLGhr57iasfMBc7iptvWLL0LHE1AzACtycIAACQgm3MyS1+CvEmcR92UHWBxK8kXQ0xO/uJ + qzEGPUdcDdF+BJ0GEXQCUDeCTlUEneAcKW6+dNnl4moF5LBYLhU3N9Fzf3G1yyl+POfGhr5vi6sdMBcE + naZ3griaARiB2xMEAABIwTbm5BY/hYgvxa4Q94EHVc8WV0MML55O9Gdx9UXV74VwXXcRdBpE0AlA3Qg6 + VRF0gvNJcfOly2Ld7moF5PBGcfMSPV8WV7fc5svp4saIvoeJqx8wKoJO0/uQuJoBGIHbEwQAAEjBNubk + Fj8FYUN9OBfL6uJqiOG8VlxtMegJ4mqIbuB9eRBBJwB1I+hURdAJzlfFzZcui/CCqxVQt9vLteLmJZYs + XS7biqvdODxE3DjR93OJUJirHzAKgk7Te724mgEYgdsTBAAASME25uQWPwWJ8E6EeNyHHlRF+MDVECu3 + oVwjrq6oOkP4cq/bCDoNIugEoG4EnaoIOsH5sbj50mUniasVULcPi5uT6Pm4uLqN09fEjRV9e4urHTAK + gk7Te764mgEYgdsTBAAASME25uQWP4V5prgPPaj6m8Rxf66GmBlfwg5vV3E1RHcQdBpE0AlA3Qg6VRF0 + gnOOuPnSZUeKqxVQp60lnljk5iSWLL1eNhVXu3HaTrhuMztPOMYfqRB0mt4+4moGYARuTxAAACAF25iT + W/wUJr5EOFfcBx9UxfFrroaY3l2FL/OG8z1xNUS3EHQCmoEnPbYLQacqgk5wrhQ3X7rszeJqBdTpeHHz + ET3vEle3EkQ40o0Zfc8RVztgtgg6Te/h4moGYARuTxAAACAF25iTW/wU6AniPvigKjbBeLLI7HxFXC0x + aIm4GqJbCDoBzUDQqV0IOlURdMJUtxU3V7qODXnkdj9xcxE9V0nJ39lsLNeKGzt6LpFF4uoHzAZBp+nt + IK5mAEbg9gQBAABSsI05ucVPgebLGeI+/KDq7eJqiEEPEVdDDPqiuBqiewg6Ac1A0KldCDpVEXTCVPcQ + N1e6bndx9QLq8iNxcxE9rxRXt5LEk+Dc2NH3anG1A2aDoNP0SjzeE2gstycIAACQgm3MyS1+CvVIcR9+ + UBW/vru9uBqiL8JzvxBXQ1TF0X7biKsjuoegE9AMBJ3ahaBTFUEnTLWnuLnSdduLqxdQh8eKm4fo+bM0 + 4UlAi+Uyca8BPTxNHSkQdJoe9xeQkNsTBAAASME25uQWPwU7RdwHIFQdJq5+6HuquNph0FHiaohuIugE + NANBp3Yh6FRF0AlTvUXcXOm624irF5DaAvmduHmInmeKq12J9hf3GtD3TnG1A4ZF0Gl6BJ2AhNyeIAAA + QAq2MSe3+CnY/cV9AELVf2RzcTXEkqVrSGyQudqh6nq5g7g6opsIOgHNQNCpXQg6VRF0wlRfFzdXuuxi + cbUC6vAccfMQPedIhMFc7UoUYz1X3GtBT3xXwvFamAuCTtNbTVzNAIzA7QkCAACkYBtzcoufwn1V3Icg + VH1cXP2wZOmrxNUMg94rroboLoJOQDMQdGoXgk5VBJ0w1aXi5kqXnSSuVkBqawr34Mz+V1ztShZjdq8F + fUeKqx0wDIJO03P1AjAitycIAACQgm3MyS1+Cnd3uVncByH0LZetxNWwy9YXNguHE3WKerk6orsIOgHN + QNCpXVi7VBF0wmT3EDdPuu5QcfUCUnu9uDmInp+Iq1sT/Ejca0JPfO92V3G1A1aGoNP0XL265hRxtQFS + 2MXtEwIAAMyWbcxJC5smmhC3SEPV58TVr8s+KK5WGBRfWLsaotsIOgHNQNCpXQg6VRF0wmQ8rdV7prh6 + ASltINeIm4PoeZC42jXBfcW9JvQdL652wMoQdPKuFlevriHohDoRdAIAAEnYxpy0sGmieFLRMnELNfTF + k6/iF86uhl10F7lRXK1QdZksFldHdBtBJ6AZCDq1C0GnKoJOmCyeluLmSdfdT1y9gJT4IdHMviaubk3y + eXGvDX07iasdMBOCTl587nH16hqCTqgTQScAAJCEbcxJC5um+oi4hRqqThBXvy76orgaYdCLxNUQIOgE + NANBp3Yh6FRF0AkrbCtujnTdTcKPFlA3foA2s/jh2d3E1a5JthSu88xOFlc7YCYEnTyCTj0EnVAngk4A + ACAJ25iTFjZNtbFcL26xhip+zdt7XLyrDQZdKAvF1REg6AQ0A0GndiHoVEXQCSscKm6OdN3Z4uoFpPQF + cfMPPZ8QV7cmer+414i+3cTVDpgOQSePoFMPQSfUiaATAABIwjbmpIVNkx0ibrGGqu+Jq19XzJfTxNUG + g54qro5AIOgENANBp3Yh6FRF0Akhfvhynbg50nUfE1czIJU4qsvNPfTEj/I2F1e7JlpfWIvM7JcS3z25 + +gEOQSePoFMPQSfUiaATAABIwjbmpIVNk60rfNkynIeKq2EX7CuuJhgUv/5eRVwdgUDQCWgGgk7twnq3 + iqATwhHi5gf44QLqxwbszN4rrm5NdpC414q++O7J1Q5wCDp5BJ16+O8s6kTQCQAAJGEbc9LCpuleJ27B + hqpTxdWv7eIItjiKzdUEgx4tro7ACgSdgGYg6NQuBJ2qCDrhwXKzuPmBJUs3E1c3IIX4zOjmHXriv9m3 + E1e7Jlskfxb3mtFzgawmrn7AVASdPIJOPQSdUCeCTgAAIAnbmJMWNk23WC4Vt2hD1WPF1bDNXi6uFhj0 + I3E1BCYj6AQ0A0GndiHoVEXQqdsixMPnv+n9TlzdgBRWld+Im3voea242rXB/4l7zeh7gbjaAVMRdPII + OvUQdEKdCDoBAIAkbGNOWti0wQHiFm2oOku6dCzZenKVuFpg0APF1RGYjKAT0AwEndqFoFMVQafuipDT + ueLmBXraeGQWyvEscfMOPX+VePKRq10bxPdJcdy9e+3oiSDuWuLqB0xG0Mkj6NRD0Al1IugEAACSsI05 + aWHTBnE8WWx4uIUbqvYVV8M2ep+4GmDQ18TVEJiKoBPQDASd2oWgUxVBp266r3Bs0so9VFz9gLmKAM8l + 4uYdep4jrnZtspu4146+14urHTAZQSePoFMPQSfUiaATAABIwjbmpIVNWzxd3MINVefLAnE1bJMtZZm4 + GqDqZrm7uDoCUxF0ApqBoFO7EHSqIujULevIO2W5uPmAvssljhZzdQTmKo5kc/MOPedJF75rCd8WVwP0 + xLptfXG1A1Yg6OQRdOoh6IQ6EXQCAABJ2MactLBpi3iE9jniFm+oisfNuxq2yefFvXYM+rS4GgIOQSeg + GQg6tQtBpyqCTt2woRwkV4ibBxh0uLhaAnMVoQ3+WzSzx4urXRvtIPGDKVcH9HCMKFaGoJNH0KmHoBPq + RNAJAAAkYRtz0sKmTfYUt3hD1cUSx/25GrbB/cW9bgyKp17dSVwdAYegE9AMBJ3ahc3lKoJO7bWpPFO+ + LDeKu/6Y3gPF1RWYq8PEzTn0nCbzxdWurT4prhbouV42F1c7IBB08gg69RB0Qp0IOgEAgCRsY05a2LRJ + fLEUXzC5BRyq2roBGnPgJ+JeMwZ9QFwdgekQdAKagaBTuxB0qiLo1DxxnFMcQXc72ULuJo+UOH78zXKC + /EHc9cZwzhVXe2Cu7iwcCz+zh4irXZvdQSLM4+qBnk+Iqx0QCDp5BJ16CDqhTgSdAABAErYxJy1s2ubh + 4hZwqLpMFourYZPtLe71YtC1cntxdQSmQ9AJaAaCTu1C0AnAyvC+j7p8TtycQ883xNWtCw4RVxP03CTb + iasdQNDJI+jUQ9AJdSLoBAAAkrCNOWlh00bfE7eIQ9VrxNWvqeI4vgvEvVYMeou4OgIzIegENAMb3u1C + 0AnATK6R24p7/wDm4j7i5hx6bpYdxNWuC+JJfVeIqw164omFrnYAQSePoFMPQSfUiaATAABIwjbmpIVN + Gy0Rt4hDVXx4jC+mXA2b6MXiXicGxZeRbIZgFASdgGYg6NQuBJ0AzCSequLeO4C54kdkM/u0uLp1Cd/D + rNwDxNUO3UbQySPo1EPQCXUi6AQAAJKwjTlpYdNWXxa3kEPVweLq1zQR2PqHuNeIQS8TV0dgZQg6Ac1A + 0KldCDoBmE4cR72+uPcOYC7+R9ycQ88y2UJc7boknqz9B3E1Qs8PxdUO3UbQySPo1EPQCXUi6AQAAJKw + jTlpYdNWcQ5+PEbcLebQF1+MbyCuhk3yHnGvD4MuljXE1RFYGYJOQDMQdGoXgk4AptOWH66gLKvIr8TN + OfS8T1ztumgfcTVC3x7iaofuIujkEXTqIeiEOhF0AgAASdjGnLSwabNjxC3mUHWYuPo1xZ3kP+JeGwY9 + U1wdgWEQdAKagaBTuxB0AuD8VRaLe98A5uLp4uYceq4RnqTWN19OE1cr9JwtESB09UM3EXTyCDr1EHRC + nQg6AQCAJGxjTlrYtNkdJR4n7hZ06LteNhdXwyb4rLjXhUHnyAJxdQSGQdAJaAaCTu1C0AmA80Rx7xnA + XCySP4ubc+h5g7jaddnO4mqFvv3E1Q7dRNDJI+jUQ9AJdSLoBAAAkrCNOWlh03YfELegQ9XHxNWvdDuJ + ez3wHieujsCwCDoBzUDQqV0IOgGY6gRx7xfAXL1a3JxDz6XCk9S8r4irGXr+KAvF1Q7dQ9DJI+jUQ9AJ + dSLoBAAAkrCNOWlh03YbybXiFnXoWy5biathyX4k7vVgUDxKPh4p7+oIDIugE9AMBJ3ahaATgMniyLoN + xL1fAHOxnvDfnJm9QFztsGTpNhLfLbm6oedAcbVD9xB08gg69RB0Qp0IOgEAgCRsY05a2HTB28Qt6lAV + R8C5+pUqnk7kXge8h4qrIzAbBJ2AZiDo1C5sOgNYIUIErOtRl/eKm3fouUA4Cn5mh4urHXouF54IhkDQ + ySPo1EPQCXUi6AQAAJKwjTlpYdMF68iV4hZ26LtZ7i6uhqWJLxd/L+51YNC3xNURmC2CTkAzEHRqF4JO + AFZ4kbj3CWCutpD/iJt36NlHXO3Qx1PVV26puNqhWwg6eQSdegg6oU4EnQAAQBK2MSctbLri1eIWdqg6 + QVz9ShNf8Lvxw7uXuDoCs0XQCWgGgk7tQtAJQIin7bj3CCCFCXHzDj2/EI6CH86bxNUQPREE4/hREHTy + CDr1EHRCnQg6AQCAJGxjTlrYdMUiuVTc4g5V9xNXw1KsLX8XN3YMOk5cHYFREHQCmoGgU7sQdAJwhBCy + QF3ihzHxhGc399DzcHG1w6A4mo3v32b2fnG1Q3cQdPIIOvUQdEKdCDoBAIAkbGNOWth0yfPFLe5Q9V1x + 9SvFIeLGjUHL5S7i6giMgqAT0AwEndqFoBPQbR8VQk6oU3wH4OYeer4trm6Y3nPF1RI9yySOi3S1QzcQ + dPIIOvUQdEKdCDoBAIAkbGNOWth0yUK5QNwCD1W7iKvhuN1Rrhc3ZgyKX367OgKjIugENANBp3Yh6AR0 + 11Ih5IQ67SZu7qHvnuJqh+ktkHPE1RM9nxZXO3QDQSePoFMPQSfUiaATAABIwjbmpIVN1zxF3AIPVaeK + q9+4xRdBbrwYFIGwjcXVERgVQSegGQg6tQtBJ6B7rpOnintPAFJZRc4SNwfR81lxtcPKPUZcTdETx0Xe + Q1zt0H4EnTyCTj0EnVAngk4AACAJ25iTFjZdE1/k/UrcIg9V8aWUq+G43FviiyA3Vgx6p7g6AnNB0Alo + BoJO7ULQCeiW84TNb+Swn7g5iJ44XmxLcbXDcH4grrboOVFc3dB+BJ08gk49BJ1QJ4JOAAAgCduYkxY2 + XfRYcYs8VJ0pEQxzNRyH74sbJwbFFwPriKsjMBcEnYBmIOjULgSdgO74kKwp7r0ASGkN+ZO4eYieD4qr + HYa3k7jaom9ncbVDuxF08gg69RB0Qp0IOgEAgCRsY05a2HTVT8Ut9FC1r7j65cYjz2fnIHF1BOaKoBPQ + DASd2oWgE9B+v5UHinsPAOrwCnFzET3XyobiaofZOVZcjdET30+6uqHdCDp5BJ16CDqhTgSdAABAErYx + Jy1sumoXcQs9VMWxCQvE1TCX6P9ccePDoEtlkbhaAnNF0AloBoJO7ULQCWivv8uLZNyfudAt68pV4uYk + et4srnaYvTtLHAPo6oye/xVXO7QXQScv3itcvbqGoBPqRNAJAAAkYRtz0sKmy04St9hD1TPE1S+X/cWN + C17Uy9URSIGgE9AMBJ3ahaAT0D5XSDyFdbG4+x6o07vFzUv0XC7cm2m9T1yt0RNP9VtFXO3QTgSdpufq + 1TUEnVAngk4AACAJ25iTFjZddi9xiz1UXSwLxdWwbreRv4kbFwZdIPwaHHUi6AQ0A0GndiHoBLTH7yWe + 4ESIAuOyuVwvbn6i5wBxtcPobiesZ2Y27h8ZIi+CTtNbQ1zNuoSgE+pE0AkAACRhG3PSwqbrviBuwYeq + A8XVr24HixsPvCeKqyOQCkEnoBkIOrULG4NAs0Wo5HPycJkv7j4HcvmUuHkKYLziR4YEPLqDoNP01hFX + sy4h6IQ6EXQCAABJ2MactLDpurvKcnGLPvRdKmuJq2FdNhN+aTq8M4WNE9SNoBPQDASd2oWgE9A8/5YT + 5CnC05tQih3kZnFzFsD4vUzcvYv2Ieg0vduLq1mXEHRCnQg6AQCAJGxjTlrYYMnSo8Qt+lB1kLj61eUY + ceOA90hxdQRSIugENANBp3Yh6AQ0w9nyHol1+eri7mdgnL4lbu4CKMMVsra4+xftQtBpeluJq1mXEHRC + nQg6AQCAJGxjTlrYYMnSzeUGcQs/9F0luR4fzC9NZ+f74uoIpEbQadAdJd4bgZKwwd4uBJ2AZrhaviwv + lK3F3c/AuDxC3LwFUJaDxd3DaBeCTtO7r7iadQlBJ9SJoBMAAEjCNuakhQ16DhO38EPVW8XVL7Xviusf + 3v3E1RFIjaDToAiVuFoBQCoEnYBm+oMcIvEjDndvA7nEEee/FDdPAZTlWtlY3L2M9iDoNL09xNWsSwg6 + oU4EnQAAQBK2MSctbNCzvsSXCW7xh76oUdTK1TCVR4nrG178atzVEagDQadBBJ0A1I2gE9B858obhc1r + jMNTxM1LAGX6sLh7Ge1B0Gl6zxFXsy4h6IQ6EXQCAABJ2MactLBB31Jxiz9UxdOvXP1SWCC/EdcvBt0k + 24mrJVAHgk6DCDoBqBtBJ6A9bpTj5CHi7ncgtYXyR3HzEUCZlslW4u5ptANBp+nlOk2gZASdUCeCTgAA + IAnbmJMWNui7rVwhbgGIvuvlDuJqOFfxqx3XJ7xPiKsjUBeCToMIOgGoG0EnoJ1Old3F3fdAKi8TN/8A + lO1z4u5ptANBp+kdI65mXULQCXUi6AQAAJKwjTlpYYOql4tbAKLqCHH1m4vFcqm4/jDoBtlcXC2BuhB0 + GkTQCUDdCDoB7fYTebC4+x+Yi1in/kPcvANQvnuKu7fRfASdpvczcTXrkviOPP4bjtHcXdzcQg9BJwAA + kIRtzEkLG1Qtkr+IWwSib7mkfoz2m8X1Be994uoI1Img06D4EsXVCgBSIegEdMOE3F7c+wAwineKm2sA + muFb4u5tNB9Bp+ldJa5mwLBWFze30EPQCQAAJGEbc9LCBoM4Pm04nxFXv1FsIv8W1w8GXSPri6slUCeC + ToMIOgGoG0EnoDtic+95Ml/c+wEwrM0kjp138wxAczxM3D2OZiPoNLNNxdUNGNZl4uYWCDoBAIBEbGNO + Wthg0AI5X9xCEH03y93E1XC2jhLXB7w3iqsjUDeCToMIOgGoG0EnoHu+KRuKe08AhnG0uLkFoFl+LoRf + 24eg08weK65uwLBOFTe3QNAJAAAkYhtz0sIG3r7iFoKoOkFc/WYjzs2O0JT7+xh0ucRZ7a6WQN0IOg0i + 6ASgbgSdgG66RO4v7n0BmAmfsYF2eby4ex3NRdBpZm8VVzdgWJ8XN7dA0AkAACRiG3PSwgZe/FrqTHGL + QVQtEVfDYZ0k7u/CO1BcHYEcCDoNIugEoG4EnYDuWiZPFffeAEzn6+LmE4BmOlfi6fPufkczEXSa2Sni + 6gYM62Pi5hYIOgEAgERsY05a2GB6/yNuMYiqb4ur3zB2E/c34V0kC8XVEsiBoNMggk4A6kbQCcArxL0/ + AFM9TNwcAtBszxF3z6OZthZ3ndFzgywSVztgGO8SN7dA0AkAACRiG3PSwgYz+6G4BSGqdhFXv5msIr8S + 9/fgPU1cLYFcCDoNIugEoG4EnQCEg8S9RwArxJOpfyFu/gBotjjOlOBHe2wh7jqjbw9xtQOGcai4eQWC + TgAAIBHbmJMWNpjZg8QtCFH1U3H1m8mzxP0teL+WCIe5WgK5EHQaRNAJQN0IOgFY4aXi3ieAsK+4eQOg + HV4l7t5H8xB0WrkjxNUOGMbHxc0rEHQCAACJ2MactLDByn1d3KIQVbP5pc2aEr9Gc38H3mPF1RLIiaDT + IIJOAOpG0AnACjfL48W9V6Db4ojzP4ibNwDa4Srh82c7EHRauctlNXH1A1bmOHHzCgSdAABAIrYxJy1s + sHI7Snyh7BaG6DtT4lH5roZTvUHc34D3E3F1BHIj6DSIL5oB1I2gE4DJ/i33EPd+ge46UNx8AdAu7xT3 + HoBmWU/c9UXVo8XVD1iZH4ibUyDoBAAAErGNOWlhg+F8TtzCEFVPFFe/yTaSa8X9+/AeLK6WQG4EnQYR + dAJQN4JOAKb6vSwW956B7llbrhA3VwC0y/Wyibj3AjTH6uKuL6q+Jq5+wMpcJm5OgaATAABIxDbmpIUN + hrOVLBe3OETfubJAXA1X+Ji4fxdeHJ3o6giMA0GnQQSdANSNoBMAJz5XufcMdM/bxM0RAO3E+3873Cju + +qIvTljYUlz9gOlsKm4+oYegEwAASMI25qSFDYZ3hLjFIaqeLq5+YXshMDa8+EC/g7haAuNA0GkQQScA + dSPoBGA6Dxf3voHuiM28eMKLmx8A2im+V9ta3HsCmuNKcdcXVUeJqx8wnaeKm0voIegEAACSsI05aWGD + 4fEF4nAuloXianiiuH8H3mfE1REYF4JOgwg6AagbQScA0zlPVhP33oFuiA1gNzcAtNvx4t4T0BwXibu2 + qIpg313E1RBwjhU3l9BD0AkAACRhG3PSwgaz825xC0RUHSBTaxe/Nnb/LLxlwuOZURqCToMIOgGoG0En + ADN5sbj3DrQfT0wGum0nce8NaIazxV1XDPq6uBoCU91GrhM3j9BD0AkAACRhG3PSwgazs76w2bRyl8qa + sqJuq8iZ4v5ZeB+SyXMPKAFBp0EEnQDUjbUngJnEZ681xL1/oN2+Jm5OAOiG74l7b0AzfF/cdYX3OHF1 + BCZ7qbj5gz6CTgAAIAnbmJMWNpi9N4pbJKLqIFlRs/+7tQ3DuVY2lsnzDigBQadBBJ0A1I2gE4CV2V/c + +wfa68Hi5gKAbtlV3HsEysfxWrPzd+G7UsxkLYkfALj5gz6CTgAAIAnbmJMWNpi9xXK5uIUi+q6UCAAs + kj/f2obhHCxu7gHjRtBpEEEnAHUj6ARgZf4kq4p7D0H7zJefi5sLALrllxLvCe69AmV7v7hriun9UBaK + qyfwdnHzBlUEnQAAQBK2MSctbDAaNvuH8xZ57ZQ2zOwfQnACpeK9bxD3K4C6EXQCMIxHiXsPQfs8Qdwc + ANBNTxT3XoGyvUbc9cTMjhbCfZjqfrJc3JxBFUEnAACQhG3MSQsbjCZ+PXKxuMUi+uIItmumtGFmrxA3 + 54ASEHQaRNAJQN0IOgEYxnHi3kPQLqvJBeLmAIBuiveEBeLeM1CuZ4m7nli5jwphJ6ywqXCaxPAIOgEA + gCRsY05a2GB0zxC3WARGFR/K4qg/N9+AEhB0GkTQCUDdCDoBGMYNwrqk/V4k7voD6LYXiHvPQLkeKe5a + YjjHyuriaovu2EB+LW6OwCPoBAAAkrCNOWlhg9HFr6V+J27BCIzi2eLmGlAKgk6D2FAEUDeCTgCGtZ+4 + 9xG0w23kcnHXHkC3XSpriXvvQJnuIu5aYnhnyJbi6ov2i2vP3szsEXQCAABJ2MactLDB3Dxe3IIRmK1z + hUeNo3QEnQYRdAJQN4JOAIb1KXHvI2iHt4q77gAQXifuvQNlWig3ibuWGN6/5RXCd6rdspdcKW5OYGYE + nQAAQBK2MSctbDA3cR74L8QtGoHZiNCcm2NASQg6DSLoBKBuBJ0ADCue6BGfUd17CZptY4nNXHfdASDE + mvF24t5DUKY/ibuWmL1zJMIvrIPabVOJYwvdHMBwCDoBAIAkbGNOWthg7nYTt2gEhnW68EEcTUDQaRBB + JwB1I+gEYDbuJu69BM12pLjrDQCTvVfcewjK9H1x1xGj+408S9YQV3M00ybybrle3HXH8Ag6AQCAJGxj + TlrYII1TxC0cgWE8XNy8AkpD0GkQQScAdSPoVHWxxHsvyraRbCF3lwfJHvIUebV8UL4oZ8kN4q4zRvd0 + ce8laK5tZbm46w0Ak0UIYHNx7yUoz8fEXUfMXXyG+qg8UFYRV3+ULY4jjB+YxxOclom7zpg9gk4AACAJ + 25iTFjZI437iFo7AynxX3JwCSkTQaVBs5rpaAUAqBJ2qLhJXJzTTqrK17CMfkl/LzeKuPYZzmLhao7lO + EHetAcA5Wtx7CcpzgLhriLT+KofL42RtcdcCZVhXniyflavEXU/MDUEnAACQhG3MSQsbpMOXjxjFfcTN + J6BEBJ0GEXQCUDeCTlUEndovjqaINcfPxc0BzCyOwXF1RTPFE9HcdQaA6cQT4LYT956CsjxE3DVEfW6S + X8gH5EkSgXue+DQeCyWe/vpc+bicI/zgoX4EnQAAQBK2MSctbJDO3YTFOGbjC+LmElAqgk6DCDoBqBtB + pyqCTt3yAPmmuLkA73JxtUTzzJefirvOADCT+DGme19BWeL7BHf9kNe18jP5hMQxy/Hkp50kjmKO/xa7 + a4fhrCXbyK7yDDlE4v3pPOFY3vEg6AQAAJKwjTlpYYO0Pi1uAQlMFR/m7ipuHgGlIugEtNfTxd33GD+C + TlUEnbrpkXKJuDmBQauLqyOa5fHiri8ADOP+4t5bUJY/ibt+KMMyic8fP5FjJZ4E9VZ5hTxHniC7yX1l + R9lStrhVPKU0wmwrlPzkqNVk8ljDerLitcTritcXP0LYRfaUOHr6WfJKeYccIfGj3u/Jb4Sj58p0T7dP + CAAAMFu2MSctbJBWLPrjA5BbRAKTHSluDgElI+gEtBdBp3IRdKoi6NRdt5c4asTNC1TdWVwN0RwL5Pfi + ri8ADOMH4t5fUJYvibt+AFCHHd0+IQAAwGzZxpy0sEF6Hxa3iARWuF42FTd/gJIRdALai6BTuQg6VRF0 + 6ra15dfi5gb6HiSufmiOF4i7tgAwG3uIe49BOV4u7toBQB22c/uEAAAAs2Ubc9LCBultLNeJW0gC4d3i + 5g5QOoJOQHsRdCoXQacqgk6IpxVdI25+oCeOPHO1QzMslsvEXVsAmI2zpeTjstA78sxdOwCow0ZunxAA + AGC2bGNOWtigHoeIW0gCsVkZZ5y7eQOUjqAT0F4EncpF0KmKoBPCAeLmB3p4T2+2peKuKwCM4qni3mtQ + htWEH8wCyGWh2ycEAACYLduYkxY2qMc6wqYUnNeJmzNAExB0AtqLTfFysaasIuiEsEDOEzdHsGTpc8TV + DeXbSK4Vd10BYBQXykJx7zkow/fFXTsASOlfbo8QAABgFLYxJy1uUJ/XiFtQorsulbXEzRegCQg6Ae1F + 0KlcBJ2qCDphhWeImyPordlczVC+j4q7pgAwFweKe89BGV4t7roBQEoXuD1CAACAUdjGnLS4QX0i0BLB + FreoRDe9QNxcAZqCoBPQXgSdykXQqYqgE1ZYU7g/vIPE1Qxlu6ssF3dNAWAuLpfF4t57MH53F3fdACCl + 77k9QgAAgFHYxpy0uEG9XiRuUYnuuUB4VDiajqAT0F4EncpFkKOKoBMmO0rcPOm6peLqhbJ9Sdz1BIAU + 3iTuvQdluFjcdQOAVD7u9ggBAABGYRtz0uIG9Ypgyx/FLSzRLU8WN0eAJiHoBLQXQadyEXSqIuiEyfYW + N0+6jqBT8zxA3LUEgFT+JeuLew/C+HF0KYC6vd7tEQIAAIzCNuakxQ3q9zRxC0t0x5myirj5ATQJQSeg + vQg6lYugUxVBJ0y2jtwsbq50GUGn5vmxuGsJACm9X9x7EMbvEeKuGQCk8ni3RwgAADAK25iTFjeoXwRc + fitucYlueJS4uQE0DUEnoL0IOpWLoFMVQSdMFUdEu7nSZQSdmmVPcdcRAFJbJluIey/CeMX3x5eIu24A + kMJWbo8QAABgFLYxJy1ukAdfXHbXD8TNCaCJCDoB7UXQqVwEnaoIOmGqL4qbK11G0Kk5Fsi54q4jANTh + U+LejzB+7xZ3zQBgruL40vlujxAAAGAUtjEnLW6Qx3w5VdwiE+32AHFzAmgigk5AexF0KhdBpyqCTpjq + YHFzpcsIOjXH88RdQwCoSxz5endx70kYrx3FXTMAmKsfuf1BAACAUdnGnLTAQT4PE7fIRHt9RdxcAJqK + oBPQXgSdykXQqYqgE6Z6vri50mUEnZphsVwq7hoCQJ1OFPe+hPH7ubhrBgBzcbDbHwQAABiVbcxJCxzk + 9R1xC020T/xCbntx8wBoKoJOQHsRdCoXQacqgk6YimPCBxF0aoY3iLt+AJDDzuLemzBeTxV3vQBgLh7h + 9gcBAABGZRtz0gIHee0kbqGJ9vmkuDkANBlBJ6C9CDqVi6BTFUEnTPVgcXOlywg6lW9D+Ze464dBf5WN + ZR1gGuvLheLmD7yfiHt/wngtFJ72ByCl/8iabn8QAABgVLYxJy1wkN+XxC040R7L5I7irj/QZASdgPYi + 6FQugk5VBJ0w1Y7i5kqXEXQq34fEXTt4rFMwjL3EzR9M77HiaonxeqO46wUAo/im2xsEAACYC9uYkxY5 + yG87WS5u0Yl2OEzctQeajqAT0F5sIJaLoFMVQSdMtYO4udJlBJ3Kdhe5Udy1w6DTZRVxtQSmOkXcPIL3 + W+H+Kk88pYzPAABSeY7bGwQAAJgL25iTFjkYj2PELTrRfNfKBuKuO9B0BJ2A9iLoVC42OaoIOmGqLcTN + lS4j6FS248VdN3gPEFdHwImn/N0sbi7B43NAmeK/5e56AcBsxH8TN3R7gwAAAHNhG3PSIgfjsbnE8WZu + 8YlmY1MBbUbQCWgvNjjKRdCpiqATpiLoNIjPJOW6r7hrBu9z4uoIzORIcfMJ3sWyurhaYnxuK1eIu2YA + MKxvuH1BAACAubKNOWmhg/F5v7jFJ5orvoC4jbjrDbQBQSegvQg6lYugUxVBJ0xF0GkQQady/VDcNcOg + 6+QO4uoIzOT2co24eQXvZeJqifF6pbjrBQDDerzbFwQAAJgr25iTFjoYn/jiJY45cwtQNFOEQNy1BtqC + oBPQXgSdykXQqYqgE6Yi6DSIoFOZHiPuesFjHmMuXi1uXsGLH+6tLa6WGJ+Fcq64awYAK3OZrOb2BQEA + AObKNuakhQ7G663iFqFonnjUd3wB4a4z0BYEnYD2IuhULoJOVQSdMBVBp0EERMqzQH4r7nph0J9lTXG1 + BIYRR7FdKG5+wYvvKF0tMV67irteALAyr3d7ggAAACnYxpy02MF4rSP/ELcQRbOwQYwuIOgEtBf/HSsX + Qacqgk6YiqDTIIJO5Xm2uGsF70ni6gjMxl7i5he8eOr8RuJqifH6grhrBgDTiSNc13F7ggAAACnYxpy0 + 2MH4vUrcYhTNEb/MXUXc9QXahKAT0F4EncpF0KmKoBOmIug0iKBTWeLJRH8Vd60w6KcyX1wtgdk6Rdw8 + g/dhcXXEeG0s/FAWwGwcInZPEAAAIAXbmFMsdjB2i+RScQtSNMOe4q4t0DYEnYD2IuhULoJOVQSdMBVB + p0EEncryenHXCYNuliXi6giMYkeJeeXmGwYtk63E1RLj9Xhx1wwApopg5Lpi9wQBAABSsI05xWIHRdhf + 3KIU5fuZuGsKtBFBJ6C9CDqVi6BTFUEnTEXQaRBBp3KsL1eLu04YdIy4OgJzcaS4+Qbvs+LqiPH7pLhr + BgCTvUhued9we4IAAAAp2MacVix4MHYL5AJxC1OUbRdx1xRoI4JOQHsRdCoXQacqgk6YiqDTIIJO5fiA + uGuEQdfKJuLqCMzF7eUacfMOg+IJWPcUV0uM122F748BzOQ3EntNt7xvuD1BAACAFGxjTisWPCjCk8Ut + TlGub4q7lkBbEXQC2ougU7kIOlURdMJUBJ0GEXQqw5YSx0C5a4RBrxFXRyCFV4ubd/C+Ja6OGL+7SQRD + 3XUD0G3L5T7y3/cMtycIAACQgm3MafKiB2O3ipwtbpGK8vALN3QRQSegvQg6lYugUxVBJ0xF0GkQQacy + HCfu+mDQH2UNcXUEUlhdLhQ3/+A9VFwtMX57i7tmALrtbVJ5v3B7ggAAACnYxpymLnwwdo8Rt0hFeT4n + 7hoCbUbQCWgvgk7lIuhURdAJUxF0GkTQafx2Endt4MWmvasjkNJe4uYfvNNkvrhaYvzeKu66AeimeM9e + KJX3CrcnCAAAkIJtzGnqwgdF+Im4xSrKcaNsJe76AW1G0AloL4JO5SLoVEXQCVMRdBpE0Gn8vi/u2mDQ + KeJqCNQh5pubh/AeL66OGL8IoR0t7roB6Ja/yWYy8F7h9gQBAABSsI05ucUPxu4h4hasKMdHxV07oO0I + OgHtRdCpXASdqgg6YSqCToMIOo3XHuKuCwbFkfA7iqsjUIeYbzHv3HzEoHNlgbhaYvxWlRPEXTsA3bBM + pj1q1O0JAgAApGAbc3KLHxThJHELV4zfdbKxuOsGtB1BJ6C9CDqVi6BTFUEnTEXQaRBBp/FZRX4t7rpg + 0BHi6gjU6Uhx8xHes8XVEWVYJCeLu3YA2i2Cu/uKe2+4hdsTBAAASME25uQWPyjCPcUtXjF+bxd3zYAu + IOgEtBdBp3IRdKoi6ISpCDoNIug0Ps8Ud00w6GrZUFwdgTrdXq4RNy8x6C8SYRpXS5RhTSHsBHTPgeLe + E/7L7QkCAACkYBtzcosfFOM4cQtYjM9Vso646wV0AUEnoL0IOpWLoFMVQSdMRdBpEEGn8YggQAQC3DXB + oFeKqyOQw6vFzUt4rxJXR5Qjwk6cEAB0x0pDTsHtCQIAAKRgG3Nyix8UY2tZLm4hi/Hgix10HUEnoL0I + OpWLoFMVQSdMRdBpEEGn8XiNuOuBQb+XheLqCOSwulwobn5iED/8a4Z4X/2cuGsIoB1ukniCqHsPGOD2 + BAEAAFKwjTm5xQ+K8nFxC1rkd4nwqG50HUEnoL0IOpWLoFMVQSdMRdBpEEGn/NYX3q+H91hxdQRy2kvc + /IT3DnF1RFnmy1vEXUMAzRbHrj5a3L1vuT1BAACAFGxjTm7xg6JsLteLW9gir+eKu0ZAlxB0AtqLoFO5 + 2DivIuiEqQg6DSLolN+h4q4FBn1bXA2BcThF3DzFoPh+cmNxdUR5niw3iLuWAJrnAtlO3P0+LbcnCAAA + kIJtzMktflAcvjAdv3is/gJx1wfoEoJOQHsRdCoXQacqgk6YiqDTIIJOed1Jlom7FqiK4/m3F1dHYBx2 + lJvFzVcM+pi4OqJM95eLxV1LAM1xrIx0fKjbEwQAAEjBNubkFj8oTjwC/1/iFrnIYx9x1wboGoJOQHsR + dCoXQacqgk6YiqDTIIJOeX1G3HXAoA+LqyEwTkeKm68YFGHFrcXVEWVaT74s7noCKFscVbefuHt7KG5P + EAAAIAXbmJNb/KBI8UW1W+yifmdInG/vrgvQNQSdgPYi6FQugk5VBJ0wFUGnQQSd8rm3uGuAQVdKbLi7 + OgLjdHuJzWQ3bzHoC+LqiHLF95ovlH+Lu6YAyhPvtZuJu6eH5vYEAQAAUrCNObnFD4p0G7lC3KIX9dpV + 3DUBuoigE9BeBJ3KRdCpiqATpiLoNIigUz7fE3cNMOhAcTUESvBqcfMW3n3E1RFli6NWvy3umgIow/my + u7h7eNbcniAAAEAKtjEnt/hBsV4mbvGL+pws7loAXUXQCWgvgk7lIuhURdAJUxF0GkTQKY//EVd/DPqd + LBBXR6AEq8uF4uYvBkXI09UR5YunO8Vnv7+Ju7YAxuPP8hxJul5ye4IAAAAp2Mac3OIHxVokF4tbCKMe + S8RdC6CrCDoB7UXQqVwEnaoIOmEqgk6DCDrVbxU5W1z9MeiR4uoIlGQvcfMXHk9Ab7bbyjvkenHXF0Ae + f5QDJPZ+3L06J25PEAAAIAXbmJNb/KBozxa3IEZ6XxR3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhUv6eJ + qz0GfV1cDYES/UDcPMagMySeDuTqiOaIddQxslzcdQZQj1PlCVLrEy/dniAAAEAKtjEnt/hB0WLh+3tx + i2OkEx/utxV3DYAuI+gEtBdBp3IRdKoi6ISpCDoNIuhUL562PLxlcldxdQRKdC+5Wdx8xqB9xNURzbOV + HCHxvu2uNYC5u1I+KDuIuw+Tc3uCAAAAKdjGnNziB8WLLxHcQhnpHCWu9kDXEXQC2ougU7kIOlURdMJU + BJ0GEXSq1yvF1R2DDhVXQ6BkR4ubzxh0gdT6NBJkdwd5u1wu7poDmJ04HjJOjniirCHuvquN2xMEAABI + wTbm5BY/KF48FvpMcQtnzF18+NhcXO2BriPoBLQXQadyEXSqIuiEqQg6DSLoVJ/1hPfl4fxd1hFXR6Bk + G8m/xM1rDHq+uDqi2VaXOKb1x+KuO4DpXSXHyb6yWNw9loXbEwQAAEjBNubkFj9ohN3FLaIxd+8VV3MA + BJ2ANiPoVC421KsIOmEqgk6DCDrVJz4vuppj0PPE1RBogteIm9cYdKmsKa6OaIc7y+vlPHFzAOi6m+QX + 8g55kKwq7l7Kzu0JAgAApGAbc3KLHzTGD8QtrDG62EhcX1y9ARB0AtqMoFO5CDpVEXTCVASdBhF0qscd + 5QZxNUfVr6SYTT5gBHG80B/FzW8Mep24OqJ97iFxvU+Tm8XNB6DtbpSfy3vk0bK2uPtl7NyeIAAAQAq2 + MSe3+EFjPFDcQhuje4O4WgPoIegEtBdBp3IRdKoi6ISpCDoNIuhUj0+LqzcGPVRcDYEmeYK4+Y1BsV69 + nbg6or3imMenysflAnFzA2i6eFrT72RCDpD7SRzt6O6J4rg9QQAAgBRsY05u8YNG+Zq4BThm7zIZ65nZ + QAMQdALai6BTuQg6VRF0wlQEnQYRdEpvR+HJFcP5krgaAk30Q3HzHIPiySauhuiOzeSJcoh8R64UN1eA + EsU670/ybXmfPEPuLYvEzfdGcHuCAAAAKdjGnNziB40Svx5YB0msJa7GAPp4zwHaa6G4+x7jF4/Bd9es + q24rrk7orlXEzZUuiyOXXK0wOtbBw2NNgTbh3h/ebcTVEN0WgfT/kfjh3EfkZPmzEB7GOMQRxOfKSfIx + eY08XuJIxkYHmqbj9gQBAABSsI05ucUPAAAAAAAAAABADVaTCEHtLE+RCJx8WD4vp0gcFfZ3cWEVYKqr + 5Hw5VU6UIySecPo8ebTcR+KoRTcXW83tCQIAAKRgG3Nyix8AAAAAAAAAAIAxWiC3l7vKfWU32UeeK6+U + N8thcrgcI1+Wb0iEpc6Qs+S3Esdfh8skjgYPy8WFZlCPm2RF7f8mK65JXJ+4Tj+WeOLXCfI5iesZ1/bt + 8mrZX54se8iDZHuJ8FKE5tzcgbg9QQAAgBRsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQEls + IwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAA + AAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAA + AAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACU + xDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAA + AAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAA + AAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAA + QElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAA + AAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYC + AAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAAAACUxDYCAAAAAAAAAAAAAAAAQElsIwAAAAAAAAAAAAAA + AACUxDYCAAAAAICqeUuW5raxPESeJa+TD8hn5dtyipwmZ03xMzlZviRHy7vlpfIEWSLriOsLAAAA5bmt + 3FueKK+SQyXWg1+XH8vUteBPJNaJ35D452It+Ep5sjxQWAtiaO4zUZdMTEwAdVtH7iP7yCvl3RL/+6qc + ImcZ0f59OV6OkLfJi2QPuassFNfXrLh7AgBKYhsBAAAAAECV+/I/oY1kb3mPxKbVv+T/1eQSibDU2+TR + cjtxY2q7Y2Tq5mAJfimxQRniOn1BPi6xsfkmeYH8r8Sm5+3FvbY2+Zy4OnXZ12QNcfXK5URxY8spNvO/ + IyfIJyXCoBEK3V/iHtlR1hU3fvTUeX99SFyfdYjwhxsDen4qEZ52tatDW+bVOCyQ+0kEkyK0fqG4tdxc + /UVOkoPlEbKmuPF0Ra61xi7i+s8hfjzhxjSKW95T3OeltnHhj8K9Rlwwpi5LxY0D3trySIm6fUP+LP+v + BjfJb+VTcoDsIPPFjWla7p4AgJLYRgAAAAAAUDXPbxrMxT0kgiuni9uEyuVmiadDLZV7ihtr26wm14mr + R9PcIGdKBD1eIQ+XtmxYxutYJu51d11sTLua5bCBuDGV6kr5oRwuz5MdZFVxr61LctxfMVdc36mdKq5/ + 9L1YXO1Sa9O8ymVt2U+Ol2vEvea6xTX7vhwgOUNxJci51jhDVhE3jrpFqM2NaVQvcZ+X2saFPwp2X1ku + LvhSl9+IGwv67i4RbPqJ5L4+k/1NPi1PkDXEjbXC3RMAUBLbCAAAAAAAqub5TYPZuo08V2Kjw20alOAc + eY1sKO41tEE8LcG99rb4j8STGiLUEUfeuBo0QTz5wL2+rlsui8XVLIc9xY2rSeKpeV+V58tm4l5n29V9 + f50vrt/UCEQOZydx9UutLfOqbhF2eaTEU5viv9nutY7LTfI9eYpEMNyNv01yrzX+T9w46hZBNjeeUd3X + fV5qGxf+KFQEV84VF3Cp23rixtRld5IIN/1BXM3G7Wo5WpaIG/8t3D0BACWxjQAAAAAAoGqe3zQY1joS + T0z6p7jNghLFk4KOkm3EvaYmiycfudfcRv+Wj8qW4mpRsteLe01d9wtx9coljth042qqeKpdbAA/XVYX + 95rbqO776xPi+k3toeL6R9+1EkeiufqlVve8Olpcv02xSF4ofxD3+koTR9zFMXqxjnWvpw1yrzWipjEP + 3FjqkvpJpvG3FrjPS23jwh+Fere4QEsOjxE3pq6Jo+EeJSeJq1OpfiyPlYGj7dw9AQAlsY0AAAAAAKBq + nt84WJk4Hukl0qSA01Tx9JiPy6biXmMTnSDutbZZXMcPyXrialKieCqVey1d915x9cqlzceEXS5vlCY/ + CW1Ydd9fzxTXb2pvENc/+uJau9rVoS3zKrWFcqBcJu51le4qicBTG8Og41hrRLjKjaUuqZ9kerL7rNRG + U4Mfhbqf3CQuxJLDu8SNqytWkX0ljvFz9WmK0+RB8t/X5u4JACiJbQQAAAAAAFXz/MbBTHaQ08VtEDRR + HPX0IonjVtzrbYr5coW419gFf5e9xNWmJBESvEbca+i6ODrO1SyHOCbsRnHjapN4j3i55HoKTm457q+t + xfWd2rfF9Y++XKGKNs2rlPaQpjzBaWXi6MBdxb3OJhrXWiPW1BuJG1MdUj/J9C3us1IbTQ59FGqcR9at + cKq4sXXBrnK2uLo0VfzvdmLvCQAoiW0EAAAAAABV8/zGwXTiWJJl4jYHmu6Hsom4190E24p7XV3zYYkn + TLgaleCe4saN8T6Vq2vHhP1aHiCuFk1W9/31N3H9phYhhTiWzY0BfTuLq19q9xLXfyq55lUqEWT5srjX + 0nQfkdzHr9VhnGuNj4kbUx1Sz8Pd3GelNoqwR+HGeWTdCstkTXHja6vN5QRx9WiDy2QPd08AQElsIwAA + AAAAqJrnNw6miqedfEbcpkCbxGZjBB5cDUr3XHGvqYt+IGuLq9O4xRE/bsxd9xtx9coljnVz42qzm+Rg + adPTneq+v74ort/U7iOuf/TdIGuIq19qbZlXKcST9/4h7nW0RQRBm/iErcnGudaII4XvJm5cqcXTPN0Y + RhH/TVzsPiu10YQPuZRi3EfWTfZQcWNsm/nyArlWXB3a5s0y390bAFAC2wgAAAAAAKrm+Y2DySIwcoq4 + TYE2iidWPUFcLUr2KXGvp6vOlhLDTp8XN96ui6douHrl0uVjwiIYuL64ujRN3ffXS8X1m9pLxPWPvngK + o6tdHdoyr+ZiNTlM3Pjb6CppavA9jHutcZK4caW0jbi+R3WG+5zUVhM+7FKCEo6sm+wN4sbZJhvKSeJe + f5t9QRa5+wMAxs02AgAAAACAqnl+82CFCIqcIW5DoM3iV91PF1eTUl0o7rV02amS64kfw7pU3Fi7bl9x + 9cqBY8KWLP2jxKaxq0+T1H1/7SSu39SOF9c/+uJpZK52dWjLvBrVOvJdcWNvswi+7yWuJqUrYa2xm7ix + pfJscf2O6v3uc1JbTfjASwlKOLJusm+LG2dbPEguEffau+BkWdPdIwAwTrYRAAAAAABUzfObB2GhnCxu + M6ALIuz0WHG1Kc0m4l4Dliw9WlzNxmFLcWNEbw67muVwb3Fj6po4AmgHcTVqgrrvrwjD5TrmL45RdWNA + 3yPF1S61Ns2rUWwmvxM39i5o0lpwhVLWGr+SVcSNMYVjxPU7qr3d56S2mvChl3Er6ci6FeIotwXixtt0 + z5Bl4l53l3xdVnX3CQCMi20EAAAAAABV8/zmQThK3EZAl1wnO4qrT0meKG786Cllk/L/xI2v6y4QV69c + XixuXF0UxzXdXVydSlf3/RVPtHH9pra1uP7Rt1wWi6tfam2ZV6PYSuJpb27cXRJPdtpZXI1KVNJaI566 + 5MaYwvni+hzVRu5zUltN+ODLOJV2ZN1k9xE35iZ7q7jX2lWHuvsEAMbFNgIAAAAAgKp5fvMgjupwmwBd + FBspcYSfq1MpPihu7Oi5SOIJZa52OR0pbnxd9wlx9crlC+LG1VWXyJ3E1apkdd9fS8X1m9qzxPWPvtPF + 1a4Odc+rN4nrd9zuKH8RN+Yu+odsIa5WpSlprRFH6NURStxIXH+jOt99RmqzCR9+GafSjqyb7KXixtxE + 8+Uj4l5n1z3F3SsAMA62EQAAAAAAVM0b3DxYR+III7cRULf41fyVEsGUCBjF/xv//+vF/fO5jDuIsTJn + ihs3+vYXV7uczhU3tq57urh65XKZuHGlEEc+nbUSv5V4r4vjyuI90P2d3H4juZ6Yk0rd99fDxfWbGoHI + lXuPuNrVoS3zajZuL/GkPTfenK6WCFutWA+Oa226wmmymrialaS0tcabxY1zLvYW19eoPuE+I7XZhA/B + jMvOcrO48EkJvihu3E0TIaePinuN43CFXCTny1/kX+L+uVz+KZu6+wUAcrONAAAAAACgat7g5sFbxW0C + pHaznCpvkUdKPEFkVXFjCrHxdn95phwjfxL3d+vyUHHjGrfbyk3ixpxC/G0XzphOBDtiQzJcIf8R93dz + O1tc/XLZQNy4Uoqau2tSujuLq1kOcTSTq2UKEVpaJK7fmawv95SnyLsk3ifjqC7XR52+JG58Jar7/or6 + ryWu79R2kgivunslhXhil3uNqfxTXL8p7Squdqm1aV4NKwKOZ4gbb50i1P4ZeYbEPTBd0DKezril7CmH + yC/F/b265Hqy26hyrDVm69+yqbjxjuowcX2N6lnuM1KbTfggzDisKRF0ccGTUlwubuxN80Fxry+HC+QD + 8iTZTuKoQjfGVWVLeZzEU77OEff36vIVd78AQG62EQAAAAAAVM2rbhxEaOZacZsAqcTG3uFyV5na/2w9 + UCL0lOMpKPHUlVXEjWOcdhc33lRiw931OxuxYRnXezc5QOKaxRMaXH91upu48eUQm7JuTCndW1zfmF48 + TcrVMoWfietzFOvJc+QX4vqqS/TpxlOauu+vn4vrt4k+JO41pvIOcf020ePEvcZUSptX8+Ur4sZalx/L + /8pMQfeV2U6OkBvF9ZFShLcjIOvGUYIca41RpH4yahxf6foZ1V3dZ6Q2m/Ahk3E4TFzgpDTbiBt/U7xa + 3Ouq0/USx+TdW9yYhrWTHCeujzrs4u4ZAMjJNgIAAAAAgKp51Y2D+CW92wBIJY7TuI9M7Xeu4okw3xLX + Z0r7iet/nA4WN9ZUPiiu3xS2lfj7OTYnw0vEjSOH94obUyr/krlsFHfVUeLqmUI8jcn1OVePkDhazvWZ + WgRftxA3jpLUfX8dKq7fJoonIrnXmMqjxPXbRF2bV3HEmBtnHeLpj6mP7dtecjzh6cvi+i9B3XN2VPEU + 1x3EjXm2Ijyf8imHl7vPR2034QMluZV+ZN1kzxb3Gpogno7kXlOdPi4bixvPqGK+xJOhXH8p/czdMwCQ + k20EAAAAAABV86qbB3WGheIJPnGkxtQ+U4knEcSRIq7vVE4U1/c4nSJurKnsI67flOJJRH8R139KnxPX + fw6niRtTKnHvun4xs/PE1TOFx4rrM4UFEkEq129qTTjCru77ay9x/TbN2lLnUacRZlhHXN9N1KV5FaGj + uH5unKl9VNYQN465WlO+Kq7flOJ4Udf/uNU9Z+fie+LGPFsR9nV/f1Rfcp+P2m7CB0lyquPIut+btlQ+ + Ke51lC6OifuXuNdUh7/Ig8WNJYX15DRxfafEU50AjJVtBAAAAAAAVfP6GwdxLNs14jYBUniMTO6vLm8S + 1/+oYuPvj/J1iaPyXJ/jslCuEzfuVDYW13dqcRTM38SNIZUzxPVdt9h4Tfn0AecN4vrG9DYUV8tU4rg5 + 129KT5U6gysrPERc/yXIcX/FXHF9N03dR53+Sly/TdSleXU7+au4MaYU71VxfK0bQ0qLJI4FdGNIZUJc + 3+OUY87O1aPFjX02Uv+o4aXu81HbTfgQSU6pj6w7Rfad0pbSheJeR8lWl1+Jez11+LGsL24sKa0tZ4sb + QyqfdfcNAORiGwEAAAAAQNW8/sbBXW/9wr8uq8vk/uoST3b6prgxzCSOT4uj9eLpJXEc3FMkfrEfG0eu + nxLcT9xrSeUP4vqtyx7ixpHKn8T1W7eHiRtPSruI6xvTi6epuFqm8FtxfdbhReLGkNLJ4vouQd33Vzz1 + y/XbRG8T9xpT+Yi4fpuo7nkV6w3X7zh8RtwYU3u+uP7rEOHpG8SNI4X/SATEXN/jkmOtMVfnSDyR0I1/ + WN8R97dHtZP7fNR2Ez5AkkvqI+uWSTy56M6T2uqwibjXU6pDxb2OOnxVFokbRx3uIteJG0sK/5H13L0D + ADnYRgAAAAAAUDWvv3FQ9wZJzicX3EmWiRvH9XKWfFbeKBF22F5WE/e3SvZKca8xlU+K67dOPxM3lhT+ + Ka7PusU8c+NJJeZ6yYG8Uh0qrp4pHC6uz7p8Xtw4UtpJXN/jVvf99XFx/TbRD8S9xlSeJK7fJurKvNpV + 3PhSi5Cd679Odb7Hh/3F9Tsudc/ZVOYSeIuQ1LXi/u4o4m8tcJ+P2m7Ch0dyqOPIurfLir9/xa1tdYgn + Rk1+LSXbSW4S9zpS+54sFDeOOr1W3HhSeaq7dwAgB9sIAAAAAACq5vU3Dx4vbhMglefI5P7qFkGDU+UY + iUBQHJ13Z4kj+tw/30RfEVfrVJ4trt86vVXcWFK4Ulyfdfu2uPGkEvPc9YuZ1Xm0URwp5/qsy6aScvPX + +Zi4vset7vvr6eL6bZo46rTOJ9yEO4jru4m6MK8i4B1PlnLjS+nHsqq4MdQpQu9x/LAbUwrfEtfvuNQ9 + Z1O5XG4r7jWszH3E/c1Rfdd9NuqCCR8cySH1kXV/lAhPrfj7J4n751L4kEx+LaVaRc4U9xpS+53EUXJu + HHWL6/4PceNKYcLdOwCQg20EAAAAAABV8/qbB3UHna4RjtdKJ47o+4e4Wqeyjbi+63SguLGkcL64PusU + m7t1B1DeJa5vTG8tWS6unilsIa7fOtX99JKrZZG4vsclx/0VR2C5vpvmAeJeXyrjOhq0Dl2ZV/FkHTe2 + lGLtF4Ej138Op4kbVwoRHFxDXL+5pZ6zcZyza0/l7eJex8q8WNzfG9VS99moCyZ8cKRuqY+sC4+SyX0c + LO6fS+FsmdxXqZ4hbvypxdFx24gbQy7vFje2FH7o7h0AyME2AgAAAACAqnn9zYPdbv3Sv26fkB1lct+Y + ve3E1TeVv4vrt251PtHp++L6rFPqpw84jxXXN6b3CHG1TOEv4vqs25bixpPSHuL6Hpe676/LxPXbRK8W + 9xpT+Yy4fpuoC/MqQouXihtfSi8T138uda4pwoPE9Ztb6jn7BqnzaVhxjPTm4l7LTI4T9/dG9Qj32agL + JnxopE51HFl3vEzt57Hi/tkUIqS1jkztsyRxhNzF4saf2gvEjSGne4sb22z9S86ReCLYkfIGuYu7dwAg + B9sIAAAAAACq5vU3D+LpAm4ToC5ny9sknjIRx6dMHgtW7nni6prKl8X1W7c44saNJ4UPiOuzTi8RN5aU + bieub0xvqbhapnCsuD5zOFPcmFIZxz00k7rvry+I67eJvibuNaayv7h+m6gL8yrH05x+L3Fkous/l73E + jS2VqKPrN7fUczaeSnj0lLbUJsS9lplcJO5vjSKe6rjYfTbqggkfGqnTB8QFTEYVwZTNZGo/G4v751OZ + +gSp0uwvbtypnSZxRJ4bQ07z5e/ixrjCjRJHHP5QPiPvkOfLHnIPWdfdIwAwTrYRAAAAAABUzetvHqwi + /xS3GVC36ySetnOw7Cmj/Mq7az4trpapvFxcv3W6v7ixpLKvuH7rdLy4saTyW3H9YmbfFVfPFF4ors8c + DhE3plQioOr6HZe67684Jsn12zRx1OmV4l5jKncT13cTtX1exXyIEJIbW0p7i+s/p7uLG1sqh4nrN7eU + czbW5DFHNpJ/3dpWl3gSlXs9zsbi/saoTnefi7piwodG6vJQcQGUuXipuL7CJeL+nRQOEddnCSL0k/qp + WdO5v7gxjMNRcrp8Sd4vL5d95H6yiQwEstw9AQAlsY0AAAAAAKBqXnUT4YviNgPGITZlI4zwHnmKbC+r + ytQxd9UfxdUtlSXi+q3LbSRCO24sKdwk64vru05xRJEbTyqHi+sX01sg14qrZwr3ENdvDo8XN6ZU4gkY + q4vrexzqvr/uLa7fpon/frrXl0r89zrC0q7vJmr7vNpV3LhSOkdKmBPx3303vlS+Ka7f3FLO2dNlxd99 + za1tdfmhTH4dM3mcuL8xqve5z0VdMTX4UaPFEk/TcWGZUZ0lC8T1F04Q9++l8GNxfZZgd3FjTu2r4vpv + DHdPAEBJbCMAAAAAAKiaV91EiF/fu82AUlwvp8lHZD/ZWqa+hi7YVFx9Uvm3RBjE9V2HteVkcWNJ5Tvi + +q7TXcSNJaW/ylmFiSOy1hBXkxLsJK6WKcRT8ca5ub+tuHGldC9xfedW9/0VYbi2hGvjWDn3GlM5UVy/ + TdSFeRXHa7qxpRQBddd3bnE0shtfKvHfPNdvTqnn7BGy4m/Hf8vrDtZHgGny65nOO8X9+6Pay30u6goX + /qjJh8WFZUZ1s8STelxfK7xO3L+bwn9kDXH9jtvnxY05tZ3F9d8Y7p4AgJLYRgAAAAAAUDWvuokQ4ZaL + xW0IlOoK+YYcJPeTLjz1KY5gc7VI5Xvi+q1DPDmqrUfoPEPcWLognhjialKCl4obcwrxXuT6zGUtceNK + adhN6brVfX99W1y/TTQh7jWmEv/9df02Ud3z6lvi+s1lsdT5RLtwuSwU1/84uDGmcoG4PnNKPWcjGDn5 + 7z9R3D+XSqwBI5A2uU/nB+L+/VFt6D4XdYULf9SgjiPrjhDX12S7ift3U3mwuH7HaW25Xtx4U/qluP4b + xd0TAFAS2wgAAAAAAKrmDW4kxJOS3IZAU1wt8XSJF8udxb3GpvuQuNeeypvF9ZvKfHmQHCc3ixtDSrER + mfMJVSscJW48bRfXdB1xNSlBnUd0xjE/rs+c4sl3bmypHCCu39zqvr/eIK7fJrpI3GtM5YHi+m2its+r + vcSNK6V3iet7HOoOf8aRca7fnFLP2Xjq4eS/H2u2H4v7Z1M5UCb3OVWs4eJpo+7fHcV57jNRl7jwR2J1 + HFl3uawrrr/J1hP376fyWnH9jtO+4saa2gHi+m8Ud08AQElsIwAAAAAAqJo3uJkQGxrfF7cx0ES/kbfJ + PcW93iaKo1Lca03lEeL6HUXMp40lNsLjKQHHyJ/F9VuXeNqBG1vdzhM3nrY7R1w9SvE3ceNOYWdxfeZ0 + pbixpbJUXL+51X1/PVRcv02zmbjXl8oNsrq4vpuo7fPq4+LGldLdxfU9DhuIG2MqcVyp6zenlHP2RnH3 + 832kzmD6P2SmgHQcmer+vVEd5T4TdYkLfySW+si6sJ+4vpzzxf2NFE4S1+c4fVrcWFO6STYU13+juHsC + AEpiGwEAAAAAQNU8v6GwicSv1N3mQJNF6CmeRnIbca+7CdaWm8S9vlQiqBJhqlH9QeIJInGsYN1jXZlf + yirialmnDcWNpwuOFFeTEmwtbswp/EfWENdvTrFh7MaXSglPa6n7/orN/jXF9d00dR91+iNx/TZRF+ZV + /PfZjS2VOIbM9TsudxM3zlTGHXRKPWfPENdPiKC6+3dSeY+4fsPzxf07o3qG+0zUJS78kVAdR9Z9X+aL + 6885VtzfSeFqWVVcv+NyqbixpvQjcX03jrsnAKAkthEAAAAAAFTN8xsKIY6u+Je4DYKmi42peCpJhIbc + ay/Z7uJeEwYtl3gKgatj3R4vbkxd8ExxNSnBs8SNOYU42sf1mVvd79uHies3p7rvr1PF9dtEHxb3GlN5 + h7h+m6jt82ojceNKqaRj60Lda6Y/ies3l9RzNo5Gdv2E+BHEteL+vRQiLHwncX1/Sty/M6q7uM9EXeLC + H4nUcWTdMtlWXH/Tebm4v5XKPcX1Ow5bihtjaq8S1/+w7iFnNcAZsr27bwAgF9sIAAAAAACq5vkNhRUe + JFeL2yRog8slgg9xvJp7/SWKY/jca8Gg14urYQ7vEzemLthWXE1K8AlxY07hEHF95rSauLGlNNNTN3Kp + +/4q4TWmcra415jK/4jrt4naPq8eLW5cKUWwyPU9LvEUTzfOVOJJoa7fXFLP2SeL62eFN4j791L5vLh+ + Ux7PF0+stZ+JumTCB1FSqOPIureJ62smDxb3t1I5UFy/4/AkcWNMbTtx/Q8raub+bone5+4bAMjFNgIA + AAAAgKr4sn8l7iFxDJnbLGiLb0k86cC9/tL8QNxrQNUXZRxH1q1wurhxtV0cm1ZycPB8ceNOYQ9xfeYU + T8NwY0spnobn+s6p7vtrT3H9Nk08tfBmca8xhfjbTXwy4nTaPq9eI25cqcRTFBeL63tcDhc31lROFtdv + Lqnn7J3F9bPCIrlY3L+byv1lcp/rivvnRnW82M9EXTLhgyhzVceRdX+QReL6m8lacpO4v5nC58X1Ow5v + FzfGlC4S1/ds1HmcYGp7u/sGAHKxjQAAAAAAoCq+7B/CevIlcRsGbfFXGdcxZ8NaKNeLGz/6YuNxTXE1 + zCE2emPD142t7b4hriYlqPPYpgh8xGas6zenh4obX0oHius7lxz31wbi+m6aeNqSe32pxNOiXL9N1IV5 + dbS4caVylrh+x+k0cWNNJY5Uc/3mkHrO/k1cP1M9Sdy/n8pPZXJgeldx/9yoXiz2M1GXTPggylzUcWRd + +B9x/Q3jt+L+ZgqXietzHL4kbowpxf9c37Nxsbi/XaIN3H0DALnYRgAAAAAAUBVf9s/C3lL3L7nH6Vp5 + mLjXXoL4lbsbN/pOknGGnMIjxI2tC14nriYliPcvN+YUfi2uz9xeJm58KT1RXN+51H1/nSuu3yZ6u7jX + mMqHxfXbRF2YVxECdmNL5TPi+h2XWAvUHV57s7i+c0g9Z08Q189UEUKKMJL7G6nsIyv6i3WF+2dGdW+x + n4m6ZMIHUebiY+ICI3PxBXF9DesT4v5uKluJ6ze3X4obX0r7i+t7WJuJ+7sl+q27ZwAgJ9sIAAAAAACq + 4sv+WYpjK14i8QQkt4HQdNfIvcS99nF7lbgxo+d9sqq42uUUR3u58XVByUHBw8SNOYWPiusztwgauPGl + dF9xfedS9/31MXH9NtEPxb3GVPYV128TdWFe/U7c2FKJo/Fcv+OSI3Q8zuBn6jn7anH9OEvE/Y1ULpR4 + imn09eVb21KIHzTcsk50n4m6ZMKHUUa1m7jAyFxcI5uK629YLxT3t1N5hrh+c/u7uPGldDdxfQ/rieL+ + bokOd/cMAORkGwEAAAAAQFV82T+i2ICITc7vyE3iNhSa6k9yO3Gve5y+Km68XRehu8eIq9k4fFfcONsu + 3gfiKB1XkxL8Qty4U3iyuD5ziqds5Aig3lZc/7nUfX89TVy/TRP/jb5B3GtMZTNxfTdRF+ZVHE3mxpZK + HGnm+h2XCD+7caa0rbi+c0g9Z3cW1890JsT9nVReLtHPJZPa5urbcsv43WeiLpnwYZRR3FbqOJLsJeL6 + m42dxP3tVI4W129uN4sbXyo3ymri+h7W+8X97RLt6+4ZAMjJNgIAAAAAgKoVX/jP0YbyfDlFbhS3udA0 + nxL3WsclQgxXihtrV/1H3iNri6vZOCyQeGKAG2/bnSmuJiWIAFadRxhtLq7fnHYUN7aU/iiu71xy3F93 + Ftd30zxQ3OtL5SJx/TZRV+bVP8WNLZVdxPU7LvFUIDfOVK6SVcT1XbfUczbW7vHEVtfXdCLoeJ24v5dC + zNe7T2mbqzfKLeN3n4m6ZMKHUUZxpLiwyFycKQvE9Tcbq0uEdFwfKZwvrt+c1hE3tpTOFdf3bPxc3N8u + 0UbungGAnGwjAAAAAACoWvGFf0LxtI/HyRFygbiNhqbYSdxrHIftxY2xi66X90sJ4ZKpYs64MXfBR8TV + pAS7ihtzCvEEONdnbm8XN76U4gkeru9c6r6/4olYrt8mOkjca0xl3HMhpbqP4SplXrmxpXRXcf2OQxxB + 7MaY0oni+s4h9Xvhz8X1szJ1H/n4G9M2F/89Xtd9JuqSCR9Gma06jqyLpxPdV1x/ozhdXD+pbCSu31w2 + EDeulE4Q1/ew1pTl4v52ac5z9wsA5GYbAQAAAABA1Yov/Gu0sewjH5A4OqpJT3w6QdxrGof9xY2xS/4s + sam2vrgaleBl4sae0lmF+l9xNSnBW8TVMoXPiOszp3iqyMXixpfS88T1n0vd99dx4vptoghhuNeYSvw3 + yfXbRF2ZV/EURDe+VLYQ1+84xJrTjTGlA8X1nUPqORv1cv2szJryF3F/szTxVMcY7y1jd5+JumTCB1Jm + o64j6z4qrr9RHS6un1T2FtdvLluIG1dK8dQu1/ewHiLu75bo4+5+AYDcbCMAAAAAAKha8YV/RqvLfeQ5 + cricLnVvvo0qNkU2Evc6counZ7gxtl0czRKbxI+RVcXVpiRfEvc6UvmduH4xs5PF1TOFEgIfjxY3ttTu + IK7/XOq+vw4Q12/TRPCt7qNO4ymDru8m6sq8+oe48aWyrrh+c4t15hXixpjSOI8jTD1nnySun2E8Rdzf + LM2p8t9xu89EXTLhAymzUceRdSGOgzsrob+K6yeV94urTy7rixtXSu8R1/ewXiPu75boqe5+AYDcbCMA + AAAAAKia/KX/GK0mcczIivDTL+UmcRsVuT1b3Jhzu0jc+NrmBvmpvEsivBEblq4epbpc3OtK5WPi+sX0 + Fsh14uqZwt3E9ZvTj8SNLaV4Ip/rO6e67697iuu3aWJOuteXSoSo5ovru4m6Mq/qXkesI67f3J4pbnwp + nSGu71xSz9m5PI0r3gtOE/d3S/Ie+e+43WeiLpnwgZRh1XFkXVP9UlyNclkkblwpLRXX97BOFPd3S7SZ + u18AIDfbCAAAAAAAqiZ/6V+YxbKrvEm+J+N66tOnxI0vp83EjS2VOE7QHUWWUvyS/hT5isQTmo6SCDO9 + Sp4uD5c7SjyJxNWgCe4qrr4pPU1c35jefcXVMoUIfIx7zj5M3NhSe6m4/nOp+/66Wprw1Lhh1H3U6dfE + 9dtEXZpXESJ3Y0xlc3H95vYrceNL6SXi+s4h9ZyNo+dcP7PxAHF/uyR7yn/H7D4TdcmED6QMo64j65rq + JomauFrlEmNwY0tlLk90mi//EPd3S3Ohu1cAYBxsIwAAAAAAqJr8pX/h1pI4viyeaHONuE2MOsSGmRtP + TvuKG1sq8TQY1y9m51ni6pvSncT1jem9XFwtUzhRXJ+5xJM04klLbmwpRdB0fXFjyKXu++skcf020WfE + vcZUXi2u3ybq0rz6vLgxphJP5nT95rS7uLGlFE+eXE9c/zmknrPHiutntj4n7u+XYgP573jdZ6IumfCh + lGHUdWRdk+0urla51H0832fF9TuMu4j7myU6xt0rADAOthEAAAAAAFRN/tK/QdaUl8m14jYzUrpK3Bhy + +rC4saXyDnH9YnY+Ia6+qVwirl/M7Mvi6pnCQeL6zCVHuC6U8GS7uu+v14nrt4n+JO41phJPb3H9NlGX + 5tWbxY0xlceJ6zeXCH7+XNzYUjpaXP+5pJ6zLxTXz2zFE72uF9fHuJ0rlfG6z0RdMuFDKSvDkXXeweLq + lcsp4saVyq/E9TuMeKLTMXJWIv8UN8YUnu7uFQAYB9sIAAAAAACqpn7xP8mGcjd5pMRxWbGh/36JY8fi + CUC/l43F/bu57CTxy3q3qZGS6zuns8WNK5X/EdcvZud8cfVNJdVTF7rm7+LqmcI4Ax8byT/FjSu17cWN + Iae676+HiOu3ae4g7vWlEv/NXSiu7ybq0rx6orgxpvIWcf3mEkErN66UbpZtxfWfS+o5u4O4fkYRc8D1 + MW5HSmWs7jNRl0z4UMpM1hGOrPN+IK5muRwhblyp3Czries7p8VyhbgxprCFu1cAYBxsIwAAAAAAXTZv + ydLVZFNZInEM3PNkqRwuX5XT5C+yTNxGwVTxVKXKxsEYfEDc2FJy/eaytsTGmhtXCvG3ow/XN4YXoRNX + 35ReJK5vTG8bcbVMYZyBj3hyydfFjSu1L4obQ05131/x37xF4vpumieJe42p/FBcv03UtXm1mbhxpvID + cf3msLrUHVoLcTyb6z+X1HM2wrKriOtrFHHM9F/F9TVO/yeVsbrPSV0y4YMkM4mn8rhwCCYmbpCF4uqW + wwHixpXS88T1ndNbxY0thT+7+wQAxsU2AgAAAADQNfN6GxixUX25uC//5+JiGfeTHfYVN7ZUrhHXby7x + tCU3rlTiaVGuX8zOE8TVN6WUT13oiueIq2UK4wx8vE3cmFK7Ue4ibgw51X1//Uxcv030EXGvMZW3i+u3 + ibo4r84TN9YUbpII4rh+6xZH8LoxpRTvh1uJ6z+X1HP2G+L6mYuni+trnLaUyjjdZ6YumfBBkunsIS4c + gr4HiqtdDvcUN6aUzpE4hs71n8M2EoEyN7YUJtx9AgDjYhsBAAAAAOiaeb1NGfelfypxpF1l8yCzuoNA + fxTXby6xqezGlcqHxfWL2YljHV19U7laUj51oSs+Ka6eKYwj8BFPcnqzuPHU4VBx48it7vvrXeL6baJf + iXuNqbTpqNMuzqsYkxtrKuM4vi6OWK7zyZcrvFtc/zmlnrOvEdfPXMRa5Rfi+huHS2VgnO4zU5dM+DCJ + E0fWXSIuHIK+g8TVL4dV5HJx40rpmeL6r9vqcrq4MaXybHefAMC42EYAAAAAALpoXr3HefxH7isDmwiZ + vF7cuFL5prh+c4mnxrhxpRJPxHL9YnbOEFffVMY9D5vqD+LqmULuwMc68gVxY6nDn2SxuLHkVvf99Vhx + /TZNzJE6Ax/xxJ42HXXaxXl1D3FjTeVfsom4vusQryeCwG4sKcUTTG8jbgw5pZ6zO4vrZ64eJK6/cThO + BsboPi91yYQPlDgcWTecE8XVL5cjxY0rpStlc3H91yWeIvUpceNJaSt3nwDAuNhGAAAAAAC6aN6Spe8T + 9+V/Kn+XcRyrFZvwfxE3plTi6Smu7xziWMAbxI0rlU3F9Y3hxTyMAICrbyp1PHWh7TYWV8sUIkySK/AR + T8fYT+KpFG4sdYmnpLjx5Jbj/rqduL6b5lHiXl8qZ4nrt4m6PK9OEzfeVL4tq4rrO6V7Saw/3RhS203c + GHJKPWdjfbmGuL5SiICR6ze3A2RgfO7zUpdM+FDJVBxZN7yrJJ6s5OqYw87ixpXaL2VtcWNILer5UXHj + SOkyd48AwDjZRgAAAAAAumheL4TkvvxPKX7F/0QZ2EyoyerydXFjSenB4vrP4QHixpTKuI/la4vYAHX1 + Tamupy602T7iapnC2eL6TGkteab8VtwY6hThWDemcaj7/or6un6b6B3iXmMqHxLXbxN1eV49QdyYU/qM + rCau/xSeLP8W13dqpcz71HP2x+L6SWULqTusP4x7ysD43OelLpnwwZLJOLJu9u4hrpY5xJOPfi1uXKn9 + VNYXN45UIkz1VXH9p3asu0cAYJxsIwAAAAAAXTVvydIfiNsASO2rsp0MbCoktL3UfeRMuEjmixtDDq8W + N65UPi2uX8zOW8TVN5U4HrLOpy601QfE1TOFuja+by9Pl8/LNeL6rtupEkFSN75xqPv+Olxcv030I3Gv + MZU2HXXa5XkVT4mLp3O5cacUR+/eWdwYRrW55DzCM9aapbwfpp6zh4jrJ6W6w5crE/8dtU8Xc5+VumTC + h0sm48i62XuhuFrm8n/ixlWHi+WR4sYxV3vJn8X1W4f93T0CAONkGwEAAAAA6Kp5S5Y+WtwmQB3iWKd4 + 2lI8NSCeSjKwwTCiOKbkGFkurt/UloobRy4nihtXKs8T1y9m52Rx9U2l7qcutNUvxdUzhbkEPuJIytis + v5/sJW+Q4+UCcX3l9FeJI//cuMel7vvrqeL6bZoIY3DU6fC6Pq8eJm7cqV0v8YS4uQaedpSPyTJx/dTh + crmjuPGMQ+o5u4e4flK6jVwmrv8cThI3LvtZqUsmfMBkhbqOrPuXnDVGV4obVyrHiqtnLqvKb8WNrS6n + yKNlNXFjGtbqso+cKq6fOm3j7hEAGCfbCAAAAABAl81bsvQ74jYC6hRPozlF4lfdT5MHySYysOkwRfwz + 8c/G000+KueL+/t1uVrWFze2HOKJC1eKG1sq24rrG8NbINeJq28qMQ/i6RtNc4C4muUQm6s3iatnCueJ + e81OPBkuXCX/FPf3ShDveXHMqavnuOS4v+J4Jdd30zxQ3OtLpU1HnTKveibEjb0up8nBEsH7CD5Nd7Rd + hEHvIREojSfzxfun+3t1itBgSUfGpp6z8YOEdcT1lVocwerGkMPrxY3Jfk7qkgkfNgl1HlkXTxxyfeby + ZnHjSiXq5vrN6eHixla3v0sEvV4gD5YNJY7Tc2MM68ku8iI5Tq4S93frFuOe7+4RABgn2wgAAAAAQJfN + W7L0bnKjuM2AcYhN/0slNlAjyHTxrW11P5ViGC+VgY2RjOJauXGlcoWM81i+toin8rj6YsnSv4irWQ67 + ixsTvNhAL2lTf4W6769xztHUDhL3GlNp01GnzKuedSXG6l5DLvHUpAgyxRPtYiwRuHT/XE4Rkn28uJqN + S+o5+ytx/dQhgvt1PmFxJruIG5P9nNQlEz58Euo6si6e/DNT8CWHup5UNdmdxPWd01HixpbbjfJXuUh+ + JxfI5XKDuH9+HI539wcAjJttBAAAAACg6+YtWfo6cZsB6PuZrCoDGyMZ7S9ubKl8RVy/mJ1XiKsvliw9 + VlzNcoinhrgxYVAEC0oMOYW6769xztHU4rhY9xpTadNRp8yrvgjQ5DwOrnQRcnqKuFqNU+o5+xFx/dTl + weLGUaeY12uKG4/9jNQlEz4gU1cQaJlsJ67PnDYSN76Uniau75wWy7nixoeqF7n7AwDGzTYCAAAAANB1 + 83q/rK57Q7TJ/i6by8CmSGafETe+VGLTzPWL2TlBXH2xZOmLxNUshzgu040JVfFEvfuIq2EJ6r6/Xiiu + 36aJ/67H0YjuNaaynbi+m4h5VbWfuNfRNRFyepa4Go1b6jkbxwK6fur0JXFjqUv8aMGN4xbuM1KXTAyG + Y24nl4oLg8zV28T1OQ4XixtjKkeK6ze3beRqcWNE393d/QEA42YbAQAAAADALWGn28qZ4jYGuiyOb3qA + DGyIjMGfxI0xlXiKg+sXw4uj/yIY5+qLJUvvLq5udVsocS+7MaEv/htQQqhzOjnurx3E9d00ca+515fK + P6QtR50yr7w4rte9lq6Ip//sLa4241bHnN1MXF91urP8R9x46vAuceO4hft81CUTg8GYz4gLgszVhbJI + XJ/j8CVx40wlnqTk+h2HneU6cePExMSVsoq7PwBg3GwjAAAAAADombdk6QbyK3GbA10UwYiHycBmyBjc + QdwYU4nXupq4vjG8bcTVF0uWXinxlBlXt7pFiM+NCX2Hyxri6leKuu+vf8q45mhqzxf3GlP5qrh+m6ju + eRVHQTZ1Xr1E3Gtqu8sljlZzNSlB6jl7kbh+cninuDHV4bHixnAL99moSyaqgZg9xQVBUniUTO1vnA4S + N86UNhDX9zg8TAg7eSe4ewMASmAbAQAAAABA37wlS9eWk8VtEHRJ/FL+/jKwETImTxI3zlS+L65fzM5z + xNUXS5Z+RVzNcniluDFhydLLZC9xdStN3ffXN8T120SfFfcaU3mVuH6biHk1szjS7Hpxr62NzpAtxNWi + FKnn7IS4fnKIJ8r+Tdy4UruduDHcwn0u6pKJfhAmjqy7TFwQZK6Ol8l9lWBXcWNN6XHi+h6Xe0tdxxI2 + 2UvcvQEAJbCNAAAAAACgal7vyT7vlZvFbRS03elS2ibXR8SNNZW3iusXs/NJcfXFkqWvEFezHCJk5cbU + ZfH+frTMuPFbmLrvr9eI67eJLhb3GlMpKQg8V8yrldtJ4qk/7vW1yfskjjp1NShJ6jn7PHH95JIjJH6O + uL7/y30m6pKJfgimriPr/iWbyeS+SrC2uPGmdKi4vsdpE/mxuPE2Vbyet05pm417uXsDAEpgGwEAAAAA + QNWkL/0fKn8St2HQRjfJwVLiEW51Hym4m7h+MTt/EFdfLFm6RFzN6jZfrhA3pq76qYzresxF3ffXzuL6 + bZrNxb2+VOLpPk0IgwyLeTWcdeXz4l5j050vTbpOqefsduL6yWVVqXude4S4vv/LfSbqkole+KXOI+te + KpODNiU5X9yYUzldXL/jtkBeJ/8RN+4meZ8slLtNapuNq2VVd28AQAlsIwAAAAAAqJryxf9tJMI/14nb + OGiLU6XUjf91pM6na0XAa7G4vjG8jcXVF0uWXisLxNWtbtuKG1MXnSmPEVen0tV9f/1H1hDXd9M8Wdxr + TOUH4vptIubV7O0tl4h7vU3zb3mtNOkapZ6z/5AIBLu+cnqYuPGlsp+4fv/LfSbqkol6j6w7SyJUMzVo + U4q6nmK1wnJZLK7vEmwjPxM39tJdLLvJitcyX/4m7p+dyYnuvgCAUthGAAAAAABQ5b78l03loxJPcnAb + CE0Vx/vE5kcJmzzTeZS4sadyhrh+MTtPFFdfLFn6bXE1yyGO5HFj6pKTZXcp+X1uZeq+v34irt8miv9W + u9eYytvE9dtEzKvRrAjBR4jVve7SRQDtMInQkHt9JUs9Z+NoV9fPOJwgbowp3Elcn//lPhN1yUR9YZ+b + 5X6yIohSonjalBt7SruK67sUERB6slwobvylWSbvltvI1NdyrLh/ZyavcPcFAJTCNgIAAAAAgCr35f8k + G8ib5FJxGwlNEeGeeOrFuJ4yMxvvEPcaUnm/uH4xOx8UV18sWfp6cTXL4dPixtR28R59qMQTrVxdmqbu + ++sQcf020a/FvcZUIjTn+m0i5tXc3F4i8NSU40GvlFhTbSLu9TRB6jn7SnH9jMNWskzcOOfiL+L6q3Cf + ibpiot4j646QqUGU0jxQ3NhTerO4vksTx78dIKUGniLgdLhsLm78YX9x/+5M7uvuDQAohW0EAAAAAABV + 7st/Y1WJzc7PSlN+0f83iQ2i+4l7TaX6kbjXk0ocQ+P6xezEsWCuvliy9CHiapbDH8WNqY3Ol3hKSRwB + FO/Rrh5NVff99Whx/TbNulL3Uadri+u7iZhXaSyS58tp4uowTjFnvy9PlRinG3+TpJ6zpa2J3y1unHNx + rLi+Ktxnoi6YqPfIustlXZkaRCnNWnKTuNeQysni+i7VKhIBuBh3PJXLvaacrpBDZaaA0wp3Efc3pnOt + LHD3BwCUwjYCAAAAAIAq9+X/Sqwuu0k8Geh34jYZxiE2e38h75SmbvzHE6fqPi5wI3F9Y3hrSWymuvp2 + 3Q2yhri61S3mthtT00VNz5UTJZ5Oso808QimYdV9f8V/K9YT13fTRADZvcZUzhLXbxMxr+qxpRwksf4a + 138X/y3x/ri/bChunE2Ues5eJwvF9TUu68jfxY13VC8U11eF+0zUBRMTE++YFPhIbT+ZGkIp1a/EvYZU + /i2riuu7dJvIy+VUyRl6ipp9RZ4g8aQpN7bp/EXc33ROcvcGAJTENgIAAAAAgCr35f8s3U72kDjO5ASJ + p4zUvdm1XC6QL8jr5FHSlg3Gt0hsLtfhm+L6xOzFUwhcjbtuQly9cjlCYhy/l4tm6U/yzxFEEMm9T4X4 + v03+Z+MopejrtxLBgFPka/I5iSfQxbF/sVn/BHmANPnIpbmo8/6K/065PpsonljzDXGvM4VxHkNZB+ZV + veLpX/FUq/fIDyXe79z74lz9Qb4kr5YHSgTw3XjaIOWcPUZcH+P2DHHjHdX24vqpcJ+JumBiYmJHOasG + n5P5MjWAUqqDxb2OVN4ort+mWU/iSU8flDPkOnHhoVH8S34k75VHyOrixjCM+J/rwznI3RsAUBLbCAAA + AAAAqtyX/wnEE122lUfKs+WN8gH5tMSv7mNz/6cydXPidIn/W4hNw6MkNnleI8+UeFLTnWU1cf0CAACg + DPH0uUfIs+S18mGJkPp3JdZ6se6bvA6Mo9qi/SvyKYmndL5MHi87ymJx/QCz4j4TdcmED4sAKxNPqYqj + 4vaSA+UQ+ZR8S06R02RF2OsXt7adJBGEe6ccII+Tu0ocl+f6GMXeMjloNpOd3D0BACWxjQAAAAAAAAAA + AAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAA + AAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAA + ACWxjQAAAAAAAAAAAAAAAABQEtsIAAAAAAAAAAAAAAAAACWxjQD+fztySAAADANBbP5NdwZewIGAkAAA + AAAAAAAAUDITAAAAAAAAAACgZCYAAAAAAAAAAEDJTAAAAAAAAAAAgJKZAAAAAAAAAAAAJTMBAAAAAAAA + AABKZgIAAAAAAAAAAJTMBAAAAAAAAAAAKJkJAAAAAAAAAABQMhMAAAAAAAAAAKBkJgAAAAAAAAAAQMe9 + D/nIDJsB8H0BAAAAAElFTkSuQmCCCw== + + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Reports/Zoll/rptAufschubabgleich.vb b/SDL/Reports/Zoll/rptAufschubabgleich.vb new file mode 100644 index 00000000..ad9b6d4c --- /dev/null +++ b/SDL/Reports/Zoll/rptAufschubabgleich.vb @@ -0,0 +1,7 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document +Imports System.Globalization + +Public Class rptAufschubabgleich + +End Class diff --git a/SDL/Reports/Zoll/rptMRNDruck.Designer.vb b/SDL/Reports/Zoll/rptMRNDruck.Designer.vb new file mode 100644 index 00000000..f05cd6e6 --- /dev/null +++ b/SDL/Reports/Zoll/rptMRNDruck.Designer.vb @@ -0,0 +1,187 @@ + +Partial Public Class rptMRNDruck + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader + Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter + + Private Sub InitializeComponent() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptMRNDruck)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() + Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.lblMRN = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.picMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblMRN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picMRN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.Height = 0! + Me.Detail.Name = "Detail" + ' + 'PageFooter + ' + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2, Me.lblSachbearbeiter}) + Me.PageFooter.Name = "PageFooter" + ' + 'ReportInfo1 + ' + Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten " + Me.ReportInfo1.Height = 0.2! + Me.ReportInfo1.Left = 4.002362! + Me.ReportInfo1.Name = "ReportInfo1" + Me.ReportInfo1.Style = "font-size: 8pt; text-align: right" + Me.ReportInfo1.Top = 0.02480315! + Me.ReportInfo1.Width = 3.478! + ' + 'lblDetails + ' + Me.lblDetails.Height = 0.2! + Me.lblDetails.HyperLink = Nothing + Me.lblDetails.Left = 0.07283465! + Me.lblDetails.Name = "lblDetails" + Me.lblDetails.Style = "font-size: 8pt" + Me.lblDetails.Text = "" + Me.lblDetails.Top = 0.02480315! + Me.lblDetails.Width = 3.187031! + ' + 'Label8 + ' + Me.Label8.Height = 0.2! + Me.Label8.HyperLink = Nothing + Me.Label8.Left = 2.790945! + Me.Label8.Name = "Label8" + Me.Label8.Style = "font-size: 8pt; text-align: center" + Me.Label8.Text = "VERAG Spedition " + Me.Label8.Top = 0.02519685! + Me.Label8.Width = 1.870472! + ' + 'Line2 + ' + Me.Line2.Height = 0! + Me.Line2.Left = 0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0! + Me.Line2.Width = 7.480315! + Me.Line2.X1 = 0! + Me.Line2.X2 = 7.480315! + Me.Line2.Y1 = 0! + Me.Line2.Y2 = 0! + ' + 'lblSachbearbeiter + ' + Me.lblSachbearbeiter.Height = 0.2! + Me.lblSachbearbeiter.HyperLink = Nothing + Me.lblSachbearbeiter.Left = 0! + Me.lblSachbearbeiter.Name = "lblSachbearbeiter" + Me.lblSachbearbeiter.Style = "font-size: 8pt" + Me.lblSachbearbeiter.Text = "-" + Me.lblSachbearbeiter.Top = 0.05! + Me.lblSachbearbeiter.Width = 1.130708! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblMRN, Me.picMRN}) + Me.ReportHeader1.Height = 2.309859! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'lblMRN + ' + Me.lblMRN.Height = 0.7704724! + Me.lblMRN.HyperLink = Nothing + Me.lblMRN.Left = 0.5657481! + Me.lblMRN.Name = "lblMRN" + Me.lblMRN.Style = "font-size: 15pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.lblMRN.Text = "MRN: XXXXXX" + Me.lblMRN.Top = 0.8543308! + Me.lblMRN.Width = 5.134646! + ' + 'picMRN + ' + Me.picMRN.Height = 0.4169292! + Me.picMRN.HyperLink = Nothing + Me.picMRN.ImageData = Nothing + Me.picMRN.Left = 0.5657481! + Me.picMRN.Name = "picMRN" + Me.picMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picMRN.Top = 0.4374016! + Me.picMRN.Width = 3.436615! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Height = 0! + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'rptMRNDruck + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.1968504! + Me.PageSettings.Margins.Left = 0.1968504! + Me.PageSettings.Margins.Right = 0.1968504! + Me.PageSettings.Margins.Top = 0.1968504! + Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.480315! + Me.ScriptLanguage = "VB.NET" + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.PageFooter) + Me.Sections.Add(Me.ReportFooter1) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblMRN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picMRN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line + Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape + Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblMRN As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents picMRN As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo + Public WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label +End Class diff --git a/SDL/Reports/Zoll/rptMRNDruck.resx b/SDL/Reports/Zoll/rptMRNDruck.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Reports/Zoll/rptMRNDruck.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Reports/Zoll/rptMRNDruck.vb b/SDL/Reports/Zoll/rptMRNDruck.vb new file mode 100644 index 00000000..0f3a91d3 --- /dev/null +++ b/SDL/Reports/Zoll/rptMRNDruck.vb @@ -0,0 +1,10 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document +Imports VERAG_PROG_ALLGEMEIN + + +Public Class rptMRNDruck + Private Sub rptMRNDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + + End Sub +End Class diff --git a/SDL/Resources/RG_ZF.xlsx b/SDL/Resources/RG_ZF.xlsx index 8cf1f878..c65c6974 100644 Binary files a/SDL/Resources/RG_ZF.xlsx and b/SDL/Resources/RG_ZF.xlsx differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 7dbaa47f..752d4634 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -430,6 +430,7 @@ + @@ -468,12 +469,24 @@ Form + + frmKundeAnsprechpartnerTeams.vb + + + Form + usrCntlKundenBesonderheiten.vb UserControl + + rptPLOSE_LaenderGesamt.vb + + + Component + rptPLOSE_Konsortium.vb @@ -492,6 +505,18 @@ Component + + rptMRNDruck.vb + + + Component + + + rptAufschubabgleich.vb + + + Component + subrptKontrolleLKW_NCTSTR_Abrechnung.vb @@ -510,6 +535,16 @@ Form + + True + True + Reference.map + + + True + True + Reference.map + usrCntlATLAS_AES.vb @@ -2340,11 +2375,6 @@ True Reference.map - - True - True - Reference.map - usrCntlTCeZOLL_EZA_Allg.vb @@ -2412,6 +2442,12 @@ Component + + usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb + + + UserControl + usrCntlAuswertungenFiskalvertretung_4200.vb @@ -2541,9 +2577,15 @@ frmKundenBesonderheiten_Add.vb + + frmKundeAnsprechpartnerTeams.vb + usrCntlKundenBesonderheiten.vb + + rptPLOSE_LaenderGesamt.vb + rptPLOSE_Konsortium.vb @@ -2553,6 +2595,12 @@ rptKontrolleLKW_NCTSTR.vb + + rptMRNDruck.vb + + + rptAufschubabgleich.vb + subrptKontrolleLKW_NCTSTR_Abrechnung.vb @@ -3502,6 +3550,9 @@ rptFiskalvertretungVorschau.vb + + usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb + usrCntlAuswertungenFiskalvertretung_4200.vb @@ -3545,6 +3596,25 @@ Always + + Reference.map + + + MSDiscoCodeGenerator + Reference.vb + + + + Designer + + + + Reference.map + + + MSDiscoCodeGenerator + Reference.vb + Designer @@ -3764,14 +3834,6 @@ Reference.vb - - - Reference.map - - - MSDiscoCodeGenerator - Reference.vb - @@ -3895,7 +3957,9 @@ - + + Always + @@ -3933,7 +3997,9 @@ - + + Always + @@ -4061,7 +4127,9 @@ - + + Always + @@ -4234,10 +4302,21 @@ MySettings SDL_EORI_validation - + + Dynamic + Web References\eu.europa.ec1\ + https://ec.europa.eu/taxation_customs/dds2/eos/validation/services/validation%3fwsdl + + + + + MySettings + SDL_eu_europa_ec1_validation + + Dynamic Web References\eu.europa.ec\ - http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl + https://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index 333398cd..6ec3454d 100644 --- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb +++ b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb @@ -420,6 +420,8 @@ Public Class frmNacherfassungNEU ' .ReadOnly = True If SPEDITIONSBUCH IsNot Nothing Then If SPEDITIONSBUCH.DokumentId_VBD IsNot Nothing Then .Rows.Add({SPEDITIONSBUCH.DokumentId_VBD.ToString, "VBD - Versandbegleitdokument"}) + If SPEDITIONSBUCH.DokumentId_ABD IsNot Nothing Then .Rows.Add({SPEDITIONSBUCH.DokumentId_ABD.ToString, "ABD - Ausfuhrbegleitdokument"}) + If SPEDITIONSBUCH.DokumentId_AVM IsNot Nothing Then .Rows.Add({SPEDITIONSBUCH.DokumentId_AVM.ToString, "AVM - Ausgangsvermerk"}) If SPEDITIONSBUCH.DokumentId_Steuerbeleg IsNot Nothing Then .Rows.Add({SPEDITIONSBUCH.DokumentId_Steuerbeleg.ToString, "Steuerbescheid"}) If SPEDITIONSBUCH.DokumentId_Mitteilung IsNot Nothing Then .Rows.Add({SPEDITIONSBUCH.DokumentId_Mitteilung.ToString, "Mitteilung (AT)"}) End If diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb index c0737756..2acb084f 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class usrCntlSpeditionsBuchSuche 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 @@ -20,9 +20,10 @@ Partial Class usrCntlSpeditionsBuchSuche '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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche)) Me.TabPage1 = New System.Windows.Forms.TabPage() Me.cntxtCntxtSpeditionsbuch = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() @@ -123,6 +124,8 @@ Partial Class usrCntlSpeditionsBuchSuche Me.btnSuche = New System.Windows.Forms.Button() Me.pnlSearch = New System.Windows.Forms.Panel() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.cboSB_TR = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label47 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() Me.Label23 = New System.Windows.Forms.Label() @@ -173,8 +176,10 @@ Partial Class usrCntlSpeditionsBuchSuche Me.Label45 = New System.Windows.Forms.Label() Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.SplitContainer = New System.Windows.Forms.SplitContainer() - Me.Label47 = New System.Windows.Forms.Label() - Me.cboSB_TR = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.lblKdAusFortschritt = New System.Windows.Forms.Label() Me.cntxtCntxtSpeditionsbuch.SuspendLayout() Me.pnlRechts.SuspendLayout() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() @@ -196,6 +201,7 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() Me.SplitContainer.SuspendLayout() + Me.MenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'TabPage1 @@ -663,6 +669,8 @@ Partial Class usrCntlSpeditionsBuchSuche ' 'pnlBerichte ' + Me.pnlBerichte.Controls.Add(Me.lblKdAusFortschritt) + Me.pnlBerichte.Controls.Add(Me.MenuStrip1) Me.pnlBerichte.Controls.Add(Me.cboHandlingssatz) Me.pnlBerichte.Controls.Add(Me.Button20) Me.pnlBerichte.Controls.Add(Me.Label46) @@ -1709,6 +1717,29 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer1.SplitterDistance = 84 Me.SplitContainer1.TabIndex = 0 ' + 'cboSB_TR + ' + Me.cboSB_TR._allowedValuesFreiText = Nothing + Me.cboSB_TR._allowFreiText = False + Me.cboSB_TR._value = "" + Me.cboSB_TR.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboSB_TR.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboSB_TR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboSB_TR.FormattingEnabled = True + Me.cboSB_TR.Location = New System.Drawing.Point(889, 57) + Me.cboSB_TR.Name = "cboSB_TR" + Me.cboSB_TR.Size = New System.Drawing.Size(117, 24) + Me.cboSB_TR.TabIndex = 33 + ' + 'Label47 + ' + Me.Label47.AutoSize = True + Me.Label47.Location = New System.Drawing.Point(858, 62) + Me.Label47.Name = "Label47" + Me.Label47.Size = New System.Drawing.Size(25, 13) + Me.Label47.TabIndex = 32 + Me.Label47.Text = "TR:" + ' 'Label28 ' Me.Label28.AutoSize = True @@ -2410,28 +2441,41 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.SplitterWidth = 2 Me.SplitContainer.TabIndex = 3 ' - 'Label47 + 'MenuStrip1 ' - Me.Label47.AutoSize = True - Me.Label47.Location = New System.Drawing.Point(858, 62) - Me.Label47.Name = "Label47" - Me.Label47.Size = New System.Drawing.Size(25, 13) - Me.Label47.TabIndex = 32 - Me.Label47.Text = "TR:" + Me.MenuStrip1.Dock = System.Windows.Forms.DockStyle.None + Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1}) + Me.MenuStrip1.Location = New System.Drawing.Point(601, 128) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(283, 27) + Me.MenuStrip1.TabIndex = 89 + Me.MenuStrip1.Text = "Kundenauswertungen" ' - 'cboSB_TR + 'KundenauswertungenToolStripMenuItem1 ' - Me.cboSB_TR._allowedValuesFreiText = Nothing - Me.cboSB_TR._allowFreiText = False - Me.cboSB_TR._value = "" - Me.cboSB_TR.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboSB_TR.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboSB_TR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboSB_TR.FormattingEnabled = True - Me.cboSB_TR.Location = New System.Drawing.Point(889, 57) - Me.cboSB_TR.Name = "cboSB_TR" - Me.cboSB_TR.Size = New System.Drawing.Size(117, 24) - Me.cboSB_TR.TabIndex = 33 + Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem}) + Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White + Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1" + Me.KundenauswertungenToolStripMenuItem1.Size = New System.Drawing.Size(155, 23) + Me.KundenauswertungenToolStripMenuItem1.Text = "Kundenauswertungen" + ' + 'ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem + ' + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem" + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24) + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum auswählen)" + ' + 'lblKdAusFortschritt + ' + Me.lblKdAusFortschritt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblKdAusFortschritt.Location = New System.Drawing.Point(767, 135) + Me.lblKdAusFortschritt.Name = "lblKdAusFortschritt" + Me.lblKdAusFortschritt.Size = New System.Drawing.Size(77, 14) + Me.lblKdAusFortschritt.TabIndex = 43 + Me.lblKdAusFortschritt.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'usrCntlSpeditionsBuchSuche ' @@ -2472,6 +2516,8 @@ Partial Class usrCntlSpeditionsBuchSuche Me.SplitContainer.Panel2.ResumeLayout(False) CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer.ResumeLayout(False) + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() Me.ResumeLayout(False) End Sub @@ -2627,4 +2673,8 @@ Partial Class usrCntlSpeditionsBuchSuche Friend WithEvents cboHandlingssatz As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboSB_TR As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label47 As Label + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents KundenauswertungenToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents lblKdAusFortschritt As Label End Class diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx index 048ff5d3..a7cd051b 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx @@ -123,4 +123,90 @@ True + + 431, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACH + DwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2Zp + bGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZE + sRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTs + AIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4 + JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR + 3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQd + li7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtF + ehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGX + wzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNF + hImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH55 + 4SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJ + VgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB + 5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyC + qbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiE + j6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I + 1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9 + rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhG + fDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFp + B+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJ + yeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJC + YVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQln + yfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48v + vacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0Cvp + vfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15L + Wytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AA + bWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0z + llmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHW + ztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5s + xybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6 + eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPw + YyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmR + XVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNm + WS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wl + xqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2 + dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8 + V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33za + Eb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2v + Tqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqb + PhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/ + 0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h + /HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavr + XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS + fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ + tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEwAACxMBAJqcGAAAB3VJREFUSEu9VntQ1NUe + /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r + ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ + UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C + MGn2uYHkVRZLWz5uJwmY1VbNQDUU16ijwr3racWBTZTX+ibF1ueOKWxfNzvz7aqF4WvT13gvX3DAv+r1 + nhdKYu+r8sMwIcMPNsmzaILWj1wMIeRWGPHngGm7Kkm/p46y21Y7RmzURiRsLyyNqc9pClideNqrPPaG + R3EUJuvUsM8JlGab4YtJWn84ZQfB3RB5zTkvmGwy55Bdtr/JsvxpfLaf3I/P8pP2dMpMciuKoD2nO4kC + 65Iq59Ys6Zn+xquPlcXhcDQEY2JeICbmBsBJr4aTLhhT9CFQGMLgqg+Fa34oFLp5mJwTDI+CKMxcseDc + tOLILo/i6C6PEjbrr9nci6K6phZFdHHUDORQEHyIDU5GfpQBlUXhULEpC8OhMGrAoYGSwQSgggEV+XxP + FwLbtLnwMEbht0ePYFkDDx+gf+C++dfQunOvD7tPHQIleh0ht7LIZrfSSKiElURCWRwxCCjBhBVYA5o8 + HJ/uA09jNH746Qqu3rqO3mtX8PjxYwlwkc9+vHkNl67/iJt9v8qzkxe6MCrVu5kBo5pVpQzCYKoS/o4E + ZDALoAipCTAESl0oXHLVeDZ9Dp7NmAOKtsXWY3vQ0fURKHIsnkl/EbTACeraFAl49JvP+Wy2AIxkQIuH + JsDJBs4Rm4pBVQxqm+mD0ctmwYU9U+oZnAGFTcmbh0m5gdJo4WS89ck+HPzqOOhVR9PZkmng1pKAH1oD + WkKqZMBppdFcNAH4i9aHcxgGey6gGWWvYP6GbHiWzIdzbrAMqV26L57jHH518Ttc+O9F+f35zk3c6r/D + +3M4d+U/6O49jx841GIdPntCeG0KqQXQgSvUvTxGPnDywhnQUi+46Ofh9r278jG7DB84cGsI70SVKrkX + FzTo8NpmAwKqEvDB2ZM41dONgMp4LGzUI2j1UpTtq5eAR77+zOKhyKEJ0JWrlJZ64pvL38tLEzksSU3l + cq/fXQdapBwMqZteI0FF+CjOATSLsObQDrR8/g/QTDKd+RG4LeTfH/33KTNg6VAOhaej0rwRWJskL+36 + 7CC+vdKDu/f7MCr5BTjkBsmicWVAwTLuBZEyNye4Ag+zd5d/uYqffv0Zh7o/wfHvvkQne/Wv3nPyLeH9 + 8BxaVSkleuDYt6flRbGym1eC4lVQFWgGq9RBG4iphnBs+KAZmz5qw8qOzTh76QK+v9qLqv2NaDjahpqD + 27H3yw/lG51ff2rJ4fA+dOeiofgpWLzVKC/efzjAVeqLcVrfYW0xVR8O55yXQZpnQGGjQdMIVQe2YOfJ + DpAbh1SczSDJVGKZQjqiaASgYBtKfE6GxLJ0rW/yP6FkD5l9zID2WQHsYQQ2dA552H3pPHt4CSutPfxn + p3yj86zwUOZwCJD3oOTnEbUxW15q+PgdZpLLnMN+jEn5qyRvC7VNzPSHu9Gcw/Ocw+4Tgzk8PJjDT3GG + W0QskcMxaeaisQC6FIZiNBfN9ds35CVarEL5301lbWxfB3rNdahK83+/SltFlXqbq9Sfq7RkZJVaqI0B + x+X4IWhNEn65cwttXzDZxtljxvI4SdCCmB2zAzCJQykAXWQfhpr6sPGP+nCjBBR9KD1UWeVQMI0oGmeD + GrZZvlAUajApJwA+lQlI2GxkxomDExeKALTjuTiMaXrNTNPHTMOtMMg0TORiibZ5okrFV4wnR32wiUuL + +DdzqQ0T8VPJM+UgVnHDC0AFk7fgUtssP/CQBb1ij78d34v3zhwDzZ8gzylegbC6NAkocm3O4RDTjJwW + w+chV6e5LUTjK/IEeYfAOV8NZx7UlKDEzhMdeJ8LhhZNkeeU6InYjTmDgE9Q2xPjiUMqAFmXjACch3E8 + gL0KY3C7/y4e/PYQ/Q+GBq/YP+Szew8GzCfmebiM56FDgXr4xGdTFTGoFeDvDWDbNB858fsG7pmfZCCe + 9qKFrNcjHspy4osiTPQ8QgFrhKZZbKVp1HI8CeIWoXLKH9I01hJDahoG9K5gTcOaReqYEVrGYlLTFEZ0 + MYEYKHXXG5TfXsdSsUaqtvhtRlZt2U0vCdVWFnvDndnepNqCeDQFYbxUbS/JamXyNqm2jLms0ixKzWR2 + rNYsv59O8aapFtW2uKmIhXC1NKFLje+uo4qOTZTbsprm1+eMMbavnZ2xs3KhZlCXLumZMUyXzmZd6m/W + peGsQ4Ue1bA+tWhTDevSIHreoksFoFDdGS0rpfLW8l63u5aS31pOEeszqWJ/A606sIWWsRIXynv53vqx + +pba6dFrM1PV1UllydvKbJK3ltKLlYvIQffynwNyXv+PBvofzgNyIxLbwtkAAAAASUVORK5CYII= + + \ No newline at end of file diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 09c9916e..2763cf8d 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -1820,5 +1820,104 @@ Public Class usrCntlSpeditionsBuchSuche End Select End Sub + Private Sub ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Click + lblKdAusFortschritt.Text = "lädt..." + Me.Cursor = Cursors.WaitCursor + Try + 'Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST(Rechnungsausgang.[FilialenNr] as varchar) + '/' + CAST(Rechnungsausgang.[AbfertigungsNr] as varchar) Abfertigungsnummer + ' ,[RechnungsNr],RechnungsKundenNr + ' ,cast([RechnungsDatum] as date)RechnungsDatum + ' ,[AbsenderName 1]Absender + ' ,(SteuerfreierGesamtbetrag+SteuerpflichtigerGesamtbetrag) Betrag + ' ,Speditionsbuch.BelegNr + ' ,Rechnungsausgang.[FilialenNr],Rechnungsausgang.[AbfertigungsNr] ,Speditionsbuch.Abfertigungsart + ' FROM [Rechnungsausgang] inner join Speditionsbuch ON Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr + ' where RechnungsKundenNr IN (714869) and rechnungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "'", "FMZOLL") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer + ,cast([Abfertigungsdatum] as date)Abfertigungsdatum + ,Absender + ,Rechnungsbetrag Betrag + ,BelegNr + ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung + FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart + where EmpfängerKundenNr IN (714869) and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29)", "FMZOLL") + + Dim Path = "" + If dt IsNot Nothing And dt.Rows.Count > 0 Then + + + Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\" + If Not My.Computer.FileSystem.DirectoryExists(sPath) Then + My.Computer.FileSystem.CreateDirectory(sPath) + End If + + + Dim exclApp As Object 'as Application + Dim Datei As Object 'as WorkBook + Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet + exclApp = CreateObject("Excel.Application") + + With exclApp + .Visible = False + + Try + Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx" + While System.IO.File.Exists(Path) + Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + End While + My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False) + Catch ex As System.Exception + ' MsgBox(ex.Message) + MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace) + Me.Cursor = Cursors.Default + + Exit Sub + End Try + + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen + + Blatt.Range("H1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text + + Dim cnt = 3 + For Each r In dt.Rows + Blatt.Range("A" & cnt).Value = cnt - 2 + Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer") + ' Blatt.Range("C" & cnt).Value = r("RechnungsNr") + Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum") + Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung") + Blatt.Range("E" & cnt).Value = r("Absender") + Blatt.Range("F" & cnt).Value = "" 'r("Betrag") + Blatt.Range("H" & cnt).Value = r("BelegNr") + + Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung + If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "") Then + Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis + Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine) + End If + + lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count + Me.Refresh() + cnt += 1 + Next + Datei.Save + + If False Then + Blatt.PrintOutEx() + Else + 'Process.Start(Path) + .Visible = True + + End If + End With + + End If + lblKdAusFortschritt.Text = "fertig" + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + lblKdAusFortschritt.Text = "Fehler" + End Try + Me.Cursor = Cursors.Default + End Sub End Class diff --git a/SDL/Web References/eu.europa.ec/Reference.map b/SDL/Web References/eu.europa.ec/Reference.map index 357ddc82..5d20fb7a 100644 --- a/SDL/Web References/eu.europa.ec/Reference.map +++ b/SDL/Web References/eu.europa.ec/Reference.map @@ -1,6 +1,6 @@ - + \ No newline at end of file diff --git a/SDL/Web References/eu.europa.ec1/Reference.map b/SDL/Web References/eu.europa.ec1/Reference.map new file mode 100644 index 00000000..761464f3 --- /dev/null +++ b/SDL/Web References/eu.europa.ec1/Reference.map @@ -0,0 +1,7 @@ + + + + + + + \ No newline at end of file diff --git a/SDL/Web References/eu.europa.ec1/Reference.vb b/SDL/Web References/eu.europa.ec1/Reference.vb new file mode 100644 index 00000000..8374c639 --- /dev/null +++ b/SDL/Web References/eu.europa.ec1/Reference.vb @@ -0,0 +1,336 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System +Imports System.ComponentModel +Imports System.Diagnostics +Imports System.Web.Services +Imports System.Web.Services.Protocols +Imports System.Xml.Serialization + +' +'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000. +' +Namespace eu.europa.ec1 + + ''' + _ + Partial Public Class validation + Inherits System.Web.Services.Protocols.SoapHttpClientProtocol + + Private validateEORIOperationCompleted As System.Threading.SendOrPostCallback + + Private useDefaultCredentialsSetExplicitly As Boolean + + ''' + Public Sub New() + MyBase.New + Me.Url = Global.SDL.My.MySettings.Default.SDL_eu_europa_ec1_validation + If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then + Me.UseDefaultCredentials = true + Me.useDefaultCredentialsSetExplicitly = false + Else + Me.useDefaultCredentialsSetExplicitly = true + End If + End Sub + + Public Shadows Property Url() As String + Get + Return MyBase.Url + End Get + Set + If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _ + AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _ + AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then + MyBase.UseDefaultCredentials = false + End If + MyBase.Url = value + End Set + End Property + + Public Shadows Property UseDefaultCredentials() As Boolean + Get + Return MyBase.UseDefaultCredentials + End Get + Set + MyBase.UseDefaultCredentials = value + Me.useDefaultCredentialsSetExplicitly = true + End Set + End Property + + ''' + Public Event validateEORICompleted As validateEORICompletedEventHandler + + ''' + + Public Function validateEORI(ByVal eori() As String) As eoriValidationResult + Dim results() As Object = Me.Invoke("validateEORI", New Object() {eori}) + Return CType(results(0), eoriValidationResult) + End Function + + ''' + Public Overloads Sub validateEORIAsync(ByVal eori() As String) + Me.validateEORIAsync(eori, Nothing) + End Sub + + ''' + Public Overloads Sub validateEORIAsync(ByVal eori() As String, ByVal userState As Object) + If (Me.validateEORIOperationCompleted Is Nothing) Then + Me.validateEORIOperationCompleted = AddressOf Me.OnvalidateEORIOperationCompleted + End If + Me.InvokeAsync("validateEORI", New Object() {eori}, Me.validateEORIOperationCompleted, userState) + End Sub + + Private Sub OnvalidateEORIOperationCompleted(ByVal arg As Object) + If (Not (Me.validateEORICompletedEvent) Is Nothing) Then + Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs) + RaiseEvent validateEORICompleted(Me, New validateEORICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState)) + End If + End Sub + + ''' + Public Shadows Sub CancelAsync(ByVal userState As Object) + MyBase.CancelAsync(userState) + End Sub + + Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean + If ((url Is Nothing) _ + OrElse (url Is String.Empty)) Then + Return false + End If + Dim wsUri As System.Uri = New System.Uri(url) + If ((wsUri.Port >= 1024) _ + AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then + Return true + End If + Return false + End Function + End Class + + ''' + _ + Partial Public Class eoriValidationResult + + Private requestDateField As String + + Private errorDescriptionField As String + + Private resultField() As eoriResponse + + ''' + _ + Public Property requestDate() As String + Get + Return Me.requestDateField + End Get + Set + Me.requestDateField = value + End Set + End Property + + ''' + _ + Public Property errorDescription() As String + Get + Return Me.errorDescriptionField + End Get + Set + Me.errorDescriptionField = value + End Set + End Property + + ''' + _ + Public Property result() As eoriResponse() + Get + Return Me.resultField + End Get + Set + Me.resultField = value + End Set + End Property + End Class + + ''' + _ + Partial Public Class eoriResponse + + Private eoriField As String + + Private statusField As Integer + + Private statusDescrField As String + + Private errorReasonField As String + + Private nameField As String + + Private addressField As String + + Private streetField As String + + Private postalCodeField As String + + Private cityField As String + + Private countryField As String + + ''' + _ + Public Property eori() As String + Get + Return Me.eoriField + End Get + Set + Me.eoriField = value + End Set + End Property + + ''' + _ + Public Property status() As Integer + Get + Return Me.statusField + End Get + Set + Me.statusField = value + End Set + End Property + + ''' + _ + Public Property statusDescr() As String + Get + Return Me.statusDescrField + End Get + Set + Me.statusDescrField = value + End Set + End Property + + ''' + _ + Public Property errorReason() As String + Get + Return Me.errorReasonField + End Get + Set + Me.errorReasonField = value + End Set + End Property + + ''' + _ + Public Property name() As String + Get + Return Me.nameField + End Get + Set + Me.nameField = value + End Set + End Property + + ''' + _ + Public Property address() As String + Get + Return Me.addressField + End Get + Set + Me.addressField = value + End Set + End Property + + ''' + _ + Public Property street() As String + Get + Return Me.streetField + End Get + Set + Me.streetField = value + End Set + End Property + + ''' + _ + Public Property postalCode() As String + Get + Return Me.postalCodeField + End Get + Set + Me.postalCodeField = value + End Set + End Property + + ''' + _ + Public Property city() As String + Get + Return Me.cityField + End Get + Set + Me.cityField = value + End Set + End Property + + ''' + _ + Public Property country() As String + Get + Return Me.countryField + End Get + Set + Me.countryField = value + End Set + End Property + End Class + + ''' + _ + Public Delegate Sub validateEORICompletedEventHandler(ByVal sender As Object, ByVal e As validateEORICompletedEventArgs) + + ''' + _ + Partial Public Class validateEORICompletedEventArgs + Inherits System.ComponentModel.AsyncCompletedEventArgs + + Private results() As Object + + Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object) + MyBase.New(exception, cancelled, userState) + Me.results = results + End Sub + + ''' + Public ReadOnly Property Result() As eoriValidationResult + Get + Me.RaiseExceptionIfNecessary() + Return CType(Me.results(0), eoriValidationResult) + End Get + End Property + End Class +End Namespace diff --git a/SDL/Web References/eu.europa.ec1/eoriValidationResult.datasource b/SDL/Web References/eu.europa.ec1/eoriValidationResult.datasource new file mode 100644 index 00000000..bacce1c0 --- /dev/null +++ b/SDL/Web References/eu.europa.ec1/eoriValidationResult.datasource @@ -0,0 +1,10 @@ + + + + SDL.eu.europa.ec1.eoriValidationResult, Web References.eu.europa.ec1.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + \ No newline at end of file diff --git a/SDL/Web References/eu.europa.ec1/validation.wsdl b/SDL/Web References/eu.europa.ec1/validation.wsdl new file mode 100644 index 00000000..c4c3e430 --- /dev/null +++ b/SDL/Web References/eu.europa.ec1/validation.wsdl @@ -0,0 +1,71 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Validates the EORI numbers provided. Validation is performed following those principles: The number of EORI numbers to validate at once is limited, maximal size of a message is limited, number of requests in a timeframe is limited, content of the message has to be validated against several threats. + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/Web References/eu.europa.ec1/validation.xsd b/SDL/Web References/eu.europa.ec1/validation.xsd new file mode 100644 index 00000000..18670980 --- /dev/null +++ b/SDL/Web References/eu.europa.ec1/validation.xsd @@ -0,0 +1,336 @@ + + + + + Single line string: Avoid presence of \n (new line) and \r (return) characters in thestring. Note that pattern ".*" is equivalent. + + + + + + + + MM-DD format (MM=01-12 and DD=01-31) + + + + + + + + Date format + + + + + + + + + Date format + + + + + + + + Time format (hh:mm) + + + + + + + + Timestamp format + + + + + + + + + + + + + + Decimal number format + + + + + + + + Long number format + + + + + + + + Long number format + + + + + + + + + Long number format + + + + + + + + + Long number format + + + + + + + + + Country code format + + + + + + + + EORI Number format + + + + + + + + + + EORI Number format + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Language code format + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + CD Number format + + + + + + + + + + Tin Number format + + + + + + + + + Rex Number format + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.Designer.vb b/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.Designer.vb new file mode 100644 index 00000000..4adeb446 --- /dev/null +++ b/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.Designer.vb @@ -0,0 +1,113 @@ + _ +Partial Class frmKundeAnsprechpartnerTeams + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + 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() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundeAnsprechpartnerTeams)) + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.lbl = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btn = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(16, 41) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(287, 24) + Me.MyComboBox1.TabIndex = 1 + ' + 'lbl + ' + Me.lbl.AutoSize = True + Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.lbl.Location = New System.Drawing.Point(13, 21) + Me.lbl.Name = "lbl" + Me.lbl.Size = New System.Drawing.Size(50, 17) + Me.lbl.TabIndex = 0 + Me.lbl.Text = "TEAM:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label1.Location = New System.Drawing.Point(13, 83) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(170, 17) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "VERAG Ansprechpartner:" + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(16, 103) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(287, 24) + Me.MyComboBox2.TabIndex = 3 + ' + 'btn + ' + Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.btn.Location = New System.Drawing.Point(82, 145) + Me.btn.Name = "btn" + Me.btn.Size = New System.Drawing.Size(145, 27) + Me.btn.TabIndex = 4 + Me.btn.Text = "OK" + Me.btn.UseVisualStyleBackColor = True + ' + 'frmKundeAnsprechpartnerTeams + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(332, 184) + Me.Controls.Add(Me.btn) + Me.Controls.Add(Me.MyComboBox2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.lbl) + Me.Controls.Add(Me.MyComboBox1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmKundeAnsprechpartnerTeams" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Kunde" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents lbl As Label + Friend WithEvents Label1 As Label + Friend WithEvents MyComboBox2 As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents btn As Button +End Class diff --git a/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.resx b/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.resx new file mode 100644 index 00000000..d584bd9e --- /dev/null +++ b/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.resx @@ -0,0 +1,980 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////Bs6rBs6qYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6rBs6r///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////Uy8WYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvUy8X////////////////////////////////////////B + s6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3Bs6rBs6r39fT///////////////////////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////// + ///////////////////////////////////////////////////////////////d1tGMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvm4N3/ + ///////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljLv7j///////////////// + ///////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X////////////////////////////d1tFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCMbljm4N3////////////////////////////////////////////m4N1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////////////// + //////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////// + ///////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + ///////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////// + ///////////////////////////////////////////////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCtmo3///////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCA + XUL///////////////////////////////////////////////////////////////////////////// + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////// + //+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////////////////////// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDBs6r///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + ///////////////////////////////////////////////////////////////////////////d1tFm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6rd1tH////////39fTBs6qAXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Lv7hmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3/ + //////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd + 1tH////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////// + ///////Uy8XBs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///// + ///////////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////////////////////+AXUJmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwC3p5z////////////////////////////////d1tGMblhmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////9mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT///////////////////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////// + //////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////// + //////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r////////////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCYfWv///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0 + SSb///////////////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDBs6r///////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDUy8X///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///u6+nBs6rBs6rBs6qYfWtmMwBmMwBmMwDu6+n///////////////////////////////////////// + ///Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n////////////////////////////////////////u + 6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCY + fWv////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+m3p5xmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////m4N1mMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDBs6r////////////////////////////////////////////d1tFmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////////u6+lmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////Uy8XB + s6p0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3///////////////////////// + //////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + //////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////m4N3Bs6qMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDUy8X///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCMblj///////////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDm4N3///////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////Bs6qAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb39fT///////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////////////////// + ///////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////+t + mo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + ///////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r/ + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////////////////////Uy8VmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////Uy8VmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbm4N3///////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////// + //////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + bljm4N3///////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwD39fT///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////// + //+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWvBs6r///////////////////////// + //////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///// + //////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDd1tH///////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDL + v7j///////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////+Mblhm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6r///// + ///////////////////////////////////////////////////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////////////Bs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwCtmo3Bs6r39fT///////////////////////////////////////////////////////////////// + ///////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////// + ///////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///// + ///////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbLv7j///////////////////////////////////////////////// + ///////////////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCAXUL///////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////////////// + //////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////////// + //////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////39fRmMwBmMwB0SSbBs6rBs6r39fT///////// + //////////////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL/ + ///////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDBs6r///////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDm4N3///////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////39fRmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwCtmo3Bs6rBs6r///////////////////////////+3p5xmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT////////////////////////////39fSMblhmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////+3p5xmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////// + ///////////////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////// + ///////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////// + ///////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////// + ///////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3////////////////////////u6+mAXUJmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////////Uy8W3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH////////////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMbljBs6r////////d1tG3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////// + ///39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////// + ///////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCM + blj///////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbu6+n/ + //////////////////////////////////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT///////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////////////////L + v7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////+YfWtmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////////////////+jjH1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////////////// + //////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////////////39fSAXUJmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCYfWv////////////////////////////////////////////Bs6pmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDB + s6r////////////////////////////////////////////////////////Lv7hmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////u6+mMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////////////////////////// + ///////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwB0SSbUy8X///////////////////////////////////////////////// + ///////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////+jjH1mMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////// + ///////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSbBs6r///////////////////////// + ///////////////////////////////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwB0SSb///////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////d1tGYfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwDBs6r39fT///////////////////////////////////////////////////////////+AXUJm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXULBs6rBs6rm4N3/ + //////////////////////////////////////////////////////////////////////////////+A + XUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD///////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////////////////////////39fTBs6rBs6pmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCjjH3Bs6rUy8X///////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.vb b/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.vb new file mode 100644 index 00000000..e8ea8882 --- /dev/null +++ b/SDL/kunden/Teams/frmKundeAnsprechpartnerTeams.vb @@ -0,0 +1,40 @@ +Public Class frmKundeAnsprechpartnerTeams + Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert + Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Sub New(KUNDE As VERAG_PROG_ALLGEMEIN.cKunde, KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.KUNDE = KUNDE + Me.KUNDE_ERW = KUNDE_ERW + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub frmKundeAnsprechpartnerTeams_Load(sender As Object, e As EventArgs) Handles Me.Load + Dim FirmaTmP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(KUNDE.FilialenNr) + + MyComboBox1.fillWithSQL("SELECT [team_id],[team_bezeichnung] FROM [tblTeams] where team_firma='" & FirmaTmP & "'", False, "ADMIN", True) + MyComboBox2.fillWithSQL("SELECT mit_id,mit_nname + ' ' + mit_vname + ' (' + mit_niederlassung +')' Mitarbeiter FROM tblMitarbeiter where (mit_firma='" & FirmaTmP & "' OR mit_FirmaHaupt='" & FirmaTmP & "') AND mit_abteilung IN ('ZOLL','QS','DISPO') and mit_gekuendigt=0 and mit_pseudoUser=0 and mit_ChatBenutzer=1 order by Mitarbeiter", False, "ADMIN", True) + + + If KUNDE_ERW IsNot Nothing Then + MyComboBox1.changeItem(If(KUNDE_ERW.kde_TeamId, "")) + MyComboBox2.changeItem(If(KUNDE_ERW.kde_TeamMAId, "")) + End If + End Sub + + Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click + KUNDE_ERW.kde_TeamId = If(MyComboBox1._value = "", Nothing, MyComboBox1._value) + KUNDE_ERW.kde_TeamMAId = If(MyComboBox2._value = "", Nothing, MyComboBox2._value) + If KUNDE_ERW.SAVE Then + Me.Close() + Me.DialogResult = DialogResult.OK + Else + Me.DialogResult = DialogResult.None + End If + + End Sub +End Class \ No newline at end of file diff --git a/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.Designer.vb b/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.Designer.vb index 6d126805..7c5b4eba 100644 --- a/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.Designer.vb +++ b/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.Designer.vb @@ -40,6 +40,8 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.lbl = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() + Me.cbxFreigabe_ABD = New System.Windows.Forms.CheckBox() + Me.cbxAVM = New System.Windows.Forms.CheckBox() Me.SuspendLayout() ' 'cboFreigabe_SteuerbescheidBedingung @@ -59,11 +61,11 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung Me.cbxFreigabe_VBD.AutoSize = True Me.cbxFreigabe_VBD.Enabled = False Me.cbxFreigabe_VBD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxFreigabe_VBD.Location = New System.Drawing.Point(158, 140) + Me.cbxFreigabe_VBD.Location = New System.Drawing.Point(104, 140) Me.cbxFreigabe_VBD.Name = "cbxFreigabe_VBD" - Me.cbxFreigabe_VBD.Size = New System.Drawing.Size(107, 17) + Me.cbxFreigabe_VBD.Size = New System.Drawing.Size(48, 17) Me.cbxFreigabe_VBD.TabIndex = 51 - Me.cbxFreigabe_VBD.Text = "VBD mitschicken" + Me.cbxFreigabe_VBD.Text = "VBD" Me.cbxFreigabe_VBD.UseVisualStyleBackColor = True ' 'cbxFreigabe_Steuerbescheid @@ -83,9 +85,9 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung Me.cbxSendungsListFreigabe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cbxSendungsListFreigabe.Location = New System.Drawing.Point(6, 140) Me.cbxSendungsListFreigabe.Name = "cbxSendungsListFreigabe" - Me.cbxSendungsListFreigabe.Size = New System.Drawing.Size(153, 17) + Me.cbxSendungsListFreigabe.Size = New System.Drawing.Size(92, 17) Me.cbxSendungsListFreigabe.TabIndex = 50 - Me.cbxSendungsListFreigabe.Text = "Sendungsliste bei Freigabe" + Me.cbxSendungsListFreigabe.Text = "Sendungsliste" Me.cbxSendungsListFreigabe.UseVisualStyleBackColor = True ' 'rtbLKWFreigabe @@ -137,7 +139,7 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung 'FlatButton2 ' Me.FlatButton2.allowBorder = False - Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.stift + Me.FlatButton2.BackgroundImage = Global.SDL.My.Resources.Resources.stift Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton2.FlatAppearance.BorderSize = 0 Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -152,7 +154,7 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung 'FlatButton3 ' Me.FlatButton3.allowBorder = False - Me.FlatButton3.BackgroundImage = Global.SDL.My.Resources.stift + Me.FlatButton3.BackgroundImage = Global.SDL.My.Resources.Resources.stift Me.FlatButton3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton3.FlatAppearance.BorderSize = 0 Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -213,7 +215,7 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung 'FlatButton1 ' Me.FlatButton1.allowBorder = False - Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.stift + Me.FlatButton1.BackgroundImage = Global.SDL.My.Resources.Resources.stift Me.FlatButton1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton1.FlatAppearance.BorderSize = 0 Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -228,7 +230,7 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung 'FlatButton4 ' Me.FlatButton4.allowBorder = False - Me.FlatButton4.BackgroundImage = Global.SDL.My.Resources.stift + Me.FlatButton4.BackgroundImage = Global.SDL.My.Resources.Resources.stift Me.FlatButton4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.FlatButton4.FlatAppearance.BorderSize = 0 Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -260,11 +262,35 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung Me.Label1.TabIndex = 60 Me.Label1.Text = "EXPORT:" ' + 'cbxFreigabe_ABD + ' + Me.cbxFreigabe_ABD.AutoSize = True + Me.cbxFreigabe_ABD.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxFreigabe_ABD.Location = New System.Drawing.Point(153, 140) + Me.cbxFreigabe_ABD.Name = "cbxFreigabe_ABD" + Me.cbxFreigabe_ABD.Size = New System.Drawing.Size(48, 17) + Me.cbxFreigabe_ABD.TabIndex = 61 + Me.cbxFreigabe_ABD.Text = "ABD" + Me.cbxFreigabe_ABD.UseVisualStyleBackColor = True + ' + 'cbxAVM + ' + Me.cbxAVM.AutoSize = True + Me.cbxAVM.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxAVM.Location = New System.Drawing.Point(207, 140) + Me.cbxAVM.Name = "cbxAVM" + Me.cbxAVM.Size = New System.Drawing.Size(49, 17) + Me.cbxAVM.TabIndex = 62 + Me.cbxAVM.Text = "AVM" + Me.cbxAVM.UseVisualStyleBackColor = True + ' 'usrCntlKundenAvisoMailBenachrichtigung ' 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.cbxAVM) + Me.Controls.Add(Me.cbxFreigabe_ABD) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.RichTextBox1) @@ -308,4 +334,6 @@ Partial Class usrCntlKundenAvisoMailBenachrichtigung Friend WithEvents FlatButton4 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents lbl As Label Friend WithEvents Label1 As Label + Friend WithEvents cbxFreigabe_ABD As CheckBox + Friend WithEvents cbxAVM As CheckBox End Class diff --git a/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb b/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb index 999148aa..0479b662 100644 --- a/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb +++ b/SDL/kunden/usrCntlKundenAvisoMailBenachrichtigung.vb @@ -23,7 +23,7 @@ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub - Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox4.CheckedChanged, cbxSendungsListFreigabe.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_VBD.CheckedChanged, cboFreigabe_SteuerbescheidBedingung.SelectedIndexChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged + Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.CheckedChanged, CheckBox4.CheckedChanged, cbxSendungsListFreigabe.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_Steuerbescheid.CheckedChanged, cbxFreigabe_VBD.CheckedChanged, cboFreigabe_SteuerbescheidBedingung.SelectedIndexChanged, CheckBox2.CheckedChanged, CheckBox1.CheckedChanged, cbxFreigabe_ABD.CheckedChanged, cbxAVM.CheckedChanged Try If sender Is cbxSendungsListFreigabe Then ' cbxFreigabe_Steuerbescheid.Enabled = cbxSendungsListFreigabe.Checked @@ -46,6 +46,8 @@ kdTmpErw.EmailFreigabe_SteuerbescheidPDF = cbxFreigabe_Steuerbescheid.Checked kdTmpErw.EmailFreigabe_SteuerbescheidPDF_Bedingung = cboFreigabe_SteuerbescheidBedingung._value kdTmpErw.EmailFreigabe_VBDPDF = cbxFreigabe_VBD.Checked + kdTmpErw.EmailFreigabe_aBDPDF = cbxFreigabe_ABD.Checked + kdTmpErw.Email_AVM = cbxAVM.Checked kdTmp.SAVE() kdTmpErw.SAVE() End If @@ -76,6 +78,8 @@ cbxFreigabe_Steuerbescheid.Checked = False cboFreigabe_SteuerbescheidBedingung.changeItem("") cbxFreigabe_VBD.Checked = False + cbxFreigabe_ABD.Checked = False + cbxAVM.Checked = False If KUNDE IsNot Nothing AndAlso KUNDE.KundenNr > 0 Then CheckBox6.Checked = KUNDE.EmailFreigabe @@ -91,6 +95,8 @@ cbxFreigabe_Steuerbescheid.Checked = KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF cboFreigabe_SteuerbescheidBedingung.changeItem(KUNDE_ERW.EmailFreigabe_SteuerbescheidPDF_Bedingung) cbxFreigabe_VBD.Checked = KUNDE_ERW.EmailFreigabe_VBDPDF + cbxFreigabe_ABD.Checked = KUNDE_ERW.EmailFreigabe_aBDPDF + cbxAVM.Checked = KUNDE_ERW.Email_AVM End If initAvisoMail() diff --git a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb index f0701ba1..f296dd80 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.Designer.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.Designer.vb @@ -37,7 +37,7 @@ Partial Class usrCntlKundenuebersicht Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.cntxtAddSdl = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService() + 'Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService() Me.btnExcel = New System.Windows.Forms.Button() Me.lblInaktiv = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() @@ -273,9 +273,9 @@ Partial Class usrCntlKundenuebersicht ' 'CheckVatService1 ' - Me.CheckVatService1.Credentials = Nothing - Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService" - Me.CheckVatService1.UseDefaultCredentials = False + 'Me.CheckVatService1.Credentials = Nothing + 'Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService" + 'Me.CheckVatService1.UseDefaultCredentials = False ' 'btnExcel ' @@ -2829,7 +2829,7 @@ Partial Class usrCntlKundenuebersicht End Sub Friend WithEvents cntxtAddSdl As ContextMenuStrip Friend WithEvents DToolStripMenuItem As ToolStripMenuItem - Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService + ' Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService Friend WithEvents btnExcel As Button Friend WithEvents lblInaktiv As Label Friend WithEvents Label30 As Label diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index 6480396c..8825edbd 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -11,6 +11,8 @@ Public Class usrCntlKundenuebersicht Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing Public AUFSCHUB As List(Of VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten) = Nothing + Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL + Public kdNr As Integer = -1 Private dataAdapterFirma As New SqlDataAdapter ' Private dataFirma As New DataTable @@ -540,8 +542,11 @@ Public Class usrCntlKundenuebersicht lblHoechstkredit._value = If(IsNumeric(If(KUNDE.Höchstkredit, "")), KUNDE.Höchstkredit, "") - txtKundenbetreuer.Text = If(KUNDE_ERW.kde_qsTeamMAName, "") - txtKundenbetreuerTeam.Text = If(KUNDE_ERW.kde_qsTeamName, "") + 'txtKundenbetreuer.Text = If(KUNDE_ERW.kde_qsTeamMAName, "") + 'txtKundenbetreuerTeam.Text = If(KUNDE_ERW.kde_qsTeamName, "") + + txtKundenbetreuer.Text = VERAGSQL.DLookup("team_bezeichnung", "tblTeams", "[team_id]='" & KUNDE_ERW.kde_TeamId & "'", "ADMIN") + txtKundenbetreuerTeam.Text = VERAGSQL.DLookup("mit_vname +' '+mit_nname", "tblMitarbeiter", "[mit_id]='" & KUNDE_ERW.kde_TeamMAId & "'", "ADMIN") 'cbxAbf_SvsRvs.CheckedValue = checkNullBool(KUNDE.SVS) @@ -1878,28 +1883,36 @@ Public Class usrCntlKundenuebersicht End Sub Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles btnVeragAnspr.Click - Dim f As New frmKundeTeamZuordnung(KUNDE_ERW.kde_qsTeamId, KUNDE_ERW.kde_qsTeamMAId) - - If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then - If f.SEL_TEAM IsNot Nothing Then - KUNDE_ERW.kde_qsTeamId = f.SEL_TEAM.qstm_Id - KUNDE_ERW.kde_qsTeamMAId = f.SEL_TEAM.qstm_Id - KUNDE_ERW.kde_qsTeamId = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_MaId) - KUNDE_ERW.kde_qsTeamMAName = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_name) - KUNDE_ERW.kde_qsTeamName = f.SEL_TEAM.qstm_bezeichnung - KUNDE_ERW.SAVE() - ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId='" & f.SEL_TEAM.qstm_Id & "', [kde_qsTeamMAId] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_MaId & "'") & " , [kde_qsTeamMAName] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_name & "'") & " , [kde_qsTeamName] = '" & f.SEL_TEAM.qstm_bezeichnung & "' WHERE kde_KundenNr=" & kdNr, "FMZOLL") - Else - KUNDE_ERW.kde_qsTeamId = Nothing - KUNDE_ERW.kde_qsTeamMAId = Nothing - KUNDE_ERW.kde_qsTeamId = Nothing - KUNDE_ERW.kde_qsTeamMAName = Nothing - KUNDE_ERW.kde_qsTeamName = Nothing - KUNDE_ERW.SAVE() - ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId=null, [kde_qsTeamMAId] = null, [kde_qsTeamMAName] =null , [kde_qsTeamName] =null WHERE kde_KundenNr=" & kdNr, "FMZOLL") - End If + Dim f As New frmKundeAnsprechpartnerTeams(KUNDE, KUNDE_ERW) + If f.ShowDialog(Me) = DialogResult.OK Then setKD(kdNr) End If + + + + + 'Dim f As New frmKundeTeamZuordnung(KUNDE_ERW.kde_qsTeamId, KUNDE_ERW.kde_qsTeamMAId) + + 'If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then + ' If f.SEL_TEAM IsNot Nothing Then + ' KUNDE_ERW.kde_qsTeamId = f.SEL_TEAM.qstm_Id + ' KUNDE_ERW.kde_qsTeamMAId = f.SEL_TEAM.qstm_Id + ' KUNDE_ERW.kde_qsTeamId = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_MaId) + ' KUNDE_ERW.kde_qsTeamMAName = If(f.SEL_MA Is Nothing, Nothing, f.SEL_MA.qtma_name) + ' KUNDE_ERW.kde_qsTeamName = f.SEL_TEAM.qstm_bezeichnung + ' KUNDE_ERW.SAVE() + ' ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId='" & f.SEL_TEAM.qstm_Id & "', [kde_qsTeamMAId] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_MaId & "'") & " , [kde_qsTeamMAName] = " & If(f.SEL_MA Is Nothing, "null", "'" & f.SEL_MA.qtma_name & "'") & " , [kde_qsTeamName] = '" & f.SEL_TEAM.qstm_bezeichnung & "' WHERE kde_KundenNr=" & kdNr, "FMZOLL") + ' Else + ' KUNDE_ERW.kde_qsTeamId = Nothing + ' KUNDE_ERW.kde_qsTeamMAId = Nothing + ' KUNDE_ERW.kde_qsTeamId = Nothing + ' KUNDE_ERW.kde_qsTeamMAName = Nothing + ' KUNDE_ERW.kde_qsTeamName = Nothing + ' KUNDE_ERW.SAVE() + ' ' SQL.doSQL("UPDATE tblKundenErweitert SET kde_qsTeamId=null, [kde_qsTeamMAId] = null, [kde_qsTeamMAName] =null , [kde_qsTeamName] =null WHERE kde_KundenNr=" & kdNr, "FMZOLL") + ' End If + ' setKD(kdNr) + 'End If End Sub diff --git a/SDL/kunden/usrCntlOfferte.Designer.vb b/SDL/kunden/usrCntlOfferte.Designer.vb index ba275b62..8ee21743 100644 --- a/SDL/kunden/usrCntlOfferte.Designer.vb +++ b/SDL/kunden/usrCntlOfferte.Designer.vb @@ -55,7 +55,7 @@ Partial Class usrCntlOfferte Me.lblLeistunAddErr2 = New System.Windows.Forms.Label() Me.pnlEdit = New System.Windows.Forms.Panel() Me.Label3 = New System.Windows.Forms.Label() - Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService() + 'Me.CheckVatService1 = New SDL.eu.europa.ec.checkVatService() Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox() CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit() @@ -494,9 +494,9 @@ Partial Class usrCntlOfferte ' 'CheckVatService1 ' - Me.CheckVatService1.Credentials = Nothing - Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService" - Me.CheckVatService1.UseDefaultCredentials = False + 'Me.CheckVatService1.Credentials = Nothing + 'Me.CheckVatService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatService" + 'Me.CheckVatService1.UseDefaultCredentials = False ' 'FlatButton3 ' @@ -588,7 +588,7 @@ Partial Class usrCntlOfferte Friend WithEvents Label2 As Label Friend WithEvents lblLeistunAddErr2 As Label Friend WithEvents pnlEdit As Panel - Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService + ' Friend WithEvents CheckVatService1 As eu.europa.ec.checkVatService Friend WithEvents Label3 As Label Friend WithEvents FlatButton3 As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents cbxAutoFakturierung As CheckBox diff --git a/SDL/mdm/PLOSE/rptPLOSE_Konsortium.Designer.vb b/SDL/mdm/PLOSE/rptPLOSE_Konsortium.Designer.vb index 3b2be0fa..0c0b9138 100644 --- a/SDL/mdm/PLOSE/rptPLOSE_Konsortium.Designer.vb +++ b/SDL/mdm/PLOSE/rptPLOSE_Konsortium.Designer.vb @@ -27,6 +27,7 @@ Partial Public Class rptPLOSE_Konsortium Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblKdNR = New GrapeCity.ActiveReports.SectionReportModel.Label() @@ -37,6 +38,7 @@ Partial Public Class rptPLOSE_Konsortium Me.lblEU = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblOrt = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblBruttoAlleLeistungen = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() @@ -54,6 +56,7 @@ Partial Public Class rptPLOSE_Konsortium Me.lblSumBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSumMwst = New GrapeCity.ActiveReports.SectionReportModel.Label() Me.lblSumNetto = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSumBruttoAlleLeistungen = New GrapeCity.ActiveReports.SectionReportModel.Label() CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() @@ -62,6 +65,7 @@ Partial Public Class rptPLOSE_Konsortium CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblKdNR, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit() @@ -70,6 +74,7 @@ Partial Public Class rptPLOSE_Konsortium CType(Me.lblEU, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblOrt, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBruttoAlleLeistungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit() @@ -81,11 +86,12 @@ Partial Public Class rptPLOSE_Konsortium CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumBruttoAlleLeistungen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader ' - Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Label5, Me.Label6, Me.Label8, Me.Label14, Me.Line4, Me.Label1, Me.Label2, Me.Label4}) + Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Label5, Me.Label6, Me.Label8, Me.Label14, Me.Line4, Me.Label1, Me.Label2, Me.Label4, Me.Label9}) Me.PageHeader.Height = 0.1969654! Me.PageHeader.Name = "PageHeader" ' @@ -93,31 +99,31 @@ Partial Public Class rptPLOSE_Konsortium ' Me.Label7.Height = 0.1795276! Me.Label7.HyperLink = Nothing - Me.Label7.Left = 4.831496! + Me.Label7.Left = 4.359843! Me.Label7.Name = "Label7" Me.Label7.Style = "font-size: 8pt; font-weight: bold; text-align: center; vertical-align: middle; dd" & "o-char-set: 1" Me.Label7.Text = "EU" Me.Label7.Top = 0! - Me.Label7.Width = 0.2917324! + Me.Label7.Width = 0.3645668! ' 'Label5 ' Me.Label5.Height = 0.1795276! Me.Label5.HyperLink = Nothing - Me.Label5.Left = 3.250394! + Me.Label5.Left = 2.927559! Me.Label5.Name = "Label5" Me.Label5.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & "char-set: 1" Me.Label5.Text = "Ort" Me.Label5.Top = 0! - Me.Label5.Width = 1.581102! + Me.Label5.Width = 1.432283! ' 'Label6 ' Me.Label6.Height = 0.1795276! Me.Label6.HyperLink = Nothing - Me.Label6.Left = 2.697244! + Me.Label6.Left = 2.37441! Me.Label6.Name = "Label6" Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & "char-set: 1" @@ -136,19 +142,19 @@ Partial Public Class rptPLOSE_Konsortium "char-set: 1" Me.Label8.Text = "Firma" Me.Label8.Top = 0! - Me.Label8.Width = 2.109449! + Me.Label8.Width = 1.786614! ' 'Label14 ' Me.Label14.Height = 0.1795276! Me.Label14.HyperLink = Nothing - Me.Label14.Left = 6.957087! + Me.Label14.Left = 6.299213! Me.Label14.Name = "Label14" Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.Label14.Text = "Brutto" Me.Label14.Top = 0! - Me.Label14.Width = 0.9169288! + Me.Label14.Width = 0.7874016! ' 'Line4 ' @@ -180,29 +186,41 @@ Partial Public Class rptPLOSE_Konsortium ' Me.Label2.Height = 0.1795276! Me.Label2.HyperLink = Nothing - Me.Label2.Left = 6.040158! + Me.Label2.Left = 5.511811! Me.Label2.Name = "Label2" Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.Label2.Text = "MWST" - Me.Label2.Top = 0.008661418! - Me.Label2.Width = 0.9169284! + Me.Label2.Top = 0! + Me.Label2.Width = 0.7874016! ' 'Label4 ' Me.Label4.Height = 0.1795276! Me.Label4.HyperLink = Nothing - Me.Label4.Left = 5.123229! + Me.Label4.Left = 4.72441! Me.Label4.Name = "Label4" Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.Label4.Text = "Netto" - Me.Label4.Top = 0.008661418! - Me.Label4.Width = 0.9169283! + Me.Label4.Top = 0! + Me.Label4.Width = 0.7874016! + ' + 'Label9 + ' + Me.Label9.Height = 0.1795276! + Me.Label9.HyperLink = Nothing + Me.Label9.Left = 7.086615! + Me.Label9.Name = "Label9" + Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.Label9.Text = "(RG-Brutto)" + Me.Label9.Top = 0! + Me.Label9.Width = 0.7874014! ' 'Detail ' - Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma, Me.lblKdNR, Me.lblBrutto, Me.Line3, Me.lblNetto, Me.lblMWST, Me.lblEU, Me.lblOrt, Me.lblLand}) + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma, Me.lblKdNR, Me.lblBrutto, Me.Line3, Me.lblNetto, Me.lblMWST, Me.lblEU, Me.lblOrt, Me.lblLand, Me.lblBruttoAlleLeistungen}) Me.Detail.Height = 0.1452756! Me.Detail.Name = "Detail" ' @@ -217,7 +235,7 @@ Partial Public Class rptPLOSE_Konsortium "har-set: 1; ddo-wrap-mode: nowrap" Me.lblFirma.Text = "Produkt" Me.lblFirma.Top = 0! - Me.lblFirma.Width = 2.109449! + Me.lblFirma.Width = 1.786614! ' 'lblKdNR ' @@ -234,12 +252,12 @@ Partial Public Class rptPLOSE_Konsortium ' Me.lblBrutto.Height = 0.1417323! Me.lblBrutto.HyperLink = Nothing - Me.lblBrutto.Left = 6.957087! + Me.lblBrutto.Left = 6.299213! Me.lblBrutto.Name = "lblBrutto" Me.lblBrutto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" - Me.lblBrutto.Text = "Betrag" + Me.lblBrutto.Text = "-" Me.lblBrutto.Top = 0.003543307! - Me.lblBrutto.Width = 0.9169283! + Me.lblBrutto.Width = 0.7874016! ' 'Line3 ' @@ -259,53 +277,53 @@ Partial Public Class rptPLOSE_Konsortium ' Me.lblNetto.Height = 0.1417323! Me.lblNetto.HyperLink = Nothing - Me.lblNetto.Left = 5.123229! + Me.lblNetto.Left = 4.72441! Me.lblNetto.Name = "lblNetto" Me.lblNetto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" - Me.lblNetto.Text = "Betrag" + Me.lblNetto.Text = "-" Me.lblNetto.Top = 0.003543307! - Me.lblNetto.Width = 0.9169284! + Me.lblNetto.Width = 0.7874016! ' 'lblMWST ' Me.lblMWST.Height = 0.1417323! Me.lblMWST.HyperLink = Nothing - Me.lblMWST.Left = 6.040158! + Me.lblMWST.Left = 5.511811! Me.lblMWST.Name = "lblMWST" Me.lblMWST.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" - Me.lblMWST.Text = "Betrag" + Me.lblMWST.Text = "-" Me.lblMWST.Top = 0.003543307! - Me.lblMWST.Width = 0.9169284! + Me.lblMWST.Width = 0.7874016! ' 'lblEU ' Me.lblEU.Height = 0.1417323! Me.lblEU.HyperLink = Nothing - Me.lblEU.Left = 4.831496! + Me.lblEU.Left = 4.359843! Me.lblEU.Name = "lblEU" Me.lblEU.Style = "font-size: 8pt; font-weight: normal; text-align: center; vertical-align: middle; " & "ddo-char-set: 1" Me.lblEU.Text = "EU" Me.lblEU.Top = 0! - Me.lblEU.Width = 0.2917324! + Me.lblEU.Width = 0.3645668! ' 'lblOrt ' Me.lblOrt.Height = 0.1417323! Me.lblOrt.HyperLink = Nothing - Me.lblOrt.Left = 3.250394! + Me.lblOrt.Left = 2.927559! Me.lblOrt.Name = "lblOrt" Me.lblOrt.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; wh" & "ite-space: nowrap; ddo-char-set: 1; ddo-wrap-mode: nowrap" Me.lblOrt.Text = "Ort" Me.lblOrt.Top = 0! - Me.lblOrt.Width = 1.581102! + Me.lblOrt.Width = 1.432283! ' 'lblLand ' Me.lblLand.Height = 0.1417323! Me.lblLand.HyperLink = Nothing - Me.lblLand.Left = 2.697244! + Me.lblLand.Left = 2.37441! Me.lblLand.Name = "lblLand" Me.lblLand.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & "o-char-set: 1" @@ -313,6 +331,17 @@ Partial Public Class rptPLOSE_Konsortium Me.lblLand.Top = 0! Me.lblLand.Width = 0.5531495! ' + 'lblBruttoAlleLeistungen + ' + Me.lblBruttoAlleLeistungen.Height = 0.1417323! + Me.lblBruttoAlleLeistungen.HyperLink = Nothing + Me.lblBruttoAlleLeistungen.Left = 7.086615! + Me.lblBruttoAlleLeistungen.Name = "lblBruttoAlleLeistungen" + Me.lblBruttoAlleLeistungen.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblBruttoAlleLeistungen.Text = "-" + Me.lblBruttoAlleLeistungen.Top = 0! + Me.lblBruttoAlleLeistungen.Width = 0.7874014! + ' 'PageFooter ' Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat}) @@ -415,8 +444,8 @@ Partial Public Class rptPLOSE_Konsortium ' 'ReportFooter1 ' - Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto}) - Me.ReportFooter1.Height = 0.3527559! + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto, Me.lblSumBruttoAlleLeistungen}) + Me.ReportFooter1.Height = 0.352756! Me.ReportFooter1.KeepTogether = True Me.ReportFooter1.Name = "ReportFooter1" ' @@ -463,37 +492,49 @@ Partial Public Class rptPLOSE_Konsortium ' Me.lblSumBrutto.Height = 0.1795276! Me.lblSumBrutto.HyperLink = Nothing - Me.lblSumBrutto.Left = 6.957087! + Me.lblSumBrutto.Left = 6.299213! Me.lblSumBrutto.Name = "lblSumBrutto" - Me.lblSumBrutto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & - "-char-set: 1" + Me.lblSumBrutto.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-decoration: underline;" & + " vertical-align: middle; ddo-char-set: 1" Me.lblSumBrutto.Text = "Brutto" Me.lblSumBrutto.Top = 0.1732284! - Me.lblSumBrutto.Width = 0.9169284! + Me.lblSumBrutto.Width = 0.7874018! ' 'lblSumMwst ' Me.lblSumMwst.Height = 0.1795276! Me.lblSumMwst.HyperLink = Nothing - Me.lblSumMwst.Left = 6.040157! + Me.lblSumMwst.Left = 5.511811! Me.lblSumMwst.Name = "lblSumMwst" Me.lblSumMwst.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.lblSumMwst.Text = "MWST" Me.lblSumMwst.Top = 0.1732284! - Me.lblSumMwst.Width = 0.9169284! + Me.lblSumMwst.Width = 0.7874018! ' 'lblSumNetto ' Me.lblSumNetto.Height = 0.1795276! Me.lblSumNetto.HyperLink = Nothing - Me.lblSumNetto.Left = 5.123228! + Me.lblSumNetto.Left = 4.72441! Me.lblSumNetto.Name = "lblSumNetto" Me.lblSumNetto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.lblSumNetto.Text = "Netto" Me.lblSumNetto.Top = 0.1732284! - Me.lblSumNetto.Width = 0.9169284! + Me.lblSumNetto.Width = 0.7874018! + ' + 'lblSumBruttoAlleLeistungen + ' + Me.lblSumBruttoAlleLeistungen.Height = 0.1795276! + Me.lblSumBruttoAlleLeistungen.HyperLink = Nothing + Me.lblSumBruttoAlleLeistungen.Left = 7.086615! + Me.lblSumBruttoAlleLeistungen.Name = "lblSumBruttoAlleLeistungen" + Me.lblSumBruttoAlleLeistungen.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.lblSumBruttoAlleLeistungen.Text = "Brutto" + Me.lblSumBruttoAlleLeistungen.Top = 0.1732284! + Me.lblSumBruttoAlleLeistungen.Width = 0.7874021! ' 'rptPLOSE_Konsortium ' @@ -524,6 +565,7 @@ Partial Public Class rptPLOSE_Konsortium CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblKdNR, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit() @@ -532,6 +574,7 @@ Partial Public Class rptPLOSE_Konsortium CType(Me.lblEU, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblOrt, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBruttoAlleLeistungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit() @@ -543,6 +586,7 @@ Partial Public Class rptPLOSE_Konsortium CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumBruttoAlleLeistungen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -581,4 +625,7 @@ Partial Public Class rptPLOSE_Konsortium Public WithEvents lblEU As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblOrt As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblBruttoAlleLeistungen As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSumBruttoAlleLeistungen As GrapeCity.ActiveReports.SectionReportModel.Label End Class diff --git a/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.Designer.vb b/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.Designer.vb new file mode 100644 index 00000000..9b57f1e8 --- /dev/null +++ b/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.Designer.vb @@ -0,0 +1,486 @@ + +Partial Public Class rptPLOSE_LaenderGesamt + Inherits GrapeCity.ActiveReports.SectionReport + + 'Form overrides dispose to clean up the component list. + Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) + If disposing Then + End If + MyBase.Dispose(disposing) + End Sub + + 'NOTE: The following procedure is required by the ActiveReports Designer + 'It can be modified using the ActiveReports Designer. + 'Do not modify it using the code editor. + Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader + Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter + + Private Sub InitializeComponent() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptPLOSE_LaenderGesamt)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEU = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() + Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblLandFooter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblSumBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSumMwst = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSumNetto = New GrapeCity.ActiveReports.SectionReportModel.Label() + CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEU, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Label6, Me.Label14, Me.Line4, Me.Label2, Me.Label4}) + Me.PageHeader.Height = 0.1969654! + Me.PageHeader.Name = "PageHeader" + ' + 'Label7 + ' + Me.Label7.Height = 0.1795276! + Me.Label7.HyperLink = Nothing + Me.Label7.Left = 4.359843! + Me.Label7.Name = "Label7" + Me.Label7.Style = "font-size: 8pt; font-weight: bold; text-align: center; vertical-align: middle; dd" & + "o-char-set: 1" + Me.Label7.Text = "EU" + Me.Label7.Top = 0! + Me.Label7.Width = 0.3645668! + ' + 'Label6 + ' + Me.Label6.Height = 0.1795276! + Me.Label6.HyperLink = Nothing + Me.Label6.Left = 2.37441! + Me.Label6.Name = "Label6" + Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & + "char-set: 1" + Me.Label6.Text = "Land" + Me.Label6.Top = 0! + Me.Label6.Width = 1.985433! + ' + 'Label14 + ' + Me.Label14.Height = 0.1795276! + Me.Label14.HyperLink = Nothing + Me.Label14.Left = 6.299213! + Me.Label14.Name = "Label14" + Me.Label14.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.Label14.Text = "Brutto" + Me.Label14.Top = 0! + Me.Label14.Width = 0.7874016! + ' + 'Line4 + ' + Me.Line4.Height = 0.0000001043081! + Me.Line4.Left = 0! + Me.Line4.LineWeight = 1.0! + Me.Line4.Name = "Line4" + Me.Line4.Top = 0.1795276! + Me.Line4.Width = 7.874014! + Me.Line4.X1 = 0! + Me.Line4.X2 = 7.874014! + Me.Line4.Y1 = 0.1795276! + Me.Line4.Y2 = 0.1795277! + ' + 'Label2 + ' + Me.Label2.Height = 0.1795276! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 5.511811! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.Label2.Text = "MWST" + Me.Label2.Top = 0! + Me.Label2.Width = 0.7874016! + ' + 'Label4 + ' + Me.Label4.Height = 0.1795276! + Me.Label4.HyperLink = Nothing + Me.Label4.Left = 4.72441! + Me.Label4.Name = "Label4" + Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.Label4.Text = "Netto" + Me.Label4.Top = 0! + Me.Label4.Width = 0.7874016! + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBrutto, Me.Line3, Me.lblNetto, Me.lblMWST, Me.lblEU, Me.lblLand}) + Me.Detail.Height = 0.1452756! + Me.Detail.Name = "Detail" + ' + 'lblBrutto + ' + Me.lblBrutto.Height = 0.1417323! + Me.lblBrutto.HyperLink = Nothing + Me.lblBrutto.Left = 6.299213! + Me.lblBrutto.Name = "lblBrutto" + Me.lblBrutto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblBrutto.Text = "-" + Me.lblBrutto.Top = 0.003543307! + Me.lblBrutto.Width = 0.7874016! + ' + 'Line3 + ' + Me.Line3.Height = 0! + Me.Line3.Left = 0! + Me.Line3.LineColor = System.Drawing.Color.Gray + Me.Line3.LineWeight = 1.0! + Me.Line3.Name = "Line3" + Me.Line3.Top = 0.1417323! + Me.Line3.Width = 7.874014! + Me.Line3.X1 = 0! + Me.Line3.X2 = 7.874014! + Me.Line3.Y1 = 0.1417323! + Me.Line3.Y2 = 0.1417323! + ' + 'lblNetto + ' + Me.lblNetto.Height = 0.1417323! + Me.lblNetto.HyperLink = Nothing + Me.lblNetto.Left = 4.72441! + Me.lblNetto.Name = "lblNetto" + Me.lblNetto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblNetto.Text = "-" + Me.lblNetto.Top = 0.003543307! + Me.lblNetto.Width = 0.7874016! + ' + 'lblMWST + ' + Me.lblMWST.Height = 0.1417323! + Me.lblMWST.HyperLink = Nothing + Me.lblMWST.Left = 5.511811! + Me.lblMWST.Name = "lblMWST" + Me.lblMWST.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblMWST.Text = "-" + Me.lblMWST.Top = 0.003543307! + Me.lblMWST.Width = 0.7874016! + ' + 'lblEU + ' + Me.lblEU.Height = 0.1417323! + Me.lblEU.HyperLink = Nothing + Me.lblEU.Left = 4.359843! + Me.lblEU.Name = "lblEU" + Me.lblEU.Style = "font-size: 8pt; font-weight: normal; text-align: center; vertical-align: middle; " & + "ddo-char-set: 1" + Me.lblEU.Text = "EU" + Me.lblEU.Top = 0! + Me.lblEU.Width = 0.3645668! + ' + 'lblLand + ' + Me.lblLand.Height = 0.1417323! + Me.lblLand.HyperLink = Nothing + Me.lblLand.Left = 2.37441! + Me.lblLand.Name = "lblLand" + Me.lblLand.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblLand.Text = "Land" + Me.lblLand.Top = 0! + Me.lblLand.Width = 1.985433! + ' + 'PageFooter + ' + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat}) + Me.PageFooter.Name = "PageFooter" + ' + 'Label28 + ' + Me.Label28.Height = 0.1330709! + Me.Label28.HyperLink = Nothing + Me.Label28.Left = 2.13937! + Me.Label28.Name = "Label28" + Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1" + Me.Label28.Text = "VERAG Spediton AG" + Me.Label28.Top = 0.08622044! + Me.Label28.Width = 2.649606! + ' + 'Line2 + ' + Me.Line2.Height = 0.00000001862645! + Me.Line2.Left = 0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.03070864! + Me.Line2.Width = 7.874016! + Me.Line2.X1 = 0! + Me.Line2.X2 = 7.874016! + Me.Line2.Y1 = 0.03070864! + Me.Line2.Y2 = 0.03070866! + ' + 'ReportInfo2 + ' + Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten " + Me.ReportInfo2.Height = 0.1330709! + Me.ReportInfo2.Left = 5.04252! + Me.ReportInfo2.Name = "ReportInfo2" + Me.ReportInfo2.Style = "font-size: 8pt; text-align: right" + Me.ReportInfo2.Top = 0.08622046! + Me.ReportInfo2.Width = 2.831496! + ' + 'lblDat + ' + Me.lblDat.Height = 0.1330708! + Me.lblDat.HyperLink = Nothing + Me.lblDat.Left = 0.01023622! + Me.lblDat.Name = "lblDat" + Me.lblDat.Style = "font-size: 8pt; text-align: left" + Me.lblDat.Text = "Mittwoch, 02.11.2016" + Me.lblDat.Top = 0.08622044! + Me.lblDat.Width = 2.649606! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.lblSachbearbeiter}) + Me.ReportHeader1.Height = 0.6968505! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'picVERAG + ' + Me.picVERAG.Height = 0.4169292! + Me.picVERAG.HyperLink = Nothing + Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream) + Me.picVERAG.Left = 5.736221! + Me.picVERAG.Name = "picVERAG" + Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.137795! + ' + 'Label3 + ' + Me.Label3.Height = 0.1377953! + Me.Label3.HyperLink = Nothing + Me.Label3.Left = 0! + Me.Label3.Name = "Label3" + Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.Label3.Text = "Sachbearbeiter:" + Me.Label3.Top = 0.4551181! + Me.Label3.Width = 0.9736221! + ' + 'lblUeberschrift + ' + Me.lblUeberschrift.Height = 0.2311024! + Me.lblUeberschrift.HyperLink = Nothing + Me.lblUeberschrift.Left = 0.01023622! + Me.lblUeberschrift.Name = "lblUeberschrift" + Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1" + Me.lblUeberschrift.Text = "PLOSE Länder Gesamt" + Me.lblUeberschrift.Top = 0.1338583! + Me.lblUeberschrift.Width = 4.875985! + ' + 'lblSachbearbeiter + ' + Me.lblSachbearbeiter.Height = 0.1759843! + Me.lblSachbearbeiter.HyperLink = Nothing + Me.lblSachbearbeiter.Left = 0.9736221! + Me.lblSachbearbeiter.Name = "lblSachbearbeiter" + Me.lblSachbearbeiter.Style = "font-size: 10pt; font-weight: bold; text-align: left" + Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)" + Me.lblSachbearbeiter.Top = 0.4169292! + Me.lblSachbearbeiter.Width = 4.606299! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto}) + Me.ReportFooter1.Height = 0.352756! + Me.ReportFooter1.KeepTogether = True + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'Line1 + ' + Me.Line1.Height = 0! + Me.Line1.Left = 0! + Me.Line1.LineWeight = 1.0! + Me.Line1.Name = "Line1" + Me.Line1.Top = 0.1295276! + Me.Line1.Width = 7.874016! + Me.Line1.X1 = 0! + Me.Line1.X2 = 7.874016! + Me.Line1.Y1 = 0.1295276! + Me.Line1.Y2 = 0.1295276! + ' + 'lblLandFooter + ' + Me.lblLandFooter.Height = 0.1795275! + Me.lblLandFooter.HyperLink = Nothing + Me.lblLandFooter.Left = 0! + Me.lblLandFooter.Name = "lblLandFooter" + Me.lblLandFooter.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) + Me.lblLandFooter.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.lblLandFooter.Text = "Gesamtsumme" + Me.lblLandFooter.Top = 0.1732284! + Me.lblLandFooter.Width = 1.790945! + ' + 'Line7 + ' + Me.Line7.Height = 0! + Me.Line7.Left = 0.005118111! + Me.Line7.LineWeight = 1.0! + Me.Line7.Name = "Line7" + Me.Line7.Top = 0.09409449! + Me.Line7.Width = 7.874014! + Me.Line7.X1 = 0.005118111! + Me.Line7.X2 = 7.879132! + Me.Line7.Y1 = 0.09409449! + Me.Line7.Y2 = 0.09409449! + ' + 'lblSumBrutto + ' + Me.lblSumBrutto.Height = 0.1795276! + Me.lblSumBrutto.HyperLink = Nothing + Me.lblSumBrutto.Left = 6.299213! + Me.lblSumBrutto.Name = "lblSumBrutto" + Me.lblSumBrutto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblSumBrutto.Text = "Brutto" + Me.lblSumBrutto.Top = 0.1732284! + Me.lblSumBrutto.Width = 0.7874018! + ' + 'lblSumMwst + ' + Me.lblSumMwst.Height = 0.1795276! + Me.lblSumMwst.HyperLink = Nothing + Me.lblSumMwst.Left = 5.511811! + Me.lblSumMwst.Name = "lblSumMwst" + Me.lblSumMwst.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblSumMwst.Text = "MWST" + Me.lblSumMwst.Top = 0.1732284! + Me.lblSumMwst.Width = 0.7874018! + ' + 'lblSumNetto + ' + Me.lblSumNetto.Height = 0.1795276! + Me.lblSumNetto.HyperLink = Nothing + Me.lblSumNetto.Left = 4.72441! + Me.lblSumNetto.Name = "lblSumNetto" + Me.lblSumNetto.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblSumNetto.Text = "Netto" + Me.lblSumNetto.Top = 0.1732284! + Me.lblSumNetto.Width = 0.7874018! + ' + 'rptPLOSE_LaenderGesamt + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.3937008! + Me.PageSettings.Margins.Left = 0.1968504! + Me.PageSettings.Margins.Right = 0.1968504! + Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.884252! + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.PageFooter) + Me.Sections.Add(Me.ReportFooter1) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal")) + Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEU, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture + Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo + Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Public WithEvents lblLandFooter As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblBrutto As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblNetto As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblMWST As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSumBrutto As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSumMwst As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSumNetto As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblEU As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label +End Class diff --git a/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.resx b/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.resx new file mode 100644 index 00000000..ddf797aa --- /dev/null +++ b/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.resx @@ -0,0 +1,752 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + + AAEAAAD/////AQAAAAAAAAAEAQAAABZTeXN0ZW0uSU8uTWVtb3J5U3RyZWFtCgAAAAdfYnVmZmVyB19v + cmlnaW4JX3Bvc2l0aW9uB19sZW5ndGgJX2NhcGFjaXR5C19leHBhbmRhYmxlCV93cml0YWJsZQpfZXhw + b3NhYmxlB19pc09wZW4dTWFyc2hhbEJ5UmVmT2JqZWN0K19faWRlbnRpdHkHAAAAAAAAAAACAggICAgB + AQEBCQIAAAAAAAAAAAAAAL6QAAC+kAAAAQEBAQoPAgAAAL6QAAACArmQAACJUE5HDQoaCgAAAA1JSERS + AAAIMAAAAZIIBgAAAB9io5MAAAABc1JHQgCuzhzpAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29mdHdh + cmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAJA+SURBVHhe7d0HlG1Fte7xAxwySBCQJKKgIgZA4YgBxQDy + RL2IiBgwBwxgzuEeFRUTIiYQUdRWQVExY0LMIEowICiioEgUBBGQdN832Rx3r95fd6/urqq9wt8xfuON + V5fTVWuuqtp7r5qratH//d//AQAAAAAAAAAAAAAAjJUtBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAA + lGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABA + SbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACU + ZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJ + thAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRk + CwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2 + EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQL + AQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQ + AAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsB + AAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAA + AAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFpa0aMlSAAAAAAAAAACANlhN + NpMdZDd5irxQXivvkA/Jp+UrcqL8RE6X38lf5AL5562uk/9DMTfIstiH8yTuSThT4j79UuK+fVuOk8/J + UfJBea8slZfKs2Uf2V0eLNvI7WV1cf2md9yaIADUYQtLcpMaAAAAAAAAAABAQSvI5rKTPFFeJe+XL8rJ + Eovd14hbGAcm+4/8XX4rP5LPywckklyeIZH4ci9ZR1xf7AS3JggAddjCktykBgAAAAAAAAAAkMHGsqvs + L5Gg8HU5S64XtxgN5BQ7QcTOD1+WgyV289hZ1hfXf1vDrQkCQB22MAdNVj8VNzmj6lrZSEYme6Chlpcz + xPVnDDCu03mJuBgDaKfYitGNdTRLPExx9w/omqnbyP5a4kFibPn7LYm3pj4uh8ib5RXyNHmU3E/uIrcV + N44AoI4l4uYnpBHzejzDcLEH0E0rSRzzsJ/E9v9xLMDl4uYIoIkulei3kdgQx1XcSVxfbyS3VggAddjC + HDRZPUjcBIxR8WVqZLIHGiq2vHL9GEMHiYsd5o4EBqBbSGBoBxIYgLmJN/fOl5/LsRK/714je0s8QCfJ + AcB0YotpN68gnaeKiz2AbthSniyxVf9JEtv4u7kAaLNIaojnKfGc9B6ynLjxMHZurRAA6rCFuWjCirdW + 3ISLqnjgdQcZmfCBhllNLhDXjzEQiz5ri4sf5o4EBqBbSGBoBxIYgPSuktPkaHmTPE7uLiuKG4cAuu/R + 4uYLpBU77MQb2e4eAGifeIb+dDlKYny7cQ903cXyadlL1hA3VsbCrRMCQB22MBdNWNuJm2AxKr50jUz4 + QMO8UVz/xVC8bedih/khgQHoFhIY2oEEBqCcG+RUOUJiq+PYsWFlcWMTQHcslt+JmxeQ3ovF3QcAzRfz + 5c7yXjlb3BgH+uw6+Zo8ReLlQzeOinHrhABQhy3MSZPWMeImVlTdKHeTkUkfaIgN5Wpx/RcDF8qq4uKH + +SGBAegWEhjagQQGYLziIWRsK/822U1uI26sAmivZ4kb/8gjtt5eU9y9ANA8kcz5WPmMXC5uXAMY9S/5 + uOwkbmxl59YIAaAOW5iTJq27SCzOuwkVVZ+XkUkfaIjDxPVbDD1PXOwwfyQwAN1CAkM7kMAANEv8no6E + htfLvaWxZ94CqCWS3jmasbw3i7sfAJpheYmdFmJXqivEjWMA9cXxdU+VoscouTVCAKjDFuamiSu+eLhJ + FKPi2I2RiR8Ys62FRKSZnSOxrZ2LH+aPBAagW0hgaAcSGIBmu0giufhhEg/73TgG0FyRjOTGNvKKHSU3 + EHdPAIxPjMuYF88XN3YBLMzfJZ6vFtk12K0PAkAdtjA3TVy3l2vFTaCo+qaMTPzAmH1dXH/F0BPExQ4L + QwID0C0kMLQDCQxAe8QDyUOFRHigHdaTK8WNZ+QX86W7LwDKu7/EERHXixuvANKKJKHnStYX8Nz6IADU + YQtL0OR1sLiJE6MeICOTPzAm8WaX66cYOlXYyjcPEhiAbiGBoR1IYADa6VcSDyU55x1orlhAd+MXZcRC + 6Z3E3RsAZcRzxhPFjVEA+f1Gsq0/ubVBAKjDFpagySuyzK8SN2miKr7EjUz+wBjElrSxOO/6KYYeIS5+ + WDgSGIBuIYGhHUhgANotxvA7ZENxYxzAeGwhvGk8fhPi7g+AvOLZ2UnixiWA8j4ma4sbr/Pm1gYBoA5b + WIomsKXiJkuMYkEUTbCvuP6JoR+Iix3SIIEB6BYSGNqBBAagG66Tw2RjcWMdQFlHixurKOtm2UbcPQKQ + 3t3l2+LGI4DxOk+S7sbg1gUBoA5bWIomsDXkMnGTJapOEbakxzitKn8V1z8xtKO4+CENEhiAbiGBoR1I + YAC65Ro5UNYSN+YB5Le9uPGJ8fiGuPsEIJ3bykfkRnHjEEAzxBh9oyRZi3LrggBQhy0sSZPYS8VNlBi1 + h4x8CACFvE5cv8TQl8XFDumQwAB0CwkM7UACA9BNl8gTxY17AHmdIG5cYnweJO5eAVi4eKZ9kbixB6CZ + jpHVxI3p2tyaIADUYQtL0iQWb3WfL26SRNWZsryMfBAAmW0gV4nrlxiI7NStxcUP6ZDAAHQLCQztQAID + 0G3fks3EjX8A6e0ubixivH4u7n4BmL/YdeEz4sYcgOb7hWwobnzX4tYEAaAOW1jSrRPZs8RNkBi1r1Q+ + BIACPiiuP2LoE+Jih7RIYAC6hQSGdiCBAei+K+Sx4uYAAOnESym/ETcOMX7sfAqk80D5m7ixBqA9zpFN + xY3zWbk1QQCowxaWdOtEtljOFjdBoio+MFaUygcBkNFdhfPpZnad8NZaGSQwAN1CAkM7kMAA9Mchwu9N + IJ9niht7aIbY+XQFcfcOQH3x7IZniUB3zDuJwa0JAkAdtrCkSZPZ3uImR4zaTybHDsjpK+L6IYYOFhc7 + pEcCA9AtJDC0AwkMQL8cL2uImw8AzF8cocrbyM0XSSbu/gGYXSRBHilubAFot0hiWF/c2J+WWxMEgDps + YUmTJrPl5DRxkyOq4gdv/PCdHD8ghweL64MYukrWExc/pEcCA9AtJDC0AwkMQP/8Uub8gBLAjF4tbryh + Wc4XnrkBc7eafFvcuALQDSdLjHU3B1huTRAA6rCFJU2Z0HYTNzFi1EtlavyAlCKpKB5cuv6HoTeJix/y + IIEB6BYSGNqBBAagn+KcfpIYgDRuK3yetsfLxd1HAN5a8lNx4wlAt8RuzbFu4OaCEW5NEADqsIUlmUnt + RHETI6ouE7b1RE5PEtf3MHSJMA7LIoEB6BYSGNqBBRegvyKhORYl3NwAoL44dtCNMTRTPHNbW9y9BFC1 + psRb2W4sAeim14ubD0a4NUEAqMMWlmQmtfuLmxQxije/kcsq8hdx/Q5DB4iLH/IhgQHoFhIY2oEEBqDf + fihxprWbHwDM7o5yvbjxheZ6m7j7CWBoJfm+uDEEoLtukjh62s0LFW5NEADqsIUluUlNviZuYkRVPExe + V1wMgYV4lbg+h6E/S/xQc/FDPiQwAN1CAkM7kMAA4CPi5gcAs/uMuHGFZvu3bCTungIYbCF/jLjxA6D7 + LpR1xM0P/+XWBAGgDltYkpvUZBu5WdzEiKqDxMUQmK/1hIWK2T1VXPyQFwkMQLeQwNAOfC8AEJ4rbo4A + ML17ixtPaIcPi7uvAJYsfYO4cQOgP44SNz/8l1sTBIA6bGFJblK7FRnq9VwjZIQjpUPF9TUM/UaWFxc/ + 5EUCA9AtJDC0AwkMAMK1cjdx8wQA73vixhPa4QbZUty9BfrsUcLLhwDCruLmiVu4NUEAqMMWluQmtVvF + D4T4oeAmRVR9QFwMgbm6s3A25+weLS5+yI8EBqBbSGBoBxIYACxzqqwobq4AUPUIceMI7RJb5Lv7C/RV + PLPn9wGAZc6VaY9ZdmuCAFCHLSzJTWqTHCZuUkRVLDhvJi6GwFx8UVwfw9BPxcUOZZDAAHQLCQztwANK + AJO9WdxcAWAoduw7Q9wYQvvEUSDuPgN9s4L8XNw4AdBfLxc3Z9g1QQCowxaW5Ca1SeJohNim0k2KqJr1 + vCFgFg8U17dQtZO4+KEMEhiAbiGBoR1IYAAw2XWyhbj5AsDAU8WNH7TTd8TdZ6Bv3iBujADotytkXRmZ + N9yaIADUYQtLcpPaFO8UNymi6kbZSlwMgdksJyeL61sY+oa4+KEcEhiAbiGBoR1IYAAwFd+LgemtKueL + Gztor4eJu99AX2wnHPcMYDoHycjc4dYEAaAOW1iSm9SmiMwtHprWw7l8mK+9xfUpDN0s24iLH8ohgQHo + FhIY2oHv4gCcON/fzRlA371S3JhBu50i8fKHu+dA18WxOLz4BGAmV8naUpk/3JogANRhC0uaOqFNg+2p + 6otsWBdDYDorybni+hOGJsTFD2WRwAB0CwkM7UACAwAnFjJYzAOq1pHYRtmNGbTfXuLuO9B1zxE3JgBg + stdLZf5wa4IAUIctLGnqhDaNNeRicZMiqtjKE3P1cnF9CUPXC+f8NgMJDEC3kMDQDiQwAJjOHuLmDaCv + 3iNurKAbzpbF4u490FWRmHWJuDEBAJNdKivLf+cQtyYIAHXYwpImT2azOEDcpIhR9xcXQ2CqOKKFt0Nm + 90Fx8UN5JDAA3UICQzuQwABgOr8SN28AfXQHuU7cWEF3PFfc/Qe66n3ixgIAOHFU9X/nELcmCAB12MKS + Jk9ms4ht7s8TNymi6kRxMQSmOlhcH8LQ1bKhuPihPBIYgG4hgaEdSGAAMJOdxM0dQN98WtwYQbf8XVYV + 1weArtlIrhU3FgDA+b78dx5xa4IAUIctLGnyZFbD08VNihi1i7gYAsvcSeJoBNd/MHSguPhhPEhgALqF + BIZ2IIEBwEyOFTd3AH2yrdwsboyge14trh8AXXOIuDEAADPZUm6ZR9yaIADUYQtLWjaR1bSCnCluUkTV + ybKcuDgC4fPi+g6GLpO1xcUP40ECA9AtJDC0AwkMAGZyo9xe3PwB9MV3xY0PdFN8N1pHXF8AumIzYfcF + APPxRrllLnFrggBQhy0sadlENgd7ipsUMWoPcTEE7ieuz6DqFeLih/EhgQHoFhIY2oEEBgCzeb24+QPo + g4eLGxfotneJ6w9AV0Qfd30fAGZzutwyl7g1QQCowxaWtGwim4PYVeAX4iZGVP1WlhcXR/RXjKGfiusz + GPqrcK5l85DAAHQLCQztQAIDgNmcLW7+ALounrmcKm5coNvizfRNxPULoO1WlyvE9X0AqGMLsWuCAFCH + LSwpJrF5ILu9vieLiyH663Hi+gqqniUufhgvEhiAbiGBoR1IYABQxxJxcwjQZU8RNx7QD0eI6xdA2+0n + rs8DQF2vFLsmCAB12MKSYhKbpxPETYyoOkcWi4sh+mcl+aO4voKhs4Rx00wkMADdQgJDO5DAAKCOg8XN + IUBXrSx/ETce0A83ylbi+gfQVrFz6+/F9XkAqOu7YtcEAaAOW1hSTGLzdF9xEyNGPU9cDNE/LxbXR1AV + u1S4+GH8SGAAuoUEhnYggQFAHZE87+YQoKteLm4soF++KK5/AG11f3F9HQDm4jpZxa0JAkAdtrAkTWIL + EQ+93eSIKs7yR1hb/iGuj2DoFxLZ5i6GGD8SGIBuIYGhHUhgAFDX1uLmEaBr4vf15eLGAfqHI3TQJYeJ + 6+cAMFcPd2uCAFCHLSxJk9hCxMORm8VNjqiKRT8XQ/THe8T1DVQ9TFz80AwkMADdQgJDO5DAAKCu14ib + R4Cueae4MYB+imNuXT8B2iaOxrlCXD8HgLl6u1sTBIA6bGFJmsQW6pPiJkdUXSZriIshum9ziW2bXN/A + 0C1nc6HRSGAAuoUEhnYggQFAXd8TN48AXXJ7uVbcGEB/7SquvwBtEkequv4NAPPxPbcmCAB12MKSNIkt + 1B3lenETJKreKC6G6L7PiusTqNpeXPzQHCQwAN1CAkM7kMAAoK5rZCVxcwnQFUeJ6//ot9OE4yjRdkeL + 698AMB9XyfJuXRAAZmMLS9IElsIHxE2QqIqHz+uIiyG6awdx/QFVXxAXPzQLCQxAt5DA0A4kMACYiweK + m0uALriXcJQppvNEcf0GaIMV5UpxfRsA5mtrty4IALOxhSVpAkthI7la3ASJqoPExRDd9WNxfQFDN8pd + xMUPzUICA9AtJDC0AwkMAObiDeLmEqALviWu3wPhHIlFYNd3gKbbRVy/BoCF2NetCwLAbGxhSZrAUnm7 + uAkSVf+WSPhwMUT3PFZcP0DVEeLih+YhgQHoFhIY2oEEBgBz8Q1xcwnQdg8T1+eByV4orv8ATccOxwBy + OMitCwLAbGxhSZrAUllbeLhaz6HiYohuWSxni+sDGLpWNhEXQzQPCQxAt5DA0A58xwYwFxeJm0uANltO + fimuzwOTXShriOtHQJP9WVyfBoCF+KpbFwSA2djCkjSBpfQacZMkqq6XzcTFEN3xInH3H1XvEhc/NBMJ + DEC3kMDQDiQwAJgrEoTRNU8U19cBh6N00Dabi+vLALBQ57p1QQCYjS0sSRNYSqtKZDq7iRJVHxcXQ3TD + WnKpuHuPoViQWVdcDNFMJDAA3UICQzuQwABgrh4jbj4B2mglOVdcXwec+O60nrj+BDTR08X1ZQBYqJtl + Fbc2CAAzsYUlafJK7QXiJkpU3Sh3ERdDtN9B4u47ql4nLn5oLhIYgG4hgaEdSGAAMFdvFDefAG3EbxDM + x8Hi+hPQREeJ68cAkMJWbm0QAGZiC0vS5JVaZMb/SdxEiaqjxcUQ7RbHg1wr7p5jKHZrWV1cDNFcPDwE + uoUEhnYggQHAXE2Im0+AtllbLhPXz4GZXCcc34q2+Iu4fgwAKezm1gYBYCa2sCRNXjnsK26iRFVs37Od + uBiivT4t7n6jKnZrcfFDs5HAAHQLCQztQAIDgLk6Vdx8ArTN28X1caCOT4jrV0CTbCSu/wJAKvu5tUEA + mIktLEmTVw7Ly2/ETZao+pq4GKKd7iORmOLuNYbOkRXFxRDNRgID0C0kMLQDCQwA5upqcfMJ0CabCLsb + Tu8aU4aqm+Tu4voX0BSPEdd/MV4xf8Tusb+Ub8hH5Z3yBnmxPF0eKw+X+8q2ckfZ/FZ3kNhFqM3WkWXX + E2I+jZcxd5bdZA95mjxXXiPvko9JPGf4sZwp/xAXX5T1drc2CAAzsYUlafLK5X/ETZYYtaO4GKJ9fiDu + HqPqSeLih+YjgQHoFhIY2oEEBgDzsbG4OQVoiyPF9W0MPFFiYc393zD0FXH9C2iKt4jru8gvfmf9SI6Q + V8qesr3ErhgriLtfmLs4QngreYQ8W6LPf0EiweFGcfcGaX3KrQ0CwExsYUmavHI6SdyEiaoTxcUP7fJo + cfcXVadJ7NLiYojmI4FhVBey6tFf8SDBjXU0CwkMAOaDRHm02T0k3n51fRtLlv5KlpOHTCrD9O4vrp8B + TRBv97t+i7Rid6rvyIESz3A3FXc/UNZKci95shwmvxd3/7Aw33JrgwAwE1tYkiavnGI7ITdhYlRsN+Vi + iHZYLHzBqueR4mKIdiCBYVQsArtYAUAqJDBUnS9Tk3HQDreV2H42ttiNbWefKbEVbzy4/7u4+435e4K4 + OQVog6+L69cYmPwMiVjNLt6wnty/gCa5SFy/xcKdKv8rD5B4duvij+ZZX/aST8vl4u4t5uYUtzYIADOx + hSVp8srt2+ImTVTFbhWRPe9iiObbT9x9RdUPxcUP7UECw6hYkHGxAoBUSGCo+ou4OKH9YmvZ/SW+M7p7 + j7l5hbg4A03HyzAz+55MjlfsVsEW3LN7lEyOG9AE64nrr5i/s+R1spm4mKNdVpZIyuX3wcKc79YGAWAm + trAkTV653UfcpIlRe4iLIZptTblY3D1F1f3ExRDtQQLDKBIYAORGAkMVCQz9sIUcIteK6weY3aHiYgs0 + WbzYcYq4Po2BeM42NW4fE/ffYujXwnGWaJoHieuvmLvjZRfhBcHuiufKPxN3/zGza93aIADMxBaWpMmr + hGPFTZyo+o3wY6p94uw0dz9R9RVx8UO7kMAwigQGALmRwFBFAkO/bCRHiesLmNkx4mIKNNnjxfVnDBwt + Lm4by7/F/RsM7SsufsC4PEdcX0V9saAdR0S4+KJ7IkHlAPmPuP6A6S1264MAMB1bWJImrhLuJmxnV8+T + xMUQzbSp8FbY7G6Wu4uLIdqFBIZRJDAAyI0EhioSGPopdqv7h7g+AW/qNvNA060k54jrz1iy9HrZUlzs + wlvF/TsM/Vmin7n4AePwPnF9FbOL57EvEl4G7Kf7yqXi+ga8td36IABMxxaWpImrlI+LmzhRFT/WF4uL + IZrnE+LuI6rirTkXP7QPCQyjSGAAkBsJDFUkMPTXXSQWn1y/wKjY4c/FEWiq/cX1ZQx8UFzcluF4y3pe + LC5+wDh8S1w/xcz+KtuJiyn6Yyvhc6++O7j1QQCYji0sSRNXKZsJW/vU81xxMUSzbCOxs4C7hxiKt0Tu + IC6GaB8SGEaRwAAgNxIYqkhg6LfN5e/i+gaqIk4uhkAT3UZ4k3J6V8uG4mI32QvF/XsMRT9bQ1z8gNLO + EtdPMb14+S92xHXxRP/cWzhCqZ67u/VBAJiOLSxJE1dJh4ibPFF1vqwqLoZojtiS1d0/VMW4d/FDO5HA + MIoEBgC5kcBQRQIDYsvYG8T1DwxFIrGLH9BEB4rrxxh4i7i4TRU7ep4t7m9gaKm4+AGlcSzt3MRxYjMd + pYN+eoa4/oKqHdz6IABMxxaWpImrpPUlssbdBIqqWCR0MUQzPFLcfUNVjPcY9y6GaCcSGEaRwAAgNxIY + qkhgQGCxsx7OekcbbCzXiOvDGOwYEMdDuNg5jxX3dzAUzyo2EBc/oJR4Xub6J6a3i7hYAt8Q12cwtLNb + HwSA6djCkjRxlRZZ424CRdUlwpZ2zbSC/FbcfUMVbzV0DwkMo0hgAJAbCQxVJDAgrCx/EtdHMMT3FLTB + EeL6LwYOEBe3mfxE3N/C0KHiYgeUch9xfRPeweLiCIQtJHYfc30HAyQwAJgTW1iSJq7S1pLLxE2iqHq9 + uBhivJ4t7n6hKsY5STjdQwLDKBYGAORGAkMVCQxY5uni+giGNhcXO6Ap7iY3iuu/WLL0zzKfnVTuJ+7v + YSgWuu4oLn5ACeyWUt9fZXVxcQSWOVxc/8EACQwA5sQWlqSJaxxeIW4SRVU8rGZhrFliQf5CcfcLVRyD + 0k0kMIxingaQGwkMVSQwYJk46/18cf0EA1uLix3QFF8V13cx8BRxcavjWHF/E0OfFhc7oIQXiOuXGBVJ + qy6GwGR3Edd/MPBwtz4IANOxhSVp4hqHVeUCcRMpqt4hLoYYjzeLu0+oOk84b7ebSGAYRQIDgNxIYKgi + gQGTvU1cP8HAtuLiBjTBTuL6LQZOl+XFxa6OOwvbac/sZrmXuPgBucWxq65fouqPEkmrLobAVD8U14+w + ZOkebn0QAKZjC0vSxDUuzxU3kaLqatlQXAxR1sbyb3H3CVVkRncXCQyjSGAAkBsJDFUkMGCyrcT1Eww8 + QFzcgHFbTk4S128xsJu42M3FB8T9bQx9Q1zsgNw+JK5PoirWEFz8AGc/cf0IJDAAmCNbWJImrnGJzMlz + xE2mqDpEXAxR1sfE3R9U/U4W8pYImo0EhlEkMADIjQSGKhIYMBW/K6e3s7iYAeO2l7g+i4EfiIvbXK0v + V4qrA0MPEhc/IKdjxPVHDF0hq4mLH+BsIq4vYcnSXd36IABMxxaWpIlrnPYRN5miKrb820xcDFHGPeUm + cfcHVXuIiyG6gQSGUSQwAMiNBIYqEhgwFYnG0yOBAU0UL7T8QVyfxcAScbGbj9eLqwNDPxMXOyCn74vr + jxg6TFzsgJnE70XXn/puZ7c+CADTsYUlaeIap3hL+zRxEyqqjhQXQ5RxvLj7gqqfi4sfuoMEhlEkMADI + jQSGKhIYMNW+4voKSGBAM71QXH/FwLHi4jZfq8rfxNWFof8RFz8gl1+L64sYeqC42AEz+ay4/tR3JDAA + mBNbWJImrnHbXdyEiqob5c7iYoi8dhV3TzDqweJiiO4ggWEUCQwAciOBoYoEBky1rbi+giVLHyouZsC4 + rCEXi+uvGDz7uYu42C3EM8TVh6EzZQVx8QNy4C3xmV0kHFGL+ThAXJ/qOxIYAMyJLSxJE1cT/FjcpIqq + o8XFD/nEF2Uyouv5lrgYoltIYBhFAgOA3EhgqCKBAVOtIhz35rEDA5rmLeL6KgZybZfOs416ItHDxQ/I + 4TJx/RADHxcXN2A2jxTXp/qOBAYAc2ILS9LE1QQ7iZtUUXWzxNtFLobIg7cU6om+uZ24GKJbSGAYRQID + gNxIYKgigQEObzF6JDCgSTaSq8X1VSxZeo1EjFzsUthNXL0YOl8iKc7FD0jtWnH9EAN7i4sbMJutxfWp + viOBAcCc2MKSNHE1xTfFTayo+qq4+CG91eQCcfcBVXG2mIshuocEhlEkMADIjQSGKhIY4Jwkrr/0HUe8 + oUkOF9dPMfA2cXFL6Xvi6sbQy8XFDkhpOXH9D0MbiosdMJt4pu/6VN/d360PAsB0bGFJmriaIt7edhMr + Ru0oLoZI643i4o+qG2RLcTFE95DAMIoEBgC5kcBQRQIDnK+I6y99xw5+aIq7yo3i+ikGW8mX+F0Rz95i + B0XXBgyUuhfot+hjrv9h4GxxcQPqulJc3+qzbdz6IABMxxaWpImrSY4WN7mi6gfi4od0IsuXrS3r+bC4 + GKKbSGAYxcMtALmRwFBFAgOco8T1l74jgQFN8SVxfRQDLxMXtxw+La4NGDpQXOyAVDYV1/cw8BlxcQPq + ulhc3+qzzd36IABMxxaWpImrSeItbjLy63mYuBgiDba2rCf3GZ1oHhIYRpHAACA3EhiqSGCA80Fx/aXv + SGBAEzxAXP/EwPmysrjY5XAH4ez9mcULLTzrQE6bi+t7GCiZ1IVuit+Mrm/12fpufRAApmMLS9LE1TQf + FTfBoirOeHXxw8JtLSTS1PN2cTFEd5HAMIoEBgC5kcBQRQIDnEPE9Ze+20JcvICSfiquf2LgaeLiltO7 + xbUFQ+w2iZxIYJgZL+5hoX4jrm/12WpufRAApmMLS9LE1TSxhRaZ4PX8j7gYYmG+Li7eqLpcWLjtHxIY + RjEOAORGAkMVCQxwSGDweIMY47anuL6JgVhgWV5c7HKK3zD/ENcmDNwgsVOsix+wUCQwzGwTcXED6nqL + xBFzuJVbGwSAmdjCkjR5NdF7xX15QdUZMo4ful0WGb4u1hj1KnExRLeRwDCKBAYAuZHAUEUCAxwSGLxV + xcULKGGxnC2ub2LgUeJiV8JLxbUJQ58TFztgoe4hrs9hydKrxMUMwDy4NUEAqMMWluQmtQZYT64U9yUG + VfuIiyHmLpJBThMXZ1RdIDwM7ScSGEaRwAAgNxIYqkhggEMCw6jrxcUKKOV54vomBn4kLm6lrCTnimsb + hu4tLn7AQmwrrr9hydLTxcUMwDy4NUEAqMMWluQmtYb4X3FfYlB1jsRbDS6GmJt9xcUYo54jLoboPhIY + RpHAACA3EhiqSGCAc4S4/tJnl4iLFVDCGnKhuL6JgfuJi11J8VKMaxuGviMudsBCkMAwvePExQzAPLg1 + QQCowxaW5Ca1hogfu5eJ+yKDqmeLiyHqi90E/iouvqj6g5A0018kMIwigQFAbiQwVJHAAOeT4vpLn8X3 + dhcroIQ3ieuXGPiyuLiVtpycIq6NGHqouPgB80UCw/Q+KC5mAObBrQkCQB22sCQ3qTUIC2X1nC8ri4sh + 6nmduNhi1OPFxRD9wLw8igQGALmRwFBFAgOcr4rrL30Wi5IuVkBut5OrxfVLLFl6o9xNXOzG4cHi2omh + X0gke7j4AfNBAsP03iAuZgDmwa0JAkAdtrAkN6k1SCzKx+K8+zKDqlhUdDHE7DaQq8TFFVW/En609xsJ + DKNIYACQGwkMVSQwwPmJuP7SZ8eLixWQ24fE9UkMfExc3Mbpa+LaiqG9xMUOmA8SGKb3fHExAzAPbk0Q + AOqwhSW5Sa1hninuywyqLpY4dsPFEDPj4Up9u4iLIfqDBIZRJDAAyI0EhioSGOCcKa6/9NkR4mIF5HQX + iR0GXJ/EkqXXyibiYjdOWwv3bWZnC8dpIhUSGKa3t7iYAZgHtyYIAHXYwpLcpNYw8ePgLHFfaFAVxyC4 + GGJ6dxV+pNfzfXExRL+QwAC0AzszdQsJDFUkMMC5XFx/6bM3i4sVkNOx4vojBt4lLm5NEElPrs0Yeo64 + 2AFzRQLD9B4mLmYA5sGtCQJAHbawJDepNVCcue++0KAqHm7zJvDcfEVcLDFqibgYol9IYADagQSGbiGB + oYoEBkx1G3F9pe9YaENpO4rrixi4Qpr8zGYjuVpc2zFwgawqLn7AXJDAML1txMUMwDy4NUEAqMMWluQm + tQaKM/fj7H33pQZVbxcXQ4x6sLgYYtQXxcUQ/UMCA9AOJDB0CwkMVSQwYKp7iesrfbebuHgBufxYXF/E + wCvFxa1JYucW13YMvVpc7IC5IIFhek08ZgdoLbcmCAB12MKS3KTWUI8Q96UGVZEtfztxMcRQJMX8UlwM + URVHbGwlLo7oHxIYgHYggaFbSGCoIoEBU+0hrq/03d3FxQvI4THi+iEG/ipteHN/DblI3DVggN1PkQIJ + DNNjfAEJuTVBAKjDFpbkJrUGO1HcFxtUHSIufhh6irjYYdSR4mKIfiKBAWgHEhi6hQSGKhIYMNVbxPWV + vltTXLyA1BbL78X1Qww8U1zsmmg/cdeAoXeKix1QFwkM0yOBAUjIrQkCQB22sCQ3qTXY/cR9sUHVf2Qz + cTHEkqWrSDz4drFD1bVye3FxRD+RwAC0AwkM3UICQxUJDJjqG+L6Sp+dLy5WQA7PEdcPMXCmRJKHi10T + RVvPEnctGIhnJWxzj4UggWF6K4qLGYB5cGuCAFCHLSzJTWoN91VxX25Q9TFx8cOSpa8SFzOMeq+4GKK/ + SGAA2oEEhm4hgaGKBAZMdaG4vtJnx4uLFZDaasIYnNn/iItdk0Wb3bVg6AhxsQPqIIFhei5eAObJrQkC + QB22sCQ3qTXcPeVmcV9wMHSjbCkuhn22nrAIUE/EKeLl4oj+IoEBaAcSGLqF7y5VJDBgsnuJ6yd9d7C4 + eAGpvUFcH8TAT8XFrQ1+LO6aMBDP3e4qLnbAbEhgmJ6LV99wjDZy2tmtEwLAVLawJE1YbTQhbvJF1efE + xa/PPiAuVhgVD6JcDNFvJDAA7UACQ7eQwFBFAgMmY3c1r03n7aO91perxPVBDDxQXOza4L7irglDx4qL + HTAbEhi8K8XFq29IYEBOJDAAqMUWlqQJq41iZ4HrxU3AGIqdKuKNJBfDPrqz3CAuVqi6SNYQF0f0GwkM + QDuQwNAtJDBUkcCAyeLtZtdP+m5HcfECUuIFgZl9TVzc2uTz4q4NQzuIix0wExIYvPjd4+LVNyQwICcS + GADUYgtL0oTVVh8WNwGj6jhx8eujL4qLEUa9SFwMARIYgHYggaFbSGCoIoEBy9xNXB/pu5uEZGTkxosl + M4sXSu4hLnZtsoVwn2d2grjYATMhgcEjgWGABAbkRAIDgFpsYUmasNpqI7lW3CSMKt6+GWzb6GKDUefK + SuLiCJDAALQDCQzdQgJDFQkMWOZgcX2k784QFy8gpS+I638Y+IS4uLXR+8VdI4Z2FRc7YDokMHgkMAyQ + wICcSGAAUIstLEkTVpsdJG4SRtX3xcWvL5aTk8XFBqOeIi6OQCCBAWgHEhi6hQSGKhIYECKh/RpxfaTv + PiouZkAqsWW+63sYiJdtNhMXuzZaT/guMrNTJZ49ufgBDgkMHgkMAyQwICcSGADUYgtL0oTVZusIP6Lq + eYi4GPbBPuJiglHxttby4uIIBBIYgHYggaFb+L5bRQIDwuHi+gdISEZ+LKzM7L3i4tZmrxF3rRiKZ08u + doBDAoNHAsMAn7PIiQQGALXYwpI0YbXd68VNxKg6SVz8ui6OQogjEVxMMOpR4uIILEMCA9AOJDB0CwkM + VSQw4EES58u7/oElSzcVFzcghfjN6PodBuIz+7biYtdmq8pfxV0zBs6RFcXFD5iKBAaPBIYBEhiQEwkM + AGqxhSVpwmq7NeRCcZMxqh4jLoZd9nJxscCoH4uLITAZCQxAO5DA0C0kMFSRwNBvsTjP77/p/V5c3IAU + VpDfiut7GHiduNh1wdPEXTOGXiAudsBUJDB4JDAMkMCAnEhgAFCLLSxJE1YX7C9uMkbV6dKn4wHWlSvE + xQKjHiAujsBkJDAA7UACQ7eQwFBFAkN/RfLCWeL6BQa6uHU9muNZ4vodBv4usVOBi10XxPOkOHbSXTsG + IsFudXHxAyYjgcEjgWGABAbkRAIDgFpsYUmasLogjgmIB5luQkZVn87ke5+4GGDU18TFEJiKBAagHUhg + 6BYSGKpIYOin+wrbl8/uIeLiByxULMxfIK7fYeA54mLXJbuKu3YMvUFc7IDJSGDwSGAYIIEBOZHAAKAW + W1iSJqyueLq4CRlVf5TF4mLYJVvI9eJigKo4P/ie4uIITEUCA9AOJDB0CwkMVSQw9Mva8k65UVx/wNAl + Elv8uzgCCxVHI7h+h4GzpQ/PWsJ3xMUAA/G9bT1xsQOWIYHBI4FhgAQG5EQCA4BabGFJmrC6IrayO1Pc + pIyq2PbRxbBLPi/u2jHq0+JiCDgkMADtQAJDt5DAUEUCQz9sIK+Ry8T1A4w6TFwsgYWKxVg+i2b2OHGx + 66JtJF6EcHHAAMf5YDYkMHgkMAyQwICcSGAAUIstLEkTVpfsIW5SRtX5EsduuBh2wf3EXTdGxS4VdxQX + R8AhgQFoBxIYuoVFoyoSGLprE3mmfFluEHf/Mb0HiIsrsFCHiOtzGDhZlhMXu676pLhYYOBa2Uxc7IBA + AoNHAsMACQzIiQQGALXYwpI0YXVJ/GCMH45uYkZVVxc2og/8VNw1Y9Sh4uIITIcEBqAdSGDoFhIYqkhg + aJ/YVj2OgritbC73kEdIHAP4ZjlO/iTufqOes8TFHlioOwnHM87sweJi12W3l1ikd/HAwCfExQ4IJDB4 + JDAMkMCAnEhgAFCLLSxJE1bXPEzcxIyqi2QNcTFss73EXS9GXS23ExdHYDokMADtQAJDt5DAAGA2zPvI + 5XPi+hwGvikubn1wkLiYYOAm2Vpc7AASGDwSGAZIYEBOJDAAqMUWlqQJq4u+L25yRtVrxcWvreJYjHPE + XStGvUVcHIGZkMAAtAMLWd1CAgOAmVwltxE3fwALsb24PoeBm2UbcbHrg9hZ5zJxscFA7DDkYgeQwOCR + wDBAAgNyIoEBQC22sCRNWF20RNzkjKr4Uhg/OF0M2+jF4q4To+IhAw85MR8kMADtQAJDt5DAAGAm8Ra0 + mzuAheLlkJl9Wlzc+oTnMLO7v7jYod9IYPBIYBgggQE5kcAAoBZbWJImrK76srgJGlUHiotf20Qixj/E + XSNGvUxcHIHZkMAAtAMJDN1CAgOA6cSxcOuJmzuAhfh/4vocBq6XzcXFrk9iJ8w/iYsRBn4kLnboNxIY + PBIYBkhgQE4kMACoxRaWpAmrq+KcudjOz03SGIoHXuuLi2GbvEfc9WHU+bKKuDgCsyGBAWgHEhi6hQQG + ANPpSkI6mmV5+bW4PoeB94mLXR/tLS5GGNpdXOzQXyQweCQwDJDAgJxIYABQiy0sSRNWlx0lbpJG1SHi + 4tcWd5T/iLs2jHqmuDgCdZDAALQDCQzdQgIDAOfvsoa4eQNYiKeL63MYuErY+WRoOTlZXKwwcIZEYpCL + H/qJBAaPBIYBEhiQEwkMAGqxhSVpwuqyO0hs6+cmagxdK5uJi2EbfFbcdWHUmbJYXByBOkhgANqBBIZu + IYEBgPMEcXMGsBCryl/F9TkMvFFc7PpsJ3GxwtC+4mKHfiKBwSOBYYAEBuREAgOAWmxhSZqwuu5QcRM1 + qj4qLn5Nt4O464H3WHFxBOoigQFoBxIYuoUEBgBTHSduvgAW6tXi+hwGLhR2PvG+Ii5mGPizrCQudugf + Ehg8EhgGSGBATiQwAKjFFpakCavrNpSrxU3WGLpRthQXwyb7sbjrwajY0jG2dnRxBOoigQFoBxIYuoUE + BgCTxdER64ubL4CFWFf4zJnZC8TFDkuWbiXxbMnFDQMHiIsd+ocEBo8EhgESGJATCQwAarGFJWnC6oO3 + iZusURVHMbj4NVXsJuCuA95DxMURmAsSGIB2IIGhW1hMArBMLA7yvR65vFdcv8PAOcKRjDM7TFzsMHCJ + sIMHAgkMHgkMAyQwICcSGADUYgtL0oTVB2vL5eImbAzdLPcUF8OmiYcGfxB3HRj1bXFxBOaKBAagHUhg + 6BYSGAAs8yJx8wSwUJvLf8T1OwzsLS52GGIX1NktFRc79AsJDB4JDAMkMCAnEhgA1GILS9KE1Rec41hP + W85SjQd3rv3w7i0ujsBckcAAtAMJDN1CAgOAEG/HuzkCSGFCXL/DwC+FIxnr+V9xMcRAJHhwDBBIYPBI + YBgggQE5kcAAoBZbWJImrL5YVS4UN2mjakdxMWyKteRScW3HqGPExRGYDxIYgHYggaFbSGAAcLiweIpc + IuE9dmR0fQ8DDxMXO4yKIxJ4/jaz94uLHfqDBAaPBIYBEhiQEwkMAGqxhSVpwuqT54ubtFH1PXHxa4qD + xLUbo+KM3DuLiyMwHyQwAO1AAkO3kMAA9NtHhOQF5BTPAFzfw8B3xMUN03uuuFhi4HqJY1tc7NAPJDB4 + JDAMkMCAnEhgAFCLLSxJE1afrCTniJu4UbWzuBiO2x3kWnFtxqh4U8vFEZgvEhiAdiCBoVtIYAD6K85K + J3kBOe0qru9haDtxscP0FsuZ4uKJgU+Lix36gQQGjwSGARIYkBMJDABqsYUlacLqmyeLm7hRdZK4+I1b + /MBz7cWoSPTYSFwcgfkigQFoBxIYuoUEBqB/rpGniJsTgFSWl9PF9UEMfFZc7DC7R4uLKQbi2JZ7iYsd + uo8EBo8EhgESGJATCQwAarGFJWnC6pv4gf5rcZM3quLHpovhuNxHOJezvneKiyOwECQwAO1AAkO3kMAA + 9MvZwqIWSthXXB/EQGzzv4W42KGeH4qLLQa+Li5u6D4SGDwSGAZIYEBOJDAAqMUWlqQJq48eI27yRtVp + EgkfLobj8ANx7cSo+MK/trg4AgtBAgPQDiQwdAsJDEB/fFBWEzcXACmtIueJ64cY+IC42KG+HcTFFkM7 + iYsduo0EBo8EhgESGJATCQwAarGFJWnC6qufiZvAUbWPuPiVxtaDc/MacXEEFooEBqAdSGDoFhIYgO77 + nTxA3BwA5PAKcX0RA1fLBuJih7k5WlyMMRDPJ13c0G0kMHgkMAyQwICcSGAAUIstLEkTVl/tLG4CR1Vs + X7pYXAxLifrPEtc+jLpQVhUXS2ChSGAA2oEEhm4hgQHorkvlRTLu31zol3XkCnF9EgNvFhc7zN2dJI7j + cHHGwP+Iix26iwQGL+YKF6++IYEBOZHAAKAWW1iSJqw+O17cJI6qZ4iLXyn7iWsXvIiXiyOQAgkMQDuQ + wNAtJDAA3XOZxK5pa4gb90BO7xbXLzFwiTA203qfuFhjIHbhadIRrsiPBIbpuXj1DQkMyIkEBgC12MKS + NGH12b3FTeKoOl9WEhfD3NaUi8W1C6POEd7eQk4kMADtQAJDt5DAAHTHHyR2XGBxFOOymVwrrn9iYH9x + scP83Vb4PjOzcb88hLJIYJjeKuJi1ickMCAnEhgA1GILS9KE1XdfEDeRo+oAcfHL7UBx7YH3BHFxBFIh + gQFoBxIYuoUH/kC7xWLx5+Rhspy4cQ6U8ilx/RTAeMXLQyzc9gcJDNNbW1zM+oQEBuREAgOAWmxhSZqw + +u6ucqO4yRxDF8rq4mKYy6bCmyH1nSY8EEVuJDAA7UACQ7eQwAC0z7/lOHmysNsCmmIbuVlcnwUwfi8T + N3bRPSQwTO924mLWJyQwICcSGADUYgtL0oSFJUuPFDeZoyrOaHXxy+Uoce2A9whxcQRSIoEBaAcSGLqF + BAagHc6Q90h8L19Z3HgGxunb4vougGa4TNYSN37RLSQwTG9LcTHrExIYkBMJDABqsYUlacLC4AzI68RN + 6Bi6Qkpt48WbIXPzA3FxBFIjgWHUHSTmRqBJWDjrFhIYgHa4Ur4sL5S7iBvPwLg8XFy/BdAscZSqG8Po + FhIYpndfcTHrExIYkBMJDABqsYUlacLCwCHiJnRUvVVc/FL7nrj64e0oLo5AaiQwjIrFYhcrAEiFBAag + nf4kB0kkZ7uxDZQSRw2eKq6fAmiWq2UjcWMZ3UECw/R2FxezPiGBATmRwACgFltYkiYsDKwn8SPBTeoY + ihhFrFwMU3mkuLrhxVteLo5ADiQwjCKBAUBuJDAA7XeWvElYlMI4PFlcvwTQTB8SN5bRHSQwTO854mLW + JyQwICcSGADUYgtL0oSFoaXiJnVUxW4VLn4pLJbfiqsXo26SrcXFEsiBBIZRJDAAyI0EBqA7bpBj5MHi + xjuQ2kryZ3H9EUAzXS9bihvT6AYSGKZXavffJiOBATmRwACgFltYkiYsDN1GLhM3sWPoWrm9uBguVGTZ + ujrhfUJcHIFcSGAYRQIDgNxIYAC66STZTdy4B1J5mbj+B6DZPiduTKMbSGCY3lHiYtYnJDAgJxIYANRi + C0vShIWql4ub2FF1uLj4LcQacqG4+jDqOtlMXCyBXEhgGEUCA4DcSGAAuu2n8iBx4x9YiPie+g9x/Q5A + 820nbmyj/UhgmN7PxcWsT+IZeXyGY37uKa5vYYAEBgC12MKSNGGhalX5m7jJHUM3Surt7N4sri547xMX + RyAnEhhGxY8jFysASIUEBqAfJuR24uYBYD7eKa6vAWiHb4sb22g/Ehimd4W4mAF1rSyub2GABAYAtdjC + kjRhYRTHGNTzGXHxm4+N5d/i6sGoq2Q9cbEEciKBYRQJDAByI4EB6I94aP88WU7cfADUtanE8Y+unwFo + j4eKG+NoNxIYZraJuLgBdV0krm+BBAYANdnCkjRhYdRi+aO4CR5DN8s9xMVwro4UVwe8N4mLI5AbCQyj + SGAAkBsJDED/fEs2EDcnAHV8XFzfAtAuvxCS2rqHBIaZPUZc3IC6ThLXt0ACA4CabGFJmrDg7SNugkfV + ceLiNxdxLlUkQ7i/j1GXSJyF5mIJ5EYCwygSGADkRgID0E8XyP3EzQvATPiNDXTL48SNdbQXCQwze6u4 + uAF1fV5c3wIJDABqsoUlacKCF9nNp4mb5FG1RFwM6zpe3N+Fd4C4OAIlkMAwigQGALmRwAD01/XyFHFz + AzCdb4jrTwDa6SyJ3WLdeEc7kcAwsxPFxQ2o66Pi+hZIYABQky0sSRMWpvf/xE3yqPqOuPjVsau4vwnv + L7KSuFgCJZDAMIoEBgC5kcAA4BXi5gdgqjgv3/UhAO32HHFjHu10F3H3GQPXyariYgfU8S5xfQskMACo + yRaWpAkLM/uRuIkeVTuLi99Mlpdfi/t78J4qLpZAKSQwjCKBAUBuJDAACK8RN0cAy8ROkr8U138AtFsc + K8SCbndsLu4+Y2h3cbED6jhYXL8CCQwAarKFJWnCwsweKG6iR9XPxMVvJs8S97fg/UYi6cPFEiiFBIZR + JDAAyI0EBgDLvFTcPAGEfcT1GwDd8CpxYx/tQwLD7A4XFzugjo+J61cggQFATbawJE1YmB3nR9Yzl8zY + 1SSyx93fgfcYcbEESiKBYRQJDAByI4EBwDI3y+PEzRXotzhq8E/i+g2AbrhC+P3ZDSQwzO4SWVFc/IDZ + HCOuX4EEBgA12cKSNGFhdttKPChyEz6GTpPYstLFcKo3ivsb8H4qLo5AaSQwjOIBEoDcSGAAMNm/5V7i + 5gv01wHi+guAbnmnuDkA7bKuuPuLqkeJix8wmx+K61MggQFATbawJE1YqOdz4iZ8VD1BXPwm21CuFvfv + 4T1IXCyB0khgGEUCA4DcSGAAMNUfZA1xcwb6Zy25TFxfAdAt18rG4uYCtMfK4u4vqr4mLn7AbC4S16dA + AgOAmmxhSZqwUM+WcqO4SR9DZ8licTFc5qPi/i28OMLExREYBxIYRpHAACA3EhgAOPG7ys0Z6J+3iesj + ALqJ+b8bbhB3fzEUOyJvIS5+wHQ2EdefMEACA4BabGFJmrBQ3+HiJn1UPV1c/MLdhUSQ+uKL+jbiYgmM + AwkMo0hgAJAbCQwApvMwcfMG+iMe0scb2a5/AOimeK52F3FzAtrjcnH3F1VHiosfMJ2niOtLGCCBAUAt + trAkTViojwcD9ZwvK4mL4dfF/Rt4nxEXR2BcSGAYRQIDgNxIYAAwnbNlRXFzB/ohFnZc3wDQbceKmxPQ + Hn8Rd29RFQk7dxYXQ8A5WlxfwgAJDABqsYUlacLC3Lxb3MSPqv1lauzi7SD338K7XtgmDU1DAsMoEhgA + 5EYCA4CZvFjc3IHuY4dDoN92EDc3oB3OEHdfMYrjdVHXmnKNuH6EARIYANRiC0vShIW5WU94iDy7C2U1 + WRa35eU0cf8tvA/K5L4HNAEJDKNIYACQG989AcwkfnutIm7+QLd9TVyfANAP3xc3N6AdfiDuvsJ7rLg4 + ApO9VFz/wRAJDABqsYUlacLC3L1J3OSPqtfIspg97dYy1HO1bCST+x3QBCQwjCKBAUBuJDAAmM1+4uYP + dNeDxPUFAP2yi7g5As3HNvdzc6nwrBQzWV0isdf1HwyRwACgFltYkiYszN0acom4DwAMXS6xsLeq/PXW + MtRzoLi+B4wbCQyjSGAAkBsJDABmc56sIG4OQfcsJ78Q1xcA9MupEnOCmyvQbO8Xd08xvR/JSuLiCbxd + XL9BFQkMAGqxhSVpwsL8sIhXz1vkdVPKMLN/CAuiaCrmvlGMVwC5kcAAoI5HiptD0D2PF9cHAPTTE8TN + FWi214q7n5jZx4WkHUy1o9wors+gigQGALXYwpI0YWF+ItvzfHEfAhiKoxCumlKGmb1CXJ8DmoAEhlEk + MADIjQQGAHUcI24OQbesKOeI6wMA+inmhMXi5gw017PE3U/M7iNCEgOW2UTY/bk+EhgA1GILS9KEhfl7 + hrgPAWC+4stWHLnh+hvQBCQwjCKBAUBuJDAAqOM64XtJ971I3P0H0G8vEDdnoLkeIe5eop6jZWVxsUV/ + rC+/EddH4JHAAKAWW1iSJizMX2Q3/17cBwEwH88W19eApiCBYRQLBQByI4EBQF37iptH0A1ryiXi7j2A + frtQVhc3d6CZ7izuXqK+X8kW4uKL7ot7z9rM3JHAAKAWW1iSJiwszOPEfRAAc3WWsOUfmo4EhlEkMADI + jQQGAHV9Stw8gm54q7j7DgDh9eLmDjRTHE98k7h7ifr+LXEcL89U+2VPuVxcn8DMSGAAUIstLEkTFhYm + ztv6pbgPA2AuIhnG9TGgSUhgGEUCA4DcSGAAUFe8gcuZ0N20kcQijbvvABDiO+Ntxc0haKbzxN1LzN2Z + EovafA/qtk0kjg9xfQD1kMAAoBZbWJImLCzcruI+DIC6ThG+YKMNSGAYRQIDgNxIYAAwF/cQN5eg3Y4Q + d78BYLL3iptD0Ew/EHcfMX+/lWfJKuJijnbaWN4t14q776iPBAYAtdjCkjRhIY0TxX0gAHU8TFy/ApqG + BIZRJDAAyI0EhqrzJeZeNNuGsrncUx4ou8uT5dXyAfminC7XibvPmL+ni5tL0F53kxvF3W8AmCwW9zYT + N5egeT4q7j5i4eI31EfkAbK8uPij2eJYkHhxNHZcuF7cfcbckcAAoBZbWJImLKSxo7gPBGA23xPXp4Am + IoFhVCzSuFgBQCokMFT9RVyc0E4ryF1kb/mg/EZuFnfvUc8h4mKN9jpO3L0GAOfj4uYSNM/+4u4h0vq7 + HCaPlbXE3Qs0wzryJPmsXCHufmJhSGAAUIstLEkTFtLhoQLmY3tx/QloIhIYRpHAACA3EhiqSGDovtgi + Nr5z/EJcH8DMYjtqF1e0U+xg4u4zAEwndmzZWtycgmZ5sLh7iHxukl/KofJEiURadmgYj5Ukdmt7rnxM + zhQSmfMjgQFALbawJE1YSCfOGuVDFnPxBXF9CWgqEhhGkcAAIDcSGKpIYOiX+8u3xPUFeJeIiyXaZzn5 + mbj7DAAziZes3LyCZonnCe7+oayr5efyCYnjzmKnhh0kjkSLz2J371DP6rKV7CLPkIMk5qezheOxxoME + BgC12MKSNGEhrU+L+2AApoovaXcV14+ApiKBAeguzkxvLhIYqkhg6KdHyAXi+gRGrSwujmiXx4m7vwBQ + x/3EzS1olvPE3T80w/USvz9+KkdL7NzwVnmFPEceL7vKfWVb2UI2v1XsKhZJKss0eaeHFWVyW8O6suxa + 4rri+iK5eGfZQ+IIuGfJK+UdcrjEy3rfl98KR0A003ZunRAAprKFJWnCQlrxYR5fbNyHAzDZEeL6ENBk + JDAA3UUCQ3ORwFBFAkN/3U5iy1/XL1B1J3ExRHsslj+Iu78AUMcPxc0vaJYvibt/AJDDtm6dEACmsoUl + acJCeh8S9+EALHOtbCKu/wBNRgID0F0kMDQXCQxVJDD021ryG3F9A0MPFBc/tMcLxN1bAJiL3cXNMWiO + l4u7dwCQw9ZunRAAprKFJWnCQnobyTXiPiCA8G5xfQdoOhIYgO4igaG5SGCoIoEBsbvAVeL6Bwbi6AEX + O7TDGnKRuHsLAHNxhjR523oMjh5w9w4ActjQrRMCwFS2sCRNWMjjIHEfEEAsQsQZYq7fAE1HAgPQXSQw + NBcJDFUkMCDsL65/YIA5vd2WiruvADAfTxE316AZVhRehANQykpunRAAprKFJWnCQh5rCw+b4bxeXJ8B + 2oAEBqC7WOxqLr5TVpHAgLBYzhbXR7Bk6XPExQ3Nt6FcLe6+AsB8nCsriZtz0Aw/EHfvACClf7k1QgBw + bGFJmrSQz2vFfVCgvy6U1cX1F6ANSGAAuosEhuYigaGKBAYs8wxxfQSD72wuZmi+j4i7pwCwEAeIm3PQ + DK8Wd98AIKVz3BohADi2sCRNWsgnFqpjwdp9WKCfXiCurwBtQQID0F0kMDQXCQxVJDBgmdWE8eG9RlzM + 0Gx3lRvF3VMAWIhLZA1xcw/G757i7hsApPR9t0YIAI4tLEmTFvJ6kbgPC/TPOcKWfWg7EhiA7iKBoblY + oK0igQGTHSmun/TdUnHxQrN9Sdz9BIAU/lfc3INmOF/cfQOAVD7m1ggBwLGFJWnSQl6xYP1ncR8Y6Jcn + iesjQJuQwAB0FwkMzUUCQxUJDJhsL3H9pO9IYGif+4u7lwCQyr9kPXFzEMaPI4QA5PYGt0YIAI4tLEmT + FvJ7qrgPDPTHabK8uP4BtAkJDEB3kcDQXCQwVJHAgMnWlpvF9ZU+I4GhfX4i7l4CQErvFzcHYfweLu6e + AUAqj3NrhADg2MKSNGkhv1i4/p24Dw30wyPF9Q2gbUhgALqLBIbmIoGhigQGTBVHtbm+0mckMLTLHuLu + IwCkdr1sLm4uwnjF8+MLxN03AEhhS7dGCACOLSxJkxbK4IFEf/1QXJ8A2ogEBqC7SGBoLhIYqkhgwFRf + FNdX+owEhvZYLGeJu48AkMOnxM1HGL93i7tnALBQcYzQcm6NEAAcW1iSJi2UsZycJO7DA90WZ5m6PgG0 + EQkMQHeRwNBcJDBUkcCAqQ4U11f6jASG9nieuHsIALnE0Uv3FDcnYby2FXfPAGChfuzWBwFgOrawJE1c + KOeh4j480F1fEdcXgLYigQHoLhIYmosEhioSGDDV88X1lT4jgaEd1pALxd1DAMjp6+LmJYzfL8TdMwBY + iAPd+iAATMcWlqSJC2V9V9wHCLonMtrvLq4fAG1FAgPQXSQwNBcJDFUkMGAqjusbRQJDO7xR3P0DgBJ2 + Ejc3YbyeIu5+AcBCPNytDwLAdGxhSZq4UNYO4j5A0D2fFNcHgDYjgQHoLhIYmosEhioSGDDVg8T1lT4j + gaH5NpA4i9jdP4z6u2wkawPTWE/OFdd/4P1U3PyE8VpJ2J0HQEr/kdXc+iAATMcWlqSJC+V9SdwHCbrj + ermDuPsPtBkJDEB3kcDQXCQwVJHAgKk4L3oUCQzN90Fx9w4e31NQx57i+g+m9xhxscR4vUnc/QKA+fiW + WxsEgJnYwpI0eaG8reVGcR8m6IZDxN17oO1IYAC6i4WB5iKBoYoEBky1jbi+0mckMDTbneUGcfcOo06R + 5cXFEpjqRHH9CN7vhPHVPLGrCL8BAKTyHLc2CAAzsYUlafLCeBwl7sME7Xe1rC/uvgNtRwID0F0kMDQX + Dy+rSGDAVJuL6yt9RgJDsx0r7r7Bu7+4OAJO7Mpzs7i+BI/fAc0Un+XufgHAXMRn4gZubRAAZmILS9Lk + hfHYTOKYAfehgnbjYSG6jAQGoLt4cNlcJDBUkcCAqUhgGMVvkua6r7h7Bu9z4uIIzOQIcf0J3vmysrhY + YnxuI5eJu2cAUNc33bogAMzGFpakCQzj835xHypor/hhsaa4+w10AQkMQHeRwNBcJDBUkcCAqUhgGEUC + Q3P9SNw9w6hr5Pbi4gjM5HZylbh+Be9l4mKJ8XqluPsFAHU9zq0LAsBsbGFJmsAwPvGDKo4bcB8saKdY + 3HX3GugKEhiA7iKBoblIYKgigQFTkcAwigSGZnq0uPsFj36MhXi1uH4FL17IWUtcLDE+K8lZ4u4ZAMzm + IlnRrQsCwGxsYUmawDBebxX34YL2iS334oeFu89AV5DAAHQXCQzNRQJDFQkMmIoEhlEs/DbPYvmduPuF + UX+V1cTFEqgjjkQ4V1z/ghfPKF0sMV67iLtfADCbN7g1QQCowxaWpEkM47W2/EPcBwzahYUf9AEJDEB3 + 8TnWXCQwVJHAgKlIYBhFAkPzPFvcvYL3RHFxBOZiT3H9C17sEruhuFhivL4g7p4BwHTiKKW13ZogANRh + C0vSJIbxe5W4Dxm0R7xJs7y4+wt0CQkMQHeRwNBcJDBUkcCAqUhgGEUCQ7PETgJ/F3evMOpnspy4WAJz + daK4fgbvQ+LiiPHaSHgBDsBcHCR2TRAA6rCFJcUkhrFbVS4U90GDdthD3L0FuoYEBqC7SGBoLhIYqkhg + wFQkMIwigaFZ3iDuPmHUzbJEXByB+dhWol+5/oZR18uW4mKJ8XqcuHsGAFNFwtM6YtcEAaAOW1hSTGJo + hP3Efdig+X4u7p4CXUQCA9BdJDA0FwkMVSQwYCoSGEaRwNAc68mV4u4TRh0lLo7AQhwhrr/B+6y4OGL8 + PinungHAZC+SW+YNtyYIAHXYwpKWTWQYu8VyjrgPHDTbzuLuKdBFJDAA3UUCQ3ORwFBFAgOmIoFhFAkM + zXGouHuEUXH+/sbi4ggsxO0kzgJ3/Q6jYseK7cTFEuN1G+H5MYCZ/FZiremWecOtCQJAHbawpGUTGRrh + SeI+dNBc3xJ3L4GuIoEB6C4SGJqLBIYqEhgwFQkMo0hgaIYtJLZjd/cIo14rLo5ACq8W1+/gfVtcHDF+ + 95BI+HL3DUC/3Sjby3/nDLcmCAB12MKSJk9mGLvl5QxxHz5oHjLS0UckMADdRQJDc5HAUEUCA6YigWEU + CQzNcIy4+4NRf5ZVxMURSGFlOVdc/4P3EHGxxPjtJe6eAei3t0llvnBrggBQhy0saeqEhrF7tLgPHzTP + 58TdQ6DLSGAAuosEhuYigaGKBAZMRQLDKBIYxm8HcfcGXizGuTgCKe0prv/BO1mWExdLjN9bxd03AP0U + c/ZKUpkr3JogANRhC0uaOqGhEX4q7kMIzXGDbCnu/gFdRgID0F0kMDQXCQxVJDBgKhIYRpHAMH4/EHdv + MOpEcTEEcoj+5vohvMeJiyPGL5JLPi7uvgHol4tlUxmZK9yaIADUYQtLcpMaxu7B4j6I0BwfEXfvgK4j + gQHoLhIYmosEhioSGDAVCQyjSGAYr93F3ReMiqMZtxUXRyCH6G/R71x/xKizZLG4WGL8VpDjxN07AP1w + vUx75I9bEwSAOmxhSW5SQyMcL+4DCeN3jWwk7r4BXUcCA9BdJDA0FwkMVSQwYCoSGEaRwDA+y8tvxN0X + jDpcXByBnI4Q1x/hPVtcHNEMq8oJ4u4dgG6LhLx9xM0Nt3BrggBQhy0syU1qaITtxH0oYfzeLu6eAX1A + AgPQXSQwNBcJDFUkMGAqEhhGkcAwPs8Ud08w6krZQFwcgZxuJ1eJ65cY9TeJRXIXSzTDakISA9A/B4ib + E/7LrQkCQB22sCQ3qaExjhH3wYTxuULWFne/gD4ggQHoLhIYmosEhioSGDAVCQyjSGAYj1jgi4U+d08w + 6pXi4giU8Gpx/RLeq8TFEc0RSQzs6Av0x6zJC8GtCQJAHbawJDepoTHuIjeK+4DCePCDDX1HAgPQXSQw + NBcJDFUkMGAqEhhGkcAwHq8Vdz8w6g+ykrg4AiWsLOeK658YxQs97RDz6ufE3UMA3XCTxI5fbg4Y4dYE + AaAOW1iSm9TQKB8T90GF8i4QtsxD35HAAHQXCQzNRQJDFQkMmIoEhlEkMJS3njBf1/cYcXEEStpTXP+E + 9w5xcUSzLCdvEXcPAbRbHH/0KHFj33JrggBQhy0syU1qaJTN5FpxH1go67ni7hHQJyQwAN1FAkNzsSBW + RQIDpiKBYRQJDOUdLO5eYNR3xMUQGIcTxfVTjIrnkxuJiyOa50lynbh7CaB9zpGtxY33abk1QQCowxaW + 5CY1NA4PQsYvtrdcLO7+AH1CAgPQXSQwNBcJDFUkMGAqEhhGkcBQ1h3lenH3AlVxTObdxcURGIdt5WZx + /RWjPioujmim+8n54u4lgPY4WuZ1jI9bEwSAOmxhSW5SQ+PEVpT/EvfhhTL2FndvgL4hgQHoLhIYmosE + hioSGDAVCQyjSGAo6zPi7gNGfUhcDIFxOkJcf8WoSEK6i7g4opnWlS+Lu58Ami2OjNhX3Niuxa0JAkAd + trAkN6mhkeIBlPsQQ36/kjg/zt0XoG9IYAC6iwSG5iKBoYoEBkxFAsMoEhjKuY+4e4BRl0sspLk4AuN0 + O4lFItdvMeoL4uKI5ornmi+Uf4u7pwCaJ+baTcWN6drcmiAA1GELS3KTGhppTblM3IcZ8tpF3D0B+ogE + BqC7SGBoLhIYqkhgwFQkMIwigaGc74u7Bxh1gLgYAk3wanH9Ft724uKIZosjj74j7p4CaIY/ym7ixvCc + uTVBAKjDFpbkJjU01svEfaghnxPE3Qugr0hgALqLBIbmIoGhigQGTEUCwygSGMr4f+Lij1G/l8Xi4gg0 + wcpyrrj+i1GRvOXiiOaL3Rjit9/F4u4tgPH4qzxHkn5fcmuCAFCHLSzJTWporFXlfHEfcMhjibh7AfQV + CQxAd5HA0FwkMFSRwICpSGAYRQJDfsvLGeLij1GPEBdHoEn2FNd/4bFjabvdRt4h14q7vwDK+LPsL7H2 + 48bqgrg1QQCowxaW5CY1NNqzxX3QIb0virsHQJ+RwAB0FwkMzUUCQxUJDJiKBIZRJDDk91Rxsceob4iL + IdBEPxTXjzHqVxJv87s4oj3ie9RRcqO4+wwgj5Pk8ZJ1hyq3JggAddjCktykhkaLD7Q/iPvQQzrxpf1u + 4u4B0GckMADdRQJDc5HAUEUCA6YigWEUCQx5sTtifdfLXcXFEWiie8vN4vozRu0tLo5ony3lcIl5291r + AAt3uXxAthE3DpNza4IAUIctLMlNami8+HHgPgCRzpHiYg/0HQkMQHeRwNBcJDBUkcCAqUhgGEUCQ16v + FBd3jDpYXAyBJvu4uP6MUedI1reHUdzt5e1yibh7DmBu4piW2On5CbKKuHGXjVsTBIA6bGFJblJD48X2 + bKeJ+0DEwsWXis3ExR7oOxIYgO4igaG5SGCoIoEBU5HAMIoEhnzWFeblei6VtcXFEWiyDeVf4vo1Rj1f + XBzRbitLHJf0E3H3HcD0rpBjZB9ZQ9wYK8KtCQJAHbawJDepoRV2E/fhiIV7r7iYAyCBAegyEhiai4Wy + KhIYMBUJDKNIYMgnfi+6mGPU88TFEGiD14rr1xh1oawmLo7ohjvJG+RscX0A6Lub5JfyDnmgrCBuLBXn + 1gQBoA5bWJKb1NAaPxT3gYn5iwWC9cTFGwAJDECXkcDQXCQwVJHAgKlIYBhFAkMed5DrxMUcVb+Wxjy8 + B+Yhtvn+s7j+jVGvFxdHdM+9JO73yXKzuP4AdN0N8gt5jzxK1hI3XsbOrQkCQB22sCQ3qaE1HiDuAxTz + 90ZxsQYwQAID0F0kMDQXCQxVJDBgKhIYRpHAkMenxcUbox4iLoZAmzxeXP/GqPi+eltxcUR3xXErT5GP + yTni+gbQdrG7wu9lQvaXHSWOWHFjonHcmiAA1GELS3KTGlrla+I+WDF3F8lYz6QCWoAEBqC7SGBoLhIY + qkhgwFQkMIwigSG9bYU3Tev5krgYAm30I3H9HKPiTWQXQ/THpvIEOUi+K5eL6ytAE8X3vPPkO/I+eYbc + R1YV199bwa0JAkAdtrAkN6mhVSLbb20ksbq4GAMYYs4BumslceMe4xfbUbp71le3ERcn9Nfy4vpKn8XW + 5y5WmD++B9fHdwp0CWO/vjXFxRD9Fomm/0/ihZgPywnyVyEpEOMQR4GdJcfLR+W18jiJo1FanagwHbcm + CAB12MKS3KQGAAAAAAAAAACQwYoSyQ07yZMlFpI/JJ+XEyW27L9U3CI0MNUV8kc5Sb4uh0vsSPY8eZRs + L3HkieuLnebWBAGgDltYkpvUAAAAAAAAAAAAxmix3E7uKveVXWVvea68Ut4sh8hhcpR8Wb4pkQTxKzld + fidxDF2II4TjiL5wo7jFcORxkyyL/cWy7J7E/Yn79BOJHTqOk89J3M+4t2+XV8t+8iTZXR4od5dISohk + GNd3IG5NEADqsIUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAA + AAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAA + AAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAA + AAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAA + AAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAA + AAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAA + AAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAA + AAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAA + AAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAVC1a + srS0jeTB8ix5vRwqn5XvyIlyspw+xc/lBPmSfFzeLS+Vx8sSWVtcXQAAAGie28h95AnyKjlY4vvgN+Qn + MvW74E8lvid+U+K/i++Cr5QnyQOE74Kozf0m6pOJiQkgt7Vle9lbXinvlvjfV+VEOd2I8h/IsXK4vE1e + JLvLXWUlcXXNiRsTJdlCAAAAAABQ5R7qJbSh7CXvkXgY/S/5v0wukEiCeJs8Sm4rrk1dd5RMfejfBKdK + LDyEuE9fkI9JLFj8r7xA/kdiMeN24q6tSz4nLk599jVZRVy8Svm6uLaVFIt035Xj5JMSSV6R7LWfxBjZ + VtYR134M5BxfHxRXZw6xqOvagIGfSSRFutjl0JV+NQ6LZUeJhINIRj1X3He5hfqbHC8HysNlNXHt6YtS + 3zV2Fld/CZEU7do0H7fMKe73Ute4Rd2Ge624Be9cloprB7y15BEScfum/FX+L4Ob5HfyKdlftpHlxLVp + Wm5MlGQLAQAAAABA1SL/MHAh7iWxIH2KuIfLpdwssZvDUtlOXFu7ZkW5Rlw82uY6OU1iAfcV8jDpykJE + XMf14q6772LBycWshPXFtampLpcfyWHyPNlGVhB3bX1SYnxFX3F1p3aSuPox9GJxsUutS/2qlLVkXzlW + rhJ3zbnFPYvEyf2lZLJLE5T8rvErWV5cO3J7q7g2zddL3O+lrnGLug12X7lR3IJ2Lr8V1xYM3VMiYeGn + Uvr+THaxfFoeL6uIa2uFGxMl2UIAAAAAAFC1yD8MnKs15bkSDzDdw8AmOFNeKxuIu4YuiLcb3bV3xX8k + 3qyMxdrYetrFoA3iTUV3fX13o6whLmYl7CGuXW0Su9x8VZ4vm4q7zq7LPb7+KK7e1GLx8QZxbcDQ9uLi + l1pX+lVusYi9m8QuC/GZ7a51XG6S78tTJBI+Xfu7pPR3jaeJa0duPxDXnvm6r/u91DVuUbehYkH6LHEL + 17mtK65NfXZHiaSFP4mL2bhdKR+XJeLafws3JkqyhQAAAAAAoGqRfxhYV5w3HDsc/FPcQ8Amijf7j5St + xF1Tm8VOBe6au+jf8hHZQlwsmuwN4q6p734pLl6lxFE3rl1tFbvQxMLO02VlcdfcRbnH1yfE1ZvaQ8TV + j6GrJY4mcPFLrSv9KpdV5YXyJ3HX1zRx1EQcZxHfY931dEHp7xoR0+gHri25pN55LP7WYvd7qWvcom5D + vVvcQnUJjxbXpr6JIxoeKceLi1NT/UQeIyNHTLgxUZItBAAAAAAAVYv8A8HZxDblL5E2JS5MFW97f0w2 + EXeNbfQVcdfaZXEf4+zwdcXFpIliFwl3LX33XnHxKqXL2/VfIm+SNu9cUlfu8fVMcfWmFvfL1Y+huNcu + djl0pV+ltpIcIBeJu66mu0IikaGLSV7j+K4RSROuLbmk3nnsBPdbqYumLug21I5yk7jF6RLeJa5dfbG8 + 7CNxnIaLT1ucLA+U/16bGxMl2UIAAAAAAFC1yD8QnEmcs36KuAd/bRRbrr9IxnV2byrLyWXirrEPLpU9 + xcWmSSL5Z1xngTddHOHgYlZCX7brjzni5VLqrfXSSoyvu4irO7XviKsfQ6UWS7vUr1LaXdqy48Js4giP + XcRdZxuN67tGfKfeUFybcki989hb3G+lLpq8mNtQ4zw6YpmTxLWtD3aRM8TFpa3if7cVOyZKsoUAAAAA + AKBqkX8gOJ3YHvh6cQ/92u5HsrG4626Du4m7rr75kMQboS5GTbCduHZjvLtoPFRcm7rqN3J/cbFos9zj + 62Jx9aYWi49xPIJrA4Z2Ehe/1LrSr1KJBeovi7uWtvuwlD4GIYd7i7u+Ej4qrk05pO6Hu7rfSl0Ui7gN + N86jI5a5XlYT176u2kyOExePLrhIdndjoiRbCAAAAAAAqhb5B4JTxdvJnxH3sK9LYhEhzh13MWi654q7 + pj76oawlLk7jFlttuzb33W/FxauUPm7Xf5McKF3ajSH3+PqiuHpT215c/Ri6TlYRF7/UutKvUoidcv4h + 7jq6IhK82rgjxmTj/K4RR3vdQ1y7Uovdt1wb5iM+E9dwv5W6aMIvXjfFuI+OmOwh4trYNcvJC+RqcXHo + mjfLcm5slGALAQAAAABA1SL/QHCyWAg+UdzDvi6KHSYeLy4WTfYpcdfTV7+WJiYxfF5ce/su3np18Sql + z9v1x/y+nri4tE3u8fVScfWm9hJx9WModk1yscuhK/1qIVaUQ8S1v4uukLYmtIZxf9f4lrh2pbSVuLrn + 61fud1JXTfhF7CZowtERk71RXDu7ZAM5Xtz1d9kXZFU3PnKzhQAAAAAAoGqRfyi4TCwAnyruQV+XxVtY + TxcXk6Y6V9y19NlJUuoN3bouFNfWvttHXLxKYLv+JUv/LLEY5OLTJrnH1w7i6k3tWHH1Yyh2D3Gxy6Er + /Wq+1pbviWt7l0VC6+PExaTpmvBdY1dxbUvl2eLqna9D3O+krprwC9lN0ISjIyb7jrh2dsUD5QJx194H + J8hqbozkZAsBAAAAAEDVIv9QMKwkJ4h7yNcHkcTwGHGxaZqNxV0Dliz9uLiYjcMW4tqIQR92MSvhPuLa + 1DexFfc24mLUBrnHVyS5lDpuI44zcm3A0CPExS61LvWr+dhUfi+u7X3Qpu+CyzTlu0bshLW8uDam8Alx + 9c7XXu53UldN+MXscWvS0RHLxJEKi8W1t+2eIdeLu+4++Yas4MZJLrYQAAAAAABULfIPBcOR4h7w9ck1 + sq24+DTJE8S1HwNNWXx4mrj29d054uJVyovFtauPYtv0e4qLU9PlHl/xBrqrN7U4e9/Vj6E4Y38NcfFL + rSv9aj62lNidxbW7T2Inhp3ExaiJmvRdI3ZJcG1M4Y/i6pyvDd3vpK6a8Ava49S0oyMm215cm9vsreKu + ta8OduMkF1sIAAAAAACqFvmHgnuKe7jXR/GANI7ScHFqig+IazsG/iKxo4iLXUlHiGtf38VblC5epXxB + XLv66gK5o7hYNVnu8fW/4upN7Vni6sfQL8TFLofc/WqpuHrH7Q7yN3Ft7qN/yObiYtU0TfquEUdZ5Eg2 + 2lBcffP1R/cbqcsm/KL2ODXt6IjJXiquzW20nHxY3HX23ZPdWMnBFgIAAAAAgKpFow8F46zj2ErcPeDL + Ld5yu1xiwTkSB+L/jf//teL++1LGvcA6m9PEtRtD+4mLXUlniWtb3z1dXLxKuUhcu1KIrddPn8XvJOa6 + ODYg5kD3d0r7rZR6wz2V3OPrYeLqTY1Ep9m9R1zscuhKv5qLWByOnXFce0u6UiKJYtn3wXF9N13mZFlR + XMyapGnfNd4srp0LsZe4uubrE+43UpdN+MXtcdlJbha3qNwEXxTX7raJ5IWPiLvGcbhM/iJ/lL/Jv8T9 + d6X8UzZx4yU1WwgAAAAAAKoWjT4UfIu4h3up3SwnSdQXZ1nHG78riGtTuJ3cT54pR8l54v5uLg8R165x + u43EGc2uzSnE33aLrtOJBdtYaAiXyX/E/d3SzhAXv1LWF9eulCLm7p403Z3ExayE2CLdxTKFSEZYVVy9 + M1lPtpMny7sk5snYMt/VkdOXxLWviXKPr4j/6uLqTm0HiaQ0N1ZSiB023DWm8k9x9aa0i7jYpdalflVX + JC6dKq69OUWy6mfkGRJjYLoEqthNKT4z9pCDpHRbm7pjxjIlvmvM1b9lE3Htna/3iatrvp7lfiN12YRf + 4B6H1SQWsN2CclNcIq7tbfMBcddXwjlyqDxRtpY4MsS1cQXZQh4rsSvHmeL+Xi5fceMlNVsIAAAAAACq + FlUfCMZi+NXiHu6lEg/sD5O7ytT65+oBEskMJd5ajreklxfXjnHaTVx7U4mFNFfvXMRCRNzvXWV/iXuW + +uziOu4hrn0lPFZcm1K6j7i6Mb1YLHOxTOHn4uqcj3XlOfJLcXXl8lxx7Wma3OOr5JEFuX1Q3DWm8g5x + 9bZRLJK7a0ylaf1qOfmKuLbm8hP5H5kpgXU2W8vhcoO4OlKKpMxIfHPtaIIS3zXmI/VOZqeIq2e+7up+ + I3XZhF88HodDxC0kN81W4trfFq8Wd105XStxXMV9xLWprh3kGHF15LCzGzMp2UIAAAAAAFC1qPpAMOdi + XohtbbeXqfUuVLyN921xdaa0r7j6x+lAcW1N5VBx9aZwN/mAlFh0CC8R144S3iuuTalE4tFCFoD66khx + 8Uwhdk9wdS7UwyWOeHB1phb9qg3nvuceXweLq7eNYgcDd42pPFJcvW3Ut34VW/27duYQuzWlPj7j7lJi + R4Yvi6u/CXL32fmKXde2EdfmuYqk2JS7El3ifh913YRfKC6t6UdHTPZscdfQBrGbgbumnD4mG4lrz3xF + f4mdHFx9Kf3cjZmUbCEAAAAAAKhaVH0omDMJIN64j61tp9aZSrw5GFv7urpT+bq4usfpRHFtTWVvcfWm + FDsHxDnXrv6UPieu/hLi7GzXplRi7Lp6MbOzxcUzhceIqzOFxRIJEq7e1Jq8WLdM7vG1p7h622YtyXnk + UCxSri2u7jbqU7+KZIK4f66dqX1EVhHXjoVaTb4qrt6U4pgfV/+45e6zC/E9cW2eq0jic39/vr7kfh91 + 3YRfIC4px9ERfzBlqXxS3HU0XRzX8C9x15TD3+RB4tqSwrpysri6U8q6C4MtBAAAAAAAVYuGDwTjeISr + xD3cS+HRMrm+XFInMcQD/T/LNySOrHB1jkucBX2NuHanspG4ulOLLZkvFteGVH4lru7cYkEl5duCzhvF + 1Y3pbSAulqncVly9KT1Fci5IL/NgcfU3QYnxFX3F1d02uY8c+rW4etuoT/0q5qq/i2tjSvF9Ko6Rcm1I + aVWJ4zlcG1KZEFf3OJXoswv1KHFtn4vU3/Nf6n4fdd2EXxwuKfXRESfKPlPKUjpX3HU02crya3HXk8NP + ZD1xbUlpLTlDXBtS+awbN6nYQgAAAAAAULVo+EDwzrc+yMtlZZlcXy6xE8O3xLVhJnGMQRxx8SWJYxme + LPGGXTwQdvU0wY7iriWVP4mrN5fdxbUjlfPE1ZvbQ8W1J6WdxdWN6cXbzy6WKfxOXJ05vEhcG1I6QVzd + TZB7fMUuHa7eNnqbuGtM5cPi6m2jPvWrz4hrY2rPF1d/DpEUeZ24dqTwHymRpDYXJb5rLNSZEjsIufbX + 9V1xf3u+dnC/j7puwi8Ml5L66IjrJXYauNOkshw2Fnc9TXWwuOvI4auyqrh25HBnuUZcW1L4j6zrxk4K + thAAAAAAAFQtGj4QzP3gs+SbhneU68W141qJM8A/K2+SWMSMc5NXFPe3muyV4q4xlaPE1ZvTz8W1JYV/ + iqszt+hnrj2pRF9vcqJNU8X58y6eKRwmrs5cviCuHSktEVf3uOUeXx8TV28b/VDcNabyRHH1tlFf+tUu + 4tqXWiTPuPpzyjnHh/3E1TsuuftsKgtJZInkh6vF/d35iL+12P0+6roJvyhcQo6jI94uy/7+ZbeW5RA7 + PEy+libbQW4Sdx2pfV9WEteOnF4nrj2pPMWNnRRsIQAAAAAAqFo0fCj4OHEP91J5jkyuL7dYQDxJYhE+ + FvrjCIs7SRyV4f77NvqKuFin8mxx9eb0VnFtSeFycXXm9h1x7Ukl+rmrFzPLucV4HO3g6sxlE0m5qON8 + VFzd45Z7fD1dXL1tE0cORQKfu8ZUbi+u7jbqQ7+KxM3Yecq1L6WfyAri2pBTJLPGsRWuTSl8W1y945K7 + z6ZyidxG3DXMZntxf3O+vud+G/XBhF8QLiH10RF/lkiKWPb3jxf336XwQZl8LU21vJwm7hpS+73EkQ6u + HbnFff+HuHalMOHGTgq2EAAAAAAAVC0aPhTMncBwlbDNfTpxVMY/xMU6la3E1Z3TAeLaksIfxdWZUyza + 5F5Yfpe4ujG91SXnWeGbi6s3p9xvG18pcba8q3tcSoyv2Ire1d029xN3famM64ieHPrSr+JNeNe2lOK7 + XyQSuPpLOFlcu1KIIypWEVdvaan7bByr5spTebu465jNi8X9vfla6n4b9cGEXxDOLfXREeGRMrmOA8X9 + dymcIZPraqpniGt/anGEw1bi2lDKu8W1LYUfubGTgi0EAAAAAABVi4YPBXe99WFebp+QbWVy3Zi7rcXF + N5VLxdWbW84dGH4grs6cUr8t6DxGXN2Y3sPFxTKFv4mrM7ctxLUnpd3F1T0uucfXReLqbaNXibvGVD4j + rt426kO/imSkC8W1L6WXiau/lJzfKcIDxdVbWuo++0bJuXtF7Aazmbhrmckx4v7efD3c/Tbqgwm/GJxT + jqMjjpWp9TxG3H+bQiRfrC1T62ySOMrhfHHtT+0F4tpQ0n3EtW2u/iVnSuzgcYS8Ue7sxk4KthAAAAAA + AFQtGj4UjLcB3cO9XM6QOBP5/hLbGE9uC2b3PHFxTeXL4urNLbaadu1J4VBxdeb0EnFtSem24urG9JaK + i2UKR4urs4TTxLUplXGMoZnkHl9fEFdvG31N3DWmsp+4etuoD/2qxO4Lf5A4usTVX8qe4tqWSsTR1Vta + 6j4buwh9fEpZahPirmUmfxH3t+YjdmFaw/026oMJvxic06HiFo7nKxacN5Wp9Wwk7r9PZeqOD02zn7h2 + p3ayxFEVrg0lLSeXimvjMjdIHDXyI/mMvEOeL7vLvWQdN0ZysoUAAAAAAKBq0fCh4PLyT3EP+XK7RuLt + +ANlD5nPW1l982lxsUxlHG9N5t7ifB9x9eZ0rLi2pPI7cfViZt8TF88UXiiuzhIOEtemVCLxzNU7LrnH + V2xX7uptmzhy6HJx15jKPcTV3UZd71fRHyK5wLUtpb3E1V/SPcW1LZVDxNVbWso+G9/Jo49sKP+6tSyX + 2DnCXY+zkbi/MV+nuN9FfTHhF4NzeYi4heWFeKm4usIF4v5NCgeJq7MJYjE/9S4X07mfuDaMw5FyinxJ + 3i8vl71lR9lYRhIt3JgoyRYCAAAAAICqRdWHg18U95BvHGKxJRYZ3yNPlrtLnPE7tc199WdxcUtlibh6 + c1lTYjHetSWFm2Q9cXXnFFuFu/akcpi4ejG9xZLzfPttxNVbwuPEtSmVeGN1ZXF1j0Pu8XUfcfW2TXx+ + uutLJT6vIwnS1d1GXe9Xu4hrV0pnShP6RHzuu/al8i1x9ZaWss+eIsv+7mtvLcvlhzL5OmbyWHF/Y77e + 534X9cXUBd2M1pB4+90tgs/X6bJYXH3hOHH/LoWfiKuzCXYT1+bUviqu/tZwY6IkWwgAAAAAAKoWVR8O + xtty7iFfU8SZuSfLh2VfuYtMvYY+2ERcfFL5t8Qir6s7h7XkBHFtSeW74urO6c7i2pLS3+X0homt6lcR + F5Mm2EFcLFOIXWzGuWh3N3HtSune4uouLff4iiSXriTNxfEO7hpT+bq4etuoD/0qjrlxbUspEk9d3aXF + EWWufanEZ56rt6TUffZwWfa347M8d8JsJCZMvp7pvFPcv5+vPd3vor5wi7qZfEjcIvh83SzxZr2ra5nX + i/u3KfxHVhFX77h9XlybU9tJXP2t4cZESbYQAAAAAABULao+HIxF6/PFPehrqsvkm/Ia2VH6sEtDHIXg + YpHK98XVm0Ps9HC2uHakNI6trJ8hri19EG/4upg0wUvFtTmFmItcnaWsLq5dKdVdbMot9/j6jrh62yjO + mnfXmEp8/rp626jr/WoNybkDTbhEVhJX/zi4NqZyjrg6S0rdZyPhafLff4K4/y6VOM4kEk0m1+nEbg3u + 38/XBu53UV+4Rd0Mchwdcbi4uibbVdy/TeVB4uodp7XkWnHtTelUcfW3ihsTJdlCAAAAAABQtWj0AWHs + bOAe9LXFlRJvg8YZ03cSd41t90Fx157KUnH1phJnKz9QjpGbxbUhpVhgKLmjxDJHimtP18U9XVtcTJog + 51E5sd22q7Ok2KnGtS2V/cXVW1ru8fVGcfW20V/EXWMqDxBXbxt1vV/tKa5dKb1LXN3jkDup60Jx9ZaU + us/GLkWT/358Z/uJuP82lQNkcp1TxXe42B3M/dv5ONv9JuoTt6ibWI6jIy6RdcTVN9m64v59Kq8TV+84 + 7SOurantL67+VnFjoiRbCAAAAAAAqhaNPiSMB5U/EPfAr41+K2+T7cRdbxvFlsXuWlN5uLh65yP600YS + C1zxVt9R8ldx9eYSbye6tuVWYmeJJoqzz108muJice1OYSdxdZZ0ubi2pZI7wamu3OPrIeLqbZtNxV1f + KtfJyuLqbqOu96uPiWtXSvcUV/c4rC+ujanEsUGu3pJS9tkbxI3n7SVnwuk/ZKbExzi6yP27+TrS/Sbq + E7eom1jqoyPCvuLqcv4o7m+kcLy4Osfp0+LamtJNsoG4+lvFjYmSbCEAAAAAAKha5B8UbiwXiXvo12aR + zBBvD68p7rrbYC25Sdz1pRIL0JEkMV9/knjjN473yN3W2Zwqy4uLZU63E9eePjhCXEya4K7i2pzCfyTO + C3f1lhQLQa59qTTh7erc4ysW8VYTV3fb5D5y6Mfi6m2jDcRdYypN6FfnimtbKnEcgKt3XO4hrp2pjDuB + IfVc+Ctx9YRIQHX/JpX3iKs3PF/cv5mvZ7jfRH3iFnUTynF0xA9kOXH1OUeL+zspXCkriKt3XC4U19aU + fiyu7tZxY6IkWwgAAAAAAKoW+QeFIbaQ/Ze4B39tFw+c4y3iSAZw195ku4m7Joy6UeKtQRfH3B4nrk19 + 8ExxMWmCZ4lrcwo/FVdnabnn7UPE1VtS7vF1krh62+hD4q4xlbeLq7eNut6vYjck166UmnR8RMj9nek8 + cfWWkrrPxnzh6gmR3Hy1uH+XQiQB3lFc3Z8S92/m687uN1GfuEXdRHIcHXG93E1cfdN5ubi/lcp24uod + hy3EtTG1V4mrv657yekt8Cu5uxs3qdhCAAAAAABQtcg/KFzmgXKluId/XXCJxIJmHHPgrr+J4jgMdy0Y + 9QZxMSzhfeLa1Ad3ExeTJviEuDancJC4OktaUVzbUprpLdlSco+vJlxjKmeIu8ZU/p+4etuo6/3qUeLa + lVIkDLi6xyV23XLtTOU34uotJXWffZK4epZ5k7h/l8rnxdUbO3u4/34+Yoc5+5uoTyb8AnMKOY6OeJu4 + umbyIHF/K5UDxNU7Dk8U18bUthZXf10RM/d3m+h9btykYgsBAAAAAEBVPMSbxb0kjgNwDwG74tuyobjr + b5ofirsGVH1RxnF0xDKniGtX18XxBU1OCPqjuHansLu4OkuKt1dd21KK3Wtc3SXlHl97iKu3bWKXoZzn + 1sffbuNORtPper96rbh2pRK7Hq0hru5xOUxcW1M5QVy9paTus3cSV88yq8r54v5tKveTyXWuI+6/m69j + xf4m6pMJv8C8UDmOjviTrCquvpmsLjeJ+5spfF5cvePwdnFtTOkv4uqei5zHeqS2lxs3qdhCAAAAAABQ + FQ/xalhXviTuQWBX/F3i2Ax3/U2xklwrrv0YigWFcZ4zHgs4sZDj2tZ13xQXkyaIJCXX5hRiITcWWVy9 + JT1EXPtSOkBc3aWUGF/ri6u7bWJ3BHd9qcTuDq7eNupDv/q4uHalcrq4esfpZHFtTSWONnD1lpC6z14s + rp6pniju36cSxzFNToTcRdx/N18vFvubqE8m/ALzQuQ4OiL8P3H11fE7cX8zhYvE1TkOXxLXxpTif67u + uThf3N9uovXduEnFFgIAAAAAgKp4iDcHe0nuN6/GKc72fai4a2+CeCvNtRtDx8s4kxfCw8W1rQ/GeWzH + bGL+cm1OYdzbiC/zMnHtS+kJ4uouJff4OktcvW30dnHXmMpM5+W3TR/6VST3ubalMiGu3nGJ7wK5k1Le + LK7uElL32ePE1TNVJBf8TNzfSGVvWVbf628tS+U+Yn8T9cmEX2BeiI+KWwheiC+Iq6uuT4j7u6lsKa7e + 0k4V176U9hNXd12bivu7TfQ7N2ZSsoUAAAAAAKAqHuLNUWwf+xKJHQvcg8G2u0ruLe7ax+1V4tqMgTgL + egVxsSsptth37euDJicAHSKuzSl8RFydpX1GXPtSuq+4ukvJPb4+Kq7eNvqRuGtMZR9x9bZRH/rV78W1 + LZU4osLVOy4lkgnHmdCVus++Wlw9zhJxfyOVcyV2HYu6vnxrWQqRqHzL90T3m6hPJvwi83ztKm4heCGu + kk3E1VfXC8X97VSeIa7e0i4V176U7iGu7rqeIO7vNtFhbsykZAsBAAAAAEBVPMSbp3iwGIsX35WbxD0o + bKvz5LbirnucviquvX0XyTSPFhezcfieuHZ2XcwDTTv/fLJfimt3Ck8SV2dJ8VZsicSy24irv5Tc4+up + 4uptm/iMvk7cNaayqbi626gP/SqOCHBtSyWOFnD1jkskNbp2pnQ3cXWXkLrPPkhcPdOJHTfc30nl5RL1 + XDCpbKG+I7e03/0m6pMJv8g8H7eRHEcDvERcfXOxg7i/ncrHxdVb2s3i2pfKDbKiuLrrer+4v91E+7gx + k5ItBAAAAAAAVcse5C3QBvJ8OVFuEPfQsG3Gea6xE4uT/xDX1r76j7xX1hIXs3FYLPGGn2tv150mLiZN + kPt8+83E1VvStuLaltKfxdVdSonxdSdxdbfN/cVdXyp/EVdvG/WlX/1TXNtS2VlcveMSb/G7dqZyhSwv + ru7cUvfZ+O4eO6y5uqYTCUzXiPt7KUR/veeUsoV6k9zSfvebqE8m/CLzfBwhbhF4IU6TxeLqm4uVJRbf + XR0p/FFcvSWtLa5tKZ0lru65+IW4v91EG7oxk5ItBAAAAAAAVcse5CUUb+fuIYfLOeIeILbFDuKucRzu + Lq6NfXStvF+asGg8Ve5tlZvsw+Ji0gS7imtzCueLq7O0t4trX0rjPuM+9/iKHSxcvW0U28G7a0xl3H0h + pfisd9eYSlP6lWtbSncVV+84xFFgro0pfV1c3SWkngt/Ia6e2eQ+euW3pmwh/nvMlftN1CcTfpF5rnIc + HRG7CdxXXH3zcYq4elLZUFy9pawvrl0pHSeu7rpWkxvF/e2mOduNl9RsIQAAAAAAqFr2IC+jjWRvOVRi + C/c27dBwnLhrGof9xLWxT/4q8bB8PXExaoKXiWt7Sqc31P+Ii0kTvEVcLFP4jLg6S4q3gCORwrUvpeeJ + q7+U3OPrGHH1ttHXxF1jKvGZ5Opto770q9i1yLUvlc3F1TsO8Z3TtTGlA8TVXULqPhvxcvXMZjX5m7i/ + 2TSxC1O095a2u99EfTLhF5rnItfRER8RV998HSaunlT2EldvKZuLa1dKscuGq7uuB4v7u030MTdeUrOF + AAAAAACgatmDvIJWlu3lOXKYnCK5H6rPVzzs3FDcdZSW+6zhpootkmPx59GygrjYNMmXxF1HKr8XVy9m + doK4eKbQhIXcR4lrW2q3F1d/KbnH1/7i6m2bSGi5XNw1phK7Arm626gv/Sr3MVTriKu3tPieeZm4NqY0 + zmNBUvfZJ4qrp44ni/ubTXOy/Lfd7jdRn0z4hea5yHF0RIhjGU5P6O/i6knl/eLiU8p64tqV0nvE1V3X + a8X93SZ6ihsvqdlCAAAAAABQNflh3hitKLHd77KkhlPlJnEPIEt7trg2lxbnjbv2dc118jN5t8SibCxE + uHg01SXiriuVj4qrF9OLs8JzntN9D3H1lvRjcW1LKXbQcXWXlHt8bSeu3raJPumuL5VIjlhOXN1t1Jd+ + lft7xNri6i3tmeLal9KvxNVdSuo+u5DdM2IuiCMo3N9tkvfIf9vtfhP1yYRfaK4rx9ERbXWquBiVsqq4 + dqW0VFzddX1d3N9tok3deEnNFgIAAAAAgKrJD/MaZg3ZRf5Xvi/j2qXhU+LaV9Km4tqWShzr4Y4ESOkk + OVG+IrGjwpHyLnmVPF0eJneQeHPYxaAN4vxvF9+UniqubkzvvuJimUIs5I67z8aZ3q5tqb1UXP2l5B5f + V0kbdnmpI/eRQ3E8hau3jXL3qyulKf0qkkNdG1PZTFy9pf1aXPtSGud8mLrPxhEQrp65uL+4v90ke8h/ + 2+x+E/XJhF9oriPX0RFtdZNETFysSok2uLalspAdGJaTf4j7u01zrhsrOdhCAAAAAABQNflhXsOtLnGM + QLyBHgtN7uFkDvEg3LWnpH3EtS2VeHvb1Yu5eZa4+KZ0R3F1Y3ovFxfLFL4urs5S4s3X2BnBtS2lSCBb + T1wbSsk9vo4XV28bfUbcNabyanH1tlGf+tXnxbUxldhJy9Vb0m7i2pZS7BS1rrj6S0jdZ48WV89cfU7c + 32+K9eW/7XW/ifpkwi8215Hr6Ig2201crErJfUzGZ8XVW8edxf3NJjrKjZUcbCEAAAAAAKia/DCvRVaT + l8nV4h5SpnSFuDaU9CFxbUvlHeLqxdx8Qlx8U7lAXL2Y2ZfFxTOF14irs5QSSTOhCTvR5B5frxdXbxud + J+4aU4m3rV29bdSnfvVmcW1M5bHi6i2l1FEGHxdXfymp++wLxdUzV7EDx7Xi6hi3s6TSXvebqE8m/GLz + bDg6wjtQXLxKOVFcu1L5tbh664gdGI6S0xP5p7g2pvB0N1ZysIUAAAAAAKBq6gO9STaQOEf7ERLb1sdC + 3fsltv+PN/b/IBuJ+7elbC/xJpx7WJmSq7ukM8S1K5X/J65ezM0fxcU3lVRvSfbNpeLimcIDxNVZwoby + T3HtSu3u4tpQUu7x9WBx9bbN7cVdXyrxmbuSuLrbqE/96gni2pjKW8TVW0okULh2pXSz3E1c/aWk7rPb + iKtnPqIPuDrG7QiptNX9JuqTCb/YPJO1haMjvB+Ki1kph4trVyo3y7ri6i5pDblMXBtT2NyNlRxsIQAA + AAAAfbZoydIVZRNZInEcw/NkqRwmX5WTJc7CvV7cA8CpYheEygPBMThUXNtScvWWspbEA3PXrhTib0cd + rm7UF4vJLr4pvUhc3ZjeVuJimUIs5K4srt7c4k3jb4hrV2pfFNeGknKPr/jMW1Vc3W3zRHHXmMqPxNXb + Rn3rV5uKa2cqPxRXbwkxF+dORglxTIKrv5TUfTaS4JYXV9d8xHFvfxdX1zg9TSptdb+T+mTCLxDPJN6i + d4u+mJi4TlYSF7cS9hfXrpSeJ67ukt4qrm0p/NWNk1xsIQAAAAAAfbNo8GAyFqAuEfdQbyHOl3G/ibmP + uLalcpW4ekuJ3RFcu1KJ3R1cvZibx4uLb0op35Lsi+eIi2UK41zIfZu4NqV2g9xZXBtKyj2+fi6u3jb6 + sLhrTOXt4uptoz72q9g9y7U1hZskFthdvbnFUViuTSnFfLiluPpLSd1nvymunoV4uri6xmkLqbTT/Wbq + kwm/QDyd3cUt+mLoAeJiV8J24tqU0pkSx0G4+kvYSiJRxLUthQk3TnKxhQAAAAAA9M2iwcNW9zAvlXGf + AZ97gf/P4uotJRaLXLtS+ZC4ejE3cbyKi28qV0rKtyT74pPi4pnCOBZyY+eF3OfYT3awuHaUlnt8vUtc + vW30a3HXmMpu4uptoz72q2iTa2sq4zhGIo46y7lT1TLvFld/San77GvF1bMQ8V3ll+LqG4cLZaSd7jdT + n0z4RWInjo64QNyiL4ZeIy5+JSwvl4hrV0rPFFd/bivLKeLalMqz3TjJxRYCAAAAANBHi/Juq/sfua+M + PBws5A3i2pXKt8TVW0q85e3alUrsYOHqxdz8Slx8Uxl3P2yrP4mLZwqRPOXqzGVt+YK4tuRwnqwhri2l + 5R5fjxFXb9tEH8m5kBtv2HfpyKE+9qt7iWtrKv+SjcXVnUNcTyT4ubakFDuOrSmuDSWl7rMPFFfPQsXf + dfWNw+dlpI3u91KfTPiFYoejI+r5urj4lXKEuHaldLlsJq7+XGLXh0+Ja09KW7pxkostBAAAAACgjxYt + WXqIuId6qVwq28rIA8LMYnHtb+LalEq87ezqLiGO54hz9l27UtlEXN2oL/phLOy5+KaS4y3JrttIXCxT + iEXiUgu58TbrvhJvkbq25BJvNbv2lFZifN1WXN1t80hx15fK6eLqbaM+96uTxbU3le/KCuLqTuneEt8/ + XRtS21VcG0pK3Wfj++Uq4upK4Rhx9Za2v4y0z/1e6pMJv1g8FUdH1HeFxE4ILo4l7CSuXamdKmuJa0Nq + Ec+PiGtHShe5MZKTLQQAAAAAoI8WDc7Odw/1Uoq37p4gIw8JM1lZviGuLSk9SFz9JdxfXJtSGffxGF0R + CxsuvintJK5uTG9vcbFM4Qxxdaa0ujxTfieuDTm9T1ybxiH3+DpTXL1t9A5x15jKB8XV20a5+1WMW1dv + EzxeXJtT+oysKK7+FJ4k/xZXd2pN6fep++xPxNWTyuaSOwm3ju1kpH3u91KfTPgF48k4OmLu7iUuliXE + TgW/Edeu1H4m64lrRyqRJPFVcfWndrQbIznZQgAAAAAA+mrRkqU/FPdgL7WvytYy8rAwobtL7q2fw18k + zpx3bSjh1eLalcqnxdWLuYkzv118U4ljWnK+JdlVh4qLZwofElfnQt1Oni6x5fVV4urO7SSJBDHXvnHI + Pb4OE1dvG/1Y3DWm0qUjh/rcr2JXl9hNw7U7pTgC607i2jBfm0nJo3Tiu2ZT5sPUffYgcfWklDupajbx + OWp3A3G/lfpkwi8aT8bREXP3QnGxLOVp4tqVw/nyCHHtWKg95a/i6s1hPzdGcrKFAAAAAAD01aIlSx8l + 7uFeDrG9euyOEG9Ax1vEIw8O5ym2Cz5KbhRXb2pLxbWjlK+Ja1cqzxVXL+bmBHHxTSX3W5Jddaq4eKaw + kIXcOBomFuF2lD3ljXKsnCOurpL+LnH0hmv3uOQeX08RV2/bxCIrRw7V1/d+9TBx7U7tWokdXRaayBDH + lH1UrhdXTw6XyB3EtWccUvfZOHLG1ZPSmnKRuPpLOF5cu+xvpT6Z8AvHy+Q6OuJfcvoYXS6uXakcLS6e + pawgvxPXtlxOlEfJiuLaVNfKsrecJK6enLZyYyQnWwgAAAAAQJ8tGpxL7B7w5RRvj58o8RbWU+WBsrGM + PEycIv6b+G/jbeSPyB/F/f1crpT1xLWthNj54XJxbUvlbuLqRn2xRfY14uKbSvSDeFu2bey504XcRnKe + b3+2uGt24qiW2M3lCvmnuL/XBDHnxXFDLp7jUmJ8xTbnru62eYC460ulS0cOLRb61ZKlE+LansvJcqBE + Qm0kNEx3xEQked1LIlEsdtKJ+dP9vZwiGahJRzelngsj0XhtcXWlFkchuTaU8AZxbbK/k/pkwi8ih5xH + R8QOAa7OUt4srl2pRNxcvSU9TFzbcrtUIoHjBfIg2UDiWAvXxrCu7CwvkmPkCnF/N7do93JujORkCwEA + AAAA6LNFS5beQ24Q95BvHGIx70KJhZFIUDj/1rImnJn7Uhl54FlQ3CvXrlQuk3Eej9EV8Ra9iy+WLP2b + uJiVsJu4NsGLhbEmLdYtk3t8jbOPpvYacdeYSpeOHKJfDawj0VZ3DaXELgeRoBA70ERbIpHK/XclRfLb + 48TFbFxS99lfi6snhziyJOeOSDPZWVyb7O+kPpnwi8oh19ER8ab+TAvaJeTaWWKyO4qru6QjxbWttBvk + 7/IX+b2cI5fIdeL++3E41o2P3GwhAAAAAAB9t2jJ0teLe8iHoZ+LPTO3oP3EtS2Vr4irF3PzCnHxxZKl + R4uLWQnxlq9rE0bFgmETkxdC7vE1zj6a2tfFXWMqzxNXbxvRr4ZiYbzksQxNF8kLTxYXq3FK3Wc/LK6e + XB4krh05Rb9eTVx77G+kPpnwC9+5Fvivl63F1VnShuLal9JTxdVd0hpylrj2oepFbnzkZgsBAAAAAOi7 + RYM3ob4h7mEfliy9VOJ8+pGHnYV9Rlz7UomH4a5ezM1x4uKLJUtfJC5mJcSxNa5NqIodcLYXF8MmyD2+ + Xiiu3raJz/XcRw5tLa7uNqJfVe0r7jr6JpIXniUuRuOWus/G8Ryunpy+JK4tuZwkrh23cL+R+mRidNH7 + tnKhuEXehXqbuDrH4XxxbUzlCHH1lraVXCmujRi6pxsfudlCAAAAAABwSxLDmnKauAd+fRbbqN9fRh50 + jsF54tqYSrx16epFfXEERyS8uPhiydJ7iotbbnF+eu7z7bsgPgOakKw1nRLjaxtxdbdN7iOH/iFdOXKI + fuW9TNy19EW8rb+XuNiMW44+u6m4unK6k/xHXHtyeJe4dtzC/T7qk4nRBe/PiFvgXahzZVVxdY7Dl8S1 + M5XY+cDVOw47yTXi2omJictleTc+crOFAAAAAABgYNGSpetLnIHrHvr1USx4PlRGHnKOwe3FtTGVuNYV + xdWN+rYSF18M3gaPt8Jd3HLLfb59Fxwmq4iLX1PkHl9xdMa4+mhqzxd3jal8VVy9bZS7X/1T2tqvXiLu + mrruEokjDlxMmiB1n/2LuHpKeKe4NuXwGHFtuIX7bdQnE9WF7j3ELfCm8EiZWt84vUZcO1NaX1zd4/BQ + IYnBO86NjRJsIQAAAAAAGFq0ZOlacoK4B399Em+23U9GHnCOyRPFtTOVH4irF3PzHHHxxZKlXxEXsxJe + Ka5NWLL0ItlTXNyaJvf4+qa4etvos+KuMZVXiau3jehXM4ujBa4Vd21d9CvZXFwsmiJ1n50QV08Jt5GL + xbUrtduKa8Mt3O+iPpkYLnDH0REXiVvgXahjZXJdTbCLuLam9FhxdY/LfSTX8SBt9hI3NkqwhQAAAAAA + oGrRkqWL5b1ys7gHgF33C2naw+sPi2trKm8VVy/m5pPi4oslS18hLmYlRPKEa1Ofxfz+cZlxQadhco+v + 14qrt43OF3eNqTQpwW+h6Fez20HiLX13fV3yPokjh1wMmiR1n32euHpKKZH8eaa4uv/L/Sbqk4nh4nau + oyP+JZvK5LqaYC1x7U3pYHF1j9PG8hNx7W2ruJ63Timbi3u7sVGCLQQAAAAAAFWTHuY9RM4T9yCwi26S + A6WJRynkPtpjV3H1Ym7+JC6+WLJ0ibiY5RZnhV8mrk199TMZ1/1YiNzjaydx9bbNZuKuL5V4G78Ni7x1 + 0a/qWUc+L+4a2+6P0qb7lLrPbi2unlJWkNzfcw8XV/d/ud9EfTIxWNTOeXTES2XyAnqT/FFcm1M5RVy9 + 47ZYXi//EdfuNnmfrCT3mFQ2F1fKCm5slGALAQAAAABA1ZQHemtKLOpfI+6BYFecJE1d0Ftbcu6GEYkb + a4irG/VtLC6+WLL0aomdXVzccouFGdemPjpNHi0uTk2Xe3z9R1YRV3fbPEncNabyQ3H1ttFG4q4xlS71 + q2X2kgvEXW/b/FteJ226R6nnwn9IJPq5ukp6qLj2pbKvuHr/y/0m6pOJvEdHnC6xWD51Ab0pcu06scyN + soa4uptgK/m5uLY33fmyqyy7luXkYnH/7Uy+7sZFKbYQAAAAAABUuYd6sol8RLp2DnJssx0PNZvw8HY6 + jxTX9lTivGdXL+bmCeLiiyVLvyMuZiXE1tiuTX1yguwmTZ7nZpN7fP1UXL1tFJ/V7hpTeZu4etuIfjU/ + y5JbIznNXXfTRWLJIRIJLO76mix1n40jllw943CcuDamcEdxdf6X+03UJxP5FvFvlh1l2QJzE8XuEK7t + Ke0iru6miIX/J8m54trfNNfLu2VNmXotR4v7NzN5hRsXpdhCAAAAAABQ5R7qTbK+/K9cKO4BYVv8UuIt + 1XG9FT4X7xB3DanEQ3xXL+bmA+LiiyVL3yAuZiV8Wlybui7m6IPlbuLi0ja5x9dB4upto9+Iu8ZUIhnG + 1dtG9KuFuZ1EIkNbjum5XOI7Vexi4K6nDVL32VeKq2cctpTrxbVzIWLHEFdfhftN1BcTeY+OOFymLjA3 + zQPEtT2lN4uru2niGIb9pamJDJG4cJhsJq79YT9x/3Ym93VjoxRbCAAAAAAAqtxDPSPOq41FjM9KW97A + u1jiwe+O4q6pqX4s7npSie2gXb2Ym9ie38UXS5Y+WFzMSvizuDZ1UZzjHglJsRV3zNEuHm2Ve3w9Sly9 + bbOO5D5yaC1xdbcR/SqNVeX5crK4OIxT9NnYheYpEu107W+T1H22ad+J3yOunQtxtLi6Ktxvoj6YyHt0 + xCWyjkxdYG6a1eUmcdeQygni6m6q5SUSW6LdsYuGu6aSLpODZabEhWXuLO5vTOdqWezGRym2EAAAAAAA + VLmHerNYWXaV98vvxT08HIdYxImdFt4pbV3Qix0ich/bsaG4ulHf6hKLJC6+fXedjOt88ejbrk1tFzE9 + S74u8Tbx3tLGrdDryj2+4rNiXXF1t00kFrprTCUWT129bUS/ymMLeY3E969xfS7+W2J+3E82ENfONkrd + Z6+RlcTVNS5ry6Xi2jtfLxRXV4X7TdQHExMT75i0kJvavjJ1cbmpfi3uGlL5t6wgru6m21heLidJyWSG + iNlX5PESO0O4tk3nb+L+pnO8Gxsl2UIAAAAAAFDlHurN0W1ld4ltheM823grOPdD7BvlHPmCvF4eKV1Z + OHiLnJ7Jt8TVibl7t7gY992EuHiVcrhEO/4gf5mj8+Sf8xAJBm6eCvF/m/zfxpbmUdfvJBb8TpSvyeck + doyJ4zdiEe7xcn9p89bnC5FzfDXpDPiFijfMvynuOlMY53EwOeTsV/H9x9XZJ7FbR+xCEW/V/0hivnPz + 4kL9Sb4kr5YHSCTWuvZ0Qco+e5S4OsbtGeLaO193F1dPhftN1AcTExPbyukZfE6Wk6kLy011oLjrSOVN + 4uptm3Uldmb4gPxKrhGXFDAf/5Ify3vl4bKyuDbUEf9zdTivcWOjJFsIAAAAAACq3EO9BOIN7DiL/RHy + bHmTHCpxPn28JReLdj+TqQ8dT5H4v4VYDDhS4uHta+WZEjsr3ElWFFcvAAAAmiF2i3m4PEteJx+SSD79 + nsR3vfjeN/l7YOz6EeWRaPQpiV21XiaPk21lDXH1AHPifhP1yYRfBAZmE7tKxJENe8oBcpB8Sr4tJ8rJ + siyJ45e3lh0vkeDyTtlfHit3lTi2wtUxH3vJ5ASSmezgxkRJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAA + AAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAA + AAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAA + AAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAA + AAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAA + AABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAADK+b9F/x9qbIygM988 + TgAAAABJRU5ErkJgggs= + + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.vb b/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.vb new file mode 100644 index 00000000..dc018487 --- /dev/null +++ b/SDL/mdm/PLOSE/rptPLOSE_LaenderGesamt.vb @@ -0,0 +1,5 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rptPLOSE_LaenderGesamt +End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 572186ec..fa2f6173 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -65,8 +65,14 @@ Public Class frmMDMDatenverarbetiung End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click + Dim errorTmp = False Select Case LIEFERANT - Case "PLOSE" : genRGAtt_PLOSE() + Case "PLOSE" + If genRGAtt_PLOSE() Then + If MautD_Befuellen() Then + setFakturiertPLOSE() + End If + End If End Select End Sub @@ -276,12 +282,12 @@ Public Class frmMDMDatenverarbetiung - Sub genRGAtt_PLOSE() + 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") '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!") - Exit Sub + Return False End If Dim cnt = 0 If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then @@ -295,7 +301,7 @@ Public Class frmMDMDatenverarbetiung Dim verarbOK = True If Not genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH) Then verarbOK = False If Not genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) Then verarbOK = False - genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir) + ' ANHÄNGE WERDEN NCIHT BENÖTIGT::genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir) If verarbOK Then 'UPDATE Fakturiert @@ -313,19 +319,19 @@ Public Class frmMDMDatenverarbetiung cnt += 1 Next - + ' ANHÄNGE WERDEN NCIHT BENÖTIGT:: 'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren: - Dim dirAnhang = "F:\FMZoll\Maut\PLOSE\Anlagen\" - If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True) - For Each f In Directory.GetFiles(dirAnhang) - File.Delete(f) - Next - End If - If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang) + 'Dim dirAnhang = "F:\FMZoll\Maut\PLOSE\Anlagen\" + 'If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True) + ' For Each f In Directory.GetFiles(dirAnhang) + ' File.Delete(f) + ' Next + 'End If + 'If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang) - For Each f In Directory.GetFiles(dir) - File.Copy(f, dirAnhang & (New FileInfo(f)).Name) - Next + 'For Each f In Directory.GetFiles(dir) + ' File.Copy(f, dirAnhang & (New FileInfo(f)).Name) + 'Next 'IN FMZOLL / DB MautD einfügen --> Mautbericht 'genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) @@ -335,9 +341,10 @@ Public Class frmMDMDatenverarbetiung txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count lblPloseAnh_Proz.Text = "100.00 %" + Return True End If - - End Sub + Return False + End Function Function genPLOSEInsertMautD(von As Date, bis As Date) As Boolean @@ -1062,10 +1069,17 @@ Public Class frmMDMDatenverarbetiung End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - Select Case LIEFERANT - Case "PLOSE" : deleteMautD("PLOSE") : genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) - End Select + MautD_Befuellen() End Sub + + Function MautD_Befuellen() As Boolean + Select Case LIEFERANT + Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) + End Select + Return False + End Function + + Sub setFakturiertPLOSE() SQL.doSQL("UPDATE tblPLOSE_Details SET plose_Fakturiert=1 WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' ", "FMZOLL") diff --git a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb index b03009dd..a8d095e6 100644 --- a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb +++ b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb @@ -23,6 +23,7 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE _ Private Sub InitializeComponent() Me.Button6 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'Button6 @@ -39,11 +40,27 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button6.UseVisualStyleBackColor = True ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(13, 53) + Me.Button1.Name = "Button1" + Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.Button1.Size = New System.Drawing.Size(149, 41) + Me.Button1.TabIndex = 49 + Me.Button1.Text = "Auswertung nach" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Länder EU Kunden" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' 'usrCntlMDMDatenverarbeitungAuswertungen_PLOSE ' 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.Button1) Me.Controls.Add(Me.Button6) Me.Name = "usrCntlMDMDatenverarbeitungAuswertungen_PLOSE" Me.Size = New System.Drawing.Size(301, 114) @@ -52,4 +69,5 @@ Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE End Sub Friend WithEvents Button6 As Button + Friend WithEvents Button1 As Button End Class diff --git a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb index a134a998..f7e7996f 100644 --- a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb +++ b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb @@ -19,18 +19,27 @@ End Sub - Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click - Dim sqlstr = " SELECT Adressennr KundenNr, [Name 1] Firma,Adressen.LandKz,plz,Ort,CASE WHEN MitgliedslandEU =1 THEN 'JA' ELSE 'NEIN' END as EU, plose_POLSEKundennummer PLOSEKundennummer,sum(plose_NettobetragWaehrungAbbuchung) as Netto, sum(plose_MWSTBetragWaehrungAbbuchung) as MWST , sum(plose_BruttobetragWaehrungAbbuchung) as Brutto + + Function getSQLPLOSE(plp_ProductCode_IN As String, plp_ProductCode_NOTIN As String, plose_POLSEKundennummer As String, plp_Kategorie_IN As String) As String + Return " SELECT Adressennr KundenNr, [Name 1] Firma,Adressen.LandKz,plz,Ort,CASE WHEN MitgliedslandEU =1 THEN 'JA' ELSE 'NEIN' END as EU, plose_POLSEKundennummer PLOSEKundennummer,sum(plose_NettobetragWaehrungAbbuchung) as Netto, sum(plose_MWSTBetragWaehrungAbbuchung) as MWST , sum(plose_BruttobetragWaehrungAbbuchung) as Brutto FROM tblPLOSE_Details inner join Adressen on PLOSEKundenNr=plose_POLSEKundennummer inner join tblPLOSE_Produktbeschreibung on plp_ProductCode=plose_ProduktCode inner join [Währungstabelle] on [Währungstabelle].LandKz=Adressen.LandKz - WHERE plose_Fakturiert=1 and plp_Land='IT' and plose_DatumTransaktion between '" & MAIN.dat_Sum_Von.Value & "' and '" & MAIN.dat_Sum_Bis.Value & "' - and plp_Kategorie='MAUT' - and plp_ProductCode=262 + WHERE plose_Fakturiert=1 and CAST(plose_FakturiertDatum AS DATE) between '" & MAIN.dat_Sum_Von.Value & "' and '" & MAIN.dat_Sum_Bis.Value & "' + and plp_Land='IT' + and MitgliedslandEU=1 + " & If(plp_Kategorie_IN <> "", " and plp_Kategorie IN (" & plp_Kategorie_IN & ")", "") & " + " & If(plp_ProductCode_IN <> "", " and plp_ProductCode IN (" & plp_ProductCode_IN & ")", "") & " + " & If(plp_ProductCode_NOTIN <> "", " and plp_ProductCode NOT IN (" & plp_ProductCode_NOTIN & ")", "") & " + " & If(plose_POLSEKundennummer <> "", " and plose_POLSEKundennummer IN (" & plose_POLSEKundennummer & ")", "") & " group by plose_POLSEKundennummer,Adressennr,[Name 1],Adressen.LandKz,plz,Ort,MitgliedslandEU order by MitgliedslandEU desc,[Name 1]" + End Function + Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click + Dim sqlstr = getSQLPLOSE("", "", "", "") ' 262 + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") Dim print As New frmPrintLayout @@ -57,6 +66,7 @@ Dim sumNetto As Double = 0 Dim sumMWST As Double = 0 Dim sumBrutto As Double = 0 + Dim sumBruttoAlleLeistungen As Double = 0 Dim sumMenge As Double = 0 AddHandler rpt.Detail.Format, Sub() @@ -66,6 +76,87 @@ rpt.lblEU.Text = SQL.isDbnullEmpty(rpt.Fields.Item("EU").Value, "") rpt.lblKdNR.Text = SQL.isDbnullEmpty(rpt.Fields.Item("KundenNr").Value, "") + + rpt.lblBruttoAlleLeistungen.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 2, "") + sumBruttoAlleLeistungen += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0) + + + Dim dt2 As DataTable = SQL.loadDgvBySql_Param(getSQLPLOSE("", "", rpt.Fields.Item("PLOSEKundennummer").Value, "'MAUT'"), "FMZOLL") ' NUR MAUT je Kunde + + If dt2.Rows.Count > 0 Then + rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(dt2(0)("Netto"), 2, "") + rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(dt2(0)("MWST"), 2, "") + rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(dt2(0)("Brutto"), 2, "") + + sumNetto += SQL.isDbnullEmptyDbl(dt2(0)("Netto"), 4, 0) + sumMWST += SQL.isDbnullEmptyDbl(dt2(0)("MWST"), 4, 0) + sumBrutto += SQL.isDbnullEmptyDbl(dt2(0)("Brutto"), 4, 0) + Else + rpt.lblNetto.Text = "-" + rpt.lblMWST.Text = "-" + rpt.lblBrutto.Text = "-" + + End If + + + End Sub + + + AddHandler rpt.ReportFooter1.Format, Sub() + rpt.lblSumNetto.Text = sumNetto.ToString("N2") + rpt.lblSumMwst.Text = sumMWST.ToString("N2") + rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") + rpt.lblSumBruttoAlleLeistungen.Text = "(" & sumBruttoAlleLeistungen.ToString("N2") & ")" + + End Sub + + print.Viewer.LoadDocument(rpt) + print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + print.Show() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim sqlstr = "SELECT plp_Land, CASE WHEN MitgliedslandEU =1 THEN 'JA' ELSE 'NEIN' END as EU, sum(plose_NettobetragWaehrungAbbuchung) as Netto, sum(plose_MWSTBetragWaehrungAbbuchung) as MWST , sum(plose_BruttobetragWaehrungAbbuchung) as Brutto + FROM tblPLOSE_Details inner join Adressen on PLOSEKundenNr=plose_POLSEKundennummer + inner join tblPLOSE_Produktbeschreibung on plp_ProductCode=plose_ProduktCode + inner join [Währungstabelle] on [Währungstabelle].LandKz=Adressen.LandKz + WHERE plose_Fakturiert=1 and CAST(plose_FakturiertDatum AS DATE) between '" & MAIN.dat_Sum_Von.Value & "' and '" & MAIN.dat_Sum_Bis.Value & "' + group by plp_Land,MitgliedslandEU + order by plp_Land, MitgliedslandEU desc" + + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + Dim print As New frmPrintLayout + print.Text = "PLOSE" + If dt Is Nothing OrElse dt.Rows.Count = 0 Then + MsgBox("Keine Daten!") + Exit Sub + End If + + + Dim rpt As New rptPLOSE_LaenderGesamt + rpt.DataSource = dt + + Dim sum = 0 + ' rpt.lblUeberschrift.Text = "PLOSE Summenbericht " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text + rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung + + 'Dim cnt As Integer = 0 + rpt.lblDat.Text = Now.ToLongDateString + + + Dim sumPreis As Double = 0 + Dim sumNetto As Double = 0 + Dim sumMWST As Double = 0 + Dim sumBrutto As Double = 0 + Dim sumBruttoAlleLeistungen As Double = 0 + Dim sumMenge As Double = 0 + + AddHandler rpt.Detail.Format, Sub() + rpt.lblLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "") + rpt.lblEU.Text = SQL.isDbnullEmpty(rpt.Fields.Item("EU").Value, "") + rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 2, "") rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 2, "") rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 2, "") @@ -74,6 +165,8 @@ sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 4, 0) sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0) + + End Sub diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb new file mode 100644 index 00000000..10605aec --- /dev/null +++ b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.Designer.vb @@ -0,0 +1,135 @@ + +Partial Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER + 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.Label8 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.Button3 = New System.Windows.Forms.Button() + Me.lblErr = New System.Windows.Forms.Label() + Me.Label14 = New System.Windows.Forms.Label() + Me.lnlCnt = New System.Windows.Forms.Label() + Me.cbx = New System.Windows.Forms.CheckBox() + Me.GroupBox2.SuspendLayout() + Me.SuspendLayout() + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label8.Location = New System.Drawing.Point(3, 0) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(102, 17) + Me.Label8.TabIndex = 16 + Me.Label8.Text = "Abgabenliste" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.cbx) + Me.GroupBox2.Controls.Add(Me.lnlCnt) + Me.GroupBox2.Controls.Add(Me.Button3) + Me.GroupBox2.Controls.Add(Me.lblErr) + Me.GroupBox2.Controls.Add(Me.Label14) + Me.GroupBox2.Location = New System.Drawing.Point(2, 11) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(697, 99) + Me.GroupBox2.TabIndex = 15 + Me.GroupBox2.TabStop = False + ' + 'Button3 + ' + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button3.Location = New System.Drawing.Point(9, 16) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(121, 37) + Me.Button3.TabIndex = 33 + Me.Button3.Text = "Liste auswählen ..." + Me.Button3.UseVisualStyleBackColor = True + ' + 'lblErr + ' + Me.lblErr.AutoSize = True + Me.lblErr.ForeColor = System.Drawing.Color.Red + Me.lblErr.Location = New System.Drawing.Point(6, 83) + Me.lblErr.Name = "lblErr" + Me.lblErr.Size = New System.Drawing.Size(69, 13) + Me.lblErr.TabIndex = 13 + Me.lblErr.Text = "Keine Daten!" + Me.lblErr.Visible = False + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(145, 16) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(414, 26) + Me.Label14.TabIndex = 5 + Me.Label14.Text = "Prüft die ausgewähle Liste der Abgaben von Trier mit den fakturierten Datensätzen" & + " ab." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Bei Differenz wird der Eintrag angezeigt." + ' + 'lnlCnt + ' + Me.lnlCnt.ForeColor = System.Drawing.Color.Black + Me.lnlCnt.Location = New System.Drawing.Point(9, 56) + Me.lnlCnt.Name = "lnlCnt" + Me.lnlCnt.Size = New System.Drawing.Size(121, 13) + Me.lnlCnt.TabIndex = 34 + Me.lnlCnt.Text = "-" + Me.lnlCnt.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cbx + ' + Me.cbx.AutoSize = True + Me.cbx.Checked = True + Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbx.Location = New System.Drawing.Point(148, 56) + Me.cbx.Name = "cbx" + Me.cbx.Size = New System.Drawing.Size(150, 17) + Me.cbx.TabIndex = 35 + Me.cbx.Text = "Nur Differenzen ausgeben" + Me.cbx.UseVisualStyleBackColor = True + ' + 'usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER + ' + 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.Label8) + Me.Controls.Add(Me.GroupBox2) + Me.Name = "usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER" + Me.Size = New System.Drawing.Size(708, 120) + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox + Friend WithEvents lblErr As System.Windows.Forms.Label + Friend WithEvents Label14 As System.Windows.Forms.Label + Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents lnlCnt As Label + Friend WithEvents cbx As CheckBox +End Class diff --git a/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.resx b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.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/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb new file mode 100644 index 00000000..e70b2fbc --- /dev/null +++ b/SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb @@ -0,0 +1,207 @@ +Imports System.IO +Imports System.Globalization + +Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER + + + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Private Property rst As Object + + Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load + + + End Sub + + Function get_DT() As DataTable + Return SQL.loadDgvBySql("", "FMZOLL") + End Function + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Me.Cursor = Cursors.WaitCursor + Try + + Dim displayFilter = False + + Dim srchAufschubnehmer = "" + Dim AKTO = "" + Dim AKTONr = "" + Dim Faelligkeit = "" + + Dim erg = "" + Dim TMPFIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + + Dim fd As New OpenFileDialog + + If fd.ShowDialog = DialogResult.OK Then + + Dim dt As New DataTable + dt.Columns.Add("AKTO") + dt.Columns.Add("Faelligkeit") + dt.Columns.Add("ATC") + dt.Columns.Add("BUDat") + dt.Columns.Add("Abfertigungsort") + dt.Columns.Add("Betrag") + dt.Columns.Add("Fakturiert") + dt.Columns.Add("Differenz") + + ' Dim fileReader() = System.IO.File.ReadAllLines(fd.FileName, System.Text.Encoding.UTF32) + Dim cnt = 1 + ' For Each line In fileReader + ' Dim Flines = System.IO.File.ReadLines(fd.FileName) + For Each line As String In System.IO.File.ReadLines(fd.FileName, System.Text.Encoding.Default) + 'MsgBox(line.Length) + If srchAufschubnehmer = "" AndAlso line.Contains("Aufschubnehmer: ") Then + srchAufschubnehmer = line.Replace("Aufschubnehmer: ", "").Trim + AKTO = srchAufschubnehmer.Substring(0, 13).Trim + If AKTO.Contains("-") Then Dim sp = AKTO.Split("-") : AKTONr = sp(1) 'String.Format("{000000}", sp(1)) + + If srchAufschubnehmer.ToUpper.Contains("VERAG") Then + TMPFIRMA = "VERAG" + ElseIf srchAufschubnehmer.ToUpper.Contains("UNISPED") Then + TMPFIRMA = "UNISPED" + ElseIf srchAufschubnehmer.ToUpper.Contains("IMEX") Then + TMPFIRMA = "IMEX" + + End If + End If + If Faelligkeit = "" AndAlso line.Contains("Fälligkeit: ") Then + Faelligkeit = line.Replace("Fälligkeit: ", "").Trim + End If + + + If line.Length = "79" And line.Contains("ATC") Then + Dim zollamt As String = line.Substring(0, 28).Trim + Dim atc As String = line.Substring(28, 25).Trim + Dim datum As Date = CDate(line.Substring(53, 10).Trim) + Dim betrag As Double = CDbl(line.Substring(63, 16).Trim) + + Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0")) + Dim differenz = fakturiert - betrag + + If Not cbx.Checked OrElse differenz <> 0 Then + erg &= zollamt & " - " & atc & ": " & betrag & " | " & differenz & vbNewLine + dt.Rows.Add({AKTO, Faelligkeit, atc, datum, zollamt, betrag, fakturiert, differenz}) + End If + + End If + cnt += 1 + lnlCnt.Text = cnt '& "/" & Flines.Count + Me.Refresh() + Next + + If dt.Rows.Count = 0 Then + MsgBox("Keine Differenzen gefunden!") + Else + Dim rpt As New rptAufschubabgleich + rpt.DataSource = dt + + Dim print As New frmPrintLayout + + print.Text = "Abgabenliste" + + If rpt.DataSource Is Nothing OrElse rpt.DataSource.rows.count = 0 Then + rpt.Dispose() : print.Dispose() + MsgBox("Keine Daten vorhanden!") + Me.Cursor = Cursors.Default + Exit Sub + End If + + Select Case TMPFIRMA + Case "IMEX" : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Label8.Text = "IMEX Customs Service GmbH" + Case "ATILLA" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "ATILLA Spedition" + Case "UNISPED" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "UNISPED Spedition" + Case "AMBAR" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "AMBAR" + Case "FRONTOFFICE" : rpt.picVERAG.Image = My.Resources.Atilla : rpt.Label8.Text = "FRONTOFFICE" + Case Else + End Select + + + Dim sum = 0 + rpt.lblKontoBez.Text = srchAufschubnehmer + rpt.lblFaelligkeit.Text = Faelligkeit + rpt.lblAnzahl.Text = cnt + rpt.lblDetails.Text = Now.ToLongDateString & ", " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + + Dim sumBetrag As Double = 0 + Dim sumFakturiert As Double = 0 + Dim sumDifferenz As Double = 0 + + Dim Anz = 0 + AddHandler rpt.Detail.Format, Sub() + + rpt.lblAKTO.Text = checkNull(rpt.Fields.Item("AKTO").Value) + 'rpt.lblFaelligkeit.Text = checkNull(rpt.Fields.Item("Faelligkeit").Value) + rpt.lblATC.Text = checkNull(rpt.Fields.Item("ATC").Value) + + rpt.lblBUDatValue.Text = checkNull(rpt.Fields.Item("BUDat").Value) + rpt.lblAbfertigungsort.Text = checkNull(rpt.Fields.Item("Abfertigungsort").Value) + rpt.lblBetrag.Text = checkNull(rpt.Fields.Item("Betrag").Value) + rpt.lblFakturiert.Text = checkNull(rpt.Fields.Item("Fakturiert").Value) + rpt.lblDifferenz.Text = checkNull(rpt.Fields.Item("Differenz").Value) + + Dim tmp_betrag As Double = 0 + Dim tmp_fakturiert As Double = 0 + Dim tmp_differenz As Double = 0 + + If IsNumeric(checkNull(rpt.Fields.Item("betrag").Value)) Then tmp_betrag = CDbl(rpt.Fields.Item("Betrag").Value()) + rpt.lblBetrag.Text = CDbl(tmp_betrag).ToString("N2", Globalization.CultureInfo.CurrentCulture) + + If IsNumeric(checkNull(rpt.Fields.Item("Fakturiert").Value)) Then tmp_fakturiert = CDbl(rpt.Fields.Item("Fakturiert").Value()) + rpt.lblFakturiert.Text = CDbl(tmp_fakturiert).ToString("N2", Globalization.CultureInfo.CurrentCulture) + + If IsNumeric(checkNull(rpt.Fields.Item("Differenz").Value)) Then tmp_differenz = CDbl(rpt.Fields.Item("Differenz").Value()) + rpt.lblDifferenz.Text = CDbl(tmp_differenz).ToString("N2", Globalization.CultureInfo.CurrentCulture) + + + sumBetrag += tmp_betrag + sumFakturiert += tmp_fakturiert + sumDifferenz += tmp_differenz + + Anz += 1 + + If Anz Mod 2 = 0 Then + rpt.Detail.BackColor = Color.FromArgb(240, 240, 240) + Else + rpt.Detail.BackColor = Color.White + End If + + End Sub + + AddHandler rpt.ReportFooter1.Format, Sub() + + rpt.lblBetragSum.Text = sumBetrag.ToString("N2", CultureInfo.CurrentCulture) + rpt.lblFakturiertSum.Text = sumFakturiert.ToString("N2", CultureInfo.CurrentCulture) + rpt.lblDifferenzSum.Text = sumDifferenz.ToString("N2", CultureInfo.CurrentCulture) + ' rpt.lblGesGesSumAnzahl.Text = gesAnz.ToString("N0") + + End Sub + + print.Viewer.LoadDocument(rpt) + print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + print.Show() + End If + + End If + + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Me.Cursor = Cursors.Default + + + + End Sub + + Function checkNull(o As Object, Optional ret As String = "") As Object + If o Is Nothing Then Return ret + If o Is DBNull.Value Then Return ret + Return o + + End Function + + + +End Class diff --git a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.Designer.vb b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.Designer.vb index 20af4833..8a175d86 100644 --- a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.Designer.vb +++ b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.Designer.vb @@ -24,6 +24,7 @@ Partial Class usrCntlAuswertungenEV_Veranlagungen Private Sub InitializeComponent() Me.Label8 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.lblCnt2 = New System.Windows.Forms.Label() Me.txtJahr = New System.Windows.Forms.NumericUpDown() Me.cboMonat = New System.Windows.Forms.ComboBox() Me.Label77 = New System.Windows.Forms.Label() @@ -36,7 +37,8 @@ Partial Class usrCntlAuswertungenEV_Veranlagungen Me.lblErr = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.lblCnt = New System.Windows.Forms.Label() - Me.lblCnt2 = New System.Windows.Forms.Label() + Me.kdKunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.Label1 = New System.Windows.Forms.Label() Me.GroupBox2.SuspendLayout() CType(Me.txtJahr, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -54,6 +56,8 @@ Partial Class usrCntlAuswertungenEV_Veranlagungen ' 'GroupBox2 ' + Me.GroupBox2.Controls.Add(Me.Label1) + Me.GroupBox2.Controls.Add(Me.kdKunde) Me.GroupBox2.Controls.Add(Me.lblCnt2) Me.GroupBox2.Controls.Add(Me.txtJahr) Me.GroupBox2.Controls.Add(Me.cboMonat) @@ -73,6 +77,15 @@ Partial Class usrCntlAuswertungenEV_Veranlagungen Me.GroupBox2.TabIndex = 15 Me.GroupBox2.TabStop = False ' + 'lblCnt2 + ' + Me.lblCnt2.Location = New System.Drawing.Point(52, 69) + Me.lblCnt2.Name = "lblCnt2" + Me.lblCnt2.Size = New System.Drawing.Size(78, 13) + Me.lblCnt2.TabIndex = 43 + Me.lblCnt2.Text = "99/99" + Me.lblCnt2.TextAlign = System.Drawing.ContentAlignment.TopRight + ' 'txtJahr ' Me.txtJahr.Location = New System.Drawing.Point(315, 37) @@ -185,14 +198,41 @@ Partial Class usrCntlAuswertungenEV_Veranlagungen Me.lblCnt.Text = "99/99" Me.lblCnt.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'lblCnt2 + 'kdKunde ' - Me.lblCnt2.Location = New System.Drawing.Point(52, 69) - Me.lblCnt2.Name = "lblCnt2" - Me.lblCnt2.Size = New System.Drawing.Size(78, 13) - Me.lblCnt2.TabIndex = 43 - Me.lblCnt2.Text = "99/99" - Me.lblCnt2.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.kdKunde._AlleFirmenCLUSTER = True + Me.kdKunde._AllowSetValue = True + Me.kdKunde._autoSizeGross = False + Me.kdKunde._display_Name1 = False + Me.kdKunde._displayAVISO_Email = False + Me.kdKunde._displayFullName = False + Me.kdKunde._displayWoelflKd = False + Me.kdKunde._hideIfListEmpty = True + Me.kdKunde._loadKdData = False + Me.kdKunde._UseFIRMA = "" + Me.kdKunde._ValueKdAndName = True + Me.kdKunde.dgvpos = "LEFT" + Me.kdKunde.KdName = Nothing + Me.kdKunde.KdNr = "-1" + Me.kdKunde.kdNrField = Nothing + Me.kdKunde.KdNrNullInt = Nothing + Me.kdKunde.Location = New System.Drawing.Point(186, 60) + Me.kdKunde.Name = "kdKunde" + Me.kdKunde.nurAktive = True + Me.kdKunde.searchActive = True + Me.kdKunde.Size = New System.Drawing.Size(177, 20) + Me.kdKunde.TabIndex = 44 + Me.kdKunde.TIMER_SEARCH = True + Me.kdKunde.usrcntl = Nothing + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(145, 63) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(41, 13) + Me.Label1.TabIndex = 45 + Me.Label1.Text = "Kunde:" ' 'usrCntlAuswertungenEV_Veranlagungen ' @@ -225,4 +265,6 @@ Partial Class usrCntlAuswertungenEV_Veranlagungen Friend WithEvents datAuswertVon As DateTimePicker Friend WithEvents lblCnt As Label Friend WithEvents lblCnt2 As Label + Friend WithEvents Label1 As Label + Friend WithEvents kdKunde As VERAG_PROG_ALLGEMEIN.KdSearchBox End Class diff --git a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb index adb5787d..ea16b41f 100644 --- a/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb +++ b/SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb @@ -9,6 +9,7 @@ Public Class usrCntlAuswertungenEV_Veranlagungen Private Property rst As Object Private Sub usrCntlBrgBuchungenFremd_Load(sender As Object, e As EventArgs) Handles Me.Load + kdKunde.initKdBox(Me.FindForm) 'datVon.Value = CDate("01." & Now.AddMonths(-1).Month & "." & Now.AddMonths(-1).Year) 'datBis.Value = datVon.Value.AddMonths(1).AddDays(-1) @@ -31,32 +32,31 @@ Public Class usrCntlAuswertungenEV_Veranlagungen Me.Cursor = Cursors.WaitCursor lblCnt.Text = "" lblCnt2.Text = "" - Dim dt As DataTable = SQL.loadDgvBySql("SELECT [kde_KundenNr] FROM [tblKundenErweitert] INNER JOIN ADRESSEN on adressennr = kde_KundenNr WHERE [Veranlagungskunde]=1 and Auswahl='A' ", "FMZOLL") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT [kde_KundenNr], [Name 1] Name FROM [tblKundenErweitert] INNER JOIN ADRESSEN on adressennr = kde_KundenNr WHERE " & If(kdKunde.KdNr_value > 0, " kde_KundenNr='" & kdKunde.KdNr_value & "' AND ", "") & " [Veranlagungskunde]=1 and Auswahl='A' ", "FMZOLL") If dt Is Nothing Then lblErr.Visible = True : Exit Sub Dim folderpath = "" Dim FolderBrowserDialog1 As New FolderBrowserDialog If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then folderpath = FolderBrowserDialog1.SelectedPath + If vbYes = MsgBox("Es werden '" & dt.Rows.Count & "' Kunden ausgewertet. Möchten Sie fortfahren?", vbYesNoCancel) Then + Dim cnt = 1 + For Each r In dt.Rows + lblCnt.Text = cnt & "/ " & dt.Rows.Count + Me.Refresh() + genExcelKd(r("kde_KundenNr"), folderpath, r("Name")) + cnt += 1 + Next + End If End If - - Dim cnt = 1 - For Each r In dt.Rows - lblCnt.Text = cnt & "/ " & dt.Rows.Count - Me.Refresh() - genExcelKd(r("kde_KundenNr"), folderpath) - cnt += 1 - Next Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try Me.Cursor = Cursors.Default End Sub - Sub genExcelKd(KdNr, sPath) + Sub genExcelKd(KdNr, sPath, Optional EmpfName = "") - Dim dt As DataTable = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],Empfänger FROM [Speditionsbuch] where EmpfängerKundenNr='" & KdNr & "' and cast(Abfertigungsdatum as date) between '" & datAuswertVon.Value & "' and '" & datAuswertBis.Value & "' and Abfertigungsart=38 ORDER BY Abfertigungsdatum ", "FMZOLL") - If dt Is Nothing Then lblErr.Visible = True : Exit Sub - If dt.Rows.Count = 0 Then lblErr.Visible = True : Exit Sub + Dim dt As DataTable = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr],Empfänger FROM [Speditionsbuch] where (EmpfängerKundenNr='" & KdNr & "' OR VermittlerKundenNr='" & KdNr & "') and cast(Abfertigungsdatum as date) between '" & datAuswertVon.Value & "' and '" & datAuswertBis.Value & "' and Abfertigungsart=38 ORDER BY Abfertigungsdatum ", "FMZOLL") lblCnt2.Text = "" 'EXCEL @@ -73,13 +73,21 @@ Public Class usrCntlAuswertungenEV_Veranlagungen Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet exclApp = CreateObject("Excel.Application") + Dim nodata = False + If dt Is Nothing Or dt.Rows.Count = 0 Then nodata = True + Try - Path = sPath & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & ".xlsx" + Path = sPath & "\" & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(EmpfName) & ".xlsx" While System.IO.File.Exists(Path) - Path = sPath & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + Path = sPath & "\" & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(EmpfName) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" End While My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.FA_Graz_EV_Veranlagung_Muster, False) + 'Path = sPath & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & ".xlsx" + 'While System.IO.File.Exists(Path) + ' Path = sPath & If(nodata, "nodata_", "") & "FA_Graz_" & AdjustPath(dt.Rows(0)("Empfänger")) & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx" + 'End While + 'My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.FA_Graz_EV_Veranlagung_Muster, False) Catch ex As System.Exception @@ -88,106 +96,134 @@ Public Class usrCntlAuswertungenEV_Veranlagungen Exit Sub End Try + With exclApp .Visible = False Datei = .Workbooks.Open(Path) Blatt = Datei.Worksheets(1) - Blatt.Range("A2").Value = dt.Rows(0)("Empfänger") & " / Finanzamt Graz " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString + Blatt.Range("A2").Value = EmpfName & " / Finanzamt Graz " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString + 'Blatt.Range("A2").Value = dt.Rows(0)("Empfänger") & " / Finanzamt Graz " & datAuswertVon.Value.ToShortDateString & "-" & datAuswertBis.Value.ToShortDateString - Dim cnt = 8 - Dim cnt_zeile = 1 - For Each r In dt.Rows - lblCnt2.Text = cnt_zeile & "/" & dt.Rows.Count - Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("UnterNr")) - If SPEDBUCH.hasEntry Then - 'LRN - Dim BezugsNr = If(SPEDBUCH.AtlasBezNrEZA, "") - If BezugsNr = "" Then BezugsNr = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr - 'Handelsrechnungen - Dim handelsrechnungen = "" : Dim semi = "" - For Each rg In SQL.DLookupArray("DRef", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And ANM.OperatorID=DOC.OperatorID And ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", "EZOLL") - handelsrechnungen &= semi & rg : semi = "," - Next - 'EUST - Dim EUST_Basis As Double = 0 - Dim EUST_5EV As Double = 0 - Dim dtEUST = SQL.loadDgvBySql("select sum(base) Base,sum(Amnt)Amnt FROM ztIMsgGdsItemDutyCalc as GDS inner join zzAktivitaet as AKT on GDS.OperatorID=AKT.OperatorID AND GDS.LizenzNr=AKT.LizenzNr AND GDS.IMsgID=AKT.IMsgID - inner join zsAnmRefs as ANM on ANM.LizenzNr=AKT.LizenzNr AND ANM.OperatorID=AKT.OperatorID AND ANM.AnmID=AKT.AnmID + If Not nodata Then + Dim cnt = 8 + Dim cnt_zeile = 1 + For Each r In dt.Rows + lblCnt2.Text = cnt_zeile & "/" & dt.Rows.Count + Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("UnterNr")) + If SPEDBUCH.hasEntry Then + 'LRN + Dim BezugsNr = If(SPEDBUCH.AtlasBezNrEZA, "") + If BezugsNr = "" Then BezugsNr = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr + + 'Handelsrechnungen + Dim handelsrechnungen = "" : Dim semi = "" + + + 'EUST + Dim EUST_Basis As Double = 0 + Dim EUST_5EV As Double = 0 + + Select Case r("FilialenNr") + Case "5501" + 'EUST + Dim dtEUST = SQL.loadDgvBySql(" select sum(base) Base,sum(Amnt)Amnt FROM tblTelotec_Anmeldung as TC inner join tblTelotec_PositionsdatenAbgaben as AGB on AGB.telposAbg_telanmId=TC.telanm_id + where Ty IN ('5EV') and tc.telanm_BezugsNr LIKE '" & BezugsNr & "' AND telanm_Status between 50 and 60", "FMZOLL") + If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then + If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base") + If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt") + End If + + 'Handelsrechnungen + For Each rg In SQL.DLookupArray("DRef", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And ANM.OperatorID=DOC.OperatorID And ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", "EZOLL") + handelsrechnungen &= semi & rg : semi = "," + Next + + Case Else + 'EUST + Dim dtEUST = SQL.loadDgvBySql("select sum(base) Base,sum(Amnt)Amnt FROM ztIMsgGdsItemDutyCalc as GDS inner join zzAktivitaet as AKT on GDS.OperatorID=AKT.OperatorID AND GDS.LizenzNr=AKT.LizenzNr AND GDS.IMsgID=AKT.IMsgID + inner join zsAnmRefs as ANM on ANM.LizenzNr=AKT.LizenzNr And ANM.OperatorID=AKT.OperatorID And ANM.AnmID=AKT.AnmID where Ty IN ('5EV') and LRN LIKE '" & BezugsNr & "' AND ErledigungsTypID LIKE 'F%'", "EZOLL") - If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then - EUST_Basis = dtEUST(0)("Base") - EUST_5EV = dtEUST(0)("Amnt") - End If + If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then + If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base") + If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt") + End If + + 'Handelsrechnungen + For Each rg In SQL.DLookupArray("DRef", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And ANM.OperatorID=DOC.OperatorID And ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", "EZOLL") + handelsrechnungen &= semi & rg : semi = "," + Next + End Select - If SPEDBUCH.ENDEMPFAENGER.Count > 0 Then - Dim cnt2 = 0 - For Each EEMPF In SPEDBUCH.ENDEMPFAENGER + If SPEDBUCH.ENDEMPFAENGER.Count > 0 Then + Dim cnt2 = 0 + For Each EEMPF In SPEDBUCH.ENDEMPFAENGER + Blatt.Range("A" & cnt).EntireRow.Copy() + Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown) + + Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr + Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum + Blatt.Range("C" & cnt).Value = handelsrechnungen + + If cnt2 = 0 Then 'Nur oberste Zeile je Abfertigung + Blatt.Range("D" & cnt).Value = EUST_Basis + Blatt.Range("E" & cnt).Value = EUST_5EV + 'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00") + 'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00") + 'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €" + 'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €" + Else + Blatt.Range("D" & cnt).Value = "-" + Blatt.Range("E" & cnt).Value = "-" + End If + + Blatt.Range("F" & cnt).Value = EEMPF.EndEmpfaenger + Blatt.Range("G" & cnt).Value = If(EEMPF.UstIdKz, "") & If(EEMPF.UstIdNr, "") + If EEMPF.Rechnungsbetrag IsNot Nothing AndAlso IsNumeric(EEMPF.Rechnungsbetrag) Then + Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag) + 'Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag).ToString("0.00") + 'Blatt.Range("H" & cnt).Style.NumberFormat = "###,###,##0.00 €" + End If + + cnt += 1 + cnt2 += 1 + '+Zeile + Next + Else Blatt.Range("A" & cnt).EntireRow.Copy() Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown) Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum + Blatt.Range("C" & cnt).Value = handelsrechnungen - - If cnt2 = 0 Then 'Nur oberste Zeile je Abfertigung - Blatt.Range("D" & cnt).Value = EUST_Basis - Blatt.Range("E" & cnt).Value = EUST_5EV - 'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00") - 'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00") - 'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €" - 'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €" - Else - Blatt.Range("D" & cnt).Value = "-" - Blatt.Range("E" & cnt).Value = "-" - End If - - Blatt.Range("F" & cnt).Value = EEMPF.EndEmpfaenger - Blatt.Range("G" & cnt).Value = If(EEMPF.UstIdKz, "") & If(EEMPF.UstIdNr, "") - If EEMPF.Rechnungsbetrag IsNot Nothing AndAlso IsNumeric(EEMPF.Rechnungsbetrag) Then - Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag) - 'Blatt.Range("H" & cnt).Value = CDbl(EEMPF.Rechnungsbetrag).ToString("0.00") - 'Blatt.Range("H" & cnt).Style.NumberFormat = "###,###,##0.00 €" - End If + Blatt.Range("D" & cnt).Value = EUST_Basis + Blatt.Range("E" & cnt).Value = EUST_5EV + 'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00") + 'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00") + 'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €" + 'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €" cnt += 1 - cnt2 += 1 '+Zeile - Next - Else - Blatt.Range("A" & cnt).EntireRow.Copy() - Blatt.Range("A" & cnt).EntireRow.Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown) + End If - Blatt.Range("A" & cnt).Value = SPEDBUCH.FilialenNr & "/" & SPEDBUCH.AbfertigungsNr - Blatt.Range("B" & cnt).Value = SPEDBUCH.Abfertigungsdatum - Blatt.Range("C" & cnt).Value = handelsrechnungen - Blatt.Range("D" & cnt).Value = EUST_Basis - Blatt.Range("E" & cnt).Value = EUST_5EV - 'Blatt.Range("D" & cnt).Value = EUST_Basis.ToString("0.00") - 'Blatt.Range("E" & cnt).Value = EUST_5EV.ToString("0.00") - 'Blatt.Range("D" & cnt).Style.NumberFormat = "###,###,##0.00 €" - 'Blatt.Range("E" & cnt).Style.NumberFormat = "###,###,##0.00 €" - cnt += 1 - '+Zeile End If - - - - End If - cnt_zeile += 1 - Next + cnt_zeile += 1 + Next + End If Datei.Save - .Visible = True 'TEST + Datei.Close + ' .Visible = True 'TEST End With - Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index 2ff07a93..108055d0 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb @@ -195,6 +195,7 @@ Partial Class usrCntlZOLLAuswertungen Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung() Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen() Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung() Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200() Me.TabPage4 = New System.Windows.Forms.TabPage() @@ -220,7 +221,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Label67 = New System.Windows.Forms.Label() Me.Button14 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() - Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen() + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit() @@ -1218,7 +1219,7 @@ Partial Class usrCntlZOLLAuswertungen Me.tbcntr.Location = New System.Drawing.Point(0, 57) Me.tbcntr.Name = "tbcntr" Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(626, 1529) + Me.tbcntr.Size = New System.Drawing.Size(609, 1529) Me.tbcntr.TabIndex = 22 ' 'TabPage1 @@ -1256,7 +1257,7 @@ Partial Class usrCntlZOLLAuswertungen 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(618, 1503) + Me.TabPage1.Size = New System.Drawing.Size(601, 1503) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Bürgschaften" Me.TabPage1.UseVisualStyleBackColor = True @@ -2066,7 +2067,7 @@ Partial Class usrCntlZOLLAuswertungen 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(635, 1503) + Me.TabPage2.Size = New System.Drawing.Size(618, 1503) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Kunden" Me.TabPage2.UseVisualStyleBackColor = True @@ -2102,6 +2103,14 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung" Me.TabPage3.UseVisualStyleBackColor = True ' + 'UsrCntlAuswertungenEV_Veranlagungen1 + ' + Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White + Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568) + Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1" + Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105) + Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2 + ' 'UsrCntlAuswertungenFiskal_IntrastatMeldung1 ' Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White @@ -2120,10 +2129,11 @@ Partial Class usrCntlZOLLAuswertungen ' 'TabPage4 ' + Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1) Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" - Me.TabPage4.Size = New System.Drawing.Size(635, 1503) + Me.TabPage4.Size = New System.Drawing.Size(601, 1503) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Aufschubdaten" Me.TabPage4.UseVisualStyleBackColor = True @@ -2144,7 +2154,7 @@ Partial Class usrCntlZOLLAuswertungen Me.TabPage5.Location = New System.Drawing.Point(4, 22) Me.TabPage5.Name = "TabPage5" Me.TabPage5.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage5.Size = New System.Drawing.Size(635, 1503) + Me.TabPage5.Size = New System.Drawing.Size(618, 1503) Me.TabPage5.TabIndex = 4 Me.TabPage5.Text = "UNISPED" Me.TabPage5.UseVisualStyleBackColor = True @@ -2352,16 +2362,16 @@ Partial Class usrCntlZOLLAuswertungen Me.pnl.Dock = System.Windows.Forms.DockStyle.Top Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(626, 57) + Me.pnl.Size = New System.Drawing.Size(609, 57) Me.pnl.TabIndex = 23 ' - 'UsrCntlAuswertungenEV_Veranlagungen1 + 'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 ' - Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White - Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568) - Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1" - Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105) - Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2 + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149) + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1" + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120) + Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1 ' 'usrCntlZOLLAuswertungen ' @@ -2372,7 +2382,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.pnl) Me.Name = "usrCntlZOLLAuswertungen" - Me.Size = New System.Drawing.Size(626, 926) + Me.Size = New System.Drawing.Size(609, 926) Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) @@ -2624,4 +2634,5 @@ Partial Class usrCntlZOLLAuswertungen Friend WithEvents Label81 As Label Friend WithEvents Button19 As Button Friend WithEvents UsrCntlAuswertungenEV_Veranlagungen1 As usrCntlAuswertungenEV_Veranlagungen + Friend WithEvents UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 As usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 5beea286..72155022 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -504,7 +504,7 @@ Public Class SQL Function DLookup(srchField, table, where, Optional conn_art = "SDL", Optional nullvalue = "") As Object - Return getValueTxtBySql("SELECT isnull(" & srchField & ",'" & nullvalue & "') FROM " & table & " WHERE " & where & "", conn_art) + Return getValueTxtBySql("SELECT isnull(" & srchField & ",'" & nullvalue & "') FROM " & table & " WHERE " & where & "", conn_art,,, nullvalue) End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb index a7d88865..4793c4aa 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhaenge.vb @@ -11,6 +11,7 @@ Public Class cAvisoAnhaenge Property anh_Typ As String Property anh_Reihenfolge As Integer = 99 Property anh_LaufzettelDruck As Boolean = False + Property anh_GestellungslisteAnfuegen As Boolean = False Public hasEntry As Boolean = False @@ -50,6 +51,7 @@ Public Class cAvisoAnhaenge list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Typ", anh_Typ)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_Reihenfolge", anh_Reihenfolge)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_LaufzettelDruck", anh_LaufzettelDruck)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("anh_GestellungslisteAnfuegen", anh_GestellungslisteAnfuegen)) Return list End Function @@ -170,4 +172,9 @@ Public Class cAvisoAnhaenge Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO") End Function + Public Shared Function toggleGestellungslisteAnfuegen(id As Integer) As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim sqlstr = " UPDATE [tblAvisoAnhaenge] SET [anh_GestellungslisteAnfuegen] = 1 - [anh_GestellungslisteAnfuegen] WHERE anh_id=" & id + Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "AVISO") + End Function + End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index df36310c..820037fb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -11,6 +11,8 @@ Public Class cKundenErweitert Property kde_qsTeamMAId As Object = Nothing Property kde_qsTeamMAName As Object = Nothing Property kde_qsTeamName As Object = Nothing + Property kde_TeamId As Object = Nothing + Property kde_TeamMAId As Object = Nothing 'Property kde_Hoechstkredit As Object = Nothing Property kde_Versicherung_Deckungsstopp As Boolean = False @@ -35,6 +37,8 @@ Public Class cKundenErweitert Property EmailFreigabe_SteuerbescheidPDF_Bedingung As Integer Property EmailFreigabe_VBDPDF As Boolean = False + Property EmailFreigabe_ABDPDF As Boolean = False + Property Email_AVM As Boolean = False Property Depot_Kunde As Boolean = False Property FiBuSchnittstelleLG As Boolean = False @@ -73,6 +77,8 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamMAId", kde_qsTeamMAId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamMAName", kde_qsTeamMAName)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_qsTeamName", kde_qsTeamName)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TeamId", kde_TeamId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_TeamMAId", kde_TeamMAId)) ' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Hoechstkredit", kde_Hoechstkredit)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_Deckungsstopp", kde_Versicherung_Deckungsstopp)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Versicherung_DeckungsstoppDatum", kde_Versicherung_DeckungsstoppDatum)) @@ -94,6 +100,8 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_SteuerbescheidPDF", EmailFreigabe_SteuerbescheidPDF)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_SteuerbescheidPDF_Bedingung", EmailFreigabe_SteuerbescheidPDF_Bedingung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_VBDPDF", EmailFreigabe_VBDPDF)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe_ABDPDF", EmailFreigabe_ABDPDF)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Email_AVM", Email_AVM)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Depot_Kunde", Depot_Kunde)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FiBuSchnittstelleLG", FiBuSchnittstelleLG)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsziel2", Zahlungsziel2)) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb index 9ff8f8f7..430d349e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb @@ -43,13 +43,13 @@ Public Class cRechnungsnummern Case 21 ' UNISPED AT VonRechnungsNr = Now.ToString("yy") & "7000000" - BisRechnungsNr = Now.ToString("yy") & "799999" + BisRechnungsNr = Now.ToString("yy") & "7999999" Case 22 ' UNISPED DE VonRechnungsNr = Now.ToString("yy") & "9000000" - BisRechnungsNr = Now.ToString("yy") & "999999" + BisRechnungsNr = Now.ToString("yy") & "9999999" Case 23 ' UNISPED Zollservice VonRechnungsNr = Now.ToString("yy") & "5000000" - BisRechnungsNr = Now.ToString("yy") & "599999" + BisRechnungsNr = Now.ToString("yy") & "5999999" End Select LfdRechnungsNr = VonRechnungsNr '------------------------------------- diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index dcb5a721..e9748fd7 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -94,6 +94,10 @@ Public Class cSendungen Property tblSnd_Vorpapier As Object = Nothing Property tblSnd_Vorpapier_Pos As Object = Nothing + Property tblSnd_Vorpapier2 As Object = Nothing + Property tblSnd_Vorpapier2_Pos As Object = Nothing + Property tblSnd_Vorpapier3 As Object = Nothing + Property tblSnd_Vorpapier3_Pos As Object = Nothing Public saveSachbearbeiter As Boolean = False @@ -124,6 +128,18 @@ Public Class cSendungen Shared Function VP_Enum(ByVal SENDUNG_LIST As List(Of cSendungen)) As List(Of String) Dim list = New List(Of String) + 'If SENDUNG_LIST IsNot Nothing Then + ' For Each s In SENDUNG_LIST + ' If If(s.tblSnd_Vorpapier, "") <> "" Then + ' Dim found = False + ' For Each l In list + ' If l = s.tblSnd_Vorpapier Then found = True + ' Next + ' If found = False Then list.Add(s.tblSnd_Vorpapier) + ' End If + ' Next + 'End If + If SENDUNG_LIST IsNot Nothing Then For Each s In SENDUNG_LIST If If(s.tblSnd_Vorpapier, "") <> "" Then @@ -133,8 +149,23 @@ Public Class cSendungen Next If found = False Then list.Add(s.tblSnd_Vorpapier) End If + If If(s.tblSnd_Vorpapier2, "") <> "" Then + Dim found = False + For Each l In list + If l = s.tblSnd_Vorpapier2 Then found = True + Next + If found = False Then list.Add(s.tblSnd_Vorpapier2) + End If + If If(s.tblSnd_Vorpapier3, "") <> "" Then + Dim found = False + For Each l In list + If l = s.tblSnd_Vorpapier3 Then found = True + Next + If found = False Then list.Add(s.tblSnd_Vorpapier3) + End If Next End If + Return list End Function @@ -151,7 +182,7 @@ Public Class cSendungen If SENDUNG_LIST Is Nothing Then SENDUNG_LIST = New List(Of cSendungen) SENDUNG_LIST.Clear() Dim SQL As New SQL - For Each r In SQL.loadDgvBySql("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & " AND tblSnd_Vorpapier='" & Vorpapier & "' ORDER BY tblSnd_PosUnterNr,tblSnd_SendungID", "AVISO").Rows + For Each r In SQL.loadDgvBySql("SELECT tblSnd_SendungID FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & " AND (tblSnd_Vorpapier='" & Vorpapier & "' OR tblSnd_Vorpapier2='" & Vorpapier & "' OR tblSnd_Vorpapier3='" & Vorpapier & "' ) ORDER BY tblSnd_PosUnterNr,tblSnd_SendungID", "AVISO").Rows SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) Next If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1) @@ -312,6 +343,10 @@ Public Class cSendungen Me.tblSnd_ATB_T1 = SQL.checkNullReturnValue(dr.Item("tblSnd_ATB_T1"), Nothing) Me.tblSnd_Vorpapier = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier"), Nothing) Me.tblSnd_Vorpapier_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier_Pos"), Nothing) + Me.tblSnd_Vorpapier2 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2"), Nothing) + Me.tblSnd_Vorpapier2_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2_Pos"), Nothing) + Me.tblSnd_Vorpapier3 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3"), Nothing) + Me.tblSnd_Vorpapier3_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3_Pos"), Nothing) End If @@ -488,6 +523,10 @@ Public Class cSendungen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATB_T1", tblSnd_ATB_T1)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier", tblSnd_Vorpapier)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier_Pos", tblSnd_Vorpapier_Pos)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2", tblSnd_Vorpapier2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2_Pos", tblSnd_Vorpapier2_Pos)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3", tblSnd_Vorpapier3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3_Pos", tblSnd_Vorpapier3_Pos)) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index 64e6ca15..94ce3bc3 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -174,6 +174,8 @@ Public Class cSpeditionsbuch Property DokumentId_Steuerbeleg As Object = Nothing Property DokumentId_Mitteilung As Object = Nothing Property DokumentId_VBD As Object = Nothing + Property DokumentId_ABD As Object = Nothing + Property DokumentId_AVM As Object = Nothing Property FilialenNrHandling As Object = Nothing Property HandlingZuKassieren As Double = 0 @@ -337,6 +339,8 @@ Public Class cSpeditionsbuch Me.DokumentId_Steuerbeleg = SQL.checkNullReturnValue(dr.Item("DokumentId_Steuerbeleg"), Nothing) Me.DokumentId_Mitteilung = SQL.checkNullReturnValue(dr.Item("DokumentId_Mitteilung"), Nothing) Me.DokumentId_VBD = SQL.checkNullReturnValue(dr.Item("DokumentId_VBD"), Nothing) + Me.DokumentId_ABD = SQL.checkNullReturnValue(dr.Item("DokumentId_ABD"), Nothing) + Me.DokumentId_AVM = SQL.checkNullReturnValue(dr.Item("DokumentId_avm"), Nothing) Me.FilialenNrHandling = SQL.checkNullReturnValue(dr.Item("FilialenNrHandling"), Nothing) Me.FilialenNrAbklaerung = SQL.checkNullReturnValue(dr.Item("FilialenNrAbklaerung"), Nothing) Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren")) @@ -486,6 +490,8 @@ Public Class cSpeditionsbuch list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Steuerbeleg", DokumentId_Steuerbeleg)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_ABD", DokumentId_ABD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_AVM", DokumentId_AVM)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrAbklaerung", FilialenNrAbklaerung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren)) diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index 71bb8952..c47eea95 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -349,6 +349,7 @@ Public Class frmMessenger Return (CHAT_ITEM) End Select + Return Nothing End Function Sub REFRESH_CHAT()