cFakt, ustoffeneAntr, fremdrechnungen, etc.
This commit is contained in:
172
SDL/mdm/usrcntlFremdrechnungen.Designer.vb
generated
172
SDL/mdm/usrcntlFremdrechnungen.Designer.vb
generated
@@ -23,7 +23,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
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()
|
||||
@@ -35,10 +35,15 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.btnVERAGCardNew = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
|
||||
Me.btnSDL_RMC = 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.cbx = New System.Windows.Forms.CheckBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.dat_Sum_Von = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.cbxMax200Eintrage = New System.Windows.Forms.CheckBox()
|
||||
Me.lblEinträge = New System.Windows.Forms.Label()
|
||||
@@ -50,24 +55,18 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
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.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails()
|
||||
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()
|
||||
'
|
||||
@@ -94,7 +93,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
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.Size = New System.Drawing.Size(1356, 108)
|
||||
Me.FlowLayoutPanel.TabIndex = 11
|
||||
'
|
||||
'btnSDL_Alle
|
||||
@@ -253,17 +252,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.btnSDL_RMC.TextAlign = System.Drawing.ContentAlignment.BottomCenter
|
||||
Me.btnSDL_RMC.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})
|
||||
@@ -281,10 +269,15 @@ Partial Class usrcntlFremdrechnungen
|
||||
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.cbx)
|
||||
Me.Panel1.Controls.Add(Me.Label4)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Controls.Add(Me.dat_Sum_Bis)
|
||||
Me.Panel1.Controls.Add(Me.dat_Sum_Von)
|
||||
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)
|
||||
@@ -295,13 +288,66 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.Panel1.Size = New System.Drawing.Size(260, 907)
|
||||
Me.Panel1.TabIndex = 23
|
||||
'
|
||||
'cbx
|
||||
'
|
||||
Me.cbx.AutoSize = True
|
||||
Me.cbx.Location = New System.Drawing.Point(8, 107)
|
||||
Me.cbx.Name = "cbx"
|
||||
Me.cbx.Size = New System.Drawing.Size(178, 17)
|
||||
Me.cbx.TabIndex = 52
|
||||
Me.cbx.Text = "MWST-relevenate Rechnungen"
|
||||
Me.cbx.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(5, 35)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(91, 13)
|
||||
Me.Label4.TabIndex = 51
|
||||
Me.Label4.Text = "Rechnungsdatum"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(5, 83)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(20, 13)
|
||||
Me.Label2.TabIndex = 50
|
||||
Me.Label2.Text = "bis"
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(5, 57)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(28, 13)
|
||||
Me.Label1.TabIndex = 49
|
||||
Me.Label1.Text = "von:"
|
||||
'
|
||||
'dat_Sum_Bis
|
||||
'
|
||||
Me.dat_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dat_Sum_Bis.Location = New System.Drawing.Point(60, 77)
|
||||
Me.dat_Sum_Bis.Name = "dat_Sum_Bis"
|
||||
Me.dat_Sum_Bis.Size = New System.Drawing.Size(103, 20)
|
||||
Me.dat_Sum_Bis.TabIndex = 48
|
||||
'
|
||||
'dat_Sum_Von
|
||||
'
|
||||
Me.dat_Sum_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dat_Sum_Von.Location = New System.Drawing.Point(60, 51)
|
||||
Me.dat_Sum_Von.Name = "dat_Sum_Von"
|
||||
Me.dat_Sum_Von.Size = New System.Drawing.Size(103, 20)
|
||||
Me.dat_Sum_Von.TabIndex = 46
|
||||
'
|
||||
'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.Location = New System.Drawing.Point(200, 203)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(50, 44)
|
||||
Me.Button1.TabIndex = 45
|
||||
@@ -313,7 +359,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
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.Location = New System.Drawing.Point(8, 130)
|
||||
Me.cbxMax200Eintrage.Name = "cbxMax200Eintrage"
|
||||
Me.cbxMax200Eintrage.Size = New System.Drawing.Size(111, 17)
|
||||
Me.cbxMax200Eintrage.TabIndex = 41
|
||||
@@ -324,7 +370,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
'
|
||||
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.Location = New System.Drawing.Point(190, 3)
|
||||
Me.lblEinträge.Name = "lblEinträge"
|
||||
Me.lblEinträge.Size = New System.Drawing.Size(58, 13)
|
||||
Me.lblEinträge.TabIndex = 40
|
||||
@@ -335,20 +381,21 @@ Partial Class usrcntlFremdrechnungen
|
||||
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.Location = New System.Drawing.Point(8, 203)
|
||||
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
|
||||
Me.Button4.Visible = False
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button5.Image = Global.SDL.My.Resources.Resources.email_big1
|
||||
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button5.Location = New System.Drawing.Point(7, 68)
|
||||
Me.Button5.Location = New System.Drawing.Point(8, 153)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(118, 44)
|
||||
Me.Button5.TabIndex = 22
|
||||
@@ -361,16 +408,16 @@ Partial Class usrcntlFremdrechnungen
|
||||
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.Size = New System.Drawing.Size(32, 13)
|
||||
Me.Label3.TabIndex = 25
|
||||
Me.Label3.Text = "Optionen:"
|
||||
Me.Label3.Text = "Filter:"
|
||||
'
|
||||
'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.Location = New System.Drawing.Point(132, 153)
|
||||
Me.Button8.Name = "Button8"
|
||||
Me.Button8.Size = New System.Drawing.Size(118, 44)
|
||||
Me.Button8.TabIndex = 31
|
||||
@@ -402,11 +449,7 @@ Partial Class usrcntlFremdrechnungen
|
||||
'
|
||||
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.Panel2MinSize = 0
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(1356, 799)
|
||||
Me.SplitContainer1.SplitterDistance = 559
|
||||
Me.SplitContainer1.TabIndex = 13
|
||||
@@ -417,53 +460,24 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.dgvSDL.AllowUserToAddRows = False
|
||||
Me.dgvSDL.AllowUserToDeleteRows = False
|
||||
Me.dgvSDL.AllowUserToResizeColumns = False
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
|
||||
Me.dgvSDL.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
|
||||
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.Location = New System.Drawing.Point(4, 3)
|
||||
Me.dgvSDL.Name = "dgvSDL"
|
||||
Me.dgvSDL.Size = New System.Drawing.Size(1354, 599)
|
||||
Me.dgvSDL.Size = New System.Drawing.Size(1354, 770)
|
||||
Me.dgvSDL.TabIndex = 29
|
||||
'
|
||||
'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})
|
||||
@@ -483,15 +497,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
|
||||
Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
|
||||
'
|
||||
'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
|
||||
'
|
||||
'usrcntlFremdrechnungen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -507,13 +512,10 @@ Partial Class usrcntlFremdrechnungen
|
||||
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)
|
||||
|
||||
@@ -526,7 +528,6 @@ Partial Class usrcntlFremdrechnungen
|
||||
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
|
||||
@@ -536,18 +537,21 @@ Partial Class usrcntlFremdrechnungen
|
||||
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
|
||||
Friend WithEvents dgvSDL As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents cbx As CheckBox
|
||||
Friend WithEvents dat_Sum_Bis As DateTimePicker
|
||||
Friend WithEvents dat_Sum_Von As DateTimePicker
|
||||
End Class
|
||||
|
||||
@@ -20,15 +20,15 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
init()
|
||||
|
||||
AddHandler SplitContainer1.Panel1.Scroll, Sub()
|
||||
initFilterLeft()
|
||||
End Sub
|
||||
|
||||
AddHandler cbxMax200Eintrage.Click, Sub()
|
||||
reClick()
|
||||
End Sub
|
||||
|
||||
|
||||
SplitContainer1.Panel2Collapsed = True
|
||||
|
||||
dat_Sum_Von.Value = New Date(Today.AddYears(-1).Year, 1, 1)
|
||||
dat_Sum_Bis.Value = New Date(Today.Year, 12, 31)
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -75,62 +75,11 @@ Public Class usrcntlFremdrechnungen
|
||||
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()
|
||||
@@ -156,68 +105,8 @@ Public Class usrcntlFremdrechnungen
|
||||
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...
|
||||
@@ -304,68 +193,71 @@ Public Class usrcntlFremdrechnungen
|
||||
End Sub
|
||||
|
||||
|
||||
Sub SET_SDL(SDLNrTmp, Optional doFilter = False)
|
||||
Sub SET_SDL(SDLNrTmp)
|
||||
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],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, 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] desc, [Invoicenumber]"
|
||||
" [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,[daId],[TransactionVolume] as Transaktionsmenge,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt, 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 and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " ORDER BY Zeitstempel DESC) order by [YearMonthDay] desc, [Invoicenumber]"
|
||||
|
||||
'UTA
|
||||
Case 212 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
|
||||
" [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[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] inner join adressen on Kundennummer = UTAKundenNr where AdressenNr = " & kdNr & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2]"
|
||||
" [Rechnungsdatum],[Rechnungsnummer_pro_Lieferland] as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[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] inner join adressen on Kundennummer = UTAKundenNr where AdressenNr = " & kdNr & " [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Land") & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2]"
|
||||
|
||||
SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " [Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTADocuments]inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr
|
||||
SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " [Datum], [RechnungsNr],[KundenNr],0,0,0,[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTADocuments]inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " and [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "") & " order by Rechnungsdatum desc"
|
||||
|
||||
'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
|
||||
" [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 inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where Adressen.AdressenNr = " & kdNr & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & " Order by plInv_SupplierRechnungsDatum desc, [plInv_SupplierRechnungsNr]"
|
||||
|
||||
'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"
|
||||
" [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 & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & " ) order by invoice_date desc, 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 desc, tblTrdinInvoice.Rechnungsnummer"
|
||||
" tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.SteuerbetragLokal, cast( 1 as bit) as PDF FROM tblTrdinInvoice WHERE tblTrdinInvoice.RechnungsKundenNr=" & kdNr & " AND tblTrdinInvoice.FilialenNr = 4814 and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " ORDER BY tblTrdinInvoice.Rechnungsdatum desc, 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"
|
||||
"[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,rmc_landKZ as Land, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where AdressenNr = " & kdNr & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & " order by rmc_reDatum desc, rmc_reNr"
|
||||
|
||||
Case -1 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
|
||||
"
|
||||
--IDS
|
||||
'IDS' as Lieferant, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[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]
|
||||
'IDS' as Lieferant, [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,CustomerCode as Kundennummer,[AmminclVAT] as Bruttobetrag,[TotalNetAmount] as Nettobetrag,[VATAmount] as MWSt,'' as Land, 'RE' as Art,[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 and [YearMonthDay] " & setSQLWhere(SDLNrTmp, "") & " ORDER BY Zeitstempel DESC) --order by [YearMonthDay], [Invoicenumber]
|
||||
|
||||
UNION ALL
|
||||
|
||||
|
||||
--MSE
|
||||
SELECT 'MSE' as Lieferant, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, 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
|
||||
SELECT 'MSE' as Lieferant, [invoice_date] as Rechnungsdatum, cast([invoice_id] as nvarchar) as Rechnungsnummer,[customer_number] as Kundennummer, [total_amount_euro] as Bruttobetrag ,(total_amount_euro - [total_vat_amount_euro]) as Nettobetrag ,[total_vat_amount_euro] as MWST,[country] as Land,'RE' as Art,daId, 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 & " and [invoice_date] " & setSQLWhere(SDLNrTmp, "country") & " ) --order by invoice_date, invoice_id
|
||||
|
||||
UNION ALL
|
||||
|
||||
--UTA
|
||||
SELECT 'UTA' as Lieferant, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where AdressenNr = " & kdNr & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA', [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTADocuments]inner join adressen on KundenNr = UTAKundenNr where AdressenNr = 401026
|
||||
SELECT 'UTA' as Lieferant, [Rechnungsdatum],STR([Rechnungsnummer_pro_Lieferland]) as Rechnungsnummer,Kundennummer,SUM(Gesamtbetrag_Brutto_in_Darstellwährung) as Bruttobetrag,SUM(Gesamtbetrag_Netto_in_Darstellwährung) as Nettobetrag, SUM(Gesamtbetrag_Umsatzsteuer_in_Darstellwährung) as MWSt,[Lieferland_ISO2] as Land, 'RE' as Art,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where AdressenNr = " & kdNr & " and [Rechnungsdatum] " & setSQLWhere(SDLNrTmp, "Lieferland_ISO2") & " group by [Rechnungsnummer_pro_Lieferland],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2] UNION ALL SELECT 'UTA', [Datum], cast([RechnungsNr] as nvarchar) ,[KundenNr],0,0,0,'',[DocumentTyp],[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTADocuments]inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr & " AND Datum " & setSQLWhere(SDLNrTmp, "") & "
|
||||
|
||||
UNION ALL
|
||||
--VERA
|
||||
--VERAG
|
||||
|
||||
SELECT 'VERAG' as Lieferant, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, -1 as daId, cast( 1 as bit) as PDF FROM tblTrdinInvoice WHERE tblTrdinInvoice.RechnungsKundenNr=" & kdNr & " -- ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer
|
||||
SELECT 'VERAG' as Lieferant, tblTrdinInvoice.Rechnungsdatum, cast(tblTrdinInvoice.Rechnungsnummer as nvarchar) as Rechnungsnummer ,tblTrdinInvoice.KundenNrZentrale as Kundennummer, tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal as Bruttobetrag ,tblTrdinInvoice.SteuerpflichtigerBetragLokal + tblTrdinInvoice.SteuerfreierBetragLokal - tblTrdinInvoice.SteuerbetragLokal as Nettobetrag ,tblTrdinInvoice.SteuerbetragLokal as MWST, 'AT' as Land, 'RE' as Art, -1 as daId, cast( 1 as bit) as PDF FROM tblTrdinInvoice WHERE tblTrdinInvoice.RechnungsKundenNr=" & kdNr & " and tblTrdinInvoice.Rechnungsdatum " & setSQLWhere(SDLNrTmp, "'AT'") & " AND tblTrdinInvoice.FilialenNr = 4814 -- ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer
|
||||
|
||||
|
||||
UNION ALL
|
||||
--PLOSE
|
||||
|
||||
SELECT 'PLOSE' as Lieferant, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, 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 & "
|
||||
SELECT 'PLOSE' as Lieferant, [plInv_SupplierRechnungsDatum] as Rechnungsdatum, cast([plInv_SupplierRechnungsNr] as nvarchar) as Rechnungsnummer,[plInv_PLOSEKundennummer] as Kundennummer,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST, [plInv_SupplierCountry] as Land, 'RE' as Art,[plInv_daId] as daId, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDF FROM tblPLOSE_Inv_Data inner join Adressen on Adressen.PLOSEKundenNr = plInv_PLOSEKundennummer where Adressen.AdressenNr = " & kdNr & " and [plInv_SupplierRechnungsDatum] " & setSQLWhere(SDLNrTmp, "plInv_SupplierCountry") & "
|
||||
|
||||
UNION ALL
|
||||
|
||||
--RMC
|
||||
SELECT 'RMC' as Lieferant, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, 'X' as Land, 'RE' as Art, [rmc_daId] as daId, 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
|
||||
SELECT 'RMC' as Lieferant, [rmc_reDatum] as Rechnungsdatum,cast([rmc_reNr] as nvarchar) as Rechnungsnummer,rmc_kdNr as Kundennummer ,[rmc_betragBrutto] as Bruttobetrag,[rmc_betragNetto] as Nettobetrag,[rmc_betragMWST] as MWST, rmc_landKZ as Land, 'RE' as Art, [rmc_daId] as daId, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblRMCImport] inner join Adressen on Adressen.WölflKundenNr = rmc_kdNr where AdressenNr = " & kdNr & " and [rmc_reDatum] " & setSQLWhere(SDLNrTmp, "rmc_landKZ") & " --order by rmc_reDatum, rmc_reNr
|
||||
|
||||
order by Rechnungsdatum desc"
|
||||
|
||||
@@ -376,7 +268,7 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
End Select
|
||||
|
||||
newBinding(SDLNrTmp, SQL_STR, doFilter)
|
||||
newBinding(SDLNrTmp, SQL_STR)
|
||||
initBtnClick(getSDLNrButton(SDLNrTmp))
|
||||
|
||||
With dgvSDL
|
||||
@@ -399,11 +291,28 @@ Public Class usrcntlFremdrechnungen
|
||||
dgvSDL.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
||||
|
||||
initDGVWidth() 'vor Filter, damit richtige Größe
|
||||
If Not doFilter Then initFilter()
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function setSQLWhere(SDLNrTmp As Integer, land As String) As String
|
||||
|
||||
|
||||
Dim SQLWhere = " between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "'"
|
||||
|
||||
If cbx.Checked AndAlso SDLNrTmp <> 100 Then
|
||||
Select Case KUNDE.LandKz
|
||||
Case "SRB", "BIH", "MK", "MNE", "TR"
|
||||
If land <> "" Then SQLWhere &= " AND " & land & " not in('AT','CH', 'CZ', 'DE', 'EE', 'ES', 'IE', 'LT', 'LV', 'NRW', 'NO', 'OT', 'RS', 'UA', " & IIf(KUNDE.LandKz = "SRB", "'BG', 'HU', 'RO', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "BIH", "'SK'", "") & IIf(KUNDE.LandKz = "TR", "'HU', 'SI', 'SK'", "") & IIf(KUNDE.LandKz = "MNE", "'PL', 'SI'", "") & IIf(KUNDE.LandKz = "MK", "'BG', 'PL','SI'", "") & ")"
|
||||
End Select
|
||||
End If
|
||||
|
||||
Return SQLWhere
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Function getSDLNrButton(SDLNrTmp) As Object
|
||||
Select Case SDLNrTmp
|
||||
Case 100 : Return btnSDL_IDS
|
||||
@@ -459,22 +368,10 @@ Public Class usrcntlFremdrechnungen
|
||||
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)
|
||||
Sub newBinding(sdlNr As Integer, ByVal sql As String)
|
||||
dgvInitWait = True
|
||||
' bindingSDL = Nothing
|
||||
dgvSDL.Columns.Clear()
|
||||
@@ -482,12 +379,6 @@ Public Class usrcntlFremdrechnungen
|
||||
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
|
||||
|
||||
@@ -512,17 +403,6 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
||||
@@ -541,7 +421,7 @@ Public Class usrcntlFremdrechnungen
|
||||
End Sub
|
||||
|
||||
Sub refreshDgv(kdNr, SDLNr, Optional Kfz = "", Optional History = "")
|
||||
SET_SDL(aktSDLNr, True)
|
||||
SET_SDL(aktSDLNr)
|
||||
|
||||
dgvSDL.ClearSelection()
|
||||
If Kfz <> "" And History <> "" Then
|
||||
@@ -560,12 +440,12 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
|
||||
|
||||
Private Sub UsrCntlDatenDetails1_Changed(kdNr, Kfz, SDLNr, History) Handles UsrCntlDatenDetails1.Changed
|
||||
Private Sub UsrCntlDatenDetails1_Changed(kdNr, Kfz, SDLNr, History)
|
||||
'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
|
||||
Private Sub datadgvSDL_SelectionChanged(kdNr, Kfz, SDLNr, History)
|
||||
' refreshDgv(kdNr, SDLNr, Kfz, History)
|
||||
dgvSDL.VALUE_CHANGED = True
|
||||
Exit Sub
|
||||
@@ -587,7 +467,7 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
||||
'TODO CREATE EMAIL
|
||||
|
||||
|
||||
If dgvSDL.SelectedRows.Count > 0 Then
|
||||
|
||||
@@ -712,23 +592,23 @@ Public Class usrcntlFremdrechnungen
|
||||
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
|
||||
'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
|
||||
@@ -751,7 +631,8 @@ Public Class usrcntlFremdrechnungen
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
dgvSDL.RELOAD()
|
||||
|
||||
SET_SDL(aktSDLNr)
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -774,30 +655,13 @@ Public Class usrcntlFremdrechnungen
|
||||
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
|
||||
Case 502 'VERAG
|
||||
Dim ReDat = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
|
||||
Dim ReNr = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
|
||||
|
||||
@@ -807,7 +671,7 @@ Public Class usrcntlFremdrechnungen
|
||||
cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
|
||||
End If
|
||||
|
||||
Case Else
|
||||
Case -1 'ALLE
|
||||
Dim Lieferant = dgvSDL.Rows(e.RowIndex).Cells("Lieferant").Value
|
||||
|
||||
If Lieferant = "VERAG" Then
|
||||
@@ -830,6 +694,17 @@ Public Class usrcntlFremdrechnungen
|
||||
DS.OPEN_SINGLE()
|
||||
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
|
||||
|
||||
|
||||
@@ -846,4 +721,12 @@ Public Class usrcntlFremdrechnungen
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub dat_Sum_Von_Leave(sender As Object, e As EventArgs) Handles dat_Sum_Von.Leave, dat_Sum_Bis.Leave
|
||||
SET_SDL(aktSDLNr)
|
||||
End Sub
|
||||
|
||||
Private Sub cbx_CheckedChanged(sender As Object, e As EventArgs) Handles cbx.CheckedChanged
|
||||
SET_SDL(aktSDLNr)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user