fix

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -285,6 +285,10 @@ Public Class usrCntlBenachrichtigungen
         End If
 
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
+            cbxTeams.Checked = True
+        End If
+
         'NEIN; weils zB Waidhaus dann alles sieht und übernimmt
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
         '    If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True

Aviso/My Project/AssemblyInfo.vb

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

Aviso/frmHauptfenster.vb

@@ -699,12 +699,6 @@ Public Class frmHauptfenster
             DatevBuchungsexportToolStripMenuItem.Visible = True
         End If
 
-
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
-            cbx_My_LKW.Checked = True
-        End If
-
-
         Panel1.Height -= pnlSearch.Height
 
         If Now.ToShortDateString >= DateTime.Parse("01/01/2023") Then

Aviso/frmSendungsdetailsNEU.vb

@@ -4425,7 +4425,7 @@ Public Class frmSendungsdetailsNEU
                 Dim f As SDL.frmFormulare = Nothing
                 SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
                 AddHandler f.FormClosing, Sub()
-                                              If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma <> 24 Then
+                                              If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma <> "24" Then
                                                   If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1)
                                               End If
 
@@ -8260,7 +8260,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbklaerungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbklaerungTR.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungAbklaerungTR(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungAbklaerungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8269,7 +8269,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusVorbereitetQS_Click(sender As Object, e As EventArgs) Handles btnStatusVorbereitetQS.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungVorbereitetQS(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungVorbereitetQS(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8278,7 +8278,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnStatusVorgeschrieben.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungVorgeschrieben(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungVorgeschrieben(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8287,7 +8287,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbfertigungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbfertigungTR.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungAbfertigungTR(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungAbfertigungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8297,7 +8297,7 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
         If Not cbxFremdspedition.Checked Then
-            If AVISOFUNC.setSendungSpeditionsbuchEintrag(SendungID, AvisoId) Then
+            If AVISOFUNC.setSendungSpeditionsbuchEintrag(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
                 initDataBinding()
             End If
         End If
@@ -8307,7 +8307,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnSendungFakturiert_Click(sender As Object, e As EventArgs) Handles btnSendungFakturiert.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungFakturiert(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungFakturiert(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default