neu

SDL/Fakturierung/frmAbrechnungsMaskeEinzeln.vb

@@ -1,6 +1,17 @@
 Public Class frmAbrechnungsMaskeEinzeln
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+    Dim FilialenNr As Integer = -1
+    Dim AbfertigungsNr As Integer = -1
+    Sub New(FilialenNr, AbfertigungsNr)
 
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        MsgBox(FilialenNr)
+        If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then Me.FilialenNr = FilialenNr
+        If AbfertigungsNr IsNot Nothing AndAlso IsNumeric(AbfertigungsNr) Then Me.AbfertigungsNr = AbfertigungsNr
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
     Private Sub frmAbrechnungsMaske_Load(sender As Object, e As EventArgs) Handles Me.Load
         'Größe anpassen:
         Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height
@@ -9,10 +20,20 @@
     End Sub
 
     Private Sub frmAbrechnungsMaske_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-        ' UsrCntlFaktAbrechnung1.initRECHNUNG(481986)
+        If FilialenNr > 0 And AbfertigungsNr > 0 Then
+
+
+            '   Dim FAKT As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(FilialenNr, AbfertigungsNr)
+
+            '  UsrCntlFaktAbrechnung1.initRECHNUNG(FAKT.RK_ID)
+
+            UsrCntlFaktAbrechnung1.cboFiliale.changeItem(FilialenNr)
+            UsrCntlFaktAbrechnung1.txtAbfertigungsnummer.Text = AbfertigungsNr
+            UsrCntlFaktAbrechnung1.cboSpedBuchUnterNr.Focus()
+        End If
     End Sub
 
 
-  
+
 
 End Class

SDL/My Project/Resources.Designer.vb

@@ -190,15 +190,6 @@ Namespace My.Resources
             End Get
         End Property
         
-        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
-        '''</summary>
-        Friend ReadOnly Property asdasasd32asdasd2asd() As String
-            Get
-                Return ResourceManager.GetString("asdasasd32asdasd2asd", resourceCulture)
-            End Get
-        End Property
-        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -249,6 +240,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property aviso_messenger() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("aviso_messenger", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -2071,7 +2072,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.4.2 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.1.4.6 ähnelt.
         '''</summary>
         Friend ReadOnly Property Version() As String
             Get

SDL/My Project/Resources.resx

@@ -623,7 +623,7 @@
     <value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="Version" xml:space="preserve">
-    <value>1.1.4.2</value>
+    <value>1.1.4.6</value>
   </data>
   <data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -757,7 +757,7 @@
   <data name="Telefonliste_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Telefonliste_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="asdasasd32asdasd2asd" xml:space="preserve">
-    <value />
+  <data name="aviso_messenger" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\aviso_messenger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

SDL/SDL.vbproj

@@ -992,6 +992,12 @@
     <Compile Include="frmGrayOut.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmNotify.Designer.vb">
+      <DependentUpon>frmNotify.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmNotify.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmSourceList.Designer.vb">
       <DependentUpon>frmSourceList.vb</DependentUpon>
     </Compile>
@@ -2654,6 +2660,9 @@
     <EmbeddedResource Include="frmGrayOut.resx">
       <DependentUpon>frmGrayOut.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmNotify.resx">
+      <DependentUpon>frmNotify.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmSourceList.resx">
       <DependentUpon>frmSourceList.vb</DependentUpon>
     </EmbeddedResource>
@@ -3402,6 +3411,12 @@
     <None Include="Resources\MDM_Schreiben\Bestellfomulare\Bestellung_MAN_Abgasplakette.dotx">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
+    <None Include="Resources\MDM_Schreiben\Retour\PLOSE.doc">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
+    <None Include="Resources\MDM_Schreiben\Retour\PLOSE_CZ.doc">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="Resources\MDM_Schreiben\Retour\SI.doc">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
@@ -3414,6 +3429,9 @@
     <None Include="Resources\MDM_Schreiben\Retour\HUGO.doc">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
+    <None Include="Resources\MDM_Schreiben\Retour\PLOSE_IT.doc">
+      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
+    </None>
     <None Include="Resources\MDM_Schreiben\Retour\TELEPASS.doc">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </None>
@@ -3798,6 +3816,7 @@
     <None Include="Resources\ambar_simple1.png" />
     <None Include="Resources\FrontOfficeSUB.jpg" />
     <None Include="Resources\android-add-contact1.png" />
+    <None Include="Resources\aviso_messenger.png" />
     <Content Include="Resources\GS\gsdll32.dll">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

SDL/frmMain.Designer.vb

@@ -46,8 +46,10 @@ Partial Class frmMain
         Me.mnueKassenbuch = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueAdministration = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueSchnittstellen = New System.Windows.Forms.ToolStripMenuItem()
-        Me.btnTest = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.btnTest = New System.Windows.Forms.Button()
+        Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
         Me.lblVersion = New System.Windows.Forms.Label()
         Me.btnExit = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
@@ -98,9 +100,11 @@ Partial Class frmMain
         Me.cntxtZOLL = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
         Me.pnlLeft.SuspendLayout()
         Me.MenuStripSDL.SuspendLayout()
         Me.Panel1.SuspendLayout()
+        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cntxtMDM.SuspendLayout()
         Me.pnlHeader.SuspendLayout()
         Me.pnlInfo.SuspendLayout()
