SDL Brief, MDM BU Soll/Haben, Beleg-Bugfix

SDL/Classes/cRKSV.vb

@@ -119,7 +119,7 @@ Public Class cRKSV
                                                                   " WHERE  [Mandant]='" & PERSONAL.Mandant & "'  AND [Niederlassung]='" & PERSONAL.Niederlassung & "'  AND [Benutzer]='" & PERSONAL.ID & "'  AND [Geschäftsjahr]='" & cRKSV.getGJ_FIRMA(BELEG.BelegDat, Firma) & "'  AND [BelegNr] ='" & BELEG.BelegNr & "'   and Steuer <=0   AND Soll <> 0", "FMZOLL")
 
 
-        If zm Is DBNull.Value Or zm = Nothing Then
+        If zm Is DBNull.Value Or zm Is Nothing Then
             Return "-"
         End If
 

SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb

@@ -67,7 +67,7 @@ Partial Class frmTIR
         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
         Me.Panel2.Location = New System.Drawing.Point(0, 0)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(865, 40)
+        Me.Panel2.Size = New System.Drawing.Size(873, 40)
         Me.Panel2.TabIndex = 1
         '
         'Label3
@@ -145,7 +145,7 @@ Partial Class frmTIR
         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
         Me.Panel3.Location = New System.Drawing.Point(0, 1058)
         Me.Panel3.Name = "Panel3"
-        Me.Panel3.Size = New System.Drawing.Size(865, 69)
+        Me.Panel3.Size = New System.Drawing.Size(873, 69)
         Me.Panel3.TabIndex = 5
         '
         'cboAbriss777
@@ -281,8 +281,9 @@ Partial Class frmTIR
         '
         'Button1
         '
+        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Location = New System.Drawing.Point(745, 14)
+        Me.Button1.Location = New System.Drawing.Point(770, 14)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(98, 48)
         Me.Button1.TabIndex = 3
@@ -301,7 +302,8 @@ Partial Class frmTIR
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(865, 1127)
+        Me.AutoScroll = True
+        Me.ClientSize = New System.Drawing.Size(873, 1127)
         Me.Controls.Add(Me.UsrCntlTIR1)
         Me.Controls.Add(Me.Panel3)
         Me.Controls.Add(Me.Panel2)

SDL/My Project/AssemblyInfo.vb

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

SDL/Reports/MDM/BriefSDl/rptSDLBrief.vb

