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

20200108

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 14:52:43 +01:00
parent bea8632eb5
commit f4c1a74870
136 changed files with 11561 additions and 1072 deletions
Download Patch File Download Diff File Expand all files Collapse all files

712
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb generated
View File

@@ -24,11 +24,17 @@ Partial Public Class rptPLOSE_Anhang
Me.txtBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtEingang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtAusgang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKunde = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Picture1 = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
@@ -41,52 +47,52 @@ Partial Public Class rptPLOSE_Anhang
Me.lblFirmaEmail = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmaWeb = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRgDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeaderKat = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooterKat = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeaderKz = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooterKz = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblService = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtEingang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtAusgang = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBruttoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtBruttoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtBruttoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoGesSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTGEsSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGessumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBrutto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMWST = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblProdukt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblNetto = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKartennummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblService = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.GroupHeaderKat = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooterKat = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtBruttoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKatSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSumKategorie = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupHeaderKz = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooterKz = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtBruttoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtNettoKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtMWSTKzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSummeKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -99,34 +105,28 @@ Partial Public Class rptPLOSE_Anhang
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTGEsSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -198,6 +198,61 @@ Partial Public Class rptPLOSE_Anhang
Me.txtMWST.Top = 0!
Me.txtMWST.Width = 0.9169284!
'
'txtLand
'
Me.txtLand.Height = 0.1212599!
Me.txtLand.HyperLink = Nothing
Me.txtLand.Left = 0.01023622!
Me.txtLand.Name = "txtLand"
Me.txtLand.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtLand.Text = "IT"
Me.txtLand.Top = 0!
Me.txtLand.Width = 0.1980315!
'
'txtDatum
'
Me.txtDatum.Height = 0.1212599!
Me.txtDatum.HyperLink = Nothing
Me.txtDatum.Left = 0.2082677!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "font-size: 6pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.txtDatum.Text = "01.01.2019"
Me.txtDatum.Top = 0!
Me.txtDatum.Width = 0.5102363!
'
'txtKartennummer
'
Me.txtKartennummer.Height = 0.1212599!
Me.txtKartennummer.HyperLink = Nothing
Me.txtKartennummer.Left = 1.781496!
Me.txtKartennummer.Name = "txtKartennummer"
Me.txtKartennummer.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtKartennummer.Text = "Kartennummer"
Me.txtKartennummer.Top = 1.862645E-9!
Me.txtKartennummer.Width = 0.9913387!
'
'txtEingang
'
Me.txtEingang.Height = 0.1212599!
Me.txtEingang.HyperLink = Nothing
Me.txtEingang.Left = 2.771654!
Me.txtEingang.Name = "txtEingang"
Me.txtEingang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtEingang.Text = "Eingang"
Me.txtEingang.Top = 0!
Me.txtEingang.Width = 1.062992!
'
'txtAusgang
'
Me.txtAusgang.Height = 0.1212599!
Me.txtAusgang.HyperLink = Nothing
Me.txtAusgang.Left = 3.834646!
Me.txtAusgang.Name = "txtAusgang"
Me.txtAusgang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtAusgang.Text = "Ausgang"
Me.txtAusgang.Top = 0!
Me.txtAusgang.Width = 1.062992!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.ReportInfo2})
@@ -233,17 +288,29 @@ Partial Public Class rptPLOSE_Anhang
Me.ReportHeader1.Height = 1.065354!
Me.ReportHeader1.Name = "ReportHeader1"
'
'lblRgDatum
'
Me.lblRgDatum.Height = 0.1574803!
Me.lblRgDatum.HyperLink = Nothing
Me.lblRgDatum.Left = 4.897638!
Me.lblRgDatum.Name = "lblRgDatum"
Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblRgDatum.Text = "01.01.2019"
Me.lblRgDatum.Top = 0.7110237!
Me.lblRgDatum.Width = 2.572441!
'
'txtKunde
'
Me.txtKunde.Height = 0.1574803!
Me.txtKunde.HyperLink = Nothing
Me.txtKunde.Left = 4.855512!
Me.txtKunde.Left = 4.896063!
Me.txtKunde.Name = "txtKunde"
Me.txtKunde.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKunde.Text = "1000000 TEST"
Me.txtKunde.Top = 0.868504!
Me.txtKunde.Width = 2.614567!
Me.txtKunde.Width = 2.574016!
'
'Label16
'
@@ -389,18 +456,6 @@ Partial Public Class rptPLOSE_Anhang
Me.Label18.Top = 0.7110237!
Me.Label18.Width = 1.165748!
'
'lblRgDatum
'
Me.lblRgDatum.Height = 0.1574803!
Me.lblRgDatum.HyperLink = Nothing
Me.lblRgDatum.Left = 5.511811!
Me.lblRgDatum.Name = "lblRgDatum"
Me.lblRgDatum.Style = "font-size: 8pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.lblRgDatum.Text = "01.01.2019"
Me.lblRgDatum.Top = 0.7110237!
Me.lblRgDatum.Width = 1.958268!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoGesSum, Me.txtNettoGesSum, Me.txtMWSTGEsSum, Me.lblGessumme, Me.Line7, Me.Line8})
@@ -408,6 +463,77 @@ Partial Public Class rptPLOSE_Anhang
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'txtBruttoGesSum
'
Me.txtBruttoGesSum.Height = 0.1417323!
Me.txtBruttoGesSum.HyperLink = Nothing
Me.txtBruttoGesSum.Left = 6.563386!
Me.txtBruttoGesSum.Name = "txtBruttoGesSum"
Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoGesSum.Text = "Betrag"
Me.txtBruttoGesSum.Top = 0.1098426!
Me.txtBruttoGesSum.Width = 0.9169284!
'
'txtNettoGesSum
'
Me.txtNettoGesSum.Height = 0.1417323!
Me.txtNettoGesSum.HyperLink = Nothing
Me.txtNettoGesSum.Left = 4.729524!
Me.txtNettoGesSum.Name = "txtNettoGesSum"
Me.txtNettoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoGesSum.Text = "Betrag"
Me.txtNettoGesSum.Top = 0.1098426!
Me.txtNettoGesSum.Width = 0.9169284!
'
'txtMWSTGEsSum
'
Me.txtMWSTGEsSum.Height = 0.1417323!
Me.txtMWSTGEsSum.HyperLink = Nothing
Me.txtMWSTGEsSum.Left = 5.646452!
Me.txtMWSTGEsSum.Name = "txtMWSTGEsSum"
Me.txtMWSTGEsSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTGEsSum.Text = "Betrag"
Me.txtMWSTGEsSum.Top = 0.1098426!
Me.txtMWSTGEsSum.Width = 0.9169284!
'
'lblGessumme
'
Me.lblGessumme.Height = 0.1417323!
Me.lblGessumme.HyperLink = Nothing
Me.lblGessumme.Left = 3.244878!
Me.lblGessumme.Name = "lblGessumme"
Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblGessumme.Text = "Gesamtsumme:"
Me.lblGessumme.Top = 0.1098426!
Me.lblGessumme.Width = 1.484645!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.002752304!
Me.Line7.LineWeight = 2.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 7.475196!
Me.Line7.X1 = 0.002752304!
Me.Line7.X2 = 7.477948!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0!
'
'Line8
'
Me.Line8.Height = 0!
Me.Line8.Left = 0.002752304!
Me.Line8.LineWeight = 2.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0.03543304!
Me.Line8.Width = 7.475196!
Me.Line8.X1 = 0.002752304!
Me.Line8.X2 = 7.477948!
Me.Line8.Y1 = 0.03543304!
Me.Line8.Y2 = 0.03543304!
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblDatum, Me.lblLand, Me.lblBrutto, Me.lblMWST, Me.Line16, Me.lblProdukt, Me.lblNetto, Me.lblKartennummer, Me.lblService})
@@ -415,6 +541,30 @@ Partial Public Class rptPLOSE_Anhang
Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4"
'
'lblDatum
'
Me.lblDatum.Height = 0.1425197!
Me.lblDatum.HyperLink = Nothing
Me.lblDatum.Left = 0.2082677!
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Style = "font-size: 6pt; font-weight: bold; text-align: center; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblDatum.Text = "Datum"
Me.lblDatum.Top = 0.008661418!
Me.lblDatum.Width = 0.5102363!
'
'lblLand
'
Me.lblLand.Height = 0.1425197!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 0!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0.008661417!
Me.lblLand.Width = 0.3228347!
'
'lblBrutto
'
Me.lblBrutto.Height = 0.1425197!
@@ -476,6 +626,30 @@ Partial Public Class rptPLOSE_Anhang
Me.lblNetto.Top = 0.008661418!
Me.lblNetto.Width = 0.7503939!
'
'lblKartennummer
'
Me.lblKartennummer.Height = 0.1425197!
Me.lblKartennummer.HyperLink = Nothing
Me.lblKartennummer.Left = 1.781496!
Me.lblKartennummer.Name = "lblKartennummer"
Me.lblKartennummer.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblKartennummer.Text = "Kartennummer"
Me.lblKartennummer.Top = 0.008661418!
Me.lblKartennummer.Width = 0.9901576!
'
'lblService
'
Me.lblService.Height = 0.1425197!
Me.lblService.HyperLink = Nothing
Me.lblService.Left = 2.771654!
Me.lblService.Name = "lblService"
Me.lblService.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblService.Text = "Service"
Me.lblService.Top = 0.008661418!
Me.lblService.Width = 2.125984!
'
'GroupFooter4
'
Me.GroupFooter4.Height = 0!
@@ -492,203 +666,6 @@ Partial Public Class rptPLOSE_Anhang
Me.GroupFooterKat.Height = 0.375!
Me.GroupFooterKat.Name = "GroupFooterKat"
'
'GroupHeaderKz
'
Me.GroupHeaderKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKennzeichen, Me.txtKennzeichen})
Me.GroupHeaderKz.Name = "GroupHeaderKz"
'
'GroupFooterKz
'
Me.GroupFooterKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKzSum, Me.txtNettoKzSum, Me.txtMWSTKzSum, Me.Line4, Me.lblSummeKennzeichen})
Me.GroupFooterKz.Name = "GroupFooterKz"
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1425197!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 0.01417327!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblKennzeichen.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblKennzeichen.Text = "LKW-Kennzeichen:"
Me.lblKennzeichen.Top = 0.05354331!
Me.lblKennzeichen.Width = 1.34252!
'
'txtKennzeichen
'
Me.txtKennzeichen.Height = 0.1425197!
Me.txtKennzeichen.HyperLink = Nothing
Me.txtKennzeichen.Left = 1.356693!
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKennzeichen.Text = "SD 123 ABC"
Me.txtKennzeichen.Top = 0.05354331!
Me.txtKennzeichen.Width = 1.34252!
'
'txtLand
'
Me.txtLand.Height = 0.1212599!
Me.txtLand.HyperLink = Nothing
Me.txtLand.Left = 0.01023622!
Me.txtLand.Name = "txtLand"
Me.txtLand.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtLand.Text = "IT"
Me.txtLand.Top = 0!
Me.txtLand.Width = 0.1980315!
'
'txtDatum
'
Me.txtDatum.Height = 0.1212599!
Me.txtDatum.HyperLink = Nothing
Me.txtDatum.Left = 0.2082677!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "font-size: 6pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.txtDatum.Text = "01.01.2019"
Me.txtDatum.Top = 0!
Me.txtDatum.Width = 0.5102363!
'
'lblLand
'
Me.lblLand.Height = 0.1425197!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 0!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0.008661417!
Me.lblLand.Width = 0.3228347!
'
'lblDatum
'
Me.lblDatum.Height = 0.1425197!
Me.lblDatum.HyperLink = Nothing
Me.lblDatum.Left = 0.2082677!
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Style = "font-size: 6pt; font-weight: bold; text-align: center; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblDatum.Text = "Datum"
Me.lblDatum.Top = 0.008661418!
Me.lblDatum.Width = 0.5102363!
'
'lblKartennummer
'
Me.lblKartennummer.Height = 0.1425197!
Me.lblKartennummer.HyperLink = Nothing
Me.lblKartennummer.Left = 1.781496!
Me.lblKartennummer.Name = "lblKartennummer"
Me.lblKartennummer.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblKartennummer.Text = "Kartennummer"
Me.lblKartennummer.Top = 0.008661418!
Me.lblKartennummer.Width = 0.9901576!
'
'txtKartennummer
'
Me.txtKartennummer.Height = 0.1212599!
Me.txtKartennummer.HyperLink = Nothing
Me.txtKartennummer.Left = 1.781496!
Me.txtKartennummer.Name = "txtKartennummer"
Me.txtKartennummer.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtKartennummer.Text = "Kartennummer"
Me.txtKartennummer.Top = 1.862645E-9!
Me.txtKartennummer.Width = 0.9913387!
'
'lblService
'
Me.lblService.Height = 0.1425197!
Me.lblService.HyperLink = Nothing
Me.lblService.Left = 2.771654!
Me.lblService.Name = "lblService"
Me.lblService.Style = "font-size: 6pt; font-weight: bold; text-align: left; vertical-align: middle; ddo-" &
"char-set: 1"
Me.lblService.Text = "Service"
Me.lblService.Top = 0.008661418!
Me.lblService.Width = 2.125984!
'
'txtEingang
'
Me.txtEingang.Height = 0.1212599!
Me.txtEingang.HyperLink = Nothing
Me.txtEingang.Left = 2.771654!
Me.txtEingang.Name = "txtEingang"
Me.txtEingang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtEingang.Text = "Eingang"
Me.txtEingang.Top = 0!
Me.txtEingang.Width = 1.062992!
'
'txtAusgang
'
Me.txtAusgang.Height = 0.1212599!
Me.txtAusgang.HyperLink = Nothing
Me.txtAusgang.Left = 3.834646!
Me.txtAusgang.Name = "txtAusgang"
Me.txtAusgang.Style = "font-size: 6pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtAusgang.Text = "Ausgang"
Me.txtAusgang.Top = 0!
Me.txtAusgang.Width = 1.062992!
'
'txtBruttoKzSum
'
Me.txtBruttoKzSum.Height = 0.1417323!
Me.txtBruttoKzSum.HyperLink = Nothing
Me.txtBruttoKzSum.Left = 6.56339!
Me.txtBruttoKzSum.Name = "txtBruttoKzSum"
Me.txtBruttoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoKzSum.Text = "Betrag"
Me.txtBruttoKzSum.Top = 0.01968504!
Me.txtBruttoKzSum.Width = 0.9169284!
'
'txtNettoKzSum
'
Me.txtNettoKzSum.Height = 0.1417323!
Me.txtNettoKzSum.HyperLink = Nothing
Me.txtNettoKzSum.Left = 4.729528!
Me.txtNettoKzSum.Name = "txtNettoKzSum"
Me.txtNettoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoKzSum.Text = "Betrag"
Me.txtNettoKzSum.Top = 0.01968504!
Me.txtNettoKzSum.Width = 0.9169284!
'
'txtMWSTKzSum
'
Me.txtMWSTKzSum.Height = 0.1417323!
Me.txtMWSTKzSum.HyperLink = Nothing
Me.txtMWSTKzSum.Left = 5.646457!
Me.txtMWSTKzSum.Name = "txtMWSTKzSum"
Me.txtMWSTKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTKzSum.Text = "Betrag"
Me.txtMWSTKzSum.Top = 0.01968504!
Me.txtMWSTKzSum.Width = 0.9169284!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.002755906!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 7.475195!
Me.Line4.X1 = 0.002755906!
Me.Line4.X2 = 7.477951!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0!
'
'lblSummeKennzeichen
'
Me.lblSummeKennzeichen.Height = 0.1417323!
Me.lblSummeKennzeichen.HyperLink = Nothing
Me.lblSummeKennzeichen.Left = 3.244882!
Me.lblSummeKennzeichen.Name = "lblSummeKennzeichen"
Me.lblSummeKennzeichen.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblSummeKennzeichen.Text = "Summe Kennzeichen"
Me.lblSummeKennzeichen.Top = 0.01968504!
Me.lblSummeKennzeichen.Width = 1.484645!
'
'txtBruttoKatSum
'
Me.txtBruttoKatSum.Height = 0.1417323!
@@ -747,76 +724,99 @@ Partial Public Class rptPLOSE_Anhang
Me.Line5.Y1 = 0.06102363!
Me.Line5.Y2 = 0.06102363!
'
'txtBruttoGesSum
'GroupHeaderKz
'
Me.txtBruttoGesSum.Height = 0.1417323!
Me.txtBruttoGesSum.HyperLink = Nothing
Me.txtBruttoGesSum.Left = 6.563386!
Me.txtBruttoGesSum.Name = "txtBruttoGesSum"
Me.txtBruttoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoGesSum.Text = "Betrag"
Me.txtBruttoGesSum.Top = 0.1098426!
Me.txtBruttoGesSum.Width = 0.9169284!
Me.GroupHeaderKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKennzeichen, Me.txtKennzeichen})
Me.GroupHeaderKz.Name = "GroupHeaderKz"
'
'txtNettoGesSum
'lblKennzeichen
'
Me.txtNettoGesSum.Height = 0.1417323!
Me.txtNettoGesSum.HyperLink = Nothing
Me.txtNettoGesSum.Left = 4.729524!
Me.txtNettoGesSum.Name = "txtNettoGesSum"
Me.txtNettoGesSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoGesSum.Text = "Betrag"
Me.txtNettoGesSum.Top = 0.1098426!
Me.txtNettoGesSum.Width = 0.9169284!
Me.lblKennzeichen.Height = 0.1425197!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 0.01417327!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblKennzeichen.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.lblKennzeichen.Text = "LKW-Kennzeichen:"
Me.lblKennzeichen.Top = 0.05354331!
Me.lblKennzeichen.Width = 1.34252!
'
'txtMWSTGEsSum
'txtKennzeichen
'
Me.txtMWSTGEsSum.Height = 0.1417323!
Me.txtMWSTGEsSum.HyperLink = Nothing
Me.txtMWSTGEsSum.Left = 5.646452!
Me.txtMWSTGEsSum.Name = "txtMWSTGEsSum"
Me.txtMWSTGEsSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTGEsSum.Text = "Betrag"
Me.txtMWSTGEsSum.Top = 0.1098426!
Me.txtMWSTGEsSum.Width = 0.9169284!
Me.txtKennzeichen.Height = 0.1425197!
Me.txtKennzeichen.HyperLink = Nothing
Me.txtKennzeichen.Left = 1.356693!
Me.txtKennzeichen.Name = "txtKennzeichen"
Me.txtKennzeichen.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.txtKennzeichen.Style = "font-size: 10pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtKennzeichen.Text = "SD 123 ABC"
Me.txtKennzeichen.Top = 0.05354331!
Me.txtKennzeichen.Width = 1.34252!
'
'lblGessumme
'GroupFooterKz
'
Me.lblGessumme.Height = 0.1417323!
Me.lblGessumme.HyperLink = Nothing
Me.lblGessumme.Left = 3.244878!
Me.lblGessumme.Name = "lblGessumme"
Me.lblGessumme.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
Me.GroupFooterKz.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBruttoKzSum, Me.txtNettoKzSum, Me.txtMWSTKzSum, Me.Line4, Me.lblSummeKennzeichen})
Me.GroupFooterKz.Name = "GroupFooterKz"
'
'txtBruttoKzSum
'
Me.txtBruttoKzSum.Height = 0.1417323!
Me.txtBruttoKzSum.HyperLink = Nothing
Me.txtBruttoKzSum.Left = 6.56339!
Me.txtBruttoKzSum.Name = "txtBruttoKzSum"
Me.txtBruttoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtBruttoKzSum.Text = "Betrag"
Me.txtBruttoKzSum.Top = 0.01968504!
Me.txtBruttoKzSum.Width = 0.9169284!
'
'txtNettoKzSum
'
Me.txtNettoKzSum.Height = 0.1417323!
Me.txtNettoKzSum.HyperLink = Nothing
Me.txtNettoKzSum.Left = 4.729528!
Me.txtNettoKzSum.Name = "txtNettoKzSum"
Me.txtNettoKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtNettoKzSum.Text = "Betrag"
Me.txtNettoKzSum.Top = 0.01968504!
Me.txtNettoKzSum.Width = 0.9169284!
'
'txtMWSTKzSum
'
Me.txtMWSTKzSum.Height = 0.1417323!
Me.txtMWSTKzSum.HyperLink = Nothing
Me.txtMWSTKzSum.Left = 5.646457!
Me.txtMWSTKzSum.Name = "txtMWSTKzSum"
Me.txtMWSTKzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtMWSTKzSum.Text = "Betrag"
Me.txtMWSTKzSum.Top = 0.01968504!
Me.txtMWSTKzSum.Width = 0.9169284!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.002755906!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 7.475195!
Me.Line4.X1 = 0.002755906!
Me.Line4.X2 = 7.477951!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0!
'
'lblSummeKennzeichen
'
Me.lblSummeKennzeichen.Height = 0.1417323!
Me.lblSummeKennzeichen.HyperLink = Nothing
Me.lblSummeKennzeichen.Left = 3.244882!
Me.lblSummeKennzeichen.Name = "lblSummeKennzeichen"
Me.lblSummeKennzeichen.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1; ddo-font-v" &
"ertical: none"
Me.lblGessumme.Text = "Gesamtsumme:"
Me.lblGessumme.Top = 0.1098426!
Me.lblGessumme.Width = 1.484645!
'
'Line7
'
Me.Line7.Height = 0!
Me.Line7.Left = 0.002752304!
Me.Line7.LineWeight = 2.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 7.475195!
Me.Line7.X1 = 0.002752304!
Me.Line7.X2 = 7.477948!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0!
'
'Line8
'
Me.Line8.Height = 0!
Me.Line8.Left = 0.002752304!
Me.Line8.LineWeight = 2.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0.03543304!
Me.Line8.Width = 7.475195!
Me.Line8.X1 = 0.002752304!
Me.Line8.X2 = 7.477948!
Me.Line8.Y1 = 0.03543304!
Me.Line8.Y2 = 0.03543304!
Me.lblSummeKennzeichen.Text = "Summe Kennzeichen"
Me.lblSummeKennzeichen.Top = 0.01968504!
Me.lblSummeKennzeichen.Width = 1.484645!
'
'rptPLOSE_Anhang
'
@@ -850,7 +850,13 @@ Partial Public Class rptPLOSE_Anhang
CType(Me.txtBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKunde, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Picture1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -863,34 +869,28 @@ Partial Public Class rptPLOSE_Anhang
CType(Me.lblFirmaEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmaWeb, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRgDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEingang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAusgang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoGesSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTGEsSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGessumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBrutto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMWST, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblProdukt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNetto, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKartennummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblService, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKatSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumKategorie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNettoKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMWSTKzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -904,7 +904,7 @@ Partial Public Class rptPLOSE_Anhang
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtKunde As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblRgDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Picture1 As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture

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

@@ -236,9 +236,9 @@ Public Class frmSDLAbholungEintrag
" WHEN '210' THEN 'SI' " &
" WHEN '212' THEN 'UTA' " &
" WHEN '213' THEN 'HUGO' " &
" WHEN '214' THEN 'PLOSE' " &
" WHEN '215' THEN 'PLOSE IT' " &
" WHEN '216' THEN 'PLOSE CZ' " &
" WHEN '214' THEN 'ROADMASTER' " &
" WHEN '215' THEN 'IT' " &
" WHEN '216' THEN 'CZ' " &
" WHEN '203' THEN 'CZ' " &
" WHEN '209' THEN 'PL' " &
" WHEN '500' THEN 'ABGASPLAKETTE' " &

2
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb
View File

@@ -105,7 +105,7 @@ Public Class usrCntlSDLLeistungenPLOSE_IT
UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter
txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr
' txtPLOSEKdNr.Text = SDL.TELEPASS_Kd_Nr
txtTelepassNr.Text = SDL.TELEPASS_Nr
txtVIACard.Text = SDL.VIACARD

135
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.Designer.vb → SDL/mdm/frmMDMDatenverarbetiung.Designer.vb generated
View File

@@ -35,6 +35,9 @@ Partial Class frmMDMDatenverarbetiung
Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
Me.lbl = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnKunde = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label43 = New System.Windows.Forms.Label()
@@ -45,7 +48,7 @@ Partial Class frmMDMDatenverarbetiung
Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtPrüfsumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button3 = New System.Windows.Forms.Button()
@@ -72,22 +75,24 @@ Partial Class frmMDMDatenverarbetiung
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1054, 100)
Me.pnl.Size = New System.Drawing.Size(1163, 100)
Me.pnl.TabIndex = 1
'
'FlowLayoutPanel
'
Me.FlowLayoutPanel.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FloralWhite
Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.FlowLayoutPanel.Controls.Add(Me.btn)
Me.FlowLayoutPanel.Location = New System.Drawing.Point(139, 37)
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
Me.FlowLayoutPanel.Size = New System.Drawing.Size(731, 31)
Me.FlowLayoutPanel.Size = New System.Drawing.Size(840, 31)
Me.FlowLayoutPanel.TabIndex = 27
'
'btn
'
Me.btn.BackColor = System.Drawing.Color.Wheat
Me.btn.BackColor = System.Drawing.Color.FloralWhite
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(3, 3)
Me.btn.Name = "btn"
@@ -98,8 +103,9 @@ Partial Class frmMDMDatenverarbetiung
'
'btnDatenLaden
'
Me.btnDatenLaden.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDatenLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDatenLaden.Location = New System.Drawing.Point(876, 37)
Me.btnDatenLaden.Location = New System.Drawing.Point(985, 37)
Me.btnDatenLaden.Name = "btnDatenLaden"
Me.btnDatenLaden.Size = New System.Drawing.Size(166, 57)
Me.btnDatenLaden.TabIndex = 1
@@ -161,10 +167,13 @@ Partial Class frmMDMDatenverarbetiung
'
'Panel1
'
Me.Panel1.Controls.Add(Me.btnKunde)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.txtPruefsummeBrutto)
Me.Panel1.Controls.Add(Me.cbx)
Me.Panel1.Controls.Add(Me.Panel2)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.txtPrüfsumme)
Me.Panel1.Controls.Add(Me.txtPruefsummeNetto)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.txtAnzahl)
Me.Panel1.Controls.Add(Me.Button3)
@@ -172,9 +181,57 @@ Partial Class frmMDMDatenverarbetiung
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel1.Location = New System.Drawing.Point(0, 677)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1054, 114)
Me.Panel1.Size = New System.Drawing.Size(1163, 114)
Me.Panel1.TabIndex = 2
'
'btnKunde
'
Me.btnKunde.Enabled = False
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.Name = "btnKunde"
Me.btnKunde.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
Me.btnKunde.Size = New System.Drawing.Size(136, 32)
Me.btnKunde.TabIndex = 45
Me.btnKunde.Text = "zum Kundenblatt"
Me.btnKunde.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKunde.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(953, 72)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(92, 13)
Me.Label4.TabIndex = 44
Me.Label4.Text = "Prüfsumme brutto:"
'
'txtPruefsummeBrutto
'
Me.txtPruefsummeBrutto._DateTimeOnly = False
Me.txtPruefsummeBrutto._numbersOnly = False
Me.txtPruefsummeBrutto._numbersOnlyKommastellen = ""
Me.txtPruefsummeBrutto._Prozent = False
Me.txtPruefsummeBrutto._ShortDateNew = False
Me.txtPruefsummeBrutto._ShortDateOnly = False
Me.txtPruefsummeBrutto._TimeOnly = False
Me.txtPruefsummeBrutto._value = ""
Me.txtPruefsummeBrutto._Waehrung = False
Me.txtPruefsummeBrutto._WaehrungZeichen = True
Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black
Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 69)
Me.txtPruefsummeBrutto.MaxLineLength = -1
Me.txtPruefsummeBrutto.MaxLines_Warning = ""
Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing
Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto"
Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20)
Me.txtPruefsummeBrutto.TabIndex = 43
Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'cbx
'
Me.cbx.AutoSize = True
@@ -263,38 +320,42 @@ Partial Class frmMDMDatenverarbetiung
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(855, 46)
Me.Label3.Location = New System.Drawing.Point(953, 46)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(62, 13)
Me.Label3.Size = New System.Drawing.Size(89, 13)
Me.Label3.TabIndex = 38
Me.Label3.Text = "Prüfsumme:"
Me.Label3.Text = "Prüfsumme netto:"
'
'txtPrüfsumme
'txtPruefsummeNetto
'
Me.txtPrüfsumme._DateTimeOnly = False
Me.txtPrüfsumme._numbersOnly = False
Me.txtPrüfsumme._numbersOnlyKommastellen = ""
Me.txtPrüfsumme._Prozent = False
Me.txtPrüfsumme._ShortDateNew = False
Me.txtPrüfsumme._ShortDateOnly = False
Me.txtPrüfsumme._TimeOnly = False
Me.txtPrüfsumme._value = ""
Me.txtPrüfsumme._Waehrung = False
Me.txtPrüfsumme._WaehrungZeichen = True
Me.txtPrüfsumme.ForeColor = System.Drawing.Color.Black
Me.txtPrüfsumme.Location = New System.Drawing.Point(942, 43)
Me.txtPrüfsumme.MaxLineLength = -1
Me.txtPrüfsumme.MaxLines_Warning = ""
Me.txtPrüfsumme.MaxLines_Warning_Label = Nothing
Me.txtPrüfsumme.Name = "txtPrüfsumme"
Me.txtPrüfsumme.Size = New System.Drawing.Size(100, 20)
Me.txtPrüfsumme.TabIndex = 37
Me.txtPruefsummeNetto._DateTimeOnly = False
Me.txtPruefsummeNetto._numbersOnly = False
Me.txtPruefsummeNetto._numbersOnlyKommastellen = ""
Me.txtPruefsummeNetto._Prozent = False
Me.txtPruefsummeNetto._ShortDateNew = False
Me.txtPruefsummeNetto._ShortDateOnly = False
Me.txtPruefsummeNetto._TimeOnly = False
Me.txtPruefsummeNetto._value = ""
Me.txtPruefsummeNetto._Waehrung = False
Me.txtPruefsummeNetto._WaehrungZeichen = True
Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black
Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 43)
Me.txtPruefsummeNetto.MaxLineLength = -1
Me.txtPruefsummeNetto.MaxLines_Warning = ""
Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing
Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto"
Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20)
Me.txtPruefsummeNetto.TabIndex = 37
Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(855, 19)
Me.Label2.Location = New System.Drawing.Point(953, 19)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(42, 13)
Me.Label2.TabIndex = 36
@@ -312,14 +373,16 @@ Partial Class frmMDMDatenverarbetiung
Me.txtAnzahl._value = ""
Me.txtAnzahl._Waehrung = False
Me.txtAnzahl._WaehrungZeichen = True
Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
Me.txtAnzahl.Location = New System.Drawing.Point(942, 16)
Me.txtAnzahl.Location = New System.Drawing.Point(1051, 16)
Me.txtAnzahl.MaxLineLength = -1
Me.txtAnzahl.MaxLines_Warning = ""
Me.txtAnzahl.MaxLines_Warning_Label = Nothing
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
Me.txtAnzahl.TabIndex = 35
Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Button3
'
@@ -353,7 +416,8 @@ Partial Class frmMDMDatenverarbetiung
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 100)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.ReadOnly = True
Me.MyDatagridview1.Size = New System.Drawing.Size(1054, 577)
Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
Me.MyDatagridview1.TabIndex = 0
'
'frmMDMDatenverarbetiung
@@ -361,7 +425,7 @@ Partial Class frmMDMDatenverarbetiung
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1054, 791)
Me.ClientSize = New System.Drawing.Size(1163, 791)
Me.Controls.Add(Me.MyDatagridview1)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
@@ -402,10 +466,13 @@ Partial Class frmMDMDatenverarbetiung
Friend WithEvents txtPloseAnh_Einarbeitung As TextBox
Friend WithEvents Label44 As Label
Friend WithEvents Label3 As Label
Friend WithEvents txtPrüfsumme As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtPruefsummeNetto As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label
Friend WithEvents datPloseAnhang As DateTimePicker
Friend WithEvents Label43 As Label
Friend WithEvents cbx As CheckBox
Friend WithEvents Panel2 As Panel
Friend WithEvents Label4 As Label
Friend WithEvents txtPruefsummeBrutto As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents btnKunde As Button
End Class