@@ -116,7 +120,6 @@ Partial Class frmMain
         '
         Me.pnlLeft.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.pnlLeft.Controls.Add(Me.MenuStripSDL)
-        Me.pnlLeft.Controls.Add(Me.btnTest)
         Me.pnlLeft.Controls.Add(Me.Panel1)
         Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left
         Me.pnlLeft.Location = New System.Drawing.Point(0, 73)
@@ -315,9 +318,38 @@ Partial Class frmMain
         Me.mnueSchnittstellen.Text = "Schnittstellen"
         Me.mnueSchnittstellen.Visible = False
         '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel1.Controls.Add(Me.Label20)
+        Me.Panel1.Controls.Add(Me.btnTest)
+        Me.Panel1.Controls.Add(Me.picAVISOMessenger)
+        Me.Panel1.Controls.Add(Me.lblVersion)
+        Me.Panel1.Controls.Add(Me.btnExit)
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.Panel1.Location = New System.Drawing.Point(0, 531)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(100, 225)
+        Me.Panel1.TabIndex = 30
+        '
+        'Label20
+        '
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label20.BackColor = System.Drawing.Color.Red
+        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label20.ForeColor = System.Drawing.Color.White
+        Me.Label20.Location = New System.Drawing.Point(68, 160)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(28, 19)
+        Me.Label20.TabIndex = 41
+        Me.Label20.Text = "99"
+        Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
+        Me.Label20.Visible = False
+        '
         'btnTest
         '
-        Me.btnTest.Location = New System.Drawing.Point(12, 591)
+        Me.btnTest.Location = New System.Drawing.Point(12, 112)
         Me.btnTest.Name = "btnTest"
         Me.btnTest.Size = New System.Drawing.Size(75, 23)
         Me.btnTest.TabIndex = 31
@@ -325,23 +357,24 @@ Partial Class frmMain
         Me.btnTest.UseVisualStyleBackColor = True
         Me.btnTest.Visible = False
         '
-        'Panel1
+        'picAVISOMessenger
         '
-        Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Panel1.Controls.Add(Me.lblVersion)
-        Me.Panel1.Controls.Add(Me.btnExit)
-        Me.Panel1.Controls.Add(Me.Button1)
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel1.Location = New System.Drawing.Point(0, 576)
-        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(100, 180)
-        Me.Panel1.TabIndex = 30
+        Me.picAVISOMessenger.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.picAVISOMessenger.BackgroundImage = Global.SDL.My.Resources.Resources.aviso_messenger
+        Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.picAVISOMessenger.Location = New System.Drawing.Point(20, 112)
+        Me.picAVISOMessenger.Name = "picAVISOMessenger"
+        Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
+        Me.picAVISOMessenger.TabIndex = 40
+        Me.picAVISOMessenger.TabStop = False
+        Me.picAVISOMessenger.Visible = False
         '
         'lblVersion
         '
         Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.lblVersion.ForeColor = System.Drawing.Color.White
-        Me.lblVersion.Location = New System.Drawing.Point(1, 158)
+        Me.lblVersion.Location = New System.Drawing.Point(1, 203)
         Me.lblVersion.Name = "lblVersion"
         Me.lblVersion.RightToLeft = System.Windows.Forms.RightToLeft.Yes
         Me.lblVersion.Size = New System.Drawing.Size(96, 13)
@@ -356,25 +389,27 @@ Partial Class frmMain
         Me.btnExit.ForeColor = System.Drawing.SystemColors.Info
         Me.btnExit.Image = Global.SDL.My.Resources.Resources._exit
         Me.btnExit.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnExit.Location = New System.Drawing.Point(-1, 79)
+        Me.btnExit.Location = New System.Drawing.Point(0, 38)
         Me.btnExit.Name = "btnExit"
         Me.btnExit.Size = New System.Drawing.Size(100, 68)
         Me.btnExit.TabIndex = 26
         Me.btnExit.Text = "Beenden"
         Me.btnExit.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnExit.UseVisualStyleBackColor = True
+        Me.btnExit.Visible = False
         '
         'Button1
         '
         Me.Button1.FlatAppearance.BorderSize = 0
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.ForeColor = System.Drawing.SystemColors.Info
-        Me.Button1.Location = New System.Drawing.Point(-1, 28)
+        Me.Button1.Location = New System.Drawing.Point(-1, 14)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(100, 23)
         Me.Button1.TabIndex = 30
         Me.Button1.Text = "Info"
         Me.Button1.UseVisualStyleBackColor = True
+        Me.Button1.Visible = False
         '
         'cntxtMDM
         '
@@ -747,6 +782,7 @@ Partial Class frmMain
         Me.KdSearchBox1._displayWoelflKd = False
         Me.KdSearchBox1._hideIfListEmpty = True
         Me.KdSearchBox1._loadKdData = False
+        Me.KdSearchBox1._UseFIRMA = ""
         Me.KdSearchBox1._ValueKdAndName = True
         Me.KdSearchBox1.dgvpos = "RIGHT"
         Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -860,6 +896,11 @@ Partial Class frmMain
         Me.AuswertungenToolStripMenuItem1.Size = New System.Drawing.Size(150, 24)
         Me.AuswertungenToolStripMenuItem1.Text = "Auswertungen"
         '
