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

Merge branch 'master' of https://verag.visualstudio.com/AVISO/_git/AVISO

Browse Source
This commit is contained in:
d.breimaier
2023-01-17 17:11:23 +01:00
parent 6652d84799 cbb1abc391
commit 8b6ca3762f
2 changed files with 43 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/Auswertung/usrctlStatVERIMEX.vb
View File

@@ -46,14 +46,14 @@ Public Class usrctlStatVERIMEX
End Select
With dgvAbfertigungTR
Dim sqlstr = "SELECT mit_vname + ' ' + mit_nname as Mitarbeiter ,sum(tblSnd_anzahlHandling) as Versandscheine ,sum(tblSnd_anzahlHandlingPos) as Positionen ,count(distinct(avisoid)) as LKW
Dim sqlstr = "SELECT mit_vname + ' ' + mit_nname as Mitarbeiter ,sum(tblSnd_AbfertigungTRAnzahl) as Versandscheine ,sum(tblSnd_AbfertigungTRAnzahlPos) as Positionen ,count(distinct(avisoid)) as LKW
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 & "
group by mit_vname,mit_nname"
'früher: Datum statt tblSnd_AbfertigungTR
'MsgBox(sqlstr)
dgvAbfertigungTR.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
End With
@@ -215,7 +215,7 @@ Public Class usrctlStatVERIMEX
innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
End Select
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
Dim sqlstr = "SELECT mit_vname + ' ' + mit_nname as Mitarbeiter ,tblSnd_AbfertigungTRAnzahl as AnzahlVersandscheine ,tblSnd_AbfertigungTRAnzahlPos 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

4
Aviso/frmHauptfenster.vb
View File

@@ -6172,8 +6172,8 @@ Public Class AvisoStatusFunctions
' Return False
'End If
SENDUNG_TMP.tblSnd_anzahlHandling = anzahl
SENDUNG_TMP.tblSnd_anzahlHandlingPos = anzahlPos
SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl = anzahl
SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos = anzahlPos
If SENDUNG_TMP.tblSnd_AbfertigungTR Is Nothing Then
SENDUNG_TMP.tblSnd_AbfertigungTR_MA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID