Korrekturen, div.

SDL/Fakturierung/frmRechnungenSuche.vb

@@ -225,6 +225,8 @@ Public Class frmRechnungenSuche
         kdtxtEmpfaenger.initKdBox(Me, txtEmpfaengerKdnr) 'initKdEmpfaenger()
         kdtxtAuftraggeber.initKdBox(Me, txtAuftraggeberKdnr) 'initKdAuftraggeber()
         kdtxtAvisierer.initKdBox(Me, txtAvisiererKdNr) 'initKdAuftraggeber()
+        kdtxtRechnungAn.initKdBox(Me, txtRechnungAnKdNr) 'initKdAuftraggeber()
+        KdFrachtfuehrer.initKdBox(Me, KdFrachtfuehrerKdnr) 'initKdAuftraggeber()
 
 
         cboFirma.fillWithSQL(" SELECT [Firma_ID],[Firma_Bez] FROM [tblFirma] order by Firma_ID ", True, "FMZOLL", True)

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.7.5")>
+<Assembly: AssemblyVersion("1.3.7.6")>
-<Assembly: AssemblyFileVersion("1.3.7.5")>
+<Assembly: AssemblyFileVersion("1.3.7.6")>

SDL/kunden/Berichte/rptKundeUebersicht.Designer.vb

@@ -69,6 +69,7 @@ Partial Public Class rptKundeUebersicht
         Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
         Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
         Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
+        Me.SubReport3 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
         CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -120,7 +121,7 @@ Partial Public Class rptKundeUebersicht
         '
         Me.picVERAG.Height = 0.4169292!
         Me.picVERAG.HyperLink = Nothing
-        Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
+        Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
         Me.picVERAG.Left = 5.28189!
         Me.picVERAG.Name = "picVERAG"
         Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -140,8 +141,8 @@ Partial Public Class rptKundeUebersicht
         '
         'Detail
         '
-        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.txtKunde, Me.txtTel, Me.picTel, Me.txtFax, Me.Picture1, Me.txtEMail, Me.Picture2, Me.txtAnsprechpartner, Me.Picture3, Me.txtKdNr, Me.Label1, Me.Label2, Me.subBonitaetsverlauf, Me.Label3, Me.Label4, Me.Label6, Me.Label9, Me.txtBesonderheiten, Me.subOffert, Me.Label10, Me.txtZahlungsziel, Me.txtKundeSeit, Me.Label13, Me.txtSachbearbeiterZOLL, Me.txtSachbearbeiterQS, Me.Line, Me.Line1, Me.Line2, Me.Label7, Me.lblSVS, Me.Label12, Me.lblKreditaufwendungen, Me.Label15, Me.lblVorlageprovision, Me.Label17, Me.subRptLeistungen, Me.Label8, Me.lblAbrechnungsart, Me.Label14, Me.SubReport1, Me.SubReport2})
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.txtKunde, Me.txtTel, Me.picTel, Me.txtFax, Me.Picture1, Me.txtEMail, Me.Picture2, Me.txtAnsprechpartner, Me.Picture3, Me.txtKdNr, Me.Label1, Me.Label2, Me.subBonitaetsverlauf, Me.Label3, Me.Label4, Me.Label6, Me.Label9, Me.txtBesonderheiten, Me.subOffert, Me.Label10, Me.txtZahlungsziel, Me.txtKundeSeit, Me.Label13, Me.txtSachbearbeiterZOLL, Me.txtSachbearbeiterQS, Me.Line, Me.Line1, Me.Line2, Me.Label7, Me.lblSVS, Me.Label12, Me.lblKreditaufwendungen, Me.Label15, Me.lblVorlageprovision, Me.Label17, Me.subRptLeistungen, Me.Label8, Me.lblAbrechnungsart, Me.Label14, Me.SubReport1, Me.SubReport2, Me.SubReport3})
-        Me.Detail.Height = 6.456694!
+        Me.Detail.Height = 6.675444!
         Me.Detail.Name = "Detail"
         '
         'Label5
@@ -178,7 +179,7 @@ Partial Public Class rptKundeUebersicht
         'picTel
         '
         Me.picTel.Height = 0.1181102!
