Report, Dynamic SQL

2021-11-23 16:26:11 +01:00
parent cdff23b646
commit 2a1a119ff2
19 changed files with 2192 additions and 803 deletions
--- a/MultiTool.Form/Reports/OrderReport.Designer.vb
+++ b/MultiTool.Form/Reports/OrderReport.Designer.vb
@@ -70,7 +70,6 @@ Partial Public Class OrderReport
        Me.tableCell35 = New DevExpress.XtraReports.UI.XRTableCell()
        Me.tableCell36 = New DevExpress.XtraReports.UI.XRTableCell()
        Me.XrTableCell7 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.tableCell37 = New DevExpress.XtraReports.UI.XRTableCell()
        Me.Detail1 = New DevExpress.XtraReports.UI.DetailBand()
        Me.XrLabel3 = New DevExpress.XtraReports.UI.XRLabel()
        Me.table4 = New DevExpress.XtraReports.UI.XRTable()
@@ -84,10 +83,13 @@ Partial Public Class OrderReport
        Me.tableCell45 = New DevExpress.XtraReports.UI.XRTableCell()
        Me.tableCell46 = New DevExpress.XtraReports.UI.XRTableCell()
        Me.XrTableCell8 = New DevExpress.XtraReports.UI.XRTableCell()
-        Me.tableCell47 = New DevExpress.XtraReports.UI.XRTableCell()
        Me.GroupFooter1 = New DevExpress.XtraReports.UI.GroupFooterBand()
        Me.label2 = New DevExpress.XtraReports.UI.XRLabel()
        Me.ObjectDataSource1 = New DevExpress.DataAccess.ObjectBinding.ObjectDataSource(Me.components)
+        Me.XrTableCell15 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell16 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell17 = New DevExpress.XtraReports.UI.XRTableCell()
+        Me.XrTableCell18 = New DevExpress.XtraReports.UI.XRTableCell()
        CType(Me.XrTable2, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.XrTable1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.table3, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -254,7 +256,7 @@ Partial Public Class OrderReport
        'XrLabel4
        '
        Me.XrLabel4.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Head].[Filename]")})
-        Me.XrLabel4.Font = New System.Drawing.Font("Arial", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.XrLabel4.Font = New System.Drawing.Font("Arial", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.XrLabel4.LocationFloat = New DevExpress.Utils.PointFloat(652.6498!, 10.00001!)
        Me.XrLabel4.Multiline = True
        Me.XrLabel4.Name = "XrLabel4"
@@ -447,6 +449,7 @@ Partial Public Class OrderReport
        Me.GroupHeader2.HeightF = 28.0!
        Me.GroupHeader2.Level = 1
        Me.GroupHeader2.Name = "GroupHeader2"
+        Me.GroupHeader2.RepeatEveryPage = True
        '
        'table3
        '
@@ -457,7 +460,7 @@ Partial Public Class OrderReport
        '
        'tableRow4
        '
-        Me.tableRow4.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell29, Me.tableCell30, Me.tableCell31, Me.XrTableCell13, Me.tableCell33, Me.tableCell34, Me.tableCell35, Me.tableCell36, Me.XrTableCell7, Me.tableCell37})
+        Me.tableRow4.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell29, Me.tableCell30, Me.tableCell31, Me.XrTableCell13, Me.tableCell33, Me.XrTableCell15, Me.tableCell34, Me.tableCell35, Me.XrTableCell17, Me.tableCell36, Me.XrTableCell7})
        Me.tableRow4.Name = "tableRow4"
        Me.tableRow4.Weight = 1.0R
        '
@@ -467,7 +470,9 @@ Partial Public Class OrderReport
        Me.tableCell29.Name = "tableCell29"
        Me.tableCell29.StyleName = "DetailCaption2"
        Me.tableCell29.StylePriority.UseBorders = False
+        Me.tableCell29.StylePriority.UseTextAlignment = False
        Me.tableCell29.Text = "Nr."
