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

Erstattunsgsvhreiben, Kundenblatt, Seriendruck, ustva, uta

Browse Source
This commit is contained in:
d.breimaier
2024-12-27 17:12:59 +01:00
parent 3b57f8e6ab
commit a4199bf316
16 changed files with 2009 additions and 212 deletions
Download Patch File Download Diff File Expand all files Collapse all files

553
SDL/mdm/usrcntlFremdrechnungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,553 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlFremdrechnungen
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.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
Me.btnSDL_Alle = New System.Windows.Forms.Button()
Me.btnSDL_FREJUS = New System.Windows.Forms.Button()
Me.btnSDL_Hugo = New System.Windows.Forms.Button()
Me.btnSDL_IDS = New System.Windows.Forms.Button()
Me.btnSDL_MautMSE = New System.Windows.Forms.Button()
Me.btnSDL_UTA = New System.Windows.Forms.Button()
Me.btnVERAGCardNew = New System.Windows.Forms.Button()
Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
Me.btnFilter = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.cbxMax200Eintrage = New System.Windows.Forms.CheckBox()
Me.lblEinträge = New System.Windows.Forms.Label()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.Button8 = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.pnlTest = New System.Windows.Forms.Panel()
Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
Me.btnSDL_RMC = New System.Windows.Forms.Button()
Me.FlowLayoutPanel.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
CType(Me.dgvSDL, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel4.SuspendLayout()
Me.pnlTest.SuspendLayout()
CType(Me.dgvFILTER, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxtExcel.SuspendLayout()
Me.SuspendLayout()
'
'DetailsAnzeigenToolStripMenuItem
'
Me.DetailsAnzeigenToolStripMenuItem.Name = "DetailsAnzeigenToolStripMenuItem"
Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
Me.DetailsAnzeigenToolStripMenuItem.Text = "Details anzeigen"
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.AutoScroll = True
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.White
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_Alle)
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_FREJUS)
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_Hugo)
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_IDS)
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_MautMSE)
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_UTA)
Me.FlowLayoutPanel.Controls.Add(Me.btnVERAGCardNew)
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE)
Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_RMC)
Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill
Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 0)
Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(0)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(1356, 78)
Me.FlowLayoutPanel.TabIndex = 11
'
'btnSDL_Alle
'
Me.btnSDL_Alle.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_Alle.FlatAppearance.BorderSize = 0
Me.btnSDL_Alle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_Alle.ForeColor = System.Drawing.Color.Black
Me.btnSDL_Alle.Image = Global.SDL.My.Resources.Resources.rechnung1
Me.btnSDL_Alle.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_Alle.Location = New System.Drawing.Point(0, 0)
Me.btnSDL_Alle.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_Alle.Name = "btnSDL_Alle"
Me.btnSDL_Alle.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_Alle.TabIndex = 30
Me.btnSDL_Alle.Text = "ALLE"
Me.btnSDL_Alle.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_Alle.UseVisualStyleBackColor = True
'
'btnSDL_FREJUS
'
Me.btnSDL_FREJUS.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_FREJUS.FlatAppearance.BorderSize = 0
Me.btnSDL_FREJUS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_FREJUS.ForeColor = System.Drawing.Color.Black
Me.btnSDL_FREJUS.Image = Global.SDL.My.Resources.Resources.frejus
Me.btnSDL_FREJUS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_FREJUS.Location = New System.Drawing.Point(78, 0)
Me.btnSDL_FREJUS.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_FREJUS.Name = "btnSDL_FREJUS"
Me.btnSDL_FREJUS.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_FREJUS.TabIndex = 35
Me.btnSDL_FREJUS.Text = "FREJUS"
Me.btnSDL_FREJUS.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_FREJUS.UseVisualStyleBackColor = True
'
'btnSDL_Hugo
'
Me.btnSDL_Hugo.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_Hugo.FlatAppearance.BorderSize = 0
Me.btnSDL_Hugo.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_Hugo.ForeColor = System.Drawing.Color.Black
Me.btnSDL_Hugo.Image = Global.SDL.My.Resources.Resources.hugo
Me.btnSDL_Hugo.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_Hugo.Location = New System.Drawing.Point(156, 0)
Me.btnSDL_Hugo.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_Hugo.Name = "btnSDL_Hugo"
Me.btnSDL_Hugo.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_Hugo.TabIndex = 38
Me.btnSDL_Hugo.Text = "HU-GO"
Me.btnSDL_Hugo.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_Hugo.UseVisualStyleBackColor = True
'
'btnSDL_IDS
'
Me.btnSDL_IDS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnSDL_IDS.Cursor = System.Windows.Forms.Cursors.Arrow
Me.btnSDL_IDS.FlatAppearance.BorderSize = 0
Me.btnSDL_IDS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_IDS.ForeColor = System.Drawing.Color.Black
Me.btnSDL_IDS.Image = Global.SDL.My.Resources.Resources.ids
Me.btnSDL_IDS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_IDS.Location = New System.Drawing.Point(234, 0)
Me.btnSDL_IDS.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_IDS.Name = "btnSDL_IDS"
Me.btnSDL_IDS.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_IDS.TabIndex = 23
Me.btnSDL_IDS.Text = "IDS"
Me.btnSDL_IDS.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_IDS.UseVisualStyleBackColor = True
'
'btnSDL_MautMSE
'
Me.btnSDL_MautMSE.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnSDL_MautMSE.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_MautMSE.FlatAppearance.BorderSize = 0
Me.btnSDL_MautMSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_MautMSE.ForeColor = System.Drawing.Color.Black
Me.btnSDL_MautMSE.Image = Global.SDL.My.Resources.Resources.mse
Me.btnSDL_MautMSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_MautMSE.Location = New System.Drawing.Point(312, 0)
Me.btnSDL_MautMSE.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_MautMSE.Name = "btnSDL_MautMSE"
Me.btnSDL_MautMSE.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_MautMSE.TabIndex = 27
Me.btnSDL_MautMSE.Text = "MSE"
Me.btnSDL_MautMSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_MautMSE.UseVisualStyleBackColor = True
Me.btnSDL_MautMSE.Visible = False
'
'btnSDL_UTA
'
Me.btnSDL_UTA.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_UTA.FlatAppearance.BorderSize = 0
Me.btnSDL_UTA.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_UTA.ForeColor = System.Drawing.Color.Black
Me.btnSDL_UTA.Image = Global.SDL.My.Resources.Resources.uta
Me.btnSDL_UTA.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_UTA.Location = New System.Drawing.Point(390, 0)
Me.btnSDL_UTA.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_UTA.Name = "btnSDL_UTA"
Me.btnSDL_UTA.Size = New System.Drawing.Size(78, 64)
Me.btnSDL_UTA.TabIndex = 28
Me.btnSDL_UTA.Text = "UTA"
Me.btnSDL_UTA.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_UTA.UseVisualStyleBackColor = True
'
'btnVERAGCardNew
'
Me.btnVERAGCardNew.Cursor = System.Windows.Forms.Cursors.Default
Me.btnVERAGCardNew.FlatAppearance.BorderSize = 0
Me.btnVERAGCardNew.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnVERAGCardNew.ForeColor = System.Drawing.Color.Black
Me.btnVERAGCardNew.Image = Global.SDL.My.Resources.Resources.verag_Card1
Me.btnVERAGCardNew.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnVERAGCardNew.Location = New System.Drawing.Point(468, 0)
Me.btnVERAGCardNew.Margin = New System.Windows.Forms.Padding(0)
Me.btnVERAGCardNew.Name = "btnVERAGCardNew"
Me.btnVERAGCardNew.Size = New System.Drawing.Size(78, 64)
Me.btnVERAGCardNew.TabIndex = 45
Me.btnVERAGCardNew.Text = "VERAG"
Me.btnVERAGCardNew.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnVERAGCardNew.UseVisualStyleBackColor = True
'
'btnSDL_PLOSE
'
Me.btnSDL_PLOSE.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_PLOSE.FlatAppearance.BorderSize = 0
Me.btnSDL_PLOSE.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_PLOSE.ForeColor = System.Drawing.Color.Black
Me.btnSDL_PLOSE.Image = Global.SDL.My.Resources.Resources.plose_1
Me.btnSDL_PLOSE.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_PLOSE.Location = New System.Drawing.Point(546, 0)
Me.btnSDL_PLOSE.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_PLOSE.Name = "btnSDL_PLOSE"
Me.btnSDL_PLOSE.Size = New System.Drawing.Size(92, 64)
Me.btnSDL_PLOSE.TabIndex = 41
Me.btnSDL_PLOSE.Text = "RoadMaster" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "PLOSE"
Me.btnSDL_PLOSE.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_PLOSE.UseVisualStyleBackColor = True
'
'btnFilter
'
Me.btnFilter.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnFilter.Location = New System.Drawing.Point(7, 19)
Me.btnFilter.Name = "btnFilter"
Me.btnFilter.Size = New System.Drawing.Size(98, 23)
Me.btnFilter.TabIndex = 39
Me.btnFilter.Text = "Filter einblenden"
Me.btnFilter.UseVisualStyleBackColor = True
Me.btnFilter.Visible = False
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.KundenblattAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 48)
'
'KundenblattAnzeigenToolStripMenuItem
'
Me.KundenblattAnzeigenToolStripMenuItem.Name = "KundenblattAnzeigenToolStripMenuItem"
Me.KundenblattAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
Me.KundenblattAnzeigenToolStripMenuItem.Text = "Kundenblatt anzeigen"
'
'Panel1
'
Me.Panel1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Panel1.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.cbxMax200Eintrage)
Me.Panel1.Controls.Add(Me.lblEinträge)
Me.Panel1.Controls.Add(Me.btnFilter)
Me.Panel1.Controls.Add(Me.Button4)
Me.Panel1.Controls.Add(Me.Button5)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.Button8)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel1.Location = New System.Drawing.Point(1356, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(260, 907)
Me.Panel1.TabIndex = 23
'
'Button1
'
Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(199, 118)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(50, 44)
Me.Button1.TabIndex = 45
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'cbxMax200Eintrage
'
Me.cbxMax200Eintrage.AutoSize = True
Me.cbxMax200Eintrage.Checked = True
Me.cbxMax200Eintrage.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxMax200Eintrage.Location = New System.Drawing.Point(7, 45)
Me.cbxMax200Eintrage.Name = "cbxMax200Eintrage"
Me.cbxMax200Eintrage.Size = New System.Drawing.Size(111, 17)
Me.cbxMax200Eintrage.TabIndex = 41
Me.cbxMax200Eintrage.Text = "max. 200 Einträge"
Me.cbxMax200Eintrage.UseVisualStyleBackColor = True
'
'lblEinträge
'
Me.lblEinträge.AutoSize = True
Me.lblEinträge.BackColor = System.Drawing.Color.White
Me.lblEinträge.Location = New System.Drawing.Point(191, 19)
Me.lblEinträge.Name = "lblEinträge"
Me.lblEinträge.Size = New System.Drawing.Size(58, 13)
Me.lblEinträge.TabIndex = 40
Me.lblEinträge.Text = "0 Einträge "
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Image = Global.SDL.My.Resources.Resources.checklist
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(7, 118)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(118, 44)
Me.Button4.TabIndex = 21
Me.Button4.Text = "Details" & Global.Microsoft.VisualBasic.ChrW(10) & "anzeigen"
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button5.Image = Global.SDL.My.Resources.Resources.kunden
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.Location = New System.Drawing.Point(7, 68)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(118, 44)
Me.Button5.TabIndex = 22
Me.Button5.Text = "Gehe zum" & Global.Microsoft.VisualBasic.ChrW(10) & "Kundenblatt"
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(3, 3)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(53, 13)
Me.Label3.TabIndex = 25
Me.Label3.Text = "Optionen:"
'
'Button8
'
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.Resources.Excel_logo
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(131, 68)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(118, 44)
Me.Button8.TabIndex = 31
Me.Button8.Text = "In Excel " & Global.Microsoft.VisualBasic.ChrW(10) & "konvertieren"
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.AutoScroll = True
Me.Panel3.Controls.Add(Me.SplitContainer1)
Me.Panel3.Controls.Add(Me.Panel4)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel3.Location = New System.Drawing.Point(0, 0)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(1356, 907)
Me.Panel3.TabIndex = 29
'
'SplitContainer1
'
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.IsSplitterFixed = True
Me.SplitContainer1.Location = New System.Drawing.Point(0, 108)
Me.SplitContainer1.Name = "SplitContainer1"
Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.AutoScroll = True
Me.SplitContainer1.Panel1.Controls.Add(Me.dgvSDL)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.UsrCntlDatenDetails1)
Me.SplitContainer1.Panel2MinSize = 234
Me.SplitContainer1.Size = New System.Drawing.Size(1356, 799)
Me.SplitContainer1.SplitterDistance = 559
Me.SplitContainer1.TabIndex = 13
'
'dgvSDL
'
Me.dgvSDL.AKTUALISIERUNGS_INTERVALL = 1000
Me.dgvSDL.AllowUserToAddRows = False
Me.dgvSDL.AllowUserToDeleteRows = False
Me.dgvSDL.AllowUserToResizeColumns = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvSDL.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvSDL.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvSDL.Location = New System.Drawing.Point(0, -1)
Me.dgvSDL.Name = "dgvSDL"
Me.dgvSDL.Size = New System.Drawing.Size(1354, 599)
Me.dgvSDL.TabIndex = 29
'
'UsrCntlDatenDetails1
'
Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1"
Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234)
Me.UsrCntlDatenDetails1.TabIndex = 0
Me.UsrCntlDatenDetails1.Visible = False
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.White
Me.Panel4.Controls.Add(Me.FlowLayoutPanel)
Me.Panel4.Controls.Add(Me.pnlTest)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1356, 108)
Me.Panel4.TabIndex = 11
'
'pnlTest
'
Me.pnlTest.BackColor = System.Drawing.Color.White
Me.pnlTest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlTest.Controls.Add(Me.dgvFILTER)
Me.pnlTest.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnlTest.Location = New System.Drawing.Point(0, 78)
Me.pnlTest.Name = "pnlTest"
Me.pnlTest.Size = New System.Drawing.Size(1356, 30)
Me.pnlTest.TabIndex = 33
'
'dgvFILTER
'
Me.dgvFILTER.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvFILTER.AllowUserToAddRows = False
Me.dgvFILTER.AllowUserToDeleteRows = False
Me.dgvFILTER.AllowUserToResizeColumns = False
Me.dgvFILTER.AllowUserToResizeRows = False
Me.dgvFILTER.BackgroundColor = System.Drawing.Color.White
Me.dgvFILTER.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.dgvFILTER.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvFILTER.ColumnHeadersVisible = False
Me.dgvFILTER.Location = New System.Drawing.Point(0, 0)
Me.dgvFILTER.Name = "dgvFILTER"
Me.dgvFILTER.ScrollBars = System.Windows.Forms.ScrollBars.None
Me.dgvFILTER.Size = New System.Drawing.Size(1286, 28)
Me.dgvFILTER.TabIndex = 0
'
'cntxtExcel
'
Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6})
Me.cntxtExcel.Name = "cntxtExcel"
Me.cntxtExcel.Size = New System.Drawing.Size(211, 48)
Me.cntxtExcel.Text = "Excel"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(210, 22)
Me.ToolStripMenuItem3.Text = "Einfach"
'
'ToolStripMenuItem6
'
Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
'
'btnSDL_RMC
'
Me.btnSDL_RMC.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSDL_RMC.FlatAppearance.BorderSize = 0
Me.btnSDL_RMC.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSDL_RMC.ForeColor = System.Drawing.Color.Black
Me.btnSDL_RMC.Image = Global.SDL.My.Resources.Resources.rechnung1
Me.btnSDL_RMC.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnSDL_RMC.Location = New System.Drawing.Point(638, 0)
Me.btnSDL_RMC.Margin = New System.Windows.Forms.Padding(0)
Me.btnSDL_RMC.Name = "btnSDL_RMC"
Me.btnSDL_RMC.Size = New System.Drawing.Size(92, 64)
Me.btnSDL_RMC.TabIndex = 46
Me.btnSDL_RMC.Text = "RMC"
Me.btnSDL_RMC.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnSDL_RMC.UseVisualStyleBackColor = True
'
'usrcntlFremdrechnungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel1)
Me.DoubleBuffered = True
Me.Name = "usrcntlFremdrechnungen"
Me.Size = New System.Drawing.Size(1616, 907)
Me.FlowLayoutPanel.ResumeLayout(False)
Me.ContextMenuStrip1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
CType(Me.dgvSDL, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)
Me.pnlTest.ResumeLayout(False)
CType(Me.dgvFILTER, System.ComponentModel.ISupportInitialize).EndInit()
Me.cntxtExcel.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents DetailsAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FlowLayoutPanel As System.Windows.Forms.FlowLayoutPanel
Friend WithEvents btnSDL_Alle As System.Windows.Forms.Button
Friend WithEvents btnSDL_IDS As System.Windows.Forms.Button
Friend WithEvents btnSDL_MautMSE As System.Windows.Forms.Button
Friend WithEvents btnSDL_UTA As System.Windows.Forms.Button
Friend WithEvents btnSDL_FREJUS As System.Windows.Forms.Button
Friend WithEvents btnSDL_Hugo As System.Windows.Forms.Button
Friend WithEvents btnFilter As System.Windows.Forms.Button
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents KundenblattAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Button8 As System.Windows.Forms.Button
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Button5 As System.Windows.Forms.Button
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents Button4 As System.Windows.Forms.Button
Friend WithEvents dgvSDL As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents cntxtExcel As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents lblEinträge As System.Windows.Forms.Label
Friend WithEvents cbxMax200Eintrage As System.Windows.Forms.CheckBox
Friend WithEvents UsrCntlDatenDetails1 As SDL.usrCntlDatenDetails
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Panel4 As System.Windows.Forms.Panel
Friend WithEvents pnlTest As System.Windows.Forms.Panel
Friend WithEvents dgvFILTER As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnSDL_PLOSE As Button
Friend WithEvents btnVERAGCardNew As Button
Friend WithEvents btnSDL_RMC As Button
End Class

