neu

2020-03-12 14:48:24 +01:00
parent e879fb6881
commit afaac3c2a4
107 changed files with 16055 additions and 3324 deletions
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -105,7 +105,7 @@ Public Class usrcntlAktDetails
            Case "NKD"
                lblFiskde.Visible = False
                txtSndFiskalDE.Visible = False
-            Case "SUB"
+            Case "SUB", "NEU"
                txtSndFremd.Visible = True
                lblSndFremd.Visible = True
        End Select
@@ -258,10 +258,14 @@ Public Class usrcntlAktDetails
        '  btnLkwBeleg.Visible = False
        btnAktAbschliessen.Visible = False
        btnAktAbschliessen.BackColor = Color.DarkGreen
+
+        lblBarZuKassierenSumme.Visible = False
+
        Select Case AVISO.Status
            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
                lblStatus.Text = "ANKUNFT" : pnlStatus.BackColor = btnAnkunft.BackColor
                btnAktAbschliessen.Visible = False
+                lblBarZuKassierenSumme.Visible = True
            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst
                lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor
                btnAktAbschliessen.Visible = True
@@ -302,6 +306,7 @@ Public Class usrcntlAktDetails
            '   btnAktAbschliessen.Visible = True
        End If

+        intiAktUebernehmenBtn()

        'Kann nur bei Freigabe angezeigt werden
        'If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben Then
@@ -396,7 +401,7 @@ Public Class usrcntlAktDetails
        With dgvSendungen
            '    Dim selRow = If(.SelectedRows.Count > 0, .SelectedRows(0).Index, -1)
            .Columns.Clear()
-            .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'')  as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-'  END)  FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter" &
+            .DataSource = AvisoDAL.loadDataTableBySQL(" SELECT FilialenNr ,/*rank() OVER (ORDER BY tblSnd_PosUnterNr) as */ tblSnd_PosUnterNr, [tblSnd_SendungID],[tblSnd_AvisoID],[tblSnd_Abfertigungsart_ID],[tblSnd_EmpfaengerKdNr],[tblSnd_Empfaenger],isnull(cast(FilialenNr as varchar (4)),'')+'/' + isnull(cast(AbfertigungsNr as varchar (8)),'')  as AbfertigungsNr,(SELECT (CASE WHEN Count(*)>0 THEN cast(COUNT(*) as varchar(4)) ELSE '-'  END)  FROM Vermerke WHERE AvisoID=" & AvisoID & " AND SendungID=tblSnd_SendungID) as Vermerke, tblSnd_SpeditionsbuchEingetragen,tblSnd_Fremdspedition,tblSnd_FremdspeditionText,isnull(tblSnd_QS_MA,-1) as tblSnd_QS_MA,tblSnd_Vorbereitet,tblSnd_Vorgeschrieben,LetzterMitarbeiterId,tblSnd_VG_MA,LetzterMitarbeiter,tblSnd_BARzuKassieren " &
                                                      " FROM tblSendungen  WHERE tblSnd_AvisoId=" & AvisoID & " ORDER BY tblSnd_PosUnterNr") 'LEFT JOIN tblQS_Abfertigungsarten ON [tblSnd_Abfertigungsart_ID]=QS_Abfertigungsart_ID

            '   If .RowCount = 0 Then .Columns.Clear() : Exit Sub
@@ -415,6 +420,7 @@ Public Class usrcntlAktDetails
            .Columns("LetzterMitarbeiter").Visible = False
            .Columns("LetzterMitarbeiterId").Visible = False
            .Columns("tblSnd_VG_MA").Visible = False
+            .Columns("tblSnd_BARzuKassieren").Visible = False

            .Columns("tblSnd_PosUnterNr").Width = 20
            .Columns("tblSnd_PosUnterNr").HeaderText = "Nr."
@@ -511,6 +517,13 @@ Public Class usrcntlAktDetails
            .Columns.Add(c)
            '  End If

+            c = New DataGridViewImageColumn
+            c.Name = "SenungWeiterleiten"
+            c.Image = My.Resources.tranparent30Perc : c.ImageLayout = DataGridViewImageCellLayout.Zoom
+            c.Width = 25 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+            c.ToolTipText = "Senung weiterleiten"
+            .Columns.Add(c)
+            '  End If

            Dim t = New DataGridViewTextBoxColumn
            t.Name = "Abfertigungsart"
@@ -521,7 +534,7 @@ Public Class usrcntlAktDetails


            Try
-
+                Dim BarZuKassierenSumme As Double = 0
                For Each r As DataGridViewRow In dgvSendungen.Rows
                    If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
                        r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