+        Me.tableCell29.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleLeft
        Me.tableCell29.Weight = 0.048043450056698064R
        '
        'tableCell30
@@ -492,15 +497,15 @@ Partial Public Class OrderReport
        Me.XrTableCell13.Name = "XrTableCell13"
        Me.XrTableCell13.StyleName = "DetailCaption2"
        Me.XrTableCell13.Text = "Bezeichnung"
-        Me.XrTableCell13.Weight = 0.33636051965423341R
+        Me.XrTableCell13.Weight = 0.43277591630319839R
        '
        'tableCell33
        '
        Me.tableCell33.Multiline = True
        Me.tableCell33.Name = "tableCell33"
        Me.tableCell33.StyleName = "DetailCaption2"
-        Me.tableCell33.Text = "Menge " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bestellt"
-        Me.tableCell33.Weight = 0.079624397816746934R
+        Me.tableCell33.Text = "Lager" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "stand"
+        Me.tableCell33.Weight = 0.085275647971440827R
        '
        'tableCell34
        '
@@ -508,36 +513,29 @@ Partial Public Class OrderReport
        Me.tableCell34.Name = "tableCell34"
        Me.tableCell34.StyleName = "DetailCaption2"
        Me.tableCell34.Text = "Menge" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "geliefert"
-        Me.tableCell34.Weight = 0.081859175152859093R
+        Me.tableCell34.Weight = 0.092676520384650948R
        '
        'tableCell35
        '
        Me.tableCell35.Name = "tableCell35"
        Me.tableCell35.StyleName = "DetailCaption2"
        Me.tableCell35.Text = "Colli"
-        Me.tableCell35.Weight = 0.0763367774354287R
+        Me.tableCell35.Weight = 0.089275021139650343R
        '
        'tableCell36
        '
        Me.tableCell36.Name = "tableCell36"
        Me.tableCell36.StyleName = "DetailCaption2"
        Me.tableCell36.Text = "EDI Preis"
-        Me.tableCell36.Weight = 0.12804829712156557R
+        Me.tableCell36.Weight = 0.1068769905572312R
        '
        'XrTableCell7
        '
        Me.XrTableCell7.Multiline = True
        Me.XrTableCell7.Name = "XrTableCell7"
        Me.XrTableCell7.StyleName = "DetailCaption2"
-        Me.XrTableCell7.Text = "DFÜ Preis"
-        Me.XrTableCell7.Weight = 0.12804829712156557R
-        '
-        'tableCell37
-        '
-        Me.tableCell37.Name = "tableCell37"
-        Me.tableCell37.StyleName = "DetailCaption2"
-        Me.tableCell37.Text = "Steuer"
-        Me.tableCell37.Weight = 0.068250408158832127R
+        Me.XrTableCell7.Text = "Winline Preis"
+        Me.XrTableCell7.Weight = 0.089264113872917938R
        '
        'Detail1
        '
@@ -566,7 +564,7 @@ Partial Public Class OrderReport
        '
        'tableRow5
        '
-        Me.tableRow5.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell39, Me.tableCell40, Me.tableCell41, Me.XrTableCell14, Me.tableCell43, Me.tableCell44, Me.tableCell45, Me.tableCell46, Me.XrTableCell8, Me.tableCell47})
+        Me.tableRow5.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {Me.tableCell39, Me.tableCell40, Me.tableCell41, Me.XrTableCell14, Me.tableCell43, Me.XrTableCell16, Me.tableCell44, Me.tableCell45, Me.XrTableCell18, Me.tableCell46, Me.XrTableCell8})
        Me.tableRow5.Name = "tableRow5"
        Me.tableRow5.Weight = 11.5R
        '
@@ -577,6 +575,8 @@ Partial Public Class OrderReport
        Me.tableCell39.Name = "tableCell39"
        Me.tableCell39.StyleName = "DetailData2"
        Me.tableCell39.StylePriority.UseBorders = False
+        Me.tableCell39.StylePriority.UseTextAlignment = False
+        Me.tableCell39.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight
        Me.tableCell39.Weight = 0.048043450128467058R
        '
        'tableCell40
