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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

317
SDL/mdm/PLOSE/rptPLOSE_TransaktionenSumary.Designer.vb generated
View File

@@ -21,10 +21,18 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblMenge = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -39,25 +47,22 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblLandFooter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMenge = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblPreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumMwst = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumPreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumMenge = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -66,26 +71,15 @@ Partial Public Class rptPLOSE_TransaktionenSumary
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumMenge, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label8, Me.Label14, Me.Line4, Me.Label1, Me.Label2, Me.Label4, Me.Label5, Me.Label6})
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label8, Me.Label14, Me.Line4, Me.Label1, Me.Label2, Me.Label4, Me.Label6})
Me.PageHeader.Height = 0.1969654!
Me.PageHeader.Name = "PageHeader"
'
@@ -127,12 +121,73 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Me.Line4.Y1 = 0.1795276!
Me.Line4.Y2 = 0.1795277!
'
'Label1
'
Me.Label1.Height = 0.1795276!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.01023622!
Me.Label1.Name = "Label1"
Me.Label1.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label1.Text = "Eintr<EFBFBD>ge"
Me.Label1.Top = 0.008661418!
Me.Label1.Width = 4.32126!
'
'Label2
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.040158!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label2.Text = "MWST"
Me.Label2.Top = 0.008661418!
Me.Label2.Width = 0.9169284!
'
'Label4
'
Me.Label4.Height = 0.1795276!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 5.123229!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label4.Text = "Netto"
Me.Label4.Top = 0.008661418!
Me.Label4.Width = 0.9169284!
'
'Label6
'
Me.Label6.Height = 0.1795276!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 4.331496!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label6.Text = "Menge"
Me.Label6.Top = 0.008661418!
Me.Label6.Width = 0.7917318!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblProdukt, Me.lblAnzahl, Me.lblBrutto, Me.Line3, Me.lblMenge, Me.lblPreis, Me.lblNetto, Me.lblMWST})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblProdukt, Me.lblAnzahl, Me.lblBrutto, Me.Line3, Me.lblMenge, Me.lblNetto, Me.lblMWST})
Me.Detail.Height = 0.1452756!
Me.Detail.Name = "Detail"
'
'lblProdukt
'
Me.lblProdukt.Height = 0.1417323!
Me.lblProdukt.HyperLink = Nothing
Me.lblProdukt.Left = 0.5877953!
Me.lblProdukt.Name = "lblProdukt"
Me.lblProdukt.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblProdukt.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblProdukt.Text = "Produkt"
Me.lblProdukt.Top = 0!
Me.lblProdukt.Width = 3.774804!
'
'lblAnzahl
'
Me.lblAnzahl.Height = 0.1417323!
@@ -144,17 +199,16 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Me.lblAnzahl.Top = 0!
Me.lblAnzahl.Width = 0.5775591!
'
'lblProdukt
'lblBrutto
'
Me.lblProdukt.Height = 0.1417323!
Me.lblProdukt.HyperLink = Nothing
Me.lblProdukt.Left = 0.5877953!
Me.lblProdukt.Name = "lblProdukt"
Me.lblProdukt.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblProdukt.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblProdukt.Text = "Produkt"
Me.lblProdukt.Top = 0!
Me.lblProdukt.Width = 3.138977!
Me.lblBrutto.Height = 0.1417323!
Me.lblBrutto.HyperLink = Nothing
Me.lblBrutto.Left = 6.957087!
Me.lblBrutto.Name = "lblBrutto"
Me.lblBrutto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBrutto.Text = "Betrag"
Me.lblBrutto.Top = 0.003543307!
Me.lblBrutto.Width = 0.9169283!
'
'Line3
'
@@ -170,6 +224,39 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Me.Line3.Y1 = 0.1417323!
Me.Line3.Y2 = 0.1417323!
'
'lblMenge
'
Me.lblMenge.Height = 0.1417323!
Me.lblMenge.HyperLink = Nothing
Me.lblMenge.Left = 4.331496!
Me.lblMenge.Name = "lblMenge"
Me.lblMenge.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMenge.Text = "Betrag"
Me.lblMenge.Top = 0.003543307!
Me.lblMenge.Width = 0.7917318!
'
'lblNetto
'
Me.lblNetto.Height = 0.1417323!
Me.lblNetto.HyperLink = Nothing
Me.lblNetto.Left = 5.123229!
Me.lblNetto.Name = "lblNetto"
Me.lblNetto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblNetto.Text = "Betrag"
Me.lblNetto.Top = 0.003543307!
Me.lblNetto.Width = 0.9169284!
'
'lblMWST
'
Me.lblMWST.Height = 0.1417323!
Me.lblMWST.HyperLink = Nothing
Me.lblMWST.Left = 6.040158!
Me.lblMWST.Name = "lblMWST"
Me.lblMWST.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMWST.Text = "Betrag"
Me.lblMWST.Top = 0.003543307!
Me.lblMWST.Width = 0.9169284!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
@@ -272,7 +359,7 @@ Partial Public Class rptPLOSE_TransaktionenSumary
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto, Me.lblSumPreis, Me.lblSumMenge})
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblLandFooter, Me.Line7, Me.lblSumBrutto, Me.lblSumMwst, Me.lblSumNetto, Me.lblSumMenge})
Me.ReportFooter1.Height = 0.3527559!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
@@ -316,122 +403,6 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Me.Line7.Y1 = 0.09409449!
Me.Line7.Y2 = 0.09409449!
'
'Label1
'
Me.Label1.Height = 0.1795276!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.01023622!
Me.Label1.Name = "Label1"
Me.Label1.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.Label1.Text = "Eintr<EFBFBD>ge"
Me.Label1.Top = 0.008661418!
Me.Label1.Width = 3.685433!
'
'Label2
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.040158!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label2.Text = "MWST"
Me.Label2.Top = 0.008661418!
Me.Label2.Width = 0.9169284!
'
'Label4
'
Me.Label4.Height = 0.1795276!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 5.123229!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label4.Text = "Netto"
Me.Label4.Top = 0.008661418!
Me.Label4.Width = 0.9169284!
'
'Label5
'
Me.Label5.Height = 0.1795276!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 4.206299!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label5.Text = "Preis"
Me.Label5.Top = 0.008661418!
Me.Label5.Width = 0.9169284!
'
'Label6
'
Me.Label6.Height = 0.1795276!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 3.69567!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.Label6.Text = "Menge"
Me.Label6.Top = 0.008661418!
Me.Label6.Width = 0.5106292!
'
'lblBrutto
'
Me.lblBrutto.Height = 0.1417323!
Me.lblBrutto.HyperLink = Nothing
Me.lblBrutto.Left = 6.957087!
Me.lblBrutto.Name = "lblBrutto"
Me.lblBrutto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBrutto.Text = "Betrag"
Me.lblBrutto.Top = 0.003543307!
Me.lblBrutto.Width = 0.9169283!
'
'lblMenge
'
Me.lblMenge.Height = 0.1417323!
Me.lblMenge.HyperLink = Nothing
Me.lblMenge.Left = 3.69567!
Me.lblMenge.Name = "lblMenge"
Me.lblMenge.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMenge.Text = "Betrag"
Me.lblMenge.Top = 0.003543307!
Me.lblMenge.Width = 0.5106292!
'
'lblPreis
'
Me.lblPreis.Height = 0.1417323!
Me.lblPreis.HyperLink = Nothing
Me.lblPreis.Left = 4.206299!
Me.lblPreis.Name = "lblPreis"
Me.lblPreis.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblPreis.Text = "Betrag"
Me.lblPreis.Top = 0.003543307!
Me.lblPreis.Width = 0.9169284!
'
'lblNetto
'
Me.lblNetto.Height = 0.1417323!
Me.lblNetto.HyperLink = Nothing
Me.lblNetto.Left = 5.123229!
Me.lblNetto.Name = "lblNetto"
Me.lblNetto.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblNetto.Text = "Betrag"
Me.lblNetto.Top = 0.003543307!
Me.lblNetto.Width = 0.9169284!
'
'lblMWST
'
Me.lblMWST.Height = 0.1417323!
Me.lblMWST.HyperLink = Nothing
Me.lblMWST.Left = 6.040158!
Me.lblMWST.Name = "lblMWST"
Me.lblMWST.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblMWST.Text = "Betrag"
Me.lblMWST.Top = 0.003543307!
Me.lblMWST.Width = 0.9169284!
'
'lblSumBrutto
'
Me.lblSumBrutto.Height = 0.1795276!
@@ -468,29 +439,17 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Me.lblSumNetto.Top = 0.1732284!
Me.lblSumNetto.Width = 0.9169284!
'
'lblSumPreis
'
Me.lblSumPreis.Height = 0.1795276!
Me.lblSumPreis.HyperLink = Nothing
Me.lblSumPreis.Left = 4.206299!
Me.lblSumPreis.Name = "lblSumPreis"
Me.lblSumPreis.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumPreis.Text = "Preis"
Me.lblSumPreis.Top = 0.1732284!
Me.lblSumPreis.Width = 0.9169284!
'
'lblSumMenge
'
Me.lblSumMenge.Height = 0.1795276!
Me.lblSumMenge.HyperLink = Nothing
Me.lblSumMenge.Left = 3.69567!
Me.lblSumMenge.Left = 4.331496!
Me.lblSumMenge.Name = "lblSumMenge"
Me.lblSumMenge.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblSumMenge.Text = "Menge"
Me.lblSumMenge.Top = 0.1732284!
Me.lblSumMenge.Width = 0.5106292!
Me.lblSumMenge.Width = 0.7917318!
'
'rptPLOSE_TransaktionenSumary
'
@@ -515,8 +474,16 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
@@ -525,20 +492,9 @@ Partial Public Class rptPLOSE_TransaktionenSumary
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLandFooter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumMwst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumMenge, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
@@ -566,16 +522,13 @@ Partial Public Class rptPLOSE_TransaktionenSumary
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMenge As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblPreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMWST As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumBrutto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumMwst As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumNetto As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumPreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSumMenge As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