@@ -549,8 +562,19 @@ Public Class usrcntlAktDetails
                    End Select
                    r.Cells("FilialenNr").Style.SelectionBackColor = r.Cells("FilialenNr").Style.BackColor
                    r.Cells("FilialenNr").Style.SelectionForeColor = r.Cells("FilialenNr").Style.ForeColor
+
+                    If r.Cells("tblSnd_BARzuKassieren").Value IsNot DBNull.Value AndAlso IsNumeric(r.Cells("tblSnd_BARzuKassieren").Value) Then '
+                        BarZuKassierenSumme += CDbl(r.Cells("tblSnd_BARzuKassieren").Value)
+                    End If
+
+
                Next
                ' timerSendRows.Enabled = False
+                If BarZuKassierenSumme <> 0 Then
+                    lblBarZuKassierenSumme.Text = "BAR: " & BarZuKassierenSumme.ToString("C2")
+                Else
+                    lblBarZuKassierenSumme.Text = ""
+                End If
            Catch ex As Exception
                MsgBox(ex.Message & ex.StackTrace)
            End Try
@@ -751,8 +775,9 @@ Public Class usrcntlAktDetails
                tmpIndex = dgvSendungen.SelectedRows(0).Index
            End If

+            Dim VermekId = gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value
            Dim VermerkeDAL As New cVermerkeDAL
-            Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(gridVermerke.Rows(e.RowIndex).Cells("VermerkID").Value, "")
+            Dim myVermerk As cVermerk = VermerkeDAL.LesenVermerk(VermekId, "")
            myVermerk.VermerkID = 0
            'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value)
            myVermerk.Datum = Now
@@ -763,50 +788,60 @@ Public Class usrcntlAktDetails
                Case "1"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 2
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)
                    ' initDgvSendungen()

                Case "3"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 4
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
+
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "5"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 6
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
+
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "7"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 8
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "9"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 10
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "11"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 12
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "13"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 14
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "17"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                    myVermerk.VermerkCodeId = 18
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False)
                    '  avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
                    'Vermerke_aktualisieren()
@@ -815,49 +850,57 @@ Public Class usrcntlAktDetails
                Case "19"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
                    myVermerk.VermerkCodeId = 20
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "25"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 30
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "31"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
                    myVermerk.VermerkCodeId = 32
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "33"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 34
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "36"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 37
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "53"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 54
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "55"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 56
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()

                Case "57"
                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
                    myVermerk.VermerkCodeId = 58
-                    VermerkeDAL.SpeichernVermerk(myVermerk)
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()


@@ -928,11 +971,11 @@ Public Class usrcntlAktDetails
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'CMR erhalten' einzutragen."
                                End If
                            Case 13
-                                If Not existCodeInGridVermerke(14, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
-                                    optionCell.Value = "Vorauskasse erhalten"
-                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
-                                End If
-                            Case 17
+                            If Not existCodeInGridVermerke(14) And Not existCodeInGridVermerke(59) Then
+                                optionCell.Value = "Vorauskasse erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Vorauskasse erhalten' einzutragen."
+                            End If
+                        Case 17
                                If Not existCodeInGridVermerke(18) Then
                                    optionCell.Value = "DE-ZOLL fertig"
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'DE-ZOLL fertig' einzutragen."
@@ -992,8 +1035,10 @@ Public Class usrcntlAktDetails
        For Each r As DataGridViewRow In gridVermerke.Rows
            If DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString = CStr(code) Then
                Select Case code
+                    Case 59
+                        Return True
                    Case 2, 4, 6, 8, 10, 12, 14, 30, 37, 34
-                        If DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
+                        If text = "" Or DirectCast(r.Cells("Hinweis_Vermerk"), DataGridViewTextBoxCell).Value.ToString.Replace("erhalten", "angefordert") = text Then
                            Return True
                        End If
                    Case 32
@@ -1421,6 +1466,22 @@ Public Class usrcntlAktDetails

                Me.Cursor = Cursors.Default

+            Case "SenungWeiterleiten"
+                sendAktiv = False
+                Me.Cursor = Cursors.WaitCursor
+
+                If dgvSendungen.Rows(e.RowIndex).Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso dgvSendungen.Rows(e.RowIndex).Cells("LetzterMitarbeiterId").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+                    Dim f As New frmAvisoWeiterleiten("S", AvisoID, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID) '--> Weitereliten
+                    If f.ShowDialog(Me) = DialogResult.OK Then
+                        initDgvSendungen()
+                        Vermerke_anzeigen()
+                    End If
+                End If
+                'sendAktiv = False
+
+                Me.Cursor = Cursors.Default
+
+
        End Select

        sendAktiv = True
@@ -1435,7 +1496,7 @@ Public Class usrcntlAktDetails
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
-        pnlOptionen.Height = 100
+        pnlOptionen.Height = 157 '125
        pnlOptionen.Visible = Not pnlOptionen.Visible

        If pnlOptionen.Visible Then pnlOptionen.Location = New Point(pnlOptionen.Location.X, Button2.Height + pnl.Height + FlowLayoutPanel.Height)
@@ -1470,6 +1531,7 @@ Public Class usrcntlAktDetails
        If dgvSendungen.Columns("tblSnd_Vorbereitet") Is Nothing Then Return False
        If dgvSendungen.Columns("StatusVorbereitetQS") Is Nothing Then Return False
        If dgvSendungen.Columns("SenungUebernehmen") Is Nothing Then Return False
+        If dgvSendungen.Columns("SenungWeiterleiten") Is Nothing Then Return False

        If dgvSendungen.Columns("SpeditionsbuchEintragen") Is Nothing Then Return False
        If dgvSendungen.Columns("KundeAnzeigen") Is Nothing Then Return False
@@ -1502,6 +1564,7 @@ Public Class usrcntlAktDetails
                DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_gray_small
                If r.Cells("LetzterMitarbeiterId").Value IsNot DBNull.Value AndAlso r.Cells("LetzterMitarbeiterId").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
                    DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_blue_small
+                    DirectCast(r.Cells("SenungWeiterleiten"), DataGridViewImageCell).Value = My.Resources.weiterleiten_small1
                Else
                    If r.Cells("tblSnd_VG_MA").Value IsNot DBNull.Value Then
                        DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).Value = My.Resources.personCheck_small