@@ -600,28 +600,34 @@ Partial Public Class OrderReport
        Me.XrTableCell14.Name = "XrTableCell14"
        Me.XrTableCell14.StyleName = "DetailData2"
        Me.XrTableCell14.Text = "XrTableCell14"
-        Me.XrTableCell14.Weight = 0.33636054406554738R
+        Me.XrTableCell14.Weight = 0.43277581496133744R
        '
        'tableCell43
        '
-        Me.tableCell43.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text4]")})
+        Me.tableCell43.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text10]")})
        Me.tableCell43.Name = "tableCell43"
        Me.tableCell43.StyleName = "DetailData2"
-        Me.tableCell43.Weight = 0.079624397542049044R
+        Me.tableCell43.StylePriority.UseTextAlignment = False
+        Me.tableCell43.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight
+        Me.tableCell43.Weight = 0.085275553474624122R
        '
        'tableCell44
        '
        Me.tableCell44.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text5]")})
        Me.tableCell44.Name = "tableCell44"
        Me.tableCell44.StyleName = "DetailData2"
-        Me.tableCell44.Weight = 0.081859113670350772R
+        Me.tableCell44.StylePriority.UseTextAlignment = False
+        Me.tableCell44.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight
+        Me.tableCell44.Weight = 0.092676747474094323R
        '
        'tableCell45
        '
        Me.tableCell45.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text6]")})
        Me.tableCell45.Name = "tableCell45"
        Me.tableCell45.StyleName = "DetailData2"
-        Me.tableCell45.Weight = 0.076336839401331791R
+        Me.tableCell45.StylePriority.UseTextAlignment = False
+        Me.tableCell45.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight
+        Me.tableCell45.Weight = 0.08927502299934123R
        '
        'tableCell46
        '
@@ -629,24 +635,20 @@ Partial Public Class OrderReport
        Me.tableCell46.Multiline = True
        Me.tableCell46.Name = "tableCell46"
        Me.tableCell46.StyleName = "DetailData2"
-        Me.tableCell46.Weight = 0.12804829751327446R
+        Me.tableCell46.StylePriority.UseTextAlignment = False
+        Me.tableCell46.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight
+        Me.tableCell46.Weight = 0.10687685857819911R
        '
        'XrTableCell8
        '
-        Me.XrTableCell8.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text8]")})
+        Me.XrTableCell8.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text8]"), New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "ForeColor", "Iif([Text7]==[Text8], 'Black','LightCoral' )")})
        Me.XrTableCell8.Multiline = True
        Me.XrTableCell8.Name = "XrTableCell8"
        Me.XrTableCell8.StyleName = "DetailData2"
+        Me.XrTableCell8.StylePriority.UseTextAlignment = False
        Me.XrTableCell8.Text = "XrTableCell8"
-        Me.XrTableCell8.Weight = 0.12804829751327446R
-        '
-        'tableCell47
-        '
-        Me.tableCell47.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text9]")})
-        Me.tableCell47.Name = "tableCell47"
-        Me.tableCell47.StyleName = "DetailData2"
-        Me.tableCell47.TextFormatString = "{0:0%}"
-        Me.tableCell47.Weight = 0.068250408205432642R
+        Me.XrTableCell8.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight
+        Me.XrTableCell8.Weight = 0.089263976911086243R
        '
        'GroupFooter1
        '
@@ -669,6 +671,44 @@ Partial Public Class OrderReport
        Me.ObjectDataSource1.DataSource = GetType(MultiTool.[Shared].Report.ReportSource)
        Me.ObjectDataSource1.Name = "ObjectDataSource1"
        '
