diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 6e67da43..e88f929f 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -663,7 +663,7 @@ Public Class cFakturierung rpt.lblKundenNr.Text = If(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, "") - rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, RECHNUNG.RechnungsNr, "Vorschau") + rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau") rpt.lblRgDatum.Text = If(RECHNUNG.RechnungsDatum IsNot Nothing, CDate(RECHNUNG.RechnungsDatum).ToShortDateString, "VORSCHAU") 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") @@ -884,7 +884,7 @@ Public Class cFakturierung Kopie = False 'Aktualisierung und speichern: If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then - rpt.lblRgNr.Text = RECHNUNG.RechnungsNr + rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString Else MsgBox("Fehler bei der Vergabe der Rg-Nr.!") @@ -1190,7 +1190,7 @@ Public Class cFakturierung End Function - Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Public Shared Function doSAMMELRechnungsDruck(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional whereKdNr As String = "", Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, ByRef Optional DruckdatumUhrzeit As DateTime = Nothing, Optional AvisoIds As List(Of Integer) = Nothing, Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional vorschau As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean 'If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False Try 'If whereKdNr <> "" Then whereKdNr = " AND RechnungsKundenNr IN(" & whereKdNr & ") " @@ -1204,6 +1204,10 @@ Public Class cFakturierung 'Else ' sqlStr &= " ORDER BY Rechnungsausgang.Firma_ID, Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID " 'End If + Dim VorschauID = "" + If vorschau Then + VorschauID = DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "_" & Firma_ID + End If 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 @@ -1234,7 +1238,7 @@ Public Class cFakturierung If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID 'erstes Mal If kdTmp <> RG.RechnungsKundenNr Or AvisoIdTmp <> RG.AvisoID Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr Dim path = "" - doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen) 'hier wird auch die RG Nr erhöht! + doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID) 'hier wird auch die RG Nr erhöht! Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) If path <> "" Then listPDFs.Add(path) End If @@ -1248,7 +1252,7 @@ Public Class cFakturierung If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID 'erstes Mal If kdTmp <> RG.RechnungsKundenNr Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr Dim path = "" - doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen) + doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID) Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) If path <> "" Then listPDFs.Add(path) End If @@ -1257,11 +1261,16 @@ Public Class cFakturierung FIRMATmp = RG.Firma_ID End Select - RG.[RechnungsNr] = Aktuelle_RgNr - RG.[Status] = 3 - RG.[RechnungsDatum] = Rechnungsdatum.ToShortDateString - RG.[Buchungsjahr] = Buchungsjahr - RG.[DruckDatumZeit] = DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") + If vorschau Then + ' RG.[VorschauID] = VorschauID + Else + + RG.[RechnungsNr] = Aktuelle_RgNr + RG.[Status] = 3 + RG.[RechnungsDatum] = Rechnungsdatum.ToShortDateString + RG.[Buchungsjahr] = Buchungsjahr + RG.[DruckDatumZeit] = DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") + End If RG.SAVE() found = True @@ -1271,7 +1280,7 @@ Public Class cFakturierung 'Letzter Abschnitt: If found Then Dim path = "" - doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen) + doSAMMELRechnungsDruck_Abschnitt(Aktuelle_RgNr, Firma_ID, Buchungsjahr, DruckdatumUhrzeit, PrinterName, AnlageEinzelRg, Sammelrechnungsbericht, RechnungsdruckArt, path,, SB, AnlageExcelEvolog, SonstAnlagen, VorschauID) If path <> "" Then listPDFs.Add(path) End If lastAktuelle_RgNr = Aktuelle_RgNr @@ -1290,7 +1299,7 @@ Public Class cFakturierung RG_NR.CHECK_RGNR() End Function - Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing) As Boolean + Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "") As Boolean 'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit Dim dt As DataTable @@ -1313,13 +1322,13 @@ Public Class cFakturierung '-------------- ENDE -------------- - doSAMMELRechnungsDruck_Abschnitt = doSAMMELRechnungDruck_Rechnungsdruck(dt, RechnungsNr, DruckdatumUhrzeit, 3, RechnungsdruckArt, pathPDF_SammelRg, PrinterName, SRDruckWiederholen) 'Sammelrechnung drucken - If Sammelrechnungsbericht Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, pathPDF_SammelBericht, PrinterName) Then doSAMMELRechnungsDruck_Abschnitt = False 'Sammelrechnungsbericht drucken - If AnlageEinzelRg Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr, DruckdatumUhrzeit, PrinterName, pathPDF_Anlage, RechnungsdruckArt) Then doSAMMELRechnungsDruck_Abschnitt = False 'Anlagen drucken + doSAMMELRechnungsDruck_Abschnitt = doSAMMELRechnungDruck_Rechnungsdruck(dt, RechnungsNr, DruckdatumUhrzeit, 3, RechnungsdruckArt, pathPDF_SammelRg, PrinterName, SRDruckWiederholen, VorschauID) 'Sammelrechnung drucken + If Sammelrechnungsbericht Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, pathPDF_SammelBericht, PrinterName, VorschauID) Then doSAMMELRechnungsDruck_Abschnitt = False 'Sammelrechnungsbericht drucken + If AnlageEinzelRg Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr, DruckdatumUhrzeit, PrinterName, pathPDF_Anlage, RechnungsdruckArt, VorschauID) Then doSAMMELRechnungsDruck_Abschnitt = False 'Anlagen drucken 'SONSTIGE ANLAGEN: If AnlageExcelEvolog Then 'Sammelrechnungsbericht EVOLOG - If doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelEvolog(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, xls_Evolog, PrinterName) Then + If doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelEvolog(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, xls_Evolog, PrinterName, VorschauID) Then If xls_Evolog <> "" Then SonstAnlagen.Add(xls_Evolog) Else doSAMMELRechnungsDruck_Abschnitt = False @@ -1363,7 +1372,7 @@ Public Class cFakturierung '-------------- ENDE -------------- End Function - Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr As Integer, DruckDatumZeit As Date, PrinterName As String, Optional ByRef pathPDF_Anlage As List(Of String) = Nothing, Optional RechnungsdruckArt As Integer = -1) As Boolean + Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr As Integer, DruckDatumZeit As Date, PrinterName As String, Optional ByRef pathPDF_Anlage As List(Of String) = Nothing, Optional RechnungsdruckArt As Integer = -1, Optional VorschauID As String = "") As Boolean Dim dt As DataTable = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") If dt IsNot Nothing Then For Each r In dt.Rows @@ -1381,7 +1390,7 @@ Public Class cFakturierung - Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelEvolog(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelEvolog(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean Try @@ -1462,7 +1471,7 @@ Public Class cFakturierung End Function - Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean Try Dim rpt As New rptSammelRechnungAnlagenDruck @@ -1470,7 +1479,7 @@ Public Class cFakturierung Dim dt As DataTable = SQL.loadDgvBySql("Select * FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(3) And CONVERT(datetime,DruckDatumZeit ,104)='" & DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") rpt.DataSource = dt - Dim ROW As DataRow = dt.Rows(0) + Dim ROW As DataRow = dt.Rows(0) Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID")) Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr")) @@ -1513,7 +1522,7 @@ Public Class cFakturierung rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "") - rpt.lblRgNr.Text = ROW("RechnungsNr") + rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr") rpt.lblRgDatum.Text = ROW("RechnungsDatum") 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") @@ -1758,8 +1767,14 @@ Public Class cFakturierung Return USRKURZNAME End Function + Shared Function addYeartoRgNr(Firma_ID, Buchungsjahr) + Select Case Firma_ID + Case "21", "22", "23" : Return Buchungsjahr.ToString.Substring(2) & "-" + End Select + Return "" + End Function - Shared Function doSAMMELRechnungDruck_Rechnungsdruck(dt As DataTable, RechnungsNr As Integer, DruckdatumUhrzeit As Date, Rgstatus As Integer, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional SRDruckWiederholen As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean + Shared Function doSAMMELRechnungDruck_Rechnungsdruck(dt As DataTable, RechnungsNr As Integer, DruckdatumUhrzeit As Date, Rgstatus As Integer, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional SRDruckWiederholen As Boolean = False, Optional VorschauID As String = "") As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean Try Dim rpt As New rptSammelRechnungDruck @@ -1822,7 +1837,7 @@ Public Class cFakturierung rpt.txtVermerk.Text = strText rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "") - rpt.lblRgNr.Text = ROW("RechnungsNr") + rpt.lblRgNr.Text = addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr") rpt.lblRgDatum.Text = ROW("RechnungsDatum") 'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "") diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb index b382f5ea..6b13705d 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb @@ -51,6 +51,7 @@ Partial Class frmFaktSammelRgDrucken Me.lblSB = New System.Windows.Forms.Label() Me.cbxEVOLOG = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -395,12 +396,26 @@ Partial Class frmFaktSammelRgDrucken Me.Label4.TabIndex = 20 Me.Label4.Text = "Spezial" ' + 'Button1 + ' + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(150, 166) + Me.Button1.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(91, 25) + Me.Button1.TabIndex = 21 + Me.Button1.Text = "Vorschau" + Me.Button1.UseVisualStyleBackColor = True + ' 'frmFaktSammelRgDrucken ' 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(811, 297) + Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.cbxEVOLOG) Me.Controls.Add(Me.lblSB) @@ -461,4 +476,5 @@ Partial Class frmFaktSammelRgDrucken Friend WithEvents lblSB As Label Friend WithEvents cbxEVOLOG As CheckBox Friend WithEvents Label4 As Label + Friend WithEvents Button1 As Button End Class diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 2a0fd4ea..468ef91a 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -339,4 +339,8 @@ Public Class frmFaktSammelRgDrucken Private Sub lkl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lkl.LinkClicked MyDatagridview1.ClearSelection() End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + doSammelrechnung(3) + End Sub End Class \ No newline at end of file diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index a11b9ea1..4ff49403 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -110,17 +110,22 @@ Partial Class frmRechnungenSuche Me.cboBerichtRgAbfArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label31 = New System.Windows.Forms.Label() Me.Button8 = New System.Windows.Forms.Button() - Me.MenuStrip = New System.Windows.Forms.MenuStrip() - Me.KundenauswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.EVOLOGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.KundenauswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() + Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() Me.Label32 = New System.Windows.Forms.Label() Me.btnExcel = New System.Windows.Forms.Button() Me.FlatButton7 = New System.Windows.Forms.Button() Me.lblErgebnis = New System.Windows.Forms.Label() + Me.KundenauswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.EVOLOGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.ZFPASSAUToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Label22 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() + Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -136,7 +141,7 @@ Partial Class frmRechnungenSuche Me.cntxtCntxtSpeditionsbuch.SuspendLayout() Me.pnlOpt.SuspendLayout() Me.pnlBerichte.SuspendLayout() - Me.MenuStrip.SuspendLayout() + Me.MenuStrip1.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlTop.SuspendLayout() Me.SuspendLayout() @@ -1445,7 +1450,7 @@ Partial Class frmRechnungenSuche Me.pnlBerichte.Controls.Add(Me.cboBerichtRgAbfArt) Me.pnlBerichte.Controls.Add(Me.Label31) Me.pnlBerichte.Controls.Add(Me.Button8) - Me.pnlBerichte.Controls.Add(Me.MenuStrip) + Me.pnlBerichte.Controls.Add(Me.MenuStrip1) Me.pnlBerichte.Dock = System.Windows.Forms.DockStyle.Left Me.pnlBerichte.Location = New System.Drawing.Point(323, 0) Me.pnlBerichte.Name = "pnlBerichte" @@ -1517,35 +1522,40 @@ Partial Class frmRechnungenSuche Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button8.UseVisualStyleBackColor = True ' - 'MenuStrip + 'MenuStrip1 ' - Me.MenuStrip.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.MenuStrip.Dock = System.Windows.Forms.DockStyle.None - Me.MenuStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem}) - Me.MenuStrip.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow - Me.MenuStrip.Location = New System.Drawing.Point(368, 22) - Me.MenuStrip.Name = "MenuStrip" - Me.MenuStrip.Size = New System.Drawing.Size(157, 26) - Me.MenuStrip.TabIndex = 42 - Me.MenuStrip.Text = "Kundenauswertungen" + 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(368, 23) + Me.MenuStrip1.Name = "MenuStrip1" + Me.MenuStrip1.Size = New System.Drawing.Size(299, 27) + Me.MenuStrip1.TabIndex = 43 + Me.MenuStrip1.Text = "Kundenauswertungen" ' - 'KundenauswertungenToolStripMenuItem + 'KundenauswertungenToolStripMenuItem1 ' - Me.KundenauswertungenToolStripMenuItem.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.KundenauswertungenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EVOLOGToolStripMenuItem}) - Me.KundenauswertungenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!) - Me.KundenauswertungenToolStripMenuItem.ForeColor = System.Drawing.Color.White - Me.KundenauswertungenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.statistik2 - Me.KundenauswertungenToolStripMenuItem.Name = "KundenauswertungenToolStripMenuItem" - Me.KundenauswertungenToolStripMenuItem.Size = New System.Drawing.Size(150, 20) - Me.KundenauswertungenToolStripMenuItem.Text = "Kundenauswertungen" + 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.EVOLOGSammelrechnungAuswählenToolStripMenuItem, Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem}) + Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!) + Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White + Me.KundenauswertungenToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1" + Me.KundenauswertungenToolStripMenuItem1.Size = New System.Drawing.Size(171, 23) + Me.KundenauswertungenToolStripMenuItem1.Text = "Kundenauswertungen" ' - 'EVOLOGToolStripMenuItem + 'EVOLOGSammelrechnungAuswählenToolStripMenuItem ' - Me.EVOLOGToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo - Me.EVOLOGToolStripMenuItem.Name = "EVOLOGToolStripMenuItem" - Me.EVOLOGToolStripMenuItem.Size = New System.Drawing.Size(180, 22) - Me.EVOLOGToolStripMenuItem.Text = "EVOLOG" + Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image = CType(resources.GetObject("EVOLOGSammelrechnungAuswählenToolStripMenuItem.Image"), System.Drawing.Image) + Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Name = "EVOLOGSammelrechnungAuswählenToolStripMenuItem" + Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Size = New System.Drawing.Size(347, 24) + Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)" + ' + '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)" ' 'pnl ' @@ -1604,6 +1614,30 @@ Partial Class frmRechnungenSuche Me.lblErgebnis.Text = "Ergebnisse: 0" Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'KundenauswertungenToolStripMenuItem + ' + Me.KundenauswertungenToolStripMenuItem.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.KundenauswertungenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!) + Me.KundenauswertungenToolStripMenuItem.ForeColor = System.Drawing.Color.White + Me.KundenauswertungenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.statistik2 + Me.KundenauswertungenToolStripMenuItem.Name = "KundenauswertungenToolStripMenuItem" + Me.KundenauswertungenToolStripMenuItem.Size = New System.Drawing.Size(150, 20) + Me.KundenauswertungenToolStripMenuItem.Text = "Kundenauswertungen" + ' + 'EVOLOGToolStripMenuItem + ' + Me.EVOLOGToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.EVOLOGToolStripMenuItem.Name = "EVOLOGToolStripMenuItem" + Me.EVOLOGToolStripMenuItem.Size = New System.Drawing.Size(290, 22) + Me.EVOLOGToolStripMenuItem.Text = "EVOLOG (Sammelrechnung auswählen)" + ' + 'ZFPASSAUToolStripMenuItem + ' + Me.ZFPASSAUToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.ZFPASSAUToolStripMenuItem.Name = "ZFPASSAUToolStripMenuItem" + Me.ZFPASSAUToolStripMenuItem.Size = New System.Drawing.Size(290, 22) + Me.ZFPASSAUToolStripMenuItem.Text = "ZF Friedrichshafen AG (Zeitraum wählen)" + ' 'Label22 ' Me.Label22.AutoSize = True @@ -1636,6 +1670,12 @@ Partial Class frmRechnungenSuche Me.pnlTop.Size = New System.Drawing.Size(1211, 48) Me.pnlTop.TabIndex = 0 ' + 'TestToolStripMenuItem + ' + Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem" + Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19) + Me.TestToolStripMenuItem.Text = "test" + ' 'frmRechnungenSuche ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -1645,7 +1685,6 @@ Partial Class frmRechnungenSuche Me.Controls.Add(Me.SplitContainer) Me.Controls.Add(Me.pnlTop) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.MainMenuStrip = Me.MenuStrip Me.Name = "frmRechnungenSuche" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Rechnungsdaten" @@ -1669,8 +1708,8 @@ Partial Class frmRechnungenSuche Me.pnlOpt.PerformLayout() Me.pnlBerichte.ResumeLayout(False) Me.pnlBerichte.PerformLayout() - Me.MenuStrip.ResumeLayout(False) - Me.MenuStrip.PerformLayout() + Me.MenuStrip1.ResumeLayout(False) + Me.MenuStrip1.PerformLayout() Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() Me.pnlTop.ResumeLayout(False) @@ -1772,7 +1811,12 @@ Partial Class frmRechnungenSuche Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Button2 As Button Friend WithEvents Button13 As Button - Friend WithEvents MenuStrip As MenuStrip Friend WithEvents KundenauswertungenToolStripMenuItem As ToolStripMenuItem Friend WithEvents EVOLOGToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ZFPASSAUToolStripMenuItem As ToolStripMenuItem + Friend WithEvents TestToolStripMenuItem As ToolStripMenuItem + Friend WithEvents MenuStrip1 As MenuStrip + Friend WithEvents KundenauswertungenToolStripMenuItem1 As ToolStripMenuItem + Friend WithEvents EVOLOGSammelrechnungAuswählenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/Fakturierung/frmRechnungenSuche.resx b/SDL/Fakturierung/frmRechnungenSuche.resx index 87b5d1a2..1f5e3ef9 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.resx +++ b/SDL/Fakturierung/frmRechnungenSuche.resx @@ -123,10 +123,174 @@ 17, 17 - - 208, 17 + + 316, 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= + + + + + 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= + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index c8c74c43..4b698e31 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -637,11 +637,89 @@ Public Class frmRechnungenSuche End Sub - Private Sub EVOLOGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EVOLOGToolStripMenuItem.Click + Private Sub EVOLOGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EVOLOGSammelrechnungAuswählenToolStripMenuItem.Click If DataGridView.SelectedRows.Count = 0 Then Exit Sub Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(DataGridView.SelectedRows(0).Cells("RK_ID").Value) If RG_TMP.Sammelrechnung <> 0 Then cFakturierung.doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht_ExcelEvolog(RG_TMP.RechnungsNr, RG_TMP.DruckDatumZeit, 3, "", "") End If End Sub + + Private Sub ZFPASSAUToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Click + 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 + FROM [VERAG].[dbo].[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 = "" + 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) + Exit Sub + End Try + + Datei = .Workbooks.Open(Path) 'Anpassen + Blatt = Datei.Worksheets(1) 'Anpassen + + Blatt.Range("G1").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("D" & cnt).Value = r("RechnungsDatum") + Blatt.Range("E" & cnt).Value = r("Absender") + Blatt.Range("F" & cnt).Value = r("Betrag") + Blatt.Range("G" & cnt).Value = r("BelegNr") + + cnt += 1 + Next + Datei.Save + + If False Then + Blatt.PrintOutEx() + Else + 'Process.Start(Path) + .Visible = True + + End If + End With + + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + End Sub + + End Class \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb index 4d8477ae..046a5a95 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb @@ -67,6 +67,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtFirma_UNISPED = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.SubReport1 = New GrapeCity.ActiveReports.SectionReportModel.SubReport() Me.txtGesColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtGesGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox() @@ -74,6 +75,7 @@ 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() @@ -115,6 +117,7 @@ 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 @@ -125,7 +128,7 @@ Partial Public Class rptLaufzettelZollDE 'Detail ' Me.Detail.ColumnDirection = GrapeCity.ActiveReports.SectionReportModel.ColumnDirection.AcrossDown - Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape10, Me.Shape11, Me.txtAbfertigungsart, Me.txtAbsender, Me.txtVerzollungsadresse, Me.txtNr, Me.txtAnmerkung, Me.txtPosNr, Me.txtEmpfänger, Me.Shape8, Me.SubReport}) + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape10, Me.Shape11, Me.txtAbfertigungsart, Me.txtAbsender, Me.txtVerzollungsadresse, Me.txtNr, Me.txtAnmerkung, Me.txtPosNr, Me.txtEmpfänger, Me.Shape8, Me.SubReport, Me.txtPos}) Me.Detail.Height = 0.6461451! Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" @@ -301,7 +304,7 @@ Partial Public Class rptLaufzettelZollDE ' 'ReportHeader1 ' - Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED}) + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1}) Me.ReportHeader1.Height = 2.227953! Me.ReportHeader1.Name = "ReportHeader1" ' @@ -561,13 +564,13 @@ Partial Public Class rptLaufzettelZollDE 'TextBox1 ' Me.TextBox1.Height = 0.230315! - Me.TextBox1.Left = 0.4405513! + Me.TextBox1.Left = 0.4311024! Me.TextBox1.Name = "TextBox1" Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & "-char-set: 1" - Me.TextBox1.Text = "LAUFZETTEL" + Me.TextBox1.Text = "LAUFZETTEL / GESTELLUNGSMITTEILUNG" Me.TextBox1.Top = 1.488583! - Me.TextBox1.Width = 7.077559! + Me.TextBox1.Width = 7.094489! ' 'Shape2 ' @@ -636,6 +639,18 @@ Partial Public Class rptLaufzettelZollDE Me.txtFirma_UNISPED.Visible = False Me.txtFirma_UNISPED.Width = 6.67165! ' + 'SubReport1 + ' + Me.SubReport1.CloseBorder = False + Me.SubReport1.Height = 0.09862205! + Me.SubReport1.Left = 0.4405512! + Me.SubReport1.Name = "SubReport1" + Me.SubReport1.Report = Nothing + Me.SubReport1.ReportName = "SubReport1" + Me.SubReport1.Top = 1.718898! + Me.SubReport1.Visible = False + Me.SubReport1.Width = 7.197245! + ' 'txtGesColli ' Me.txtGesColli.Height = 0.1574803! @@ -714,6 +729,17 @@ 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 @@ -776,6 +802,7 @@ 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 @@ -834,4 +861,6 @@ Partial Public Class rptLaufzettelZollDE Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents txtFirma_UNISPED As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents SubReport1 As GrapeCity.ActiveReports.SectionReportModel.SubReport + Public WithEvents txtPos As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.Designer.vb index 08a95658..44654544 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.Designer.vb @@ -25,9 +25,11 @@ Partial Public Class subRptLaufzettelZollDE_ATA Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.lblSieheFremdspedition = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtVorpapier = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtATNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtRechnungspreisHeader = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtRechnungspreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() - Me.txtATNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit() @@ -37,11 +39,13 @@ Partial Public Class subRptLaufzettelZollDE_ATA CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVorpapier, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtATNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtRechnungspreisHeader, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtRechnungspreis, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'Detail ' - Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition, Me.txtVorpapier, Me.txtATNr}) + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtVorpapier, Me.txtRechnungspreisHeader, Me.txtRechnungspreis, Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition, Me.txtATNr}) Me.Detail.Height = 0.4483269! Me.Detail.Name = "Detail" ' @@ -114,13 +118,13 @@ Partial Public Class subRptLaufzettelZollDE_ATA ' 'lblSieheFremdspedition ' - Me.lblSieheFremdspedition.Height = 0.1669292! - Me.lblSieheFremdspedition.Left = 3.561024! + Me.lblSieheFremdspedition.Height = 0.1669291! + Me.lblSieheFremdspedition.Left = 1.834646! Me.lblSieheFremdspedition.Name = "lblSieheFremdspedition" Me.lblSieheFremdspedition.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" & "-align: top; ddo-char-set: 1" Me.lblSieheFremdspedition.Text = "siehe Fremdspedition" - Me.lblSieheFremdspedition.Top = 0.2188977! + Me.lblSieheFremdspedition.Top = 0.05196851! Me.lblSieheFremdspedition.Visible = False Me.lblSieheFremdspedition.Width = 1.667323! ' @@ -136,16 +140,6 @@ Partial Public Class subRptLaufzettelZollDE_ATA Me.txtVorpapier.Visible = False Me.txtVorpapier.Width = 2.779922! ' - 'GroupHeader1 - ' - Me.GroupHeader1.Height = 0! - Me.GroupHeader1.Name = "GroupHeader1" - ' - 'GroupFooter1 - ' - Me.GroupFooter1.Height = 0! - Me.GroupFooter1.Name = "GroupFooter1" - ' 'txtATNr ' Me.txtATNr.Height = 0.25! @@ -158,6 +152,39 @@ Partial Public Class subRptLaufzettelZollDE_ATA Me.txtATNr.Visible = False Me.txtATNr.Width = 3.561024! ' + 'txtRechnungspreisHeader + ' + Me.txtRechnungspreisHeader.Height = 0.1669292! + Me.txtRechnungspreisHeader.Left = 3.501969! + Me.txtRechnungspreisHeader.Name = "txtRechnungspreisHeader" + Me.txtRechnungspreisHeader.Style = "font-size: 7pt; text-align: left; vertical-align: bottom; ddo-char-set: 1" + Me.txtRechnungspreisHeader.Text = "Rechnungspreis:" + Me.txtRechnungspreisHeader.Top = 0.2188977! + Me.txtRechnungspreisHeader.Visible = False + Me.txtRechnungspreisHeader.Width = 0.9181101! + ' + 'txtRechnungspreis + ' + Me.txtRechnungspreis.Height = 0.1669291! + Me.txtRechnungspreis.Left = 4.420079! + Me.txtRechnungspreis.Name = "txtRechnungspreis" + Me.txtRechnungspreis.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: right; vertica" & + "l-align: bottom; ddo-char-set: 1" + Me.txtRechnungspreis.Text = Nothing + Me.txtRechnungspreis.Top = 0.2188977! + Me.txtRechnungspreis.Visible = False + Me.txtRechnungspreis.Width = 0.8082676! + ' + 'GroupHeader1 + ' + Me.GroupHeader1.Height = 0! + Me.GroupHeader1.Name = "GroupHeader1" + ' + 'GroupFooter1 + ' + Me.GroupFooter1.Height = 0! + Me.GroupFooter1.Name = "GroupFooter1" + ' 'subRptLaufzettelZollDE_ATA ' Me.MasterReport = False @@ -182,6 +209,8 @@ Partial Public Class subRptLaufzettelZollDE_ATA CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVorpapier, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtATNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtRechnungspreisHeader, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtRechnungspreis, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -196,4 +225,6 @@ Partial Public Class subRptLaufzettelZollDE_ATA Public WithEvents lblSieheFremdspedition As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtVorpapier As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents txtATNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtRechnungspreisHeader As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtRechnungspreis As GrapeCity.ActiveReports.SectionReportModel.TextBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb index 42cd4efa..a4071506 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb @@ -6,13 +6,18 @@ Public Class subRptLaufzettelZollDE_ATA Dim ATA As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling) Dim Fremdspedition As Boolean Dim Vorpapier As String - Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean, Vorpapier As String) + Dim Rechnungspreis As Object = Nothing + Dim Rechnungswaehrung As Object = Nothing + + Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean, Vorpapier As String, Rechnungspreis As Object, Rechnungswaehrung As Object) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.ATA = ATA Me.Fremdspedition = Fremdspedition Me.Vorpapier = Vorpapier + Me.Rechnungspreis = Rechnungspreis + Me.Rechnungswaehrung = Rechnungswaehrung ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub @@ -32,8 +37,14 @@ Public Class subRptLaufzettelZollDE_ATA 'txtVorpapier.Text = Vorpapier 'txtVorpapier.Visible = True + If Rechnungspreis IsNot Nothing AndAlso IsNumeric(Rechnungspreis) Then + txtRechnungspreisHeader.Visible = True + txtRechnungspreis.Visible = True + txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString(".00") & " " & If(Rechnungswaehrung, "") + End If End If + If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then Dim ATAMRN As String = Me.Fields.Item("ATA").Value ATAMRN = ATAMRN.Replace(" ", "") diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.Designer.vb new file mode 100644 index 00000000..da1c78c7 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.Designer.vb @@ -0,0 +1,150 @@ + +Partial Public Class subRptLaufzettelZollDE_Vorpapier + 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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + + Private Sub InitializeComponent() + Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptLaufzettelZollDE_Vorpapier)) + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.Shape4 = New GrapeCity.ActiveReports.SectionReportModel.Shape() + Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.picBarcodeMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture() + CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'Detail + ' + Me.Detail.CanGrow = False + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape2, Me.txtATAMRN, Me.txtNr, Me.picBarcodeMRN}) + Me.Detail.Height = 0.2732284! + Me.Detail.Name = "Detail" + ' + 'Shape2 + ' + Me.Shape2.Height = 0.2732284! + Me.Shape2.Left = 0.007874017! + Me.Shape2.Name = "Shape2" + Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape2.Top = 0! + Me.Shape2.Width = 7.086614! + ' + 'txtATAMRN + ' + Me.txtATAMRN.CanGrow = False + Me.txtATAMRN.Height = 0.2094488! + Me.txtATAMRN.Left = 0.3248032! + Me.txtATAMRN.Name = "txtATAMRN" + Me.txtATAMRN.Style = "font-size: 12pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & + "-char-set: 1" + Me.txtATAMRN.Text = "T1" + Me.txtATAMRN.Top = 0.03543307! + Me.txtATAMRN.Width = 4.852756! + ' + 'txtNr + ' + Me.txtNr.CanGrow = False + Me.txtNr.Height = 0.2094488! + Me.txtNr.Left = 0.04488189! + Me.txtNr.Name = "txtNr" + Me.txtNr.Style = "font-size: 12pt; font-weight: normal; text-align: left; vertical-align: middle; d" & + "do-char-set: 1" + Me.txtNr.Text = "1" + Me.txtNr.Top = 0.03543307! + Me.txtNr.Width = 0.2799213! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape4, Me.TextBox8}) + Me.ReportHeader1.Height = 0.2890584! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'Shape4 + ' + Me.Shape4.BackColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer)) + Me.Shape4.Height = 0.2161417! + Me.Shape4.Left = 0.007874017! + Me.Shape4.Name = "Shape4" + Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape4.Top = 0.07283465! + Me.Shape4.Width = 7.086614! + ' + 'TextBox8 + ' + Me.TextBox8.Height = 0.1460631! + Me.TextBox8.Left = 0.04488189! + Me.TextBox8.Name = "TextBox8" + Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & + "ddo-char-set: 1" + Me.TextBox8.Text = "Vorpapier(e):" + Me.TextBox8.Top = 0.1035433! + Me.TextBox8.Width = 1.130709! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Height = 0.08333333! + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'picBarcodeMRN + ' + Me.picBarcodeMRN.Height = 0.2188976! + Me.picBarcodeMRN.HyperLink = Nothing + Me.picBarcodeMRN.ImageData = Nothing + Me.picBarcodeMRN.Left = 2.854725! + Me.picBarcodeMRN.Name = "picBarcodeMRN" + Me.picBarcodeMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft + Me.picBarcodeMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picBarcodeMRN.Top = 0.02598425! + Me.picBarcodeMRN.Visible = False + Me.picBarcodeMRN.Width = 3.561024! + ' + 'subRptLaufzettelZollDE_Vorpapier + ' + Me.MasterReport = False + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.094488! + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.Detail) + 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.txtATAMRN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents txtNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Shape2 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents Shape4 As GrapeCity.ActiveReports.SectionReportModel.Shape + Private WithEvents picBarcodeMRN As GrapeCity.ActiveReports.SectionReportModel.Picture +End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.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/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb new file mode 100644 index 00000000..f8b8801f --- /dev/null +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb @@ -0,0 +1,50 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class subRptLaufzettelZollDE_Vorpapier + + Dim VP As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier) + Dim cnt = 1 + Sub New(VP As List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier)) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.VP = VP + + End Sub + + Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format + txtATAMRN.Text = "" + If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("MRN").Value IsNot Nothing Then + Dim ATAMRN As String = Me.Fields.Item("MRN").Value + ATAMRN = ATAMRN.Replace(" ", "") + ATAMRN = ATAMRN.Replace("/", "") + ATAMRN = ATAMRN.Replace("-", "") + + picBarcodeMRN.Image = Nothing + picBarcodeMRN.Visible = False + Try + If ATAMRN.Length > 10 And ATAMRN.Length < 50 Then + Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 20) + picBarcodeMRN.Image = barcodeATA + picBarcodeMRN.Visible = True + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + + txtATAMRN.Text = ATAMRN + txtNr.Text = cnt + cnt += 1 + End If + End Sub + Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart + Dim dt As New DataTable + dt.Columns.Add("MRN", System.Type.GetType("System.String")) + For Each s In VP + dt.Rows.Add({s.vp_Nr}) + Next + Me.DataSource = dt + End Sub + +End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index a3751186..7ed40e05 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -1673,9 +1673,18 @@ Public Class FormularManagerNEU Return LaufzettelZollDE(AVISO, SENDUNG_LIST) End Function + Shared Function LaufzettelZollDE_VP(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String + Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "") + If AVISO Is Nothing Then Return "" + Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) + VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP(SENDUNG_LIST, 0, AvisoId, Vorpapier) 'LÄDT alle SENDUNGSDATEN + If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return "" + Return LaufzettelZollDE(AVISO, SENDUNG_LIST,,, Vorpapier) + End Function + Shared gesColli As Double = 0 Shared gesGewicht As Double = 0 - Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String + Shared Function LaufzettelZollDE(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 @@ -1777,6 +1786,26 @@ Public Class FormularManagerNEU ' MsgBox(ex.Message & ex.StackTrace) '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! + ' rpt.Detail.Visible = False + Dim SubRptVP As New subRptLaufzettelZollDE_Vorpapier(AVISO.VORPAPIERE) + rpt.SubReport1.Report = SubRptVP + rpt.SubReport1.Visible = True + End If + Else + Dim VORPAPIERE As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier) + Dim VP As New VERAG_PROG_ALLGEMEIN.cAvisoVorpapier + VP.vp_Nr = Vorpapier : VORPAPIERE.Add(VP) + + Dim SubRptVP As New subRptLaufzettelZollDE_Vorpapier(VORPAPIERE) + rpt.SubReport1.Report = SubRptVP + rpt.SubReport1.Visible = True + End If + + 'MsgBox(tb.Rows.Count) @@ -1792,7 +1821,7 @@ Public Class FormularManagerNEU rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1 - + rpt.txtPos.Text = If(SND.tblSnd_Vorpapier_Pos, "") If SND.tblSnd_Fremdspedition Then rpt.txtAbfertigungsart.Text = "FREMD" @@ -1895,7 +1924,7 @@ Public Class FormularManagerNEU gesColli += a.sndhdg_colli gesGewicht += a.sndhdg_gewicht Next - Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition, ZOLLANMELDUNG.Vorpapier) + 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 @@ -1903,7 +1932,7 @@ Public Class FormularManagerNEU rpt.txtAnmerkung.Visible = False - 'If ATAMRN_List.Count = 0 Then + 'If ATAMRN_List.Count = 0 Then ' rpt.txtAnmerkung.Text = "" ' Dim colliGewicht = "" @@ -1957,8 +1986,12 @@ Public Class FormularManagerNEU rpt.Dispose() Else + If (Vorpapier <> "") Then + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Gestellungsliste_" & Vorpapier & ".pdf", ".pdf", , False) + Else + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False) + End If - tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("LaufzettelZollDE.pdf", ".pdf", , False) Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport rpt.Run(False) @@ -1969,8 +2002,6 @@ Public Class FormularManagerNEU End If - - Catch ex As Exception MessageBox.Show(ex.ToString & ex.StackTrace) End Try diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index 5db6b517..9a1539f8 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -488,6 +488,15 @@ 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. ''' @@ -854,15 +863,6 @@ Namespace My.Resources End Get End Property - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. - ''' - Friend ReadOnly Property kkk9jjjjjjjj() As String - Get - Return ResourceManager.GetString("kkk9jjjjjjjj", resourceCulture) - End Get - End Property - ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1532,6 +1532,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[]. + ''' + Friend ReadOnly Property RG_ZF() As Byte() + Get + Dim obj As Object = ResourceManager.GetObject("RG_ZF", resourceCulture) + Return CType(obj,Byte()) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -2151,7 +2161,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.7.7 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.1.7.9 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 105bc79a..6553430f 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.7 + 1.1.7.9 ..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -778,10 +778,13 @@ ..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ..\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 + \ No newline at end of file diff --git a/SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb b/SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb index 32a9c350..7ed298e1 100644 --- a/SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb +++ b/SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb @@ -32,7 +32,9 @@ Public Class rptSDLBrief If archiviert Then sqlStr &= " AND isnull([archiviert] ,0)=1 " Else - sqlStr &= " AND isnull(lkw.KZAenderung ,0)=0 AND isnull(lkw.Verkauft ,0)=0 AND isnull(lkw.Abgemeldet ,0)=0 AND isnull([Gesperrt],0)=0 AND isnull([Defekt] ,0)=0 AND isnull([Verloren] ,0)=0 AND isnull([Gestohlen] ,0)=0 " + sqlStr &= " AND isnull([archiviert] ,1)=0 " + ' sqlStr &= " AND isnull(lkw.KZAenderung ,0)=0 AND isnull(lkw.Verkauft ,0)=0 AND isnull(lkw.Abgemeldet ,0)=0 AND isnull([Gesperrt],0)=0 AND isnull([Defekt] ,0)=0 AND isnull([Verloren] ,0)=0 AND isnull([Gestohlen] ,0)=0 " + sqlStr &= "/* AND isnull(lkw.KZAenderung ,0)=0 AND isnull(lkw.Verkauft ,0)=0 AND isnull(lkw.Abgemeldet ,0)=0 */ AND isnull([Gesperrt],0)=0 AND isnull([Defekt] ,0)=0 AND isnull([Verloren] ,0)=0 AND isnull([Gestohlen] ,0)=0 " End If Dim order As String = " ORDER BY SDLNr, Bestelldatum, BestellNr,Ausstellungsdatum,KartenNr,OBUID" diff --git a/SDL/Resources/RG_ZF.xlsx b/SDL/Resources/RG_ZF.xlsx new file mode 100644 index 00000000..8cf1f878 Binary files /dev/null and b/SDL/Resources/RG_ZF.xlsx differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 7c8cf052..7dbaa47f 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -450,6 +450,12 @@ Component + + subRptLaufzettelZollDE_Vorpapier.vb + + + Component + usrcntlEORI_Antrag.vb @@ -468,6 +474,18 @@ UserControl + + rptPLOSE_Konsortium.vb + + + Component + + + usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb + + + UserControl + rptKontrolleLKW_NCTSTR.vb @@ -2514,6 +2532,9 @@ subRptVM.vb + + subRptLaufzettelZollDE_Vorpapier.vb + usrcntlEORI_Antrag.vb @@ -2523,6 +2544,12 @@ usrCntlKundenBesonderheiten.vb + + rptPLOSE_Konsortium.vb + + + usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb + rptKontrolleLKW_NCTSTR.vb @@ -3514,6 +3541,9 @@ Always + + Always + Designer diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb index d216a658..03ac40da 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenz.vb @@ -10,7 +10,7 @@ Dim freetoselect = False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - + Dim SelectNL = False Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Sub New(land, verfahren, freetoselect, Optional Kdnr = Nothing, Optional nl = Nothing, Optional FIRMA_DY = "") @@ -29,7 +29,7 @@ End Sub Private Sub frmDakosyStammreferenz_Load(sender As Object, e As EventArgs) Handles Me.Load - + SelectNL = False Select Case FIRMA_DY Case "VERAG" : txtDyMandant.Text = "VERG" txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG @@ -43,7 +43,7 @@ Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = If(nl <> "", nl, "IME") Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSP" - Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" + Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" : SelectNL = True End Select cboVerfahren.Items.Clear() @@ -89,7 +89,7 @@ .RowTemplate.Height = 30 .RowTemplate.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, 10) - .DataSource = SQL.loadDgvBySql("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Standard,dySr_dy_Niederlassung,dySr_dy_Mandant FROM [tblDakosy_Stammreferenzen] LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "' and dySr_dy_Mandant='" & txtDyMandant.Text & "' /* and (dySr_dy_Niederlassung is null or dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' ) */ and dySr_visible=1 " & where & " order by dySr_Bezeichnung ", "FMZOLL") + .DataSource = SQL.loadDgvBySql("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Standard,dySr_dy_Niederlassung,dySr_dy_Mandant FROM [tblDakosy_Stammreferenzen] LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "' and dySr_dy_Mandant='" & txtDyMandant.Text & "' " & If(SelectNL, " AND dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' ", "") & " /* and (dySr_dy_Niederlassung is null or dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' ) */ and dySr_visible=1 " & where & " order by dySr_Bezeichnung ", "FMZOLL") .Columns("dySr_dyId").Visible = False .Columns("dySr_Stammreferenz").Visible = False .Columns("dySr_dy_Standard").Visible = False @@ -115,7 +115,7 @@ .RowTemplate.Height = 30 .RowTemplate.DefaultCellStyle.Font = New Font(Me.Font.FontFamily, 10) - .DataSource = SQL.loadDgvBySql("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Standard,dyStr_KdNr,Ordnungsbegriff,dySr_dy_Niederlassung FROM [tblDakosy_Stammreferenzen] LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "' and dySr_dy_Mandant='" & txtDyMandant.Text & "' /*and (dySr_dy_Niederlassung is null or dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' )*/ and dySr_visible=1 " & where & " order by dyStr_KdNr,dySr_Bezeichnung ", "FMZOLL") + .DataSource = SQL.loadDgvBySql("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Standard,dyStr_KdNr,Ordnungsbegriff,dySr_dy_Niederlassung FROM [tblDakosy_Stammreferenzen] LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "' and dySr_dy_Mandant='" & txtDyMandant.Text & "' " & If(SelectNL, " AND dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' ", "") & " /*and (dySr_dy_Niederlassung is null or dySr_dy_Niederlassung='" & txtDyNiederlassung.Text & "' )*/ and dySr_visible=1 " & where & " order by dyStr_KdNr,dySr_Bezeichnung ", "FMZOLL") .Columns("dySr_dyId").Visible = False .Columns("dySr_Stammreferenz").Visible = False .Columns("dySr_dy_Standard").Visible = False diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb index 9a5ba964..e866f432 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmStammreferenzPopup.vb @@ -54,6 +54,7 @@ Case "ATIL" cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("alle", "")) cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW")) + cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBWO", "AMBWO")) End Select cboNL.changeItem(nl) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb index fc41fbb5..41cd5900 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb @@ -72,7 +72,7 @@ If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") And FilialenNr = 5501 Then FIRMA_DY = "IMEX" ElseIf FilialenNr = 5701 Then - FIRMA_DY = "AMBWO" + FIRMA_DY = "AMBAR" Else If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 4cb8ba9e..b7e15016 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -22,16 +22,16 @@ Partial Class usrcntlKundeBearbeitenFull 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.tbcntrDetails = New System.Windows.Forms.TabControl() Me.tbAbfertigung = New System.Windows.Forms.TabPage() Me.cboFremdspedition = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -82,6 +82,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbFiskal = New System.Windows.Forms.TabPage() Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() + Me.cbxVeranlagungskunde = New System.Windows.Forms.CheckBox() Me.Label93 = New System.Windows.Forms.Label() Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox() @@ -302,7 +303,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFiBu = New System.Windows.Forms.CheckBox() Me.cbxFiBuLG = New System.Windows.Forms.CheckBox() - Me.cbxVeranlagungskunde = New System.Windows.Forms.CheckBox() + Me.lblHinweisKdNr = New System.Windows.Forms.Label() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -356,6 +357,7 @@ Partial Class usrcntlKundeBearbeitenFull ' 'tbAbfertigung ' + Me.tbAbfertigung.Controls.Add(Me.lblHinweisKdNr) Me.tbAbfertigung.Controls.Add(Me.cboFremdspedition) Me.tbAbfertigung.Controls.Add(Me.cbxVerzolltBei) Me.tbAbfertigung.Controls.Add(Me.cbxBesonderheitenNEU) @@ -775,7 +777,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_ErsteAbfertigung._Waehrung = False Me.txtAbf_ErsteAbfertigung._WaehrungZeichen = True Me.txtAbf_ErsteAbfertigung.ForeColor = System.Drawing.Color.Red - Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(268, 87) + Me.txtAbf_ErsteAbfertigung.Location = New System.Drawing.Point(216, 162) Me.txtAbf_ErsteAbfertigung.MaxLength = 10 Me.txtAbf_ErsteAbfertigung.MaxLineLength = -1 Me.txtAbf_ErsteAbfertigung.MaxLines_Warning = "" @@ -918,7 +920,7 @@ Partial Class usrcntlKundeBearbeitenFull ' Me.Label41.AutoSize = True Me.Label41.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label41.Location = New System.Drawing.Point(171, 90) + Me.Label41.Location = New System.Drawing.Point(119, 165) Me.Label41.Name = "Label41" Me.Label41.Size = New System.Drawing.Size(91, 13) Me.Label41.TabIndex = 12 @@ -1008,6 +1010,17 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVerrechnung.Text = "Verrechnung" Me.tbVerrechnung.UseVisualStyleBackColor = True ' + 'cbxVeranlagungskunde + ' + Me.cbxVeranlagungskunde.AutoSize = True + Me.cbxVeranlagungskunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxVeranlagungskunde.Location = New System.Drawing.Point(417, 198) + Me.cbxVeranlagungskunde.Name = "cbxVeranlagungskunde" + Me.cbxVeranlagungskunde.Size = New System.Drawing.Size(121, 17) + Me.cbxVeranlagungskunde.TabIndex = 34 + Me.cbxVeranlagungskunde.Text = "Veranlagungskunde" + Me.cbxVeranlagungskunde.UseVisualStyleBackColor = True + ' 'Label93 ' Me.Label93.AutoSize = True @@ -2350,8 +2363,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvUmsatzbericht.AllowUserToDeleteRows = False Me.dgvUmsatzbericht.AllowUserToOrderColumns = True Me.dgvUmsatzbericht.AllowUserToResizeRows = False - DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUmsatzbericht.Location = New System.Drawing.Point(6, 25) @@ -2448,8 +2461,8 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvOffenePosten.AllowUserToDeleteRows = False Me.dgvOffenePosten.AllowUserToOrderColumns = True Me.dgvOffenePosten.AllowUserToResizeRows = False - DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvOffenePosten.Location = New System.Drawing.Point(6, 38) @@ -2605,41 +2618,41 @@ Partial Class usrcntlKundeBearbeitenFull Me.dgvKreditkarten.AllowUserToDeleteRows = False Me.dgvKreditkarten.AllowUserToOrderColumns = True Me.dgvKreditkarten.AllowUserToResizeRows = False - DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvKreditkarten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvKreditkarten.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle14 + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvKreditkarten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle15.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle15 + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvKreditkarten.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvKreditkarten.Location = New System.Drawing.Point(9, 20) Me.dgvKreditkarten.MultiSelect = False Me.dgvKreditkarten.Name = "dgvKreditkarten" Me.dgvKreditkarten.ReadOnly = True - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle16 + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvKreditkarten.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvKreditkarten.RowHeadersVisible = False - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle17 + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvKreditkarten.RowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvKreditkarten.RowTemplate.DefaultCellStyle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.dgvKreditkarten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvKreditkarten.Size = New System.Drawing.Size(642, 312) @@ -2777,8 +2790,8 @@ Partial Class usrcntlKundeBearbeitenFull ' 'dgvUstv_LaenderUndSteuernummern ' - DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18 + DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUstv_LaenderUndSteuernummern.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUstv_LaenderUndSteuernummern.BackgroundColor = System.Drawing.Color.White Me.dgvUstv_LaenderUndSteuernummern.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUstv_LaenderUndSteuernummern.Location = New System.Drawing.Point(9, 94) @@ -2991,8 +3004,8 @@ Partial Class usrcntlKundeBearbeitenFull 'dgvSonst_IDSKunden ' Me.dgvSonst_IDSKunden.AllowUserToResizeRows = False - DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19 + DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSonst_IDSKunden.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9 Me.dgvSonst_IDSKunden.BackgroundColor = System.Drawing.Color.White Me.dgvSonst_IDSKunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvSonst_IDSKunden.Location = New System.Drawing.Point(9, 251) @@ -3195,8 +3208,8 @@ Partial Class usrcntlKundeBearbeitenFull 'DataGridView1 ' Me.DataGridView1.AllowUserToResizeRows = False - DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10 Me.DataGridView1.BackgroundColor = System.Drawing.Color.White Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Enabled = False @@ -4024,16 +4037,16 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxFiBuLG.UseVisualStyleBackColor = True Me.cbxFiBuLG.Visible = False ' - 'cbxVeranlagungskunde + 'lblHinweisKdNr ' - Me.cbxVeranlagungskunde.AutoSize = True - Me.cbxVeranlagungskunde.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxVeranlagungskunde.Location = New System.Drawing.Point(417, 198) - Me.cbxVeranlagungskunde.Name = "cbxVeranlagungskunde" - Me.cbxVeranlagungskunde.Size = New System.Drawing.Size(121, 17) - Me.cbxVeranlagungskunde.TabIndex = 34 - Me.cbxVeranlagungskunde.Text = "Veranlagungskunde" - Me.cbxVeranlagungskunde.UseVisualStyleBackColor = True + Me.lblHinweisKdNr.AutoSize = True + Me.lblHinweisKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblHinweisKdNr.Location = New System.Drawing.Point(168, 94) + Me.lblHinweisKdNr.Name = "lblHinweisKdNr" + Me.lblHinweisKdNr.Size = New System.Drawing.Size(137, 13) + Me.lblHinweisKdNr.TabIndex = 239 + Me.lblHinweisKdNr.Text = "Kunden-Nummer vergeben!" + Me.lblHinweisKdNr.Visible = False ' 'usrcntlKundeBearbeitenFull ' @@ -4389,4 +4402,5 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Label93 As Label Friend WithEvents txtDebKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cbxVeranlagungskunde As CheckBox + Friend WithEvents lblHinweisKdNr As Label End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index f4774a80..ce2435c1 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -393,6 +393,8 @@ Public Class usrcntlKundeBearbeitenFull KUNDE.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME KUNDE.Eingegeben_am = Now.ToShortDateString KUNDE.INIT_NEWKD_DATA() + + KUNDE_ERW.kde_KundenNr = kdnr Else MsgBox("Err Kd-Vergabe!") Return False @@ -641,6 +643,7 @@ Public Class usrcntlKundeBearbeitenFull txtERROR.Text = "FEHLER beim Eintragen in die Tabelle 'Adressen'!" End If End If + initBesonderheitenNEU() Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) End Try @@ -1209,10 +1212,19 @@ Public Class usrcntlKundeBearbeitenFull Sub initBesonderheitenNEU() + lblHinweisKdNr.Visible = False If cbxBesonderheitenNEU.Checked Then + UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size - UsrCntlKundenBesonderheiten1.init(KUNDE.KundenNr) - UsrCntlKundenBesonderheiten1.Visible = True + If KUNDE.KundenNr > 0 Then + UsrCntlKundenBesonderheiten1.init(KUNDE.KundenNr) + UsrCntlKundenBesonderheiten1.Visible = True + UsrCntlKundenBesonderheiten1.Enabled = True + Else + UsrCntlKundenBesonderheiten1.Visible = True + UsrCntlKundenBesonderheiten1.Enabled = False + lblHinweisKdNr.Visible = True + End If Else UsrCntlKundenBesonderheiten1.Visible = False End If @@ -1223,4 +1235,6 @@ Public Class usrcntlKundeBearbeitenFull Private Sub cbxVerzolltBei_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVerzolltBei.CheckedChanged cboFremdspedition.Enabled = cbxVerzolltBei.Checked End Sub + + End Class diff --git a/SDL/mdm/PLOSE/rptPLOSE_Konsortium.Designer.vb b/SDL/mdm/PLOSE/rptPLOSE_Konsortium.Designer.vb new file mode 100644 index 00000000..3b2be0fa --- /dev/null +++ b/SDL/mdm/PLOSE/rptPLOSE_Konsortium.Designer.vb @@ -0,0 +1,584 @@ + +Partial Public Class rptPLOSE_Konsortium + 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_Konsortium)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label4 = 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() + 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.lblOrt = 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.Label5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label4, 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() + CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEU, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblOrt, 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.Label5, Me.Label6, Me.Label8, Me.Label14, Me.Line4, Me.Label1, 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.831496! + 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! + ' + 'Label5 + ' + Me.Label5.Height = 0.1795276! + Me.Label5.HyperLink = Nothing + Me.Label5.Left = 3.250394! + 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! + ' + 'Label6 + ' + Me.Label6.Height = 0.1795276! + Me.Label6.HyperLink = Nothing + Me.Label6.Left = 2.697244! + 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 = 0.5531494! + ' + 'Label8 + ' + Me.Label8.Height = 0.1795276! + Me.Label8.HyperLink = Nothing + Me.Label8.Left = 0.5877953! + Me.Label8.Name = "Label8" + Me.Label8.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) + Me.Label8.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & + "char-set: 1" + Me.Label8.Text = "Firma" + Me.Label8.Top = 0! + Me.Label8.Width = 2.109449! + ' + 'Label14 + ' + Me.Label14.Height = 0.1795276! + Me.Label14.HyperLink = Nothing + Me.Label14.Left = 6.957087! + 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! + ' + '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! + ' + 'Label1 + ' + Me.Label1.Height = 0.1795276! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 0.01023622! + Me.Label1.Name = "Label1" + Me.Label1.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) + Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" & + "char-set: 1" + Me.Label1.Text = "KdNr" + Me.Label1.Top = 0.008661418! + Me.Label1.Width = 0.577559! + ' + 'Label2 + ' + Me.Label2.Height = 0.1795276! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 6.040158! + 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! + ' + 'Label4 + ' + Me.Label4.Height = 0.1795276! + Me.Label4.HyperLink = Nothing + Me.Label4.Left = 5.123229! + 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! + ' + '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.Height = 0.1452756! + Me.Detail.Name = "Detail" + ' + 'lblFirma + ' + Me.lblFirma.Height = 0.1417323! + Me.lblFirma.HyperLink = Nothing + Me.lblFirma.Left = 0.5877953! + Me.lblFirma.Name = "lblFirma" + Me.lblFirma.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0) + Me.lblFirma.Style = "font-size: 8pt; font-weight: normal; text-align: left; white-space: nowrap; ddo-c" & + "har-set: 1; ddo-wrap-mode: nowrap" + Me.lblFirma.Text = "Produkt" + Me.lblFirma.Top = 0! + Me.lblFirma.Width = 2.109449! + ' + 'lblKdNR + ' + Me.lblKdNR.Height = 0.1417323! + Me.lblKdNR.HyperLink = Nothing + Me.lblKdNR.Left = 0.01023622! + Me.lblKdNR.Name = "lblKdNR" + Me.lblKdNR.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.lblKdNR.Text = "-" + Me.lblKdNR.Top = 0! + Me.lblKdNR.Width = 0.5775591! + ' + 'lblBrutto + ' + Me.lblBrutto.Height = 0.1417323! + Me.lblBrutto.HyperLink = Nothing + Me.lblBrutto.Left = 6.957087! + 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.Top = 0.003543307! + Me.lblBrutto.Width = 0.9169283! + ' + '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 = 5.123229! + 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.Top = 0.003543307! + Me.lblNetto.Width = 0.9169284! + ' + 'lblMWST + ' + Me.lblMWST.Height = 0.1417323! + Me.lblMWST.HyperLink = Nothing + Me.lblMWST.Left = 6.040158! + 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.Top = 0.003543307! + Me.lblMWST.Width = 0.9169284! + ' + 'lblEU + ' + Me.lblEU.Height = 0.1417323! + Me.lblEU.HyperLink = Nothing + Me.lblEU.Left = 4.831496! + 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! + ' + 'lblOrt + ' + Me.lblOrt.Height = 0.1417323! + Me.lblOrt.HyperLink = Nothing + Me.lblOrt.Left = 3.250394! + 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! + ' + 'lblLand + ' + Me.lblLand.Height = 0.1417323! + Me.lblLand.HyperLink = Nothing + Me.lblLand.Left = 2.697244! + 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 = 0.5531495! + ' + '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 Auswertung Konsortium" + 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.3527559! + 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.957087! + 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.9169284! + ' + 'lblSumMwst + ' + Me.lblSumMwst.Height = 0.1795276! + Me.lblSumMwst.HyperLink = Nothing + Me.lblSumMwst.Left = 6.040157! + 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! + ' + 'lblSumNetto + ' + Me.lblSumNetto.Height = 0.1795276! + Me.lblSumNetto.HyperLink = Nothing + Me.lblSumNetto.Left = 5.123228! + 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! + ' + 'rptPLOSE_Konsortium + ' + 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.Label5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label4, 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() + CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEU, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblOrt, 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 + Public WithEvents lblKdNR As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label + 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 Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + 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 + Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblEU As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblOrt As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label +End Class diff --git a/SDL/mdm/PLOSE/rptPLOSE_Konsortium.resx b/SDL/mdm/PLOSE/rptPLOSE_Konsortium.resx new file mode 100644 index 00000000..ddf797aa --- /dev/null +++ b/SDL/mdm/PLOSE/rptPLOSE_Konsortium.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_Konsortium.vb b/SDL/mdm/PLOSE/rptPLOSE_Konsortium.vb new file mode 100644 index 00000000..b3dad78f --- /dev/null +++ b/SDL/mdm/PLOSE/rptPLOSE_Konsortium.vb @@ -0,0 +1,7 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rptPLOSE_Konsortium + 'SOU_DESCR OUT_COD OUT_DESCR OUT_GRP_COD TOT_QTY PROD_DESCR SOU_CURR ORIG_LIST_PRICE PLATTS_PRICE SC_BC_RATE EUR_IV_BC_AMNT + +End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb index 6a4e19cb..fc60eaa8 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmMDMDatenverarbetiung Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class frmMDMDatenverarbetiung '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(frmMDMDatenverarbetiung)) @@ -35,6 +35,8 @@ Partial Class frmMDMDatenverarbetiung Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker() Me.lbl = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Button5 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.btnKunde = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() @@ -55,7 +57,6 @@ Partial Class frmMDMDatenverarbetiung Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Button5 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() Me.FlowLayoutPanel.SuspendLayout() Me.Panel1.SuspendLayout() @@ -169,6 +170,7 @@ Partial Class frmMDMDatenverarbetiung ' 'Panel1 ' + Me.Panel1.Controls.Add(Me.Panel3) Me.Panel1.Controls.Add(Me.Button5) Me.Panel1.Controls.Add(Me.Button1) Me.Panel1.Controls.Add(Me.btnKunde) @@ -188,6 +190,24 @@ Partial Class frmMDMDatenverarbetiung Me.Panel1.Size = New System.Drawing.Size(1163, 114) Me.Panel1.TabIndex = 2 ' + 'Panel3 + ' + Me.Panel3.BackColor = System.Drawing.Color.White + Me.Panel3.Location = New System.Drawing.Point(626, 0) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(301, 114) + Me.Panel3.TabIndex = 48 + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Location = New System.Drawing.Point(461, 69) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(136, 23) + Me.Button5.TabIndex = 47 + Me.Button5.Text = "Fakturiert" + Me.Button5.UseVisualStyleBackColor = True + ' 'Button1 ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -434,16 +454,6 @@ Partial Class frmMDMDatenverarbetiung Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577) Me.MyDatagridview1.TabIndex = 0 ' - 'Button5 - ' - Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Location = New System.Drawing.Point(461, 69) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(136, 23) - Me.Button5.TabIndex = 47 - Me.Button5.Text = "Fakturiert" - Me.Button5.UseVisualStyleBackColor = True - ' 'frmMDMDatenverarbetiung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -501,4 +511,5 @@ Partial Class frmMDMDatenverarbetiung Friend WithEvents btnKunde As Button Friend WithEvents Button1 As Button Friend WithEvents Button5 As Button + Friend WithEvents Panel3 As Panel End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 771dfef3..572186ec 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -254,6 +254,8 @@ Public Class frmMDMDatenverarbetiung Sub initLieferant(l As String, btn As Button) MyDatagridview1.DataSource = Nothing Me.LIEFERANT = l + Panel3.Controls.Clear() + For Each c As Button In FlowLayoutPanel.Controls If c Is btn Then c.BackColor = Color.Wheat @@ -261,6 +263,14 @@ Public Class frmMDMDatenverarbetiung c.BackColor = Color.FloralWhite End If Next + + Select Case Me.LIEFERANT + Case "PLOSE" + Dim c As New usrCntlMDMDatenverarbeitungAuswertungen_PLOSE(Me) + Panel3.Controls.Add(c) + c.Dock = DockStyle.Fill + End Select + init() End Sub @@ -1066,4 +1076,6 @@ Public Class frmMDMDatenverarbetiung Case "PLOSE" : setFakturiertPLOSE() End Select End Sub + + End Class diff --git a/SDL/mdm/frmNewData.Designer.vb b/SDL/mdm/frmNewData.Designer.vb index 5adc611b..51945029 100644 --- a/SDL/mdm/frmNewData.Designer.vb +++ b/SDL/mdm/frmNewData.Designer.vb @@ -516,7 +516,7 @@ Partial Class frmNewData Me.btnSDL_PLOSE.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver Me.btnSDL_PLOSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSDL_PLOSE.ForeColor = System.Drawing.Color.Black - Me.btnSDL_PLOSE.Image = Global.SDL.My.Resources.Resources.plose + Me.btnSDL_PLOSE.Image = Global.SDL.My.Resources.Resources.plose_1 Me.btnSDL_PLOSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.btnSDL_PLOSE.Location = New System.Drawing.Point(660, 72) Me.btnSDL_PLOSE.Margin = New System.Windows.Forms.Padding(2) @@ -524,7 +524,7 @@ Partial Class frmNewData Me.btnSDL_PLOSE.Size = New System.Drawing.Size(78, 64) Me.btnSDL_PLOSE.TabIndex = 58 Me.btnSDL_PLOSE.Tag = "214" - Me.btnSDL_PLOSE.Text = "PLOSE" + Me.btnSDL_PLOSE.Text = "PLOSE " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Roadmaster" Me.btnSDL_PLOSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_PLOSE.UseVisualStyleBackColor = True ' diff --git a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb new file mode 100644 index 00000000..b03009dd --- /dev/null +++ b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.Designer.vb @@ -0,0 +1,55 @@ + _ +Partial Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE + 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.Button6 = New System.Windows.Forms.Button() + Me.SuspendLayout() + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(13, 6) + Me.Button6.Name = "Button6" + Me.Button6.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0) + Me.Button6.Size = New System.Drawing.Size(149, 41) + Me.Button6.TabIndex = 48 + Me.Button6.Text = "Auswertung IT Maut " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Konsortium)" + Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button6.UseVisualStyleBackColor = True + ' + '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.Button6) + Me.Name = "usrCntlMDMDatenverarbeitungAuswertungen_PLOSE" + Me.Size = New System.Drawing.Size(301, 114) + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Button6 As Button +End Class diff --git a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.resx b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb new file mode 100644 index 00000000..a134a998 --- /dev/null +++ b/SDL/mdm/usrCntlMDMDatenverarbeitungAuswertungen_PLOSE.vb @@ -0,0 +1,91 @@ +Public Class usrCntlMDMDatenverarbeitungAuswertungen_PLOSE + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim MAIN As frmMDMDatenverarbetiung + Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + Sub New(MAIN As frmMDMDatenverarbetiung) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.MAIN = MAIN + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + 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 + 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 + group by plose_POLSEKundennummer,Adressennr,[Name 1],Adressen.LandKz,plz,Ort,MitgliedslandEU + order by MitgliedslandEU desc,[Name 1]" + + + + 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_Konsortium + 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 sumMenge As Double = 0 + + AddHandler rpt.Detail.Format, Sub() + rpt.lblFirma.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Firma").Value, "") + rpt.lblOrt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("PLZ").Value, "") & " " & SQL.isDbnullEmpty(rpt.Fields.Item("ORT").Value, "") + rpt.lblLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("LandKz").Value, "") + rpt.lblEU.Text = SQL.isDbnullEmpty(rpt.Fields.Item("EU").Value, "") + rpt.lblKdNR.Text = SQL.isDbnullEmpty(rpt.Fields.Item("KundenNr").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, "") + + sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Netto").Value, 4, 0) + sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("MWST").Value, 4, 0) + sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Brutto").Value, 4, 0) + + 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") + + End Sub + + print.Viewer.LoadDocument(rpt) + print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + print.Show() + End Sub +End Class diff --git a/SDL/zoll/usrCntlBrgBuchungenFremd.vb b/SDL/zoll/usrCntlBrgBuchungenFremd.vb index 7866a5e7..f27aea63 100644 --- a/SDL/zoll/usrCntlBrgBuchungenFremd.vb +++ b/SDL/zoll/usrCntlBrgBuchungenFremd.vb @@ -51,6 +51,7 @@ Public Class usrCntlBrgBuchungenFremd 'DAKOSY: Dim sqlatr = " SELECT (SELECT TOP 1 CONVERT(varchar, [dySt_ergZeitpunkt] ,104 ) FROM [tblDakosy_Statusmeldungen] WHERE [dySt_dyId]=ncts_dyaAnmID AND [dySt_status] = 50 ) as Datum, ncts_Befoerderungsmittel_KennzeichenAbgang as Kennzeichen, isnull(ncts_MRN,'') as MRN, ncts_SumA_Befoerderer_Land as Land, nctsSA_AbgabenBetrag as GarantieBetrag, ncts_SumA_Befoerderer_Name as Firma " & " " & If(cboBRG.Text.Contains("TOBB") Or cboBRG.Text.Contains("OREGON"), ", isnull(ncts_BestimmungsstelleDienststellennummer,'') as Bestimmungsstelle ", "") & " " & + " ,ncts_ObjectName as Bezugsnummer " & "FROM [tblDakosy_NCTSOut] INNER JOIN [tblDakosy_NCTSOut_Sicherheitsangaben] on ncts_Id=[nctsSA_NctsId] " sqlatr &= " WHERE nctsSA_GRN IN (" & cboBRG._value & ") and ncts_Status between 50 and 60 " ' CONVERT(date, ncts_Trans_DatumZeit ,104 ) BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "'" @@ -66,6 +67,7 @@ Public Class usrCntlBrgBuchungenFremd 'EZOLL: sqlatr = " Select TOP 100 AnmeldungsDatum As Datum , (Select [CrossIdnt] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) As Kennzeichen, isnull(CRN,'') as MRN, (select [CrossIdntNat] FROM [zsAnmTransp] where [zsAnmTransp].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID ) as Land, cast(GarantieWert as Decimal(17,2)) as GarantieBetrag,(SELECT [Na] FROM [ezoll].[dbo].[zsAnmCarrTra] where [zsAnmCarrTra].AnmID=vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung.AnmID) as Firma " sqlatr &= " " & If(cboBRG.Text.Contains("TOBB") Or cboBRG.Text.Contains("OREGON"), ", isnull(Bestimmungszollstelle,'') as Bestimmungsstelle ", "") & " " + sqlatr &= " ,LRN as Bezugsnummer " sqlatr &= " FROM vwVERAG_Zolaris_EZoll_NCTS_Datenübernahme_Eroeffnung " sqlatr &= " WHERE GRN IN (" & cboBRG._value & ") and cast( AnmeldungsDatum as date) BETWEEN '" & datVon.Value.ToShortDateString & "' AND '" & datBis.Value.ToShortDateString & "' " @@ -89,7 +91,8 @@ Public Class usrCntlBrgBuchungenFremd If dt Is Nothing OrElse dt.Rows.Count = 0 Then lblErr.Visible = True : Exit Sub - + getEmptyFraechter(dt) + dt.Columns.Remove("Bezugsnummer") cProgramFunctions.genExcelFromDT_NEW(dt, {"E1:E" & (dt.Rows.Count + 1)}, , "Bürgschaftsbuchungen " & cboBRG.Text, "Datum: " & Now.ToShortDateString) @@ -98,6 +101,43 @@ Public Class usrCntlBrgBuchungenFremd End Try End Sub + Sub getEmptyFraechter(ByRef dt As DataTable) + If dt IsNot Nothing Then + For Each r In dt.Rows + Try + If r("Firma") Is DBNull.Value OrElse r("Firma") = "" Then + Dim Bezugsnummer = If(r("Bezugsnummer"), "") + Dim FirmaTmp = "" + Dim FirmaNat = "" + Dim FirmaTmpKdNR = SQL.DLookup("isnull([FrachtführerKundenNr],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL") + If IsNumeric(FirmaTmpKdNR) Then + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(FirmaTmpKdNR) + If AD.hasEntry Then + FirmaTmp = AD.Name_1 + FirmaNat = AD.LandKz + End If + Else + FirmaTmp = SQL.DLookup("isnull([Frachtführer],'')", "Speditionsbuch", " ([AtlasBezNrEZA]='" & Bezugsnummer & "' OR [AtlasBezNrNCTS]='" & Bezugsnummer & "')", "FMZOLL") + End If + + If FirmaTmp.ToString.Contains(";") Then FirmaTmp = FirmaTmp.ToString.Split(";")(0) + + If FirmaTmp.Length > 30 Then + FirmaTmp = FirmaTmp.ToString.Substring(0, 30) + End If + r("Firma") = FirmaTmp + r("Land") = FirmaNat + End If + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Next + End If + + + End Sub + Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged cbxEZollDaten.Enabled = (MyComboBox1._value = "VERAG/ATILLA") End Sub diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 0bab10b0..42f63cd0 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -874,6 +874,15 @@ Public Class cQSAufträge Property QS_Abfertigungsart_Anzahl As Integer = 0 End Class + + +Public Class cAvisoVorpapier + Property vp_AvisoId As Integer + Property vp_Art As String = "T1" + Property vp_Nr As String = "" +End Class + + Public Class cAviso Property AvisoID As Integer Property Datum As Date @@ -933,6 +942,7 @@ Public Class cAviso Property Warenort As Boolean = False + Public VORPAPIERE As New List(Of cAvisoVorpapier) Shared Function getAvisoById(hID, Optional hSQL = "") As cAviso Dim AVISODAL As New cAvisoDAL @@ -978,6 +988,22 @@ Public Class cAviso End Sub + Sub LOAD_Vorpapiere() + If AvisoID <= 0 Then Exit Sub + VORPAPIERE.Clear() + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim dt = SQL.loadDgvBySql("SELECT * FROM tblAvisoVorpapier WHERE vp_AvisoId='" & AvisoID & "'", "AVISO") + If dt IsNot Nothing Then + For Each r In dt.Rows + Dim VP As New cAvisoVorpapier + VP.vp_AvisoId = AvisoID + VP.vp_Nr = r("vp_Nr") + VP.vp_Art = r("vp_Art") + VORPAPIERE.Add(VP) + Next + End If + End Sub + End Class @@ -1448,6 +1474,22 @@ Public Class cAvisoDAL End Function + + Public Function SpeichernAvisoVorpapiere(ByVal AvisoId As Integer, VORPAPIERE As List(Of cAvisoVorpapier)) As Boolean + SpeichernAvisoVorpapiere = True + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + If SQL.doSQL("DELETE tblAvisoVorpapier WHERE [vp_AvisoId]='" & AvisoId & "'", "AVISO") Then + For Each VP In VORPAPIERE + If Not SQL.doSQL("INSERT INTO tblAvisoVorpapier (vp_AvisoId, vp_Art,vp_Nr) VALUES ('" & AvisoId & "','" & VP.vp_Art & "','" & VP.vp_Nr & "') ", "AVISO") Then SpeichernAvisoVorpapiere = False + Next + Else + SpeichernAvisoVorpapiere = True = False + End If + + End Function + + + Public Function setQSAufträge(ByVal daten As List(Of cQSAufträge)) As Boolean For Each d As cQSAufträge In daten Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection() diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index 72cff4bf..dcb5a721 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -89,6 +89,12 @@ Public Class cSendungen Property tblSnd_AbklaerungTR As Object = Nothing Property tblSnd_AbklaerungTR_MA As Object = Nothing + Property tblSnd_ATB_Nr As Object = Nothing + Property tblSnd_ATB_T1 As Object = Nothing + + Property tblSnd_Vorpapier As Object = Nothing + Property tblSnd_Vorpapier_Pos As Object = Nothing + Public saveSachbearbeiter As Boolean = False @@ -116,6 +122,22 @@ Public Class cSendungen Dim SQL As New SQL + 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 + Return list + End Function + Shared Sub LOAD_LIST(ByRef SENDUNG_LIST As List(Of cSendungen), ByRef CURRENT_INDEX As Integer, AvisoId As Integer, Optional allowchangeCurrIndex As Boolean = True) If SENDUNG_LIST Is Nothing Then SENDUNG_LIST = New List(Of cSendungen) SENDUNG_LIST.Clear() @@ -125,6 +147,15 @@ Public Class cSendungen Next If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1) End Sub + Shared Sub LOAD_LIST_VP(ByRef SENDUNG_LIST As List(Of cSendungen), ByRef CURRENT_INDEX As Integer, AvisoId As Integer, Vorpapier As String, Optional allowchangeCurrIndex As Boolean = True) + 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 + SENDUNG_LIST.Add(New VERAG_PROG_ALLGEMEIN.cSendungen(r("tblSnd_SendungID"))) + Next + If allowchangeCurrIndex Then CURRENT_INDEX = IIf(SENDUNG_LIST.Count > 0, 0, -1) + End Sub Public Sub New(tblSnd_AvisoID, currentHisId, Optional FilialenNr = Nothing, Optional AbfertigungsNr = Nothing, Optional UnterNr = Nothing, Optional tblSnd_anzahlHandling = Nothing) Me.tblSnd_SendungID = -1 @@ -277,6 +308,10 @@ Public Class cSendungen Me.VORSYSTEM_Id = SQL.checkNullReturnValue(dr.Item("VORSYSTEM_Id"), Nothing) Me.tblSnd_AbklaerungTR = SQL.checkNullReturnValue(dr.Item("tblSnd_AbklaerungTR"), Nothing) Me.tblSnd_AbklaerungTR_MA = SQL.checkNullReturnValue(dr.Item("tblSnd_AbklaerungTR_MA"), Nothing) + Me.tblSnd_ATB_Nr = SQL.checkNullReturnValue(dr.Item("tblSnd_ATB_Nr"), Nothing) + 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) End If @@ -449,6 +484,10 @@ Public Class cSendungen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VORSYSTEM_Id", VORSYSTEM_Id)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbklaerungTR", tblSnd_AbklaerungTR)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbklaerungTR_MA", tblSnd_AbklaerungTR_MA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATB_Nr", tblSnd_ATB_Nr)) + 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)) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index 466a1c3a..64e6ca15 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -361,6 +361,45 @@ Public Class cSpeditionsbuch ' Return Nothing End Sub + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cSpeditionsbuch 'PROBLEM! + Try + Dim SPEDBUCH As New cSpeditionsbuch + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT TOP 1 * FROM Speditionsbuch WHERE ([AtlasBezNrEZA]=@bezugsNr OR [AtlasBezNrNCTS]=@bezugsNr )", conn) + cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each l In SPEDBUCH.getParameterList() + Dim propInfo As PropertyInfo = SPEDBUCH.GetType.GetProperty(l.Scalarvariable) + + If dr.Item(l.Text) Is DBNull.Value Then + propInfo.SetValue(SPEDBUCH, Nothing) + Else + propInfo.SetValue(SPEDBUCH, dr.Item(l.Text)) + End If + + Next + If loadALL Then + SPEDBUCH.LOAD_VORKOSTEN() + SPEDBUCH.LOAD_ENDEMPFAENGER() + End If + + dr.Close() + SPEDBUCH.hasEntry = True + Return SPEDBUCH + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return Nothing + End Function + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb index 1965a7f8..8b8bb7d3 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/IN_EZA/cVERAG_in_eza.vb @@ -734,8 +734,8 @@ Public Class cVERAG_in_eza Public Property ContainerNr3 As String = "" Public Property ContainerNr4 As String = "" - Public Property FreightCostsEU As String = "" - Public Property FreightCostsNonEU As String = "" + Public Property FreightCostsEU As Object = Nothing + Public Property FreightCostsNonEU As Object = Nothing Public Property POSITIONS As New List(Of cVERAG_in_eza_position)