5
SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.vb
View File

@@ -71,6 +71,9 @@ Public Class frmSDLAbholungEintrag
lblErr_SaveMDM.Visible = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG <> "MDM" Then
dgvPositionen.Columns("PIN").Visible = False
End If
End Sub
@@ -388,6 +391,7 @@ Public Class frmSDLAbholungEintrag
'Dim f As New frmSDLAbholungEintrag(getSDLAbholung())
' If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
genFormular = cGenWord.genUebernahmebestaetigung(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
genFormular = cGenWord.genUebernahmebestaetigungKuvert(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
'End If
Else
@@ -442,6 +446,7 @@ Public Class frmSDLAbholungEintrag
'If f.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
genFormular = cGenWord.genUebernahmebestaetigung(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
genFormular = cGenWord.genUebernahmebestaetigungKuvert(cProgramFunctions.dgridViewTods(dgvPositionen), KdNr, VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, print, printername, SDL_ABHOLUNG.sdlAb_Id, WordPath, TMPvisible)
'End If
Else
If SDLNr = 999 Then 'Spezialfall PL+CZ

74
SDL/mdm/SDLAbholung/usrCntlSDLAbholung.Designer.vb generated
View File

@@ -23,7 +23,7 @@ Partial Class usrCntlSDLAbholung
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlBH = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.btnBuchungAufheben = New System.Windows.Forms.Button()
@@ -75,6 +75,7 @@ Partial Class usrCntlSDLAbholung
Me.Label12 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.pnl = New System.Windows.Forms.Panel()
Me.cbxAbholungFremdDL = New System.Windows.Forms.CheckBox()
Me.cbxFahrerAbholungsAuftrag = New System.Windows.Forms.CheckBox()
Me.cbxStorno = New System.Windows.Forms.CheckBox()
Me.cbxAbhegolt = New System.Windows.Forms.CheckBox()
@@ -83,7 +84,6 @@ Partial Class usrCntlSDLAbholung
Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.cbxAbholungFremdDL = New System.Windows.Forms.CheckBox()
Me.pnlBH.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnloptions.SuspendLayout()
@@ -108,7 +108,7 @@ Partial Class usrCntlSDLAbholung
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.Image = Global.SDL.My.Resources.ok
Me.Button1.Image = Global.SDL.My.Resources.Resources.ok
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(5, 4)
Me.Button1.Name = "Button1"
@@ -121,7 +121,7 @@ Partial Class usrCntlSDLAbholung
'
Me.btnBuchungAufheben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBuchungAufheben.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBuchungAufheben.Image = Global.SDL.My.Resources.del_small
Me.btnBuchungAufheben.Image = Global.SDL.My.Resources.Resources.del_small
Me.btnBuchungAufheben.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBuchungAufheben.Location = New System.Drawing.Point(324, 56)
Me.btnBuchungAufheben.Name = "btnBuchungAufheben"
@@ -134,7 +134,7 @@ Partial Class usrCntlSDLAbholung
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.save
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.save
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pic.Location = New System.Drawing.Point(294, 30)
@@ -154,6 +154,7 @@ Partial Class usrCntlSDLAbholung
Me.txtBemerkung._TimeOnly = False
Me.txtBemerkung._value = Nothing
Me.txtBemerkung._Waehrung = False
Me.txtBemerkung._WaehrungZeichen = True
Me.txtBemerkung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBemerkung.ForeColor = System.Drawing.Color.Black
Me.txtBemerkung.Location = New System.Drawing.Point(112, 30)
@@ -200,6 +201,7 @@ Partial Class usrCntlSDLAbholung
Me.txtFirma._TimeOnly = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(411, 79)
@@ -231,6 +233,7 @@ Partial Class usrCntlSDLAbholung
Me.txtLKW._TimeOnly = False
Me.txtLKW._value = Nothing
Me.txtLKW._Waehrung = False
Me.txtLKW._WaehrungZeichen = True
Me.txtLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKW.ForeColor = System.Drawing.Color.Black
Me.txtLKW.Location = New System.Drawing.Point(411, 98)
@@ -276,6 +279,7 @@ Partial Class usrCntlSDLAbholung
Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
@@ -291,7 +295,7 @@ Partial Class usrCntlSDLAbholung
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button3.Image = Global.SDL.My.Resources.del_small
Me.Button3.Image = Global.SDL.My.Resources.Resources.del_small
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(538, 56)
Me.Button3.Name = "Button3"
@@ -312,6 +316,7 @@ Partial Class usrCntlSDLAbholung
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
@@ -326,7 +331,7 @@ Partial Class usrCntlSDLAbholung
'btnExcel
'
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.Location = New System.Drawing.Point(1020, 22)
@@ -352,14 +357,15 @@ Partial Class usrCntlSDLAbholung
'txtAuftragsnr
'
Me.txtAuftragsnr._DateTimeOnly = False
Me.txtAuftragsnr._numbersOnly = True
Me.txtAuftragsnr._numbersOnlyKommastellen = "0"
Me.txtAuftragsnr._numbersOnly = False
Me.txtAuftragsnr._numbersOnlyKommastellen = ""
Me.txtAuftragsnr._Prozent = False
Me.txtAuftragsnr._ShortDateNew = False
Me.txtAuftragsnr._ShortDateOnly = False
Me.txtAuftragsnr._TimeOnly = False
Me.txtAuftragsnr._value = ""
Me.txtAuftragsnr._Waehrung = False
Me.txtAuftragsnr._WaehrungZeichen = True
Me.txtAuftragsnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAuftragsnr.ForeColor = System.Drawing.Color.Black
Me.txtAuftragsnr.Location = New System.Drawing.Point(411, 57)
@@ -452,7 +458,7 @@ Partial Class usrCntlSDLAbholung
'
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button8.Image = Global.SDL.My.Resources.email11
Me.Button8.Image = Global.SDL.My.Resources.Resources.email11
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(5, 4)
Me.Button8.Name = "Button8"
@@ -464,7 +470,7 @@ Partial Class usrCntlSDLAbholung
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Image = Global.SDL.My.Resources.plus
Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(12, 5)
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
@@ -481,7 +487,7 @@ Partial Class usrCntlSDLAbholung
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnDel.Image = Global.SDL.My.Resources.del_small
Me.btnDel.Image = Global.SDL.My.Resources.Resources.del_small
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDel.Location = New System.Drawing.Point(908, 4)
Me.btnDel.Name = "btnDel"
@@ -508,7 +514,7 @@ Partial Class usrCntlSDLAbholung
'FlatButton7
'
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -551,6 +557,7 @@ Partial Class usrCntlSDLAbholung
Me.txtMaxSrch._TimeOnly = False
Me.txtMaxSrch._value = ""
Me.txtMaxSrch._Waehrung = False
Me.txtMaxSrch._WaehrungZeichen = True
Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
@@ -568,7 +575,7 @@ Partial Class usrCntlSDLAbholung
'
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.Image = Global.SDL.My.Resources.search
Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSuche.Location = New System.Drawing.Point(923, 72)
Me.btnSuche.Name = "btnSuche"
@@ -686,14 +693,14 @@ Partial Class usrCntlSDLAbholung
Me.MyDatagridview1.AllowUserToOrderColumns = True
Me.MyDatagridview1.AllowUserToResizeRows = False
Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle3
Me.MyDatagridview1.Dock = System.Windows.Forms.DockStyle.Fill
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
@@ -841,6 +848,17 @@ Partial Class usrCntlSDLAbholung
Me.pnl.Size = New System.Drawing.Size(1111, 172)
Me.pnl.TabIndex = 0
'
'cbxAbholungFremdDL
'
Me.cbxAbholungFremdDL.AutoSize = True
Me.cbxAbholungFremdDL.Location = New System.Drawing.Point(923, 145)
Me.cbxAbholungFremdDL.Name = "cbxAbholungFremdDL"
Me.cbxAbholungFremdDL.Size = New System.Drawing.Size(158, 17)
Me.cbxAbholungFremdDL.TabIndex = 34
Me.cbxAbholungFremdDL.Text = "Abholung Fremddienstleister"
Me.cbxAbholungFremdDL.ThreeState = True
Me.cbxAbholungFremdDL.UseVisualStyleBackColor = True
'
'cbxFahrerAbholungsAuftrag
'
Me.cbxFahrerAbholungsAuftrag.AutoSize = True
@@ -887,6 +905,7 @@ Partial Class usrCntlSDLAbholung
Me.txtFahrer._TimeOnly = False
Me.txtFahrer._value = Nothing
Me.txtFahrer._Waehrung = False
Me.txtFahrer._WaehrungZeichen = True
Me.txtFahrer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFahrer.ForeColor = System.Drawing.Color.Black
Me.txtFahrer.Location = New System.Drawing.Point(411, 117)
@@ -926,17 +945,6 @@ Partial Class usrCntlSDLAbholung
Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22)
Me.StornoToolStripMenuItem.Text = "Storno"
'
'cbxAbholungFremdDL
'
Me.cbxAbholungFremdDL.AutoSize = True
Me.cbxAbholungFremdDL.Location = New System.Drawing.Point(923, 145)
Me.cbxAbholungFremdDL.Name = "cbxAbholungFremdDL"
Me.cbxAbholungFremdDL.Size = New System.Drawing.Size(158, 17)
Me.cbxAbholungFremdDL.TabIndex = 34
Me.cbxAbholungFremdDL.Text = "Abholung Fremddienstleister"
Me.cbxAbholungFremdDL.ThreeState = True
Me.cbxAbholungFremdDL.UseVisualStyleBackColor = True
'
'usrCntlSDLAbholung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

7
SDL/mdm/SDLAbholung/usrCntlSDLAbholung.vb
View File

@@ -81,8 +81,9 @@
Case "ZOLL" : Panel2.Visible = False
' Case "MDM" : pnlBH.Visible = False
Case "MDM" : Button1.Text = "Karten/Boxen" & vbNewLine & "abgeholt/verschickt"
End Select
txtAuftragsnr.Focus()
@@ -180,7 +181,7 @@
End If
End If
End If
If Not IsNumeric(txtAuftragsnr.Text) Then txtAuftragsnr.Text = ""
If txtAuftragsnr.Text <> "" Then sqlstr &= " AND sdlAb_Id LIKE @AuftrNr "
If cboSachbearbeiterErf._value <> "" Then sqlstr &= " AND sdlAb_ErfassungSachbearbeiterId LIKE @PersonalnummerErf "
If cboSachbearbeiterAbh._value <> "" Then sqlstr &= " AND sdlAb_AbholungSachbearbeiterId LIKE @PersonalnummerAbh "
@@ -219,7 +220,7 @@
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerErf", cboSachbearbeiterErf._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbh", cboSachbearbeiterAbh._value))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW", txtLKW.Text & "%".Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", txtFirma.Text & "%".Replace("*", "%")))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma", "%" & txtFirma.Text & "%"))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fahrer", txtFahrer.Text & "%".Replace("*", "%")))

