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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-02-02 21:16:08 +01:00
parent 2f7746d9ca
commit d22ee3d24c
13 changed files with 336 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Aviso/Auswertung/usrctlStatVERIMEX.vb
View File

@@ -7,10 +7,22 @@ Public Class usrctlStatVERIMEX
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub init()
Dim whereFiliale = ""
Dim innerJoinFiliale = ""
Select Case cboFirma._value
Case ""
Case 0 : whereFiliale = " and tblSendungen.FilialenNr <=0 "
Case Else
whereFiliale = " and Filialen.Firma='" & cboFirma._value & "' "
innerJoinFiliale = "inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen on [tblSendungen].FilialenNr=Filialen.FilialenNr"
End Select
With dgvAbklaerungTR
Dim sqlstr = "SELECT mit_vname + ' ' + mit_nname as Mitarbeiter ,count(*) as Sendungen ,count(distinct(avisoid)) as LKW
FROM [tblSendungen] inner join aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbklaerungTR_MA
FROM [tblSendungen] inner join Aviso on AvisoID = tblSnd_AvisoID inner join admin.dbo.tblMitarbeiter on mit_id=tblSnd_AbklaerungTR_MA
" & innerJoinFiliale & "
where cast(Datum as date) BETWEEN '" & datStatVon.Value & "' and '" & datStatBis.Value & "' and tblSnd_AbklaerungTR_MA is not null
" & whereFiliale & "
group by mit_vname,mit_nname"
dgvAbklaerungTR.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
@@ -23,9 +35,9 @@ Public Class usrctlStatVERIMEX
Private Sub datStatVon_ValueChanged(sender As Object, e As EventArgs) Handles datStatVon.ValueChanged, datStatBis.ValueChanged
init()
End Sub
'Private Sub datStatVon_ValueChanged(sender As Object, e As EventArgs) Handles datStatVon.ValueChanged, datStatBis.ValueChanged
'End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Cursor = Cursors.WaitCursor
@@ -88,4 +100,26 @@ Public Class usrctlStatVERIMEX
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show()
End Sub
Private Sub usrctlStatVERIMEX_Load(sender As Object, e As EventArgs) Handles Me.Load
cboFirma.Items.Clear()
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*Nicht zugeordnet", "0"))
cboFirma.changeItem("")
' cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", ""))
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
init()
End Sub
Private Sub datStatVon_KeyDown(sender As Object, e As KeyEventArgs) Handles datStatVon.KeyDown, datStatBis.KeyDown, cboFirma.KeyDown
If e.KeyCode = Keys.Return Then
init()
End If
End Sub
End Class