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

SDL Bugfixes Karten Retourniert, LKW Docs erw.; DTB an Dakosy (Stammref)

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-07-17 08:22:03 +02:00
parent e04b61d8f4
commit a4a94a81c4
13 changed files with 685 additions and 582 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/mdm/usrCntlKartenDaten.vb
View File

@@ -1203,10 +1203,10 @@ Public Class usrCntlKartenDaten
Case 210 : odoc = getWordRetourniert_SI(odoc, kdNr, datum)
Case 211 : odoc = getWordRetourniert_MULTI(odoc, kdNr, datum)
Case 213 : odoc = getWordRetourniert_HUGO(odoc, kdNr, datum)
Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum)
Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum, "214")
Case 215 : odoc = getWordRetourniert_PLOSE_IT(odoc, kdNr, datum)
Case 216 : odoc = getWordRetourniert_PLOSE_MEDPASS(odoc, kdNr, datum)
Case 217 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum)
Case 217 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum, "217")
Case 218 : odoc = getWordRetourniert_PLOSE_TRUCKMASTER(odoc, kdNr, datum)
Case Else : odoc.Close() : MsgBox("Falsche Leistung")
End Select
@@ -1365,9 +1365,9 @@ Public Class usrCntlKartenDaten
End Try
Return odoc
End Function
Function getWordRetourniert_PLOSE(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document
Function getWordRetourniert_PLOSE(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date, SDLNr As String) As Microsoft.Office.Interop.Word.Document
Try
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=214 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr IN (" & SDLNr & ") AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'")
Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr)
If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc
Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr)
@@ -1386,6 +1386,7 @@ Public Class usrCntlKartenDaten
oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1)
Dim i = 1
For Each r As DataRow In dt.Rows
' MsgBox(cSqlDb.checkNullStr(r("OBUID")))
oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen"))
oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr"))
oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID"))