@@ -1511,6 +1574,7 @@ Public Class usrcntlAktDetails
                If r.Cells("LetzterMitarbeiter").Value IsNot DBNull.Value Then DirectCast(r.Cells("SenungUebernehmen"), DataGridViewImageCell).ToolTipText = "Sendung von '" & r.Cells("LetzterMitarbeiter").Value & "' übernehmen"


+
                'If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "QS" Then
                '    If r.Cells("tblSnd_QS_MA").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
                '        DirectCast(r.Cells("Abgeklaert"), DataGridViewImageCell).Value = My.Resources.abgeklaertAktiv
@@ -1585,36 +1649,38 @@ Public Class usrcntlAktDetails
        If e.Button = Windows.Forms.MouseButtons.Right Then
            If dgvSendungen.Columns.Count > 0 Then
                If dgvSendungen.Columns(e.ColumnIndex).Name = "SenungUebernehmen" Then
-                    Dim LIST_FIRMEN() As String = {"VERAG", "UNISPED", "IMEX", "FRONTOFFICE"}
+                    Exit Sub

-                    Dim C As New ContextMenuStrip
+                    'Dim LIST_FIRMEN() As String = {"VERAG", "UNISPED", "IMEX", "FRONTOFFICE"}

-                    For Each FirmaTMP In LIST_FIRMEN
+                    'Dim C As New ContextMenuStrip

-                        Dim item_Firma As New ToolStripMenuItem
-                        item_Firma.Text = FirmaTMP
+                    'For Each FirmaTMP In LIST_FIRMEN

