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-09-23 07:24:25 +02:00
parent 89d8e0a3a8
commit ce31c2c398
84 changed files with 4953 additions and 554 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.Designer.vb generated
View File

@@ -53,6 +53,7 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzLKWs = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport2 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -102,12 +103,12 @@ Partial Public Class rptKontrolleLKW_NCTSTR
'Line
'
Me.Line.Height = 0.00008200109!
Me.Line.Left = 0.0!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0.1901575!
Me.Line.Width = 7.677083!
Me.Line.X1 = 0.0!
Me.Line.X1 = 0!
Me.Line.X2 = 7.677083!
Me.Line.Y1 = 0.1901575!
Me.Line.Y2 = 0.1902395!
@@ -186,14 +187,14 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Si-Sum"
Me.Label4.Top = 0.0!
Me.Label4.Top = 0!
Me.Label4.Width = 0.7972444!
'
'Label9
'
Me.Label9.Height = 0.1895669!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.0!
Me.Label9.Left = 0!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "Nr"
@@ -221,7 +222,7 @@ Partial Public Class rptKontrolleLKW_NCTSTR
'
Me.lblNr.Height = 0.1374016!
Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 0.0!
Me.lblNr.Left = 0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 8pt; font-weight: normal"
Me.lblNr.Text = "500."
@@ -302,12 +303,12 @@ Partial Public Class rptKontrolleLKW_NCTSTR
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0.0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02519685!
Me.Line2.Width = 7.677083!
Me.Line2.X1 = 0.0!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677083!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887!
@@ -320,14 +321,14 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.0!
Me.lblText1.Left = 0!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "NCTS LKW-Liste"
@@ -375,15 +376,15 @@ Partial Public Class rptKontrolleLKW_NCTSTR
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label1, Me.Label3, Me.Label5, Me.lblSummeSiBetr, Me.lblAnzLKWs, Me.lblAnzT})
Me.ReportFooter1.Height = 0.6272475!
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label1, Me.Label3, Me.Label5, Me.lblSummeSiBetr, Me.lblAnzLKWs, Me.lblAnzT, Me.SubReport2})
Me.ReportFooter1.Height = 0.95!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0!
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe LKWs:"
@@ -446,7 +447,18 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Me.lblAnzT.Top = 0.4795276!
Me.lblAnzT.Width = 0.5122049!
'
'rptKontrolleLKW_Dakosy
'SubReport2
'
Me.SubReport2.CloseBorder = False
Me.SubReport2.Height = 0.1374016!
Me.SubReport2.Left = 0!
Me.SubReport2.Name = "SubReport2"
Me.SubReport2.Report = Nothing
Me.SubReport2.ReportName = "SubReport1"
Me.SubReport2.Top = 0.8125985!
Me.SubReport2.Width = 6.100394!
'
'rptKontrolleLKW_NCTSTR
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
@@ -529,4 +541,5 @@ Partial Public Class rptKontrolleLKW_NCTSTR
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
End Class

49
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb
View File