32
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb generated
View File

@@ -54,6 +54,7 @@ Partial Class usrCntlSDLLeistungPLOSE
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -87,12 +88,12 @@ Partial Class usrCntlSDLLeistungPLOSE
Me.txtPin._WaehrungZeichen = True
Me.txtPin.ForeColor = System.Drawing.Color.Black
Me.txtPin.Location = New System.Drawing.Point(106, 118)
Me.txtPin.MaxLength = 6
Me.txtPin.MaxLength = 9
Me.txtPin.MaxLineLength = -1
Me.txtPin.MaxLines_Warning = ""
Me.txtPin.MaxLines_Warning_Label = Nothing
Me.txtPin.Name = "txtPin"
Me.txtPin.Size = New System.Drawing.Size(55, 20)
Me.txtPin.Size = New System.Drawing.Size(74, 20)
Me.txtPin.TabIndex = 3
'
'txtKartenNr
@@ -435,6 +436,7 @@ Partial Class usrCntlSDLLeistungPLOSE
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanPIN)
Me.TabPage2.Controls.Add(Me.scanLieferschein)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanRetourniert)
@@ -472,6 +474,7 @@ Partial Class usrCntlSDLLeistungPLOSE
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -496,9 +499,9 @@ Partial Class usrCntlSDLLeistungPLOSE
Me.scanRetourniert.BackColor = System.Drawing.Color.White
Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default
Me.scanRetourniert.Location = New System.Drawing.Point(103, 4)
Me.scanRetourniert.Location = New System.Drawing.Point(98, 4)
Me.scanRetourniert.Name = "scanRetourniert"
Me.scanRetourniert.Size = New System.Drawing.Size(90, 24)
Me.scanRetourniert.Size = New System.Drawing.Size(93, 24)
Me.scanRetourniert.TabIndex = 20
'
'cbxArchiviert
@@ -514,6 +517,25 @@ Partial Class usrCntlSDLLeistungPLOSE
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'scanPIN
'
Me.scanPIN._ARCHIV = True
Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanPIN._DATENSERVER_ORDNER = "MDM"
Me.scanPIN._DATENSERVER_UOrdner1 = Nothing
Me.scanPIN._DATENSERVER_UOrdner2 = Nothing
Me.scanPIN._DATENSERVER_UOrdner3 = Nothing
Me.scanPIN._MULTI_FILES = True
Me.scanPIN._TEXT_PDF = "PIN"
Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanPIN.BackColor = System.Drawing.Color.White
Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default
Me.scanPIN.Location = New System.Drawing.Point(192, 4)
Me.scanPIN.Name = "scanPIN"
Me.scanPIN.Size = New System.Drawing.Size(58, 24)
Me.scanPIN.TabIndex = 24
'
'usrCntlSDLLeistungPLOSE
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -583,5 +605,5 @@ Partial Class usrCntlSDLLeistungPLOSE
Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
End Class

