WhatsApp, Anhänge SR, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -3884,7 +3884,7 @@ Public Class frmMDM_USTVAntrag
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) OrElse VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
 
-            If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen deaktiveren?", vbYesNoCancel) Then
+            If vbYes = MsgBox("Möchten Sie die Vorauszahlung der markierten Positionen deaktivieren?", vbYesNoCancel) Then
 
                 For Each r As DataGridViewRow In dgvUSTVPositionen.SelectedRows
 

SDL/seriendruck/usrCntlFakturierung.vb

@@ -1135,7 +1135,12 @@ Public Class usrcntlFakturierung
             ANH.dsId = CInt(DS.da_id)
             ANH.Bezeichnung = DS.da_name
             RECHNUNG.ANHAENGE.Add(ANH)
-            Return RECHNUNG.SAVE_ANHAENGE(RECHNUNG.RK_ID, False, False)
+
+            If Not ANH.INSERT(RECHNUNG.RK_ID, False) Then
+                Return False
+            End If
+
+            Return True
         Else
             MsgBox("Rechnung nicht initialisiert.")
             Return False