-        Me.picTel.ImageData = CType(resources.GetObject("picTel.ImageData"), System.IO.Stream)
+        Me.picTel.ImageBase64String = resources.GetString("picTel.ImageBase64String")
         Me.picTel.Left = 4.45!
         Me.picTel.Name = "picTel"
         Me.picTel.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -198,7 +199,7 @@ Partial Public Class rptKundeUebersicht
         '
         Me.Picture1.Height = 0.1181103!
         Me.Picture1.HyperLink = Nothing
-        Me.Picture1.ImageData = CType(resources.GetObject("Picture1.ImageData"), System.IO.Stream)
+        Me.Picture1.ImageBase64String = resources.GetString("Picture1.ImageBase64String")
         Me.Picture1.Left = 4.45!
         Me.Picture1.Name = "Picture1"
         Me.Picture1.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -218,7 +219,7 @@ Partial Public Class rptKundeUebersicht
         '
         Me.Picture2.Height = 0.1181103!
         Me.Picture2.HyperLink = Nothing
-        Me.Picture2.ImageData = CType(resources.GetObject("Picture2.ImageData"), System.IO.Stream)
+        Me.Picture2.ImageBase64String = resources.GetString("Picture2.ImageBase64String")
         Me.Picture2.Left = 4.45!
         Me.Picture2.Name = "Picture2"
         Me.Picture2.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -238,7 +239,7 @@ Partial Public Class rptKundeUebersicht
         '
         Me.Picture3.Height = 0.1181103!
         Me.Picture3.HyperLink = Nothing
-        Me.Picture3.ImageData = CType(resources.GetObject("Picture3.ImageData"), System.IO.Stream)
+        Me.Picture3.ImageBase64String = resources.GetString("Picture3.ImageBase64String")
         Me.Picture3.Left = 4.45!
         Me.Picture3.Name = "Picture3"
         Me.Picture3.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
@@ -537,7 +538,7 @@ Partial Public Class rptKundeUebersicht
         'subRptLeistungen
         '
         Me.subRptLeistungen.CloseBorder = False
-        Me.subRptLeistungen.Height = 0.7964567!
+        Me.subRptLeistungen.Height = 0.3275589!
         Me.subRptLeistungen.Left = 0!
         Me.subRptLeistungen.Name = "subRptLeistungen"
         Me.subRptLeistungen.Report = Nothing
@@ -652,15 +653,28 @@ Partial Public Class rptKundeUebersicht
         Me.lblDat.Top = 0.08622044!
         Me.lblDat.Width = 2.649606!
         '
+        'SubReport3
+        '
+        Me.SubReport3.CloseBorder = False
+        Me.SubReport3.Height = 0.2129921!
+        Me.SubReport3.Left = 0!
+        Me.SubReport3.Name = "SubReport3"
+        Me.SubReport3.Report = Nothing
+        Me.SubReport3.ReportName = "Leistungen"
+        Me.SubReport3.Top = 6.111418!
+        Me.SubReport3.Width = 7.480313!
+        '
         'rptKundeUebersicht
         '
-        Me.MasterReport = False
+        Me.PageSettings.DefaultPaperSize = False
         Me.PageSettings.Margins.Bottom = 0.3937008!
         Me.PageSettings.Margins.Left = 0.3937008!
-        Me.PageSettings.Margins.Right = 0.3937008!
+        Me.PageSettings.Margins.Right = 0.3543307!
         Me.PageSettings.Margins.Top = 0.3937008!
-        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
-        Me.PageSettings.PaperWidth = 8.5!
+        Me.PageSettings.PaperHeight = 11.69291!
+        Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
+        Me.PageSettings.PaperWidth = 8.267716!
         Me.PrintWidth = 7.480316!
         Me.Sections.Add(Me.PageHeader)
         Me.Sections.Add(Me.Detail)
@@ -761,4 +775,5 @@ Partial Public Class rptKundeUebersicht
     Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
     Private WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
+    Private WithEvents SubReport3 As GrapeCity.ActiveReports.SectionReportModel.SubReport
 End Class

SDL/kunden/Berichte/subRptAbfertigungen.vb

