mic

Aviso/ATEZ/frmATEZ_EZA.vb

@@ -78,26 +78,6 @@ Public Class frmATEZ_EZA
         Try
 
 
-            'If Button1.Text = "JSON" Then
-            '    If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
-            '    atez.setJsonPDF(atez_data, dgvAnhaenge)
-
-            '    Dim data As New DataObject()
-            '    data.SetData(DataFormats.Text, atez_data.json)
-            '    Clipboard.SetDataObject(data)
-            '    Me.Cursor = Cursors.Default
-            '    MsgBox("JSON-Daten in Zwischenablage gespeichert")
-            '    Exit Sub
-            'End If
-
-            'If atez_data.status = "Sent" Then
-            '    Exit Sub
-            'End If
-
-            ''auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan
-            ''If Not checkAttachment() Then
-            ''    Exit Sub
-            ''End If
 
 
             If Not checkMandatoryField() Then