+        'Timer_REFRESH
+        '
+        Me.Timer_REFRESH.Enabled = True
+        Me.Timer_REFRESH.Interval = 5000
+        '
         'frmMain
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -878,6 +919,7 @@ Partial Class frmMain
         Me.MenuStripSDL.ResumeLayout(False)
         Me.MenuStripSDL.PerformLayout()
         Me.Panel1.ResumeLayout(False)
+        CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
         Me.cntxtMDM.ResumeLayout(False)
         Me.pnlHeader.ResumeLayout(False)
         Me.pnlHeader.PerformLayout()
@@ -968,4 +1010,7 @@ Partial Class frmMain
     Friend WithEvents NeuesPasswortToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents Button9 As Button
     Friend WithEvents ParkzeitWaberersEtcToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents Label20 As Label
+    Friend WithEvents picAVISOMessenger As PictureBox
+    Friend WithEvents Timer_REFRESH As Timer
 End Class

SDL/frmMain.resx

@@ -129,6 +129,9 @@
   <metadata name="cntxtZOLL.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>174, 17</value>
   </metadata>
+  <metadata name="Timer_REFRESH.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1557, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

SDL/frmMain.vb

@@ -23,6 +23,7 @@ Public Class frmMain
     Dim FUNC As New cProgramFunctions
 
     Public BERECHTIGUNEN As List(Of cBerechtigungen) = cBerechtignungenFunctions.loadBerechtigungen(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+    Private Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As IntPtr
 
 
     Private Sub UpdateSession_Tick(sender As Object, e As EventArgs) Handles UpdateSession.Tick
@@ -52,7 +53,7 @@ Public Class frmMain
     End Sub
 
 
-    Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
+    Private Sub frmMain_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
         If e.KeyCode = Keys.Escape Then
             KdSearchBox1.Text = ""
             KdSearchBox1.Focus()
@@ -64,10 +65,11 @@ Public Class frmMain
         End If '
     End Sub
 
-    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Me.MaximumSize = Screen.PrimaryScreen.WorkingArea.Size
         Me.WindowState = FormWindowState.Maximized
 
+        Timer_REFRESH_Tick(Timer_REFRESH, New EventArgs)
 
         UpdateSession.Interval = 60000
         UpdateSession.Enabled = True
@@ -86,6 +88,10 @@ Public Class frmMain
             mnueZoll.Enabled = False
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "AVISO") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MESSENGER", "SDL") Then
+            picAVISOMessenger.Visible = True
+        End If
+
 
         lblVersion.Text = "V " & My.Resources.Version
         lblMs.Text = ""
@@ -108,7 +114,7 @@ Public Class frmMain
             mnueBuchhaltung.Enabled = False
         End If
 
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me)  Then
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me) Then
             mnueAdministration.Visible = True
         End If
 
@@ -161,10 +167,10 @@ Public Class frmMain
     End Sub
 
     Private Sub btnKunden_Click(sender As Object, e As EventArgs)
-            clrPnlMain()
-            Dim usrCntl As New usrCntlKunden
-            usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
-            pnlMain.Controls.Add(usrCntl)
+        clrPnlMain()
+        Dim usrCntl As New usrCntlKunden
+        usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
+        pnlMain.Controls.Add(usrCntl)
 
         '   setInfo("err", "Kundendaten sind noch nicht freigegeben!", 3)
 
@@ -285,7 +291,7 @@ Public Class frmMain
         '  End If
     End Sub
 
-    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+    Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
         KdSearchBox1.Focus()
         UpdateUpdater.Interval = 5000
         UpdateUpdater.Enabled = True
@@ -566,7 +572,7 @@ Public Class frmMain
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE", "SDL") Or
          VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_BH_Login", "SDL") Or
          VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KASSE_Saldo_Anzeige", "SDL") Then
-              Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch()
+            Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch()
             frmSecureLoginKassenbuch.openKB = True
             frmSecureLoginKassenbuch.ShowDialog(Me)
         End If
@@ -794,6 +800,88 @@ Public Class frmMain
         Dim f As New Parkzeit.frmMain
         f.Show()
     End Sub
+
+    Dim Timer_REFRESH_firstTime = True
+    Private Sub Timer_REFRESH_Tick(sender As Object, e As EventArgs) Handles Timer_REFRESH.Tick
+        If Timer_REFRESH_firstTime Then
+            Timer_REFRESH_firstTime = False
+            Exit Sub
+        End If
+        Try
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ChatBenutzer And picAVISOMessenger.Visible Then
+                Dim newMsg = VERAG_PROG_ALLGEMEIN.cMessenger.GET_NewMSG_COUNT()
+                ' MsgBox(newMsg)
+                Label20.Text = newMsg
+                Label20.Visible = (newMsg > 0)
+                If newMsg Then
+                    ' Me.Icon = My.Resources.avisoNewMsg
+
+                    Dim isshown = False
+                    For Each openForm In Application.OpenForms()
+                        If TypeOf (openForm) Is frmNotify Then
+                            isshown = True
+                        End If
+                    Next
+
+                    Dim isInFront = False
+                    For Each openForm In Application.OpenForms()
+                        If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
+                            '  If DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Focused Then
+                            If GetActiveWindow = DirectCast(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).Handle Then
+                                isInFront = True
+                            End If
+                        End If
+                    Next
+                    If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
+                Else
+                    '  Me.Icon = My.Resources.Aviso
+                End If
+                If Label20.Visible Then Label20.BringToFront()
+            End If
+
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles picAVISOMessenger.Click
+
+        For Each openForm In Application.OpenForms()
+            If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
+                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
+                CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
+                Exit Sub
+            End If
+        Next
+
+        Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
+        f.Location = Cursor.Position
+        f.Show(Me)
+    End Sub
+
+
+    Sub newNotify(art As frmNotify.cNotify_ART, title As Integer, text As String, id As Integer)
+        '   Exit Sub 'NICHT AKTIV
+        Dim formTmp = Me.ActiveForm
+        Dim frmNotify As New frmNotify(art, title, text, id)
+        frmNotify.TimerInterval = 1200000 ' 20min
+
+
+        Dim tmpY As Integer = Me.Height
+        If tmpY <= 0 Then tmpY = My.Computer.Screen.WorkingArea.Height
+
+        For Each ft As Form In Application.OpenForms
+            ' MsgBox(ft.GetType.ToString)
+            If ft.GetType.ToString = "frmNotify" Then
+                If ft.Location.Y < tmpY Then tmpY = ft.Location.Y
+            End If
+        Next
+        frmNotify.Y = tmpY - frmNotify.Height - 10
+        frmNotify.Show()
+
+        If formTmp IsNot Nothing Then formTmp.Focus()
+    End Sub
+
 End Class
 
 Public Class MyRenderer

