neu

2020-06-04 22:19:07 +02:00
parent bf4f36a8f2
commit 8f6eaaaba8
37 changed files with 515 additions and 318 deletions
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -700,7 +700,7 @@ Public Class usrcntlAktDetails
        gridVermerke.Columns.Clear()
        lblInfoAviso.Visible = False
        infotxt = ""
-
+      '  MsgBox("SO")
        ' If setAkive_AuswahlID() = -1 Then Exit Sub
        If AvisoID <= 0 Then Exit Sub

@@ -916,6 +916,20 @@ Public Class usrcntlAktDetails
                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()


+                Case "74"
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.VermerkCodeId = 75
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
+                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+                Case "76"
+                    myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
+                    myVermerk.VermerkCodeId = 77
+                    Dim IdTmp = VermerkeDAL.SpeichernVermerk(myVermerk)
+                    VermerkeDAL.SpeichernVermerkIDAufgehoben(VermekId, IdTmp)
+                    init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
+
+
            End Select
            loaded = False
            '  Dim tmpIndex = -1
@@ -1023,16 +1037,28 @@ Public Class usrcntlAktDetails
                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen."
                                End If
                            Case 55
-                                If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
-                                    optionCell.Value = "Rg-Best. erhalten"
-                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
-                                End If
-                            Case 57
-                                If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
-                                    optionCell.Value = "Dispoliste erhalten"
-                                    optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
-                                End If
-                        End Select
+                            If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "Rg-Best. erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
+                            End If
+                        Case 57
+                            If Not existCodeInGridVermerke(58, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "Dispoliste erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Dispoliste erhalten' einzutragen."
+                            End If
+
+                        Case 74
+                            If Not existCodeInGridVermerke(75, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "Frachtkosten erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Frachtkosten erhalten' einzutragen."
+                            End If
+
+                        Case 76
+                            If Not existCodeInGridVermerke(77, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
+                                optionCell.Value = "Absend.best. erhalten"
+                                optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Absenderbestätigung erhalten' einzutragen."
+                            End If
+                    End Select
                    End If
            Next

@@ -1118,14 +1144,18 @@ Public Class usrcntlAktDetails
        'gridMyAviso.ClearSelection() 'WARUM?

        DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
-        If e.Button = Windows.Forms.MouseButtons.Right Then
+        If e.Button = MouseButtons.Right Then
            If AVISO.Abgeschlossen Then Exit Sub

            If sender Is gridVermerke Then
                If gridVermerke.SelectedRows.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
                '  AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells("AvisoId").Value)
                gridVermerke.CurrentCell = gridVermerke.Rows(e.RowIndex).Cells(e.ColumnIndex)
-                conMenuVermerke.Show(Windows.Forms.Cursor.Position)
+                conMenuVermerke.Show(Cursor.Position)
+
+                ToolUeberweisungsBeleg.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
+                toolVkReminder.Visible = (gridVermerke.SelectedRows(0).Cells("VermerkeCode").Value = "13")
+
            End If

        End If
@@ -1279,7 +1309,7 @@ Public Class usrcntlAktDetails

        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
        Dim sv As New frmAddSendungsvermerkShort(AvisoID, -1) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
-        sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
+        sv.Location = Me.PointToClient(Cursor.Position)
        sv.ShowDialog(frmGrayOut)
        frmGrayOut.Close()

@@ -1690,7 +1720,7 @@ Public Class usrcntlAktDetails
    End Sub

    Private Sub dgvSendungen_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvSendungen.CellMouseClick
-        If e.Button = Windows.Forms.MouseButtons.Right Then
+        If e.Button = MouseButtons.Right Then
            If dgvSendungen.Columns.Count > 0 Then
                If dgvSendungen.Columns(e.ColumnIndex).Name = "SenungUebernehmen" Then
                    Exit Sub
@@ -1724,7 +1754,7 @@ Public Class usrcntlAktDetails
                    '    Next
                    '    C.Items.Add(item_Firma)
                    'Next
-                    'C.Show(System.Windows.Forms.Cursor.Position)
+                    'C.Show(System.Cursor.Position)
                Else

                    If AVISO.Abgeschlossen Then Exit Sub
@@ -1743,7 +1773,7 @@ Public Class usrcntlAktDetails

                    Dim frmGrayOut = grayoutForm()
                    Dim sv As New frmAddSendungsvermerkShort(AvisoID, dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
-                    sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
+                    sv.Location = Me.PointToClient(Cursor.Position)
                    sv.ShowDialog(frmGrayOut)
                    frmGrayOut.Close()
                    If tbcntlVermerke.SelectedIndex <> 2 Then tbcntlVermerke.SelectedIndex = 2
@@ -1843,7 +1873,7 @@ Public Class usrcntlAktDetails
    Private Sub btnKassenbuchEintrag_Click(sender As Object, e As EventArgs)
        Dim PERSONAL As SDL.cPersonal = Nothing
        Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
-        If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
+        If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then

            PERSONAL = frmSecureLoginKassenbuch.PERSONAL
            Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E")
@@ -2052,7 +2082,7 @@ Public Class usrcntlAktDetails

        Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
        Dim sv As New frmAddSendungsvermerkShort(AvisoID, -1) ', dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value)
-        sv.Location = Me.PointToClient(System.Windows.Forms.Cursor.Position)
+        sv.Location = Me.PointToClient(Cursor.Position)
        sv.ShowDialog(frmGrayOut)
        frmGrayOut.Close()

@@ -2245,10 +2275,10 @@ Public Class usrcntlAktDetails

        Exit Sub
        '    pnlFormulare.Visible = Not pnlFormulare.Visible
-        cntxtFormulare.Show(Windows.Forms.Cursor.Position)
+        cntxtFormulare.Show(Cursor.Position)

        '  Dim ScreenPos As Point = Me.PointToScreen(New Point(0, 0))
-        'pnlFormulare.PointToClient = Windows.Forms.Cursor.Position
+        'pnlFormulare.PointToClient = Cursor.Position
    End Sub


@@ -2266,7 +2296,7 @@ Public Class usrcntlAktDetails

        Dim PERSONAL As SDL.cPersonal = Nothing
        Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
-        If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
+        If frmSecureLoginKassenbuch.ShowDialog(Me) = DialogResult.OK Then
            PERSONAL = frmSecureLoginKassenbuch.PERSONAL
            Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E")
            frmBeleg.AvisoID = AvisoID
@@ -2282,6 +2312,9 @@ Public Class usrcntlAktDetails
                                            '  frmBeleg.BELEG.AbfertigungsNr = Me.SENDUNG_LIST(Me.CURRENT_INDEX).AbfertigungsNr
                                            frmBeleg.BELEG.LKW_Id = AVISO.AvisoID
                                            frmBeleg.BELEG.LKW_Beleg = True
+                                            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
+                                                frmBeleg.BELEG.LKW_Beleg = False
+                                            End If
                                            frmBeleg.init()

                                            If AVISO.Frächter_KdNr > 0 Then
@@ -2293,7 +2326,7 @@ Public Class usrcntlAktDetails
                                        End Sub


-            If frmBeleg.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
+            If frmBeleg.ShowDialog(Me) = DialogResult.OK Then
                If frmBeleg.BELEG.gebucht Then
                    'initDataBinding()
                End If
@@ -2453,7 +2486,6 @@ Public Class usrcntlAktDetails
        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
        VermerkeDAL.toggleHervorheben(CInt(gridVermerke.SelectedRows(0).Cells("VermerkID").Value))
        Vermerke_anzeigen(index)
-
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
@@ -2689,5 +2721,27 @@ Public Class usrcntlAktDetails
            AvisoStatusFunctions.SendFreigabeEmail(AVISO, mailTo)
        End If
    End Sub
+
+
+
+    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolUeberweisungsBeleg.Click, toolVkReminder.Click
+        If gridVermerke.SelectedRows.Count = 0 Then Exit Sub
+        Dim index As Integer = -1
+        If (dgvSendungen.SelectedRows.Count > 0) Then index = dgvSendungen.SelectedRows(0).Index
+
+
+        Dim AvisoId_Tmp = gridVermerke.SelectedRows(0).Cells("AvisoId").Value
+        Dim SendungID_Tmp = gridVermerke.SelectedRows(0).Cells("SendungID").Value
+
+        If sender Is toolVkReminder Then
+            AvisoStatusFunctions.insertSendungsVermerk(SendungID_Tmp, AvisoId_Tmp, "VK: Reminder geschickt", 78)
+        ElseIf sender Is ToolUeberweisungsBeleg Then
+            AvisoStatusFunctions.insertSendungsVermerk(SendungID_Tmp, AvisoId_Tmp, "VK: Überweisungsbeleg erhalten.", 79)
+        End If
+
+        Vermerke_anzeigen(index)
+
+    End Sub
+
 End Class