From 2f19d1bfbcfb0e8e47bc1e6ca2e5711e479ef4ad Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Tue, 31 Oct 2023 17:08:48 +0100
Subject: [PATCH] =?UTF-8?q?Sendungsdet.=20f=C3=BCr=20Qualit=C3=A4tskontrol?=
 =?UTF-8?q?le?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Aviso/frmSendungsdetailsNEU.Designer.vb |  2 +-
 Aviso/frmSendungsdetailsNEU.vb          | 12 +++++++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb
index 34d3dc0..d81cdc8 100644
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
@@ -5247,7 +5247,7 @@ Partial Class frmSendungsdetailsNEU
         Me.ctxtWeitereFormulare.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem, Me.AMBARZollbeschauToolStripMenuItem, Me.AMBARZollbeschauNEUToolStripMenuItem, Me.AntragQualitätskontrolleToolStripMenuItem})
         Me.ctxtWeitereFormulare.Name = "cntxt"
-        Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 180)
+        Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 202)
         '
         'toolGelangensbestätigung
         '
diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb
index a8fcfd3..46dd2f3 100644
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -3697,6 +3697,7 @@ Public Class frmSendungsdetailsNEU
         Select Case FormularArt
             Case SDL.FormularManagerArten.Importaviso_VK : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
             Case SDL.FormularManagerArten.Zollbeschau_Protokoll : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Zollbeschau_Protokoll, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE})
+            Case SDL.FormularManagerArten.Qualitaetskontrolle : SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO})
             Case SDL.FormularManagerArten.Importaviso
                 Dim f As SDL.frmFormulare = Nothing
                 SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
@@ -5879,7 +5880,7 @@ Public Class frmSendungsdetailsNEU
             cntxtVorauskasse.Show(Cursor.Position)
 
         Catch ex As Exception
-
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
 
     End Sub
@@ -6589,4 +6590,13 @@ Public Class frmSendungsdetailsNEU
         ContextMenuStrip3.Show(Cursor.Position)
     End Sub
 
+    Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click
+        Try
+            FormularArt = SDL.FormularManagerArten.Qualitaetskontrolle
+            cntxtVorauskasse.Show(Cursor.Position)
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
 End Class