20200108

SDL/kunden/frmKundenZOLLVollmachten.vb

@@ -4,6 +4,7 @@
     Public erhalten As Boolean = False
     Dim id As Integer = -1
     'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
+    Dim ksql As New kundenSQL
 
     Sub New(kdnr, vollmachtId, erhalten, datum, id)
         Me.InitializeComponent()
@@ -19,8 +20,17 @@
         Me.MyComboBox1._value = vollmachtId
         Me.cbxErhaltenAm.Checked = erhalten
 
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "UNISPED", "IMEX", "FRONTOFFICE"
+                Panel1.Visible = True
+            Case Else
+                Me.Height = Me.Height - Panel1.Height
+        End Select
+
         If id > 0 Then
             pic.Visible = True
+            picPDF.Image = My.Resources.pdf
+
             Label2.Text = "PDF vorhanden."
             Label2.Cursor = Cursors.Hand
         End If
@@ -33,7 +43,7 @@
         Dim path = DS.uploadDataToDATENSERVERFileDialog() ' cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "VOLLMACHTEN", kdnr, MyComboBox1.Text)
         If path <> "" Then
             id = DS.da_id 'cDATENSERVER.getLAST_ID(path)
-            MsgBox(id)
+
             Label2.Text = "PDF vorhanden."
             Label2.Cursor = Cursors.Hand
         End If
@@ -41,18 +51,25 @@
     End Sub
 
     Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
-        If (id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
-            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
-            DS.DELETE_COMPLETE()
-        End If
 
-        id = -1 : pic.Visible = False
-        Label2.Text = "Kein PDF vorhanden."
+        Label2.Cursor = Cursors.WaitCursor
+        If (id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
+            If vbYes = MsgBox("Möchten Sie die Vollamcht wirklich löschen?", vbYesNoCancel) Then
+
+                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(id)
+                DS.DELETE_COMPLETE()
+
+                If Not ksql.setVollmacht_DSId(kdnr, MyComboBox1._value, id) Then
+                    id = -1 : pic.Visible = False
+                    Label2.Text = "Kein PDF vorhanden."
+                    picPDF.Image = My.Resources.pdf_gray
+                End If
+            End If
+        End If
         Label2.Cursor = Cursors.Default
     End Sub
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
-        Dim ksql As New kundenSQL
         If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
         Dim datVM As Object = Nothing
         If cbxErhaltenAm.Checked Then