vers

Aviso/frmHauptfenster.vb

@@ -2837,34 +2837,35 @@ ELSE_ATILLA:
 
 
         If e.Button = MouseButtons.Right Then
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
-                If sender Is gridAviso Then
-                    VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
-                    sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
-                    conMenuAviso.Show(Cursor.Position)
-                End If
-            Else
+            If True Then
+                'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
+                '    If sender Is gridAviso Then
+                '        VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+                '        sender.CurrentCell = sender.Rows(e.RowIndex).Cells(e.ColumnIndex)
+                '        conMenuAviso.Show(Cursor.Position)
+                '    End If
+                'Else
                 setAkive_AuswahlID()
-                avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
-                Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
-                If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
-                    'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
-                    lblErrVermerk.Width = 300
-                    lblErrVermerk.Visible = True
-                    hideErr.Enabled = True
-                    Exit Sub
+                    avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
+                    Dim hStatus = AvisoDAL.LesenAviso(tmpId, "").Status
+                    If hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorgeschrieben And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst And hStatus <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Vorbereitet Then
+                        'MsgBox("Ein Vermerk kann nur erfasst werden, wenn der Status des Aviso auf 'Erfasst', 'Vorbereitet', 'Vorgeschrieben' oder 'Ankunft' steht.", vbInformation)
+                        lblErrVermerk.Width = 300
+                        lblErrVermerk.Visible = True
+                        hideErr.Enabled = True
+                        Exit Sub
+                    End If
+
+                    Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                    Dim sv As New frmAddAktenvermerkShort(tmpId)
+                    sv.Location = Me.PointToClient(Cursor.Position)
+                    ' sv.ShowDialog()
+                    sv.ShowDialog(frmGrayOut)
+                    frmGrayOut.Close()
+
                 End If
-
-                Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-                Dim sv As New frmAddAktenvermerkShort(tmpId)
-                sv.Location = Me.PointToClient(Cursor.Position)
-                ' sv.ShowDialog()
-                sv.ShowDialog(frmGrayOut)
-                frmGrayOut.Close()
-
-            End If
-        ElseIf e.Button = MouseButtons.Left Then
-            VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
+            ElseIf e.Button = MouseButtons.Left Then
+                VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
             avisoAktualisierenAktiveIdBehalten(tmpId,  , False)
         End If
     End Sub