From 5d03008258130949579e16260ed267838b2ae5be Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 20 Feb 2025 09:04:34 +0100 Subject: [PATCH] =?UTF-8?q?MDM-Sammelrechnung=20IDS=20Pr=C3=BCfung=20erwei?= =?UTF-8?q?tert,=20Fakt.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/mdm/frmMDMDatenverarbetiung.vb | 2 +- SDL/seriendruck/usrCntlFakturierung.vb | 7 +++++-- VERAG_PROG_ALLGEMEIN/Classes/SQL.vb | 7 ++++++- 4 files changed, 14 insertions(+), 6 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index ff5e4249..0db2941f 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index c7bda7a7..71a947ef 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -4057,7 +4057,7 @@ Public Class frmMDMDatenverarbetiung pruefData_IDS = True Try - Dim RechnenWertNichtEingetragen As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null AND [Rechenwert] is null ", "FMZOLL")) + Dim RechnenWertNichtEingetragen As Integer = CInt((New SQL).getValueTxtBySql("select count(*) from [tblIDSTransactionsNew] WHERE cast(YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND tblIDSTransactionsNew.[UStVAn_ID] is null AND [Rechenwert] is null and CustomerCode not in (60004479,60025994) ", "FMZOLL")) 'Verag360 und VeragAG If RechnenWertNichtEingetragen > 0 Then pruefData_IDS = False diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index f7bcaa3a..48aea54f 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -1,5 +1,4 @@ Imports System.IO -Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN Public Class usrcntlFakturierung @@ -229,7 +228,11 @@ Public Class usrcntlFakturierung '410 Set qdf = dbs.CreateQueryDef("") - ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Sammelrechnung=6 and Firma_ID=19 and (UPPER([Sachbearbeiter])<>'" & Sachbearbeiter & "' or [Sachbearbeiter]<>'" & Sachbearbeiter & "') and Abfertigungsdatum = '" & dtRechnungsdatum.Value & "'", "FMZOLL") + + 'es sollen alle RE der letzen 3 Monate gesetzt werden (warum, weil das schon immer so war....) + 'ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Sammelrechnung=6 and Firma_ID=19 and Abfertigungsdatum = '" & dtRechnungsdatum.Value & "'", "FMZOLL") + + ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, -3, GETDATE())", "FMZOLL") showPic(ok, PictureBox1) 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Exit Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index ecd25ee8..e7f4adf6 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -928,8 +928,13 @@ Public Class SQL cmd.ExecuteNonQuery() If id <= 0 Then - Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) + Dim newcmd As New SqlCommand("SELECT CONVERT(int,isnull(@@IDENTITY,0))", conn) id = CInt(newcmd.ExecuteScalar) + If id = 0 Then + Dim newcmd2 As New SqlCommand("SELECT CONVERT(int,isnull(SCOPE_IDENTITY(),0))", conn) + id = CInt(newcmd2.ExecuteScalar) + + End If End If End If