@@ -31,6 +31,8 @@ Public Class subRptAbfertigungen
         Dim d_von As Date = CDate(Now.AddMonths(-1).ToString("01.MM.yyyy"))
         Dim d_bis As Date = d_von.AddMonths(1).AddDays(-1)
 
+        d_von = d_von.AddYears(-1).AddMonths(1) ' VON 1 JAHR zur<75>ck -> Auswertungszeitraum 1 Jahr!
+
         Dim sqlStr = "SELECT cast([Speditionsbuch].Abfertigungsart as varchar(3)) + ' - ' + aa.Abfertigungsbezeichnung as Abfertigungsart, count (*) as Anzahl"
         sqlStr &= " FROM [Speditionsbuch] INNER JOIN Abfertigungsarten AA ON AA.Abfertigungsart=Speditionsbuch.Abfertigungsart "
         sqlStr &= " where (Empf<70>ngerKundenNr =  '" & AbfKostKdnr & "' OR AbsenderKundenNr =  '" & AbfKostKdnr & "' OR AvisiererKundenNr = '" & AbfKostKdnr & "') and Abfertigungsdatum between '" & d_von & "' and '" & d_bis & "' "

SDL/kunden/Berichte/subRptAbfertigungsanzahlJahre.Designer.vb

@@ -0,0 +1,188 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class subRptAbfertigungsanzahlJahre
+    Inherits GrapeCity.ActiveReports.SectionReport
+
+    'Form overrides dispose to clean up the component list.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'NOTE: The following procedure is required by the ActiveReports Designer
+    'It can be modified using the ActiveReports Designer.
+    'Do not modify it using the code editor.
+    Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.txtJahrValue6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtJahrValue5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtJahrValue4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtJahrValue3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtJahrValue2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtJahrValue1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.txtLeistungsBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
+        Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        CType(Me.txtJahrValue6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtJahrValue5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtJahrValue4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtJahrValue3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtJahrValue2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtJahrValue1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape, Me.txtJahrValue6, Me.txtJahrValue5, Me.txtJahrValue4, Me.txtJahrValue3, Me.txtJahrValue2, Me.txtJahrValue1, Me.txtLeistungsBez, Me.Line})
+        Me.Detail.Height = 0.168504!
+        Me.Detail.Name = "Detail"
+        '
+        'txtJahrValue6
+        '
+        Me.txtJahrValue6.CanGrow = False
+        Me.txtJahrValue6.Height = 0.1685039!
+        Me.txtJahrValue6.Left = 6.579528!
+        Me.txtJahrValue6.Name = "txtJahrValue6"
+        Me.txtJahrValue6.Style = "text-align: right"
+        Me.txtJahrValue6.Text = "1.000.000"
+        Me.txtJahrValue6.Top = 0!
+        Me.txtJahrValue6.Width = 0.6889764!
+        '
+        'txtJahrValue5
+        '
+        Me.txtJahrValue5.CanGrow = False
+        Me.txtJahrValue5.Height = 0.1685039!
+        Me.txtJahrValue5.Left = 5.890552!
+        Me.txtJahrValue5.Name = "txtJahrValue5"
+        Me.txtJahrValue5.Style = "text-align: right"
+        Me.txtJahrValue5.Text = "1.000.000"
+        Me.txtJahrValue5.Top = 0!
+        Me.txtJahrValue5.Width = 0.6889764!
+        '
+        'txtJahrValue4
+        '
+        Me.txtJahrValue4.CanGrow = False
+        Me.txtJahrValue4.Height = 0.1685039!
+        Me.txtJahrValue4.Left = 5.201575!
+        Me.txtJahrValue4.Name = "txtJahrValue4"
+        Me.txtJahrValue4.Style = "text-align: right"
+        Me.txtJahrValue4.Text = "1.000.000"
+        Me.txtJahrValue4.Top = 0!
+        Me.txtJahrValue4.Width = 0.6889764!
+        '
+        'txtJahrValue3
+        '
+        Me.txtJahrValue3.CanGrow = False
+        Me.txtJahrValue3.Height = 0.1685039!
+        Me.txtJahrValue3.Left = 4.512599!
+        Me.txtJahrValue3.Name = "txtJahrValue3"
+        Me.txtJahrValue3.Style = "text-align: right"
+        Me.txtJahrValue3.Text = "1.000.000"
+        Me.txtJahrValue3.Top = 0!
+        Me.txtJahrValue3.Width = 0.6889764!
+        '
+        'txtJahrValue2
+        '
+        Me.txtJahrValue2.CanGrow = False
+        Me.txtJahrValue2.Height = 0.1685039!
+        Me.txtJahrValue2.Left = 3.823622!
+        Me.txtJahrValue2.Name = "txtJahrValue2"
+        Me.txtJahrValue2.Style = "text-align: right"
+        Me.txtJahrValue2.Text = "1.000.000"
+        Me.txtJahrValue2.Top = 0!
+        Me.txtJahrValue2.Width = 0.6889764!
+        '
+        'txtJahrValue1
+        '
+        Me.txtJahrValue1.CanGrow = False
+        Me.txtJahrValue1.Height = 0.1685039!
+        Me.txtJahrValue1.Left = 3.134646!
+        Me.txtJahrValue1.Name = "txtJahrValue1"
+        Me.txtJahrValue1.Style = "text-align: right"
+        Me.txtJahrValue1.Text = "1.000.000"
+        Me.txtJahrValue1.Top = 0!
+        Me.txtJahrValue1.Width = 0.6889764!
+        '
+        'txtLeistungsBez
+        '
+        Me.txtLeistungsBez.CanGrow = False
+        Me.txtLeistungsBez.Height = 0.168504!
+        Me.txtLeistungsBez.Left = 0!
+        Me.txtLeistungsBez.Name = "txtLeistungsBez"
+        Me.txtLeistungsBez.Text = "Abfertigungsanzahl:"
+        Me.txtLeistungsBez.Top = 0!
+        Me.txtLeistungsBez.Width = 2.85315!
+        '
+        'Shape
+        '
+        Me.Shape.Height = 0.1685039!
+        Me.Shape.Left = 0!
+        Me.Shape.Name = "Shape"
+        Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
+        Me.Shape.Top = 0!
+        Me.Shape.Width = 7.341337!
+        '
+        'Line
+        '
+        Me.Line.Height = 0.168504!
+        Me.Line.Left = 3.134646!
+        Me.Line.LineWeight = 1.0!
+        Me.Line.Name = "Line"
+        Me.Line.Top = 0!
+        Me.Line.Width = 0!
+        Me.Line.X1 = 3.134646!
+        Me.Line.X2 = 3.134646!
+        Me.Line.Y1 = 0!
+        Me.Line.Y2 = 0.168504!
+        '
+        'GroupHeader2
+        '
+        Me.GroupHeader2.Height = 0!
+        Me.GroupHeader2.Name = "GroupHeader2"
+        '
+        'GroupFooter2
+        '
+        Me.GroupFooter2.Height = 0!
+        Me.GroupFooter2.Name = "GroupFooter2"
+        '
+        'subRptAbfertigungsanzahlJahre
+        '
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 7.480315!
+        Me.Sections.Add(Me.GroupHeader2)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter2)
+        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.txtJahrValue6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtJahrValue5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtJahrValue4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtJahrValue3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtJahrValue2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtJahrValue1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.txtLeistungsBez, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents txtLeistungsBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtJahrValue1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtJahrValue2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtJahrValue3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtJahrValue4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtJahrValue5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents txtJahrValue6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
+    Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
+End Class

