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

Auswertung VERIMEX Korr., Laufzettel SA-Gestellung

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-21 14:53:31 +01:00
parent 0f6a78428b
commit 984a341b6e
10 changed files with 293 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Aviso/Auswertung/usrctlStatVERIMEX.vb
View File

@@ -203,28 +203,28 @@ Public Class usrctlStatVERIMEX
Try
Dim whereFiliale = ""
Dim innerJoinFiliale = ""
Select Case cboFirma._value
Select Case cboAbfFirma._value
Case ""
Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 "
Case "ATILLA" : whereFiliale = " and tblSendungen.FilialenNr='4801' "
Case Else
whereFiliale = " and Filialen.Firma='" & cboFirma._value & "' "
whereFiliale = " and tblSendungen.FilialenNr<>'4801' and Filialen.Firma='" & cboAbfFirma._value & "' "
innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
End Select
Dim sqlstr = "SELECT (Select isnull(Filialen.firma,'') FROM [FMZOLL\SQLFMZOLL].VERAG.dbo.Filialen WHERE [tblSendungen].FilialenNr=Filialen.FilialenNr) Firma,
mit_vname + ' ' + mit_nname as Mitarbeiter, aviso.LKW_Nr [LKW Kennzeichen],tblSnd_AvisoID [LKW-ID], Auftraggeber as Avisierer, Frächter, tblSnd_Empfaenger as Empfänger, tblSnd_Colli Colli, tblSnd_Gewicht Gewicht, tblSnd_Abfertigungsart_ID Abfertigungsart, tblSendungen.FilialenNr , tblSendungen.AbfertigungsNr, replace(Ankunft,'1899-12-30 00:00:00','') Ankunft, replace(Freigabe,'1899-12-30 00:00:00','') Freigabe
FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
" & innerJoinFiliale & "
where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datStatVon.Value & "' and '" & datStatBis.Value & "' and tblSnd_AbfertigungTR_MA is not null
" & whereFiliale & "
ORDER BY Firma, Mitarbeiter,Auftraggeber,LKW_Nr,tblSnd_PosUnterNr"
Dim sqlstr = "SELECT mit_vname + ' ' + mit_nname as Mitarbeiter ,tblSnd_anzahlHandling as AnzahlVersandscheine ,tblSnd_anzahlHandlingPos as AnzahlPositionen, aviso.LKW_Nr [LKW Kennzeichen],tblSnd_AvisoID [LKW-ID], Auftraggeber as Avisierer, Frächter, tblSendungen.FilialenNr , tblSendungen.AbfertigungsNr, replace(Ankunft,'1899-12-30 00:00:00','') Ankunft, replace(Freigabe,'1899-12-30 00:00:00','') Freigabe
FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbfertigungTR_MA
" & innerJoinFiliale & "
where cast(tblSnd_AbfertigungTR as date) BETWEEN '" & datAbfStatVon.Value & "' and '" & datAbfStatBis.Value & "' and tblSnd_AbfertigungTR_MA is not null
" & whereFiliale & " ORDER BY mit_nname, tblSnd_AbfertigungTR"
SDL.cProgramFunctions.genExcelFromDT_NEW(SQL.loadDgvBySql(sqlstr, "AVISO"))
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try