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

201020

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-20 08:58:30 +02:00
parent be84dcbbea
commit ff29a8d491
30 changed files with 8842 additions and 692 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Aviso/Auswertung/frmAuswertung.Designer.vb generated
View File

@@ -28,6 +28,7 @@ Partial Class frmAuswertung
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.pnlOptions = New System.Windows.Forms.Panel()
Me.Button5 = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
@@ -86,6 +87,7 @@ Partial Class frmAuswertung
'pnlOptions
'
Me.pnlOptions.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.pnlOptions.Controls.Add(Me.Button5)
Me.pnlOptions.Controls.Add(Me.Panel1)
Me.pnlOptions.Controls.Add(Me.Button3)
Me.pnlOptions.Controls.Add(Me.Button2)
@@ -96,6 +98,18 @@ Partial Class frmAuswertung
Me.pnlOptions.Size = New System.Drawing.Size(144, 552)
Me.pnlOptions.TabIndex = 1
'
'Button5
'
Me.Button5.Enabled = False
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.ForeColor = System.Drawing.Color.White
Me.Button5.Location = New System.Drawing.Point(7, 180)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(131, 51)
Me.Button5.TabIndex = 3
Me.Button5.Text = "VERIMEX"
Me.Button5.UseVisualStyleBackColor = True
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button4)
@@ -118,6 +132,7 @@ Partial Class frmAuswertung
'
'Button3
'
Me.Button3.Enabled = False
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.White
Me.Button3.Location = New System.Drawing.Point(7, 123)
@@ -129,6 +144,7 @@ Partial Class frmAuswertung
'
'Button2
'
Me.Button2.Enabled = False
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.Location = New System.Drawing.Point(7, 66)
@@ -140,6 +156,7 @@ Partial Class frmAuswertung
'
'Button1
'
Me.Button1.Enabled = False
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(7, 9)
@@ -189,4 +206,5 @@ Partial Class frmAuswertung
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents Button10 As System.Windows.Forms.Button
Friend WithEvents Button5 As Button
End Class

24
Aviso/Auswertung/frmAuswertung.vb
View File

@@ -8,9 +8,18 @@ Public Class frmAuswertung
Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles Me.Load
clrPnlMain()
Dim usrCntl As New usrctlAuswertung
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Gesamt", Me) Then
Button2.Enabled = True
Dim usrCntl As New usrctlAuswertung
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Kunden", Me) Then Button1.Enabled = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_Mitarbeiter", Me) Then Button3.Enabled = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then Button5.Enabled = True
End Sub
@@ -681,6 +690,15 @@ Public Class frmAuswertung
admin.doSQL("delete FROM [tblEmailBenachrichtigung] WHERE [eb_EMail] = '' ", "FMZOLL")
End Sub
Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles Button5.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Statistik_VERIMEX", Me) Then
clrPnlMain()
Dim usrCntl As New usrctlStatVERIMEX
usrCntl.Dock = System.Windows.Forms.DockStyle.Fill
pnlMain.Controls.Add(usrCntl)
End If
End Sub
End Class
Public Class listMAZusammenf

447
Aviso/Auswertung/rptStat_VERIMEX_AbklTR.Designer.vb generated Normal file
View File