SDL/kunden/Berichte/subRptAbfertigungsanzahlJahre.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+  <metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>0, 0</value>
+  </metadata>
+</root>

SDL/kunden/Berichte/subRptAbfertigungsanzahlJahre.vb

@@ -0,0 +1,102 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subRptAbfertigungsanzahlJahre
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim Kdnr As Integer
+    Dim [Firma_ID] = "1"
+
+    Sub New(Kdnr As Integer, Optional Firma_ID As String = "1")
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me.Kdnr = Kdnr
+        Me.Firma_ID = Firma_ID
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        If Me.DataSource IsNot Nothing AndAlso DirectCast(Me.DataSource, DataTable).Rows.Count > 0 AndAlso Me.Fields IsNot Nothing Then
+            If Me.Fields.Item("Leistungsnummer") IsNot Nothing AndAlso Me.Fields.Item("Leistungsnummer").Value IsNot Nothing Then txtLeistungsNr.Text = Me.Fields.Item("Leistungsnummer").Value.ToString
+            If Me.Fields.Item("LeistungsBez") IsNot Nothing AndAlso Me.Fields.Item("LeistungsBez").Value IsNot Nothing Then txtLeistungsBez.Text = Me.Fields.Item("LeistungsBez").Value.ToString
+
+            Dim c = DirectCast(Me.DataSource, DataTable).Columns
+
+            If c.Count > 2 Then txtJahrValue1.Text = getDbNeullDbl(Me.Fields.Item(2).Value)
+            If c.Count > 3 Then txtJahrValue2.Text = getDbNeullDbl(Me.Fields.Item(3).Value)
+            If c.Count > 4 Then txtJahrValue3.Text = getDbNeullDbl(Me.Fields.Item(4).Value)
+            If c.Count > 5 Then txtJahrValue4.Text = getDbNeullDbl(Me.Fields.Item(5).Value)
+            If c.Count > 6 Then txtJahrValue5.Text = getDbNeullDbl(Me.Fields.Item(6).Value)
+            If c.Count > 7 Then txtJahrValue6.Text = getDbNeullDbl(Me.Fields.Item(7).Value)
+
+        End If
+
+
+    End Sub
+
+    Function getDbNeullDbl(v) As String
+        If v Is Nothing Then Return ""
+        If v Is DBNull.Value Then Return ""
+        If Not IsNumeric(v) Then Return ""
+
+        Return CDbl(v).ToString("N0")
+    End Function
+    Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
+        If Kdnr <= 0 Then Exit Sub
+
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX" : [Firma_ID] = "20"
+            Case "ATILLA" : [Firma_ID] = "7"
+            Case Else
+        End Select
+        Dim sqlStr = ""
+
+        sqlStr &= "  SELECT *"
+        sqlStr &= " FROM ( SELECT Leistungsnummer, LeistungsBez,YEAR(Abfertigungsdatum ) [Year]"
+        sqlStr &= " , ([tblTrdinProduct].[SteuerpflichtigerBetragLokal]+[tblTrdinProduct].[SteuerfreierBetragLokal]  ) AS [Der Wert]"
+        sqlStr &= " FROM tblTrdinInvoice INNER JOIN (tblTrdinProduct LEFT JOIN Leistungen ON Leistungsnummer = LeistungsNr) ON (tblTrdinInvoice.Rechnungsnummer = tblTrdinProduct.Rechnungsnummer) AND (tblTrdinInvoice.Rechnungsdatum = tblTrdinProduct.Rechnungsdatum)"
+        sqlStr &= " WHERE RechnungsKundenNr = " & Kdnr & ""
+        sqlStr &= " AND Firma_ID IN (" & Firma_ID & ") "
+        sqlStr &= " ) AS Rg"
+        sqlStr &= " PIVOT( SUM([Der Wert]) FOR [Year] IN (" & getJahrString() & ")) AS MNamePivot"
+        sqlStr &= " order by Leistungsnummer"
+
+        Me.DataSource = SQL.loadDgvBySql(sqlStr, "FMZOLL")
+
+        Me.txtHeaderJahr1.Visible = False
+        Me.txtHeaderJahr2.Visible = False
+        Me.txtHeaderJahr3.Visible = False
+        Me.txtHeaderJahr4.Visible = False
+        Me.txtHeaderJahr5.Visible = False
+        Me.txtHeaderJahr6.Visible = False
+
+        If Me.DataSource IsNot Nothing Then
+            Dim c = DirectCast(Me.DataSource, DataTable).Columns
+
+            If c.Count > 2 Then txtHeaderJahr1.Text = c(2).ColumnName : Me.txtHeaderJahr1.Visible = True : Me.txtJahrValue1.Visible = True
+            If c.Count > 3 Then txtHeaderJahr2.Text = c(3).ColumnName : Me.txtHeaderJahr2.Visible = True : Me.txtJahrValue2.Visible = True
+            If c.Count > 4 Then txtHeaderJahr3.Text = c(4).ColumnName : Me.txtHeaderJahr3.Visible = True : Me.txtJahrValue3.Visible = True
+            If c.Count > 5 Then txtHeaderJahr4.Text = c(5).ColumnName : Me.txtHeaderJahr4.Visible = True : Me.txtJahrValue4.Visible = True
+            If c.Count > 6 Then txtHeaderJahr5.Text = c(6).ColumnName : Me.txtHeaderJahr5.Visible = True : Me.txtJahrValue5.Visible = True
+            If c.Count > 7 Then txtHeaderJahr6.Text = c(7).ColumnName : Me.txtHeaderJahr6.Visible = True : Me.txtJahrValue6.Visible = True
+
+        End If
+
+    End Sub
+
+    Private Sub GroupHeader1_Format(sender As Object, e As EventArgs)
+        ' Dim OffertenNr = Me.Fields.Item("OffertenNr").Value
+        '  If OffertenNr IsNot Nothing Then
+        'lbl1Zollabfertigung.Text = OffertenNr & " - " & SQL.getValueTxtBySql("SELECT [OffertenBez]  FROM [Offertenstamm] WHERE OffertenNr=" & OffertenNr, "FMZOLL")
+        '  End If
+    End Sub
+
+    Function getJahrString() As String
+        getJahrString = ""
+        For j = Now.Year To 2010 Step -1
+            getJahrString &= "[" & j & "],"
+        Next
+        getJahrString = getJahrString.Substring(0, getJahrString.Length - 1)
+    End Function
+End Class

