new

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -964,6 +964,14 @@ Public Class usrCntlMDMAuswertungen
         Dim f As New frmMDMDatenverarbetiung
         f.Show()
     End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        If SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='KRIEGNER' where Sammelrechnung=6 and Firma_ID=19 and Sachbearbeiter<>'KRIEGNER' and Abfertigungsdatum> DATEADD(month,-3, GETDATE())", "FMZOLL") Then
+            MsgBox("Update erfolgreich.")
+        End If
+    End Sub
 End Class
 
 Class cMDMAuswertung