From cc45f3331da162f1b28684361035e0847203ad6a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 17 Oct 2025 10:17:00 +0200 Subject: [PATCH 01/11] MDMFunctions, Kundenblatt, etc. --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/kunden/frmKundenblatt.Designer.vb | 194 +++++++++--------- SDL/kunden/frmKundenblatt.vb | 3 + .../Classes/cMDMFunctionsAllgemein.vb | 2 +- 4 files changed, 103 insertions(+), 100 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d8da6130..6afe1248 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 3e12c219..64c66165 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -53,7 +53,6 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -150,10 +149,8 @@ Partial Class frmKundenblatt Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -185,7 +182,6 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbFremdrechnungen = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() @@ -196,7 +192,6 @@ Partial Class frmKundenblatt Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.tbFIBU = New System.Windows.Forms.TabPage() Me.btn_FIBU_speichern = New System.Windows.Forms.Button() Me.lblZNB_verrechnet = New System.Windows.Forms.Label() @@ -246,6 +241,11 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -334,7 +334,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 1509) + Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 843) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -344,19 +344,9 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1638, 1503) + Me.Panel4.Size = New System.Drawing.Size(1638, 837) Me.Panel4.TabIndex = 0 ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1503) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -374,7 +364,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1652, 1538) + Me.tbcntrMain.Size = New System.Drawing.Size(1652, 872) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -415,7 +405,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1644, 1509) + Me.tbAllgemein.Size = New System.Drawing.Size(1644, 843) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -496,7 +486,7 @@ Partial Class frmKundenblatt Me.TabControl1.Location = New System.Drawing.Point(8, 582) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(718, 921) + Me.TabControl1.Size = New System.Drawing.Size(718, 255) Me.TabControl1.TabIndex = 186 ' 'TabPage1 @@ -508,7 +498,7 @@ Partial Class frmKundenblatt Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(710, 895) + Me.TabPage1.Size = New System.Drawing.Size(710, 229) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Offene Posten" Me.TabPage1.UseVisualStyleBackColor = True @@ -567,7 +557,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 860) + Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 197) Me.dgvOffenePosten.TabIndex = 175 ' 'Label10 @@ -600,7 +590,7 @@ Partial Class frmKundenblatt Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(710, 895) + Me.TabPage2.Size = New System.Drawing.Size(710, 229) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Umsatzbericht" Me.TabPage2.UseVisualStyleBackColor = True @@ -645,7 +635,7 @@ Partial Class frmKundenblatt Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUmsaetze.RowHeadersVisible = False Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 901) + Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 207) Me.dgvUmsaetze.TabIndex = 182 ' 'Label13 @@ -693,7 +683,7 @@ Partial Class frmKundenblatt Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Size = New System.Drawing.Size(710, 895) + Me.TabPage3.Size = New System.Drawing.Size(710, 229) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Umsatz nach LeistungsNr" Me.TabPage3.UseVisualStyleBackColor = True @@ -749,7 +739,7 @@ Partial Class frmKundenblatt Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 940) + Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 206) Me.dgvUmsatzNachLeistngsNr.TabIndex = 183 ' 'lblAdressenzusatz @@ -1110,7 +1100,7 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvSperrliste.Size = New System.Drawing.Size(446, 1465) + Me.dgvSperrliste.Size = New System.Drawing.Size(446, 799) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -1164,7 +1154,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1644, 1509) + Me.tbZoll.Size = New System.Drawing.Size(1644, 843) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -1176,7 +1166,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 1503) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 837) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -1184,7 +1174,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 1477) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 811) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -1195,7 +1185,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1644, 1509) + Me.tbMdm.Size = New System.Drawing.Size(1644, 843) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -1214,7 +1204,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 1503) + Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 837) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -1226,7 +1216,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1630, 1477) + Me.tbSDL.Size = New System.Drawing.Size(1630, 811) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -1268,7 +1258,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 1281) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 615) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -1374,7 +1364,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 1331) + Me.Panel5.Location = New System.Drawing.Point(3, 665) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1624, 143) Me.Panel5.TabIndex = 177 @@ -1768,21 +1758,11 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) + Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 811) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) - Me.usrcntlKarten.TabIndex = 0 - ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1790,7 +1770,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(178, 39) + Me.tbLKW.Size = New System.Drawing.Size(1630, 811) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1802,22 +1782,9 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) + Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 805) Me.pnlLKWRight.TabIndex = 2 ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) - Me.UsrCntlLKW1.TabIndex = 0 - ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1826,7 +1793,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 33) + Me.pnlLKW.Size = New System.Drawing.Size(306, 805) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1867,7 +1834,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 0) + Me.dgvLKW.Size = New System.Drawing.Size(306, 631) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1879,7 +1846,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 693) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -2020,7 +1987,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) + Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 811) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -2032,7 +1999,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(172, 33) + Me.Panel3.Size = New System.Drawing.Size(1624, 805) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -2050,7 +2017,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(178, 39) + Me.tbDokumente.Size = New System.Drawing.Size(1630, 811) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -2250,7 +2217,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 811) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -2259,7 +2226,7 @@ Partial Class frmKundenblatt ' Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) + Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 811) Me.tbFremdrechnungen.TabIndex = 10 Me.tbFremdrechnungen.Text = "Fremdrechnungen" Me.tbFremdrechnungen.UseVisualStyleBackColor = True @@ -2270,27 +2237,17 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1644, 1509) + Me.tbOfferte.Size = New System.Drawing.Size(1644, 843) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1509) - Me.UsrCntlOfferte1.TabIndex = 0 - ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1644, 1509) + Me.tbUSTV.Size = New System.Drawing.Size(1644, 843) Me.tbUSTV.TabIndex = 12 Me.tbUSTV.Text = "USTV" Me.tbUSTV.UseVisualStyleBackColor = True @@ -2304,7 +2261,7 @@ Partial Class frmKundenblatt Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1509) + Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 843) Me.tbcntrUSTV.TabIndex = 1 ' 'tbUSTVDokumente @@ -2317,7 +2274,7 @@ Partial Class frmKundenblatt Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1483) + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 817) Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.UseVisualStyleBackColor = True @@ -2418,19 +2375,11 @@ Partial Class frmKundenblatt Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 817) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) - Me.UsrCntlUSTV.TabIndex = 0 - ' 'tbFIBU ' Me.tbFIBU.Controls.Add(Me.btn_FIBU_speichern) @@ -2448,7 +2397,7 @@ Partial Class frmKundenblatt Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel) Me.tbFIBU.Location = New System.Drawing.Point(4, 25) Me.tbFIBU.Name = "tbFIBU" - Me.tbFIBU.Size = New System.Drawing.Size(1644, 1509) + Me.tbFIBU.Size = New System.Drawing.Size(1644, 843) Me.tbFIBU.TabIndex = 13 Me.tbFIBU.Text = "FIBU" Me.tbFIBU.UseVisualStyleBackColor = True @@ -2592,7 +2541,7 @@ Partial Class frmKundenblatt Me.tbRechnungen.Controls.Add(Me.MyPanel1) Me.tbRechnungen.Location = New System.Drawing.Point(4, 25) Me.tbRechnungen.Name = "tbRechnungen" - Me.tbRechnungen.Size = New System.Drawing.Size(1644, 1509) + Me.tbRechnungen.Size = New System.Drawing.Size(1644, 843) Me.tbRechnungen.TabIndex = 14 Me.tbRechnungen.Text = "Rechnungen" Me.tbRechnungen.UseVisualStyleBackColor = True @@ -2611,7 +2560,7 @@ Partial Class frmKundenblatt Me.dgvRg.ReadOnly = True Me.dgvRg.RowHeadersVisible = False Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRg.Size = New System.Drawing.Size(1644, 1449) + Me.dgvRg.Size = New System.Drawing.Size(1644, 783) Me.dgvRg.TabIndex = 3 ' 'MyPanel1 @@ -2838,7 +2787,7 @@ Partial Class frmKundenblatt ' Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" - Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Text = "cntxtMDM" ' @@ -3000,13 +2949,64 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 837) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 805) + Me.usrcntlKarten.TabIndex = 0 + ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 805) + Me.UsrCntlLKW1.TabIndex = 0 + ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 843) + Me.UsrCntlOfferte1.TabIndex = 0 + ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 811) + Me.UsrCntlUSTV.TabIndex = 0 + ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1651, 1667) + Me.ClientSize = New System.Drawing.Size(1651, 1001) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 8f953c4c..81a54ca5 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -2165,6 +2165,9 @@ Public Class frmKundenblatt If .DataSource Is Nothing Then Exit Sub If .Columns.Count = 0 Then Exit Sub + dgvUmsatzNachLeistngsNr.Columns(0).Frozen = True + dgvUmsatzNachLeistngsNr.Columns(1).Frozen = True + For i = 0 To dgvUmsatzNachLeistngsNr.ColumnCount - 1 If i = 0 Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index 4cf96a87..747f8c57 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb @@ -254,7 +254,7 @@ Public Class cMDMFunctionsAllgemein If Not ( Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeUmsatzsteuerbetragEUR")), 0, r.Item("UStV_SummeUmsatzsteuerbetragEUR"))), 2) = curUStV_SummeUmsatzsteuerbetragEUR And - Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeErstattungsbetragEUR")), 0, r.Item("UStV_SummeUmsatzsteuerbetragEUR"))), 2) = curUStV_SummeErstattungsbetragEUR And + Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeErstattungsbetragEUR")), 0, r.Item("UStV_SummeErstattungsbetragEUR"))), 2) = curUStV_SummeErstattungsbetragEUR And Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_Summe3470BetragEUR")), 0, r.Item("UStV_Summe3470BetragEUR"))), 2) = curUStV_Summe3470BetragEUR And Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeVZBetragEUR")), 0, r.Item("UStV_SummeVZBetragEUR"))), 2) = curUStV_SummeVZBetragEUR And Math.Round(CDbl(IIf(IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_VERAG")), 0, r.Item("UStV_SummeVorschaubetragEUR_VERAG"))), 2) = curUStV_SummeVorschaubetragEUR_VERAG And From 7431d6d6f0308442ffc45df481bee422cb266f1c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 17 Oct 2025 10:24:01 +0200 Subject: [PATCH 02/11] MDMFunctions --- VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb | 1 - 1 file changed, 1 deletion(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index 747f8c57..9547cc38 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb @@ -282,7 +282,6 @@ Public Class cMDMFunctionsAllgemein Kunden.UStV_SummeErstattungsbetragEUR = " & curUStV_SummeErstattungsbetragEUR.ToString.Replace(",", ".") & ", Kunden.UStV_Summe3470BetragEUR = " & curUStV_Summe3470BetragEUR.ToString.Replace(",", ".") & ", Kunden.UStV_SummeVZBetragEUR = " & curUStV_SummeVZBetragEUR.ToString.Replace(",", ".") & ", - Kunden.UStV_SummeVorschaubetragEUR_VERAG = " & curUStV_SummeVorschaubetragEUR_VERAG.ToString.Replace(",", ".") & ", Kunden.UStV_SummeVorschaubetragEUR_IDS = " & curUStV_SummeVorschaubetragEUR_IDS.ToString.Replace(",", ".") & ", Kunden.UStV_SummeVorschaubetragEUR_IT = " & curUStV_SummeVorschaubetragEUR_IT.ToString.Replace(",", ".") & ", From bf9973ab06f2fa5d5672f04ebf8d277fdad5b7f4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 17 Oct 2025 13:12:40 +0200 Subject: [PATCH 03/11] kundeblatt, ustv. --- SDL/USTV/usrCntlUSTV.vb | 2 - SDL/kunden/frmKundenblatt.Designer.vb | 138 +++++++++++++------------- SDL/kunden/frmKundenblatt.vb | 13 ++- 3 files changed, 77 insertions(+), 76 deletions(-) diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 0a729456..86fed29f 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -2,10 +2,8 @@ Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN - Public Class usrCntlUSTV - Dim kundenSQL As New kundenSQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim FUNC As New cProgramFunctions diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 64c66165..c69f21a1 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -53,6 +53,7 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -149,8 +150,10 @@ Partial Class frmKundenblatt Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -182,6 +185,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbFremdrechnungen = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() @@ -192,6 +196,7 @@ Partial Class frmKundenblatt Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.tbFIBU = New System.Windows.Forms.TabPage() Me.btn_FIBU_speichern = New System.Windows.Forms.Button() Me.lblZNB_verrechnet = New System.Windows.Forms.Label() @@ -241,11 +246,6 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -347,6 +347,16 @@ Partial Class frmKundenblatt Me.Panel4.Size = New System.Drawing.Size(1638, 837) Me.Panel4.TabIndex = 0 ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 837) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -1758,11 +1768,21 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 811) + Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) + Me.usrcntlKarten.TabIndex = 0 + ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1770,7 +1790,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(1630, 811) + Me.tbLKW.Size = New System.Drawing.Size(178, 39) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1782,9 +1802,22 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 805) + Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) Me.pnlLKWRight.TabIndex = 2 ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) + Me.UsrCntlLKW1.TabIndex = 0 + ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1793,7 +1826,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 805) + Me.pnlLKW.Size = New System.Drawing.Size(306, 33) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1834,7 +1867,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 631) + Me.dgvLKW.Size = New System.Drawing.Size(306, 0) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1846,7 +1879,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 693) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1987,7 +2020,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 811) + Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1999,7 +2032,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1624, 805) + Me.Panel3.Size = New System.Drawing.Size(172, 33) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -2017,7 +2050,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1630, 811) + Me.tbDokumente.Size = New System.Drawing.Size(178, 39) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -2217,7 +2250,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 811) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -2226,7 +2259,7 @@ Partial Class frmKundenblatt ' Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 811) + Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) Me.tbFremdrechnungen.TabIndex = 10 Me.tbFremdrechnungen.Text = "Fremdrechnungen" Me.tbFremdrechnungen.UseVisualStyleBackColor = True @@ -2242,6 +2275,16 @@ Partial Class frmKundenblatt Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 843) + Me.UsrCntlOfferte1.TabIndex = 0 + ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) @@ -2375,11 +2418,19 @@ Partial Class frmKundenblatt Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 817) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) + Me.UsrCntlUSTV.TabIndex = 0 + ' 'tbFIBU ' Me.tbFIBU.Controls.Add(Me.btn_FIBU_speichern) @@ -2787,7 +2838,7 @@ Partial Class frmKundenblatt ' Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" - Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Text = "cntxtMDM" ' @@ -2949,57 +3000,6 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 837) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 805) - Me.usrcntlKarten.TabIndex = 0 - ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 805) - Me.UsrCntlLKW1.TabIndex = 0 - ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 843) - Me.UsrCntlOfferte1.TabIndex = 0 - ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 811) - Me.UsrCntlUSTV.TabIndex = 0 - ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 81a54ca5..2160240f 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -2611,13 +2611,16 @@ Public Class frmKundenblatt Private Sub btn_FIBU_speichern_Click(sender As Object, e As EventArgs) Handles btn_FIBU_speichern.Click KUNDE_ERW.kde_BezFIBU = checkNullStr(txtFIBUKuerzel.Text) - If txtZinsbelastung.Text <> "" AndAlso txtZinsbelastung.Text.Contains(",") Then - txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".") + If txtZinsbelastung.Text <> "" Then + If txtZinsbelastung.Text.Contains(",") Then + txtZinsbelastung.Text = txtZinsbelastung.ToString.Replace(",", ".") + Else + KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text) + End If + Else + KUNDE_ERW.kde_zinssatz = Nothing End If - KUNDE_ERW.kde_zinssatz = checkNullStr(txtZinsbelastung.Text) - - KUNDE_ERW.SAVE() If KUNDE.Gesprächsbericht <> "" AndAlso checkNullStr(rtbGespreachsbericht.Text) = "" OrElse KUNDE.Gesprächsbericht = "" AndAlso checkNullStr(rtbGespreachsbericht.Text) <> "" Then From 1c261053844b0ee6bdb9917afd05e726d8d31c5a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 17 Oct 2025 17:13:08 +0200 Subject: [PATCH 04/11] mdm-importcheck, IDS-Preise --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/kunden/frmKundenblatt.Designer.vb | 193 ++++++++++---------- SDL/kunden/usrCntlIDSPreise.Designer.vb | 18 ++ SDL/kunden/usrCntlIDSPreise.vb | 87 ++++----- SDL/mdm/frmMDMDatenverarbetiung.Designer.vb | 46 +++-- SDL/mdm/frmMDMDatenverarbetiung.vb | 70 ++++++- 6 files changed, 249 insertions(+), 169 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 6afe1248..f2d0a19d 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index c69f21a1..1f910f8e 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -53,7 +53,6 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -150,10 +149,8 @@ Partial Class frmKundenblatt Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -185,7 +182,6 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbFremdrechnungen = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() @@ -196,7 +192,6 @@ Partial Class frmKundenblatt Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.tbFIBU = New System.Windows.Forms.TabPage() Me.btn_FIBU_speichern = New System.Windows.Forms.Button() Me.lblZNB_verrechnet = New System.Windows.Forms.Label() @@ -246,6 +241,11 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -334,7 +334,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 843) + Me.tbFirmendaten.Size = New System.Drawing.Size(1644, 928) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -344,19 +344,9 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1638, 837) + Me.Panel4.Size = New System.Drawing.Size(1638, 922) Me.Panel4.TabIndex = 0 ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 837) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -374,7 +364,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1652, 872) + Me.tbcntrMain.Size = New System.Drawing.Size(1652, 957) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -415,7 +405,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1644, 843) + Me.tbAllgemein.Size = New System.Drawing.Size(1644, 928) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -496,7 +486,7 @@ Partial Class frmKundenblatt Me.TabControl1.Location = New System.Drawing.Point(8, 582) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(718, 255) + Me.TabControl1.Size = New System.Drawing.Size(718, 340) Me.TabControl1.TabIndex = 186 ' 'TabPage1 @@ -508,7 +498,7 @@ Partial Class frmKundenblatt Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(710, 229) + Me.TabPage1.Size = New System.Drawing.Size(710, 314) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Offene Posten" Me.TabPage1.UseVisualStyleBackColor = True @@ -567,7 +557,7 @@ Partial Class frmKundenblatt Me.dgvOffenePosten.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOffenePosten.RowHeadersVisible = False Me.dgvOffenePosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 197) + Me.dgvOffenePosten.Size = New System.Drawing.Size(707, 282) Me.dgvOffenePosten.TabIndex = 175 ' 'Label10 @@ -600,7 +590,7 @@ Partial Class frmKundenblatt Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(710, 229) + Me.TabPage2.Size = New System.Drawing.Size(710, 314) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "Umsatzbericht" Me.TabPage2.UseVisualStyleBackColor = True @@ -645,7 +635,7 @@ Partial Class frmKundenblatt Me.dgvUmsaetze.RowHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvUmsaetze.RowHeadersVisible = False Me.dgvUmsaetze.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 207) + Me.dgvUmsaetze.Size = New System.Drawing.Size(707, 292) Me.dgvUmsaetze.TabIndex = 182 ' 'Label13 @@ -693,7 +683,7 @@ Partial Class frmKundenblatt Me.TabPage3.Controls.Add(Me.dgvUmsatzNachLeistngsNr) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" - Me.TabPage3.Size = New System.Drawing.Size(710, 229) + Me.TabPage3.Size = New System.Drawing.Size(710, 314) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "Umsatz nach LeistungsNr" Me.TabPage3.UseVisualStyleBackColor = True @@ -749,7 +739,7 @@ Partial Class frmKundenblatt Me.dgvUmsatzNachLeistngsNr.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvUmsatzNachLeistngsNr.RowHeadersVisible = False Me.dgvUmsatzNachLeistngsNr.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 206) + Me.dgvUmsatzNachLeistngsNr.Size = New System.Drawing.Size(705, 291) Me.dgvUmsatzNachLeistngsNr.TabIndex = 183 ' 'lblAdressenzusatz @@ -1110,7 +1100,7 @@ Partial Class frmKundenblatt Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvSperrliste.Size = New System.Drawing.Size(446, 799) + Me.dgvSperrliste.Size = New System.Drawing.Size(446, 884) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -1164,7 +1154,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1644, 843) + Me.tbZoll.Size = New System.Drawing.Size(1644, 928) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -1176,7 +1166,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 837) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1638, 922) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -1184,7 +1174,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 811) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1630, 896) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -1195,7 +1185,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1644, 843) + Me.tbMdm.Size = New System.Drawing.Size(1644, 928) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -1214,7 +1204,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 837) + Me.tbcntrMDM.Size = New System.Drawing.Size(1638, 922) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -1226,7 +1216,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1630, 811) + Me.tbSDL.Size = New System.Drawing.Size(1630, 896) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -1268,7 +1258,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle21 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 615) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1624, 700) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -1374,7 +1364,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 665) + Me.Panel5.Location = New System.Drawing.Point(3, 750) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1624, 143) Me.Panel5.TabIndex = 177 @@ -1768,21 +1758,11 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) + Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 896) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) - Me.usrcntlKarten.TabIndex = 0 - ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1790,7 +1770,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(178, 39) + Me.tbLKW.Size = New System.Drawing.Size(1630, 896) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1802,22 +1782,9 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) + Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 890) Me.pnlLKWRight.TabIndex = 2 ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) - Me.UsrCntlLKW1.TabIndex = 0 - ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1826,7 +1793,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 33) + Me.pnlLKW.Size = New System.Drawing.Size(306, 890) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1867,7 +1834,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 0) + Me.dgvLKW.Size = New System.Drawing.Size(306, 716) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1879,7 +1846,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 778) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -2020,7 +1987,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) + Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 896) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -2032,7 +1999,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(172, 33) + Me.Panel3.Size = New System.Drawing.Size(1624, 890) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -2050,7 +2017,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(178, 39) + Me.tbDokumente.Size = New System.Drawing.Size(1630, 896) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -2250,7 +2217,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 896) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -2259,7 +2226,7 @@ Partial Class frmKundenblatt ' Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) + Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 896) Me.tbFremdrechnungen.TabIndex = 10 Me.tbFremdrechnungen.Text = "Fremdrechnungen" Me.tbFremdrechnungen.UseVisualStyleBackColor = True @@ -2270,27 +2237,17 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1644, 843) + Me.tbOfferte.Size = New System.Drawing.Size(1644, 928) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 843) - Me.UsrCntlOfferte1.TabIndex = 0 - ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) Me.tbUSTV.Location = New System.Drawing.Point(4, 25) Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1644, 843) + Me.tbUSTV.Size = New System.Drawing.Size(1644, 928) Me.tbUSTV.TabIndex = 12 Me.tbUSTV.Text = "USTV" Me.tbUSTV.UseVisualStyleBackColor = True @@ -2304,7 +2261,7 @@ Partial Class frmKundenblatt Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrUSTV.Name = "tbcntrUSTV" Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 843) + Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 928) Me.tbcntrUSTV.TabIndex = 1 ' 'tbUSTVDokumente @@ -2317,7 +2274,7 @@ Partial Class frmKundenblatt Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 817) + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 902) Me.tbUSTVDokumente.TabIndex = 8 Me.tbUSTVDokumente.Text = "Dokumente" Me.tbUSTVDokumente.UseVisualStyleBackColor = True @@ -2418,19 +2375,11 @@ Partial Class frmKundenblatt Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 902) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) - Me.UsrCntlUSTV.TabIndex = 0 - ' 'tbFIBU ' Me.tbFIBU.Controls.Add(Me.btn_FIBU_speichern) @@ -2448,7 +2397,7 @@ Partial Class frmKundenblatt Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel) Me.tbFIBU.Location = New System.Drawing.Point(4, 25) Me.tbFIBU.Name = "tbFIBU" - Me.tbFIBU.Size = New System.Drawing.Size(1644, 843) + Me.tbFIBU.Size = New System.Drawing.Size(1644, 945) Me.tbFIBU.TabIndex = 13 Me.tbFIBU.Text = "FIBU" Me.tbFIBU.UseVisualStyleBackColor = True @@ -2592,7 +2541,7 @@ Partial Class frmKundenblatt Me.tbRechnungen.Controls.Add(Me.MyPanel1) Me.tbRechnungen.Location = New System.Drawing.Point(4, 25) Me.tbRechnungen.Name = "tbRechnungen" - Me.tbRechnungen.Size = New System.Drawing.Size(1644, 843) + Me.tbRechnungen.Size = New System.Drawing.Size(1644, 928) Me.tbRechnungen.TabIndex = 14 Me.tbRechnungen.Text = "Rechnungen" Me.tbRechnungen.UseVisualStyleBackColor = True @@ -2611,7 +2560,7 @@ Partial Class frmKundenblatt Me.dgvRg.ReadOnly = True Me.dgvRg.RowHeadersVisible = False Me.dgvRg.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRg.Size = New System.Drawing.Size(1644, 783) + Me.dgvRg.Size = New System.Drawing.Size(1644, 868) Me.dgvRg.TabIndex = 3 ' 'MyPanel1 @@ -2838,7 +2787,6 @@ Partial Class frmKundenblatt ' Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" - Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Text = "cntxtMDM" ' @@ -3000,13 +2948,64 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 890) + Me.usrcntlKarten.TabIndex = 0 + ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 890) + Me.UsrCntlLKW1.TabIndex = 0 + ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928) + Me.UsrCntlOfferte1.TabIndex = 0 + ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 896) + Me.UsrCntlUSTV.TabIndex = 0 + ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1651, 1001) + Me.ClientSize = New System.Drawing.Size(1651, 1086) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) diff --git a/SDL/kunden/usrCntlIDSPreise.Designer.vb b/SDL/kunden/usrCntlIDSPreise.Designer.vb index f869c568..cebead54 100644 --- a/SDL/kunden/usrCntlIDSPreise.Designer.vb +++ b/SDL/kunden/usrCntlIDSPreise.Designer.vb @@ -39,6 +39,7 @@ Partial Class usrCntlIDSPreise Me.Label1 = New System.Windows.Forms.Label() Me.btnRW = New System.Windows.Forms.Button() Me.btnAdd = New System.Windows.Forms.Button() + Me.btnExcel = New System.Windows.Forms.Button() CType(Me.dgvIDSData, System.ComponentModel.ISupportInitialize).BeginInit() Me.cntxtAddSdl.SuspendLayout() CType(Me.dgvIDS, System.ComponentModel.ISupportInitialize).BeginInit() @@ -253,6 +254,21 @@ Partial Class usrCntlIDSPreise Me.btnAdd.Tag = "" Me.btnAdd.UseVisualStyleBackColor = True ' + 'btnExcel + ' + Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnExcel.ForeColor = System.Drawing.Color.Black + Me.btnExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.btnExcel.ImageAlign = System.Drawing.ContentAlignment.TopLeft + Me.btnExcel.Location = New System.Drawing.Point(182, 514) + Me.btnExcel.Name = "btnExcel" + Me.btnExcel.Size = New System.Drawing.Size(45, 36) + Me.btnExcel.TabIndex = 38 + Me.btnExcel.Tag = "" + Me.btnExcel.UseVisualStyleBackColor = True + Me.btnExcel.Visible = False + ' 'usrCntlIDSPreise ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -268,6 +284,7 @@ Partial Class usrCntlIDSPreise Me.Controls.Add(Me.cbxTypes) Me.Controls.Add(Me.dgvIDS) Me.Controls.Add(Me.btnOfferteSpeichern) + Me.Controls.Add(Me.btnExcel) Me.Controls.Add(Me.btnEditIDS) Me.Controls.Add(Me.lblIDS) Me.Controls.Add(Me.dgvIDSData) @@ -297,4 +314,5 @@ Partial Class usrCntlIDSPreise Friend WithEvents Label1 As Label Friend WithEvents btnRW As Button Friend WithEvents btnAdd As Button + Friend WithEvents btnExcel As Button End Class diff --git a/SDL/kunden/usrCntlIDSPreise.vb b/SDL/kunden/usrCntlIDSPreise.vb index 7ecf4238..a6cfb5be 100644 --- a/SDL/kunden/usrCntlIDSPreise.vb +++ b/SDL/kunden/usrCntlIDSPreise.vb @@ -21,14 +21,12 @@ Public Class usrCntlIDSPreise Dim dgvInitWait As Boolean = False Dim RW As Double = -1 Dim Kunde As Integer = -1 + Dim enableChanges As Boolean = False Sub New() InitializeComponent() End Sub - - - Public Sub init(Optional _isVerag360 As Boolean = False) edit = False handleEditMode(edit) @@ -246,6 +244,9 @@ Public Class usrCntlIDSPreise End If DGVHasChaged = False + + btnExcel.Visible = dgvIDSData.Rows.Count > 0 + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try @@ -410,24 +411,14 @@ Public Class usrCntlIDSPreise .Columns("OutletCountry").HeaderText = "Bezeichnung" .Columns("OutletCountryCode").Visible = False End With - 'EnableDoubleBuffered(dgvOfferteDetails) dgvIDSData.Columns.Clear() dgvIDS.ClearSelection() initDGVDieselpreiseDetails() - 'initFilter() initDGVWidth() - 'AddHandler OFFERTEBind.bindingdataTable.ColumnChanged, Sub(ev As EventArgs, change As DataColumnChangeEventArgs) - ' ' If change.Column.ColumnName="" - ' 'Dim r_index = dgvOfferteDetails.Rows.IndexOf(change.Row) - ' 'Dim c_index = dgvOfferteDetails.Columns.IndexOf(change.Column.ColumnName) - ' 'dgvOfferteDetails.Rows(change.Row) - - ' End Sub - End Sub Sub initDGVWidth() @@ -444,19 +435,6 @@ Public Class usrCntlIDSPreise ' End Sub - - - Private Sub AddOffert_Click(sender As Object, e As EventArgs) Handles DToolStripMenuItem.Click - If sender.name.contains("tsmiOffertNr_") Then - ' MsgBox(sender.name.ToString.Replace("tsmiSDLNr_", "")) - Dim OffertenNr As String = sender.tag - - - End If - - End Sub - - Private Sub dgvOfferteDetails_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvIDSData.CellValueChanged Try Select Case cbxTypes._value @@ -576,28 +554,12 @@ Public Class usrCntlIDSPreise End Sub - Private Sub cbxArchivierteOfferten_SelectedIndexChanged(sender As Object, e As EventArgs) - - checkPerimissionsDGVDetails() - - End Sub - - 'Private Sub cbxArchivierteOffertenAnzeigen_CheckedChanged(sender As Object, e As EventArgs) - - ' If dgvIDS.SelectedRows.Count = 0 Then Exit Sub - - ' initDGVDieselpreiseDetails(dgvIDS.SelectedRows(0).Cells("OffertenNr").Value) - - - 'End Sub - - Private Sub checkPerimissionsDGVDetails() Try With dgvIDSData - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DIESELPREISE_BEARBEITEN", "SDL") Then + If Not enableChanges Then For Each c As DataGridViewColumn In .Columns c.ReadOnly = True handleEditMode(False) @@ -651,14 +613,15 @@ Public Class usrCntlIDSPreise Private Sub checkPermissions() - - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DIESELPREISE_BEARBEITEN", "SDL") Then + enableChanges = False btnEditIDS.Visible = False dgvIDS.ReadOnly = True + btnAdd.Visible = False Else + enableChanges = True dgvIDSData.AllowUserToAddRows = True dgvIDSData.AllowUserToDeleteRows = True dgvIDSData.RowHeadersVisible = True @@ -668,7 +631,6 @@ Public Class usrCntlIDSPreise If dgvIDS.SelectedRows.Count = 0 Then - End If End Sub @@ -897,7 +859,12 @@ Public Class usrCntlIDSPreise End If Next - btnAdd.Visible = enableButtonAdd + If Not enableChanges Then + btnAdd.Visible = False + Else + btnAdd.Visible = enableButtonAdd + End If + If dgvIDS.SelectedCells.Count > 0 Then @@ -1037,4 +1004,30 @@ Public Class usrCntlIDSPreise End If End Sub + + Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click + + If dgvIDSData.Rows.Count > 0 Then + + Dim dt As DataTable = CType(dgvIDSData.DataSource, DataTable) + Dim displayTable As DataTable = dt.Copy() + + If displayTable.Rows.Count > 0 Then + + + If displayTable.Columns.Contains("Sachbearbeiter") Then displayTable.Columns.Remove("Sachbearbeiter") + If displayTable.Columns.Contains("ID") Then + displayTable.PrimaryKey = Nothing + displayTable.Columns.Remove("ID") + End If + If displayTable.Columns.Contains("Zeitstempel") Then displayTable.Columns.Remove("Zeitstempel") + + cProgramFunctions.genExcelFromDT_NEW(displayTable) + + End If + + End If + + + End Sub End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb index 568ebda6..c66e8885 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb @@ -25,6 +25,7 @@ Partial Class frmMDMDatenverarbetiung Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDMDatenverarbetiung)) Me.pnl = New System.Windows.Forms.Panel() + Me.cbxIDSmitVerag = New System.Windows.Forms.CheckBox() Me.Panel5 = New System.Windows.Forms.Panel() Me.Label5 = New System.Windows.Forms.Label() Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() @@ -33,6 +34,7 @@ Partial Class frmMDMDatenverarbetiung Me.cbxASFINAGAbgerechnet = New System.Windows.Forms.CheckBox() Me.cbxTestdaten = New System.Windows.Forms.CheckBox() Me.Panel4 = New System.Windows.Forms.Panel() + Me.pb_importOK = New System.Windows.Forms.PictureBox() Me.Label46 = New System.Windows.Forms.Label() Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker() Me.Label45 = New System.Windows.Forms.Label() @@ -83,11 +85,11 @@ Partial Class frmMDMDatenverarbetiung Me.Button2 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.cbxIDSmitVerag = New System.Windows.Forms.CheckBox() Me.pnl.SuspendLayout() Me.Panel5.SuspendLayout() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel4.SuspendLayout() + CType(Me.pb_importOK, System.ComponentModel.ISupportInitialize).BeginInit() Me.FlowLayoutPanel.SuspendLayout() Me.Panel1.SuspendLayout() Me.pnlAsfinag.SuspendLayout() @@ -101,6 +103,7 @@ Partial Class frmMDMDatenverarbetiung ' 'pnl ' + Me.pnl.Controls.Add(Me.pb_importOK) Me.pnl.Controls.Add(Me.cbxIDSmitVerag) Me.pnl.Controls.Add(Me.Panel5) Me.pnl.Controls.Add(Me.PictureBox5) @@ -119,6 +122,19 @@ Partial Class frmMDMDatenverarbetiung Me.pnl.Size = New System.Drawing.Size(1163, 100) Me.pnl.TabIndex = 1 ' + 'cbxIDSmitVerag + ' + Me.cbxIDSmitVerag.AutoSize = True + Me.cbxIDSmitVerag.Checked = True + Me.cbxIDSmitVerag.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxIDSmitVerag.Location = New System.Drawing.Point(504, 74) + Me.cbxIDSmitVerag.Name = "cbxIDSmitVerag" + Me.cbxIDSmitVerag.Size = New System.Drawing.Size(153, 17) + Me.cbxIDSmitVerag.TabIndex = 131 + Me.cbxIDSmitVerag.Text = "Daten mit Verag/Verag360" + Me.cbxIDSmitVerag.UseVisualStyleBackColor = True + Me.cbxIDSmitVerag.Visible = False + ' 'Panel5 ' Me.Panel5.Controls.Add(Me.Label5) @@ -132,7 +148,7 @@ Partial Class frmMDMDatenverarbetiung 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(11, 12) + Me.Label5.Location = New System.Drawing.Point(3, 12) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(113, 13) Me.Label5.TabIndex = 23 @@ -204,6 +220,17 @@ Partial Class frmMDMDatenverarbetiung Me.Panel4.Size = New System.Drawing.Size(417, 33) Me.Panel4.TabIndex = 28 ' + 'pb_importOK + ' + Me.pb_importOK.BackgroundImage = Global.SDL.My.Resources.Resources.ok + Me.pb_importOK.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.pb_importOK.Location = New System.Drawing.Point(81, 42) + Me.pb_importOK.Name = "pb_importOK" + Me.pb_importOK.Size = New System.Drawing.Size(23, 19) + Me.pb_importOK.TabIndex = 53 + Me.pb_importOK.TabStop = False + Me.pb_importOK.Visible = False + ' 'Label46 ' Me.Label46.AutoSize = True @@ -797,19 +824,6 @@ Partial Class frmMDMDatenverarbetiung Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 547) Me.MyDatagridview1.TabIndex = 0 ' - 'cbxIDSmitVerag - ' - Me.cbxIDSmitVerag.AutoSize = True - Me.cbxIDSmitVerag.Checked = True - Me.cbxIDSmitVerag.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxIDSmitVerag.Location = New System.Drawing.Point(504, 74) - Me.cbxIDSmitVerag.Name = "cbxIDSmitVerag" - Me.cbxIDSmitVerag.Size = New System.Drawing.Size(153, 17) - Me.cbxIDSmitVerag.TabIndex = 131 - Me.cbxIDSmitVerag.Text = "Daten mit Verag/Verag360" - Me.cbxIDSmitVerag.UseVisualStyleBackColor = True - Me.cbxIDSmitVerag.Visible = False - ' 'frmMDMDatenverarbetiung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -830,6 +844,7 @@ Partial Class frmMDMDatenverarbetiung CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel4.ResumeLayout(False) Me.Panel4.PerformLayout() + CType(Me.pb_importOK, System.ComponentModel.ISupportInitialize).EndInit() Me.FlowLayoutPanel.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() @@ -905,4 +920,5 @@ Partial Class frmMDMDatenverarbetiung Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents cbxKopie As CheckBox Friend WithEvents cbxIDSmitVerag As CheckBox + Friend WithEvents pb_importOK As PictureBox End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 060e327a..27738139 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1,7 +1,5 @@ Imports System.Data.OleDb Imports System.IO -Imports com.sun.xml.internal.rngom -Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports itextsharp.text.pdf Imports MDM_Worker Imports VERAG_PROG_ALLGEMEIN @@ -76,22 +74,76 @@ Public Class frmMDMDatenverarbetiung txtAnzahl.Text = "" txtPruefsummeNetto.Text = "" Button1.Enabled = True + pb_importOK.Visible = False Select Case LIEFERANT - Case "PLOSE" : initDgv_PLOSE() + Case "PLOSE" : checkImport(LIEFERANT) : initDgv_PLOSE() btnDatenLaden.Text = "Daten laden" - Case "UTA" : initDgv_UTA() + Case "UTA" : checkImport(LIEFERANT) : initDgv_UTA() btnDatenLaden.Text = "Daten laden" - Case "ASFINAG" : initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked) + Case "ASFINAG" : checkImport(LIEFERANT) : initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked) btnDatenLaden.Text = "Daten laden" - Case "IDS" : initDgv_IDS() + Case "IDS" : checkImport(LIEFERANT) : initDgv_IDS() btnDatenLaden.Text = "Daten laden" Button1.Enabled = False - Case "MSE" : initDgv_MSE() + Case "MSE" : checkImport(LIEFERANT) : initDgv_MSE() btnDatenLaden.Text = "Daten laden" End Select End Sub + Private Sub checkImport(LIEFERANT As String) + + 'autom Import bei Asfinag, Plose und MSE + '(noch) manueller Import bei UTA (weil immer so spät kommt) und IDS (wegen Nacharbeitung) + + pb_importOK.Visible = True + Dim Import_OK As Boolean = False + + Dim sqlstr As String = "" + + Select Case LIEFERANT + Case "PLOSE" + sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and invoicedate between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'" + Case "ASFINAG" + sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and YEAR(invoicedate) = " & Today().Year + Case Else + sqlstr = "SELECT * FROM [VERAG].[dbo].[tblMDMEinarbeitung] where supplier = '" & LIEFERANT & "' and invoicedate ='" & DateTimePicker2.Text & "'" + End Select + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + + If dt.Rows.Count > 0 Then + Dim hasImcompleIports As Boolean = dt.AsEnumerable().Any(Function(row) row.Field(Of Boolean)("completed") = False) + If hasImcompleIports Then + pb_importOK.BackgroundImage = SDL.My.Resources.Resources.del + Else + If LIEFERANT = "IDS" Then 'IDS Bedard aktuell noch einer Nachbearbeitung! + Dim nacharbeitungNotCompleted As Boolean = dt.AsEnumerable().Any(Function(row) row.Field(Of Boolean)("nacharbeitung_completed") = False) + + If nacharbeitungNotCompleted Then + Import_OK = False + Else + Import_OK = True + End If + + Else + Import_OK = True + End If + + End If + Else + Import_OK = False + End If + + + If Import_OK Then + pb_importOK.BackgroundImage = SDL.My.Resources.Resources.ok + Else + pb_importOK.BackgroundImage = SDL.My.Resources.Resources.del + End If + + End Sub + Private Sub btnREerstellen_Click_1(sender As Object, e As EventArgs) Handles btnREerstellen.Click Dim errorTmp = False @@ -120,7 +172,7 @@ Public Class frmMDMDatenverarbetiung End If Case "IDS" If cbxIDSmitVerag.Checked Then - MsgBox("Abrechnung ohne VERAG/VERAG360 !") + MsgBox("Abrechnung ohne VERAG/VERAG360!") Exit Sub End If showIDSContextMenu() @@ -1049,6 +1101,7 @@ Public Class frmMDMDatenverarbetiung cbxASFINAGAbgerechnet.Visible = True cbxBelegeerstellt.Visible = True pnlAsfinag.Visible = True + checkImport(LIEFERANT) Exit Sub Case "IDS" Panel5.Visible = True @@ -4857,4 +4910,5 @@ RabattBerechnen: Private Sub cbxIDSmitVerag_CheckedChanged(sender As Object, e As EventArgs) Handles cbxIDSmitVerag.CheckedChanged initDgv_IDS() End Sub + End Class From be624a11dcec7503b2c4a916707ffb1679cfc398 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 20 Oct 2025 17:24:23 +0200 Subject: [PATCH 05/11] offert, MDM-rechnungsdruck, mdm-Zinsberechnung, Buchhaltung, etc. --- SDL/Fakturierung/cFakturierung.vb | 1408 ++++++++++--- SDL/Fakturierung/rptRechnungDruck.Designer.vb | 4 +- .../rptRechnungDruck_MDM.Designer.vb | 1734 +++++++++++++++++ SDL/Fakturierung/rptRechnungDruck_MDM.resx | 136 ++ SDL/Fakturierung/rptRechnungDruck_MDM.vb | 24 + ...agenDruck_Zinsennachberechnung.Designer.vb | 318 +++ ...MDM_AnlagenDruck_Zinsennachberechnung.resx | 126 ++ ...ngMDM_AnlagenDruck_Zinsennachberechnung.vb | 73 + SDL/SDL.vbproj | 19 + SDL/buchhaltung/usrCntlBH.vb | 30 +- SDL/kunden/usrCntlOfferte.Designer.vb | 32 +- SDL/kunden/usrCntlOfferte.vb | 8 + SDL/mdm/frmMDMDatenverarbetiung.vb | 8 +- .../Classes/cMDMZinsberechnung.vb | 2 +- .../Classes/cRechnungsausgang.vb | 2 + 15 files changed, 3588 insertions(+), 336 deletions(-) create mode 100644 SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb create mode 100644 SDL/Fakturierung/rptRechnungDruck_MDM.resx create mode 100644 SDL/Fakturierung/rptRechnungDruck_MDM.vb create mode 100644 SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb create mode 100644 SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx create mode 100644 SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 85abcdfa..2b335f25 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -4,9 +4,11 @@ Imports System.IO Imports System.Net Imports System.Web.UI.WebControls.Expressions Imports com.sun.org.apache.xpath.internal.operations +Imports javax.print.attribute.standard Imports Microsoft.Office.Interop Imports s2industries.ZUGFeRD Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.TESTJSON Public Class cFakturierung @@ -796,7 +798,9 @@ Public Class cFakturierung 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim - rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'Änderung Ticket Nr.: 18615 + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.picVERAG.Size = New SizeF(2.712, 0.61) rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") Case 26 @@ -849,33 +853,6 @@ Public Class cFakturierung End If - Case 19 'MDM - - rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich aufgrund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf unsere Rechnungen, Spesen und Zinsen, zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-, Zoll- und Tarifauskünfte sind unverbindlich." - - If Rechnung.RechnungsLandKz = "TR" Then - rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim - rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim - - rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - - If Not hasEUSTZOLL(Rechnung) Then - - rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544" - - End If - Else - rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim - rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim - - rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - - rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) - End If - - - Case Else 'VERAG If Rechnung.RechnungsLandKz = "TR" Then @@ -910,6 +887,100 @@ Public Class cFakturierung End Select + End Sub + + + Shared Sub initRgFirma_MDM(ByRef rpt As rptRechnungDruck_MDM, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Rechnung As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + + rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") + rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") + rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "") + rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "") + rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "") + rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "") + rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "") + If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6" + + rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim + rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim + rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI:", "").Trim + + If FIRMA.Firma_ID = 4 Then + rpt.lblEORIUeberschrift.Text = "St-Nr.:" + rpt.lblFirma.Visible = False + rpt.Line15.Visible = False + End If + + rpt.txtBank3.Visible = False + + + + If hasVK(Rechnung) Then + rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE" + rpt.txtBank2.Text = "" + Else + If hasEUSTZOLL(Rechnung) Then + rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE" + rpt.txtBank2.Text = "" + Else + rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE" + rpt.txtBank2.Text = "" + End If + End If + + Select Case FIRMA.Firma_ID + + Case 19 'MDM + + rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich aufgrund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf unsere Rechnungen, Spesen und Zinsen, zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-, Zoll- und Tarifauskünfte sind unverbindlich." + + If Rechnung.RechnungsLandKz = "TR" Then + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + If Not hasEUSTZOLL(Rechnung) Then + + rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544" + + End If + Else + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + End If + + Case Else 'VERAG + + If Rechnung.RechnungsLandKz = "TR" Then + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + If Not hasEUSTZOLL(Rechnung) Then + + rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544" + + End If + Else + rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim + rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim + + rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine) + + End If + + End Select + + End Sub Shared Sub initRgFirmaSammelRg(ByRef rpt As rptSammelRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object) @@ -945,7 +1016,9 @@ Public Class cFakturierung 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim - rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'Änderung Ticket Nr.: 18615 + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") Case 26 'VERAG-UNISPED" rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim @@ -1040,7 +1113,8 @@ Public Class cFakturierung rpt.txtBank3.Visible = True 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim - rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") Case 20 '"IMEX" @@ -1093,6 +1167,8 @@ Public Class cFakturierung Shared Sub initRgFirmaSammelRg_MDM_Bericht(ByRef rpt As rptSammelRechnungAnlagenDruck_MDM, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object) + 'ACHTUNG MDM verwedet auch AG und GMBH!!! + rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "") rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "") rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "") @@ -1133,7 +1209,8 @@ Public Class cFakturierung 'Änderung Ticket_Nr.: 6983 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim - rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR67 0006 2000 5440 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + 'rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim + rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: 60 0006 2001 6750 0009 0513 57" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall") Case 20 '"IMEX" @@ -1194,26 +1271,40 @@ Public Class cFakturierung ' MsgBox(Rechnugnsdruck) If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID) + If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False + + Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) + + If Not SammelrechnungAnlagendruck Then + If vorschau = False And RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Return False + End If + + If Not vorschau Then + Select Case RECHNUNG.Rechnungsart + Case "RU" : MsgBox("Unvollständige Rechnungen können nur mit einem Rechnungskopf in der Sammelrechnung gedruckt werden! Siehe Rechnungsart.") : Return False + Case "RK" : MsgBox("Ein Rechnungskopf kann nur mit zumindest einer unvollständigen Rechnung gedruckt werden! Siehe Rechnungsart.") : Return False + End Select + End If + + If FIRMA.Firma_ID <> 19 Then + Return doRechnungsdruck_allgemein(RECHNUNG, FIRMA, KD_RG, RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, printOriginalRg, SammelrechnungAnlagendruck, printStbVdb) + Else + Return doRechnungsdruck_MDM(RECHNUNG, FIRMA, KD_RG, RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, printOriginalRg, SammelrechnungAnlagendruck, printStbVdb) + End If + + Return False + End Function + + + Public Shared Function doRechnungsdruck_allgemein(Rechnung As cRechnungsausgang, firma As cFirmen, KD_RG As cAdressen, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) + Try - Dim rpt As New rptRechnungDruck(RECHNUNG.RechnungSprache) + Dim rpt As New rptRechnungDruck(Rechnung.RechnungSprache) - Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID) - Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) - If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False - - If Not SammelrechnungAnlagendruck Then - If vorschau = False And RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Return False - End If - - If Not vorschau Then - Select Case RECHNUNG.Rechnungsart - Case "RU" : MsgBox("Unvollständige Rechnungen können nur mit einem Rechnungskopf in der Sammelrechnung gedruckt werden! Siehe Rechnungsart.") : Return False - Case "RK" : MsgBox("Ein Rechnungskopf kann nur mit zumindest einer unvollständigen Rechnung gedruckt werden! Siehe Rechnungsart.") : Return False - End Select - End If - - If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False + If Rechnung.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False Dim dtDataSource As New DataTable dtDataSource.Columns.Add("LeistungsNr") @@ -1224,7 +1315,7 @@ Public Class cFakturierung dtDataSource.Columns.Add("Belegdaten") Dim gsBetrTmp As Double = 0 - For Each r In RECHNUNG.POSITIONEN + For Each r In Rechnung.POSITIONEN ' dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, (If(r.Belegdaten, "") & " " & If(r.Aufschubfälligkeit, "")).ToString.Trim) dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, If(r.Belegdaten, "").ToString.Trim) @@ -1250,9 +1341,9 @@ Public Class cFakturierung 'End If Dim sum = 0 - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "INVOICE" rpt.lblSummeUeberschrift.Text = "Invoice Amount:" @@ -1266,7 +1357,7 @@ Public Class cFakturierung End Select Case "RO" - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "FACTURA" rpt.lblSummeUeberschrift.Text = "Total" @@ -1280,7 +1371,7 @@ Public Class cFakturierung End Select Case Else - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" Case "AG" @@ -1293,15 +1384,15 @@ Public Class cFakturierung End Select - initRgFirma(rpt, FIRMA, RECHNUNG) + initRgFirma(rpt, firma, Rechnung) - Select Case RECHNUNG.Firma_ID + Select Case Rechnung.Firma_ID Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing - Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing + 'Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE @@ -1314,82 +1405,77 @@ Public Class cFakturierung Dim ZZTage = 10 Dim ZZTageVL = 10 - Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & Rechnung.RechnungsKundenNr, "FMZOLL", 10) If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then ZZTage = ZZKdZahlungsziel ZZTageVL = ZZTage End If - Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & Rechnung.RechnungsKundenNr, "FMZOLL", 10) If ZZKdZahlungszielVL IsNot Nothing AndAlso IsNumeric(ZZKdZahlungszielVL) Then ZZTageVL = ZZKdZahlungszielVL End If - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:" Case "RO" : rpt.Label2.Text = ZZTage & " Zile" : rpt.Label1.Text = "Termen de plată:" : rpt.lblSendungsdatenUeberschrift.Text = "Descriere:" Case Else : rpt.Label2.Text = ZZTage & " Tage" : rpt.lblSendungsdatenUeberschrift.Text = "Bezeichnung:" End Select - Select Case RECHNUNG.Firma_ID + Select Case Rechnung.Firma_ID Case 21, 22, 23, 26 : rpt.Label1.Visible = False : rpt.Label2.Visible = False 'Ka warum - Case 19 - rpt.txtGrenze.Visible = False - rpt.txtGrenzeUeberschrift.Visible = False - rpt.lblWarenWertUeberschrift.Visible = False - rpt.txtWarenwert.Visible = False End Select - rpt.lblKundenNr.Text = If(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, "") - 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.lblKundenNr.Text = If(Rechnung.RechnungsKundenNr > 0, Rechnung.RechnungsKundenNr, "") + 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, "") 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False - rpt.lblAbfertigungsNr.Text = RECHNUNG.FilialenNr & " / " & RECHNUNG.AbfertigungsNr & " " & RECHNUNG.UnterNr.ToString("00") - rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString - rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") + rpt.lblAbfertigungsNr.Text = Rechnung.FilialenNr & " / " & Rechnung.AbfertigungsNr & " " & Rechnung.UnterNr.ToString("00") + rpt.lblAbfertigungsDatum.Text = Rechnung.Abfertigungsdatum.ToShortDateString + rpt.lblLKWId.Text = If(Rechnung.AvisoID, "") - Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) + Dim sachbearbeiterAufRechnung = getSBRgName(Rechnung.Firma_ID, Rechnung.Sachbearbeiter) rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") - rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim - rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim - rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "") + rpt.txtAbsender.Text = If(Rechnung.AbsenderName_1, "") & " " & If(Rechnung.AbsenderName_2, "") & vbNewLine & If(Rechnung.AbsenderOrt, "").ToString.Trim + rpt.txtEmpfaenger.Text = If(Rechnung.EmpfängerName_1, "") & " " & If(Rechnung.EmpfängerName_2, "") & vbNewLine & If(Rechnung.EmpfängerOrt, "").ToString.Trim + rpt.txtAvisierer.Text = If(Rechnung.Avisierer, "") - If FIRMA.Firma_ID = 4 Then + If firma.Firma_ID = 4 Then rpt.lblWarenWertUeberschrift.Visible = False rpt.txtWarenwert.Visible = False rpt.txtGrenze.Visible = False rpt.txtGrenzeUeberschrift.Visible = False End If - rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "") + rpt.txtZollbelegNr.Text = If(Rechnung.BelegNr, "") - Dim waehrungCode As String = SQL.getValueTxtBySql("SELECT isnull(Währungscode,'') FROM Währungstabelle WHERE Währungsschlüssel = " & If(RECHNUNG.[WährungsNr], -1) & ";", "FMZOLL") - If IsNumeric(If(RECHNUNG.Wert, "")) Then + Dim waehrungCode As String = SQL.getValueTxtBySql("SELECT isnull(Währungscode,'') FROM Währungstabelle WHERE Währungsschlüssel = " & If(Rechnung.[WährungsNr], -1) & ";", "FMZOLL") + If IsNumeric(If(Rechnung.Wert, "")) Then ' rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & If(RECHNUNG.Währungscode, "") - rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & waehrungCode + rpt.txtWarenwert.Text = CDbl(Rechnung.Wert).ToString("N2") & " " & waehrungCode Else ' rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & If(RECHNUNG.Währungscode, "") - rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & waehrungCode + rpt.txtWarenwert.Text = If(Rechnung.Wert, "") & " " & waehrungCode End If - rpt.txtSendungsdaten.Text = If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") + rpt.txtSendungsdaten.Text = If(Rechnung.Packstücke_und_Warenbezeichnung, "") If rpt.txtSendungsdaten.Text.Length > 200 Then rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Substring(0, 200) rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace(", 0,0 kg", "") '0kg ausblenden - rpt.txtBeförderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "") + rpt.txtBeförderungsmittel.Text = If(Rechnung.LKW_Kennzeichen, "") - rpt.txtGrenze.Text = If(RECHNUNG.Grenze, "") - If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'') FROM [Filialen] where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL") + rpt.txtGrenze.Text = If(Rechnung.Grenze, "") + If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'') FROM [Filialen] where FilialenNr='" & Rechnung.FilialenNr & "'", "FMZOLL") If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False - rpt.lblRechnungAn.Text = If(RECHNUNG.RechnungsName_1, "") & vbNewLine - If If(RECHNUNG.RechnungsName_2, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_2 & vbNewLine - If If(RECHNUNG.RechnungsStraße, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsStraße & vbNewLine - If If(RECHNUNG.RechnungsName_AdressZusatz, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_AdressZusatz & vbNewLine - If If(RECHNUNG.RechnungsOrt, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsOrt & vbNewLine - If If(RECHNUNG.RechnungsLandKz, "") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper + rpt.lblRechnungAn.Text = If(Rechnung.RechnungsName_1, "") & vbNewLine + If If(Rechnung.RechnungsName_2, "") <> "" Then rpt.lblRechnungAn.Text &= Rechnung.RechnungsName_2 & vbNewLine + If If(Rechnung.RechnungsStraße, "") <> "" Then rpt.lblRechnungAn.Text &= Rechnung.RechnungsStraße & vbNewLine + If If(Rechnung.RechnungsName_AdressZusatz, "") <> "" Then rpt.lblRechnungAn.Text &= Rechnung.RechnungsName_AdressZusatz & vbNewLine + If If(Rechnung.RechnungsOrt, "") <> "" Then rpt.lblRechnungAn.Text &= Rechnung.RechnungsOrt & vbNewLine + If If(Rechnung.RechnungsLandKz, "") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(Rechnung.RechnungsLandKz, "", Rechnung.RechnungSprache).ToString.ToUpper 'If If(RECHNUNG.RechnungsName_2, "") = "" Then @@ -1404,7 +1490,7 @@ Public Class cFakturierung 'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then - If RECHNUNG.Firma_ID = 4 Then + If Rechnung.Firma_ID = 4 Then rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht Else rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim @@ -1418,15 +1504,15 @@ Public Class cFakturierung rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) - rpt.lblRechnung_UID.Text = If(RECHNUNG.RechnungsUstIdKz, "") & If(RECHNUNG.RechnungsUstIdNr, "") + rpt.lblRechnung_UID.Text = If(Rechnung.RechnungsUstIdKz, "") & If(Rechnung.RechnungsUstIdNr, "") rpt.lblRechnung_UID.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) rpt.lblRechnung_UID_Ueberschrift.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) - rpt.txtKdAuftragsNr.Text = If(RECHNUNG.KdAuftragsNr, "") + rpt.txtKdAuftragsNr.Text = If(Rechnung.KdAuftragsNr, "") rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty) - rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim - rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim + rpt.TextBox1.Text = If(Rechnung.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim + rpt.txtVermerk.Text = (If(Rechnung.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(Rechnung.Notiz, "").ToString.Trim).ToString.Trim ' REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern). @@ -1434,54 +1520,42 @@ Public Class cFakturierung ' die in der Leistungstabelle als ReverseCharge gekennzeichnet sind, ' summiert und auf der Rechnung ausgewiesen werden. - If isReverseChargeSumme(FIRMA, RECHNUNG) Then + If isReverseChargeSumme(firma, Rechnung) Then - If RECHNUNG.Firma_ID = 19 Then - - Select Case RECHNUNG.RechnungSprache - Case "RO" : rpt.txtInfo.Text = "*Taxare inversa" - Case "EN" : rpt.txtInfo.Text = "*Reverse Charge" - Case Else : rpt.txtInfo.Text = "*Reverse Charge" - End Select - - Else - - Select Case RECHNUNG.RechnungSprache - Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)." - Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)." - Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." - End Select + Select Case Rechnung.RechnungSprache + Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)." + Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)." + Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." + End Select - End If + 'End If Else : rpt.txtInfo.Text = "" : End If - - rpt.txtAnlagen.Text = "" - If If(RECHNUNG.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= RECHNUNG.Anlage_1 - If If(RECHNUNG.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_2 - If If(RECHNUNG.Anlage_3, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_3 - If If(RECHNUNG.Anlage_4, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_4 - If If(RECHNUNG.Anlage_5, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_5 - If If(RECHNUNG.Anlage_6, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_6 + If If(Rechnung.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= Rechnung.Anlage_1 + If If(Rechnung.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_2 + If If(Rechnung.Anlage_3, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_3 + If If(Rechnung.Anlage_4, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_4 + If If(Rechnung.Anlage_5, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_5 + If If(Rechnung.Anlage_6, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & Rechnung.Anlage_6 rpt.txtAnlagen.Text = rpt.txtAnlagen.Text.Trim If rpt.txtAnlagen.Text.Replace(" ", "") = "" Then rpt.lblAnlagenUeberschrift.Visible = False Else - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" : rpt.lblAnlagenUeberschrift.Text = "Attachment:" Case "RO" : rpt.lblAnlagenUeberschrift.Text = "Anexa:" Case Else : rpt.lblAnlagenUeberschrift.Text = "Anlagen:" End Select End If - rpt.txtHandlingATA.Text = If(RECHNUNG.Handling, "") + rpt.txtHandlingATA.Text = If(Rechnung.Handling, "") If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then rpt.lblHandlingATA.Visible = False End If @@ -1499,7 +1573,7 @@ Public Class cFakturierung 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung 'ANLAGE ZUR RECHNUNG: - If RECHNUNG.Status = 3 Or RECHNUNG.Sammelrechnung <> 0 Then + If Rechnung.Status = 3 Or Rechnung.Sammelrechnung <> 0 Then rpt.txtAnlagen.Visible = False rpt.lblAnlagenUeberschrift.Visible = False rpt.lblRgDatumUeberschrift.Visible = False @@ -1522,23 +1596,23 @@ Public Class cFakturierung rpt.Line7.Visible = False - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "Attachment to invoice" Case "AG" rpt.lblUeberschriftRG_GS.Text = "Attachment to CREDIT NOTE" End Select Case "RO" - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "Anexa la factura colectiva" Case "AG" rpt.lblUeberschriftRG_GS.Text = "Anexa la nota de credit" End Select Case Else - Select Case RECHNUNG.BelegartenKz + Select Case Rechnung.BelegartenKz Case "AR" rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung" Case "AG" @@ -1549,8 +1623,8 @@ Public Class cFakturierung End If If Not printOriginalRg Then 'sonst wird der originaldruck erzwungen - If RECHNUNG.DruckDatumZeit IsNot Nothing Then - Select Case RECHNUNG.RechnungSprache + If Rechnung.DruckDatumZeit IsNot Nothing Then + Select Case Rechnung.RechnungSprache Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" Case "RO" : rpt.lblUeberschriftRG_GS.Text &= " - COPIE" Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" @@ -1558,106 +1632,19 @@ Public Class cFakturierung End If End If - 'Dim cnt As Integer = 0 - If RECHNUNG.Firma_ID = 19 Then - - 'rpt.lblSteuersatz.Visible = False - 'rpt.lblSteuerbetrag.Visible = False - rpt.lblSteuerpflichtigGes.Visible = False - rpt.lblSteuerfreiGes.Visible = False - rpt.lblZwText.Visible = False - rpt.lblZWSumme.Visible = False - - rpt.lblRechnung_Steuernummer.Visible = False - rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = False - End If Dim sumSteuerpflichtig As Double = 0 Dim sumSteuerfrei As Double = 0 - ' Dim Anz As Double = 0 - ' Dim gesSumBt As Double = 0 - ' Dim gesAnz As Double = 0 - Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) + Dim vorzeichen = If(If(Rechnung.Vorzeichen, "") = "-", -1, 1) AddHandler rpt.Detail.Format, Sub() - ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString - ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString + rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) - If FIRMA.Firma_ID = 19 Then - Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL") - If isReverseCharge Then - rpt.txtLeistung.Text &= IIf(Not rpt.txtLeistung.Text.Contains("*"), "*", "") - End If - - If rpt.txtLeistung.Text.Contains("00/23") Or rpt.txtLeistung.Text.Contains("DL/23") Then - If RECHNUNG.FilialenNr = 4817 AndAlso RECHNUNG.AbfertigungsNr > 0 AndAlso (RECHNUNG.OffertenNr = 14 Or RECHNUNG.OffertenNr = 15 Or RECHNUNG.OffertenNr = 31) Then - Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & RECHNUNG.FilialenNr & " AND AbfertigungsNr = " & RECHNUNG.AbfertigungsNr, "FMZOLL",,, "-1")) - - If antragsID > 0 Then - - Dim MWSTAntrag As New cUSTVAntrag(antragsID) - - - Dim MonthStart As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatVon).Month - Dim MonthEnd As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatBis).Month - - If MonthStart = MonthEnd Then MonthEnd = "" - - Dim listVZMonth As New List(Of Integer) - - If RECHNUNG.RK_ID > 0 Then - For Each pos As cUStVPositionen In MWSTAntrag.POSITIONEN.OrderBy(Function(x) If(IsDate(x.UStVPo_ReDat), CDate(x.UStVPo_ReDat), Nothing)) - - If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso pos.UStVPo_VZ_RKID = RECHNUNG.RK_ID AndAlso IsDate(pos.UStVPo_ReDat) Then - If Not listVZMonth.Contains(CDate(pos.UStVPo_ReDat).Month) Then listVZMonth.Add(CDate(pos.UStVPo_ReDat).Month) - End If - - Next - End If - - - If listVZMonth.Count > 0 Then - - If listVZMonth.Count = 1 Then - MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString - MonthEnd = "" - Else - MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString - MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString - End If - End If - - - If rpt.txtLeistung.Text.Contains("00-00/23") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) - ElseIf rpt.txtLeistung.Text.Contains("DL/23") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) - Else - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) - End If - - If rpt.txtLeistung.Text.Contains("-00") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("-00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - ElseIf rpt.txtLeistung.Text.Contains("00-") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00-", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - ElseIf rpt.txtLeistung.Text.Contains("00") Then - rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) - End If - End If - - - End If - - - End If - End If - - If rpt.Fields.Item("Belegdaten").Value IsNot Nothing Then rpt.txtLeistung.Text &= vbNewLine & checkNull(rpt.Fields.Item("Belegdaten").Value) End If @@ -1678,15 +1665,6 @@ Public Class cFakturierung sumSteuerpflichtig += stPfl sumSteuerfrei += stFrei - ' Anz += 1 - ' gesAnz += 1 - - ' If Anz Mod 2 = 0 Then - ' rpt.Detail.BackColor = Color.FromArgb(240, 240, 240) - 'Else - ' rpt.Detail.BackColor = Color.White - ' End If - 'rpt.Line10.Height = rpt.Detail.Height End Sub AddHandler rpt.ReportFooter1.Format, Sub() @@ -1697,7 +1675,7 @@ Public Class cFakturierung Dim steuerProz As Double = 0 Dim steuerBez As String = "" - Dim dt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RECHNUNG.Steuerschlüssel & "'", "FMZOLL") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & Rechnung.Steuerschlüssel & "'", "FMZOLL") If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then steuerProz = dt.Rows(0)(0) steuerBez = dt.Rows(0)(1) @@ -1710,46 +1688,37 @@ Public Class cFakturierung rpt.lblSteuerbetrag.Visible = False End If - ' rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture) - ' rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture) - rpt.lblZWSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) rpt.lblSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) - rpt.Label46.Text = If(RECHNUNG.Währungscode, "EUR") + rpt.Label46.Text = If(Rechnung.Währungscode, "EUR") - If isSTARK(RECHNUNG) Then + If isSTARK(Rechnung) Then rpt.lblZwText.Text = "Summe EUST" - rpt.lblZWSumme.Text = CDbl(getSTARK_EUST(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZWSumme.Text = CDbl(getSTARK_EUST(firma, Rechnung)).ToString("N2", CultureInfo.CurrentCulture) rpt.lblZwText.Visible = True rpt.lblZWSumme.Visible = True rpt.lblSteuersatz.Text = "Summe ohne EUST" - rpt.lblSteuerbetrag.Text = CDbl(getSTARK_ohneEUST(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuerbetrag.Text = CDbl(getSTARK_ohneEUST(firma, Rechnung)).ToString("N2", CultureInfo.CurrentCulture) rpt.lblSteuersatz.Visible = True rpt.lblSteuerbetrag.Visible = True Else - If isReverseChargeSumme(FIRMA, RECHNUNG) Then - Select Case RECHNUNG.RechnungSprache + If isReverseChargeSumme(firma, Rechnung) Then + Select Case Rechnung.RechnungSprache Case "DE" : rpt.lblZwText.Text = "Summe Steuerfrei" : rpt.lblSteuersatz.Text = "Summe Reverse Charge" Case "EN" : rpt.lblZwText.Text = "Sum Taxfree" : rpt.lblSteuersatz.Text = "Sum Reverse Charge" Case "RO" : rpt.lblZwText.Text = "Suma neimpozabila" : rpt.lblSteuersatz.Text = "Suma Reverse Charge" End Select - rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(firma, Rechnung)).ToString("N2", CultureInfo.CurrentCulture) rpt.lblZwText.Visible = True rpt.lblZWSumme.Visible = True + rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(firma, Rechnung)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuersatz.Visible = True + rpt.lblSteuerbetrag.Visible = True - If RECHNUNG.Firma_ID = 19 Then 'Bei MDM ausblenden! - rpt.lblSteuersatz.Text = "" - rpt.lblSteuerbetrag.Visible = False - Else - rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) - rpt.lblSteuersatz.Visible = True - rpt.lblSteuerbetrag.Visible = True - - End If Else @@ -1761,18 +1730,6 @@ Public Class cFakturierung End If End If - If RECHNUNG.Firma_ID = 19 Then - - 'rpt.lblSteuersatz.Visible = False - 'rpt.lblSteuerbetrag.Visible = False - - rpt.lblSteuerpflichtigGes.Visible = False - rpt.lblSteuerfreiGes.Visible = False - rpt.lblZwText.Visible = False - rpt.lblZWSumme.Visible = False - End If - - End Sub 'DruckDatumUhrzeit wird gesetzt, falls noch ungedruckt... @@ -1797,22 +1754,22 @@ Public Class cFakturierung Else Dim Kopie = True 'ORIGINAL - Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) - If RECHNUNG.Status = 0 Then + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(Rechnung.RechnungsKundenNr) + If Rechnung.Status = 0 Then If AD IsNot Nothing Then Kopie = False 'Aktualisierung und speichern: - If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then - rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau") - rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString + If Abrechnugsdaten_AKTUALISIEREN(Rechnung, RechnungsDatum) Then + rpt.lblRgNr.Text = If(Rechnung.RechnungsNr > 0, addYeartoRgNr(Rechnung.Firma_ID, Rechnung.Buchungsjahr) & Rechnung.RechnungsNr, "Vorschau") + rpt.lblRgDatum.Text = CDate(Rechnung.RechnungsDatum).ToShortDateString - If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + If Rechnung.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) Else rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) @@ -1832,13 +1789,13 @@ Public Class cFakturierung End If Else - If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) - rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) - rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + If Rechnung.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(Rechnung.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) Else rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) @@ -1848,20 +1805,20 @@ Public Class cFakturierung rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) End If - If RECHNUNG.[DruckDatumZeit] Is Nothing Then - RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt - RECHNUNG.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen + If Rechnung.[DruckDatumZeit] Is Nothing Then + Rechnung.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt + Rechnung.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen End If End If - If Not RECHNUNG.checkRechnungsNrIsSet() Then + If Not Rechnung.checkRechnungsNrIsSet() Then MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen") Return False End If 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben ' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" - Dim RG_Bezeichnung = If(RECHNUNG.[BelegartenKz] = "AR", "Rechnung_", "Gutschrift_") & If(RECHNUNG.RechnungsNr, "") & ".pdf" + Dim RG_Bezeichnung = If(Rechnung.[BelegartenKz] = "AR", "Rechnung_", "Gutschrift_") & If(Rechnung.RechnungsNr, "") & ".pdf" '-------------------------------- ' --> TEST wegen Size Problem @@ -1882,10 +1839,10 @@ Public Class cFakturierung Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID) Dim enableZugpferd = Paramslist.GET_PARAMETER_VALUE_BOOL("ZUGFeRD") If enableZugpferd Then - tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.addAttachementToPDF(tmpPath, createZUGFeRD(True, RECHNUNG,), "ZUGFeRD-invoice.xml") + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.addAttachementToPDF(tmpPath, createZUGFeRD(True, Rechnung,), "ZUGFeRD-invoice.xml") Else - Dim Zugferdpath = createZUGFeRD(True, RECHNUNG) + Dim Zugferdpath = createZUGFeRD(True, Rechnung) Dim fileInfo_ZP As New FileInfo(Zugferdpath) Dim ZUGF_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ZUGFERD", Now().Year, "", "", fileInfo_ZP.Name, -1, False) ZUGF_DS.uploadDataToDATENSERVER(Zugferdpath, fileInfo_ZP.Name, fileInfo_ZP.Extension,,,, True) @@ -1900,7 +1857,7 @@ Public Class cFakturierung Try If Not Kopie And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - in Therefore speichern?", vbYesNoCancel)) Then - VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, ""), RECHNUNG.Firma_ID, False) + VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, Rechnung.FilialenNr & Rechnung.AbfertigungsNr, If(Rechnung.AvisoID, ""), Rechnung.Firma_ID, False) End If Catch ex As Exception @@ -1912,12 +1869,12 @@ Public Class cFakturierung '------------------------------------------------------------------------------- If Not Kopie Then Try - Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) + Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(Rechnung.RechnungsKundenNr) If KUNDE_ERW IsNot Nothing Then 'TRADESHIFT: Try If KUNDE_ERW.kde_API_Tradeshift Then - Select Case RECHNUNG.Firma_ID + Select Case Rechnung.Firma_ID Case 21, 22, 23 'System.IO.File.Copy(tmpPath, "\\srv01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True) System.IO.File.Copy(tmpPath, "\\unidc01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True) @@ -1928,7 +1885,7 @@ Public Class cFakturierung End Try End If - If RECHNUNG.Firma_ID = 24 Then + If Rechnung.Firma_ID = 24 Then Dim API As New DataTable Dim Program = "DATEV-PDF" @@ -1958,14 +1915,14 @@ Public Class cFakturierung Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) - If printStbVdb AndAlso RECHNUNG.Firma_ID <> 1 Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then - printSpedBuchAnhaenge(RECHNUNG, True, True) + If printStbVdb AndAlso Rechnung.Firma_ID <> 1 Then + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then + printSpedBuchAnhaenge(Rechnung, True, True) End If End If - If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then - printRGAnhaenge(RECHNUNG) + If Rechnung.ANHAENGE.Count > 0 AndAlso Rechnung.Firma_ID <> 1 Then + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + printRGAnhaenge(Rechnung) End If End If @@ -1986,46 +1943,46 @@ Public Class cFakturierung Dim outl As New Outlook.Application Dim Mail As Microsoft.Office.Interop.Outlook.MailItem Mail = outl.CreateItem(0) - Select Case RECHNUNG.RechnungsLandKz + Select Case Rechnung.RechnungsLandKz Case "TR" - Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr + Mail.Subject = "Invoice No. " & Rechnung.RechnungsNr Mail.HTMLBody = "Sayin Bayanlar ve Baylar,

ekte baslikta yazan faturayi bulabilirsinz." - Mail.HTMLBody &= "


Saygilarimizla

" & getSignature(RECHNUNG) + Mail.HTMLBody &= "


Saygilarimizla

" & getSignature(Rechnung) Case "A", "AT", "D", "DE", "CH" - Mail.Subject = "Rechnung Nr. " & RECHNUNG.RechnungsNr + Mail.Subject = "Rechnung Nr. " & Rechnung.RechnungsNr Mail.HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang senden wir Ihnen die o.g. Rechnung." - Mail.HTMLBody &= "


Mit freundlichen Grüßen

" & getSignature(RECHNUNG) + Mail.HTMLBody &= "


Mit freundlichen Grüßen

" & getSignature(Rechnung) Case Else - Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr + Mail.Subject = "Invoice No. " & Rechnung.RechnungsNr Mail.HTMLBody = "Dear Sir or Madam,

attached we send you the invoice mentioned above." - Mail.HTMLBody &= "


Best regards

" & getSignature(RECHNUNG) + Mail.HTMLBody &= "


Best regards

" & getSignature(Rechnung) End Select Mail.HTMLBody = "
" & Mail.HTMLBody & "
" Dim emai_receipt As String = "" - If RECHNUNG.FilialenNr = "4801" Or RECHNUNG.FilialenNr = "4802" Then emai_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(RECHNUNG.RechnungsKundenNr, "Rechnung an (ATILLA)") + If Rechnung.FilialenNr = "4801" Or Rechnung.FilialenNr = "4802" Then emai_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(Rechnung.RechnungsKundenNr, "Rechnung an (ATILLA)") - Mail.To = IIf(emai_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(RECHNUNG.RechnungsKundenNr, "Rechnung an"), emai_receipt) + Mail.To = IIf(emai_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(Rechnung.RechnungsKundenNr, "Rechnung an"), emai_receipt) Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Rechnung.pdf") Mail.Display() If RD_DRUCK = 5 Then ' --> RPOT KOPIE DRUCKEN - Select Case RECHNUNG.RechnungSprache + Select Case Rechnung.RechnungSprache Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" End Select Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) If printStbVdb Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then - printSpedBuchAnhaenge(RECHNUNG, True, True) + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then + printSpedBuchAnhaenge(Rechnung, True, True) End If End If - If RECHNUNG.ANHAENGE.Count > 0 Then + If Rechnung.ANHAENGE.Count > 0 Then 'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt! - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then - printRGAnhaenge(RECHNUNG) + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + printRGAnhaenge(Rechnung) End If End If End If @@ -2043,9 +2000,9 @@ Public Class cFakturierung 'rpt.Run(False) 'p.NeverEmbedFonts = "" 'p.Export(rpt.Document, tmpPath) - If RECHNUNG.ANHAENGE.Count > 0 Then - If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge öffnen?", vbYesNoCancel)) Then - openRgAnhaenge(RECHNUNG) + If Rechnung.ANHAENGE.Count > 0 Then + If (Rechnung.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge öffnen?", vbYesNoCancel)) Then + openRgAnhaenge(Rechnung) End If End If @@ -2077,6 +2034,829 @@ Public Class cFakturierung Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try + End Function + + + Public Shared Function doRechnungsdruck_MDM(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, firma As cFirmen, KD_RG As cAdressen, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean + + Dim rpt As New rptRechnungDruck_MDM(RECHNUNG.RechnungSprache) + + If RECHNUNG.POSITIONEN.Count = 0 Then MsgBox("Keine Daten vorhanden!") : Return False + Dim dtDataSource As New DataTable + + dtDataSource.Columns.Add("LeistungsNr") + dtDataSource.Columns.Add("LeistungsBez") + dtDataSource.Columns.Add("Anzahl") + dtDataSource.Columns.Add("SteuerpflichtigerBetrag") + dtDataSource.Columns.Add("SteuerfreierBetrag") + dtDataSource.Columns.Add("Belegdaten") + + Dim gsBetrTmp As Double = 0 + For Each r In RECHNUNG.POSITIONEN + ' dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, (If(r.Belegdaten, "") & " " & If(r.Aufschubfälligkeit, "")).ToString.Trim) + + dtDataSource.Rows.Add(r.LeistungsNr, r.LeistungsBez, r.Anzahl, r.SteuerpflichtigerBetrag, r.SteuerfreierBetrag, If(r.Belegdaten, "").ToString.Trim) + + gsBetrTmp += CDbl(r.SteuerpflichtigerBetrag + r.SteuerfreierBetrag) + Next + + If gsBetrTmp = 0 Then MsgBox("Rechnungsbetrag ist EUR 0,- ") : Return False + + + Dim dataView As New DataView(dtDataSource) + dataView.Sort = " LeistungsNr " + Dim dtTmp As DataTable = dataView.ToTable() + + ' rpt.DataSource = SQL.loadDgvBySql("SELECT * FROM [Rechnungsausgangpositionen] where RK_ID ='" & RECHNUNG.RK_ID & "' ", "FMZOLL") + rpt.DataSource = dtTmp + + '' MsgBox(rpt.DataSource.rows.count) + 'If rpt.DataSource.rows.count = 0 Then + ' rpt.Dispose() + ' MsgBox("Keine Daten vorhanden!") + ' Return False + 'End If + + Dim sum = 0 + Select Case RECHNUNG.RechnungSprache + Case "EN" + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "INVOICE" + rpt.lblSummeUeberschrift.Text = "Invoice Amount:" + rpt.lblRgNrUeberschrift.Text = "Invoice No.:" + rpt.lblRgDatumUeberschrift.Text = "Invoice Date:" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "CREDIT NOTE" + rpt.lblSummeUeberschrift.Text = "Credit Amount:" + rpt.lblRgNrUeberschrift.Text = "Credit Note No.:" + rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:" + End Select + + Case "RO" + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "FACTURA" + rpt.lblSummeUeberschrift.Text = "Total" + rpt.lblRgNrUeberschrift.Text = "Nr. factura:" + rpt.lblRgDatumUeberschrift.Text = "Data factura:" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "NOTA DE CREDIT" + rpt.lblSummeUeberschrift.Text = "Total" + rpt.lblRgNrUeberschrift.Text = "Nr. nota credit:" + rpt.lblRgDatumUeberschrift.Text = "Data nota credit:" + End Select + + Case Else + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "RECHNUNG" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT" + rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:" + rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:" + rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:" + End Select + + End Select + + + initRgFirma_MDM(rpt, firma, RECHNUNG) + + Select Case RECHNUNG.Firma_ID + Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard + Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing + Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing + Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS + Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing + Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing + Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex + Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT + Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE + Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing + Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT + Case 24 : rpt.picVERAG.Image = My.Resources.ambar_boarder : rpt.Picture1.Image = Nothing + rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False + + End Select + + Dim ZZTage = 10 + Dim ZZTageVL = 10 + Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then + ZZTage = ZZKdZahlungsziel + ZZTageVL = ZZTage + End If + Dim ZZKdZahlungszielVL = SQL.DLookup("kde_abweichendesZZVL", "tblKundenErweitert", "kde_KundenNr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10) + If ZZKdZahlungszielVL IsNot Nothing AndAlso IsNumeric(ZZKdZahlungszielVL) Then + ZZTageVL = ZZKdZahlungszielVL + End If + + Select Case RECHNUNG.RechnungSprache + Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:" : rpt.lblSendungsdatenUeberschrift.Text = "Service:" + Case "RO" : rpt.Label2.Text = ZZTage & " Zile" : rpt.Label1.Text = "Termen de plată:" : rpt.lblSendungsdatenUeberschrift.Text = "Descriere:" + Case Else : rpt.Label2.Text = ZZTage & " Tage" : rpt.lblSendungsdatenUeberschrift.Text = "Bezeichnung:" + End Select + + + Select Case RECHNUNG.Firma_ID + Case 21, 22, 23, 26 : rpt.Label1.Visible = False : rpt.Label2.Visible = False 'Ka warum + Case 19 + rpt.txtGrenze.Visible = False + rpt.txtGrenzeUeberschrift.Visible = False + rpt.lblWarenWertUeberschrift.Visible = False + rpt.txtWarenwert.Visible = False + End Select + + rpt.lblKundenNr.Text = If(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, "") + 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, "") + 'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False + + rpt.lblAbfertigungsNr.Text = RECHNUNG.FilialenNr & " / " & RECHNUNG.AbfertigungsNr & " " & RECHNUNG.UnterNr.ToString("00") + rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString + rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") + + Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) + rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") + + rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim + rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim + rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "") + + If firma.Firma_ID = 4 Then + rpt.lblWarenWertUeberschrift.Visible = False + rpt.txtWarenwert.Visible = False + rpt.txtGrenze.Visible = False + rpt.txtGrenzeUeberschrift.Visible = False + End If + + rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "") + + Dim waehrungCode As String = SQL.getValueTxtBySql("SELECT isnull(Währungscode,'') FROM Währungstabelle WHERE Währungsschlüssel = " & If(RECHNUNG.[WährungsNr], -1) & ";", "FMZOLL") + If IsNumeric(If(RECHNUNG.Wert, "")) Then + ' rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & If(RECHNUNG.Währungscode, "") + rpt.txtWarenwert.Text = CDbl(RECHNUNG.Wert).ToString("N2") & " " & waehrungCode + Else + ' rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & If(RECHNUNG.Währungscode, "") + rpt.txtWarenwert.Text = If(RECHNUNG.Wert, "") & " " & waehrungCode + End If + rpt.txtSendungsdaten.Text = If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") + If rpt.txtSendungsdaten.Text.Length > 200 Then rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Substring(0, 200) + rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace(", 0,0 kg", "") '0kg ausblenden + rpt.txtBeförderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "") + + rpt.txtGrenze.Text = If(RECHNUNG.Grenze, "") + If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenze.Text = SQL.getValueTxtBySql("SELECT TOP 1 isnull([Grenzstelle],'') FROM [Filialen] where FilialenNr='" & RECHNUNG.FilialenNr & "'", "FMZOLL") + If rpt.txtGrenze.Text.Trim = String.Empty Then rpt.txtGrenzeUeberschrift.Visible = False + + rpt.lblRechnungAn.Text = If(RECHNUNG.RechnungsName_1, "") & vbNewLine + If If(RECHNUNG.RechnungsName_2, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_2 & vbNewLine + If If(RECHNUNG.RechnungsStraße, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsStraße & vbNewLine + If If(RECHNUNG.RechnungsName_AdressZusatz, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsName_AdressZusatz & vbNewLine + If If(RECHNUNG.RechnungsOrt, "") <> "" Then rpt.lblRechnungAn.Text &= RECHNUNG.RechnungsOrt & vbNewLine + If If(RECHNUNG.RechnungsLandKz, "") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper + + + 'If If(RECHNUNG.RechnungsName_2, "") = "" Then + ' rpt.lblRechnung_Name1.Text = "" + ' rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_1, "") + 'Else + ' rpt.lblRechnung_Name1.Text = If(RECHNUNG.RechnungsName_1, "") + ' rpt.lblRechnung_Name2.Text = If(RECHNUNG.RechnungsName_2, "") + 'End If + 'rpt.lblRechnung_Strasse.Text = If(RECHNUNG.RechnungsStraße, "") + 'rpt.lblRechnung_Ort.Text = If(RECHNUNG.RechnungsOrt, "") + 'rpt.lblRechnung_Land.Text = cProgramFunctions.getLandBez_fromISO1Land(RECHNUNG.RechnungsLandKz, "", RECHNUNG.RechnungSprache).ToString.ToUpper + + If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then + If RECHNUNG.Firma_ID = 4 Then + rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim 'ohne LandKz gewünscht + Else + rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim + End If + + ' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim + Else + rpt.lblRechnung_Steuernummer.Text = "" + ' rpt.lblRechnung_UID.Text = "" + End If + rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) + rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty) + + rpt.lblRechnung_UID.Text = If(RECHNUNG.RechnungsUstIdKz, "") & If(RECHNUNG.RechnungsUstIdNr, "") + rpt.lblRechnung_UID.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) + rpt.lblRechnung_UID_Ueberschrift.Visible = (rpt.lblRechnung_UID.Text <> String.Empty) + + rpt.txtKdAuftragsNr.Text = If(RECHNUNG.KdAuftragsNr, "") + rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty) + + rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim + rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim + + + ' REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern). + ' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen, + ' die in der Leistungstabelle als ReverseCharge gekennzeichnet sind, + ' summiert und auf der Rechnung ausgewiesen werden. + + If isReverseChargeSumme(firma, RECHNUNG) Then + + If RECHNUNG.Firma_ID = 19 Then + + Select Case RECHNUNG.RechnungSprache + Case "RO" : rpt.txtInfo.Text = "*Taxare inversa" + Case "EN" : rpt.txtInfo.Text = "*Reverse Charge" + Case Else : rpt.txtInfo.Text = "*Reverse Charge" + End Select + + Else + + Select Case RECHNUNG.RechnungSprache + Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)." + Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)." + Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." + End Select + + + End If + + Else : rpt.txtInfo.Text = "" : End If + + rpt.txtAnlagen.Text = "" + If If(RECHNUNG.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= RECHNUNG.Anlage_1 + If If(RECHNUNG.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_2 + If If(RECHNUNG.Anlage_3, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_3 + If If(RECHNUNG.Anlage_4, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_4 + If If(RECHNUNG.Anlage_5, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_5 + If If(RECHNUNG.Anlage_6, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_6 + + rpt.txtAnlagen.Text = rpt.txtAnlagen.Text.Trim + + If rpt.txtAnlagen.Text.Replace(" ", "") = "" Then + rpt.lblAnlagenUeberschrift.Visible = False + Else + Select Case RECHNUNG.RechnungSprache + Case "EN" : rpt.lblAnlagenUeberschrift.Text = "Attachment:" + Case "RO" : rpt.lblAnlagenUeberschrift.Text = "Anexa:" + Case Else : rpt.lblAnlagenUeberschrift.Text = "Anlagen:" + End Select + End If + + rpt.txtHandlingATA.Text = If(RECHNUNG.Handling, "") + If rpt.txtHandlingATA.Text.Replace(" ", "") = "" Then + rpt.lblHandlingATA.Visible = False + End If + + + If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False + If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False + If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False + If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False + If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False + If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False + If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False + + + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung + + 'ANLAGE ZUR RECHNUNG: + If RECHNUNG.Status = 3 Or RECHNUNG.Sammelrechnung <> 0 Then + rpt.txtAnlagen.Visible = False + rpt.lblAnlagenUeberschrift.Visible = False + rpt.lblRgDatumUeberschrift.Visible = False + rpt.lblRgNrUeberschrift.Visible = False + rpt.lblRgDatum.Visible = False + rpt.lblRgNr.Visible = False + + rpt.lblSummeUeberschrift.Visible = False + rpt.lblSumme.Visible = False + rpt.lblZWSumme.Visible = False + rpt.lblZwText.Visible = False + rpt.lblSteuersatz.Visible = False + rpt.lblSteuerbetrag.Visible = False + + rpt.Label46.Visible = False + rpt.Line1.Visible = False + rpt.Line5.Visible = False + rpt.Line14.Visible = False + rpt.Line8.Visible = False + rpt.Line7.Visible = False + + + Select Case RECHNUNG.RechnungSprache + Case "EN" + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "Attachment to invoice" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "Attachment to CREDIT NOTE" + End Select + Case "RO" + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "Anexa la factura colectiva" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "Anexa la nota de credit" + End Select + Case Else + Select Case RECHNUNG.BelegartenKz + Case "AR" + rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung" + Case "AG" + rpt.lblUeberschriftRG_GS.Text = "Anlage zur Gutschrift" + End Select + + End Select + End If + + If Not printOriginalRg Then 'sonst wird der originaldruck erzwungen + If RECHNUNG.DruckDatumZeit IsNot Nothing Then + Select Case RECHNUNG.RechnungSprache + Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" + Case "RO" : rpt.lblUeberschriftRG_GS.Text &= " - COPIE" + Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" + End Select + End If + End If + + 'Dim cnt As Integer = 0 + + If RECHNUNG.Firma_ID = 19 Then + + 'rpt.lblSteuersatz.Visible = False + 'rpt.lblSteuerbetrag.Visible = False + rpt.lblSteuerpflichtigGes.Visible = False + rpt.lblSteuerfreiGes.Visible = False + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + + rpt.lblRechnung_Steuernummer.Visible = False + rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = False + End If + + Dim sumSteuerpflichtig As Double = 0 + Dim sumSteuerfrei As Double = 0 + + ' Dim Anz As Double = 0 + ' Dim gesSumBt As Double = 0 + ' Dim gesAnz As Double = 0 + Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) + + + ' Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr) + + + + ' rpt.Line10.AnchorBottom = True + ' rpt.Line10.Height = rpt.Detail.Height + + AddHandler rpt.Detail.Format, Sub() + ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString + ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString + + rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value) + rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value) + + If firma.Firma_ID = 19 Then + Dim isReverseCharge As Boolean = SQL.getValueTxtBySql("SELECT ReverseCharge as Bit from Leistungen where LeistungsNr= " & rpt.lblLeistungNr.Text, "FMZOLL") + If isReverseCharge Then + rpt.txtLeistung.Text &= IIf(Not rpt.txtLeistung.Text.Contains("*"), "*", "") + End If + + If rpt.txtLeistung.Text.Contains("00/23") Or rpt.txtLeistung.Text.Contains("DL/23") Then + If RECHNUNG.FilialenNr = 4817 AndAlso RECHNUNG.AbfertigungsNr > 0 AndAlso (RECHNUNG.OffertenNr = 14 Or RECHNUNG.OffertenNr = 15 Or RECHNUNG.OffertenNr = 31) Then + Dim antragsID As Integer = CInt(SQL.getValueTxtBySql("SELECT UStVAn_ID FROM tblUStVAntrag WHERE FilialenNr = " & RECHNUNG.FilialenNr & " AND AbfertigungsNr = " & RECHNUNG.AbfertigungsNr, "FMZOLL",,, "-1")) + + If antragsID > 0 Then + + Dim MWSTAntrag As New cUSTVAntrag(antragsID) + + + Dim MonthStart As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatVon).Month + Dim MonthEnd As String = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & CDate(MWSTAntrag.UStVAn_ReDatBis).Month + + If MonthStart = MonthEnd Then MonthEnd = "" + + Dim listVZMonth As New List(Of Integer) + + If RECHNUNG.RK_ID > 0 Then + For Each pos As cUStVPositionen In MWSTAntrag.POSITIONEN.OrderBy(Function(x) If(IsDate(x.UStVPo_ReDat), CDate(x.UStVPo_ReDat), Nothing)) + + If Not IsDBNull(pos.UStVPo_VZ) AndAlso pos.UStVPo_VZ AndAlso pos.UStVPo_VZ_RKID = RECHNUNG.RK_ID AndAlso IsDate(pos.UStVPo_ReDat) Then + If Not listVZMonth.Contains(CDate(pos.UStVPo_ReDat).Month) Then listVZMonth.Add(CDate(pos.UStVPo_ReDat).Month) + End If + + Next + End If + + + If listVZMonth.Count > 0 Then + + If listVZMonth.Count = 1 Then + MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + MonthEnd = "" + Else + MonthStart = IIf(CDate(MWSTAntrag.UStVAn_ReDatVon).Month < 10, "0", "") & listVZMonth(0).ToString + MonthEnd = IIf(CDate(MWSTAntrag.UStVAn_ReDatBis).Month < 10, "0", "") & listVZMonth(listVZMonth.Count - 1).ToString + End If + End If + + + If rpt.txtLeistung.Text.Contains("00-00/23") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + ElseIf rpt.txtLeistung.Text.Contains("DL/23") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("DL/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + Else + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("/23", "/" & CDate(MWSTAntrag.UStVAn_ReDatBis).Year.ToString.Substring(2)) + End If + + If rpt.txtLeistung.Text.Contains("-00") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("-00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + ElseIf rpt.txtLeistung.Text.Contains("00-") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00-", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + ElseIf rpt.txtLeistung.Text.Contains("00") Then + rpt.txtLeistung.Text = rpt.txtLeistung.Text.Replace("00", MonthStart & IIf(MonthEnd <> "", "-" & MonthEnd, "")) + End If + End If + + + End If + + + End If + End If + + + If rpt.Fields.Item("Belegdaten").Value IsNot Nothing Then + rpt.txtLeistung.Text &= vbNewLine & checkNull(rpt.Fields.Item("Belegdaten").Value) + End If + + rpt.lblAnzahl.Text = checkNull(rpt.Fields.Item("Anzahl").Value) + ' rpt.lblBetrag.Text = rpt.Fields.Item("betrag").Value + + Dim stPfl As Double = 0 + Dim stFrei As Double = 0 + + + If IsNumeric(checkNull(rpt.Fields.Item("SteuerpflichtigerBetrag").Value)) Then stPfl = CDbl(rpt.Fields.Item("SteuerpflichtigerBetrag").Value()) + rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl * vorzeichen).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + If IsNumeric(checkNull(rpt.Fields.Item("SteuerfreierBetrag").Value)) Then stFrei = CDbl(rpt.Fields.Item("SteuerfreierBetrag").Value()) + rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei * vorzeichen).ToString("N2", Globalization.CultureInfo.CurrentCulture), "") + + + sumSteuerpflichtig += stPfl + sumSteuerfrei += stFrei + + ' Anz += 1 + ' gesAnz += 1 + + ' If Anz Mod 2 = 0 Then + ' rpt.Detail.BackColor = Color.FromArgb(240, 240, 240) + 'Else + ' rpt.Detail.BackColor = Color.White + ' End If + 'rpt.Line10.Height = rpt.Detail.Height + + + If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung + Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG) + + rpt.SubReportt.Report = subRpt + rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) + + 'txtPackstuecke.Top += SubReport.Height + 'txtKdAuftragsnummer.Top += SubReport.Height + 'txtSendungsdetails.Top += SubReport.Height + Else + rpt.SubReportt.Report = Nothing + End If + + End Sub + + AddHandler rpt.ReportFooter1.Format, Sub() + rpt.lblSteuerpflichtigGes.Text = If(sumSteuerpflichtig <> 0, CDbl(sumSteuerpflichtig * vorzeichen).ToString("N2", CultureInfo.CurrentCulture), "") + rpt.lblSteuerfreiGes.Text = If(sumSteuerfrei <> 0, CDbl(sumSteuerfrei * vorzeichen).ToString("N2", CultureInfo.CurrentCulture), "") + + Dim steuerProz As Double = 0 + Dim steuerBez As String = "" + + Dim dt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RECHNUNG.Steuerschlüssel & "'", "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + steuerProz = dt.Rows(0)(0) + steuerBez = dt.Rows(0)(1) + End If + + Dim tmpSteuerbetrag = CDbl((sumSteuerpflichtig * steuerProz) * vorzeichen) + rpt.lblSteuersatz.Text = steuerBez + rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, tmpSteuerbetrag.ToString("N2", CultureInfo.CurrentCulture), "") + If tmpSteuerbetrag = 0 Then + rpt.lblSteuerbetrag.Visible = False + End If + + ' rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture) + ' rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture) + + rpt.lblZWSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSumme.Text = CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)) * vorzeichen).ToString("N2", CultureInfo.CurrentCulture) + rpt.Label46.Text = If(RECHNUNG.Währungscode, "EUR") + + If isSTARK(RECHNUNG) Then + rpt.lblZwText.Text = "Summe EUST" + rpt.lblZWSumme.Text = CDbl(getSTARK_EUST(firma, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZwText.Visible = True + rpt.lblZWSumme.Visible = True + + rpt.lblSteuersatz.Text = "Summe ohne EUST" + rpt.lblSteuerbetrag.Text = CDbl(getSTARK_ohneEUST(firma, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuersatz.Visible = True + rpt.lblSteuerbetrag.Visible = True + + Else + + If isReverseChargeSumme(firma, RECHNUNG) Then + Select Case RECHNUNG.RechnungSprache + Case "DE" : rpt.lblZwText.Text = "Summe Steuerfrei" : rpt.lblSteuersatz.Text = "Summe Reverse Charge" + Case "EN" : rpt.lblZwText.Text = "Sum Taxfree" : rpt.lblSteuersatz.Text = "Sum Reverse Charge" + Case "RO" : rpt.lblZwText.Text = "Suma neimpozabila" : rpt.lblSteuersatz.Text = "Suma Reverse Charge" + End Select + + rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(firma, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblZwText.Visible = True + rpt.lblZWSumme.Visible = True + + If RECHNUNG.Firma_ID = 19 Then 'Bei MDM ausblenden! + rpt.lblSteuersatz.Text = "" + rpt.lblSteuerbetrag.Visible = False + Else + rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(firma, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture) + rpt.lblSteuersatz.Visible = True + rpt.lblSteuerbetrag.Visible = True + + End If + + Else + + If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then + + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + End If + End If + End If + + If RECHNUNG.Firma_ID = 19 Then + + 'rpt.lblSteuersatz.Visible = False + 'rpt.lblSteuerbetrag.Visible = False + + rpt.lblSteuerpflichtigGes.Visible = False + rpt.lblSteuerfreiGes.Visible = False + rpt.lblZwText.Visible = False + rpt.lblZWSumme.Visible = False + End If + + + End Sub + + 'DruckDatumUhrzeit wird gesetzt, falls noch ungedruckt... + 'If RECHNUNG.DruckDatumZeit Is Nothing Then + ' RECHNUNG.SET_DruckdatumUhrzeit() + 'End If + + + If vorschau Then + + + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + + + cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False) + Return True + Else + Dim Kopie = True + 'ORIGINAL + Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr) + If RECHNUNG.Status = 0 Then + If AD IsNot Nothing Then + Kopie = False + 'Aktualisierung und speichern: + If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then + rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau") + rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString + + If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + Else + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + End If + + Else + MsgBox("Fehler bei der Vergabe der Rg-Nr.!") + Return False + End If + Else + MsgBox("Fehler: Kein Rechnungsempfänger gefunden!") + Return False + End If + Else + + If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTageVL).ToShortDateString) + Else + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(10).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTage).ToShortDateString) + rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("", Now.AddDays(ZZTageVL).ToShortDateString) + End If + + If RECHNUNG.[DruckDatumZeit] Is Nothing Then + RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt + RECHNUNG.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen + End If + End If + + If Not RECHNUNG.checkRechnungsNrIsSet() Then + MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen") + Return False + End If + + 'Rechnugnsdruck = Individuell für deise Rechnung, wird optional mitgegeben + ' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf" + Dim RG_Bezeichnung = If(RECHNUNG.[BelegartenKz] = "AR", "Rechnung_", "Gutschrift_") & If(RECHNUNG.RechnungsNr, "") & ".pdf" + + '-------------------------------- + ' --> TEST wegen Size Problem + '-------------------------------- + If PrinterName <> "" Then + rpt.Document.Printer.PrinterName = PrinterName + End If + rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize + + 'Immer Exportieren, da in Therefore speichern + Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False) + Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport + rpt.Run(False) + p.NeverEmbedFonts = "" + + p.Export(rpt.Document, tmpPath) + + Dim Paramslist As New cParameterList(VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID) + Dim enableZugpferd = Paramslist.GET_PARAMETER_VALUE_BOOL("ZUGFeRD") + If enableZugpferd Then + tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.addAttachementToPDF(tmpPath, createZUGFeRD(True, RECHNUNG,), "ZUGFeRD-invoice.xml") + Else + + Dim Zugferdpath = createZUGFeRD(True, RECHNUNG) + Dim fileInfo_ZP As New FileInfo(Zugferdpath) + Dim ZUGF_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ZUGFERD", Now().Year, "", "", fileInfo_ZP.Name, -1, False) + ZUGF_DS.uploadDataToDATENSERVER(Zugferdpath, fileInfo_ZP.Name, fileInfo_ZP.Extension,,,, True) + + End If + + + Path = tmpPath + + 'THEREFORE IMPORT: + '------------------------------------------------------------------------------- + Try + If Not Kopie And (Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM OrElse vbYes = MsgBox("TEST - in Therefore speichern?", vbYesNoCancel)) Then + + VERAG_PROG_ALLGEMEIN.cTherefore.saveFileTo_ImportFolder(tmpPath, RECHNUNG.FilialenNr & RECHNUNG.AbfertigungsNr, If(RECHNUNG.AvisoID, ""), RECHNUNG.Firma_ID, False) + + End If + Catch ex As Exception + MsgBox("Therefore-Import fehlgeschlagen!" & ex.Message & ex.StackTrace) + End Try + '------------------------------------------------------------------------------- + + ' MsgBox(Rechnugnsdruck) + Dim RD_DRUCK = If(Rechnugnsdruck >= 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0)) 'If(AD.Rechnungsdruck, 0) + ' MsgBox(RD_DRUCK) + Select Case RD_DRUCK + Case 0, 1 'DRUCKEN + + Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) + + If printStbVdb AndAlso RECHNUNG.Firma_ID <> 1 Then + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then + printSpedBuchAnhaenge(RECHNUNG, True, True) + End If + End If + If RECHNUNG.ANHAENGE.Count > 0 AndAlso RECHNUNG.Firma_ID <> 1 Then + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + printRGAnhaenge(RECHNUNG) + End If + End If + + Return ret + + Case 2, 5 'MAIL + + Path = tmpPath + + Try + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + Select Case RECHNUNG.RechnungsLandKz + Case "TR" + Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr + Mail.HTMLBody = "Sayin Bayanlar ve Baylar,

ekte baslikta yazan faturayi bulabilirsinz." + Mail.HTMLBody &= "


Saygilarimizla

" & getSignature(RECHNUNG) + Case "A", "AT", "D", "DE", "CH" + Mail.Subject = "Rechnung Nr. " & RECHNUNG.RechnungsNr + Mail.HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang senden wir Ihnen die o.g. Rechnung." + Mail.HTMLBody &= "


Mit freundlichen Grüßen

" & getSignature(RECHNUNG) + Case Else + Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr + Mail.HTMLBody = "Dear Sir or Madam,

attached we send you the invoice mentioned above." + Mail.HTMLBody &= "


Best regards

" & getSignature(RECHNUNG) + End Select + Mail.HTMLBody = "
" & Mail.HTMLBody & "
" + + Dim emai_receipt As String = "" + If RECHNUNG.FilialenNr = "4801" Or RECHNUNG.FilialenNr = "4802" Then emai_receipt = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(RECHNUNG.RechnungsKundenNr, "Rechnung an (ATILLA)") + + Mail.To = IIf(emai_receipt = "", VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(RECHNUNG.RechnungsKundenNr, "Rechnung an"), emai_receipt) + Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Rechnung.pdf") + Mail.Display() + + If RD_DRUCK = 5 Then + ' --> RPOT KOPIE DRUCKEN + Select Case RECHNUNG.RechnungSprache + Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" + Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" + End Select + + Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False) + If printStbVdb Then + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Zollbeleg drucken?", vbYesNoCancel)) Then + printSpedBuchAnhaenge(RECHNUNG, True, True) + End If + End If + If RECHNUNG.ANHAENGE.Count > 0 Then + 'wird nicht mehr benötigt! TicketNr: 953 ----- wird doch wieder benötigt! + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge drucken?", vbYesNoCancel)) Then + printRGAnhaenge(RECHNUNG) + End If + End If + End If + + Catch ex As Exception + MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!") + Process.Start(tmpPath) + End Try + rpt.Dispose() + Return True + + Case 3 'PDF + öffnen + + If RECHNUNG.ANHAENGE.Count > 0 Then + If (RECHNUNG.[DruckDatumZeit] Is Nothing OrElse vbYes = MsgBox("Anhänge öffnen?", vbYesNoCancel)) Then + openRgAnhaenge(RECHNUNG) + End If + End If + + ' rpt.Dispose() + Path = tmpPath + Process.Start(tmpPath) + + rpt.Dispose() + Return True + Case 4 'PDF _ für Mail Funktion--> nur PDFpfad benötigt + + Path = tmpPath + rpt.Dispose() + Return True + End Select + End If + Return False End Function diff --git a/SDL/Fakturierung/rptRechnungDruck.Designer.vb b/SDL/Fakturierung/rptRechnungDruck.Designer.vb index 5475ea83..d9d436ec 100644 --- a/SDL/Fakturierung/rptRechnungDruck.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck.Designer.vb @@ -1,4 +1,4 @@ - _ + Partial Public Class rptRechnungDruck Inherits GrapeCity.ActiveReports.SectionReport @@ -14,7 +14,7 @@ Partial Public Class rptRechnungDruck '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(rptRechnungDruck)) Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb new file mode 100644 index 00000000..41aeb925 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb @@ -0,0 +1,1734 @@ + +Partial Public Class rptRechnungDruck_MDM + 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(rptRechnungDruck_MDM)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.lblLeistungNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerfrei = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerpflichtig = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line10 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line11 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.SubReportt = New GrapeCity.ActiveReports.SectionReportModel.SubReport() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() + Me.lblBankUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtBank1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtBank2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtDisclaimer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtBank3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() + Me.lblRgNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture() + Me.lblKundenNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblUeberschriftRG_GS = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblFirmaOrt = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaStrasse = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaTel = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaFax = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRgDatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAbfertigungsNrUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAbfertigungsNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAbfertigungsDatumUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAbfertigungsDatum = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblLKWIdUebeschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblLKWId = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSachbearbeiterUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmenbuchUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblFirmenbuch = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblUIDUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEORIUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnung_UID_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnung_UID = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnung_Steuernummer_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnung_Steuernummer = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtKdAuftragsNr_Ueberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtKdAuftragsNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRechnungAn = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblRgNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter() + Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblSummeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerfreiGes = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerpflichtigGes = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label46 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblZWSumme = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerbetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuersatz = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtVermerk = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtInfo = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblAnlagenUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtAnlagen = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line6 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblZwText = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.txtHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblHandlingATA = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.lblSteuerpflichtigUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblLeistungUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAnzahlUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblSteuerfreiUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.lblAbsenderUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblAvisiererUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblEmpfaengerUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtAbsender = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtAvisierer = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtZollbelegNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblWarenWertUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtWarenwert = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtGrenzeUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtGrenze = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtBefrderungsmittelUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtBefrderungsmittel = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblSendungsdatenUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.txtSendungsdaten = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + CType(Me.lblLeistungNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsNrUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsDatumUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbfertigungsDatum, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLKWIdUebeschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLKWId, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblUID, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnung_Steuernummer_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtKdAuftragsNr_Ueberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtKdAuftragsNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRechnungAn, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label46, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZWSumme, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerbetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnlagenUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAnlagen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBefrderungsmittelUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtBefrderungsmittel, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblSendungsdatenUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReportt}) + Me.Detail.Height = 0.5047026! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'lblLeistungNr + ' + Me.lblLeistungNr.Height = 0.1574803! + Me.lblLeistungNr.HyperLink = Nothing + Me.lblLeistungNr.Left = 0.01417324! + Me.lblLeistungNr.Name = "lblLeistungNr" + Me.lblLeistungNr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.lblLeistungNr.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 1" + Me.lblLeistungNr.Text = "123" + Me.lblLeistungNr.Top = 0! + Me.lblLeistungNr.Width = 0.3913386! + ' + 'lblAnzahl + ' + Me.lblAnzahl.Height = 0.1574803! + Me.lblAnzahl.HyperLink = Nothing + Me.lblAnzahl.Left = 3.380315! + Me.lblAnzahl.Name = "lblAnzahl" + Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblAnzahl.Text = "999" + Me.lblAnzahl.Top = 0! + Me.lblAnzahl.Width = 0.5492127! + ' + 'lblSteuerfrei + ' + Me.lblSteuerfrei.Height = 0.1574803! + Me.lblSteuerfrei.HyperLink = Nothing + Me.lblSteuerfrei.Left = 5.511812! + Me.lblSteuerfrei.Name = "lblSteuerfrei" + Me.lblSteuerfrei.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblSteuerfrei.Text = "999.999,99" + Me.lblSteuerfrei.Top = 0! + Me.lblSteuerfrei.Width = 1.554331! + ' + 'lblSteuerpflichtig + ' + Me.lblSteuerpflichtig.Height = 0.1574803! + Me.lblSteuerpflichtig.HyperLink = Nothing + Me.lblSteuerpflichtig.Left = 3.957481! + Me.lblSteuerpflichtig.Name = "lblSteuerpflichtig" + Me.lblSteuerpflichtig.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblSteuerpflichtig.Text = "999.999,99" + Me.lblSteuerpflichtig.Top = 0! + Me.lblSteuerpflichtig.Width = 1.554331! + ' + 'txtLeistung + ' + Me.txtLeistung.Height = 0.1574803! + Me.txtLeistung.Left = 0.4055119! + Me.txtLeistung.Name = "txtLeistung" + Me.txtLeistung.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtLeistung.Text = "Verzollung inkl. 5 Tarifnummern" + Me.txtLeistung.Top = 0! + Me.txtLeistung.Width = 2.974803! + ' + 'Line10 + ' + Me.Line10.AnchorBottom = True + Me.Line10.Height = 0.1712599! + Me.Line10.Left = 0.00511811! + Me.Line10.LineWeight = 1.0! + Me.Line10.Name = "Line10" + Me.Line10.Top = 0! + Me.Line10.Width = 0! + Me.Line10.X1 = 0.00511811! + Me.Line10.X2 = 0.00511811! + Me.Line10.Y1 = 0! + Me.Line10.Y2 = 0.1712599! + ' + 'Line11 + ' + Me.Line11.AnchorBottom = True + Me.Line11.Height = 0.1712599! + Me.Line11.Left = 7.476377! + Me.Line11.LineWeight = 1.0! + Me.Line11.Name = "Line11" + Me.Line11.Top = 0! + Me.Line11.Width = 0! + Me.Line11.X1 = 7.476377! + Me.Line11.X2 = 7.476377! + Me.Line11.Y1 = 0! + Me.Line11.Y2 = 0.1712599! + ' + 'SubReportt + ' + Me.SubReportt.CloseBorder = False + Me.SubReportt.Height = 0.1574803! + Me.SubReportt.Left = 0.03307092! + Me.SubReportt.Name = "SubReportt" + Me.SubReportt.Report = Nothing + Me.SubReportt.ReportName = "SubReport1" + Me.SubReportt.Top = 0.1736111! + Me.SubReportt.Width = 7.442126! + ' + 'PageFooter + ' + Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2, Me.lblBankUeberschrift, Me.txtBank1, Me.txtBank2, Me.txtDisclaimer, Me.txtBank3}) + Me.PageFooter.Height = 0.8791339! + Me.PageFooter.Name = "PageFooter" + ' + 'Line2 + ' + Me.Line2.Height = 0! + Me.Line2.Left = 0! + Me.Line2.LineWeight = 1.0! + Me.Line2.Name = "Line2" + Me.Line2.Top = 0.07401575! + Me.Line2.Width = 7.480313! + Me.Line2.X1 = 0! + Me.Line2.X2 = 7.480313! + Me.Line2.Y1 = 0.07401575! + Me.Line2.Y2 = 0.07401575! + ' + 'ReportInfo2 + ' + Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount}" + Me.ReportInfo2.Height = 0.1330709! + Me.ReportInfo2.Left = 5.772048! + Me.ReportInfo2.Name = "ReportInfo2" + Me.ReportInfo2.Style = "font-size: 8pt; text-align: right" + Me.ReportInfo2.Top = 0.1173228! + Me.ReportInfo2.Width = 1.703196! + ' + 'lblBankUeberschrift + ' + Me.lblBankUeberschrift.Height = 0.1574803! + Me.lblBankUeberschrift.HyperLink = Nothing + Me.lblBankUeberschrift.Left = 0.01417323! + Me.lblBankUeberschrift.Name = "lblBankUeberschrift" + Me.lblBankUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.lblBankUeberschrift.Text = "Bankverbindungen:" + Me.lblBankUeberschrift.Top = 0.1173228! + Me.lblBankUeberschrift.Width = 1.155512! + ' + 'txtBank1 + ' + Me.txtBank1.Height = 0.4181103! + Me.txtBank1.Left = 1.096457! + Me.txtBank1.Name = "txtBank1" + Me.txtBank1.Style = "font-size: 6.75pt; font-weight: normal; text-align: left; text-justify: auto; ddo" & + "-char-set: 0" + Me.txtBank1.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank1.Top = 0.1173228! + Me.txtBank1.Width = 1.844882! + ' + 'txtBank2 + ' + Me.txtBank2.Height = 0.4181103! + Me.txtBank2.Left = 2.941339! + Me.txtBank2.Name = "txtBank2" + Me.txtBank2.Style = "font-size: 6.75pt; font-weight: normal; text-align: left; text-justify: auto; ddo" & + "-char-set: 0" + Me.txtBank2.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank2.Top = 0.1173228! + Me.txtBank2.Width = 1.892914! + ' + 'txtDisclaimer + ' + Me.txtDisclaimer.Height = 0.2708662! + Me.txtDisclaimer.Left = 0.01417323! + Me.txtDisclaimer.Name = "txtDisclaimer" + Me.txtDisclaimer.Style = "font-size: 7.8pt; font-weight: normal; text-align: left; text-justify: auto; ddo-" & + "char-set: 1" + Me.txtDisclaimer.Text = resources.GetString("txtDisclaimer.Text") + Me.txtDisclaimer.Top = 0.6082678! + Me.txtDisclaimer.Width = 7.466143! + ' + 'txtBank3 + ' + Me.txtBank3.DataField = "" + Me.txtBank3.DistinctField = "" + Me.txtBank3.Height = 0.4181104! + Me.txtBank3.Left = 4.834252! + Me.txtBank3.Name = "txtBank3" + Me.txtBank3.Style = "color: Black; font-size: 6.75pt; font-weight: normal; text-align: left; text-just" & + "ify: auto; ddo-char-set: 0" + Me.txtBank3.SummaryGroup = "" + Me.txtBank3.Tag = "" + Me.txtBank3.Text = "Deutschland:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Raiffeisenbank Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "IBAN: AT54 3445 5000 0420 7791" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "BIC: RZOOAT2L" & + "455" + Me.txtBank3.Top = 0.1173228! + Me.txtBank3.Visible = False + Me.txtBank3.Width = 1.945276! + ' + 'ReportHeader1 + ' + Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblRgNrUeberschrift, Me.Picture1, Me.picVERAG, Me.lblKundenNrUeberschrift, Me.lblUeberschriftRG_GS, Me.lblKundenNr, Me.Line3, Me.lblFirmaOrt, Me.lblFirmaStrasse, Me.lblFirmaTel, Me.lblFirmaFax, Me.lblFirmaEmail, Me.lblFirmaWeb, Me.lblRgDatumUeberschrift, Me.lblRgDatum, Me.lblAbfertigungsNrUeberschrift, Me.lblAbfertigungsNr, Me.lblAbfertigungsDatumUeberschrift, Me.lblAbfertigungsDatum, Me.lblLKWIdUebeschrift, Me.lblLKWId, Me.lblSachbearbeiterUeberschrift, Me.lblSachbearbeiter, Me.lblFirmenbuchUeberschrift, Me.lblFirmenbuch, Me.lblUIDUeberschrift, Me.lblUID, Me.lblEORIUeberschrift, Me.lblEORI, Me.lblRechnung_UID_Ueberschrift, Me.lblRechnung_UID, Me.lblRechnung_Steuernummer_Ueberschrift, Me.lblRechnung_Steuernummer, Me.txtKdAuftragsNr_Ueberschrift, Me.txtKdAuftragsNr, Me.Line15, Me.lblFirma, Me.Label1, Me.Label2, Me.lblRechnungAn, Me.lblRgNr}) + Me.ReportHeader1.Height = 3.470997! + Me.ReportHeader1.Name = "ReportHeader1" + ' + 'lblRgNrUeberschrift + ' + Me.lblRgNrUeberschrift.Height = 0.1574803! + Me.lblRgNrUeberschrift.HyperLink = Nothing + Me.lblRgNrUeberschrift.Left = 5.104331! + Me.lblRgNrUeberschrift.Name = "lblRgNrUeberschrift" + Me.lblRgNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRgNrUeberschrift.Text = "Rechnungs-Nr.:" + Me.lblRgNrUeberschrift.Top = 0.7503937! + Me.lblRgNrUeberschrift.Width = 1.165748! + ' + 'Picture1 + ' + Me.Picture1.Height = 0.6102362! + Me.Picture1.HyperLink = Nothing + Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String") + Me.Picture1.Left = 3.244882! + Me.Picture1.Name = "Picture1" + Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.Picture1.Top = 0! + Me.Picture1.Width = 1.059449! + ' + 'picVERAG + ' + Me.picVERAG.Height = 0.5389765! + Me.picVERAG.HyperLink = Nothing + Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String") + Me.picVERAG.Left = 0.01023622! + Me.picVERAG.Name = "picVERAG" + Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom + Me.picVERAG.Top = 0! + Me.picVERAG.Width = 2.482677! + ' + 'lblKundenNrUeberschrift + ' + Me.lblKundenNrUeberschrift.Height = 0.1574803! + Me.lblKundenNrUeberschrift.HyperLink = Nothing + Me.lblKundenNrUeberschrift.Left = 5.104331! + Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift" + Me.lblKundenNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblKundenNrUeberschrift.Text = "Kunden-Nr.:" + Me.lblKundenNrUeberschrift.Top = 2.7063! + Me.lblKundenNrUeberschrift.Width = 1.165748! + ' + 'lblUeberschriftRG_GS + ' + Me.lblUeberschriftRG_GS.Height = 0.2311024! + Me.lblUeberschriftRG_GS.HyperLink = Nothing + Me.lblUeberschriftRG_GS.Left = 2.281496! + Me.lblUeberschriftRG_GS.Name = "lblUeberschriftRG_GS" + Me.lblUeberschriftRG_GS.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblUeberschriftRG_GS.Text = "RECHNUNG" + Me.lblUeberschriftRG_GS.Top = 0.3870079! + Me.lblUeberschriftRG_GS.Width = 5.188583! + ' + 'lblKundenNr + ' + Me.lblKundenNr.Height = 0.1574803! + Me.lblKundenNr.HyperLink = Nothing + Me.lblKundenNr.Left = 5.511811! + Me.lblKundenNr.Name = "lblKundenNr" + Me.lblKundenNr.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblKundenNr.Text = "1234567" + Me.lblKundenNr.Top = 2.7063! + Me.lblKundenNr.Width = 1.958268! + ' + 'Line3 + ' + Me.Line3.Height = 0! + Me.Line3.Left = 0.002755864! + Me.Line3.LineColor = System.Drawing.Color.DimGray + Me.Line3.LineWeight = 1.0! + Me.Line3.Name = "Line3" + Me.Line3.Top = 0.6102362! + Me.Line3.Width = 7.475196! + Me.Line3.X1 = 0.002755864! + Me.Line3.X2 = 7.477952! + Me.Line3.Y1 = 0.6102362! + Me.Line3.Y2 = 0.6102362! + ' + 'lblFirmaOrt + ' + Me.lblFirmaOrt.Height = 0.1606298! + Me.lblFirmaOrt.HyperLink = Nothing + Me.lblFirmaOrt.Left = 0.01417317! + Me.lblFirmaOrt.Name = "lblFirmaOrt" + Me.lblFirmaOrt.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaOrt.Text = "A-4975 Suben" + Me.lblFirmaOrt.Top = 0.7078741! + Me.lblFirmaOrt.Width = 1.19685! + ' + 'lblFirmaStrasse + ' + Me.lblFirmaStrasse.Height = 0.1598426! + Me.lblFirmaStrasse.HyperLink = Nothing + Me.lblFirmaStrasse.Left = 0.01417319! + Me.lblFirmaStrasse.Name = "lblFirmaStrasse" + Me.lblFirmaStrasse.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaStrasse.Text = "Suben Nr. 100" + Me.lblFirmaStrasse.Top = 0.8685039! + Me.lblFirmaStrasse.Width = 1.19685! + ' + 'lblFirmaTel + ' + Me.lblFirmaTel.Height = 0.1606299! + Me.lblFirmaTel.HyperLink = Nothing + Me.lblFirmaTel.Left = 1.45748! + Me.lblFirmaTel.Name = "lblFirmaTel" + Me.lblFirmaTel.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaTel.Text = "Tel. +43 7711 2777 - 0" + Me.lblFirmaTel.Top = 0.7078741! + Me.lblFirmaTel.Width = 1.240158! + ' + 'lblFirmaFax + ' + Me.lblFirmaFax.Height = 0.1598426! + Me.lblFirmaFax.HyperLink = Nothing + Me.lblFirmaFax.Left = 1.45748! + Me.lblFirmaFax.Name = "lblFirmaFax" + Me.lblFirmaFax.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmaFax.Text = "Fax +43 7711 31600" + Me.lblFirmaFax.Top = 0.868504! + Me.lblFirmaFax.Width = 1.240158! + ' + 'lblFirmaEmail + ' + Me.lblFirmaEmail.Height = 0.1606299! + Me.lblFirmaEmail.HyperLink = Nothing + Me.lblFirmaEmail.Left = 2.697638! + Me.lblFirmaEmail.Name = "lblFirmaEmail" + Me.lblFirmaEmail.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.lblFirmaEmail.Text = "rechnungsversand@verag.ag" + Me.lblFirmaEmail.Top = 0.7078741! + Me.lblFirmaEmail.Width = 1.436614! + ' + 'lblFirmaWeb + ' + Me.lblFirmaWeb.Height = 0.1598423! + Me.lblFirmaWeb.HyperLink = Nothing + Me.lblFirmaWeb.Left = 2.697638! + Me.lblFirmaWeb.Name = "lblFirmaWeb" + Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.lblFirmaWeb.Text = "www.verag.ag" + Me.lblFirmaWeb.Top = 0.8685043! + Me.lblFirmaWeb.Width = 1.436614! + ' + 'lblRgDatumUeberschrift + ' + Me.lblRgDatumUeberschrift.Height = 0.1574803! + Me.lblRgDatumUeberschrift.HyperLink = Nothing + Me.lblRgDatumUeberschrift.Left = 5.104! + Me.lblRgDatumUeberschrift.Name = "lblRgDatumUeberschrift" + Me.lblRgDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRgDatumUeberschrift.Text = "Rechnungs-Datum:" + Me.lblRgDatumUeberschrift.Top = 0.908! + Me.lblRgDatumUeberschrift.Width = 1.165748! + ' + 'lblRgDatum + ' + Me.lblRgDatum.Height = 0.1574803! + Me.lblRgDatum.HyperLink = Nothing + Me.lblRgDatum.Left = 5.522! + Me.lblRgDatum.Name = "lblRgDatum" + Me.lblRgDatum.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblRgDatum.Text = "01.01.2019" + Me.lblRgDatum.Top = 0.9080001! + Me.lblRgDatum.Width = 1.958268! + ' + 'lblAbfertigungsNrUeberschrift + ' + Me.lblAbfertigungsNrUeberschrift.Height = 0.1574803! + Me.lblAbfertigungsNrUeberschrift.HyperLink = Nothing + Me.lblAbfertigungsNrUeberschrift.Left = 5.104331! + Me.lblAbfertigungsNrUeberschrift.Name = "lblAbfertigungsNrUeberschrift" + Me.lblAbfertigungsNrUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblAbfertigungsNrUeberschrift.Text = "Abfertigungs-Nr.:" + Me.lblAbfertigungsNrUeberschrift.Top = 1.344095! + Me.lblAbfertigungsNrUeberschrift.Width = 1.165748! + ' + 'lblAbfertigungsNr + ' + Me.lblAbfertigungsNr.Height = 0.1574803! + Me.lblAbfertigungsNr.HyperLink = Nothing + Me.lblAbfertigungsNr.Left = 5.511811! + Me.lblAbfertigungsNr.Name = "lblAbfertigungsNr" + Me.lblAbfertigungsNr.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblAbfertigungsNr.Text = "4803/1800000 00" + Me.lblAbfertigungsNr.Top = 1.344095! + Me.lblAbfertigungsNr.Width = 1.958268! + ' + 'lblAbfertigungsDatumUeberschrift + ' + Me.lblAbfertigungsDatumUeberschrift.Height = 0.1574803! + Me.lblAbfertigungsDatumUeberschrift.HyperLink = Nothing + Me.lblAbfertigungsDatumUeberschrift.Left = 5.104331! + Me.lblAbfertigungsDatumUeberschrift.Name = "lblAbfertigungsDatumUeberschrift" + Me.lblAbfertigungsDatumUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblAbfertigungsDatumUeberschrift.Text = "Abfertigungs-Datum:" + Me.lblAbfertigungsDatumUeberschrift.Top = 1.501575! + Me.lblAbfertigungsDatumUeberschrift.Width = 1.165748! + ' + 'lblAbfertigungsDatum + ' + Me.lblAbfertigungsDatum.Height = 0.1574803! + Me.lblAbfertigungsDatum.HyperLink = Nothing + Me.lblAbfertigungsDatum.Left = 5.511812! + Me.lblAbfertigungsDatum.Name = "lblAbfertigungsDatum" + Me.lblAbfertigungsDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblAbfertigungsDatum.Text = "01.01.2019" + Me.lblAbfertigungsDatum.Top = 1.501575! + Me.lblAbfertigungsDatum.Width = 1.958268! + ' + 'lblLKWIdUebeschrift + ' + Me.lblLKWIdUebeschrift.Height = 0.1574803! + Me.lblLKWIdUebeschrift.HyperLink = Nothing + Me.lblLKWIdUebeschrift.Left = 5.104331! + Me.lblLKWIdUebeschrift.Name = "lblLKWIdUebeschrift" + Me.lblLKWIdUebeschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblLKWIdUebeschrift.Text = "LKW-ID:" + Me.lblLKWIdUebeschrift.Top = 1.659056! + Me.lblLKWIdUebeschrift.Width = 1.165748! + ' + 'lblLKWId + ' + Me.lblLKWId.Height = 0.1574803! + Me.lblLKWId.HyperLink = Nothing + Me.lblLKWId.Left = 5.511812! + Me.lblLKWId.Name = "lblLKWId" + Me.lblLKWId.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblLKWId.Text = "123456789" + Me.lblLKWId.Top = 1.659056! + Me.lblLKWId.Width = 1.958268! + ' + 'lblSachbearbeiterUeberschrift + ' + Me.lblSachbearbeiterUeberschrift.Height = 0.1574803! + Me.lblSachbearbeiterUeberschrift.HyperLink = Nothing + Me.lblSachbearbeiterUeberschrift.Left = 5.104332! + Me.lblSachbearbeiterUeberschrift.Name = "lblSachbearbeiterUeberschrift" + Me.lblSachbearbeiterUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblSachbearbeiterUeberschrift.Text = "Sachbearbeiter/in:" + Me.lblSachbearbeiterUeberschrift.Top = 1.934646! + Me.lblSachbearbeiterUeberschrift.Width = 1.165748! + ' + 'lblSachbearbeiter + ' + Me.lblSachbearbeiter.Height = 0.1574803! + Me.lblSachbearbeiter.HyperLink = Nothing + Me.lblSachbearbeiter.Left = 5.511812! + Me.lblSachbearbeiter.Name = "lblSachbearbeiter" + Me.lblSachbearbeiter.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblSachbearbeiter.Text = "Herr Max Mustermann" + Me.lblSachbearbeiter.Top = 1.934646! + Me.lblSachbearbeiter.Width = 1.958268! + ' + 'lblFirmenbuchUeberschrift + ' + Me.lblFirmenbuchUeberschrift.Height = 0.1574803! + Me.lblFirmenbuchUeberschrift.HyperLink = Nothing + Me.lblFirmenbuchUeberschrift.Left = 5.104332! + Me.lblFirmenbuchUeberschrift.Name = "lblFirmenbuchUeberschrift" + Me.lblFirmenbuchUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblFirmenbuchUeberschrift.Text = "Firmenbuch:" + Me.lblFirmenbuchUeberschrift.Top = 2.092126! + Me.lblFirmenbuchUeberschrift.Width = 1.165748! + ' + 'lblFirmenbuch + ' + Me.lblFirmenbuch.Height = 0.1574803! + Me.lblFirmenbuch.HyperLink = Nothing + Me.lblFirmenbuch.Left = 5.511813! + Me.lblFirmenbuch.Name = "lblFirmenbuch" + Me.lblFirmenbuch.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblFirmenbuch.Text = "FN 216714y" + Me.lblFirmenbuch.Top = 2.092126! + Me.lblFirmenbuch.Width = 1.958268! + ' + 'lblUIDUeberschrift + ' + Me.lblUIDUeberschrift.Height = 0.1574803! + Me.lblUIDUeberschrift.HyperLink = Nothing + Me.lblUIDUeberschrift.Left = 5.104332! + Me.lblUIDUeberschrift.Name = "lblUIDUeberschrift" + Me.lblUIDUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblUIDUeberschrift.Text = "UID:" + Me.lblUIDUeberschrift.Top = 2.249606! + Me.lblUIDUeberschrift.Width = 1.165748! + ' + 'lblUID + ' + Me.lblUID.Height = 0.1574803! + Me.lblUID.HyperLink = Nothing + Me.lblUID.Left = 5.511812! + Me.lblUID.Name = "lblUID" + Me.lblUID.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblUID.Text = "ATU53187000" + Me.lblUID.Top = 2.249606! + Me.lblUID.Width = 1.958268! + ' + 'lblEORIUeberschrift + ' + Me.lblEORIUeberschrift.Height = 0.1574803! + Me.lblEORIUeberschrift.HyperLink = Nothing + Me.lblEORIUeberschrift.Left = 5.104331! + Me.lblEORIUeberschrift.Name = "lblEORIUeberschrift" + Me.lblEORIUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblEORIUeberschrift.Text = "EORI:" + Me.lblEORIUeberschrift.Top = 2.407087! + Me.lblEORIUeberschrift.Width = 1.165748! + ' + 'lblEORI + ' + Me.lblEORI.Height = 0.1574803! + Me.lblEORI.HyperLink = Nothing + Me.lblEORI.Left = 5.511811! + Me.lblEORI.Name = "lblEORI" + Me.lblEORI.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblEORI.Text = "DE123456789" + Me.lblEORI.Top = 2.407087! + Me.lblEORI.Width = 1.958268! + ' + 'lblRechnung_UID_Ueberschrift + ' + Me.lblRechnung_UID_Ueberschrift.Height = 0.1574803! + Me.lblRechnung_UID_Ueberschrift.HyperLink = Nothing + Me.lblRechnung_UID_Ueberschrift.Left = 5.104331! + Me.lblRechnung_UID_Ueberschrift.Name = "lblRechnung_UID_Ueberschrift" + Me.lblRechnung_UID_Ueberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRechnung_UID_Ueberschrift.Text = "Ihre UID:" + Me.lblRechnung_UID_Ueberschrift.Top = 2.86378! + Me.lblRechnung_UID_Ueberschrift.Width = 1.165748! + ' + 'lblRechnung_UID + ' + Me.lblRechnung_UID.Height = 0.1574803! + Me.lblRechnung_UID.HyperLink = Nothing + Me.lblRechnung_UID.Left = 5.511811! + Me.lblRechnung_UID.Name = "lblRechnung_UID" + Me.lblRechnung_UID.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblRechnung_UID.Text = "ATU53187000" + Me.lblRechnung_UID.Top = 2.86378! + Me.lblRechnung_UID.Width = 1.958268! + ' + 'lblRechnung_Steuernummer_Ueberschrift + ' + Me.lblRechnung_Steuernummer_Ueberschrift.Height = 0.1574803! + Me.lblRechnung_Steuernummer_Ueberschrift.HyperLink = Nothing + Me.lblRechnung_Steuernummer_Ueberschrift.Left = 5.104331! + Me.lblRechnung_Steuernummer_Ueberschrift.Name = "lblRechnung_Steuernummer_Ueberschrift" + Me.lblRechnung_Steuernummer_Ueberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRechnung_Steuernummer_Ueberschrift.Text = "Ihre Steuer-Nr.:" + Me.lblRechnung_Steuernummer_Ueberschrift.Top = 3.178741! + Me.lblRechnung_Steuernummer_Ueberschrift.Width = 1.165748! + ' + 'lblRechnung_Steuernummer + ' + Me.lblRechnung_Steuernummer.Height = 0.1574803! + Me.lblRechnung_Steuernummer.HyperLink = Nothing + Me.lblRechnung_Steuernummer.Left = 5.511811! + Me.lblRechnung_Steuernummer.Name = "lblRechnung_Steuernummer" + Me.lblRechnung_Steuernummer.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & + "-char-set: 1" + Me.lblRechnung_Steuernummer.Text = "FN 123456a" + Me.lblRechnung_Steuernummer.Top = 3.178741! + Me.lblRechnung_Steuernummer.Width = 1.958268! + ' + 'txtKdAuftragsNr_Ueberschrift + ' + Me.txtKdAuftragsNr_Ueberschrift.Height = 0.1574803! + Me.txtKdAuftragsNr_Ueberschrift.HyperLink = Nothing + Me.txtKdAuftragsNr_Ueberschrift.Left = 5.104331! + Me.txtKdAuftragsNr_Ueberschrift.Name = "txtKdAuftragsNr_Ueberschrift" + Me.txtKdAuftragsNr_Ueberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" & + "o-char-set: 1" + Me.txtKdAuftragsNr_Ueberschrift.Text = "Ihre Auftrags-Nr.:" + Me.txtKdAuftragsNr_Ueberschrift.Top = 3.021261! + Me.txtKdAuftragsNr_Ueberschrift.Width = 1.165748! + ' + 'txtKdAuftragsNr + ' + Me.txtKdAuftragsNr.Height = 0.1574803! + Me.txtKdAuftragsNr.Left = 6.043309! + Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" + Me.txtKdAuftragsNr.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.txtKdAuftragsNr.Text = "SD 456 FD" + Me.txtKdAuftragsNr.Top = 3.021261! + Me.txtKdAuftragsNr.Width = 1.426773! + ' + 'Line15 + ' + Me.Line15.Height = 0! + Me.Line15.Left = 0.515! + Me.Line15.LineWeight = 1.0! + Me.Line15.Name = "Line15" + Me.Line15.Top = 1.651835! + Me.Line15.Width = 3.619684! + Me.Line15.X1 = 0.515! + Me.Line15.X2 = 4.134684! + Me.Line15.Y1 = 1.651835! + Me.Line15.Y2 = 1.651835! + ' + 'lblFirma + ' + Me.lblFirma.Height = 0.2723066! + Me.lblFirma.HyperLink = Nothing + Me.lblFirma.Left = 0.515! + Me.lblFirma.Name = "lblFirma" + Me.lblFirma.Style = "font-size: 7pt; font-weight: normal; text-align: left; vertical-align: bottom; dd" & + "o-char-set: 1" + Me.lblFirma.Text = "VERAG Spedition AG, A-4975 Suben" + Me.lblFirma.Top = 1.344095! + Me.lblFirma.Width = 3.619686! + ' + 'Label1 + ' + Me.Label1.Height = 0.1574803! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 1.563781! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: right; vertical-align: middle; d" & + "do-char-set: 1" + Me.Label1.Text = "Zahlungsziel" + Me.Label1.Top = 3.02126! + Me.Label1.Visible = False + Me.Label1.Width = 0.8114169! + ' + 'Label2 + ' + Me.Label2.Height = 0.1574803! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 1.97126! + 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 = "10 Tage" + Me.Label2.Top = 3.02126! + Me.Label2.Visible = False + Me.Label2.Width = 1.958268! + ' + 'lblRechnungAn + ' + Me.lblRechnungAn.Height = 1.291339! + Me.lblRechnungAn.HyperLink = Nothing + Me.lblRechnungAn.Left = 0.514567! + Me.lblRechnungAn.Name = "lblRechnungAn" + Me.lblRechnungAn.Style = "font-size: 10pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" & + "char-set: 1" + Me.lblRechnungAn.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Abteilung: ZOLL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zusatz" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben Nr. 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 SUBEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "STERRE" & + "ICH" + Me.lblRechnungAn.Top = 1.702362! + Me.lblRechnungAn.Width = 4.589763! + ' + 'lblRgNr + ' + Me.lblRgNr.Height = 0.1994803! + Me.lblRgNr.HyperLink = Nothing + Me.lblRgNr.Left = 5.522! + Me.lblRgNr.Name = "lblRgNr" + Me.lblRgNr.Style = "font-size: 12pt; font-weight: bold; text-align: right; vertical-align: middle; dd" & + "o-char-set: 1" + Me.lblRgNr.Text = "18000000" + Me.lblRgNr.Top = 0.708! + Me.lblRgNr.Width = 1.958268! + ' + 'ReportFooter1 + ' + Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line8, Me.Line9, Me.lblSummeUeberschrift, Me.lblSteuerfreiGes, Me.lblSteuerpflichtigGes, Me.lblSumme, Me.Label46, Me.Line1, Me.Line5, Me.lblZWSumme, Me.lblSteuerbetrag, Me.lblSteuersatz, Me.txtVermerk, Me.txtInfo, Me.lblAnlagenUeberschrift, Me.txtAnlagen, Me.Line6, Me.Line7, Me.Line14, Me.lblZwText, Me.Line17, Me.txtHandlingATA, Me.lblHandlingATA, Me.TextBox1}) + Me.ReportFooter1.Height = 1.51693! + Me.ReportFooter1.KeepTogether = True + Me.ReportFooter1.Name = "ReportFooter1" + ' + 'Line8 + ' + Me.Line8.Height = 0.9377953! + Me.Line8.Left = 3.858268! + Me.Line8.LineWeight = 1.0! + Me.Line8.Name = "Line8" + Me.Line8.Top = 0.1122047! + Me.Line8.Width = 0! + Me.Line8.X1 = 3.858268! + Me.Line8.X2 = 3.858268! + Me.Line8.Y1 = 0.1122047! + Me.Line8.Y2 = 1.05! + ' + 'Line9 + ' + Me.Line9.Height = 0! + Me.Line9.Left = 0.002755906! + Me.Line9.LineWeight = 2.0! + Me.Line9.Name = "Line9" + Me.Line9.Top = 0.1035433! + Me.Line9.Width = 7.475194! + Me.Line9.X1 = 0.002755906! + Me.Line9.X2 = 7.47795! + Me.Line9.Y1 = 0.1035433! + Me.Line9.Y2 = 0.1035433! + ' + 'lblSummeUeberschrift + ' + Me.lblSummeUeberschrift.Height = 0.1771653! + Me.lblSummeUeberschrift.HyperLink = Nothing + Me.lblSummeUeberschrift.Left = 3.957481! + Me.lblSummeUeberschrift.Name = "lblSummeUeberschrift" + Me.lblSummeUeberschrift.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblSummeUeberschrift.Text = "Rechnungsbetrag" + Me.lblSummeUeberschrift.Top = 0.7165355! + Me.lblSummeUeberschrift.Width = 1.549213! + ' + 'lblSteuerfreiGes + ' + Me.lblSteuerfreiGes.Height = 0.1574803! + Me.lblSteuerfreiGes.HyperLink = Nothing + Me.lblSteuerfreiGes.Left = 5.511811! + Me.lblSteuerfreiGes.Name = "lblSteuerfreiGes" + Me.lblSteuerfreiGes.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblSteuerfreiGes.Text = "999.999,99" + Me.lblSteuerfreiGes.Top = 0.1232284! + Me.lblSteuerfreiGes.Width = 1.554331! + ' + 'lblSteuerpflichtigGes + ' + Me.lblSteuerpflichtigGes.Height = 0.1574803! + Me.lblSteuerpflichtigGes.HyperLink = Nothing + Me.lblSteuerpflichtigGes.Left = 3.957481! + Me.lblSteuerpflichtigGes.Name = "lblSteuerpflichtigGes" + Me.lblSteuerpflichtigGes.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblSteuerpflichtigGes.Text = "999.999,99" + Me.lblSteuerpflichtigGes.Top = 0.1232284! + Me.lblSteuerpflichtigGes.Width = 1.554331! + ' + 'lblSumme + ' + Me.lblSumme.Height = 0.1574803! + Me.lblSumme.HyperLink = Nothing + Me.lblSumme.Left = 5.51181! + Me.lblSumme.Name = "lblSumme" + Me.lblSumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblSumme.Text = "999.999,99" + Me.lblSumme.Top = 0.7165354! + Me.lblSumme.Width = 1.554331! + ' + 'Label46 + ' + Me.Label46.Height = 0.1574803! + Me.Label46.HyperLink = Nothing + Me.Label46.Left = 7.066142! + Me.Label46.Name = "Label46" + Me.Label46.Style = "font-size: 9pt; font-weight: normal; text-align: center; text-justify: auto; ddo-" & + "char-set: 1" + Me.Label46.Text = "EUR" + Me.Label46.Top = 0.7165354! + Me.Label46.Width = 0.3748035! + ' + 'Line1 + ' + Me.Line1.Height = 0! + Me.Line1.Left = 6.299212! + Me.Line1.LineWeight = 2.0! + Me.Line1.Name = "Line1" + Me.Line1.Top = 0.8937009! + Me.Line1.Width = 1.141733! + Me.Line1.X1 = 6.299212! + Me.Line1.X2 = 7.440945! + Me.Line1.Y1 = 0.8937009! + Me.Line1.Y2 = 0.8937009! + ' + 'Line5 + ' + Me.Line5.Height = 0! + Me.Line5.Left = 6.299212! + Me.Line5.LineWeight = 2.0! + Me.Line5.Name = "Line5" + Me.Line5.Top = 0.92126! + Me.Line5.Width = 1.141733! + Me.Line5.X1 = 6.299212! + Me.Line5.X2 = 7.440945! + Me.Line5.Y1 = 0.92126! + Me.Line5.Y2 = 0.92126! + ' + 'lblZWSumme + ' + Me.lblZWSumme.Height = 0.1574803! + Me.lblZWSumme.HyperLink = Nothing + Me.lblZWSumme.Left = 5.511811! + Me.lblZWSumme.Name = "lblZWSumme" + Me.lblZWSumme.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblZWSumme.Text = "999.999,99" + Me.lblZWSumme.Top = 0.3555118! + Me.lblZWSumme.Visible = False + Me.lblZWSumme.Width = 1.554331! + ' + 'lblSteuerbetrag + ' + Me.lblSteuerbetrag.Height = 0.1574803! + Me.lblSteuerbetrag.HyperLink = Nothing + Me.lblSteuerbetrag.Left = 5.511809! + Me.lblSteuerbetrag.Name = "lblSteuerbetrag" + Me.lblSteuerbetrag.Style = "font-size: 9pt; font-weight: normal; text-align: right; text-justify: auto; ddo-c" & + "har-set: 1" + Me.lblSteuerbetrag.Text = "999.999,99" + Me.lblSteuerbetrag.Top = 0.5129921! + Me.lblSteuerbetrag.Width = 1.554331! + ' + 'lblSteuersatz + ' + Me.lblSteuersatz.Height = 0.1574803! + Me.lblSteuersatz.HyperLink = Nothing + Me.lblSteuersatz.Left = 3.962599! + Me.lblSteuersatz.Name = "lblSteuersatz" + Me.lblSteuersatz.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblSteuersatz.Text = "20 % Mehrwertsteuer" + Me.lblSteuersatz.Top = 0.5129921! + Me.lblSteuersatz.Width = 1.549212! + ' + 'txtVermerk + ' + Me.txtVermerk.Height = 0.06181115! + Me.txtVermerk.Left = 0.01889764! + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtVermerk.Text = "Text" + Me.txtVermerk.Top = 1.179921! + Me.txtVermerk.Width = 7.422048! + ' + 'txtInfo + ' + Me.txtInfo.Height = 0.518504! + Me.txtInfo.Left = 0! + Me.txtInfo.Name = "txtInfo" + Me.txtInfo.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtInfo.Text = "ZusatzText" + Me.txtInfo.Top = 0.1980315! + Me.txtInfo.Width = 3.661417! + ' + 'lblAnlagenUeberschrift + ' + Me.lblAnlagenUeberschrift.Height = 0.1574803! + Me.lblAnlagenUeberschrift.HyperLink = Nothing + Me.lblAnlagenUeberschrift.Left = 0.03307087! + Me.lblAnlagenUeberschrift.Name = "lblAnlagenUeberschrift" + Me.lblAnlagenUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.lblAnlagenUeberschrift.Text = "Anlage:" + Me.lblAnlagenUeberschrift.Top = 1.359449! + Me.lblAnlagenUeberschrift.Width = 0.676378! + ' + 'txtAnlagen + ' + Me.txtAnlagen.Height = 0.1574803! + Me.txtAnlagen.Left = 0.7094489! + Me.txtAnlagen.Name = "txtAnlagen" + Me.txtAnlagen.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtAnlagen.Text = "ATC1812345678" + Me.txtAnlagen.Top = 1.359449! + Me.txtAnlagen.Width = 3.668504! + ' + 'Line6 + ' + Me.Line6.Height = 0.1035433! + Me.Line6.Left = 0.00511811! + Me.Line6.LineWeight = 1.0! + Me.Line6.Name = "Line6" + Me.Line6.Top = 0! + Me.Line6.Width = 0! + Me.Line6.X1 = 0.00511811! + Me.Line6.X2 = 0.00511811! + Me.Line6.Y1 = 0! + Me.Line6.Y2 = 0.1035433! + ' + 'Line7 + ' + Me.Line7.Height = 0.9464567! + Me.Line7.Left = 7.475197! + Me.Line7.LineWeight = 1.0! + Me.Line7.Name = "Line7" + Me.Line7.Top = 0.1035433! + Me.Line7.Width = 0! + Me.Line7.X1 = 7.475197! + Me.Line7.X2 = 7.475197! + Me.Line7.Y1 = 0.1035433! + Me.Line7.Y2 = 1.05! + ' + 'Line14 + ' + Me.Line14.Height = 0! + Me.Line14.Left = 3.858268! + Me.Line14.LineWeight = 1.0! + Me.Line14.Name = "Line14" + Me.Line14.Top = 1.05! + Me.Line14.Width = 3.619685! + Me.Line14.X1 = 3.858268! + Me.Line14.X2 = 7.477953! + Me.Line14.Y1 = 1.05! + Me.Line14.Y2 = 1.05! + ' + 'lblZwText + ' + Me.lblZwText.Height = 0.1574803! + Me.lblZwText.HyperLink = Nothing + Me.lblZwText.Left = 3.9626! + Me.lblZwText.Name = "lblZwText" + Me.lblZwText.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1" + Me.lblZwText.Text = "Zwischensumme" + Me.lblZwText.Top = 0.3555118! + Me.lblZwText.Visible = False + Me.lblZwText.Width = 1.549212! + ' + 'Line17 + ' + Me.Line17.Height = 0.1035433! + Me.Line17.Left = 7.475197! + Me.Line17.LineWeight = 1.0! + Me.Line17.Name = "Line17" + Me.Line17.Top = 0! + Me.Line17.Width = 0! + Me.Line17.X1 = 7.475197! + Me.Line17.X2 = 7.475197! + Me.Line17.Y1 = 0! + Me.Line17.Y2 = 0.1035433! + ' + 'txtHandlingATA + ' + Me.txtHandlingATA.Height = 0.1574803! + Me.txtHandlingATA.Left = 5.054331! + Me.txtHandlingATA.Name = "txtHandlingATA" + Me.txtHandlingATA.Style = "font-size: 9pt; font-weight: normal; text-align: left; text-justify: auto; ddo-ch" & + "ar-set: 1" + Me.txtHandlingATA.Text = "ATC1812345678" + Me.txtHandlingATA.Top = 1.359449! + Me.txtHandlingATA.Width = 2.324409! + ' + 'lblHandlingATA + ' + Me.lblHandlingATA.Height = 0.1574803! + Me.lblHandlingATA.HyperLink = Nothing + Me.lblHandlingATA.Left = 4.377953! + Me.lblHandlingATA.Name = "lblHandlingATA" + Me.lblHandlingATA.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & + "r-set: 1" + Me.lblHandlingATA.Text = "Handling:" + Me.lblHandlingATA.Top = 1.359449! + Me.lblHandlingATA.Width = 0.676378! + ' + 'TextBox1 + ' + Me.TextBox1.Height = 0.3790929! + Me.TextBox1.Left = 0.02913386! + Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Style = "font-size: 9pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.TextBox1.Text = "Text ZZ" + Me.TextBox1.Top = 0.7165355! + Me.TextBox1.Width = 3.632284! + ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerpflichtigUeberschrift, Me.lblLeistungUeberschrift, Me.lblAnzahlUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.lblAbsenderUeberschrift, Me.lblAvisiererUeberschrift, Me.lblEmpfaengerUeberschrift, Me.txtAbsender, Me.txtEmpfaenger, Me.txtAvisierer, Me.lblZollbelegNr, Me.txtZollbelegNr, Me.lblWarenWertUeberschrift, Me.txtWarenwert, Me.txtGrenzeUeberschrift, Me.txtGrenze, Me.txtBefrderungsmittelUeberschrift, Me.txtBefrderungsmittel, Me.lblSendungsdatenUeberschrift, Me.txtSendungsdaten, Me.Line12, Me.Line13, Me.Line16}) + Me.GroupHeader4.Height = 1.627275! + Me.GroupHeader4.KeepTogether = True + Me.GroupHeader4.Name = "GroupHeader4" + ' + 'lblSteuerpflichtigUeberschrift + ' + Me.lblSteuerpflichtigUeberschrift.Height = 0.1511808! + Me.lblSteuerpflichtigUeberschrift.HyperLink = Nothing + Me.lblSteuerpflichtigUeberschrift.Left = 3.957867! + Me.lblSteuerpflichtigUeberschrift.Name = "lblSteuerpflichtigUeberschrift" + Me.lblSteuerpflichtigUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblSteuerpflichtigUeberschrift.Text = "Steuerpflichtig" + Me.lblSteuerpflichtigUeberschrift.Top = 1.415504! + Me.lblSteuerpflichtigUeberschrift.Width = 1.554331! + ' + 'lblLeistungUeberschrift + ' + Me.lblLeistungUeberschrift.Height = 0.1511808! + Me.lblLeistungUeberschrift.HyperLink = Nothing + Me.lblLeistungUeberschrift.Left = 0.01455834! + Me.lblLeistungUeberschrift.Name = "lblLeistungUeberschrift" + Me.lblLeistungUeberschrift.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.lblLeistungUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.lblLeistungUeberschrift.Text = "Leistung" + Me.lblLeistungUeberschrift.Top = 1.415504! + Me.lblLeistungUeberschrift.Width = 3.366143! + ' + 'lblAnzahlUeberschrift + ' + Me.lblAnzahlUeberschrift.Height = 0.1511808! + Me.lblAnzahlUeberschrift.HyperLink = Nothing + Me.lblAnzahlUeberschrift.Left = 3.380701! + Me.lblAnzahlUeberschrift.Name = "lblAnzahlUeberschrift" + Me.lblAnzahlUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; text-justify: auto; ddo-cha" & + "r-set: 1" + Me.lblAnzahlUeberschrift.Text = "Anzahl" + Me.lblAnzahlUeberschrift.Top = 1.415504! + Me.lblAnzahlUeberschrift.Width = 0.5771656! + ' + 'lblSteuerfreiUeberschrift + ' + Me.lblSteuerfreiUeberschrift.Height = 0.1511807! + Me.lblSteuerfreiUeberschrift.HyperLink = Nothing + Me.lblSteuerfreiUeberschrift.Left = 5.512198! + Me.lblSteuerfreiUeberschrift.Name = "lblSteuerfreiUeberschrift" + Me.lblSteuerfreiUeberschrift.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1" + Me.lblSteuerfreiUeberschrift.Text = "Steuerfrei" + Me.lblSteuerfreiUeberschrift.Top = 1.415504! + Me.lblSteuerfreiUeberschrift.Width = 1.554331! + ' + 'Line4 + ' + Me.Line4.Height = 0! + Me.Line4.Left = 0.005503932! + Me.Line4.LineWeight = 1.0! + Me.Line4.Name = "Line4" + Me.Line4.Top = 1.566685! + Me.Line4.Width = 7.475194! + Me.Line4.X1 = 0.005503932! + Me.Line4.X2 = 7.480698! + Me.Line4.Y1 = 1.566685! + Me.Line4.Y2 = 1.566685! + ' + 'lblAbsenderUeberschrift + ' + Me.lblAbsenderUeberschrift.Height = 0.1574803! + Me.lblAbsenderUeberschrift.HyperLink = Nothing + Me.lblAbsenderUeberschrift.Left = 0! + Me.lblAbsenderUeberschrift.Name = "lblAbsenderUeberschrift" + Me.lblAbsenderUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblAbsenderUeberschrift.Text = "Absender:" + Me.lblAbsenderUeberschrift.Top = 0.1732284! + Me.lblAbsenderUeberschrift.Width = 0.9366142! + ' + 'lblAvisiererUeberschrift + ' + Me.lblAvisiererUeberschrift.Height = 0.1574803! + Me.lblAvisiererUeberschrift.HyperLink = Nothing + Me.lblAvisiererUeberschrift.Left = 0! + Me.lblAvisiererUeberschrift.Name = "lblAvisiererUeberschrift" + Me.lblAvisiererUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblAvisiererUeberschrift.Text = "Avisierer:" + Me.lblAvisiererUeberschrift.Top = 0.46! + Me.lblAvisiererUeberschrift.Width = 0.9366142! + ' + 'lblEmpfaengerUeberschrift + ' + Me.lblEmpfaengerUeberschrift.Height = 0.1574803! + Me.lblEmpfaengerUeberschrift.HyperLink = Nothing + Me.lblEmpfaengerUeberschrift.Left = 3.596! + Me.lblEmpfaengerUeberschrift.Name = "lblEmpfaengerUeberschrift" + Me.lblEmpfaengerUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblEmpfaengerUeberschrift.Text = "Empfnger:" + Me.lblEmpfaengerUeberschrift.Top = 0.173! + Me.lblEmpfaengerUeberschrift.Width = 0.9366142! + ' + 'txtAbsender + ' + Me.txtAbsender.Height = 0.2720473! + Me.txtAbsender.Left = 0.9366142! + Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtAbsender.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" + Me.txtAbsender.Top = 0.1732285! + Me.txtAbsender.Width = 2.659449! + ' + 'txtEmpfaenger + ' + Me.txtEmpfaenger.Height = 0.2720473! + Me.txtEmpfaenger.Left = 4.615614! + Me.txtEmpfaenger.Name = "txtEmpfaenger" + Me.txtEmpfaenger.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtEmpfaenger.Text = "VERAG Spedition AG" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" + Me.txtEmpfaenger.Top = 0.173! + Me.txtEmpfaenger.Width = 2.659449! + ' + 'txtAvisierer + ' + Me.txtAvisierer.Height = 0.1570001! + Me.txtAvisierer.Left = 0.937! + Me.txtAvisierer.Name = "txtAvisierer" + Me.txtAvisierer.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtAvisierer.Text = "VERAG Spedition " + Me.txtAvisierer.Top = 0.46! + Me.txtAvisierer.Width = 2.659! + ' + 'lblZollbelegNr + ' + Me.lblZollbelegNr.Height = 0.1574803! + Me.lblZollbelegNr.HyperLink = Nothing + Me.lblZollbelegNr.Left = 0.0003858209! + Me.lblZollbelegNr.Name = "lblZollbelegNr" + Me.lblZollbelegNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblZollbelegNr.Text = "Zollbeleg-Nr.:" + Me.lblZollbelegNr.Top = 0.647! + Me.lblZollbelegNr.Width = 0.9366142! + ' + 'txtZollbelegNr + ' + Me.txtZollbelegNr.Height = 0.1574803! + Me.txtZollbelegNr.Left = 0.937! + Me.txtZollbelegNr.Name = "txtZollbelegNr" + Me.txtZollbelegNr.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtZollbelegNr.Text = "ATC1812345678" + Me.txtZollbelegNr.Top = 0.647! + Me.txtZollbelegNr.Width = 2.659449! + ' + 'lblWarenWertUeberschrift + ' + Me.lblWarenWertUeberschrift.Height = 0.1574803! + Me.lblWarenWertUeberschrift.HyperLink = Nothing + Me.lblWarenWertUeberschrift.Left = 0.0003858209! + Me.lblWarenWertUeberschrift.Name = "lblWarenWertUeberschrift" + Me.lblWarenWertUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblWarenWertUeberschrift.Text = "Warenwert:" + Me.lblWarenWertUeberschrift.Top = 0.8044803! + Me.lblWarenWertUeberschrift.Width = 0.9366142! + ' + 'txtWarenwert + ' + Me.txtWarenwert.Height = 0.1574803! + Me.txtWarenwert.Left = 0.937001! + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtWarenwert.Text = "1.234,56 " + Me.txtWarenwert.Top = 0.8044803! + Me.txtWarenwert.Width = 2.659449! + ' + 'txtGrenzeUeberschrift + ' + Me.txtGrenzeUeberschrift.Height = 0.1574803! + Me.txtGrenzeUeberschrift.HyperLink = Nothing + Me.txtGrenzeUeberschrift.Left = 3.596449! + Me.txtGrenzeUeberschrift.Name = "txtGrenzeUeberschrift" + Me.txtGrenzeUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.txtGrenzeUeberschrift.Text = "Ort der Leistung:" + Me.txtGrenzeUeberschrift.Top = 0.647! + Me.txtGrenzeUeberschrift.Width = 1.020079! + ' + 'txtGrenze + ' + Me.txtGrenze.Height = 0.1574803! + Me.txtGrenze.Left = 4.616528! + Me.txtGrenze.Name = "txtGrenze" + Me.txtGrenze.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtGrenze.Text = "Suben Autobahngrenze" + Me.txtGrenze.Top = 0.647! + Me.txtGrenze.Width = 2.853938! + ' + 'txtBefrderungsmittelUeberschrift + ' + Me.txtBefrderungsmittelUeberschrift.Height = 0.1574803! + Me.txtBefrderungsmittelUeberschrift.HyperLink = Nothing + Me.txtBefrderungsmittelUeberschrift.Left = 3.596449! + Me.txtBefrderungsmittelUeberschrift.Name = "txtBefrderungsmittelUeberschrift" + Me.txtBefrderungsmittelUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.txtBefrderungsmittelUeberschrift.Text = "Befrderungsmittel:" + Me.txtBefrderungsmittelUeberschrift.Top = 0.8044803! + Me.txtBefrderungsmittelUeberschrift.Width = 1.020079! + ' + 'txtBefrderungsmittel + ' + Me.txtBefrderungsmittel.Height = 0.1574803! + Me.txtBefrderungsmittel.Left = 4.616528! + Me.txtBefrderungsmittel.Name = "txtBefrderungsmittel" + Me.txtBefrderungsmittel.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtBefrderungsmittel.Text = "SD 456 FD" + Me.txtBefrderungsmittel.Top = 0.8044803! + Me.txtBefrderungsmittel.Width = 2.853938! + ' + 'lblSendungsdatenUeberschrift + ' + Me.lblSendungsdatenUeberschrift.Height = 0.1574803! + Me.lblSendungsdatenUeberschrift.HyperLink = Nothing + Me.lblSendungsdatenUeberschrift.Left = 0.0003858209! + Me.lblSendungsdatenUeberschrift.Name = "lblSendungsdatenUeberschrift" + Me.lblSendungsdatenUeberschrift.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & + "har-set: 1" + Me.lblSendungsdatenUeberschrift.Text = "Sendungs-Daten:" + Me.lblSendungsdatenUeberschrift.Top = 1.026921! + Me.lblSendungsdatenUeberschrift.Width = 0.9366142! + ' + 'txtSendungsdaten + ' + Me.txtSendungsdaten.Height = 0.1574803! + Me.txtSendungsdaten.Left = 0.937001! + Me.txtSendungsdaten.Name = "txtSendungsdaten" + Me.txtSendungsdaten.Style = "font-size: 8pt; font-weight: bold; text-align: left; text-justify: auto; ddo-char" & + "-set: 1" + Me.txtSendungsdaten.Text = "1 Pk. Testartikel; 1.234 kg" + Me.txtSendungsdaten.Top = 1.026921! + Me.txtSendungsdaten.Width = 6.543701! + ' + 'Line12 + ' + Me.Line12.Height = 0.204331! + Me.Line12.Left = 0.005! + Me.Line12.LineWeight = 1.0! + Me.Line12.Name = "Line12" + Me.Line12.Top = 1.416! + Me.Line12.Width = 0! + Me.Line12.X1 = 0.005! + Me.Line12.X2 = 0.005! + Me.Line12.Y1 = 1.416! + Me.Line12.Y2 = 1.620331! + ' + 'Line13 + ' + Me.Line13.Height = 0.204331! + Me.Line13.Left = 7.478! + Me.Line13.LineWeight = 1.0! + Me.Line13.Name = "Line13" + Me.Line13.Top = 1.416! + Me.Line13.Width = 0! + Me.Line13.X1 = 7.478! + Me.Line13.X2 = 7.478! + Me.Line13.Y1 = 1.416! + Me.Line13.Y2 = 1.620331! + ' + 'Line16 + ' + Me.Line16.Height = 0! + Me.Line16.Left = 0.003141727! + Me.Line16.LineWeight = 1.0! + Me.Line16.Name = "Line16" + Me.Line16.Top = 1.415504! + Me.Line16.Width = 7.475195! + Me.Line16.X1 = 0.003141727! + Me.Line16.X2 = 7.478337! + Me.Line16.Y1 = 1.415504! + Me.Line16.Y2 = 1.415504! + ' + 'GroupFooter4 + ' + Me.GroupFooter4.Height = 0! + Me.GroupFooter4.Name = "GroupFooter4" + ' + 'rptRechnungDruck_MDM + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.3937008! + Me.PageSettings.Margins.Left = 0.3937008! + Me.PageSettings.Margins.Right = 0.3937008! + Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.480316! + Me.Sections.Add(Me.ReportHeader1) + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.GroupHeader4) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter4) + 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.lblLeistungNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblBankUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtDisclaimer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBank3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKundenNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblUeberschriftRG_GS, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaOrt, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaStrasse, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaTel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaFax, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgDatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsNrUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsDatumUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbfertigungsDatum, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLKWIdUebeschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLKWId, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSachbearbeiterUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmenbuchUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirmenbuch, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblUIDUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblUID, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEORIUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnung_UID_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnung_UID, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnung_Steuernummer_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnung_Steuernummer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtKdAuftragsNr_Ueberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtKdAuftragsNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRechnungAn, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblRgNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSummeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerfreiGes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerpflichtigGes, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label46, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZWSumme, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerbetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuersatz, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtVermerk, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtInfo, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnlagenUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAnlagen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZwText, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblHandlingATA, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerpflichtigUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblLeistungUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAnzahlUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSteuerfreiUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAbsenderUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblAvisiererUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblEmpfaengerUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtAvisierer, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtZollbelegNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblWarenWertUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtWarenwert, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGrenzeUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtGrenze, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBefrderungsmittelUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtBefrderungsmittel, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblSendungsdatenUeberschrift, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtSendungsdaten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader + Private WithEvents lblKundenNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Public WithEvents lblUeberschriftRG_GS As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblKundenNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo + Public WithEvents lblLeistungNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter + Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents lblSteuerfreiUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblAnzahlUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblLeistungUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Private WithEvents lblSteuerpflichtigUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerfreiGes As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents lblAbfertigungsNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblAbfertigungsDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblSachbearbeiterUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblFirmenbuchUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSendungsdatenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAbfertigungsNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAbfertigungsDatum As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblLKWId As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmenbuch As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtAbsender As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtAvisierer As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtWarenwert As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtGrenze As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtBefrderungsmittel As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtSendungsdaten As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblSteuerpflichtig As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerpflichtigGes As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label46 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblEORI As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRechnung_UID As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblZWSumme As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuerbetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSteuersatz As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtVermerk As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtBank1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtBank2 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtInfo As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblAnlagenUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtAnlagen As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblRechnung_Steuernummer As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture + Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblFirmaOrt As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaStrasse As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaTel As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaFax As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaEmail As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblFirmaWeb As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRechnung_UID_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRechnung_Steuernummer_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAbsenderUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblAvisiererUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblEmpfaengerUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtGrenzeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line + Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtKdAuftragsNr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtKdAuftragsNr_Ueberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblSummeUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRgNrUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblZwText As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblRgDatumUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtHandlingATA As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblHandlingATA As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblWarenWertUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents lblRechnungAn As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblLKWIdUebeschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents lblZollbelegNr As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents txtBefrderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label + Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents SubReportt As GrapeCity.ActiveReports.SectionReportModel.SubReport +End Class diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.resx b/SDL/Fakturierung/rptRechnungDruck_MDM.resx new file mode 100644 index 00000000..48802e7d --- /dev/null +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.resx @@ -0,0 +1,136 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 + + + Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding oder Passau. Steuer- Zoll- und Tarifauskünfte sind unverbindlich. + + + + /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAYEBAQFBAYFBQYJBgUGCQsIBgYICwwKCgsKCgwQDAwMDAwMEAwODxAPDgwTExQUExMcGxsbHB8fHx8fHx8fHx//2wBDAQcHBw0MDRgQEBgaFREVGh8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx8fHx//wgARCAEFASwDAREAAhEBAxEB/8QAHAABAAIDAQEBAAAAAAAAAAAAAAQFAwYHAgEI/8QALxAAAQQCAQEHAwQDAQEAAAAAAQACAwQRBRIQIDBAITETBkEUFlAiMhVgQiM0Jf/EABoBAQADAQEBAAAAAAAAAAAAAAABAgMEBQb/xABEEQACAQIDBQQGBggFBAMAAAABAgMAESESBDFBUSITEGFxMiCBkUIjMzCx0ZIUBUDwocFSckM04WKCU3NQYLIk8cJj/8QAJRIAAQMDAwQDAQAAAAAAAAAAEQABIRBQMSBAEjBBUWFgcAKg/8QAKxMBAAICAQMDAwQDAQEAAAAAAQARITFBEFFhMHGBIJGhQPCxwVDR4fFg/9oADAMBAAIQAxAAAAHqgAAAAAAAAAAAAAAAAAAAAAAAAAAPJUWrUXeT0iXE32c50gAAAAAAAAAAAAAVUxrt66xtns+OmpdfPTb5epfa2t8delcPRYRMkAAAAAAAAAAAAwnPtaazpTZaztWGmtdmGrdvPNpaJesulvJ0zy+zLW3kmmUAAAAAAAAAAEc0eY0Drx2uqN0ZTImr3z9xNzje6x0o989l5tbrDTLW2IikwlAFBeMctjzkAAAAAADAcv0pr2+f3fGXpEi0Z6z8lf8APrsnNrYZ2i3i1yuPJiMZGNY1iuvGQjzGnax2/jvZVkAAAAAAcY3zoNKTtcpmlZN2UucNKjam48e8a1bjLS4xvkiQPJiMBGLQobxyHrpFmLKs9f5L3FZAAAAAGpWjjvTjY3pPvWVrXPKXS2ycm1btTY+bX5K+w0+gA+GIwGE+FoDwQpjkvXTpXNfYKSAAAABwrfOv1xsbxMvEjWuSJG2cW+xcu2QyS9hEW8TaW1rpx2Pm2xmMwQhyuDKAVFo5T1U7bx6AAAAComOC9ONnek+0S9K5tIy1nauHpnZ2g7Z54m1yvOpbRu/lhaV2vk3xn0vOfXGYSKSCzABwTuy73w6gAAADn16806MbK1Zt4la1y2idjpt3n9On+ly+Jj2WGd7nC86lrbHT4ga505bDzbYzARyLMbLEgQpck6s+0cmgAAA+VVnzXRW+9j47Molo0Por7tG7ZWvM5EqluZ9NMMotqyKzliem817GloxpG9aK8YJiTWb/ADnPDd87Ac46KXdJ2zKwAAEPytPHTWt5LzPRztdo5N1U0/Wgv6W7Vx6AcD7soMx0rn0nVDbcrezh/bnT2rvWN9pytzzopr9679hfpnPcU1o570V63y3AAA+Qofnd3rZ33bT6U1o4f253NJlw1rSvYOTTas7fDgndlCmM8T6JkT3Ti0qbRwruyyRP6F4NfRrWkca68p9Z73xa10xy/pp1vl0zAAAieXpHJnqZ5j6DjnXnrOlcifpiRbVt3Li0+nA+7KDMdt49basjNDCcD78sB2DkvtGduZdNNF2ps2dukc9+e716ry3kAAAFT5WkA2T1c/oKW8cf687Cs9m49PpyHrzpbx1Hl02rOeIdmcO0fEjyjuPFrNhRXjm/RSjvHkkGx52sqTgmOlc9/YAAB4yn4fdY9gEA4DrnO1yl6RZZXt+XfOZZZTPDLL3D0ehIYrRTdWGGWv650tNPEW6Hz6dFxsAAABW+PrA8vTYPrOb6ADjMxrHRjZXrJvW45OiXlfOZpZDKez2ej6fT4fYaf381DaY9WKk9/wCTeWAAAAYYVVU7g0zdlM+0Aa6jhO9J16WV6Z9K5rMlomYaWHJvIpbIez0fT1CBeNb6KVeufuKwqt3w36jlcAAAADHRRfL9Of6DC2vHvWPtw5Feula5yb1n3rIvXJaPd4sOPosOTbIfZW3i60PpZ696Ofy9Plso8TDhmz17xz65wAAAAAQzJlNT8f1TvrOaXDDjOb0KcQitX0ZSy557V3o43fna+6WlZa7j8l1ab9nyW/i7VXqZOiNe7OeIiEY637dz63cSAAAAAAPhT5TYbVh+VrW+fpsH0PPVfI9XM/puWPevSPmuvlP3Pm7b4PTmidb9vG883aN1V9J+oxypt8fVL1t47RhpfRIAAAAAAAA+EMmFVlMneuhzGhzWNrTPMe7RP5t5dLez6fEUHTh8pfY626vneaAAAAAAAAAAAAQjn966betTaPULXHTJDDZh0ptFZ3+lr+JAAAAAAAAAAAAAAENFRKMZC0LOJ+gAAAAAAAAAAAAAAAAAAAAAAAAAHhHM+7n3zk3xTGq9GUys32OmKYhXjLWfkxKrMO0ZonWd8rzLTJCdS3iYh2ixpbDMRLRNrMG0S6zKide2z9xNjS3uA8S8Ij2TKz5Ngxvr+1KHbP1CREwbRlhOraBetvneg1zyxMqs4Zi+y0oNs7bO9desmswrVE6tq+9fRaZ31/bPaOfWfWdd2zqdKz6Wj2r6ibzK9NpSPaLClp1bbXz6gAAAAAAAAAAAAAV16z6T6SAAAINq8+7OfcObYUe1LTO2s752NLbHhpBvWNaNt5teZ93PcZ2tM7e01160etLfO/hFpS2KXg2rn00jqxwWiRWfEvJDtWRE+4Q7xbZXj2j4jBLovH0a1tlS60j2j3E3Gd/CK69Y1os6XoNc9lw0m1tQ7ZzqW2fDTVt84V6+Ji2yvFtFnS2KWJG4c+2q75VelPEpFZzxPuFXpXyYbRPpaLaMExjmOo8HUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB//9oACAEBAAEFAv1Yua0T7jXQg/KdYvyrWr8p1qj+Rap6inhmb42zs6NZW924sgdb2MsWpiatjq/tne2hDlCJmddSdYlrussibO0+Klmihj2W7nkZVcwvraPL/wDnE21ust4kmKVrIuKpxMfYqwkWo5OSLUC9iZI1/h5544WXrgxNLLbmZdr04TfvyC1U2LIw1YVHVSWhLoIuMurmifS1LWo14lhEJ7XKGcSDrvZXxavS7Zl+v3888cEV/ZT2ZrVqS49rE1qARc93SnqJJldtMqxQRuhgr1Kwm64RCc1bG3vYZhu/kDE35ZOxbXfVruvq2Zqk+vvQ3a3ffINo67aY6RyYxNagOlOmHOPmq16ZbmYOlq1HuDGMY3qUUQslpY4Obt7kteKSC7zPILW7OahPr9rUvM7z5JsftKLQo2YTQgEFXkbFLUlifLDrXzzN10Qij09NvbKeQE5QP4v6FjCp6FOduy19jU29NtG363d7y6bmyjamhNCHXXw0posodS5oT7kLZlNsJnbEooop6ifzZ12tNtujobJr7Putva+110YTAmhBBMaXPfrKrlBEypW/uYuFm1Oata3BZYFurHO063c56zZOtLaa73lqb3vxIopypu7MA/8Ap918xn41I8JiagsqlNHFP70LRZte/LWfC2WranruM9eHY7G/YhMdWvOfIocQj5iDT+xZKKKcq87Be63ZxXqfHq5n2ncmZwfLrq2yePjWpCvazUUqo2US/tGLUwa7YVhp6ALtNry4a6kBY24isxb18K/tWJ+9c9sfyWeFkTBYq8QppIYI7PyqFpf8m2RX5HtEz5NdCqb2nYdPqLp2vX5XsBj45r/taXbfNxkEwmMwkgbVitNcvk1/37fTR3/s73W9/wC9UdDq5qX43p1+NacqKNscbiGja7KW/ZWo+OCxE/45qnN2+ok18mF8Z2kgl6bXZR0Kuj10uwuds+h9xiqTF0pAPTb3xSpeZOnom5f+QUftbxXx7YfdUllXv/ehXtuH2t5Uq10XltiRrR6MAdI0ANXyJjXala8kbBX79elBXgub69DDHDF2p3lq+6dzmhZK0AAdPkOw+7upks0afLPJ01V40boIIV7/AN5WpliGs9+Be/AvVTRNlhngkrTrT7qvahc5rR8i3EVhq+O0nWNhs9tWoRVqd/eWoIIa8XbmilEkck8jh6dNvYsQ0hrdiqGmuT3PbjXBi3GnsxXjrtgvj01o01do3jd/r76/r9gv6/YI67YKkC2mtnqK19tn49s4C+rZYSyyRHr70iqfF7cht7unr4db8fntSMY1je25waC5hTGNY3rfg9+mXzxyNlkTXvVaV+WyPCEr1zcg4oSOQkcvccvccvccuRXJSNbI1zNhM+5HHBDKTw9yVF8mPiuviMPc2Zhyf6DGOx8jo+xciemlNKilDgCgUCgUHLksrKysrKyr1lrpnzucuOEGPmlqV2Vq3cyRMeo6Ac9srGKOVr+xvaBuUGlRyYTSgmuIXN6hscVHK165LK5LkuSyp9hVhVjbWJgICjgB7l8U1/OTu5OXD3PKjNG54kYUCD1+T6f7eVqa5zUx4KBWVlVvQFfuByoq4kh2lsU352dtOoxQryAc5PcqFGXYW4II4Ie8nrMmMjmxMyCKeOEj+DTZjCkjjlj22mmoWXMlidVj9+x/WXw4OWuqstG1TdRgpAWHYX/SN9e+eL7v3S5qc/8AUcnuc5QwzWZ9Tq4tfW74gETUi98NaKFWnvD5ZYgfdHtCQPXyGlYFnSTa5k1ySuID+12o2QDtpsKUrawPCW7NJEHLOVy8mO4xyP8AfsTvjrR1Klm7NqdRX10PgiMiCrHEsBWahcoqcEY23xNrldmu+6HoSLl5QThzea5rmjJhsk7nqO2Ilrvjd666pSrVIfE2qVW0y58OVnU7SsvcTZMFlljl77E+7G1Mhv3HVPiV6VUNHr6Xj5adSZP+Pad6/F9MmfGtM0w6vXQoAD9We5rG17dtlm3fjrTS7JkdyDZ27GtpbuKKnb2kNeVm4rPq/wBxBaqx7D2qlff1Ja9XbRTTz7uAr4+979VsJIzutQKQk/IKqtbWCB7NxWfW/IavG3tIa8rdzWdV/IagVXbQz2dffpxa+vuYpZ9pcNOjDqb01envC3Ws3dd01jcwRTWN1Uhr/wB1EIBumyQazbE62HdwPls7yCC1y/ZvnzfY2/j9kUbTrUtaF00+/rNmZrrsEx+OSiantnV7MzPaf+N2prjdXYhbY1dONk96obNGD4+x7NVbd7O8q2IbQp27lSlKLFPbGvZmZdgmPxyUTU9s+vZmjtwSnVzRyfkcVC1Lo4dlZsWNpTNyjDtr8Fe1Rlq6C06xfEkEtW7ZpFlPczXWSa+Cb71lazY0VuSfaGtE/wDIvG36TLtZreLe4u1fuYY6ks+zsbmCKaxuqkNe5vLGfuov7OlYfMp5/OvtIZyzf1y5u0tHePc1ja9u2yzvKT44dTQMTd5adBQ0r5oLdqSJ23qz1KtSrrb1yvpLtiZm3tWTZZrtjUsPcWsrT7F292Fv3tjbnnh+P6Rtd1rT7erDFHJNY12xtWLVaa5LZpn2pdjp7MrFSrXdpFFs7lNuvL3TrfWbUVTXbCKlWfBLVuWaRZT3rJeTBI/5BVhmGrsU5ZqtP76nHY+6ngPuQ/Id8+b7G38fsijcfPZ+OUwRT2Nexf2s1G3QvyPFfcMMOwrVdlep19JSsQs29WyLI2Oyt2FJHJ+R265q7avUvQais2W7ttFTZ9vpq5C+PU7Dbeqozs3B9qLY6qtJLain2mtq14Zrsza80zP8N//aAAgBAgABBQL9XwuK4LgVxPj8IBei5JhysdMJ3kj4wDoX9GxdMdHI+hHjAFwyuATS3q5+EJUHpz1nuGpw8CAmjtOkTW5RRce2MLiFwQb0I78DtOd0LVGEXd0B1IyiO9HaITgi/C5r3D32UDlOHeDtvJHa49A3y7kFO8EJCicn2kG+ZbjpGPLAT2YTHqRvhR2B0eMjBTW4RRGVjyYxF2OwZPLuAnd0bBBgP7eSBPUuK9wr3CuR6ELz6Fqz14LguAXBFiz5dWBOPcSWOLone4H1cuZE1vRg6uHYHQuXIrkeoHQuXJA56OHUBOOO5mr4MMLmdQOhKaejh1HYPQdlvqj0AXp3FiXioJi89ho7JHUdD2y3o1vRxQCzjuZ4ARDVx2Asou6tKyndAVlZWVlHoCuSz0yi9ccou7lzw1cx2h1eO8BwstCY7PYce6tcsQHDuyOw5uO9aMDoe8jaGA2QDG7kO5wE+NFuO2GoN7Dj3hUkLg6FrmgStKBz1HblPTPSSwWvrEvHkEDnsE9+8nDgcxOy2V/ENsBxTZQUHZTncR9yzpZnMais+6Z3cBlAgiaqo4Pb6DwgYOWVYic5V43pykzmq79tgPIha7IKtV8qrXe1PKZCAex6D1WfDlgLiUCmADsEdorPjMrPXHTHTP6DlZWf1khALii3zLEGrguGFxRYi1cFJ6t9Hr20GrgvbQauC9tFqcPMsTRk8gizz4IMQYuC4JzfPggzoz1EnmF/qfUfy9Rlf7D1HqfQ+ak9R/EjCIyfUZQP7vUZQPmP48v3cU04PEIHLh5LOQCmJ3pn9w8kf4+Nacd0Cs+QYgxBix5EIBFq4Lj5IhMKc5MHm9D0Iyi4BPCaFyB6HHFo8gP3PTmL6tGFjC+jwicLjlO6MCc3KygUxf6n1BRwUF/qz1EnmP5FNOBnI+noi0FPKaVxA6f6g5BIyfIPKeVIU4+X0cVgFHyWf8O//9oACAEDAAEFAv1fKysrKz+gZXqsJw65TfH8ehf2Ah40lclyKIPUNXBYQb4wntBqJ6Y7nPgij2QOgKcgP0EILC4rj+ht7WemfPuh3h7XFei5IlA9HLKaU4Jp8WOhKCBX1cVjsce6HdYRWFjphcVxXFY647WVlZWVnsnucIrks9D3WFjs47A70FE9o+NaER2T4Ud2Ci7wuOxjwR6t73BRHYHdNR7oHvSsLKHe8e7yg5A9xlZ6jvQUVju2dgBO8uh7A8CUFjoR0AXA9GNyi3im+fUOXLPQ9QPBgonoE4JuEejHJ7gmrPbx4o9gdoLHjcLHax/juVlZQciVlcllcllck30PqFyWVlckSuS5LKBXJErCDlyXJclyXJArkuXRyLen1R9PqvoV9B0b6H1QK+qPp9en1x5ZRCyseXr0wnIL6HzX18aR3RWFyXJFyyh0yuSz59HBAJyavqsJpRWOn1JR9GoHoVnoEPNZQ6OQPTCcvqsIdPq5FqPoEfXC+vqspoRWen1Pr9Pq0JqaEB5oLzH+If/aAAgBAgIGPwL6DmxzSLWLLFiDW42APaRuHGEbGOyloUQyixxJWYscL1ZS2UTNkmzYhGzBk7Oj043Qy7ofrYeWRfaxLr3QoNQUKzRnQEU9KMJuPdZ23LvT0uX5pOUPCH5RZiKcyuVHfzvuT9qx9FizvRqBM1CpXZHQUEzUCZPfX0hCp0nVijUfTjoMnR6o6nv4j//aAAgBAwIGPwL+Ob//2gAIAQEBBj8C/wCrXJsONc8w8BjX9Q/6a8sv3P8AGtkv3at1cn8wIrNE4cdx/TrSygMPd30Sh6MX+4RzH+UVkGZot8klz9VEWRvVWYlTm91d3ZgKtJceFMun1BhmUXTdf2UolN3HmvWOH6UZJWCoNpNfDb8NAdh/qv4fwiujpYPxExxMsmOPGuprH6r/AMNAYIu4bKyaUWO9z+6rsbk7SaKdMFifPvt2BXF8wOUf5rYUAX6Eq+UnAX4GsrkdTeOzDZwrv4fo+d/UKOp1HlX5cXfRkfC+wcK6OiTM/vzHjWQybeGFZtQxMe7Htz3yR8eNfCkKkbS2NLdgysbKy0JpyXlIxRsQKXC2Q3W3bmTzCuDcPQndDlcWykcb1zYahPmL+8foDSyHKi7TV4tkfOx2Kq8KUkWRfKvoc7E+PYskpyxcN5pIUFnfli7u+gskmcqOZzR1MRvn2W2enfTL1YT/AJbkVz6TN/ob91f+xpLeBy/+VGFFZJCRgdntpZ4TZ1/aOFLNH/qXgeH05hjb/wBaE2w95uNEX83n9Xot11IAXMo3mu6tMMmSB+TiSaSFbZhazb7ndQbUl+oh/iwNZUGVeA9PMKuKtBpjPM2zC6jxovJC+Y7eQisRaupHzI3zI+NXiazjzRnaPpciH40/KvcN5qw9ESFc+XyjvptTqHCyt5VvgFptqQbnItfwFLHnblwBGG2gTdmBvmJ2/QY78OzLub6+3YKKyQqQe7Glkhc5DjDL+41mOEyYSr+/1/SSMMY4/hx+rb+30+p0hnGDA44jf6OJtfZSwXvK2xR2JpYLAA/EJ9IN6EsR81syfzDZUe5ZPhuPH/H6Oeb3gtl8Th6SqN5rluh4ijjcLix418ONmlOxKj1em8q/Oj/XhWaI+K7x2CMHCL66WfylRYNloo6WZR5hsrrxHLKn7a6UjfGT9o9Fk9Y9FAv+8P8Az+jhh/3Huf8AT6WZ9lsKJZxYbaZiTk9wVml8oB2cd1Zo8UPnTcaWVFyL7wHeKUw26R9/bQ1Mg6hcC1xsq1sOFYC1EHYaWZZeVd1sfREN+ci9u4+hLMfcUn7KRjsjvI36+J+iOU4VfVIW6WCHMRt8K+W332p52jPL5RmbE7hX9on35ftr+0T78ldXp5ZAbSIGbA1fIfvGs2T9pq3SFSRLpIiI2KgnNuo9PTIM20ZpK/tU+/JSq2nQqgsvNJWSOBAvDNJULvcXAawY/qewySuEQbSatpojJ/nbAezbWARPVf668y/dFc6I49YoJJ8BzszeX21FrYGXKts1zu3+guiQ4+eX9wrqOPjT8zdw3D6C26mi2G1W+YzeSryEWO4dg0yH4cHm73/w7Rm+TLyv+4+hqP8Akb6+yGWQnO6Bm5t5ra3362t9+ljXyoLD1UWOAGJosTaBflJ+/sXUaskI+KRjA27zWXpZf8wJvQN88D+Vt9+B7PwMxup+STu7u0yti5wjTiaOt1WMQa5v7zfYPoWMwy231cRkBverHseX+oeWMf5jVziTiTSJ/SXmk8B9tZlFoZuZfHeOwI5+NDyt3jce3Uf8jfX2XWKQqdhCtavky/deoCYpAM63JVuPZqCNuQ9iKdhIBoAbB2TE+7Zl8b9mnI29Rfr7DLMf5V3k91GaXl067eAH8I76WKMZUQWA9MWpRbzYVlfZVh29NT8GDlHe289nwyyX22wr4jM9tl8exJf6bcso7v8ACrjYezUf8jfX2aUFwD01391fMX218xfbWFPE2xwVPrp4JRZ0NuxY5GCalRZlOF+8VdjYcTQ0mmOZL3kfdhuHYstvhQcxPfuFXc5pT5IxtNfiNScmmH1cFpYolyouwfQZ8DHv41eFLoD5vQb8OjPM/KmUXtffX9tJ9xqjSaF0ivd2ZSMBXlFeUU508TPDJzLlBNr7RX9tJ9010dTGyPDgpYEXXd7OycjTyFS7WOU1/byfdNf28n3TXyJPumv7eT7pqEEWIQXHq7OfllHlkG2uVOsn8SfZXPC6nvUirHORw5q+Hp3P+k1m1TCGPeNrfZX4P8sUM4wz7Rf/AOxr8X+Zk82PTO0+PCgqjKo2AfQXNWJ21lUWHoSxDay4VlLt7W+2vOfaftrzH2msuY+015j7TXmPtNbTW2tv11t+utv11trbW2ttZX2VkdssSYClRSS7G5JJo15z7T9tec+002skQFi1oidwG/6Lp15stYbPRZgOWTnT94q3b3/SlieUYLVkrGkhjxeQ5V9dRwLsjW30WIx3GmefE+6O6slrBdlG20egwT5yc0f2euu+se3A1tNWfHhWHp8z3b+EYmjHCuRTtO+ruaw7G18g5V5YfHefpDl20WflttvTBQebG9baw7fx0A+DIfjLwbj6/TJ7MpHNw7ATytxpY0XMxF7mt6p90VZ2zyHbwqww7V08fl2yvwWkhjFkQWUfSrm3VmtsrNu40RmzG9X7CjjMjixBr4QMmnc/DIxI7jWWVSjbbGkiU5Wc2vTAx2CYl93ZKrGxUDK1dVpLyE2CjZStmCjbjV/e3GiH84ONP+ItyC4I30C0IVl37+xqyriT2LBAuaR/1ua6a4yHGWTifp7HGlVeWHawrkFqAsSnGsrYnbYV1N1qzDGm1g+JC20j3fGhJqWPUHy/4RTRzyiMSCwNFc1wNhG+k0hjVQ2yQce+n0xUsV2SDc1ENs3Go4gcoTzNxrbfsNDOdm01Zd++ikfzH8zd1dHTLmb3m3Dxqyc0zfMl3n/D9EY7Sx21arRcobz1ZV2ixvRm0HI2+E7PVwoJrAyyRgKA3Adnf2ZdjDd6BNXY0bLmkOyurqrwQnHHzn1bqEWnTIv1+P6Vk1EYkXvotoprf/nJ9tfE07EfxLzD9lY4VmG0VwrzVhia+FC7+AwoHUyCFf4RzN9lXjjzSf7r4t+n/FhR/ECv7ZR/LcV8k/eavkX8STXw9NGp8Kw/6sXbBVFzWn/MZZG/D6qVk6ZJyhdgrTxMpJ1DZVI3ePtr8J02aTpmQW323eOFa4yBwyhysuwDZy4b60wmSUqQFbUEcubxO2lhCPNOwuIoxc241NOAwOn+bCRZxU5EcyxLGWMo5fUp41pzFp5543S4bBiP5jUs7K0ccNgS28ncLUIGjkglYZo1kFsw7qnSNJHWMFXnVeVTUTOxZubE4nzVNHqNXJpoQilchO2wqR4NbJqbLzBzgO/HwrP0pTp75fxGXkvSRKrTzOMyxxi5txqaYBgdP82Eizio3MUohkw6xXlB4UsIR5p2FxFGLm3GppwGvp/mwkWcVGzxypDJsmK8t+FfhjHJDLbMokFripdRmk6SOQeqczX7qSF4pYGkxi6i2DVJOMWGC+JwpdRJrpV1LjMADyi+61PNqgWkgfpSZd/fUaNHJGkvypXWytTxJHJO0WMxjFwvjUOoxeKY2BXd40shglDSNkihy87WrUZIpF1EAu0LDm8aOo1mYZNspGDXJ8tqSOSKSDq/KaRbBqfTdKSSVLYIL3vjWax2Xy76MMKlpJyEwF7A7aZRq3lEQzJBbDDhX5brOi7GBvjpY5sLbvVSanoSRxGIhS4t/wDFfmOjaGQS87g5cDfga00YjYuMl0sb+ym1pheWCaMITGLlSLbvVX5lrTE0YnTLFERzG2+1dPKc/Q8lsb24VpNEkUgDxjruqkkDhQ02iglX8OyvldcpbjbvqF+nqyYsepOcFPDHbWp0LaaSSR2YxOoujBhvNRK6lW5sDgfNU00ukfURMigWTNjhxqbTxaN9KXjPOyZRw3eNJoho5G1SGww+GRe981HWvC0sU0YVulzFWFvsr8y1piaMTx5YoiOY232rTRiNi4yXSxv7KbWmF5YJowhMYuVItu9VfmWtMTRidAsURHMbb7V+VqI2JVkzrY4Yb608mU5BEQXthv31KixnqrqDIEIsSB41EkWkdU/rvKMuXw41JAMGOK+IxpdPJoZW1KDKCBym2+9S9f500odxwxrSaVdM8bRsryuw5QANx31qzIupyTNnibTbGvuatAkcMijr5mjbmK342qDpiT8Kb9doRd613wpVE0Pw+riT4njQ0qxOs+mbMVcWzYnAVp4I9NJFkcPM8gyhbcONaqQochiXK9sN2/8ATjA7FVJBuvdQXhh9D0+o8WN80Zsa/D6XVzPDF8+VnPsFPEkck7RYzGMXC+NQ6jF4pjYFd3jWm6MEsavJzBlxcD3VryzdfodTpX5fDL/FWs1GpOpsmfytZQP4f5q/JzC8gjdvebEjDzcamKK3Qgvmn9024bzUeaGVIpTljmZeU02n6b9EDKEAHHznuou2CqLmtP8AmMsjfh9VKydMk5QuwVPrU1MwbC0Ybl3Ck1B1EspkjF0drjHGmEfzpiI47bbtWp/L55DIyWdGY3w31q01Osk00a2yZWPAeNarVafVvq+mouJCTY7qXVTa6VJZBmQIbKL7MKmg1OM+mbIzcf1tWn0GmfpPPi8m8L3VE+n1LTxk/HSY7uIpmAzEC4XjUY1Xw80RYQKcAO/vqaCXVnSaaADy4FnNXbUiaRiFSdDuvxrNH+YPqGUG8TXHrxqVdXqLSdVrZrnD9tfmbxyucsmeJgT5Rjh6q0MWncrJLGZXKm3kX7a/K40cq+oYdQg2PJg1a1dTrn0wR/hgPb661l5W1GjgxjmbuFyL0dXPq5IlYnpRxGwFq12mnbqyaZc0Uh33wF/bWndfzLNqX5p4HNxY+6N1+zLpkZnl5SygnKPVSwpodTfa7ZNprVGRdTknbPE2n2G+5q0CRwyKOvmaNuYrfjatHMsbSLDLmcILm1JPkYRtp9pH7D31+aKY2DM8mUWNzhur8oiKuN0hAN1vb2Vq9AiFmiBfRuRgQd19l6gZo9S8sbqZy45B/KooymJ2imjCK6i4vhtowwqWknITAXsDtplGreURDMkFsMOFXKN1iqhksc1w3CoAcCI1uPVUcCFoYtOufrW988K02r6smru2SU2xC+q9aySbRvqEfLksmbd31qNLHpX0mZfMyZQTu2Uulm0MryxjKjJiptsxqafU4T6ls7Lw/W9afX6ZOq8GDx7yvdUSabTvp4wbzvKN3DsifKcnRIzWw376l1UmkOqgnXDKM2VvD1Uf/WWRjL1Pw0gzWTuHGodWumbTRQqQ5cWLHhU3XgGbrNbOuNvXX5hG6FEeVgARYZe6pDOpA069KPMLbW3Uyup6Gl6nRJGHMdx9da1tToX1Id/hkJf661TrA2l0MyZBE2GJ32ptH+HZmVvgzKudSL3sa14nUxayaMZIyCBYW3+oVpNLHoWg1EDgy6giww333/8AZ3//2gAIAQEDAT8h/wAswMW00RMrfd/iDcHmP++gB279/Mfs1+83PNDSf1zruUW/l2nux8eFqv3iCltrA98DPaCoR0PPm3tEeyNVH3SnYiKrGWnwK/xK4chGg7qldDUMsnZmIN/x9/1WYQulGA+HxXcflczjAOYe9weY4ZxYVT2fHtFWgtZTGZmQ+ONFozeFsye8GYdkPumGZDa7n5l0lXdo83Fy2AUvS/6SHHeffhGMDa3+nRpj5F7E359ttrHfzD6LqDQg8qHk/wB4NTnxE/MLjdFub431FnV9Uz7JW+Egf9QB2ONvZgyX3nD8AeB5oxHY+Gnx7MehDkrQcPiVB8n0Fbi0yUzQmL++w/oAphtIysSL/wDYr5g8tU/lhVRBOi2PupZVHiDANT239SnE6jBxt7XGNXnP5fibY0pXluvfpUSK56WSzCaSLBZIAbyNZrtDdf2ZRpfefwRdd6JgOcJyjCcci8MVPeObnXrqSHDgG14NEMd1S15TQhB1IPv2mtfdweCUTXLHtFKlVG6Y2di4abtbblUePMSUrF4XDRj7ytENBRn6BB0kbaQVqZTNuR7z3e0cPrapZ+Kh2/ux/M7Rwjgf0nDMSSvH+Lk8nqq1a7v/AOilIbmEfPL14S1Myso7LhFjp6UKqpUOSt0EKS9VK2V/hlFb52HnxD6Xop71anu8QzN/F1bRvgm2tjQ9wmRg2CINlb838zCiuHvwPHqGIs+Cnl8wR79YEOm0Q0TsL7wwO3B0EGUtdlWatnze9Bu3t0aCrc3lD46lekuzZkgd2M+/P0ERhZ7ZafxMt2f4D7empRpX2Z/Mfbl79aHRkSSPvC6oOT+mBWybhUVGoEwfc3FuNmzwnymY1N38HQlQH+eWX0ImOEO7WbidQy7v+mUsbW8YZ3wzcTub71x6us+O/Jv6fgy9PSLmi8D/AGzASsr0Alm9hQvL/ErF91Lk2msDjEoQtQWvDs8xNYzKX4mJ9sF9lZrOEeJdrpWvLhgQGBIKe39zBYP2IAoh2CpTSin5hKe03L4XtLOalusrAUXd/oT6FloAfNf2hdXefPHoigW4Ik2NxLprEdycUmg/YeY7bTuz5OWCmK9ftfMzUx0XBVt0kEaDef8AbEadraBH2uVJXVTNppSirOajzLFXQ34Wp3/3vmUq4HF5zn5m765JV9rcR9MTLlLpdj3jDthjZHlY0v2oOqV2Okub+2E/GJZjjbU+3XzKlvITPYw8fQTOFU9ub+YpUqAd/tl9BWZePvO9AYzRLVbFKq339piS3QyycTSb+zHTczdVPbLfwP0wMJdrWpRnHSGhs4jQ6L8tCotNJR4CIsSnCHd5ZgIAVNmcHYX2JRSXH9szBVf0+B/IiHcEJOu0jL7U11og/aTwcyza6vs/5Pt6FrVviPADLOxIcDVXOIsIutdAbXyLR9ty0PbscruIkvL/AIvliW9IYdH7TBZUzyU9/wDszHQtwnWg5nYxR4QqfuL+oYusBApuzoutbXvh6X4SeFpmhAA9jpuN+IA/uGpj0H5Kfx0oamg+EIlK2kez8r/sLXSPg+vL+eTxPM6gShl2uAAoNHWxtW9n9kdLp5wbb7QYAtDaffo5H8w8/LMBJYWJ2etGkGHLhBH/AIH/AHP/AAP+4IBVjpJ/EpwqffiEOE9zMR43wwzYkdOMu77ReU9pR92Uwan2dO556Jj4af3mYlj/ACh7HmW6JoTB4b+WGWNQfy930GlkacJoNobV12lkXh5OuoxplyY9iUtry/8ACYAjYNiWhvUAAKDWCf8AmE0MQsXYXpiCv2/tLpIzYvL4dF/BA4i7MT9t/wBT9z/1P3b/AFKv7f7R5wlMI93Q/r613h7kW0cWV+XTK5+zNZAQ94EfZmI8nWfdAhLYYuD+EIayGHk3C23aqf8AO8QK46NQHj0NMTVwCgnHvAlJ0H0IkRFxRsyapiCNGlMd+zn8wF9Dk/8ASfsA/M/cD+Zfv7z/ALndvuzu/wB/9p3f7/7Q7v7/AO0O8+7/ALh3n3f9zzPuy/dH9itIonszzs52d8bZfJQQ0e60RQ267saqB8TbCn9nMZMzOaKPK+kENBcl8+0JQdhnWBjRcqYfpwtZrjP900L4empSNJpmdNHZ9XKEH0/zlOj7Ef7itFHfmNF7docFKHmNZ899bfl9IfG/IGZ0ZrgBLPiFMxceYfQK+N8rWfgnE4GEe8TDImG4ovbEu396KVE8uYJfHY7hBJ0CBswJfsyppRrYz30TkN7c/eKsKOi+8Enn+nr1EEFkwTT35+BKORFQBQY3cAtWdbjgg038P5SrzKN4guPk6JBFDnLUZQMrgi2Qfclze+0KFsa8I+e8PjL2I42X+/uyo3IDA/tl1kHY67dQewcz78Eqh94h6t6MO0713jcAMIUxFZ7JXtEr4dTUbzVQYWwdrxAf8YyMaGOgUPa57d4CYQGNp1iKAUBa1cwXJUmIXY8wGOkYBw3ycwuYs7I5u/EMBdKxd9g5jdQGNIR9wczmMdDgynau8sKSg8jxLRCy7vmUJxbztLM2oOA5TgOYH+ej/WcHr0op2ZuSaX8Sy3tyyEcDA+YPuCqF+00RyVFFgLeOJo1+61Krw8w21uPyKcxgC7+cmyFHLa06cx4YUlt93dxR+alB279mFKM770QoLA5Zr8RDaXdbiRmOhtJp4jJMi0Yi7EcKyy7IL9wevup5xW2djsO36MEHTFOTlTBhjtAyp2uMcxdYKnITyRN5twn7/wCGooe1VcGO99+mwiNDTG65fMHaH5e0IOgTKFGLieV2OCEcJv8AqoBdGx+D/ZCSDutrutr+qR8WUyezsmSgcZD2Dn7xdqP/ALkYtZOzh/MA8GSE7sbGU7H3g3+kS43ur6/LRElvv/xEq++fwXb4/XmV7hpvvcv4WfvL+5bvj/nmLX3hVfu3AKAHY/yymWC9gLZdwWsE21r/AMmEF+KWM2SFoHwWgHHN2gVBGCvQLkHcdlRV7xZfunzJHSzQEOTS3ROKWvzKaTsy72dJj3hKLyJmLN4APFtNuJ8utQ5kzJLa6q7TOHmoupNndjljUyARxKLO7qY7JPoregh1NLfE73XxPmI2NWgIX2luicU4/MLn8bC915rmp82R2s0BC0y2R7Utfmf3BGgcteCKfuRfzLKJbbx3Fbw3ggRTsoHhFhigwXV1L9ruFhnWq1iHvxNEcoFOuB7x421eZ1Td54hNYwM+Vk03s2e6jTitRcq6MimQvWYk1jDS9UukNviVnN04xoO1aqaBX8cqbdxlGEHxtM3gcy/PfgLr3mzPLcga0ViW56radZOe0Z1jhVaFvnMsZNRTV5d5LgY+MN0qoByL4iEioMd3dLnfwNA42pjRbviBkc21AaNfkzacruLqctY01Oe5Gz7K90Sd53FTfag5lBdvEwn0RgDpKrMHYmxuxw5gnCXVwywriCyNS5ihe0PxcTmNXjTEn343QVhS9poF+xgyObaiEioMd3dLnfwNA42pjDJuxUyObxKsh4yDKlY+Y4j3YVeLpDzVDFDWHeVlG2ntScUGK6upfvVQgI71WoQvtmo/eU7LA9+8p7Vk9tdrxFpVIch1NJdSk+eJyzc0EByJQj7Bhr3ibslb4VZbLdrxCbnenNtd4Z5gnymLlAiICKzuGnH6540Ci8r5uENkIPj0eza4R4vtMB1rgEc01faE1jAz5WTTezZ7qNOK1G4jgAwbFyxqe2rCr3e2KVCa0ecdAvEfYHjNzeNRgcAtXbHae0w4fIItd7iDfSAUF/4xTLBewFsu4LWCba1/5DapaobcIUxXgtFpLBGgTQbkJ8XLaVOJQYXfciU6rKK3FFJgVYQS+YbXMxHjUOWCoiGLPHIPvlMhxh0v+GUgq2p3JnMYmsDaDR7zEqalzq7HDLKM7heEPGWrjdAgC1fysBGYBYmTeKXzUy/ALfWqeEdaPYYnuA8IrWmC5SxHIYTepajaTOXMw43paN3R2UajHesi2CW8fvMxJFkirPedwH/Bnkasw8cgULp4DoHcSiKMu2XUXE8ifa/1Et7A8p1NJdSk+eJyzc0EqeOoLDg9oJDjPKXPYPCPQGcgcKVn4hRXjQoVx+UsixJvPAXqBrRSE1Rj71Lrp1hbZwFZmzPLcga0ViW56radZOe0RcHAmFwvNXCQQKYRDhj2Z0urCrtCmOe823BWsx7FKyghZVrBaUr7R15fSIfkplFY0UcMF/iEh7SeUHzlMxwh2P8ApmLUc48gP9dEBrsuzvDhcqScqugG1e4bxzNh/qEsp/EgQBi6uPRztHwVVbqPIlJRWdmK7Rv9bQUi5b5+8KPsKD1cDi0y41pYF3T3XxKTUQbFSFrmX4aWlLAKq/uSn354ZGXkJiSAhtvK3/H/AMd//9oACAECAwE/If8ALjZeW6DJP1wuihD1pUYxZMfrgnfBOzAvqGz0WI/cfrALlcErgOOe7qfuicwGcJqW9AZlP6HuSmEOlV0A1uWbitxKFvrK3PJPdGGJco/QQQh1o10PPeUFz4kW/RugnXKeqehCHS4qIHBKHmXu4+sClSUvqCEIfQ9V/TUFV8dBzelUwWemQhCHRaOiSVuXEK3wRtulFu8NXQUYdSlvj0nXrTqWgh2pQhaxD2lmsB3uJgx9FlK+msfQLY6PRWty6uUVKbWWimU95nvDvQI+aF1tiO5fd/EBOZZuYPQLh3ynQTEIDD6OSXPoZNmLV2Kgj7n9+Zgb56UF9bD6NOiX9NV9K9S/Xc/W9lCj0EjFbP8AmC0h7Otz0qJcdKnrp0slkRXTf67TpZFDF+tq2z2lHwAg/RUdaOlx106HMqV0GDfSrpVl6VEdiDRuLfoLLpSrp2f19BzKwA64ZSEvHQKlJSUlJt0cgZSYlIHEFkyvB6JF6TXkzL+uTFfqLpAlmViO3UY+ppUPdlfSw+pQYdPgfoAUfSclcPQNwkzsg+oYQZQ7h2pZDbfWjK+t+qFShplpwYaY1CLvUAWa6qEJcGDLmYItQCWahGQQR4i+Ol8SX+hCrvmHwQwD8IYYqiqnd0CWK9Em2TcLIyS94EKx5cc9AAzbkgV6Au5aFKw4RYthKHLlXtOAkeixFrosW/0A/GqNoJY4cS7VjzEhgt7TPrShuKn9rmPlc95QxFpeowbFOPHiKFwvjxMmJs6/h0vo5YQO7UYW/wBIYKMB0GbIV6ItYW3L6X9UATOP6wSRfRpKhA1Gb/X39Av/ADAU8glo+IYXBBL1qo7nRFXXeWRqNlyEUaihe4KCRxLZbkqW8XFfBFXXeW8XHc6Iq67y3i4oXFaRAvcxkSaoqaxzFVES9RFrkm3E2OzNYiveKl9K5PEDhKCO8aKXzKWRloV3UoeCX+UBaFVkZjr+iURaKcgXUTK7h5GIV4UoeCFaFd1KFO0KCy94g+EQG5nIs3ZUHBqUu3ChrHeZX2gM94imsMQW4YS7cWHv+utX6VTGtkLiJeoi1yQ82k9irlVBU5EU92X8SufPQKeQS9KEuxRLvCAQEDWi4iBKiFAQTJphUriIMlQg0d5TarWE6S1cIy4OIgQBNwu8JkFFzRwsLEIiiczR4dCXMsXZCwax3mV9o9ncnZ5iIUqmJ90oLqb9krk8QOEqeE3YFveBQ1As01G2N3ELEguDRCpXMoZb6D+UxN0kRvxuaN3cz4eJo9oNY5h+9mUU1KgzcKbuIBWiILbsf/jv/9oACAEDAwE/If8AL06Kysp+vuMZ6NEuXCMtQ/WL0O6ana6DKgzBntB/VvQaajDkdbIw1nclegwf0K/XWyiBRAb+tlvRf6FRV9Pc6ae0c7kr1Bl+q9F+hVGbYX9uivruIPqMX6gP1PDo6j0n9EETAp0pVkB6PMtuWy3Mt9Ln02P0umWSxiiEsIU1AOfoKv6RrDmVlZRKQEpKSkohRKRCGJX1gQn0KB6BcgqGHmKei6j9D0D6RehFROi6rD0b4L1egdQ9X6D63odd+hZKj6V9I9XofWPRepZv0uz6GVA6pKh0SVKlSuqdFdK6LgeiFyvRPj1EuKe0IOh0HpUhs+pidb/VVsIYHqLb0JX1J11FSvcB+u4/QD1CDUQ6ivoY/UPotOhlmP0D1whBmC416qVLGuplylfU1O5HobQP0ZeK6EQtMJpM0ocxlZiThisQYinH0EcscQ/TrxXRJZldKi+lb/XFfQD0uVf+DVK/zIt33jSOdQaMwSmVqZE0gYXj1RXvKxrK1KymUqVhdgVCKiDeZgzKRhAX1MeYQ0a6aRa3G8MM2hpIJcWlLbKlNBEuhBnmFmOl4IN4qogVU1aUtsEuLSltiYIkigbxLiDOI0huhEpdxwImDLKWnQD9ds9IXMnDGEBfQ2i3uLqF+m+HQW77zknNFRMGo9zBAvcE5uWR5oljoLtLHtFUbbh8wbGNQjYJy2x77QOUuWT3dG1iUGmVTzHAnCf0gYY2CWMRt79GkWtzKdIbhQ3uaWJpWoIxUo3DmyWddYq1XASDNtdAbjXG+E5bIcvBBCoF33laK/8Ajv/aAAwDAQACEQMRAAAQkkkkkkkkkkkkkkkkkkkkkkkkkkkjGZ8kkkkkkkkkkkkkkwKeumEkkkkkkkkkkkkh9eNNTgkkkkkkkkkkkk21VXKPkkklkkkkkkkkFFBZBcgEA2F1kkkkkkkpfQtnFkgAg+ackkkkkmE1BZoEkgmAk3Okkkkkl4QXewnUsgQkkckkkkkMmccVADNyAEEklkkkkkskByPMQntAgskzkkkkzHeIbTG9c0F1kkNkkklqsDZkh470nMHcmkkkkBijW78Bfcnukn8fUkknuklZLkhYAmm4LIykkkjckNqVqnsDEjbMzkkkkkUkHY60GC2EjmukkkkkDEkm643AEkgjQUUkkkkzlknu5FegAidwbkkkkklyLkbUvcQl2XhWkkkkkkAKTjsVeRMmGA8kkkkkkizs9tB8jaMMnkkkkkkkkkmgfWxEE7bUkkkkkkkkkkkkxoy4JMkkkkkkkkkkkkkkn+5kkkkkkkkkkkkkkkkkkkkkkkkkkk+WtTGJq4+6XRzJwfHgT0ZTJH26kubJMGNkPfbEkkkkkkkkkkkkkkDkkkkbfBkxPxZEHIj9cnrCD07Pn/iel+l7s8/vn2AgMkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk//9oACAEBAwE/EP8ALETOwgPK4h9dzq12LytH+Wfkz/z0Jc+QzKobQfmAH5ndC1ZvvTj9cdshAK9AP5QGACDm13g9tECbGLhssXgRXTVVpRyLewiJS0ql0ZLUBw5vBAZ00AQ7gGLJ32bEqMy4MyCV9mJBEpA4FHKPeKDn5cqBEEbHSfqSCvb0D+3wRUCYWc7+7+pM24QF7svXGq1j86ho022Y9kBEhpqQqgo0R3x7Mw1Q7+YtRyqM91WI2hHKhE3ZuKGFthTECvyM2vdJo0OChdCq624h4Dl4kwtZ7BGKET3mcO5o+O0yn7DP09ZsYDPHDlirpwEjwAsL5ZjiVpKBrRC9qHLD2NT7NobJxxBy6jIS0FM1GjbSnsEgAoogQt+Y0KilSg5q1949LSS0vYqHz0XWJQ8Qqmtx66kxB07u+wxH48Zqn+cS7cuuPm30x5T5gUacN3N15Pouht7IYj8TOAATF5oD/wA3H6Bp5XKPAeXRKAEgwGxcv7ziCB+goN7uyrxCAMdoZVStEwmR7PeUAvTS+1sTY+xiYnENr9ufmHAwRCwX4GIjLitq2+zjxAuU0C+PgKa6No9YnaPjo0G917A94Mqil0olMmzb3gx8ou/lHbjzR8RUYBBnqNS/EupLPd7V5D/coDb1sx9rw8mfXO4Yql675P5Ys27VO03tAQFHMKiDUroBVoCr4Al7QMBQacFkFyS7PeWMRk+HqgwjhbZTH5KtIFgcw1R2fEGnQ3UDn4owKtoPPVLm+BULPiMTT64TkfDE+w5OR5H2lkCBkri8G3Y75jIFPscqKIDsThb3V/iIqwYrh9Il/tFTH8FBb59UGWH2cH8Ko8sUde7/ALDoZUAlNVBKxH/7R94psO0ebgGpgWbuuY7MtxGVLP3UpBBlTBUPwSnByiwzQMZZjwHFfXBMSCuL1DyzaJLVcvx/66Uc5Gfksb+SDYFBOXggHcZg4VY2VHCDfAlWVtIsYe8Xw2epYbYRvSPzMpULW3p6sTFcAFy8YaZrAbtYYDsOSMgYBQaA0ESmveOd6V9vFWBdF7Zm6JtJMvQrPQiag7vVk6rs5iIoFsGtXmmH7QgY3E7Jkgt3i9hgff6D6KaNpFvdX3R9V2RJ2/Cfn003MIp4XyNozLa5XK5X5ZWk0d2FRRBC5RkM7U/iAQKBtjRVvcmDA1rZe18BLl3wYOy+Z4lhHrG9NIr9mYDKI1m5vs86jVx8xaAlVZjs+CiPwthiVaUoixyFOVrn7EVhqiYndTI8MHCIguwuLtppj34jj/7CKuZ1cILxh+R9DL9cUzsW/i4ekZ6d2W8fhgAWRY0zRUZU1LghhcrJWH/URn68anwZuIOdbtS7aPmC3AZheZUYADKoLWQpBrmHOKtDCYbLJxD5E5w4TgsyTsjnIyDJp8o3RU2BoeEqeBzofYqVytXG0KYpCyobA3Kw8RIigwchje0fHMyMivPOr6BYFtPaHywmXiSyUsL5bj29FEgGVcEsFElLPcGXxAkus2wOtzTKMZhU/FsFv6IRYHzRQu0cRgUxOgMraIS4dmSAgUbyOUETc5i50pAtK2Cte6xSM0YkNMiRRCqyhW6GnCajmEK2qrfvOLPrtHWGrvCFLoUFtZn4RdGqARZCAjx7Qr72o8Acq9jMO6JLDrkLR5si4BpQPlrFnNE80ZvBe1/yjrJiIQ4CBez5lVmcaTVIGXjP0Xj0sNDPvnM7VFCVAUAy3zT7j6GH3IrAUlFF8mRMC8XcPIFzhcArCZ7NKkeOmcYt1gOz/suKB4INLJa8Ja0mT9+nwsESzI6foKaFncnOcuCNOGeOjVwXcAZS3ILlggt5wQSOiMC1fYJbSC2K0AYa7X4ItrR4gkqLWOdMDWSpX1hAYe6qPkRtSgwEXWYwyJhhaCx5jdXMsPJcthHFdcmqsaasXzzKGMoKwLYR8H2d0ACjX1lm6Y28xwC0cVbfeWBTRAhsgAU7aXT3OiSILPgfDZ7S81TKKLT7rGDp7Kw39j7oV9kQrWGsFNANDDdTEi7DgmT2LeRi0LvxDxseSugXvBukIg6Wke3Twby8NGVUB7wi/iEG6H8DCBDVV9ipz2G6p/gYI4BZoCjpVRWxrVK+FPxKHw1EfQAngX5PSgcWsY1n8x0QXUrLKuzsNvy4IJdmtD+V2v1qsy6vm6ckQYEOw2l2r2g6oih4bqGkGAaA65ltR2MF8lfBFxcspCCcDJeF7i32UuThTKrgiWRKhi2Rfh3oHz3hnjM8IWJ7nULV7kNhOrCDCLjoeonjqGtFiPIk99AihLfF3FaMK9FvOyoMYWkGQwjBZ4YCxNQ5HYZnDYMfugQGpdvyG4Xla7QAA4IzRS2aCB5t+2V5IXi78G7XxMS8CRDfPf8ArbiVg/P902m1fQG/eR7tuEi0u2ELKI2zaD2Hnqy5xjpRArV3zUBZUylivL3wjj4I8RLxHvCawAagwcT9hf1EZ/cqmWtNodmKFkmZn1l4miS38FdLUyngIhRHp+VdPjovzMViK83KABA5E6UUWhijdbi/h+Kh4A3CjyRfBcACORa7WI/cgBXrKHuESCTgNj+43DHjDlGzF+6r7RuJqC3xyFfj+IWoIu7wv8PNdoC6RATAAwegSTKLsuVWRRYaMIB4Az9B/H6IWFew7ylbHFklNJ7EqW4zyn8qIDJO8dyrgTjPKGUAex/HQxlG1Xd/5jG/efMIBhJNBjLXRh93NNeq2P7Nyn/Y/wC5WnGRrhBKY9TTexWUNV1REA1QGsGUOo7eYVZZ7MxguwD7FIJj+ZjfjGCBI0oqVwWS+x6VUp7lK4IWMVikTYQutx1bAlmz6cBGQFBVfBlKFOGFhXPEWWVYTC7nW/JBSxs8Zi/9lEp6BUZ6J5wM13HygmZoNroPMCKGh28oHdHC02sr/UFl9j+5SBCc5KF8G2Cjjb3D+QfSY1bYHYIwV8S1NJFb1t9gcR8sufYOr9/oOQqXIf0z3qJSanSIMIniOjK6eSAgNjzLcjLoHw/1F9qTP7EQVchkdyL0b8EOH56Xnid4ecHvcU8y5EvLe5gfLKkFofxgXxmObyZQ38or38W/mXWrg3Ndm5hcBfbi979S1ciRaviUv8lJr3eblcQmYUK5hoV6KpKa5hsjaTqtZ4Byuoabfb3SjejpjINrjZLm6fsQKzC7wNRiUQLuBmZ22B3VoisSaWVb2mYWBhWG4ggoBS2xY7xqH2CuC0ByY7QbLYnB5lc0AxPe/J74mKJ0FE8ktsHcoASEMJ2atp5YDI1eArPddr6qCgc+jkHyg8eAgAHmONExMHO5UgoojWQYihg0WmGKLQUKLYzEH0GsekSINaZxasLTlw8wJa1Ye0rJfmUH1StrCwzxUsQKJXmRsUcEIscd+8yJOvFRSYCf8jjU5CLU0rQ4jSCoqhG8lrIVdyAKPF4urmnTGmja7p2QwvQFgaeLKqqMnDRT5zKp3KGl1D/MaOSjkYePiOAMq+JUo5SPwxPlItL2BZUfYrsKpccmr+712g12Fn5lZyLB2nCuFzOK3Wa3Uf8AWt5nMXbsrq03atQUM5PCHmNdMlWL/kVmhuhVEuu37oDFe+5Kvr21VEcA6aI0G3eYjyOeLACgoxnyCRZhF7UqxjpHDyDVpug+5NGZ9zwZWv2kMVdM0beZZLval92VTMOIdBBAPmqLqMcq9oZ9+YOSg4wctRE9Ij8bV9onVKbQ9p4525eIuKoI6FnzTXyc/owDsET3gPLQ+2nQXFLgsppivaGOHNrvFdzELShnKKRMNxeVt63t757vsjOHoVGjw5EbloW35jJ2CbSI2IkomEtvK3eZigAPAHMeSeSU7y6CynRZNfnXj2CF1531BxQZVe0qCIDG5yavf7JVh93VKv5Xd/VN0BpX9zpPZhDVrbZfBvgyzqEpvrnKnyQVUjv+MoxPbFOz3Iox3lX2ZWsdbKSnPths8rB+kakD97cpQY6G7MUnywsoyqCPNkr4j9fVEtmVz5S4fkXn+AopH0iV2b9ojyLIftgoLK9AB9j/ACwm0l0snwEQLVSpSbWm0x+cbCjGynIKw1cquNVoNKFgGKhf8DOU4WNv5lulfg2JiSNgdO42oQ0D3XAPMBGYLmDcU04YiK/S8AGPXKCYwwBhJQhoL093FWQwrVLwF5vUXOMFTLVAWhaYgvQKtsrHYMN6zCC/vqhLdWiMImDnoxWKQxPOndRBjkX2hVG772TRy25+ybe0bvJaoGswixwiC2bamnCADKwmxXNiIphq5UKEUD3XANZjN2JRDVtw3T2SsYVVrJaBb2FTOrMxH1RBFxiGM0xa22Y0OZkA96NzGOBLug2d5kbiPRKOys9o21ICrsiwMsK4IXtaFgCpT3VO1waqsaJlIFiyQQoALReTIGUJouejQK1WWCM3DXcjAFrjEWu5RfOZo0F3NuABvlBJ2ImLcLzMGPdBobFX3iBCcANVKDcE+wTmfBuuze5QDJzSt5cDJ7xGBaCmIBVRShCx+vyAQGXN1yQHABw0JSwEWmeZbwhXXdecAbIzm+rHMFFXmyIyTSbFDwOfPiCtSmpDOCjRvLKlSVWxHBsaq5ci1a+UhHSomKOWDiUk++X/AJHBByWD3lVkMDPPtKVNsQrgDkt7blaK/wBWpZgslDiqbfo6NjDcQbvbtkoUNw947dZFhsShZ85jLEkhBsjgw34l90NqCzgo0byxnN9WOYKavOIjJNJsUPA58+IzNA2N5wKtHlj1Y6EyzsTmC1nBUlQFXOrhDFPCCEWsSd6qHF1FzAzt2wnnGszE3IeiFdlZ7xLvTHVYYVyL7xLgNiBEKmHlTlqEL2XXCioC1PB7J5GJmYDkE6zC32lBRXcBnXMsyTKWC6pb0PnUQWYZ1g3LDN7DHEzicyNKUZa+ccy+XqoAi+y2q7HwOYCGpciz2D+ux6lKWoFR+IiCiHaAM/b0fy+eXgcrzLpJ2YRUJqt826MiFABaLyZAyhNFz0aBWqywRm47nba8IB8O9wqtuo7td3m2r5j/ANRnINlPeuCokybUHCyMt3cKuqCB7qrQts/kRCNlKeKRgvxCXvsJuuW12vTqCbSXSyfARAtVKlJtabTH5y80xJkKAVne4mOoC1qLscDepZnSCCUkyIaJzUp/PVPWNVlr3iR5aooiA50SuBlU4UtnEcEtAeZhwsHFNFf3CesnBlQqjIL5Kdx46Rd2d+C32ZxVlzfc801ZFOwC75q40BMaQI3dFRQtGYsSOen+DUN2fOBDs+A0HF3HiD+gtKNub75uU0mHSBCtXyEQ+hu+LApYaLgi0ukFVZZeEVl4WiWKKH3Iyyc9PIzIVBbuvscUJX3iBITar9ASA8ckCQ9YTL+4V3atZRfwP7Uk52dls4OotOT2BBsclVXS7i9RpMCNB495gDpeLBna4HBFKEZdmPIJ1mFvtKCiu4DOuYbNpMkWZnj7xHNQDe2koXm1w21jBAksXiM63lSzHZV5hpMoLB3QSWs5bNQvfRRNhB70xNuZfGr14KWLlTolAMnNK3lwMnvEYFoKYgFVFKEQ2R96134XqHPJlAaDkRl4ACgQwWOOEMojAd9rN3TSTDVZDtx7DKDbHlevtEXxL1DE5cJUoou0PymNHLQLLKVwVzFqrV06/JK6M5umpQ4sUGqZlrVrWtA9HuDmoeRSuWrhKUhSFAA7nZxySwM00AC5KLat06vECUJEiwKOXt8EfVBdjGltbqsQ1YiFcdA3Y0i1O5avsAcZELW3CcNgyJgxW7uzPEAVV8IsTKZA4mF8YLqEu9nRQCGebyaxCXDK0lTQOc8w3EiAe6oNve5Nv8LRd1nV/wCJ/9oACAECAwE/EP8AL6Ih12BxEN/rkaIq1t/e4TbvxEe8A1UISRKxHQ2RS8a/VgsO63/EwWoAFGojxmZ707QAKIwNtdpcUucfxzDViz93Kchj9WyogCpaijtMxUpA+yL0RrcWsPtAXFJ3jt4e6Gbz1KiV9FxGK/H6CoBnlBkQdAaFS5YmUMi0ZYd4rxPEH1lcGW6hLqLW6hmmO6fXryw2CGEuVi45qEzN2c+0dFCGqW8RVa2+iSy0ShQwpgCmb31bWBxBUEMYlRq4ZCxv3hhee2KKhmL1g9AF19NwWmDUz2L1KiCugw68AJX0CdRi4ugl8PpVDL3x6Zth6hjCReIHdMNece0AcB3Quydo3Q6ecRSdztcKqOGd7KYIZelt9vTGYEIIIzmBEYFAMN8xFNodW3DB9tsLc/CdiEtMxV3BpuXyyfpvlx9FATC9/RMKqCMVyYvJ7kz+cvjOvjoVAYB/wQT/AMErV/gipv8AEAVcUbtC7bpQ214J+wQopk+CWbWfYlmqvt0RURnaHTOAs0WYZL6OdMIaPQVgwGtjKBNQc33lH7T412gFwO5vplHPX34+jR7dDoOtLbcC4R89L1QX7hjz0KqdUqg+gFwl1fMt0wM793vGChml4feX0xXTNcz3A6aTT10e3RLknmJe5NdDj7xi4j0WHQ5+3R3RKkbiLb9dlDPPceSI6Wp7vaUNxeuU5eiDuAa6Y7nro9ujX95aW7dKG4Is6MrNQInQYnliuNdIBFb6GM5zux/18QF7egNPL43HqTlqeUjCnMtlwXJyTzkyC30pMmp5yecnnJ5ybOml1G+IJpJfhEtpAdzGIgIrfoXCq1X7yhGbTO4pc/ShIBKQcPHSutSpUqV1YuK8ftfaIcAIiCUEVaNelfJTLv8A+e8N14mC6vnHb6qHpKFJTqOsZUZfpMqB3uLF6Ctv0hYtFPswTpNvKwMEvhM3/wBlORRavxz9BuD0F0ENC4QwJbGg8x+vqXNGQVblixYxweo/EmlLr4hbkInP75ldqcTeOz7RkD3XiveGEtc9eDoUOoSLIACuiXaHvmWo4JQWdmuH+ZXjgB4e/mfK/eLlVQwsuVEW31QBXAQe17ipfgJYCic0zftKHVawTXvHxaWWQz/g695qVUGs4+faF2mizUNEsbSPBZdGWWqqXUNACHgrh4/jvGqrAnJ2oPMe0Kwo/K8EQBLlaD94fTgV2/qBSLIFv3Xut7h2DTWKvv0KsMWy5WS9641ECLf/AKe9YjbRKWm+Oub5jiCjWVWcn75id7GOYE3Y0A3bliXeae8RjYcsvBGtkxSICFPDs8QzAd9HsarcCRTl3ld+3c7Qau3MeoIwJju/P4jXBR4gjUJkVORGq9EIj/pFCPgB0yqE1/X2mwiETDRF7v7x0WO+lBvh+gLYDiDuxBMEVd/qhToCwhpKjRbtFd4gGjoLf14iWlpaL/y4W0RZQpNx2HCK5yrqUfXGP7jWns5gOR3GAOHY8TYrXr/cyJA/uoMwVlYIPHExlQXjmAIPH8RKoWcxVAfZOG/BeYSqgcsAcOx4mVLo4vMByO4wJw7HibwUOLzM7CeIMoWnGIgCU3UoIrCp94CdIsgkiKbDZACS2r5izSF7F0DLeIssTuSnveO3vDCiU3XEJ2Ae8rNQ5DGUbapfMNxMMdoVUL2RIqVglqvGYxWAPPMEWDbLxK53iHuTDjMW+NMN1/yIxeXHKEQAKvvAUnj+IaAK+9SoRq97iSkf3+0dAgrnmCLBtl4lyvGYxWAPPMFWjbLxANfDAqvP/EKK4wjpQvFZlBFaXPvDPAVDYhsQ7wKGYp/0l7qQstXZeptK2VLVSjjjUsQNlFcwKrz/ANfrlqRbb9HLUPvArRaKgBJbV8xZpChYId9eZfnoX/3tC5TXv7+04IsP96lDfscxIaUmzmNOx+2veBbRFlCk3BQ9ysy40KeIObTLCYocQiGoVS/aOGg7xg0FysFnCKAFxUFsOt+6UI/pJgNDsxiqPKFHFSAyGqYpjA192EpMDHzqGDbGcQHXlEfqNbWLEoWSAA0af76XV4Ilz78Ctng/6S91ICmQ7kUHYub1eggWx48ywjvEUwSJit/LCqbLVw5DGUbapfMG2ZP8RX7zGSpVVeJXk5kooo8wJRV73HBQ94waCpeijlFRJcV0C5eYoDae02oaU7xDMJfaJTsNMuuNoIw22t+0UEdN/EMG0M5giQDdwvUdzTLVW24gtRg/+O//2gAIAQMDAT8Q/wAultiDqB3II6/XIN9E0cQJEzuKlpQ5iGmDL1nf6tZhh4LYjmFIw1PvKyq6CaM7y0tw7/VoMw78wRQtisXClrEro2eiDWGKoZnaVx46v0qiWH6GzUtxGMqKu5UbJ1CNG2NQty5T608TwT2RKQag36/D0DF6334RicItaid1wBr0ViMqUQD6rol5tiOYxhAV1ENmY6ilVcB9BfqSBVksPUeZZGPQOg11n6VqCPd0Z+49IWRZ9NYuIxjCBWu8TrEOCawZih80Fs6X07RvhcUmk3KlO/SPTPE26MYQ7GJZWZziANs0MSEnhEyDMqVKmYv6bzX0LBb6IQKLMwrFRgjPHPH+YnNTxxduodqIOiDQTx/liMJqIFESh0uIl5aXgMW7Po4JUehnOZZocxRXmNx04OtT9G3QUlJTrc9O5KyvpwdaCG230CCG8VMyGeqo6XMFPS467dKZTA30ddDfXXpv0WoCvHoBa4Pm+mxroKRV6VPXbpp9KU9LunH0GbgEByYHoKIOpnAWfQqJeLfXPiXjaz0S5eXlpbqDFS0plod0SYJbl9FVRL9vqD0bmX1BimJ04ENBtgsDME5PSNrvMuC/qOJVEmTJAPnpXptjgm52Jc2w9I3ca5gkEl6vodROgkSC5DE7WamUFx9aCYqjTBG2Bco9RA5iLaCMXAOIlNPURRIkSJKmJeiI10HLhlVR0Fob616/4hLloiKxqVLmXqihXolXUfBlF3RuqtcyoFDxGyc9oCjoifeUrO5jeyJsV0OUsa6gV+gX4IEcqsvPSgFzKaZJvbuO1tL4VXKGoQla8whZdc+Y22oYaV0rpgZnDgDRt6YV+kd30GIcwJbClvEeoCV9DguJtMfeHd+sZYYLGCyyPbFLMICv19Suikr/AC61mGDcKGg7wDuVLCggu/eAq2wZPaARpqoVFCxgvBDVUj5gZC8cxKFjLioQ2sTPA13hKtsGT2mpprvAVbYIntNSjTDopHzDNzXmEtUlyyYNarlLdiDIUlwhqlqEODKVdMojQ2S28AtIlw0o3LjcTmdxVLirW4nCQqFKjcShUDiWJKlFWS2HiAIOszGDiWB4d5VaLAguYNbH/kKw0dpkRcRuFicSpRVkShUDiWJElFXHrqJR8f7imc3EAF8yyINSrjPe1jwCVFsbdpUAO4BKuuajaHJzDEskTQBMxrPj/X64jTAr0aVXUFSlG4Q1S1CHBi4odynfdajtmOPp/wCQLVo5gLMNMNE1+8xazDBuFGBCysLLZNbtiUbcYoQjILBtlbEsOyPTFcHFNnNxcRvtalyLQibbe8JpaGG3MRY8wQNpcQI7jTiI5tYgtlPaFkykuo7PHQWDcOogtL27SoAdwuQaYC34htcYMoo41AApYcxsvWEjcTmdxVE+SavaKQYCC7QthtCkBBtlZGC7MemaoPKUc30Ro+JaKhmsXnUKVKEOmzmaScwivjEJlq1RozEdwWEwB7RnbCINoonP/wAd/9k= + + + iVBORw0KGgoAAAANSUhEUgAACDAAAAGSCAYAAAAfYqOTAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AACQPklEQVR4Xu3dB5RtRbXu8QMcMkgQkCSioCIGQOGIAcUA8kS9iIgYMAcMYM7hHhUVEyImEFHUVkFRMWNCzCBKMCAooqBIFAQRkHTfN9kcd6/eX3ev7q6qvcLfMX7jjVeX01Vrrqrae6+aq2rR//3f/wEAAAAAAAAAAAAAAIyVLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRaWtGjJUgAAAAAAAAAAgDZYTTaTHWQ3eYq8UF4r75APyaflK3Ki/EROl9/JX+QC+eetrpP/QzE3yLLYh/Mk7kk4U+I+/VLivn1bjpPPyVHyQXmvLJWXyrNlH9ldHizbyO1ldXH9pnfcmiAA1GELS3KTGgAAAAAAAAAAQEEryOaykzxRXiXvly/KyRKL3deIWxgHJvuP/F1+Kz+Sz8sHJJJcniGR+HIvWUdcX+wEtyYIAHXYwpLcpAYAAAAAAAAAAJDBxrKr7C+RoPB1OUuuF7cYDeQUO0HEzg9floMldvPYWdYX139bw60JAkAdtjAHTVY/FTc5o+pa2UhGJnugoZaXM8T1ZwwwrtN5ibgYA2in2IrRjXU0SzxMcfcP6Jqp28j+WuJBYmz5+y2Jt6Y+LofIm+UV8jR5lNxP7iK3FTeOAKCOJeLmJ6QR83o8w3CxB9BNK0kc87CfxPb/cSzA5eLmCKCJLpXot5HYEMdV3ElcX28kt1YIAHXYwhw0WT1I3ASMUfFlamSyBxoqtrxy/RhDB4mLHeaOBAagW0hgaAcSGIC5iTf3zpefy7ESv+9eI3tLPEAnyQHAdGKLaTevIJ2nios9gG7YUp4ssVX/SRLb+Lu5AGizSGqI5ynxnPQespy48TB2bq0QAOqwhblowoq3VtyEi6p44HUHGZnwgYZZTS4Q148xEIs+a4uLH+aOBAagW0hgaAcSGID0rpLT5Gh5kzxO7i4rihuHALrv0eLmC6QVO+zEG9nuHgBon3iG/nQ5SmJ8u3EPdN3F8mnZS9YQN1bGwq0TAkAdtjAXTVjbiZtgMSq+dI1M+EDDvFFc/8VQvG3nYof5IYEB6BYSGNqBBAagnBvkVDlCYqvj2LFhZXFjE0B3LJbfiZsXkN6Lxd0HAM0X8+XO8l45W9wYB/rsOvmaPEXi5UM3jopx64QAUIctzEmT1jHiJlZU3Sh3k5FJH2iIDeVqcf0XAxfKquLih/khgQHoFhIY2oEEBmC84iFkbCv/NtlNbiNurAJor2eJG//II7beXlPcvQDQPJHM+Vj5jFwublwDGPUv+bjsJG5sZefWCAGgDluYkyatu0gszrsJFVWfl5FJH2iIw8T1Www9T1zsMH8kMADdQgJDO5DAADRL/J6OhIbXy72lsWfeAqglkt45mrG8N4u7HwCaYXmJnRZiV6orxI1jAPXF8XVPlaLHKLk1QgCowxbmpokrvni4SRSj4tiNkYkfGLOthUSkmZ0jsa2dix/mjwQGoFtIYGgHEhiAZrtIIrn4YRIP+904BtBckYzkxjbyih0lNxB3TwCMT4zLmBfPFzd2ASzM3yWerxbZNditDwJAHbYwN01ct5drxU2gqPqmjEz8wJh9XVx/xdATxMUOC0MCA9AtJDC0AwkMQHvEA8lDhUR4oB3WkyvFjWfkF/Oluy8Ayru/xBER14sbrwDSiiSh50rWF/Dc+iAA1GELS9DkdbC4iROjHiAjkz8wJvFml+unGDpV2Mo3DxIYgG4hgaEdSGAA2ulXEg8lOecdaK5YQHfjF2XEQumdxN0bAGXEc8YTxY1RAPn9RrKtP7m1QQCowxaWoMkrssyvEjdpoiq+xI1M/sAYxJa0sTjv+imGHiEuflg4EhiAbiGBoR1IYADaLcbwO2RDcWMcwHhsIbxpPH4T4u4PgLzi2dlJ4sYlgPI+JmuLG6/z5tYGAaAOW1iKJrCl4iZLjGJBFE2wr7j+iaEfiIsd0iCBAegWEhjagQQGoBuuk8NkY3FjHUBZR4sbqyjrZtlG3D0CkN7d5dvixiOA8TpPku7G4NYFAaAOW1iKJrA15DJxkyWqThG2pMc4rSp/Fdc/MbSjuPghDRIYgG4hgaEdSGAAuuUaOVDWEjfmAeS3vbjxifH4hrj7BCCd28pH5EZx4xBAM8QYfaMkWYty64IAUIctLEmT2EvFTZQYtYeMfAgAhbxOXL/E0JfFxQ7pkMAAdAsJDO1AAgPQTZfIE8WNewB5nSBuXGJ8HiTuXgFYuHimfZG4sQegmY6R1cSN6drcmiAA1GELS9IkFm91ny9ukkTVmbK8jHwQAJltIFeJ65cYiOzUrcXFD+mQwAB0CwkM7UACA9Bt35LNxI1/AOntLm4sYrx+Lu5+AZi/2HXhM+LGHIDm+4VsKG581+LWBAGgDltY0q0T2bPETZAYta9UPgSAAj4orj9i6BPiYoe0SGAAuoUEhnYggQHovivkseLmAADpxEspvxE3DjF+7HwKpPNA+Zu4sQagPc6RTcWN81m5NUEAqMMWlnTrRLZYzhY3QaIqPjBWlMoHAZDRXYXz6WZ2nfDWWhkkMADdQgJDO5DAAPTHIcLvTSCfZ4obe2iG2Pl0BXH3DkB98eyGZ4lAd8w7icGtCQJAHbawpEmT2d7iJkeM2k8mxw7I6Svi+iGGDhYXO6RHAgPQLSQwtAMJDEC/HC9riJsPAMxfHKHK28jNF0km7v4BmF0kQR4pbmwBaLdIYlhf3NifllsTBIA6bGFJkyaz5eQ0cZMjquIHb/zwnRw/IIcHi+uDGLpK1hMXP6RHAgPQLSQwtAMJDED//FLm/IASwIxeLW68oVnOF565AXO3mnxb3LgC0A0nS4x1NwdYbk0QAOqwhSVNmdB2EzcxYtRLZWr8gJQiqSgeXLr+h6E3iYsf8iCBAegWEhjagQQGoJ/inH6SGIA0bit8nrbHy8XdRwDeWvJTceMJQLfEbs2xbuDmghFuTRAA6rCFJZlJ7URxEyOqLhO29UROTxLX9zB0iTAOyyKBAegWEhjagQUXoL8ioTkWJdzcAKC+OHbQjTE0UzxzW1vcvQRQtabEW9luLAHopteLmw9GuDVBAKjDFpZkJrX7i5sUMYo3v5HLKvIXcf0OQweIix/yIYEB6BYSGNqBBAag334ocaa1mx8AzO6Ocr248YXmepu4+wlgaCX5vrgxBKC7bpI4etrNCxVuTRAA6rCFJblJTb4mbmJEVTxMXldcDIGFeJW4PoehP0v8UHPxQz4kMADdQgJDO5DAAOAj4uYHALP7jLhxhWb7t2wk7p4CGGwhf4y48QOg+y6UdcTND//l1gQBoA5bWJKb1GQbuVncxIiqg8TFEJiv9YSFitk9VVz8kBcJDEC3kMDQDnwvABCeK26OADC9e4sbT2iHD4u7rwCWLH2DuHEDoD+OEjc//JdbEwSAOmxhSW5SuxUZ6vVcI2SEI6VDxfU1DP1GlhcXP+RFAgPQLSQwtAMJDADCtXI3cfMEAO974sYT2uEG2VLcvQX67FHCy4cAwq7i5olbuDVBAKjDFpbkJrVbxQ+E+KHgJkVUfUBcDIG5urNwNufsHi0ufsiPBAagW0hgaAcSGAAsc6qsKG6uAFD1CHHjCO0SW+S7+wv0VTyz5/cBgGXOlWmPWXZrggBQhy0syU1qkxwmblJEVSw4byYuhsBcfFFcH8PQT8XFDmWQwAB0CwkM7cADSgCTvVncXAFgKHbsO0PcGEL7xFEg7j4DfbOC/FzcOAHQXy8XN2fYNUEAqMMWluQmtUniaITYptJNiqia9bwhYBYPFNe3ULWTuPihDBIYgG4hgaEdSGAAMNl1soW4+QLAwFPFjR+003fE3Wegb94gbowA6LcrZF0ZmTfcmiAA1GELS3KT2hTvFDcpoupG2UpcDIHZLCcni+tbGPqGuPihHBIYgG4hgaEdSGAAMBXfi4HprSrnixs7aK+HibvfQF9sJxz3DGA6B8nI3OHWBAGgDltYkpvUpojMLR6a1sO5fJivvcX1KQzdLNuIix/KIYEB6BYSGNqB7+IAnDjf380ZQN+9UtyYQbudIvHyh7vnQNfFsTi8+ARgJlfJ2lKZP9yaIADUYQtLmjqhTYPtqeqLbFgXQ2A6K8m54voThibExQ9lkcAAdAsJDO1AAgMAJxYyWMwDqtaR2EbZjRm0317i7jvQdc8RNyYAYLLXS2X+cGuCAFCHLSxp6oQ2jTXkYnGTIqrYyhNz9XJxfQlD1wvn/DYDCQxAt5DA0A4kMACYzh7i5g2gr94jbqygG86WxeLuPdBVkZh1ibgxAQCTXSory3/nELcmCAB12MKSJk9mszhA3KSIUfcXF0NgqjiihbdDZvdBcfFDeSQwAN1CAkM7kMAAYDq/EjdvAH10B7lO3FhBdzxX3P0Huup94sYCADhxVPV/5xC3JggAddjCkiZPZrOIbe7PEzcpoupEcTEEpjpYXB/C0NWyobj4oTwSGIBuIYGhHUhgADCTncTNHUDffFrcGEG3/F1WFdcHgK7ZSK4VNxYAwPm+/HcecWuCAFCHLSxp8mRWw9PFTYoYtYu4GALL3EniaATXfzB0oLj4YTxIYAC6hQSGdiCBAcBMjhU3dwB9sq3cLG6MoHteLa4fAF1ziLgxAAAz2VJumUfcmiAA1GELS1o2kdW0gpwpblJE1cmynLg4AuHz4voOhi6TtcXFD+NBAgPQLSQwtAMJDABmcqPcXtz8AfTFd8WND3RTfDdaR1xfALpiM2H3BQDz8Ua5ZS5xa4IAUIctLGnZRDYHe4qbFDFqD3ExBO4nrs+g6hXi4ofxIYEB6BYSGNqBBAYAs3m9uPkD6IOHixsX6LZ3iesPQFdEH3d9HwBmc7rcMpe4NUEAqMMWlrRsIpuD2FXgF+ImRlT9VpYXF0f0V4yhn4rrMxj6q3CuZfOQwAB0CwkM7UACA4DZnC1u/gC6Lp65nCpuXKDb4s30TcT1C6DtVpcrxPV9AKhjC7FrggBQhy0sKSaxeSC7vb4ni4sh+utx4voKqp4lLn4YLxIYgG4hgaEdSGAAUMcScXMI0GVPETce0A9HiOsXQNvtJ67PA0BdrxS7JggAddjCkmISm6cTxE2MqDpHFouLIfpnJfmjuL6CobOEcdNMJDAA3UICQzuQwACgjoPFzSFAV60sfxE3HtAPN8pW4voH0Faxc+vvxfV5AKjru2LXBAGgDltYUkxi83RfcRMjRj1PXAzRPy8W10dQFbtUuPhh/EhgALqFBIZ2IIEBQB2RPO/mEKCrXi5uLKBfviiufwBtdX9xfR0A5uI6WcWtCQJAHbawJE1iCxEPvd3kiCrO8kdYW/4hro9g6BcS2eYuhhg/EhiAbiGBoR1IYABQ19bi5hGga+L39eXixgH6hyN00CWHievnADBXD3drggBQhy0sSZPYQsTDkZvFTY6oikU/F0P0x3vE9Q1UPUxc/NAMJDAA3UICQzuQwACgrteIm0eArnmnuDGAfopjbl0/Adomjsa5Qlw/B4C5ertbEwSAOmxhSZrEFuqT4iZHVF0ma4iLIbpvc4ltm1zfwNAtZ3Oh0UhgALqFBIZ2IIEBQF3fEzePAF1ye7lW3BhAf+0qrr8AbRJHqrr+DQDz8T23JggAddjCkjSJLdQd5XpxEySq3iguhui+z4rrE6jaXlz80BwkMADdQgJDO5DAAKCua2QlcXMJ0BVHiev/6LfThOMo0XZHi+vfADAfV8nybl0QAGZjC0vSBJbCB8RNkKiKh8/riIshumsHcf0BVV8QFz80CwkMQLeQwNAOJDAAmIsHiptLgC64l3CUKabzRHH9BmiDFeVKcX0bAOZra7cuCACzsYUlaQJLYSO5WtwEiaqDxMUQ3fVjcX0BQzfKXcTFD81CAgPQLSQwtAMJDADm4g3i5hKgC74lrt8D4RyJRWDXd4Cm20VcvwaAhdjXrQsCwGxsYUmawFJ5u7gJElX/lkj4cDFE9zxWXD9A1RHi4ofmIYEB6BYSGNqBBAYAc/ENcXMJ0HYPE9fngcleKK7/AE3HDscAcjjIrQsCwGxsYUmawFJZW3i4Ws+h4mKIblksZ4vrAxi6VjYRF0M0DwkMQLeQwNAOfMcGMBcXiZtLgDZbTn4prs8Dk10oa4jrR0CT/VlcnwaAhfiqWxcEgNnYwpI0gaX0GnGTJKqul83ExRDd8SJx9x9V7xIXPzQTCQxAt5DA0A4kMACYKxKE0TVPFNfXAYejdNA2m4vrywCwUOe6dUEAmI0tLEkTWEqrSmQ6u4kSVR8XF0N0w1pyqbh7j6FYkFlXXAzRTCQwAN1CAkM7kMAAYK4eI24+AdpoJTlXXF8HnPjutJ64/gQ00dPF9WUAWKibZRW3NggAM7GFJWnySu0F4iZKVN0odxEXQ7TfQeLuO6peJy5+aC4SGIBuIYGhHUhgADBXbxQ3nwBtxG8QzMfB4voT0ERHievHAJDCVm5tEABmYgtL0uSVWmTG/0ncRImqo8XFEO0Wx4NcK+6eYyh2a1ldXAzRXDw8BLqFBIZ2IIEBwFxNiJtPgLZZWy4T18+BmVwnHN+KtviLuH4MACns5tYGAWAmtrAkTV457CtuokRVbN+znbgYor0+Le5+oyp2a3HxQ7ORwAB0CwkM7UACA4C5OlXcfAK0zdvF9XGgjk+I61dAk2wkrv8CQCr7ubVBAJiJLSxJk1cOy8tvxE2WqPqauBiine4jkZji7jWGzpEVxcUQzUYCA9AtJDC0AwkMAObqanHzCdAmmwi7G07vGlOGqpvk7uL6F9AUjxHXfzFeMX/E7rG/lG/IR+Wd8gZ5sTxdHisPl/vKtnJH2fxWd5DYRajN1pFl1xNiPo2XMXeW3WQPeZo8V14j75KPSTxn+LGcKf8QF1+U9Xa3NggAM7GFJWnyyuV/xE2WGLWjuBiifX4g7h6j6kni4ofmI4EB6BYSGNqBBAYA87GxuDkFaIsjxfVtDDxRYmHN/d8w9BVx/QtoireI67vIL35n/UiOkFfKnrK9xK4YK4i7X5i7OEJ4K3mEPFuiz39BIsHhRnH3Bml9yq0NAsBMbGFJmrxyOknchImqE8XFD+3yaHH3F1WnSezS4mKI5iOBYVQXsurRX/EgwY11NAsJDADmg0R5tNk9JN5+dX0bS5b+SpaTh0wqw/TuL66fAU0Qb/e7fou0Yneq78iBEs9wNxV3P1DWSnIvebIcJr8Xd/+wMN9ya4MAMBNbWJImr5xiOyE3YWJUbDflYoh2WCx8warnkeJiiHYggWFULAK7WAFAKiQwVJ0vU5Nx0A63ldh+NrbYjW1nnymxFW88uP+7uPuN+XuCuDkFaIOvi+vXGJj8DIlYzS7esJ7cv4AmuUhcv8XCnSr/Kw+QeHbr4o/mWV/2kk/L5eLuLebmFLc2CAAzsYUlafLK7dviJk1UxW4VkT3vYojm20/cfUXVD8XFD+1BAsOoWJBxsQKAVEhgqPqLuDih/WJr2f0lvjO6e4+5eYW4OANNx8swM/ueTI5X7FbBFtyze5RMjhvQBOuJ66+Yv7PkdbKZuJijXVaWSMrl98HCnO/WBgFgJrawJE1eud1H3KSJUXuIiyGabU25WNw9RdX9xMUQ7UECwygSGADkRgJDFQkM/bCFHCLXiusHmN2h4mILNFm82HGKuD6NgXjONjVuHxP332Lo18JxlmiaB4nrr5i742UX4QXB7ornyj8Td/8xs2vd2iAAzMQWlqTJq4RjxU2cqPqN8GOqfeLsNHc/UfUVcfFDu5DAMIoEBgC5kcBQRQJDv2wkR4nrC5jZMeJiCjTZ48X1ZwwcLS5uG8u/xf0bDO0rLn7AuDxHXF9FfbGgHUdEuPiieyJB5QD5j7j+gOktduuDADAdW1iSJq4S7iZsZ1fPk8TFEM20qfBW2OxulruLiyHahQSGUSQwAMiNBIYqEhj6KXar+4e4PgFv6jbzQNOtJOeI689YsvR62VJc7MJbxf07DP1Zop+5+AHj8D5xfRWzi+exLxJeBuyn+8ql4voGvLXd+iAATMcWlqSJq5SPi5s4URU/1heLiyGa5xPi7iOq4q05Fz+0DwkMo0hgAJAbCQxVJDD0110kFp9cv8Co2OHPxRFoqv3F9WUMfFBc3JbheMt6XiwufsA4fEtcP8XM/irbiYsp+mMr4XOvvju49UEAmI4tLEkTVymbCVv71PNccTFEs2wjsbOAu4cYirdE7iAuhmgfEhhGkcAAIDcSGKpIYOi3zeXv4voGqiJOLoZAE91GeJNyelfLhuJiN9kLxf17DEU/W0Nc/IDSzhLXTzG9ePkvdsR18UT/3Fs4Qqmeu7v1QQCYji0sSRNXSYeImzxRdb6sKi6GaI7YktXdP1TFuHfxQzuRwDCKBAYAuZHAUEUCA2LL2BvE9Q8MRSKxix/QRAeK68cYeIu4uE0VO3qeLe5vYGipuPgBpXEs7dzEcWIzHaWDfnqGuP6Cqh3c+iAATMcWlqSJq6T1JbLG3QSKqlgkdDFEMzxS3H1DVYz3GPcuhmgnEhhGkcAAIDcSGKpIYEBgsbMeznpHG2ws14jrwxjsGBDHQ7jYOY8V93cwFM8qNhAXP6CUeF7m+iemt4u4WALfENdnMLSzWx8EgOnYwpI0cZUWWeNuAkXVJcKWds20gvxW3H1DFW81dA8JDKNIYACQGwkMVSQwIKwsfxLXRzDE9xS0wRHi+i8GDhAXt5n8RNzfwtCh4mIHlHIfcX0T3sHi4giELSR2H3N9BwMkMACYE1tYkiau0taSy8RNoqh6vbgYYryeLe5+oSrGOUk43UMCwygWBgDkRgJDFQkMWObp4voIhjYXFzugKe4mN4rrv1iy9M8yn51U7ifu72EoFrruKC5+QAnsllLfX2V1cXEEljlcXP/BAAkMAObEFpakiWscXiFuEkVVPKxmYaxZYkH+QnH3C1Ucg9JNJDCMYp4GkBsJDFUkMGCZOOv9fHH9BANbi4sd0BRfFdd3MfAUcXGr41hxfxNDnxYXO6CEF4jrlxgVSasuhsBkdxHXfzDwcLc+CADTsYUlaeIah1XlAnETKareIS6GGI83i7tPqDpPOG+3m0hgGEUCA4DcSGCoIoEBk71NXD/BwLbi4gY0wU7i+i0GTpflxcWujjsL22nP7Ga5l7j4AbnFsauuX6LqjxJJqy6GwFQ/FNePsGTpHm59EACmYwtL0sQ1Ls8VN5Gi6mrZUFwMUdbG8m9x9wlVZEZ3FwkMo0hgAJAbCQxVJDBgsq3E9RMMPEBc3IBxW05OEtdvMbCbuNjNxQfE/W0MfUNc7IDcPiSuT6Iq1hBc/ABnP3H9CCQwAJgjW1iSJq5xiczJc8RNpqg6RFwMUdbHxN0fVP1OFvKWCJqNBIZRJDAAyI0EhioSGDAVvyunt7O4mAHjtpe4PouBH4iL21ytL1eKqwNDDxIXPyCnY8T1RwxdIauJix/gbCKuL2HJ0l3d+iAATMcWlqSJa5z2ETeZoiq2/NtMXAxRxj3lJnH3B1V7iIshuoEEhlEkMADIjQSGKhIYMBWJxtMjgQFNFC+0/EFcn8XAEnGxm4/Xi6sDQz8TFzsgp++L648YOkxc7ICZxO9F15/6bme3PggA07GFJWniGqd4S/s0cRMqqo4UF0OUcby4+4Kqn4uLH7qDBIZRJDAAyI0EhioSGDDVvuL6CkhgQDO9UFx/xcCx4uI2X6vK38TVhaH/ERc/IJdfi+uLGHqguNgBM/msuP7UdyQwAJgTW1iSJq5x213chIqqG+XO4mKIvHYVd08w6sHiYojuIIFhFAkMAHIjgaGKBAZMta24voIlSx8qLmbAuKwhF4vrrxg8+7mLuNgtxDPE1YehM2UFcfEDcuAt8ZldJBxRi/k4QFyf6jsSGADMiS0sSRNXE/xY3KSKqqPFxQ/5xBdlMqLr+Za4GKJbSGAYRQIDgNxIYKgigQFTrSIc9+axAwOa5i3i+ioGcm2XzrONeiLRw8UPyOEycf0QAx8XFzdgNo8U16f6jgQGAHNiC0vSxNUEO4mbVFF1s8TbRS6GyIO3FOqJvrmduBiiW0hgGEUCA4DcSGCoIoEBDm8xeiQwoEk2kqvF9VUsWXqNRIxc7FLYTVy9GDpfIinOxQ9I7Vpx/RADe4uLGzCbrcX1qb4jgQHAnNjCkjRxNcU3xU2sqPqquPghvdXkAnH3AVVxtpiLIbqHBIZRJDAAyI0EhioSGOCcJK6/9B1HvKFJDhfXTzHwNnFxS+l74urG0MvFxQ5IaTlx/Q9DG4qLHTCbeKbv+lTf3d+tDwLAdGxhSZq4miLe3nYTK0btKC6GSOuN4uKPqhtkS3ExRPeQwDCKBAYAuZHAUEUCA5yviOsvfccOfmiKu8qN4vopBlvJl/hdEc/eYgdF1wYMlLoX6LfoY67/YeBscXED6rpSXN/qs23c+iAATMcWlqSJq0mOFje5ouoH4uKHdCLLl60t6/mwuBiim0hgGMXDLQC5kcBQRQIDnKPE9Ze+I4EBTfElcX0UAy8TF7ccPi2uDRg6UFzsgFQ2Fdf3MPAZcXED6rpYXN/qs83d+iAATMcWlqSJq0niLW4y8ut5mLgYIg22tqwn9xmdaB4SGEaRwAAgNxIYqkhggPNBcf2l70hgQBM8QFz/xMD5srK42OVwB+Hs/ZnFCy0860BOm4vrexgomdSFborfjK5v9dn6bn0QAKZjC0vSxNU0HxU3waIqznh18cPCbS0k0tTzdnExRHeRwDCKBAYAuZHAUEUCA5xDxPWXvttCXLyAkn4qrn9i4Gni4pbTu8W1BUPsNomcSGCYGS/uYaF+I65v9dlqbn0QAKZjC0vSxNU0sYUWmeD1/I+4GGJhvi4u3qi6XFi47R8SGEYxDgDkRgJDFQkMcEhg8HiDGOO2p7i+iYFYYFleXOxyit8w/xDXJgzcILFTrIsfsFAkMMxsE3FxA+p6i8QRc7iVWxsEgJnYwpI0eTXRe8V9eUHVGTKOH7pdFhm+LtYY9SpxMUS3kcAwigQGALmRwFBFAgMcEhi8VcXFCyhhsZwtrm9i4FHiYlfCS8W1CUOfExc7YKHuIa7PYcnSq8TFDMA8uDVBAKjDFpbkJrUGWE+uFPclBlX7iIsh5i6SQU4TF2dUXSA8DO0nEhhGkcAAIDcSGKpIYIBDAsOo68XFCijleeL6JgZ+JC5upawk54prG4buLS5+wEJsK66/YcnS08XFDMA8uDVBAKjDFpbkJrWG+F9xX2JQdY7EWw0uhpibfcXFGKOeIy6G6D4SGEaRwAAgNxIYqkhggHOEuP7SZ5eIixVQwhpyobi+iYH7iYtdSfFSjGsbhr4jLnbAQpDAML3jxMUMwDy4NUEAqMMWluQmtYaIH7uXifsig6pni4sh6ovdBP4qLr6o+oOQNNNfJDCMIoEBQG4kMFSRwADnk+L6S5/F93YXK6CEN4nrlxj4sri4lbacnCKujRh6qLj4AfNFAsP0PiguZgDmwa0JAkAdtrAkN6k1CAtl9ZwvK4uLIep5nbjYYtTjxcUQ/cC8PIoEBgC5kcBQRQIDnK+K6y99FouSLlZAbreTq8X1SyxZeqPcTVzsxuHB4tqJoV9IJHu4+AHzQQLD9N4gLmYA5sGtCQJAHbawJDepNUgsysfivPsyg6pYVHQxxOw2kKvExRVVvxJ+tPcbCQyjSGAAkBsJDFUkMMD5ibj+0mfHi4sVkNuHxPVJDHxMXNzG6Wvi2oqhvcTFDpgPEhim93xxMQMwD25NEADqsIUluUmtYZ4p7ssMqi6WOHbDxRAz4+FKfbuIiyH6gwSGUSQwAMiNBIYqEhjgnCmuv/TZEeJiBeR0F4kdBlyfxJKl18om4mI3TlsL921mZwvHaSIVEhimt7e4mAGYB7cmCAB12MKS3KTWMPHj4CxxX2hQFccguBhiencVfqTX831xMUS/kMAAtAM7M3ULCQxVJDDAuVxcf+mzN4uLFZDTseL6IwbeJS5uTRBJT67NGHqOuNgBc0UCw/QeJi5mAObBrQkCQB22sCQ3qTVQnLnvvtCgKh5u8ybw3HxFXCwxaom4GKJfSGAA2oEEhm4hgaGKBAZMdRtxfaXvWGhDaTuK64sYuEKa/MxmI7laXNsxcIGsKi5+wFyQwDC9bcTFDMA8uDVBAKjDFpbkJrUGijP34+x996UGVW8XF0OMerC4GGLUF8XFEP1DAgPQDiQwdAsJDFUkMGCqe4nrK323m7h4Abn8WFxfxMArxcWtSWLnFtd2DL1aXOyAuSCBYXpNPGYHaC23JggAddjCktyk1lCPEPelBlWRLX87cTHEUCTF/FJcDFEVR2xsJS6O6B8SGIB2IIGhW0hgqCKBAVPtIa6v9N3dxcULyOEx4vohBv4qbXhzfw25SNw1YIDdT5ECCQzTY3wBCbk1QQCowxaW5Ca1BjtR3BcbVB0iLn4Yeoq42GHUkeJiiH4igQFoBxIYuoUEhioSGDDVW8T1lb5bU1y8gNQWy+/F9UMMPFNc7JpoP3HXgKF3iosdUBcJDNMjgQFIyK0JAkAdtrAkN6k12P3EfbFB1X9kM3ExxJKlq0g8+HaxQ9W1cntxcUQ/kcAAtAMJDN1CAkMVCQyY6hvi+kqfnS8uVkAOzxHXDzFwpkSSh4tdE0VbzxJ3LRiIZyVsc4+FIIFheiuKixmAeXBrggBQhy0syU1qDfdVcV9uUPUxcfHDkqWvEhczjHqvuBiiv0hgANqBBIZuIYGhigQGTHWhuL7SZ8eLixWQ2mrCGJzZ/4iLXZNFm921YOgIcbED6iCBYXouXgDmya0JAkAdtrAkN6k13D3lZnFfcDB0o2wpLoZ9tp6wCFBPxCni5eKI/iKBAWgHEhi6he8uVSQwYLJ7iesnfXewuHgBqb1BXB/EwE/Fxa0NfizumjAQz93uKi52wGxIYJiei1ffcIw2ctrZrRMCwFS2sCRNWG00IW7yRdXnxMWvzz4gLlYYFQ+iXAzRbyQwAO1AAkO3kMBQRQIDJmN3Na9N5+2jvdaXq8T1QQw8UFzs2uC+4q4JQ8eKix0wGxIYvCvFxatvSGBATiQwAKjFFpakCauNYmeB68VNwBiKnSrijSQXwz66s9wgLlaoukjWEBdH9BsJDEA7kMDQLSQwVJHAgMni7WbXT/puR3HxAlLiBYGZfU1c3Nrk8+KuDUM7iIsdMBMSGLz43ePi1TckMCAnEhgA1GILS9KE1VYfFjcBo+o4cfHroy+KixFGvUhcDAESGIB2IIGhW0hgqCKBAcvcTVwf6bubhGRk5MaLJTOLF0ruIS52bbKFcJ9ndoK42AEzIYHBI4FhgAQG5EQCA4BabGFJmrDaaiO5VtwkjCrevhls2+hig1Hnykri4giQwAC0AwkM3UICQxUJDFjmYHF9pO/OEBcvIKUviOt/GPiEuLi10fvFXSOGdhUXO2A6JDB4JDAMkMCAnEhgAFCLLSxJE1abHSRuEkbV98XFry+Wk5PFxQajniIujkAggQFoBxIYuoUEhioSGBAiof0acX2k7z4qLmZAKrFlvut7GIiXbTYTF7s2Wk/4LjKzUyWePbn4AQ4JDB4JDAMkMCAnEhgA1GILS9KE1WbrCD+i6nmIuBj2wT7iYoJR8bbW8uLiCAQSGIB2IIGhW/i+W0UCA8Lh4voHSEhGfiyszOy94uLWZq8Rd60YimdPLnaAQwKDRwLDAJ+zyIkEBgC12MKSNGG13evFTcSoOklc/LoujkKIIxFcTDDqUeLiCCxDAgPQDiQwdAsJDFUkMOBBEufLu/6BJUs3FRc3IIX4zej6HQbiM/u24mLXZqvKX8VdMwbOkRXFxQ+YigQGjwSGARIYkBMJDABqsYUlacJquzXkQnGTMaoeIy6GXfZycbHAqB+LiyEwGQkMQDuQwNAtJDBUkcDQb7E4z++/6f1eXNyAFFaQ34rrexh4nbjYdcHTxF0zhl4gLnbAVCQweCQwDJDAgJxIYABQiy0sSRNWF+wvbjJG1enSp+MB1pUrxMUCox4gLo7AZCQwAO1AAkO3kMBQRQJDf0Xywlni+gUGurh1PZrjWeL6HQb+LrFTgYtdF8TzpDh20l07BiLBbnVx8QMmI4HBI4FhgAQG5EQCA4BabGFJmrC6II4JiAeZbkJGVZ/O5HufuBhg1NfExRCYigQGoB1IYOgWEhiqSGDop/sK25fP7iHi4gcsVCzMXyCu32HgOeJi1yW7irt2DL1BXOyAyUhg8EhgGCCBATmRwACgFltYkiasrni6uAkZVX+UxeJi2CVbyPXiYoCqOD/4nuLiCExFAgPQDiQwdAsJDFUkMPTL2vJOuVFcf8DQJRJb/Ls4AgsVRyO4foeBs6UPz1rCd8TFAAPxvW09cbEDliGBwSOBYYAEBuREAgOAWmxhSZqwuiK2sjtT3KSMqtj20cWwSz4v7tox6tPiYgg4JDAA7UACQ7eQwFBFAkM/bCCvkcvE9QOMOkxcLIGFisVYPotm9jhxseuibSRehHBxwADH+WA2JDB4JDAMkMCAnEhgAFCLLSxJE1aX7CFuUkbV+RLHbrgYdsH9xF03RsUuFXcUF0fAIYEBaAcSGLqFRaMqEhi6axN5pnxZbhB3/zG9B4iLK7BQh4jrcxg4WZYTF7uu+qS4WGDgWtlMXOyAQAKDRwLDAAkMyIkEBgC12MKSNGF1SfxgjB+ObmJGVVcXNqIP/FTcNWPUoeLiCEyHBAagHUhg6BYSGKpIYGif2FY9joK4rWwu95BHSBwD+GY5Tv4k7n6jnrPExR5YqDsJxzPO7MHiYtdlt5dYpHfxwMAnxMUOCCQweCQwDJDAgJxIYABQiy0sSRNW1zxM3MSMqotkDXExbLO9xF0vRl0ttxMXR2A6JDAA7UACQ7eQwABgNsz7yOVz4vocBr4pLm59cJC4mGDgJtlaXOwAEhg8EhgGSGBATiQwAKjFFpakCauLvi9uckbVa8XFr63iWIxzxF0rRr1FXByBmZDAALQDC1ndQgIDgJlcJbcRN38AC7G9uD6HgZtlG3Gx64PYWecycbHBQOww5GIHkMDgkcAwQAIDciKBAUAttrAkTVhdtETc5Iyq+FIYPzhdDNvoxeKuE6PiIQMPOTEfJDAA7UACQ7eQwABgJvEWtJs7gIXi5ZCZfVpc3PqE5zCzu7+42KHfSGDwSGAYIIEBOZHAAKAWW1iSJqyu+rK4CRpVB4qLX9tEIsY/xF0jRr1MXByB2ZDAALQDCQzdQgIDgOnEsXDriZs7gIX4f+L6HAaul83Fxa5PYifMP4mLEQZ+JC526DcSGDwSGAZIYEBOJDAAqMUWlqQJq6vinLnYzs9N0hiKB17ri4thm7xH3PVh1Pmyirg4ArMhgQFoBxIYuoUEBgDT6UpCOpplefm1uD6HgfeJi10f7S0uRhjaXVzs0F8kMHgkMAyQwICcSGAAUIstLEkTVpcdJW6SRtUh4uLXFneU/4i7Nox6prg4AnWQwAC0AwkM3UICAwDn77KGuHkDWIini+tzGLhK2PlkaDk5WVysMHCGRGKQix/6iQQGjwSGARIYkBMJDABqsYUlacLqsjtIbOvnJmoMXSubiYthG3xW3HVh1JmyWFwcgTpIYADagQSGbiGBAYDzBHFzBrAQq8pfxfU5DLxRXOz6bCdxscLQvuJih34igcEjgWGABAbkRAIDgFpsYUmasLruUHETNao+Ki5+TbeDuOuB91hxcQTqIoEBaAcSGLqFBAYAUx0nbr4AFurV4vocBi4Udj7xviIuZhj4s6wkLnboHxIYPBIYBkhgQE4kMACoxRaWpAmr6zaUq8VN1hi6UbYUF8Mm+7G468Go2NIxtnZ0cQTqIoEBaAcSGLqFBAYAk8XREeuLmy+AhVhX+MyZ2QvExQ5Llm4l8WzJxQ0DB4iLHfqHBAaPBIYBEhiQEwkMAGqxhSVpwuqDt4mbrFEVRzG4+DVV7CbgrgPeQ8TFEZgLEhiAdiCBoVtYTAKwTCwO8r0eubxXXL/DwDnCkYwzO0xc7DBwibCDBwIJDB4JDAMkMCAnEhgA1GILS9KE1Qdry+XiJmwM3Sz3FBfDpomHBn8Qdx0Y9W1xcQTmigQGoB1IYOgWEhgALPMicfMEsFCby3/E9TsM7C0udhhiF9TZLRUXO/QLCQweCQwDJDAgJxIYANRiC0vShNUXnONYT1vOUo0Hd6798O4tLo7AXJHAALQDCQzdQgIDgBBvx7s5AkhhQly/w8AvhSMZ6/lfcTHEQCR4cAwQSGDwSGAYIIEBOZHAAKAWW1iSJqy+WFUuFDdpo2pHcTFsirXkUnFtx6hjxMURmA8SGIB2IIGhW0hgAHC4sHiKXCLhPXZkdH0PAw8TFzuMiiMSeP42s/eLix36gwQGjwSGARIYkBMJDABqsYUlacLqk+eLm7RR9T1x8WuKg8S1G6PijNw7i4sjMB8kMADtQAJDt5DAAPTbR4TkBeQUzwBc38PAd8TFDdN7rrhYYuB6iWNbXOzQDyQweCQwDJDAgJxIYABQiy0sSRNWn6wk54ibuFG1s7gYjtsd5FpxbcaoeFPLxRGYLxIYgHYggaFbSGAA+ivOSid5ATntKq7vYWg7cbHD9BbLmeLiiYFPi4sd+oEEBo8EhgESGJATCQwAarGFJWnC6psni5u4UXWSuPiNW/zAc+3FqEj02EhcHIH5IoEBaAcSGLqFBAagf66Rp4ibE4BUlpfTxfVBDHxWXOwwu0eLiykG4tiWe4mLHbqPBAaPBIYBEhiQEwkMAGqxhSVpwuqb+IH+a3GTN6rix6aL4bjcRziXs753iosjsBAkMADtQAJDt5DAAPTL2cKiFkrYV1wfxEBs87+FuNihnh+Kiy0Gvi4ubug+Ehg8EhgGSGBATiQwAKjFFpakCauPHiNu8kbVaRIJHy6G4/ADce3EqPjCv7a4OAILQQID0A4kMHQLCQxAf3xQVhM3FwAprSLnieuHGPiAuNihvh3ExRZDO4mLHbqNBAaPBIYBEhiQEwkMAGqxhSVpwuqrn4mbwFG1j7j4lcbWg3PzGnFxBBaKBAagHUhg6BYSGIDu+508QNwcAOTwCnF9EQNXywbiYoe5OVpcjDEQzydd3NBtJDB4JDAMkMCAnEhgAFCLLSxJE1Zf7SxuAkdVbF+6WFwMS4n6zxLXPoy6UFYVF0tgoUhgANqBBIZuIYEB6K5L5UUy7t9c6Jd15ApxfRIDbxYXO8zdnSSO43BxxsD/iIsduosEBi/mChevviGBATmRwACgFltYkiasPjte3CSOqmeIi18p+4lrF7yIl4sjkAIJDEA7kMDQLSQwAN1zmcSuaWuIG/dATu8W1y8xcIkwNtN6n7hYYyB24WnSEa7IjwSG6bl49Q0JDMiJBAYAtdjCkjRh9dm9xU3iqDpfVhIXw9zWlIvFtQujzhHe3kJOJDAA7UACQ7eQwAB0xx8kdlxgcRTjsplcK65/YmB/cbHD/N1W+D4zs3G/PISySGCY3iriYtYnJDAgJxIYANRiC0vShNV3XxA3kaPqAHHxy+1Ace2B9wRxcQRSIYEBaAcSGLqFB/5Au8Vi8efkYbKcuHEOlPIpcf0UwHjFy0Ms3PYHCQzTW1tczPqEBAbkRAIDgFpsYUmasPrurnKjuMkcQxfK6uJimMumwpsh9Z0mPBBFbiQwAO1AAkO3kMAAtM+/5Th5srDbAppiG7lZXJ8FMH4vEzd20T0kMEzvduJi1ickMCAnEhgA1GILS9KEhSVLjxQ3maMqzmh18cvlKHHtgPcIcXEEUiKBAWgHEhi6hQQGoB3OkPdIfC9fWdx4Bsbp2+L6LoBmuEzWEjd+0S0kMExvS3Ex6xMSGJATCQwAarGFJWnCwuAMyOvETegYukJKbePFmyFz8wNxcQRSI4Fh1B0k5kagSVg46xYSGIB2uFK+LC+Uu4gbz8C4PFxcvwXQLHGUqhvD6BYSGKZ3X3Ex6xMSGJATCQwAarGFJWnCwsAh4iZ0VL1VXPxS+564+uHtKC6OQGokMIyKxWIXKwBIhQQGoJ3+JAdJJGe7sQ2UEkcNniqunwJolqtlI3FjGd1BAsP0dhcXsz4hgQE5kcAAoBZbWJImLAysJ/EjwU3qGIoYRaxcDFN5pLi64cVbXi6OQA4kMIwigQFAbiQwAO13lrxJWJTCODxZXL8E0EwfEjeW0R0kMEzvOeJi1ickMCAnEhgA1GILS9KEhaGl4iZ1VMVuFS5+KSyW34qrF6Nukq3FxRLIgQSGUSQwAMiNBAagO26QY+TB4sY7kNpK8mdx/RFAM10vW4ob0+gGEhimV2r33yYjgQE5kcAAoBZbWJImLAzdRi4TN7Fj6Fq5vbgYLlRk2bo64X1CXByBXEhgGEUCA4DcSGAAuukk2U3cuAdSeZm4/geg2T4nbkyjG0hgmN5R4mLWJyQwICcSGADUYgtL0oSFqpeLm9hRdbi4+C3EGnKhuPow6jrZTFwsgVxIYBhFAgOA3EhgALrtp/IgceMfWIj4nvoPcf0OQPNtJ25so/1IYJjez8XFrE/iGXl8hmN+7imub2GABAYAtdjCkjRhoWpV+Zu4yR1DN0rq7ezeLK4ueO8TF0cgJxIYRsWPIxcrAEiFBAagHybkduLmAWA+3imurwFoh2+LG9toPxIYpneFuJgBda0srm9hgAQGALXYwpI0YWEUxxjU8xlx8ZuPjeXf4urBqKtkPXGxBHIigWEUCQwAciOBAeiPeGj/PFlO3HwA1LWpxPGPrp8BaI+HihvjaDcSGGa2ibi4AXVdJK5vgQQGADXZwpI0YWHUYvmjuAkeQzfLPcTFcK6OFFcHvDeJiyOQGwkMo0hgAJAbCQxA/3xLNhA3JwB1fFxc3wLQLr8Qktq6hwSGmT1GXNyAuk4S17dAAgOAmmxhSZqw4O0jboJH1XHi4jcXcS5VJEO4v49Rl0icheZiCeRGAsMoEhgA5EYCA9BPF8j9xM0LwEz4jQ10y+PEjXW0FwkMM3uruLgBdX1eXN8CCQwAarKFJWnCghfZzaeJm+RRtURcDOs6XtzfhXeAuDgCJZDAMIoEBgC5kcAA9Nf18hRxcwMwnW+I608A2uksid1i3XhHO5HAMLMTxcUNqOuj4voWSGAAUJMtLEkTFqb3/8RN8qj6jrj41bGruL8J7y+ykrhYAiWQwDCKBAYAuZHAAOAV4uYHYKo4L9/1IQDt9hxxYx7tdBdx9xkD18mq4mIH1PEucX0LJDAAqMkWlqQJCzP7kbiJHlU7i4vfTJaXX4v7e/CeKi6WQCkkMIwigQFAbiQwAAivETdHAMvETpK/FNd/ALRbHCvEgm53bC7uPmNod3GxA+o4WFy/AgkMAGqyhSVpwsLMHihuokfVz8TFbybPEve34P1GIunDxRIohQSGUSQwAMiNBAYAy7xU3DwBhH3E9RsA3fAqcWMf7UMCw+wOFxc7oI6PietXIIEBQE22sCRNWJgd50fWM5fM2NUkssfd34H3GHGxBEoigWEUCQwAciOBAcAyN8vjxM0V6Lc4avBP4voNgG64Qvj92Q0kMMzuEllRXPyA2Rwjrl+BBAYANdnCkjRhYXbbSjwochM+hk6T2LLSxXCqN4r7G/B+Ki6OQGkkMIziARKA3EhgADDZv+Ve4uYL9NcB4voLgG55p7g5AO2yrrj7i6pHiYsfMJsfiutTIIEBQE22sCRNWKjnc+ImfFQ9QVz8JttQrhb37+E9SFwsgdJIYBhFAgOA3EhgADDVH2QNcXMG+mctuUxcXwHQLdfKxuLmArTHyuLuL6q+Ji5+wGwuEtenQAIDgJpsYUmasFDPlnKjuEkfQ2fJYnExXOaj4v4tvDjCxMURGAcSGEaRwAAgNxIYADjxu8rNGeift4nrIwC6ifm/G24Qd38xFDsibyEufsB0NhHXnzBAAgOAWmxhSZqwUN/h4iZ9VD1dXPzC3YVEkPrii/o24mIJjAMJDKNIYACQGwkMAKbzMHHzBvojHtLHG9mufwDopniudhdxcwLa43Jx9xdVR4qLHzCdp4jrSxgggQFALbawJE1YqI8HA/WcLyuJi+HXxf0beJ8RF0dgXEhgGEUCA4DcSGAAMJ2zZUVxcwf6IRZ2XN8A0G3HipsT0B5/EXdvURUJO3cWF0PAOVpcX8IACQwAarGFJWnCwty8W9zEj6r9ZWrs4u0g99/Cu17YJg1NQwLDKBIYAORGAgOAmbxY3NyB7mOHQ6DfdhA3N6AdzhB3XzGK43VR15pyjbh+hAESGADUYgtL0oSFuVlPeIg8uwtlNVkWt+XlNHH/LbwPyuS+BzQBCQyjSGAAkBvfPQHMJH57rSJu/kC3fU1cnwDQD98XNzegHX4g7r7Ce6y4OAKTvVRc/8EQCQwAarGFJWnCwty9Sdzkj6rXyLKYPe3WMtRztWwkk/sd0AQkMIwigQFAbiQwAJjNfuLmD3TXg8T1BQD9sou4OQLNxzb3c3Op8KwUM1ldIrHX9R8MkcAAoBZbWJImLMzdGnKJuA8ADF0usbC3qvz11jLUc6C4vgeMGwkMo0hgAJAbCQwAZnOerCBuDkH3LCe/ENcXAPTLqRJzgpsr0GzvF3dPMb0fyUri4gm8XVy/QRUJDABqsYUlacLC/LCIV89b5HVTyjCzfwgLomgq5r5RjFcAuZHAAKCOR4qbQ9A9jxfXBwD00xPEzRVotteKu5+Y2ceFpB1MtaPcKK7PoIoEBgC12MKSNGFhfiLb83xxHwIYiqMQrppShpm9QlyfA5qABIZRJDAAyI0EBgB1HCNuDkG3rCjniOsDAPop5oTF4uYMNNezxN1PzO4jQhIDltlE2P25PhIYANRiC0vShIX5e4a4DwFgvuLLVhy54fob0AQkMIwigQFAbiQwAKjjOuF7Sfe9SNz9B9BvLxA3Z6C5HiHuXqKeo2VlcbFFf6wvvxHXR+CRwACgFltYkiYszF9kN/9e3AcBMB/PFtfXgKYggWEUCwUAciOBAUBd+4qbR9ANa8ol4u49gH67UFYXN3egme4s7l6ivl/JFuLii+6Le8/azNyRwACgFltYkiYsLMzjxH0QAHN1lrDlH5qOBIZRJDAAyI0EBgB1fUrcPIJueKu4+w4A4fXi5g40UxxPfJO4e4n6/i1xHC/PVPtlT7lcXJ/AzEhgAFCLLSxJExYWJs7b+qW4DwNgLiIZxvUxoElIYBhFAgOA3EhgAFBXvIHLmdDdtJHEIo277wAQ4jvjbcXNIWim88TdS8zdmRKL2nwP6rZNJI4PcX0A9ZDAAKAWW1iSJiws3K7iPgyAuk4RvmCjDUhgGEUCA4DcSGAAMBf3EDeXoN2OEHe/AWCy94qbQ9BMPxB3HzF/v5VnySriYo522ljeLdeKu++ojwQGALXYwpI0YSGNE8V9IAB1PExcvwKahgSGUSQwAMiNBIaq8yXmXjTbhrK53FMeKLvLk+XV8gH5opwu14m7z5i/p4ubS9Bed5Mbxd1vAJgsFvc2EzeXoHk+Ku4+YuHiN9RH5AGyvLj4o9niWJB4cTR2XLhe3H3G3JHAAKAWW1iSJiyksaO4DwRgNt8T16eAJiKBYVQs0rhYAUAqJDBU/UVcnNBOK8hdZG/5oPxGbhZ371HPIeJijfY6Tty9BgDn4+LmEjTP/uLuIdL6uxwmj5W1xN0LNMM68iT5rFwh7n5iYUhgAFCLLSxJExbS4aEC5mN7cf0JaCISGEaRwAAgNxIYqkhg6L7YIja+c/xCXB/AzGI7ahdXtFPsYOLuMwBMJ3Zs2VrcnIJmebC4e4h8bpJfyqHyRIlEWnZoGI+VJHZre658TM4UEpnzI4EBQC22sCRNWEgnzhrlQxZz8QVxfQloKhIYRpHAACA3EhiqSGDol/vLt8T1BXiXiIsl2mc5+Zm4+wwAM4mXrNy8gmaJ5wnu/qGsq+Xn8gmJ485ip4YdJI5Ei89id+9Qz+qylewiz5CDJOans4XjscaDBAYAtdjCkjRhIa1Pi/tgAKaKL2l3FdePgKYigQHoLs5Mby4SGKpIYOinR8gF4voERq0sLo5ol8eJu78AUMf9xM0taJbzxN0/NMP1Er8/fipHS+zc8FZ5hTxHHi+7yn1lW9lCNr9V7CoWSSrLNHmnhxVlclvDurLsWuK64voiuXhn2UPiCLhnySvlHXK4xMt635ffCkdANNN2bp0QAKayhSVpwkJa8WEeX2zchwMw2RHi+hDQZCQwAN1FAkNzkcBQRQJDf91OYstf1y9QdSdxMUR7LJY/iLu/AFDHD8XNL2iWL4m7fwCQw7ZunRAAprKFJWnCQnofEvfhACxzrWwirv8ATUYCA9BdJDA0FwkMVSQw9Nta8htxfQNDDxQXP7THC8TdWwCYi93FzTFojpeLu3cAkMPWbp0QAKayhSVpwkJ6G8k14j4ggPBucX0HaDoSGIDuIoGhuUhgqCKBAbG7wFXi+gcG4ugBFzu0wxpykbh7CwBzcYY0edt6DI4ecPcOAHLY0K0TAsBUtrAkTVjI4yBxHxBALELEGWKu3wBNRwID0F0kMDQXCQxVJDAg7C+uf2CAOb3dloq7rwAwH08RN9egGVYUXoQDUMpKbp0QAKayhSVpwkIeawsPm+G8XlyfAdqABAagu1jsai6+U1aRwICwWM4W10ewZOlzxMUNzbehXC3uvgLAfJwrK4mbc9AMPxB37wAgpX+5NUIAcGxhSZq0kM9rxX1QoL8ulNXF9RegDUhgALqLBIbmIoGhigQGLPMMcX0Eg+9sLmZovo+Iu6cAsBAHiJtz0AyvFnffACClc9waIQA4trAkTVrIJxaqY8HafVign14grq8AbUECA9BdJDA0FwkMVSQwYJnVhPHhvUZczNBsd5Ubxd1TAFiIS2QNcXMPxu+e4u4bAKT0fbdGCACOLSxJkxbyepG4Dwv0zznCln1oOxIYgO4igaG5WKCtIoEBkx0prp/03VJx8UKzfUnc/QSAFP5X3NyDZjhf3H0DgFQ+5tYIAcCxhSVp0kJesWD9Z3EfGOiXJ4nrI0CbkMAAdBcJDM1FAkMVCQyYbC9x/aTvSGBon/uLu5cAkMq/ZD1xcxDGjyOEAOT2BrdGCACOLSxJkxbye6q4Dwz0x2myvLj+AbQJCQxAd5HA0FwkMFSRwIDJ1pabxfWVPiOBoX1+Iu5eAkBK7xc3B2H8Hi7ungFAKo9za4QA4NjCkjRpIb9YuP6duA8N9MMjxfUNoG1IYAC6iwSG5iKBoYoEBkwVR7W5vtJnJDC0yx7i7iMApHa9bC5uLsJ4xfPjC8TdNwBIYUu3RggAji0sSZMWyuCBRH/9UFyfANqIBAagu0hgaC4SGKpIYMBUXxTXV/qMBIb2WCxnibuPAJDDp8TNRxi/d4u7ZwCwUHGM0HJujRAAHFtYkiYtlLGcnCTuwwPdFmeZuj4BtBEJDEB3kcDQXCQwVJHAgKkOFNdX+owEhvZ4nrh7CAC5xNFL9xQ3J2G8thV3zwBgoX7s1gcBYDq2sCRNXCjnoeI+PNBdXxHXF4C2IoEB6C4SGJqLBIYqEhgw1fPF9ZU+I4GhHdaQC8XdQwDI6evi5iWM3y/E3TMAWIgD3fogAEzHFpakiQtlfVfcBwi6JzLa7y6uHwBtRQID0F0kMDQXCQxVJDBgKo7rG0UCQzu8Udz9A4ASdhI3N2G8niLufgHAQjzcrQ8CwHRsYUmauFDWDuI+QNA9nxTXB4A2I4EB6C4SGJqLBIYqEhgw1YPE9ZU+I4Gh+TaQOIvY3T+M+rtsJGsD01hPzhXXf+D9VNz8hPFaSdidB0BK/5HV3PogAEzHFpakiQvlfUncBwm643q5g7j7D7QZCQxAd5HA0FwkMFSRwICpOC96FAkMzfdBcfcOHt9TUMee4voPpvcYcbHEeL1J3P0CgPn4llsbBICZ2MKSNHmhvK3lRnEfJuiGQ8Tde6DtSGAAuouFgeYigaGKBAZMtY24vtJnJDA0253lBnH3DqNOkeXFxRKY6kRx/Qje74Tx1Tyxqwi/AQCk8hy3NggAM7GFJWnywngcJe7DBO13tawv7r4DbUcCA9BdJDA0Fw8vq0hgwFSbi+srfUYCQ7MdK+6+wbu/uDgCTuzKc7O4vgSP3wHNFJ/l7n4BwFzEZ+IGbm0QAGZiC0vS5IXx2EzimAH3oYJ242EhuowEBqC7eHDZXCQwVJHAgKlIYBjFb5Lmuq+4ewbvc+LiCMzkCHH9Cd75srK4WGJ8biOXibtnAFDXN926IADMxhaWpAkM4/N+cR8qaK/4YbGmuPsNdAEJDEB3kcDQXCQwVJHAgKlIYBhFAkNz/UjcPcOoa+T24uIIzOR2cpW4fgXvZeJiifF6pbj7BQB1Pc6tCwLAbGxhSZrAMD7xgyqOG3AfLGinWNx19xroChIYgO4igaG5SGCoIoEBU5HAMIoEhmZ6tLj7BY9+jIV4tbh+BS9eyFlLXCwxPivJWeLuGQDM5iJZ0a0LAsBsbGFJmsAwXm8V9+GC9okt9+KHhbvPQFeQwAB0FwkMzUUCQxUJDJiKBIZRLPw2z2L5nbj7hVF/ldXExRKoI45EOFdc/4IXzyhdLDFeu4i7XwAwmze4NUEAqMMWlqRJDOO1tvxD3AcM2oWFH/QBCQxAd/E51lwkMFSRwICpSGAYRQJD8zxb3L2C90RxcQTmYk9x/Qte7BK7obhYYry+IO6eAcB04iiltd2aIADUYQtL0iSG8XuVuA8ZtEe8SbO8uPsLdAkJDEB3kcDQXCQwVJHAgKlIYBhFAkOzxE4Cfxd3rzDqZ7KcuFgCc3WiuH4G70Pi4ojx2kh4AQ7AXBwkdk0QAOqwhSXFJIaxW1UuFPdBg3bYQ9y9BbqGBAagu0hgaC4SGKpIYMBUJDCMIoGhWd4g7j5h1M2yRFwcgfnYVqJfuf6GUdfLluJiifF6nLh7BgBTRcLTOmLXBAGgDltYUkxiaIT9xH3YoPl+Lu6eAl1EAgPQXSQwNBcJDFUkMGAqEhhGkcDQHOvJleLuE0YdJS6OwEIcIa6/wfusuDhi/D4p7p4BwGQvklvmDbcmCAB12MKSlk1kGLvFco64Dxw0287i7inQRSQwAN1FAkNzkcBQRQIDpiKBYRQJDM1xqLh7hFFx/v7G4uIILMTtJM4Cd/0Oo2LHiu3ExRLjdRvh+TGAmfxWYq3plnnDrQkCQB22sKRlExka4UniPnTQXN8Sdy+BriKBAeguEhiaiwSGKhIYMBUJDKNIYGiGLSS2Y3f3CKNeKy6OQAqvFtfv4H1bXBwxfveQSPhy9w1Av90o28t/5wy3JggAddjCkiZPZhi75eUMcR8+aB4y0tFHJDAA3UUCQ3ORwFBFAgOmIoFhFAkMzXCMuPuDUX+WVcTFEUhhZTlXXP+D9xBxscT47SXungHot7dJZb5wa4IAUIctLGnqhIaxe7S4Dx80z+fE3UOgy0hgALqLBIbmIoGhigQGTEUCwygSGMZvB3H3Bl4sxrk4AintKa7/wTtZlhMXS4zfW8XdNwD9FHP2SlKZK9yaIADUYQtLmjqhoRF+Ku5DCM1xg2wp7v4BXUYCA9BdJDA0FwkMVSQwYCoSGEaRwDB+PxB3bzDqRHExBHKI/ub6IbzHiYsjxi+SSz4u7r4B6JeLZVMZmSvcmiAA1GELS3KTGsbuweI+iNAcHxF374CuI4EB6C4SGJqLBIYqEhgwFQkMo0hgGK/dxd0XjIqjGbcVF0cgh+hv0e9cf8Sos2SxuFhi/FaQ48TdOwD9cL1Me+SPWxMEgDpsYUluUkMjHC/uAwnjd41sJO6+AV1HAgPQXSQwNBcJDFUkMGAqEhhGkcAwPsvLb8TdF4w6XFwcgZyOENcf4T1bXBzRDKvKCeLuHYBui4S8fcTNDbdwa4IAUIctLMlNamiE7cR9KGH83i7ungF9QAID0F0kMDQXCQxVJDBgKhIYRpHAMD7PFHdPMOpK2UBcHIGcbidXieuXGPU3iUVyF0s0w2pCEgPQPweImxP+y60JAkAdtrAkN6mhMY4R98GE8blC1hZ3v4A+IIEB6C4SGJqLBIYqEhgwFQkMo0hgGI9Y4IuFPndPMOqV4uIIlPBqcf0S3qvExRHNEUkM7OgL9MesyQvBrQkCQB22sCQ3qaEx7iI3ivuAwnjwgw19RwID0F0kMDQXCQxVJDBgKhIYRpHAMB6vFXc/MOoPspK4OAIlrCzniuufGMULPe0Q8+rnxN1DAN1wk8SOX24OGOHWBAGgDltYkpvU0CgfE/dBhfIuELbMQ9+RwAB0FwkMzUUCQxUJDJiKBIZRJDCUt54wX9f3GHFxBEraU1z/hPcOcXFEsywnbxF3DwG0Wxx/9ChxY99ya4IAUIctLMlNamiUzeRacR9YKOu54u4R0CckMADdRQJDc7EgVkUCA6YigWEUCQzlHSzuXmDUd8TFEBiHE8X1U4yK55MbiYsjmudJcp24ewmgfc6RrcWN92m5NUEAqMMWluQmNTQOD0LGL7a3XCzu/gB9QgID0F0kMDQXCQxVJDBgKhIYRpHAUNYd5Xpx9wJVcUzm3cXFERiHbeVmcf0Voz4qLo5opvvJ+eLuJYD2OFrmdYyPWxMEgDpsYUluUkPjxFaU/xL34YUy9hZ3b4C+IYEB6C4SGJqLBIYqEhgwFQkMo0hgKOsz4u4DRn1IXAyBcTpCXH/FqEhCuou4OKKZ1pUvi7ufAJotjozYV9zYrsWtCQJAHbawJDepoZHiAZT7EEN+v5I4P87dF6BvSGAAuosEhuYigaGKBAZMRQLDKBIYyrmPuHuAUZdLLKS5OALjdDuJRSLXbzHqC+LiiOaK55ovlH+Lu6cAmifm2k3Fjena3JogANRhC0tykxoaaU25TNyHGfLaRdw9AfqIBAagu0hgaC4SGKpIYMBUJDCMIoGhnO+LuwcYdYC4GAJN8Gpx/Rbe9uLiiGaLI4++I+6eAmiGP8pu4sbwnLk1QQCowxaW5CY1NNbLxH2oIZ8TxN0LoK9IYAC6iwSG5iKBoYoEBkxFAsMoEhjK+H/i4o9Rv5fF4uIINMHKcq64/otRkbzl4ojmi90Y4rffxeLuLYDx+Ks8R5J+X3JrggBQhy0syU1qaKxV5XxxH3DIY4m4ewH0FQkMQHeRwNBcJDBUkcCAqUhgGEUCQ37Lyxni4o9RjxAXR6BJ9hTXf+GxY2m73UbeIdeKu78Ayviz7C+x9uPG6oK4NUEAqMMWluQmNTTas8V90CG9L4q7B0CfkcAAdBcJDM1FAkMVCQyYigSGUSQw5PdUcbHHqG+IiyHQRD8U148x6lcSb/O7OKI94nvUUXKjuPsMII+T5PGSdYcqtyYIAHXYwpLcpIZGiw+0P4j70EM68aX9buLuAdBnJDAA3UUCQ3ORwFBFAgOmIoFhFAkMebE7Yn3Xy13FxRFoonvLzeL6M0btLS6OaJ8t5XCJedvdawALd7l8QLYRNw6Tc2uCAFCHLSzJTWpovPhx4D4Akc6R4mIP9B0JDEB3kcDQXCQwVJHAgKlIYBhFAkNerxQXd4w6WFwMgSb7uLj+jFHnSNa3h1Hc7eXtcom4ew5gbuKYltjp+Qmyirhxl41bEwSAOmxhSW5SQ+PF9myniftAxMLFl4rNxMUe6DsSGIDuIoGhuUhgqCKBAVORwDCKBIZ81hXm5XoulbXFxRFosg3lX+L6NUY9X1wc0W4rSxyX9BNx9x3A9K6QY2QfWUPcGCvCrQkCQB22sCQ3qaEVdhP34YiFe6+4mAMggQHoMhIYmouFsioSGDAVCQyjSGDIJ34vuphj1PPExRBog9eK69cYdaGsJi6O6IY7yRvkbHF9AOi7m+SX8g55oKwgbiwV59YEAaAOW1iSm9TQGj8U94GJ+YsFgvXExRsACQxAl5HA0FwkMFSRwICpSGAYRQJDHneQ68TFHFW/lsY8vAfmIbb5/rO4/o1RrxcXR3TPvSTu98lys7j+AHTdDfILeY88StYSN17Gzq0JAkAdtrAkN6mhNR4g7gMU8/dGcbEGMEACA9BdJDA0FwkMVSQwYCoSGEaRwJDHp8XFG6MeIi6GQJs8Xlz/xqj4vnpbcXFEd8VxK0+Rj8k54voG0Haxu8LvZUL2lx0ljlhxY6Jx3JogANRhC0tykxpa5WviPlgxdxfJWM+kAlqABAagu0hgaC4SGKpIYMBUJDCMIoEhvW2FN03r+ZK4GAJt9CNx/Ryj4k1kF0P0x6byBDlIviuXi+srQBPF97zz5DvyPnmG3EdWFdffW8GtCQJAHbawJDepoVUi229tJLG6uBgDGGLOAbprJXHjHuMX21G6e9ZXtxEXJ/TX8uL6Sp/F1ucuVpg/vgfXx3cKdAljv741xcUQ/RaJpv9P4oWYD8sJ8lchKRDjEEeBnSXHy0fltfI4iaNRWp2oMB23JggAddjCktykBgAAAAAAAAAAkMGKEskNO8mTJRaSPySflxMltuy/VNwiNDDVFfJHOUm+LodL7Ej2PHmUbC9x5Inri53m1gQBoA5bWJKb1AAAAAAAAAAAAMZosdxO7ir3lV1lb3muvFLeLIfIYXKUfFm+KZEE8Ss5XX4ncQxdiCOE44i+cKO4xXDkcZMsi/3FsuyexP2J+/QTiR06jpPPSdzPuLdvl1fLfvIk2V0eKHeXSEqIZBjXdyBuTRAA6rCFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAASrKFAAAAAAAAAAAAAAAAJdlCAAAAAAAAAAAAAACAkmwhAAAAAAAAAAAAAABASbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAFQtWrK0tI3kwfIseb0cKp+V78iJcrKcPsXP5QT5knxc3i0vlcfLEllbXF0AAABontvIfeQJ8io5WOL74DfkJzL1u+BPJb4nflPiv4vvgq+UJ8kDhO+CqM39JuqTiYkJILe1ZXvZW14p75b431flRDndiPIfyLFyuLxNXiS7y11lJXF1zYkbEyXZQgAAAAAAUOUe6iW0oewl75F4GP0v+b9MLpBIgnibPEpuK65NXXeUTH3o3wSnSiw8hLhPX5CPSSxY/K+8QP5HYjHjduKurUs+Jy5OffY1WUVcvEr5uri2lRSLdN+V4+STEklekey1n8QY2VbWEdd+DOQcXx8UV2cOsajr2oCBn0kkRbrY5dCVfjUOi2VHiYSDSEY9V9x3uYX6mxwvB8rDZTVx7emLUt81dhZXfwmRFO3aNB+3zCnu91LXuEXdhnutuAXvXJaKawe8teQREnH7pvxV/i+Dm+R38inZX7aR5cS1aVpuTJRkCwEAAAAAQNUi/zBwIe4lsSB9iriHy6XcLLGbw1LZTlxbu2ZFuUZcPNrmOjlNYgH3FfIw6cpCRFzH9eKuu+9iwcnFrIT1xbWpqS6XH8lh8jzZRlYQd219UmJ8RV9xdad2krj6MfRicbFLrUv9qpS1ZF85Vq4Sd825xT2LxMn9pWSySxOU/K7xK1leXDtye6u4Ns3XS9zvpa5xi7oNdl+5UdyCdi6/FdcWDN1TImHhp1L6/kx2sXxaHi+riGtrhRsTJdlCAAAAAABQtcg/DJyrNeW5Eg8w3cPAJjhTXisbiLuGLoi3G921d8V/JN6sjMXa2HraxaAN4k1Fd319d6OsIS5mJewhrl1tErvcfFWeL5uKu86uyz2+/iiu3tRi8fEGcW3A0Pbi4pdaV/pVbrGIvZvELgvxme2udVxuku/LUyQSPl37u6T0d42niWtHbj8Q1575uq/7vdQ1blG3oWJB+ixxC9e5rSuuTX12R4mkhT+Ji9m4XSkflyXi2n8LNyZKsoUAAAAAAKBqkX8YWFecNxw7HPxT3EPAJoo3+4+UrcRdU5vFTgXumrvo3/IR2UJcLJrsDeKuqe9+KS5epcRRN65dbRW70MTCztNlZXHX3EW5x9cnxNWb2kPE1Y+hqyWOJnDxS60r/SqXVeWF8idx19c0cdREHGcR32Pd9XRB6e8aEdPoB64tuaTeeSz+1mL3e6lr3KJuQ71b3EJ1CY8W16a+iSMaHinHi4tTU/1EHiMjR0y4MVGSLQQAAAAAAFWL/APB2cQ25S+RNiUuTBVve39MNhF3jW30FXHX2mVxH+Ps8HXFxaSJYhcJdy19915x8Sqly9v1XyJvkjbvXFJX7vH1THH1phb3y9WPobjXLnY5dKVfpbaSHCAXibuuprtCIpGhi0le4/iuEUkTri25pN557AT3W6mLpi7oNtSOcpO4xekS3iWuXX2xvOwjcZyGi09bnCwPlP9emxsTJdlCAAAAAABQtcg/EJxJnLN+irgHf20UW66/SMZ1dm8qy8ll4q6xDy6VPcXFpkki+WdcZ4E3XRzh4GJWQl+264854uVS6q310kqMr7uIqzu174irH0OlFku71K9S2l3asuPCbOIIj13EXWcbjeu7Rnyn3lBcm3JIvfPYW9xvpS6avJjbUOM8OmKZk8S1rQ92kTPExaWt4n+3FTsmSrKFAAAAAACgapF/IDid2B74enEP/druR7KxuOtug7uJu66++ZDEG6EuRk2wnbh2Y7y7aDxUXJu66jdyf3GxaLPc4+ticfWmFouPcTyCawOGdhIXv9S60q9SiQXqL4u7lrb7sJQ+BiGHe4u7vhI+Kq5NOaTuh7u630pdFIu4DTfOoyOWuV5WE9e+rtpMjhMXjy64SHZ3Y6IkWwgAAAAAAKoW+QeCU8XbyZ8R97CvS2IRIc4ddzFouueKu6Y++qGsJS5O4xZbbbs2991vxcWrlD5u13+THChd2o0h9/j6orh6U9teXP0Yuk5WERe/1LrSr1KInXL+Ie46uiISvNq4I8Zk4/yuEUd73UNcu1KL3bdcG+YjPhPXcL+VumjCL143xbiPjpjsIeLa2DXLyQvkanFx6Jo3y3JubJRgCwEAAAAAQNUi/0BwslgIPlHcw74uih0mHi8uFk32KXHX01e/liYmMXxeXHv7Lt56dfEqpc/b9cf8vp64uLRN7vH1UnH1pvYScfVjKHZNcrHLoSv9aiFWlEPEtb+LrpC2JrSGcX/X+Ja4dqW0lbi65+tX7ndSV034RewmaMLREZO9UVw7u2QDOV7c9XfZF2RVNz5ys4UAAAAAAKBqkX8ouEwsAJ8q7kFfl8VbWE8XF5OmOlfctfTZSVLqDd26LhTX1r7bR1y8SmC7/iVL/yyxGOTi0ya5x9cO4upN7Vhx9WModg9xscuhK/1qvtaW74lre5dFQuvjxMWk6ZrwXWNXcW1L5dni6p2vQ9zvpK6a8AvZTdCEoyMm+464dnbFA+UCcdfeByfIam6M5GQLAQAAAABA1SL/UDCsJCeIe8jXB5HE8BhxsWmajcVdA5Ys/bi4mI3DFuLaiEEfdjEr4T7i2tQ3sRX3NuJi1Aa5x1ckuZQ6biOOM3JtwNAjxMUutS71q/nYVH4vru190Kbvgss05btG7IS1vLg2pvAJcfXO117ud1JXTfjF7HFr0tERy8SRCovFtbftniHXi7vuPvmGrODGSS62EAAAAAAAVC3yDwXDkeIe8PXJNbKtuPg0yRPEtR8DTVl8eJq49vXdOeLiVcqLxbWrj2Lb9HuKi1PT5R5f8Qa6qze1OHvf1Y+hOGN/DXHxS60r/Wo+tpTYncW1u09iJ4adxMWoiZr0XSN2SXBtTOGP4uqcrw3d76SumvAL2uPUtKMjJtteXJvb7K3irrWvDnbjJBdbCAAAAAAAqhb5h4J7inu410fxgDSO0nBxaooPiGs7Bv4isaOIi11JR4hrX9/FW5QuXqV8QVy7+uoCuaO4WDVZ7vH1v+LqTe1Z4urH0C/ExS6H3P1qqbh6x+0O8jdxbe6jf8jm4mLVNE36rhFHWeRINtpQXH3z9Uf3G6nLJvyi9jg17eiIyV4qrs1ttJx8WNx19t2T3VjJwRYCAAAAAICqRaMPBeOs49hK3D3gyy3ecrtcYsE5Egfi/43//7Xi/vtSxr3AOpvTxLUbQ/uJi11JZ4lrW989XVy8SrlIXLtSiK3XT5/F7yTmujg2IOZA93dK+62UesM9ldzj62Hi6k2NRKfZvUdc7HLoSr+ai1gcjp1xXHtLulIiiWLZ98FxfTdd5mRZUVzMmqRp3zXeLK6dC7GXuLrm6xPuN1KXTfjF7XHZSW4Wt6jcBF8U1+62ieSFj4i7xnG4TP4if5S/yb/E/Xel/FM2ceMlNVsIAAAAAACqFo0+FHyLuId7qd0sJ0nUF2dZxxu/K4hrU7id3E+eKUfJeeL+bi4PEdeucbuNxBnNrs0pxN92i67TiQXbWGgIl8l/xP3d0s4QF79S1hfXrpQi5u6eNN2dxMWshNgi3cUyhUhGWFVcvTNZT7aTJ8u7JObJ2DLf1ZHTl8S1r4lyj6+I/+ri6k5tB4mkNDdWUogdNtw1pvJPcfWmtIu42KXWpX5VVyQunSquvTlFsupn5BkSY2C6BKrYTSk+M/aQg6R0W5u6Y8YyJb5rzNW/ZRNx7Z2v94mra76e5X4jddmEX+Aeh9UkFrDdgnJTXCKu7W3zAXHXV8I5cqg8UbaWODLEtXEF2UIeK7Erx5ni/l4uX3HjJTVbCAAAAAAAqhZVHwjGYvjV4h7upRIP7A+Tu8rU+ufqARLJDCXeWo63pJcX145x2k1ce1OJhTRX71zEQkTc711lf4l7lvrs4jruIa59JTxWXJtSuo+4ujG9WCxzsUzh5+LqnI915TnyS3F15fJcce1pmtzjq+SRBbl9UNw1pvIOcfW2USySu2tMpWn9ajn5iri25vIT+R+ZKYF1NlvL4XKDuDpSiqTMSHxz7WiCEt815iP1TmaniKtnvu7qfiN12YRfPB6HQ8QtJDfNVuLa3xavFnddOV0rcVzFfcS1qa4d5BhxdeSwsxszKdlCAAAAAABQtaj6QDDnYl6IbW23l6n1LlS8jfdtcXWmtK+4+sfpQHFtTeVQcfWmcDf5gJRYdAgvEdeOEt4rrk2pROLRQhaA+upIcfFMIXZPcHUu1MMljnhwdaYW/aoN577nHl8Hi6u3jWIHA3eNqTxSXL1t1Ld+FVv9u3bmELs1pT4+4+5SYkeGL4urvwly99n5il3XthHX5rmKpNiUuxJd4n4fdd2EXygurelHR0z2bHHX0Aaxm4G7ppw+JhuJa898RX+JnRxcfSn93I2ZlGwhAAAAAACoWlR9KJgzCSDeuI+tbafWmUq8ORhb+7q6U/m6uLrH6URxbU1lb3H1phQ7B8Q5167+lD4nrv4S4uxs16ZUYuy6ejGzs8XFM4XHiKszhcUSCRKu3tSavFi3TO7xtae4ettmLcl55FAsUq4tru426lO/imSCuH+unal9RFYR146FWk2+Kq7elOKYH1f/uOXuswvxPXFtnqtI4nN/f76+5H4fdd2EXyAuKcfREX8wZal8Utx1NF0c1/AvcdeUw9/kQeLaksK6crK4ulPKuguDLQQAAAAAAFWLhg8E43iEq8Q93Evh0TK5vlxSJzHEA/0/yzckjqxwdY5LnAV9jbh2p7KRuLpTiy2ZLxbXhlR+Ja7u3GJBJeXbgs4bxdWN6W0gLpap3FZcvSk9RXIuSC/zYHH1N0GJ8RV9xdXdNrmPHPq1uHrbqE/9Kuaqv4trY0rxfSqOkXJtSGlVieM5XBtSmRBX9ziV6LML9ShxbZ+L1N/zX+p+H3XdhF8cLin10REnyj5TylI6V9x1NNnK8mtx15PDT2Q9cW1JaS05Q1wbUvmsGzep2EIAAAAAAFC1aPhA8M63PsjLZWWZXF8usRPDt8S1YSZxjEEccfEliWMZnizxhl08EHb1NMGO4q4llT+JqzeX3cW1I5XzxNWb20PFtSelncXVjenF288ulin8TlydObxIXBtSOkFc3U2Qe3zFLh2u3jZ6m7hrTOXD4uptoz71q8+Ia2NqzxdXfw6RFHmduHak8B8pkaQ2FyW+ayzUmRI7CLn21/VdcX97vnZwv4+6bsIvDJeS+uiI6yV2GrjTpLIcNhZ3PU11sLjryOGrsqq4duRwZ7lGXFtS+I+s68ZOCrYQAAAAAABULRo+EMz94LPkm4Z3lOvFteNaiTPAPytvkljEjHOTVxT3t5rsleKuMZWjxNWb08/FtSWFf4qrM7foZ649qURfb3KiTVPF+fMunikcJq7OXL4grh0pLRFX97jlHl8fE1dvG/1Q3DWm8kRx9bZRX/rVLuLal1okz7j6c8o5x4f9xNU7Lrn7bCoLSWSJ5Ierxf3d+Yi/tdj9Puq6Cb8oXEKOoyPeLsv+/mW3luUQOzxMvpYm20FuEncdqX1fVhLXjpxeJ649qTzFjZ0UbCEAAAAAAKhaNHwo+DhxD/dSeY5Mri+3WEA8SWIRPhb64wiLO0kcleH++zb6irhYp/JscfXm9FZxbUnhcnF15vYdce1JJfq5qxczy7nFeBzt4OrMZRNJuajjfFRc3eOWe3w9XVy9bRNHDkUCn7vGVG4vru426kO/isTN2HnKtS+ln8gK4tqQUySzxrEVrk0pfFtcveOSu8+mconcRtw1zGZ7cX9zvr7nfhv1wYRfEC4h9dERf5ZIilj2948X99+l8EGZfC1NtbycJu4aUvu9xJEOrh25xX3/h7h2pTDhxk4KthAAAAAAAFQtGj4UzJ3AcJWwzX06cVTGP8TFOpWtxNWd0wHi2pLCH8XVmVMs2uReWH6XuLoxvdUl51nhm4urN6fcbxtfKXG2vKt7XEqMr9iK3tXdNvcTd32pjOuInhz60q/iTXjXtpTiu18kErj6SzhZXLtSiCMqVhFXb2mp+2wcq+bKU3m7uOuYzYvF/b35Wup+G/XBhF8Qzi310RHhkTK5jgPF/XcpnCGT62qqZ4hrf2pxhMNW4tpQyrvFtS2FH7mxk4ItBAAAAAAAVYuGDwV3vfVhXm6fkG1lct2Yu63FxTeVS8XVm1vOHRh+IK7OnFK/Leg8RlzdmN7DxcUyhb+JqzO3LcS1J6XdxdU9LrnH10Xi6m2jV4m7xlQ+I67eNupDv4pkpAvFtS+ll4mrv5Sc3ynCA8XVW1rqPvtGybl7RewGs5m4a5nJMeL+3nw93P026oMJvxicU46jI46VqfU8Rtx/m0IkX6wtU+tskjjK4Xxx7U/tBeLaUNJ9xLVtrv4lZ0rs4HGEvFHu7MZOCrYQAAAAAABULRo+FIy3Ad3DvVzOkDgT+f4S2xhPbgtm9zxxcU3ly+LqzS22mnbtSeFQcXXm9BJxbUnptuLqxvSWiotlCkeLq7OE08S1KZVxjKGZ5B5fXxBXbxt9Tdw1prKfuHrbqA/9qsTuC3+QOLrE1V/KnuLalkrE0dVbWuo+G7sIfXxKWWoT4q5lJn8R97fmI3ZhWsP9NuqDCb8YnNOh4haO5ysWnDeVqfVsJO6/T2Xqjg9Ns5+4dqd2ssRRFa4NJS0nl4pr4zI3SBw18iP5jLxDni+7y71kHTdGcrKFAAAAAACgatHwoeDy8k9xD/lyu0bi7fgDZQ+Zz1tZffNpcbFMZRxvTebe4nwfcfXmdKy4tqTyO3H1YmbfExfPFF4ors4SDhLXplQi8czVOy65x1dsV+7qbZs4cuhycdeYyj3E1d1GXe9X0R8iucC1LaW9xNVf0j3FtS2VQ8TVW1rKPhvfyaOPbCj/urUsl9g5wl2Ps5G4vzFfp7jfRX0x4ReDc3mIuIXlhXipuLrCBeL+TQoHiauzCWIxP/UuF9O5n7g2jMORcop8Sd4vL5e9ZUfZWEYSLdyYKMkWAgAAAACAqkXVh4NfFPeQbxxisSUWGd8jT5a7S5zxO7XNffVncXFLZYm4enNZU2Ix3rUlhZtkPXF15xRbhbv2pHKYuHoxvcWS83z7bcTVW8LjxLUplXhjdWVxdY9D7vF1H3H1tk18frrrSyU+ryMJ0tXdRl3vV7uIa1dKZ0oT+kR87rv2pfItcfWWlrLPniLL/u5rby3L5Ycy+Tpm8lhxf2O+3ud+F/XF1AXdjNaQePvdLYLP1+myWFx94Thx/y6Fn4irswl2E9fm1L4qrv7WcGOiJFsIAAAAAACqFlUfDsbbcu4hX1PEmbkny4dlX7mLTL2GPthEXHxS+bfEIq+rO4e15ARxbUnlu+LqzunO4tqS0t/l9IaJrepXEReTJthBXCxTiF1sxrlodzdx7Urp3uLqLi33+Iokl64kzcXxDu4aU/m6uHrbqA/9Ko65cW1LKRJPXd2lxRFlrn2pxGeeq7ek1H32cFn2t+OzPHfCbCQmTL6e6bxT3L+frz3d76K+cIu6mXxI3CL4fN0s8Wa9q2uZ14v7tyn8R1YRV++4fV5cm1PbSVz9reHGREm2EAAAAAAAVC2qPhyMRevzxT3oa6rL5JvyGtlR+rBLQxyF4GKRyvfF1ZtD7PRwtrh2pDSOrayfIa4tfRBv+LqYNMFLxbU5hZiLXJ2lrC6uXSnVXWzKLff4+o64etsozpp315hKfP66etuo6/1qDcm5A024RFYSV/84uDamco64OktK3Wcj4Wny33+CuP8ulTjOJBJNJtfpxG4N7t/P1wbud1FfuEXdDHIcHXG4uLom21Xcv03lQeLqHae15Fpx7U3pVHH1t4obEyXZQgAAAAAAULVo9AFh7GzgHvS1xZUSb4PGGdN3EneNbfdBcdeeylJx9aYSZys/UI6Rm8W1IaVYYCi5o8QyR4prT9fFPV1bXEyaIOdRObHdtquzpNipxrUtlf3F1Vta7vH1RnH1ttFfxF1jKg8QV28bdb1f7SmuXSm9S1zd45A7qetCcfWWlLrPxi5Fk/9+fGf7ibj/NpUDZHKdU8V3uNgdzP3b+Tjb/SbqE7eom1iOoyMukXXE1TfZuuL+fSqvE1fvOO0jrq2p7S+u/lZxY6IkWwgAAAAAAKoWjT4kjAeVPxD3wK+Nfitvk+3EXW8bxZbF7lpTebi4eucj+tNGEgtc8VbfUfJXcfXmEm8nurblVmJniSaKs89dPJriYnHtTmEncXWWdLm4tqWSO8Gprtzj6yHi6m2bTcVdXyrXycri6m6jrverj4lrV0r3FFf3OKwvro2pxLFBrt6SUvbZG8SN5+0lZ8LpP2SmxMc4usj9u/k60v0m6hO3qJtY6qMjwr7i6nL+KO5vpHC8uDrH6dPi2prSTbKBuPpbxY2JkmwhAAAAAACoWuQfFG4sF4l76NdmkcwQbw+vKe6622AtuUnc9aUSC9CRJDFff5J44zeO98jd1tmcKsuLi2VOtxPXnj44QlxMmuCu4tqcwn8kzgt39ZYUC0Gufak04e3q3OMrFvFWE1d32+Q+cujH4uptow3EXWMqTehX54prWypxHICrd1zuIa6dqYw7gSH1XPgrcfWESEB1/yaV94irNzxf3L+Zr2e430R94hZ1E8pxdMQPZDlx9TlHi/s7KVwpK4ird1wuFNfWlH4sru7WcWOiJFsIAAAAAACqFvkHhSG2kP2XuAd/bRcPnOMt4kgGcNfeZLuJuyaMulHirUEXx9weJ65NffBMcTFpgmeJa3MKPxVXZ2m55+1DxNVbUu7xdZK4etvoQ+KuMZW3i6u3jbrer2I3JNeulJp0fETI/Z3pPHH1lpK6z8Z84eoJkdx8tbh/l0IkAd5RXN2fEvdv5uvO7jdRn7hF3URyHB1xvdxNXH3Tebm4v5XKduLqHYctxLUxtVeJq7+ue8npLfArubsbN6nYQgAAAAAAULXIPyhc5oFypbiHf11wicSCZhxz4K6/ieI4DHctGPUGcTEs4X3i2tQHdxMXkyb4hLg2p3CQuDpLWlFc21Ka6S3ZUnKPryZcYypniLvGVP6fuHrbqOv96lHi2pVSJAy4uscldt1y7UzlN+LqLSV1n32SuHqWeZO4f5fK58XVGzt7uP9+PmKHOfubqE8m/AJzCjmOjnibuLpm8iBxfyuVA8TVOw5PFNfG1LYWV39dETP3d5vofW7cpGILAQAAAABAVTzEm8W9JI4DcA8Bu+LbsqG462+aH4q7BlR9UcZxdMQyp4hrV9fF8QVNTgj6o7h2p7C7uDpLirdXXdtSit1rXN0l5R5fe4irt21il6Gc59bH327jTkbT6Xq/eq24dqUSux6tIa7ucTlMXFtTOUFcvaWk7rN3ElfPMqvK+eL+bSr3k8l1riPuv5uvY8X+JuqTCb/AvFA5jo74k6wqrr6ZrC43ifubKXxeXL3j8HZxbUzpL+Lqnoucx3qktpcbN6nYQgAAAAAAUBUP8WpYV74k7kFgV/xd4tgMd/1NsZJcK679GIoFhXGeMx4LOLGQ49rWdd8UF5MmiCQl1+YUYiE3FllcvSU9RFz7UjpAXN2llBhf64uru21idwR3fanE7g6u3jbqQ7/6uLh2pXK6uHrH6WRxbU0ljjZw9ZaQus9eLK6eqZ4o7t+nEscxTU6E3EXcfzdfLxb7m6hPJvwC80LkODoi/D9x9dXxO3F/M4WLxNU5Dl8S18aU4n+u7rk4X9zfbqL13bhJxRYCAAAAAICqeIg3B3tJ7jevxinO9n2ouGtvgngrzbUbQ8fLOJMXwsPFta0Pxnlsx2xi/nJtTmHc24gv8zJx7UvpCeLqLiX3+DpLXL1t9HZx15jKTOflt00f+lUk97m2pTIhrt5xie8CuZNS3iyu7hJS99njxNUzVSQX/Ezc30hlb1lW3+tvLUvlPmJ/E/XJhF9gXoiPilsIXogviKurrk+I+7upbCmu3tJOFde+lPYTV3ddm4r7u030OzdmUrKFAAAAAACgKh7izVFsH/sSiR0L3IPBtrtK7i3u2sftVeLajIE4C3oFcbErKbbYd+3rgyYnAB0irs0pfERcnaV9Rlz7UrqvuLpLyT2+Piqu3jb6kbhrTGUfcfW2UR/61e/FtS2VOKLC1TsuJZIJx5nQlbrPvlpcPc4ScX8jlXMldh2Lur58a1kKkah8y/dE95uoTyb8IvN87SpuIXghrpJNxNVX1wvF/e1UniGu3tIuFde+lO4hru66niDu7zbRYW7MpGQLAQAAAABAVTzEm6d4sBiLF9+Vm8Q9KGyr8+S24q57nL4qrr19F8k0jxYXs3H4nrh2dl3MA007/3yyX4prdwpPEldnSfFWbInEstuIq7+U3OPrqeLqbZv4jL5O3DWmsqm4utuoD/0qjghwbUsljhZw9Y5LJDW6dqZ0N3F1l5C6zz5IXD3TiR033N9J5eUS9VwwqWyhviO3tN/9JuqTCb/IPB+3kRxHA7xEXH1zsYO4v53Kx8XVW9rN4tqXyg2yori663q/uL/dRPu4MZOSLQQAAAAAAFXLHuQt0AbyfDlRbhD30LBtxnmusROLk/8Q19a++o+8V9YSF7NxWCzxhp9rb9edJi4mTZD7fPvNxNVb0rbi2pbSn8XVXUqJ8XUncXW3zf3FXV8qfxFXbxv1pV/9U1zbUtlZXL3jEm/xu3amcoUsL67u3FL32fjuHjusubqmEwlM14j7eylEf73nlLKFepPc0n73m6hPJvwi83wcIW4ReCFOk8Xi6puLlSUW310dKfxRXL0lrS2ubSmdJa7uufiFuL/dRBu6MZOSLQQAAAAAAFXLHuQlFG/n7iGHyzniHiC2xQ7irnEc7i6ujX10rbxfmrBoPFXubZWb7MPiYtIEu4prcwrni6uztLeLa19K4z7jPvf4ih0sXL1tFNvBu2tMZdx9IaX4rHfXmEpT+pVrW0p3FVfvOMRRYK6NKX1dXN0lpJ4LfyGuntnkPnrlt6ZsIf57zJX7TdQnE36Rea5yHB0RuwncV1x983GKuHpS2VBcvaWsL65dKR0nru66VpMbxf3tpjnbjZfUbCEAAAAAAKha9iAvo41kbzlUYgv3Nu3QcJy4axqH/cS1sU/+KvGwfD1xMWqCl4lre0qnN9T/iItJE7xFXCxT+Iy4OkuKt4AjkcK1L6Xniau/lNzj6xhx9bbR18RdYyrxmeTqbaO+9KvYtci1L5XNxdU7DvGd07UxpQPE1V1C6j4b8XL1zGY1+Zu4v9k0sQtTtPeWtrvfRH0y4Rea5yLX0REfEVfffB0mrp5U9hJXbymbi2tXSrHLhqu7rgeL+7tN9DE3XlKzhQAAAAAAoGrZg7yCVpbt5TlymJwiuR+qz1c87NxQ3HWUlvus4aaKLZJj8efRsoK42DTJl8RdRyq/F1cvZnaCuHim0ISF3EeJa1tqtxdXfym5x9f+4uptm0houVzcNaYSuwK5utuoL/0q9zFU64irt7T4nnmZuDamNM5jQVL32SeKq6eOJ4v7m01zsvy33e43UZ9M+IXmuchxdESIYxlOT+jv4upJ5f3i4lPKeuLaldJ7xNVd12vF/d0meoobL6nZQgAAAAAAUDX5Yd4YrSix3e+ypIZT5SZxDyBLe7a4NpcW54279nXNdfIzebfEomwsRLh4NNUl4q4rlY+KqxfTi7PCc57TfQ9x9Zb0Y3FtSyl20HF1l5R7fG0nrt62iT7pri+VSI5YTlzdbdSXfpX7e8Ta4uot7Zni2pfSr8TVXUrqPruQ3TNiLogjKNzfbZL3yH/b7X4T9cmEX2iuK8fREW11qrgYlbKquHaltFRc3XV9XdzfbaJN3XhJzRYCAAAAAICqyQ/zGmYN2UX+V74v49ql4VPi2lfSpuLalkoc6+GOBEjpJDlRviKxo8KR8i55lTxdHiZ3kHhz2MWgDeL8bxfflJ4qrm5M777iYplCLOSOu8/Gmd6ubam9VFz9peQeX1dJG3Z5qSP3kUNxPIWrt41y96srpSn9KpJDXRtT2UxcvaX9Wlz7UhrnfJi6z8YREK6eubi/uL/dJHvIf9vsfhP1yYRfaK4j19ERbXWTRExcrEqJNri2pbKQHRiWk3+I+7tNc64bKznYQgAAAAAAUDX5YV7DrS5xjEC8gR4LTe7hZA7xINy1p6R9xLUtlXh729WLuXmWuPimdEdxdWN6LxcXyxS+Lq7OUuLN19gZwbUtpUggW09cG0rJPb6OF1dvG31G3DWm8mpx9bZRn/rV58W1MZXYScvVW9Ju4tqWUuwUta64+ktI3WePFlfPXH1O3N9vivXlv+11v4n6ZMIvNteR6+iINttNXKxKyX1MxmfF1VvHncX9zSY6yo2VHGwhAAAAAAComvwwr0VWk5fJ1eIeUqZ0hbg2lPQhcW1L5R3i6sXcfEJcfFO5QFy9mNmXxcUzhdeIq7OUEkkzoQk70eQeX68XV28bnSfuGlOJt61dvW3Up371ZnFtTOWx4uotpdRRBh8XV38pqfvsC8XVM1exA8e14uoYt7Ok0l73m6hPJvxi82w4OsI7UFy8SjlRXLtS+bW4euuIHRiOktMT+ae4NqbwdDdWcrCFAAAAAACgauoDvUk2kDhH+xES29bHQt37Jbb/jzf2/yAbifu3pWwv8Sace1iZkqu7pDPEtSuV/yeuXszNH8XFN5VUb0n2zaXi4pnCA8TVWcKG8k9x7Urt7uLaUFLu8fVgcfW2ze3FXV8q8Zm7kri626hP/eoJ4tqYylvE1VtKJFC4dqV0s9xNXP2lpO6z24irZz6iD7g6xu0IqbTV/Sbqkwm/2DyTtYWjI7wfiotZKYeLa1cqN8u64uouaQ25TFwbU9jcjZUcbCEAAAAAAH22aMnSFWUTWSJxHMPzZKkcJl+VkyXOwr1e3APAqWIXhMoDwTE4VFzbUnL1lrKWxANz164U4m9HHa5u1BeLyS6+Kb1IXN2Y3lbiYplCLOSuLK7e3OJN42+Ia1dqXxTXhpJyj6/4zFtVXN1t80Rx15jKj8TV20Z961ebimtnKj8UV28JMRfnTkYJcUyCq7+U1H02kuCWF1fXfMRxb38XV9c4PU0qbXW/k/pkwi8QzyTeoneLvpiYuE5WEhe3EvYX166Unieu7pLeKq5tKfzVjZNcbCEAAAAAAH2zaPBgMhagLhH3UG8hzpdxv4m5j7i2pXKVuHpLid0RXLtSid0dXL2Ym8eLi29KKd+S7IvniItlCuNcyH2buDaldoPcWVwbSso9vn4urt42+rC4a0zl7eLqbaM+9qvYPcu1NYWbJBbYXb25xVFYrk0pxXy4pbj6S0ndZ78prp6FeLq4usZpC6m00/1m6pMJv0A8nd3FLfpi6AHiYlfCduLalNKZEsdBuPpL2EoiUcS1LYUJN05ysYUAAAAAAPTNosHDVvcwL5VxnwGfe4H/z+LqLSUWi1y7UvmQuHoxN3G8iotvKldKyrck++KT4uKZwjgWcmPnhdzn2E92sLh2lJZ7fL1LXL1t9Gtx15jKbuLqbaM+9qtok2trKuM4RiKOOsu5U9Uy7xZXf0mp++xrxdWzEPFd5Zfi6huHC2Wkne43U59M+EViJ46OuEDcoi+GXiMufiUsL5eIa1dKzxRXf24ryyni2pTKs904ycUWAgAAAADQR4vybqv7H7mvjDwcLOQN4tqVyrfE1VtKvOXt2pVK7GDh6sXc/EpcfFMZdz9sqz+Ji2cKkTzl6sxlbfmCuLbkcJ6sIa4tpeUeX48RV2/bRB/JuZAbb9h36cihPvare4lrayr/ko3F1Z1DXE8k+Lm2pBQ7jq0prg0lpe6zDxRXz0LF33X1jcPnZaSN7vdSn0z4hWKHoyPq+bq4+JVyhLh2pXS5bCau/lxi14dPiWtPSlu6cZKLLQQAAAAAoI8WLVl6iLiHeqlcKtvKyAPCzGJx7W/i2pRKvO3s6i4hjueIc/Zdu1LZRFzdqC/6YSzsufimkuMtya7bSFwsU4hF4lILufE2674Sb5G6tuQSbzW79pRWYnzdVlzdbfNIcdeXyuni6m2jPverk8W1N5Xvygri6k7p3hLfP10bUttVXBtKSt1n4/vlKuLqSuEYcfWWtr+MtM/9XuqTCb9YPBVHR9R3hcROCC6OJewkrl2pnSpriWtDahHPj4hrR0oXuTGSky0EAAAAAKCPFg3OzncP9VKKt+6eICMPCTNZWb4hri0pPUhc/SXcX1ybUhn38RhdEQsbLr4p7SSubkxvb3GxTOEMcXWmtLo8U34nrg05vU9cm8Yh9/g6U1y9bfQOcdeYygfF1dtGuftVjFtXbxM8XlybU/qMrCiu/hSeJP8WV3dqTen3qfvsT8TVk8rmkjsJt47tZKR97vdSn0z4BePJODpi7u4lLpYlxE4FvxHXrtR+JuuJa0cqkSTxVXH1p3a0GyM52UIAAAAAAPpq0ZKlPxT3YC+1r8rWMvKwMKG7S+6tn8NfJM6cd20o4dXi2pXKp8XVi7mJM79dfFOJY1pyviXZVYeKi2cKHxJX50LdTp4useX1VeLqzu0kiQQx175xyD2+DhNXbxv9WNw1ptKlI4f63K9iV5fYTcO1O6U4AutO4towX5tJyaN04rtmU+bD1H32IHH1pJQ7qWo28TlqdwNxv5X6ZMIvGk/G0RFz90JxsSzlaeLalcP58ghx7VioPeWv4urNYT83RnKyhQAAAAAA9NWiJUsfJe7hXg6xvXrsjhBvQMdbxCMPDucptgs+Sm4UV29qS8W1o5SviWtXKs8VVy/m5gRx8U0l91uSXXWquHimsJCF3DgaJhbhdpQ95Y1yrJwjrq6S/i5x9IZr97jkHl9PEVdv28QiK0cO1df3fvUwce1O7VqJHV0WmsgQx5R9VK4XV08Ol8gdxLVnHFL32ThyxtWT0ppykbj6SzheXLvsb6U+mfALx8vkOjriX3L6GF0url2pHC0unqWsIL8T17ZcTpRHyYri2lTXyrK3nCSunpy2cmMkJ1sIAAAAAECfLRqcS+we8OUUb4+fKPEW1lPlgbKxjDxMnCL+m/hv423kj8gfxf39XK6U9cS1rYTY+eFycW1L5W7i6kZ9sUX2NeLim0r0g3hbtm3sudOF3EZynm9/trhrduKoltjN5Qr5p7i/1wQx58VxQy6e41JifMU2567utnmAuOtLpUtHDi0W+tWSpRPi2p7LyXKgREJtJDRMd8REJHndSyJRLHbSifnT/b2cIhmoSUc3pZ4LI9F4bXF1pRZHIbk2lPAGcW2yv5P6ZMIvIoecR0fEDgGuzlLeLK5dqUTcXL0lPUxc23K7VCKB4wXyINlA4lgL18awruwsL5Jj5Apxfze3aPdybozkZAsBAAAAAOizRUuW3kNuEPeQbxxiMe9CiYWRSFA4/9ayJpyZ+1IZeeBZUNwr165ULpNxHo/RFfEWvYsvliz9m7iYlbCbuDbBi4WxJi3WLZN7fI2zj6b2GnHXmEqXjhyiXw2sI9FWdw2lxC4HkaAQO9BEWyKRyv13JUXy2+PExWxcUvfZX4urJ4c4siTnjkgz2Vlcm+zvpD6Z8IvKIdfREfGm/kwL2iXk2llisjuKq7ukI8W1rbQb5O/yF/m9nCOXyHXi/vtxONaNj9xsIQAAAAAAfbdoydLXi3vIh6Gfiz0zt6D9xLUtla+Iqxdz8wpx8cWSpUeLi1kJ8ZavaxNGxYJhE5MXQu7xNc4+mtrXxV1jKs8TV28b0a+GYmG85LEMTRfJC08WF6txSt1nPyyunlweJK4dOUW/Xk1ce+xvpD6Z8AvfuRb4r5etxdVZ0obi2pfSU8XVXdIacpa49qHqRW585GYLAQAAAADou0WDN6G+Ie5hH5YsvVTifPqRh52FfUZc+1KJh+GuXszNceLiiyVLXyQuZiXEsTWuTaiKHXC2FxfDJsg9vl4ort62ic/13EcObS2u7jaiX1XtK+46+iaSF54lLkbjlrrPxvEcrp6cviSuLbmcJK4dt3C/kfpkYnTR+7ZyobhF3oV6m7g6x+F8cW1M5Qhx9Za2lVwpro0YuqcbH7nZQgAAAAAAcEsSw5pymrgHfn0W26jfX0YedI7BeeLamEq8denqRX1xBEckvLj4YsnSe4qLW25xfnru8+27ID4DmpCsNZ0S42sbcXW3Te4jh/4hXTlyiH7lvUzctfRFvK2/l7jYjFuOPrupuLpyupP8R1x7cniXuHbcwv0+6pOJ0QXvz4hb4F2oc2VVcXWOw5fEtTOV2PnA1TsOO8k14tqJiYnLZXk3PnKzhQAAAAAAYGDRkqXrS5yB6x769VEseD5URh5yjsHtxbUxlbjWFcXVjfq2EhdfDN4Gj7fCXdxyy32+fRccJquIi19T5B5fcXTGuPpoas8Xd42pfFVcvW2Uu1/9U9rar14i7pq67hKJIw5cTJogdZ/9i7h6SninuDbl8BhxbbiF+23UJxPVhe49xC3wpvBImVrfOL1GXDtTWl9c3ePwUCGJwTvOjY0SbCEAAAAAABhatGTpWnKCuAd/fRJvtt1PRh5wjskTxbUzlR+Iqxdz8xxx8cWSpV8RF7MSXimuTViy9CLZU1zcmib3+PqmuHrb6LPirjGVV4mrt43oVzOLowWuFXdtXfQr2VxcLJoidZ+dEFdPCbeRi8W1K7XbimvDLdzvoj6ZGC5wx9ERF4lb4F2oY2VyXU2wi7i2pvRYcXWPy30k1/EgbfYSNzZKsIUAAAAAAKBq0ZKli+W9crO4B4Bd9wtp2sPrD4traypvFVcv5uaT4uKLJUtfIS5mJUTyhGtTn8X8/nGZcUGnYXKPr9eKq7eNzhd3jak0KcFvoehXs9tB4i19d31d8j6JI4dcDJokdZ99nrh6SimR/HmmuLr/y/0m6pOJ4eJ2rqMj/iWbyuS6mmAtce1N6WBxdY/TxvITce1tq7iet04pm4t7u7FRgi0EAAAAAABVkx7mPUTOE/cgsItukgOliUcp5D7aY1dx9WJu/iQuvliydIm4mOUWZ4VfJq5NffUzGdf9WIjc42sncfW2zWbiri+VeBu/DYu8ddGv6llHPi/uGtvuj9Km+5S6z24trp5SVpDc33MPF1f3f7nfRH0yMVjUznl0xEtl8gJ6k/xRXJtTOUVcveO2WF4v/xHX7jZ5n6wk95hUNhdXygpubJRgCwEAAAAAQNWUB3prSizqXyPugWBXnCRNXdBbW3LuhhGJG2uIqxv1bSwuvliy9GqJnV1c3HKLhRnXpj46TR4tLk5Nl3t8/UdWEVd32zxJ3DWm8kNx9bbRRuKuMZUu9atl9pILxF1v2/xbXidtukep58J/SCT6ubpKeqi49qWyr7h6/8v9JuqTibxHR5wusVg+dQG9KXLtOrHMjbKGuLqbYCv5ubi2N935sqssu5bl5GJx/+1Mvu7GRSm2EAAAAAAAVLmHerKJfES6dg5ybLMdDzWb8PB2Oo8U1/ZU4rxnVy/m5gni4oslS78jLmYlxNbYrk19coLsJk2e52aTe3z9VFy9bRSf1e4aU3mbuHrbiH41P8uSWyM5zV1300ViySESCSzu+posdZ+NI5ZcPeNwnLg2pnBHcXX+l/tN1CcT+Rbxb5YdZdkCcxPF7hCu7SntIq7upoiF/yfJueLa3zTXy7tlTZl6LUeL+zczeYUbF6XYQgAAAAAAUOUe6k2yvvyvXCjuAWFb/FLiLdVxvRU+F+8Qdw2pxEN8Vy/m5gPi4oslS98gLmYlfFpcm7ou5uiD5W7i4tI2ucfXQeLqbaPfiLvGVCIZxtXbRvSrhbmdRCJDW47puVziO1XsYuCupw1S99lXiqtnHLaU68W1cyFixxBXX4X7TdQXE3mPjjhcpi4wN80DxLU9pTeLq7tp4hiG/aWpiQyRuHCYbCau/WE/cf92Jvd1Y6MUWwgAAAAAAKrcQz0jzquNRYzPSlvewLtY4sHvjuKuqal+LO56UontoF29mJvYnt/FF0uWPlhczEr4s7g2dVGc4x4JSbEVd8zRLh5tlXt8PUpcvW2zjuQ+cmgtcXW3Ef0qjVXl+XKyuDiMU/TZ2IXmKRLtdO1vk9R9tmnfid8jrp0LcbS4uircb6I+mMh7dMQlso5MXWBumtXlJnHXkMoJ4upuquUlElui3bGLhrumki6Tg2WmxIVl7izub0znalnsxkcpthAAAAAAAFS5h3qzWFl2lffL78U9PByHWMSJnRbeKW1d0IsdInIf27GhuLpR3+oSiyQuvn13nYzrfPHo265NbRcxPUu+LvE28d7Sxq3Q68o9vuKzYl1xdbdNJBa6a0wlFk9dvW1Ev8pjC3mNxPevcX0u/ltiftxPNhDXzjZK3WevkZXE1TUua8ul4to7Xy8UV1eF+03UBxMTE++YtJCb2r4ydXG5qX4t7hpS+besIK7upttYXi4nSclkhojZV+TxEjtDuLZN52/i/qZzvBsbJdlCAAAAAABQ5R7qzdFtZXeJbYXjPNt4Kzj3Q+wb5Rz5grxeHildWTh4i5yeybfE1Ym5e7e4GPfdhLh4lXK4RDv+IH+Zo/Pkn/MQCQZungrxf5v838aW5lHX7yQW/E6Ur8nnJHaMieM3YhHu8XJ/afPW5wuRc3w16Qz4hYo3zL8p7jpTGOdxMDnk7Ffx/cfV2SexW0fsQhFv1f9IYr5z8+JC/Um+JK+WB0gk1rr2dEHKPnuUuDrG7Rni2jtfdxdXT4X7TdQHExMT28rpGXxOlpOpC8tNdaC460jlTeLqbZt1JXZm+ID8Sq4RlxQwH/+SH8t75eGysrg21BH/c3U4r3FjoyRbCAAAAAAAqtxDvQTiDew4i/0R8mx5kxwqcT59vCUXi3Y/k6kPHU+R+L+FWAw4UuLh7WvlmRI7K9xJVhRXLwAAAJohdot5uDxLXicfkkg+/Z7Ed7343jf5e2Ds+hHlkWj0KYldtV4mj5NtZQ1x9QBz4n4T9cmEXwQGZhO7SsSRDXvKAXKQfEq+LSfKybIsieOXt5YdL5Hg8k7ZXx4rd5U4tsLVMR97yeQEkpns4MZESbYQAAAAAAAAAAAAAACgJFsIAAAAAAAAAAAAAABQki0EAAAAAAAAAAAAAAAoyRYCAAAAAAAAAAAAAACUZAsBAAAAAAAAAAAAAABKsoUAAAAAAAAAAAAAAAAl2UIAAAAAAAAAAAAAAICSbCEAAAAAAAAAAAAAAEBJthAAAAAAAAAAAAAAAKAkWwgAAAAAAAAAAAAAAFCSLQQAAAAAAAAAAAAAACjJFgIAAAAAAAAAAAAAAJRkCwEAAAAAAAAAAAAAAEqyhQAAAAAAAAAAAAAAACXZQgAAAAAAAAAAAAAAgJJsIQAAAAAAAAAAAAAAQEm2EAAAAAAAAAAAAAAAoCRbCAAAAAAAAAAAAAAAUJItBAAAAAAAAAAAAAAAKMkWAgAAAAAAAAAAAAAAlGQLAQAAAAAAAAAAAAAAyvm/Rf8famyMoDPfPE4AAAAASUVORK5CYII= + + + 0, 0 + + + 0, 0 + + \ No newline at end of file diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.vb new file mode 100644 index 00000000..a58058e1 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.vb @@ -0,0 +1,24 @@ +Imports GrapeCity.ActiveReports +Imports GrapeCity.ActiveReports.Document + +Public Class rptRechnungDruck_MDM + Public _LAN = "" + Sub New() + InitializeComponent() + End Sub + Sub New(_LAN) + ' Dieser Aufruf ist fr den Designer erforderlich. + InitializeComponent() + Me._LAN = _LAN + ' Fgen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + If _LAN.replace("DE", "") <> "" Then + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck_MDM") + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck_MDM") + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM") + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM") + End If + End Sub + +End Class diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb new file mode 100644 index 00000000..69b9f9f4 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb @@ -0,0 +1,318 @@ + +Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung + 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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptRechnungMDM_AnlagenDruck_Zinsennachberechnung)) + Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() + Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() + Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() + Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtReBetrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() + CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtTage, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() + ' + 'PageHeader + ' + Me.PageHeader.Height = 0! + Me.PageHeader.Name = "PageHeader" + ' + 'Detail + ' + Me.Detail.CanGrow = False + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtREnr, Me.txtReDat, Me.txtZE, Me.txtReBetrag, Me.txtTage, Me.txtZinsen, Me.txtVZ}) + Me.Detail.Height = 0.1755249! + Me.Detail.KeepTogether = True + Me.Detail.Name = "Detail" + ' + 'txtREnr + ' + Me.txtREnr.Height = 0.1338583! + Me.txtREnr.Left = 0.005119062! + Me.txtREnr.Name = "txtREnr" + Me.txtREnr.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtREnr.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtREnr.Text = "-" + Me.txtREnr.Top = 0! + Me.txtREnr.Width = 1.562204! + ' + 'PageFooter + ' + Me.PageFooter.Height = 0! + Me.PageFooter.Name = "PageFooter" + ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Label5, Me.Label6}) + Me.GroupHeader4.Height = 0.1433071! + Me.GroupHeader4.KeepTogether = True + Me.GroupHeader4.Name = "GroupHeader4" + ' + 'GroupFooter4 + ' + Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18}) + Me.GroupFooter4.Height = 0.1875001! + Me.GroupFooter4.Name = "GroupFooter4" + ' + 'Line18 + ' + Me.Line18.Height = 0.00004923344! + Me.Line18.Left = 0.03444719! + Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer)) + Me.Line18.LineWeight = 1.0! + Me.Line18.Name = "Line18" + Me.Line18.Top = 0.0937008! + Me.Line18.Width = 7.323034! + Me.Line18.X1 = 0.03444719! + Me.Line18.X2 = 7.357481! + Me.Line18.Y1 = 0.09375003! + Me.Line18.Y2 = 0.0937008! + ' + 'txtReDat + ' + Me.txtReDat.Height = 0.1338583! + Me.txtReDat.Left = 1.567323! + Me.txtReDat.Name = "txtReDat" + Me.txtReDat.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtReDat.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtReDat.Text = "-" + Me.txtReDat.Top = 0! + Me.txtReDat.Width = 1.562204! + ' + 'txtZE + ' + Me.txtZE.Height = 0.1338583! + Me.txtZE.Left = 4.691732! + Me.txtZE.Name = "txtZE" + Me.txtZE.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtZE.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtZE.Text = "-" + Me.txtZE.Top = 0! + Me.txtZE.Width = 0.8539373! + ' + 'txtReBetrag + ' + Me.txtReBetrag.Height = 0.1338583! + Me.txtReBetrag.Left = 3.129528! + Me.txtReBetrag.Name = "txtReBetrag" + Me.txtReBetrag.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtReBetrag.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtReBetrag.Text = "-" + Me.txtReBetrag.Top = 0! + Me.txtReBetrag.Width = 1.562204! + ' + 'txtTage + ' + Me.txtTage.Height = 0.1338583! + Me.txtTage.Left = 5.54567! + Me.txtTage.Name = "txtTage" + Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtTage.Text = "-" + Me.txtTage.Top = 0! + Me.txtTage.Width = 0.6039373! + ' + 'txtZinsen + ' + Me.txtZinsen.Height = 0.1338583! + Me.txtZinsen.Left = 6.149607! + Me.txtZinsen.Name = "txtZinsen" + Me.txtZinsen.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtZinsen.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtZinsen.Text = "-" + Me.txtZinsen.Top = 0! + Me.txtZinsen.Width = 0.6039373! + ' + 'txtVZ + ' + Me.txtVZ.Height = 0.1338583! + Me.txtVZ.Left = 6.753544! + Me.txtVZ.Name = "txtVZ" + Me.txtVZ.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) + Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" + Me.txtVZ.Text = "-" + Me.txtVZ.Top = 0! + Me.txtVZ.Width = 0.6039373! + ' + 'lblReNr + ' + Me.lblReNr.Height = 0.1433071! + Me.lblReNr.HyperLink = Nothing + Me.lblReNr.Left = 0.005118132! + Me.lblReNr.Name = "lblReNr" + Me.lblReNr.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.lblReNr.Text = "RechnungsNr" + Me.lblReNr.Top = 0! + Me.lblReNr.Width = 1.562205! + ' + 'Label1 + ' + Me.Label1.Height = 0.1433071! + Me.Label1.HyperLink = Nothing + Me.Label1.Left = 1.567323! + Me.Label1.Name = "Label1" + Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label1.Text = "Rechnungsdatum" + Me.Label1.Top = 0! + Me.Label1.Width = 1.562205! + ' + 'Label2 + ' + Me.Label2.Height = 0.1433071! + Me.Label2.HyperLink = Nothing + Me.Label2.Left = 3.129528! + Me.Label2.Name = "Label2" + Me.Label2.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label2.Text = "Rechnungsbetrag" + Me.Label2.Top = 0! + Me.Label2.Width = 1.562205! + ' + 'Label3 + ' + Me.Label3.Height = 0.1433071! + Me.Label3.HyperLink = Nothing + Me.Label3.Left = 4.691732! + Me.Label3.Name = "Label3" + Me.Label3.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label3.Text = "Zahlungsdatum" + Me.Label3.Top = 0! + Me.Label3.Width = 0.8539371! + ' + 'Label4 + ' + Me.Label4.Height = 0.1433071! + Me.Label4.HyperLink = Nothing + Me.Label4.Left = 5.518111! + Me.Label4.Name = "Label4" + Me.Label4.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label4.Text = "Tage" + Me.Label4.Top = 0! + Me.Label4.Width = 0.6314961! + ' + 'Label5 + ' + Me.Label5.Height = 0.1433071! + Me.Label5.HyperLink = Nothing + Me.Label5.Left = 6.149607! + Me.Label5.Name = "Label5" + Me.Label5.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label5.Text = "Zinsen" + Me.Label5.Top = 0! + Me.Label5.Width = 0.6039373! + ' + 'Label6 + ' + Me.Label6.Height = 0.1433071! + Me.Label6.HyperLink = Nothing + Me.Label6.Left = 6.753544! + Me.Label6.Name = "Label6" + Me.Label6.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + "har-set: 0" + Me.Label6.Text = "Verzugszinsen" + Me.Label6.Top = 0! + Me.Label6.Width = 0.6039373! + ' + 'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung + ' + Me.MasterReport = False + Me.PageSettings.Margins.Bottom = 0.3937008! + Me.PageSettings.Margins.Left = 0.3937008! + Me.PageSettings.Margins.Right = 0.3937008! + Me.PageSettings.Margins.Top = 0.3937008! + Me.PageSettings.PaperHeight = 11.0! + Me.PageSettings.PaperWidth = 8.5! + Me.PrintWidth = 7.452378! + Me.Sections.Add(Me.PageHeader) + Me.Sections.Add(Me.GroupHeader4) + Me.Sections.Add(Me.Detail) + Me.Sections.Add(Me.GroupFooter4) + Me.Sections.Add(Me.PageFooter) + 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.txtREnr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtZE, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtReBetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtTage, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me, System.ComponentModel.ISupportInitialize).EndInit() + + End Sub + Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail + Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader + Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter + Public WithEvents txtREnr As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line + Public WithEvents txtReDat As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtZE As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtReBetrag As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtTage As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtZinsen As GrapeCity.ActiveReports.SectionReportModel.TextBox + Public WithEvents txtVZ As GrapeCity.ActiveReports.SectionReportModel.TextBox + Private WithEvents lblReNr As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label +End Class diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.resx new file mode 100644 index 00000000..e8cbd0f3 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.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/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb new file mode 100644 index 00000000..6c92a0f6 --- /dev/null +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -0,0 +1,73 @@ +Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung + Dim _LAN = "" + Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + ' Dieser Aufruf ist fr den Designer erforderlich. + InitializeComponent() + Me._LAN = _LAN + Me.RECHNUNG = RECHNUNG + ' Fgen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + End Sub + Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart + If _LAN.replace("DE", "") <> "" Then + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck_MDM") + SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck_MDM") + End If + End Sub + + + Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format + If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then + txtREnr.Text = "" + txtReDat.Text = "" + txtReBetrag.Text = "" + + txtZE.Text = "" + txtTage.Text = "" + txtZinsen.Text = "" + txtVZ.Text = "" + + If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString + If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString + If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString() + + If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString + If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString + If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString() + If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString + + End If + End Sub + + Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart + If RECHNUNG Is Nothing Then Exit Sub + + Dim dt As New DataTable + dt.Columns.Add("clmnID") + dt.Columns.Add("clmnReNr") + dt.Columns.Add("clmnReDatum") + dt.Columns.Add("clmnAbfNr") + dt.Columns.Add("clmnReBetrag") + dt.Columns.Add("clmnZE") + dt.Columns.Add("clmnTage") + dt.Columns.Add("clmnZinsen") + dt.Columns.Add("clmnVZ") + + RECHNUNG.ORDER_POSITIONEN() + + For Each POS In RECHNUNG.POSITIONEN + + Dim dtTemp As DataTable + dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID, "FMZOLL") + + For Each rg As DataRow In dtTemp.Rows + dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ")) + Next + + Next + + Me.DataSource = dt + + End Sub +End Class diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 63a8b55d..883b2bf9 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -682,6 +682,18 @@ Form + + rptRechnungDruck_MDM.vb + + + Component + + + rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb + + + Component + rptSammelRechnungAnlagenDruck_ProvSum.vb @@ -3387,6 +3399,13 @@ frmSendEmail.vb + + rptRechnungDruck_MDM.vb + Designer + + + rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb + rptSammelRechnungAnlagenDruck_ProvSum.vb diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index ee9e5b2c..46bbd8aa 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -835,15 +835,16 @@ Public Class usrCntlBH ISNULL(op_debitor.c_zahlziel, '0/0/14') AS ZZ_in_OP, isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde, ISNULL(fibu_konto.c_zahlziel, '0/0/14') AS ZZ_in_Debitor, - isnull(dbo.fibu_zahlziel.si_ntage,14) as ZZinTage , + case when isnull(dbo.fibu_zahlziel.si_ntage,14) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,14) end as ZZinTage, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum, DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen, - case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then + case when DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + 0), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then - op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 + op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") / 100 * DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 else 0 end as Zinsbetrag, + cast(0 as bit) as abgerechnet FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto) @@ -1050,7 +1051,7 @@ Public Class usrCntlBH RG.SteuerpflichtigerGesamtbetrag = 0 RG.SteuerfreierGesamtbetrag = 0 - RG.Status = 0 '<= Status während der Erfassung über die Maut/Diesel-Schnittstelle - Nach Abschluss der Datenübernahme Änderung auf 0 20231220 -> gleich auf 0 setzen! + RG.Status = 0 RG.[Vorkosten] = 0 RG.[Erlös] = 0 @@ -1069,12 +1070,22 @@ Public Class usrCntlBH Dim dt As New DataTable cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, KdNr) - + 'Dim zahlungsperiodeStart + 'Dim zahlungsperiodeEnde For Each r In dt.Rows + 'If r(0) AndAlso Not IsDBNull(r("zahlungsperiode_start")) AndAlso Not IsDBNull(r("zahlungsperiode_ende")) AndAlso IsDate(r("zahlungsperiode_start")) AndAlso IsDate(r("zahlungsperiode_ende")) Then + ' zahlungsperiodeStart = CDate(r("zahlungsperiode_start")) + ' zahlungsperiodeEnde = CDate(r("zahlungsperiode_ende")) + 'End If + + 'If CDate(zahlungsperiodeStart) < CDate(r("zahlungsperiode_start")) Then zahlungsperiodeStart = CDate(r("zahlungsperiode_start")) + 'If CDate(zahlungsperiodeEnde) > CDate(r("zahlungsperiode_ende")) Then zahlungsperiodeEnde = CDate(r("zahlungsperiode_ende")) + Dim NettoBetrag As Double = r("zinsbetrag") Dim BruttoBetrag As Double = r("zinsbetrag") + Dim id As Integer = r("id") Dim UstBetrag As Double = BruttoBetrag = NettoBetrag Dim LeistungsNr As Integer = 950 Dim LeistungsBezAdd As String = "" @@ -1086,7 +1097,7 @@ Public Class usrCntlBH End If - allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd) + allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd, id) Next @@ -1099,6 +1110,9 @@ Public Class usrCntlBH RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim + 'SPEDBUCH.Vermerk = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & "Zahlungen von " & CDate(zahlungsperiodeStart).ToShortDateString & " bis " & CDate(zahlungsperiodeEnde).ToShortDateString + 'SPEDBUCH.SAVE() + If RG.SAVE Then RK_ID = RG.RK_ID Return True @@ -1115,7 +1129,7 @@ Public Class usrCntlBH - Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "") + Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0, Optional leistungsBez As String = "", Optional nachzahlungsID As Integer = -1) Try For Each o In OFFERTE.POSITIONEN @@ -1141,7 +1155,7 @@ Public Class usrCntlBH POS.SteuerfreierBetrag = BruttoBetrag POS.Preis = BruttoBetrag End If - + POS.NachzahlungsID = nachzahlungsID POS.BGebLeistungsNr = o.BGebLeistungsNr POS.BGebProzent = o.BGebProzent POS.BGebMinBetrag = o.BGebMinBetrag diff --git a/SDL/kunden/usrCntlOfferte.Designer.vb b/SDL/kunden/usrCntlOfferte.Designer.vb index af950f35..d7da90bb 100644 --- a/SDL/kunden/usrCntlOfferte.Designer.vb +++ b/SDL/kunden/usrCntlOfferte.Designer.vb @@ -23,8 +23,8 @@ Partial Class usrCntlOfferte Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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 DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.lblBesonderheiten = New System.Windows.Forms.Label() Me.rtbBesonderheiten = New System.Windows.Forms.RichTextBox() Me.lblOffert = New System.Windows.Forms.TextBox() @@ -67,6 +67,7 @@ Partial Class usrCntlOfferte Me.Button2 = New System.Windows.Forms.Button() Me.Panel1 = New System.Windows.Forms.Panel() Me.btnSaveBes = New System.Windows.Forms.Button() + Me.btnOffertPreisliste = New System.Windows.Forms.Button() CType(Me.dgvOfferteDetails, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOfferte, System.ComponentModel.ISupportInitialize).BeginInit() Me.cntxtAddSdl.SuspendLayout() @@ -125,8 +126,8 @@ Partial Class usrCntlOfferte Me.dgvOfferteDetails.AllowUserToDeleteRows = False Me.dgvOfferteDetails.AllowUserToOrderColumns = True Me.dgvOfferteDetails.AllowUserToResizeRows = False - DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOfferteDetails.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -145,8 +146,8 @@ Partial Class usrCntlOfferte Me.dgvOfferte.AllowUserToAddRows = False Me.dgvOfferte.AllowUserToDeleteRows = False Me.dgvOfferte.AllowUserToResizeRows = False - DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferte.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvOfferte.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White @@ -391,6 +392,7 @@ Partial Class usrCntlOfferte ' Me.pnlEdit.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.pnlEdit.Controls.Add(Me.btnOffertPreisliste) Me.pnlEdit.Controls.Add(Me.Button1) Me.pnlEdit.Controls.Add(Me.cbxAutoFakturierung) Me.pnlEdit.Controls.Add(Me.Label3) @@ -413,7 +415,7 @@ Partial Class usrCntlOfferte Me.Button1.ForeColor = System.Drawing.Color.Black Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(607, 0) + Me.Button1.Location = New System.Drawing.Point(617, 0) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(51, 36) Me.Button1.TabIndex = 33 @@ -661,6 +663,21 @@ Partial Class usrCntlOfferte Me.btnSaveBes.Tag = "" Me.btnSaveBes.UseVisualStyleBackColor = True ' + 'btnOffertPreisliste + ' + Me.btnOffertPreisliste.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnOffertPreisliste.BackgroundImage = Global.SDL.My.Resources.Resources.pdf + Me.btnOffertPreisliste.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnOffertPreisliste.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnOffertPreisliste.ForeColor = System.Drawing.Color.Black + Me.btnOffertPreisliste.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnOffertPreisliste.Location = New System.Drawing.Point(569, 0) + Me.btnOffertPreisliste.Name = "btnOffertPreisliste" + Me.btnOffertPreisliste.Size = New System.Drawing.Size(51, 36) + Me.btnOffertPreisliste.TabIndex = 34 + Me.btnOffertPreisliste.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnOffertPreisliste.UseVisualStyleBackColor = True + ' 'usrCntlOfferte ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -748,4 +765,5 @@ Partial Class usrCntlOfferte Friend WithEvents Button2 As Button Friend WithEvents Panel1 As Panel Friend WithEvents btnSaveBes As Button + Friend WithEvents btnOffertPreisliste As Button End Class diff --git a/SDL/kunden/usrCntlOfferte.vb b/SDL/kunden/usrCntlOfferte.vb index 3feb0dfc..f27a47c3 100644 --- a/SDL/kunden/usrCntlOfferte.vb +++ b/SDL/kunden/usrCntlOfferte.vb @@ -1039,5 +1039,13 @@ Public Class usrCntlOfferte + End Sub + + Private Sub btnOffertPreisliste_Click(sender As Object, e As EventArgs) Handles btnOffertPreisliste.Click + + 'dgvOfferteDetails + + + End Sub End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 27738139..3a9dc2a4 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -1125,7 +1125,7 @@ Public Class frmMDMDatenverarbetiung Function genRGAtt_PLOSE(ploseParam As cPLOSE) As Boolean - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND AdressenNr = 401280 group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") 'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ") If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then MsgBox("Keine Daten!") @@ -1202,7 +1202,7 @@ Public Class frmMDMDatenverarbetiung INNER JOIN (((Adressen INNER JOIN tblUTAImportNew ON Adressen.UTAKundenNr = tblUTAImportNew.Kundennummer) INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr) INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImportNew.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImportNew.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart - where isnull(charged,0) = 0 and cast([Rechnungsdatum] as date) = '" & DateTimePicker2.Text & "' and Adressen.AdressenNr not in(756150, 711104) and KundenNr = 401280 " & IIf(test, " and KundenNr = 402352 or KundenNr = 402421 ", "") & + where isnull(charged,0) = 0 and cast([Rechnungsdatum] as date) = '" & DateTimePicker2.Text & "' and Adressen.AdressenNr not in(756150, 711104) " & IIf(test, " and KundenNr = 402352 or KundenNr = 402421 ", "") & " group by Kundennummer, KundenNr, UTAExportCSV,Rechnungsdruck" Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200) @@ -1501,8 +1501,8 @@ Public Class frmMDMDatenverarbetiung Dim top = "" Dim sqlWhere = "" Select Case art - Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "") - Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 401280 ", "") + Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "") + Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543" & IIf(Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " AND Adressen.AdressenNr = 204055 ", "") Case Else MsgBox("falscher Typ!") : Return False diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb index 3569b0f0..fdd21747 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMZinsberechnung.vb @@ -178,7 +178,7 @@ Public Class cMDMZinsberechnung Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag + Using cmd As New SqlCommand("SELECT id,belegNr,belegDatum,buchungstext,zahlungsBetrag,zahlungDatum, ueberschreitungInTagen, zinssatz,zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende FROM tblMDM_Zinsberechnung diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index cc3a2a59..77eb86ee 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb @@ -903,6 +903,7 @@ Public Class cRechnungsausgangPositionen Property BGebBgl As Object = Nothing Property BGebMinBetrag As Object = Nothing Property RePosZeitstempel As Object = Nothing + Property NachzahlungsID As Object = Nothing 'FROM [VERAG].[dbo].[RechnungsausgangPositionen] @@ -945,6 +946,7 @@ Public Class cRechnungsausgangPositionen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebBgl", BGebBgl)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BGebMinBetrag", BGebMinBetrag)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("RePosZeitstempel", RePosZeitstempel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NachzahlungsID", NachzahlungsID)) 'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("upsize_ts", XXXXXXXXXXXXX)) Return list From c73362598f87c1cfbe8d1136bc3d1072350667a4 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 20 Oct 2025 17:34:03 +0200 Subject: [PATCH 06/11] MDM-Fakt --- SDL/Fakturierung/cFakturierung.vb | 4 +-- .../rptRechnungDruck_MDM.Designer.vb | 26 +++++++++---------- 2 files changed, 15 insertions(+), 15 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 2b335f25..8c81753a 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2524,7 +2524,7 @@ Public Class cFakturierung If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG) - rpt.SubReportt.Report = subRpt + rpt.SubReport.Report = subRpt rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) @@ -2532,7 +2532,7 @@ Public Class cFakturierung 'txtKdAuftragsnummer.Top += SubReport.Height 'txtSendungsdetails.Top += SubReport.Height Else - rpt.SubReportt.Report = Nothing + rpt.SubReport.Report = Nothing End If End Sub diff --git a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb index 41aeb925..243d83a2 100644 --- a/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb +++ b/SDL/Fakturierung/rptRechnungDruck_MDM.Designer.vb @@ -26,7 +26,7 @@ Partial Public Class rptRechnungDruck_MDM Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.Line10 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.Line11 = New GrapeCity.ActiveReports.SectionReportModel.Line() - Me.SubReportt = New GrapeCity.ActiveReports.SectionReportModel.SubReport() + Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport() Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo() @@ -223,8 +223,8 @@ Partial Public Class rptRechnungDruck_MDM ' 'Detail ' - Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReportt}) - Me.Detail.Height = 0.5047026! + Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungNr, Me.lblAnzahl, Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtLeistung, Me.Line10, Me.Line11, Me.SubReport}) + Me.Detail.Height = 0.369286! Me.Detail.KeepTogether = True Me.Detail.Name = "Detail" ' @@ -313,16 +313,16 @@ Partial Public Class rptRechnungDruck_MDM Me.Line11.Y1 = 0! Me.Line11.Y2 = 0.1712599! ' - 'SubReportt + 'SubReport ' - Me.SubReportt.CloseBorder = False - Me.SubReportt.Height = 0.1574803! - Me.SubReportt.Left = 0.03307092! - Me.SubReportt.Name = "SubReportt" - Me.SubReportt.Report = Nothing - Me.SubReportt.ReportName = "SubReport1" - Me.SubReportt.Top = 0.1736111! - Me.SubReportt.Width = 7.442126! + Me.SubReport.CloseBorder = False + Me.SubReport.Height = 0.1259843! + Me.SubReport.Left = 0.03307087! + Me.SubReport.Name = "SubReport" + Me.SubReport.Report = Nothing + Me.SubReport.ReportName = "SubReport1" + Me.SubReport.Top = 0.1732284! + Me.SubReport.Width = 7.442126! ' 'PageFooter ' @@ -1730,5 +1730,5 @@ Partial Public Class rptRechnungDruck_MDM Public WithEvents txtBefrderungsmittelUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label Public WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line Public WithEvents txtBank3 As GrapeCity.ActiveReports.SectionReportModel.TextBox - Public WithEvents SubReportt As GrapeCity.ActiveReports.SectionReportModel.SubReport + Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport End Class From d95899945ec293d04ad022ad163b1d453bbf7686 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 22 Oct 2025 11:05:47 +0200 Subject: [PATCH 07/11] Mailsender, tradeinvoice, etc. --- SDL/Fakturierung/cFakturierung.vb | 2 +- ...agenDruck_Zinsennachberechnung.Designer.vb | 230 +- ...ngMDM_AnlagenDruck_Zinsennachberechnung.vb | 6 +- .../usrCntlFaktAbrechnung.Designer.vb | 4103 +++++++++-------- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/buchhaltung/frmBU_Mahnlauf.vb | 22 +- SDL/buchhaltung/usrCntlBH.vb | 1 + SDL/kunden/frmKundenblatt.Designer.vb | 139 +- SDL/kunden/frmKundenblatt.vb | 28 +- SDL/mdm/usrcntlFremdrechnungen.Designer.vb | 147 +- SDL/mdm/usrcntlFremdrechnungen.resx | 3 + SDL/mdm/usrcntlFremdrechnungen.vb | 386 +- VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb | 15 +- .../Schnittstellen/cSyska_Interface.vb | 12 +- 14 files changed, 2692 insertions(+), 2406 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 8c81753a..f6f41d94 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2522,7 +2522,7 @@ Public Class cFakturierung If RECHNUNG.FilialenNr = 8001 AndAlso RECHNUNG.OffertenNr = 95 Then 'dann ist es eine Zinsnachberechnungs-Rechnung - Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG) + Dim subRpt = New rptRechnungMDM_AnlagenDruck_Zinsennachberechnung(rpt._LAN, RECHNUNG, rpt.txtLeistung.Text) rpt.SubReport.Report = subRpt rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold) diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb index 69b9f9f4..4af44a83 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb @@ -20,23 +20,23 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader() Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail() Me.txtREnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() - Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() - Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() - Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() - Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() Me.txtReDat = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZE = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtReBetrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtTage = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtZinsen = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtVZ = New GrapeCity.ActiveReports.SectionReportModel.TextBox() + Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter() + Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader() Me.lblReNr = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label() - Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblReDat = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblReBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblZahlungsdat = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblTage = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblZinsen = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.lblVZ = New GrapeCity.ActiveReports.SectionReportModel.Label() + Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter() + Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line() CType(Me.txtREnr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtReDat, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtZE, System.ComponentModel.ISupportInitialize).BeginInit() @@ -45,12 +45,12 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZahlungsdat, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblTage, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() ' 'PageHeader @@ -77,38 +77,6 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.txtREnr.Top = 0! Me.txtREnr.Width = 1.562204! ' - 'PageFooter - ' - Me.PageFooter.Height = 0! - Me.PageFooter.Name = "PageFooter" - ' - 'GroupHeader4 - ' - Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Label5, Me.Label6}) - Me.GroupHeader4.Height = 0.1433071! - Me.GroupHeader4.KeepTogether = True - Me.GroupHeader4.Name = "GroupHeader4" - ' - 'GroupFooter4 - ' - Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18}) - Me.GroupFooter4.Height = 0.1875001! - Me.GroupFooter4.Name = "GroupFooter4" - ' - 'Line18 - ' - Me.Line18.Height = 0.00004923344! - Me.Line18.Left = 0.03444719! - Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer)) - Me.Line18.LineWeight = 1.0! - Me.Line18.Name = "Line18" - Me.Line18.Top = 0.0937008! - Me.Line18.Width = 7.323034! - Me.Line18.X1 = 0.03444719! - Me.Line18.X2 = 7.357481! - Me.Line18.Y1 = 0.09375003! - Me.Line18.Y2 = 0.0937008! - ' 'txtReDat ' Me.txtReDat.Height = 0.1338583! @@ -173,7 +141,19 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.txtVZ.Style = "color: #202020; font-size: 6.75pt; font-style: italic; ddo-char-set: 0" Me.txtVZ.Text = "-" Me.txtVZ.Top = 0! - Me.txtVZ.Width = 0.6039373! + Me.txtVZ.Width = 0.6988189! + ' + 'PageFooter + ' + Me.PageFooter.Height = 0! + Me.PageFooter.Name = "PageFooter" + ' + 'GroupHeader4 + ' + Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblReNr, Me.lblReDat, Me.lblReBetrag, Me.lblZahlungsdat, Me.lblTage, Me.lblZinsen, Me.lblVZ}) + Me.GroupHeader4.Height = 0.1433071! + Me.GroupHeader4.KeepTogether = True + Me.GroupHeader4.Name = "GroupHeader4" ' 'lblReNr ' @@ -187,77 +167,97 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.lblReNr.Top = 0! Me.lblReNr.Width = 1.562205! ' - 'Label1 + 'lblReDat ' - Me.Label1.Height = 0.1433071! - Me.Label1.HyperLink = Nothing - Me.Label1.Left = 1.567323! - Me.Label1.Name = "Label1" - Me.Label1.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblReDat.Height = 0.1433071! + Me.lblReDat.HyperLink = Nothing + Me.lblReDat.Left = 1.567323! + Me.lblReDat.Name = "lblReDat" + Me.lblReDat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label1.Text = "Rechnungsdatum" - Me.Label1.Top = 0! - Me.Label1.Width = 1.562205! + Me.lblReDat.Text = "Rechnungsdatum" + Me.lblReDat.Top = 0! + Me.lblReDat.Width = 1.562205! ' - 'Label2 + 'lblReBetrag ' - Me.Label2.Height = 0.1433071! - Me.Label2.HyperLink = Nothing - Me.Label2.Left = 3.129528! - Me.Label2.Name = "Label2" - Me.Label2.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblReBetrag.Height = 0.1433071! + Me.lblReBetrag.HyperLink = Nothing + Me.lblReBetrag.Left = 3.129528! + Me.lblReBetrag.Name = "lblReBetrag" + Me.lblReBetrag.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label2.Text = "Rechnungsbetrag" - Me.Label2.Top = 0! - Me.Label2.Width = 1.562205! + Me.lblReBetrag.Text = "Rechnungsbetrag" + Me.lblReBetrag.Top = 0! + Me.lblReBetrag.Width = 1.562205! ' - 'Label3 + 'lblZahlungsdat ' - Me.Label3.Height = 0.1433071! - Me.Label3.HyperLink = Nothing - Me.Label3.Left = 4.691732! - Me.Label3.Name = "Label3" - Me.Label3.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblZahlungsdat.Height = 0.1433071! + Me.lblZahlungsdat.HyperLink = Nothing + Me.lblZahlungsdat.Left = 4.691732! + Me.lblZahlungsdat.Name = "lblZahlungsdat" + Me.lblZahlungsdat.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label3.Text = "Zahlungsdatum" - Me.Label3.Top = 0! - Me.Label3.Width = 0.8539371! + Me.lblZahlungsdat.Text = "Zahlungsdatum" + Me.lblZahlungsdat.Top = 0! + Me.lblZahlungsdat.Width = 0.8539371! ' - 'Label4 + 'lblTage ' - Me.Label4.Height = 0.1433071! - Me.Label4.HyperLink = Nothing - Me.Label4.Left = 5.518111! - Me.Label4.Name = "Label4" - Me.Label4.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblTage.Height = 0.1433071! + Me.lblTage.HyperLink = Nothing + Me.lblTage.Left = 5.518111! + Me.lblTage.Name = "lblTage" + Me.lblTage.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label4.Text = "Tage" - Me.Label4.Top = 0! - Me.Label4.Width = 0.6314961! + Me.lblTage.Text = "Tage" + Me.lblTage.Top = 0! + Me.lblTage.Width = 0.6314961! ' - 'Label5 + 'lblZinsen ' - Me.Label5.Height = 0.1433071! - Me.Label5.HyperLink = Nothing - Me.Label5.Left = 6.149607! - Me.Label5.Name = "Label5" - Me.Label5.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblZinsen.Height = 0.1433071! + Me.lblZinsen.HyperLink = Nothing + Me.lblZinsen.Left = 6.149607! + Me.lblZinsen.Name = "lblZinsen" + Me.lblZinsen.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label5.Text = "Zinsen" - Me.Label5.Top = 0! - Me.Label5.Width = 0.6039373! + Me.lblZinsen.Text = "Zinsen" + Me.lblZinsen.Top = 0! + Me.lblZinsen.Width = 0.6039373! ' - 'Label6 + 'lblVZ ' - Me.Label6.Height = 0.1433071! - Me.Label6.HyperLink = Nothing - Me.Label6.Left = 6.753544! - Me.Label6.Name = "Label6" - Me.Label6.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & + Me.lblVZ.Height = 0.1433071! + Me.lblVZ.HyperLink = Nothing + Me.lblVZ.Left = 6.753544! + Me.lblVZ.Name = "lblVZ" + Me.lblVZ.Style = "font-size: 6.75pt; font-weight: bold; text-align: left; text-justify: auto; ddo-c" & "har-set: 0" - Me.Label6.Text = "Verzugszinsen" - Me.Label6.Top = 0! - Me.Label6.Width = 0.6039373! + Me.lblVZ.Text = "Verzugszinsen" + Me.lblVZ.Top = 0! + Me.lblVZ.Width = 0.6988189! + ' + 'GroupFooter4 + ' + Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18}) + Me.GroupFooter4.Height = 0.1875001! + Me.GroupFooter4.Name = "GroupFooter4" + ' + 'Line18 + ' + Me.Line18.Height = 0.00004923344! + Me.Line18.Left = 0.03444719! + Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer)) + Me.Line18.LineWeight = 1.0! + Me.Line18.Name = "Line18" + Me.Line18.Top = 0.0937008! + Me.Line18.Width = 7.323034! + Me.Line18.X1 = 0.03444719! + Me.Line18.X2 = 7.357481! + Me.Line18.Y1 = 0.09375003! + Me.Line18.Y2 = 0.0937008! ' 'rptRechnungMDM_AnlagenDruck_Zinsennachberechnung ' @@ -288,12 +288,12 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung CType(Me.txtZinsen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVZ, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.lblReNr, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblReDat, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblReBetrag, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZahlungsdat, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblTage, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblZinsen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.lblVZ, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit() End Sub @@ -309,10 +309,10 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Public WithEvents txtZinsen As GrapeCity.ActiveReports.SectionReportModel.TextBox Public WithEvents txtVZ As GrapeCity.ActiveReports.SectionReportModel.TextBox Private WithEvents lblReNr As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label - Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblReDat As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblReBetrag As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblZahlungsdat As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblTage As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblZinsen As GrapeCity.ActiveReports.SectionReportModel.Label + Private WithEvents lblVZ As GrapeCity.ActiveReports.SectionReportModel.Label End Class diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb index 6c92a0f6..b56a782a 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -1,12 +1,14 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Dim _LAN = "" Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing + Dim LeistungsText As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) + Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, LeistungsText As String) ' Dieser Aufruf ist fr den Designer erforderlich. InitializeComponent() Me._LAN = _LAN Me.RECHNUNG = RECHNUNG + Me.LeistungsText = LeistungsText ' Fgen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart @@ -59,7 +61,7 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung For Each POS In RECHNUNG.POSITIONEN Dim dtTemp As DataTable - dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID, "FMZOLL") + dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") For Each rg As DataRow In dtTemp.Rows dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ")) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index 588afe0e..bcf1c464 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -23,6 +23,11 @@ Partial Class usrCntlFaktAbrechnung Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() + 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 resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) Dim DataGridViewCellStyle1 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() @@ -35,16 +40,11 @@ Partial Class usrCntlFaktAbrechnung Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlFaktAbrechnung)) Me.Label9 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() @@ -53,7 +53,6 @@ Partial Class usrCntlFaktAbrechnung Me.Button10 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button() Me.lblDruckaufheben = New System.Windows.Forms.LinkLabel() - Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Panel3 = New System.Windows.Forms.Panel() Me.lblSendungen = New System.Windows.Forms.Label() Me.Label44 = New System.Windows.Forms.Label() @@ -63,18 +62,14 @@ Partial Class usrCntlFaktAbrechnung Me.Label45 = New System.Windows.Forms.Label() Me.Label42 = New System.Windows.Forms.Label() Me.btnDatenLaden = New System.Windows.Forms.Button() - Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblErrFiliale = New System.Windows.Forms.Label() Me.lblErrUnterNr = New System.Windows.Forms.Label() Me.lblAbfNrExists = New System.Windows.Forms.Label() Me.lblAbfNr_Err = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label41 = New System.Windows.Forms.Label() - Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() - Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label39 = New System.Windows.Forms.Label() Me.Label38 = New System.Windows.Forms.Label() Me.lblSB = New System.Windows.Forms.Label() @@ -88,83 +83,40 @@ Partial Class usrCntlFaktAbrechnung Me.EmpfängerToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.AuftraggeberToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.AvisiererToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() - Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Label36 = New System.Windows.Forms.Label() Me.Label54 = New System.Windows.Forms.Label() - Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.Label52 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() - Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label49 = New System.Windows.Forms.Label() - Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label48 = New System.Windows.Forms.Label() - Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label47 = New System.Windows.Forms.Label() Me.pnlAvisierer = New System.Windows.Forms.Panel() - Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label27 = New System.Windows.Forms.Label() Me.btnAvisiererEuro = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.Label21 = New System.Windows.Forms.Label() - Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label13 = New System.Windows.Forms.Label() - Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label34 = New System.Windows.Forms.Label() - Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label25 = New System.Windows.Forms.Label() - Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label24 = New System.Windows.Forms.Label() Me.Label22 = New System.Windows.Forms.Label() - Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pic = New System.Windows.Forms.PictureBox() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblFirma3 = New System.Windows.Forms.Label() Me.lblFirma2 = New System.Windows.Forms.Label() Me.lblFirma1 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() Me.pnlAuftraggeber = New System.Windows.Forms.Panel() - Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAuftraggeberEuro = New System.Windows.Forms.Button() - Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label15 = New System.Windows.Forms.Label() - Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() - Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label20 = New System.Windows.Forms.Label() Me.Label19 = New System.Windows.Forms.Label() - Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label17 = New System.Windows.Forms.Label() - Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label16 = New System.Windows.Forms.Label() - Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label10 = New System.Windows.Forms.Label() Me.pnlRechnungAn = New System.Windows.Forms.Panel() - Me.cboRgArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label57 = New System.Windows.Forms.Label() - Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label56 = New System.Windows.Forms.Label() - Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button15 = New System.Windows.Forms.Button() - Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Button14 = New System.Windows.Forms.Button() Me.picKdAuftrInfo = New System.Windows.Forms.PictureBox() Me.lblKdInaktiv = New System.Windows.Forms.Label() @@ -172,80 +124,40 @@ Partial Class usrCntlFaktAbrechnung Me.lblUIDOK = New System.Windows.Forms.Label() Me.lblUIDErr = New System.Windows.Forms.Label() Me.Button6 = New System.Windows.Forms.Button() - Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label43 = New System.Windows.Forms.Label() - Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label1 = New System.Windows.Forms.Label() - Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label6 = New System.Windows.Forms.Label() - Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() - Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label7 = New System.Windows.Forms.Label() Me.pnlAbsender = New System.Windows.Forms.Panel() - Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAbsenderEuro = New System.Windows.Forms.Button() - Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Panel7 = New System.Windows.Forms.Panel() Me.lblOFgesperrt = New System.Windows.Forms.Label() Me.picVK = New System.Windows.Forms.PictureBox() Me.Button1 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button() Me.Label14 = New System.Windows.Forms.Label() - Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.Button7 = New System.Windows.Forms.Button() Me.btnVorauskasseAnzeigen = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.btnZoll_EUST = New System.Windows.Forms.Button() - Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label26 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label() Me.Label29 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() - Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.dgvOffertenSperrliste = New System.Windows.Forms.DataGridView() - Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label18 = New System.Windows.Forms.Label() Me.lblVK_ZahlungseingangBemerkung = New System.Windows.Forms.Label() Me.lblVK_Zahlungseingang = New System.Windows.Forms.Label() - Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.pnlEmpfaenger = New System.Windows.Forms.Panel() - Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnEmpfaengerEuro = New System.Windows.Forms.Button() - Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() - Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnl = New System.Windows.Forms.Panel() Me.Button16 = New System.Windows.Forms.Button() Me.lblEUR_1 = New System.Windows.Forms.Label() Me.lblEUR_2 = New System.Windows.Forms.Label() Me.lblEUR_4 = New System.Windows.Forms.Label() Me.Label55 = New System.Windows.Forms.Label() - Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.cbxOriginalPrint = New System.Windows.Forms.CheckBox() Me.Label46 = New System.Windows.Forms.Label() Me.Button9 = New System.Windows.Forms.Button() @@ -256,17 +168,11 @@ Partial Class usrCntlFaktAbrechnung Me.Button2 = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.Label23 = New System.Windows.Forms.Label() - Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label37 = New System.Windows.Forms.Label() Me.lblEUR_3 = New System.Windows.Forms.Label() - Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label33 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.Label28 = New System.Windows.Forms.Label() - Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() Me.pnlDocs = New System.Windows.Forms.Panel() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.Label51 = New System.Windows.Forms.Label() @@ -288,11 +194,104 @@ Partial Class usrCntlFaktAbrechnung Me.GutschriftAnVeragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.txtTextZZ = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.optAnhSel = New System.Windows.Forms.DataGridViewCheckBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnBezeichnung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnDsId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnAnhId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.rtbHandling = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtPositionAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsanzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAvisierer = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton5 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cboAnlage5 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtWarenwertUmrechnung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAnlage2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage3 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboAnlage6 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAnlage4 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtErfassungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRechnungNotiz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtkdNrAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAuftraggeberName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftragggeberOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAuftragggeberStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton4 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtText = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.txtBefoerderungsmittel = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGrenze = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSendungsdaten = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtWarenwert = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtZollbelegNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRgArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboVorauskasse = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnZusatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboSammelrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaRechnungAn = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton3 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.txtKdAuftragsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnUIDKz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtRechnungAnUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnBuKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrRechnungAn = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtRechnungAnStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtkdNrAbsender = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaAbsender = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAbsenderName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbsenderStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.sbLeistung = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtUnterNrRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFilialeRef = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummerRef = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dgvRechnungenPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Anzahl = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerpflichtigerBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.SteuerfreierBetrag = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Aufschubkonto = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.dgvOfferteDetailsUebersicht = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.txtRohmasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboWaehrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboWaehrungUmrechnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtkdNrEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfeangerName2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtEmpfaengerStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.kdFirmaEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() + Me.cboSteuerschlüssel = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtSteuersatz = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerFreierBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGesamtsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtSteuerpflichtigerBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBesonderheiten = New VERAG_PROG_ALLGEMEIN.MyRichTextBox() + Me.cboRgGS = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtUnterNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rtbAbf_Besonderheiten = New SDL.usrCntlKundenBesonderheiten() Me.pnlTop.SuspendLayout() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() Me.ContextMenuStrip3.SuspendLayout() - CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() Me.pnlAvisierer.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -303,9 +302,7 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.SuspendLayout() Me.Panel7.SuspendLayout() CType(Me.picVK, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlEmpfaenger.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlDocs.SuspendLayout() @@ -314,6 +311,9 @@ Partial Class usrCntlFaktAbrechnung Me.CntxtAbfArt.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout() + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label9 @@ -440,23 +440,6 @@ Partial Class usrCntlFaktAbrechnung Me.lblDruckaufheben.Text = "Druck aufheben" Me.lblDruckaufheben.Visible = False ' - 'cboRgGS - ' - Me.cboRgGS._allowedValuesFreiText = Nothing - Me.cboRgGS._allowFreiText = False - Me.cboRgGS._value = "" - Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) - Me.cboRgGS.ForeColor = System.Drawing.Color.White - Me.cboRgGS.FormattingEnabled = True - Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) - Me.cboRgGS.Location = New System.Drawing.Point(3, -1) - Me.cboRgGS.Name = "cboRgGS" - Me.cboRgGS.Size = New System.Drawing.Size(211, 33) - Me.cboRgGS.TabIndex = 26 - Me.cboRgGS.Text = "Rechnung" - ' 'Panel3 ' Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -572,19 +555,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnDatenLaden.Text = "Daten laden" Me.btnDatenLaden.UseVisualStyleBackColor = False ' - 'cboSpedBuchUnterNr - ' - Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing - Me.cboSpedBuchUnterNr._allowFreiText = False - Me.cboSpedBuchUnterNr._value = "" - Me.cboSpedBuchUnterNr.DropDownWidth = 350 - Me.cboSpedBuchUnterNr.FormattingEnabled = True - Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) - Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) - Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" - Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) - Me.cboSpedBuchUnterNr.TabIndex = 5 - ' 'lblErrFiliale ' Me.lblErrFiliale.AutoSize = True @@ -654,30 +624,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label41.Text = "Druck-Datum:" Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtUnterNr - ' - Me.txtUnterNr._DateTimeOnly = False - Me.txtUnterNr._numbersOnly = False - Me.txtUnterNr._numbersOnlyKommastellen = "" - Me.txtUnterNr._numbersOnlyTrennzeichen = True - Me.txtUnterNr._Prozent = False - Me.txtUnterNr._ShortDateNew = False - Me.txtUnterNr._ShortDateOnly = False - Me.txtUnterNr._TimeOnly = False - Me.txtUnterNr._TimeOnly_Seconds = False - Me.txtUnterNr._value = Nothing - Me.txtUnterNr._Waehrung = False - Me.txtUnterNr._WaehrungZeichen = True - Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) - Me.txtUnterNr.MaxLineLength = -1 - Me.txtUnterNr.MaxLines_Warning = "" - Me.txtUnterNr.MaxLines_Warning_Label = Nothing - Me.txtUnterNr.Name = "txtUnterNr" - Me.txtUnterNr.ReadOnly = True - Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) - Me.txtUnterNr.TabIndex = 7 - ' 'Label11 ' Me.Label11.AutoSize = True @@ -700,43 +646,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label12.TabIndex = 2 Me.Label12.Text = "UnterNr" ' - 'cboFiliale - ' - Me.cboFiliale._allowedValuesFreiText = Nothing - Me.cboFiliale._allowFreiText = False - Me.cboFiliale._value = "" - Me.cboFiliale.DropDownWidth = 280 - Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(8, 48) - Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(80, 21) - Me.cboFiliale.TabIndex = 3 - ' - 'txtAbfertigungsnummer - ' - Me.txtAbfertigungsnummer._DateTimeOnly = False - Me.txtAbfertigungsnummer._numbersOnly = True - Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummer._Prozent = False - Me.txtAbfertigungsnummer._ShortDateNew = False - Me.txtAbfertigungsnummer._ShortDateOnly = False - Me.txtAbfertigungsnummer._TimeOnly = False - Me.txtAbfertigungsnummer._TimeOnly_Seconds = False - Me.txtAbfertigungsnummer._value = "" - Me.txtAbfertigungsnummer._Waehrung = False - Me.txtAbfertigungsnummer._WaehrungZeichen = True - Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) - Me.txtAbfertigungsnummer.MaxLength = 8 - Me.txtAbfertigungsnummer.MaxLineLength = -1 - Me.txtAbfertigungsnummer.MaxLines_Warning = "" - Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummer.TabIndex = 4 - ' 'Label39 ' Me.Label39.ForeColor = System.Drawing.Color.White @@ -904,117 +813,6 @@ Partial Class usrCntlFaktAbrechnung Me.AvisiererToolStripMenuItem2.Size = New System.Drawing.Size(153, 22) Me.AvisiererToolStripMenuItem2.Text = "4 Avisierer" ' - 'txtTextZZ - ' - Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) - Me.txtTextZZ.MaxLineLength = -1 - Me.txtTextZZ.MaxLines_Warning = "" - Me.txtTextZZ.MaxLines_Warning_Label = Nothing - Me.txtTextZZ.Name = "txtTextZZ" - Me.txtTextZZ.ReadOnly = True - Me.txtTextZZ.Size = New System.Drawing.Size(423, 23) - Me.txtTextZZ.TabIndex = 91 - Me.txtTextZZ.Text = "" - ' - 'dgvAnhaenge - ' - Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvAnhaenge.AllowUserToAddRows = False - Me.dgvAnhaenge.AllowUserToDeleteRows = False - Me.dgvAnhaenge.AllowUserToResizeColumns = False - Me.dgvAnhaenge.AllowUserToResizeRows = False - Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId}) - DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window - 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.ControlText - DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4 - Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911) - Me.dgvAnhaenge.MultiSelect = False - Me.dgvAnhaenge.Name = "dgvAnhaenge" - Me.dgvAnhaenge.ReadOnly = True - DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5 - Me.dgvAnhaenge.RowHeadersVisible = False - Me.dgvAnhaenge.RowHeadersWidth = 62 - Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhaenge.Size = New System.Drawing.Size(329, 219) - Me.dgvAnhaenge.TabIndex = 90 - Me.dgvAnhaenge.TabStop = False - ' - 'optAnhSel - ' - Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None - Me.optAnhSel.FillWeight = 78.74017! - Me.optAnhSel.HeaderText = "" - Me.optAnhSel.MinimumWidth = 8 - Me.optAnhSel.Name = "optAnhSel" - Me.optAnhSel.ReadOnly = True - Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True] - Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic - Me.optAnhSel.Width = 35 - ' - 'DataGridViewTextBoxColumn2 - ' - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle2.Format = "N0" - DataGridViewCellStyle2.NullValue = Nothing - Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2 - Me.DataGridViewTextBoxColumn2.HeaderText = "Art" - Me.DataGridViewTextBoxColumn2.MinimumWidth = 8 - Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" - Me.DataGridViewTextBoxColumn2.ReadOnly = True - Me.DataGridViewTextBoxColumn2.Width = 70 - ' - 'clmnBezeichnung - ' - Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle3.Format = "c2" - Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3 - Me.clmnBezeichnung.FillWeight = 121.2598! - Me.clmnBezeichnung.HeaderText = "Bezeichnung" - Me.clmnBezeichnung.MinimumWidth = 8 - Me.clmnBezeichnung.Name = "clmnBezeichnung" - Me.clmnBezeichnung.ReadOnly = True - ' - 'clmnDsId - ' - Me.clmnDsId.HeaderText = "clmnDsId" - Me.clmnDsId.MinimumWidth = 8 - Me.clmnDsId.Name = "clmnDsId" - Me.clmnDsId.ReadOnly = True - Me.clmnDsId.Visible = False - Me.clmnDsId.Width = 150 - ' - 'clmnAnhId - ' - Me.clmnAnhId.HeaderText = "clmnAnhId" - Me.clmnAnhId.MinimumWidth = 8 - Me.clmnAnhId.Name = "clmnAnhId" - Me.clmnAnhId.ReadOnly = True - Me.clmnAnhId.Visible = False - Me.clmnAnhId.Width = 150 - ' 'Label36 ' Me.Label36.AutoSize = True @@ -1036,30 +834,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label54.Text = "Sprache Rechnung:" Me.Label54.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboRechnungSprache - ' - Me.cboRechnungSprache._allowedValuesFreiText = Nothing - Me.cboRechnungSprache._allowFreiText = False - Me.cboRechnungSprache._value = "" - Me.cboRechnungSprache.FormattingEnabled = True - Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) - Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) - Me.cboRechnungSprache.Name = "cboRechnungSprache" - Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) - Me.cboRechnungSprache.TabIndex = 45 - Me.cboRechnungSprache.TabStop = False - ' - 'rtbHandling - ' - Me.rtbHandling.Location = New System.Drawing.Point(280, 911) - Me.rtbHandling.MaxLineLength = -1 - Me.rtbHandling.MaxLines_Warning = "" - Me.rtbHandling.MaxLines_Warning_Label = Nothing - Me.rtbHandling.Name = "rtbHandling" - Me.rtbHandling.Size = New System.Drawing.Size(207, 121) - Me.rtbHandling.TabIndex = 44 - Me.rtbHandling.Text = "" - ' 'Label52 ' Me.Label52.AutoSize = True @@ -1086,31 +860,6 @@ Partial Class usrCntlFaktAbrechnung Me.Panel2.Size = New System.Drawing.Size(411, 45) Me.Panel2.TabIndex = 41 ' - 'txtPositionAnzahl - ' - Me.txtPositionAnzahl._DateTimeOnly = False - Me.txtPositionAnzahl._numbersOnly = False - Me.txtPositionAnzahl._numbersOnlyKommastellen = "" - Me.txtPositionAnzahl._numbersOnlyTrennzeichen = True - Me.txtPositionAnzahl._Prozent = False - Me.txtPositionAnzahl._ShortDateNew = False - Me.txtPositionAnzahl._ShortDateOnly = False - Me.txtPositionAnzahl._TimeOnly = False - Me.txtPositionAnzahl._TimeOnly_Seconds = False - Me.txtPositionAnzahl._value = Nothing - Me.txtPositionAnzahl._Waehrung = False - Me.txtPositionAnzahl._WaehrungZeichen = True - Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black - Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) - Me.txtPositionAnzahl.MaxLength = 35 - Me.txtPositionAnzahl.MaxLineLength = -1 - Me.txtPositionAnzahl.MaxLines_Warning = "" - Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing - Me.txtPositionAnzahl.Name = "txtPositionAnzahl" - Me.txtPositionAnzahl.ReadOnly = True - Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) - Me.txtPositionAnzahl.TabIndex = 46 - ' 'Label49 ' Me.Label49.AutoSize = True @@ -1121,31 +870,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label49.Text = "Pos.Anz.:" Me.Label49.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtAbfertigungsanzahl - ' - Me.txtAbfertigungsanzahl._DateTimeOnly = False - Me.txtAbfertigungsanzahl._numbersOnly = False - Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" - Me.txtAbfertigungsanzahl._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsanzahl._Prozent = False - Me.txtAbfertigungsanzahl._ShortDateNew = False - Me.txtAbfertigungsanzahl._ShortDateOnly = False - Me.txtAbfertigungsanzahl._TimeOnly = False - Me.txtAbfertigungsanzahl._TimeOnly_Seconds = False - Me.txtAbfertigungsanzahl._value = Nothing - Me.txtAbfertigungsanzahl._Waehrung = False - Me.txtAbfertigungsanzahl._WaehrungZeichen = True - Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) - Me.txtAbfertigungsanzahl.MaxLength = 35 - Me.txtAbfertigungsanzahl.MaxLineLength = -1 - Me.txtAbfertigungsanzahl.MaxLines_Warning = "" - Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" - Me.txtAbfertigungsanzahl.ReadOnly = True - Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) - Me.txtAbfertigungsanzahl.TabIndex = 44 - ' 'Label48 ' Me.Label48.AutoSize = True @@ -1156,31 +880,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label48.Text = "Anzahl:" Me.Label48.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtAbfertigungsart - ' - Me.txtAbfertigungsart._DateTimeOnly = False - Me.txtAbfertigungsart._numbersOnly = False - Me.txtAbfertigungsart._numbersOnlyKommastellen = "" - Me.txtAbfertigungsart._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsart._Prozent = False - Me.txtAbfertigungsart._ShortDateNew = False - Me.txtAbfertigungsart._ShortDateOnly = False - Me.txtAbfertigungsart._TimeOnly = False - Me.txtAbfertigungsart._TimeOnly_Seconds = False - Me.txtAbfertigungsart._value = Nothing - Me.txtAbfertigungsart._Waehrung = False - Me.txtAbfertigungsart._WaehrungZeichen = True - Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) - Me.txtAbfertigungsart.MaxLength = 35 - Me.txtAbfertigungsart.MaxLineLength = -1 - Me.txtAbfertigungsart.MaxLines_Warning = "" - Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsart.Name = "txtAbfertigungsart" - Me.txtAbfertigungsart.ReadOnly = True - Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) - Me.txtAbfertigungsart.TabIndex = 42 - ' 'Label47 ' Me.Label47.AutoSize = True @@ -1208,34 +907,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAvisierer.Size = New System.Drawing.Size(415, 67) Me.pnlAvisierer.TabIndex = 8 ' - 'txtkdNrAvisierer - ' - Me.txtkdNrAvisierer._DateTimeOnly = False - Me.txtkdNrAvisierer._numbersOnly = False - Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" - Me.txtkdNrAvisierer._numbersOnlyTrennzeichen = True - Me.txtkdNrAvisierer._Prozent = False - Me.txtkdNrAvisierer._ShortDateNew = False - Me.txtkdNrAvisierer._ShortDateOnly = False - Me.txtkdNrAvisierer._TimeOnly = False - Me.txtkdNrAvisierer._TimeOnly_Seconds = False - Me.txtkdNrAvisierer._value = Nothing - Me.txtkdNrAvisierer._Waehrung = False - Me.txtkdNrAvisierer._WaehrungZeichen = True - Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAvisierer.Location = New System.Drawing.Point(7, 22) - Me.txtkdNrAvisierer.MaxLength = 35 - Me.txtkdNrAvisierer.MaxLineLength = -1 - Me.txtkdNrAvisierer.MaxLines_Warning = "" - Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing - Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" - Me.txtkdNrAvisierer.ReadOnly = True - Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAvisierer.TabIndex = 1 - Me.txtkdNrAvisierer.TabStop = False - ' 'Label27 ' Me.Label27.AutoSize = True @@ -1283,132 +954,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label21.TabIndex = 0 Me.Label21.Text = "4. Avisierer:" ' - 'txtAvisoId - ' - Me.txtAvisoId._DateTimeOnly = False - Me.txtAvisoId._numbersOnly = False - Me.txtAvisoId._numbersOnlyKommastellen = "" - Me.txtAvisoId._numbersOnlyTrennzeichen = True - Me.txtAvisoId._Prozent = False - Me.txtAvisoId._ShortDateNew = False - Me.txtAvisoId._ShortDateOnly = False - Me.txtAvisoId._TimeOnly = False - Me.txtAvisoId._TimeOnly_Seconds = False - Me.txtAvisoId._value = Nothing - Me.txtAvisoId._Waehrung = False - Me.txtAvisoId._WaehrungZeichen = True - Me.txtAvisoId.ForeColor = System.Drawing.Color.Black - Me.txtAvisoId.Location = New System.Drawing.Point(157, 32) - Me.txtAvisoId.MaxLength = 35 - Me.txtAvisoId.MaxLineLength = -1 - Me.txtAvisoId.MaxLines_Warning = "" - Me.txtAvisoId.MaxLines_Warning_Label = Nothing - Me.txtAvisoId.Name = "txtAvisoId" - Me.txtAvisoId.ReadOnly = True - Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) - Me.txtAvisoId.TabIndex = 6 - Me.txtAvisoId.TabStop = False - Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'kdFirmaAvisierer - ' - Me.kdFirmaAvisierer._AlleFirmenCLUSTER = False - Me.kdFirmaAvisierer._AllowSetValue = True - Me.kdFirmaAvisierer._autoSizeGross = False - Me.kdFirmaAvisierer._display_Name1 = True - Me.kdFirmaAvisierer._displayAVISO_Email = False - Me.kdFirmaAvisierer._displayFullName = False - Me.kdFirmaAvisierer._displayWoelflKd = False - Me.kdFirmaAvisierer._hideIfListEmpty = True - Me.kdFirmaAvisierer._loadKdData = True - Me.kdFirmaAvisierer._searchName1 = True - Me.kdFirmaAvisierer._UseFIRMA = "" - Me.kdFirmaAvisierer._ValueKdAndName = False - Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White - Me.kdFirmaAvisierer.dgvpos = "LEFT" - Me.kdFirmaAvisierer.KdName = Nothing - Me.kdFirmaAvisierer.KdNr = "-1" - Me.kdFirmaAvisierer.kdNrField = Nothing - Me.kdFirmaAvisierer.KdNrNullInt = Nothing - Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 2) - Me.kdFirmaAvisierer.MaxLength = 35 - Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" - Me.kdFirmaAvisierer.nurAktive = True - Me.kdFirmaAvisierer.searchActive = True - Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAvisierer.TabIndex = 3 - Me.kdFirmaAvisierer.TabStop = False - Me.kdFirmaAvisierer.TIMER_SEARCH = True - Me.kdFirmaAvisierer.usrcntl = Nothing - ' - 'FlatButton5 - ' - Me.FlatButton5.allowBorder = False - Me.FlatButton5.FlatAppearance.BorderSize = 0 - Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton5.ForeColor = System.Drawing.Color.Black - Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton5.Location = New System.Drawing.Point(382, -1) - Me.FlatButton5.Name = "FlatButton5" - Me.FlatButton5.Size = New System.Drawing.Size(24, 25) - Me.FlatButton5.TabIndex = 2 - Me.FlatButton5.TabStop = False - Me.FlatButton5.UseVisualStyleBackColor = True - ' - 'cboAnlage5 - ' - Me.cboAnlage5._allowedValuesFreiText = Nothing - Me.cboAnlage5._allowFreiText = True - Me.cboAnlage5._value = "" - Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage5.FormattingEnabled = True - Me.cboAnlage5.Location = New System.Drawing.Point(10, 991) - Me.cboAnlage5.MaxLength = 35 - Me.cboAnlage5.Name = "cboAnlage5" - Me.cboAnlage5.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage5.TabIndex = 32 - ' - 'cboAnlage1 - ' - Me.cboAnlage1._allowedValuesFreiText = Nothing - Me.cboAnlage1._allowFreiText = True - Me.cboAnlage1._value = "" - Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage1.FormattingEnabled = True - Me.cboAnlage1.Location = New System.Drawing.Point(10, 911) - Me.cboAnlage1.MaxLength = 35 - Me.cboAnlage1.Name = "cboAnlage1" - Me.cboAnlage1.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage1.TabIndex = 28 - ' - 'txtWarenwertUmrechnung - ' - Me.txtWarenwertUmrechnung._DateTimeOnly = False - Me.txtWarenwertUmrechnung._numbersOnly = False - Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" - Me.txtWarenwertUmrechnung._numbersOnlyTrennzeichen = True - Me.txtWarenwertUmrechnung._Prozent = False - Me.txtWarenwertUmrechnung._ShortDateNew = False - Me.txtWarenwertUmrechnung._ShortDateOnly = False - Me.txtWarenwertUmrechnung._TimeOnly = False - Me.txtWarenwertUmrechnung._TimeOnly_Seconds = False - Me.txtWarenwertUmrechnung._value = "" - Me.txtWarenwertUmrechnung._Waehrung = True - Me.txtWarenwertUmrechnung._WaehrungZeichen = False - Me.txtWarenwertUmrechnung.Enabled = False - Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black - Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(562, 197) - Me.txtWarenwertUmrechnung.MaxLength = 35 - Me.txtWarenwertUmrechnung.MaxLineLength = -1 - Me.txtWarenwertUmrechnung.MaxLines_Warning = "" - Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing - Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" - Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) - Me.txtWarenwertUmrechnung.TabIndex = 18 - Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label13 ' Me.Label13.AutoSize = True @@ -1420,20 +965,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label13.Text = "Anlagen:" Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage2 - ' - Me.cboAnlage2._allowedValuesFreiText = Nothing - Me.cboAnlage2._allowFreiText = True - Me.cboAnlage2._value = "" - Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage2.FormattingEnabled = True - Me.cboAnlage2.Location = New System.Drawing.Point(10, 931) - Me.cboAnlage2.MaxLength = 35 - Me.cboAnlage2.Name = "cboAnlage2" - Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage2.TabIndex = 29 - ' 'Label34 ' Me.Label34.AutoSize = True @@ -1444,58 +975,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label34.Text = "Umrechnung:" Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage3 - ' - Me.cboAnlage3._allowedValuesFreiText = Nothing - Me.cboAnlage3._allowFreiText = True - Me.cboAnlage3._value = "" - Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage3.FormattingEnabled = True - Me.cboAnlage3.Location = New System.Drawing.Point(10, 951) - Me.cboAnlage3.MaxLength = 35 - Me.cboAnlage3.Name = "cboAnlage3" - Me.cboAnlage3.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage3.TabIndex = 30 - ' - 'txtVermerk - ' - Me.txtVermerk._DateTimeOnly = False - Me.txtVermerk._numbersOnly = False - Me.txtVermerk._numbersOnlyKommastellen = "" - Me.txtVermerk._numbersOnlyTrennzeichen = True - Me.txtVermerk._Prozent = False - Me.txtVermerk._ShortDateNew = False - Me.txtVermerk._ShortDateOnly = False - Me.txtVermerk._TimeOnly = False - Me.txtVermerk._TimeOnly_Seconds = False - Me.txtVermerk._value = Nothing - Me.txtVermerk._Waehrung = False - Me.txtVermerk._WaehrungZeichen = True - Me.txtVermerk.ForeColor = System.Drawing.Color.Black - Me.txtVermerk.Location = New System.Drawing.Point(517, 341) - Me.txtVermerk.MaxLength = 35 - Me.txtVermerk.MaxLineLength = -1 - Me.txtVermerk.MaxLines_Warning = "" - Me.txtVermerk.MaxLines_Warning_Label = Nothing - Me.txtVermerk.Name = "txtVermerk" - Me.txtVermerk.Size = New System.Drawing.Size(305, 20) - Me.txtVermerk.TabIndex = 25 - ' - 'cboAnlage6 - ' - Me.cboAnlage6._allowedValuesFreiText = Nothing - Me.cboAnlage6._allowFreiText = True - Me.cboAnlage6._value = "" - Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage6.FormattingEnabled = True - Me.cboAnlage6.Location = New System.Drawing.Point(10, 1011) - Me.cboAnlage6.MaxLength = 35 - Me.cboAnlage6.Name = "cboAnlage6" - Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage6.TabIndex = 33 - ' 'Label25 ' Me.Label25.AutoSize = True @@ -1506,44 +985,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label25.Text = "Vermerk:" Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboAnlage4 - ' - Me.cboAnlage4._allowedValuesFreiText = Nothing - Me.cboAnlage4._allowFreiText = True - Me.cboAnlage4._value = "" - Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend - Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems - Me.cboAnlage4.FormattingEnabled = True - Me.cboAnlage4.Location = New System.Drawing.Point(10, 971) - Me.cboAnlage4.MaxLength = 35 - Me.cboAnlage4.Name = "cboAnlage4" - Me.cboAnlage4.Size = New System.Drawing.Size(266, 21) - Me.cboAnlage4.TabIndex = 31 - ' - 'txtErfassungsnummer - ' - Me.txtErfassungsnummer._DateTimeOnly = False - Me.txtErfassungsnummer._numbersOnly = False - Me.txtErfassungsnummer._numbersOnlyKommastellen = "" - Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True - Me.txtErfassungsnummer._Prozent = False - Me.txtErfassungsnummer._ShortDateNew = False - Me.txtErfassungsnummer._ShortDateOnly = False - Me.txtErfassungsnummer._TimeOnly = False - Me.txtErfassungsnummer._TimeOnly_Seconds = False - Me.txtErfassungsnummer._value = Nothing - Me.txtErfassungsnummer._Waehrung = False - Me.txtErfassungsnummer._WaehrungZeichen = True - Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black - Me.txtErfassungsnummer.Location = New System.Drawing.Point(517, 242) - Me.txtErfassungsnummer.MaxLength = 35 - Me.txtErfassungsnummer.MaxLineLength = -1 - Me.txtErfassungsnummer.MaxLines_Warning = "" - Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing - Me.txtErfassungsnummer.Name = "txtErfassungsnummer" - Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) - Me.txtErfassungsnummer.TabIndex = 11 - ' 'Label24 ' Me.Label24.AutoSize = True @@ -1564,17 +1005,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label22.Text = "Rg-Notiz:" Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboRechnungNotiz - ' - Me.cboRechnungNotiz._allowedValuesFreiText = Nothing - Me.cboRechnungNotiz._allowFreiText = True - Me.cboRechnungNotiz._value = "" - Me.cboRechnungNotiz.FormattingEnabled = True - Me.cboRechnungNotiz.Location = New System.Drawing.Point(64, 1039) - Me.cboRechnungNotiz.Name = "cboRechnungNotiz" - Me.cboRechnungNotiz.Size = New System.Drawing.Size(423, 21) - Me.cboRechnungNotiz.TabIndex = 36 - ' 'pic ' Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Verag_AG_Logo_med @@ -1586,19 +1016,6 @@ Partial Class usrCntlFaktAbrechnung Me.pic.TabIndex = 36 Me.pic.TabStop = False ' - 'cboFirma - ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(592, 51) - Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(229, 21) - Me.cboFirma.TabIndex = 1 - Me.cboFirma.TabStop = False - ' 'lblFirma3 ' Me.lblFirma3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -1656,34 +1073,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAuftraggeber.Size = New System.Drawing.Size(415, 73) Me.pnlAuftraggeber.TabIndex = 7 ' - 'txtkdNrAuftraggeber - ' - Me.txtkdNrAuftraggeber._DateTimeOnly = False - Me.txtkdNrAuftraggeber._numbersOnly = False - Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" - Me.txtkdNrAuftraggeber._numbersOnlyTrennzeichen = True - Me.txtkdNrAuftraggeber._Prozent = False - Me.txtkdNrAuftraggeber._ShortDateNew = False - Me.txtkdNrAuftraggeber._ShortDateOnly = False - Me.txtkdNrAuftraggeber._TimeOnly = False - Me.txtkdNrAuftraggeber._TimeOnly_Seconds = False - Me.txtkdNrAuftraggeber._value = Nothing - Me.txtkdNrAuftraggeber._Waehrung = False - Me.txtkdNrAuftraggeber._WaehrungZeichen = True - Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(7, 25) - Me.txtkdNrAuftraggeber.MaxLength = 35 - Me.txtkdNrAuftraggeber.MaxLineLength = -1 - Me.txtkdNrAuftraggeber.MaxLines_Warning = "" - Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing - Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" - Me.txtkdNrAuftraggeber.ReadOnly = True - Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAuftraggeber.TabIndex = 1 - Me.txtkdNrAuftraggeber.TabStop = False - ' 'btnAuftraggeberEuro ' Me.btnAuftraggeberEuro.FlatAppearance.BorderSize = 0 @@ -1699,64 +1088,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnAuftraggeberEuro.Text = "€" Me.btnAuftraggeberEuro.UseVisualStyleBackColor = True ' - 'kdFirmaAuftraggeber - ' - Me.kdFirmaAuftraggeber._AlleFirmenCLUSTER = False - Me.kdFirmaAuftraggeber._AllowSetValue = True - Me.kdFirmaAuftraggeber._autoSizeGross = False - Me.kdFirmaAuftraggeber._display_Name1 = True - Me.kdFirmaAuftraggeber._displayAVISO_Email = False - Me.kdFirmaAuftraggeber._displayFullName = False - Me.kdFirmaAuftraggeber._displayWoelflKd = False - Me.kdFirmaAuftraggeber._hideIfListEmpty = True - Me.kdFirmaAuftraggeber._loadKdData = True - Me.kdFirmaAuftraggeber._searchName1 = True - Me.kdFirmaAuftraggeber._UseFIRMA = "" - Me.kdFirmaAuftraggeber._ValueKdAndName = False - Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White - Me.kdFirmaAuftraggeber.dgvpos = "LEFT" - Me.kdFirmaAuftraggeber.KdName = Nothing - Me.kdFirmaAuftraggeber.KdNr = "-1" - Me.kdFirmaAuftraggeber.kdNrField = Nothing - Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing - Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaAuftraggeber.MaxLength = 35 - Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" - Me.kdFirmaAuftraggeber.nurAktive = True - Me.kdFirmaAuftraggeber.searchActive = True - Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAuftraggeber.TabIndex = 3 - Me.kdFirmaAuftraggeber.TabStop = False - Me.kdFirmaAuftraggeber.TIMER_SEARCH = True - Me.kdFirmaAuftraggeber.usrcntl = Nothing - ' - 'txtAuftraggeberName2 - ' - Me.txtAuftraggeberName2._DateTimeOnly = False - Me.txtAuftraggeberName2._numbersOnly = False - Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" - Me.txtAuftraggeberName2._numbersOnlyTrennzeichen = True - Me.txtAuftraggeberName2._Prozent = False - Me.txtAuftraggeberName2._ShortDateNew = False - Me.txtAuftraggeberName2._ShortDateOnly = False - Me.txtAuftraggeberName2._TimeOnly = False - Me.txtAuftraggeberName2._TimeOnly_Seconds = False - Me.txtAuftraggeberName2._value = Nothing - Me.txtAuftraggeberName2._Waehrung = False - Me.txtAuftraggeberName2._WaehrungZeichen = True - Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftraggeberName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black - Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 25) - Me.txtAuftraggeberName2.MaxLength = 35 - Me.txtAuftraggeberName2.MaxLineLength = -1 - Me.txtAuftraggeberName2.MaxLines_Warning = "" - Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing - Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" - Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 13) - Me.txtAuftraggeberName2.TabIndex = 4 - Me.txtAuftraggeberName2.TabStop = False - ' 'Label15 ' Me.Label15.AutoSize = True @@ -1767,134 +1098,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label15.TabIndex = 0 Me.Label15.Text = "3. Auftraggeber:" ' - 'txtAuftragggeberOrt - ' - Me.txtAuftragggeberOrt._DateTimeOnly = False - Me.txtAuftragggeberOrt._numbersOnly = False - Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" - Me.txtAuftragggeberOrt._numbersOnlyTrennzeichen = True - Me.txtAuftragggeberOrt._Prozent = False - Me.txtAuftragggeberOrt._ShortDateNew = False - Me.txtAuftragggeberOrt._ShortDateOnly = False - Me.txtAuftragggeberOrt._TimeOnly = False - Me.txtAuftragggeberOrt._TimeOnly_Seconds = False - Me.txtAuftragggeberOrt._value = Nothing - Me.txtAuftragggeberOrt._Waehrung = False - Me.txtAuftragggeberOrt._WaehrungZeichen = True - Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftragggeberOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 53) - Me.txtAuftragggeberOrt.MaxLength = 35 - Me.txtAuftragggeberOrt.MaxLineLength = -1 - Me.txtAuftragggeberOrt.MaxLines_Warning = "" - Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing - Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" - Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 13) - Me.txtAuftragggeberOrt.TabIndex = 7 - Me.txtAuftragggeberOrt.TabStop = False - ' - 'txtAuftragggeberStrasse - ' - Me.txtAuftragggeberStrasse._DateTimeOnly = False - Me.txtAuftragggeberStrasse._numbersOnly = False - Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" - Me.txtAuftragggeberStrasse._numbersOnlyTrennzeichen = True - Me.txtAuftragggeberStrasse._Prozent = False - Me.txtAuftragggeberStrasse._ShortDateNew = False - Me.txtAuftragggeberStrasse._ShortDateOnly = False - Me.txtAuftragggeberStrasse._TimeOnly = False - Me.txtAuftragggeberStrasse._TimeOnly_Seconds = False - Me.txtAuftragggeberStrasse._value = Nothing - Me.txtAuftragggeberStrasse._Waehrung = False - Me.txtAuftragggeberStrasse._WaehrungZeichen = True - Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAuftragggeberStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 39) - Me.txtAuftragggeberStrasse.MaxLength = 35 - Me.txtAuftragggeberStrasse.MaxLineLength = -1 - Me.txtAuftragggeberStrasse.MaxLines_Warning = "" - Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing - Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" - Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtAuftragggeberStrasse.TabIndex = 6 - Me.txtAuftragggeberStrasse.TabStop = False - ' - 'FlatButton4 - ' - Me.FlatButton4.allowBorder = False - Me.FlatButton4.FlatAppearance.BorderSize = 0 - Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton4.ForeColor = System.Drawing.Color.Black - Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton4.Location = New System.Drawing.Point(382, 0) - Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(24, 25) - Me.FlatButton4.TabIndex = 2 - Me.FlatButton4.TabStop = False - Me.FlatButton4.UseVisualStyleBackColor = True - ' - 'txtText - ' - Me.txtText.Location = New System.Drawing.Point(64, 1083) - Me.txtText.MaxLineLength = -1 - Me.txtText.MaxLines_Warning = "" - Me.txtText.MaxLines_Warning_Label = Nothing - Me.txtText.Name = "txtText" - Me.txtText.ReadOnly = True - Me.txtText.Size = New System.Drawing.Size(423, 47) - Me.txtText.TabIndex = 35 - Me.txtText.Text = "" - ' - 'txtBefoerderungsmittel - ' - Me.txtBefoerderungsmittel._DateTimeOnly = False - Me.txtBefoerderungsmittel._numbersOnly = False - Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" - Me.txtBefoerderungsmittel._numbersOnlyTrennzeichen = True - Me.txtBefoerderungsmittel._Prozent = False - Me.txtBefoerderungsmittel._ShortDateNew = False - Me.txtBefoerderungsmittel._ShortDateOnly = False - Me.txtBefoerderungsmittel._TimeOnly = False - Me.txtBefoerderungsmittel._TimeOnly_Seconds = False - Me.txtBefoerderungsmittel._value = Nothing - Me.txtBefoerderungsmittel._Waehrung = False - Me.txtBefoerderungsmittel._WaehrungZeichen = True - Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black - Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(517, 279) - Me.txtBefoerderungsmittel.MaxLength = 35 - Me.txtBefoerderungsmittel.MaxLineLength = -1 - Me.txtBefoerderungsmittel.MaxLines_Warning = "" - Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing - Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" - Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) - Me.txtBefoerderungsmittel.TabIndex = 19 - ' - 'txtGrenze - ' - Me.txtGrenze._DateTimeOnly = False - Me.txtGrenze._numbersOnly = False - Me.txtGrenze._numbersOnlyKommastellen = "" - Me.txtGrenze._numbersOnlyTrennzeichen = True - Me.txtGrenze._Prozent = False - Me.txtGrenze._ShortDateNew = False - Me.txtGrenze._ShortDateOnly = False - Me.txtGrenze._TimeOnly = False - Me.txtGrenze._TimeOnly_Seconds = False - Me.txtGrenze._value = Nothing - Me.txtGrenze._Waehrung = False - Me.txtGrenze._WaehrungZeichen = True - Me.txtGrenze.ForeColor = System.Drawing.Color.Black - Me.txtGrenze.Location = New System.Drawing.Point(517, 260) - Me.txtGrenze.MaxLength = 35 - Me.txtGrenze.MaxLineLength = -1 - Me.txtGrenze.MaxLines_Warning = "" - Me.txtGrenze.MaxLines_Warning_Label = Nothing - Me.txtGrenze.Name = "txtGrenze" - Me.txtGrenze.Size = New System.Drawing.Size(305, 20) - Me.txtGrenze.TabIndex = 16 - ' 'Label20 ' Me.Label20.AutoSize = True @@ -1915,30 +1118,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label19.Text = "Grenze:" Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtSendungsdaten - ' - Me.txtSendungsdaten._DateTimeOnly = False - Me.txtSendungsdaten._numbersOnly = False - Me.txtSendungsdaten._numbersOnlyKommastellen = "" - Me.txtSendungsdaten._numbersOnlyTrennzeichen = True - Me.txtSendungsdaten._Prozent = False - Me.txtSendungsdaten._ShortDateNew = False - Me.txtSendungsdaten._ShortDateOnly = False - Me.txtSendungsdaten._TimeOnly = False - Me.txtSendungsdaten._TimeOnly_Seconds = False - Me.txtSendungsdaten._value = Nothing - Me.txtSendungsdaten._Waehrung = False - Me.txtSendungsdaten._WaehrungZeichen = True - Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black - Me.txtSendungsdaten.Location = New System.Drawing.Point(517, 323) - Me.txtSendungsdaten.MaxLength = 300 - Me.txtSendungsdaten.MaxLineLength = -1 - Me.txtSendungsdaten.MaxLines_Warning = "" - Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing - Me.txtSendungsdaten.Name = "txtSendungsdaten" - Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) - Me.txtSendungsdaten.TabIndex = 22 - ' 'Label17 ' Me.Label17.AutoSize = True @@ -1949,31 +1128,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label17.Text = "Sendungsdaten:" Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtWarenwert - ' - Me.txtWarenwert._DateTimeOnly = False - Me.txtWarenwert._numbersOnly = False - Me.txtWarenwert._numbersOnlyKommastellen = "" - Me.txtWarenwert._numbersOnlyTrennzeichen = True - Me.txtWarenwert._Prozent = False - Me.txtWarenwert._ShortDateNew = False - Me.txtWarenwert._ShortDateOnly = False - Me.txtWarenwert._TimeOnly = False - Me.txtWarenwert._TimeOnly_Seconds = False - Me.txtWarenwert._value = "" - Me.txtWarenwert._Waehrung = True - Me.txtWarenwert._WaehrungZeichen = False - Me.txtWarenwert.ForeColor = System.Drawing.Color.Black - Me.txtWarenwert.Location = New System.Drawing.Point(562, 178) - Me.txtWarenwert.MaxLength = 35 - Me.txtWarenwert.MaxLineLength = -1 - Me.txtWarenwert.MaxLines_Warning = "" - Me.txtWarenwert.MaxLines_Warning_Label = Nothing - Me.txtWarenwert.Name = "txtWarenwert" - Me.txtWarenwert.Size = New System.Drawing.Size(129, 20) - Me.txtWarenwert.TabIndex = 15 - Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label16 ' Me.Label16.AutoSize = True @@ -1984,30 +1138,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label16.Text = "Warenwert:" Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtZollbelegNr - ' - Me.txtZollbelegNr._DateTimeOnly = False - Me.txtZollbelegNr._numbersOnly = False - Me.txtZollbelegNr._numbersOnlyKommastellen = "" - Me.txtZollbelegNr._numbersOnlyTrennzeichen = True - Me.txtZollbelegNr._Prozent = False - Me.txtZollbelegNr._ShortDateNew = False - Me.txtZollbelegNr._ShortDateOnly = False - Me.txtZollbelegNr._TimeOnly = False - Me.txtZollbelegNr._TimeOnly_Seconds = False - Me.txtZollbelegNr._value = Nothing - Me.txtZollbelegNr._Waehrung = False - Me.txtZollbelegNr._WaehrungZeichen = True - Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black - Me.txtZollbelegNr.Location = New System.Drawing.Point(517, 159) - Me.txtZollbelegNr.MaxLength = 35 - Me.txtZollbelegNr.MaxLineLength = -1 - Me.txtZollbelegNr.MaxLines_Warning = "" - Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing - Me.txtZollbelegNr.Name = "txtZollbelegNr" - Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) - Me.txtZollbelegNr.TabIndex = 10 - ' 'Label10 ' Me.Label10.AutoSize = True @@ -2058,17 +1188,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 153) Me.pnlRechnungAn.TabIndex = 0 ' - 'cboRgArt - ' - Me.cboRgArt._allowedValuesFreiText = Nothing - Me.cboRgArt._allowFreiText = False - Me.cboRgArt._value = "" - Me.cboRgArt.FormattingEnabled = True - Me.cboRgArt.Location = New System.Drawing.Point(478, 127) - Me.cboRgArt.Name = "cboRgArt" - Me.cboRgArt.Size = New System.Drawing.Size(97, 21) - Me.cboRgArt.TabIndex = 246 - ' 'Label57 ' Me.Label57.AutoSize = True @@ -2079,17 +1198,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label57.Text = "RG-Art:" Me.Label57.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboVorauskasse - ' - Me.cboVorauskasse._allowedValuesFreiText = Nothing - Me.cboVorauskasse._allowFreiText = False - Me.cboVorauskasse._value = "" - Me.cboVorauskasse.FormattingEnabled = True - Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5) - Me.cboVorauskasse.Name = "cboVorauskasse" - Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21) - Me.cboVorauskasse.TabIndex = 244 - ' 'Label56 ' Me.Label56.AutoSize = True @@ -2100,31 +1208,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label56.TabIndex = 243 Me.Label56.Text = "Adresse:" ' - 'txtRechnungAnZusatz - ' - Me.txtRechnungAnZusatz._DateTimeOnly = False - Me.txtRechnungAnZusatz._numbersOnly = False - Me.txtRechnungAnZusatz._numbersOnlyKommastellen = "" - Me.txtRechnungAnZusatz._numbersOnlyTrennzeichen = True - Me.txtRechnungAnZusatz._Prozent = False - Me.txtRechnungAnZusatz._ShortDateNew = False - Me.txtRechnungAnZusatz._ShortDateOnly = False - Me.txtRechnungAnZusatz._TimeOnly = False - Me.txtRechnungAnZusatz._TimeOnly_Seconds = False - Me.txtRechnungAnZusatz._value = Nothing - Me.txtRechnungAnZusatz._Waehrung = False - Me.txtRechnungAnZusatz._WaehrungZeichen = True - Me.txtRechnungAnZusatz.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnZusatz.Location = New System.Drawing.Point(101, 63) - Me.txtRechnungAnZusatz.MaxLength = 52 - Me.txtRechnungAnZusatz.MaxLineLength = -1 - Me.txtRechnungAnZusatz.MaxLines_Warning = "" - Me.txtRechnungAnZusatz.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnZusatz.Name = "txtRechnungAnZusatz" - Me.txtRechnungAnZusatz.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnZusatz.TabIndex = 242 - Me.txtRechnungAnZusatz.TabStop = False - ' 'Button15 ' Me.Button15.Enabled = False @@ -2136,17 +1219,6 @@ Partial Class usrCntlFaktAbrechnung Me.Button15.Text = "Post" Me.Button15.UseVisualStyleBackColor = True ' - 'cboSammelrechnung - ' - Me.cboSammelrechnung._allowedValuesFreiText = Nothing - Me.cboSammelrechnung._allowFreiText = False - Me.cboSammelrechnung._value = "" - Me.cboSammelrechnung.FormattingEnabled = True - Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 5) - Me.cboSammelrechnung.Name = "cboSammelrechnung" - Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) - Me.cboSammelrechnung.TabIndex = 2 - ' 'Button14 ' Me.Button14.BackgroundImage = Global.SDL.My.Resources.Resources.person_add @@ -2232,99 +1304,6 @@ Partial Class usrCntlFaktAbrechnung Me.Button6.Text = "UID prüfen" Me.Button6.UseVisualStyleBackColor = True ' - 'txtRechnungAnName2 - ' - Me.txtRechnungAnName2._DateTimeOnly = False - Me.txtRechnungAnName2._numbersOnly = False - Me.txtRechnungAnName2._numbersOnlyKommastellen = "" - Me.txtRechnungAnName2._numbersOnlyTrennzeichen = True - Me.txtRechnungAnName2._Prozent = False - Me.txtRechnungAnName2._ShortDateNew = False - Me.txtRechnungAnName2._ShortDateOnly = False - Me.txtRechnungAnName2._TimeOnly = False - Me.txtRechnungAnName2._TimeOnly_Seconds = False - Me.txtRechnungAnName2._value = Nothing - Me.txtRechnungAnName2._Waehrung = False - Me.txtRechnungAnName2._WaehrungZeichen = True - Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 44) - Me.txtRechnungAnName2.MaxLength = 40 - Me.txtRechnungAnName2.MaxLineLength = -1 - Me.txtRechnungAnName2.MaxLines_Warning = "" - Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnName2.Name = "txtRechnungAnName2" - Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnName2.TabIndex = 11 - Me.txtRechnungAnName2.TabStop = False - ' - 'kdFirmaRechnungAn - ' - Me.kdFirmaRechnungAn._AlleFirmenCLUSTER = False - Me.kdFirmaRechnungAn._AllowSetValue = True - Me.kdFirmaRechnungAn._autoSizeGross = False - Me.kdFirmaRechnungAn._display_Name1 = True - Me.kdFirmaRechnungAn._displayAVISO_Email = False - Me.kdFirmaRechnungAn._displayFullName = False - Me.kdFirmaRechnungAn._displayWoelflKd = False - Me.kdFirmaRechnungAn._hideIfListEmpty = True - Me.kdFirmaRechnungAn._loadKdData = True - Me.kdFirmaRechnungAn._searchName1 = True - Me.kdFirmaRechnungAn._UseFIRMA = "" - Me.kdFirmaRechnungAn._ValueKdAndName = False - Me.kdFirmaRechnungAn.dgvpos = "LEFT" - Me.kdFirmaRechnungAn.KdName = Nothing - Me.kdFirmaRechnungAn.KdNr = "-1" - Me.kdFirmaRechnungAn.kdNrField = Nothing - Me.kdFirmaRechnungAn.KdNrNullInt = Nothing - Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 25) - Me.kdFirmaRechnungAn.MaxLength = 35 - Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" - Me.kdFirmaRechnungAn.nurAktive = True - Me.kdFirmaRechnungAn.searchActive = True - Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaRechnungAn.TabIndex = 5 - Me.kdFirmaRechnungAn.TabStop = False - Me.kdFirmaRechnungAn.TIMER_SEARCH = True - Me.kdFirmaRechnungAn.usrcntl = Nothing - ' - 'FlatButton3 - ' - Me.FlatButton3.allowBorder = False - Me.FlatButton3.FlatAppearance.BorderSize = 0 - Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton3.ForeColor = System.Drawing.Color.Black - Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton3.Location = New System.Drawing.Point(383, 20) - Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(24, 25) - Me.FlatButton3.TabIndex = 7 - Me.FlatButton3.TabStop = False - Me.FlatButton3.UseVisualStyleBackColor = True - ' - 'txtKdAuftragsNr - ' - Me.txtKdAuftragsNr._DateTimeOnly = False - Me.txtKdAuftragsNr._numbersOnly = False - Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" - Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True - Me.txtKdAuftragsNr._Prozent = False - Me.txtKdAuftragsNr._ShortDateNew = False - Me.txtKdAuftragsNr._ShortDateOnly = False - Me.txtKdAuftragsNr._TimeOnly = False - Me.txtKdAuftragsNr._TimeOnly_Seconds = False - Me.txtKdAuftragsNr._value = Nothing - Me.txtKdAuftragsNr._Waehrung = False - Me.txtKdAuftragsNr._WaehrungZeichen = True - Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 123) - Me.txtKdAuftragsNr.MaxLength = 35 - Me.txtKdAuftragsNr.MaxLineLength = -1 - Me.txtKdAuftragsNr.MaxLines_Warning = "" - Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing - Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" - Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) - Me.txtKdAuftragsNr.TabIndex = 20 - ' 'Label43 ' Me.Label43.AutoSize = True @@ -2335,31 +1314,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label43.TabIndex = 19 Me.Label43.Text = "Kd-Auftr.Nr.:" ' - 'txtRechnungAnUIDKz - ' - Me.txtRechnungAnUIDKz._DateTimeOnly = False - Me.txtRechnungAnUIDKz._numbersOnly = False - Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" - Me.txtRechnungAnUIDKz._numbersOnlyTrennzeichen = True - Me.txtRechnungAnUIDKz._Prozent = False - Me.txtRechnungAnUIDKz._ShortDateNew = False - Me.txtRechnungAnUIDKz._ShortDateOnly = False - Me.txtRechnungAnUIDKz._TimeOnly = False - Me.txtRechnungAnUIDKz._TimeOnly_Seconds = False - Me.txtRechnungAnUIDKz._value = Nothing - Me.txtRechnungAnUIDKz._Waehrung = False - Me.txtRechnungAnUIDKz._WaehrungZeichen = True - Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 44) - Me.txtRechnungAnUIDKz.MaxLength = 35 - Me.txtRechnungAnUIDKz.MaxLineLength = -1 - Me.txtRechnungAnUIDKz.MaxLines_Warning = "" - Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" - Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) - Me.txtRechnungAnUIDKz.TabIndex = 18 - Me.txtRechnungAnUIDKz.TabStop = False - ' 'Label1 ' Me.Label1.AutoSize = True @@ -2370,42 +1324,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label1.Text = "Vorauskasse:" Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboRechnungAn - ' - Me.cboRechnungAn._allowedValuesFreiText = Nothing - Me.cboRechnungAn._allowFreiText = False - Me.cboRechnungAn._value = "" - Me.cboRechnungAn.FormattingEnabled = True - Me.cboRechnungAn.Location = New System.Drawing.Point(101, 5) - Me.cboRechnungAn.Name = "cboRechnungAn" - Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) - Me.cboRechnungAn.TabIndex = 1 - ' - 'txtRechnungAnUIDNr - ' - Me.txtRechnungAnUIDNr._DateTimeOnly = False - Me.txtRechnungAnUIDNr._numbersOnly = False - Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" - Me.txtRechnungAnUIDNr._numbersOnlyTrennzeichen = True - Me.txtRechnungAnUIDNr._Prozent = False - Me.txtRechnungAnUIDNr._ShortDateNew = False - Me.txtRechnungAnUIDNr._ShortDateOnly = False - Me.txtRechnungAnUIDNr._TimeOnly = False - Me.txtRechnungAnUIDNr._TimeOnly_Seconds = False - Me.txtRechnungAnUIDNr._value = Nothing - Me.txtRechnungAnUIDNr._Waehrung = False - Me.txtRechnungAnUIDNr._WaehrungZeichen = True - Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 44) - Me.txtRechnungAnUIDNr.MaxLength = 35 - Me.txtRechnungAnUIDNr.MaxLineLength = -1 - Me.txtRechnungAnUIDNr.MaxLines_Warning = "" - Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" - Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) - Me.txtRechnungAnUIDNr.TabIndex = 13 - Me.txtRechnungAnUIDNr.TabStop = False - ' 'Label6 ' Me.Label6.AutoSize = True @@ -2416,31 +1334,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label6.TabIndex = 12 Me.Label6.Text = "UID-Nr.:" ' - 'txtRechnungAnBuKdNr - ' - Me.txtRechnungAnBuKdNr._DateTimeOnly = False - Me.txtRechnungAnBuKdNr._numbersOnly = False - Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" - Me.txtRechnungAnBuKdNr._numbersOnlyTrennzeichen = True - Me.txtRechnungAnBuKdNr._Prozent = False - Me.txtRechnungAnBuKdNr._ShortDateNew = False - Me.txtRechnungAnBuKdNr._ShortDateOnly = False - Me.txtRechnungAnBuKdNr._TimeOnly = False - Me.txtRechnungAnBuKdNr._TimeOnly_Seconds = False - Me.txtRechnungAnBuKdNr._value = Nothing - Me.txtRechnungAnBuKdNr._Waehrung = False - Me.txtRechnungAnBuKdNr._WaehrungZeichen = True - Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 25) - Me.txtRechnungAnBuKdNr.MaxLength = 35 - Me.txtRechnungAnBuKdNr.MaxLineLength = -1 - Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" - Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" - Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) - Me.txtRechnungAnBuKdNr.TabIndex = 10 - Me.txtRechnungAnBuKdNr.TabStop = False - ' 'Label3 ' Me.Label3.AutoSize = True @@ -2451,81 +1344,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label3.TabIndex = 9 Me.Label3.Text = "BuKdNr:" ' - 'txtkdNrRechnungAn - ' - Me.txtkdNrRechnungAn._DateTimeOnly = False - Me.txtkdNrRechnungAn._numbersOnly = False - Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" - Me.txtkdNrRechnungAn._numbersOnlyTrennzeichen = True - Me.txtkdNrRechnungAn._Prozent = False - Me.txtkdNrRechnungAn._ShortDateNew = False - Me.txtkdNrRechnungAn._ShortDateOnly = False - Me.txtkdNrRechnungAn._TimeOnly = False - Me.txtkdNrRechnungAn._TimeOnly_Seconds = False - Me.txtkdNrRechnungAn._value = Nothing - Me.txtkdNrRechnungAn._Waehrung = False - Me.txtkdNrRechnungAn._WaehrungZeichen = True - Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black - Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 25) - Me.txtkdNrRechnungAn.MaxLength = 35 - Me.txtkdNrRechnungAn.MaxLineLength = -1 - Me.txtkdNrRechnungAn.MaxLines_Warning = "" - Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing - Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" - Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) - Me.txtkdNrRechnungAn.TabIndex = 3 - Me.txtkdNrRechnungAn.TabStop = False - ' - 'txtRechnungAnOrt - ' - Me.txtRechnungAnOrt._DateTimeOnly = False - Me.txtRechnungAnOrt._numbersOnly = False - Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" - Me.txtRechnungAnOrt._numbersOnlyTrennzeichen = True - Me.txtRechnungAnOrt._Prozent = False - Me.txtRechnungAnOrt._ShortDateNew = False - Me.txtRechnungAnOrt._ShortDateOnly = False - Me.txtRechnungAnOrt._TimeOnly = False - Me.txtRechnungAnOrt._TimeOnly_Seconds = False - Me.txtRechnungAnOrt._value = Nothing - Me.txtRechnungAnOrt._Waehrung = False - Me.txtRechnungAnOrt._WaehrungZeichen = True - Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 101) - Me.txtRechnungAnOrt.MaxLength = 52 - Me.txtRechnungAnOrt.MaxLineLength = -1 - Me.txtRechnungAnOrt.MaxLines_Warning = "" - Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" - Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnOrt.TabIndex = 17 - Me.txtRechnungAnOrt.TabStop = False - ' - 'txtRechnungAnStrasse - ' - Me.txtRechnungAnStrasse._DateTimeOnly = False - Me.txtRechnungAnStrasse._numbersOnly = False - Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" - Me.txtRechnungAnStrasse._numbersOnlyTrennzeichen = True - Me.txtRechnungAnStrasse._Prozent = False - Me.txtRechnungAnStrasse._ShortDateNew = False - Me.txtRechnungAnStrasse._ShortDateOnly = False - Me.txtRechnungAnStrasse._TimeOnly = False - Me.txtRechnungAnStrasse._TimeOnly_Seconds = False - Me.txtRechnungAnStrasse._value = Nothing - Me.txtRechnungAnStrasse._Waehrung = False - Me.txtRechnungAnStrasse._WaehrungZeichen = True - Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 82) - Me.txtRechnungAnStrasse.MaxLength = 40 - Me.txtRechnungAnStrasse.MaxLineLength = -1 - Me.txtRechnungAnStrasse.MaxLines_Warning = "" - Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing - Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" - Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) - Me.txtRechnungAnStrasse.TabIndex = 14 - Me.txtRechnungAnStrasse.TabStop = False - ' 'Label7 ' Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -2553,34 +1371,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.Size = New System.Drawing.Size(415, 77) Me.pnlAbsender.TabIndex = 5 ' - 'txtkdNrAbsender - ' - Me.txtkdNrAbsender._DateTimeOnly = False - Me.txtkdNrAbsender._numbersOnly = False - Me.txtkdNrAbsender._numbersOnlyKommastellen = "" - Me.txtkdNrAbsender._numbersOnlyTrennzeichen = True - Me.txtkdNrAbsender._Prozent = False - Me.txtkdNrAbsender._ShortDateNew = False - Me.txtkdNrAbsender._ShortDateOnly = False - Me.txtkdNrAbsender._TimeOnly = False - Me.txtkdNrAbsender._TimeOnly_Seconds = False - Me.txtkdNrAbsender._value = Nothing - Me.txtkdNrAbsender._Waehrung = False - Me.txtkdNrAbsender._WaehrungZeichen = True - Me.txtkdNrAbsender.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrAbsender.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 26) - Me.txtkdNrAbsender.MaxLength = 35 - Me.txtkdNrAbsender.MaxLineLength = -1 - Me.txtkdNrAbsender.MaxLines_Warning = "" - Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing - Me.txtkdNrAbsender.Name = "txtkdNrAbsender" - Me.txtkdNrAbsender.ReadOnly = True - Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrAbsender.TabIndex = 1 - Me.txtkdNrAbsender.TabStop = False - ' 'btnAbsenderEuro ' Me.btnAbsenderEuro.FlatAppearance.BorderSize = 0 @@ -2596,132 +1386,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnAbsenderEuro.Text = "€" Me.btnAbsenderEuro.UseVisualStyleBackColor = True ' - 'kdFirmaAbsender - ' - Me.kdFirmaAbsender._AlleFirmenCLUSTER = False - Me.kdFirmaAbsender._AllowSetValue = True - Me.kdFirmaAbsender._autoSizeGross = False - Me.kdFirmaAbsender._display_Name1 = True - Me.kdFirmaAbsender._displayAVISO_Email = False - Me.kdFirmaAbsender._displayFullName = False - Me.kdFirmaAbsender._displayWoelflKd = False - Me.kdFirmaAbsender._hideIfListEmpty = True - Me.kdFirmaAbsender._loadKdData = True - Me.kdFirmaAbsender._searchName1 = True - Me.kdFirmaAbsender._UseFIRMA = "" - Me.kdFirmaAbsender._ValueKdAndName = False - Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White - Me.kdFirmaAbsender.dgvpos = "LEFT" - Me.kdFirmaAbsender.KdName = Nothing - Me.kdFirmaAbsender.KdNr = "-1" - Me.kdFirmaAbsender.kdNrField = Nothing - Me.kdFirmaAbsender.KdNrNullInt = Nothing - Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaAbsender.MaxLength = 35 - Me.kdFirmaAbsender.Name = "kdFirmaAbsender" - Me.kdFirmaAbsender.nurAktive = True - Me.kdFirmaAbsender.searchActive = True - Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaAbsender.TabIndex = 3 - Me.kdFirmaAbsender.TabStop = False - Me.kdFirmaAbsender.TIMER_SEARCH = True - Me.kdFirmaAbsender.usrcntl = Nothing - ' - 'txtAbsenderName2 - ' - Me.txtAbsenderName2._DateTimeOnly = False - Me.txtAbsenderName2._numbersOnly = False - Me.txtAbsenderName2._numbersOnlyKommastellen = "" - Me.txtAbsenderName2._numbersOnlyTrennzeichen = True - Me.txtAbsenderName2._Prozent = False - Me.txtAbsenderName2._ShortDateNew = False - Me.txtAbsenderName2._ShortDateOnly = False - Me.txtAbsenderName2._TimeOnly = False - Me.txtAbsenderName2._TimeOnly_Seconds = False - Me.txtAbsenderName2._value = Nothing - Me.txtAbsenderName2._Waehrung = False - Me.txtAbsenderName2._WaehrungZeichen = True - Me.txtAbsenderName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 26) - Me.txtAbsenderName2.MaxLength = 35 - Me.txtAbsenderName2.MaxLineLength = -1 - Me.txtAbsenderName2.MaxLines_Warning = "" - Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing - Me.txtAbsenderName2.Name = "txtAbsenderName2" - Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderName2.TabIndex = 4 - Me.txtAbsenderName2.TabStop = False - ' - 'txtAbsenderOrt - ' - Me.txtAbsenderOrt._DateTimeOnly = False - Me.txtAbsenderOrt._numbersOnly = False - Me.txtAbsenderOrt._numbersOnlyKommastellen = "" - Me.txtAbsenderOrt._numbersOnlyTrennzeichen = True - Me.txtAbsenderOrt._Prozent = False - Me.txtAbsenderOrt._ShortDateNew = False - Me.txtAbsenderOrt._ShortDateOnly = False - Me.txtAbsenderOrt._TimeOnly = False - Me.txtAbsenderOrt._TimeOnly_Seconds = False - Me.txtAbsenderOrt._value = Nothing - Me.txtAbsenderOrt._Waehrung = False - Me.txtAbsenderOrt._WaehrungZeichen = True - Me.txtAbsenderOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 54) - Me.txtAbsenderOrt.MaxLength = 35 - Me.txtAbsenderOrt.MaxLineLength = -1 - Me.txtAbsenderOrt.MaxLines_Warning = "" - Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing - Me.txtAbsenderOrt.Name = "txtAbsenderOrt" - Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderOrt.TabIndex = 7 - Me.txtAbsenderOrt.TabStop = False - ' - 'txtAbsenderStrasse - ' - Me.txtAbsenderStrasse._DateTimeOnly = False - Me.txtAbsenderStrasse._numbersOnly = False - Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" - Me.txtAbsenderStrasse._numbersOnlyTrennzeichen = True - Me.txtAbsenderStrasse._Prozent = False - Me.txtAbsenderStrasse._ShortDateNew = False - Me.txtAbsenderStrasse._ShortDateOnly = False - Me.txtAbsenderStrasse._TimeOnly = False - Me.txtAbsenderStrasse._TimeOnly_Seconds = False - Me.txtAbsenderStrasse._value = Nothing - Me.txtAbsenderStrasse._Waehrung = False - Me.txtAbsenderStrasse._WaehrungZeichen = True - Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtAbsenderStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 40) - Me.txtAbsenderStrasse.MaxLength = 35 - Me.txtAbsenderStrasse.MaxLineLength = -1 - Me.txtAbsenderStrasse.MaxLines_Warning = "" - Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing - Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" - Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtAbsenderStrasse.TabIndex = 6 - Me.txtAbsenderStrasse.TabStop = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton1.Location = New System.Drawing.Point(382, 0) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(24, 25) - Me.FlatButton1.TabIndex = 2 - Me.FlatButton1.TabStop = False - Me.FlatButton1.UseVisualStyleBackColor = True - ' 'Panel7 ' Me.Panel7.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -2815,31 +1479,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label14.Text = "+ Leistung:" Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'sbLeistung - ' - Me.sbLeistung._allowFreitext = False - Me.sbLeistung._AllowSetValue = False - Me.sbLeistung._allowSpaceAsSplitter = False - Me.sbLeistung._autoSizeGross = False - Me.sbLeistung._hideIfListEmpty = True - Me.sbLeistung._value = Nothing - Me.sbLeistung.conn_art = "FMZOLL" - Me.sbLeistung.dgvpos = "LEFT" - Me.sbLeistung.DISPLAY_PARAM = Nothing - Me.sbLeistung.INVISIBLE_COLUMNS = Nothing - Me.sbLeistung.key_visible = False - Me.sbLeistung.KEYPARAM = Nothing - Me.sbLeistung.Location = New System.Drawing.Point(623, 232) - Me.sbLeistung.Name = "sbLeistung" - Me.sbLeistung.searchActive = True - Me.sbLeistung.Size = New System.Drawing.Size(161, 20) - Me.sbLeistung.SQL_ORDER_BY = Nothing - Me.sbLeistung.SQL_SELECT = Nothing - Me.sbLeistung.SQL_WHERE = Nothing - Me.sbLeistung.SQL_WhereParamList = Nothing - Me.sbLeistung.TabIndex = 14 - Me.sbLeistung.usrcntl = Nothing - ' 'Button7 ' Me.Button7.Enabled = False @@ -2882,68 +1521,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnZoll_EUST.Text = "ZOLL / EUST Daten (F3)" Me.btnZoll_EUST.UseVisualStyleBackColor = True ' - 'txtUnterNrRef - ' - Me.txtUnterNrRef._DateTimeOnly = False - Me.txtUnterNrRef._numbersOnly = False - Me.txtUnterNrRef._numbersOnlyKommastellen = "" - Me.txtUnterNrRef._numbersOnlyTrennzeichen = True - Me.txtUnterNrRef._Prozent = False - Me.txtUnterNrRef._ShortDateNew = False - Me.txtUnterNrRef._ShortDateOnly = False - Me.txtUnterNrRef._TimeOnly = False - Me.txtUnterNrRef._TimeOnly_Seconds = False - Me.txtUnterNrRef._value = Nothing - Me.txtUnterNrRef._Waehrung = False - Me.txtUnterNrRef._WaehrungZeichen = True - Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) - Me.txtUnterNrRef.MaxLineLength = -1 - Me.txtUnterNrRef.MaxLines_Warning = "" - Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing - Me.txtUnterNrRef.Name = "txtUnterNrRef" - Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) - Me.txtUnterNrRef.TabIndex = 8 - Me.txtUnterNrRef.Visible = False - ' - 'cboFilialeRef - ' - Me.cboFilialeRef._allowedValuesFreiText = Nothing - Me.cboFilialeRef._allowFreiText = False - Me.cboFilialeRef._value = "" - Me.cboFilialeRef.DropDownWidth = 280 - Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.cboFilialeRef.FormattingEnabled = True - Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) - Me.cboFilialeRef.Name = "cboFilialeRef" - Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) - Me.cboFilialeRef.TabIndex = 6 - Me.cboFilialeRef.Visible = False - ' - 'txtAbfertigungsnummerRef - ' - Me.txtAbfertigungsnummerRef._DateTimeOnly = False - Me.txtAbfertigungsnummerRef._numbersOnly = False - Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" - Me.txtAbfertigungsnummerRef._numbersOnlyTrennzeichen = True - Me.txtAbfertigungsnummerRef._Prozent = False - Me.txtAbfertigungsnummerRef._ShortDateNew = False - Me.txtAbfertigungsnummerRef._ShortDateOnly = False - Me.txtAbfertigungsnummerRef._TimeOnly = False - Me.txtAbfertigungsnummerRef._TimeOnly_Seconds = False - Me.txtAbfertigungsnummerRef._value = Nothing - Me.txtAbfertigungsnummerRef._Waehrung = False - Me.txtAbfertigungsnummerRef._WaehrungZeichen = True - Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) - Me.txtAbfertigungsnummerRef.MaxLineLength = -1 - Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" - Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing - Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" - Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) - Me.txtAbfertigungsnummerRef.TabIndex = 7 - Me.txtAbfertigungsnummerRef.Visible = False - ' 'Label26 ' Me.Label26.AutoSize = True @@ -2986,112 +1563,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label30.Text = "Positionen:" Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'dgvRechnungenPositionen - ' - Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvRechnungenPositionen.AllowUserToAddRows = False - Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False - Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False - Me.dgvRechnungenPositionen.AllowUserToResizeRows = False - Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White - 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.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 - Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto}) - DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11 - Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) - Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" - Me.dgvRechnungenPositionen.ReadOnly = True - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 - Me.dgvRechnungenPositionen.RowHeadersVisible = False - Me.dgvRechnungenPositionen.RowHeadersWidth = 62 - Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) - Me.dgvRechnungenPositionen.TabIndex = 5 - Me.dgvRechnungenPositionen.TabStop = False - ' - 'Leistung - ' - Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.Leistung.HeaderText = "Leistung" - Me.Leistung.MinimumWidth = 8 - Me.Leistung.Name = "Leistung" - Me.Leistung.ReadOnly = True - ' - 'Anzahl - ' - DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle7.Format = "N0" - DataGridViewCellStyle7.NullValue = Nothing - Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7 - Me.Anzahl.HeaderText = "Anzahl" - Me.Anzahl.MinimumWidth = 8 - Me.Anzahl.Name = "Anzahl" - Me.Anzahl.ReadOnly = True - Me.Anzahl.Width = 50 - ' - 'Preis - ' - DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle8.Format = "c2" - Me.Preis.DefaultCellStyle = DataGridViewCellStyle8 - Me.Preis.HeaderText = "Preis" - Me.Preis.MinimumWidth = 8 - Me.Preis.Name = "Preis" - Me.Preis.ReadOnly = True - Me.Preis.Width = 80 - ' - 'SteuerpflichtigerBetrag - ' - DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle9.Format = "c2" - Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9 - Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." - Me.SteuerpflichtigerBetrag.MinimumWidth = 8 - Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" - Me.SteuerpflichtigerBetrag.ReadOnly = True - Me.SteuerpflichtigerBetrag.Width = 120 - ' - 'SteuerfreierBetrag - ' - DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight - DataGridViewCellStyle10.Format = "C2" - DataGridViewCellStyle10.NullValue = Nothing - Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10 - Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" - Me.SteuerfreierBetrag.MinimumWidth = 8 - Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" - Me.SteuerfreierBetrag.ReadOnly = True - Me.SteuerfreierBetrag.Width = 120 - ' - 'Aufschubkonto - ' - Me.Aufschubkonto.HeaderText = "Aufschubkonto" - Me.Aufschubkonto.MinimumWidth = 8 - Me.Aufschubkonto.Name = "Aufschubkonto" - Me.Aufschubkonto.ReadOnly = True - Me.Aufschubkonto.Width = 120 - ' 'dgvOffertenSperrliste ' Me.dgvOffertenSperrliste.AllowUserToAddRows = False @@ -3140,80 +1611,6 @@ Partial Class usrCntlFaktAbrechnung Me.dgvOffertenSperrliste.TabIndex = 2 Me.dgvOffertenSperrliste.TabStop = False ' - 'dgvOfferteDetailsUebersicht - ' - Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False - Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True - Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False - DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 - Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White - Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 - Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19 - Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) - Me.dgvOfferteDetailsUebersicht.MultiSelect = False - Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" - DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle20 - Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False - Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62 - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black - Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21 - Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) - Me.dgvOfferteDetailsUebersicht.TabIndex = 3 - ' - 'txtRohmasse - ' - Me.txtRohmasse._DateTimeOnly = False - Me.txtRohmasse._numbersOnly = False - Me.txtRohmasse._numbersOnlyKommastellen = "" - Me.txtRohmasse._numbersOnlyTrennzeichen = True - Me.txtRohmasse._Prozent = False - Me.txtRohmasse._ShortDateNew = False - Me.txtRohmasse._ShortDateOnly = False - Me.txtRohmasse._TimeOnly = False - Me.txtRohmasse._TimeOnly_Seconds = False - Me.txtRohmasse._value = Nothing - Me.txtRohmasse._Waehrung = False - Me.txtRohmasse._WaehrungZeichen = True - Me.txtRohmasse.ForeColor = System.Drawing.Color.Black - Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) - Me.txtRohmasse.MaxLength = 35 - Me.txtRohmasse.MaxLineLength = -1 - Me.txtRohmasse.MaxLines_Warning = "" - Me.txtRohmasse.MaxLines_Warning_Label = Nothing - Me.txtRohmasse.Name = "txtRohmasse" - Me.txtRohmasse.Size = New System.Drawing.Size(305, 20) - Me.txtRohmasse.TabIndex = 24 - Me.txtRohmasse.Visible = False - ' 'Label18 ' Me.Label18.AutoSize = True @@ -3244,29 +1641,6 @@ Partial Class usrCntlFaktAbrechnung Me.lblVK_Zahlungseingang.TabIndex = 26 Me.lblVK_Zahlungseingang.Text = "TEST" ' - 'cboWaehrung - ' - Me.cboWaehrung._allowedValuesFreiText = Nothing - Me.cboWaehrung._allowFreiText = False - Me.cboWaehrung._value = "" - Me.cboWaehrung.FormattingEnabled = True - Me.cboWaehrung.Location = New System.Drawing.Point(517, 177) - Me.cboWaehrung.Name = "cboWaehrung" - Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) - Me.cboWaehrung.TabIndex = 14 - ' - 'cboWaehrungUmrechnung - ' - Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing - Me.cboWaehrungUmrechnung._allowFreiText = False - Me.cboWaehrungUmrechnung._value = "" - Me.cboWaehrungUmrechnung.Enabled = False - Me.cboWaehrungUmrechnung.FormattingEnabled = True - Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(517, 196) - Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" - Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) - Me.cboWaehrungUmrechnung.TabIndex = 17 - ' 'pnlEmpfaenger ' Me.pnlEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke @@ -3284,34 +1658,6 @@ Partial Class usrCntlFaktAbrechnung Me.pnlEmpfaenger.Size = New System.Drawing.Size(415, 75) Me.pnlEmpfaenger.TabIndex = 6 ' - 'txtkdNrEmpfaenger - ' - Me.txtkdNrEmpfaenger._DateTimeOnly = False - Me.txtkdNrEmpfaenger._numbersOnly = False - Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" - Me.txtkdNrEmpfaenger._numbersOnlyTrennzeichen = True - Me.txtkdNrEmpfaenger._Prozent = False - Me.txtkdNrEmpfaenger._ShortDateNew = False - Me.txtkdNrEmpfaenger._ShortDateOnly = False - Me.txtkdNrEmpfaenger._TimeOnly = False - Me.txtkdNrEmpfaenger._TimeOnly_Seconds = False - Me.txtkdNrEmpfaenger._value = Nothing - Me.txtkdNrEmpfaenger._Waehrung = False - Me.txtkdNrEmpfaenger._WaehrungZeichen = True - Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtkdNrEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black - Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 26) - Me.txtkdNrEmpfaenger.MaxLength = 35 - Me.txtkdNrEmpfaenger.MaxLineLength = -1 - Me.txtkdNrEmpfaenger.MaxLines_Warning = "" - Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing - Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" - Me.txtkdNrEmpfaenger.ReadOnly = True - Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 13) - Me.txtkdNrEmpfaenger.TabIndex = 1 - Me.txtkdNrEmpfaenger.TabStop = False - ' 'btnEmpfaengerEuro ' Me.btnEmpfaengerEuro.FlatAppearance.BorderSize = 0 @@ -3327,33 +1673,6 @@ Partial Class usrCntlFaktAbrechnung Me.btnEmpfaengerEuro.Text = "€" Me.btnEmpfaengerEuro.UseVisualStyleBackColor = True ' - 'txtEmpfeangerName2 - ' - Me.txtEmpfeangerName2._DateTimeOnly = False - Me.txtEmpfeangerName2._numbersOnly = False - Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" - Me.txtEmpfeangerName2._numbersOnlyTrennzeichen = True - Me.txtEmpfeangerName2._Prozent = False - Me.txtEmpfeangerName2._ShortDateNew = False - Me.txtEmpfeangerName2._ShortDateOnly = False - Me.txtEmpfeangerName2._TimeOnly = False - Me.txtEmpfeangerName2._TimeOnly_Seconds = False - Me.txtEmpfeangerName2._value = Nothing - Me.txtEmpfeangerName2._Waehrung = False - Me.txtEmpfeangerName2._WaehrungZeichen = True - Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfeangerName2.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black - Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 26) - Me.txtEmpfeangerName2.MaxLength = 35 - Me.txtEmpfeangerName2.MaxLineLength = -1 - Me.txtEmpfeangerName2.MaxLines_Warning = "" - Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing - Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" - Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfeangerName2.TabIndex = 4 - Me.txtEmpfeangerName2.TabStop = False - ' 'Label5 ' Me.Label5.AutoSize = True @@ -3364,105 +1683,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label5.TabIndex = 0 Me.Label5.Text = "2. Empfänger:" ' - 'txtEmpfaengerOrt - ' - Me.txtEmpfaengerOrt._DateTimeOnly = False - Me.txtEmpfaengerOrt._numbersOnly = False - Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" - Me.txtEmpfaengerOrt._numbersOnlyTrennzeichen = True - Me.txtEmpfaengerOrt._Prozent = False - Me.txtEmpfaengerOrt._ShortDateNew = False - Me.txtEmpfaengerOrt._ShortDateOnly = False - Me.txtEmpfaengerOrt._TimeOnly = False - Me.txtEmpfaengerOrt._TimeOnly_Seconds = False - Me.txtEmpfaengerOrt._value = Nothing - Me.txtEmpfaengerOrt._Waehrung = False - Me.txtEmpfaengerOrt._WaehrungZeichen = True - Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfaengerOrt.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 54) - Me.txtEmpfaengerOrt.MaxLength = 35 - Me.txtEmpfaengerOrt.MaxLineLength = -1 - Me.txtEmpfaengerOrt.MaxLines_Warning = "" - Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" - Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfaengerOrt.TabIndex = 7 - Me.txtEmpfaengerOrt.TabStop = False - ' - 'txtEmpfaengerStrasse - ' - Me.txtEmpfaengerStrasse._DateTimeOnly = False - Me.txtEmpfaengerStrasse._numbersOnly = False - Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" - Me.txtEmpfaengerStrasse._numbersOnlyTrennzeichen = True - Me.txtEmpfaengerStrasse._Prozent = False - Me.txtEmpfaengerStrasse._ShortDateNew = False - Me.txtEmpfaengerStrasse._ShortDateOnly = False - Me.txtEmpfaengerStrasse._TimeOnly = False - Me.txtEmpfaengerStrasse._TimeOnly_Seconds = False - Me.txtEmpfaengerStrasse._value = Nothing - Me.txtEmpfaengerStrasse._Waehrung = False - Me.txtEmpfaengerStrasse._WaehrungZeichen = True - Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.WhiteSmoke - Me.txtEmpfaengerStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 40) - Me.txtEmpfaengerStrasse.MaxLength = 35 - Me.txtEmpfaengerStrasse.MaxLineLength = -1 - Me.txtEmpfaengerStrasse.MaxLines_Warning = "" - Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing - Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" - Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 13) - Me.txtEmpfaengerStrasse.TabIndex = 6 - Me.txtEmpfaengerStrasse.TabStop = False - ' - 'kdFirmaEmpfaenger - ' - Me.kdFirmaEmpfaenger._AlleFirmenCLUSTER = False - Me.kdFirmaEmpfaenger._AllowSetValue = True - Me.kdFirmaEmpfaenger._autoSizeGross = False - Me.kdFirmaEmpfaenger._display_Name1 = True - Me.kdFirmaEmpfaenger._displayAVISO_Email = False - Me.kdFirmaEmpfaenger._displayFullName = False - Me.kdFirmaEmpfaenger._displayWoelflKd = False - Me.kdFirmaEmpfaenger._hideIfListEmpty = True - Me.kdFirmaEmpfaenger._loadKdData = True - Me.kdFirmaEmpfaenger._searchName1 = True - Me.kdFirmaEmpfaenger._UseFIRMA = "" - Me.kdFirmaEmpfaenger._ValueKdAndName = False - Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White - Me.kdFirmaEmpfaenger.dgvpos = "LEFT" - Me.kdFirmaEmpfaenger.KdName = Nothing - Me.kdFirmaEmpfaenger.KdNr = "-1" - Me.kdFirmaEmpfaenger.kdNrField = Nothing - Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing - Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 3) - Me.kdFirmaEmpfaenger.MaxLength = 35 - Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" - Me.kdFirmaEmpfaenger.nurAktive = True - Me.kdFirmaEmpfaenger.searchActive = True - Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) - Me.kdFirmaEmpfaenger.TabIndex = 3 - Me.kdFirmaEmpfaenger.TabStop = False - Me.kdFirmaEmpfaenger.TIMER_SEARCH = True - Me.kdFirmaEmpfaenger.usrcntl = Nothing - ' - 'FlatButton2 - ' - Me.FlatButton2.allowBorder = False - Me.FlatButton2.FlatAppearance.BorderSize = 0 - Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton2.ForeColor = System.Drawing.Color.Black - Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton2.Location = New System.Drawing.Point(382, 0) - Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(24, 25) - Me.FlatButton2.TabIndex = 2 - Me.FlatButton2.TabStop = False - Me.FlatButton2.UseVisualStyleBackColor = True - ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.Gainsboro @@ -3558,30 +1778,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label55.Text = "Steuerfreier Betrag:" Me.Label55.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'cboSteuerschlüssel - ' - Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing - Me.cboSteuerschlüssel._allowFreiText = False - Me.cboSteuerschlüssel._value = "" - Me.cboSteuerschlüssel.CausesValidation = False - Me.cboSteuerschlüssel.DropDownWidth = 350 - Me.cboSteuerschlüssel.FormattingEnabled = True - Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30) - Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" - Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) - Me.cboSteuerschlüssel.TabIndex = 3 - ' - 'rtbAbf_Besonderheiten - ' - Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White - Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19) - Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" - Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133) - Me.rtbAbf_Besonderheiten.TabIndex = 235 - Me.rtbAbf_Besonderheiten.Visible = False - ' 'cbxOriginalPrint ' Me.cbxOriginalPrint.AutoSize = True @@ -3712,59 +1908,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label23.TabIndex = 2 Me.Label23.Text = "Steuer:" ' - 'txtSteuersatz - ' - Me.txtSteuersatz._DateTimeOnly = False - Me.txtSteuersatz._numbersOnly = False - Me.txtSteuersatz._numbersOnlyKommastellen = "" - Me.txtSteuersatz._numbersOnlyTrennzeichen = True - Me.txtSteuersatz._Prozent = True - Me.txtSteuersatz._ShortDateNew = False - Me.txtSteuersatz._ShortDateOnly = False - Me.txtSteuersatz._TimeOnly = False - Me.txtSteuersatz._TimeOnly_Seconds = False - Me.txtSteuersatz._value = Nothing - Me.txtSteuersatz._Waehrung = False - Me.txtSteuersatz._WaehrungZeichen = True - Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black - Me.txtSteuersatz.Location = New System.Drawing.Point(603, 30) - Me.txtSteuersatz.MaxLineLength = -1 - Me.txtSteuersatz.MaxLines_Warning = "" - Me.txtSteuersatz.MaxLines_Warning_Label = Nothing - Me.txtSteuersatz.Multiline = True - Me.txtSteuersatz.Name = "txtSteuersatz" - Me.txtSteuersatz.ReadOnly = True - Me.txtSteuersatz.Size = New System.Drawing.Size(61, 21) - Me.txtSteuersatz.TabIndex = 4 - Me.txtSteuersatz.Text = "0,00 %" - Me.txtSteuersatz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerFreierBetrag - ' - Me.txtSteuerFreierBetrag._DateTimeOnly = False - Me.txtSteuerFreierBetrag._numbersOnly = False - Me.txtSteuerFreierBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerFreierBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerFreierBetrag._Prozent = False - Me.txtSteuerFreierBetrag._ShortDateNew = False - Me.txtSteuerFreierBetrag._ShortDateOnly = False - Me.txtSteuerFreierBetrag._TimeOnly = False - Me.txtSteuerFreierBetrag._TimeOnly_Seconds = False - Me.txtSteuerFreierBetrag._value = "" - Me.txtSteuerFreierBetrag._Waehrung = True - Me.txtSteuerFreierBetrag._WaehrungZeichen = False - Me.txtSteuerFreierBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(540, 91) - Me.txtSteuerFreierBetrag.MaxLength = 35 - Me.txtSteuerFreierBetrag.MaxLineLength = -1 - Me.txtSteuerFreierBetrag.MaxLines_Warning = "" - Me.txtSteuerFreierBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerFreierBetrag.Name = "txtSteuerFreierBetrag" - Me.txtSteuerFreierBetrag.ReadOnly = True - Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerFreierBetrag.TabIndex = 10 - Me.txtSteuerFreierBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label37 ' Me.Label37.AutoSize = True @@ -3785,84 +1928,6 @@ Partial Class usrCntlFaktAbrechnung Me.lblEUR_3.Text = "EUR" Me.lblEUR_3.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtGesamtsumme - ' - Me.txtGesamtsumme._DateTimeOnly = False - Me.txtGesamtsumme._numbersOnly = False - Me.txtGesamtsumme._numbersOnlyKommastellen = "" - Me.txtGesamtsumme._numbersOnlyTrennzeichen = True - Me.txtGesamtsumme._Prozent = False - Me.txtGesamtsumme._ShortDateNew = False - Me.txtGesamtsumme._ShortDateOnly = False - Me.txtGesamtsumme._TimeOnly = False - Me.txtGesamtsumme._TimeOnly_Seconds = False - Me.txtGesamtsumme._value = "" - Me.txtGesamtsumme._Waehrung = True - Me.txtGesamtsumme._WaehrungZeichen = False - Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black - Me.txtGesamtsumme.Location = New System.Drawing.Point(540, 114) - Me.txtGesamtsumme.MaxLength = 35 - Me.txtGesamtsumme.MaxLineLength = -1 - Me.txtGesamtsumme.MaxLines_Warning = "" - Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing - Me.txtGesamtsumme.Name = "txtGesamtsumme" - Me.txtGesamtsumme.ReadOnly = True - Me.txtGesamtsumme.Size = New System.Drawing.Size(98, 20) - Me.txtGesamtsumme.TabIndex = 12 - Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerBetrag - ' - Me.txtSteuerBetrag._DateTimeOnly = False - Me.txtSteuerBetrag._numbersOnly = False - Me.txtSteuerBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerBetrag._Prozent = False - Me.txtSteuerBetrag._ShortDateNew = False - Me.txtSteuerBetrag._ShortDateOnly = False - Me.txtSteuerBetrag._TimeOnly = False - Me.txtSteuerBetrag._TimeOnly_Seconds = False - Me.txtSteuerBetrag._value = "" - Me.txtSteuerBetrag._Waehrung = True - Me.txtSteuerBetrag._WaehrungZeichen = False - Me.txtSteuerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerBetrag.Location = New System.Drawing.Point(540, 74) - Me.txtSteuerBetrag.MaxLength = 35 - Me.txtSteuerBetrag.MaxLineLength = -1 - Me.txtSteuerBetrag.MaxLines_Warning = "" - Me.txtSteuerBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerBetrag.Name = "txtSteuerBetrag" - Me.txtSteuerBetrag.ReadOnly = True - Me.txtSteuerBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerBetrag.TabIndex = 8 - Me.txtSteuerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSteuerpflichtigerBetrag - ' - Me.txtSteuerpflichtigerBetrag._DateTimeOnly = False - Me.txtSteuerpflichtigerBetrag._numbersOnly = False - Me.txtSteuerpflichtigerBetrag._numbersOnlyKommastellen = "" - Me.txtSteuerpflichtigerBetrag._numbersOnlyTrennzeichen = True - Me.txtSteuerpflichtigerBetrag._Prozent = False - Me.txtSteuerpflichtigerBetrag._ShortDateNew = False - Me.txtSteuerpflichtigerBetrag._ShortDateOnly = False - Me.txtSteuerpflichtigerBetrag._TimeOnly = False - Me.txtSteuerpflichtigerBetrag._TimeOnly_Seconds = False - Me.txtSteuerpflichtigerBetrag._value = "" - Me.txtSteuerpflichtigerBetrag._Waehrung = True - Me.txtSteuerpflichtigerBetrag._WaehrungZeichen = False - Me.txtSteuerpflichtigerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(540, 56) - Me.txtSteuerpflichtigerBetrag.MaxLength = 35 - Me.txtSteuerpflichtigerBetrag.MaxLineLength = -1 - Me.txtSteuerpflichtigerBetrag.MaxLines_Warning = "" - Me.txtSteuerpflichtigerBetrag.MaxLines_Warning_Label = Nothing - Me.txtSteuerpflichtigerBetrag.Name = "txtSteuerpflichtigerBetrag" - Me.txtSteuerpflichtigerBetrag.ReadOnly = True - Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(98, 20) - Me.txtSteuerpflichtigerBetrag.TabIndex = 6 - Me.txtSteuerpflichtigerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label33 ' Me.Label33.AutoSize = True @@ -3894,17 +1959,6 @@ Partial Class usrCntlFaktAbrechnung Me.Label28.Text = "Besonderheiten für Verrechung:" Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'txtBesonderheiten - ' - Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17) - Me.txtBesonderheiten.MaxLineLength = -1 - Me.txtBesonderheiten.MaxLines_Warning = "" - Me.txtBesonderheiten.MaxLines_Warning_Label = Nothing - Me.txtBesonderheiten.Name = "txtBesonderheiten" - Me.txtBesonderheiten.Size = New System.Drawing.Size(405, 131) - Me.txtBesonderheiten.TabIndex = 1 - Me.txtBesonderheiten.Text = "" - ' 'pnlDocs ' Me.pnlDocs.Controls.Add(Me.PictureBox1) @@ -4056,6 +2110,1953 @@ Partial Class usrCntlFaktAbrechnung Me.VeragCSToolStripMenuItem.Size = New System.Drawing.Size(122, 22) Me.VeragCSToolStripMenuItem.Text = "Verag CS" ' + 'txtTextZZ + ' + Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) + Me.txtTextZZ.MaxLineLength = -1 + Me.txtTextZZ.MaxLines_Warning = "" + Me.txtTextZZ.MaxLines_Warning_Label = Nothing + Me.txtTextZZ.Name = "txtTextZZ" + Me.txtTextZZ.ReadOnly = True + Me.txtTextZZ.Size = New System.Drawing.Size(423, 23) + Me.txtTextZZ.TabIndex = 91 + Me.txtTextZZ.Text = "" + ' + 'dgvAnhaenge + ' + Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAnhaenge.AllowUserToAddRows = False + Me.dgvAnhaenge.AllowUserToDeleteRows = False + Me.dgvAnhaenge.AllowUserToResizeColumns = False + Me.dgvAnhaenge.AllowUserToResizeRows = False + Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAnhaenge.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.optAnhSel, Me.DataGridViewTextBoxColumn2, Me.clmnBezeichnung, Me.clmnDsId, Me.clmnAnhId}) + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window + 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.ControlText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4 + Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911) + Me.dgvAnhaenge.MultiSelect = False + Me.dgvAnhaenge.Name = "dgvAnhaenge" + Me.dgvAnhaenge.ReadOnly = True + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvAnhaenge.RowHeadersDefaultCellStyle = DataGridViewCellStyle5 + Me.dgvAnhaenge.RowHeadersVisible = False + Me.dgvAnhaenge.RowHeadersWidth = 62 + Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAnhaenge.Size = New System.Drawing.Size(329, 219) + Me.dgvAnhaenge.TabIndex = 90 + Me.dgvAnhaenge.TabStop = False + ' + 'optAnhSel + ' + Me.optAnhSel.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.None + Me.optAnhSel.FillWeight = 78.74017! + Me.optAnhSel.HeaderText = "" + Me.optAnhSel.MinimumWidth = 8 + Me.optAnhSel.Name = "optAnhSel" + Me.optAnhSel.ReadOnly = True + Me.optAnhSel.Resizable = System.Windows.Forms.DataGridViewTriState.[True] + Me.optAnhSel.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic + Me.optAnhSel.Width = 35 + ' + 'DataGridViewTextBoxColumn2 + ' + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle2.Format = "N0" + DataGridViewCellStyle2.NullValue = Nothing + Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle2 + Me.DataGridViewTextBoxColumn2.HeaderText = "Art" + Me.DataGridViewTextBoxColumn2.MinimumWidth = 8 + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + Me.DataGridViewTextBoxColumn2.Width = 70 + ' + 'clmnBezeichnung + ' + Me.clmnBezeichnung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.Format = "c2" + Me.clmnBezeichnung.DefaultCellStyle = DataGridViewCellStyle3 + Me.clmnBezeichnung.FillWeight = 121.2598! + Me.clmnBezeichnung.HeaderText = "Bezeichnung" + Me.clmnBezeichnung.MinimumWidth = 8 + Me.clmnBezeichnung.Name = "clmnBezeichnung" + Me.clmnBezeichnung.ReadOnly = True + ' + 'clmnDsId + ' + Me.clmnDsId.HeaderText = "clmnDsId" + Me.clmnDsId.MinimumWidth = 8 + Me.clmnDsId.Name = "clmnDsId" + Me.clmnDsId.ReadOnly = True + Me.clmnDsId.Visible = False + Me.clmnDsId.Width = 150 + ' + 'clmnAnhId + ' + Me.clmnAnhId.HeaderText = "clmnAnhId" + Me.clmnAnhId.MinimumWidth = 8 + Me.clmnAnhId.Name = "clmnAnhId" + Me.clmnAnhId.ReadOnly = True + Me.clmnAnhId.Visible = False + Me.clmnAnhId.Width = 150 + ' + 'cboRechnungSprache + ' + Me.cboRechnungSprache._allowedValuesFreiText = Nothing + Me.cboRechnungSprache._allowFreiText = False + Me.cboRechnungSprache._value = "" + Me.cboRechnungSprache.FormattingEnabled = True + Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) + Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) + Me.cboRechnungSprache.Name = "cboRechnungSprache" + Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) + Me.cboRechnungSprache.TabIndex = 45 + Me.cboRechnungSprache.TabStop = False + ' + 'rtbHandling + ' + Me.rtbHandling.Location = New System.Drawing.Point(280, 911) + Me.rtbHandling.MaxLineLength = -1 + Me.rtbHandling.MaxLines_Warning = "" + Me.rtbHandling.MaxLines_Warning_Label = Nothing + Me.rtbHandling.Name = "rtbHandling" + Me.rtbHandling.Size = New System.Drawing.Size(207, 121) + Me.rtbHandling.TabIndex = 44 + Me.rtbHandling.Text = "" + ' + 'txtPositionAnzahl + ' + Me.txtPositionAnzahl._DateTimeOnly = False + Me.txtPositionAnzahl._numbersOnly = False + Me.txtPositionAnzahl._numbersOnlyKommastellen = "" + Me.txtPositionAnzahl._numbersOnlyTrennzeichen = True + Me.txtPositionAnzahl._Prozent = False + Me.txtPositionAnzahl._ShortDateNew = False + Me.txtPositionAnzahl._ShortDateOnly = False + Me.txtPositionAnzahl._TimeOnly = False + Me.txtPositionAnzahl._TimeOnly_Seconds = False + Me.txtPositionAnzahl._value = Nothing + Me.txtPositionAnzahl._Waehrung = False + Me.txtPositionAnzahl._WaehrungZeichen = True + Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black + Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) + Me.txtPositionAnzahl.MaxLength = 35 + Me.txtPositionAnzahl.MaxLineLength = -1 + Me.txtPositionAnzahl.MaxLines_Warning = "" + Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing + Me.txtPositionAnzahl.Name = "txtPositionAnzahl" + Me.txtPositionAnzahl.ReadOnly = True + Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) + Me.txtPositionAnzahl.TabIndex = 46 + ' + 'txtAbfertigungsanzahl + ' + Me.txtAbfertigungsanzahl._DateTimeOnly = False + Me.txtAbfertigungsanzahl._numbersOnly = False + Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" + Me.txtAbfertigungsanzahl._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsanzahl._Prozent = False + Me.txtAbfertigungsanzahl._ShortDateNew = False + Me.txtAbfertigungsanzahl._ShortDateOnly = False + Me.txtAbfertigungsanzahl._TimeOnly = False + Me.txtAbfertigungsanzahl._TimeOnly_Seconds = False + Me.txtAbfertigungsanzahl._value = Nothing + Me.txtAbfertigungsanzahl._Waehrung = False + Me.txtAbfertigungsanzahl._WaehrungZeichen = True + Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) + Me.txtAbfertigungsanzahl.MaxLength = 35 + Me.txtAbfertigungsanzahl.MaxLineLength = -1 + Me.txtAbfertigungsanzahl.MaxLines_Warning = "" + Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" + Me.txtAbfertigungsanzahl.ReadOnly = True + Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) + Me.txtAbfertigungsanzahl.TabIndex = 44 + ' + 'txtAbfertigungsart + ' + Me.txtAbfertigungsart._DateTimeOnly = False + Me.txtAbfertigungsart._numbersOnly = False + Me.txtAbfertigungsart._numbersOnlyKommastellen = "" + Me.txtAbfertigungsart._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsart._Prozent = False + Me.txtAbfertigungsart._ShortDateNew = False + Me.txtAbfertigungsart._ShortDateOnly = False + Me.txtAbfertigungsart._TimeOnly = False + Me.txtAbfertigungsart._TimeOnly_Seconds = False + Me.txtAbfertigungsart._value = Nothing + Me.txtAbfertigungsart._Waehrung = False + Me.txtAbfertigungsart._WaehrungZeichen = True + Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) + Me.txtAbfertigungsart.MaxLength = 35 + Me.txtAbfertigungsart.MaxLineLength = -1 + Me.txtAbfertigungsart.MaxLines_Warning = "" + Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsart.Name = "txtAbfertigungsart" + Me.txtAbfertigungsart.ReadOnly = True + Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) + Me.txtAbfertigungsart.TabIndex = 42 + ' + 'txtkdNrAvisierer + ' + Me.txtkdNrAvisierer._DateTimeOnly = False + Me.txtkdNrAvisierer._numbersOnly = False + Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" + Me.txtkdNrAvisierer._numbersOnlyTrennzeichen = True + Me.txtkdNrAvisierer._Prozent = False + Me.txtkdNrAvisierer._ShortDateNew = False + Me.txtkdNrAvisierer._ShortDateOnly = False + Me.txtkdNrAvisierer._TimeOnly = False + Me.txtkdNrAvisierer._TimeOnly_Seconds = False + Me.txtkdNrAvisierer._value = Nothing + Me.txtkdNrAvisierer._Waehrung = False + Me.txtkdNrAvisierer._WaehrungZeichen = True + Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAvisierer.Location = New System.Drawing.Point(7, 22) + Me.txtkdNrAvisierer.MaxLength = 35 + Me.txtkdNrAvisierer.MaxLineLength = -1 + Me.txtkdNrAvisierer.MaxLines_Warning = "" + Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing + Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" + Me.txtkdNrAvisierer.ReadOnly = True + Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAvisierer.TabIndex = 1 + Me.txtkdNrAvisierer.TabStop = False + ' + 'txtAvisoId + ' + Me.txtAvisoId._DateTimeOnly = False + Me.txtAvisoId._numbersOnly = False + Me.txtAvisoId._numbersOnlyKommastellen = "" + Me.txtAvisoId._numbersOnlyTrennzeichen = True + Me.txtAvisoId._Prozent = False + Me.txtAvisoId._ShortDateNew = False + Me.txtAvisoId._ShortDateOnly = False + Me.txtAvisoId._TimeOnly = False + Me.txtAvisoId._TimeOnly_Seconds = False + Me.txtAvisoId._value = Nothing + Me.txtAvisoId._Waehrung = False + Me.txtAvisoId._WaehrungZeichen = True + Me.txtAvisoId.ForeColor = System.Drawing.Color.Black + Me.txtAvisoId.Location = New System.Drawing.Point(157, 32) + Me.txtAvisoId.MaxLength = 35 + Me.txtAvisoId.MaxLineLength = -1 + Me.txtAvisoId.MaxLines_Warning = "" + Me.txtAvisoId.MaxLines_Warning_Label = Nothing + Me.txtAvisoId.Name = "txtAvisoId" + Me.txtAvisoId.ReadOnly = True + Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) + Me.txtAvisoId.TabIndex = 6 + Me.txtAvisoId.TabStop = False + Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'kdFirmaAvisierer + ' + Me.kdFirmaAvisierer._AlleFirmenCLUSTER = False + Me.kdFirmaAvisierer._AllowSetValue = True + Me.kdFirmaAvisierer._autoSizeGross = False + Me.kdFirmaAvisierer._display_Name1 = True + Me.kdFirmaAvisierer._displayAVISO_Email = False + Me.kdFirmaAvisierer._displayFullName = False + Me.kdFirmaAvisierer._displayWoelflKd = False + Me.kdFirmaAvisierer._hideIfListEmpty = True + Me.kdFirmaAvisierer._loadKdData = True + Me.kdFirmaAvisierer._searchName1 = True + Me.kdFirmaAvisierer._UseFIRMA = "" + Me.kdFirmaAvisierer._ValueKdAndName = False + Me.kdFirmaAvisierer.BackColor = System.Drawing.Color.White + Me.kdFirmaAvisierer.dgvpos = "LEFT" + Me.kdFirmaAvisierer.KdName = Nothing + Me.kdFirmaAvisierer.KdNr = "-1" + Me.kdFirmaAvisierer.kdNrField = Nothing + Me.kdFirmaAvisierer.KdNrNullInt = Nothing + Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 2) + Me.kdFirmaAvisierer.MaxLength = 35 + Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" + Me.kdFirmaAvisierer.nurAktive = True + Me.kdFirmaAvisierer.searchActive = True + Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAvisierer.TabIndex = 3 + Me.kdFirmaAvisierer.TabStop = False + Me.kdFirmaAvisierer.TIMER_SEARCH = True + Me.kdFirmaAvisierer.usrcntl = Nothing + ' + 'FlatButton5 + ' + Me.FlatButton5.allowBorder = False + Me.FlatButton5.FlatAppearance.BorderSize = 0 + Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton5.ForeColor = System.Drawing.Color.Black + Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton5.Location = New System.Drawing.Point(382, -1) + Me.FlatButton5.Name = "FlatButton5" + Me.FlatButton5.Size = New System.Drawing.Size(24, 25) + Me.FlatButton5.TabIndex = 2 + Me.FlatButton5.TabStop = False + Me.FlatButton5.UseVisualStyleBackColor = True + ' + 'cboAnlage5 + ' + Me.cboAnlage5._allowedValuesFreiText = Nothing + Me.cboAnlage5._allowFreiText = True + Me.cboAnlage5._value = "" + Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage5.FormattingEnabled = True + Me.cboAnlage5.Location = New System.Drawing.Point(10, 991) + Me.cboAnlage5.MaxLength = 35 + Me.cboAnlage5.Name = "cboAnlage5" + Me.cboAnlage5.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage5.TabIndex = 32 + ' + 'cboAnlage1 + ' + Me.cboAnlage1._allowedValuesFreiText = Nothing + Me.cboAnlage1._allowFreiText = True + Me.cboAnlage1._value = "" + Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage1.FormattingEnabled = True + Me.cboAnlage1.Location = New System.Drawing.Point(10, 911) + Me.cboAnlage1.MaxLength = 35 + Me.cboAnlage1.Name = "cboAnlage1" + Me.cboAnlage1.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage1.TabIndex = 28 + ' + 'txtWarenwertUmrechnung + ' + Me.txtWarenwertUmrechnung._DateTimeOnly = False + Me.txtWarenwertUmrechnung._numbersOnly = False + Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" + Me.txtWarenwertUmrechnung._numbersOnlyTrennzeichen = True + Me.txtWarenwertUmrechnung._Prozent = False + Me.txtWarenwertUmrechnung._ShortDateNew = False + Me.txtWarenwertUmrechnung._ShortDateOnly = False + Me.txtWarenwertUmrechnung._TimeOnly = False + Me.txtWarenwertUmrechnung._TimeOnly_Seconds = False + Me.txtWarenwertUmrechnung._value = "" + Me.txtWarenwertUmrechnung._Waehrung = True + Me.txtWarenwertUmrechnung._WaehrungZeichen = False + Me.txtWarenwertUmrechnung.Enabled = False + Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black + Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(562, 197) + Me.txtWarenwertUmrechnung.MaxLength = 35 + Me.txtWarenwertUmrechnung.MaxLineLength = -1 + Me.txtWarenwertUmrechnung.MaxLines_Warning = "" + Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing + Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" + Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) + Me.txtWarenwertUmrechnung.TabIndex = 18 + Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'cboAnlage2 + ' + Me.cboAnlage2._allowedValuesFreiText = Nothing + Me.cboAnlage2._allowFreiText = True + Me.cboAnlage2._value = "" + Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage2.FormattingEnabled = True + Me.cboAnlage2.Location = New System.Drawing.Point(10, 931) + Me.cboAnlage2.MaxLength = 35 + Me.cboAnlage2.Name = "cboAnlage2" + Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage2.TabIndex = 29 + ' + 'cboAnlage3 + ' + Me.cboAnlage3._allowedValuesFreiText = Nothing + Me.cboAnlage3._allowFreiText = True + Me.cboAnlage3._value = "" + Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage3.FormattingEnabled = True + Me.cboAnlage3.Location = New System.Drawing.Point(10, 951) + Me.cboAnlage3.MaxLength = 35 + Me.cboAnlage3.Name = "cboAnlage3" + Me.cboAnlage3.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage3.TabIndex = 30 + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._TimeOnly_Seconds = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.ForeColor = System.Drawing.Color.Black + Me.txtVermerk.Location = New System.Drawing.Point(517, 341) + Me.txtVermerk.MaxLength = 35 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(305, 20) + Me.txtVermerk.TabIndex = 25 + ' + 'cboAnlage6 + ' + Me.cboAnlage6._allowedValuesFreiText = Nothing + Me.cboAnlage6._allowFreiText = True + Me.cboAnlage6._value = "" + Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage6.FormattingEnabled = True + Me.cboAnlage6.Location = New System.Drawing.Point(10, 1011) + Me.cboAnlage6.MaxLength = 35 + Me.cboAnlage6.Name = "cboAnlage6" + Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage6.TabIndex = 33 + ' + 'cboAnlage4 + ' + Me.cboAnlage4._allowedValuesFreiText = Nothing + Me.cboAnlage4._allowFreiText = True + Me.cboAnlage4._value = "" + Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend + Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems + Me.cboAnlage4.FormattingEnabled = True + Me.cboAnlage4.Location = New System.Drawing.Point(10, 971) + Me.cboAnlage4.MaxLength = 35 + Me.cboAnlage4.Name = "cboAnlage4" + Me.cboAnlage4.Size = New System.Drawing.Size(266, 21) + Me.cboAnlage4.TabIndex = 31 + ' + 'txtErfassungsnummer + ' + Me.txtErfassungsnummer._DateTimeOnly = False + Me.txtErfassungsnummer._numbersOnly = False + Me.txtErfassungsnummer._numbersOnlyKommastellen = "" + Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True + Me.txtErfassungsnummer._Prozent = False + Me.txtErfassungsnummer._ShortDateNew = False + Me.txtErfassungsnummer._ShortDateOnly = False + Me.txtErfassungsnummer._TimeOnly = False + Me.txtErfassungsnummer._TimeOnly_Seconds = False + Me.txtErfassungsnummer._value = Nothing + Me.txtErfassungsnummer._Waehrung = False + Me.txtErfassungsnummer._WaehrungZeichen = True + Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black + Me.txtErfassungsnummer.Location = New System.Drawing.Point(517, 242) + Me.txtErfassungsnummer.MaxLength = 35 + Me.txtErfassungsnummer.MaxLineLength = -1 + Me.txtErfassungsnummer.MaxLines_Warning = "" + Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing + Me.txtErfassungsnummer.Name = "txtErfassungsnummer" + Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) + Me.txtErfassungsnummer.TabIndex = 11 + ' + 'cboRechnungNotiz + ' + Me.cboRechnungNotiz._allowedValuesFreiText = Nothing + Me.cboRechnungNotiz._allowFreiText = True + Me.cboRechnungNotiz._value = "" + Me.cboRechnungNotiz.FormattingEnabled = True + Me.cboRechnungNotiz.Location = New System.Drawing.Point(64, 1039) + Me.cboRechnungNotiz.Name = "cboRechnungNotiz" + Me.cboRechnungNotiz.Size = New System.Drawing.Size(423, 21) + Me.cboRechnungNotiz.TabIndex = 36 + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(592, 51) + Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(229, 21) + Me.cboFirma.TabIndex = 1 + Me.cboFirma.TabStop = False + ' + 'txtkdNrAuftraggeber + ' + Me.txtkdNrAuftraggeber._DateTimeOnly = False + Me.txtkdNrAuftraggeber._numbersOnly = False + Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" + Me.txtkdNrAuftraggeber._numbersOnlyTrennzeichen = True + Me.txtkdNrAuftraggeber._Prozent = False + Me.txtkdNrAuftraggeber._ShortDateNew = False + Me.txtkdNrAuftraggeber._ShortDateOnly = False + Me.txtkdNrAuftraggeber._TimeOnly = False + Me.txtkdNrAuftraggeber._TimeOnly_Seconds = False + Me.txtkdNrAuftraggeber._value = Nothing + Me.txtkdNrAuftraggeber._Waehrung = False + Me.txtkdNrAuftraggeber._WaehrungZeichen = True + Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(7, 25) + Me.txtkdNrAuftraggeber.MaxLength = 35 + Me.txtkdNrAuftraggeber.MaxLineLength = -1 + Me.txtkdNrAuftraggeber.MaxLines_Warning = "" + Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing + Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" + Me.txtkdNrAuftraggeber.ReadOnly = True + Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAuftraggeber.TabIndex = 1 + Me.txtkdNrAuftraggeber.TabStop = False + ' + 'kdFirmaAuftraggeber + ' + Me.kdFirmaAuftraggeber._AlleFirmenCLUSTER = False + Me.kdFirmaAuftraggeber._AllowSetValue = True + Me.kdFirmaAuftraggeber._autoSizeGross = False + Me.kdFirmaAuftraggeber._display_Name1 = True + Me.kdFirmaAuftraggeber._displayAVISO_Email = False + Me.kdFirmaAuftraggeber._displayFullName = False + Me.kdFirmaAuftraggeber._displayWoelflKd = False + Me.kdFirmaAuftraggeber._hideIfListEmpty = True + Me.kdFirmaAuftraggeber._loadKdData = True + Me.kdFirmaAuftraggeber._searchName1 = True + Me.kdFirmaAuftraggeber._UseFIRMA = "" + Me.kdFirmaAuftraggeber._ValueKdAndName = False + Me.kdFirmaAuftraggeber.BackColor = System.Drawing.Color.White + Me.kdFirmaAuftraggeber.dgvpos = "LEFT" + Me.kdFirmaAuftraggeber.KdName = Nothing + Me.kdFirmaAuftraggeber.KdNr = "-1" + Me.kdFirmaAuftraggeber.kdNrField = Nothing + Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing + Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaAuftraggeber.MaxLength = 35 + Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" + Me.kdFirmaAuftraggeber.nurAktive = True + Me.kdFirmaAuftraggeber.searchActive = True + Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAuftraggeber.TabIndex = 3 + Me.kdFirmaAuftraggeber.TabStop = False + Me.kdFirmaAuftraggeber.TIMER_SEARCH = True + Me.kdFirmaAuftraggeber.usrcntl = Nothing + ' + 'txtAuftraggeberName2 + ' + Me.txtAuftraggeberName2._DateTimeOnly = False + Me.txtAuftraggeberName2._numbersOnly = False + Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" + Me.txtAuftraggeberName2._numbersOnlyTrennzeichen = True + Me.txtAuftraggeberName2._Prozent = False + Me.txtAuftraggeberName2._ShortDateNew = False + Me.txtAuftraggeberName2._ShortDateOnly = False + Me.txtAuftraggeberName2._TimeOnly = False + Me.txtAuftraggeberName2._TimeOnly_Seconds = False + Me.txtAuftraggeberName2._value = Nothing + Me.txtAuftraggeberName2._Waehrung = False + Me.txtAuftraggeberName2._WaehrungZeichen = True + Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftraggeberName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black + Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 25) + Me.txtAuftraggeberName2.MaxLength = 35 + Me.txtAuftraggeberName2.MaxLineLength = -1 + Me.txtAuftraggeberName2.MaxLines_Warning = "" + Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing + Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" + Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 13) + Me.txtAuftraggeberName2.TabIndex = 4 + Me.txtAuftraggeberName2.TabStop = False + ' + 'txtAuftragggeberOrt + ' + Me.txtAuftragggeberOrt._DateTimeOnly = False + Me.txtAuftragggeberOrt._numbersOnly = False + Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" + Me.txtAuftragggeberOrt._numbersOnlyTrennzeichen = True + Me.txtAuftragggeberOrt._Prozent = False + Me.txtAuftragggeberOrt._ShortDateNew = False + Me.txtAuftragggeberOrt._ShortDateOnly = False + Me.txtAuftragggeberOrt._TimeOnly = False + Me.txtAuftragggeberOrt._TimeOnly_Seconds = False + Me.txtAuftragggeberOrt._value = Nothing + Me.txtAuftragggeberOrt._Waehrung = False + Me.txtAuftragggeberOrt._WaehrungZeichen = True + Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftragggeberOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black + Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 53) + Me.txtAuftragggeberOrt.MaxLength = 35 + Me.txtAuftragggeberOrt.MaxLineLength = -1 + Me.txtAuftragggeberOrt.MaxLines_Warning = "" + Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing + Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" + Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 13) + Me.txtAuftragggeberOrt.TabIndex = 7 + Me.txtAuftragggeberOrt.TabStop = False + ' + 'txtAuftragggeberStrasse + ' + Me.txtAuftragggeberStrasse._DateTimeOnly = False + Me.txtAuftragggeberStrasse._numbersOnly = False + Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" + Me.txtAuftragggeberStrasse._numbersOnlyTrennzeichen = True + Me.txtAuftragggeberStrasse._Prozent = False + Me.txtAuftragggeberStrasse._ShortDateNew = False + Me.txtAuftragggeberStrasse._ShortDateOnly = False + Me.txtAuftragggeberStrasse._TimeOnly = False + Me.txtAuftragggeberStrasse._TimeOnly_Seconds = False + Me.txtAuftragggeberStrasse._value = Nothing + Me.txtAuftragggeberStrasse._Waehrung = False + Me.txtAuftragggeberStrasse._WaehrungZeichen = True + Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAuftragggeberStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black + Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 39) + Me.txtAuftragggeberStrasse.MaxLength = 35 + Me.txtAuftragggeberStrasse.MaxLineLength = -1 + Me.txtAuftragggeberStrasse.MaxLines_Warning = "" + Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing + Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" + Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtAuftragggeberStrasse.TabIndex = 6 + Me.txtAuftragggeberStrasse.TabStop = False + ' + 'FlatButton4 + ' + Me.FlatButton4.allowBorder = False + Me.FlatButton4.FlatAppearance.BorderSize = 0 + Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton4.ForeColor = System.Drawing.Color.Black + Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton4.Location = New System.Drawing.Point(382, 0) + Me.FlatButton4.Name = "FlatButton4" + Me.FlatButton4.Size = New System.Drawing.Size(24, 25) + Me.FlatButton4.TabIndex = 2 + Me.FlatButton4.TabStop = False + Me.FlatButton4.UseVisualStyleBackColor = True + ' + 'txtText + ' + Me.txtText.Location = New System.Drawing.Point(64, 1083) + Me.txtText.MaxLineLength = -1 + Me.txtText.MaxLines_Warning = "" + Me.txtText.MaxLines_Warning_Label = Nothing + Me.txtText.Name = "txtText" + Me.txtText.ReadOnly = True + Me.txtText.Size = New System.Drawing.Size(423, 47) + Me.txtText.TabIndex = 35 + Me.txtText.Text = "" + ' + 'txtBefoerderungsmittel + ' + Me.txtBefoerderungsmittel._DateTimeOnly = False + Me.txtBefoerderungsmittel._numbersOnly = False + Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" + Me.txtBefoerderungsmittel._numbersOnlyTrennzeichen = True + Me.txtBefoerderungsmittel._Prozent = False + Me.txtBefoerderungsmittel._ShortDateNew = False + Me.txtBefoerderungsmittel._ShortDateOnly = False + Me.txtBefoerderungsmittel._TimeOnly = False + Me.txtBefoerderungsmittel._TimeOnly_Seconds = False + Me.txtBefoerderungsmittel._value = Nothing + Me.txtBefoerderungsmittel._Waehrung = False + Me.txtBefoerderungsmittel._WaehrungZeichen = True + Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black + Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(517, 279) + Me.txtBefoerderungsmittel.MaxLength = 35 + Me.txtBefoerderungsmittel.MaxLineLength = -1 + Me.txtBefoerderungsmittel.MaxLines_Warning = "" + Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing + Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" + Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) + Me.txtBefoerderungsmittel.TabIndex = 19 + ' + 'txtGrenze + ' + Me.txtGrenze._DateTimeOnly = False + Me.txtGrenze._numbersOnly = False + Me.txtGrenze._numbersOnlyKommastellen = "" + Me.txtGrenze._numbersOnlyTrennzeichen = True + Me.txtGrenze._Prozent = False + Me.txtGrenze._ShortDateNew = False + Me.txtGrenze._ShortDateOnly = False + Me.txtGrenze._TimeOnly = False + Me.txtGrenze._TimeOnly_Seconds = False + Me.txtGrenze._value = Nothing + Me.txtGrenze._Waehrung = False + Me.txtGrenze._WaehrungZeichen = True + Me.txtGrenze.ForeColor = System.Drawing.Color.Black + Me.txtGrenze.Location = New System.Drawing.Point(517, 260) + Me.txtGrenze.MaxLength = 35 + Me.txtGrenze.MaxLineLength = -1 + Me.txtGrenze.MaxLines_Warning = "" + Me.txtGrenze.MaxLines_Warning_Label = Nothing + Me.txtGrenze.Name = "txtGrenze" + Me.txtGrenze.Size = New System.Drawing.Size(305, 20) + Me.txtGrenze.TabIndex = 16 + ' + 'txtSendungsdaten + ' + Me.txtSendungsdaten._DateTimeOnly = False + Me.txtSendungsdaten._numbersOnly = False + Me.txtSendungsdaten._numbersOnlyKommastellen = "" + Me.txtSendungsdaten._numbersOnlyTrennzeichen = True + Me.txtSendungsdaten._Prozent = False + Me.txtSendungsdaten._ShortDateNew = False + Me.txtSendungsdaten._ShortDateOnly = False + Me.txtSendungsdaten._TimeOnly = False + Me.txtSendungsdaten._TimeOnly_Seconds = False + Me.txtSendungsdaten._value = Nothing + Me.txtSendungsdaten._Waehrung = False + Me.txtSendungsdaten._WaehrungZeichen = True + Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black + Me.txtSendungsdaten.Location = New System.Drawing.Point(517, 323) + Me.txtSendungsdaten.MaxLength = 300 + Me.txtSendungsdaten.MaxLineLength = -1 + Me.txtSendungsdaten.MaxLines_Warning = "" + Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing + Me.txtSendungsdaten.Name = "txtSendungsdaten" + Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) + Me.txtSendungsdaten.TabIndex = 22 + ' + 'txtWarenwert + ' + Me.txtWarenwert._DateTimeOnly = False + Me.txtWarenwert._numbersOnly = False + Me.txtWarenwert._numbersOnlyKommastellen = "" + Me.txtWarenwert._numbersOnlyTrennzeichen = True + Me.txtWarenwert._Prozent = False + Me.txtWarenwert._ShortDateNew = False + Me.txtWarenwert._ShortDateOnly = False + Me.txtWarenwert._TimeOnly = False + Me.txtWarenwert._TimeOnly_Seconds = False + Me.txtWarenwert._value = "" + Me.txtWarenwert._Waehrung = True + Me.txtWarenwert._WaehrungZeichen = False + Me.txtWarenwert.ForeColor = System.Drawing.Color.Black + Me.txtWarenwert.Location = New System.Drawing.Point(562, 178) + Me.txtWarenwert.MaxLength = 35 + Me.txtWarenwert.MaxLineLength = -1 + Me.txtWarenwert.MaxLines_Warning = "" + Me.txtWarenwert.MaxLines_Warning_Label = Nothing + Me.txtWarenwert.Name = "txtWarenwert" + Me.txtWarenwert.Size = New System.Drawing.Size(129, 20) + Me.txtWarenwert.TabIndex = 15 + Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtZollbelegNr + ' + Me.txtZollbelegNr._DateTimeOnly = False + Me.txtZollbelegNr._numbersOnly = False + Me.txtZollbelegNr._numbersOnlyKommastellen = "" + Me.txtZollbelegNr._numbersOnlyTrennzeichen = True + Me.txtZollbelegNr._Prozent = False + Me.txtZollbelegNr._ShortDateNew = False + Me.txtZollbelegNr._ShortDateOnly = False + Me.txtZollbelegNr._TimeOnly = False + Me.txtZollbelegNr._TimeOnly_Seconds = False + Me.txtZollbelegNr._value = Nothing + Me.txtZollbelegNr._Waehrung = False + Me.txtZollbelegNr._WaehrungZeichen = True + Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black + Me.txtZollbelegNr.Location = New System.Drawing.Point(517, 159) + Me.txtZollbelegNr.MaxLength = 35 + Me.txtZollbelegNr.MaxLineLength = -1 + Me.txtZollbelegNr.MaxLines_Warning = "" + Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing + Me.txtZollbelegNr.Name = "txtZollbelegNr" + Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) + Me.txtZollbelegNr.TabIndex = 10 + ' + 'cboRgArt + ' + Me.cboRgArt._allowedValuesFreiText = Nothing + Me.cboRgArt._allowFreiText = False + Me.cboRgArt._value = "" + Me.cboRgArt.FormattingEnabled = True + Me.cboRgArt.Location = New System.Drawing.Point(478, 127) + Me.cboRgArt.Name = "cboRgArt" + Me.cboRgArt.Size = New System.Drawing.Size(97, 21) + Me.cboRgArt.TabIndex = 246 + ' + 'cboVorauskasse + ' + Me.cboVorauskasse._allowedValuesFreiText = Nothing + Me.cboVorauskasse._allowFreiText = False + Me.cboVorauskasse._value = "" + Me.cboVorauskasse.FormattingEnabled = True + Me.cboVorauskasse.Location = New System.Drawing.Point(506, 5) + Me.cboVorauskasse.Name = "cboVorauskasse" + Me.cboVorauskasse.Size = New System.Drawing.Size(69, 21) + Me.cboVorauskasse.TabIndex = 244 + ' + 'txtRechnungAnZusatz + ' + Me.txtRechnungAnZusatz._DateTimeOnly = False + Me.txtRechnungAnZusatz._numbersOnly = False + Me.txtRechnungAnZusatz._numbersOnlyKommastellen = "" + Me.txtRechnungAnZusatz._numbersOnlyTrennzeichen = True + Me.txtRechnungAnZusatz._Prozent = False + Me.txtRechnungAnZusatz._ShortDateNew = False + Me.txtRechnungAnZusatz._ShortDateOnly = False + Me.txtRechnungAnZusatz._TimeOnly = False + Me.txtRechnungAnZusatz._TimeOnly_Seconds = False + Me.txtRechnungAnZusatz._value = Nothing + Me.txtRechnungAnZusatz._Waehrung = False + Me.txtRechnungAnZusatz._WaehrungZeichen = True + Me.txtRechnungAnZusatz.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnZusatz.Location = New System.Drawing.Point(101, 63) + Me.txtRechnungAnZusatz.MaxLength = 52 + Me.txtRechnungAnZusatz.MaxLineLength = -1 + Me.txtRechnungAnZusatz.MaxLines_Warning = "" + Me.txtRechnungAnZusatz.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnZusatz.Name = "txtRechnungAnZusatz" + Me.txtRechnungAnZusatz.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnZusatz.TabIndex = 242 + Me.txtRechnungAnZusatz.TabStop = False + ' + 'cboSammelrechnung + ' + Me.cboSammelrechnung._allowedValuesFreiText = Nothing + Me.cboSammelrechnung._allowFreiText = False + Me.cboSammelrechnung._value = "" + Me.cboSammelrechnung.FormattingEnabled = True + Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 5) + Me.cboSammelrechnung.Name = "cboSammelrechnung" + Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) + Me.cboSammelrechnung.TabIndex = 2 + ' + 'txtRechnungAnName2 + ' + Me.txtRechnungAnName2._DateTimeOnly = False + Me.txtRechnungAnName2._numbersOnly = False + Me.txtRechnungAnName2._numbersOnlyKommastellen = "" + Me.txtRechnungAnName2._numbersOnlyTrennzeichen = True + Me.txtRechnungAnName2._Prozent = False + Me.txtRechnungAnName2._ShortDateNew = False + Me.txtRechnungAnName2._ShortDateOnly = False + Me.txtRechnungAnName2._TimeOnly = False + Me.txtRechnungAnName2._TimeOnly_Seconds = False + Me.txtRechnungAnName2._value = Nothing + Me.txtRechnungAnName2._Waehrung = False + Me.txtRechnungAnName2._WaehrungZeichen = True + Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 44) + Me.txtRechnungAnName2.MaxLength = 40 + Me.txtRechnungAnName2.MaxLineLength = -1 + Me.txtRechnungAnName2.MaxLines_Warning = "" + Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnName2.Name = "txtRechnungAnName2" + Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnName2.TabIndex = 11 + Me.txtRechnungAnName2.TabStop = False + ' + 'kdFirmaRechnungAn + ' + Me.kdFirmaRechnungAn._AlleFirmenCLUSTER = False + Me.kdFirmaRechnungAn._AllowSetValue = True + Me.kdFirmaRechnungAn._autoSizeGross = False + Me.kdFirmaRechnungAn._display_Name1 = True + Me.kdFirmaRechnungAn._displayAVISO_Email = False + Me.kdFirmaRechnungAn._displayFullName = False + Me.kdFirmaRechnungAn._displayWoelflKd = False + Me.kdFirmaRechnungAn._hideIfListEmpty = True + Me.kdFirmaRechnungAn._loadKdData = True + Me.kdFirmaRechnungAn._searchName1 = True + Me.kdFirmaRechnungAn._UseFIRMA = "" + Me.kdFirmaRechnungAn._ValueKdAndName = False + Me.kdFirmaRechnungAn.dgvpos = "LEFT" + Me.kdFirmaRechnungAn.KdName = Nothing + Me.kdFirmaRechnungAn.KdNr = "-1" + Me.kdFirmaRechnungAn.kdNrField = Nothing + Me.kdFirmaRechnungAn.KdNrNullInt = Nothing + Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 25) + Me.kdFirmaRechnungAn.MaxLength = 35 + Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" + Me.kdFirmaRechnungAn.nurAktive = True + Me.kdFirmaRechnungAn.searchActive = True + Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaRechnungAn.TabIndex = 5 + Me.kdFirmaRechnungAn.TabStop = False + Me.kdFirmaRechnungAn.TIMER_SEARCH = True + Me.kdFirmaRechnungAn.usrcntl = Nothing + ' + 'FlatButton3 + ' + Me.FlatButton3.allowBorder = False + Me.FlatButton3.FlatAppearance.BorderSize = 0 + Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton3.ForeColor = System.Drawing.Color.Black + Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton3.Location = New System.Drawing.Point(383, 20) + Me.FlatButton3.Name = "FlatButton3" + Me.FlatButton3.Size = New System.Drawing.Size(24, 25) + Me.FlatButton3.TabIndex = 7 + Me.FlatButton3.TabStop = False + Me.FlatButton3.UseVisualStyleBackColor = True + ' + 'txtKdAuftragsNr + ' + Me.txtKdAuftragsNr._DateTimeOnly = False + Me.txtKdAuftragsNr._numbersOnly = False + Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True + Me.txtKdAuftragsNr._Prozent = False + Me.txtKdAuftragsNr._ShortDateNew = False + Me.txtKdAuftragsNr._ShortDateOnly = False + Me.txtKdAuftragsNr._TimeOnly = False + Me.txtKdAuftragsNr._TimeOnly_Seconds = False + Me.txtKdAuftragsNr._value = Nothing + Me.txtKdAuftragsNr._Waehrung = False + Me.txtKdAuftragsNr._WaehrungZeichen = True + Me.txtKdAuftragsNr.BackColor = System.Drawing.Color.Yellow + Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black + Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 123) + Me.txtKdAuftragsNr.MaxLength = 35 + Me.txtKdAuftragsNr.MaxLineLength = -1 + Me.txtKdAuftragsNr.MaxLines_Warning = "" + Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing + Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" + Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) + Me.txtKdAuftragsNr.TabIndex = 20 + ' + 'txtRechnungAnUIDKz + ' + Me.txtRechnungAnUIDKz._DateTimeOnly = False + Me.txtRechnungAnUIDKz._numbersOnly = False + Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDKz._numbersOnlyTrennzeichen = True + Me.txtRechnungAnUIDKz._Prozent = False + Me.txtRechnungAnUIDKz._ShortDateNew = False + Me.txtRechnungAnUIDKz._ShortDateOnly = False + Me.txtRechnungAnUIDKz._TimeOnly = False + Me.txtRechnungAnUIDKz._TimeOnly_Seconds = False + Me.txtRechnungAnUIDKz._value = Nothing + Me.txtRechnungAnUIDKz._Waehrung = False + Me.txtRechnungAnUIDKz._WaehrungZeichen = True + Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 44) + Me.txtRechnungAnUIDKz.MaxLength = 35 + Me.txtRechnungAnUIDKz.MaxLineLength = -1 + Me.txtRechnungAnUIDKz.MaxLines_Warning = "" + Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" + Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) + Me.txtRechnungAnUIDKz.TabIndex = 18 + Me.txtRechnungAnUIDKz.TabStop = False + ' + 'cboRechnungAn + ' + Me.cboRechnungAn._allowedValuesFreiText = Nothing + Me.cboRechnungAn._allowFreiText = False + Me.cboRechnungAn._value = "" + Me.cboRechnungAn.FormattingEnabled = True + Me.cboRechnungAn.Location = New System.Drawing.Point(101, 5) + Me.cboRechnungAn.Name = "cboRechnungAn" + Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) + Me.cboRechnungAn.TabIndex = 1 + ' + 'txtRechnungAnUIDNr + ' + Me.txtRechnungAnUIDNr._DateTimeOnly = False + Me.txtRechnungAnUIDNr._numbersOnly = False + Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDNr._numbersOnlyTrennzeichen = True + Me.txtRechnungAnUIDNr._Prozent = False + Me.txtRechnungAnUIDNr._ShortDateNew = False + Me.txtRechnungAnUIDNr._ShortDateOnly = False + Me.txtRechnungAnUIDNr._TimeOnly = False + Me.txtRechnungAnUIDNr._TimeOnly_Seconds = False + Me.txtRechnungAnUIDNr._value = Nothing + Me.txtRechnungAnUIDNr._Waehrung = False + Me.txtRechnungAnUIDNr._WaehrungZeichen = True + Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 44) + Me.txtRechnungAnUIDNr.MaxLength = 35 + Me.txtRechnungAnUIDNr.MaxLineLength = -1 + Me.txtRechnungAnUIDNr.MaxLines_Warning = "" + Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" + Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) + Me.txtRechnungAnUIDNr.TabIndex = 13 + Me.txtRechnungAnUIDNr.TabStop = False + ' + 'txtRechnungAnBuKdNr + ' + Me.txtRechnungAnBuKdNr._DateTimeOnly = False + Me.txtRechnungAnBuKdNr._numbersOnly = False + Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnBuKdNr._numbersOnlyTrennzeichen = True + Me.txtRechnungAnBuKdNr._Prozent = False + Me.txtRechnungAnBuKdNr._ShortDateNew = False + Me.txtRechnungAnBuKdNr._ShortDateOnly = False + Me.txtRechnungAnBuKdNr._TimeOnly = False + Me.txtRechnungAnBuKdNr._TimeOnly_Seconds = False + Me.txtRechnungAnBuKdNr._value = Nothing + Me.txtRechnungAnBuKdNr._Waehrung = False + Me.txtRechnungAnBuKdNr._WaehrungZeichen = True + Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 25) + Me.txtRechnungAnBuKdNr.MaxLength = 35 + Me.txtRechnungAnBuKdNr.MaxLineLength = -1 + Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" + Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" + Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) + Me.txtRechnungAnBuKdNr.TabIndex = 10 + Me.txtRechnungAnBuKdNr.TabStop = False + ' + 'txtkdNrRechnungAn + ' + Me.txtkdNrRechnungAn._DateTimeOnly = False + Me.txtkdNrRechnungAn._numbersOnly = False + Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" + Me.txtkdNrRechnungAn._numbersOnlyTrennzeichen = True + Me.txtkdNrRechnungAn._Prozent = False + Me.txtkdNrRechnungAn._ShortDateNew = False + Me.txtkdNrRechnungAn._ShortDateOnly = False + Me.txtkdNrRechnungAn._TimeOnly = False + Me.txtkdNrRechnungAn._TimeOnly_Seconds = False + Me.txtkdNrRechnungAn._value = Nothing + Me.txtkdNrRechnungAn._Waehrung = False + Me.txtkdNrRechnungAn._WaehrungZeichen = True + Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black + Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 25) + Me.txtkdNrRechnungAn.MaxLength = 35 + Me.txtkdNrRechnungAn.MaxLineLength = -1 + Me.txtkdNrRechnungAn.MaxLines_Warning = "" + Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing + Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" + Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) + Me.txtkdNrRechnungAn.TabIndex = 3 + Me.txtkdNrRechnungAn.TabStop = False + ' + 'txtRechnungAnOrt + ' + Me.txtRechnungAnOrt._DateTimeOnly = False + Me.txtRechnungAnOrt._numbersOnly = False + Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" + Me.txtRechnungAnOrt._numbersOnlyTrennzeichen = True + Me.txtRechnungAnOrt._Prozent = False + Me.txtRechnungAnOrt._ShortDateNew = False + Me.txtRechnungAnOrt._ShortDateOnly = False + Me.txtRechnungAnOrt._TimeOnly = False + Me.txtRechnungAnOrt._TimeOnly_Seconds = False + Me.txtRechnungAnOrt._value = Nothing + Me.txtRechnungAnOrt._Waehrung = False + Me.txtRechnungAnOrt._WaehrungZeichen = True + Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 101) + Me.txtRechnungAnOrt.MaxLength = 52 + Me.txtRechnungAnOrt.MaxLineLength = -1 + Me.txtRechnungAnOrt.MaxLines_Warning = "" + Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" + Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnOrt.TabIndex = 17 + Me.txtRechnungAnOrt.TabStop = False + ' + 'txtRechnungAnStrasse + ' + Me.txtRechnungAnStrasse._DateTimeOnly = False + Me.txtRechnungAnStrasse._numbersOnly = False + Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" + Me.txtRechnungAnStrasse._numbersOnlyTrennzeichen = True + Me.txtRechnungAnStrasse._Prozent = False + Me.txtRechnungAnStrasse._ShortDateNew = False + Me.txtRechnungAnStrasse._ShortDateOnly = False + Me.txtRechnungAnStrasse._TimeOnly = False + Me.txtRechnungAnStrasse._TimeOnly_Seconds = False + Me.txtRechnungAnStrasse._value = Nothing + Me.txtRechnungAnStrasse._Waehrung = False + Me.txtRechnungAnStrasse._WaehrungZeichen = True + Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black + Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 82) + Me.txtRechnungAnStrasse.MaxLength = 40 + Me.txtRechnungAnStrasse.MaxLineLength = -1 + Me.txtRechnungAnStrasse.MaxLines_Warning = "" + Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing + Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" + Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) + Me.txtRechnungAnStrasse.TabIndex = 14 + Me.txtRechnungAnStrasse.TabStop = False + ' + 'txtkdNrAbsender + ' + Me.txtkdNrAbsender._DateTimeOnly = False + Me.txtkdNrAbsender._numbersOnly = False + Me.txtkdNrAbsender._numbersOnlyKommastellen = "" + Me.txtkdNrAbsender._numbersOnlyTrennzeichen = True + Me.txtkdNrAbsender._Prozent = False + Me.txtkdNrAbsender._ShortDateNew = False + Me.txtkdNrAbsender._ShortDateOnly = False + Me.txtkdNrAbsender._TimeOnly = False + Me.txtkdNrAbsender._TimeOnly_Seconds = False + Me.txtkdNrAbsender._value = Nothing + Me.txtkdNrAbsender._Waehrung = False + Me.txtkdNrAbsender._WaehrungZeichen = True + Me.txtkdNrAbsender.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrAbsender.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black + Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 26) + Me.txtkdNrAbsender.MaxLength = 35 + Me.txtkdNrAbsender.MaxLineLength = -1 + Me.txtkdNrAbsender.MaxLines_Warning = "" + Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing + Me.txtkdNrAbsender.Name = "txtkdNrAbsender" + Me.txtkdNrAbsender.ReadOnly = True + Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrAbsender.TabIndex = 1 + Me.txtkdNrAbsender.TabStop = False + ' + 'kdFirmaAbsender + ' + Me.kdFirmaAbsender._AlleFirmenCLUSTER = False + Me.kdFirmaAbsender._AllowSetValue = True + Me.kdFirmaAbsender._autoSizeGross = False + Me.kdFirmaAbsender._display_Name1 = True + Me.kdFirmaAbsender._displayAVISO_Email = False + Me.kdFirmaAbsender._displayFullName = False + Me.kdFirmaAbsender._displayWoelflKd = False + Me.kdFirmaAbsender._hideIfListEmpty = True + Me.kdFirmaAbsender._loadKdData = True + Me.kdFirmaAbsender._searchName1 = True + Me.kdFirmaAbsender._UseFIRMA = "" + Me.kdFirmaAbsender._ValueKdAndName = False + Me.kdFirmaAbsender.BackColor = System.Drawing.Color.White + Me.kdFirmaAbsender.dgvpos = "LEFT" + Me.kdFirmaAbsender.KdName = Nothing + Me.kdFirmaAbsender.KdNr = "-1" + Me.kdFirmaAbsender.kdNrField = Nothing + Me.kdFirmaAbsender.KdNrNullInt = Nothing + Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaAbsender.MaxLength = 35 + Me.kdFirmaAbsender.Name = "kdFirmaAbsender" + Me.kdFirmaAbsender.nurAktive = True + Me.kdFirmaAbsender.searchActive = True + Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaAbsender.TabIndex = 3 + Me.kdFirmaAbsender.TabStop = False + Me.kdFirmaAbsender.TIMER_SEARCH = True + Me.kdFirmaAbsender.usrcntl = Nothing + ' + 'txtAbsenderName2 + ' + Me.txtAbsenderName2._DateTimeOnly = False + Me.txtAbsenderName2._numbersOnly = False + Me.txtAbsenderName2._numbersOnlyKommastellen = "" + Me.txtAbsenderName2._numbersOnlyTrennzeichen = True + Me.txtAbsenderName2._Prozent = False + Me.txtAbsenderName2._ShortDateNew = False + Me.txtAbsenderName2._ShortDateOnly = False + Me.txtAbsenderName2._TimeOnly = False + Me.txtAbsenderName2._TimeOnly_Seconds = False + Me.txtAbsenderName2._value = Nothing + Me.txtAbsenderName2._Waehrung = False + Me.txtAbsenderName2._WaehrungZeichen = True + Me.txtAbsenderName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 26) + Me.txtAbsenderName2.MaxLength = 35 + Me.txtAbsenderName2.MaxLineLength = -1 + Me.txtAbsenderName2.MaxLines_Warning = "" + Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing + Me.txtAbsenderName2.Name = "txtAbsenderName2" + Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderName2.TabIndex = 4 + Me.txtAbsenderName2.TabStop = False + ' + 'txtAbsenderOrt + ' + Me.txtAbsenderOrt._DateTimeOnly = False + Me.txtAbsenderOrt._numbersOnly = False + Me.txtAbsenderOrt._numbersOnlyKommastellen = "" + Me.txtAbsenderOrt._numbersOnlyTrennzeichen = True + Me.txtAbsenderOrt._Prozent = False + Me.txtAbsenderOrt._ShortDateNew = False + Me.txtAbsenderOrt._ShortDateOnly = False + Me.txtAbsenderOrt._TimeOnly = False + Me.txtAbsenderOrt._TimeOnly_Seconds = False + Me.txtAbsenderOrt._value = Nothing + Me.txtAbsenderOrt._Waehrung = False + Me.txtAbsenderOrt._WaehrungZeichen = True + Me.txtAbsenderOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 54) + Me.txtAbsenderOrt.MaxLength = 35 + Me.txtAbsenderOrt.MaxLineLength = -1 + Me.txtAbsenderOrt.MaxLines_Warning = "" + Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing + Me.txtAbsenderOrt.Name = "txtAbsenderOrt" + Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderOrt.TabIndex = 7 + Me.txtAbsenderOrt.TabStop = False + ' + 'txtAbsenderStrasse + ' + Me.txtAbsenderStrasse._DateTimeOnly = False + Me.txtAbsenderStrasse._numbersOnly = False + Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" + Me.txtAbsenderStrasse._numbersOnlyTrennzeichen = True + Me.txtAbsenderStrasse._Prozent = False + Me.txtAbsenderStrasse._ShortDateNew = False + Me.txtAbsenderStrasse._ShortDateOnly = False + Me.txtAbsenderStrasse._TimeOnly = False + Me.txtAbsenderStrasse._TimeOnly_Seconds = False + Me.txtAbsenderStrasse._value = Nothing + Me.txtAbsenderStrasse._Waehrung = False + Me.txtAbsenderStrasse._WaehrungZeichen = True + Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtAbsenderStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black + Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 40) + Me.txtAbsenderStrasse.MaxLength = 35 + Me.txtAbsenderStrasse.MaxLineLength = -1 + Me.txtAbsenderStrasse.MaxLines_Warning = "" + Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing + Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" + Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtAbsenderStrasse.TabIndex = 6 + Me.txtAbsenderStrasse.TabStop = False + ' + 'FlatButton1 + ' + Me.FlatButton1.allowBorder = False + Me.FlatButton1.FlatAppearance.BorderSize = 0 + Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton1.ForeColor = System.Drawing.Color.Black + Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton1.Location = New System.Drawing.Point(382, 0) + Me.FlatButton1.Name = "FlatButton1" + Me.FlatButton1.Size = New System.Drawing.Size(24, 25) + Me.FlatButton1.TabIndex = 2 + Me.FlatButton1.TabStop = False + Me.FlatButton1.UseVisualStyleBackColor = True + ' + 'sbLeistung + ' + Me.sbLeistung._allowFreitext = False + Me.sbLeistung._AllowSetValue = False + Me.sbLeistung._allowSpaceAsSplitter = False + Me.sbLeistung._autoSizeGross = False + Me.sbLeistung._hideIfListEmpty = True + Me.sbLeistung._value = Nothing + Me.sbLeistung.conn_art = "FMZOLL" + Me.sbLeistung.dgvpos = "LEFT" + Me.sbLeistung.DISPLAY_PARAM = Nothing + Me.sbLeistung.INVISIBLE_COLUMNS = Nothing + Me.sbLeistung.key_visible = False + Me.sbLeistung.KEYPARAM = Nothing + Me.sbLeistung.Location = New System.Drawing.Point(623, 232) + Me.sbLeistung.Name = "sbLeistung" + Me.sbLeistung.searchActive = True + Me.sbLeistung.Size = New System.Drawing.Size(161, 20) + Me.sbLeistung.SQL_ORDER_BY = Nothing + Me.sbLeistung.SQL_SELECT = Nothing + Me.sbLeistung.SQL_WHERE = Nothing + Me.sbLeistung.SQL_WhereParamList = Nothing + Me.sbLeistung.TabIndex = 14 + Me.sbLeistung.usrcntl = Nothing + ' + 'txtUnterNrRef + ' + Me.txtUnterNrRef._DateTimeOnly = False + Me.txtUnterNrRef._numbersOnly = False + Me.txtUnterNrRef._numbersOnlyKommastellen = "" + Me.txtUnterNrRef._numbersOnlyTrennzeichen = True + Me.txtUnterNrRef._Prozent = False + Me.txtUnterNrRef._ShortDateNew = False + Me.txtUnterNrRef._ShortDateOnly = False + Me.txtUnterNrRef._TimeOnly = False + Me.txtUnterNrRef._TimeOnly_Seconds = False + Me.txtUnterNrRef._value = Nothing + Me.txtUnterNrRef._Waehrung = False + Me.txtUnterNrRef._WaehrungZeichen = True + Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) + Me.txtUnterNrRef.MaxLineLength = -1 + Me.txtUnterNrRef.MaxLines_Warning = "" + Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing + Me.txtUnterNrRef.Name = "txtUnterNrRef" + Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) + Me.txtUnterNrRef.TabIndex = 8 + Me.txtUnterNrRef.Visible = False + ' + 'cboFilialeRef + ' + Me.cboFilialeRef._allowedValuesFreiText = Nothing + Me.cboFilialeRef._allowFreiText = False + Me.cboFilialeRef._value = "" + Me.cboFilialeRef.DropDownWidth = 280 + Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.cboFilialeRef.FormattingEnabled = True + Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) + Me.cboFilialeRef.Name = "cboFilialeRef" + Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) + Me.cboFilialeRef.TabIndex = 6 + Me.cboFilialeRef.Visible = False + ' + 'txtAbfertigungsnummerRef + ' + Me.txtAbfertigungsnummerRef._DateTimeOnly = False + Me.txtAbfertigungsnummerRef._numbersOnly = False + Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummerRef._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummerRef._Prozent = False + Me.txtAbfertigungsnummerRef._ShortDateNew = False + Me.txtAbfertigungsnummerRef._ShortDateOnly = False + Me.txtAbfertigungsnummerRef._TimeOnly = False + Me.txtAbfertigungsnummerRef._TimeOnly_Seconds = False + Me.txtAbfertigungsnummerRef._value = Nothing + Me.txtAbfertigungsnummerRef._Waehrung = False + Me.txtAbfertigungsnummerRef._WaehrungZeichen = True + Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) + Me.txtAbfertigungsnummerRef.MaxLineLength = -1 + Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" + Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" + Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummerRef.TabIndex = 7 + Me.txtAbfertigungsnummerRef.Visible = False + ' + 'dgvRechnungenPositionen + ' + Me.dgvRechnungenPositionen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvRechnungenPositionen.AllowUserToAddRows = False + Me.dgvRechnungenPositionen.AllowUserToDeleteRows = False + Me.dgvRechnungenPositionen.AllowUserToResizeColumns = False + Me.dgvRechnungenPositionen.AllowUserToResizeRows = False + Me.dgvRechnungenPositionen.BackgroundColor = System.Drawing.Color.White + 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.dgvRechnungenPositionen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6 + Me.dgvRechnungenPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvRechnungenPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Leistung, Me.Anzahl, Me.Preis, Me.SteuerpflichtigerBetrag, Me.SteuerfreierBetrag, Me.Aufschubkonto}) + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11 + Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) + Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" + Me.dgvRechnungenPositionen.ReadOnly = True + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvRechnungenPositionen.RowHeadersDefaultCellStyle = DataGridViewCellStyle12 + Me.dgvRechnungenPositionen.RowHeadersVisible = False + Me.dgvRechnungenPositionen.RowHeadersWidth = 62 + Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) + Me.dgvRechnungenPositionen.TabIndex = 5 + Me.dgvRechnungenPositionen.TabStop = False + ' + 'Leistung + ' + Me.Leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.Leistung.HeaderText = "Leistung" + Me.Leistung.MinimumWidth = 8 + Me.Leistung.Name = "Leistung" + Me.Leistung.ReadOnly = True + ' + 'Anzahl + ' + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle7.Format = "N0" + DataGridViewCellStyle7.NullValue = Nothing + Me.Anzahl.DefaultCellStyle = DataGridViewCellStyle7 + Me.Anzahl.HeaderText = "Anzahl" + Me.Anzahl.MinimumWidth = 8 + Me.Anzahl.Name = "Anzahl" + Me.Anzahl.ReadOnly = True + Me.Anzahl.Width = 50 + ' + 'Preis + ' + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle8.Format = "c2" + Me.Preis.DefaultCellStyle = DataGridViewCellStyle8 + Me.Preis.HeaderText = "Preis" + Me.Preis.MinimumWidth = 8 + Me.Preis.Name = "Preis" + Me.Preis.ReadOnly = True + Me.Preis.Width = 80 + ' + 'SteuerpflichtigerBetrag + ' + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle9.Format = "c2" + Me.SteuerpflichtigerBetrag.DefaultCellStyle = DataGridViewCellStyle9 + Me.SteuerpflichtigerBetrag.HeaderText = "Steuerpfl." + Me.SteuerpflichtigerBetrag.MinimumWidth = 8 + Me.SteuerpflichtigerBetrag.Name = "SteuerpflichtigerBetrag" + Me.SteuerpflichtigerBetrag.ReadOnly = True + Me.SteuerpflichtigerBetrag.Width = 120 + ' + 'SteuerfreierBetrag + ' + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle10.Format = "C2" + DataGridViewCellStyle10.NullValue = Nothing + Me.SteuerfreierBetrag.DefaultCellStyle = DataGridViewCellStyle10 + Me.SteuerfreierBetrag.HeaderText = "Steuerfrei" + Me.SteuerfreierBetrag.MinimumWidth = 8 + Me.SteuerfreierBetrag.Name = "SteuerfreierBetrag" + Me.SteuerfreierBetrag.ReadOnly = True + Me.SteuerfreierBetrag.Width = 120 + ' + 'Aufschubkonto + ' + Me.Aufschubkonto.HeaderText = "Aufschubkonto" + Me.Aufschubkonto.MinimumWidth = 8 + Me.Aufschubkonto.Name = "Aufschubkonto" + Me.Aufschubkonto.ReadOnly = True + Me.Aufschubkonto.Width = 120 + ' + 'dgvOfferteDetailsUebersicht + ' + Me.dgvOfferteDetailsUebersicht.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvOfferteDetailsUebersicht.AllowUserToAddRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False + Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True + Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False + DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17 + Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White + Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D + DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferteDetailsUebersicht.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle18 + Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19 + Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) + Me.dgvOfferteDetailsUebersicht.MultiSelect = False + Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" + DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferteDetailsUebersicht.RowHeadersDefaultCellStyle = DataGridViewCellStyle20 + Me.dgvOfferteDetailsUebersicht.RowHeadersVisible = False + Me.dgvOfferteDetailsUebersicht.RowHeadersWidth = 62 + DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer)) + DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black + Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21 + Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) + Me.dgvOfferteDetailsUebersicht.TabIndex = 3 + ' + 'txtRohmasse + ' + Me.txtRohmasse._DateTimeOnly = False + Me.txtRohmasse._numbersOnly = False + Me.txtRohmasse._numbersOnlyKommastellen = "" + Me.txtRohmasse._numbersOnlyTrennzeichen = True + Me.txtRohmasse._Prozent = False + Me.txtRohmasse._ShortDateNew = False + Me.txtRohmasse._ShortDateOnly = False + Me.txtRohmasse._TimeOnly = False + Me.txtRohmasse._TimeOnly_Seconds = False + Me.txtRohmasse._value = Nothing + Me.txtRohmasse._Waehrung = False + Me.txtRohmasse._WaehrungZeichen = True + Me.txtRohmasse.ForeColor = System.Drawing.Color.Black + Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) + Me.txtRohmasse.MaxLength = 35 + Me.txtRohmasse.MaxLineLength = -1 + Me.txtRohmasse.MaxLines_Warning = "" + Me.txtRohmasse.MaxLines_Warning_Label = Nothing + Me.txtRohmasse.Name = "txtRohmasse" + Me.txtRohmasse.Size = New System.Drawing.Size(305, 20) + Me.txtRohmasse.TabIndex = 24 + Me.txtRohmasse.Visible = False + ' + 'cboWaehrung + ' + Me.cboWaehrung._allowedValuesFreiText = Nothing + Me.cboWaehrung._allowFreiText = False + Me.cboWaehrung._value = "" + Me.cboWaehrung.FormattingEnabled = True + Me.cboWaehrung.Location = New System.Drawing.Point(517, 177) + Me.cboWaehrung.Name = "cboWaehrung" + Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) + Me.cboWaehrung.TabIndex = 14 + ' + 'cboWaehrungUmrechnung + ' + Me.cboWaehrungUmrechnung._allowedValuesFreiText = Nothing + Me.cboWaehrungUmrechnung._allowFreiText = False + Me.cboWaehrungUmrechnung._value = "" + Me.cboWaehrungUmrechnung.Enabled = False + Me.cboWaehrungUmrechnung.FormattingEnabled = True + Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(517, 196) + Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" + Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) + Me.cboWaehrungUmrechnung.TabIndex = 17 + ' + 'txtkdNrEmpfaenger + ' + Me.txtkdNrEmpfaenger._DateTimeOnly = False + Me.txtkdNrEmpfaenger._numbersOnly = False + Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" + Me.txtkdNrEmpfaenger._numbersOnlyTrennzeichen = True + Me.txtkdNrEmpfaenger._Prozent = False + Me.txtkdNrEmpfaenger._ShortDateNew = False + Me.txtkdNrEmpfaenger._ShortDateOnly = False + Me.txtkdNrEmpfaenger._TimeOnly = False + Me.txtkdNrEmpfaenger._TimeOnly_Seconds = False + Me.txtkdNrEmpfaenger._value = Nothing + Me.txtkdNrEmpfaenger._Waehrung = False + Me.txtkdNrEmpfaenger._WaehrungZeichen = True + Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtkdNrEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black + Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 26) + Me.txtkdNrEmpfaenger.MaxLength = 35 + Me.txtkdNrEmpfaenger.MaxLineLength = -1 + Me.txtkdNrEmpfaenger.MaxLines_Warning = "" + Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing + Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" + Me.txtkdNrEmpfaenger.ReadOnly = True + Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 13) + Me.txtkdNrEmpfaenger.TabIndex = 1 + Me.txtkdNrEmpfaenger.TabStop = False + ' + 'txtEmpfeangerName2 + ' + Me.txtEmpfeangerName2._DateTimeOnly = False + Me.txtEmpfeangerName2._numbersOnly = False + Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" + Me.txtEmpfeangerName2._numbersOnlyTrennzeichen = True + Me.txtEmpfeangerName2._Prozent = False + Me.txtEmpfeangerName2._ShortDateNew = False + Me.txtEmpfeangerName2._ShortDateOnly = False + Me.txtEmpfeangerName2._TimeOnly = False + Me.txtEmpfeangerName2._TimeOnly_Seconds = False + Me.txtEmpfeangerName2._value = Nothing + Me.txtEmpfeangerName2._Waehrung = False + Me.txtEmpfeangerName2._WaehrungZeichen = True + Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfeangerName2.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black + Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 26) + Me.txtEmpfeangerName2.MaxLength = 35 + Me.txtEmpfeangerName2.MaxLineLength = -1 + Me.txtEmpfeangerName2.MaxLines_Warning = "" + Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing + Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" + Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfeangerName2.TabIndex = 4 + Me.txtEmpfeangerName2.TabStop = False + ' + 'txtEmpfaengerOrt + ' + Me.txtEmpfaengerOrt._DateTimeOnly = False + Me.txtEmpfaengerOrt._numbersOnly = False + Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" + Me.txtEmpfaengerOrt._numbersOnlyTrennzeichen = True + Me.txtEmpfaengerOrt._Prozent = False + Me.txtEmpfaengerOrt._ShortDateNew = False + Me.txtEmpfaengerOrt._ShortDateOnly = False + Me.txtEmpfaengerOrt._TimeOnly = False + Me.txtEmpfaengerOrt._TimeOnly_Seconds = False + Me.txtEmpfaengerOrt._value = Nothing + Me.txtEmpfaengerOrt._Waehrung = False + Me.txtEmpfaengerOrt._WaehrungZeichen = True + Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfaengerOrt.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black + Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 54) + Me.txtEmpfaengerOrt.MaxLength = 35 + Me.txtEmpfaengerOrt.MaxLineLength = -1 + Me.txtEmpfaengerOrt.MaxLines_Warning = "" + Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" + Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfaengerOrt.TabIndex = 7 + Me.txtEmpfaengerOrt.TabStop = False + ' + 'txtEmpfaengerStrasse + ' + Me.txtEmpfaengerStrasse._DateTimeOnly = False + Me.txtEmpfaengerStrasse._numbersOnly = False + Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" + Me.txtEmpfaengerStrasse._numbersOnlyTrennzeichen = True + Me.txtEmpfaengerStrasse._Prozent = False + Me.txtEmpfaengerStrasse._ShortDateNew = False + Me.txtEmpfaengerStrasse._ShortDateOnly = False + Me.txtEmpfaengerStrasse._TimeOnly = False + Me.txtEmpfaengerStrasse._TimeOnly_Seconds = False + Me.txtEmpfaengerStrasse._value = Nothing + Me.txtEmpfaengerStrasse._Waehrung = False + Me.txtEmpfaengerStrasse._WaehrungZeichen = True + Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.WhiteSmoke + Me.txtEmpfaengerStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black + Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 40) + Me.txtEmpfaengerStrasse.MaxLength = 35 + Me.txtEmpfaengerStrasse.MaxLineLength = -1 + Me.txtEmpfaengerStrasse.MaxLines_Warning = "" + Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing + Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" + Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 13) + Me.txtEmpfaengerStrasse.TabIndex = 6 + Me.txtEmpfaengerStrasse.TabStop = False + ' + 'kdFirmaEmpfaenger + ' + Me.kdFirmaEmpfaenger._AlleFirmenCLUSTER = False + Me.kdFirmaEmpfaenger._AllowSetValue = True + Me.kdFirmaEmpfaenger._autoSizeGross = False + Me.kdFirmaEmpfaenger._display_Name1 = True + Me.kdFirmaEmpfaenger._displayAVISO_Email = False + Me.kdFirmaEmpfaenger._displayFullName = False + Me.kdFirmaEmpfaenger._displayWoelflKd = False + Me.kdFirmaEmpfaenger._hideIfListEmpty = True + Me.kdFirmaEmpfaenger._loadKdData = True + Me.kdFirmaEmpfaenger._searchName1 = True + Me.kdFirmaEmpfaenger._UseFIRMA = "" + Me.kdFirmaEmpfaenger._ValueKdAndName = False + Me.kdFirmaEmpfaenger.BackColor = System.Drawing.Color.White + Me.kdFirmaEmpfaenger.dgvpos = "LEFT" + Me.kdFirmaEmpfaenger.KdName = Nothing + Me.kdFirmaEmpfaenger.KdNr = "-1" + Me.kdFirmaEmpfaenger.kdNrField = Nothing + Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing + Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 3) + Me.kdFirmaEmpfaenger.MaxLength = 35 + Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" + Me.kdFirmaEmpfaenger.nurAktive = True + Me.kdFirmaEmpfaenger.searchActive = True + Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) + Me.kdFirmaEmpfaenger.TabIndex = 3 + Me.kdFirmaEmpfaenger.TabStop = False + Me.kdFirmaEmpfaenger.TIMER_SEARCH = True + Me.kdFirmaEmpfaenger.usrcntl = Nothing + ' + 'FlatButton2 + ' + Me.FlatButton2.allowBorder = False + Me.FlatButton2.FlatAppearance.BorderSize = 0 + Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.FlatButton2.ForeColor = System.Drawing.Color.Black + Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv + Me.FlatButton2.Location = New System.Drawing.Point(382, 0) + Me.FlatButton2.Name = "FlatButton2" + Me.FlatButton2.Size = New System.Drawing.Size(24, 25) + Me.FlatButton2.TabIndex = 2 + Me.FlatButton2.TabStop = False + Me.FlatButton2.UseVisualStyleBackColor = True + ' + 'cboSteuerschlüssel + ' + Me.cboSteuerschlüssel._allowedValuesFreiText = Nothing + Me.cboSteuerschlüssel._allowFreiText = False + Me.cboSteuerschlüssel._value = "" + Me.cboSteuerschlüssel.CausesValidation = False + Me.cboSteuerschlüssel.DropDownWidth = 350 + Me.cboSteuerschlüssel.FormattingEnabled = True + Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30) + Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" + Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) + Me.cboSteuerschlüssel.TabIndex = 3 + ' + 'txtSteuersatz + ' + Me.txtSteuersatz._DateTimeOnly = False + Me.txtSteuersatz._numbersOnly = False + Me.txtSteuersatz._numbersOnlyKommastellen = "" + Me.txtSteuersatz._numbersOnlyTrennzeichen = True + Me.txtSteuersatz._Prozent = True + Me.txtSteuersatz._ShortDateNew = False + Me.txtSteuersatz._ShortDateOnly = False + Me.txtSteuersatz._TimeOnly = False + Me.txtSteuersatz._TimeOnly_Seconds = False + Me.txtSteuersatz._value = Nothing + Me.txtSteuersatz._Waehrung = False + Me.txtSteuersatz._WaehrungZeichen = True + Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black + Me.txtSteuersatz.Location = New System.Drawing.Point(603, 30) + Me.txtSteuersatz.MaxLineLength = -1 + Me.txtSteuersatz.MaxLines_Warning = "" + Me.txtSteuersatz.MaxLines_Warning_Label = Nothing + Me.txtSteuersatz.Multiline = True + Me.txtSteuersatz.Name = "txtSteuersatz" + Me.txtSteuersatz.ReadOnly = True + Me.txtSteuersatz.Size = New System.Drawing.Size(61, 21) + Me.txtSteuersatz.TabIndex = 4 + Me.txtSteuersatz.Text = "0,00 %" + Me.txtSteuersatz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerFreierBetrag + ' + Me.txtSteuerFreierBetrag._DateTimeOnly = False + Me.txtSteuerFreierBetrag._numbersOnly = False + Me.txtSteuerFreierBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerFreierBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerFreierBetrag._Prozent = False + Me.txtSteuerFreierBetrag._ShortDateNew = False + Me.txtSteuerFreierBetrag._ShortDateOnly = False + Me.txtSteuerFreierBetrag._TimeOnly = False + Me.txtSteuerFreierBetrag._TimeOnly_Seconds = False + Me.txtSteuerFreierBetrag._value = "" + Me.txtSteuerFreierBetrag._Waehrung = True + Me.txtSteuerFreierBetrag._WaehrungZeichen = False + Me.txtSteuerFreierBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(540, 91) + Me.txtSteuerFreierBetrag.MaxLength = 35 + Me.txtSteuerFreierBetrag.MaxLineLength = -1 + Me.txtSteuerFreierBetrag.MaxLines_Warning = "" + Me.txtSteuerFreierBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerFreierBetrag.Name = "txtSteuerFreierBetrag" + Me.txtSteuerFreierBetrag.ReadOnly = True + Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerFreierBetrag.TabIndex = 10 + Me.txtSteuerFreierBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtGesamtsumme + ' + Me.txtGesamtsumme._DateTimeOnly = False + Me.txtGesamtsumme._numbersOnly = False + Me.txtGesamtsumme._numbersOnlyKommastellen = "" + Me.txtGesamtsumme._numbersOnlyTrennzeichen = True + Me.txtGesamtsumme._Prozent = False + Me.txtGesamtsumme._ShortDateNew = False + Me.txtGesamtsumme._ShortDateOnly = False + Me.txtGesamtsumme._TimeOnly = False + Me.txtGesamtsumme._TimeOnly_Seconds = False + Me.txtGesamtsumme._value = "" + Me.txtGesamtsumme._Waehrung = True + Me.txtGesamtsumme._WaehrungZeichen = False + Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black + Me.txtGesamtsumme.Location = New System.Drawing.Point(540, 114) + Me.txtGesamtsumme.MaxLength = 35 + Me.txtGesamtsumme.MaxLineLength = -1 + Me.txtGesamtsumme.MaxLines_Warning = "" + Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing + Me.txtGesamtsumme.Name = "txtGesamtsumme" + Me.txtGesamtsumme.ReadOnly = True + Me.txtGesamtsumme.Size = New System.Drawing.Size(98, 20) + Me.txtGesamtsumme.TabIndex = 12 + Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerBetrag + ' + Me.txtSteuerBetrag._DateTimeOnly = False + Me.txtSteuerBetrag._numbersOnly = False + Me.txtSteuerBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerBetrag._Prozent = False + Me.txtSteuerBetrag._ShortDateNew = False + Me.txtSteuerBetrag._ShortDateOnly = False + Me.txtSteuerBetrag._TimeOnly = False + Me.txtSteuerBetrag._TimeOnly_Seconds = False + Me.txtSteuerBetrag._value = "" + Me.txtSteuerBetrag._Waehrung = True + Me.txtSteuerBetrag._WaehrungZeichen = False + Me.txtSteuerBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerBetrag.Location = New System.Drawing.Point(540, 74) + Me.txtSteuerBetrag.MaxLength = 35 + Me.txtSteuerBetrag.MaxLineLength = -1 + Me.txtSteuerBetrag.MaxLines_Warning = "" + Me.txtSteuerBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerBetrag.Name = "txtSteuerBetrag" + Me.txtSteuerBetrag.ReadOnly = True + Me.txtSteuerBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerBetrag.TabIndex = 8 + Me.txtSteuerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtSteuerpflichtigerBetrag + ' + Me.txtSteuerpflichtigerBetrag._DateTimeOnly = False + Me.txtSteuerpflichtigerBetrag._numbersOnly = False + Me.txtSteuerpflichtigerBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerpflichtigerBetrag._numbersOnlyTrennzeichen = True + Me.txtSteuerpflichtigerBetrag._Prozent = False + Me.txtSteuerpflichtigerBetrag._ShortDateNew = False + Me.txtSteuerpflichtigerBetrag._ShortDateOnly = False + Me.txtSteuerpflichtigerBetrag._TimeOnly = False + Me.txtSteuerpflichtigerBetrag._TimeOnly_Seconds = False + Me.txtSteuerpflichtigerBetrag._value = "" + Me.txtSteuerpflichtigerBetrag._Waehrung = True + Me.txtSteuerpflichtigerBetrag._WaehrungZeichen = False + Me.txtSteuerpflichtigerBetrag.ForeColor = System.Drawing.Color.Black + Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(540, 56) + Me.txtSteuerpflichtigerBetrag.MaxLength = 35 + Me.txtSteuerpflichtigerBetrag.MaxLineLength = -1 + Me.txtSteuerpflichtigerBetrag.MaxLines_Warning = "" + Me.txtSteuerpflichtigerBetrag.MaxLines_Warning_Label = Nothing + Me.txtSteuerpflichtigerBetrag.Name = "txtSteuerpflichtigerBetrag" + Me.txtSteuerpflichtigerBetrag.ReadOnly = True + Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(98, 20) + Me.txtSteuerpflichtigerBetrag.TabIndex = 6 + Me.txtSteuerpflichtigerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtBesonderheiten + ' + Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17) + Me.txtBesonderheiten.MaxLineLength = -1 + Me.txtBesonderheiten.MaxLines_Warning = "" + Me.txtBesonderheiten.MaxLines_Warning_Label = Nothing + Me.txtBesonderheiten.Name = "txtBesonderheiten" + Me.txtBesonderheiten.Size = New System.Drawing.Size(405, 131) + Me.txtBesonderheiten.TabIndex = 1 + Me.txtBesonderheiten.Text = "" + ' + 'cboRgGS + ' + Me.cboRgGS._allowedValuesFreiText = Nothing + Me.cboRgGS._allowFreiText = False + Me.cboRgGS._value = "" + Me.cboRgGS.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.cboRgGS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboRgGS.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold) + Me.cboRgGS.ForeColor = System.Drawing.Color.White + Me.cboRgGS.FormattingEnabled = True + Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) + Me.cboRgGS.Location = New System.Drawing.Point(3, -1) + Me.cboRgGS.Name = "cboRgGS" + Me.cboRgGS.Size = New System.Drawing.Size(211, 33) + Me.cboRgGS.TabIndex = 26 + Me.cboRgGS.Text = "Rechnung" + ' + 'cboSpedBuchUnterNr + ' + Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing + Me.cboSpedBuchUnterNr._allowFreiText = False + Me.cboSpedBuchUnterNr._value = "" + Me.cboSpedBuchUnterNr.DropDownWidth = 350 + Me.cboSpedBuchUnterNr.FormattingEnabled = True + Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) + Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) + Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" + Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) + Me.cboSpedBuchUnterNr.TabIndex = 5 + ' + 'txtUnterNr + ' + Me.txtUnterNr._DateTimeOnly = False + Me.txtUnterNr._numbersOnly = False + Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._numbersOnlyTrennzeichen = True + Me.txtUnterNr._Prozent = False + Me.txtUnterNr._ShortDateNew = False + Me.txtUnterNr._ShortDateOnly = False + Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._TimeOnly_Seconds = False + Me.txtUnterNr._value = Nothing + Me.txtUnterNr._Waehrung = False + Me.txtUnterNr._WaehrungZeichen = True + Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) + Me.txtUnterNr.MaxLineLength = -1 + Me.txtUnterNr.MaxLines_Warning = "" + Me.txtUnterNr.MaxLines_Warning_Label = Nothing + Me.txtUnterNr.Name = "txtUnterNr" + Me.txtUnterNr.ReadOnly = True + Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) + Me.txtUnterNr.TabIndex = 7 + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 280 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(8, 48) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(80, 21) + Me.cboFiliale.TabIndex = 3 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = True + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._TimeOnly_Seconds = False + Me.txtAbfertigungsnummer._value = "" + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) + Me.txtAbfertigungsnummer.MaxLength = 8 + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) + Me.txtAbfertigungsnummer.TabIndex = 4 + ' + 'rtbAbf_Besonderheiten + ' + Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White + Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19) + Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" + Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133) + Me.rtbAbf_Besonderheiten.TabIndex = 235 + Me.rtbAbf_Besonderheiten.Visible = False + ' 'usrCntlFaktAbrechnung ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -4073,7 +4074,6 @@ Partial Class usrCntlFaktAbrechnung Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() Me.ContextMenuStrip3.ResumeLayout(False) - CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) Me.Panel2.PerformLayout() Me.pnlAvisierer.ResumeLayout(False) @@ -4090,9 +4090,7 @@ Partial Class usrCntlFaktAbrechnung Me.Panel7.ResumeLayout(False) Me.Panel7.PerformLayout() CType(Me.picVK, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvOffertenSperrliste, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlEmpfaenger.ResumeLayout(False) Me.pnlEmpfaenger.PerformLayout() Me.pnl.ResumeLayout(False) @@ -4104,6 +4102,9 @@ Partial Class usrCntlFaktAbrechnung Me.CntxtAbfArt.ResumeLayout(False) Me.ContextMenuStrip1.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False) + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvRechnungenPositionen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvOfferteDetailsUebersicht, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index f2d0a19d..6d7422b7 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index e9c25687..de7cd9d9 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -570,16 +570,16 @@ Public Class frmBU_Mahnlauf rpt.txtLeistung.Text = cFakturierung.checkNull(rpt.Fields.Item("OP_Typ").Value) rpt.Label15.Text = cFakturierung.checkNull(rpt.Fields.Item("Rechnungsdatum").Value) - If Not Firma_ID = 19 Then - If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then - rpt.Label16.Text = "" - rpt.Label15.ForeColor = Color.Black - Else - rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) - rpt.Label15.ForeColor = Color.DarkRed - End If - Else - rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) + 'If Not Firma_ID = 19 Then 'Fälligkeit immer andrucken!!! + ' If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then + ' rpt.Label16.Text = "" + ' rpt.Label15.ForeColor = Color.Black + ' Else + ' rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) + ' rpt.Label15.ForeColor = Color.DarkRed + ' End If + 'Else + rpt.Label16.Text = cFakturierung.checkNull(rpt.Fields.Item("Faelligkeit").Value) If (CDate(rpt.Fields.Item("Faelligkeit").Value) > CDate(Now.ToShortDateString) And cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) > 0) Or cFakturierung.checkNull(rpt.Fields.Item("Ausstand").Value, 0) <= 0 Then rpt.Label15.ForeColor = Color.Black rpt.Label16.ForeColor = Color.Black @@ -587,7 +587,7 @@ Public Class frmBU_Mahnlauf rpt.Label15.ForeColor = Color.DarkRed rpt.Label16.ForeColor = Color.DarkRed End If - End If + 'End If diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 46bbd8aa..741dd140 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -1059,6 +1059,7 @@ Public Class usrCntlBH RG.[Währungscode] = "EUR" RG.ReErfZeitstempel = Now + RG.Vermerk = SPEDBUCH.Vermerk RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 1f910f8e..bd4a1420 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -53,6 +53,7 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.FlatButton6 = New VERAG_PROG_ALLGEMEIN.FlatButton() @@ -149,8 +150,10 @@ Partial Class frmKundenblatt Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -182,6 +185,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbFremdrechnungen = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() @@ -192,6 +196,7 @@ Partial Class frmKundenblatt Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.tbFIBU = New System.Windows.Forms.TabPage() Me.btn_FIBU_speichern = New System.Windows.Forms.Button() Me.lblZNB_verrechnet = New System.Windows.Forms.Label() @@ -241,11 +246,6 @@ Partial Class frmKundenblatt Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -347,6 +347,16 @@ Partial Class frmKundenblatt Me.Panel4.Size = New System.Drawing.Size(1638, 922) Me.Panel4.TabIndex = 0 ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -1758,11 +1768,21 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 896) + Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) + Me.usrcntlKarten.TabIndex = 0 + ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1770,7 +1790,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(1630, 896) + Me.tbLKW.Size = New System.Drawing.Size(178, 39) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1782,9 +1802,22 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 890) + Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) Me.pnlLKWRight.TabIndex = 2 ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) + Me.UsrCntlLKW1.TabIndex = 0 + ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1793,7 +1826,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 890) + Me.pnlLKW.Size = New System.Drawing.Size(306, 33) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1834,7 +1867,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle25 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 716) + Me.dgvLKW.Size = New System.Drawing.Size(306, 0) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1846,7 +1879,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 778) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1987,7 +2020,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 896) + Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1999,7 +2032,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1624, 890) + Me.Panel3.Size = New System.Drawing.Size(172, 33) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -2017,7 +2050,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1630, 896) + Me.tbDokumente.Size = New System.Drawing.Size(178, 39) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -2217,7 +2250,7 @@ Partial Class frmKundenblatt Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 896) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -2226,7 +2259,7 @@ Partial Class frmKundenblatt ' Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 896) + Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) Me.tbFremdrechnungen.TabIndex = 10 Me.tbFremdrechnungen.Text = "Fremdrechnungen" Me.tbFremdrechnungen.UseVisualStyleBackColor = True @@ -2242,6 +2275,16 @@ Partial Class frmKundenblatt Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928) + Me.UsrCntlOfferte1.TabIndex = 0 + ' 'tbUSTV ' Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) @@ -2375,11 +2418,19 @@ Partial Class frmKundenblatt Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) Me.tbUSTVAntrage.Name = "tbUSTVAntrage" Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 902) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) Me.tbUSTVAntrage.TabIndex = 9 Me.tbUSTVAntrage.Text = "USTV-Anträge" Me.tbUSTVAntrage.UseVisualStyleBackColor = True ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) + Me.UsrCntlUSTV.TabIndex = 0 + ' 'tbFIBU ' Me.tbFIBU.Controls.Add(Me.btn_FIBU_speichern) @@ -2397,7 +2448,7 @@ Partial Class frmKundenblatt Me.tbFIBU.Controls.Add(Me.txtFIBUKuerzel) Me.tbFIBU.Location = New System.Drawing.Point(4, 25) Me.tbFIBU.Name = "tbFIBU" - Me.tbFIBU.Size = New System.Drawing.Size(1644, 945) + Me.tbFIBU.Size = New System.Drawing.Size(1644, 928) Me.tbFIBU.TabIndex = 13 Me.tbFIBU.Text = "FIBU" Me.tbFIBU.UseVisualStyleBackColor = True @@ -2787,6 +2838,7 @@ Partial Class frmKundenblatt ' Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Text = "cntxtMDM" ' @@ -2948,57 +3000,6 @@ Partial Class frmKundenblatt Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) Me.tbiVERAGCard.Text = "VERAG Card" ' - 'UsrcntlKundeBearbeitenFull1 - ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 922) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' - 'usrcntlKarten - ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 890) - Me.usrcntlKarten.TabIndex = 0 - ' - 'UsrCntlLKW1 - ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 890) - Me.UsrCntlLKW1.TabIndex = 0 - ' - 'UsrCntlOfferte1 - ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 928) - Me.UsrCntlOfferte1.TabIndex = 0 - ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 896) - Me.UsrCntlUSTV.TabIndex = 0 - ' 'frmKundenblatt ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index 2160240f..920c922f 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -1,14 +1,8 @@ Imports System.Data.SqlClient -Imports System.ComponentModel -Imports System.Reflection -Imports javax.xml.bind.annotation -Imports VERAG_PROG_ALLGEMEIN Imports System.Globalization -Imports System.Data.OleDb -Imports System.IO Imports System.Web.UI.WebControls.Expressions -Imports System.DirectoryServices.ActiveDirectory Imports Microsoft.Office.Interop +Imports VERAG_PROG_ALLGEMEIN Public Class frmKundenblatt @@ -2371,7 +2365,7 @@ Public Class frmKundenblatt initBtns("Monat") End Sub - Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentClick + Private Sub dgvRg_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvRg.DoubleClick, dgvRg.CellContentDoubleClick If dgvRg.SelectedRows.Count = 0 Then Exit Sub @@ -2386,7 +2380,7 @@ Public Class frmKundenblatt With dgvZinsnachberechnung Dim sqlStr = "" - sqlStr &= " SELECT TOP 1000 [belegNr] ,[belegDatum],[buchungstext],[zinsbetrag],[zinssatz],[ueberschreitungInTagen],[belegZahlungsziel],[timestamp], cast(case when [verrechnet] is null then 0 else 1 end as bit) as verrechnet" + sqlStr &= " SELECT TOP 1000 [belegNr] ,[belegDatum],[buchungstext],[zinsbetrag],[zinssatz],[ueberschreitungInTagen],[belegZahlungsziel],[timestamp], cast(case when [verrechnet] is null then 0 else 1 end as bit) as verrechnet, rk_id" sqlStr &= " FROM [tblMDM_Zinsberechnung] WHERE kundenNr=" & kdNr .SET_SQL(sqlStr & " ORDER BY belegdatum desc", "FMZOLL") @@ -2447,6 +2441,8 @@ Public Class frmKundenblatt .Columns("timestamp").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter .Columns("timestamp").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + .Columns("RK_ID").Visible = False + Dim sumOffeneZB As Double = 0 Dim sumVerrZB As Double = 0 @@ -2628,5 +2624,19 @@ Public Class frmKundenblatt KUNDE.SAVE() End If End Sub + + Private Sub dgvZinsnachberechnung_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvZinsnachberechnung.CellDoubleClick + + If dgvZinsnachberechnung.SelectedRows.Count = 0 Then Exit Sub + + If Not IsDBNull(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) AndAlso IsNumeric(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) Then + + Dim f As New SDL.frmAbrechnungsMaskeEinzeln(dgvZinsnachberechnung.SelectedRows(0).Cells("RK_ID").Value) + f.Show(Me) + + + End If + + End Sub End Class diff --git a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb index 7615156e..e30e1d38 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb @@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - 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() Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() Me.btnSDL_Alle = New System.Windows.Forms.Button() @@ -39,6 +39,8 @@ Partial Class usrcntlFremdrechnungen Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblSumBto = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox() Me.cbxPDFhinterlegt = New System.Windows.Forms.CheckBox() Me.cbx = New System.Windows.Forms.CheckBox() @@ -62,8 +64,11 @@ Partial Class usrcntlFremdrechnungen Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() - Me.Label5 = New System.Windows.Forms.Label() - Me.lblSumBto = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.txtKundenNrvon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKundenNrbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() Me.FlowLayoutPanel.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -277,6 +282,10 @@ Partial Class usrcntlFremdrechnungen Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.Label7) + Me.Panel1.Controls.Add(Me.txtKundenNrbis) + Me.Panel1.Controls.Add(Me.txtKundenNrvon) + Me.Panel1.Controls.Add(Me.Label6) Me.Panel1.Controls.Add(Me.lblSumBto) Me.Panel1.Controls.Add(Me.Label5) Me.Panel1.Controls.Add(Me.cbxMailoeffnen) @@ -300,12 +309,31 @@ Partial Class usrcntlFremdrechnungen Me.Panel1.Size = New System.Drawing.Size(260, 907) Me.Panel1.TabIndex = 23 ' + 'lblSumBto + ' + Me.lblSumBto.AutoSize = True + Me.lblSumBto.BackColor = System.Drawing.Color.White + Me.lblSumBto.Location = New System.Drawing.Point(190, 20) + Me.lblSumBto.Name = "lblSumBto" + Me.lblSumBto.Size = New System.Drawing.Size(13, 13) + Me.lblSumBto.TabIndex = 56 + Me.lblSumBto.Text = "0" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(4, 20) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(76, 13) + Me.Label5.TabIndex = 55 + Me.Label5.Text = "Summe Brutto:" + ' 'cbxMailoeffnen ' Me.cbxMailoeffnen.AutoSize = True Me.cbxMailoeffnen.Checked = True Me.cbxMailoeffnen.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxMailoeffnen.Location = New System.Drawing.Point(146, 183) + Me.cbxMailoeffnen.Location = New System.Drawing.Point(146, 237) Me.cbxMailoeffnen.Name = "cbxMailoeffnen" Me.cbxMailoeffnen.Size = New System.Drawing.Size(91, 17) Me.cbxMailoeffnen.TabIndex = 54 @@ -317,7 +345,7 @@ Partial Class usrcntlFremdrechnungen Me.cbxPDFhinterlegt.AutoSize = True Me.cbxPDFhinterlegt.Checked = True Me.cbxPDFhinterlegt.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxPDFhinterlegt.Location = New System.Drawing.Point(8, 125) + Me.cbxPDFhinterlegt.Location = New System.Drawing.Point(8, 179) Me.cbxPDFhinterlegt.Name = "cbxPDFhinterlegt" Me.cbxPDFhinterlegt.Size = New System.Drawing.Size(101, 17) Me.cbxPDFhinterlegt.TabIndex = 53 @@ -328,7 +356,7 @@ Partial Class usrcntlFremdrechnungen 'cbx ' Me.cbx.AutoSize = True - Me.cbx.Location = New System.Drawing.Point(8, 107) + Me.cbx.Location = New System.Drawing.Point(8, 161) Me.cbx.Name = "cbx" Me.cbx.Size = New System.Drawing.Size(169, 17) Me.cbx.TabIndex = 52 @@ -338,7 +366,7 @@ Partial Class usrcntlFremdrechnungen 'Label4 ' Me.Label4.AutoSize = True - Me.Label4.Location = New System.Drawing.Point(5, 35) + Me.Label4.Location = New System.Drawing.Point(2, 35) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(91, 13) Me.Label4.TabIndex = 51 @@ -384,7 +412,7 @@ Partial Class usrcntlFremdrechnungen Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(5, 268) + Me.Button1.Location = New System.Drawing.Point(5, 322) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(50, 44) Me.Button1.TabIndex = 45 @@ -396,7 +424,7 @@ Partial Class usrcntlFremdrechnungen Me.cbxMax1000Eintrage.AutoSize = True Me.cbxMax1000Eintrage.Checked = True Me.cbxMax1000Eintrage.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 145) + Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 199) Me.cbxMax1000Eintrage.Name = "cbxMax1000Eintrage" Me.cbxMax1000Eintrage.Size = New System.Drawing.Size(117, 17) Me.cbxMax1000Eintrage.TabIndex = 41 @@ -418,7 +446,7 @@ Partial Class usrcntlFremdrechnungen Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.Image = Global.SDL.My.Resources.Resources.checklist Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(8, 218) + Me.Button4.Location = New System.Drawing.Point(8, 272) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(118, 44) Me.Button4.TabIndex = 21 @@ -431,7 +459,7 @@ Partial Class usrcntlFremdrechnungen Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button5.Image = Global.SDL.My.Resources.Resources.email_big1 Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button5.Location = New System.Drawing.Point(8, 168) + Me.Button5.Location = New System.Drawing.Point(8, 222) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(118, 44) Me.Button5.TabIndex = 22 @@ -453,7 +481,7 @@ Partial Class usrcntlFremdrechnungen Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(132, 218) + Me.Button8.Location = New System.Drawing.Point(132, 272) Me.Button8.Name = "Button8" Me.Button8.Size = New System.Drawing.Size(118, 44) Me.Button8.TabIndex = 31 @@ -501,8 +529,8 @@ Partial Class usrcntlFremdrechnungen Me.dgvLFRechnung.AllowUserToDeleteRows = False Me.dgvLFRechnung.AllowUserToResizeColumns = False Me.dgvLFRechnung.AllowUserToResizeRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3) @@ -518,8 +546,8 @@ Partial Class usrcntlFremdrechnungen Me.dgvDetails.AllowUserToDeleteRows = False Me.dgvDetails.AllowUserToResizeColumns = False Me.dgvDetails.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 Me.dgvDetails.BackgroundColor = System.Drawing.Color.White Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvDetails.Location = New System.Drawing.Point(-1, 3) @@ -557,24 +585,74 @@ Partial Class usrcntlFremdrechnungen Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" ' - 'Label5 + 'Label6 ' - Me.Label5.AutoSize = True - Me.Label5.Location = New System.Drawing.Point(4, 20) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(76, 13) - Me.Label5.TabIndex = 55 - Me.Label5.Text = "Summe Brutto:" + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(8, 107) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(58, 13) + Me.Label6.TabIndex = 57 + Me.Label6.Text = "KundenNr." ' - 'lblSumBto + 'ContextMenuStrip2 ' - Me.lblSumBto.AutoSize = True - Me.lblSumBto.BackColor = System.Drawing.Color.White - Me.lblSumBto.Location = New System.Drawing.Point(190, 20) - Me.lblSumBto.Name = "lblSumBto" - Me.lblSumBto.Size = New System.Drawing.Size(13, 13) - Me.lblSumBto.TabIndex = 56 - Me.lblSumBto.Text = "0" + Me.ContextMenuStrip2.Name = "ContextMenuStrip2" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) + ' + 'txtKundenNrvon + ' + Me.txtKundenNrvon._DateTimeOnly = False + Me.txtKundenNrvon._numbersOnly = True + Me.txtKundenNrvon._numbersOnlyKommastellen = "" + Me.txtKundenNrvon._numbersOnlyTrennzeichen = False + Me.txtKundenNrvon._Prozent = False + Me.txtKundenNrvon._ShortDateNew = False + Me.txtKundenNrvon._ShortDateOnly = False + Me.txtKundenNrvon._TimeOnly = False + Me.txtKundenNrvon._TimeOnly_Seconds = False + Me.txtKundenNrvon._value = "" + Me.txtKundenNrvon._Waehrung = False + Me.txtKundenNrvon._WaehrungZeichen = False + Me.txtKundenNrvon.ForeColor = System.Drawing.Color.Black + Me.txtKundenNrvon.Location = New System.Drawing.Point(11, 123) + Me.txtKundenNrvon.MaxLineLength = -1 + Me.txtKundenNrvon.MaxLines_Warning = "" + Me.txtKundenNrvon.MaxLines_Warning_Label = Nothing + Me.txtKundenNrvon.Name = "txtKundenNrvon" + Me.txtKundenNrvon.Size = New System.Drawing.Size(98, 20) + Me.txtKundenNrvon.TabIndex = 58 + ' + 'txtKundenNrbis + ' + Me.txtKundenNrbis._DateTimeOnly = False + Me.txtKundenNrbis._numbersOnly = True + Me.txtKundenNrbis._numbersOnlyKommastellen = "" + Me.txtKundenNrbis._numbersOnlyTrennzeichen = False + Me.txtKundenNrbis._Prozent = False + Me.txtKundenNrbis._ShortDateNew = False + Me.txtKundenNrbis._ShortDateOnly = False + Me.txtKundenNrbis._TimeOnly = False + Me.txtKundenNrbis._TimeOnly_Seconds = False + Me.txtKundenNrbis._value = "" + Me.txtKundenNrbis._Waehrung = False + Me.txtKundenNrbis._WaehrungZeichen = False + Me.txtKundenNrbis.ForeColor = System.Drawing.Color.Black + Me.txtKundenNrbis.Location = New System.Drawing.Point(146, 123) + Me.txtKundenNrbis.MaxLineLength = -1 + Me.txtKundenNrbis.MaxLines_Warning = "" + Me.txtKundenNrbis.MaxLines_Warning_Label = Nothing + Me.txtKundenNrbis.Name = "txtKundenNrbis" + Me.txtKundenNrbis.Size = New System.Drawing.Size(98, 20) + Me.txtKundenNrbis.TabIndex = 59 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(121, 126) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(10, 13) + Me.Label7.TabIndex = 60 + Me.Label7.Text = "-" ' 'usrcntlFremdrechnungen ' @@ -640,4 +718,9 @@ Partial Class usrcntlFremdrechnungen Friend WithEvents cbxMailoeffnen As CheckBox Friend WithEvents lblSumBto As Label Friend WithEvents Label5 As Label + Friend WithEvents Label7 As Label + Friend WithEvents txtKundenNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtKundenNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As Label + Friend WithEvents ContextMenuStrip2 As ContextMenuStrip End Class diff --git a/SDL/mdm/usrcntlFremdrechnungen.resx b/SDL/mdm/usrcntlFremdrechnungen.resx index b5f92d43..f5796c7d 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.resx +++ b/SDL/mdm/usrcntlFremdrechnungen.resx @@ -123,4 +123,7 @@ 807, 17 + + 913, 17 + \ No newline at end of file diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index f6e85c6c..b1a808de 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -50,6 +50,10 @@ Public Class usrcntlFremdrechnungen dgvInitWait = True + txtKundenNrvon.Enabled = kdNr <= 0 + txtKundenNrbis.Enabled = kdNr <= 0 + + Dim kdNr_WHERE = "" If kdNr_filter Then kdNr_WHERE = "" @@ -203,85 +207,99 @@ Public Class usrcntlFremdrechnungen End Sub - Sub SET_SDL(SDLNrTmp) + Sub SET_SDL(SDLNrTmp As String, Optional kdNrvon As Integer = -1, Optional kdNrbis As Integer = -1) aktLieferant = SDLNrTmp + Dim anzahlTop = 1000 Dim sqlfehlendePDF As String = "" Dim sqlfehlendePDF_PLOSE As String = "" Dim sqlfehlendePDF_RMC As String = "" + Dim sqlfehlendePDF_VERAG As String = "" 'veragPDF sind immer da (können nie fehlen)! Select Case cbxPDFhinterlegt.CheckState - Case CheckState.Unchecked : sqlfehlendePDF = " AND [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is null" : sqlfehlendePDF_RMC = " AND rmc_daId is null" - Case CheckState.Checked : sqlfehlendePDF = " AND not [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is not null" : sqlfehlendePDF_RMC = " AND rmc_daId is not null" + Case CheckState.Unchecked : sqlfehlendePDF = " AND [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is null" : sqlfehlendePDF_RMC = " AND rmc_daId is null" : sqlfehlendePDF_VERAG = " AND 1 = 0" + Case CheckState.Checked : sqlfehlendePDF = " AND not [daId] is null" : sqlfehlendePDF_PLOSE = " AND plInv_daId is not null" : sqlfehlendePDF_RMC = " AND rmc_daId is not null" : sqlfehlendePDF_VERAG = " AND 1 = 1" End Select + Dim whereKundennrKreisAlle As String = "" + Dim whereKundennrKreisLieferanten As String = "" + + If kdNrvon > 0 AndAlso kdNrbis > 0 Then + Select Case SDLNrTmp + Case "IDS" : whereKundennrKreisLieferanten = " and KdNrVERAG between " & kdNrvon & " and " & kdNrbis + Case "MSE" : whereKundennrKreisLieferanten = " and partner_customer_number between " & kdNrvon & " and " & kdNrbis + Case "ALLE" : whereKundennrKreisAlle = " and temp.AdressenNr between " & kdNrvon & " and " & kdNrbis + Case Else + whereKundennrKreisLieferanten = " and AdressenNr between " & kdNrvon & " and " & kdNrbis + End Select + End If Dim SQL_STR = "" Select Case SDLNrTmp 'IDS Case "IDS" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " order by [YearMonthDay] desc, [Invoicenumber]" + " invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer, tblIDSInvoicesNew.CustomerCode as Kundennummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT distinct([CustomerCode]) FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 AND isnull([tbl_IDS_Kunden].KdNrAlt, 0) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & ") and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & whereKundennrKreisLieferanten & " order by [YearMonthDay] desc, [Invoicenumber]" 'UTA Case "UTA" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & " group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv" + " Adressen.AdressenNr, Adressen.[Name 1], [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(archiv as bit) as archiv FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " AND [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by Adressen.AdressenNr, Adressen.[Name 1],[Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2], archiv" - SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & " order by Rechnungsdatum desc" + SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & " Adressen.AdressenNr, Adressen.[Name 1],[Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, cast(0 as bit) as archiv FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where 1 = 1 " & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Datum] " & setSQLWhere("_", "") & whereKundennrKreisLieferanten & " order by Rechnungsdatum desc" 'PLOSE Case "PLOSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]" + " Adressen.AdressenNr, Adressen.[Name 1],[plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, plInv_Archiv as archiv FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & whereKundennrKreisLieferanten & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]" 'MSE Case "MSE" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Brutto_EUR ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & " order by invoice_date desc, invoice_id" + " partner_customer_number as AdressenNr, customer_name as [Name 1], [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Bruttobetrag ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden, archiv FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & whereKundennrKreisLieferanten & " order by invoice_date desc, invoice_id" 'VERAG Case "VERAG" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - " Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.SteuerbetragLokal, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer" + " Adressen.AdressenNr, Adressen.[Name 1], tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.RechnungsbetragLokal as Bruttobetrag, 1 as daId, cast(1 as bit) as PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, tblTrdinInvoice.Rechnungsnummer" 'RMC Case "RMC" : SQL_STR = "SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahlTop, "") & - "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Brutto_EUR,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & " order by rmc_reDatum desc, rmc_reNr" + "Adressen.AdressenNr, Adressen.[Name 1],[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,rmc_kdNr as Kundennummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Bruttobetrag,[rmc_daId] as daId,[rmc_betragMWST] as MWST,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden, rmc_archiv as archiv FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & whereKundennrKreisLieferanten & " order by rmc_reDatum desc, rmc_reNr" Case "ALLE" : Dim anzahl As Integer = anzahlTop / 6 : SQL_STR = " select * from (SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " --IDS - 'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & " -- order by [YearMonthDay], [Invoicenumber] + 'IDS' as Lieferant,invoice_id,[tbl_IDS_Kunden].KdNrVERAG as AdressenNr, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,tblIDSInvoicesNew.CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblIDSInvoicesNew inner join [VERAG].[dbo].[tbl_IDS_Kunden] on tblIDSInvoicesNew.CustomerCode = tbl_IDS_Kunden.CustomerCode WHERE tblIDSInvoicesNew.[CustomerCode] in (SELECT [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE 1 = 1 and isnull([tbl_IDS_Kunden].KdNrAlt, 1) = 0 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [KdNrVERAG]=" & kdNr, "") & " ) and [YearMonthDay] " & setSQLWhere("IDS", "") & whereKundennrKreisLieferanten & " -- order by [YearMonthDay], [Invoicenumber] UNION ALL --MSE - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & " --order by invoice_date, invoice_id + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'MSE' as Lieferant,-1 as invoice_id,partner_customer_number as AdressenNr, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblMSEInvoices inner join tblMSECustomers on customer_id = [customer_number] where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [partner_customer_number]=" & kdNr, "") & " and [invoice_date] " & setSQLWhere("MSE", "country") & whereKundennrKreisLieferanten & " --order by invoice_date, invoice_id UNION ALL --UTA - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & " --order by Rechnungsnummer desc + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'UTA' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where 1 = 1 " & sqlfehlendePDF & IIf(kdNr > 0, " AND [AdressenNr]=" & kdNr, "") & " and [Rechnungsdatum] " & setSQLWhere("UTA", "Lieferland_ISO2") & whereKundennrKreisLieferanten & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,AdressenNr,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA',-1,AdressenNr, [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblUTADocuments] inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere("UTA_", "") & whereKundennrKreisLieferanten & " --order by Rechnungsnummer desc UNION ALL --VERAG - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & " AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'VERAG' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, 1 as daId, cast(1 as bit) PDFvorhanden FROM tblTrdinInvoice inner join Adressen on KundenNrZentrale = AdressenNr WHERE 1 = 1 " & sqlfehlendePDF_VERAG & IIf(kdNr > 0, " AND tblTrdinInvoice.RechnungsKundenNr=" & kdNr, "") & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere("VERAG", "'AT'") & whereKundennrKreisLieferanten & " AND tblTrdinInvoice.FilialenNr = 4814 --ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer UNION ALL --PLOSE - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr] + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'PLOSE' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where 1 = 1 " & sqlfehlendePDF_PLOSE & IIf(kdNr > 0, " AND Adressen.AdressenNr=" & kdNr, "") & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere("PLOSE", "plInv_SupplierCountry") & whereKundennrKreisLieferanten & "-- Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr] UNION ALL --RMC - SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & "-- order by rmc_reDatum, rmc_reNr + SELECT " & IIf(cbxMax1000Eintrage.Checked, " top " & anzahl, "") & " 'RMC' as Lieferant,-1 as invoice_id,Adressen.AdressenNr, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDFvorhanden FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where 1 = 1 " & sqlfehlendePDF_RMC & IIf(kdNr > 0, " AND AdressenNr=" & kdNr, "") & " and [rmc_reDatum] " & setSQLWhere("RMC", "rmc_landKZ") & whereKundennrKreisLieferanten & "-- order by rmc_reDatum, rmc_reNr - ) as temp where 1=1 and temp.Rechnungsdatum" & setSQLWhere(SDLNrTmp, "temp.Land") & " order by Rechnungsdatum desc" + ) as temp where 1=1 and temp.Rechnungsdatum" & setSQLWhere(SDLNrTmp, "temp.Land") & whereKundennrKreisAlle & " order by Rechnungsdatum desc" @@ -513,44 +531,141 @@ Public Class usrcntlFremdrechnungen End Select End Function Private Sub btnSDL_Alle_Click(sender As Object, e As EventArgs) Handles btnSDL_Alle.Click - SET_SDL("ALLE") + 'SET_SDL("ALLE") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("ALLE", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("ALLE") + + End If End Sub Private Sub btnSDL_IDS_Click(sender As Object, e As EventArgs) Handles btnSDL_IDS.Click - SET_SDL("IDS") + 'SET_SDL("IDS") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("IDS", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("IDS") + + End If + End Sub Private Sub btnSDL_UTA_Click(sender As Object, e As EventArgs) Handles btnSDL_UTA.Click - SET_SDL("UTA") + 'SET_SDL("UTA") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("UTA", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("UTA") + + End If End Sub Private Sub btnSDL_Hugo_Click(sender As Object, e As EventArgs) Handles btnSDL_Hugo.Click - SET_SDL("HUGO") + 'SET_SDL("HUGO") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("HUGO", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("HUGO") + + End If End Sub Private Sub btnSDL_PLOSE_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE.Click - SET_SDL("PLOSE") + 'SET_SDL("PLOSE") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("PLOSE", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("PLOSE") + + End If End Sub Private Sub btnSDL_MautMSE_Click(sender As Object, e As EventArgs) Handles btnSDL_MautMSE.Click - SET_SDL("MSE") + 'SET_SDL("MSE") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("MSE", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("MSE") + + End If End Sub Private Sub btnSDL_MotorWay_Click(sender As Object, e As EventArgs) - SET_SDL("MW") + 'SET_SDL("MW") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("MW", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("MW") + + End If End Sub Private Sub btnSDL_FREJUS_Click(sender As Object, e As EventArgs) Handles btnSDL_FREJUS.Click - SET_SDL("FREJUS") + 'SET_SDL("FREJUS") + + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("FREJUS", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("FREJUS") + + End If + End Sub Private Sub btnVERAGCardNew_Click(sender As Object, e As EventArgs) Handles btnVERAGCardNew.Click - SET_SDL("VERAG") + 'SET_SDL("VERAG") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("VERAG", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("VERAG") + + End If End Sub Private Sub btnSDL_RMC_Click(sender As Object, e As EventArgs) Handles btnSDL_RMC.Click - SET_SDL("RMC") + + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL("RMC", txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL("RMC") + + End If + End Sub @@ -666,7 +781,7 @@ Public Class usrcntlFremdrechnungen Next If aktLieferant = "ALLE" And cbxMax1000Eintrage.Checked Then - MsgBox("Entferne die MAX 1000 Einträge Beschänkung, da ansonsten können nicht alle Daten ermittelt werden!") + MsgBox("Entferne die MAX 1000 Einträge Beschänkung, da ansonsten nicht alle Daten ermittelt werden können!") Exit Sub End If @@ -680,87 +795,87 @@ Public Class usrcntlFremdrechnungen For Each kvp In groups - Dim TextHTMLtable = "" + Dim TextHTMLtable = "" - TextHTMLtable &= "" - TextHTMLtable &= "" + TextHTMLtable &= "
SupplierCountryDate
" + TextHTMLtable &= "" - Dim pdflist As New List(Of String) + Dim pdflist As New List(Of String) - For Each row In kvp.Value + For Each row In kvp.Value - Dim Lieferant = "" + Dim Lieferant = "" - If dgvLFRechnung.Columns.Contains("Lieferant") Then - Lieferant = row.Cells("Lieferant").Value - Else - Lieferant = aktLieferant - End If + If dgvLFRechnung.Columns.Contains("Lieferant") Then + Lieferant = row.Cells("Lieferant").Value + Else + Lieferant = aktLieferant + End If - If Lieferant = "VERAG" Then - 'VERAG IGNORIEREN - 'Dim ReDat = row.Cells("Rechnungsdatum").Value - 'Dim ReNr = row.Cells("Rechnungsnummer").Value + If Lieferant = "VERAG" Then + 'VERAG IGNORIEREN + 'Dim ReDat = row.Cells("Rechnungsdatum").Value + 'Dim ReNr = row.Cells("Rechnungsnummer").Value - 'If ReDat IsNot Nothing AndAlso ReNr > 0 Then - ' Me.Cursor = Cursors.WaitCursor - ' Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL") - ' cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) - 'End If + 'If ReDat IsNot Nothing AndAlso ReNr > 0 Then + ' Me.Cursor = Cursors.WaitCursor + ' Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL") + ' cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) + 'End If - Else + Else - If Lieferant = "IDS" Then + If Lieferant = "IDS" Then - Dim dt As New DataTable - dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True) + Dim dt As New DataTable + dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True) - For Each r As DataRow In dt.Rows + For Each r As DataRow In dt.Rows - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - - Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId")) - If daId > 0 Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) - pdflist.Add(DS.GET_TOP1_PATH()) - End If - - Next - - - - Else TextHTMLtable &= "" TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" TextHTMLtable &= "" - Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value) + Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId")) If daId > 0 Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) pdflist.Add(DS.GET_TOP1_PATH()) End If + Next + + + + Else + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + + Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value) + If daId > 0 Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) + pdflist.Add(DS.GET_TOP1_PATH()) End If - - End If - Next - TextHTMLtable &= "
SupplierCountryDate
" & Lieferant & "" & r.Item("Land") & "" & r.Item("Rechnungsdatum") & "
" & Lieferant & "" & row.Cells("Land").Value & "" & row.Cells("Rechnungsdatum").Value & "" & r.Item("Land") & "" & r.Item("Rechnungsdatum") & "
" & Lieferant & "" & row.Cells("Land").Value & "" & row.Cells("Rechnungsdatum").Value & "
" + End If - Dim outl As New Outlook.Application - Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) + Next + + + TextHTMLtable &= "" + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) Dim kundeMail As New cKunden() kundeMail = kundenSQL.getKundeByKdNr(kvp.Key) @@ -818,53 +933,68 @@ Public Class usrcntlFremdrechnungen End Select + + Mail.HTMLBody &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + Mail.HTMLBody &= "
" + Mail.HTMLBody &= cFakturierung.getSignature("DE", 19, True, True) + If pdflist.Count > 0 Then - For Each pdf In pdflist - Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , ) - Next - End If + For Each pdf In pdflist + Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , ) + Next + End If Mail.To &= kundeMail.EMail Mail.CC &= kundeMail.EMail2 If cbxMailoeffnen.Checked Then + Try + Mail.Display() + Catch ex As Exception + MsgBox(ex.Message) + End Try - Mail.Display() Else - - If Mail IsNot Nothing Then - - - Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kvp.Key) - - API.api_EMail = Mail.To - API.api_EMailCC = Mail.CC - API.api_EMailBCC = Mail.BCC - API.api_EMailSubject = Mail.Subject - API.api_EMailText = Mail.HTMLBody - API.api_EMailAttCnt = Mail.Attachments.Count + Try If Mail IsNot Nothing Then - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then - API.UPDTAE_OK() - Else - API.UPDTAE_ERR() + Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kvp.Key) + + API.api_EMail = Mail.To + API.api_EMailCC = Mail.CC + API.api_EMailBCC = IIf(Mail.BCC <> "", Mail.BCC & ";mmdabrechnung@verag.ag", "mmdabrechnung@verag.ag") + API.api_EMailSubject = Mail.Subject + API.api_EMailText = Mail.HTMLBody + API.api_EMailAttCnt = Mail.Attachments.Count + + If Mail IsNot Nothing Then + + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then + API.UPDTAE_OK() + + Else + API.UPDTAE_ERR() + + End If End If End If - End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Me.Cursor = Cursors.Default + End Try End If - Next + Next - End If + End If End Sub @@ -1000,11 +1130,25 @@ Public Class usrcntlFremdrechnungen End Sub Private Sub dat_Sum_Von_Leave(sender As Object, e As EventArgs) Handles dat_Sum_Von.Leave, dat_Sum_Bis.Leave - SET_SDL(aktLieferant) + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If End Sub Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged - SET_SDL(aktLieferant) + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) @@ -1210,11 +1354,37 @@ Public Class usrcntlFremdrechnungen End Sub Private Sub cbxMax1000Eintrage_CheckedChanged(sender As Object, e As EventArgs) Handles cbxMax1000Eintrage.CheckedChanged - SET_SDL(aktLieferant) + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If End Sub Private Sub chxfehlendePDFs_CheckedChanged(sender As Object, e As EventArgs) Handles cbxPDFhinterlegt.CheckStateChanged - SET_SDL(aktLieferant) + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If End Sub + + Private Sub txtKundenNrvon_TextChanged(sender As Object, e As EventArgs) Handles txtKundenNrvon.TextChanged, txtKundenNrbis.TextChanged + If txtKundenNrvon.Text <> "" AndAlso txtKundenNrvon.Text.Length = 6 AndAlso IsNumeric(txtKundenNrvon.Text) AndAlso txtKundenNrbis.Text <> "" AndAlso txtKundenNrbis.Text.Length = 6 AndAlso IsNumeric(txtKundenNrbis.Text) Then + SET_SDL(aktLieferant, txtKundenNrvon.Text, txtKundenNrbis.Text) + + ElseIf txtKundenNrvon.Text = "" AndAlso txtKundenNrbis.Text = "" Then + + SET_SDL(aktLieferant) + + End If + End Sub + End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index 85bdf3d3..b0ca7e74 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -496,15 +496,21 @@ Class TrdInvoice_FUNCTIONS End If + Dim Buchungstext As String = ROW("RK_Buchungstext") + + If Buchungstext <> "" AndAlso Buchungstext.Contains("Abrechnungsperiode von") Then + Buchungstext = Buchungstext.Replace("Abrechnungsperiode von", "Zinsen") + End If + If TRD_INVOICE.SAVE Then - If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then + If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), Buchungstext, TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then 'UPDATE rechnugnsausgang Dim firmaTmpsql = If(Firma > 0, " AND Firma_ID= '" & Firma & "' ", "") Dim buchungsjahrTmpsql = If(Buchungsjahr > 0, " AND Buchungsjahr= '" & Buchungsjahr & "' ", "") SQL.doSQL("UPDATE [Rechnungsausgang] SET [Trdin] = 1 WHERE convert(date,[RechnungsDatum] ,104) = '" & TRD_INVOICE.Rechnungsdatum.ToShortDateString & "' AND RechnungsNr = " & ROW("RK_RechnungsNr") & firmaTmpsql & buchungsjahrTmpsql, "FMZOLL") End If End If - End If + End If Next Return True @@ -699,7 +705,10 @@ Class TrdInvoice_FUNCTIONS Shared Function getSQLString_SELECTForTrdInvoice(Optional Firma As Integer = -1, Optional Buchungsjahr As Integer = -1) getSQLString_SELECTForTrdInvoice = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr, min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr, - (min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) AS RK_Buchungstext, + case when min(Firma_ID)=19 and min(Rechnungsausgang.FilialenNr) = 8001 and min(Rechnungsausgang.OffertenNr) = 95 then + min(Rechnungsausgang.Vermerk) + else + (min(cast([FilialenNr] as varchar(4))) + '/' + min(cast([AbfertigungsNr] as varchar(8))) + '/' + min(cast([UnterNr] as varchar(2)))) end AS RK_Buchungstext, min(Rechnungsausgang.KundenNrZentrale) AS RK_KundenNrZentrale, min(Rechnungsausgang.RechnungsKundenNr) AS RK_RechnungsKundenNr, min(Rechnungsausgang.RechnungsLandKz) AS RK_RechnungsLandKz, min(Rechnungsausgang.RechnungsUstIdKz) AS RK_RechnungsUstIdKz, min(Rechnungsausgang.RechnungsUstIdNr) AS RK_RechnungsUstIdNr, min(Rechnungsausgang.Lastschrift+0) AS RK_Lastschrift, min(Rechnungsausgang.Steuerschlüssel) AS RK_Steuerschlüssel, min(Rechnungsausgang.[Steuersatz %]) AS RK_SteuersatzProzent, min(Rechnungsausgang.Währungscode) AS RK_Währungscode, diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index 0bba04bf..9c2a29a8 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -660,7 +660,8 @@ Public Class cSyska_Interface genBuchungsZeileSum &= FiBuSollkontonummer & vbTab genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab - genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + 'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab) genBuchungsZeileSum &= Format(CDbl(Bruttobetrag), fmt) & vbTab genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz @@ -695,7 +696,9 @@ Public Class cSyska_Interface genBuchungsZeileSum &= FiBuSollkontonummer & vbTab genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab - genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + + 'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab) genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz @@ -720,7 +723,9 @@ Public Class cSyska_Interface genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab genBuchungsZeileSum &= FiBuSollkontonummer & vbTab - genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + + 'genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + genBuchungsZeileSum &= IIf(row("Buchungstext") <> "" AndAlso row("Buchungstext").ToString.Contains("Zinsen"), row("Buchungstext") & vbTab, row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab) genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz @@ -815,6 +820,7 @@ Public Class cSyska_Interface genBuchungsZeile &= FiBuHabenkontonummer & vbTab genBuchungsZeile &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + genBuchungsZeile &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab genBuchungsZeile &= Format(CDbl(FiBuSteuersatz), fmt) & vbTab 'FiBuSteuersatz genBuchungsZeile &= FormatStringDbl(FiBuSteuerbetrag) & vbTab 'FiBuSteuerbetrag From 0eb68d12d95eb733da245fff6a4e4346a6cef799 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 22 Oct 2025 12:18:45 +0200 Subject: [PATCH 08/11] timasabfrage inkl. Schalter. --- SDL/My Project/AssemblyInfo.vb | 4 +- VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb | 3 ++ .../frmTimasabfrage.Designer.vb | 37 ++++++++++++++++- VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb | 41 +++++++++++++++++++ 4 files changed, 81 insertions(+), 4 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 6d7422b7..7e124f05 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 4ef1cafc..6058c1e0 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -101,6 +101,7 @@ Public Class cMitarbeiter Property mit_Notfall_Name As Object = Nothing Property mit_Notfall_Handy As Object = Nothing Property mit_Notfall_Mail As Object = Nothing + Property mit_SchalterID As Object = Nothing @@ -219,6 +220,7 @@ Public Class cMitarbeiter list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Name", mit_Notfall_Name)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Handy", mit_Notfall_Handy)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_Notfall_Mail", mit_Notfall_Mail)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_SchalterID", mit_SchalterID)) @@ -428,6 +430,7 @@ Public Class cMitarbeiter If Not dr.Item("mit_Notfall_Handy") Is DBNull.Value Then Me.mit_Notfall_Handy = dr.Item("mit_Notfall_Handy") If Not dr.Item("mit_Notfall_Name") Is DBNull.Value Then Me.mit_Notfall_Name = dr.Item("mit_Notfall_Name") If Not dr.Item("mit_Notfall_Mail") Is DBNull.Value Then Me.mit_Notfall_Mail = dr.Item("mit_Notfall_Mail") + If Not dr.Item("mit_SchalterID") Is DBNull.Value Then Me.mit_SchalterID = dr.Item("mit_SchalterID") Catch ex As Exception diff --git a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb index 5f1e795e..89e33cff 100644 --- a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.Designer.vb @@ -24,8 +24,8 @@ Partial Class frmTimasabfrage 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() - Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel() + Me.cbxSchalterID = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.rbHO = New System.Windows.Forms.RadioButton() Me.rbBuero = New System.Windows.Forms.RadioButton() Me.Button1 = New System.Windows.Forms.Button() @@ -33,6 +33,7 @@ Partial Class frmTimasabfrage Me.btnClose = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() + Me.lblSchalter = New System.Windows.Forms.Label() Me.MyPanel1.SuspendLayout() Me.SuspendLayout() ' @@ -40,6 +41,8 @@ Partial Class frmTimasabfrage ' Me.MyPanel1.BackColor = System.Drawing.Color.White Me.MyPanel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.MyPanel1.Controls.Add(Me.lblSchalter) + Me.MyPanel1.Controls.Add(Me.cbxSchalterID) Me.MyPanel1.Controls.Add(Me.rbHO) Me.MyPanel1.Controls.Add(Me.rbBuero) Me.MyPanel1.Controls.Add(Me.Button1) @@ -53,6 +56,24 @@ Partial Class frmTimasabfrage Me.MyPanel1.Size = New System.Drawing.Size(264, 103) Me.MyPanel1.TabIndex = 3 ' + 'cbxSchalterID + ' + Me.cbxSchalterID._allowedValuesFreiText = Nothing + Me.cbxSchalterID._allowFreiText = False + Me.cbxSchalterID._value = "" + Me.cbxSchalterID.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cbxSchalterID.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxSchalterID.DropDownWidth = 50 + Me.cbxSchalterID.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cbxSchalterID.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxSchalterID.FormattingEnabled = True + Me.cbxSchalterID.Items.AddRange(New Object() {"", "100000-199999: XXXXXX", "200000-299999: XXXXXX", "300000-399999: XXXXXX", "400000-499999: XXXXXX", "500000-599999: XXXXXX", "600000-699999: XXXXXX", "700000-799999: XXXXXX", "800000-899999: XXXXXX", "900000-999999: XXXXXX"}) + Me.cbxSchalterID.Location = New System.Drawing.Point(3, 34) + Me.cbxSchalterID.Name = "cbxSchalterID" + Me.cbxSchalterID.Size = New System.Drawing.Size(58, 28) + Me.cbxSchalterID.TabIndex = 10 + Me.cbxSchalterID.Visible = False + ' 'rbHO ' Me.rbHO.AutoSize = True @@ -145,6 +166,16 @@ Partial Class frmTimasabfrage Me.Label1.Size = New System.Drawing.Size(222, 18) Me.Label1.TabIndex = 6 ' + 'lblSchalter + ' + Me.lblSchalter.AutoSize = True + Me.lblSchalter.Location = New System.Drawing.Point(3, 20) + Me.lblSchalter.Name = "lblSchalter" + Me.lblSchalter.Size = New System.Drawing.Size(46, 13) + Me.lblSchalter.TabIndex = 11 + Me.lblSchalter.Text = "Schalter" + Me.lblSchalter.Visible = False + ' 'frmTimasabfrage ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -169,4 +200,6 @@ Partial Class frmTimasabfrage Friend WithEvents Button1 As Button Friend WithEvents rbHO As RadioButton Friend WithEvents rbBuero As RadioButton + Public WithEvents cbxSchalterID As MyComboBox + Friend WithEvents lblSchalter As Label End Class diff --git a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb index a1500885..e933f231 100644 --- a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb +++ b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb @@ -2,6 +2,7 @@ Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter Public Datum As Date = CDate(Now.ToShortDateString) Public typ As Integer = -1 + Public Schalter As Integer = -1 Sub New() ' Dieser Aufruf ist für den Designer erforderlich. @@ -20,6 +21,12 @@ cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0")) cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3")) + cbxSchalterID.Items.Clear() + cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1", "1")) + cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2", "2")) + cbxSchalterID.changeItem("") + If mit IsNot Nothing Then Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname If mit.mit_homeoffice Then @@ -29,10 +36,23 @@ rbHO.Checked = False cboTyp.changeItem("Büro") End If + + If mit.mit_niederlassung = "NKD" Then + + cbxSchalterID.Visible = True + Else + cbxSchalterID.Visible = False + End If + + lblSchalter.Visible = cbxSchalterID.Visible + + + End If + End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click @@ -40,10 +60,24 @@ If typ = -1 Then MsgBox("Bitte Typ auswählen") DialogResult = Windows.Forms.DialogResult.None + Else DialogResult = Windows.Forms.DialogResult.OK End If + If mit.mit_niederlassung = "NKD" AndAlso Schalter = -1 Then + MsgBox("Bitte Schalter auswählen") + DialogResult = Windows.Forms.DialogResult.None + + Else + If Schalter > 0 Then + mit.mit_SchalterID = Schalter + mit.SAVE() + End If + + DialogResult = Windows.Forms.DialogResult.OK + End If + End Sub Private Sub rbBuero_CheckedChanged(sender As Object, e As EventArgs) Handles rbBuero.CheckedChanged, rbHO.CheckedChanged @@ -58,4 +92,11 @@ End Sub + Private Sub cbxSchalterID_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxSchalterID.SelectedValueChanged + If cbxSchalterID._value <> "" AndAlso IsNumeric(cbxSchalterID._value) AndAlso CInt(cbxSchalterID._value) > 0 Then + Schalter = cbxSchalterID._value + Else + Schalter = -1 + End If + End Sub End Class \ No newline at end of file From 7e9f2ced11fa58cecbb20a4e5bedf8b497a05839 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 22 Oct 2025 16:20:51 +0200 Subject: [PATCH 09/11] fremdrechnungen, etc. --- SDL/mdm/usrcntlFremdrechnungen.vb | 585 ++++++++++++++++++------------ 1 file changed, 359 insertions(+), 226 deletions(-) diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index b1a808de..5ada310d 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -79,10 +79,12 @@ Public Class usrcntlFremdrechnungen KUNDE = kundenSQL.getKundeByKdNr(kdNr) dtkeineMWST = (New SQL).loadDgvBySql("select Land, Erstattungsland, Lieferant from tblKeineMWSTErstattung", "FMZOLL") - If KUNDE IsNot Nothing Then + If KUNDE.KundenNr > 0 Then dtKundeMWST = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE.KundenNr, "FMZOLL") + cbx.Visible = True End If + SET_SDL("") dgvInitWait = False @@ -211,7 +213,6 @@ Public Class usrcntlFremdrechnungen aktLieferant = SDLNrTmp - Dim anzahlTop = 1000 Dim sqlfehlendePDF As String = "" Dim sqlfehlendePDF_PLOSE As String = "" @@ -367,6 +368,7 @@ Public Class usrcntlFremdrechnungen Private Function setSQLWhere(aktLieferant As String, land As String) As String + 'das hier geht (aktuell) nur PRO KUNDE -> ALSO nicht in der Gesamtübersicht!!!!!!!! Dim SQLWhere = " between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "'" @@ -451,6 +453,8 @@ Public Class usrcntlFremdrechnungen Private Function setSQLDetailWhere(aktLieferant As String, land As String, Optional alle As Boolean = False) As String + 'das hier ist nur PRO KUNDE möglich!!! + Dim SQLWhere = "" If cbx.Checked AndAlso KUNDE IsNot Nothing Then @@ -704,9 +708,6 @@ Public Class usrcntlFremdrechnungen - - - Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click If SplitContainer1.Panel2Collapsed Then SplitContainer1.Panel2Collapsed = False @@ -788,7 +789,7 @@ Public Class usrcntlFremdrechnungen If groups.Count > 0 Then - If Not vbYes = MsgBox("Möchten Sie die Rechnungen von " & groups.Count & " Kunden per Mail verschicken? " & IIf(Not cbxMailoeffnen.Checked, vbNewLine & "Die Mails werden sofort verschickt!", ""), vbYesNoCancel) Then + If Not vbYes = MsgBox("Möchten Sie die Rechnungen von " & groups.Count & " Kunden per Mail verschicken? " & IIf(Not cbxMailoeffnen.Checked, vbNewLine & "Die Mails werden sofort ohne Dialogfeld verschickt!", ""), vbYesNoCancel) Then Exit Sub End If @@ -797,227 +798,369 @@ Public Class usrcntlFremdrechnungen Dim TextHTMLtable = "" - TextHTMLtable &= "" - TextHTMLtable &= "" - - Dim pdflist As New List(Of String) - - For Each row In kvp.Value - - - Dim Lieferant = "" - - If dgvLFRechnung.Columns.Contains("Lieferant") Then - Lieferant = row.Cells("Lieferant").Value - Else - Lieferant = aktLieferant - End If - - If Lieferant = "VERAG" Then - 'VERAG IGNORIEREN - 'Dim ReDat = row.Cells("Rechnungsdatum").Value - 'Dim ReNr = row.Cells("Rechnungsnummer").Value - - 'If ReDat IsNot Nothing AndAlso ReNr > 0 Then - ' Me.Cursor = Cursors.WaitCursor - ' Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL") - ' cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) - 'End If - - Else - - If Lieferant = "IDS" Then - - Dim dt As New DataTable - dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True) - - For Each r As DataRow In dt.Rows - - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - - Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId")) - If daId > 0 Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) - pdflist.Add(DS.GET_TOP1_PATH()) - End If - - Next - - - - Else - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - TextHTMLtable &= "" - - Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value) - If daId > 0 Then - Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) - pdflist.Add(DS.GET_TOP1_PATH()) - End If - - End If - - - - End If - - Next - - - TextHTMLtable &= "
SupplierCountryDate
" & Lieferant & "" & r.Item("Land") & "" & r.Item("Rechnungsdatum") & "
" & Lieferant & "" & row.Cells("Land").Value & "" & row.Cells("Rechnungsdatum").Value & "
" - - Dim outl As New Outlook.Application - Dim Mail As Microsoft.Office.Interop.Outlook.MailItem - Mail = outl.CreateItem(0) - - Dim kundeMail As New cKunden() - kundeMail = kundenSQL.getKundeByKdNr(kvp.Key) - - Select Case kundeMail.LandKz - Case "TR" - Mail.Subject = kundeMail.Kurzname & " - ORIJINAL FATURA " - - - Mail.HTMLBody = "Bayanlar ve Baylar!,

Ekte izlere orijinal faturalarinizi gönderiyoruz.

" - - Mail.HTMLBody &= TextHTMLtable - - Mail.HTMLBody &= "


Iyi calismalar dileriz.

" - - Case "A", "AT", "D", "DE", "CH" - - Mail.Subject = kundeMail.Kurzname & " - ORIGINAL RECHNUNG " - - Mail.HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang senden wir Ihnen die Originalrechnungen.

" - - Mail.HTMLBody &= TextHTMLtable - - Mail.HTMLBody &= "


Mit freundlichen Grüßen

" - Case "RO" - - Mail.Subject = kundeMail.Kurzname & " - FACTURI RETURNATE " - - Mail.HTMLBody = "Stimati domni, stimate doamne,

Va returnam facturile originale care nu au fost utilizate spre recuperare TVA.

Va multumim pentru colaborarea.

" - - Mail.HTMLBody &= TextHTMLtable - - Mail.HTMLBody &= "


Cu stima

" - - Case "HR", "BIH", "SLO", "SRB", "BIH" - Mail.Subject = kundeMail.Kurzname & " - ORGINALNI RACUNI " - - - Mail.HTMLBody = "Postovanje,

prilozeno Vam dostavljamo orginalne racune za Vasu daljnu upotrebu.

Za pitanja stojimo na raspolaganju.

" - - Mail.HTMLBody &= TextHTMLtable - - Mail.HTMLBody &= "


Srdacan pozdrav

" - - Case Else - Mail.Subject = kundeMail.Kurzname & " - Invoice No." - - Mail.HTMLBody = TextHTMLtable - - Mail.HTMLBody = "Dear Sir or Madam,

attached we send you the original invoice mentioned above.

" - - Mail.HTMLBody &= TextHTMLtable - - Mail.HTMLBody &= "


Best regards

" - - - End Select - - Mail.HTMLBody &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" - Mail.HTMLBody &= "
" - Mail.HTMLBody &= cFakturierung.getSignature("DE", 19, True, True) - - If pdflist.Count > 0 Then - For Each pdf In pdflist - Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , ) - Next - End If - - Mail.To &= kundeMail.EMail - Mail.CC &= kundeMail.EMail2 - - If cbxMailoeffnen.Checked Then - Try - Mail.Display() - Catch ex As Exception - MsgBox(ex.Message) - End Try - - - Else - Try - - If Mail IsNot Nothing Then - - - Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kvp.Key) - - API.api_EMail = Mail.To - API.api_EMailCC = Mail.CC - API.api_EMailBCC = IIf(Mail.BCC <> "", Mail.BCC & ";mmdabrechnung@verag.ag", "mmdabrechnung@verag.ag") - API.api_EMailSubject = Mail.Subject - API.api_EMailText = Mail.HTMLBody - API.api_EMailAttCnt = Mail.Attachments.Count - - If Mail IsNot Nothing Then - - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then - API.UPDTAE_OK() - - Else - API.UPDTAE_ERR() - - End If - - End If - - End If - - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Me.Cursor = Cursors.Default - End Try - - End If + Dim pdflist = createEMailTable(TextHTMLtable, kvp, cbx.Checked) + createEmail(kvp.Key, TextHTMLtable, pdflist) Next + End If End Sub - 'Sub SelectRow(kdnr, kfz, SDLNr, history) - ' dgvInitWait = True - ' dgvSDL.ClearSelection() - ' For Each r As DataGridViewRow In dgvSDL.Rows - ' If r.Cells("KundenNr").Value = kdnr AndAlso - ' r.Cells("SDLNr").Value = SDLNr AndAlso - ' r.Cells("KfzKennzeichen").Value = kfz AndAlso - ' r.Cells("History").Value = history Then - ' r.Selected = True - ' dgvSDL.FirstDisplayedScrollingRowIndex = r.Index - ' Exit For - ' End If - ' Next - ' dgvInitWait = False - ' 'ReloadLeistung() - ' dgvSDL.PerformLayout() - 'End Sub + Private Function createEMailTable(ByRef TextHTMLtable As String, kvp As KeyValuePair(Of Object, List(Of DataGridViewRow)), onlyRelevantInvioces As Boolean) As List(Of String) + + '------------------------------------------------------------ + 'toDo-Logik für die Ausnahmen - START - wie in Function "setSQLWhere(aktLieferant As String, land As String) As String" + '------------------------------------------------------------ + + '1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…) + + Dim landKZiso2 = "" + Dim KUNDE_TEMP As cKunden + KUNDE_TEMP = kundenSQL.getKundeByKdNr(kvp.Key) + + If KUNDE_TEMP.LandKz <> "" Then + If KUNDE_TEMP.LandKz.Length = 2 Then + landKZiso2 = KUNDE_TEMP.LandKz + ElseIf KUNDE_TEMP.LandKz.Length = 3 Then + landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE_TEMP.LandKz) + ElseIf KUNDE_TEMP.LandKz.Length = 1 Then + landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE_TEMP.LandKz) + End If + + + End If + + Dim dtKundeMWSTTemp As DataTable = (New SQL).loadDgvBySql("select LandKz from tblKundenMWST where KdNr = " & KUNDE_TEMP.KundenNr, "FMZOLL") + + + + '2. wenn die Rechnung die Summe NULL aufweist + + '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt (auch nicht auf Diesel -> IDS) + + '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt + + + 'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then + ' Dim erw As New cKundenErweitert(KUNDE.KundenNr) + ' If erw.kde_keineMWSt Then Return SQLWhere + + ' SQLWhere &= "AND (" + ' 'ORIGINAL-RECHNUNG senden wenn: + ' '1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…) + + ' Dim landKZiso2 = "" + + ' If LAND <> "" Then 'LandKZ vom Kunden muss auf ISO2 konvertiert werden, weil da ein Misch-Masch in der Datenbank herrscht! + ' If KUNDE.LandKz <> "" Then + ' If KUNDE.LandKz.Length = 2 Then + ' landKZiso2 = KUNDE.LandKz + ' ElseIf KUNDE.LandKz.Length = 3 Then + ' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(KUNDE.LandKz) + ' ElseIf KUNDE.LandKz.Length = 1 Then + ' landKZiso2 = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO1Land(KUNDE.LandKz) + ' End If + + ' SQLWhere &= " " & LAND & " in ('" & landKZiso2 & "')" + ' End If + ' End If + + ' '2. wenn die Rechnung die MWST-SUMME 0 aufweist!!! + ' Select Case aktLieferant + ' Case "UTA" : SQLWhere &= " OR Gesamtbetrag_Umsatzsteuer_in_Darstellwährung = 0 " 'UTA bei UTA auch EPN ausblenden! + ' Case "PLOSE" : SQLWhere &= " OR plInv_MWSTBetrag = 0" 'PLOSE + ' Case "VERAG" : SQLWhere &= " OR tblTrdinInvoice.SteuerbetragLokal = 0" 'VERAG + ' Case "MSE" : SQLWhere &= " OR total_vat_amount_euro = 0" 'MSE + ' Case "RMC" : SQLWhere &= " OR rmc_betragMWST = 0" 'RMC + ' Case "ALLE" : SQLWhere &= " OR temp.MWSt = 0" 'ALLE + ' Case "UTA_" : SQLWhere &= " 1 <> 1" + ' Case Else : SQLWhere &= " 1 <> 1" + + ' End Select + + ' '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt + ' If LAND <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then + ' Dim dtkeineMWST_ohneContraint As DataTable = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "'").CopyToDataTable + ' Dim counter = 0 + ' Dim landBez As String = "" + ' For Each row As DataRow In dtkeineMWST_ohneContraint.Rows + ' landBez &= "'" & row.Item("Erstattungsland") & "'" + ' counter = counter + 1 + ' If (dtkeineMWST_ohneContraint.Rows.Count <> 0 And counter <> dtkeineMWST_ohneContraint.Rows.Count) Then landBez &= "," + ' Next + ' SQLWhere &= " OR " & LAND & " in (" & landBez & ")" + ' If aktLieferant = "ALLE" Then SQLWhere &= " OR " & LAND & " in ('')" 'damit IDS ohne Land nicht ausgeschlossen wird. + ' End If + + ' '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt + ' If LAND <> "" AndAlso dtKundeMWST.Rows.Count > 0 Then + ' Dim counter = 0 + ' Dim landBez As String = "" + ' For Each row As DataRow In dtKundeMWST.Rows + ' landBez &= "'" & row.Item("LandKz") & "'" + ' counter = counter + 1 + ' If (dtKundeMWST.Rows.Count <> 0 And counter <> dtKundeMWST.Rows.Count) Then landBez &= "," + ' Next + ' SQLWhere &= " OR " & LAND & " in (" & landBez & ")" + ' End If + ' SQLWhere &= ")" + + + + '------------------------------------------------------------ + 'toDo-Logik für die Ausnahmen - END + '------------------------------------------------------------ + + + + TextHTMLtable &= "" + TextHTMLtable &= "" + + Dim pdflist As New List(Of String) + + For Each row In kvp.Value + + Dim erw As New cKundenErweitert(kvp.Key) + Dim Lieferant = "" + + If dgvLFRechnung.Columns.Contains("Lieferant") Then + Lieferant = row.Cells("Lieferant").Value + Else + Lieferant = aktLieferant + End If + + If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Exit For 'abbruchbedingung + + Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces, False, True) + + 'ORIGINAL-RECHNUNG senden wenn: + If onlyRelevantInvioces Then + + '1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…) + If row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True + + '2. wenn die Rechnung die MWST-SUMME 0 aufweist!!! + If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True + + '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST + If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then + Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'") + Dim dtkeineMWST_ohneContraint As New DataTable + If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable() + If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True + End If + + '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt + + If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then + Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'") + Dim dtKundeMWSTTemp_ohneContraint As New DataTable + If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable() + If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True + End If + + End If + + + If Lieferant = "VERAG" Then + + 'VERAG IGNORIEREN + 'Dim ReDat = row.Cells("Rechnungsdatum").Value + 'Dim ReNr = row.Cells("Rechnungsnummer").Value + + 'If ReDat IsNot Nothing AndAlso ReNr > 0 Then + ' Me.Cursor = Cursors.WaitCursor + ' Dim da_id = SQL.getValueTxtBySql("Select TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum As Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL") + ' cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3) + 'End If + + Else + + If Lieferant = "IDS" Then + + Dim dt As New DataTable + dt = initDGVRechnungsdetails(row.Cells("invoice_id").Value, True) + + For Each r As DataRow In dt.Rows + + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + + + + + Dim daId As Integer = IIf(IsDBNull(r.Item("daId")), -1, r.Item("daId")) + If daId > 0 Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) + pdflist.Add(DS.GET_TOP1_PATH()) + End If + + Next + + + + Else + If sendÍnvoice Then + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + TextHTMLtable &= "" + + Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value) + If daId > 0 Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) + pdflist.Add(DS.GET_TOP1_PATH()) + End If + + End If + End If + + + + + End If + + Next + + TextHTMLtable &= "
SupplierCountryDate
" & Lieferant & "" & r.Item("Land") & "" & r.Item("Rechnungsdatum") & "
" & Lieferant & "" & row.Cells("Land").Value & "" & row.Cells("Rechnungsdatum").Value & "
" + + Return pdflist + + End Function + + Private Sub createEmail(kdNr As Integer, ByRef TextHTMLtable As String, pdflist As List(Of String)) + + + Dim outl As New Outlook.Application + Dim Mail As Microsoft.Office.Interop.Outlook.MailItem + Mail = outl.CreateItem(0) + + Dim kundeMail As New cKunden() + kundeMail = kundenSQL.getKundeByKdNr(kdNr) + + Select Case kundeMail.LandKz + Case "TR" + Mail.Subject = kundeMail.Kurzname & " - ORIJINAL FATURA " + + + Mail.HTMLBody = "Bayanlar ve Baylar!,

Ekte izlere orijinal faturalarinizi gönderiyoruz.

" + + Mail.HTMLBody &= TextHTMLtable + + Mail.HTMLBody &= "


Iyi calismalar dileriz.

" + + Case "A", "AT", "D", "DE", "CH" + + Mail.Subject = kundeMail.Kurzname & " - ORIGINAL RECHNUNG " + + Mail.HTMLBody = "Sehr geehrte Damen und Herren,

im Anhang senden wir Ihnen die Originalrechnungen.

" + + Mail.HTMLBody &= TextHTMLtable + + Mail.HTMLBody &= "


Mit freundlichen Grüßen

" + Case "RO" + + Mail.Subject = kundeMail.Kurzname & " - FACTURI RETURNATE " + + Mail.HTMLBody = "Stimati domni, stimate doamne,

Va returnam facturile originale care nu au fost utilizate spre recuperare TVA.

Va multumim pentru colaborarea.

" + + Mail.HTMLBody &= TextHTMLtable + + Mail.HTMLBody &= "


Cu stima

" + + Case "HR", "BIH", "SLO", "SRB", "BIH" + Mail.Subject = kundeMail.Kurzname & " - ORGINALNI RACUNI " + + + Mail.HTMLBody = "Postovanje,

prilozeno Vam dostavljamo orginalne racune za Vasu daljnu upotrebu.

Za pitanja stojimo na raspolaganju.

" + + Mail.HTMLBody &= TextHTMLtable + + Mail.HTMLBody &= "


Srdacan pozdrav

" + + Case Else + Mail.Subject = kundeMail.Kurzname & " - Invoice No." + + Mail.HTMLBody = TextHTMLtable + + Mail.HTMLBody = "Dear Sir or Madam,

attached we send you the original invoice mentioned above.

" + + Mail.HTMLBody &= TextHTMLtable + + Mail.HTMLBody &= "


Best regards

" + + + End Select + + Mail.HTMLBody &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "
" + Mail.HTMLBody &= "
" + Mail.HTMLBody &= cFakturierung.getSignature("DE", 19, True, True) + + If pdflist.Count > 0 Then + For Each pdf In pdflist + Mail.Attachments.Add(pdf, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , ) + Next + End If + + Mail.To &= kundeMail.EMail + Mail.CC &= kundeMail.EMail2 + + If cbxMailoeffnen.Checked Then + Try + Mail.Display() + Catch ex As Exception + MsgBox(ex.Message) + End Try + + + Else + Try + + If Mail IsNot Nothing Then + + + Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_SAMMELRECHNUNG, "MAIL-ORIG-RG",,, kdNr) + + API.api_EMail = Mail.To + API.api_EMailCC = Mail.CC + API.api_EMailBCC = IIf(Mail.BCC <> "", Mail.BCC & ";mmdabrechnung@verag.ag", "mmdabrechnung@verag.ag") + API.api_EMailSubject = Mail.Subject + API.api_EMailText = Mail.HTMLBody + API.api_EMailAttCnt = Mail.Attachments.Count + + If Mail IsNot Nothing Then + + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(API.api_EMail, API.api_EMailSubject, API.api_EMailText, "mmdabrechnung@verag.ag", False, False, API.api_EMailCC, API.api_EMailBCC, pdflist,, "mmdabrechnung@verag.ag") Then + API.UPDTAE_OK() + + Else + API.UPDTAE_ERR() + + End If + + End If + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Me.Cursor = Cursors.Default + End Try + + End If + + End Sub + Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click Me.Cursor = Cursors.WaitCursor cProgramFunctions.genExcelFromDGV(dgvLFRechnung, True) @@ -1042,16 +1185,6 @@ Public Class usrcntlFremdrechnungen SET_SDL(aktLieferant) End Sub - - Private Sub dgvSDL_RELOADED() Handles dgvLFRechnung.RELOADED - ' redRows() - End Sub - - Private Sub usrCntlKartenDaten_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged - ' initDGVWidth() - End Sub - - Dim vval As Integer Private Sub dgvSDL_GotFocus(sender As Object, e As EventArgs) Handles dgvLFRechnung.GotFocus 'dgvSDL.VerticalScrollingOffset = vval From c31f63debfead172fe557b21652f42c6ec65381b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 22 Oct 2025 16:27:43 +0200 Subject: [PATCH 10/11] fremdrechnung, etc. --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/mdm/usrcntlFremdrechnungen.vb | 40 +++++++++++++++---------------- 2 files changed, 22 insertions(+), 22 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 7e124f05..ed4ca78c 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index 5ada310d..fd155e2f 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -937,38 +937,38 @@ Public Class usrcntlFremdrechnungen If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Exit For 'abbruchbedingung - Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces, False, True) + Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True) 'ORIGINAL-RECHNUNG senden wenn: If onlyRelevantInvioces Then '1. wenn die Rechnung in dem Land in dem er ansässig ist ausgestellt wurde (rumän. Kunde – Rechnung ausgestellt in Rumänien = z.B. IDS in RO getankt…) - If row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True + If Not sendÍnvoice AndAlso row.Cells("Land").Value <> "" AndAlso landKZiso2 = row.Cells("Land").Value Then sendÍnvoice = True '2. wenn die Rechnung die MWST-SUMME 0 aufweist!!! If Not sendÍnvoice AndAlso row.Cells("MWSt").Value = 0 Then sendÍnvoice = True - '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST - If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then - Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'") - Dim dtkeineMWST_ohneContraint As New DataTable - If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable() - If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True + '3. Rechnungen der Länder in denen der Kunde keine MWST erstattet bekommt -> dtkeineMWST + If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtkeineMWST.Rows.Count > 0 Then + Dim rows() As DataRow = dtkeineMWST.Select("Lieferant <> 'IDS' AND Land = '" & landKZiso2 & "' and Erstattungsland = '" & row.Cells("Land").Value & "'") + Dim dtkeineMWST_ohneContraint As New DataTable + If rows.Length > 0 Then dtkeineMWST_ohneContraint = rows.CopyToDataTable() + If dtkeineMWST_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True + End If + + '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt + + If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then + Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'") + Dim dtKundeMWSTTemp_ohneContraint As New DataTable + If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable() + If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True + End If + End If - '4. Rechnungen der Länder, in denen der Kunde selber MWST beantragt - If Not sendÍnvoice AndAlso landKZiso2 <> "" AndAlso dtKundeMWSTTemp.Rows.Count > 0 Then - Dim rows() As DataRow = dtKundeMWSTTemp.Select("LandKz = '" & row.Cells("Land").Value & "'") - Dim dtKundeMWSTTemp_ohneContraint As New DataTable - If rows.Length > 0 Then dtKundeMWSTTemp_ohneContraint = rows.CopyToDataTable() - If dtKundeMWSTTemp_ohneContraint.Rows.Count > 0 Then sendÍnvoice = True - End If - - End If - - - If Lieferant = "VERAG" Then + If Lieferant = "VERAG" Then 'VERAG IGNORIEREN 'Dim ReDat = row.Cells("Rechnungsdatum").Value From 0cf0691ff8f8b70dbd31bb16776504e1c288cd78 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 22 Oct 2025 16:36:16 +0200 Subject: [PATCH 11/11] fremdrechnungen, etc. --- SDL/mdm/usrcntlFremdrechnungen.vb | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index fd155e2f..8b49b8a9 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.vb @@ -920,7 +920,7 @@ Public Class usrcntlFremdrechnungen TextHTMLtable &= "" - TextHTMLtable &= "" + TextHTMLtable &= "" Dim pdflist As New List(Of String) @@ -935,7 +935,7 @@ Public Class usrcntlFremdrechnungen Lieferant = aktLieferant End If - If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Exit For 'abbruchbedingung + If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Continue For 'abbruchbedingung -> nächste Zeile Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True) @@ -993,7 +993,7 @@ Public Class usrcntlFremdrechnungen TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" - TextHTMLtable &= "" + @@ -1002,8 +1002,14 @@ Public Class usrcntlFremdrechnungen If daId > 0 Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) pdflist.Add(DS.GET_TOP1_PATH()) + TextHTMLtable &= "" + Else + TextHTMLtable &= "" End If + + TextHTMLtable &= "" + Next @@ -1014,14 +1020,18 @@ Public Class usrcntlFremdrechnungen TextHTMLtable &= "" TextHTMLtable &= "" TextHTMLtable &= "" - TextHTMLtable &= "" Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value) If daId > 0 Then Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) pdflist.Add(DS.GET_TOP1_PATH()) + TextHTMLtable &= "" + Else + TextHTMLtable &= "" End If + TextHTMLtable &= "" + End If End If
SupplierCountryDate
SupplierCountryDateFilename
" & Lieferant & "" & r.Item("Land") & "" & r.Item("Rechnungsdatum") & "
" & DS.da_name & "-
" & Lieferant & "" & row.Cells("Land").Value & "" & row.Cells("Rechnungsdatum").Value & "
" & DS.da_name & "-