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
2022-09-01 10:38:09 +02:00
parent 505b2800c5
commit 94556d7686
56 changed files with 1303 additions and 547 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Aviso/Auswertung/usrctlStatVERIMEX.vb
View File

@@ -270,17 +270,29 @@ Public Class usrctlStatVERIMEX
AddHandler rpt.Detail.Format, Sub()
'rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
'rpt.lblBis.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
rpt.Label2.Text = rpt.Fields.Item("Positionen").Value
rpt.lblAnzSnd.Text = rpt.Fields.Item("Versandscheine").Value
rpt.lblAnzLKW.Text = rpt.Fields.Item("LKW").Value
Dim anz_Positionen As Integer = 0
Dim anz_Versandscheine As Integer = 0
Dim anz_LKW As Integer = 0
If rpt.Fields.Item("Positionen").Value IsNot DBNull.Value AndAlso IsNumeric(rpt.Fields.Item("Positionen").Value) Then
anz_Positionen = CInt(rpt.Fields.Item("Positionen").Value)
End If
If rpt.Fields.Item("Versandscheine").Value IsNot DBNull.Value AndAlso IsNumeric(rpt.Fields.Item("Versandscheine").Value) Then
anz_Versandscheine = CInt(rpt.Fields.Item("Versandscheine").Value)
End If
If rpt.Fields.Item("LKW").Value IsNot DBNull.Value AndAlso IsNumeric(rpt.Fields.Item("LKW").Value) Then
anz_LKW = CInt(rpt.Fields.Item("LKW").Value)
End If
rpt.Label2.Text = anz_Positionen
rpt.lblAnzSnd.Text = anz_Versandscheine
rpt.lblAnzLKW.Text = anz_LKW
rpt.lblMitarbeiter.Text = rpt.Fields.Item("Mitarbeiter").Value
sumPos += CInt(rpt.Fields.Item("Positionen").Value)
sumSnd += CInt(rpt.Fields.Item("Versandscheine").Value)
sumLKW += CInt(rpt.Fields.Item("LKW").Value)
sumPos += anz_Positionen
sumSnd += anz_Versandscheine
sumLKW += anz_LKW
End Sub
AddHandler rpt.GroupHeader1.Format, Sub()
' If CheckBox1.Checked Then rpt.lblFiliale.Text = SQL.getValueTxtBySql("SELECT CAST(FilialenNr as varchar (4)) + ' ' + Grenzstelle FROM filialen WHERE FilialenNr='" & rpt.Fields.Item("FilialenNr").Value & "'", "FMZOLL")