@@ -10,7 +10,7 @@ Public Class rptKontrolleLKW_NCTSTR
Dim operatorID = "1"
Dim kundenSQL As New kundenSQL
Dim SUB_DATA As DataTable = Nothing
Dim LIST_NCTSABR As VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST = Nothing
'Public brg As String = "05DE0000000009345," 'default brg
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
@@ -56,6 +56,10 @@ Public Class rptKontrolleLKW_NCTSTR
firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') "
End If
If True Then '"OREGON"
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("OREGON")
End If
' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
Dim sqlStr As String = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
@@ -83,6 +87,7 @@ Public Class rptKontrolleLKW_NCTSTR
SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "FMZOLL", 1000)
lblText1.Text = lblText1.Text & " - " & FIRMA
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
Label7.Text = "" '"B<>rgschaft: " & brg
@@ -131,6 +136,23 @@ Public Class rptKontrolleLKW_NCTSTR
End Sub
End If
If LIST_NCTSABR IsNot Nothing Then
For Each l In LIST_NCTSABR.LIST
If CDbl(Fields.Item("GarantieWert").Value) < l.abrg_GarantiewertBis Then
Select Case l.abrg_artAbrechnung
Case "LKW" : l._ANZAHL += 1 : Exit For
Case "%"
l._ANZAHL += 1
Dim prozent As Double = 0.001
If l.abrg_prozent IsNot Nothing Then prozent = CDbl(l.abrg_prozent)
l._BETRAG += (CDbl(Fields.Item("GarantieWert").Value)) * prozent : Exit For
End Select
End If
Next
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Drawing.Color.White
@@ -150,5 +172,30 @@ Public Class rptKontrolleLKW_NCTSTR
lblAnzLKWs.Text = anzLkw
lblAnzT.Text = anzT
If LIST_NCTSABR IsNot Nothing Then
Dim dt As New DataTable
dt.Columns.Add("GARANTIEBIS")
dt.Columns.Add("ANZAHL")
dt.Columns.Add("EINZALBETRAG")
dt.Columns.Add("GESAMTBETRAG")
dt.Columns.Add("BETRAG")
dt.Columns.Add("ART")
For Each l In LIST_NCTSABR.LIST
If l._ANZAHL > 0 Then dt.Rows.Add(l.abrg_GarantiewertBis, l._ANZAHL, l.abrg_bertrag, l.abrg_bertrag * l._ANZAHL, l._BETRAG, l.abrg_artAbrechnung)
Next
Dim subrpt As New subrptKontrolleLKW_NCTSTR_Abrechnung
'subrpt.Kennzeichen = Fields.Item("Kennzeichen").Value
'subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
subrpt.DataSource = dt
Me.SubReport2.Report = subrpt
End If
End Sub
End Class

290
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.Designer.vb generated Normal file
View File

@@ -0,0 +1,290 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents PageHeader As GrapeCity.ActiveReports.SectionReportModel.PageHeader
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptKontrolleLKW_NCTSTR_Abrechnung))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblGarantieBis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEinzelpreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGesamtpreis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblGesamtsumme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGarantieBis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEinzelpreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesamtpreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesamtsumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Label1
'
Me.Label1.Height = 0.2208662!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.Label1.Text = "Garantiewert"
Me.Label1.Top = 0.5602363!
Me.Label1.Width = 1.48937!
'
'Label2
'
Me.Label2.Height = 0.2208662!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.48937!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.Label2.Text = "Anzahl"
Me.Label2.Top = 0.5602363!
Me.Label2.Width = 1.041339!
'
'Label3
'
Me.Label3.Height = 0.2208662!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 2.530709!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label3.Text = "Einzelpreis"
Me.Label3.Top = 0.5602363!
Me.Label3.Width = 1.041339!
'
'Label4
'
Me.Label4.Height = 0.2208662!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 3.572048!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label4.Text = "Gesamtpreis"
Me.Label4.Top = 0.5602363!
Me.Label4.Width = 1.041339!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblGarantieBis, Me.lblAnzahl, Me.lblEinzelpreis, Me.lblGesamtpreis})
Me.Detail.Height = 0.168504!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'lblGarantieBis
'
Me.lblGarantieBis.Height = 0.168504!
Me.lblGarantieBis.HyperLink = Nothing
Me.lblGarantieBis.Left = 0!
Me.lblGarantieBis.Name = "lblGarantieBis"
Me.lblGarantieBis.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.lblGarantieBis.Text = "Garantiewert bis"
Me.lblGarantieBis.Top = 0!
Me.lblGarantieBis.Width = 1.48937!
'
'lblAnzahl
'
Me.lblAnzahl.Height = 0.168504!
Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 1.48937!
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.lblAnzahl.Text = "Anzahl"
Me.lblAnzahl.Top = 0!
Me.lblAnzahl.Width = 1.041339!
'
'lblEinzelpreis
'
Me.lblEinzelpreis.Height = 0.168504!
Me.lblEinzelpreis.HyperLink = Nothing
Me.lblEinzelpreis.Left = 2.530709!
Me.lblEinzelpreis.Name = "lblEinzelpreis"
Me.lblEinzelpreis.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblEinzelpreis.Text = "Einzelpreis"
Me.lblEinzelpreis.Top = 0!
Me.lblEinzelpreis.Width = 1.041339!
'
'lblGesamtpreis
'
Me.lblGesamtpreis.Height = 0.168504!
Me.lblGesamtpreis.HyperLink = Nothing
Me.lblGesamtpreis.Left = 3.572048!
Me.lblGesamtpreis.Name = "lblGesamtpreis"
Me.lblGesamtpreis.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblGesamtpreis.Text = "Gesamtpreis"
Me.lblGesamtpreis.Top = 0!
Me.lblGesamtpreis.Width = 1.041339!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Line})
Me.ReportHeader1.Height = 0.7811025!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Label5
'
Me.Label5.Height = 0.2208662!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 12pt; font-weight: bold; text-decoration: underline; ddo-char-set: 1"
Me.Label5.Text = "Abrechnungstabelle"
Me.Label5.Top = 0.264567!
Me.Label5.Width = 3.291339!
'
'Line
'
Me.Line.Height = 0!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0.7653544!
Me.Line.Width = 4.613386!
Me.Line.X1 = 0!
Me.Line.X2 = 4.613386!
Me.Line.Y1 = 0.7653544!
Me.Line.Y2 = 0.7653544!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblGesamtsumme, Me.Label11, Me.Line1, Me.Line2})
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'lblGesamtsumme
'
Me.lblGesamtsumme.Height = 0.168504!
Me.lblGesamtsumme.HyperLink = Nothing
Me.lblGesamtsumme.Left = 3.572047!
Me.lblGesamtsumme.Name = "lblGesamtsumme"
Me.lblGesamtsumme.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblGesamtsumme.Text = "Gesamtpreis"
Me.lblGesamtsumme.Top = 0.05196851!
Me.lblGesamtsumme.Width = 1.041339!
'
'Label11
'
Me.Label11.Height = 0.168504!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 2.529528!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.Label11.Text = "Gesamtsumme:"
Me.Label11.Top = 0.05196851!
Me.Label11.Width = 1.041339!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 3.572047!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.25!
Me.Line1.Width = 1.04134!
Me.Line1.X1 = 3.572047!
Me.Line1.X2 = 4.613387!
Me.Line1.Y1 = 0.25!
Me.Line1.Y2 = 0.25!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 3.572047!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.2204725!
Me.Line2.Width = 1.041339!
Me.Line2.X1 = 3.572047!
Me.Line2.X2 = 4.613386!
Me.Line2.Y1 = 0.2204725!
Me.Line2.Y2 = 0.2204725!
'
'subrptKontrolleLKW_NCTSTR_Abrechnung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.100394!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" &
"l; font-size: 10pt; color: Black; ddo-char-set: 204", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"))
Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"))
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGarantieBis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEinzelpreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesamtpreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesamtsumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblGarantieBis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEinzelpreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesamtpreis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesamtsumme As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