SDL/kunden/frmOffertenBearbeiten.vb

@@ -28,7 +28,7 @@
         Select Case FIRMA_TMP
             Case "IMEX"
                 ' where = " WHERE [Offertenstamm].[OffertenNr] IN (1,2,3,4,5,6,7,8,9,10,26,27,29,50,51)"
-                where = "  [Offertenstamm].[OffertenNr] IN (SELECT tblAbfertigungsartOffertenstamm.ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr=5501 ) "
+                where = " WHERE  [Offertenstamm].[OffertenNr] IN (SELECT ao_OffertenNr FROM tblAbfertigungsartenFiliale inner join tblAbfertigungsartOffertenstamm on ao_Abfertigungsart=Abfertigungsart WHERE FilialenNr=5501 ) "
         End Select
         Dim SQLsrt = " SELECT (select case when COUNT(*)>0 then 1 else 0 end FROM Offerten where  KundenNr=" & kdnr & " and  [Offerten].[OffertenNr]=[Offertenstamm].[OffertenNr]) as vorhanden," &
                     " [Offertenstamm].[OffertenNr],[OffertenBez] FROM Offertenstamm  " & where & " order by OffertenNr"

SDL/mdm/frmMDMDatenverarbetiung.Designer.vb

@@ -67,6 +67,7 @@ Partial Class frmMDMDatenverarbetiung
         Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbx = New System.Windows.Forms.CheckBox()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.cbxKopie = New System.Windows.Forms.CheckBox()
         Me.Label43 = New System.Windows.Forms.Label()
         Me.datPloseAnhang = New System.Windows.Forms.DateTimePicker()
         Me.btnREerstellen = New System.Windows.Forms.Button()
