Merge

Aviso/frmATEZ_NCTS.vb

@@ -85,12 +85,12 @@ Public Class frmATEZ_NCTS
                 atez.setJsonPDF(atez_data, dgvAnhaenge)
 
                 Dim data As New DataObject()
-                    data.SetData(DataFormats.Text, atez_data.json)
-                    Clipboard.SetDataObject(data)
-                    Me.Cursor = Cursors.Default
+                data.SetData(DataFormats.Text, atez_data.json)
+                Clipboard.SetDataObject(data)
+                Me.Cursor = Cursors.Default
                 MsgBox("JSON-Daten in Zwischenablage gespeichert")
                 Exit Sub
-                End If
+            End If
 
             If atez_data.status = "Sent" Then
                 Exit Sub
@@ -118,6 +118,7 @@ Public Class frmATEZ_NCTS
                 .VERAG_LRN = lblBezugsnummer.Text
                 .LicensePlateContainerNo = txtLKWId.Text
                 .DAKOSY_TemplateCode = cboStammreferenz._value
+                If .DAKOSY_TemplateCode = "" Then .DAKOSY_TemplateCode = "*OWN"
                 .DAKOSY_Procedure = cboProzedur._value
                 .DAKOSY_IOPartner = txtDyMandant.Text
                 .DAKOSY_Division3 = txtDyNiederlassung.Text