@@ -58,6 +58,8 @@ Public Class rptSDLBrief
             Case 214 : SubReport.Report = New subrptBriefSDL_PLOSE(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
             Case 215 : SubReport.Report = New subrptBriefSDL_PLOSE_IT(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
             Case 216 : SubReport.Report = New subrptBriefSDL_PLOSE_CZ(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
+            Case 217 : SubReport.Report = New subrptBriefSDL_PLOSE_medpass(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
+            Case 501, 502 : SubReport.Report = New subrptBriefSDL_VERAGCARD(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
             Case Else : MsgBox("F<EFBFBD>r diese Leistung kann kein Bericht erstellt werden!")
         End Select
     End Sub

SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_MEDPASS.Designer.vb

@@ -0,0 +1,194 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class subrptBriefSDL_PLOSE_MEDPASS
+    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()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE_MEDPASS))
+        Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
+        Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
+        Me.Detail.Height = 0.1783464!
+        Me.Detail.Name = "Detail"
+        '
+        'lblKartenNr
+        '
+        Me.lblKartenNr.Height = 0.1586614!
+        Me.lblKartenNr.Left = 1.732284!
+        Me.lblKartenNr.Name = "lblKartenNr"
+        Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
+        Me.lblKartenNr.Text = "Karten-Nr"
+        Me.lblKartenNr.Top = 0.01968504!
+        Me.lblKartenNr.Width = 1.575984!
+        '
+        'lblNr
+        '
+        Me.lblNr.Height = 0.1586614!
+        Me.lblNr.Left = 0.0!
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
+        Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
+        Me.lblNr.Text = "999"
+        Me.lblNr.Top = 0.01968504!
+        Me.lblNr.Width = 0.3543307!
+        '
+        'lblLKWKz
+        '
+        Me.lblLKWKz.Height = 0.1586614!
+        Me.lblLKWKz.Left = 0.3543298!
+        Me.lblLKWKz.Name = "lblLKWKz"
+        Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
+        Me.lblLKWKz.Text = "SD 123 ASD"
+        Me.lblLKWKz.Top = 0.01968512!
+        Me.lblLKWKz.Width = 1.377953!
+        '
+        'lblOBUId
+        '
+        Me.lblOBUId.Height = 0.1586614!
+        Me.lblOBUId.Left = 3.308267!
+        Me.lblOBUId.Name = "lblOBUId"
+        Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
+        Me.lblOBUId.Text = "OBUID"
+        Me.lblOBUId.Top = 0.01968512!
+        Me.lblOBUId.Width = 1.940551!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
+        Me.GroupHeader1.Height = 0.1852909!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.1586614!
+        Me.TextBox5.Left = 1.732284!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.TextBox5.Text = "Karten-Nr"
+        Me.TextBox5.Top = 0.0!
+        Me.TextBox5.Width = 1.575984!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.1586614!
+        Me.TextBox6.Left = 0.0000002384186!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
+        Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.TextBox6.Text = "Nr"
+        Me.TextBox6.Top = 0.00000007450581!
+        Me.TextBox6.Width = 0.3543307!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.1586614!
+        Me.TextBox7.Left = 0.3543308!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
+        Me.TextBox7.Text = "Kennzeichen"
+        Me.TextBox7.Top = 0.00000007450581!
+        Me.TextBox7.Width = 1.377953!
+        '
+        'TextBox11
+        '
+        Me.TextBox11.Height = 0.1586614!
+        Me.TextBox11.Left = 3.308268!
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
+        Me.TextBox11.Text = "OBUID"
+        Me.TextBox11.Top = 0.0!
+        Me.TextBox11.Width = 1.940551!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0.0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'Line2
+        '
+        Me.Line2.Height = 0.0001809001!
+        Me.Line2.Left = 0.0!
+        Me.Line2.LineWeight = 1.0!
+        Me.Line2.Name = "Line2"
+        Me.Line2.Top = 0.1852522!
+        Me.Line2.Width = 6.496063!
+        Me.Line2.X1 = 0.0!
+        Me.Line2.X2 = 6.496063!
+        Me.Line2.Y1 = 0.1854331!
+        Me.Line2.Y2 = 0.1852522!
+        '
+        'subrptBriefSDL_cz
+        '
+        Me.MasterReport = False
+        Me.PageSettings.Margins.Bottom = 0.0!
+        Me.PageSettings.Margins.Left = 0.0!
+        Me.PageSettings.Margins.Right = 0.0!
+        Me.PageSettings.Margins.Top = 0.0!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 6.496063!
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
+End Class

SDL/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_MEDPASS.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/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_MEDPASS.vb

@@ -0,0 +1,45 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptBriefSDL_PLOSE_MEDPASS
+    Public sqlStr = ""
+
+
+    Sub New(sqlStr)
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.sqlStr = sqlStr
+    End Sub
+    Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+
+        Dim kundenSQL As New kundenSQL
+        Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
+
+    End Sub
+
+    Dim dummycount As Integer = 0
+    Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
+
+        dummycount = dummycount + 1
+        lblNr.Text = dummycount
+        lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
+        '  lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
+        '  lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
+        lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
+        lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
+
+
+        'Abwechselnd grauen und wei<65>en Hintergrund
+        If (dummycount Mod 2) = 0 Then
+            Detail.BackColor = Color.White
+        Else
+            Detail.BackColor = Color.FromArgb(250, 250, 250)
+        End If
+    End Sub
+
+
+
+End Class

SDL/Reports/MDM/BriefSDl/subrptBriefSDL_VERAGCARD.Designer.vb

@@ -0,0 +1,194 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Public Class subrptBriefSDL_VERAGCARD
+    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.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
+        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
+        Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
+        CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
+        '
+        'Detail
+        '
+        Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
+        Me.Detail.Height = 0.1783464!
+        Me.Detail.Name = "Detail"
+        '
+        'lblKartenNr
+        '
+        Me.lblKartenNr.Height = 0.1586614!
+        Me.lblKartenNr.Left = 1.732284!
+        Me.lblKartenNr.Name = "lblKartenNr"
+        Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
+        Me.lblKartenNr.Text = "Karten-Nr"
+        Me.lblKartenNr.Top = 0.01968504!
+        Me.lblKartenNr.Width = 1.575984!
+        '
+        'lblNr
+        '
+        Me.lblNr.Height = 0.1586614!
+        Me.lblNr.Left = 0!
+        Me.lblNr.Name = "lblNr"
+        Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
+        Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
+        Me.lblNr.Text = "999"
+        Me.lblNr.Top = 0.01968504!
+        Me.lblNr.Width = 0.3543307!
+        '
+        'lblLKWKz
+        '
+        Me.lblLKWKz.Height = 0.1586614!
+        Me.lblLKWKz.Left = 0.3543298!
+        Me.lblLKWKz.Name = "lblLKWKz"
+        Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
+        Me.lblLKWKz.Text = "SD 123 ASD"
+        Me.lblLKWKz.Top = 0.01968512!
+        Me.lblLKWKz.Width = 1.377953!
+        '
+        'lblOBUId
+        '
+        Me.lblOBUId.Height = 0.1586614!
+        Me.lblOBUId.Left = 3.308267!
+        Me.lblOBUId.Name = "lblOBUId"
+        Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
+        Me.lblOBUId.Text = "OBUID"
+        Me.lblOBUId.Top = 0.01968512!
+        Me.lblOBUId.Visible = False
+        Me.lblOBUId.Width = 1.940551!
+        '
+        'GroupHeader1
+        '
+        Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
+        Me.GroupHeader1.Height = 0.1852909!
+        Me.GroupHeader1.Name = "GroupHeader1"
+        '
+        'TextBox5
+        '
+        Me.TextBox5.Height = 0.1586614!
+        Me.TextBox5.Left = 1.732284!
+        Me.TextBox5.Name = "TextBox5"
+        Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
+        Me.TextBox5.Text = "Karten-Nr"
+        Me.TextBox5.Top = 0!
+        Me.TextBox5.Width = 1.575984!
+        '
+        'TextBox6
+        '
+        Me.TextBox6.Height = 0.1586614!
+        Me.TextBox6.Left = 0.0000002384186!
+        Me.TextBox6.Name = "TextBox6"
+        Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
+        Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
+        Me.TextBox6.Text = "Nr"
+        Me.TextBox6.Top = 0.00000007450581!
+        Me.TextBox6.Width = 0.3543307!
+        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.1586614!
+        Me.TextBox7.Left = 0.3543308!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
+        Me.TextBox7.Text = "Kennzeichen"
+        Me.TextBox7.Top = 0.00000007450581!
+        Me.TextBox7.Width = 1.377953!
+        '
+        'TextBox11
+        '
+        Me.TextBox11.Height = 0.1586614!
+        Me.TextBox11.Left = 3.308268!
+        Me.TextBox11.Name = "TextBox11"
+        Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
+        Me.TextBox11.Text = "OBUID"
+        Me.TextBox11.Top = 0!
+        Me.TextBox11.Visible = False
+        Me.TextBox11.Width = 1.940551!
+        '
+        'Line2
+        '
+        Me.Line2.Height = 0.0001809001!
+        Me.Line2.Left = 0!
+        Me.Line2.LineWeight = 1.0!
+        Me.Line2.Name = "Line2"
+        Me.Line2.Top = 0.1852522!
+        Me.Line2.Width = 6.496063!
+        Me.Line2.X1 = 0!
+        Me.Line2.X2 = 6.496063!
+        Me.Line2.Y1 = 0.1854331!
+        Me.Line2.Y2 = 0.1852522!
+        '
+        'GroupFooter1
+        '
+        Me.GroupFooter1.Height = 0!
+        Me.GroupFooter1.Name = "GroupFooter1"
+        '
+        'subrptBriefSDL_VERAGCARD
+        '
+        Me.PageSettings.Margins.Bottom = 0!
+        Me.PageSettings.Margins.Left = 0!
+        Me.PageSettings.Margins.Right = 0!
+        Me.PageSettings.Margins.Top = 0!
+        Me.PageSettings.PaperHeight = 11.0!
+        Me.PageSettings.PaperWidth = 8.5!
+        Me.PrintWidth = 6.496063!
+        Me.Sections.Add(Me.GroupHeader1)
+        Me.Sections.Add(Me.Detail)
+        Me.Sections.Add(Me.GroupFooter1)
+        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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
+
+    End Sub
+    Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
+    Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
+    Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
+End Class

SDL/Reports/MDM/BriefSDl/subrptBriefSDL_VERAGCARD.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/Reports/MDM/BriefSDl/subrptBriefSDL_VERAGCARD.vb

@@ -0,0 +1,45 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class subrptBriefSDL_VERAGCARD
+    Public sqlStr = ""
+
+
+    Sub New(sqlStr)
+
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Me.sqlStr = sqlStr
+    End Sub
+    Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+
+        Dim kundenSQL As New kundenSQL
+        Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
+
+    End Sub
+
+    Dim dummycount As Integer = 0
+    Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
+
+        dummycount = dummycount + 1
+        lblNr.Text = dummycount
+        lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
+        '  lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
+        '  lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
+        lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
+        lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
+
+
+        'Abwechselnd grauen und wei<65>en Hintergrund
+        If (dummycount Mod 2) = 0 Then
+            Detail.BackColor = Color.White
+        Else
+            Detail.BackColor = Color.FromArgb(250, 250, 250)
+        End If
+    End Sub
+
+
+
+End Class

SDL/SDL.vbproj

@@ -692,6 +692,18 @@
       <DesignTime>True</DesignTime>
       <DependentUpon>Resources.resx</DependentUpon>
     </Compile>
+    <Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_VERAGCARD.Designer.vb">
+      <DependentUpon>subrptBriefSDL_VERAGCARD.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_VERAGCARD.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.Designer.vb">
+      <DependentUpon>subrptBriefSDL_PLOSE_MEDPASS.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="Reports\Zoll\rptKontrolleLKW_TELOTEC.Designer.vb">
       <DependentUpon>rptKontrolleLKW_TELOTEC.vb</DependentUpon>
     </Compile>
@@ -2921,6 +2933,12 @@
       <DependentUpon>usrCntlSDLLeistungVERAGCardNEU.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="My Project\licenses.licx" />
+    <EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_VERAGCARD.resx">
+      <DependentUpon>subrptBriefSDL_VERAGCARD.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Reports\MDM\BriefSDl\subrptBriefSDL_PLOSE_MEDPASS.resx">
+      <DependentUpon>subrptBriefSDL_PLOSE_MEDPASS.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_TELOTEC.resx">
       <DependentUpon>rptKontrolleLKW_TELOTEC.vb</DependentUpon>
     </EmbeddedResource>

SDL/buchhaltung/frmMDM_BH_SollHaben.vb

@@ -131,8 +131,8 @@ Public Class frmMDM_BH_SollHaben
                             lblFehler.Visible = True
                             Button1.Visible = True
                             Me.Cursor = Cursors.Default
-                            MsgBox("ER01: " & ex.Message)
+                            MsgBox("ER01: " & ex.Message & ex.StackTrace)
-                            
+
                             Return False
                         End Try
                         lblSoll.Text = "SOLL Auszifferung OK"

SDL/kassenbuch/frmBelegNeu.vb

@@ -314,7 +314,7 @@ Public Class frmBelegNeu
     Sub init()
         'lblRgNr.Text = "12345 / TR"
         lblBelegDatum.Text = BELEG.BelegDat.ToShortDateString
-        lblZahlungsmittel.Text = cRKSV.getZahlungsmittel(BELEG, PERSONAL, PERSONAL.cRKSV_Kasse.rksv_firma)
+        lblZahlungsmittel.Text = cRKSV.getZahlungsmittel(BELEG, PERSONAL, KASSE.rksv_firma)
         lblkundeKdNr.Text = IIf(BELEG.KundenNr > 0, BELEG.KundenNr, "")
         kdkunde.Text = BELEG.Ordnungsbegriff
         If BELEG.KundenNr > 0 Then kdkunde.KdNr = BELEG.KundenNr
@@ -1523,10 +1523,10 @@ Public Class frmBelegNeu
                     If Not vbYes = MsgBox("Bei Zahlung/Druckvorgang werden die Beleg-Daten ins Kassenbuch eingetragen. Danach sind keine Änderungen mehr möglich." & vbNewLine & vbNewLine & "Soll der Vorgang gestartet werden?", vbYesNoCancel) Then Me.Cursor = Cursors.Default : Return False
                 End If
             End If
-            Return True
 
             Me.Cursor = Cursors.Default
 
+            Return True
         Catch ex As Exception
             Me.DialogResult = Windows.Forms.DialogResult.None
             Me.Cursor = Cursors.Default
@@ -1535,7 +1535,7 @@ Public Class frmBelegNeu
             warnClose = False
             Me.Close()
         End Try
-
+        Return False
     End Function
 
     Private Sub setRKSV()
@@ -1643,7 +1643,7 @@ Public Class frmBelegNeu
 
                 Select Case BELEG.Belegart
                     Case "1"
-                        If True Then 'cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
+                        If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
                             'WARTEN
                             printErfolgreich = True
                         End If