SDL/frmNotify.Designer.vb

@@ -0,0 +1,129 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmNotify
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Timer = New System.Windows.Forms.Timer()
+        Me.pnl = New System.Windows.Forms.Panel()
+        Me.lblText = New System.Windows.Forms.Label()
+        Me.Header = New System.Windows.Forms.Panel()
+        Me.lblTitle = New System.Windows.Forms.Label()
+        Me.btnClose = New System.Windows.Forms.Button()
+        Me.pnl.SuspendLayout()
+        Me.Header.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Timer
+        '
+        Me.Timer.Enabled = True
+        Me.Timer.Interval = 5000
+        '
+        'pnl
+        '
+        Me.pnl.BackColor = System.Drawing.Color.White
+        Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnl.Controls.Add(Me.lblText)
+        Me.pnl.Controls.Add(Me.Header)
+        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnl.Location = New System.Drawing.Point(0, 0)
+        Me.pnl.Name = "pnl"
+        Me.pnl.Size = New System.Drawing.Size(300, 70)
+        Me.pnl.TabIndex = 1
+        '
+        'lblText
+        '
+        Me.lblText.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.lblText.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblText.Location = New System.Drawing.Point(0, 25)
+        Me.lblText.Name = "lblText"
+        Me.lblText.Size = New System.Drawing.Size(298, 43)
+        Me.lblText.TabIndex = 0
+        Me.lblText.Text = "Der LKW SD 13 AS steht bereits seit über 2 Stunden! "
+        Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'Header
+        '
+        Me.Header.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Header.Controls.Add(Me.lblTitle)
+        Me.Header.Controls.Add(Me.btnClose)
+        Me.Header.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Header.Location = New System.Drawing.Point(0, 0)
+        Me.Header.Name = "Header"
+        Me.Header.Size = New System.Drawing.Size(298, 25)
+        Me.Header.TabIndex = 87
+        '
+        'lblTitle
+        '
+        Me.lblTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblTitle.ForeColor = System.Drawing.Color.White
+        Me.lblTitle.Location = New System.Drawing.Point(3, 0)
+        Me.lblTitle.Name = "lblTitle"
+        Me.lblTitle.Size = New System.Drawing.Size(241, 24)
+        Me.lblTitle.TabIndex = 88
+        Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
+        Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'btnClose
+        '
+        Me.btnClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnClose.BackColor = System.Drawing.Color.Red
+        Me.btnClose.FlatAppearance.BorderColor = System.Drawing.Color.White
+        Me.btnClose.FlatAppearance.BorderSize = 0
+        Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnClose.ForeColor = System.Drawing.Color.White
+        Me.btnClose.Location = New System.Drawing.Point(264, -1)
+        Me.btnClose.Name = "btnClose"
+        Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
+        Me.btnClose.Size = New System.Drawing.Size(35, 25)
+        Me.btnClose.TabIndex = 86
+        Me.btnClose.Text = "X"
+        Me.btnClose.UseVisualStyleBackColor = False
+        '
+        'frmNotify
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSize = True
+        Me.ClientSize = New System.Drawing.Size(300, 70)
+        Me.Controls.Add(Me.pnl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.MaximumSize = New System.Drawing.Size(300, 300)
+        Me.MinimumSize = New System.Drawing.Size(100, 70)
+        Me.Name = "frmNotify"
+        Me.ShowIcon = False
+        Me.ShowInTaskbar = False
+        Me.Text = "frmNotify"
+        Me.TopMost = True
+        Me.pnl.ResumeLayout(False)
+        Me.Header.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Timer As System.Windows.Forms.Timer
+    Friend WithEvents pnl As System.Windows.Forms.Panel
+    Friend WithEvents btnClose As System.Windows.Forms.Button
+    Friend WithEvents Header As System.Windows.Forms.Panel
+    Public WithEvents lblText As System.Windows.Forms.Label
+    Public WithEvents lblTitle As System.Windows.Forms.Label
+End Class

SDL/frmNotify.resx

@@ -0,0 +1,123 @@
+<?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="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

SDL/frmNotify.vb

@@ -0,0 +1,113 @@
+Public Class frmNotify
+    Public Y As Integer = 0
+    Public AvisoID As Integer = 0
+
+    Public TimerInterval = 5000
+
+
+    Public Notify_ART As cNotify_ART
+
+
+    Enum cNotify_ART
+        AVISO_2H
+        NEUER_CHAT
+    End Enum
+
+    Protected Overrides ReadOnly Property ShowWithoutActivation() As Boolean
+        Get
+            Return True
+        End Get
+    End Property
+
+    Sub New(title As String, text As String)
+        Me.InitializeComponent()
+        Me.lblTitle.Text = title
+        Me.lblText.Text = text
+    End Sub
+
+    Sub New(art As cNotify_ART, typ As Integer, text As String, Optional id As Integer = -1)
+        Me.InitializeComponent()
+        Me.Notify_ART = art
+
+        Select Case Notify_ART
+            Case cNotify_ART.AVISO_2H
+
+                Me.AvisoID = id
+                Select Case typ
+                    Case 1
+                        Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
+                        Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen."
+                    Case 2
+                        Me.lblTitle.Text = "LKW Standzeit - Vermerk eintragen"
+                        Me.lblText.Text = "Der LKW '" & text & "' ist vor über 2 Stunden eingetroffen." &
+                    "Bitte VERMERK eintragen!"
+                    Case 3
+                        Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
+                        Me.lblText.Text = "Der LKW '" & text & "' steht bereits über 24 Stunden!"
+                        Me.Header.BackColor = Color.Red
+                End Select
+            Case cNotify_ART.NEUER_CHAT
+                Me.lblTitle.Text = "CHAT Nachricht"
+                Me.lblText.Text = text
+
+        End Select
+
+
+    End Sub
+
+    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
+        Me.Close()
+    End Sub
+
+    Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
+        Me.Close()
+    End Sub
+
+    Private Sub frmNotify_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Timer.Interval = TimerInterval
+        lblText.Cursor = IIf(AvisoID > 0, Cursors.Hand, Cursors.Default)
+        'If Y = 0 Then
+        'Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Me.Owner.Height - Me.Height - 10)
+        ' Else
+        ' Me.Location = New Point(Me.Owner.Width - Me.Width - 10, Y)
+        ' End If
+        Dim WIDTH = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
+        Dim hEIGHT = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Width
+        'RECHTS UNTEN:
+        'If Y = 0 Then
+        '    Me.Location = New Point(WIDTH - Me.Width - 10, hEIGHT - Me.Height - 10)
+        'Else
+        '    Me.Location = New Point(WIDTH - Me.Width - 10, Y)
+        'End If
+
+        If Y = 0 Then
+            Me.Location = New Point(10, hEIGHT - Me.Height - 10)
+        Else
+            Me.Location = New Point(10, Y)
+        End If
+
+    End Sub
+
+    Private Sub lblText_Click(sender As Object, e As EventArgs) Handles lblText.Click
+        Select Case Notify_ART
+            Case cNotify_ART.AVISO_2H
+                '  frmMain.Details_anzeigen(AvisoID)
+                Me.Close()
+            Case cNotify_ART.NEUER_CHAT
+                For Each openForm In Application.OpenForms()
+                    If TypeOf (openForm) Is VERAG_PROG_ALLGEMEIN.frmMessenger Then
+                        CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).WindowState = FormWindowState.Normal
+                        CType(openForm, VERAG_PROG_ALLGEMEIN.frmMessenger).BringToFront()
+                        Exit Sub
+                    End If
+                Next
+
+                Dim f As New VERAG_PROG_ALLGEMEIN.frmMessenger
+                f.Location = Cursor.Position
+                f.Show()
+                Me.Close()
+        End Select
+
+
+    End Sub
+End Class