@@ -0,0 +1,447 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptStat_VERIMEX_AbklTR
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptStat_VERIMEX_AbklTR))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblMitarbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzSnd = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKassenbuchNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGeschaeftsjahr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMandantNiederlassung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblFiliale = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBarTitle = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblAnzLKWSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzSndSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblMitarbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzSnd, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFiliale, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBarTitle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzLKWSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzSndSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblMitarbeiter, Me.lblAnzLKW, Me.lblAnzSnd})
Me.Detail.Height = 0.1795276!
Me.Detail.Name = "Detail"
'
'lblMitarbeiter
'
Me.lblMitarbeiter.Height = 0.1795276!
Me.lblMitarbeiter.HyperLink = Nothing
Me.lblMitarbeiter.Left = 0.005118111!
Me.lblMitarbeiter.Name = "lblMitarbeiter"
Me.lblMitarbeiter.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblMitarbeiter.Text = "-"
Me.lblMitarbeiter.Top = 0!
Me.lblMitarbeiter.Width = 4.519686!
'
'lblAnzLKW
'
Me.lblAnzLKW.Height = 0.1795276!
Me.lblAnzLKW.HyperLink = Nothing
Me.lblAnzLKW.Left = 6.000001!
Me.lblAnzLKW.Name = "lblAnzLKW"
Me.lblAnzLKW.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblAnzLKW.Text = "0,00"
Me.lblAnzLKW.Top = 0!
Me.lblAnzLKW.Width = 1.475196!
'
'lblAnzSnd
'
Me.lblAnzSnd.Height = 0.1795276!
Me.lblAnzSnd.HyperLink = Nothing
Me.lblAnzSnd.Left = 4.524804!
Me.lblAnzSnd.Name = "lblAnzSnd"
Me.lblAnzSnd.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblAnzSnd.Text = "0"
Me.lblAnzSnd.Top = 0!
Me.lblAnzSnd.Width = 1.475198!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG Spediton AG"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 2.649606!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070864!
Me.Line2.Width = 7.480313!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.480313!
Me.Line2.Y1 = 0.03070864!
Me.Line2.Y2 = 0.03070864!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622046!
Me.ReportInfo2.Width = 2.437842!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.Label1, Me.Label9, Me.lblSachbearbeiter, Me.lblKassenbuchNr, Me.lblGeschaeftsjahr, Me.lblMandantNiederlassung})
Me.ReportHeader1.Height = 0.6968505!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageData = CType(resources.GetObject("picVERAG.ImageData"), System.IO.Stream)
Me.picVERAG.Left = 5.281889!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.198425!
'
'Label3
'
Me.Label3.Height = 0.1377953!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 1.421085E-14!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:"
Me.Label3.Top = 0.3830709!
Me.Label3.Width = 2.607087!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "Sendungserfassung TR 01.10.2016 bis 31.10.2016"
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 5.032284!
'
'Label1
'
Me.Label1.Height = 0.1377952!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 2.607087!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.Label1.Text = ""
Me.Label1.Top = 0.3830709!
Me.Label1.Width = 1.212598!
'
'Label9
'
Me.Label9.Height = 0.1377952!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 3.819686!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.Label9.Text = ""
Me.Label9.Top = 0.3830709!
Me.Label9.Width = 1.212598!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
""
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.5208663!
Me.lblSachbearbeiter.Width = 2.607087!
'
'lblKassenbuchNr
'
Me.lblKassenbuchNr.Height = 0.1759843!
Me.lblKassenbuchNr.HyperLink = Nothing
Me.lblKassenbuchNr.Left = 2.607087!
Me.lblKassenbuchNr.Name = "lblKassenbuchNr"
Me.lblKassenbuchNr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblKassenbuchNr.Text = ""
Me.lblKassenbuchNr.Top = 0.5208663!
Me.lblKassenbuchNr.Width = 1.212598!
'
'lblGeschaeftsjahr
'
Me.lblGeschaeftsjahr.Height = 0.1759843!
Me.lblGeschaeftsjahr.HyperLink = Nothing
Me.lblGeschaeftsjahr.Left = 3.819686!
Me.lblGeschaeftsjahr.Name = "lblGeschaeftsjahr"
Me.lblGeschaeftsjahr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblGeschaeftsjahr.Text = ""
Me.lblGeschaeftsjahr.Top = 0.5208663!
Me.lblGeschaeftsjahr.Width = 1.212598!
'
'lblMandantNiederlassung
'
Me.lblMandantNiederlassung.Height = 0.1759843!
Me.lblMandantNiederlassung.HyperLink = Nothing
Me.lblMandantNiederlassung.Left = 5.032284!
Me.lblMandantNiederlassung.Name = "lblMandantNiederlassung"
Me.lblMandantNiederlassung.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: righ" &
"t"
Me.lblMandantNiederlassung.Text = ""
Me.lblMandantNiederlassung.Top = 0.5208663!
Me.lblMandantNiederlassung.Width = 2.448032!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFiliale, Me.Label5, Me.lblBarTitle, Me.Label7})
Me.GroupHeader1.Height = 0.4982776!
Me.GroupHeader1.Name = "GroupHeader1"
'
'lblFiliale
'
Me.lblFiliale.Height = 0.1759843!
Me.lblFiliale.HyperLink = Nothing
Me.lblFiliale.Left = 0.01023622!
Me.lblFiliale.Name = "lblFiliale"
Me.lblFiliale.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
""
Me.lblFiliale.Text = ""
Me.lblFiliale.Top = 0.1035433!
Me.lblFiliale.Width = 7.470079!
'
'Label5
'
Me.Label5.Height = 0.1795276!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.005118111!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label5.Text = "Mitarbeiter"
Me.Label5.Top = 0.3188977!
Me.Label5.Width = 4.519686!
'
'lblBarTitle
'
Me.lblBarTitle.Height = 0.1795276!
Me.lblBarTitle.HyperLink = Nothing
Me.lblBarTitle.Left = 6.000001!
Me.lblBarTitle.Name = "lblBarTitle"
Me.lblBarTitle.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblBarTitle.Text = "Anzahl LKWs"
Me.lblBarTitle.Top = 0.3188977!
Me.lblBarTitle.Width = 1.475196!
'
'Label7
'
Me.Label7.Height = 0.1795276!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 4.524804!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label7.Text = "Anzahl Sendungen"
Me.Label7.Top = 0.3188977!
Me.Label7.Width = 1.475197!
'
'GroupFooter1
'
Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAnzLKWSum, Me.lblAnzSndSum, Me.Line1})
Me.GroupFooter1.Name = "GroupFooter1"
'
'lblAnzLKWSum
'
Me.lblAnzLKWSum.Height = 0.1795276!
Me.lblAnzLKWSum.HyperLink = Nothing
Me.lblAnzLKWSum.Left = 6.0!
Me.lblAnzLKWSum.Name = "lblAnzLKWSum"
Me.lblAnzLKWSum.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblAnzLKWSum.Text = "Barzahlungsbetrag"
Me.lblAnzLKWSum.Top = 0.007874017!
Me.lblAnzLKWSum.Width = 1.475196!
'
'lblAnzSndSum
'
Me.lblAnzSndSum.Height = 0.1795276!
Me.lblAnzSndSum.HyperLink = Nothing
Me.lblAnzSndSum.Left = 4.524804!
Me.lblAnzSndSum.Name = "lblAnzSndSum"
Me.lblAnzSndSum.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblAnzSndSum.Text = "Anzahl"
Me.lblAnzSndSum.Top = 0.007874017!
Me.lblAnzSndSum.Width = 1.475197!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 4.524804!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0!
Me.Line1.Width = 2.950393!
Me.Line1.X1 = 4.524804!
Me.Line1.X2 = 7.475197!
Me.Line1.Y1 = 0!
Me.Line1.Y2 = 0!
'
'rptStat_VERIMEX_AbklTR
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.lblMitarbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzSnd, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFiliale, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBarTitle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzLKWSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzSndSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKassenbuchNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGeschaeftsjahr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMandantNiederlassung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents lblMitarbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzSnd As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzLKWSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzSndSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFiliale As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBarTitle As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
End Class