@@ -82,7 +83,6 @@ Partial Class frmMDMDatenverarbetiung
         Me.Button2 = New System.Windows.Forms.Button()
         Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.cbxKopie = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         Me.Panel5.SuspendLayout()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -609,6 +609,19 @@ Partial Class frmMDMDatenverarbetiung
         Me.Panel2.Size = New System.Drawing.Size(301, 114)
         Me.Panel2.TabIndex = 41
         '
+        'cbxKopie
+        '
+        Me.cbxKopie.AutoSize = True
+        Me.cbxKopie.Checked = True
+        Me.cbxKopie.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxKopie.Location = New System.Drawing.Point(198, 16)
+        Me.cbxKopie.Name = "cbxKopie"
+        Me.cbxKopie.Size = New System.Drawing.Size(92, 17)
+        Me.cbxKopie.TabIndex = 53
+        Me.cbxKopie.Text = "IDS RE Kopie"
+        Me.cbxKopie.UseVisualStyleBackColor = True
+        Me.cbxKopie.Visible = False
+        '
         'Label43
         '
         Me.Label43.AutoSize = True
@@ -782,19 +795,6 @@ Partial Class frmMDMDatenverarbetiung
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
         Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
         '
-        'cbxKopie
-        '
-        Me.cbxKopie.AutoSize = True
-        Me.cbxKopie.Checked = True
-        Me.cbxKopie.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxKopie.Location = New System.Drawing.Point(198, 16)
-        Me.cbxKopie.Name = "cbxKopie"
-        Me.cbxKopie.Size = New System.Drawing.Size(92, 17)
-        Me.cbxKopie.TabIndex = 53
-        Me.cbxKopie.Text = "IDS RE Kopie"
-        Me.cbxKopie.UseVisualStyleBackColor = True
-        Me.cbxKopie.Visible = False
-        '
         'frmMDMDatenverarbetiung
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -2784,7 +2784,10 @@ Public Class frmMDMDatenverarbetiung
                     sqlGroup = " CASE WHEN tblIDSTransactionsNew.OutletCode BETWEEN 4473 AND 4474 THEN 'Austria Suben' ELSE tblIDSTransactionsNew.OutletCountry END"
             End Select
 
