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

LKW CHAT OnlineStatus; SDL Bestelldatum Überfällige BEstellungen (PLOSE); REchnugnsnsuche (Abs+Empf); VZ-Preise IMEX +Avisokosten

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-04 10:12:10 +02:00
parent c75aab7a87
commit 4fea6e3470
8 changed files with 142 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/mdm/usrCntlKartenDaten.vb
View File

@@ -1088,15 +1088,20 @@ Public Class usrCntlKartenDaten
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
Dim von = Now.AddMonths(-6)
Select Case aktSDLNr
Case "213", "214", "215", "216", "217", "211" : von = "01.01.2000"
End Select
cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
'Now.AddMonths(-6) -_> Lieferdatum vormals -6M
Exit Sub
If kdNr > 0 Then
cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, kdNr, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
ElseIf dgvSDL.SelectedRows.Count > 0 Then
cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, Now.AddMonths(-6), Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, dgvSDL.CurrentRow.Cells("KundenNr").Value, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
cMDMAuswertung.genUeberfaelligeBestellungen(Me.FindForm, von, Now, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, dgvSDL.CurrentRow.Cells("KundenNr").Value, IIf(IsNumeric(aktSDLNr), aktSDLNr, -1))
End If
End Sub