126
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
<metadata name="$this.ScriptEditorPositionForRedo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>0, 0</value>
</metadata>
</root>

63
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb Normal file
View File

@@ -0,0 +1,63 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
Public AnzT = 0
Public GesSumme As Double = 0
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
End Sub
Private Sub rptAuswertung_NoData(sender As Object, e As System.EventArgs) Handles Me.NoData
' MsgBox("Es wurden keine Daten zum Drucken gefunden.", vbInformation, "Druck Aviso-Auswertung")
Me.Cancel() 'ev. abbrechen, falls noch aufgebaut wird
End Sub
'''''''' ADD AT RUNTIME:
'Dim d As New GrapeCity.ActiveReports.SectionReportModel.TextBox
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
'Format + R<>nder setzen
Me.PageSettings.Orientation = Section.PageOrientation.Portrait
Me.PageSettings.Margins.Left = 0.3
Me.PageSettings.Margins.Right = 0.3
Me.PageSettings.Margins.Top = 0.5
Me.PageSettings.Margins.Bottom = 0.4
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
lblGarantieBis.Text = "bis <20> " & CDbl(Fields.Item("GARANTIEBIS").Value).ToString("N2", CultureInfo.InvariantCulture)
lblAnzahl.Text = CInt(Fields.Item("ANZAHL").Value)
Select Case Fields.Item("ART").Value
Case "LKW"
lblEinzelpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("EINZALBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
Case "%"
lblEinzelpreis.Text = ""
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
End Select
GesSumme += "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value)
AnzT += 1
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
' Detail.BackColor = Drawing.Color.White
Else
' Detail.BackColor = Drawing.Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblGesamtsumme.Text = "<EFBFBD> " & GesSumme.ToString("N2", CultureInfo.InvariantCulture)
End Sub
End Class