-            sqlstr &= "  SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], " & sqlSelect & ", tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz, Sum(tblIDSTransactionsNew.[TransactionVolume]) AS Liter, Sum(tblIDSTransactionsNew.[TotalNetAmount]) AS Nettobetrag, Sum(tblIDSTransactionsNew.[VATAmount]) AS Steuerbetrag, Sum([TotalNetAmount])/Sum([TransactionVolume]) AS NettopreisProLiter, Sum(tblIDSTransactionsNew.Rabattbetrag) AS [SummevonRabattbetrag], Sum([Rabattbetrag])/Sum([TransactionVolume]) AS RabattbetragProLiter
+            sqlstr &= "  SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], " & sqlSelect & ", tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz, Sum(tblIDSTransactionsNew.[TransactionVolume]) AS Liter, Sum(tblIDSTransactionsNew.[TotalNetAmount]) AS Nettobetrag, Sum(tblIDSTransactionsNew.[VATAmount]) AS Steuerbetrag, 
+                                case when Sum([TransactionVolume]) =0 THEN 0 ELSE Sum([TotalNetAmount])/Sum([TransactionVolume]) END  AS NettopreisProLiter, 
+                                Sum(tblIDSTransactionsNew.Rabattbetrag) AS [SummevonRabattbetrag], 
+                                case when Sum([TransactionVolume]) =0 THEN 0 ELSE Sum([Rabattbetrag])/Sum([TransactionVolume]) END  AS RabattbetragProLiter
                         FROM ((tblIDSTransactionsNew INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode) INNER JOIN tbl_IDS_Produkte ON tblIDSTransactionsNew.[ProductTypeCode] = tbl_IDS_Produkte.ProductTypeCode) INNER JOIN Adressen ON tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr
                         WHERE cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.KdNrVERAG = " & KdNr & sqlWhere & "
                         GROUP BY Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], " & sqlGroup & ", tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz;

SDL/seriendruck/usrCntlFakturierung.resx

@@ -120,122 +120,122 @@
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="PictureBox6.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="PictureBox5.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="PictureBox4.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="PictureBox3.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
 </value>
   </data>
   <data name="PictureBox2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABGdJREFUSEtj
