neu

SDL/kunden/frmKundenDatenblatt.vb

@@ -40,6 +40,7 @@
     End Sub
 
     Private Sub frmKundenDatenblatt_Load(sender As Object, e As EventArgs) Handles Me.Load
+        usrCntlAnhaenge.INIT(KundenNr)
         KD_DB = New VERAG_PROG_ALLGEMEIN.cKundenDatenblatt(KundenNr)
         Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
         lbl.Text = AD.Ordnungsbegriff
@@ -57,4 +58,16 @@
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         Me.Close()
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If usrCntlAnhaenge.DS IsNot Nothing Then
+            Dim ds = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Checkliste_Frachtführer.pdf")
+
+            If ds IsNot Nothing AndAlso ds.DATA_LIST.LIST.Count > 0 AndAlso ds.GET_TOP1_PATH(False) <> "" Then
+                usrCntlAnhaenge.DS.uploadDataToDATENSERVER(ds.GET_TOP1_PATH(False), "Checkliste_Frachtführer.pdf", ".pdf", False)
+                usrCntlAnhaenge.initPdf()
+            End If
+        End If
+
+    End Sub
 End Class