1
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb
View File

@@ -51,6 +51,7 @@ Public Class usrCntlSDLLeistungPLOSE
scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()
boud = True

15
SDL/mdm/frmMDMDatenverarbetiung.Designer.vb generated
View File

@@ -54,6 +54,7 @@ Partial Class frmMDMDatenverarbetiung
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button1 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.FlowLayoutPanel.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -167,6 +168,7 @@ Partial Class frmMDMDatenverarbetiung
'
'Panel1
'
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.btnKunde)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.txtPruefsummeBrutto)
@@ -190,7 +192,7 @@ Partial Class frmMDMDatenverarbetiung
Me.btnKunde.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnKunde.Image = Global.SDL.My.Resources.Resources.person1
Me.btnKunde.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKunde.Location = New System.Drawing.Point(461, 16)
Me.btnKunde.Location = New System.Drawing.Point(461, 6)
Me.btnKunde.Name = "btnKunde"
Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
Me.btnKunde.Size = New System.Drawing.Size(136, 32)
@@ -420,6 +422,16 @@ Partial Class frmMDMDatenverarbetiung
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
Me.MyDatagridview1.TabIndex = 0
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(461, 43)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(136, 23)
Me.Button1.TabIndex = 46
Me.Button1.Text = "MautD einfügen"
Me.Button1.UseVisualStyleBackColor = True
'
'frmMDMDatenverarbetiung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -475,4 +487,5 @@ Partial Class frmMDMDatenverarbetiung
Friend WithEvents Label4 As Label
Friend WithEvents txtPruefsummeBrutto As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnKunde As Button
Friend WithEvents Button1 As Button
End Class

