CMR

Aviso/frmSendungsdetailsNEU.vb

@@ -5392,4 +5392,38 @@ Public Class frmSendungsdetailsNEU
         End If
 
     End Sub
+
+    Private Sub Button17_Click_2(sender As Object, e As EventArgs) Handles Button17.Click
+        Dim f As New SDL.frmCMR
+
+        f.btnCMRtoAkt.Visible = True
+        f.txtCMRName.Visible = True
+
+
+        If txtAbsender.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtAbsender.Text = txtAbsender.KdData_ADRESSEN.getAdressFromatted()
+        If txtFrachtfuehrer.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtFrachtführer.Text = txtFrachtfuehrer.KdData_ADRESSEN.getAdressFromatted()
+        If txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then f.uCmr.txtEmpfänger.Text = txtEmpfaenger.KdData_ADRESSEN.getAdressFromatted()
+
+        f.uCmr.dgvLadungenKurz.Rows.Add(If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, ""), "Pk", If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "")))
+
+        f.uCmr.txtKfz.Text = AVISO.LKW_Nr
+        f.uCmr.txtAnhänger.Text = AVISO.LKW_Nr
+
+        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, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
+                initAnhang()
+
+            End If
+
+        End If
+    End Sub
 End Class