SDL/kassenbuch/frmKassenbuch.vb

@@ -893,122 +893,129 @@ Public Class frmKassenbuch
                     Dim PERSONALTmp As cPersonal = FMZOLL_SQL.getPersonalById(f.cboBenutzer._value)
                     BELEGTmp = New EABeleg("LOAD", PERSONALTmp.Mandant, PERSONALTmp.Niederlassung, PERSONALTmp.ID, f.txtBelegNrAlt.Text, f.dat.Value)
             End Select
+            If BELEGTmp IsNot Nothing Then
 
-            'NUR KB
-            If f.cbxStornoRKSV.Checked Or f.cbxStornoBELEG.Checked Or f.cbxStornoErzwingenAdmin.Checked Then
-                Dim grund = InputBox("ADMIN-Storno (" & If(f.cbxStornoRKSV.Checked, " -RKSV-Tabelle- ", "") & If(f.cbxStornoBELEG.Checked, " -BELEG-Tabelle- ", "") & If(f.cbxStornoErzwingenAdmin.Checked, " -KASSENBUCH-Tabelle- ", "") & "):" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
-                If grund = "" Then
-                    MsgBox("Kein Stornotext, Aktion wird abgebrochen")
+                If cRKSV.getGJ(Now) <> cRKSV.getGJ(BELEGTmp.BelegDat) Then
+                    MsgBox("Das Geschäftsjahr im Beleg ist '" & cRKSV.getGJ(BELEGTmp.BelegDat) & "', es können nur Belege im laufenden Geschäftsjahr gebucht werden. Aktion wird abgebrochen!")
                     Exit Sub
                 End If
 
-                If BELEGTmp.BelegDat < Now.AddMonths(-2) And Not master_Kasse Then
-                    MsgBox("Beleg älter als 2 Monate, Aktion wird abgebrochen") 'alte Belege nicht mehr storinieren
-                    Exit Sub
-                End If
 
-                If f.cbxStornoErzwingenAdmin.Checked Then
-                    BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, True) 'Beleg storno und Kassenbuch Gegenbuchung
-                End If
+                'NUR KB
+                If f.cbxStornoRKSV.Checked Or f.cbxStornoBELEG.Checked Or f.cbxStornoErzwingenAdmin.Checked Then
+                    Dim grund2 = InputBox("ADMIN-Storno (" & If(f.cbxStornoRKSV.Checked, " -RKSV-Tabelle- ", "") & If(f.cbxStornoBELEG.Checked, " -BELEG-Tabelle- ", "") & If(f.cbxStornoErzwingenAdmin.Checked, " -KASSENBUCH-Tabelle- ", "") & "):" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
+                    If grund2 = "" Then
+                        MsgBox("Kein Stornotext, Aktion wird abgebrochen")
+                        Exit Sub
+                    End If
 
-                If f.cbxStornoRKSV.Checked Then 'nur RKSV!!!!!!!
-                    ' BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, Fal) 'Beleg storno und Kassenbuch Gegenbuchung
-                    Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
-                    If KASSETmp IsNot Nothing Then
-                        KASSETmp.INCREASE_ONLY_BELEG_UMSATZ(BELEGTmp.rksv_umsatz * -1) ' Bei Storno wird der Umsatz vermindert!
-                        Dim QRQString As String = ""
-                        Dim LastJWS As String = ""
-                        Dim answer = ""
-                        If KASSETmp.rksv_aktiv Then
-                            If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then
-                                MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-                                Exit Sub
+                    If BELEGTmp.BelegDat < Now.AddMonths(-2) And Not master_Kasse Then
+                            MsgBox("Beleg älter als 2 Monate, Aktion wird abgebrochen") 'alte Belege nicht mehr storinieren
+                            Exit Sub
+                        End If
+
+                        If f.cbxStornoErzwingenAdmin.Checked Then
+                        BELEGTmp = cRKSV.STORNO(BELEGTmp, grund2, True) 'Beleg storno und Kassenbuch Gegenbuchung
+                    End If
+
+                        If f.cbxStornoRKSV.Checked Then 'nur RKSV!!!!!!!
+                            ' BELEGTmp = cRKSV.STORNO(BELEGTmp, grund, Fal) 'Beleg storno und Kassenbuch Gegenbuchung
+                            Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
+                            If KASSETmp IsNot Nothing Then
+                                KASSETmp.INCREASE_ONLY_BELEG_UMSATZ(BELEGTmp.rksv_umsatz * -1) ' Bei Storno wird der Umsatz vermindert!
+                                Dim QRQString As String = ""
+                                Dim LastJWS As String = ""
+                                Dim answer = ""
+                                If KASSETmp.rksv_aktiv Then
+                                    If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then
+                                        MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                                        Exit Sub
+                                    End If
+                                End If
                             End If
                         End If
+
+                        If f.cbxStornoBELEG.Checked Then 'nur BELEG!!!!!!!
+                        BELEGTmp = cRKSV.STORNO_BELEG_ONLY(BELEGTmp, grund2) 'Beleg storno 
                     End If
-                End If
 
-                If f.cbxStornoBELEG.Checked Then 'nur BELEG!!!!!!!
-                    BELEGTmp = cRKSV.STORNO_BELEG_ONLY(BELEGTmp, grund) 'Beleg storno 
-                End If
-
-                init()
-                Exit Sub
-            End If
-
-            If BELEGTmp IsNot Nothing Then
+                        init()
+                        Exit Sub
+                    End If
+                'End If
+                'If BELEGTmp IsNot Nothing Then
 
                 ' BELEGTmp = New EABeleg("LOAD", PERSONAL.Mandant, PERSONAL.Niederlassung, dt.Rows(0)("Benutzer"), dt.Rows(0)("BelegNr"), dt.Rows(0)("BelegDat"))
 
                 Dim PERSONALTmp As cPersonal = FMZOLL_SQL.getPersonalById(BELEGTmp.Benutzer)
-                If master_Kasse = False Then
-                    If BELEGTmp.Benutzer <> PERSONAL.ID Then MsgBox("Der Beleg wurde von einem anderen Beutzer erstellt. " & vbNewLine & " Bitte wenden Sie sich an: '" & PERSONALTmp.Name & "'.") : Exit Sub
-                End If
-                Dim grund = InputBox("Möchten Sie den Beleg wirklich storinieren?" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
-                If grund = "" Then
-                    MsgBox("Kein Stornotext, Aktion wird abgebrochen")
-                    Exit Sub
-                End If
-
-
-                If BELEGTmp.BelegNr <= 0 Then MsgBox("Fehler beim Laden der Belegdaten") : Exit Sub
-
-
-                If Not BELEGTmp.gebuchtStorno Then 'f.cbxStornoErzwingenAdmin.Checked=stono erzwingen
-
-
-                    BELEGTmp = cRKSV.STORNO(BELEGTmp, grund) 'Beleg storno und Kassenbuch Gegenbuchung
-                    '    BELEGTmp = cRKSV.STORNO(BELEGTmp, "") 'Beleg storno und Kassenbuch Gegenbuchung
-
-                    ' Dim summe As Double = 0
-                    ' For Each p In BELEGTmp.POS
-                    'summe += p.Betrag
-                    '  Next
-                    '  summe = summe * -1
-
-                    Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
-
-                    If KASSETmp IsNot Nothing Then
-                        KASSETmp.INCREASE_ONLY_BELEG_UMSATZ(BELEGTmp.rksv_umsatz * -1) ' Bei Storno wird der Umsatz vermindert!
-                        Dim QRQString As String = ""
-                        Dim LastJWS As String = ""
-                        Dim answer = ""
-                        If KASSETmp.rksv_aktiv Then
-                            If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then
-                                'FEHLER!!
-                                BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund) 'Beleg storno und Kassenbuch Gegenbuchung
-                                MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
-                                Exit Sub
-                            End If
-                        End If
+                    If master_Kasse = False Then
+                        If BELEGTmp.Benutzer <> PERSONAL.ID Then MsgBox("Der Beleg wurde von einem anderen Beutzer erstellt. " & vbNewLine & " Bitte wenden Sie sich an: '" & PERSONALTmp.Name & "'.") : Exit Sub
+                    End If
+                    Dim grund = InputBox("Möchten Sie den Beleg wirklich storinieren?" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
+                    If grund = "" Then
+                        MsgBox("Kein Stornotext, Aktion wird abgebrochen")
+                        Exit Sub
                     End If
 
-                    Select Case BELEGTmp.Beleg_TYP 'dt.Rows(0)("Beleg_TYP")
-                        Case "E"
-                            Dim KBEntry As cKassenbuch = Nothing
-                            Dim KBEntryGB As cKassenbuch = Nothing
-                            If cRKSV.getKB(BELEGTmp, PERSONALTmp, KBEntry, KBEntryGB) Then
-                                cRKSV.printFremdBeleg(BELEGTmp, KASSETmp, PERSONALTmp, KBEntry, KBEntryGB, "") 'Beleg drucken
-                            End If
-                        Case "L"
-                            cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "LG") 'Beleg drucken
-                        Case "A"
-                            cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "A") 'Beleg drucken
-                        Case Else
-                            cRKSV.printKundenBeleg(BELEGTmp, KASSETmp, PERSONALTmp, "", False) 'Beleg drucken
-                    End Select
 