301
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1,8 +1,12 @@
Public Class frmMDMDatenverarbetiung
Imports System.Data.OleDb
Public Class frmMDMDatenverarbetiung
Public LIEFERANT = ""
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub frmPloseDatenverarbetiung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Top = 0
Me.Height = My.Computer.Screen.WorkingArea.Height
@@ -73,19 +77,19 @@
sqlstr &= ",max(plose_Produktbeschreibung) as plose_Produktbeschreibung"
sqlstr &= ",sum(plose_Menge) as plose_Menge"
sqlstr &= ",sum(plose_Preis) as plose_Preis"
sqlstr &= ",sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion"
sqlstr &= ",sum(plose_MWSTBetrag) as plose_MWSTBetrag"
sqlstr &= ",sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion "
sqlstr &= ",sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung"
sqlstr &= ",sum(plose_MWSTBetragWaehrungAbbuchung) as plose_MWSTBetragWaehrungAbbuchung"
sqlstr &= ",sum(plose_BruttobetragWaehrungAbbuchung) as plose_BruttobetragWaehrungAbbuchung "
sqlstr &= " FROM tblPLOSE_Details"
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' "
sqlstr &= " AND plose_Fakturiert =0 "
sqlstr &= " group by plose_ProduktCode"
sqlstr &= " order by plose_ProduktCode"
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
'DataGridView.DataSource = dt
@@ -128,18 +132,18 @@
rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & SQL.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
rpt.lblMenge.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 0, "")
rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "")
rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "")
' rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragWaehrungAbbuchung").Value, 2, "")
rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetragWaehrungAbbuchung").Value, 2, "")
rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragWaehrungAbbuchung").Value, 2, "")
sumMenge += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Menge").Value, 4, 0)
sumPreis += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 4, 0)
sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0)
sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0)
' sumPreis += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 4, 0)
sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragWaehrungAbbuchung").Value, 4, 0)
sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetragWaehrungAbbuchung").Value, 4, 0)
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragWaehrungAbbuchung").Value, 4, 0)
End Sub
@@ -147,7 +151,7 @@
AddHandler rpt.ReportFooter1.Format, Sub()
rpt.lblSumMenge.Text = sumMenge.ToString("N0")
rpt.lblSumPreis.Text = sumPreis.ToString("N2")
'rpt.lblSumPreis.Text = sumPreis.ToString("N2")
rpt.lblSumNetto.Text = sumNetto.ToString("N2")
rpt.lblSumMwst.Text = sumMWST.ToString("N2")
rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
@@ -163,7 +167,7 @@
Sub initDgv_PLOSE()
With MyDatagridview1
.Columns.Clear()
.SET_SQL(" SELECT plose_POLSEKundennummer, count(*) Anzahl,plose_ProduktCode,max(plose_Produktbeschreibung) as plose_Produktbeschreibung, sum(plose_Menge) as plose_Menge,sum(plose_Preis) as plose_Preis,sum(plose_NettobetragTransaktion) as plose_NettobetragTransaktion,sum(plose_MWSTBetrag) as plose_MWSTBetrag,sum(plose_BruttobetragTransaktion) as plose_BruttobetragTransaktion
.SET_SQL(" SELECT plose_POLSEKundennummer, count(*) Anzahl,plose_ProduktCode,max(plose_Produktbeschreibung) as plose_Produktbeschreibung, sum(plose_Menge) as plose_Menge,sum(plose_Preis) as plose_Preis,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_MWSTBetragWaehrungAbbuchung) as plose_MWSTBetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung) as plose_BruttobetragWaehrungAbbuchung
FROM tblPLOSE_Details
WHERE 1 = 1
And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'
@@ -179,9 +183,9 @@
.Columns("plose_Produktbeschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("plose_Menge").HeaderText = "Menge"
.Columns("plose_Preis").HeaderText = "Preis"
.Columns("plose_NettobetragTransaktion").HeaderText = "Netto"
.Columns("plose_MWSTBetrag").HeaderText = "MWST"
.Columns("plose_BruttobetragTransaktion").HeaderText = "Brutto"
.Columns("plose_NettobetragWaehrungAbbuchung").HeaderText = "Netto"
.Columns("plose_MWSTBetragWaehrungAbbuchung").HeaderText = "MWST"
.Columns("plose_BruttobetragWaehrungAbbuchung").HeaderText = "Brutto"
'.Columns("VERAGLeistungsNr").ReadOnly = False
'.Columns("VERAGKdNr").ReadOnly = False
@@ -228,8 +232,8 @@
Dim sumBto As Double = 0
Dim sumNto As Double = 0
For Each r As DataGridViewRow In .Rows
sumBto += If(IsNumeric(r.Cells("plose_BruttobetragTransaktion").Value), CDbl(r.Cells("plose_BruttobetragTransaktion").Value), 0)
sumNto += If(IsNumeric(r.Cells("plose_NettobetragTransaktion").Value), CDbl(r.Cells("plose_NettobetragTransaktion").Value), 0)
sumBto += If(IsNumeric(r.Cells("plose_BruttobetragWaehrungAbbuchung").Value), CDbl(r.Cells("plose_BruttobetragWaehrungAbbuchung").Value), 0)
sumNto += If(IsNumeric(r.Cells("plose_NettobetragWaehrungAbbuchung").Value), CDbl(r.Cells("plose_NettobetragWaehrungAbbuchung").Value), 0)
Next
txtAnzahl.Text = .Rows.Count
@@ -262,9 +266,8 @@
Sub genRGAtt_PLOSE()
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ")
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
MsgBox("Keine Daten!")
Exit Sub
@@ -293,6 +296,7 @@
cnt += 1
Next
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren:
Dim dirAnhang = "F:\FMZoll\Maut\PLOSE\Anlagen\"
If IO.Directory.Exists(dirAnhang) Then 'IO.Directory.Delete(dirAnhang, True)
@@ -306,6 +310,10 @@
IO.File.Copy(f, dirAnhang & (New IO.FileInfo(f)).Name)
Next
'IN FMZOLL / DB MautD einfügen --> Mautbericht
'genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
@@ -314,6 +322,188 @@
End Sub
Function genPLOSEInsertMautD(von As Date, bis As Date) As Boolean
Try
Dim displayFilter = False
Dim sqlstr As String = ""
sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr "
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_Fakturiert=0 AND plp_Land NOT IN ('AT','DE') "
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
sqlstr &= " order by plp_Land, plose_DatumTransaktion"
' sqlstr &= " group by plose_ProduktCode"
' MsgBox(sqlstr)
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
Dim sqlstrAT As String = ""
sqlstrAT &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,'' as plose_Produktbeschreibung ,plose_NummerKarteGeraet as plose_NummerKarteGeraet ,'' as plose_BeschreibungEinfahrt,'' as plose_BeschreibungAusfahrt,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,sum(plose_BruttobetragWaehrungAbbuchung ) as plose_BruttobetragWaehrungAbbuchung "
sqlstrAT &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr "
sqlstrAT &= " WHERE 1=1 "
sqlstrAT &= " AND plose_Fakturiert=0 AND plp_Land IN ('AT','DE') "
sqlstrAT &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
sqlstrAT &= " group by plp_Land, AdressenNr, plose_Kennzeichen,plose_DatumTransaktion,plose_NummerKarteGeraet"
sqlstrAT &= " order by plp_Land"
' sqlstr &= " group by plose_ProduktCode"
' MsgBox(sqlstr)
Dim dtAT As DataTable = SQL.loadDgvBySql_Param(sqlstrAT, "FMZOLL")
'AT ---> Gruppiert
If dtAT IsNot Nothing AndAlso dtAT.Rows.Count > 0 Then
If dt Is Nothing OrElse dt.Rows.Count = 0 Then
dt = dtAT
Else
For Each r In dtAT.Rows
dt.Rows.Add({r(0), r(1), r(2), r(3), r(4), r(5), r(6), r(7), r(8), r(9), r(10), r(11)})
Next
End If
End If
Dim connectionString = ""
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb"
Else
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL\f\FMZoll\MautD.accdb"
End If
Dim con As New OleDbConnection(connectionString)
Dim cmd As New OleDbCommand
Dim var1 As String
Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
Dim reader As OleDbDataReader = Nothing
'Dim sqlstrACCDB As String = "SELECT count(*) FROM tblMaut WHERE 1=1"
'Try
' con.Open()
' cmd = New OleDbCommand(sqlstrACCDB, con)
' 'reader = cmd.ExecuteReader()
' 'MsgBox("da issa ")
' Using oRDR As OleDbDataReader = cmd.ExecuteReader
' While (oRDR.Read)
' MsgBox(oRDR.GetValue(0)) 'gets the first returned column
' End While
' End Using
' 'While reader.Read
' ' MsgBox("da issa2 ")
' ' MessageBox.Show(reader.GetString(0).ToString & vbTab & vbTab & reader.GetString(1).ToString)
' 'End While
' 'MsgBox("da issa3 ")
'Catch ex2 As System.Exception
' MsgBox("err: " & ex2.Message & ex2.StackTrace)
'Finally
' If reader IsNot Nothing Then reader.Close()
'End Try
'reader.Close()
'cmd.Connection = con
'cmd.CommandText = "SELECT * FROM tblMaut"
'cmd.ExecuteReader()
'cmd.CommandText = "INSERT INTO table1(Neyms) VALUES('" + var1 + "')"
'cmd.ExecuteNonQuery()
If dt IsNot Nothing Then
con.Open()
For Each r In dt.Rows
Try
'Zeitstempel
Dim SQLQuery = "INSERT INTO tblMautbericht (Datenquelle,[Customer No],[Licence Plate Number],[Transaction Date],[Transaction Country],[Product description],[Card Number],[Entry Terminal],[Exit Terminal],[Nett Amount],[VAT Amount],[Total Amount]) VALUES (@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10,@P11,@P12) "
' "SELECT * FROM DBParent WHERE P_ID = " & UniqeID & ";"
Using Command As New OleDbCommand(SQLQuery, con)
'Command.Parameters.AddWithValue("@P1", r(0).ToString)
'Command.Parameters.AddWithValue("@P2", CInt(r(1)))
'Command.Parameters.AddWithValue("@P3", r(2).ToString)
'Command.Parameters.AddWithValue("@P4", CDate(r(3)))
'Command.Parameters.AddWithValue("@P5", r(4).ToString)
'Command.Parameters.AddWithValue("@P6", r(5).ToString)
'Command.Parameters.AddWithValue("@P7", r(6).ToString)
'Command.Parameters.AddWithValue("@P8", r(7).ToString)
'Command.Parameters.AddWithValue("@P9", r(8).ToString)
'Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
'Command.Parameters.AddWithValue("@P11", CDbl(r(10)))
'Command.Parameters.AddWithValue("@P12", CDbl(r(11)))
' .Parameters.AddWithValue("@P13", r(12))
Command.Parameters.AddWithValue("@P1", r(0))
Command.Parameters.AddWithValue("@P2", r(1))
Command.Parameters.AddWithValue("@P3", r(2))
Command.Parameters.AddWithValue("@P4", r(3))
Command.Parameters.AddWithValue("@P5", r(4))
Command.Parameters.AddWithValue("@P6", r(5))
Command.Parameters.AddWithValue("@P7", r(6))
Command.Parameters.AddWithValue("@P8", r(7))
Command.Parameters.AddWithValue("@P9", r(8))
Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
Command.Parameters.AddWithValue("@P11", CDbl(r(10)))
Command.Parameters.AddWithValue("@P12", CDbl(r(11)))
Command.ExecuteNonQuery()
Command.Dispose()
End Using
'cmd = New OleDbCommand(SQLQuery, con)
'With cmd
' .Parameters.AddWithValue("@P1", r(0))
' .Parameters.AddWithValue("@P2", r(1))
' .Parameters.AddWithValue("@P3", r(2))
' .Parameters.AddWithValue("@P4", r(3))
' .Parameters.AddWithValue("@P5", r(4))
' .Parameters.AddWithValue("@P6", r(5))
' .Parameters.AddWithValue("@P7", r(6))
' .Parameters.AddWithValue("@P8", r(7))
' .Parameters.AddWithValue("@P9", r(8))
' .Parameters.AddWithValue("@P10", r(9))
' .Parameters.AddWithValue("@P11", r(10))
' .Parameters.AddWithValue("@P12", r(11))
' ' .Parameters.AddWithValue("@P13", r(12))
' cmd.Dispose()
' .ExecuteNonQuery()
'End With
Catch ex2 As System.Exception
MsgBox("err: " & ex2.Message & ex2.StackTrace)
Finally
If reader IsNot Nothing Then reader.Close()
End Try
Next
con.Close()
End If
Return True
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
Return False
End Function
Function genPLOSEAttachmentByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, dir As String)
Try
@@ -323,7 +513,7 @@
sqlstr &= " SELECT AdressenNr,tblPLOSE_Details.*,tblPLOSE_Produktbeschreibung.* "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr "
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_FakturiertDatum is null "
sqlstr &= " AND plose_Fakturiert=0 "
sqlstr &= " AND AdressenNr = '" & KdNr & "' "
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
@@ -375,13 +565,13 @@
rpt.txtLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_Land").Value, "")
rpt.txtDatum.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plose_DatumTransaktion").Value, "")
rpt.txtNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 2, "")
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
rpt.txtBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 2, "")
rpt.txtNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragWaehrungAbbuchung").Value, 2, "")
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetragWaehrungAbbuchung").Value, 2, "")
rpt.txtBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragWaehrungAbbuchung").Value, 2, "")
sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragTransaktion").Value, 4, 0)
sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragTransaktion").Value, 4, 0)
sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragWaehrungAbbuchung").Value, 4, 0)
sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetragWaehrungAbbuchung").Value, 4, 0)
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_BruttobetragWaehrungAbbuchung").Value, 4, 0)
cnt += 1
End Sub
@@ -441,7 +631,7 @@
Dim tmpPath = dir & "\" & KdNr & "_PLOSE.pdf"
Dim tmpPath = dir & "\" & KdNr & "_VERAG_Report.pdf"
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
@@ -467,7 +657,7 @@
'sqlstr &= " SELECT * "
'sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
'sqlstr &= " WHERE 1=1 "
'sqlstr &= " AND plose_FakturiertDatum is null "
'sqlstr &= " AND plose_Fakturiert=0 "
'sqlstr &= " AND plose_POLSEKundennummer = '" & KdNr & "' "
'sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
@@ -544,7 +734,7 @@
RG.VermittlerName_1 = AD.Name_1
RG.VermittlerName_2 = AD.Name_2
RG.VermittlerOffertenNr = OffertenNr
RG.VermittlerOrt = AD.Ort
RG.VermittlerOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
RG.VermittlerStraße = AD.Straße
RG.Rechnung_an = 3
RG.OffertenNr = OffertenNr
@@ -554,7 +744,7 @@
RG.RechnungsLandKz = AD.LandKz
RG.RechnungsName_1 = AD.Name_1
RG.RechnungsName_2 = AD.Name_2
RG.RechnungsOrt = AD.Ort
RG.RechnungsOrt = (If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, ""))
RG.RechnungsStraße = AD.Straße
RG.RechnungsUstIdKz = AD.UstIdKz
@@ -578,7 +768,7 @@
RG.Text = ""
RG.EMailRechnungstext = ""
RG.EMailRechnungstext = Nothing ' ""
RG.Firma_ID = 15
RG.Nettozahlungsziel = KD.Zahlungsziel
@@ -599,10 +789,10 @@
RG.Buchungsjahr = cRKSV.getGJ(RG.RechnungsDatum)
Dim sqlstr As String = ""
sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragTransaktion]) as plose_NettobetragTransaktion,sum([plose_MWSTBetrag]) as [plose_MWSTBetrag],sum([plose_BruttobetragTransaktion]) as [plose_BruttobetragTransaktion] "
sqlstr &= " SELECT [plp_LeistungsNr],sum([plose_NettobetragWaehrungAbbuchung]) as plose_NettobetragWaehrungAbbuchung,sum([plose_MWSTBetragWaehrungAbbuchung]) as [plose_MWSTBetragWaehrungAbbuchung],sum([plose_BruttobetragWaehrungAbbuchung]) as [plose_BruttobetragWaehrungAbbuchung] "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
sqlstr &= " WHERE 1=1 "
sqlstr &= " AND plose_FakturiertDatum is null "
sqlstr &= " AND plose_Fakturiert=0 "
sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' "
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
@@ -613,10 +803,10 @@
For Each r In dt.Rows
Dim BLNr = r("plp_LeistungsNr")
'Dim BProz = r("plose_BruttobetragTransaktion")
'Dim BProz = r("plose_BruttobetragWaehrungAbbuchung")
Dim NettoBetrag As Double = r("plose_NettobetragTransaktion")
Dim BruttoBetrag As Double = r("plose_BruttobetragTransaktion")
Dim NettoBetrag As Double = r("plose_NettobetragWaehrungAbbuchung")
Dim BruttoBetrag As Double = r("plose_BruttobetragWaehrungAbbuchung")
Dim LeistungsNr As Integer = r("plp_LeistungsNr")
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
@@ -649,7 +839,15 @@
Call usrCntlFaktAbrechnung.przBS415(RG) ' Bankspesen errechnen
Return RG.SAVE
If RG.SAVE Then
' FAKTURIERT eintragen
'For Each r In dt.Rows
' SQL.doSQL("UPDATE [tblPLOSE_Details]SET plose_Fakturiert=1, plose_FakturiertDatum='" & datPloseAnhang.Value & "' where plose_Id='" & r("plose_id") & "'", "FMZOLL")
'Next
Return True
Else
Return False
End If
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -673,16 +871,19 @@
POS.LeistungsBez = o.LeistungsBez
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Preis = BruttoBetrag
'POS.Preis = BruttoBetrag
POS.Anzahl = 1
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
POS.BGebBgl = NettoBetrag
If POS.Steuerpflichtig Then
POS.SteuerpflichtigerBetrag = BruttoBetrag
POS.SteuerpflichtigerBetrag = NettoBetrag
POS.Preis = NettoBetrag
Else
POS.SteuerfreierBetrag = BruttoBetrag
POS.Preis = BruttoBetrag
End If
POS.BGebLeistungsNr = o.BGebLeistungsNr
@@ -711,9 +912,10 @@
If o.LeistungsNr = BGebLeistungsNr Then
'Falls schon vorhanden...
Dim POS = RG.POSITIONEN.Find(Function(x) x.BGebLeistungsNr = BGebLeistungsNr And x.BerechnungsartNr = 9)
Dim POS = RG.POSITIONEN.Find(Function(x) x.LeistungsNr = BGebLeistungsNr) 'And x.BerechnungsartNr = 9)
If POS Is Nothing Then
POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
POS.Preis = 0
POS.SteuerpflichtigerBetrag = 0
POS.SteuerfreierBetrag = 0
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
@@ -724,6 +926,9 @@
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Anzahl = 1
' POS.BGebLeistungsNr = BGebLeistungsNr
RG.POSITIONEN.Add(POS)
End If
POS.Preis += Betrag
@@ -734,7 +939,7 @@
POS.SteuerfreierBetrag += Betrag
End If
RG.POSITIONEN.Add(POS)
' RG.POSITIONEN.Add(POS)
Return True
End If
@@ -831,4 +1036,10 @@
End If
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Select Case LIEFERANT
Case "PLOSE" : genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
End Select
End Sub
End Class

