ATR Archiv

Aviso/frmSendungsdetailsNEU.vb

@@ -7,6 +7,7 @@ Imports System.Data.SqlClient
 Imports iTextSharp.text.pdf
 Imports Microsoft.Office.Interop
 Imports DocumentFormat.OpenXml.Presentation
+Imports SDL
 
 Public Class frmSendungsdetailsNEU
     Public AvisoId As Integer
@@ -280,7 +281,7 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
 
-    Sub initGrenzstelle
+    Sub initGrenzstelle()
 
         lblGrenze.Text = ""
         If AVISO.Grenzstelle.Replace("???", "") = "" Then
@@ -307,7 +308,7 @@ Public Class frmSendungsdetailsNEU
 
             txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] , [Description] As Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200)
 
-            initGrenzstelle
+            initGrenzstelle()
 
             initVorpapiere()
 
@@ -6615,4 +6616,11 @@ Public Class frmSendungsdetailsNEU
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Qualitaetskontrolle, SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, {SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr, SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber, SENDUNG_LIST(CURRENT_INDEX), AVISO})
     End Sub
 
+    Private Sub Button22_Click_1(sender As Object, e As EventArgs) Handles Button22.Click
+        Dim f As New frmOriginalArchiv_ATR
+        f.SendungKoppeln = True
+        f.SendungsId = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID
+        f.ShowDialog(Me)
+        initAnhang()
+    End Sub
 End Class