-                    MsgBox("Beleg storniert!")
-                    'Dim frmBeleg As New frmBelegNeu(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, dt.Rows(0)("Benutzer"), dt.Rows(0)("BelegNr"), dt.Rows(0)("BelegDat"))
-                    ' frmBeleg.ShowDialog(Me)
-                    ' init() If Not BELEGTmp.gebuchtStorno Then
+                    If BELEGTmp.BelegNr <= 0 Then MsgBox("Fehler beim Laden der Belegdaten") : Exit Sub
+
+
+                    If Not BELEGTmp.gebuchtStorno Then 'f.cbxStornoErzwingenAdmin.Checked=stono erzwingen
+
+
+                        BELEGTmp = cRKSV.STORNO(BELEGTmp, grund) 'Beleg storno und Kassenbuch Gegenbuchung
+                        '    BELEGTmp = cRKSV.STORNO(BELEGTmp, "") 'Beleg storno und Kassenbuch Gegenbuchung
+
+                        ' Dim summe As Double = 0
+                        ' For Each p In BELEGTmp.POS
+                        'summe += p.Betrag
+                        '  Next
+                        '  summe = summe * -1
+
+                        Dim KASSETmp As New cRKSV_Kasse(BELEGTmp.rksv_id)
+
+                        If KASSETmp IsNot Nothing Then
+                            KASSETmp.INCREASE_ONLY_BELEG_UMSATZ(BELEGTmp.rksv_umsatz * -1) ' Bei Storno wird der Umsatz vermindert!
+                            Dim QRQString As String = ""
+                            Dim LastJWS As String = ""
+                            Dim answer = ""
+                            If KASSETmp.rksv_aktiv Then
+                                If Not cRKSV.stornoRKSV(KASSETmp, BELEGTmp.BelegDat, BELEGTmp.Steuerschlüssel, BELEGTmp.rksv_BelegId, BELEGTmp.rksv_umsatz, QRQString, LastJWS, answer) Then
+                                    'FEHLER!!
+                                    BELEGTmp = cRKSV.STORNO_RUECKGAENGIG(BELEGTmp, grund) 'Beleg storno und Kassenbuch Gegenbuchung
+                                    MessageBox.Show("Fehler bei der RKSV-Storinerung:" & vbNewLine & vbNewLine & answer, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                                    Exit Sub
+                                End If
+                            End If
+                        End If
+
+                        Select Case BELEGTmp.Beleg_TYP 'dt.Rows(0)("Beleg_TYP")
+                            Case "E"
+                                Dim KBEntry As cKassenbuch = Nothing
+                                Dim KBEntryGB As cKassenbuch = Nothing
+                                If cRKSV.getKB(BELEGTmp, PERSONALTmp, KBEntry, KBEntryGB) Then
+                                    cRKSV.printFremdBeleg(BELEGTmp, KASSETmp, PERSONALTmp, KBEntry, KBEntryGB, "") 'Beleg drucken
+                                End If
+                            Case "L"
+                                cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "LG") 'Beleg drucken
+                            Case "A"
+                                cRKSV.printKundenBelegLG(BELEGTmp, KASSETmp, PERSONALTmp, "", "A") 'Beleg drucken
+                            Case Else
+                                cRKSV.printKundenBeleg(BELEGTmp, KASSETmp, PERSONALTmp, "", False) 'Beleg drucken
+                        End Select
+
+                        MsgBox("Beleg storniert!")
+                        'Dim frmBeleg As New frmBelegNeu(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, dt.Rows(0)("Benutzer"), dt.Rows(0)("BelegNr"), dt.Rows(0)("BelegDat"))
+                        ' frmBeleg.ShowDialog(Me)
+                        ' init() If Not BELEGTmp.gebuchtStorno Then
+                    Else
+                        MsgBox("Beleg wurde bereits storniert!")
+                    End If
+                    init()
                 Else