4
SDL/mdm/usrCntlKartenDaten.vb
View File

@@ -463,13 +463,13 @@ Public Class usrCntlKartenDaten
Select Case SDLNrTmp
Case 100 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=100"
Case 101 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenSchlüsselNr, GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=101"
Case 212 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr,[CARD-Nr], GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=212"
Case 212 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, UTAKundenNr, KartenNr,[CARD-Nr], GültigBis, PIN, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=212"
Case 200 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, [BestellNr],[Umstellungsdatum],KartenNr,OBUID, Vertragsabschlussdatum,Kategorie,Status,Schadstoffklasse, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=200"
Case 201 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk ,Gesperrt, Defekt, Verloren, Gestohlen, Ersatzkarte, LKWAbgemeldet, Partner,BenutzerNr,FlottenPIN,MasterPIN, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=201"
Case 202 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Kd-Nr], VIACARD,[TELEPASS-Nr], Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert,TelepassErsatzkarte, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=202"
Case 203 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=203"
Case 213 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=213"
Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=214"
Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=214"
Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, VIACARD, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=215"
Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=216"
Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209"

11
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb generated
View File

@@ -421,6 +421,7 @@ Partial Class usrCntlMDMAuswertungen
'
'kdUeberfaelligeBest
'
Me.kdUeberfaelligeBest._AlleFirmenCLUSTER = False
Me.kdUeberfaelligeBest._AllowSetValue = True
Me.kdUeberfaelligeBest._autoSizeGross = False
Me.kdUeberfaelligeBest._display_Name1 = False
@@ -578,6 +579,7 @@ Partial Class usrCntlMDMAuswertungen
'
'KdSearchBox1
'
Me.KdSearchBox1._AlleFirmenCLUSTER = False
Me.KdSearchBox1._AllowSetValue = True
Me.KdSearchBox1._autoSizeGross = False
Me.KdSearchBox1._display_Name1 = False
@@ -694,6 +696,7 @@ Partial Class usrCntlMDMAuswertungen
'
'KdSearchBox2
'
Me.KdSearchBox2._AlleFirmenCLUSTER = False
Me.KdSearchBox2._AllowSetValue = True
Me.KdSearchBox2._autoSizeGross = False
Me.KdSearchBox2._display_Name1 = False
@@ -1420,17 +1423,17 @@ Partial Class usrCntlMDMAuswertungen
'
'Button15
'
Me.Button15.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button15.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button15.Location = New System.Drawing.Point(770, 9)
Me.Button15.ForeColor = System.Drawing.Color.White
Me.Button15.Location = New System.Drawing.Point(424, 9)
Me.Button15.Name = "Button15"
Me.Button15.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.Button15.Size = New System.Drawing.Size(283, 37)
Me.Button15.TabIndex = 29
Me.Button15.Text = "MDM Dateneinarbeitung"
Me.Button15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button15.UseVisualStyleBackColor = True
Me.Button15.UseVisualStyleBackColor = False
'
'pnl
'