126
SDL/mdm/usrcntlFremdrechnungen.resx Normal file
View File

@@ -0,0 +1,126 @@
<?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>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="cntxtExcel.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>807, 17</value>
</metadata>
</root>

677
SDL/mdm/usrcntlFremdrechnungen.vb Normal file
View File

@@ -0,0 +1,677 @@
Imports System.Reflection
Public Class usrcntlFremdrechnungen
Dim KUNDE As New cKunden
Public kdNr As Integer
Public kdNr_filter As Boolean = True
Dim kundenSQL As New kundenSQL
Dim SQL As New SQL
Dim FUNC As New cProgramFunctions
Dim aktbtn As String = ""
Dim dgvInitWait As Boolean = False
Dim aktSDLNr As Integer = -1
Dim fullyPainted = False
' Dim show200 = True
Private Sub usrCntlDaten_Load(sender As Object, e As EventArgs) Handles Me.Load
EnableDoubleBuffered(dgvSDL)
init()
AddHandler SplitContainer1.Panel1.Scroll, Sub()
initFilterLeft()
End Sub
AddHandler cbxMax200Eintrage.Click, Sub()
reClick()
End Sub
End Sub
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
Dim dgvType As Type = dgv.[GetType]()
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
pi.SetValue(dgv, True, Nothing)
End Sub
Sub init()
dgvInitWait = True
Dim kdNr_WHERE = ""
If kdNr_filter Then
kdNr_WHERE = ""
End If
If kdNr_filter Then
'Dim dt As DataTable = SQL.loadDgvBySql("SELECT KundenSDL.SDLNr FROM KundenSDL INNER JOIN [Speditionsdienstleistungen] as S ON s.SDLNr=KundenSDL.sdlnr WHERE s.SDLTypNr IN (1,2) AND KundenSDL.KundenNr = '" & kdNr & "' group by KundenSDL.SDLNr ")
'If dt Is Nothing Then
' MsgBox("Es wurden noch keine Leistungen freigeschaltet.")
'Else
btnSDL_IDS.Visible = True ' dt.Select("SDLNr=100").Count > 0
btnSDL_UTA.Visible = True 'dt.Select("SDLNr=212").Count > 0
btnSDL_Hugo.Visible = False ' dt.Select("SDLNr=213").Count > 0
btnSDL_PLOSE.Visible = True 'dt.Select("SDLNr=214").Count > 0
btnVERAGCardNew.Visible = True 'dt.Select("SDLNr=502").Count > 0
btnSDL_MautMSE.Visible = True 'dt.Select("SDLNr=208").Count > 0
btnSDL_FREJUS.Visible = False ' dt.Select("SDLNr=207").Count > 0
btnSDL_RMC.Visible = True
btnSDL_Alle.Visible = False
'End If
SplitContainer1.Panel2Collapsed = False
dgvSDL_SelectionChanged(dgvSDL, New System.EventArgs)
End If
SET_SDL(-1)
dgvInitWait = False
Panel3.Visible = True
End Sub
Sub initFilterLeft()
Dim left_value As Integer = SplitContainer1.Panel1.HorizontalScroll.Value 'HorizontalScrollingOffset
dgvFILTER.Left = (-1) * left_value
End Sub
Sub initFilter()
dgvInitWait = True
dgvFILTER.RowTemplate.Height = dgvFILTER.Height
If Not fullyPainted Then Exit Sub ' nur wenn die usrcntl komplett gelden wurde...
'pnlFilter.Controls.Clear()
Try
dgvFILTER.Columns.Clear()
Catch ex As Exception
End Try
For Each c As DataGridViewColumn In dgvSDL.Columns
Dim cNew As DataGridViewColumn = c.Clone
If c.ReadOnly And c.Name = "IDS-KdNr" Then
cNew = New DataGridViewTextBoxColumn
cNew.Name = c.Name
cNew.Width = c.Width
cNew.Visible = c.Visible
'KundenNr
End If
cNew.MinimumWidth = c.Width
dgvFILTER.Columns.Add(cNew)
If cNew.GetType Is GetType(DataGridViewCheckBoxColumn) Then
DirectCast(cNew, DataGridViewCheckBoxColumn).ThreeState = True
DirectCast(cNew, DataGridViewCheckBoxColumn).DefaultCellStyle.NullValue = CheckState.Indeterminate
End If
Next
If dgvFILTER IsNot Nothing AndAlso dgvFILTER.ColumnCount > 0 Then
'dgv.AllowUserToAddRows = False
dgvFILTER.Rows.Add()
' pnlTest.Controls.Add(dgv)
' dgv.Top = 0
' dgv.Left = 0
dgvFILTER.Width = dgvSDL.Width
End If
dgvInitWait = False
End Sub
Dim txtchanged As Boolean = False
Sub initSearchOLD()
reClick()
Exit Sub
' MsgBox("SEARCH")
txtchanged = True
' initSDLBinding()
initAllg()
dgvSDL.RELOAD()
txtchanged = False
dgvSDL.ClearSelection()
If dgvSDL.RowCount > 0 Then dgvSDL.Rows(0).Cells(0).Selected = True
'dgvSDL_SelectionChanged(dgvSDL, New EventArgs)
End Sub
Function getSqlText(t) As String
Try
Return t.Replace("'", "")
Catch ex As Exception
Return ""
End Try
End Function
Function getFilter() As String
Dim filter As String = ""
Dim andstr As String = ""
If dgvFILTER.RowCount > 0 Then
For Each c As DataGridViewCell In dgvFILTER.Rows(0).Cells
If c.Value IsNot DBNull.Value Then
If c.GetType Is GetType(DataGridViewTextBoxCell) Then
If c.Value IsNot Nothing AndAlso c.Value <> "" Then
Dim srchstr = getSqlText(c.Value.ToString.Trim)
If c.OwningColumn.Name.Contains("SDLNr") Then
filter &= andstr & " FMZOLL.[" & c.OwningColumn.Name & "] LIKE '%" & srchstr & "%' "
ElseIf c.OwningColumn.Name.Contains("IDS-KdNr") Then
filter &= andstr & " (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE [KdNrVERAG]=KundenNr AND KdNrAlt =0 ORDER BY Zeitstempel DESC) LIKE '%" & srchstr & "%' "
ElseIf IsDate(srchstr) Then
If srchstr.ToLower = "ist null" Then
filter &= andstr & "( [" & c.OwningColumn.Name & "] is null ) "
Else
filter &= andstr & " convert(varchar,[" & c.OwningColumn.Name & "] ,104) LIKE '%" & srchstr & "%' "
End If
Else
If srchstr.ToLower = "ist null" Then
filter &= andstr & "( [" & c.OwningColumn.Name & "] LIKE '' OR [" & c.OwningColumn.Name & "] is null ) "
Else
filter &= andstr & " [" & c.OwningColumn.Name & "] LIKE '%" & srchstr & "%' "
End If
End If
andstr = " AND "
End If
ElseIf c.GetType Is GetType(DataGridViewCheckBoxCell) Then
If c.Value IsNot Nothing AndAlso c.Value.ToString <> "" Then
If c.Value = CheckState.Checked Then
filter &= andstr & " FMZOLL.[" & c.OwningColumn.Name & "] =1 "
andstr = " AND "
ElseIf c.Value = CheckState.Unchecked Then
filter &= andstr & " FMZOLL.[" & c.OwningColumn.Name & "] =0 "
andstr = " AND "
End If
End If
End If
End If
Next
End If
Return filter
End Function
Sub clearFilter()
If dgvFILTER.RowCount > 0 Then
For Each c As DataGridViewCell In dgvFILTER.Rows(0).Cells
c.Value = c.DefaultNewRowValue
Next
End If
End Sub
Sub initAllg()
If Not fullyPainted Then Exit Sub ' nur wenn die usrcntl komplett gelden wurde...
Try
With dgvSDL
.RowTemplate.Height = 20
.AllowUserToOrderColumns = False
.AllowUserToResizeRows = False
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
.ReadOnly = True
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
'redRows()
End With
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Sub initDGVWidth()
Dim DGVwidth = 0
Dim reduceWidth = 0
For Each c As DataGridViewColumn In dgvSDL.Columns
DGVwidth += c.Width
Next
Dim DGVheight = 0
For Each r As DataGridViewRow In dgvSDL.Rows
DGVheight += r.Height
Next
DGVheight += 50
'
If DGVheight > (SplitContainer1.Panel1.Height) Then
dgvSDL.Height = DGVheight
reduceWidth = 25 ' Scrollbar
Else
dgvSDL.Height = SplitContainer1.Panel1.Height - 25
End If
If DGVwidth > SplitContainer1.Panel1.Width Then
dgvSDL.Width = DGVwidth - reduceWidth
Else
dgvSDL.Width = SplitContainer1.Panel1.Width - reduceWidth
End If
End Sub
Sub ifContainsAndTrueRed(r As DataGridViewRow, t As String)
If r.Cells(t).Value IsNot DBNull.Value AndAlso r.Cells(t).Value = True Then
r.DefaultCellStyle.ForeColor = Color.Red
End If
End Sub
Sub initBtnClick(b As Button)
'Dim defaufl_color As Color = Color.FromArgb(240, 245, 255)
Dim defaufl_color As Color = Color.White
Dim defaufl_forecolor As Color = Color.Black
btnSDL_Alle.BackColor = defaufl_color : btnSDL_Alle.ForeColor = defaufl_forecolor : btnSDL_Alle.FlatAppearance.BorderSize = 0
btnSDL_IDS.BackColor = defaufl_color : btnSDL_IDS.ForeColor = defaufl_forecolor : btnSDL_IDS.FlatAppearance.BorderSize = 0
btnSDL_UTA.BackColor = defaufl_color : btnSDL_UTA.ForeColor = defaufl_forecolor : btnSDL_UTA.FlatAppearance.BorderSize = 0
btnSDL_FREJUS.BackColor = defaufl_color : btnSDL_FREJUS.ForeColor = defaufl_forecolor : btnSDL_FREJUS.FlatAppearance.BorderSize = 0
btnSDL_Hugo.BackColor = defaufl_color : btnSDL_Hugo.ForeColor = defaufl_forecolor : btnSDL_Hugo.FlatAppearance.BorderSize = 0
btnSDL_MautMSE.BackColor = defaufl_color : btnSDL_MautMSE.ForeColor = defaufl_forecolor : btnSDL_MautMSE.FlatAppearance.BorderSize = 0
btnSDL_PLOSE.BackColor = defaufl_color : btnSDL_PLOSE.ForeColor = defaufl_forecolor : btnSDL_PLOSE.FlatAppearance.BorderSize = 0
btnVERAGCardNew.BackColor = defaufl_color : btnVERAGCardNew.ForeColor = defaufl_forecolor : btnVERAGCardNew.FlatAppearance.BorderSize = 0
b.FlatAppearance.BorderSize = 1
b.BackColor = SystemColors.ButtonHighlight
b.ForeColor = Color.Black
aktbtn = b.Name
If dgvSDL.Columns("SDLNr") IsNot Nothing Then
If aktbtn = "btnSDL_Alle" Then
dgvSDL.Columns("SDLNr").Visible = True
Else
dgvSDL.Columns("SDLNr").Visible = False
End If
End If
End Sub
Sub SET_SDL(SDLNrTmp, Optional doFilter = False)
aktSDLNr = SDLNrTmp
Dim SQL_STR = ""
Select Case SDLNrTmp
'IDS
Case 100 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
" [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM tblIDSInvoicesNew WHERE [CustomerCode] = (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE [KdNrVERAG]=" & kdNr & " AND KdNrAlt =0 ORDER BY Zeitstempel DESC) order by [YearMonthDay], [Invoicenumber]"
'UTA
Case 212 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
" [Rechnungsdatum],[Abrechnungsnummer] as Rechnungsnummer,Kundennummer,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTAImportNew] where Kundennummer = " & kdNr & " group by [Abrechnungsnummer],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2]"
SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " [Datum], [RechnungsNr],[KundenNr],[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTADocuments] where KundenNr = " & kdNr
'PLOSE
Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
" [plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDF FROM tblPLOSE_Inv_Data where plInv_PLOSEKundennummer = " & kdNr
'MSE
Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
" [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Brutto_EUR ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM tblMSEInvoices where customer_number = (select top 1 customer_id from tblMSECustomers where partner_customer_number = " & kdNr & ") order by invoice_date, invoice_id"
'VERAG
Case 502 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
" tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.SteuerbetragLokal, cast( 1 as bit) as PDF FROM tblTrdinInvoice WHERE tblTrdinInvoice.RechnungsKundenNr=" & kdNr & " ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer"
'RMC
Case 999 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
"[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Brutto_EUR,[rmc_daId] as daId,[rmc_betragMWST] as MWST, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblRMCImport] where rmc_kdNr = " & kdNr & " order by rmc_reDatum, rmc_reNr"
Case Else
Exit Sub
End Select
newBinding(SDLNrTmp, SQL_STR, doFilter)
initBtnClick(getSDLNrButton(SDLNrTmp))
With dgvSDL
If .Columns.Count > 0 Then
If .Columns.Contains("daId") Then
If .Columns("daId") IsNot Nothing Then .Columns("daId").Visible = False
End If
End If
End With
initAllg()
dgvSDL.Width = 100
dgvSDL.Height = 100
dgvSDL.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
initDGVWidth() 'vor Filter, damit richtige Größe
If Not doFilter Then initFilter()
End Sub
Function getSDLNrButton(SDLNrTmp) As Object
Select Case SDLNrTmp
Case 100 : Return btnSDL_IDS
Case 212 : Return btnSDL_UTA
Case 213 : Return btnSDL_Hugo
Case 214 : Return btnSDL_PLOSE
Case 208 : Return btnSDL_MautMSE
Case 207 : Return btnSDL_FREJUS
Case 502 : Return btnVERAGCardNew
Case 999 : Return btnSDL_RMC
Case Else : Return btnSDL_Alle
End Select
End Function
Private Sub btnSDL_Alle_Click(sender As Object, e As EventArgs) Handles btnSDL_Alle.Click
SET_SDL(-1)
End Sub
Private Sub btnSDL_IDS_Click(sender As Object, e As EventArgs) Handles btnSDL_IDS.Click
SET_SDL(100)
End Sub
Private Sub btnSDL_UTA_Click(sender As Object, e As EventArgs) Handles btnSDL_UTA.Click
SET_SDL(212)
End Sub
Private Sub btnSDL_Hugo_Click(sender As Object, e As EventArgs) Handles btnSDL_Hugo.Click
SET_SDL(213)
End Sub
Private Sub btnSDL_PLOSE_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE.Click
SET_SDL(214)
End Sub
Private Sub btnSDL_MautMSE_Click(sender As Object, e As EventArgs) Handles btnSDL_MautMSE.Click
SET_SDL(208)
End Sub
Private Sub btnSDL_MotorWay_Click(sender As Object, e As EventArgs)
SET_SDL(205)
End Sub
Private Sub btnSDL_FREJUS_Click(sender As Object, e As EventArgs) Handles btnSDL_FREJUS.Click
SET_SDL(207)
End Sub
Private Sub btnVERAGCardNew_Click(sender As Object, e As EventArgs) Handles btnVERAGCardNew.Click
SET_SDL(502)
End Sub
Private Sub btnSDL_RMC_Click(sender As Object, e As EventArgs) Handles btnSDL_RMC.Click
SET_SDL(999)
End Sub
Private Sub dgvSDL_ColumnWidthChanged(sender As Object, e As DataGridViewColumnEventArgs) Handles dgvSDL.ColumnWidthChanged
initfilterColumnsWidth()
End Sub
Sub initfilterColumnsWidth()
If dgvFILTER.ColumnCount > 0 AndAlso dgvFILTER.ColumnCount = dgvSDL.ColumnCount Then
dgvFILTER.Width = dgvSDL.Width
For Each c As DataGridViewColumn In dgvSDL.Columns
dgvFILTER.Columns(c.Index).Width = c.Width
Next
End If
End Sub
Sub newBinding(sdlNr As Integer, ByVal sql As String, doFilter As Boolean)
dgvInitWait = True
' bindingSDL = Nothing
dgvSDL.Columns.Clear()
dgvSDL.VirtualMode = True
txtchanged = True
dgvInitWait = True
If doFilter Then
Dim filter As String = getFilter()
If filter <> "" Then sql &= " AND " & filter
Else
End If
dgvSDL.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
dgvSDL.SET_SQL(sql, "FMZOLL")
dgvSDL.LOAD()
lblEinträge.Text = dgvSDL.RowCount & " Einträge"
If dgvSDL.RowCount >= 200 Then lblEinträge.Text = dgvSDL.RowCount & " Einträge " & IIf(cbxMax200Eintrage.Checked, "(Anzeige auf 200 beschränkt)", "")
dgvInitWait = False
txtchanged = False
dgvInitWait = False
dgvSDL.ClearSelection()
If dgvSDL.RowCount > 0 Then
dgvSDL.Rows(0).Cells(0).Selected = True
Else
End If
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnFilter.Click
' MsgBox(pnlFilterInside.Height)
Exit Sub
If pnlTest.Height > 0 Then
pnlTest.Height = 0
btnFilter.Text = "Filter einblenden"
Else
pnlTest.Height = 39
btnFilter.Text = "Filter ausblenden"
End If
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
If SplitContainer1.Panel2Collapsed Then
SplitContainer1.Panel2Collapsed = False
dgvSDL_SelectionChanged(dgvSDL, New System.EventArgs)
Else
SplitContainer1.Panel2Collapsed = True
End If
End Sub
Sub reClick()
getSDLNrButton(aktSDLNr).PerformClick()
End Sub
Sub refreshDgv(kdNr, SDLNr, Optional Kfz = "", Optional History = "")
SET_SDL(aktSDLNr, True)
dgvSDL.ClearSelection()
If Kfz <> "" And History <> "" Then
For Each r As DataGridViewRow In dgvSDL.Rows
If r.Cells("KundenNr").Value = kdNr And
r.Cells("SDLNr").Value = SDLNr And
r.Cells("KfzKennzeichen").Value = Kfz And
r.Cells("History").Value = History Then
r.Selected = True
Exit For
End If
Next
End If
End Sub
Private Sub UsrCntlDatenDetails1_Changed(kdNr, Kfz, SDLNr, History) Handles UsrCntlDatenDetails1.Changed
'refreshDgv(kdNr, SDLNr, Kfz, History)'?????????????? ausgebelndet,was das ein VErsuch? 31.07.2017
dgvSDL.VALUE_CHANGED = True
End Sub
Private Sub datadgvSDL_SelectionChanged(kdNr, Kfz, SDLNr, History) Handles UsrCntlDatenDetails1.DataChanged
' refreshDgv(kdNr, SDLNr, Kfz, History)
dgvSDL.VALUE_CHANGED = True
Exit Sub
dgvInitWait = True
dgvSDL.RELOAD()
dgvInitWait = False
End Sub
' Private Sub dgvSDL_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSDL.SelectionChanged
Private Sub dgvSDL_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvSDL.KeyUp
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Then '?POS1
' ReloadLeistung()
End If
End Sub
Private Sub dgvSDL_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSDL.Click
'ReloadLeistung()
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If Not kdNr_filter Then
If dgvSDL.SelectedCells.Count > 0 Then
If IsNumeric(dgvSDL.CurrentRow.Cells("KundenNr").Value) Then
cProgramFunctions.openKundenblatt(dgvSDL.CurrentRow.Cells("KundenNr").Value, Me.FindForm, True)
End If
End If
End If
End Sub
Sub SelectRow(kdnr, kfz, SDLNr, history)
dgvInitWait = True
dgvSDL.ClearSelection()
For Each r As DataGridViewRow In dgvSDL.Rows
If r.Cells("KundenNr").Value = kdnr AndAlso
r.Cells("SDLNr").Value = SDLNr AndAlso
r.Cells("KfzKennzeichen").Value = kfz AndAlso
r.Cells("History").Value = history Then
r.Selected = True
dgvSDL.FirstDisplayedScrollingRowIndex = r.Index
Exit For
End If
Next
dgvInitWait = False
'ReloadLeistung()
dgvSDL.PerformLayout()
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
Me.Cursor = Cursors.WaitCursor
cProgramFunctions.genExcelFromDGV(dgvSDL, True)
Me.Cursor = Cursors.Default
End Sub
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
Me.Cursor = Cursors.WaitCursor
cProgramFunctions.genExcelFromDGV_NEW(dgvSDL, True)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click
Me.Cursor = Cursors.WaitCursor
cProgramFunctions.genExcelFromDGV_NEW(dgvSDL, True, True)
Me.Cursor = Cursors.Default
End Sub
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
dgvSDL.RELOAD()
End Sub
Private Sub dgvSDL_RELOADED() Handles dgvSDL.RELOADED
' redRows()
End Sub
Private Sub usrCntlKartenDaten_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
' initDGVWidth()
End Sub
Dim vval As Integer
Private Sub dgvSDL_GotFocus(sender As Object, e As EventArgs) Handles dgvSDL.GotFocus
'dgvSDL.VerticalScrollingOffset = vval
SplitContainer1.Panel1.VerticalScroll.Value = vval
End Sub
Private Sub dgvSDL_Enter(sender As Object, e As EventArgs) Handles dgvSDL.Enter
vval = SplitContainer1.Panel1.VerticalScroll.Value
End Sub
Private Sub dgvFILTER_SelectionChanged(sender As Object, e As EventArgs) Handles dgvFILTER.SelectionChanged
dgvFILTER.ClearSelection()
End Sub
Private Sub dgvFILTER_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFILTER.CellContentClick
If dgvFILTER.Columns(e.ColumnIndex).GetType Is GetType(DataGridViewCheckBoxColumn) Then
dgvSDL.Focus()
End If
End Sub
Private Sub dgvFILTER_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFILTER.CellValueChanged
SET_SDL(aktSDLNr, True)
initfilterColumnsWidth()
End Sub
Private Sub dgvSDL_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSDL.CellContentDoubleClick
Try
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
Select Case aktSDLNr
Case 502
Dim ReDat = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
Dim ReNr = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
If ReDat IsNot Nothing AndAlso ReNr > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL")
cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
End If
Case Else
Dim daId = dgvSDL.Rows(e.RowIndex).Cells("daId").Value
If daId > 0 Then
Me.Cursor = Cursors.WaitCursor
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
DS.OPEN_SINGLE()
End If
End Select
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Me.Cursor = Cursors.Default
End Try
Me.Cursor = Cursors.Default
End Sub
End Class