0
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.resx → SDL/mdm/frmMDMDatenverarbetiung.resx
View File

305
SDL/mdm/PLOSE/frmMDMDatenverarbetiung.vb → SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -4,7 +4,8 @@
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
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs)
@@ -22,6 +23,9 @@
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
MyDatagridview1.ClearSelection()
Button3.BackColor = Color.White
Button3.ForeColor = Color.Black
@@ -48,7 +52,7 @@
Sub init()
txtAnzahl.Text = ""
txtPrüfsumme.Text = ""
txtPruefsummeNetto.Text = ""
Select Case LIEFERANT
Case "PLOSE" : initDgv_PLOSE()
@@ -167,49 +171,72 @@
group by plose_POLSEKundennummer,plose_ProduktCode
order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL")
.LOAD()
If .Columns.Count > 0 Then
.Columns("plose_POLSEKundennummer").HeaderText = "PLOSE KdNr"
.Columns("plose_ProduktCode").HeaderText = "ProduktCode"
.Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung"
.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_POLSEKundennummer").HeaderText = "PLOSE KdNr"
.Columns("plose_ProduktCode").HeaderText = "ProduktCode"
.Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung"
.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("VERAGLeistungsNr").ReadOnly = False
'.Columns("VERAGKdNr").ReadOnly = False
'.Columns("VERAGLeistungsNr").ReadOnly = False
'.Columns("VERAGKdNr").ReadOnly = False
'For Each r As DataGridViewColumn In .Columns
' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then
' r.ReadOnly = False
' Else
' r.ReadOnly = True
' End If
'Next
'For Each r As DataGridViewColumn In .Columns
' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then
' r.ReadOnly = False
' Else
' r.ReadOnly = True
' End If
'Next
Dim c2 As New DataGridViewTextBoxColumn
c2.Name = "VERAGKdNr"
c2.HeaderText = "VERAG KdNr"
c2.MinimumWidth = 115
.Columns.Insert(1, c2)
Dim c As New DataGridViewTextBoxColumn
c.Name = "VERAGKdNr"
c.HeaderText = "VERAG KdNr"
c.Width = 100
.Columns.Insert(1, c)
Dim c As New DataGridViewTextBoxColumn
c.Name = "VERAGLeistungsNr"
c.HeaderText = "VERAG LeistungsNr."
c.MinimumWidth = 115
.Columns.Insert(5, c)
c = New DataGridViewTextBoxColumn
c.Name = "VERAGLeistungsNr"
c.HeaderText = "VERAG/PLOSE LeistungsNr."
c.Width = 100
.Columns.Insert(2, c)
c = New DataGridViewTextBoxColumn
c.Name = "KundeOffertenNr"
c.HeaderText = "Kunde OffertenNr."
c.Width = 100
.Columns.Insert(3, c)
c = New DataGridViewTextBoxColumn
c.Name = "KundeLeistungsNr"
c.HeaderText = "Kunde LeistungsNr."
c.Width = 100
.Columns.Insert(4, c)
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
Dim sum As Double = 0
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
End If
Dim sumBto As Double = 0
Dim sumNto As Double = 0
For Each r As DataGridViewRow In .Rows
sum += If(IsNumeric(r.Cells("plose_BruttobetragTransaktion").Value), CDbl(r.Cells("plose_BruttobetragTransaktion").Value), 0)
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)
Next
txtAnzahl.Text = .Rows.Count
txtPrüfsumme.Text = sum.ToString("N2")
txtPruefsummeNetto.Text = sumNto.ToString("C2")
txtPruefsummeBrutto.Text = sumBto.ToString("CS2")
.ClearSelection()
End With
End Sub
@@ -236,7 +263,7 @@
Sub genRGAtt_PLOSE()
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [plose_POLSEKundennummer] FROM tblPLOSE_Details where plose_FakturiertDatum is null AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [plose_POLSEKundennummer] ", "FMZOLL")
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")
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
MsgBox("Keine Daten!")
@@ -251,10 +278,9 @@
For Each R_PLOSE In dt_Main.Rows
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH)
genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("plose_POLSEKundennummer"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value)
genPLOSEAttachmentByKdNr(R_PLOSE("plose_POLSEKundennummer"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
genPLOSE_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH)
genPLOSE_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value)
genPLOSEAttachmentByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
If True Then 'cnt Mod 10 = 0 Then
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
@@ -265,9 +291,21 @@
My.Application.DoEvents()
End If
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)
For Each f In IO.Directory.GetFiles(dirAnhang)
IO.File.Delete(f)
Next
End If
If Not IO.Directory.Exists(dirAnhang) Then IO.Directory.CreateDirectory(dirAnhang)
For Each f In IO.Directory.GetFiles(dir)
IO.File.Copy(f, dirAnhang & (New IO.FileInfo(f)).Name)
Next
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
@@ -276,17 +314,17 @@
End Sub
Function genPLOSEAttachmentByKdNr(KdNr As String, von As Date, bis As Date, dir As String)
Function genPLOSEAttachmentByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, dir As String)
Try
Dim displayFilter = False
Dim sqlstr As String = ""
sqlstr &= " SELECT * "
sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode "
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_POLSEKundennummer = '" & KdNr & "' "
sqlstr &= " AND AdressenNr = '" & KdNr & "' "
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
' sqlstr &= " group by plose_ProduktCode"
@@ -298,6 +336,7 @@
rpt.DataSource = dt
rpt.txtKunde.Text = KdNr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr).FullName
rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString
rpt.GroupHeaderKz.DataField = "plose_Kennzeichen" 'Gruppierung
@@ -402,7 +441,7 @@
Dim tmpPath = dir & "\" & KdNr & "_PLOSE_Anhang.pdf"
Dim tmpPath = dir & "\" & KdNr & "_PLOSE.pdf"
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
@@ -419,7 +458,7 @@
End Function
Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
Try
'Dim displayFilter = False
@@ -440,7 +479,7 @@
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch
Dim OffertenNr = 8
Dim OffertenNr = 80
Dim Abfertigungsart = 10
SPEDBUCH.FilialenNr = 4824
@@ -450,7 +489,7 @@
SPEDBUCH.Vermittler = AD.Ordnungsbegriff
SPEDBUCH.VermittlerKundenNr = KdNr
SPEDBUCH.VermittlerOffertenNr = OffertenNr
SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value
SPEDBUCH.Abfertigungsdatum = datPloseAnhang.Value.ToShortDateString
SPEDBUCH.Abfertigungsart = Abfertigungsart
SPEDBUCH.Bar = 0
@@ -458,6 +497,11 @@
SPEDBUCH.AnzahlSonstiges = 1
SPEDBUCH.Abfertigungsanzahl = 1
SPEDBUCH.AvisUhrzeit = Nothing
SPEDBUCH.Umrechnungskurs = Nothing
SPEDBUCH.veoerz_basbtg = Nothing
SPEDBUCH.Sicherheitsbetrag = Nothing
SPEDBUCH.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -470,14 +514,15 @@
End Function
Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date)
Function genPLOSE_RECHNUNG_BySPEDBUCH(KdNr As String, PLOSEKundenNr As String, SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, von As Date, bis As Date)
Try
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SPEDBUCH.VermittlerKundenNr)
Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(SPEDBUCH.VermittlerKundenNr)
Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang
Dim OffertenNr = 8
Dim OffertenNr = 80
Dim Abfertigungsart = 10
RG.FilialenNr = SPEDBUCH.FilialenNr
@@ -485,7 +530,7 @@
RG.SpeditionsbuchUnterNr = SPEDBUCH.UnterNr
RG.UnterNr = RG.getMaxRGUnterNr()
RG.Buchungsjahr = cRKSV.getGJ(datPloseAnhang.Value) 'If(Now.Month = 1, Now.Year - 1, Now.Year)
RG.FilialenNr = SPEDBUCH.FilialenNr
RG.Abfertigungsdatum = SPEDBUCH.Abfertigungsdatum
RG.Sammelrechnung = 6 'MAUT/DIESEL
@@ -538,53 +583,73 @@
RG.Firma_ID = 15
RG.Nettozahlungsziel = KD.Zahlungsziel
RG.SteuerpflichtigerGesamtbetrag = ""
RG.SteuerfreierGesamtbetrag = ""
RG.SteuerpflichtigerGesamtbetrag = 0
RG.SteuerfreierGesamtbetrag = 0
RG.Status = 0
RG.[Vorkosten] = 0
RG.[Erlös] = 0
RG.[Buchungsjahr] = 0
RG.[Währungscode] = "EUR"
RG.ReErfZeitstempel = Now
RG.Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
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 &= " 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_POLSEKundennummer = '" & KdNr & "' "
sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' "
sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' "
sqlstr &= " group by plose_POLSEKundennummer,[plp_LeistungsNr]"
sqlstr &= " order by plose_POLSEKundennummer"
sqlstr &= " group by [plp_LeistungsNr]"
sqlstr &= " order by plp_LeistungsNr"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
For Each r In dt.Rows
Dim BLNr = r("plp_LeistungsNr")
Dim BProz = r("plose_BruttobetragTransaktion")
'Dim BProz = r("plose_BruttobetragTransaktion")
Dim Betrag As Double = r("") '""""""!!!!!!!!!!!!!!!!
Dim LeistungsNr As Integer = r("") '""""""!!!!!!!!!!!!!!!!
Dim NettoBetrag As Double = r("plose_NettobetragTransaktion")
Dim BruttoBetrag As Double = r("plose_BruttobetragTransaktion")
Dim LeistungsNr As Integer = r("plp_LeistungsNr")
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, 8, True)
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
allPlosePos(RG, OFFERTE, LeistungsNr, Betrag)
allPlosePos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
Next
RG.Steuersatz_Proz = cFakturierung.przRechnungstext(RG)
Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
RG.Steuersatz_Proz = dtSt.Rows(0)(0)
End If
cFakturierung.setGesamtBetraege(RG)
RG.Text = cFakturierung.przRechnungstext(RG)
Return SPEDBUCH.SAVE
' Call usrCntlFaktAbrechnung.przSVSRVS(RG) ' SVS/RVS errechnen
' Call przSKR() ' SKR errechnen
'Call usrCntlFaktAbrechnung.przVL(RG) ' Vorlageprovision errechnen
'Call usrCntlFaktAbrechnung.przKapitalbereitstellung(RG) 'Kapitalbereitstellung errechnen
' boolFehler = fktBGeb(RECHNUNG.[RK_ID], RECHNUNG.Steuersatz_Proz, RECHNUNG.[Sammelrechnung], RECHNUNG.[BelegartenNr]) ' Bearbeitungsgebühr errechnen
' Call usrCntlFaktAbrechnung.przKA(RG) ' Kreditaufwendungen errechnen
Call usrCntlFaktAbrechnung.przFixeTaxe(RG) ' Fixe Taxe errechnen
Call usrCntlFaktAbrechnung.przPP(RG) ' Porto/Papiere errechnen
Call usrCntlFaktAbrechnung.przBS415(RG) ' Bankspesen errechnen
Return RG.SAVE
Catch ex As System.Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -593,36 +658,41 @@
End Function
Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double)
Function allPlosePos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double)
Try
For Each o In OFFERTE.POSITIONEN
If o.LeistungsNr = LeistungsNr Then
Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
POS.LeistungsNr = o.LeistungsNr
POS.LeistungsBez = o.LeistungsBez
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Preis = Betrag
POS.Preis = BruttoBetrag
POS.Anzahl = 1
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
POS.BGebBgl = NettoBetrag
If POS.Steuerpflichtig Then
POS.Steuerpflichtig = Betrag
POS.SteuerpflichtigerBetrag = BruttoBetrag
Else
POS.SteuerpflichtigerBetrag = Betrag
POS.SteuerfreierBetrag = BruttoBetrag
End If
POS.BGebLeistungsNr = o.BGebLeistungsNr
POS.BGebProzent = o.BGebProzent
POS.BGebMinBetrag = o.BGebMinBetrag
'POS.BGebBgl = o.bgebbgl ????????????????
RG.POSITIONEN.Add(POS)
If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) Then
allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, (Betrag * POS.BGebProzent))
If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) AndAlso (If(POS.BGebBgl, 0) > 0) Then
allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, POS.BGebBgl, POS.BGebProzent)
End If
Return True
@@ -634,26 +704,35 @@
Return False
End Function
Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, Betrag As Double)
Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, BGebLeistungsNr As Integer, BGebBgl As Double, BGebProzent As Double)
Try
Dim Betrag As Double = Math.Round(BGebBgl * BGebProzent, 1)
For Each o In OFFERTE.POSITIONEN
If o.LeistungsNr = LeistungsNr Then
Dim POS As New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
POS.LeistungsNr = o.LeistungsNr
POS.LeistungsBez = o.LeistungsBez
If o.LeistungsNr = BGebLeistungsNr Then
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Preis = Betrag
POS.Anzahl = 1
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
'Falls schon vorhanden...
Dim POS = RG.POSITIONEN.Find(Function(x) x.BGebLeistungsNr = BGebLeistungsNr And x.BerechnungsartNr = 9)
If POS Is Nothing Then
POS = New VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen()
POS.SteuerpflichtigerBetrag = 0
POS.SteuerfreierBetrag = 0
Dim LEISTUNG As New VERAG_PROG_ALLGEMEIN.cLeistungen(o.LeistungsNr)
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
If POS.Steuerpflichtig Then
POS.Steuerpflichtig = Betrag
Else
POS.SteuerpflichtigerBetrag = Betrag
POS.LeistungsNr = o.LeistungsNr
POS.LeistungsBez = o.LeistungsBez
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Anzahl = 1
End If
POS.Preis += Betrag
If POS.Steuerpflichtig Then
POS.SteuerpflichtigerBetrag += Betrag
Else
POS.SteuerfreierBetrag += Betrag
End If
RG.POSITIONEN.Add(POS)
Return True
@@ -689,13 +768,38 @@
pruefData_PLOSE = False
r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
End If
Dim VERAGLeistungsNr = SQL.getValueTxtBySql("SELECT TOP (1) [plp_LeistungsNr] FROM [VERAG].[dbo].[tblPLOSE_Produktbeschreibung] where plp_ProductCode='" & r.Cells("plose_ProduktCode").Value & "' and plp_Firma='PU'", "FMZOLL")
Dim VERAGLeistungsNr = SQL.getValueTxtBySql("SELECT TOP (1) [plp_LeistungsNr] FROM [tblPLOSE_Produktbeschreibung] where plp_ProductCode='" & r.Cells("plose_ProduktCode").Value & "' and plp_Firma IN ('PSS','PU') ", "FMZOLL")
If VERAGLeistungsNr <> "" Then
r.Cells("VERAGLeistungsNr").Value = VERAGLeistungsNr
r.Cells("VERAGKdNr").Style.BackColor = Color.MintCream
r.Cells("VERAGLeistungsNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("VERAGKdNr").Style.BackColor = Color.PapayaWhip
r.Cells("VERAGLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
Dim OffertenNr = SQL.getValueTxtBySql("SELECT TOP 1 OffertenNr FROM [Offerten] where KundenNr='" & VERAGKdNr & "' AND OffertenNr = 80 ", "FMZOLL")
If OffertenNr <> "" Then
r.Cells("KundeOffertenNr").Value = OffertenNr
r.Cells("KundeOffertenNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("KundeOffertenNr").Style.BackColor = Color.PapayaWhip
End If
If VERAGLeistungsNr <> "" Then
Dim KundeLeistungsNr = SQL.getValueTxtBySql("SELECT TOP 1 [LeistungsNr] FROM [Offertenpositionen] where LeistungsNr='" & VERAGLeistungsNr & "' and KundenNr='" & VERAGKdNr & "' AND OffertenNr = 80", "FMZOLL")
If KundeLeistungsNr <> "" Then
r.Cells("KundeLeistungsNr").Value = VERAGLeistungsNr
r.Cells("KundeLeistungsNr").Style.BackColor = Color.MintCream
Else
pruefData_PLOSE = False
r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
Else
pruefData_PLOSE = False
r.Cells("KundeLeistungsNr").Style.BackColor = Color.PapayaWhip
End If
Next
@@ -704,4 +808,27 @@
pruefData_PLOSE = False
End Try
End Function
Private Sub MyDatagridview1_SelectionChanged(sender As Object, e As EventArgs) Handles MyDatagridview1.SelectionChanged
If MyDatagridview1.SelectedRows.Count > 0 Then
If MyDatagridview1.Columns("VERAGKdNr") IsNot Nothing Then
If MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value <> "" Then
btnKunde.Enabled = True
Else
btnKunde.Enabled = False
End If
End If
End If
End Sub
Private Sub btnKunde_Click(sender As Object, e As EventArgs) Handles btnKunde.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
If MyDatagridview1.Columns("VERAGKdNr") IsNot Nothing Then
If MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value <> "" Then
cProgramFunctions.openKundenblatt(MyDatagridview1.SelectedRows(0).Cells("VERAGKdNr").Value, Me.FindForm)
End If
End If
End If
End Sub
End Class