-                    MsgBox("Beleg wurde bereits storniert!")
+                    MsgBox("Keine Daten gefunden!")
                 End If
-                init()
-            Else
-                MsgBox("Keine Daten gefunden!")
-            End If
             End If
 
     End Sub

SDL/mdm/usrCntlKartenDaten.vb

@@ -679,7 +679,7 @@ Public Class usrCntlKartenDaten
         End If
 
         btnRetourniert.Enabled = False
-        If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213) Then
+        If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213 Or sdlNr = 214 Or sdlNr = 215 Or sdlNr = 216) Then
             btnRetourniert.Enabled = True
         End If
 
@@ -1092,6 +1092,9 @@ Public Class usrCntlKartenDaten
             Case 210 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\SI.doc"
             Case 211 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\MULTIBOX.doc"
             Case 213 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\HUGO.doc"
+            Case 214 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE.doc"
+            Case 215 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_IT.doc"
+            Case 216 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_CZ.doc"
         End Select
 
         If Not System.IO.File.Exists(pfad) Then
@@ -1114,6 +1117,9 @@ Public Class usrCntlKartenDaten
                 Case 210 : odoc = getWordRetourniert_SI(odoc, kdNr, datum)
                 Case 211 : odoc = getWordRetourniert_MULTI(odoc, kdNr, datum)
                 Case 213 : odoc = getWordRetourniert_HUGO(odoc, kdNr, datum)
