neu

SDL/kunden/frmKundenZOLLVollmachten.vb

@@ -24,7 +24,8 @@
             Case "UNISPED", "IMEX", "FRONTOFFICE"
                 Panel1.Visible = True
             Case Else
-                Me.Height = Me.Height - Panel1.Height
+                Panel1.Visible = True
+                'Me.Height = Me.Height - Panel1.Height
         End Select
 
         If id > 0 Then
@@ -59,7 +60,7 @@
                 Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
                 DS.DELETE_COMPLETE()
 
-                If Not ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, id) Then
+                If ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, -1) Then
                     id = -1 : pic.Visible = False
                     Label2.Text = "Kein PDF vorhanden."
                     picPDF.Image = My.Resources.pdf_gray