+        'XrTableCell15
+        '
+        Me.XrTableCell15.Multiline = True
+        Me.XrTableCell15.Name = "XrTableCell15"
+        Me.XrTableCell15.StyleName = "DetailCaption2"
+        Me.XrTableCell15.Text = "Menge " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "bestellt"
+        Me.XrTableCell15.Weight = 0.082007817175517708R
+        '
+        'XrTableCell16
+        '
+        Me.XrTableCell16.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text4]")})
+        Me.XrTableCell16.Multiline = True
+        Me.XrTableCell16.Name = "XrTableCell16"
+        Me.XrTableCell16.StyleName = "DetailData2"
+        Me.XrTableCell16.StylePriority.UseTextAlignment = False
+        Me.XrTableCell16.Text = "XrTableCell16"
+        Me.XrTableCell16.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight
+        Me.XrTableCell16.Weight = 0.082007801747328815R
+        '
+        'XrTableCell17
+        '
+        Me.XrTableCell17.Multiline = True
+        Me.XrTableCell17.Name = "XrTableCell17"
+        Me.XrTableCell17.StyleName = "DetailCaption2"
+        Me.XrTableCell17.Text = "Einh/Pal"
+        Me.XrTableCell17.Weight = 0.089275021139650343R
+        '
+        'XrTableCell18
+        '
+        Me.XrTableCell18.ExpressionBindings.AddRange(New DevExpress.XtraReports.UI.ExpressionBinding() {New DevExpress.XtraReports.UI.ExpressionBinding("BeforePrint", "Text", "[Text9]")})
+        Me.XrTableCell18.Multiline = True
+        Me.XrTableCell18.Name = "XrTableCell18"
+        Me.XrTableCell18.StyleName = "DetailData2"
+        Me.XrTableCell18.StylePriority.UseTextAlignment = False
+        Me.XrTableCell18.Text = "XrTableCell18"
+        Me.XrTableCell18.TextAlignment = DevExpress.XtraPrinting.TextAlignment.MiddleRight
+        Me.XrTableCell18.Weight = 0.08927502299934123R
+        '
        'OrderReport
        '
        Me.Bands.AddRange(New DevExpress.XtraReports.UI.Band() {Me.TopMargin, Me.BottomMargin, Me.ReportHeader, Me.Detail, Me.DetailReport})
@@ -718,7 +758,6 @@ Partial Public Class OrderReport
    Friend WithEvents tableCell34 As DevExpress.XtraReports.UI.XRTableCell
    Friend WithEvents tableCell35 As DevExpress.XtraReports.UI.XRTableCell
    Friend WithEvents tableCell36 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents tableCell37 As DevExpress.XtraReports.UI.XRTableCell
    Friend WithEvents Detail1 As DevExpress.XtraReports.UI.DetailBand
    Friend WithEvents table4 As DevExpress.XtraReports.UI.XRTable
    Friend WithEvents tableRow5 As DevExpress.XtraReports.UI.XRTableRow
@@ -729,7 +768,6 @@ Partial Public Class OrderReport
    Friend WithEvents tableCell44 As DevExpress.XtraReports.UI.XRTableCell
    Friend WithEvents tableCell45 As DevExpress.XtraReports.UI.XRTableCell
    Friend WithEvents tableCell46 As DevExpress.XtraReports.UI.XRTableCell
-    Friend WithEvents tableCell47 As DevExpress.XtraReports.UI.XRTableCell
    Friend WithEvents GroupFooter1 As DevExpress.XtraReports.UI.GroupFooterBand
    Friend WithEvents label2 As DevExpress.XtraReports.UI.XRLabel
    Friend WithEvents XrLabel1 As DevExpress.XtraReports.UI.XRLabel
@@ -758,4 +796,8 @@ Partial Public Class OrderReport
    Friend WithEvents XrTableCell11 As DevExpress.XtraReports.UI.XRTableCell
    Friend WithEvents XrTableCell12 As DevExpress.XtraReports.UI.XRTableCell
    Friend WithEvents XrLabel4 As DevExpress.XtraReports.UI.XRLabel
+    Friend WithEvents XrTableCell15 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell16 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell17 As DevExpress.XtraReports.UI.XRTableCell
+    Friend WithEvents XrTableCell18 As DevExpress.XtraReports.UI.XRTableCell
 End Class