+        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj
-        YKAyYOFk4Za0knSzzrXOd8x2jJeUlGRgZ2dHV0YFwMjAKKInomlUYJRl32e/wn+Z/0Gf2T4L9eP1rQRV
+        oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB
-        BQWZ2JnQdVAGBNQEFI2KjHLCj4Qfjz0f+zX+Uvz/iKMR9z2XeU7USdNxENYVFmZkYWRE10c2sGqyKgg/
+        QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC
-        FH4s7mLcPxAGWQhjR5+Pnm5Wa+bAxs/Ggq6PbODQ77Aw5mzMO5BF6DjuYtzDoB1BU5ynO9uh6yMZcIpy
+        j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ
-        Sin5KsX5rva9gMWiP3EX4354LPDYb9VkVWpSZmKIrp8kwMrDyifnLBcUtCPoYfSp6G9oln2PPh39InRf
+        VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox
-        6EXVYNUYLjEuCXT9JAMFT4UI5+nO22POxPyMuxD3F83CK/4b/CdoJ2hb8CnwiTIyM5Iff8yczNxSVlJu
+        XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf
-        Nm02i8P2h72EJRKwRRfifsScibnts9Kn0yjfyIZfkZ+bhZOFGd0MkgC7ALuIXppeDXq8xZ6L/Rl+MPyR
+        9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe
-        2xy3iXpperai+qLUyfG4LIw8GvnGY57HVnFDcTk2bjZ0beQBHikeeWV/5QTvpd4nI49FfoRZFnM+5rdd
+        VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh
-        j91KEV0REzY+Ng5GZgJ5nJmDmZtPgU9dwUPBUsZeRoNLgosNXRO7ILsIOKFMdd4adTzqE7Lv/Pf6b9JM
+        42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A
-        1wxB0YALgFIQrxyvmlacVrHfer/prnNccxW9FWXZBdhZGZCKQEENQUOzKrMpaKnxR9zFuOeWMyy9JDwl
+        pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin
-        WJHNxQk4xTilVAJVkkP2hjyLPhP9NvJE5C7PJZ7J4ibikqw8rPDkjMPCazEXYorkveWVWHiISPnMHMxc
+        lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS
-        qsGqKe7z3Q+Cy75LcSBDXkQcjdjuMMEhStJKUo6JlYmVlZdVQD9Lv8F3je9FeKq8EHvZf5N/j26Grg6P
+        d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp
-        LA8PutlYgYKbQqjzVOdtyK6GuvxD7IXYlea15v5ixmISXBJcsm5z3PZC5X7FXYx7Grg9cKpZlZkzuxA7
+        hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ
-        GxMrE4FUAgXIpTuahWDxmPMx011mudiiWQhyzBKzSjMvQQ1BXnQz8QJpG2lPZX/lKMs6y464i3H34y/F
+        LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs
-        g+syJIsfhh8KPw6yLPxQ+GuQWOSRyNc27Tbd0rbSZizcZJQibHxsvBImEsamFaaVrjNdNwXvDH6A7mMY
+        8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ
-        BlnqNtttj5yrXDAosaGbRTKQdZYNsOu2WxZ9MvpD3IW43/GX4hHl5MW4n75rfI/pZ+kXsouwC6HrJQuw
+        NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P
-        cLPwKngqeLvPc18adTLqRfyl+F9IFt73We0zQTdd14BdkIotI25JbgkZBxkHtVC1JLc5brtjz8f+jL0Q
+        ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x
-        +z1oZ9B6syqzaGEdYX5mdmYqt4qgQDVINcVjocfByBORr63brCulbaW10NVQHYibiNsHbQ+6L24q7oAu
+        WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
-        RxPAxs8mJG4iDmp1USehIAMuLi4GeXl5NlNTU347OzsRe3t7UWRsZ2cnbG5uzicrK8vKxcVFXOmCD0hK
+        nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
-        SjJ6enoK1NXVqU6aNMlg2rRpxsh48uTJus3NzYqurq68EhISJGd6ADkzAttxL7feAAAAAElFTkSuQmCC
+        CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
 </value>
   </data>
 </root>

SDL/seriendruck/usrCntlFakturierung.vb

@@ -1856,4 +1856,5 @@ Public Class usrcntlFakturierung
         Return False
     End Function
 
+
 End Class

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -880,6 +880,7 @@ Public Class SQL
             conn.Close()
             Return True
         Catch ex As Exception
+            '  MsgBox("ERR!")
             If showErr Then VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, , , , , sql)
         End Try
         Return False

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -273,6 +273,8 @@ Public Class cIDS
                     .avpriceexclVAT = isleernothing((currentRow(12)))
                     .VRNumber = isleernothing((currentRow(13)))
                     .OBONumber = isleernothing((currentRow(14)))
+
+                    Console.WriteLine("IDS: " & isleernothing((currentRow(1))) & " - " & lngRecordCount & " - " & isleernothing((currentRow(10))))
                     .SAVE()
                 End With
             End If