edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MDM-Sammelrechnung IDS Prüfung erweitert, Fakt.

Browse Source
This commit is contained in:
d.breimaier
2025-02-20 09:04:34 +01:00
parent d0048c512d
commit 5d03008258
4 changed files with 14 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.6.2")> <Assembly: AssemblyVersion("1.3.6.3")>
<Assembly: AssemblyFileVersion("1.3.6.2")> <Assembly: AssemblyFileVersion("1.3.6.3")>

2
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -4057,7 +4057,7 @@ Public Class frmMDMDatenverarbetiung
pruefData_IDS = True pruefData_IDS = True
Try 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 If RechnenWertNichtEingetragen > 0 Then
pruefData_IDS = False pruefData_IDS = False

7
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -1,5 +1,4 @@
Imports System.IO Imports System.IO
Imports Microsoft.Office.Interop
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlFakturierung Public Class usrcntlFakturierung
@@ -229,7 +228,11 @@ Public Class usrcntlFakturierung
'410 Set qdf = dbs.CreateQueryDef("") '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) showPic(ok, PictureBox1)
'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Exit Sub 'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Exit Sub

7
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -928,8 +928,13 @@ Public Class SQL
cmd.ExecuteNonQuery() cmd.ExecuteNonQuery()
If id <= 0 Then 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) 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
End If End If