+                Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum)
+                Case 215 : odoc = getWordRetourniert_PLOSE_IT(odoc, kdNr, datum)
+                Case 216 : odoc = getWordRetourniert_PLOSE_CZ(odoc, kdNr, datum)
                 Case Else : odoc.Close() : MsgBox("Falsche Leistung")
             End Select
 
@@ -1235,6 +1241,78 @@ Public Class usrCntlKartenDaten
         End Try
         Return odoc
     End Function
+    Function getWordRetourniert_PLOSE_CZ(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
+        Try
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=216 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
+            Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
+            If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
+            Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+
+            Dim oTable As Word.Table
+            odoc.FormFields("Anzahl").Range.Text = dt.Rows.Count
+            odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
+            odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
+            odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
+            odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
+            odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+            odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+            If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
+                If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
+                    oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
+                    Dim i = 1
+                    For Each r As DataRow In dt.Rows
+                        oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
+                        oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
+                        oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID"))
+                        If i < dt.Rows.Count Then oTable.Rows.Add()
+                        i += 1
+                    Next
+                End If
+            Else
+                MessageBox.Show("Textmarke nicht vorhanden!")
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.ToString)
+        End Try
+        Return odoc
+    End Function
+    Function getWordRetourniert_PLOSE(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
+        Try
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=214 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
+            Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
+            If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
+            Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+
+            Dim oTable As Word.Table
+            odoc.FormFields("Anzahl").Range.Text = dt.Rows.Count
+            odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
+            odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
+            odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
+            odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
+            odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+            odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+            If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
+                If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
+                    oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
+                    Dim i = 1
+                    For Each r As DataRow In dt.Rows
+                        oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
+                        oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
+                        oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID"))
+                        If i < dt.Rows.Count Then oTable.Rows.Add()
+                        i += 1
+                    Next
+                End If
+            Else
+                MessageBox.Show("Textmarke nicht vorhanden!")
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.ToString)
+        End Try
+        Return odoc
+    End Function
 
     Function getWordRetourniert_MULTI(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
         Try
@@ -1347,6 +1425,43 @@ Public Class usrCntlKartenDaten
         Return odoc
     End Function
 
+    Function getWordRetourniert_PLOSE_IT(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
+        Try
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=215 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
+            Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
+            If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
+            Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
+
+            Dim oTable As Word.Table
+            odoc.FormFields("Anzahl").Range.Text = dt.Rows.Count
+            odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2
+            odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße
+            odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
+            odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr
+            odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr
+            odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+
+            If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then
+                If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then
+                    oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
+                    Dim i = 1
+                    For Each r As DataRow In dt.Rows
+                        oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
+                        oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("VIACARD"))
+                        oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("TELEPASS-Nr"))
+                        If i < dt.Rows.Count Then oTable.Rows.Add()
+                        i += 1
+                    Next
+                End If
+            Else
+                MessageBox.Show("Textmarke nicht vorhanden!")
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.ToString)
+        End Try
+        Return odoc
+    End Function
+
     Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click
         Me.Cursor = Cursors.WaitCursor
         cProgramFunctions.genExcelFromDGV_NEW(dgvSDL, True, True)