5580
Aviso/Auswertung/rptStat_VERIMEX_AbklTR.resx Normal file
View File

File diff suppressed because it is too large Load Diff

6
Aviso/Auswertung/rptStat_VERIMEX_AbklTR.vb Normal file
View File

@@ -0,0 +1,6 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptStat_VERIMEX_AbklTR
End Class

163
Aviso/Auswertung/usrctlStatVERIMEX.Designer.vb generated Normal file
View File

@@ -0,0 +1,163 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrctlStatVERIMEX
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Label9 = New System.Windows.Forms.Label()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.dgvAbklaerungTR = New System.Windows.Forms.DataGridView()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.datStatBis = New System.Windows.Forms.DateTimePicker()
Me.datStatVon = New System.Windows.Forms.DateTimePicker()
Me.Panel3.SuspendLayout()
Me.Panel4.SuspendLayout()
CType(Me.dgvAbklaerungTR, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Label9)
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Location = New System.Drawing.Point(15, 17)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(701, 398)
Me.Panel3.TabIndex = 15
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(3, 8)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(139, 13)
Me.Label9.TabIndex = 18
Me.Label9.Text = "Sendungserfassung TR"
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel4.Controls.Add(Me.Button2)
Me.Panel4.Controls.Add(Me.dgvAbklaerungTR)
Me.Panel4.Controls.Add(Me.Label10)
Me.Panel4.Controls.Add(Me.Label6)
Me.Panel4.Controls.Add(Me.Button1)
Me.Panel4.Controls.Add(Me.datStatBis)
Me.Panel4.Controls.Add(Me.datStatVon)
Me.Panel4.Location = New System.Drawing.Point(3, 24)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(670, 359)
Me.Panel4.TabIndex = 15
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(592, 11)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 20
Me.Button2.Text = "Bericht"
Me.Button2.UseVisualStyleBackColor = True
'
'dgvAbklaerungTR
'
Me.dgvAbklaerungTR.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAbklaerungTR.Location = New System.Drawing.Point(6, 38)
Me.dgvAbklaerungTR.Name = "dgvAbklaerungTR"
Me.dgvAbklaerungTR.Size = New System.Drawing.Size(661, 318)
Me.dgvAbklaerungTR.TabIndex = 19
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(181, 17)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(10, 13)
Me.Label10.TabIndex = 18
Me.Label10.Text = "-"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 18)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(51, 13)
Me.Label6.TabIndex = 6
Me.Label6.Text = "Zeitraum:"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(511, 11)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 11
Me.Button1.Text = "Excel"
Me.Button1.UseVisualStyleBackColor = True
'
'datStatBis
'
Me.datStatBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datStatBis.Location = New System.Drawing.Point(197, 11)
Me.datStatBis.Name = "datStatBis"
Me.datStatBis.Size = New System.Drawing.Size(105, 20)
Me.datStatBis.TabIndex = 7
'
'datStatVon
'
Me.datStatVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datStatVon.Location = New System.Drawing.Point(70, 12)
Me.datStatVon.Name = "datStatVon"
Me.datStatVon.Size = New System.Drawing.Size(105, 20)
Me.datStatVon.TabIndex = 8
'
'usrctlStatVERIMEX
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.Controls.Add(Me.Panel3)
Me.Name = "usrctlStatVERIMEX"
Me.Size = New System.Drawing.Size(844, 510)
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.Panel4.ResumeLayout(False)
Me.Panel4.PerformLayout()
CType(Me.dgvAbklaerungTR, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel3 As Panel
Friend WithEvents Label9 As Label
Friend WithEvents Panel4 As Panel
Friend WithEvents dgvAbklaerungTR As DataGridView
Friend WithEvents Label10 As Label
Friend WithEvents Label6 As Label
Friend WithEvents Button1 As Button
Friend WithEvents datStatBis As DateTimePicker
Friend WithEvents datStatVon As DateTimePicker
Friend WithEvents Button2 As Button
End Class

120
Aviso/Auswertung/usrctlStatVERIMEX.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

91
Aviso/Auswertung/usrctlStatVERIMEX.vb Normal file
View File

@@ -0,0 +1,91 @@
Imports Gemeinsames
Imports VERAG_PROG_ALLGEMEIN
Public Class usrctlStatVERIMEX
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Sub init()
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
where cast(Datum as date) BETWEEN '" & datStatVon.Value & "' and '" & datStatBis.Value & "' and tblSnd_AbklaerungTR_MA is not null
group by mit_vname,mit_nname"
dgvAbklaerungTR.DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
End With
End Sub
Private Sub datStatVon_ValueChanged(sender As Object, e As EventArgs) Handles datStatVon.ValueChanged, datStatBis.ValueChanged
init()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Cursor = Cursors.WaitCursor
SDL.cProgramFunctions.genExcelFromDGV_NEW(dgvAbklaerungTR, False)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim print As New frmPrintLayout
print.Text = "Speditionsbericht"
Dim rpt As New rptStat_VERIMEX_AbklTR
rpt.DataSource = dgvAbklaerungTR.DataSource
If rpt.DataSource Is Nothing OrElse rpt.DataSource.rows.count = 0 Then
rpt.Dispose() : print.Dispose()
MsgBox("Keine Daten vorhanden!")
Exit Sub
End If
Dim sum = 0
rpt.lblUeberschrift.Text = "Sendungserfassung TR " & datStatVon.Text & " bis " & datStatBis.Text
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
'Dim cnt As Integer = 0
rpt.lblDat.Text = Now.ToLongDateString
Dim sumSnd As Integer = 0
Dim sumLKW As Integer = 0
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.lblAnzSnd.Text = rpt.Fields.Item("Sendungen").Value
rpt.lblAnzLKW.Text = rpt.Fields.Item("LKW").Value
rpt.lblMitarbeiter.Text = rpt.Fields.Item("Mitarbeiter").Value
sumSnd += CInt(rpt.Fields.Item("Sendungen").Value)
sumLKW += CInt(rpt.Fields.Item("LKW").Value)
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")
sumSnd = 0
sumLKW = 0
End Sub
AddHandler rpt.GroupFooter1.Format, Sub()
rpt.lblAnzSndSum.Text = sumSnd
rpt.lblAnzLKWSum.Text = sumLKW
End Sub
print.Viewer.LoadDocument(rpt)
print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
print.Show()
End Sub
End Class