neu

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -1523,5 +1523,27 @@ Public Class usrcntlAktDetailsATILLANeu
         End If
     End Sub
 
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+        Dim f As New SDL.frmCMR
 
+        f.btnCMRtoAkt.Visible = True
+        f.txtCMRName.Visible = True
+
+        If f.ShowDialog(Me) Then
+
+            Dim da_id = -1
+            Dim anhId = -1
+            Dim destPath = ""
+
+            Dim Typ = ""
+
+            If f.PDF_Path <> "" Then
+                Dim CMRName = If(f.txtCMRName.Text <> "", f.txtCMRName.Text, "CMR")
+                frmSendungAnhangImport.saveToDS(AvisoID, CMRName, f.PDF_Path, "CMR", "PDF", da_id, anhId, destPath)
+                initAnhaenge()
+
+            End If
+
+        End If
+    End Sub
 End Class