-                        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
-                        Dim dt = sql.loadDgvBySql("SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname FROM [ADMIN].[dbo].[tblMitarbeiter]
-                                              where mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL') and mit_gekuendigt=0
-                                              and mit_abteilung IN ('QS','ZOLL','DISPO') and [mit_TESTonly]=0 AND [mit_pseudoUser]=0
-                                              order by mit_nname,mit_vname  ", "AVISO")
+                    '    Dim item_Firma As New ToolStripMenuItem
+                    '    item_Firma.Text = FirmaTMP

-                        For Each r In dt.Rows
-                            Dim item As New ToolStripMenuItem
-                            item.Tag = r("mit_id")
-                            item.Text = r("MAname")
-                            AddHandler item.Click, Sub()
-                                                       FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID, item.Tag, True)
-                                                       reload(AvisoID)
-                                                   End Sub
+                    '    Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+                    '    Dim dt = sql.loadDgvBySql("SELECT TOP (1000) [mit_id],[mit_nname] + ' ' + [mit_vname] + ' (' + mit_niederlassung + ')' as MAname FROM [ADMIN].[dbo].[tblMitarbeiter]
+                    '                          where mit_firma IN ('" & FirmaTMP & "','BEIDE','ALLE','ALL') and mit_gekuendigt=0
+                    '                          and mit_abteilung IN ('QS','ZOLL','DISPO') and [mit_TESTonly]=0 AND [mit_pseudoUser]=0
+                    '                          order by mit_nname,mit_vname  ", "AVISO")
+
+                    '    For Each r In dt.Rows
+                    '        Dim item As New ToolStripMenuItem
+                    '        item.Tag = r("mit_id")
+                    '        item.Text = r("MAname")
+                    '        AddHandler item.Click, Sub()
+                    '                                   FUNC.SendungUebernehmen(dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_SendungID").Value, AvisoID, item.Tag, True)
+                    '                                   reload(AvisoID)
+                    '                               End Sub


-                            item_Firma.DropDownItems.Add(item)
-                        Next
-                        C.Items.Add(item_Firma)
-                    Next
-                    C.Show(System.Windows.Forms.Cursor.Position)
+                    '        item_Firma.DropDownItems.Add(item)
+                    '    Next
+                    '    C.Items.Add(item_Firma)
+                    'Next
+                    'C.Show(System.Windows.Forms.Cursor.Position)
                Else

                    If AVISO.Abgeschlossen Then Exit Sub
@@ -1828,12 +1894,31 @@ Public Class usrcntlAktDetails


    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        If FUNC.AktUebernehmen(AvisoID) Then
-            frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
-            frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+            Dim f As New frmAvisoWeiterleiten("A", AvisoID) '--> Weitereliten
+            If f.ShowDialog(Me) = DialogResult.OK Then
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                Vermerke_anzeigen()
+            End If
+        Else
+            If FUNC.AktUebernehmen(AvisoID, False) Then
+                frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+                frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+            End If
        End If
    End Sub

+
+    Sub intiAktUebernehmenBtn()
+        If AVISO.LetzterMitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+            Button4.Image = My.Resources.weiterleiten_small1
+            Button4.Text = "Akt weiterleiten..."
+        Else
+            Button4.Image = My.Resources.personCheck_small
+            Button4.Text = "Akt übernehmen"
+        End If
+    End Sub
    Public Sub showInfo(t As String, s As Double)
        lblAktUebernommen.Text = t
        lblAktUebernommen.Visible = True
@@ -1946,16 +2031,12 @@ Public Class usrcntlAktDetails
    End Sub

    Private Sub btnFertig_Click_1(sender As Object, e As EventArgs) Handles btnFertig.Click
-        FUNC.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
+        VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.LKWFertig(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
        frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
    End Sub



-
-
-
-
    Private Sub btnÄndern_Click(sender As Object, e As EventArgs) Handles btnÄndern.Click
        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = AvisoID 'zur Sicherheit
        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
@@ -2067,6 +2148,7 @@ Public Class usrcntlAktDetails
                Case "WAI" : filialeNr = 5103
                Case "NKD" : filialeNr = 5303
                Case "SFD" : filialeNr = 4839
+                Case "NEU" : filialeNr = 4819
            End Select
        ElseIf (cnt - txtSendungen.Text) <= txtSndFiskalAT.Text Then
            filialeNr = 4805
@@ -2312,7 +2394,7 @@ Public Class usrcntlAktDetails
            'Dim trd = New Threading.Thread(Sub()
            For Each s In SENDUNG_LIST
                If checkcbxAlleFirmen(s.FilialenNr) Then
-                    If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername)
+                    If Not s.tblSnd_Fremdspedition Then SendungOptions.PrintSendung("PRINT", s, AVISO, Printername,, SENDUNG_LIST.Count)
                End If
            Next
            '                               End Sub)
@@ -2544,5 +2626,24 @@ Public Class usrcntlAktDetails
        Return ""
    End Function

+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        Dim rpt As New rptQRAviso(AVISO)
+        Dim printer = "" 'SDL.cProgramFunctions.getDruckernameBySearch("INFO", True)
+        If printer <> "" Then
+            SDL.cProgramFunctions.printRpt(rpt, printer, True)
+        Else
+            SDL.cProgramFunctions.showRpt(rpt, "AVISO", False)
+        End If
+
+    End Sub
+
+    Private Sub Button13_Click_1(sender As Object, e As EventArgs) Handles Button13.Click
+        Dim mailTo = InputBox("Freigabe-Mail senden an:")
+
+        'If vbYes = MsgBox("Freigabe-Mail wirklich senden?", vbYesNoCancel) Then
+        If mailTo <> "" Then
+            AvisoStatusFunctions.SendFreigabeEmail(AVISO, mailTo)
+        End If
+    End Sub
 End Class