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

acrtive reports 18

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-06-23 09:29:29 +02:00
parent dea90d7fb5
commit 4502470ef7
480 changed files with 155462 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

309
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/rptSDLBrief.Designer.vb generated Normal file
View File

@@ -0,0 +1,309 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSDLBrief
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSDLBrief))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKunde = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSDLLeistung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblOrtDatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKunde, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSDLLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOrtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label7, Me.Label8, Me.lblKunde, Me.lblSDLLeistung, Me.lblOrtDatum, Me.ReportInfo1})
Me.PageHeader.Height = 0.9583333!
Me.PageHeader.Name = "PageHeader"
'
'Label7
'
Me.Label7.Height = 0.1791339!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 0.6299213!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label7.Text = "Kunde:"
Me.Label7.Top = 0.353937!
Me.Label7.Width = 1.177165!
'
'Label8
'
Me.Label8.Height = 0.1791339!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.6299213!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "SDL-Leistung:"
Me.Label8.Top = 0.5330709!
Me.Label8.Width = 1.177165!
'
'lblKunde
'
Me.lblKunde.Height = 0.1791339!
Me.lblKunde.HyperLink = Nothing
Me.lblKunde.Left = 1.807087!
Me.lblKunde.Name = "lblKunde"
Me.lblKunde.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKunde.Text = "VERAG SPEDITON AG"
Me.lblKunde.Top = 0.353937!
Me.lblKunde.Width = 3.822835!
'
'lblSDLLeistung
'
Me.lblSDLLeistung.Height = 0.1791339!
Me.lblSDLLeistung.HyperLink = Nothing
Me.lblSDLLeistung.Left = 1.807087!
Me.lblSDLLeistung.Name = "lblSDLLeistung"
Me.lblSDLLeistung.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblSDLLeistung.Text = ""
Me.lblSDLLeistung.Top = 0.5330709!
Me.lblSDLLeistung.Width = 3.822835!
'
'lblOrtDatum
'
Me.lblOrtDatum.Height = 0.1480315!
Me.lblOrtDatum.HyperLink = Nothing
Me.lblOrtDatum.Left = 0.6299213!
Me.lblOrtDatum.Name = "lblOrtDatum"
Me.lblOrtDatum.Style = "font-size: 8pt; text-align: left"
Me.lblOrtDatum.Text = "Suben , 01.01.2015"
Me.lblOrtDatum.Top = 0.01968503!
Me.lblOrtDatum.Width = 2.198032!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.1480314!
Me.ReportInfo1.Left = 3.569292!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "color: Black; font-size: 8pt; text-align: right"
Me.ReportInfo1.SummaryGroup = ""
Me.ReportInfo1.Top = 0.01968384!
Me.ReportInfo1.Width = 3.478!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.SubReport})
Me.Detail.Height = 0.3228347!
Me.Detail.Name = "Detail"
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.3228346!
Me.SubReport.Left = 0.6299213!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0!
Me.SubReport.Width = 6.496063!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21})
Me.PageFooter.Height = 0.6769193!
Me.PageFooter.Name = "PageFooter"
'
'Line1
'
Me.Line1.Height = 0.00008109212!
Me.Line1.Left = 0.6299213!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1562992!
Me.Line1.Width = 6.417322!
Me.Line1.X1 = 0.6299213!
Me.Line1.X2 = 7.047243!
Me.Line1.Y1 = 0.1562992!
Me.Line1.Y2 = 0.1563803!
'
'Label21
'
Me.Label21.Height = 0.2728347!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.6299213!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 7.5pt; text-align: center"
Me.Label21.Text = resources.GetString("Label21.Text")
Me.Label21.Top = 0.2062992!
Me.Label21.Width = 6.417323!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lbl, Me.Label1, Me.lblFirma, Me.Line3, Me.Line2})
Me.ReportHeader1.Height = 3.407891!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.2047244!
Me.picVERAG.Width = 2.552362!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.333072!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" &
"" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
'lblFirma
'
Me.lblFirma.Height = 1.333071!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 0.6299213!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.67244!
Me.lblFirma.Width = 3.543307!
'
'Line3
'
Me.Line3.Height = 0.0000808835!
Me.Line3.Left = 0.6299213!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8850393!
Me.Line3.Width = 6.417322!
Me.Line3.X1 = 0.6299213!
Me.Line3.X2 = 7.047243!
Me.Line3.Y1 = 0.8850393!
Me.Line3.Y2 = 0.8851202!
'
'Line2
'
Me.Line2.Height = 0.0000808239!
Me.Line2.Left = 0.6299213!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.407874!
Me.Line2.Width = 6.417322!
Me.Line2.X1 = 0.6299213!
Me.Line2.X2 = 7.047243!
Me.Line2.Y1 = 3.407874!
Me.Line2.Y2 = 3.407955!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptSDLBrief
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKunde, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSDLLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOrtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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 picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblOrtDatum As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKunde As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSDLLeistung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

66
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/rptSDLBrief.vb Normal file
View File

@@ -0,0 +1,66 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBrief
Public sdlNr As Integer = -1
Public KdNr As Integer = -1
Public KUNDE As cKundenFMZOLL
Public archiviert = False
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If KdNr <= 0 Then Exit Sub
If sdlNr <= 0 Then Exit Sub
Dim kundenSQL As New kundenSQL
'Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
KUNDE = kundenSQL.getKundeFMZOLLByKdNr(KdNr)
lblKunde.Text = KUNDE.KundenNr & " " & KUNDE.Ordnungsbegriff
lblFirma.Text = KUNDE.Name_1 & vbNewLine &
KUNDE.Name_2 & vbNewLine &
KUNDE.Stra<EFBFBD>e & vbNewLine & vbNewLine &
KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
lblOrtDatum.Text = "Suben, " & Now.ToShortDateString
lblSDLLeistung.Text = kundenSQL.getValueTxtBySql("SELECT cast ([SDLNr] as varchar(3)) + ' ' + [SDLBez] FROM [Speditionsdienstleistungen] where SDLNr=" & sdlNr, "SDL")
End Sub
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
Dim sqlStr As String = " SELECT SDL.[KundenNr],SDL.[KfzKennzeichen],SDL.[SDLNr],SDL.[History],SDL.[RefKundenNr],SDL.[MSE-Kd-Nr],SDL.[TELEPASS-Kd-Nr],SDL.[CLIENT-Nr],SDL.[BestellNr],SDL.[Bestelldatum],SDL.[Lieferdatum],SDL.[Ausstellungsdatum],SDL.[Umstellungsdatum],SDL.[KartenNr],SDL.[PAN-Nr],SDL.[VIACARD],SDL.[MOTORWAY-CARD-Nr],SDL.[CARD-Nr],SDL.[KartenSchl<68>sselNr],SDL.[FREJUS-CARD-Nr],SDL.[ECO],SDL.[G<>ltigBis],SDL.[OBUID],SDL.[SERIE-Nr],SDL.[TELEPASS-Nr],SDL.[Vermerk],SDL.[Partner],SDL.[BenutzerNr],SDL.[PIN],SDL.[FlottenPIN],SDL.[MasterPIN],SDL.[VertragsNr],SDL.[Vertragsabschlussdatum],SDL.[Kategorie],SDL.[Schadstoffklasse],SDL.[Status],SDL.[Ersatzkarte],SDL.[Gesperrt],SDL.[Defekt],SDL.[Verloren],SDL.[Gestohlen],SDL.[Erfassungsdatum],SDL.[<5B>nderungsdatum],SDL.[Sachbearbeiter] "
sqlStr &= " FROM SDL INNER JOIN LKW ON (LKW.KfzKennzeichen = sdl.KfzKennzeichen AND lkw.KundenNr=sdl.KundenNr) "
sqlStr &= " WHERE sdl.KundenNr= '" & KdNr & "' "
If archiviert Then
sqlStr &= " AND isnull([archiviert] ,0)=1 "
Else
sqlStr &= " AND isnull([archiviert] ,1)=0 "
' sqlStr &= " AND isnull(lkw.KZAenderung ,0)=0 AND isnull(lkw.Verkauft ,0)=0 AND isnull(lkw.Abgemeldet ,0)=0 AND isnull([Gesperrt],0)=0 AND isnull([Defekt] ,0)=0 AND isnull([Verloren] ,0)=0 AND isnull([Gestohlen] ,0)=0 "
sqlStr &= "/* AND isnull(lkw.KZAenderung ,0)=0 AND isnull(lkw.Verkauft ,0)=0 AND isnull(lkw.Abgemeldet ,0)=0 */ AND isnull([Gesperrt],0)=0 AND isnull([Defekt] ,0)=0 AND isnull([Verloren] ,0)=0 AND isnull([Gestohlen] ,0)=0 "
End If
Dim order As String = " ORDER BY SDLNr, Bestelldatum, BestellNr,Ausstellungsdatum,KartenNr,OBUID"
Select Case sdlNr
Case 200 : SubReport.Report = New subrptBriefSDL_AT(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 203 : SubReport.Report = New subrptBriefSDL_CZ(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 201 : SubReport.Report = New subrptBriefSDL_DE(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 207 : SubReport.Report = New subrptBriefSDL_FREJUS(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 204 : SubReport.Report = New subrptBriefSDL_FR(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 100 : SubReport.Report = New subrptBriefSDL_IDS(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 202 : SubReport.Report = New subrptBriefSDL_IT(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 208 : SubReport.Report = New subrptBriefSDL_MSE(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 211 : SubReport.Report = New subrptBriefSDL_MULTIBOX(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 209 : SubReport.Report = New subrptBriefSDL_PL(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 210 : SubReport.Report = New subrptBriefSDL_SI(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 212 : SubReport.Report = New subrptBriefSDL_UTA(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 101 : SubReport.Report = New subrptBriefSDL_WOELFL(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 213 : SubReport.Report = New subrptBriefSDL_HUGO(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 214 : SubReport.Report = New subrptBriefSDL_PLOSE(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 215 : SubReport.Report = New subrptBriefSDL_PLOSE_IT(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 216 : SubReport.Report = New subrptBriefSDL_PLOSE_CZ(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 217 : SubReport.Report = New subrptBriefSDL_PLOSE_MEDPASS(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 218 : SubReport.Report = New subrptBriefSDL_PLOSE_truckmaster(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case 501, 502 : SubReport.Report = New subrptBriefSDL_VERAGCARD(sqlStr & " AND SDLNr=" & sdlNr & " " & order)
Case Else : MsgBox("F<EFBFBD>r diese Leistung kann kein Bericht erstellt werden!")
End Select
End Sub
End Class

250
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_AT.Designer.vb generated Normal file
View File

@@ -0,0 +1,250 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_AT
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_AT))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblSchadstoffklasse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNation = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblStatus = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblSchadstoffklasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNation, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSchadstoffklasse, Me.lblNr, Me.lblLKWKz, Me.lblNation, Me.lblOBUId, Me.lblStatus})
Me.Detail.Height = 0.1783464!
Me.Detail.Name = "Detail"
'
'lblSchadstoffklasse
'
Me.lblSchadstoffklasse.Height = 0.1586614!
Me.lblSchadstoffklasse.Left = 4.709056!
Me.lblSchadstoffklasse.Name = "lblSchadstoffklasse"
Me.lblSchadstoffklasse.Style = "font-size: 10pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.lblSchadstoffklasse.Text = "Schadstoffklasse"
Me.lblSchadstoffklasse.Top = 0.01968496!
Me.lblSchadstoffklasse.Width = 1.177559!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543308!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.377953!
'
'lblNation
'
Me.lblNation.Height = 0.1586614!
Me.lblNation.Left = 1.732284!
Me.lblNation.Name = "lblNation"
Me.lblNation.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblNation.Text = "Nation"
Me.lblNation.Top = 0.01968497!
Me.lblNation.Width = 0.5417321!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 2.274014!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968504!
Me.lblOBUId.Width = 1.779135!
'
'lblStatus
'
Me.lblStatus.Height = 0.1586614!
Me.lblStatus.Left = 4.053148!
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Style = "font-size: 10pt; text-align: center; ddo-char-set: 1"
Me.lblStatus.Text = "Status"
Me.lblStatus.Top = 0.01968496!
Me.lblStatus.Width = 0.6559057!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8, Me.TextBox11, Me.TextBox12})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox12
'
Me.TextBox12.Height = 0.1586614!
Me.TextBox12.Left = 4.053149!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "font-size: 10pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.TextBox12.Text = "Status"
Me.TextBox12.Top = 0.0!
Me.TextBox12.Width = 0.6559057!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 2.274017!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.779135!
'
'TextBox8
'
Me.TextBox8.Height = 0.1586614!
Me.TextBox8.Left = 1.732284!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox8.Text = "Nation"
Me.TextBox8.Top = 0.0!
Me.TextBox8.Width = 0.5417321!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543309!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 4.709055!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.TextBox5.Text = "Schadstoffklasse"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.177559!
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_AT
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblSchadstoffklasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNation, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblSchadstoffklasse As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNation As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblStatus As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
End Class

48
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_AT.vb Normal file
View File

@@ -0,0 +1,48 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_AT
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
' MsgBox(sqlStr)
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
'lblBestellNr.Text = cSqlDb.checkNullStr(Fields.Item("BestellNr").Value)
'lblUmstelldat.Text = cSqlDb.checkNullDate(Fields.Item("Umstellungsdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblStatus.Text = cSqlDb.checkNullStr(Fields.Item("Status").Value)
lblSchadstoffklasse.Text = cSqlDb.checkNullStr(Fields.Item("Schadstoffklasse").Value)
lblNation.Text = cSqlDb.checkNullStr((New kundenSQL).getValueTxtBySql("SELECT [Nationalit<69>t] FROM [SDL].[dbo].[LKW] WHERE [KundenNr]='" & cSqlDb.checkNullStr(Fields.Item("KundenNr").Value) & "' AND [KfzKennzeichen]='" & cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value) & "'", "SDL"))
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_CZ.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_cz
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_cz))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
Me.Detail.Height = 0.1783464!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.575984!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 3.308267!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968512!
Me.lblOBUId.Width = 1.940551!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.575984!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 3.308268!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.940551!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_cz
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

45
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_CZ.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_cz
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

166
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_DE.Designer.vb generated Normal file
View File

@@ -0,0 +1,166 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_MSE
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_MSE))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz})
Me.Detail.Height = 0.178289!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 2.544882!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 2.544882!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_MSE
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

44
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_DE.vb Normal file
View File

@@ -0,0 +1,44 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_MSE
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_FR.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_FR
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_FR))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblPanNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSerie = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblPanNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSerie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblPanNr, Me.lblNr, Me.lblLKWKz, Me.lblSerie})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblPanNr
'
Me.lblPanNr.Height = 0.1586614!
Me.lblPanNr.Left = 1.732284!
Me.lblPanNr.Name = "lblPanNr"
Me.lblPanNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblPanNr.Text = "PAN-Nr"
Me.lblPanNr.Top = 0.01968504!
Me.lblPanNr.Width = 1.377953!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.377953!
'
'lblSerie
'
Me.lblSerie.Height = 0.1586614!
Me.lblSerie.Left = 3.110237!
Me.lblSerie.Name = "lblSerie"
Me.lblSerie.Style = "font-size: 10pt; text-align: left; ddo-char-set: 1"
Me.lblSerie.Text = "SERIE-Nr"
Me.lblSerie.Top = 0.01968504!
Me.lblSerie.Width = 1.448426!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox3, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "PAN-Nr"
Me.TextBox5.Top = 0.00000008195639!
Me.TextBox5.Width = 1.377953!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox3
'
Me.TextBox3.Height = 0.1586614!
Me.TextBox3.Left = 3.110238!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox3.Text = "SERIE-Nr"
Me.TextBox3.Top = 0.0!
Me.TextBox3.Width = 1.448426!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_FR
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblPanNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSerie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblPanNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblSerie As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

44
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_FR.vb Normal file
View File

@@ -0,0 +1,44 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_FR
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
'lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblPanNr.Text = cSqlDb.checkNullStr(Fields.Item("PAN-Nr").Value)
lblSerie.Text = cSqlDb.checkNullStr(Fields.Item("SERIE-Nr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

222
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_FREJUS.Designer.vb generated Normal file
View File

@@ -0,0 +1,222 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_FREJUS
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_FREJUS))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblFrejusKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblGueltigBis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblECO = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblFrejusKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGueltigBis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblECO, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFrejusKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblGueltigBis, Me.lblECO})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblFrejusKartenNr
'
Me.lblFrejusKartenNr.Height = 0.1586614!
Me.lblFrejusKartenNr.Left = 1.732284!
Me.lblFrejusKartenNr.Name = "lblFrejusKartenNr"
Me.lblFrejusKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblFrejusKartenNr.Text = "Frejus-Card-Nr"
Me.lblFrejusKartenNr.Top = 0.01968504!
Me.lblFrejusKartenNr.Width = 1.805117!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.377953!
'
'lblGueltigBis
'
Me.lblGueltigBis.Height = 0.1586615!
Me.lblGueltigBis.Left = 4.246063!
Me.lblGueltigBis.Name = "lblGueltigBis"
Me.lblGueltigBis.Style = "font-size: 10pt; text-align: center; ddo-char-set: 1"
Me.lblGueltigBis.Text = "G<EFBFBD>ltig bis"
Me.lblGueltigBis.Top = 0.01968504!
Me.lblGueltigBis.Width = 0.9913381!
'
'lblECO
'
Me.lblECO.Height = 0.1586614!
Me.lblECO.Left = 3.537401!
Me.lblECO.Name = "lblECO"
Me.lblECO.Style = "font-size: 10pt; text-align: center; ddo-char-set: 1"
Me.lblECO.Text = "ECO"
Me.lblECO.Top = 0.01968504!
Me.lblECO.Width = 0.7086614!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox1, Me.TextBox3, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Frejus-Card-Nr"
Me.TextBox5.Top = 0.00000008195639!
Me.TextBox5.Width = 1.805117!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox1
'
Me.TextBox1.Height = 0.1586615!
Me.TextBox1.Left = 4.246064!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.TextBox1.Text = "G<EFBFBD>ltig bis"
Me.TextBox1.Top = 0.0!
Me.TextBox1.Width = 0.9913381!
'
'TextBox3
'
Me.TextBox3.Height = 0.1586614!
Me.TextBox3.Left = 3.537402!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.TextBox3.Text = "ECO"
Me.TextBox3.Top = 0.0!
Me.TextBox3.Width = 0.7086614!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_FREJUS
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblFrejusKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGueltigBis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblECO, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblFrejusKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblGueltigBis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblECO As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

46
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_FREJUS.vb Normal file
View File

@@ -0,0 +1,46 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_FREJUS
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblFrejusKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("FREJUS-CARD-Nr").Value)
lblECO.Text = cSqlDb.checkNullStr(Fields.Item("ECO").Value)
lblGueltigBis.Text = cSqlDb.checkNullDate(Fields.Item("G<EFBFBD>ltigBis").Value).ToShortDateString
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

222
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_HUGO.Designer.vb generated Normal file
View File

@@ -0,0 +1,222 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_HUGO
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_HUGO))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblPin = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId, Me.lblPin})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.512204!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543295!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 3.244487!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968512!
Me.lblOBUId.Width = 1.53307!
'
'lblPin
'
Me.lblPin.Height = 0.1586614!
Me.lblPin.Left = 4.777558!
Me.lblPin.Name = "lblPin"
Me.lblPin.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblPin.Text = "PIN"
Me.lblPin.Top = 0.01968512!
Me.lblPin.Width = 1.181102!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.TextBox2, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.512204!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 3.244488!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.53307!
'
'TextBox2
'
Me.TextBox2.Height = 0.1586614!
Me.TextBox2.Left = 4.777559!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox2.Text = "PIN"
Me.TextBox2.Top = 0.0!
Me.TextBox2.Width = 1.181102!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_HUGO
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblPin As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

46
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_HUGO.vb Normal file
View File

@@ -0,0 +1,46 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_HUGO
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
lblPin.Text = cSqlDb.checkNullStr(Fields.Item("PIN").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

222
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_IDS.Designer.vb generated Normal file
View File

@@ -0,0 +1,222 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_IDS
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_IDS))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblGueltigBis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblPIN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGueltigBis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPIN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblGueltigBis, Me.lblPIN})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.534251!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.377953!
'
'lblGueltigBis
'
Me.lblGueltigBis.Height = 0.1586615!
Me.lblGueltigBis.Left = 3.975196!
Me.lblGueltigBis.Name = "lblGueltigBis"
Me.lblGueltigBis.Style = "font-size: 10pt; text-align: center; ddo-char-set: 1"
Me.lblGueltigBis.Text = "G<EFBFBD>ltig bis"
Me.lblGueltigBis.Top = 0.01968504!
Me.lblGueltigBis.Width = 0.8661417!
'
'lblPIN
'
Me.lblPIN.Height = 0.1586614!
Me.lblPIN.Left = 3.266534!
Me.lblPIN.Name = "lblPIN"
Me.lblPIN.Style = "font-size: 10pt; text-align: center; ddo-char-set: 1"
Me.lblPIN.Text = "PIN"
Me.lblPIN.Top = 0.01968504!
Me.lblPIN.Width = 0.7086614!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox1, Me.TextBox3, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.00000008195639!
Me.TextBox5.Width = 1.534251!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox1
'
Me.TextBox1.Height = 0.1586615!
Me.TextBox1.Left = 3.975197!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.TextBox1.Text = "G<EFBFBD>ltig bis"
Me.TextBox1.Top = 0.0!
Me.TextBox1.Width = 0.8661417!
'
'TextBox3
'
Me.TextBox3.Height = 0.1586614!
Me.TextBox3.Left = 3.266535!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.TextBox3.Text = "PIN"
Me.TextBox3.Top = 0.0!
Me.TextBox3.Width = 0.7086614!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_IDS
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGueltigBis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPIN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblGueltigBis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblPIN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

46
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_IDS.vb Normal file
View File

@@ -0,0 +1,46 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_IDS
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
lblPIN.Text = cSqlDb.checkNullStr(Fields.Item("PIN").Value)
lblGueltigBis.Text = cSqlDb.checkNullDate(Fields.Item("G<EFBFBD>ltigBis").Value).ToShortDateString
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_IT.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_IT
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_IT))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblVIACard = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblTelepassNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblVIACard, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblTelepassNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblVIACard, Me.lblNr, Me.lblLKWKz, Me.lblTelepassNr})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblVIACard
'
Me.lblVIACard.Height = 0.1586614!
Me.lblVIACard.Left = 1.732284!
Me.lblVIACard.Name = "lblVIACard"
Me.lblVIACard.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblVIACard.Text = "VIA-Card-Nr"
Me.lblVIACard.Top = 0.01968504!
Me.lblVIACard.Width = 1.377953!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.377953!
'
'lblTelepassNr
'
Me.lblTelepassNr.Height = 0.1586614!
Me.lblTelepassNr.Left = 3.110237!
Me.lblTelepassNr.Name = "lblTelepassNr"
Me.lblTelepassNr.Style = "font-size: 10pt; text-align: left; ddo-char-set: 1"
Me.lblTelepassNr.Text = "Telepass-Nr"
Me.lblTelepassNr.Top = 0.01968504!
Me.lblTelepassNr.Width = 1.448426!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox3, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "VIA-Card-Nr"
Me.TextBox5.Top = 0.00000008195639!
Me.TextBox5.Width = 1.377953!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox3
'
Me.TextBox3.Height = 0.1586614!
Me.TextBox3.Left = 3.110238!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox3.Text = "Telepass-Nr"
Me.TextBox3.Top = 0.0!
Me.TextBox3.Width = 1.448426!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_IT
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblVIACard, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblTelepassNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblVIACard As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblTelepassNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

44
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_IT.vb Normal file
View File

@@ -0,0 +1,44 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_IT
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblVIACard.Text = cSqlDb.checkNullStr(Fields.Item("VIACARD").Value)
lblTelepassNr.Text = cSqlDb.checkNullStr(Fields.Item("TELEPASS-Nr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

166
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_MSE.Designer.vb generated Normal file
View File

@@ -0,0 +1,166 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_DE
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_DE))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz})
Me.Detail.Height = 0.178289!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.74252!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.74252!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543307!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_DE
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

45
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_MSE.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_DE
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

222
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_MULTIBOX.Designer.vb generated Normal file
View File

@@ -0,0 +1,222 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_MULTIBOX
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_MULTIBOX))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblPanNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSerie = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblVermerk = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.lblPanNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSerie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVermerk, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblPanNr, Me.lblNr, Me.lblLKWKz, Me.lblSerie, Me.lblVermerk})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblPanNr
'
Me.lblPanNr.Height = 0.1586614!
Me.lblPanNr.Left = 1.496063!
Me.lblPanNr.Name = "lblPanNr"
Me.lblPanNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblPanNr.Text = "PAN-Nr"
Me.lblPanNr.Top = 0.01968504!
Me.lblPanNr.Width = 1.724804!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543307!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.141732!
'
'lblSerie
'
Me.lblSerie.Height = 0.1586614!
Me.lblSerie.Left = 3.220866!
Me.lblSerie.Name = "lblSerie"
Me.lblSerie.Style = "font-size: 10pt; text-align: left; ddo-char-set: 1"
Me.lblSerie.Text = "SERIE-Nr"
Me.lblSerie.Top = 0.01968504!
Me.lblSerie.Width = 1.383858!
'
'lblVermerk
'
Me.lblVermerk.Height = 0.1586614!
Me.lblVermerk.Left = 4.604725!
Me.lblVermerk.Name = "lblVermerk"
Me.lblVermerk.Style = "font-size: 10pt; text-align: left; ddo-char-set: 1"
Me.lblVermerk.Text = "Sonstiges"
Me.lblVermerk.Top = 0.01968504!
Me.lblVermerk.Width = 1.891339!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line2, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox3, Me.TextBox4})
Me.GroupHeader1.Height = 0.1854331!
Me.GroupHeader1.Name = "GroupHeader1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.317142!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.3173229!
Me.Line2.Y2 = 0.317142!
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.496063!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "PAN-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.724804!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.141732!
'
'TextBox3
'
Me.TextBox3.Height = 0.1586614!
Me.TextBox3.Left = 3.220866!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox3.Text = "SERIE-Nr"
Me.TextBox3.Top = 0.0!
Me.TextBox3.Width = 1.383858!
'
'TextBox4
'
Me.TextBox4.Height = 0.1586614!
Me.TextBox4.Left = 4.604725!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox4.Text = "Sonstiges"
Me.TextBox4.Top = 0.0!
Me.TextBox4.Width = 1.891338!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subrptBriefSDL_MULTIBOX
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblPanNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSerie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVermerk, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblPanNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblSerie As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblVermerk As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

46
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_MULTIBOX.vb Normal file
View File

@@ -0,0 +1,46 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_MULTIBOX
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblPanNr.Text = cSqlDb.checkNullStr(Fields.Item("PAN-Nr").Value)
lblSerie.Text = cSqlDb.checkNullStr(Fields.Item("SERIE-Nr").Value)
' lblGueltigBis.Text = cSqlDb.checkNullDate(Fields.Item("G<>ltigBis").Value).ToShortDateString
lblVermerk.Text = cSqlDb.checkNullStr(Fields.Item("Vermerk").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PL.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_PL
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PL))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
Me.Detail.Height = 0.178289!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.377953!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 3.110236!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968512!
Me.lblOBUId.Width = 1.877953!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.377953!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 3.110237!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.877953!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_PL
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

45
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PL.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_PL
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
'lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
'lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptBriefSDL_PLOSE
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
Me.Detail.Height = 0.1783464!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.575984!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 3.308267!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968512!
Me.lblOBUId.Width = 1.940551!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.575984!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 3.308268!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.940551!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_cz
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

45
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_PLOSE
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptBriefSDL_PLOSE_CZ
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE_CZ))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
Me.Detail.Height = 0.1783464!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.575984!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 3.308267!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968512!
Me.lblOBUId.Width = 1.940551!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.575984!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 3.308268!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.940551!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_cz
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

45
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_CZ.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_PLOSE_CZ
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptBriefSDL_PLOSE_IT
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE_IT))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblVIACard = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblTelepassNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblVIACard, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblTelepassNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblVIACard, Me.lblNr, Me.lblLKWKz, Me.lblTelepassNr})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblVIACard
'
Me.lblVIACard.Height = 0.1586614!
Me.lblVIACard.Left = 1.732284!
Me.lblVIACard.Name = "lblVIACard"
Me.lblVIACard.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblVIACard.Text = "VIA-Card-Nr"
Me.lblVIACard.Top = 0.01968504!
Me.lblVIACard.Width = 1.377953!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.377953!
'
'lblTelepassNr
'
Me.lblTelepassNr.Height = 0.1586614!
Me.lblTelepassNr.Left = 3.110237!
Me.lblTelepassNr.Name = "lblTelepassNr"
Me.lblTelepassNr.Style = "font-size: 10pt; text-align: left; ddo-char-set: 1"
Me.lblTelepassNr.Text = "Telepass-Nr"
Me.lblTelepassNr.Top = 0.01968504!
Me.lblTelepassNr.Width = 1.448426!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox3, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "VIA-Card-Nr"
Me.TextBox5.Top = 0.00000008195639!
Me.TextBox5.Width = 1.377953!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox3
'
Me.TextBox3.Height = 0.1586614!
Me.TextBox3.Left = 3.110238!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox3.Text = "Telepass-Nr"
Me.TextBox3.Top = 0.0!
Me.TextBox3.Width = 1.448426!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_IT
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblVIACard, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblTelepassNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblVIACard As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblTelepassNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

44
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_IT.vb Normal file
View File

@@ -0,0 +1,44 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_PLOSE_IT
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblVIACard.Text = cSqlDb.checkNullStr(Fields.Item("VIACARD").Value)
lblTelepassNr.Text = cSqlDb.checkNullStr(Fields.Item("TELEPASS-Nr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_MEDPASS.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptBriefSDL_PLOSE_MEDPASS
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE_MEDPASS))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
Me.Detail.Height = 0.1783464!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.575984!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 3.308267!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968512!
Me.lblOBUId.Width = 1.940551!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.575984!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 3.308268!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.940551!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_cz
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

45
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_MEDPASS.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_PLOSE_MEDPASS
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_truckmaster.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptBriefSDL_PLOSE_truckmaster
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_PLOSE_truckmaster))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
Me.Detail.Height = 0.1783464!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.575984!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 3.308267!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968512!
Me.lblOBUId.Width = 1.940551!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 1.575984!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 3.308268!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.940551!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_cz
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

45
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_PLOSE_truckmaster.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_PLOSE_truckmaster
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_SI.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_SI
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_SI))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSerie = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSerie, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNr, Me.lblLKWKz, Me.lblOBUId, Me.lblSerie})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543307!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 1.732283!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968504!
Me.lblOBUId.Width = 1.42874!
'
'lblSerie
'
Me.lblSerie.Height = 0.1586614!
Me.lblSerie.Left = 3.161024!
Me.lblSerie.Name = "lblSerie"
Me.lblSerie.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblSerie.Text = "SERIE-Nr"
Me.lblSerie.Top = 0.01968504!
Me.lblSerie.Width = 1.441338!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.TextBox2, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543307!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 1.732283!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0.0!
Me.TextBox11.Width = 1.42874!
'
'TextBox2
'
Me.TextBox2.Height = 0.1586614!
Me.TextBox2.Left = 3.161024!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox2.Text = "SERIE-Nr"
Me.TextBox2.Top = 0.0!
Me.TextBox2.Width = 1.441338!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_SI
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSerie, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblSerie As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

47
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_SI.vb Normal file
View File

@@ -0,0 +1,47 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_SI
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
' lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
lblSerie.Text = cSqlDb.checkNullStr(Fields.Item("SERIE-Nr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

222
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_UTA.Designer.vb generated Normal file
View File

@@ -0,0 +1,222 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_UTA
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_UTA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblGueltigBis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblPIN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGueltigBis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPIN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblGueltigBis, Me.lblPIN})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.377953!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968504!
Me.lblLKWKz.Width = 1.377953!
'
'lblGueltigBis
'
Me.lblGueltigBis.Height = 0.1586615!
Me.lblGueltigBis.Left = 3.818899!
Me.lblGueltigBis.Name = "lblGueltigBis"
Me.lblGueltigBis.Style = "font-size: 10pt; text-align: center; ddo-char-set: 1"
Me.lblGueltigBis.Text = "G<EFBFBD>ltig bis"
Me.lblGueltigBis.Top = 0.01968504!
Me.lblGueltigBis.Width = 0.8661417!
'
'lblPIN
'
Me.lblPIN.Height = 0.1586614!
Me.lblPIN.Left = 3.110237!
Me.lblPIN.Name = "lblPIN"
Me.lblPIN.Style = "font-size: 10pt; text-align: center; ddo-char-set: 1"
Me.lblPIN.Text = "PIN"
Me.lblPIN.Top = 0.01968504!
Me.lblPIN.Width = 0.7086614!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox1, Me.TextBox3, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.00000008195639!
Me.TextBox5.Width = 1.377953!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 7.105427E-15!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox1
'
Me.TextBox1.Height = 0.1586615!
Me.TextBox1.Left = 3.8189!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.TextBox1.Text = "G<EFBFBD>ltig bis"
Me.TextBox1.Top = 0.0!
Me.TextBox1.Width = 0.8661417!
'
'TextBox3
'
Me.TextBox3.Height = 0.1586614!
Me.TextBox3.Left = 3.110238!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.TextBox3.Text = "PIN"
Me.TextBox3.Top = 0.0!
Me.TextBox3.Width = 0.7086614!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_UTA
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGueltigBis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPIN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblGueltigBis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblPIN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

46
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_UTA.vb Normal file
View File

@@ -0,0 +1,46 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_UTA
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
'lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
'lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
lblPIN.Text = cSqlDb.checkNullStr(Fields.Item("PIN").Value)
lblGueltigBis.Text = cSqlDb.checkNullDate(Fields.Item("G<EFBFBD>ltigBis").Value).ToShortDateString
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

194
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_VERAGCARD.Designer.vb generated Normal file
View File

@@ -0,0 +1,194 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptBriefSDL_VERAGCARD
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblOBUId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenNr, Me.lblNr, Me.lblLKWKz, Me.lblOBUId})
Me.Detail.Height = 0.1783464!
Me.Detail.Name = "Detail"
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1586614!
Me.lblKartenNr.Left = 1.732284!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenNr.Text = "Karten-Nr"
Me.lblKartenNr.Top = 0.01968504!
Me.lblKartenNr.Width = 1.575984!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'lblOBUId
'
Me.lblOBUId.Height = 0.1586614!
Me.lblOBUId.Left = 3.308267!
Me.lblOBUId.Name = "lblOBUId"
Me.lblOBUId.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblOBUId.Text = "OBUID"
Me.lblOBUId.Top = 0.01968512!
Me.lblOBUId.Visible = False
Me.lblOBUId.Width = 1.940551!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox11, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0!
Me.TextBox5.Width = 1.575984!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'TextBox11
'
Me.TextBox11.Height = 0.1586614!
Me.TextBox11.Left = 3.308268!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox11.Text = "OBUID"
Me.TextBox11.Top = 0!
Me.TextBox11.Visible = False
Me.TextBox11.Width = 1.940551!
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subrptBriefSDL_VERAGCARD
'
Me.PageSettings.Margins.Bottom = 0!
Me.PageSettings.Margins.Left = 0!
Me.PageSettings.Margins.Right = 0!
Me.PageSettings.Margins.Top = 0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblOBUId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblOBUId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

45
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_VERAGCARD.vb Normal file
View File

@@ -0,0 +1,45 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_VERAGCARD
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblBestellDat.Text = cSqlDb.checkNullDate(Fields.Item("Bestelldatum").Value).ToShortDateString
' lblLieferDat.Text = cSqlDb.checkNullDate(Fields.Item("Lieferdatum").Value).ToShortDateString
lblOBUId.Text = cSqlDb.checkNullStr(Fields.Item("OBUID").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

166
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_WOELFL.Designer.vb generated Normal file
View File

@@ -0,0 +1,166 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptBriefSDL_WOELFL
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptBriefSDL_WOELFL))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKartenSchluesselNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblLKWKz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblKartenSchluesselNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKartenSchluesselNr, Me.lblNr, Me.lblLKWKz})
Me.Detail.Height = 0.1783465!
Me.Detail.Name = "Detail"
'
'lblKartenSchluesselNr
'
Me.lblKartenSchluesselNr.Height = 0.1586614!
Me.lblKartenSchluesselNr.Left = 1.732284!
Me.lblKartenSchluesselNr.Name = "lblKartenSchluesselNr"
Me.lblKartenSchluesselNr.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKartenSchluesselNr.Text = "Karten/Schl<68>ssel-Nr"
Me.lblKartenSchluesselNr.Top = 0.01968504!
Me.lblKartenSchluesselNr.Width = 2.138189!
'
'lblNr
'
Me.lblNr.Height = 0.1586614!
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.lblNr.Style = "font-size: 10pt; text-align: right; ddo-char-set: 1"
Me.lblNr.Text = "999"
Me.lblNr.Top = 0.01968504!
Me.lblNr.Width = 0.3543307!
'
'lblLKWKz
'
Me.lblLKWKz.Height = 0.1586614!
Me.lblLKWKz.Left = 0.3543298!
Me.lblLKWKz.Name = "lblLKWKz"
Me.lblLKWKz.Style = "font-size: 10pt; ddo-char-set: 1"
Me.lblLKWKz.Text = "SD 123 ASD"
Me.lblLKWKz.Top = 0.01968512!
Me.lblLKWKz.Width = 1.377953!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.Line2})
Me.GroupHeader1.Height = 0.1852909!
Me.GroupHeader1.Name = "GroupHeader1"
'
'TextBox5
'
Me.TextBox5.Height = 0.1586614!
Me.TextBox5.Left = 1.732284!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.TextBox5.Text = "Karten-Nr"
Me.TextBox5.Top = 0.0!
Me.TextBox5.Width = 2.138189!
'
'TextBox6
'
Me.TextBox6.Height = 0.1586614!
Me.TextBox6.Left = 0.0000002384186!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.TextBox6.Style = "font-size: 10pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox6.Text = "Nr"
Me.TextBox6.Top = 0.00000007450581!
Me.TextBox6.Width = 0.3543307!
'
'TextBox7
'
Me.TextBox7.Height = 0.1586614!
Me.TextBox7.Left = 0.3543308!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 10pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox7.Text = "Kennzeichen"
Me.TextBox7.Top = 0.00000007450581!
Me.TextBox7.Width = 1.377953!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0.0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line2
'
Me.Line2.Height = 0.0001809001!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1852522!
Me.Line2.Width = 6.496063!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 6.496063!
Me.Line2.Y1 = 0.1854331!
Me.Line2.Y2 = 0.1852522!
'
'subrptBriefSDL_WOELFL
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.0!
Me.PageSettings.Margins.Right = 0.0!
Me.PageSettings.Margins.Top = 0.0!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.496063!
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
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.lblKartenSchluesselNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKWKz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Private WithEvents lblKartenSchluesselNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents lblLKWKz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

42
SDL/ARConverterBackup2/Reports/MDM/BriefSDl/subrptBriefSDL_WOELFL.vb Normal file
View File

@@ -0,0 +1,42 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptBriefSDL_WOELFL
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
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
lblNr.Text = dummycount
lblLKWKz.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblAusstellDat.Text = cSqlDb.checkNullDate(Fields.Item("Ausstellungsdatum").Value).ToShortDateString
lblKartenSchluesselNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenSchl<EFBFBD>sselNr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.FromArgb(250, 250, 250)
End If
End Sub
End Class

271
SDL/ARConverterBackup2/Reports/MDM/rptAuswertungMWSTOffeneAntraegeMitVorauszahlung.Designer.vb generated Normal file
View File

@@ -0,0 +1,271 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertungMWSTOffeneAntraegeMitVorauszahlung))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeOffeneBetrage = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBoxKdnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBetraege = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBoxKdnr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBetraege, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKdNr, Me.lblFirma, Me.lblSummeOffeneBetrage, Me.Label4})
Me.PageHeader.Height = 0.2708333!
Me.PageHeader.Name = "PageHeader"
'
'lblKdNr
'
Me.lblKdNr.Height = 0.1897638!
Me.lblKdNr.HyperLink = Nothing
Me.lblKdNr.Left = 0.08346462!
Me.lblKdNr.Name = "lblKdNr"
Me.lblKdNr.Style = "font-size: 8pt; font-weight: bold"
Me.lblKdNr.Text = "KdNr"
Me.lblKdNr.Top = 0!
Me.lblKdNr.Width = 0.9688977!
'
'lblFirma
'
Me.lblFirma.Height = 0.1897638!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.052362!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = "font-size: 8pt; font-weight: bold"
Me.lblFirma.Text = "Firma"
Me.lblFirma.Top = 0!
Me.lblFirma.Width = 3.426379!
'
'lblSummeOffeneBetrage
'
Me.lblSummeOffeneBetrage.Height = 0.1897638!
Me.lblSummeOffeneBetrage.HyperLink = Nothing
Me.lblSummeOffeneBetrage.Left = 4.478741!
Me.lblSummeOffeneBetrage.Name = "lblSummeOffeneBetrage"
Me.lblSummeOffeneBetrage.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffeneBetrage.Text = "Summe offener Betr<74>ge"
Me.lblSummeOffeneBetrage.Top = 0!
Me.lblSummeOffeneBetrage.Width = 1.666929!
'
'Label4
'
Me.Label4.Height = 0.1897638!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.14567!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold"
Me.Label4.Text = "Anzahl offener Antr<74>ge"
Me.Label4.Top = 0!
Me.Label4.Width = 1.479527!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.948032!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.08346457!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(10) & "Offene MWST-Antr<74>ge von Kunden mit Vorauszahlung"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.000394!
'
'Label1
'
Me.Label1.Height = 0.2!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.08346457!
Me.Label1.Name = "Label1"
Me.Label1.Style = ""
Me.Label1.Text = "Abgeftragt am: 01.01.2016"
Me.Label1.Top = 0.5!
Me.Label1.Visible = False
Me.Label1.Width = 3.062599!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBoxKdnr, Me.txtFirma, Me.txtBetraege, Me.txtAnzahl})
Me.Detail.Height = 0.1688976!
Me.Detail.Name = "Detail"
'
'TextBoxKdnr
'
Me.TextBoxKdnr.Height = 0.1586614!
Me.TextBoxKdnr.Left = 0.08346409!
Me.TextBoxKdnr.Name = "TextBoxKdnr"
Me.TextBoxKdnr.Style = "font-size: 8pt"
Me.TextBoxKdnr.Text = "kdnr"
Me.TextBoxKdnr.Top = 0.01023622!
Me.TextBoxKdnr.Width = 0.9688977!
'
'txtFirma
'
Me.txtFirma.Height = 0.1586614!
Me.txtFirma.Left = 1.052361!
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Style = "font-size: 8pt"
Me.txtFirma.Text = "Firma"
Me.txtFirma.Top = 0.01023622!
Me.txtFirma.Width = 3.426379!
'
'txtBetraege
'
Me.txtBetraege.Height = 0.1586614!
Me.txtBetraege.Left = 4.478741!
Me.txtBetraege.Name = "txtBetraege"
Me.txtBetraege.Style = "font-size: 8pt; text-align: right"
Me.txtBetraege.Text = "Betraege"
Me.txtBetraege.Top = 0.01023622!
Me.txtBetraege.Width = 1.02126!
'
'txtAnzahl
'
Me.txtAnzahl.Height = 0.1586614!
Me.txtAnzahl.Left = 6.14567!
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Style = "font-size: 8pt; text-align: right"
Me.txtAnzahl.Text = "Anzahl"
Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 0.9484248!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails})
Me.PageFooter.Height = 0.2!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.147244!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.08346462!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0!
Me.lblDetails.Width = 4.864567!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label1})
Me.ReportHeader1.Height = 0.941601!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBoxKdnr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBetraege, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblText2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKdNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeOffeneBetrage 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 TextBoxKdnr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtBetraege As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahl As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

74
SDL/ARConverterBackup2/Reports/MDM/rptAuswertungMWSTOffeneAntraegeMitVorauszahlung.vb Normal file
View File

@@ -0,0 +1,74 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlung
Public datVon As Date
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "Auswertung offene Antr<74>ge mit Vorauszahlung"
'lblHeader.Text = Me.Name
'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
Dim sqlStr As String = " SELECT tblUStVAntrag.UStVAn_KuNr as kdNr, (SELECT Ordnungsbegriff from Adressen WHERE Adressen.AdressenNr=tblUStVAntrag.UStVAn_KuNr ) as Firma, SUM(([UStVAn_USteuerbetragEUR]-[UStVAn_ErstattungsbetragEUR])) as [Summe Differnezbetrag],count(*) as [Anzahl Antr<74>ge] " &
" FROM tblUStVAntrag INNER JOIN Adressen on Adressen.AdressenNr=tblUStVAntrag.UStVAn_KuNr " &
" WHERE UStVAn_ReDatVon >='" & datVon.ToShortDateString & "' " &
" and UStVAn_ReDatBis <=GETDATE() " &
" and ([UStVAn_USteuerbetrag]-[UStVAn_Erstattungsbetrag])>0 " &
" and UStVAn_VZBetrag is null " &
" and Adressen.MWSTVorauszahlung is not null " &
" and Adressen.MWSTVorauszahlung = 1 " &
" group by UStVAn_KuNr " &
" order by Firma "
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL")
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
TextBoxKdnr.Text = CStr(Fields.Item("kdNr").Value)
txtFirma.Text = CStr(Fields.Item("Firma").Value)
txtBetraege.Text = "<EFBFBD> " & CDbl(Fields.Item("Summe Differnezbetrag").Value).ToString("N2", CultureInfo.InvariantCulture)
txtAnzahl.Text = CStr(Fields.Item("Anzahl Antr<74>ge").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.WhiteSmoke
End If
End Sub
End Class

282
SDL/ARConverterBackup2/Reports/MDM/rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.Designer.vb generated Normal file
View File

@@ -0,0 +1,282 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeOffeneBetrage = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.TextBoxKdnr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirma = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBetraege = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBoxKdnr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBetraege, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKdNr, Me.lblFirma, Me.lblSummeOffeneBetrage, Me.Label4})
Me.PageHeader.Height = 0.2708662!
Me.PageHeader.Name = "PageHeader"
'
'lblKdNr
'
Me.lblKdNr.Height = 0.1897638!
Me.lblKdNr.HyperLink = Nothing
Me.lblKdNr.Left = 0.07952756!
Me.lblKdNr.Name = "lblKdNr"
Me.lblKdNr.Style = "font-size: 8pt; font-weight: bold"
Me.lblKdNr.Text = "KdNr"
Me.lblKdNr.Top = 0!
Me.lblKdNr.Width = 0.9688979!
'
'lblFirma
'
Me.lblFirma.Height = 0.1897638!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.048425!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = "font-size: 8pt; font-weight: bold"
Me.lblFirma.Text = "Firma"
Me.lblFirma.Top = 0!
Me.lblFirma.Width = 3.426379!
'
'lblSummeOffeneBetrage
'
Me.lblSummeOffeneBetrage.Height = 0.1897638!
Me.lblSummeOffeneBetrage.HyperLink = Nothing
Me.lblSummeOffeneBetrage.Left = 4.474804!
Me.lblSummeOffeneBetrage.Name = "lblSummeOffeneBetrage"
Me.lblSummeOffeneBetrage.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffeneBetrage.Text = "Summe offener Betr<74>ge"
Me.lblSummeOffeneBetrage.Top = 0!
Me.lblSummeOffeneBetrage.Width = 1.666929!
'
'Label4
'
Me.Label4.Height = 0.1897638!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.141733!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold"
Me.Label4.Text = "Anzahl offener Antr<74>ge"
Me.Label4.Top = 0!
Me.Label4.Width = 1.479527!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBoxKdnr, Me.txtFirma, Me.txtBetraege, Me.txtAnzahl, Me.SubReport})
Me.Detail.Height = 0.40625!
Me.Detail.Name = "Detail"
'
'TextBoxKdnr
'
Me.TextBoxKdnr.Height = 0.1586614!
Me.TextBoxKdnr.Left = 0.07952756!
Me.TextBoxKdnr.Name = "TextBoxKdnr"
Me.TextBoxKdnr.Style = "font-size: 8pt; font-weight: bold"
Me.TextBoxKdnr.Text = "kdnr"
Me.TextBoxKdnr.Top = 0.01023622!
Me.TextBoxKdnr.Width = 0.9688979!
'
'txtFirma
'
Me.txtFirma.Height = 0.1586614!
Me.txtFirma.Left = 1.048425!
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Style = "font-size: 8pt; font-weight: bold"
Me.txtFirma.Text = "Firma"
Me.txtFirma.Top = 0.01023622!
Me.txtFirma.Width = 3.426379!
'
'txtBetraege
'
Me.txtBetraege.Height = 0.1586614!
Me.txtBetraege.Left = 4.474805!
Me.txtBetraege.Name = "txtBetraege"
Me.txtBetraege.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.txtBetraege.Text = "Betraege"
Me.txtBetraege.Top = 0.01023622!
Me.txtBetraege.Width = 1.02126!
'
'txtAnzahl
'
Me.txtAnzahl.Height = 0.1586614!
Me.txtAnzahl.Left = 6.141734!
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.txtAnzahl.Text = "Anzahl"
Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 0.9484251!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.2062992!
Me.SubReport.Left = 0!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.1688976!
Me.SubReport.Width = 7.677166!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails})
Me.PageFooter.Height = 0.2!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.143306!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.07952756!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0!
Me.lblDetails.Width = 4.864567!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label1})
Me.ReportHeader1.Height = 0.9417323!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.944095!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.07952756!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(10) & "Offene MWST-Antr<74>ge von Kunden mit Vorauszahlung"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.395276!
'
'Label1
'
Me.Label1.Height = 0.2!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.07952756!
Me.Label1.Name = "Label1"
Me.Label1.Style = ""
Me.Label1.Text = "- Detailauswertung -"
Me.Label1.Top = 0.4566929!
Me.Label1.Width = 3.062599!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffeneBetrage, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBoxKdnr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBetraege, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKdNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeOffeneBetrage As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBoxKdnr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFirma As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtBetraege As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahl As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
End Class

78
SDL/ARConverterBackup2/Reports/MDM/rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.vb Normal file
View File

@@ -0,0 +1,78 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Public datVon As Date
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "Auswertung offene Antr<74>ge mit Vorauszahlung"
'lblHeader.Text = Me.Name
'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
Dim sqlStr As String = " SELECT tblUStVAntrag.UStVAn_KuNr as kdNr, (SELECT Ordnungsbegriff from Adressen WHERE Adressen.AdressenNr=tblUStVAntrag.UStVAn_KuNr ) as Firma, SUM(([UStVAn_USteuerbetragEUR]-[UStVAn_ErstattungsbetragEUR])) as [Summe Differnezbetrag],count(*) as [Anzahl Antr<74>ge] " &
" FROM tblUStVAntrag INNER JOIN Adressen on Adressen.AdressenNr=tblUStVAntrag.UStVAn_KuNr " &
" WHERE UStVAn_ReDatVon >='" & datVon.ToShortDateString & "' " &
" and UStVAn_ReDatBis <=GETDATE() " &
" and ([UStVAn_USteuerbetrag]-[UStVAn_Erstattungsbetrag])>0 " &
" and UStVAn_VZBetrag is null " &
" and Adressen.MWSTVorauszahlung is not null " &
" and Adressen.MWSTVorauszahlung = 1 " &
" group by UStVAn_KuNr " &
" order by Firma "
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL")
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
TextBoxKdnr.Text = CStr(Fields.Item("kdNr").Value)
txtFirma.Text = CStr(Fields.Item("Firma").Value)
txtBetraege.Text = "<EFBFBD> " & CDbl(Fields.Item("Summe Differnezbetrag").Value).ToString("N2", CultureInfo.InvariantCulture)
txtAnzahl.Text = CStr(Fields.Item("Anzahl Antr<74>ge").Value)
Dim subrpt As New subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
subrpt.kdnr = TextBoxKdnr.Text
subrpt.datVon = datVon
Me.SubReport.Report = subrpt
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
End Class

259
SDL/ARConverterBackup2/Reports/MDM/rptAuswertungUeberfaelligeBestellungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,259 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptAuswertungUeberfaelligeBestellungen
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAuswertungUeberfaelligeBestellungen))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblKD = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblF = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.subrpt = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.lblLeistung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.lblKD, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblF, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKD, Me.lblF, Me.lbl, Me.Label1, Me.Line1})
Me.PageHeader.Height = 0.375!
Me.PageHeader.Name = "PageHeader"
'
'lblKD
'
Me.lblKD.Height = 0.1897638!
Me.lblKD.HyperLink = Nothing
Me.lblKD.Left = 1.796457!
Me.lblKD.Name = "lblKD"
Me.lblKD.Style = "font-size: 8pt; font-weight: bold; text-align: center"
Me.lblKD.Text = "KdNr"
Me.lblKD.Top = 0.1850394!
Me.lblKD.Width = 0.7874016!
'
'lblF
'
Me.lblF.Height = 0.1897638!
Me.lblF.HyperLink = Nothing
Me.lblF.Left = 2.583859!
Me.lblF.Name = "lblF"
Me.lblF.Style = "font-size: 8pt; font-weight: bold"
Me.lblF.Text = "Firma"
Me.lblF.Top = 0.1850393!
Me.lblF.Width = 3.426379!
'
'lbl
'
Me.lbl.Height = 0.1897638!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 6.010237!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 8pt; font-weight: bold"
Me.lbl.Text = "LKW-Kennzeichen"
Me.lbl.Top = 0.1850393!
Me.lbl.Width = 1.666929!
'
'Label1
'
Me.Label1.Height = 0.1897638!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.7649607!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label1.Text = "Bestelldatum"
Me.Label1.Top = 0.1850394!
Me.Label1.Width = 1.031496!
'
'Line1
'
Me.Line1.Height = 0.00008201599!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.3551182!
Me.Line1.Width = 7.677084!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084!
Me.Line1.Y1 = 0.3551182!
Me.Line1.Y2 = 0.3552002!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.subrpt, Me.lblLeistung})
Me.Detail.Height = 0.4396982!
Me.Detail.Name = "Detail"
'
'subrpt
'
Me.subrpt.CloseBorder = False
Me.subrpt.Height = 0.2082677!
Me.subrpt.Left = 0!
Me.subrpt.Name = "subrpt"
Me.subrpt.Report = Nothing
Me.subrpt.ReportName = "SubReport1"
Me.subrpt.Top = 0.2314961!
Me.subrpt.Width = 7.677166!
'
'lblLeistung
'
Me.lblLeistung.Height = 0.1897638!
Me.lblLeistung.HyperLink = Nothing
Me.lblLeistung.Left = 0.0677166!
Me.lblLeistung.Name = "lblLeistung"
Me.lblLeistung.Style = "font-size: 9pt; font-weight: bold; text-decoration: underline; ddo-char-set: 1"
Me.lblLeistung.Text = "Leistung"
Me.lblLeistung.Top = 0.04173228!
Me.lblLeistung.Width = 3.51063!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Line2})
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.131473!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.025!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.06769371!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.025!
Me.lblDetails.Width = 4.864567!
'
'Line2
'
Me.Line2.Height = 0.00008204021!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02480315!
Me.Line2.Width = 7.677084!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084!
Me.Line2.Y1 = 0.02480315!
Me.Line2.Y2 = 0.02488519!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1})
Me.ReportHeader1.Height = 0.7!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.932284!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.06771636!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-size: 12pt; font-weight: bold; ddo-char-set: 1"
Me.lblText1.Text = "Bericht" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "<EFBFBD>berf<EFBFBD>llige Bestellungen"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.000394!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptAuswertungUeberfaelligeBestellungen
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.lblKD, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblF, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblKD As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblF As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents subrpt As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents lblLeistung As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

80
SDL/ARConverterBackup2/Reports/MDM/rptAuswertungUeberfaelligeBestellungen.vb Normal file
View File

@@ -0,0 +1,80 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptAuswertungUeberfaelligeBestellungen
Public SDLNr = ""
Public von As New Date
Public bis As New Date
Public kdnr = -1
Public datVon As Date
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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, "Fehler")
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
' Me.Name = ""
'lblHeader.Text = Me.Name
'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
Dim sdlStr = ""
If IsNumeric(SDLNr) AndAlso SDLNr > 0 Then
sdlStr = " AND KundenSDL.SDLNr = '" & SDLNr & "'"
End If
Dim kdnrtxt = ""
If IsNumeric(kdnr) AndAlso kdnr > 0 Then
kdnrtxt = " AND KundenNr='" & kdnr & "'"
End If
' If SDLNr = "-1" Then SDLNr = ""
Dim sqlStr As String = " SELECT distinct(KundenSDL.[SDLNr]),[SDLBez] FROM KundenSDL INNER JOIN [Speditionsdienstleistungen] as s ON KundenSDL.[SDLNr]=s.[SDLNr] where [SDLTypNr]<=2 " & kdnrtxt & " " & sdlStr & " ORDER BY KundenSDL.SDLNr"
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "SDL")
End Sub
' Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
lblLeistung.Text = CStr(Fields.Item("SDLNr").Value) & " " & CStr(Fields.Item("SDLBez").Value)
' MsgBox("A")
Dim kd = If(IsNumeric(kdnr) AndAlso kdnr > 0, " AND KundenNr = " & kdnr, "")
Dim sdlStr = If(IsNumeric(SDLNr) AndAlso SDLNr > 0, " AND SDLNr = '" & CStr(Fields.Item("SDLNr").Value) & "'", "")
Dim sqlStr As String = " SELECT [KundenNr],Ordnungsbegriff,[KfzKennzeichen],[SDLNr],[History],[Bestelldatum] " &
" FROM [SDL].[dbo].[SDL] INNER JOIN VERAG.dbo.Adressen ON VERAG.dbo.Adressen.AdressenNr=[SDL].[dbo].[SDL].KundenNr " &
" WHERE Bestelldatum BETWEEN '" & von & "' AND '" & bis & "' " &
" AND Lieferdatum is NULL " &
sdlStr &
kd &
" ORDER BY SDLNr ASC, Bestelldatum ASC, Ordnungsbegriff ASC "
subrpt.Report = New subrptAuswertungUeberfaelligeBestellungen(sqlStr)
End Sub
End Class

400
SDL/ARConverterBackup2/Reports/MDM/rptLeereOBU.Designer.vb generated Normal file
View File

@@ -0,0 +1,400 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptLeereOBU
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptLeereOBU))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSDLLeistung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKunde = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSDL = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKartenNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLieferdatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBestelldatum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSDLLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKunde, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSDL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLieferdatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBestelldatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label10, Me.Label7, Me.Label2, Me.Label5, Me.Label6, Me.Label9, Me.Line2})
Me.PageHeader.Height = 0.1791339!
Me.PageHeader.Name = "PageHeader"
'
'Label10
'
Me.Label10.Height = 0.1791339!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 6.636615!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 9pt; font-weight: bold; text-align: center"
Me.Label10.Text = "Lieferdatum"
Me.Label10.Top = 0!
Me.Label10.Width = 0.8437006!
'
'Label7
'
Me.Label7.Height = 0.1791339!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 1.186221!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label7.Text = "Kunde"
Me.Label7.Top = 0!
Me.Label7.Width = 1.781103!
'
'Label2
'
Me.Label2.Height = 0.1791339!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.1968504!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "SDL-Nr."
Me.Label2.Top = 0!
Me.Label2.Width = 0.9893703!
'
'Label5
'
Me.Label5.Height = 0.1791339!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 2.967323!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "LKW"
Me.Label5.Top = 0!
Me.Label5.Width = 0.9893701!
'
'Label6
'
Me.Label6.Height = 0.1791339!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 3.956693!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label6.Text = "KartenNr"
Me.Label6.Top = 0!
Me.Label6.Width = 1.836221!
'
'Label9
'
Me.Label9.Height = 0.1791339!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 5.792914!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 9pt; font-weight: bold; text-align: center"
Me.Label9.Text = "Bestelldatum"
Me.Label9.Top = 0!
Me.Label9.Width = 0.8437009!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0.1968504!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.1791339!
Me.Line2.Width = 7.283465!
Me.Line2.X1 = 0.1968504!
Me.Line2.X2 = 7.480315!
Me.Line2.Y1 = 0.1791339!
Me.Line2.Y2 = 0.1791339!
'
'Label8
'
Me.Label8.Height = 0.1791339!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.1968504!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label8.Text = "SDL-Leistung:"
Me.Label8.Top = 0.6751969!
Me.Label8.Width = 0.9582679!
'
'lblSDLLeistung
'
Me.lblSDLLeistung.Height = 0.1791339!
Me.lblSDLLeistung.HyperLink = Nothing
Me.lblSDLLeistung.Left = 1.155118!
Me.lblSDLLeistung.Name = "lblSDLLeistung"
Me.lblSDLLeistung.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblSDLLeistung.Text = "200 - Maut AT"
Me.lblSDLLeistung.Top = 0.6751969!
Me.lblSDLLeistung.Width = 1.812205!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKunde, Me.lblSDL, Me.lblLKW, Me.lblKartenNr, Me.lblLieferdatum, Me.lblBestelldatum})
Me.Detail.Height = 0.1582677!
Me.Detail.Name = "Detail"
'
'lblKunde
'
Me.lblKunde.Height = 0.1582677!
Me.lblKunde.HyperLink = Nothing
Me.lblKunde.Left = 1.186221!
Me.lblKunde.Name = "lblKunde"
Me.lblKunde.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblKunde.Text = "Kunde"
Me.lblKunde.Top = 0!
Me.lblKunde.Width = 1.781103!
'
'lblSDL
'
Me.lblSDL.Height = 0.1582677!
Me.lblSDL.HyperLink = Nothing
Me.lblSDL.Left = 0.1968503!
Me.lblSDL.Name = "lblSDL"
Me.lblSDL.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblSDL.Text = "SDL-Nr."
Me.lblSDL.Top = 0!
Me.lblSDL.Width = 0.9893701!
'
'lblLKW
'
Me.lblLKW.Height = 0.1582677!
Me.lblLKW.HyperLink = Nothing
Me.lblLKW.Left = 2.967323!
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblLKW.Text = "LKW"
Me.lblLKW.Top = 0!
Me.lblLKW.Width = 0.9893701!
'
'lblKartenNr
'
Me.lblKartenNr.Height = 0.1582677!
Me.lblKartenNr.HyperLink = Nothing
Me.lblKartenNr.Left = 3.956693!
Me.lblKartenNr.Name = "lblKartenNr"
Me.lblKartenNr.Style = "font-size: 9pt; font-weight: normal; text-align: left"
Me.lblKartenNr.Text = "KartenNr"
Me.lblKartenNr.Top = 0!
Me.lblKartenNr.Width = 1.836221!
'
'lblLieferdatum
'
Me.lblLieferdatum.Height = 0.1582677!
Me.lblLieferdatum.HyperLink = Nothing
Me.lblLieferdatum.Left = 6.636615!
Me.lblLieferdatum.Name = "lblLieferdatum"
Me.lblLieferdatum.Style = "font-size: 9pt; font-weight: normal; text-align: center"
Me.lblLieferdatum.Text = "Lieferdatum"
Me.lblLieferdatum.Top = 0!
Me.lblLieferdatum.Width = 0.8437006!
'
'lblBestelldatum
'
Me.lblBestelldatum.Height = 0.1582677!
Me.lblBestelldatum.HyperLink = Nothing
Me.lblBestelldatum.Left = 5.792914!
Me.lblBestelldatum.Name = "lblBestelldatum"
Me.lblBestelldatum.Style = "font-size: 9pt; font-weight: normal; text-align: center"
Me.lblBestelldatum.Text = "Bestelldatum"
Me.lblBestelldatum.Top = 0!
Me.lblBestelldatum.Width = 0.8437006!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Line1})
Me.PageFooter.Height = 0.2!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.002362!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.1968504!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0!
Me.lblDetails.Width = 4.735435!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.1968504!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0!
Me.Line1.Width = 7.283462!
Me.Line1.X1 = 0.1968504!
Me.Line1.X2 = 7.480312!
Me.Line1.Y1 = 0!
Me.Line1.Y2 = 0!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label1, Me.Label8, Me.lblSDLLeistung})
Me.ReportHeader1.Height = 1.145116!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.07362211!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.2102362!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.1968504!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Liste leerer OBU-Eintr<74>ge"
Me.lblText1.Top = 0.1633858!
Me.lblText1.Width = 2.770472!
'
'Label1
'
Me.Label1.Height = 0.2!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.1968508!
Me.Label1.Name = "Label1"
Me.Label1.Style = ""
Me.Label1.Text = "- Detailauswertung -"
Me.Label1.Top = 0.373622!
Me.Label1.Visible = False
Me.Label1.Width = 2.770472!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptLeereOBU
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSDLLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKunde, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSDL, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKartenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLieferdatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBestelldatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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 Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSDLLeistung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKunde As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSDL As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKartenNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLieferdatum As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBestelldatum As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

41
SDL/ARConverterBackup2/Reports/MDM/rptLeereOBU.vb Normal file
View File

@@ -0,0 +1,41 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptLeereOBU
Public sdlNr As Integer = -1
Public von As Date = Nothing
Public bis As Date = Nothing
Public sdlText As String = ""
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim kundenSQL As New kundenSQL
Dim where = ""
If sdlNr > 0 Then where = " AND SDLNr=" & sdlNr
'MsgBox("SELECT * FROM [SDL].[dbo].[SDL] WHERE (OBUID is null or OBUID = '') AND SDLNr IN (200,203,201,209,210,213) " & where & " AND Bestelldatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' ORDER BY SDLNr, KundenNr, KfzKennzeichen, Bestelldatum,Lieferdatum")
Me.DataSource = kundenSQL.loadDgvBySql("SELECT * FROM [SDL].[dbo].[SDL] WHERE (OBUID is null or OBUID = '') AND SDLNr IN (200,203,201,209,210,213) " & where & " AND <20>nderungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' ORDER BY SDLNr, KundenNr, KfzKennzeichen, Bestelldatum,Lieferdatum", "SDL")
If sdlText <> "" Then lblSDLLeistung.Text = sdlText
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblSDL.Text = cSqlDb.checkNullStr(Fields.Item("SDLNr").Value)
lblKunde.Text = cSqlDb.checkNullStr(Fields.Item("KundenNr").Value)
lblKartenNr.Text = cSqlDb.checkNullStr(Fields.Item("KartenNr").Value)
lblLKW.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
lblBestelldatum.Text = cSqlDb.checkNullStr(Fields.Item("Bestelldatum").Value)
lblLieferdatum.Text = cSqlDb.checkNullStr(Fields.Item("Lieferdatum").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
End Class

915
SDL/ARConverterBackup2/Reports/MDM/rptMWSTListe.Designer.vb generated Normal file
View File

@@ -0,0 +1,915 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptMWSTListe
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 PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptMWSTListe))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblNumber = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGoods = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblName = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblDate = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblInvoiceNo = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblTax = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line6 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line10 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line11 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblVatNo = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblCompanyname = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line13 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line21 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line23 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line24 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line25 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line26 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line22 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox17 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox23 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line12 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line14 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line15 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line16 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line17 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line19 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line20 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblWahrung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader2 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.GroupFooter2 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.lblNumber, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGoods, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblName, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDate, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblInvoiceNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblTax, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblVatNo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblCompanyname, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.BackColor = System.Drawing.Color.White
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNumber, Me.lblGoods, Me.lblName, Me.lblDate, Me.lblInvoiceNo, Me.lblTax, Me.Line3, Me.Line4, Me.Line5, Me.Line6, Me.Line7, Me.Line8, Me.Line9, Me.Line10, Me.Line11})
Me.Detail.Height = 0.4399443!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'lblNumber
'
Me.lblNumber.DataField = ""
Me.lblNumber.Height = 0.4295276!
Me.lblNumber.HyperLink = Nothing
Me.lblNumber.Left = 0.005118111!
Me.lblNumber.Name = "lblNumber"
Me.lblNumber.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: center; vertical-a" &
"lign: middle; ddo-char-set: 1"
Me.lblNumber.Text = "-"
Me.lblNumber.Top = 0!
Me.lblNumber.Width = 0.81063!
'
'lblGoods
'
Me.lblGoods.DataField = ""
Me.lblGoods.Height = 0.1795276!
Me.lblGoods.HyperLink = Nothing
Me.lblGoods.Left = 0.8157481!
Me.lblGoods.MultiLine = False
Me.lblGoods.Name = "lblGoods"
Me.lblGoods.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set" &
": 1"
Me.lblGoods.Text = "-"
Me.lblGoods.Top = 0!
Me.lblGoods.Width = 4.726378!
'
'lblName
'
Me.lblName.DataField = ""
Me.lblName.DistinctField = ""
Me.lblName.Height = 0.2106299!
Me.lblName.Left = 0.815748!
Me.lblName.MultiLine = False
Me.lblName.Name = "lblName"
Me.lblName.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1"
Me.lblName.SummaryGroup = ""
Me.lblName.Text = "-"
Me.lblName.Top = 0.2188977!
Me.lblName.Width = 4.726378!
'
'lblDate
'
Me.lblDate.DataField = ""
Me.lblDate.DistinctField = ""
Me.lblDate.Height = 0.1795276!
Me.lblDate.Left = 5.542126!
Me.lblDate.MultiLine = False
Me.lblDate.Name = "lblDate"
Me.lblDate.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1"
Me.lblDate.SummaryGroup = ""
Me.lblDate.Text = Nothing
Me.lblDate.Top = 0!
Me.lblDate.Width = 1.505513!
'
'lblInvoiceNo
'
Me.lblInvoiceNo.DataField = ""
Me.lblInvoiceNo.DistinctField = ""
Me.lblInvoiceNo.Height = 0.2106299!
Me.lblInvoiceNo.Left = 5.542126!
Me.lblInvoiceNo.MultiLine = False
Me.lblInvoiceNo.Name = "lblInvoiceNo"
Me.lblInvoiceNo.Style = "color: Black; font-size: 8pt; text-align: left; ddo-char-set: 1"
Me.lblInvoiceNo.SummaryGroup = ""
Me.lblInvoiceNo.Text = Nothing
Me.lblInvoiceNo.Top = 0.2188977!
Me.lblInvoiceNo.Width = 1.505513!
'
'lblTax
'
Me.lblTax.DataField = ""
Me.lblTax.DistinctField = ""
Me.lblTax.Height = 0.4295276!
Me.lblTax.Left = 7.148032!
Me.lblTax.Name = "lblTax"
Me.lblTax.Style = "color: Black; font-size: 8pt; text-align: right; vertical-align: middle; ddo-char" &
"-set: 1"
Me.lblTax.SummaryGroup = ""
Me.lblTax.Text = Nothing
Me.lblTax.Top = 0!
Me.lblTax.Width = 1.107087!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0.03937008!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0!
Me.Line3.Width = 8.228346!
Me.Line3.X1 = 0.03937008!
Me.Line3.X2 = 8.267716!
Me.Line3.Y1 = 0!
Me.Line3.Y2 = 0!
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.8157481!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0.2188977!
Me.Line4.Width = 6.283859!
Me.Line4.X1 = 0.8157481!
Me.Line4.X2 = 7.099607!
Me.Line4.Y1 = 0.2188977!
Me.Line4.Y2 = 0.2188977!
'
'Line5
'
Me.Line5.Height = 0!
Me.Line5.Left = 0.03937008!
Me.Line5.LineWeight = 1.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 0.4330709!
Me.Line5.Width = 8.228346!
Me.Line5.X1 = 0.03937008!
Me.Line5.X2 = 8.267716!
Me.Line5.Y1 = 0.4330709!
Me.Line5.Y2 = 0.4330709!
'
'Line6
'
Me.Line6.Height = 0.4330709!
Me.Line6.Left = 0.03937008!
Me.Line6.LineWeight = 1.0!
Me.Line6.Name = "Line6"
Me.Line6.Top = 0!
Me.Line6.Width = 0!
Me.Line6.X1 = 0.03937008!
Me.Line6.X2 = 0.03937008!
Me.Line6.Y1 = 0.4330709!
Me.Line6.Y2 = 0!
'
'Line7
'
Me.Line7.Height = 0.4330709!
Me.Line7.Left = 8.267717!
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 0!
Me.Line7.X1 = 8.267717!
Me.Line7.X2 = 8.267717!
Me.Line7.Y1 = 0.4330709!
Me.Line7.Y2 = 0!
'
'Line8
'
Me.Line8.Height = 0.4330708!
Me.Line8.Left = 7.099607!
Me.Line8.LineWeight = 1.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = -3.552714E-15!
Me.Line8.Width = 0!
Me.Line8.X1 = 7.099607!
Me.Line8.X2 = 7.099607!
Me.Line8.Y1 = 0.4330708!
Me.Line8.Y2 = -3.552714E-15!
'
'Line9
'
Me.Line9.Height = 0.4330708!
Me.Line9.Left = 5.542126!
Me.Line9.LineWeight = 1.0!
Me.Line9.Name = "Line9"
Me.Line9.Top = 7.105427E-15!
Me.Line9.Width = 0!
Me.Line9.X1 = 5.542126!
Me.Line9.X2 = 5.542126!
Me.Line9.Y1 = 0.4330708!
Me.Line9.Y2 = 7.105427E-15!
'
'Line10
'
Me.Line10.Height = 0.4330708!
Me.Line10.Left = 0.8157482!
Me.Line10.LineWeight = 1.0!
Me.Line10.Name = "Line10"
Me.Line10.Top = 0!
Me.Line10.Width = 0!
Me.Line10.X1 = 0.8157482!
Me.Line10.X2 = 0.8157482!
Me.Line10.Y1 = 0.4330708!
Me.Line10.Y2 = 0!
'
'Line11
'
Me.Line11.Height = 0.4330708!
Me.Line11.Left = 5.542126!
Me.Line11.LineWeight = 1.0!
Me.Line11.Name = "Line11"
Me.Line11.Top = 1.421085E-14!
Me.Line11.Width = 0!
Me.Line11.X1 = 5.542126!
Me.Line11.X2 = 5.542126!
Me.Line11.Y1 = 0.4330708!
Me.Line11.Y2 = 1.421085E-14!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label28, Me.Line2, Me.ReportInfo2, Me.lblDat})
Me.PageFooter.Name = "PageFooter"
'
'Label28
'
Me.Label28.Height = 0.1330709!
Me.Label28.HyperLink = Nothing
Me.Label28.Left = 2.014173!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG 360 GmbH"
Me.Label28.Top = 0.08622048!
Me.Label28.Width = 2.794095!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070866!
Me.Line2.Width = 8.267716!
Me.Line2.X1 = 0!
Me.Line2.X2 = 8.267716!
Me.Line2.Y1 = 0.03070866!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Page {PageNumber} from {PageCount} Pages"
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.829922!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622048!
Me.ReportInfo2.Width = 2.437842!
'
'lblDat
'
Me.lblDat.Height = 0.1330708!
Me.lblDat.HyperLink = Nothing
Me.lblDat.Left = 0.01023622!
Me.lblDat.Name = "lblDat"
Me.lblDat.Style = "font-size: 8pt; text-align: left"
Me.lblDat.Text = "Mittwoch, 02.11.2016"
Me.lblDat.Top = 0.08622044!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblUeberschrift, Me.Label2, Me.lblVatNo, Me.lblCompanyname, Me.Label1, Me.Line13, Me.Line21, Me.Line23, Me.Line24, Me.Line25, Me.Line26, Me.Label3, Me.Line22})
Me.ReportHeader1.Height = 1.344817!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.3751969!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.240158!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 1.322441!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0"
Me.lblUeberschrift.Text = "VAT No."
Me.lblUeberschrift.Top = 0.4377953!
Me.lblUeberschrift.Width = 1.493701!
'
'Label2
'
Me.Label2.Height = 0.2311024!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 2.893701!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0"
Me.Label2.Text = "Name/Company"
Me.Label2.Top = 0.4377953!
Me.Label2.Width = 5.315749!
'
'lblVatNo
'
Me.lblVatNo.DataField = ""
Me.lblVatNo.Height = 0.2311024!
Me.lblVatNo.HyperLink = Nothing
Me.lblVatNo.Left = 1.322441!
Me.lblVatNo.Name = "lblVatNo"
Me.lblVatNo.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set:" &
" 1"
Me.lblVatNo.Text = "VAT No."
Me.lblVatNo.Top = 0.7208663!
Me.lblVatNo.Width = 1.493701!
'
'lblCompanyname
'
Me.lblCompanyname.DataField = ""
Me.lblCompanyname.Height = 0.2311024!
Me.lblCompanyname.HyperLink = Nothing
Me.lblCompanyname.Left = 2.893701!
Me.lblCompanyname.Name = "lblCompanyname"
Me.lblCompanyname.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set:" &
" 1"
Me.lblCompanyname.Text = "Name/Company"
Me.lblCompanyname.Top = 0.7208663!
Me.lblCompanyname.Width = 5.315749!
'
'Label1
'
Me.Label1.DataField = ""
Me.Label1.Height = 0.3322834!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0102362!
Me.Label1.Name = "Label1"
Me.Label1.Style = "color: Black; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
"ign: middle; ddo-char-set: 1"
Me.Label1.Text = "Statement itemising VAT amounts relating to the period covered by this applicatio" &
"n"
Me.Label1.Top = 1.003937!
Me.Label1.Width = 8.287402!
'
'Line13
'
Me.Line13.Height = 0!
Me.Line13.Left = 0.03937008!
Me.Line13.LineWeight = 1.0!
Me.Line13.Name = "Line13"
Me.Line13.Top = 0.6996064!
Me.Line13.Width = 8.228346!
Me.Line13.X1 = 0.03937008!
Me.Line13.X2 = 8.267716!
Me.Line13.Y1 = 0.6996064!
Me.Line13.Y2 = 0.6996064!
'
'Line21
'
Me.Line21.Height = 0!
Me.Line21.Left = 0.03937008!
Me.Line21.LineWeight = 1.0!
Me.Line21.Name = "Line21"
Me.Line21.Top = 0.9519686!
Me.Line21.Width = 8.228346!
Me.Line21.X1 = 0.03937008!
Me.Line21.X2 = 8.267716!
Me.Line21.Y1 = 0.9519686!
Me.Line21.Y2 = 0.9519686!
'
'Line23
'
Me.Line23.Height = 0.5141732!
Me.Line23.Left = 8.267717!
Me.Line23.LineWeight = 1.0!
Me.Line23.Name = "Line23"
Me.Line23.Top = 0.4377954!
Me.Line23.Width = 0!
Me.Line23.X1 = 8.267717!
Me.Line23.X2 = 8.267717!
Me.Line23.Y1 = 0.9519686!
Me.Line23.Y2 = 0.4377954!
'
'Line24
'
Me.Line24.Height = 0.514173!
Me.Line24.Left = 2.851575!
Me.Line24.LineWeight = 1.0!
Me.Line24.Name = "Line24"
Me.Line24.Top = 0.4377955!
Me.Line24.Width = 0!
Me.Line24.X1 = 2.851575!
Me.Line24.X2 = 2.851575!
Me.Line24.Y1 = 0.9519686!
Me.Line24.Y2 = 0.4377955!
'
'Line25
'
Me.Line25.Height = 0.514173!
Me.Line25.Left = 1.280709!
Me.Line25.LineWeight = 1.0!
Me.Line25.Name = "Line25"
Me.Line25.Top = 0.4377956!
Me.Line25.Width = 0!
Me.Line25.X1 = 1.280709!
Me.Line25.X2 = 1.280709!
Me.Line25.Y1 = 0.9519686!
Me.Line25.Y2 = 0.4377956!
'
'Line26
'
Me.Line26.Height = 0.5141732!
Me.Line26.Left = 0.03937006!
Me.Line26.LineWeight = 1.0!
Me.Line26.Name = "Line26"
Me.Line26.Top = 0.4377955!
Me.Line26.Width = 0!
Me.Line26.X1 = 0.03937006!
Me.Line26.X2 = 0.03937006!
Me.Line26.Y1 = 0.9519686!
Me.Line26.Y2 = 0.4377955!
'
'Label3
'
Me.Label3.Height = 0.2311024!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.05118108!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 0"
Me.Label3.Text = "Doc No."
Me.Label3.Top = 0.4377953!
Me.Label3.Width = 1.196063!
'
'Line22
'
Me.Line22.Height = 0!
Me.Line22.Left = 0.03937008!
Me.Line22.LineWeight = 1.0!
Me.Line22.Name = "Line22"
Me.Line22.Top = 0.4377953!
Me.Line22.Width = 8.228346!
Me.Line22.X1 = 0.03937008!
Me.Line22.X2 = 8.267716!
Me.Line22.Y1 = 0.4377953!
Me.Line22.Y2 = 0.4377953!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.TextBox12, Me.TextBox17, Me.TextBox23, Me.TextBox1, Me.Line12, Me.Line14, Me.Line15, Me.Line16, Me.Line17, Me.Line18, Me.Line19, Me.Line20})
Me.GroupHeader1.Height = 0.4984253!
Me.GroupHeader1.KeepTogether = True
Me.GroupHeader1.Name = "GroupHeader1"
'
'Label5
'
Me.Label5.Height = 0.4110236!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.05118111!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label5.Text = "Number"
Me.Label5.Top = 0!
Me.Label5.Width = 0.7019686!
'
'TextBox12
'
Me.TextBox12.DataField = ""
Me.TextBox12.DistinctField = ""
Me.TextBox12.Height = 0.1795276!
Me.TextBox12.Left = 0.6874017!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox12.SummaryGroup = ""
Me.TextBox12.Text = "Nature of goods or services"
Me.TextBox12.Top = 0!
Me.TextBox12.Width = 4.854725!
'
'TextBox17
'
Me.TextBox17.DataField = ""
Me.TextBox17.DistinctField = ""
Me.TextBox17.Height = 0.4110236!
Me.TextBox17.Left = 5.542126!
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox17.SummaryGroup = ""
Me.TextBox17.Text = "Date and number of invoice"
Me.TextBox17.Top = 0!
Me.TextBox17.Width = 1.457087!
'
'TextBox23
'
Me.TextBox23.DataField = ""
Me.TextBox23.DistinctField = ""
Me.TextBox23.Height = 0.2314961!
Me.TextBox23.Left = 0.6874017!
Me.TextBox23.Name = "TextBox23"
Me.TextBox23.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox23.SummaryGroup = ""
Me.TextBox23.Text = "Name of supplier and goods or services"
Me.TextBox23.Top = 0.1795276!
Me.TextBox23.Width = 4.854725!
'
'TextBox1
'
Me.TextBox1.DataField = ""
Me.TextBox1.DistinctField = ""
Me.TextBox1.Height = 0.4110236!
Me.TextBox1.Left = 7.190552!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set" &
": 1"
Me.TextBox1.SummaryGroup = ""
Me.TextBox1.Text = "Amount of tax refund applied for"
Me.TextBox1.Top = 0!
Me.TextBox1.Width = 1.107087!
'
'Line12
'
Me.Line12.Height = 0.4015748!
Me.Line12.Left = 0.03937008!
Me.Line12.LineWeight = 1.0!
Me.Line12.Name = "Line12"
Me.Line12.Top = 0!
Me.Line12.Width = 0!
Me.Line12.X1 = 0.03937008!
Me.Line12.X2 = 0.03937008!
Me.Line12.Y1 = 0.4015748!
Me.Line12.Y2 = 0!
'
'Line14
'
Me.Line14.Height = 0.4015748!
Me.Line14.Left = 7.099607!
Me.Line14.LineWeight = 1.0!
Me.Line14.Name = "Line14"
Me.Line14.Top = 0.00000004470348!
Me.Line14.Width = 0!
Me.Line14.X1 = 7.099607!
Me.Line14.X2 = 7.099607!
Me.Line14.Y1 = 0.4015748!
Me.Line14.Y2 = 0.00000004470348!
'
'Line15
'
Me.Line15.Height = 0.3976377!
Me.Line15.Left = 8.267717!
Me.Line15.LineWeight = 1.0!
Me.Line15.Name = "Line15"
Me.Line15.Top = 0.003937136!
Me.Line15.Width = 0!
Me.Line15.X1 = 8.267717!
Me.Line15.X2 = 8.267717!
Me.Line15.Y1 = 0.4015748!
Me.Line15.Y2 = 0.003937136!
'
'Line16
'
Me.Line16.Height = 0.4015748!
Me.Line16.Left = 0.7866142!
Me.Line16.LineWeight = 1.0!
Me.Line16.Name = "Line16"
Me.Line16.Top = 0!
Me.Line16.Width = 0!
Me.Line16.X1 = 0.7866142!
Me.Line16.X2 = 0.7866142!
Me.Line16.Y1 = 0.4015748!
Me.Line16.Y2 = 0!
'
'Line17
'
Me.Line17.Height = 0.4015747!
Me.Line17.Left = 5.542126!
Me.Line17.LineWeight = 1.0!
Me.Line17.Name = "Line17"
Me.Line17.Top = 0.0000001192093!
Me.Line17.Width = 0!
Me.Line17.X1 = 5.542126!
Me.Line17.X2 = 5.542126!
Me.Line17.Y1 = 0.4015748!
Me.Line17.Y2 = 0.0000001192093!
'
'Line18
'
Me.Line18.Height = 0!
Me.Line18.Left = 0.05118111!
Me.Line18.LineWeight = 1.0!
Me.Line18.Name = "Line18"
Me.Line18.Top = 0!
Me.Line18.Width = 8.216537!
Me.Line18.X1 = 0.05118111!
Me.Line18.X2 = 8.267717!
Me.Line18.Y1 = 0!
Me.Line18.Y2 = 0!
'
'Line19
'
Me.Line19.Height = 0!
Me.Line19.Left = 0.7874016!
Me.Line19.LineWeight = 1.0!
Me.Line19.Name = "Line19"
Me.Line19.Top = 0.1795276!
Me.Line19.Width = 4.754725!
Me.Line19.X1 = 0.7874016!
Me.Line19.X2 = 5.542126!
Me.Line19.Y1 = 0.1795276!
Me.Line19.Y2 = 0.1795276!
'
'Line20
'
Me.Line20.Height = 0!
Me.Line20.Left = 0.03937008!
Me.Line20.LineWeight = 1.0!
Me.Line20.Name = "Line20"
Me.Line20.Top = 0.4110236!
Me.Line20.Width = 8.228346!
Me.Line20.X1 = 0.03937008!
Me.Line20.X2 = 8.267716!
Me.Line20.Y1 = 0.4110236!
Me.Line20.Y2 = 0.4110236!
'
'GroupFooter1
'
Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.lblSumme, Me.lblWahrung})
Me.GroupFooter1.Height = 0.2917323!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 2.300394!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.09251969!
Me.Line1.Width = 5.967322!
Me.Line1.X1 = 2.300394!
Me.Line1.X2 = 8.267716!
Me.Line1.Y1 = 0.09251969!
Me.Line1.Y2 = 0.09251969!
'
'lblSumme
'
Me.lblSumme.DataField = ""
Me.lblSumme.DistinctField = ""
Me.lblSumme.Height = 0.1795276!
Me.lblSumme.Left = 7.217717!
Me.lblSumme.Name = "lblSumme"
Me.lblSumme.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblSumme.SummaryGroup = ""
Me.lblSumme.Text = "10.000.000"
Me.lblSumme.Top = 0.1122047!
Me.lblSumme.Width = 1.05!
'
'lblWahrung
'
Me.lblWahrung.DataField = ""
Me.lblWahrung.DistinctField = ""
Me.lblWahrung.Height = 0.1795276!
Me.lblWahrung.Left = 5.997638!
Me.lblWahrung.Name = "lblWahrung"
Me.lblWahrung.Style = "color: Black; font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set:" &
" 1"
Me.lblWahrung.SummaryGroup = ""
Me.lblWahrung.Text = Nothing
Me.lblWahrung.Top = 0.1122047!
Me.lblWahrung.Width = 1.05!
'
'GroupHeader2
'
Me.GroupHeader2.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma})
Me.GroupHeader2.Height = 0.3090551!
Me.GroupHeader2.Name = "GroupHeader2"
'
'lblFirma
'
Me.lblFirma.Height = 0.2070866!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 0!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.lblFirma.Style = "background-color: #003680; color: White; font-size: 10pt; font-weight: bold; text" &
"-align: left; vertical-align: middle"
Me.lblFirma.Text = ""
Me.lblFirma.Top = 0.1019685!
Me.lblFirma.Width = 8.297638!
'
'GroupFooter2
'
Me.GroupFooter2.Height = 0!
Me.GroupFooter2.Name = "GroupFooter2"
Me.GroupFooter2.NewPage = GrapeCity.ActiveReports.SectionReportModel.NewPage.After
'
'rptMWSTListe
'
Me.PageSettings.DefaultPaperSize = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.69291!
Me.PageSettings.PaperKind = GrapeCity.ActiveReports.Printing.PaperKind.A4
Me.PageSettings.PaperWidth = 8.267716!
Me.PrintWidth = 8.816929!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader2)
Me.Sections.Add(Me.GroupHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter1)
Me.Sections.Add(Me.GroupFooter2)
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.lblNumber, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGoods, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblName, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDate, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblInvoiceNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblTax, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblVatNo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblCompanyname, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblWahrung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents lblNumber As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGoods As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents GroupFooter2 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents GroupHeader2 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox17 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox23 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblName As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblDate As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblInvoiceNo As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblTax As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblVatNo As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblCompanyname As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblWahrung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line10 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line11 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line12 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line14 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line15 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line16 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line17 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line19 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line20 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line13 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line21 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line22 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line23 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line24 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line25 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line26 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

8
SDL/ARConverterBackup2/Reports/MDM/rptMWSTListe.vb Normal file
View File

@@ -0,0 +1,8 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptMWSTListe
Private Sub rptMWSTListe_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

518
SDL/ARConverterBackup2/Reports/MDM/rptSDLAbrechnungsblatt.Designer.vb generated Normal file
View File

@@ -0,0 +1,518 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSDLAbrechnungsblatt
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSDLAbrechnungsblatt))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label15 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKarteBox = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo3 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFAX = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKarteBox, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.Label14, Me.Label15})
Me.PageHeader.Height = 0.2188976!
Me.PageHeader.Name = "PageHeader"
'
'Shape1
'
Me.Shape1.BackColor = System.Drawing.Color.Gainsboro
Me.Shape1.Height = 0.2188976!
Me.Shape1.Left = 0.7858268!
Me.Shape1.LineWeight = 2!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
'
Me.Label14.Height = 0.1791339!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 0.8484253!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "KENNZEICHEN"
Me.Label14.Top = 0!
Me.Label14.Width = 1.678741!
'
'Label15
'
Me.Label15.Height = 0.1791339!
Me.Label15.HyperLink = Nothing
Me.Label15.Left = 2.527165!
Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label15.Text = "KARTE/BOX"
Me.Label15.Top = 0!
Me.Label15.Width = 2.802362!
'
'lblBetreff
'
Me.lblBetreff.Height = 0.1791339!
Me.lblBetreff.HyperLink = Nothing
Me.lblBetreff.Left = 0.6299213!
Me.lblBetreff.Name = "lblBetreff"
Me.lblBetreff.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblBetreff.Text = "ABRECHNUNGSBLATT"
Me.lblBetreff.Top = 3.714961!
Me.lblBetreff.Width = 3.543308!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.1480314!
Me.ReportInfo1.Left = 3.569292!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "color: Black; font-size: 8pt; text-align: right"
Me.ReportInfo1.SummaryGroup = ""
Me.ReportInfo1.Top = 1.862645E-09!
Me.ReportInfo1.Width = 3.478!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape, Me.lblKennzeichen, Me.lblKarteBox})
Me.Detail.Height = 0.2188976!
Me.Detail.Name = "Detail"
'
'Shape
'
Me.Shape.Height = 0.2188976!
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1791339!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 0.8484253!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKennzeichen.Text = "KENNZEICHEN:"
Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.678741!
'
'lblKarteBox
'
Me.lblKarteBox.Height = 0.1791339!
Me.lblKarteBox.HyperLink = Nothing
Me.lblKarteBox.Left = 2.527165!
Me.lblKarteBox.Name = "lblKarteBox"
Me.lblKarteBox.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKarteBox.Text = "KARTE/BOX:"
Me.lblKarteBox.Top = 0.007874017!
Me.lblKarteBox.Width = 2.802363!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1})
Me.PageFooter.Height = 0.6769193!
Me.PageFooter.Name = "PageFooter"
'
'Line1
'
Me.Line1.Height = 8.109212E-05!
Me.Line1.Left = 0.6299213!
Me.Line1.LineWeight = 1!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1562992!
Me.Line1.Width = 6.417322!
Me.Line1.X1 = 0.6299213!
Me.Line1.X2 = 7.047243!
Me.Line1.Y1 = 0.1562992!
Me.Line1.Y2 = 0.1563803!
'
'Label21
'
Me.Label21.Height = 0.2728347!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.6299213!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 7.5pt; text-align: center"
Me.Label21.Text = resources.GetString("Label21.Text")
Me.Label21.Top = 0.2062992!
Me.Label21.Width = 6.417323!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo2, Me.picVERAG, Me.lbl, Me.Label1, Me.lblFirma, Me.Line3, Me.Line2, Me.Label2, Me.Label5, Me.Label6, Me.Label9, Me.Label10, Me.Label12, Me.ReportInfo3, Me.lblBetreff, Me.Label8, Me.lblFAX, Me.lblKdNr})
Me.ReportHeader1.Height = 4.883677!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "{RunDateTime:dd.MM.yyyy}"
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
Me.ReportInfo2.Width = 1.531496!
'
'picVERAG
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.2047244!
Me.picVERAG.Width = 2.552362!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.372442!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
'lblFirma
'
Me.lblFirma.Height = 0.6559067!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.129921!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.472441!
Me.lblFirma.Width = 3.043307!
'
'Line3
'
Me.Line3.Height = 8.08835E-05!
Me.Line3.Left = 0.6299213!
Me.Line3.LineWeight = 1!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8850393!
Me.Line3.Width = 6.417322!
Me.Line3.X1 = 0.6299213!
Me.Line3.X2 = 7.047243!
Me.Line3.Y1 = 0.8850393!
Me.Line3.Y2 = 0.8851202!
'
'Line2
'
Me.Line2.Height = 8.08239E-05!
Me.Line2.Left = 0.6299213!
Me.Line2.LineWeight = 1!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.407874!
Me.Line2.Width = 6.417322!
Me.Line2.X1 = 0.6299213!
Me.Line2.X2 = 7.047243!
Me.Line2.Y1 = 3.407874!
Me.Line2.Y2 = 3.407955!
'
'Label2
'
Me.Label2.Height = 0.1791339!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.6299217!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "Kunde:"
Me.Label2.Top = 1.472441!
Me.Label2.Width = 0.4999999!
'
'Label5
'
Me.Label5.Height = 0.1791339!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.6299214!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "Kd.Nr:"
Me.Label5.Top = 2.328347!
Me.Label5.Width = 0.4999999!
'
'Label6
'
Me.Label6.Height = 0.1791339!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.6299213!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "Datum:"
Me.Label6.Top = 2.686614!
Me.Label6.Width = 0.4999999!
'
'Label9
'
Me.Label9.Height = 0.1791339!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.6299213!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = "Anz. Seiten inkl. Deckblatt:"
Me.Label9.Top = 2.865748!
Me.Label9.Width = 1.583465!
'
'Label10
'
Me.Label10.Height = 0.1791339!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.6299213!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = "Sachbearbeiter:"
Me.Label10.Top = 3.044882!
Me.Label10.Width = 1.531496!
'
'Label12
'
Me.Label12.Height = 0.1791339!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" & _
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
Me.Label12.Width = 1.531496!
'
'ReportInfo3
'
Me.ReportInfo3.FormatString = "{PageCount}"
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" & _
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
Me.ReportInfo3.Width = 1.531496!
'
'Label8
'
Me.Label8.Height = 0.2122053!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Folgende Karten/Boxen wurden bestellt:"
Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323!
'
'lblFAX
'
Me.lblFAX.Height = 0.1791339!
Me.lblFAX.HyperLink = Nothing
Me.lblFAX.Left = 3.182284!
Me.lblFAX.Name = "lblFAX"
Me.lblFAX.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblFAX.Text = ""
Me.lblFAX.Top = 0.5673229!
Me.lblFAX.Width = 3.888583!
'
'lblKdNr
'
Me.lblKdNr.Height = 0.1791337!
Me.lblKdNr.HyperLink = Nothing
Me.lblKdNr.Left = 1.129921!
Me.lblKdNr.Name = "lblKdNr"
Me.lblKdNr.Style = ""
Me.lblKdNr.Text = "0"
Me.lblKdNr.Top = 2.328347!
Me.lblKdNr.Width = 3.043307!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label13, Me.Label7})
Me.ReportFooter1.Height = 0.5687336!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label13
'
Me.Label13.Height = 0.1791339!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.7858268!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "TOTAL:"
Me.Label13.Top = 0.2397638!
Me.Label13.Width = 0.7818899!
'
'Label7
'
Me.Label7.Height = 0.1791339!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 1.587402!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label7.Text = "0 Karten"
Me.Label7.Top = 0.2397638!
Me.Label7.Width = 0.7818903!
'
'rptSDLAbrechnungsblatt
'
Me.MasterReport = false
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label14, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKarteBox, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit
CType(Me, System.ComponentModel.ISupportInitialize).EndInit
End Sub
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 picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBetreff As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo3 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKarteBox As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFAX As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKdNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

78
SDL/ARConverterBackup2/Reports/MDM/rptSDLAbrechnungsblatt.vb Normal file
View File

@@ -0,0 +1,78 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLAbrechnungsblatt
Public sdlNr As Integer = -1
Public sdlText As String = ""
Public KdNr As Integer = -1
Public fahrer As Boolean = False
Public KUNDE As cKundenFMZOLL
Public cSqlDb As New cSqlDb
Public datum As Date = Now
Public sachbearbeiter As String
Public Sprache As String = "DE"
Public ds = Nothing
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If KdNr <= 0 Then MsgBox("Keine Kunden-Nr angegeben!") : Exit Sub
' If sdlNr <= 0 Then Exit Sub
Dim kundenSQL As New kundenSQL
Dim sqlStr As String = " SELECT [KfzKennzeichen] ,SDLNr, " &
" cast(CASE [SDLNr] " &
" WHEN '207' THEN 'FREJUS' " &
" WHEN '100' THEN 'IDS'" &
" WHEN '202' THEN 'IT' " &
" WHEN '208' THEN 'MSE' " &
" WHEN '211' THEN 'MULTI' " &
" WHEN '210' THEN 'SI' " &
" WHEN '212' THEN 'UTA' " &
" WHEN '213' THEN 'HUGO' " &
" Else '-' " &
" END /*+ ' ' + isnull([OBUID],'')*/ as VARCHAR(300)) AS KARTEBOX " &
" ,[KartenNr],[PIN] " &
" FROM [SDL] " &
" WHERE KundenNr = " & KdNr & " AND SDLNr = " & sdlNr &
" and Bestelldatum = '" & datum.ToShortDateString & "'"
Dim order As String = " ORDER BY KfzKennzeichen,SDLNr, Bestelldatum, BestellNr,Ausstellungsdatum,KartenNr,OBUID"
Me.DataSource = kundenSQL.loadSQLDataAdapterBySqlWithoutReadonlyProblem(sqlStr & order, "SDL")
KUNDE = kundenSQL.getKundeFMZOLLByKdNr(KdNr)
lblFirma.Text = KUNDE.Name_1 & vbNewLine &
IIf(KUNDE.Name_2 <> "", KUNDE.Name_2 & vbNewLine, "") &
KUNDE.Stra<EFBFBD>e & vbNewLine & vbNewLine &
KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
lblKdNr.Text = KUNDE.KundenNr
Label12.Text = sachbearbeiter
Label7.Text = Me.DataSource.Rows.Count & " Karten"
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblKennzeichen.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
lblKarteBox.Text = cSqlDb.checkNullStr(Fields.Item("KARTEBOX").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Shape.BackColor = System.Drawing.Color.White
Else
Shape.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
End Class

535
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungCZ.Designer.vb generated Normal file
View File

@@ -0,0 +1,535 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSDLBenachrichtigungCZ
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSDLBenachrichtigungCZ))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMSENr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo3 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFAX = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnspr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMfg = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMSENr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.Label14, Me.Label7})
Me.PageHeader.Height = 0.2188976!
Me.PageHeader.Name = "PageHeader"
'
'Shape1
'
Me.Shape1.BackColor = System.Drawing.Color.Gainsboro
Me.Shape1.Height = 0.2188976!
Me.Shape1.Left = 0.7858268!
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
'
Me.Label14.Height = 0.1791339!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 1.235433!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "KENNZEICHEN"
Me.Label14.Top = 0.007874017!
Me.Label14.Width = 1.678741!
'
'Label7
'
Me.Label7.Height = 0.1791339!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.999213!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label7.Text = "Multi ServiceCard-Nr"
Me.Label7.Top = 0.01988186!
Me.Label7.Width = 1.980709!
'
'lblBetreff
'
Me.lblBetreff.Height = 0.1791339!
Me.lblBetreff.HyperLink = Nothing
Me.lblBetreff.Left = 0.6299213!
Me.lblBetreff.Name = "lblBetreff"
Me.lblBetreff.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblBetreff.Text = "Betr.: REGISTRIERUNG CZ-MAUT"
Me.lblBetreff.Top = 3.714961!
Me.lblBetreff.Width = 3.543308!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.1480314!
Me.ReportInfo1.Left = 3.569292!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "color: Black; font-size: 8pt; text-align: right"
Me.ReportInfo1.SummaryGroup = ""
Me.ReportInfo1.Top = 1.862645E-9!
Me.ReportInfo1.Width = 3.478!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape, Me.lblKennzeichen, Me.lblMSENr})
Me.Detail.Height = 0.2188976!
Me.Detail.Name = "Detail"
'
'Shape
'
Me.Shape.Height = 0.2188976!
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1791339!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 1.235433!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKennzeichen.Text = "KENNZEICHEN:"
Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.76378!
'
'lblMSENr
'
Me.lblMSENr.Height = 0.1791339!
Me.lblMSENr.HyperLink = Nothing
Me.lblMSENr.Left = 2.999213!
Me.lblMSENr.Name = "lblMSENr"
Me.lblMSENr.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblMSENr.Text = "-"
Me.lblMSENr.Top = 0.01968504!
Me.lblMSENr.Width = 2.333858!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1})
Me.PageFooter.Height = 0.6769193!
Me.PageFooter.Name = "PageFooter"
'
'Line1
'
Me.Line1.Height = 0.00008109212!
Me.Line1.Left = 0.6299213!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1562992!
Me.Line1.Width = 6.417322!
Me.Line1.X1 = 0.6299213!
Me.Line1.X2 = 7.047243!
Me.Line1.Y1 = 0.1562992!
Me.Line1.Y2 = 0.1563803!
'
'Label21
'
Me.Label21.Height = 0.2728347!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.6299213!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 7.5pt; text-align: center"
Me.Label21.Text = resources.GetString("Label21.Text")
Me.Label21.Top = 0.2062992!
Me.Label21.Width = 6.417323!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo2, Me.picVERAG, Me.lbl, Me.Label1, Me.lblFirma, Me.Line3, Me.Line2, Me.Label2, Me.Label5, Me.Label6, Me.Label9, Me.Label10, Me.Label12, Me.ReportInfo3, Me.lblBetreff, Me.Label8, Me.lblFAX, Me.lblAnspr})
Me.ReportHeader1.Height = 5.123261!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "{RunDateTime:dd.MM.yyyy}"
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
Me.ReportInfo2.Width = 1.531496!
'
'picVERAG
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.2047244!
Me.picVERAG.Width = 2.552362!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.372442!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
'lblFirma
'
Me.lblFirma.Height = 0.6559067!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.129921!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.672441!
Me.lblFirma.Width = 3.043307!
'
'Line3
'
Me.Line3.Height = 0.0000808835!
Me.Line3.Left = 0.6299213!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8850393!
Me.Line3.Width = 6.417322!
Me.Line3.X1 = 0.6299213!
Me.Line3.X2 = 7.047243!
Me.Line3.Y1 = 0.8850393!
Me.Line3.Y2 = 0.8851202!
'
'Line2
'
Me.Line2.Height = 0.0000808239!
Me.Line2.Left = 0.6299213!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.407874!
Me.Line2.Width = 6.417322!
Me.Line2.X1 = 0.6299213!
Me.Line2.X2 = 7.047243!
Me.Line2.Y1 = 3.407874!
Me.Line2.Y2 = 3.407955!
'
'Label2
'
Me.Label2.Height = 0.1791339!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.6299214!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "An:"
Me.Label2.Top = 1.672441!
Me.Label2.Width = 0.4999999!
'
'Label5
'
Me.Label5.Height = 0.1791339!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.6299214!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "z.H.:"
Me.Label5.Top = 2.328347!
Me.Label5.Width = 0.4999999!
'
'Label6
'
Me.Label6.Height = 0.1791339!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.6299213!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "Datum:"
Me.Label6.Top = 2.686614!
Me.Label6.Width = 0.4999999!
'
'Label9
'
Me.Label9.Height = 0.1791339!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.6299213!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = "Anz. Seiten inkl. Deckblatt:"
Me.Label9.Top = 2.865748!
Me.Label9.Width = 1.583465!
'
'Label10
'
Me.Label10.Height = 0.1791339!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.6299213!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = "Sachbearbeiter:"
Me.Label10.Top = 3.044882!
Me.Label10.Width = 1.531496!
'
'Label12
'
Me.Label12.Height = 0.1791339!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
Me.Label12.Width = 1.531496!
'
'ReportInfo3
'
Me.ReportInfo3.FormatString = "{PageCount}"
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
Me.ReportInfo3.Width = 1.531496!
'
'Label8
'
Me.Label8.Height = 0.8456698!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Sehr geehrte Damen und Herren," & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "folgende LKW wurden f<>r die Tschechische Maut (PR" &
"EMID) registriert:"
Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323!
'
'lblFAX
'
Me.lblFAX.Height = 0.1791339!
Me.lblFAX.HyperLink = Nothing
Me.lblFAX.Left = 3.182284!
Me.lblFAX.Name = "lblFAX"
Me.lblFAX.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblFAX.Text = ""
Me.lblFAX.Top = 0.5673229!
Me.lblFAX.Width = 3.888583!
'
'lblAnspr
'
Me.lblAnspr.Height = 0.1791337!
Me.lblAnspr.HyperLink = Nothing
Me.lblAnspr.Left = 1.129921!
Me.lblAnspr.Name = "lblAnspr"
Me.lblAnspr.Style = ""
Me.lblAnspr.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblAnspr.Top = 2.328347!
Me.lblAnspr.Width = 3.043307!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label13, Me.lblUnterschrift, Me.lblMfg})
Me.ReportFooter1.Height = 2.214567!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label13
'
Me.Label13.Height = 0.4811024!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "Fahrer k<>nnen sich an jeder PREMID-Vertriebstelle melden und die POST-PAY-Box <20>be" &
"rnehmen!"
Me.Label13.Top = 0.2397638!
Me.Label13.Width = 6.417323!
'
'lblUnterschrift
'
Me.lblUnterschrift.Height = 0.1685039!
Me.lblUnterschrift.HyperLink = Nothing
Me.lblUnterschrift.Left = 0.6299213!
Me.lblUnterschrift.Name = "lblUnterschrift"
Me.lblUnterschrift.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblUnterschrift.Text = "i.A."
Me.lblUnterschrift.Top = 2.046063!
Me.lblUnterschrift.Width = 3.240158!
'
'lblMfg
'
Me.lblMfg.Height = 0.1685039!
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblMfg.Text = "Mit freundlichen Gr<47><72>en"
Me.lblMfg.Top = 1.46063!
Me.lblMfg.Width = 3.240158!
'
'rptSDLBenachrichtigungCZ
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMSENr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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 picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBetreff As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo3 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUnterschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFAX As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnspr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMfg As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMSENr As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

88
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungCZ.vb Normal file
View File

@@ -0,0 +1,88 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungCZ
Public sdlNr As Integer = -1
Public sdlText As String = ""
Public KdNr As Integer = -1
Public fahrer As Boolean = False
Public KUNDE As cKundenFMZOLL
Public cSqlDb As New cSqlDb
Public von As Date
Public bis As Date
Public sachbearbeiter As String
Public Sprache As String = "DE"
Public ds = Nothing
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If KdNr <= 0 Then MsgBox("Keine Kunden-Nr angegeben!") : Exit Sub
' If sdlNr <= 0 Then Exit Sub
Dim kundenSQL As New kundenSQL
Me.DataSource = ds
KUNDE = kundenSQL.getKundeFMZOLLByKdNr(KdNr)
lblFirma.Text = KUNDE.Name_1 & vbNewLine &
IIf(KUNDE.Name_2 <> "", KUNDE.Name_2 & vbNewLine, "") &
KUNDE.Stra<EFBFBD>e & vbNewLine & vbNewLine &
KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
lblAnspr.Text = KUNDE.Ansprechpartner
lblUnterschrift.Text = "i.A. " & sachbearbeiter
Label12.Text = sachbearbeiter
If KUNDE.Telefax <> "" Then : lblFAX.Text = "FAX-Nr.: " & KUNDE.Telefax
ElseIf KUNDE.E_Mail <> "" Then : lblFAX.Text = "E-Mail: " & KUNDE.E_Mail
End If
Select Case Sprache
Case "DE"
Case "TR"
Label8.Text = "Sayin Yetkili," & vbNewLine & vbNewLine & "Sof<EFBFBD>rleriniz Cek Otomatik Cihazini alabilmesi icin, asagida belirtmis oldugum Kodu ile " & vbNewLine & "M<EFBFBD>racaat ederek, yeni Cihazini almasi ve Otomatik Maut icin dahil olmasi gerekmektedir!"
Label13.Text = ""
lblBetreff.Text = "Konu: CEK Premid-Box cihazi icin Barkod"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 56")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "maut.tr@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "PLAKA"
lblMfg.Text = "Mit freundlichen Gr<47><72>en / Saygilarimla"
Case "YU"
Label8.Text = "Postovane dame i gospodo," & vbNewLine & vbNewLine & "sljedeci kamioni su registrirani za cesku putarinu (PREMID):"
Label13.Text = "Vozac moze da preuzme POST-PAY-kutiju kod svakog PREMID-distributora!"
lblBetreff.Text = "Betr.: REGISTRACIJA CZ-PUTARINE"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 16")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "z.batinic@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "PLATE NUMBER"
lblMfg.Text = "Srdacan pozdrav"
Case "RO"
Label8.Text = "Stimate client," & vbNewLine & vbNewLine & "va informam ca urmatoarele camioane au fost inregistrate pentru taxa de drum in sistem automat (PREMID):"
Label13.Text = "Soferul se va prezenta la oricare distribuitor PREMID pentru a prelua dispozitivul pentru sistemul POST-PAY !"
lblBetreff.Text = "REF: INREGISTRARE TAXA DRUM CZ"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 41")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "ma@verag.ag")
Label14.Text = "PLATE NUMBER"
lblMfg.Text = "O zi buna va dorim"
End Select
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblKennzeichen.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
lblMSENr.Text = cSqlDb.checkNullStr(Fields.Item("MSE-Kd-Nr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Shape.BackColor = Color.White
Else
Shape.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
End Class

611
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungDE.Designer.vb generated Normal file
View File

@@ -0,0 +1,611 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSDLBenachrichtigungDE
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSDLBenachrichtigungDE))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label15 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKarteBox = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblPin = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo3 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFAX = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnspr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrFahrer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.LineFahrer = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblMfg = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKarteBox, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrFahrer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.Label14, Me.Label15, Me.Label16})
Me.PageHeader.Height = 0.2188976!
Me.PageHeader.Name = "PageHeader"
'
'Shape1
'
Me.Shape1.BackColor = System.Drawing.Color.Gainsboro
Me.Shape1.Height = 0.2188976!
Me.Shape1.Left = 0.7858268!
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
'
Me.Label14.Height = 0.1791339!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 0.8484253!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "KENNZEICHEN"
Me.Label14.Top = 0!
Me.Label14.Width = 1.678741!
'
'Label15
'
Me.Label15.Height = 0.1791339!
Me.Label15.HyperLink = Nothing
Me.Label15.Left = 2.527165!
Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label15.Text = "KARTE/BOX"
Me.Label15.Top = 0!
Me.Label15.Width = 2.802362!
'
'Label16
'
Me.Label16.Height = 0.1791339!
Me.Label16.HyperLink = Nothing
Me.Label16.Left = 5.329528!
Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label16.Text = "PIN"
Me.Label16.Top = 0!
Me.Label16.Width = 1.74134!
'
'lblBetreff
'
Me.lblBetreff.Height = 0.1791339!
Me.lblBetreff.HyperLink = Nothing
Me.lblBetreff.Left = 0.6299213!
Me.lblBetreff.Name = "lblBetreff"
Me.lblBetreff.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblBetreff.Text = "Betr.: ABHOLBEREIT"
Me.lblBetreff.Top = 3.714961!
Me.lblBetreff.Width = 3.543308!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.1480314!
Me.ReportInfo1.Left = 3.569292!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "color: Black; font-size: 8pt; text-align: right"
Me.ReportInfo1.SummaryGroup = ""
Me.ReportInfo1.Top = 1.862645E-9!
Me.ReportInfo1.Width = 3.478!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape, Me.lblKennzeichen, Me.lblKarteBox, Me.lblPin})
Me.Detail.Height = 0.2188976!
Me.Detail.Name = "Detail"
'
'Shape
'
Me.Shape.Height = 0.2188976!
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1791339!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 0.8484253!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKennzeichen.Text = "KENNZEICHEN:"
Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.678741!
'
'lblKarteBox
'
Me.lblKarteBox.Height = 0.1791339!
Me.lblKarteBox.HyperLink = Nothing
Me.lblKarteBox.Left = 2.527165!
Me.lblKarteBox.Name = "lblKarteBox"
Me.lblKarteBox.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKarteBox.Text = "KARTE/BOX:"
Me.lblKarteBox.Top = 0.007874017!
Me.lblKarteBox.Width = 2.802363!
'
'lblPin
'
Me.lblPin.Height = 0.1791339!
Me.lblPin.HyperLink = Nothing
Me.lblPin.Left = 5.329528!
Me.lblPin.Name = "lblPin"
Me.lblPin.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblPin.Text = "PIN:"
Me.lblPin.Top = 0.007874017!
Me.lblPin.Width = 1.74134!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1})
Me.PageFooter.Height = 0.6769193!
Me.PageFooter.Name = "PageFooter"
'
'Line1
'
Me.Line1.Height = 0.00008109212!
Me.Line1.Left = 0.6299213!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1562992!
Me.Line1.Width = 6.417322!
Me.Line1.X1 = 0.6299213!
Me.Line1.X2 = 7.047243!
Me.Line1.Y1 = 0.1562992!
Me.Line1.Y2 = 0.1563803!
'
'Label21
'
Me.Label21.Height = 0.2728347!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.6299213!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 7.5pt; text-align: center"
Me.Label21.Text = resources.GetString("Label21.Text")
Me.Label21.Top = 0.2062992!
Me.Label21.Width = 6.417323!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo2, Me.picVERAG, Me.lbl, Me.Label1, Me.lblFirma, Me.Line3, Me.Line2, Me.Label2, Me.Label5, Me.Label6, Me.Label9, Me.Label10, Me.Label12, Me.ReportInfo3, Me.lblBetreff, Me.Label8, Me.lblFAX, Me.lblAnspr})
Me.ReportHeader1.Height = 5.123261!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "{RunDateTime:dd.MM.yyyy}"
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
Me.ReportInfo2.Width = 1.531496!
'
'picVERAG
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.2047244!
Me.picVERAG.Width = 2.552362!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.372442!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
'lblFirma
'
Me.lblFirma.Height = 0.6559067!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.129921!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.672441!
Me.lblFirma.Width = 3.043307!
'
'Line3
'
Me.Line3.Height = 0.0000808835!
Me.Line3.Left = 0.6299213!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8850393!
Me.Line3.Width = 6.417322!
Me.Line3.X1 = 0.6299213!
Me.Line3.X2 = 7.047243!
Me.Line3.Y1 = 0.8850393!
Me.Line3.Y2 = 0.8851202!
'
'Line2
'
Me.Line2.Height = 0.0000808239!
Me.Line2.Left = 0.6299213!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.407874!
Me.Line2.Width = 6.417322!
Me.Line2.X1 = 0.6299213!
Me.Line2.X2 = 7.047243!
Me.Line2.Y1 = 3.407874!
Me.Line2.Y2 = 3.407955!
'
'Label2
'
Me.Label2.Height = 0.1791339!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.6299214!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "An:"
Me.Label2.Top = 1.672441!
Me.Label2.Width = 0.4999999!
'
'Label5
'
Me.Label5.Height = 0.1791339!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.6299214!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "z.H.:"
Me.Label5.Top = 2.328347!
Me.Label5.Width = 0.4999999!
'
'Label6
'
Me.Label6.Height = 0.1791339!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.6299213!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "Datum:"
Me.Label6.Top = 2.686614!
Me.Label6.Width = 0.4999999!
'
'Label9
'
Me.Label9.Height = 0.1791339!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.6299213!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = "Anz. Seiten inkl. Deckblatt:"
Me.Label9.Top = 2.865748!
Me.Label9.Width = 1.583465!
'
'Label10
'
Me.Label10.Height = 0.1791339!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.6299213!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = "Sachbearbeiter:"
Me.Label10.Top = 3.044882!
Me.Label10.Width = 1.531496!
'
'Label12
'
Me.Label12.Height = 0.1791339!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
Me.Label12.Width = 1.531496!
'
'ReportInfo3
'
Me.ReportInfo3.FormatString = "{PageCount}"
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
Me.ReportInfo3.Width = 1.531496!
'
'Label8
'
Me.Label8.Height = 0.8456698!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Sehr geehrte Damen und Herren!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Folgende Karten/Boxen sind bei uns eingetroffen" &
" und abholbereit:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323!
'
'lblFAX
'
Me.lblFAX.Height = 0.1791339!
Me.lblFAX.HyperLink = Nothing
Me.lblFAX.Left = 3.182284!
Me.lblFAX.Name = "lblFAX"
Me.lblFAX.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblFAX.Text = ""
Me.lblFAX.Top = 0.5673229!
Me.lblFAX.Width = 3.888583!
'
'lblAnspr
'
Me.lblAnspr.Height = 0.1791337!
Me.lblAnspr.HyperLink = Nothing
Me.lblAnspr.Left = 1.129921!
Me.lblAnspr.Name = "lblAnspr"
Me.lblAnspr.Style = ""
Me.lblAnspr.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblAnspr.Top = 2.328347!
Me.lblAnspr.Width = 3.043307!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label11, Me.Label13, Me.lblUnterschrift, Me.lblUnterschrFahrer, Me.LineFahrer, Me.lblMfg})
Me.ReportFooter1.Height = 2.214567!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label11
'
Me.Label11.Height = 0.6751969!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 0.6299213!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label11.Text = "<EFBFBD>ffnungszeiten in Suben:" & Global.Microsoft.VisualBasic.ChrW(9) & "MO - FR" & Global.Microsoft.VisualBasic.ChrW(9) & "06:00 - 22:00 Uhr" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "SA" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "06:00 - 13:00 Uhr" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label11.Top = 0.7854332!
Me.Label11.Width = 6.417323!
'
'Label13
'
Me.Label13.Height = 0.1791339!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label13.Text = "PIN f<>r die Karten bitte an die Fahrer weiterleiten!!!!!"
Me.Label13.Top = 0.2397638!
Me.Label13.Width = 6.417323!
'
'lblUnterschrift
'
Me.lblUnterschrift.Height = 0.1685039!
Me.lblUnterschrift.HyperLink = Nothing
Me.lblUnterschrift.Left = 0.6299213!
Me.lblUnterschrift.Name = "lblUnterschrift"
Me.lblUnterschrift.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblUnterschrift.Text = "i.A."
Me.lblUnterschrift.Top = 2.046063!
Me.lblUnterschrift.Width = 3.240158!
'
'lblUnterschrFahrer
'
Me.lblUnterschrFahrer.Height = 0.1685039!
Me.lblUnterschrFahrer.HyperLink = Nothing
Me.lblUnterschrFahrer.Left = 3.870079!
Me.lblUnterschrFahrer.Name = "lblUnterschrFahrer"
Me.lblUnterschrFahrer.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblUnterschrFahrer.Text = "Unterschrift Fahrer"
Me.lblUnterschrFahrer.Top = 2.046063!
Me.lblUnterschrFahrer.Visible = False
Me.lblUnterschrFahrer.Width = 3.240158!
'
'LineFahrer
'
Me.LineFahrer.Height = 0.00008106232!
Me.LineFahrer.Left = 3.870079!
Me.LineFahrer.LineWeight = 1.0!
Me.LineFahrer.Name = "LineFahrer"
Me.LineFahrer.Top = 2.046063!
Me.LineFahrer.Visible = False
Me.LineFahrer.Width = 3.240156!
Me.LineFahrer.X1 = 3.870079!
Me.LineFahrer.X2 = 7.110235!
Me.LineFahrer.Y1 = 2.046063!
Me.LineFahrer.Y2 = 2.046144!
'
'lblMfg
'
Me.lblMfg.Height = 0.1685039!
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblMfg.Text = "Mit freundlichen Gr<47><72>en"
Me.lblMfg.Top = 1.46063!
Me.lblMfg.Width = 3.240158!
'
'rptSDLBenachrichtigungDE
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKarteBox, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrFahrer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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 picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBetreff As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo3 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUnterschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKarteBox As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblPin As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFAX As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnspr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUnterschrFahrer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents LineFahrer As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblMfg As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

128
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungDE.vb Normal file
View File

@@ -0,0 +1,128 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungDE
Public sdlNr As Integer = -1
Public sdlText As String = ""
Public KdNr As Integer = -1
Public fahrer As Boolean = False
Public KUNDE As cKundenFMZOLL
Public cSqlDb As New cSqlDb
Public von As Date
Public bis As Date
Public sachbearbeiter As String
Public Sprache As String = "DE"
Public ds = Nothing
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If KdNr <= 0 Then MsgBox("Keine Kunden-Nr angegeben!") : Exit Sub
' If sdlNr <= 0 Then Exit Sub
Dim kundenSQL As New kundenSQL
Me.DataSource = ds
KUNDE = kundenSQL.getKundeFMZOLLByKdNr(KdNr)
lblFirma.Text = KUNDE.Name_1 & vbNewLine &
IIf(KUNDE.Name_2 <> "", KUNDE.Name_2 & vbNewLine, "") &
KUNDE.Stra<EFBFBD>e & vbNewLine & vbNewLine &
KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
lblAnspr.Text = KUNDE.Ansprechpartner
lblUnterschrift.Text = "i.A. " & sachbearbeiter
Label12.Text = sachbearbeiter
If fahrer Then
lblFAX.Text = "" : lblFAX.Visible = False
Label13.Visible = False
Label16.Visible = False
lblUnterschrift.Visible = False
lblMfg.Visible = False
LineFahrer.Visible = True
lblUnterschrFahrer.Visible = True
Else
If KUNDE.Telefax <> "" Then : lblFAX.Text = "FAX-Nr.: " & KUNDE.Telefax
ElseIf KUNDE.E_Mail <> "" Then : lblFAX.Text = "E-Mail: " & KUNDE.E_Mail
End If
End If
Select Case Sprache
Case "DE"
If fahrer Then
lblBetreff.Text = "<EFBFBD>BERNAHMEBEST<EFBFBD>TIGUNG"
'lblUnterschrFahrer.Text = "<22>BERNAHMEBEST<53>TIGUNG"
End If
Case "TR"
Label8.Text = "Sayin Yetkili," & vbNewLine & vbNewLine & "Yeni Araciniza (Araclariniza) ait olan MAUT CIHAZI bug<75>n SUBEN ofisimize g<>nderilmistir," & vbNewLine & "Ilgili Sof<6F>r<EFBFBD>n<EFBFBD>z Cihazini alabilmesi icin Ofisimize y<>nlendirmenizi rica ederiz"
Label11.Text = "Pazartesi-Cuma : 06:00 <20> 22:00" & vbNewLine & "Cumartesi : 06:00-14:00" & vbNewLine & "Pazar : 18:00-22:00"
Label13.Text = "Mesai saatleri:"
lblBetreff.Text = "Konu: OTOMATIK MAUT CIHAZI"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 56")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "maut.tr@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "PLAKA"
Label15.Text = "KART/CIHAZ"
lblMfg.Text = "Mit freundlichen Gr<47><72>en / Saygilarimla"
If fahrer Then
lblBetreff.Text = "<EFBFBD>BERNAHMEBEST<EFBFBD>TIGUNG"
lblUnterschrFahrer.Text = "Unterschrift Fahrer"
End If
Case "YU"
Label8.Text = "Postovane dame i gospodo!" & vbNewLine & vbNewLine & "YeniPo Vasoj narudzbi stigle su sljedece kartice/boksove:"
Label11.Text = "Vozac moze preuzet tokom naseg radnog vremena od ponedeljka do petka od 06-22 i subotom od 06-13 na Subenu u plavoj Veragovoj zgradi."
Label13.Text = "MOLIMO DA PIN-ove PROSLJEDITE VOZACIMA!!!!!"
lblBetreff.Text = "Betr.: OBAVJEST"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 16")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "z.batinic@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "BROJ KAMIONA"
Label15.Text = "KARTICE/BOKSOVE"
lblMfg.Text = "Srdacan pozdrav!"
If fahrer Then
lblBetreff.Text = "<EFBFBD>BERNAHMEBEST<EFBFBD>TIGUNG"
lblUnterschrFahrer.Text = "Unterschrift Fahrer"
End If
Case "RO"
Label8.Text = "Stimate client!" & vbNewLine & vbNewLine & "Va rug<75>m s<> ridicati cartelele comandate de la sediul nostru:"
Label11.Text = "Cartelele se pot ridica de luni <20> vineri intre orele 6:00 <20> 22:00" &
"si sambata intre 6:00 <20> 13:00"
Label13.Text = "Va rugam sa redirectionati codurile pin soferilor dvs."
lblBetreff.Text = "REF: INFORMARE"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 41")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "ma@verag.ag")
Label14.Text = "NUMERU DE CAMION"
Label15.Text = "CARTELA/BOX"
lblMfg.Text = "Multumim pentru colaborare cu Respect"
If fahrer Then
lblBetreff.Text = "<EFBFBD>BERNAHMEBEST<EFBFBD>TIGUNG"
lblUnterschrFahrer.Text = "Unterschrift Fahrer"
End If
End Select
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblKennzeichen.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
lblKarteBox.Text = cSqlDb.checkNullStr(Fields.Item("KARTEBOX").Value)
If fahrer Then
lblPin.Visible = False
Else
lblPin.Text = cSqlDb.checkNullStr(Fields.Item("PIN").Value)
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Shape.BackColor = Color.White
Else
Shape.BackColor = Color.WhiteSmoke
End If
End Sub
End Class

549
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungIDS.Designer.vb generated Normal file
View File

@@ -0,0 +1,549 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSDLBenachrichtigungids
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSDLBenachrichtigungids))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMSENr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo3 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFAX = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnspr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMfg = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMSENr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.Label14, Me.Label7})
Me.PageHeader.Height = 0.2188976!
Me.PageHeader.Name = "PageHeader"
'
'Shape1
'
Me.Shape1.BackColor = System.Drawing.Color.Gainsboro
Me.Shape1.Height = 0.2188976!
Me.Shape1.Left = 0.7858268!
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
'
Me.Label14.Height = 0.1791339!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 1.235433!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "BROJ KAMIONA"
Me.Label14.Top = 0.007874017!
Me.Label14.Width = 1.678741!
'
'Label7
'
Me.Label7.Height = 0.1791339!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.999213!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label7.Text = "PIN"
Me.Label7.Top = 0.01988186!
Me.Label7.Width = 1.980709!
'
'lblBetreff
'
Me.lblBetreff.Height = 0.1791339!
Me.lblBetreff.HyperLink = Nothing
Me.lblBetreff.Left = 0.6299213!
Me.lblBetreff.Name = "lblBetreff"
Me.lblBetreff.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblBetreff.Text = "Betr.: NOVA TIPA IDS KARTICE!!!!"
Me.lblBetreff.Top = 3.714961!
Me.lblBetreff.Width = 3.543308!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.1480314!
Me.ReportInfo1.Left = 3.569292!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "color: Black; font-size: 8pt; text-align: right"
Me.ReportInfo1.SummaryGroup = ""
Me.ReportInfo1.Top = 1.862645E-9!
Me.ReportInfo1.Width = 3.478!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape, Me.lblKennzeichen, Me.lblMSENr})
Me.Detail.Height = 0.2188976!
Me.Detail.Name = "Detail"
'
'Shape
'
Me.Shape.Height = 0.2188976!
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1791339!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 1.235433!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKennzeichen.Text = "KENNZEICHEN:"
Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.76378!
'
'lblMSENr
'
Me.lblMSENr.Height = 0.1791339!
Me.lblMSENr.HyperLink = Nothing
Me.lblMSENr.Left = 2.999213!
Me.lblMSENr.Name = "lblMSENr"
Me.lblMSENr.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblMSENr.Text = "-"
Me.lblMSENr.Top = 0.01968504!
Me.lblMSENr.Width = 2.333858!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1})
Me.PageFooter.Height = 0.6769193!
Me.PageFooter.Name = "PageFooter"
'
'Line1
'
Me.Line1.Height = 0.00008109212!
Me.Line1.Left = 0.6299213!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1562992!
Me.Line1.Width = 6.417322!
Me.Line1.X1 = 0.6299213!
Me.Line1.X2 = 7.047243!
Me.Line1.Y1 = 0.1562992!
Me.Line1.Y2 = 0.1563803!
'
'Label21
'
Me.Label21.Height = 0.2728347!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.6299213!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 7.5pt; text-align: center"
Me.Label21.Text = resources.GetString("Label21.Text")
Me.Label21.Top = 0.2062992!
Me.Label21.Width = 6.417323!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo2, Me.picVERAG, Me.lbl, Me.Label1, Me.lblFirma, Me.Line3, Me.Line2, Me.Label2, Me.Label5, Me.Label6, Me.Label9, Me.Label10, Me.Label12, Me.ReportInfo3, Me.lblBetreff, Me.Label8, Me.lblFAX, Me.lblAnspr})
Me.ReportHeader1.Height = 5.821177!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "{RunDateTime:dd.MM.yyyy}"
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
Me.ReportInfo2.Width = 1.531496!
'
'picVERAG
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.2047244!
Me.picVERAG.Width = 2.552362!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.372442!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
'lblFirma
'
Me.lblFirma.Height = 0.6559067!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.129921!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.672441!
Me.lblFirma.Width = 3.043307!
'
'Line3
'
Me.Line3.Height = 0.0000808835!
Me.Line3.Left = 0.6299213!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8850393!
Me.Line3.Width = 6.417322!
Me.Line3.X1 = 0.6299213!
Me.Line3.X2 = 7.047243!
Me.Line3.Y1 = 0.8850393!
Me.Line3.Y2 = 0.8851202!
'
'Line2
'
Me.Line2.Height = 0.0000808239!
Me.Line2.Left = 0.6299213!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.407874!
Me.Line2.Width = 6.417322!
Me.Line2.X1 = 0.6299213!
Me.Line2.X2 = 7.047243!
Me.Line2.Y1 = 3.407874!
Me.Line2.Y2 = 3.407955!
'
'Label2
'
Me.Label2.Height = 0.1791339!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.6299214!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "An:"
Me.Label2.Top = 1.672441!
Me.Label2.Width = 0.4999999!
'
'Label5
'
Me.Label5.Height = 0.1791339!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.6299214!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "z.H.:"
Me.Label5.Top = 2.328347!
Me.Label5.Width = 0.4999999!
'
'Label6
'
Me.Label6.Height = 0.1791339!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.6299213!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "Datum:"
Me.Label6.Top = 2.686614!
Me.Label6.Width = 0.4999999!
'
'Label9
'
Me.Label9.Height = 0.1791339!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.6299213!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = "Anz. Seiten inkl. Deckblatt:"
Me.Label9.Top = 2.865748!
Me.Label9.Width = 1.583465!
'
'Label10
'
Me.Label10.Height = 0.1791339!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.6299213!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = "Sachbearbeiter:"
Me.Label10.Top = 3.044882!
Me.Label10.Width = 1.531496!
'
'Label12
'
Me.Label12.Height = 0.1791339!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
Me.Label12.Width = 1.531496!
'
'ReportInfo3
'
Me.ReportInfo3.FormatString = "{PageCount}"
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
Me.ReportInfo3.Width = 1.531496!
'
'Label8
'
Me.Label8.Height = 1.474017!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = resources.GetString("Label8.Text")
Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323!
'
'lblFAX
'
Me.lblFAX.Height = 0.1791339!
Me.lblFAX.HyperLink = Nothing
Me.lblFAX.Left = 3.182284!
Me.lblFAX.Name = "lblFAX"
Me.lblFAX.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblFAX.Text = ""
Me.lblFAX.Top = 0.5673229!
Me.lblFAX.Width = 3.888583!
'
'lblAnspr
'
Me.lblAnspr.Height = 0.1791337!
Me.lblAnspr.HyperLink = Nothing
Me.lblAnspr.Left = 1.129921!
Me.lblAnspr.Name = "lblAnspr"
Me.lblAnspr.Style = ""
Me.lblAnspr.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblAnspr.Top = 2.328347!
Me.lblAnspr.Width = 3.043307!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label13, Me.lblUnterschrift, Me.lblMfg, Me.Label11})
Me.ReportFooter1.Height = 2.4229!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label13
'
Me.Label13.Height = 0.7814961!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "Vozac moze preuzet tokom naseg radnog vrijemena u Subenu"
Me.Label13.Top = 0.7519686!
Me.Label13.Width = 6.417323!
'
'lblUnterschrift
'
Me.lblUnterschrift.Height = 0.1685039!
Me.lblUnterschrift.HyperLink = Nothing
Me.lblUnterschrift.Left = 0.6299213!
Me.lblUnterschrift.Name = "lblUnterschrift"
Me.lblUnterschrift.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblUnterschrift.Text = "i.A."
Me.lblUnterschrift.Top = 2.254331!
Me.lblUnterschrift.Width = 3.240158!
'
'lblMfg
'
Me.lblMfg.Height = 0.214567!
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" &
"char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 1.533465!
Me.lblMfg.Width = 3.240157!
'
'Label11
'
Me.Label11.Height = 0.2830709!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 0.6299213!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 12pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label11.Text = "NOVE PIN-OVE PROSLJEDITE VOZACIMA!!!"
Me.Label11.Top = 0.364567!
Me.Label11.Width = 6.417323!
'
'rptSDLBenachrichtigungids
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMSENr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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 picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBetreff As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo3 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUnterschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFAX As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnspr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMfg As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMSENr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

97
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungIDS.vb Normal file
View File

@@ -0,0 +1,97 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungids
Public sdlNr As Integer = -1
Public sdlText As String = ""
Public KdNr As Integer = -1
Public fahrer As Boolean = False
Public KUNDE As cKundenFMZOLL
Public cSqlDb As New cSqlDb
Public von As Date
Public bis As Date
Public sachbearbeiter As String
Public Sprache As String = "DE"
Public ds = Nothing
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If KdNr <= 0 Then MsgBox("Keine Kunden-Nr angegeben!") : Exit Sub
' If sdlNr <= 0 Then Exit Sub
Dim kundenSQL As New kundenSQL
Me.DataSource = ds
KUNDE = kundenSQL.getKundeFMZOLLByKdNr(KdNr)
lblFirma.Text = KUNDE.Name_1 & vbNewLine &
IIf(KUNDE.Name_2 <> "", KUNDE.Name_2 & vbNewLine, "") &
KUNDE.Stra<EFBFBD>e & vbNewLine & vbNewLine &
KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
lblAnspr.Text = KUNDE.Ansprechpartner
lblUnterschrift.Text = "i.A. " & sachbearbeiter
Label12.Text = sachbearbeiter
If KUNDE.Telefax <> "" Then : lblFAX.Text = "FAX-Nr.: " & KUNDE.Telefax
ElseIf KUNDE.E_Mail <> "" Then : lblFAX.Text = "E-Mail: " & KUNDE.E_Mail
End If
Dim gueltig = InputBox("Bitte geben Sie das g<>ltigkeitsdatum an:", "G<EFBFBD>ltig bis", "")
Select Case Sprache
Case "DE"
Case "TR"
If False Then
Label8.Text = "Sayin Yetkili," & vbNewLine & vbNewLine & "Sof<EFBFBD>rleriniz Cek Otomatik Cihazini alabilmesi icin, asagida belirtmis oldugum Kodu ile " & vbNewLine & "M<EFBFBD>racaat ederek, yeni Cihazini almasi ve Otomatik Maut icin dahil olmasi gerekmektedir!"
Label13.Text = ""
lblBetreff.Text = "Konu: CEK Premid-Box cihazi icin Barkod"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 56")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "maut.tr@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "PLAKA"
lblMfg.Text = "Mit freundlichen Gr<47><72>en / Saygilarimla"
End If
Case "YU"
Label8.Text = Label8.Text & gueltig
'
' Label13.Text = "Vozac moze da preuzme POST-PAY-kutiju kod svakog PREMID-distributora!"
' lblBetreff.Text = "Betr.: REGISTRACIJA CZ-PUTARINE"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 16")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "z.batinic@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
' Label14.Text = "PLATE NUMBER"
' lblMfg.Text = "Srdacan pozdrav"
Case "RO"
Label8.Text = "Stimate doamne, stimati domni," & vbNewLine & vbNewLine & "Cartele de combustibil IDS noi ( prevazute cu un cip ) , se pot ridica la centrala firmei VERAG din Suben." & vbNewLine & "Dupa ce s au distribuit soferilor dvs , va rugam cele vechi sa le distrugeti. " &
vbNewLine & vbNewLine & " Pentru ca sant valabile doar pana la data de: " & gueltig
Label11.Text = "VA RUGAM SA REDIRECTIONATI CODURILE PIN SOFERILOR DVS."
Label13.Text = "Soferii dvs pot ridica aceste carduri in timpul programului de lucru din Suben." &
"Program de lucru:" & vbTab & "LU-VI intre orele 6 - 22" &
vbNewLine & vbTab & vbTab & "SA intre orele 6- 13"
lblBetreff.Text = "REF: CARDURI COMBUSTIBIL - IDS !!!!"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 41")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "ma@verag.ag")
Label14.Text = "NUMERU DE CAMION"
lblMfg.Text = "Cu salutari cordiale"
End Select
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblKennzeichen.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
lblMSENr.Text = cSqlDb.checkNullStr(Fields.Item("PIN").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Shape.BackColor = System.Drawing.Color.White
Else
Shape.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
End Class

506
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungMSE.Designer.vb generated Normal file
View File

@@ -0,0 +1,506 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSDLBenachrichtigungMSE
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSDLBenachrichtigungMSE))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo3 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblFAX = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnspr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMfg = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.Label14})
Me.PageHeader.Height = 0.2188976!
Me.PageHeader.Name = "PageHeader"
'
'Shape1
'
Me.Shape1.BackColor = System.Drawing.Color.Gainsboro
Me.Shape1.Height = 0.2188976!
Me.Shape1.Left = 0.7858268!
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
'
Me.Label14.Height = 0.1791339!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 1.235433!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "BROJ KAMIONA"
Me.Label14.Top = 0.007874017!
Me.Label14.Width = 1.946851!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.1480314!
Me.ReportInfo1.Left = 3.569292!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "color: Black; font-size: 8pt; text-align: right"
Me.ReportInfo1.SummaryGroup = ""
Me.ReportInfo1.Top = 1.862645E-9!
Me.ReportInfo1.Width = 3.478!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape, Me.lblKennzeichen})
Me.Detail.Height = 0.2188976!
Me.Detail.Name = "Detail"
'
'Shape
'
Me.Shape.Height = 0.2188976!
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1791339!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 1.235433!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKennzeichen.Text = "KENNZEICHEN:"
Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.76378!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1})
Me.PageFooter.Height = 0.6769193!
Me.PageFooter.Name = "PageFooter"
'
'Line1
'
Me.Line1.Height = 0.00008109212!
Me.Line1.Left = 0.6299213!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1562992!
Me.Line1.Width = 6.417322!
Me.Line1.X1 = 0.6299213!
Me.Line1.X2 = 7.047243!
Me.Line1.Y1 = 0.1562992!
Me.Line1.Y2 = 0.1563803!
'
'Label21
'
Me.Label21.Height = 0.2728347!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.6299213!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 7.5pt; text-align: center"
Me.Label21.Text = resources.GetString("Label21.Text")
Me.Label21.Top = 0.2062992!
Me.Label21.Width = 6.417323!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo2, Me.picVERAG, Me.lbl, Me.Label1, Me.lblFirma, Me.Line3, Me.Line2, Me.Label2, Me.Label5, Me.Label6, Me.Label9, Me.Label10, Me.Label12, Me.ReportInfo3, Me.lblFAX, Me.lblAnspr, Me.lblBetreff, Me.Label8})
Me.ReportHeader1.Height = 5.508678!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "{RunDateTime:dd.MM.yyyy}"
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
Me.ReportInfo2.Width = 1.531496!
'
'picVERAG
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.2047244!
Me.picVERAG.Width = 2.552362!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.372442!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
'lblFirma
'
Me.lblFirma.Height = 0.6559067!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.129921!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.672441!
Me.lblFirma.Width = 3.043307!
'
'Line3
'
Me.Line3.Height = 0.0000808835!
Me.Line3.Left = 0.6299213!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8850393!
Me.Line3.Width = 6.417322!
Me.Line3.X1 = 0.6299213!
Me.Line3.X2 = 7.047243!
Me.Line3.Y1 = 0.8850393!
Me.Line3.Y2 = 0.8851202!
'
'Line2
'
Me.Line2.Height = 0.0000808239!
Me.Line2.Left = 0.6299213!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.407874!
Me.Line2.Width = 6.417322!
Me.Line2.X1 = 0.6299213!
Me.Line2.X2 = 7.047243!
Me.Line2.Y1 = 3.407874!
Me.Line2.Y2 = 3.407955!
'
'Label2
'
Me.Label2.Height = 0.1791339!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.6299214!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "An:"
Me.Label2.Top = 1.672441!
Me.Label2.Width = 0.4999999!
'
'Label5
'
Me.Label5.Height = 0.1791339!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.6299214!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "z.H.:"
Me.Label5.Top = 2.328347!
Me.Label5.Width = 0.4999999!
'
'Label6
'
Me.Label6.Height = 0.1791339!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.6299213!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "Datum:"
Me.Label6.Top = 2.686614!
Me.Label6.Width = 0.4999999!
'
'Label9
'
Me.Label9.Height = 0.1791339!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.6299213!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = "Anz. Seiten inkl. Deckblatt:"
Me.Label9.Top = 2.865748!
Me.Label9.Width = 1.583465!
'
'Label10
'
Me.Label10.Height = 0.1791339!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.6299213!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = "Sachbearbeiter:"
Me.Label10.Top = 3.044882!
Me.Label10.Width = 1.531496!
'
'Label12
'
Me.Label12.Height = 0.1791339!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
Me.Label12.Width = 1.531496!
'
'ReportInfo3
'
Me.ReportInfo3.FormatString = "{PageCount}"
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
Me.ReportInfo3.Width = 1.531496!
'
'lblFAX
'
Me.lblFAX.Height = 0.1791339!
Me.lblFAX.HyperLink = Nothing
Me.lblFAX.Left = 3.182284!
Me.lblFAX.Name = "lblFAX"
Me.lblFAX.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblFAX.Text = ""
Me.lblFAX.Top = 0.5673229!
Me.lblFAX.Width = 3.888583!
'
'lblAnspr
'
Me.lblAnspr.Height = 0.1791337!
Me.lblAnspr.HyperLink = Nothing
Me.lblAnspr.Left = 1.129921!
Me.lblAnspr.Name = "lblAnspr"
Me.lblAnspr.Style = ""
Me.lblAnspr.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblAnspr.Top = 2.328347!
Me.lblAnspr.Width = 3.043307!
'
'lblBetreff
'
Me.lblBetreff.Height = 0.1791339!
Me.lblBetreff.HyperLink = Nothing
Me.lblBetreff.Left = 0.6299213!
Me.lblBetreff.Name = "lblBetreff"
Me.lblBetreff.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblBetreff.Text = "Betr.: NOVE MSE/VERAG-KARTICE!!!!"
Me.lblBetreff.Top = 3.714961!
Me.lblBetreff.Width = 3.543308!
'
'Label8
'
Me.Label8.Height = 1.161419!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Postovane dame i gospodo!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "Stigle su Vam nove MSE/VERAG-kartice!! Stare vrijede s" &
"amo jos do ! Nove kartice mogu vec da se koriste!!! Molim Vas da hitno zamj" &
"ente kartice i unistite stare!"
Me.Label8.Top = 4.347243!
Me.Label8.Width = 6.417323!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label13, Me.lblUnterschrift, Me.lblMfg})
Me.ReportFooter1.Height = 2.01665!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label13
'
Me.Label13.Height = 0.7814962!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "Vozac moze preuzet tokom naseg radnog vrijemena u Subenu."
Me.Label13.Top = 0.2188976!
Me.Label13.Width = 6.417323!
'
'lblUnterschrift
'
Me.lblUnterschrift.Height = 0.1685039!
Me.lblUnterschrift.HyperLink = Nothing
Me.lblUnterschrift.Left = 0.6299213!
Me.lblUnterschrift.Name = "lblUnterschrift"
Me.lblUnterschrift.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblUnterschrift.Text = "i.A."
Me.lblUnterschrift.Top = 1.837795!
Me.lblUnterschrift.Width = 3.240158!
'
'lblMfg
'
Me.lblMfg.Height = 0.214567!
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" &
"char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 1.000394!
Me.lblMfg.Width = 3.240157!
'
'rptSDLBenachrichtigungMSE
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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 picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo3 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUnterschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFAX As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnspr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMfg As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBetreff As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

96
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungMSE.vb Normal file
View File

@@ -0,0 +1,96 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungMSE
Public sdlNr As Integer = -1
Public sdlText As String = ""
Public KdNr As Integer = -1
Public fahrer As Boolean = False
Public KUNDE As cKundenFMZOLL
Public cSqlDb As New cSqlDb
Public von As Date
Public bis As Date
Public sachbearbeiter As String
Public Sprache As String = "DE"
Public ds = Nothing
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If KdNr <= 0 Then MsgBox("Keine Kunden-Nr angegeben!") : Exit Sub
' If sdlNr <= 0 Then Exit Sub
Dim kundenSQL As New kundenSQL
Me.DataSource = ds
KUNDE = kundenSQL.getKundeFMZOLLByKdNr(KdNr)
lblFirma.Text = KUNDE.Name_1 & vbNewLine &
IIf(KUNDE.Name_2 <> "", KUNDE.Name_2 & vbNewLine, "") &
KUNDE.Stra<EFBFBD>e & vbNewLine & vbNewLine &
KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
lblAnspr.Text = KUNDE.Ansprechpartner
lblUnterschrift.Text = "i.A. " & sachbearbeiter
Label12.Text = sachbearbeiter
If KUNDE.Telefax <> "" Then : lblFAX.Text = "FAX-Nr.: " & KUNDE.Telefax
ElseIf KUNDE.E_Mail <> "" Then : lblFAX.Text = "E-Mail: " & KUNDE.E_Mail
End If
Dim gueltig = InputBox("Bitte geben Sie das g<>ltigkeitsdatum an:", "G<EFBFBD>ltig bis", "")
Select Case Sprache
Case "DE"
Case "TR"
If False Then
Label8.Text = "Sayin Yetkili," & vbNewLine & vbNewLine & "Sof<EFBFBD>rleriniz Cek Otomatik Cihazini alabilmesi icin, asagida belirtmis oldugum Kodu ile " & vbNewLine & "M<EFBFBD>racaat ederek, yeni Cihazini almasi ve Otomatik Maut icin dahil olmasi gerekmektedir!"
Label13.Text = ""
lblBetreff.Text = "Konu: CEK Premid-Box cihazi icin Barkod"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 56")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "maut.tr@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "PLAKA"
lblMfg.Text = "Mit freundlichen Gr<47><72>en / Saygilarimla"
End If
Case "YU"
Label8.Text = "Postovane dame i gospodo," & vbNewLine & vbNewLine & "stigle su Vam nove MSE/VERAG-kartice!! Stare vrijede samo jos do: " & gueltig & " " & "! Nove kartice mogu vec da se koriste!!! Molim Vas da hitno zamjente kartice i unistite stare!"
'Label8.Text = "Postovane dame i gospodo," & vbNewLine & vbNewLine & "sljedeci kamioni su registrirani za cesku putarinu (PREMID):"
' Label13.Text = "Vozac moze da preuzme POST-PAY-kutiju kod svakog PREMID-distributora!"
' lblBetreff.Text = "Betr.: REGISTRACIJA CZ-PUTARINE"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 16")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "z.batinic@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
' Label14.Text = "PLATE NUMBER"
' lblMfg.Text = "Srdacan pozdrav"
Case "RO"
Label8.Text = "Stimate doamne, stimati domni," & vbNewLine & vbNewLine & "Cartele dvs de alimentare MSE-card noi , se pot ridica la centrala firmei VERAG din Suben." &
vbNewLine & vbNewLine & "pentru ca sant valabile doar pana la data de: " & gueltig
Label13.Text = "Soferii dvs pot ridica aceste carduri in timpul programului de lucru din Suben." &
"Program de lucru:" & vbTab & "LU-VI intre orele 6 - 22" &
vbNewLine & vbTab & vbTab & "SA intre orele 6- 13"
lblBetreff.Text = "REF: CARTELE ALIMENTARE MSE-Card!!!!"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 41")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "ma@verag.ag")
Label14.Text = "NUMERU DE CAMION"
lblMfg.Text = "Cu salutari cordiale"
End Select
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblKennzeichen.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
' lblMSENr.Text = cSqlDb.checkNullStr(Fields.Item("MSE-Kd-Nr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Shape.BackColor = System.Drawing.Color.White
Else
Shape.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
End Class

535
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungPL.Designer.vb generated Normal file
View File

@@ -0,0 +1,535 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSDLBenachrichtigungPL
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSDLBenachrichtigungPL))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label15 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKarteBox = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo3 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFAX = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnspr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMfg = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKarteBox, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.Label14, Me.Label15})
Me.PageHeader.Height = 0.2188976!
Me.PageHeader.Name = "PageHeader"
'
'Shape1
'
Me.Shape1.BackColor = System.Drawing.Color.Gainsboro
Me.Shape1.Height = 0.2188976!
Me.Shape1.Left = 0.7858268!
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
'
Me.Label14.Height = 0.1791339!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 1.129922!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "KENNZEICHEN"
Me.Label14.Top = 0!
Me.Label14.Width = 1.678741!
'
'Label15
'
Me.Label15.Height = 0.1791339!
Me.Label15.HyperLink = Nothing
Me.Label15.Left = 2.808662!
Me.Label15.Name = "Label15"
Me.Label15.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label15.Text = "Multi ServiceCard-Nr"
Me.Label15.Top = 0!
Me.Label15.Width = 2.802362!
'
'lblBetreff
'
Me.lblBetreff.Height = 0.1791339!
Me.lblBetreff.HyperLink = Nothing
Me.lblBetreff.Left = 0.6299213!
Me.lblBetreff.Name = "lblBetreff"
Me.lblBetreff.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblBetreff.Text = "Betr.: REGISTRIERUNG PL-MAUT"
Me.lblBetreff.Top = 3.714961!
Me.lblBetreff.Width = 3.543308!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.1480314!
Me.ReportInfo1.Left = 3.569292!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "color: Black; font-size: 8pt; text-align: right"
Me.ReportInfo1.SummaryGroup = ""
Me.ReportInfo1.Top = 1.862645E-9!
Me.ReportInfo1.Width = 3.478!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape, Me.lblKennzeichen, Me.lblKarteBox})
Me.Detail.Height = 0.2188976!
Me.Detail.Name = "Detail"
'
'Shape
'
Me.Shape.Height = 0.2188976!
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1791339!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 1.129922!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKennzeichen.Text = "KENNZEICHEN:"
Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.678741!
'
'lblKarteBox
'
Me.lblKarteBox.Height = 0.1791339!
Me.lblKarteBox.HyperLink = Nothing
Me.lblKarteBox.Left = 2.808662!
Me.lblKarteBox.Name = "lblKarteBox"
Me.lblKarteBox.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKarteBox.Text = "KARTE/BOX:"
Me.lblKarteBox.Top = 0.007874017!
Me.lblKarteBox.Width = 2.802363!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1})
Me.PageFooter.Height = 0.6769193!
Me.PageFooter.Name = "PageFooter"
'
'Line1
'
Me.Line1.Height = 0.00008109212!
Me.Line1.Left = 0.6299213!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1562992!
Me.Line1.Width = 6.417322!
Me.Line1.X1 = 0.6299213!
Me.Line1.X2 = 7.047243!
Me.Line1.Y1 = 0.1562992!
Me.Line1.Y2 = 0.1563803!
'
'Label21
'
Me.Label21.Height = 0.2728347!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.6299213!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 7.5pt; text-align: center"
Me.Label21.Text = resources.GetString("Label21.Text")
Me.Label21.Top = 0.2062992!
Me.Label21.Width = 6.417323!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo2, Me.picVERAG, Me.lbl, Me.Label1, Me.lblFirma, Me.Line3, Me.Line2, Me.Label2, Me.Label5, Me.Label6, Me.Label9, Me.Label10, Me.Label12, Me.ReportInfo3, Me.lblBetreff, Me.Label8, Me.lblFAX, Me.lblAnspr})
Me.ReportHeader1.Height = 5.342011!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "{RunDateTime:dd.MM.yyyy}"
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
Me.ReportInfo2.Width = 1.531496!
'
'picVERAG
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.2047244!
Me.picVERAG.Width = 2.552362!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.372442!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
'lblFirma
'
Me.lblFirma.Height = 0.6559067!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.129921!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.672441!
Me.lblFirma.Width = 3.043307!
'
'Line3
'
Me.Line3.Height = 0.0000808835!
Me.Line3.Left = 0.6299213!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8850393!
Me.Line3.Width = 6.417322!
Me.Line3.X1 = 0.6299213!
Me.Line3.X2 = 7.047243!
Me.Line3.Y1 = 0.8850393!
Me.Line3.Y2 = 0.8851202!
'
'Line2
'
Me.Line2.Height = 0.0000808239!
Me.Line2.Left = 0.6299213!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.407874!
Me.Line2.Width = 6.417322!
Me.Line2.X1 = 0.6299213!
Me.Line2.X2 = 7.047243!
Me.Line2.Y1 = 3.407874!
Me.Line2.Y2 = 3.407955!
'
'Label2
'
Me.Label2.Height = 0.1791339!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.6299214!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "An:"
Me.Label2.Top = 1.672441!
Me.Label2.Width = 0.4999999!
'
'Label5
'
Me.Label5.Height = 0.1791339!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.6299214!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "z.H.:"
Me.Label5.Top = 2.328347!
Me.Label5.Width = 0.4999999!
'
'Label6
'
Me.Label6.Height = 0.1791339!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.6299213!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "Datum:"
Me.Label6.Top = 2.686614!
Me.Label6.Width = 0.4999999!
'
'Label9
'
Me.Label9.Height = 0.1791339!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.6299213!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = "Anz. Seiten inkl. Deckblatt:"
Me.Label9.Top = 2.865748!
Me.Label9.Width = 1.583465!
'
'Label10
'
Me.Label10.Height = 0.1791339!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.6299213!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = "Sachbearbeiter:"
Me.Label10.Top = 3.044882!
Me.Label10.Width = 1.531496!
'
'Label12
'
Me.Label12.Height = 0.1791339!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
Me.Label12.Width = 1.531496!
'
'ReportInfo3
'
Me.ReportInfo3.FormatString = "{PageCount}"
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
Me.ReportInfo3.Width = 1.531496!
'
'Label8
'
Me.Label8.Height = 0.9948826!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.6299214!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Sehr geehrte Damen und Herren!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "folgende LKW wurden f<>r die Polnische Maut (VIATO" &
"LL) registriert:" & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label8.Top = 4.347244!
Me.Label8.Width = 6.417323!
'
'lblFAX
'
Me.lblFAX.Height = 0.1791339!
Me.lblFAX.HyperLink = Nothing
Me.lblFAX.Left = 3.182284!
Me.lblFAX.Name = "lblFAX"
Me.lblFAX.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblFAX.Text = ""
Me.lblFAX.Top = 0.5673229!
Me.lblFAX.Width = 3.888583!
'
'lblAnspr
'
Me.lblAnspr.Height = 0.1791337!
Me.lblAnspr.HyperLink = Nothing
Me.lblAnspr.Left = 1.129921!
Me.lblAnspr.Name = "lblAnspr"
Me.lblAnspr.Style = ""
Me.lblAnspr.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblAnspr.Top = 2.328347!
Me.lblAnspr.Width = 3.043307!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label13, Me.lblUnterschrift, Me.lblMfg})
Me.ReportFooter1.Height = 1.777067!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label13
'
Me.Label13.Height = 0.7728347!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "Der Fahrer kann die Post-Pay-Box an jedem viaTOLL-Verteiler abholen. Bitte die ""A" &
"ccount-Kartennummer"" dem Fahrer <20>bergeben." & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label13.Top = 0.2397638!
Me.Label13.Width = 6.417323!
'
'lblUnterschrift
'
Me.lblUnterschrift.Height = 0.1685039!
Me.lblUnterschrift.HyperLink = Nothing
Me.lblUnterschrift.Left = 0.6299213!
Me.lblUnterschrift.Name = "lblUnterschrift"
Me.lblUnterschrift.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblUnterschrift.Text = "i.A."
Me.lblUnterschrift.Top = 1.598031!
Me.lblUnterschrift.Width = 3.240158!
'
'lblMfg
'
Me.lblMfg.Height = 0.1685039!
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblMfg.Text = "Mit freundlichen Gr<47><72>en"
Me.lblMfg.Top = 1.012599!
Me.lblMfg.Width = 3.240158!
'
'rptSDLBenachrichtigungPL
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKarteBox, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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 picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBetreff As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo3 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUnterschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKarteBox As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFAX As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnspr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMfg As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

101
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungPL.vb Normal file
View File

@@ -0,0 +1,101 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungPL
Public sdlNr As Integer = -1
Public sdlText As String = ""
Public KdNr As Integer = -1
Public fahrer As Boolean = False
Public KUNDE As cKundenFMZOLL
Public cSqlDb As New cSqlDb
Public von As Date
Public bis As Date
Public sachbearbeiter As String
Public Sprache As String = "DE"
Public ds = Nothing
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If KdNr <= 0 Then MsgBox("Keine Kunden-Nr angegeben!") : Exit Sub
' If sdlNr <= 0 Then Exit Sub
Dim kundenSQL As New kundenSQL
Me.DataSource = ds
KUNDE = kundenSQL.getKundeFMZOLLByKdNr(KdNr)
lblFirma.Text = KUNDE.Name_1 & vbNewLine &
IIf(KUNDE.Name_2 <> "", KUNDE.Name_2 & vbNewLine, "") &
KUNDE.Stra<EFBFBD>e & vbNewLine & vbNewLine &
KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
lblAnspr.Text = KUNDE.Ansprechpartner
lblUnterschrift.Text = "i.A. " & sachbearbeiter
Label12.Text = sachbearbeiter
If KUNDE.Telefax <> "" Then : lblFAX.Text = "FAX-Nr.: " & KUNDE.Telefax
ElseIf KUNDE.E_Mail <> "" Then : lblFAX.Text = "E-Mail: " & KUNDE.E_Mail
End If
Select Case Sprache
Case "DE"
Case "TR"
Label8.Text = "Sayin Yetkili," & vbNewLine & vbNewLine & "YeniSof<EFBFBD>rleriniz PL Otomatik Cihazini alabilmesi icin, asagida belirtmis oldugum Kodu ile " & vbNewLine & "M<EFBFBD>racaat ederek, yeni Cihazini almasi ve Otomatik Maut icin dahil olmasi gerekmektedir!"
Label13.Text = ""
lblBetreff.Text = "Konu: PL VIA-Box cihazi icin Barkod"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 56")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "maut.tr@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "PLATE NUMBER"
' Label15.Text = "KART/CIHAZ"
lblMfg.Text = "Mit freundlichen Gr<47><72>en / Saygilarimla"
Case "YU"
Label8.Text = "Postovane dame i gospodo," & vbNewLine & vbNewLine & "sljedeci kamioni su registrirani za poljsku putarinu (VIATOLL):"
Label13.Text = "Vozac moze da preuzme POST-PAY-kutiju kod svakog VIATOLL-distributora! Molim da svakom vozacu prosljedite navedeni 'Account-Card-Number'."
lblBetreff.Text = "Betr.: REGISTRACIJA PL-PUTARINE"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 16")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "z.batinic@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "PLATE NUMBER"
' Label15.Text = "KARTICE/BOKSOVE"
lblMfg.Text = "Srdacan pozdrav"
Case "RO"
If False Then
Label8.Text = "Stimate client!" & vbNewLine & vbNewLine & "Va rug<75>m s<> ridicati cartelele comandate de la sediul nostru:"
Label13.Text = "Va rugam sa redirectionati codurile pin soferilor dvs."
lblBetreff.Text = "REF: INFORMARE"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 41")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "ma@verag.ag")
Label14.Text = "PLATE NUMBER"
' Label15.Text = "CARTELA/BOX"
lblMfg.Text = "Multumim pentru colaborare cu Respect"
End If
End Select
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblKennzeichen.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
lblKarteBox.Text = cSqlDb.checkNullStr(Fields.Item("MSE-Kd-Nr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Shape.BackColor = Color.White
Else
Shape.BackColor = Color.WhiteSmoke
End If
End Sub
End Class

551
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungUTA.Designer.vb generated Normal file
View File

@@ -0,0 +1,551 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptSDLBenachrichtigungUTA
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptSDLBenachrichtigungUTA))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.lblKennzeichen = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label21 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportInfo2 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportInfo3 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblFAX = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnspr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetreff = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMfg = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label17 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.Label14})
Me.PageHeader.Height = 0.2188976!
Me.PageHeader.Name = "PageHeader"
'
'Shape1
'
Me.Shape1.BackColor = System.Drawing.Color.Gainsboro
Me.Shape1.Height = 0.2188976!
Me.Shape1.Left = 0.7858268!
Me.Shape1.LineWeight = 2.0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 6.285039!
'
'Label14
'
Me.Label14.Height = 0.1791339!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 1.235433!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label14.Text = "BROJ KAMIONA"
Me.Label14.Top = 0.007874017!
Me.Label14.Width = 1.678741!
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.1480314!
Me.ReportInfo1.Left = 3.569292!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "color: Black; font-size: 8pt; text-align: right"
Me.ReportInfo1.SummaryGroup = ""
Me.ReportInfo1.Top = 1.862645E-9!
Me.ReportInfo1.Width = 3.478!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape, Me.lblKennzeichen})
Me.Detail.Height = 0.2188976!
Me.Detail.Name = "Detail"
'
'Shape
'
Me.Shape.Height = 0.2188976!
Me.Shape.Left = 0.7858268!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0!
Me.Shape.Width = 6.28504!
'
'lblKennzeichen
'
Me.lblKennzeichen.Height = 0.1791339!
Me.lblKennzeichen.HyperLink = Nothing
Me.lblKennzeichen.Left = 1.235433!
Me.lblKennzeichen.Name = "lblKennzeichen"
Me.lblKennzeichen.Style = "font-size: 12pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblKennzeichen.Text = "KENNZEICHEN:"
Me.lblKennzeichen.Top = 0.007874017!
Me.lblKennzeichen.Width = 1.76378!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line1, Me.Label21, Me.ReportInfo1})
Me.PageFooter.Height = 0.6769193!
Me.PageFooter.Name = "PageFooter"
'
'Line1
'
Me.Line1.Height = 0.00008109212!
Me.Line1.Left = 0.6299213!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1562992!
Me.Line1.Width = 6.417322!
Me.Line1.X1 = 0.6299213!
Me.Line1.X2 = 7.047243!
Me.Line1.Y1 = 0.1562992!
Me.Line1.Y2 = 0.1563803!
'
'Label21
'
Me.Label21.Height = 0.2728347!
Me.Label21.HyperLink = Nothing
Me.Label21.Left = 0.6299213!
Me.Label21.Name = "Label21"
Me.Label21.Style = "font-size: 7.5pt; text-align: center"
Me.Label21.Text = resources.GetString("Label21.Text")
Me.Label21.Top = 0.2062992!
Me.Label21.Width = 6.417323!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo2, Me.picVERAG, Me.lbl, Me.Label1, Me.lblFirma, Me.Line3, Me.Line2, Me.Label2, Me.Label5, Me.Label6, Me.Label9, Me.Label10, Me.Label12, Me.ReportInfo3, Me.lblFAX, Me.lblAnspr, Me.lblBetreff, Me.Label8})
Me.ReportHeader1.Height = 5.029511!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "{RunDateTime:dd.MM.yyyy}"
Me.ReportInfo2.Height = 0.1791338!
Me.ReportInfo2.Left = 2.213386!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo2.SummaryGroup = ""
Me.ReportInfo2.Top = 2.686614!
Me.ReportInfo2.Width = 1.531496!
'
'picVERAG
'
Me.picVERAG.Height = 0.5417323!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 0.6299213!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.2047244!
Me.picVERAG.Width = 2.552362!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 5.094489!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 10pt; font-weight: bold; text-align: left"
Me.lbl.Text = "VERAG 360 GmbH"
Me.lbl.Top = 1.472441!
Me.lbl.Width = 2.031496!
'
'Label1
'
Me.Label1.Height = 1.372442!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 5.094489!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; text-align: left"
Me.Label1.Text = "Suben 100" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "A 4975 Suben" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 2777 - 0" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Tel. +43 7711 3386" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "yu@verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FN: 544732b" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "UID: ATU 76165837"
Me.Label1.Top = 1.67244!
Me.Label1.Width = 2.031496!
'
'lblFirma
'
Me.lblFirma.Height = 0.6559067!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 1.129921!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = ""
Me.lblFirma.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblFirma.Top = 1.672441!
Me.lblFirma.Width = 3.043307!
'
'Line3
'
Me.Line3.Height = 0.0000808835!
Me.Line3.Left = 0.6299213!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.8850393!
Me.Line3.Width = 6.417322!
Me.Line3.X1 = 0.6299213!
Me.Line3.X2 = 7.047243!
Me.Line3.Y1 = 0.8850393!
Me.Line3.Y2 = 0.8851202!
'
'Line2
'
Me.Line2.Height = 0.0000808239!
Me.Line2.Left = 0.6299213!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 3.407874!
Me.Line2.Width = 6.417322!
Me.Line2.X1 = 0.6299213!
Me.Line2.X2 = 7.047243!
Me.Line2.Y1 = 3.407874!
Me.Line2.Y2 = 3.407955!
'
'Label2
'
Me.Label2.Height = 0.1791339!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.6299214!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label2.Text = "An:"
Me.Label2.Top = 1.672441!
Me.Label2.Width = 0.4999999!
'
'Label5
'
Me.Label5.Height = 0.1791339!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.6299214!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left"
Me.Label5.Text = "z.H.:"
Me.Label5.Top = 2.328347!
Me.Label5.Width = 0.4999999!
'
'Label6
'
Me.Label6.Height = 0.1791339!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.6299213!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label6.Text = "Datum:"
Me.Label6.Top = 2.686614!
Me.Label6.Width = 0.4999999!
'
'Label9
'
Me.Label9.Height = 0.1791339!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.6299213!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label9.Text = "Anz. Seiten inkl. Deckblatt:"
Me.Label9.Top = 2.865748!
Me.Label9.Width = 1.583465!
'
'Label10
'
Me.Label10.Height = 0.1791339!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.6299213!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label10.Text = "Sachbearbeiter:"
Me.Label10.Top = 3.044882!
Me.Label10.Width = 1.531496!
'
'Label12
'
Me.Label12.Height = 0.1791339!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.213386!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 8.25pt; font-weight: normal; text-a" &
"lign: left; ddo-char-set: 0"
Me.Label12.Text = "TEST"
Me.Label12.Top = 3.044882!
Me.Label12.Width = 1.531496!
'
'ReportInfo3
'
Me.ReportInfo3.FormatString = "{PageCount}"
Me.ReportInfo3.Height = 0.1791338!
Me.ReportInfo3.Left = 2.213386!
Me.ReportInfo3.Name = "ReportInfo3"
Me.ReportInfo3.Style = "color: Black; font-family: Microsoft Sans Serif; font-size: 8.25pt; text-align: l" &
"eft; ddo-char-set: 0"
Me.ReportInfo3.SummaryGroup = ""
Me.ReportInfo3.Top = 2.865748!
Me.ReportInfo3.Width = 1.531496!
'
'lblFAX
'
Me.lblFAX.Height = 0.1791339!
Me.lblFAX.HyperLink = Nothing
Me.lblFAX.Left = 3.182284!
Me.lblFAX.Name = "lblFAX"
Me.lblFAX.Style = "font-size: 12pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblFAX.Text = ""
Me.lblFAX.Top = 0.5673229!
Me.lblFAX.Width = 3.888583!
'
'lblAnspr
'
Me.lblAnspr.Height = 0.1791337!
Me.lblAnspr.HyperLink = Nothing
Me.lblAnspr.Left = 1.129921!
Me.lblAnspr.Name = "lblAnspr"
Me.lblAnspr.Style = ""
Me.lblAnspr.Text = "TESTFIRMA" & Global.Microsoft.VisualBasic.ChrW(10)
Me.lblAnspr.Top = 2.328347!
Me.lblAnspr.Width = 3.043307!
'
'lblBetreff
'
Me.lblBetreff.Height = 0.1791339!
Me.lblBetreff.HyperLink = Nothing
Me.lblBetreff.Left = 0.6299213!
Me.lblBetreff.Name = "lblBetreff"
Me.lblBetreff.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblBetreff.Text = "Betr.: NOVE UTA KARTICE!!!!"
Me.lblBetreff.Top = 3.589764!
Me.lblBetreff.Width = 3.543308!
'
'Label8
'
Me.Label8.Height = 1.057086!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.6299213!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label8.Text = "Postovane dame i gospodo!" & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(10) & "Stigle su Vam nove UTA-kartice!! Stare vrijede samo jo" &
"s do ! Nove kartice su aktivne i mogu vec da se koriste!!! Molim Vas da hit" &
"no zamjente kartice i unistite stare!"
Me.Label8.Top = 3.940552!
Me.Label8.Width = 6.417323!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label13, Me.lblUnterschrift, Me.lblMfg, Me.Label11, Me.Label16, Me.Label17})
Me.ReportFooter1.Height = 3.402066!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label13
'
Me.Label13.Height = 0.5251969!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.6299213!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label13.Text = "Vozac moze preuzet tokom naseg radnog vrijemena u Subenu."
Me.Label13.Top = 0.5027559!
Me.Label13.Width = 6.417323!
'
'lblUnterschrift
'
Me.lblUnterschrift.Height = 0.1685039!
Me.lblUnterschrift.HyperLink = Nothing
Me.lblUnterschrift.Left = 0.6299213!
Me.lblUnterschrift.Name = "lblUnterschrift"
Me.lblUnterschrift.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblUnterschrift.Text = "i.A."
Me.lblUnterschrift.Top = 3.182678!
Me.lblUnterschrift.Width = 3.240158!
'
'lblMfg
'
Me.lblMfg.Height = 0.214567!
Me.lblMfg.HyperLink = Nothing
Me.lblMfg.Left = 0.6299213!
Me.lblMfg.Name = "lblMfg"
Me.lblMfg.Style = "font-size: 11pt; font-weight: normal; text-align: left; vertical-align: top; ddo-" &
"char-set: 1"
Me.lblMfg.Text = "Srdacan pozdrav!"
Me.lblMfg.Top = 2.704725!
Me.lblMfg.Width = 3.240157!
'
'Label11
'
Me.Label11.Height = 1.414567!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 0.6299213!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label11.Text = resources.GetString("Label11.Text")
Me.Label11.Top = 1.290158!
Me.Label11.Width = 6.417323!
'
'Label16
'
Me.Label16.Height = 0.303937!
Me.Label16.HyperLink = Nothing
Me.Label16.Left = 0.6299213!
Me.Label16.Name = "Label16"
Me.Label16.Style = "font-size: 14pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label16.Text = "PIN-OVI OSTAJU ISTI!!!!!"
Me.Label16.Top = 0.1988189!
Me.Label16.Width = 6.417323!
'
'Label17
'
Me.Label17.Height = 0.2622048!
Me.Label17.HyperLink = Nothing
Me.Label17.Left = 0.6535434!
Me.Label17.Name = "Label17"
Me.Label17.Style = "font-size: 14pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label17.Text = "P A Z N J A :"
Me.Label17.Top = 1.027953!
Me.Label17.Width = 6.417323!
'
'rptSDLBenachrichtigungUTA
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKennzeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFAX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetreff, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMfg, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
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 picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label21 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo3 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblUnterschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents lblKennzeichen As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFAX As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnspr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMfg As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBetreff As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

103
SDL/ARConverterBackup2/Reports/MDM/rptSDLBenachrichtigung/rptSDLBenachrichtigungUTA.vb Normal file
View File

@@ -0,0 +1,103 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSDLBenachrichtigungUTA
Public sdlNr As Integer = -1
Public sdlText As String = ""
Public KdNr As Integer = -1
Public fahrer As Boolean = False
Public KUNDE As cKundenFMZOLL
Public cSqlDb As New cSqlDb
Public von As Date
Public bis As Date
Public sachbearbeiter As String
Public Sprache As String = "DE"
Public ds = Nothing
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If KdNr <= 0 Then MsgBox("Keine Kunden-Nr angegeben!") : Exit Sub
' If sdlNr <= 0 Then Exit Sub
Dim kundenSQL As New kundenSQL
Me.DataSource = ds
KUNDE = kundenSQL.getKundeFMZOLLByKdNr(KdNr)
lblFirma.Text = KUNDE.Name_1 & vbNewLine &
IIf(KUNDE.Name_2 <> "", KUNDE.Name_2 & vbNewLine, "") &
KUNDE.Stra<EFBFBD>e & vbNewLine & vbNewLine &
KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort
lblAnspr.Text = KUNDE.Ansprechpartner
lblUnterschrift.Text = "i.A. " & sachbearbeiter
Label12.Text = sachbearbeiter
If KUNDE.Telefax <> "" Then : lblFAX.Text = "FAX-Nr.: " & KUNDE.Telefax
ElseIf KUNDE.E_Mail <> "" Then : lblFAX.Text = "E-Mail: " & KUNDE.E_Mail
End If
Dim gueltig = InputBox("Bitte geben Sie das g<>ltigkeitsdatum an:", "G<EFBFBD>ltig bis", "")
Select Case Sprache
Case "DE"
Case "TR"
If False Then
Label8.Text = "Sayin Yetkili," & vbNewLine & vbNewLine & "Sof<EFBFBD>rleriniz Cek Otomatik Cihazini alabilmesi icin, asagida belirtmis oldugum Kodu ile " & vbNewLine & "M<EFBFBD>racaat ederek, yeni Cihazini almasi ve Otomatik Maut icin dahil olmasi gerekmektedir!"
Label13.Text = ""
lblBetreff.Text = "Konu: CEK Premid-Box cihazi icin Barkod"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 56")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "maut.tr@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
Label14.Text = "PLAKA"
lblMfg.Text = "Mit freundlichen Gr<47><72>en / Saygilarimla"
End If
Case "YU"
Label8.Text = "Postovane dame i gospodo," & vbNewLine & vbNewLine & "stigle su Vam nove UTA-kartice!! Stare vrijede samo jos do : " & gueltig & " " & "! Nove kartice su aktivne i mogu vec da se koriste!!! Molim Vas da hitno zamjente kartice i unistite stare!"
'Label8.Text = "Postovane dame i gospodo," & vbNewLine & vbNewLine & "sljedeci kamioni su registrirani za cesku putarinu (PREMID):"
' Label13.Text = "Vozac moze da preuzme POST-PAY-kutiju kod svakog PREMID-distributora!"
' lblBetreff.Text = "Betr.: REGISTRACIJA CZ-PUTARINE"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 16")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "z.batinic@verag.ag")
Label1.Text = Label1.Text.Replace("3386", "33155")
' Label14.Text = "PLATE NUMBER"
' lblMfg.Text = "Srdacan pozdrav"
Case "RO"
Label8.Text = "Stimate doamne, stimati domni," & vbNewLine & vbNewLine & "Cartele dvs de alimentare UTA-card noi , se pot ridica la centrala firmei VERAG din Suben." &
vbNewLine & vbNewLine & "pentru ca cardurile vechii sunt valabile doar pana la data de: " & gueltig
Label13.Text = "Soferii dvs pot ridica aceste carduri in timpul programului de lucru din Suben." & vbNewLine &
"Program de lucru:" & vbTab & "LU-VI intre orele 6 - 22" &
vbNewLine & vbTab & vbTab & vbTab & "SA intre orele 6- 13"
lblBetreff.Text = "REF: CARTELE ALIMENTARE UTA-Card!!!!"
Label16.Text = "Va rugam sa redirectionati codurile pin de la cartela VECHE!!!!!"
Label1.Text = Label1.Text.Replace("2777 - 0", "2777 - 41")
Label1.Text = Label1.Text.Replace("yu@verag.ag", "ma@verag.ag")
Label17.Text = "A T E N T I E !!!"
Label11.Text = "In cazul in care ati setat boxele de BE /SLO in sistemul de taxare automat POST-PAY prin cartela de taxe UTA, sa nu ezitati sa o activati pe cea noua inante de a expira cea veche ." &
vbNewLine & "Altfel, o sa aveti supriza ca boxele dvs sau blocat " & vbNewLine & vbNewLine &
"BELGIA:" & vbNewLine &
"Activarea cartelelor noi UTA pentru boxele SATELIC in sistem automat POST-PAY se face doar in portalul <20>SATELLIC. Mai antai trebuie sa va inregistrati in acest portal , dupa care va schimbati doar numarul cartelei UTA, altfel boxele dvs sa vor bloca."
Label14.Text = "NUMERU DE CAMION"
lblMfg.Text = "Cu salutari cordiale"
End Select
End Sub
Dim dummycount As Integer = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount += 1
lblKennzeichen.Text = cSqlDb.checkNullStr(Fields.Item("KfzKennzeichen").Value)
'lblMSENr.Text = cSqlDb.checkNullStr(Fields.Item("MSE-Kd-Nr").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Shape.BackColor = System.Drawing.Color.White
Else
Shape.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
End Class

100
SDL/ARConverterBackup2/Reports/MDM/subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.Designer.vb generated Normal file
View File

@@ -0,0 +1,100 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
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 Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtDetailsBetrag = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDetailsLand = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDetailsVon = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDetailsBis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtDetailsBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDetailsLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDetailsVon, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDetailsBis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtDetailsBetrag, Me.txtDetailsLand, Me.txtDetailsVon, Me.txtDetailsBis})
Me.Detail.Height = 0.1678723!
Me.Detail.Name = "Detail"
'
'txtDetailsBetrag
'
Me.txtDetailsBetrag.Height = 0.1586614!
Me.txtDetailsBetrag.Left = 4.474803!
Me.txtDetailsBetrag.Name = "txtDetailsBetrag"
Me.txtDetailsBetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.txtDetailsBetrag.Text = "Betraege"
Me.txtDetailsBetrag.Top = 0.009210958!
Me.txtDetailsBetrag.Width = 1.02126!
'
'txtDetailsLand
'
Me.txtDetailsLand.Height = 0.1586614!
Me.txtDetailsLand.Left = 1.175197!
Me.txtDetailsLand.Name = "txtDetailsLand"
Me.txtDetailsLand.Style = "font-size: 8pt"
Me.txtDetailsLand.Text = "kdnr"
Me.txtDetailsLand.Top = 0.0!
Me.txtDetailsLand.Width = 0.9688979!
'
'txtDetailsVon
'
Me.txtDetailsVon.Height = 0.1586614!
Me.txtDetailsVon.Left = 2.144096!
Me.txtDetailsVon.Name = "txtDetailsVon"
Me.txtDetailsVon.Style = "font-size: 8pt"
Me.txtDetailsVon.Text = "kdnr"
Me.txtDetailsVon.Top = 0.0!
Me.txtDetailsVon.Width = 0.9688979!
'
'txtDetailsBis
'
Me.txtDetailsBis.Height = 0.1586614!
Me.txtDetailsBis.Left = 3.112994!
Me.txtDetailsBis.Name = "txtDetailsBis"
Me.txtDetailsBis.Style = "font-size: 8pt"
Me.txtDetailsBis.Text = "kdnr"
Me.txtDetailsBis.Top = 0.0!
Me.txtDetailsBis.Width = 0.9688979!
'
'subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
Me.Sections.Add(Me.Detail)
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.txtDetailsBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDetailsLand, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDetailsVon, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDetailsBis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtDetailsBetrag As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDetailsLand As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDetailsVon As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDetailsBis As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

82
SDL/ARConverterBackup2/Reports/MDM/subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails.vb Normal file
View File

@@ -0,0 +1,82 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class subrptAuswertungMWSTOffeneAntraegeMitVorauszahlungDetails
Public kdnr As String
Public datVon As Date
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
' Me.Name = "Auswertung offene Antr<74>ge mit Vorauszahlung"
'lblHeader.Text = Me.Name
'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
Dim sqlStr As String = " SELECT [L<>nderverzeichnis f<>r die Au<41>enhandelsstatistik].LandKz as Land,UStVAn_ReDatVon as von,UStVAn_ReDatBis as bis,([UStVAn_USteuerbetragEUR]-[UStVAn_ErstattungsbetragEUR]) as Betrag" &
" FROM tblUStVAntrag INNER JOIN [L<>nderverzeichnis f<>r die Au<41>enhandelsstatistik] ON tblUStVAntrag.UStVAn_LandNr = [L<>nderverzeichnis f<>r die Au<41>enhandelsstatistik].LandNr" &
" INNER JOIN Adressen on Adressen.AdressenNr=tblUStVAntrag.UStVAn_KuNr " &
" WHERE tblUStVAntrag.UStVAn_KuNr = '" & kdnr & "' " &
" and UStVAn_ReDatVon >='" & datVon.ToShortDateString & "' " &
" and UStVAn_ReDatBis <=GETDATE() " &
" and ([UStVAn_USteuerbetrag]-[UStVAn_Erstattungsbetrag])>0 " &
" and Adressen.MWSTVorauszahlung is not null " &
" and Adressen.MWSTVorauszahlung = 1 " &
" and UStVAn_VZBetrag is null "
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL")
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
txtDetailsLand.Text = nullStr(Fields.Item("Land").Value)
txtDetailsVon.Text = nullStr(Fields.Item("von").Value)
txtDetailsBis.Text = nullStr(Fields.Item("bis").Value)
If Not Fields.Item("Betrag").Value Is DBNull.Value Then
txtDetailsBetrag.Text = "<EFBFBD> " & CDbl(Fields.Item("Betrag").Value).ToString("N2", CultureInfo.InvariantCulture)
End If
'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
Function nullStr(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CStr(o)
Catch ex As Exception
Return ""
End Try
End Function
End Class

120
SDL/ARConverterBackup2/Reports/MDM/subrptAuswertungUeberfaelligeBestellungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,120 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptAuswertungUeberfaelligeBestellungen
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(subrptAuswertungUeberfaelligeBestellungen))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblKundenNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFirmenwortlaut = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBestelldat = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
CType(Me.lblKundenNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirmenwortlaut, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBestelldat, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0.0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblKundenNr, Me.lblFirmenwortlaut, Me.lblLKW, Me.lblBestelldat})
Me.Detail.Height = 0.1586614!
Me.Detail.Name = "Detail"
'
'lblKundenNr
'
Me.lblKundenNr.Height = 0.1586614!
Me.lblKundenNr.HyperLink = Nothing
Me.lblKundenNr.Left = 1.796457!
Me.lblKundenNr.Name = "lblKundenNr"
Me.lblKundenNr.Style = "font-size: 8pt; font-weight: normal; text-align: center"
Me.lblKundenNr.Text = "KdNr"
Me.lblKundenNr.Top = 0.0!
Me.lblKundenNr.Width = 0.7874016!
'
'lblFirmenwortlaut
'
Me.lblFirmenwortlaut.Height = 0.1586614!
Me.lblFirmenwortlaut.HyperLink = Nothing
Me.lblFirmenwortlaut.Left = 2.583859!
Me.lblFirmenwortlaut.Name = "lblFirmenwortlaut"
Me.lblFirmenwortlaut.Style = "font-size: 8pt; font-weight: normal; text-align: left"
Me.lblFirmenwortlaut.Text = "Firma"
Me.lblFirmenwortlaut.Top = 0.0!
Me.lblFirmenwortlaut.Width = 3.426379!
'
'lblLKW
'
Me.lblLKW.Height = 0.1586614!
Me.lblLKW.HyperLink = Nothing
Me.lblLKW.Left = 6.010237!
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 8pt; font-weight: normal; text-align: left"
Me.lblLKW.Text = "LKW-Kennzeichen"
Me.lblLKW.Top = 0.0!
Me.lblLKW.Width = 1.666929!
'
'lblBestelldat
'
Me.lblBestelldat.Height = 0.1586614!
Me.lblBestelldat.HyperLink = Nothing
Me.lblBestelldat.Left = 0.7649607!
Me.lblBestelldat.Name = "lblBestelldat"
Me.lblBestelldat.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblBestelldat.Text = "Bestelldatum"
Me.lblBestelldat.Top = 0.0!
Me.lblBestelldat.Width = 1.031496!
'
'PageFooter
'
Me.PageFooter.Height = 0.0!
Me.PageFooter.Name = "PageFooter"
'
'subrptAuswertungUeberfaelligeBestellungen
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
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.lblKundenNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirmenwortlaut, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBestelldat, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblKundenNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblFirmenwortlaut As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBestelldat As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

42
SDL/ARConverterBackup2/Reports/MDM/subrptAuswertungUeberfaelligeBestellungen.vb Normal file
View File

@@ -0,0 +1,42 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptAuswertungUeberfaelligeBestellungen
Public sqlStr = ""
Sub New(sqlStr)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.sqlStr = sqlStr
End Sub
Private Sub subrptAuswertungUeberfaelligeBestellungen_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
' MsgBox(sqlStr)
Dim kundenSQL As New kundenSQL
Dim dt As DataTable = kundenSQL.loadDgvBySql(sqlStr, "SDL")
'MsgBox(dt.Rows.Count)
Me.DataSource = dt
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
lblKundenNr.Text = CStr(Fields.Item("KundenNr").Value)
lblFirmenwortlaut.Text = CStr(Fields.Item("Ordnungsbegriff").Value)
lblBestelldat.Text = CDate(Fields.Item("Bestelldatum").Value).ToShortDateString
lblLKW.Text = CStr(Fields.Item("KfzKennzeichen").Value)
'lblFirmenwortlaut.Text = CStr(Fields.Item("Ordnungsbegriff").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
End Class

567
SDL/ARConverterBackup2/Reports/Zoll/rptAufschubabgleich.Designer.vb generated Normal file
View File

@@ -0,0 +1,567 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptAufschubabgleich
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 PageFooter As GrapeCity.ActiveReports.SectionReportModel.PageFooter
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptAufschubabgleich))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeOffenerSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnnahme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestellung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblAbfertigungsort = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAKTO = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblATC = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBUDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetrag = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFakturiert = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDifferenz = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFaelligkeit = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKontoBez = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblBetragSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFakturiertSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDifferenzSum = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbfertigungsort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAKTO, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblATC, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBUDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDifferenz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKontoBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFakturiertSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDifferenzSum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label3, Me.Label11, Me.Label4, Me.Label12, Me.lblSummeOffenerSachbearbeiter, Me.lblBezugsnummer, Me.lblAnnahme, Me.lblGestellung, Me.Line1})
Me.PageHeader.Height = 0.186554!
Me.PageHeader.Name = "PageHeader"
'
'Label3
'
Me.Label3.Height = 0.1480315!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 8.646064!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label3.Text = "Kommentar"
Me.Label3.Top = 0.03031496!
Me.Label3.Width = 2.441339!
'
'Label11
'
Me.Label11.Height = 0.1480315!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 5.846851!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label11.Text = "Betrag"
Me.Label11.Top = 0.0287402!
Me.Label11.Width = 0.9330705!
'
'Label4
'
Me.Label4.Height = 0.1480315!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.779922!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Fakturiert"
Me.Label4.Top = 0.0287402!
Me.Label4.Width = 0.9330708!
'
'Label12
'
Me.Label12.Height = 0.1480315!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 7.712993!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label12.Text = "Differenz"
Me.Label12.Top = 0.0287402!
Me.Label12.Width = 0.9330708!
'
'lblSummeOffenerSachbearbeiter
'
Me.lblSummeOffenerSachbearbeiter.Height = 0.1480315!
Me.lblSummeOffenerSachbearbeiter.HyperLink = Nothing
Me.lblSummeOffenerSachbearbeiter.Left = 3.561418!
Me.lblSummeOffenerSachbearbeiter.Name = "lblSummeOffenerSachbearbeiter"
Me.lblSummeOffenerSachbearbeiter.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffenerSachbearbeiter.Text = "Abfertigungsort"
Me.lblSummeOffenerSachbearbeiter.Top = 0.02874016!
Me.lblSummeOffenerSachbearbeiter.Width = 2.285433!
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1478346!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.0000001192093!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "Aufschubkonto"
Me.lblBezugsnummer.Top = 0.03031496!
Me.lblBezugsnummer.Width = 0.98937!
'
'lblAnnahme
'
Me.lblAnnahme.Height = 0.1478347!
Me.lblAnnahme.HyperLink = Nothing
Me.lblAnnahme.Left = 0.9893702!
Me.lblAnnahme.Name = "lblAnnahme"
Me.lblAnnahme.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnnahme.Text = "Registriernumer"
Me.lblAnnahme.Top = 0.02992126!
Me.lblAnnahme.Width = 1.757087!
'
'lblGestellung
'
Me.lblGestellung.Height = 0.1478347!
Me.lblGestellung.HyperLink = Nothing
Me.lblGestellung.Left = 2.746457!
Me.lblGestellung.Name = "lblGestellung"
Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestellung.Text = "Bu.-Datum"
Me.lblGestellung.Top = 0.02913386!
Me.lblGestellung.Width = 0.8!
'
'Line1
'
Me.Line1.Height = 0.00008200109!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1795276!
Me.Line1.Width = 11.10236!
Me.Line1.X1 = 0!
Me.Line1.X2 = 11.10236!
Me.Line1.Y1 = 0.1795276!
Me.Line1.Y2 = 0.1796096!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAbfertigungsort, Me.lblAKTO, Me.lblATC, Me.lblBUDatValue, Me.lblBetrag, Me.lblFakturiert, Me.lblDifferenz, Me.Label6})
Me.Detail.Height = 0.1896982!
Me.Detail.Name = "Detail"
'
'lblAbfertigungsort
'
Me.lblAbfertigungsort.Height = 0.1379921!
Me.lblAbfertigungsort.HyperLink = Nothing
Me.lblAbfertigungsort.Left = 3.561418!
Me.lblAbfertigungsort.Name = "lblAbfertigungsort"
Me.lblAbfertigungsort.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" &
"ap"
Me.lblAbfertigungsort.Text = "-"
Me.lblAbfertigungsort.Top = 2.793968E-9!
Me.lblAbfertigungsort.Width = 2.285433!
'
'lblAKTO
'
Me.lblAKTO.Height = 0.1374016!
Me.lblAKTO.HyperLink = Nothing
Me.lblAKTO.Left = 0!
Me.lblAKTO.Name = "lblAKTO"
Me.lblAKTO.Style = "font-size: 8pt; font-weight: normal; ddo-char-set: 1"
Me.lblAKTO.Text = "-"
Me.lblAKTO.Top = 0.0003937008!
Me.lblAKTO.Width = 0.98937!
'
'lblATC
'
Me.lblATC.Height = 0.1377953!
Me.lblATC.HyperLink = Nothing
Me.lblATC.Left = 0.9893702!
Me.lblATC.Name = "lblATC"
Me.lblATC.Style = "font-size: 8pt; font-weight: normal; white-space: inherit; ddo-wrap-mode: char-wr" &
"ap"
Me.lblATC.Text = "-"
Me.lblATC.Top = 0.003149613!
Me.lblATC.Width = 1.757087!
'
'lblBUDatValue
'
Me.lblBUDatValue.Height = 0.1377953!
Me.lblBUDatValue.HyperLink = Nothing
Me.lblBUDatValue.Left = 2.746457!
Me.lblBUDatValue.Name = "lblBUDatValue"
Me.lblBUDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblBUDatValue.Text = "-"
Me.lblBUDatValue.Top = 4.656613E-9!
Me.lblBUDatValue.Width = 0.8149602!
'
'lblBetrag
'
Me.lblBetrag.Height = 0.1480315!
Me.lblBetrag.HyperLink = Nothing
Me.lblBetrag.Left = 5.846851!
Me.lblBetrag.Name = "lblBetrag"
Me.lblBetrag.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblBetrag.Text = "Betrag"
Me.lblBetrag.Top = 0.00000004470348!
Me.lblBetrag.Width = 0.9330708!
'
'lblFakturiert
'
Me.lblFakturiert.Height = 0.1480315!
Me.lblFakturiert.HyperLink = Nothing
Me.lblFakturiert.Left = 6.779922!
Me.lblFakturiert.Name = "lblFakturiert"
Me.lblFakturiert.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblFakturiert.Text = "Fakturiert"
Me.lblFakturiert.Top = 0.00000004470348!
Me.lblFakturiert.Width = 0.9330708!
'
'lblDifferenz
'
Me.lblDifferenz.Height = 0.1480315!
Me.lblDifferenz.HyperLink = Nothing
Me.lblDifferenz.Left = 7.712993!
Me.lblDifferenz.Name = "lblDifferenz"
Me.lblDifferenz.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblDifferenz.Text = "Differenz"
Me.lblDifferenz.Top = 0.00000004470348!
Me.lblDifferenz.Width = 0.9330708!
'
'Label6
'
Me.Label6.Height = 0.1480315!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 8.646064!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.Label6.Text = ""
Me.Label6.Top = 0!
Me.Label6.Width = 2.441339!
'
'lblFaelligkeit
'
Me.lblFaelligkeit.Height = 0.1379921!
Me.lblFaelligkeit.HyperLink = Nothing
Me.lblFaelligkeit.Left = 1.18937!
Me.lblFaelligkeit.Name = "lblFaelligkeit"
Me.lblFaelligkeit.Style = "font-size: 8pt; font-weight: normal"
Me.lblFaelligkeit.Text = "-"
Me.lblFaelligkeit.Top = 0.6374016!
Me.lblFaelligkeit.Width = 5.171654!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2048064!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 7.609449!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.05669292!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.02598425!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.05669292!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 4.167717!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.05708662!
Me.Label8.Width = 2.193284!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.05708662!
Me.Line2.Width = 11.10236!
Me.Line2.X1 = 0!
Me.Line2.X2 = 11.10236!
Me.Line2.Y1 = 0.05708662!
Me.Line2.Y2 = 0.05716864!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.lblKontoBez, Me.Label5, Me.lblFaelligkeit, Me.Label1})
Me.ReportHeader1.Height = 0.9941437!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 8.410236!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
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) & "Aufschubkonten - Abgleich Fakturierung"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.000394!
'
'lblKontoBez
'
Me.lblKontoBez.Height = 0.1374017!
Me.lblKontoBez.HyperLink = Nothing
Me.lblKontoBez.Left = 1.18937!
Me.lblKontoBez.Name = "lblKontoBez"
Me.lblKontoBez.Style = "font-size: 8pt; font-weight: normal"
Me.lblKontoBez.Text = "Aufschubkonto:"
Me.lblKontoBez.Top = 0.5000001!
Me.lblKontoBez.Width = 5.171653!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal"
Me.Label5.Text = "Aufschubkonto:"
Me.Label5.Top = 0.5000001!
Me.Label5.Width = 1.18937!
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "F<EFBFBD>lligkeit:"
Me.Label1.Top = 0.6377953!
Me.Label1.Width = 1.18937!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBetragSum, Me.lblFakturiertSum, Me.lblDifferenzSum, Me.Label2, Me.lblAnzahl})
Me.ReportFooter1.Height = 0.4748033!
Me.ReportFooter1.Name = "ReportFooter1"
'
'lblBetragSum
'
Me.lblBetragSum.Height = 0.1480315!
Me.lblBetragSum.HyperLink = Nothing
Me.lblBetragSum.Left = 5.846851!
Me.lblBetragSum.Name = "lblBetragSum"
Me.lblBetragSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblBetragSum.Text = "Betrag"
Me.lblBetragSum.Top = 0.1708661!
Me.lblBetragSum.Width = 0.9330708!
'
'lblFakturiertSum
'
Me.lblFakturiertSum.Height = 0.1480315!
Me.lblFakturiertSum.HyperLink = Nothing
Me.lblFakturiertSum.Left = 6.779922!
Me.lblFakturiertSum.Name = "lblFakturiertSum"
Me.lblFakturiertSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblFakturiertSum.Text = "Fakturiert"
Me.lblFakturiertSum.Top = 0.1708661!
Me.lblFakturiertSum.Width = 0.9330708!
'
'lblDifferenzSum
'
Me.lblDifferenzSum.Height = 0.1480315!
Me.lblDifferenzSum.HyperLink = Nothing
Me.lblDifferenzSum.Left = 7.712993!
Me.lblDifferenzSum.Name = "lblDifferenzSum"
Me.lblDifferenzSum.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblDifferenzSum.Text = "Differenz"
Me.lblDifferenzSum.Top = 0.1708661!
Me.lblDifferenzSum.Width = 0.9330708!
'
'Label2
'
Me.Label2.Height = 0.1374017!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.02598429!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: normal"
Me.Label2.Text = "Anzahl:"
Me.Label2.Top = 0.1708661!
Me.Label2.Width = 1.18937!
'
'lblAnzahl
'
Me.lblAnzahl.Height = 0.1379921!
Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 1.252756!
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 8pt; font-weight: normal"
Me.lblAnzahl.Text = "-"
Me.lblAnzahl.Top = 0.1704725!
Me.lblAnzahl.Width = 1.233071!
'
'rptAufschubabgleich
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 11.10236!
Me.ScriptLanguage = "VB.NET"
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.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbfertigungsort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAKTO, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblATC, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBUDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFakturiert, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDifferenz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFaelligkeit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKontoBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetragSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFakturiertSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDifferenzSum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeOffenerSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnnahme As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestellung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBetrag As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFakturiert As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblDifferenz As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBetragSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFakturiertSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblDifferenzSum As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAbfertigungsort As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAKTO As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblATC As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBUDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFaelligkeit As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblKontoBez As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

7
SDL/ARConverterBackup2/Reports/Zoll/rptAufschubabgleich.vb Normal file
View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptAufschubabgleich
End Class

620
SDL/ARConverterBackup2/Reports/Zoll/rptGestellungskontrolleEZOLL.Designer.vb generated Normal file
View File

@@ -0,0 +1,620 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptGestellungskontrolleEZOLL
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptGestellungskontrolleEZOLL))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStatus = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeOffenerSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnnahme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestellung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblStatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLRN = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblCRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAgbZollst = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBstZollst = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBstErreicht = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzAbf = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblCRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAgbZollst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBstZollst, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBstErreicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzAbf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label11, Me.lblStatus, Me.lblSummeOffenerSachbearbeiter, Me.Label4, Me.lblBezugsnummer, Me.lblAnnahme, Me.lblGestellung, Me.Label2, Me.Label12, Me.Label13, Me.Label9})
Me.PageHeader.Name = "PageHeader"
'
'Label11
'
Me.Label11.Height = 0.1480315!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 5.832284!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold"
Me.Label11.Text = "B<EFBFBD>rgschaft"
Me.Label11.Top = 0.04980312!
Me.Label11.Width = 1.183071!
'
'lblStatus
'
Me.lblStatus.Height = 0.1478346!
Me.lblStatus.HyperLink = Nothing
Me.lblStatus.Left = 0.0!
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Style = "font-size: 8pt; font-weight: bold"
Me.lblStatus.Text = "St."
Me.lblStatus.Top = 0.05137794!
Me.lblStatus.Width = 0.2074803!
'
'lblSummeOffenerSachbearbeiter
'
Me.lblSummeOffenerSachbearbeiter.Height = 0.1480315!
Me.lblSummeOffenerSachbearbeiter.HyperLink = Nothing
Me.lblSummeOffenerSachbearbeiter.Left = 5.358268!
Me.lblSummeOffenerSachbearbeiter.Name = "lblSummeOffenerSachbearbeiter"
Me.lblSummeOffenerSachbearbeiter.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffenerSachbearbeiter.Text = "SB.ID"
Me.lblSummeOffenerSachbearbeiter.Top = 0.0496063!
Me.lblSummeOffenerSachbearbeiter.Width = 0.4740158!
'
'Label4
'
Me.Label4.Height = 0.1480315!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 7.076375!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Sicherheit"
Me.Label4.Top = 0.04980312!
Me.Label4.Width = 0.6047239!
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1478346!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.1641732!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "LRN"
Me.lblBezugsnummer.Top = 0.05137793!
Me.lblBezugsnummer.Width = 0.9625984!
'
'lblAnnahme
'
Me.lblAnnahme.Height = 0.1478347!
Me.lblAnnahme.HyperLink = Nothing
Me.lblAnnahme.Left = 3.492914!
Me.lblAnnahme.Name = "lblAnnahme"
Me.lblAnnahme.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnnahme.Text = "Anmeldung"
Me.lblAnnahme.Top = 0.05314961!
Me.lblAnnahme.Width = 0.7299213!
'
'lblGestellung
'
Me.lblGestellung.Height = 0.1478347!
Me.lblGestellung.HyperLink = Nothing
Me.lblGestellung.Left = 4.123622!
Me.lblGestellung.Name = "lblGestellung"
Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestellung.Text = "Gest.Frist"
Me.lblGestellung.Top = 0.05255903!
Me.lblGestellung.Width = 0.6125984!
'
'Label2
'
Me.Label2.Height = 0.1480315!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.126772!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold"
Me.Label2.Text = "CRN"
Me.Label2.Top = 0.05275591!
Me.Label2.Width = 1.212599!
'
'Label12
'
Me.Label12.Height = 0.1480315!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 2.437795!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-size: 8pt; font-weight: bold"
Me.Label12.Text = "Abg.Zst."
Me.Label12.Top = 0.05236221!
Me.Label12.Width = 0.511811!
'
'Label13
'
Me.Label13.Height = 0.1480315!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 2.981102!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-size: 8pt; font-weight: bold"
Me.Label13.Text = "Bst.Zst."
Me.Label13.Top = 0.05157481!
Me.Label13.Width = 0.511811!
'
'Label9
'
Me.Label9.Height = 0.1480315!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 4.736221!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "Erreicht"
Me.Label9.Top = 0.05118111!
Me.Label9.Width = 0.6299213!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblStatValue, Me.lblSBValue, Me.lblSiBetragValue, Me.lblLRN, Me.lblAnDatValue, Me.lblGestDatValue, Me.lblCRNValue, Me.lblBuergschaft, Me.lblAgbZollst, Me.lblBstZollst, Me.lblBstErreicht})
Me.Detail.Height = 0.1403543!
Me.Detail.Name = "Detail"
'
'lblStatValue
'
Me.lblStatValue.Height = 0.1374016!
Me.lblStatValue.HyperLink = Nothing
Me.lblStatValue.Left = 0.0!
Me.lblStatValue.Name = "lblStatValue"
Me.lblStatValue.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto"
Me.lblStatValue.Text = "00"
Me.lblStatValue.Top = 0.0!
Me.lblStatValue.Width = 0.2074803!
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 5.322441!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: normal; text-align: center"
Me.lblSBValue.Text = "Sachbearbeiter"
Me.lblSBValue.Top = 0.0!
Me.lblSBValue.Width = 0.5098439!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 6.879922!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.0!
Me.lblSiBetragValue.Width = 0.8011805!
'
'lblLRN
'
Me.lblLRN.Height = 0.1374016!
Me.lblLRN.HyperLink = Nothing
Me.lblLRN.Left = 0.1641732!
Me.lblLRN.Name = "lblLRN"
Me.lblLRN.Style = "font-size: 8pt; font-weight: bold"
Me.lblLRN.Text = "LRN"
Me.lblLRN.Top = -2.793968E-9!
Me.lblLRN.Width = 0.984252!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 3.492914!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: normal; text-align: center"
Me.lblAnDatValue.Text = "-"
Me.lblAnDatValue.Top = 0.0!
Me.lblAnDatValue.Width = 0.6543307!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 4.123622!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: normal; text-align: center"
Me.lblGestDatValue.Text = "-"
Me.lblGestDatValue.Top = 0.0!
Me.lblGestDatValue.Width = 0.6275587!
'
'lblCRNValue
'
Me.lblCRNValue.Height = 0.1379921!
Me.lblCRNValue.HyperLink = Nothing
Me.lblCRNValue.Left = 1.126772!
Me.lblCRNValue.Name = "lblCRNValue"
Me.lblCRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblCRNValue.Text = "CRN"
Me.lblCRNValue.Top = 0.0!
Me.lblCRNValue.Width = 1.383859!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 5.832284!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: normal"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0!
Me.lblBuergschaft.Width = 1.183071!
'
'lblAgbZollst
'
Me.lblAgbZollst.Height = 0.1377953!
Me.lblAgbZollst.HyperLink = Nothing
Me.lblAgbZollst.Left = 2.437795!
Me.lblAgbZollst.Name = "lblAgbZollst"
Me.lblAgbZollst.Style = "font-size: 8pt; font-weight: normal; text-align: center"
Me.lblAgbZollst.Text = "-"
Me.lblAgbZollst.Top = 0.0!
Me.lblAgbZollst.Width = 0.5433071!
'
'lblBstZollst
'
Me.lblBstZollst.Height = 0.1377953!
Me.lblBstZollst.HyperLink = Nothing
Me.lblBstZollst.Left = 2.969291!
Me.lblBstZollst.Name = "lblBstZollst"
Me.lblBstZollst.Style = "font-size: 8pt; font-weight: normal; text-align: center"
Me.lblBstZollst.Text = "-"
Me.lblBstZollst.Top = 0.0!
Me.lblBstZollst.Width = 0.5433071!
'
'lblBstErreicht
'
Me.lblBstErreicht.Height = 0.1377953!
Me.lblBstErreicht.HyperLink = Nothing
Me.lblBstErreicht.Left = 4.736221!
Me.lblBstErreicht.Name = "lblBstErreicht"
Me.lblBstErreicht.Style = "font-size: 8pt; font-weight: normal; text-align: center"
Me.lblBstErreicht.Text = "-"
Me.lblBstErreicht.Top = 0.0!
Me.lblBstErreicht.Width = 0.5940943!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.199214!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02490158!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.02598425!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02490158!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.213015!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.02509842!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008203089!
Me.Line2.Left = 0.0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02529528!
Me.Line2.Width = 7.677083!
Me.Line2.X1 = 0.0!
Me.Line2.X2 = 7.677083!
Me.Line2.Y1 = 0.02529528!
Me.Line2.Y2 = 0.02537731!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label6, Me.Label7})
Me.ReportHeader1.Height = 0.6374018!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.932282!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.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 Gestellungskontrolle E-ZOLL"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.000394!
'
'Label6
'
Me.Label6.Height = 0.1374017!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.0000004172325!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal"
Me.Label6.Text = "Zeitraum:"
Me.Label6.Top = 0.5000001!
Me.Label6.Width = 2.437795!
'
'Label7
'
Me.Label7.Height = 0.1374017!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.437797!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: normal"
Me.Label7.Text = "B<EFBFBD>rgschaft:"
Me.Label7.Top = 0.5000001!
Me.Label7.Width = 3.479527!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label1, Me.Label3, Me.Label5, Me.lblSummeSiBetr, Me.lblAnzAbf, Me.lblAnzT})
Me.ReportFooter1.Height = 0.4653545!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe Abfertigungen:"
Me.Label1.Top = 0.1614173!
Me.Label1.Width = 1.18937!
'
'Label3
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Positionen:"
Me.Label3.Top = 0.3279529!
Me.Label3.Visible = False
Me.Label3.Width = 1.18937!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 5.146851!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.Label5.Text = "Summe Sicherheitsbetrag:"
Me.Label5.Top = 0.1614174!
Me.Label5.Width = 1.470867!
'
'lblSummeSiBetr
'
Me.lblSummeSiBetr.Height = 0.1377953!
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.617716!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" & _
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.1610237!
Me.lblSummeSiBetr.Width = 1.063386!
'
'lblAnzAbf
'
Me.lblAnzAbf.Height = 0.1374017!
Me.lblAnzAbf.HyperLink = Nothing
Me.lblAnzAbf.Left = 1.18937!
Me.lblAnzAbf.Name = "lblAnzAbf"
Me.lblAnzAbf.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzAbf.Text = "0"
Me.lblAnzAbf.Top = 0.1614173!
Me.lblAnzAbf.Width = 0.5122049!
'
'lblAnzT
'
Me.lblAnzT.Height = 0.1374017!
Me.lblAnzT.HyperLink = Nothing
Me.lblAnzT.Left = 1.18937!
Me.lblAnzT.Name = "lblAnzT"
Me.lblAnzT.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzT.Text = "0"
Me.lblAnzT.Top = 0.3279529!
Me.lblAnzT.Visible = False
Me.lblAnzT.Width = 0.5122049!
'
'rptGestellungskontrolleEZOLL
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
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.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblCRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAgbZollst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBstZollst, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBstErreicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzAbf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblStatus As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeOffenerSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnnahme As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestellung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblStatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLRN As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblCRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeSiBetr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzAbf As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzT As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAgbZollst As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBstZollst As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBstErreicht As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

126
SDL/ARConverterBackup2/Reports/Zoll/rptGestellungskontrolleEZOLL.vb Normal file
View File

@@ -0,0 +1,126 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptGestellungskontrolleEZOLL
Public datVon As Date
Public datBis As Date
Public stat As String = "'F', 'FB'"
Public operatorId As String = ""
Public brg As String = "" 'default brg
Public sqlStr As String = ""
Public bestimmungszollstelleErreicht As Integer = -1
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "Auswertung offene Antr<74>ge mit Vorauszahlung"
'lblHeader.Text = Me.Name
'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
' Dim sqlStrOLD As String = " SELECT count(*) as [Anzahl Verz], max(veopos_stat) as Status, max(veoant_beznr) as Bezugsnummer,max(veoant_lfdnr) as LfdNr,max(veoant_anzpos)as Pos,max(veoant_arbnr)as ArbNr,max(veoant_mrn) as MRN,max(veoant_andat) as Antragsdatum,max(veoant_sb) as Sachbearbeiter,max(veoant_wgdat) as Gestellungsdatum,sum(veoerz_sicbtg) as [Sichertheits-Betrag], max(veoerz_sicbsc) as Buergschaft " &
'" FROM tblZabis_Atlas_NCTS " &
'" WHERE ( veoant_andat BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "') " &
'" AND veoant_stat IN (50,53,60) " &
'" AND veoerz_sicbsc = '" & brg & "' " &
'" AND basman_nl='SUW' " &
'" AND veoant_beznr LIKE 'DU%' " &
'" GROUP BY veoant_beznr " &
'" ORDER BY Antragsdatum "
' MsgBox(sqlStr)
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 600)
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
Label7.Text = "B<EFBFBD>rgschaft: " & brg
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
lblStatValue.Text = NullValueStr(Fields.Item("ErledigungsTypID").Value, True)
lblLRN.Text = NullValueStr(Fields.Item("LRN").Value, True)
lblCRNValue.Text = NullValueStr(Fields.Item("CRN").Value, True)
lblAnDatValue.Text = NullValueStr(Fields.Item("AnmeldungsDatum").Value, True)
lblGestDatValue.Text = NullValueStr(Fields.Item("Gestellungsfrist").Value, True)
lblBstErreicht.Text = NullValueStr(Fields.Item("DatumBestimmungErreicht").Value, True)
lblAgbZollst.Text = NullValueStr(Fields.Item("Abgangszollstelle").Value, True)
lblBstZollst.Text = NullValueStr(Fields.Item("Bestimmungszollstelle").Value, True)
lblSBValue.Text = NullValueStr(Fields.Item("AnmID").Value, True)
lblBuergschaft.Text = NullValueStr(Fields.Item("GRN").Value, True)
lblSiBetragValue.Text = "<EFBFBD> " & NullValueDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)
' anzT += CInt(lblAnzTValue.Text)
summeSiBetr += CDbl(Fields.Item("GarantieWert").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
Function NullValueStr(o As Object, Optional strich As Boolean = False) As String
Try
If Not o Is DBNull.Value Then Return CStr(o)
Catch ex As Exception
End Try
If strich Then Return "-"
Return ""
End Function
Function NullValueDbl(o As Object, Optional strich As Boolean = False) As Double
Try
If Not o Is DBNull.Value Then Return CDbl(o)
Catch ex As Exception
End Try
If strich Then Return "-"
Return ""
End Function
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
lblAnzAbf.Text = anzLkw
lblAnzT.Text = anzT
End Sub
End Class

532
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW.Designer.vb generated Normal file
View File

@@ -0,0 +1,532 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptKontrolleLKW
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptKontrolleLKW))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzLKWs = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBezugsnummer, Me.Line, Me.lblSBValue, Me.Label2, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblMRNValue, Me.lblBuergschaft, Me.Label4, Me.Label9, Me.lblGestDatValue})
Me.PageHeader.Height = 0.1903543!
Me.PageHeader.Name = "PageHeader"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1895669!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.2307087!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "LKW-Kz"
Me.lblBezugsnummer.Top = 0.0007874016!
Me.lblBezugsnummer.Width = 0.8492126!
'
'Line
'
Me.Line.Height = 0.00008200109!
Me.Line.Left = 0.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.X2 = 7.677083!
Me.Line.Y1 = 0.1901575!
Me.Line.Y2 = 0.1902395!
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 4.396851!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblSBValue.Text = "Sachbearb."
Me.lblSBValue.Top = 0.0007874016!
Me.lblSBValue.Width = 0.7681097!
'
'Label2
'
Me.Label2.Height = 0.1377953!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.220867!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label2.Text = "Sicherheit"
Me.Label2.Top = 0.0007874016!
Me.Label2.Width = 0.7972444!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.9177166!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0007874016!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 3.199213!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.002165282!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.959056!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.003346407!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 5.125984!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: bold"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0007874072!
Me.lblBuergschaft.Width = 1.16811!
'
'Label4
'
Me.Label4.Height = 0.1377953!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.888189!
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.Width = 0.7972444!
'
'Label9
'
Me.Label9.Height = 0.1895669!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.0!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "Nr"
Me.Label9.Top = 0.0003937008!
Me.Label9.Width = 0.2035433!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 3.790158!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.001181102!
Me.lblGestDatValue.Width = 0.6299216!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNr, Me.lblSiBetragValue, Me.lblLKW, Me.SubReport})
Me.Detail.Height = 0.1464567!
Me.Detail.Name = "Detail"
'
'lblNr
'
Me.lblNr.Height = 0.1374016!
Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 8pt; font-weight: normal"
Me.lblNr.Text = "500."
Me.lblNr.Top = 0.008661418!
Me.lblNr.Width = 0.2657481!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 6.695276!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.008661417!
Me.lblSiBetragValue.Width = 0.9901576!
'
'lblLKW
'
Me.lblLKW.Height = 0.1374016!
Me.lblLKW.HyperLink = Nothing
Me.lblLKW.Left = 0.2307087!
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 8pt; font-weight: bold"
Me.lblLKW.Text = "LKW"
Me.lblLKW.Top = 0.009055119!
Me.lblLKW.Width = 1.05315!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.1374016!
Me.SubReport.Left = 0.9177166!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.008661418!
Me.SubReport.Width = 6.100394!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2250984!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.131473!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02490158!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.067693!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02490158!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.212992!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.02509842!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0.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.X2 = 7.677083!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.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"
Me.lblText1.Top = 0.0472441!
Me.lblText1.Width = 4.000394!
'
'Label6
'
Me.Label6.Height = 0.1374017!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.0000004023314!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal"
Me.Label6.Text = "Zeitraum:"
Me.Label6.Top = 0.4555119!
Me.Label6.Width = 2.437795!
'
'Label7
'
Me.Label7.Height = 0.1374017!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.437796!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: normal"
Me.Label7.Text = "B<EFBFBD>rgschaft:"
Me.Label7.Top = 0.4555119!
Me.Label7.Width = 2.437795!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label6, Me.Label7, Me.Label10})
Me.ReportHeader1.Height = 0.7207352!
Me.ReportHeader1.Name = "ReportHeader1"
'
'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.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe LKWs:"
Me.Label1.Top = 0.3129922!
Me.Label1.Width = 0.8141733!
'
'Label3
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.0000002533197!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Versandscheine:"
Me.Label3.Top = 0.4795276!
Me.Label3.Width = 1.283858!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 4.997245!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.Label5.Text = "Summe Sicherheitsbetrag:"
Me.Label5.Top = 0.3129922!
Me.Label5.Width = 1.470867!
'
'lblSummeSiBetr
'
Me.lblSummeSiBetr.Height = 0.1377953!
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.622048!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" & _
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.3125984!
Me.lblSummeSiBetr.Width = 1.063386!
'
'lblAnzLKWs
'
Me.lblAnzLKWs.Height = 0.1374017!
Me.lblAnzLKWs.HyperLink = Nothing
Me.lblAnzLKWs.Left = 1.283858!
Me.lblAnzLKWs.Name = "lblAnzLKWs"
Me.lblAnzLKWs.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzLKWs.Text = "0"
Me.lblAnzLKWs.Top = 0.3129922!
Me.lblAnzLKWs.Width = 0.5122049!
'
'lblAnzT
'
Me.lblAnzT.Height = 0.1374017!
Me.lblAnzT.HyperLink = Nothing
Me.lblAnzT.Left = 1.283858!
Me.lblAnzT.Name = "lblAnzT"
Me.lblAnzT.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzT.Text = "0"
Me.lblAnzT.Top = 0.4795276!
Me.lblAnzT.Width = 0.5122049!
'
'Label10
'
Me.Label10.Height = 0.3350394!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 2.923622!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-weight: bold"
Me.Label10.Text = "ZOLL DE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten aus ZABIS / ATLAS"
Me.Label10.Top = 0.0472441!
Me.Label10.Width = 1.951968!
'
'rptKontrolleLKW
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.673228!
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.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeSiBetr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzLKWs As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzT As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

182
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW.vb Normal file
View File

@@ -0,0 +1,182 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptKontrolleLKW
Public datVon As Date
Public datBis As Date
Public brg As String
Public FIRMA As String = "DURMAZ"
'Public brg As String = "05DE0000000009345," 'default brg
Public erstelltVon As String = ""
Dim kundenSQL As New kundenSQL
Dim SUB_DATA As DataTable = Nothing
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "Auswertung offene Antr<74>ge mit Vorauszahlung"
'lblHeader.Text = Me.Name
'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
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim mandant = FIRMA
If FIRMA = "DURMAZ" Then mandant = "SUW"
If FIRMA = "ATILLA" Then mandant = "SUW"
Dim sqlStr As String = " SELECT count(*) as [Anzahl Verz], max(veoant_bfabkz) as [LKW-Kz], max(veoant_stat) as Status, max(veoant_beznr) as Bezugsnummer,max(veoant_lfdnr) as LfdNr,sum(veoant_anzpos)as Pos,max(veoant_arbnr)as ArbNr,max(veoant_mrn) as MRN,max(veoant_andat) as Antragsdatum,max(veoant_sb) as Sachbearbeiter,max(veoant_wgdat) as Gestellungsdatum,sum(veoerz_sicbtg) as [Sichertheits-Betrag] , max([veoant_korant]) as Korant " &
" FROM [atlas].[dbo].[vwVERAG_NCTS_DatenbereitstellungLKW] " &
" WHERE ( veoant_andat BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "') " &
" AND veoant_stat IN (50,53,60) " &
" AND veoerz_sicbsc IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) " &
" AND basman_nl='" & mandant & "' "
If FIRMA = "DURMAZ" Then
sqlStr &= " AND veoant_beznr LIKE 'DU%' "
ElseIf FIRMA = "ATILLA" Then
sqlStr &= " AND veoant_beznr NOT LIKE 'DU%' "
End If
sqlStr &= " GROUP BY veoant_bfabkz ,veoant_andat "
sqlStr &= " ORDER BY Antragsdatum "
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "ATLAS", 1000)
Dim sqlStrSUB As String = " SELECT max(ant.veoant_beznr) as BezugsNr, max( ant.[veoant_korant]) as Korant, max(veoant_andat) as Antragsdatum, max(veoant_bfabkz) as [LKW-Kz], max(ant.veoant_lfdnr) as LfdNr, max(ant.veoant_arbnr) as ArbNr, max(ant.veoant_mrn) as MRN, max(ant.veoant_anzpos) as Pos, min(ant.veoant_andat) as AnDat, max(ant.veoant_wgdat) as GestllungsDat, max(ant.veoant_sb) as Sachbearbeiter, sum(erz.veoerz_sicbtg) as Sicherheitsbetrag, max(erz.veoerz_sicbsc) as Brg " &
" FROM dbo.veoant AS ant INNER JOIN " &
" dbo.veopos AS pos ON ant.basman_nr = pos.basman_nr AND ant.basman_nl = pos.basman_nl AND ant.veoant_beznr = pos.veoant_beznr AND ant.veoant_lfdnr = pos.veoant_lfdnr AND " &
" ant.veoant_korant = pos.veoant_korant LEFT OUTER JOIN " &
" dbo.veoerz AS erz ON pos.basman_nr = erz.basman_nr AND pos.basman_nl = erz.basman_nl AND pos.veoant_beznr = erz.veoant_beznr AND pos.veoant_lfdnr = erz.veoant_lfdnr AND " &
" pos.veopos_posnr = erz.veopos_posnr And pos.veoant_korant = erz.veoant_korant " &
" WHERE ant.basman_nr ='VERA' " &
" AND ant.basman_nl ='" & mandant & "' " &
" AND ( veoant_andat BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "') " &
" AND erz.veoerz_sicbsc IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) " &
" and erz.veoerz_typ=2 " &
" AND ant.veoant_stat IN (50,53,60) "
If FIRMA = "DURMAZ" Then
sqlStrSUB &= " AND ant.veoant_beznr LIKE 'DU%' "
ElseIf FIRMA = "ATILLA" Then
sqlStrSUB &= " AND ant.veoant_beznr NOT LIKE 'DU%' "
End If
sqlStrSUB &= " group by veoant_mrn"
SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, "ATLAS", 1000)
lblText1.Text = lblText1.Text & " - " & FIRMA
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
Label7.Text = "" '"B<>rgschaft: " & brg
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Dim nr As Integer = 1
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
lblLKW.Text = CStr(Fields.Item("LKW-Kz").Value)
lblNr.Text = anzLkw & "."
'lblPos.Text = CStr(Fields.Item("Pos").Value)
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("Sichertheits-Betrag").Value).ToString("N2", CultureInfo.InvariantCulture)
'lblAnzTValue.Text = CStr(Fields.Item("Anzahl Verz").Value)
' lblArbNrValue.Text = CStr(Fields.Item("ArbNr").Value)
'lblLKW.Text = CStr(Fields.Item("Bezugsnummer").Value)
''lblGestDatValue.Text = CStr(Fields.Item("Gestellungsdatum").Value)
'lblMRNValue.Text = CStr(Fields.Item("MRN").Value)
'lblSBValue.Text = CStr(Fields.Item("Sachbearbeiter").Value)
'lblSiBetragValue.Text = "<22> " & CDbl(Fields.Item("Sichertheits-Betrag").Value).ToString("N2", CultureInfo.InvariantCulture)
'lblStatValue.Text = CStr(Fields.Item("Pos").Value)
'anzLkw += 1
'anzT += CInt(lblAnzTValue.Text)
summeSiBetr += CDbl(Fields.Item("Sichertheits-Betrag").Value)
Dim subrpt As New subrptKontrolleLKW
subrpt.kennzeichen = Fields.Item("LKW-Kz").Value
subrpt.veoant_lfdnr = Fields.Item("LfdNr").Value
subrpt.veoant_korant = Fields.Item("Korant").Value
subrpt.datVon = datVon
subrpt.firma = FIRMA
subrpt.datBis = datBis
subrpt.veoant_andat = Fields.Item("Antragsdatum").Value
'subrpt = datVon
Dim dt As DataTable = SUB_DATA.Clone
dt.Rows.Clear()
'For Each c As DataColumn In dt.Columns
'c.AllowDBNull = True
'Next
For Each r In SUB_DATA.Rows
If r("LKW-Kz") = subrpt.kennzeichen And r("LfdNr") = subrpt.veoant_lfdnr And r("Korant") = subrpt.veoant_korant And r("Antragsdatum") = subrpt.veoant_andat Then
' dt.Rows.Add(r)
dt.ImportRow(r)
End If
Next
subrpt.DataSource = dt
Me.SubReport.Report = subrpt
AddHandler Me.SubReport.Report.ReportEnd, Sub()
anzT += DirectCast(Me.SubReport.Report, subrptKontrolleLKW).AnzT
End Sub
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
lblAnzLKWs.Text = anzLkw
lblAnzT.Text = anzT
End Sub
End Class

532
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW_Dakosy.Designer.vb generated Normal file
View File

@@ -0,0 +1,532 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptKontrolleLKW_Dakosy
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptKontrolleLKW_Dakosy))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzLKWs = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBezugsnummer, Me.Line, Me.lblSBValue, Me.Label2, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblMRNValue, Me.lblBuergschaft, Me.Label4, Me.Label9, Me.lblGestDatValue})
Me.PageHeader.Height = 0.1903543!
Me.PageHeader.Name = "PageHeader"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1895669!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.2307087!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "LKW-Kz"
Me.lblBezugsnummer.Top = 0.0007874016!
Me.lblBezugsnummer.Width = 0.8492126!
'
'Line
'
Me.Line.Height = 0.00008200109!
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!
Me.Line.X2 = 7.677083!
Me.Line.Y1 = 0.1901575!
Me.Line.Y2 = 0.1902395!
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 4.396851!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblSBValue.Text = "Sachbearb."
Me.lblSBValue.Top = 0.0007874016!
Me.lblSBValue.Width = 0.7681097!
'
'Label2
'
Me.Label2.Height = 0.1377953!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.220867!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label2.Text = "Sicherheit"
Me.Label2.Top = 0.0007874016!
Me.Label2.Width = 0.7972444!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.9177166!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0007874016!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 3.199213!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.002165282!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.959056!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.003346407!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 5.125984!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: bold"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0007874072!
Me.lblBuergschaft.Width = 1.16811!
'
'Label4
'
Me.Label4.Height = 0.1377953!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.888189!
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!
Me.Label4.Width = 0.7972444!
'
'Label9
'
Me.Label9.Height = 0.1895669!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "Nr"
Me.Label9.Top = 0.0003937008!
Me.Label9.Width = 0.2035433!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 3.790158!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.001181102!
Me.lblGestDatValue.Width = 0.6299216!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNr, Me.lblSiBetragValue, Me.lblLKW, Me.SubReport})
Me.Detail.Height = 0.1464567!
Me.Detail.Name = "Detail"
'
'lblNr
'
Me.lblNr.Height = 0.1374016!
Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 8pt; font-weight: normal"
Me.lblNr.Text = "500."
Me.lblNr.Top = 0.008661418!
Me.lblNr.Width = 0.2657481!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 6.695276!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.008661417!
Me.lblSiBetragValue.Width = 0.9901576!
'
'lblLKW
'
Me.lblLKW.Height = 0.1374016!
Me.lblLKW.HyperLink = Nothing
Me.lblLKW.Left = 0.2307087!
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 8pt; font-weight: bold"
Me.lblLKW.Text = "LKW"
Me.lblLKW.Top = 0.009055119!
Me.lblLKW.Width = 1.05315!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.1374016!
Me.SubReport.Left = 0.9177166!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.008661418!
Me.SubReport.Width = 6.100394!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2250984!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.131473!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02490158!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.067693!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02490158!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.212992!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.02509842!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
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!
Me.Line2.X2 = 7.677083!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
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"
Me.lblText1.Top = 0.0472441!
Me.lblText1.Width = 4.000394!
'
'Label6
'
Me.Label6.Height = 0.1374017!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.0000004023314!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal"
Me.Label6.Text = "Zeitraum:"
Me.Label6.Top = 0.4555119!
Me.Label6.Width = 2.437795!
'
'Label7
'
Me.Label7.Height = 0.1374017!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.437796!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: normal"
Me.Label7.Text = "B<EFBFBD>rgschaft:"
Me.Label7.Top = 0.4555119!
Me.Label7.Width = 2.437795!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label6, Me.Label7, Me.Label10})
Me.ReportHeader1.Height = 0.7207352!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Label10
'
Me.Label10.Height = 0.4082677!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 2.909843!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-weight: bold"
Me.Label10.Text = "ZOLL DE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten aus ZABIS / ATLAS"
Me.Label10.Top = 0.0472441!
Me.Label10.Width = 1.965748!
'
'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.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe LKWs:"
Me.Label1.Top = 0.3129922!
Me.Label1.Width = 0.8141733!
'
'Label3
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.0000002533197!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Versandscheine:"
Me.Label3.Top = 0.4795276!
Me.Label3.Width = 1.283858!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 4.997245!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.Label5.Text = "Summe Sicherheitsbetrag:"
Me.Label5.Top = 0.3129922!
Me.Label5.Width = 1.470867!
'
'lblSummeSiBetr
'
Me.lblSummeSiBetr.Height = 0.1377953!
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.622048!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" &
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.3125984!
Me.lblSummeSiBetr.Width = 1.063386!
'
'lblAnzLKWs
'
Me.lblAnzLKWs.Height = 0.1374017!
Me.lblAnzLKWs.HyperLink = Nothing
Me.lblAnzLKWs.Left = 1.283858!
Me.lblAnzLKWs.Name = "lblAnzLKWs"
Me.lblAnzLKWs.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzLKWs.Text = "0"
Me.lblAnzLKWs.Top = 0.3129922!
Me.lblAnzLKWs.Width = 0.5122049!
'
'lblAnzT
'
Me.lblAnzT.Height = 0.1374017!
Me.lblAnzT.HyperLink = Nothing
Me.lblAnzT.Left = 1.283858!
Me.lblAnzT.Name = "lblAnzT"
Me.lblAnzT.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzT.Text = "0"
Me.lblAnzT.Top = 0.4795276!
Me.lblAnzT.Width = 0.5122049!
'
'rptKontrolleLKW_Dakosy
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.673228!
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.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeSiBetr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzLKWs As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzT As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

204
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW_Dakosy.vb Normal file
View File

@@ -0,0 +1,204 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptKontrolleLKW_Dakosy
Public datVon As Date
Public datBis As Date
Public FIRMA As String = "ATILLA"
Public BRG As String = ""
Public NCTSSystemDY As String = "NCTS5"
Dim operatorID = "1"
Dim kundenSQL As New kundenSQL
Dim SUB_DATA As DataTable = 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
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "T-Kontrolle Dakosy "
'lblHeader.Text = Me.Name
'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
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim firmaStr = ""
If FIRMA = "DURMAZ" Then
firmaStr = " AND (ncts_ObjectName LIKE 'DU%' OR ncts_firma='DURMAZ') "
ElseIf FIRMA = "IMEX" Then
firmaStr = " AND (ncts_ObjectName LIKE '402%' OR ncts_ObjectName LIKE '502%' OR ncts_ObjectName LIKE '5501%') "
ElseIf FIRMA = "AMBAR" Then
firmaStr = " AND (ncts_ObjectName LIKE 'A20%' OR ncts_ObjectName LIKE '5701%' ) "
Else 'ATILLA
'firmaStr = " AND ncts_ObjectName NOT LIKE 'DU%' "
firmaStr = " AND (ncts_ObjectName LIKE '4801%' OR ncts_ObjectName LIKE '4802%' ) "
End If
' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
Dim sqlStr As String = ""
Dim sqlStrSUB As String = ""
Select Case NCTSSystemDY
Case "NCTS5"
Dim whereBRG = " AND nctsGRT_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
If BRG <> "" Then
whereBRG = " AND nctsGRT_GRN IN ( '" & BRG & "') "
End If
sqlStr = " SELECT isnull(ncts_DepartureTransportMeans_1_IdentificationNumber,isnull(ncts_ActiveBorderTransportMeans_1_IdentificationNumber,'')) as Kennzeichen, cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsGRT_AmountToBeCovered),0) as GarantieWert "
sqlStr &= " FROM tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId "
sqlStr &= " WHERE cast ([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStr &= whereBRG
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStr &= firmaStr
' sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStr &= " group by cast([ncts_Trans_DatumZeit] as date), isnull(ncts_DepartureTransportMeans_1_IdentificationNumber,isnull(ncts_ActiveBorderTransportMeans_1_IdentificationNumber,''))"
sqlStr &= " order by cast([ncts_Trans_DatumZeit] as date)"
sqlStrSUB = " SELECT *, nctsGRT_AmountToBeCovered as nctsSA_AbgabenBetrag,nctsGRT_GRN as nctsSA_GRN, isnull(nctsGRT_AmountToBeCovered,0) as GarantieWert,isnull(ncts_DepartureTransportMeans_1_IdentificationNumber,isnull(ncts_ActiveBorderTransportMeans_1_IdentificationNumber,'')) as Kennzeichen,cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum "
sqlStrSUB &= " FROM tblDakosy_NCTSOut004_Guarantee inner join [tblDakosy_NCTSOut004] on ncts_Id = nctsGRT_NctsId "
sqlStrSUB &= " WHERE cast([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStrSUB &= whereBRG
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStrSUB &= firmaStr
' sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStrSUB &= " order by cast([ncts_Trans_DatumZeit] as date),ncts_ObjectName"
Case Else
Dim whereBRG = " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
If BRG <> "" Then
whereBRG = " AND nctsSA_GRN IN ( '" & BRG & "') "
End If
sqlStr = " SELECT isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert FROM tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId "
sqlStr &= " WHERE cast ([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStr &= whereBRG
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStr &= firmaStr
' sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStr &= " group by cast([ncts_Trans_DatumZeit] as date),ncts_Befoerderungsmittel_KennzeichenAbgang"
sqlStr &= " order by cast([ncts_Trans_DatumZeit] as date)"
sqlStrSUB = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast([ncts_Trans_DatumZeit] as date) as AnmeldungsDatum FROM tblDakosy_NCTSOut_Sicherheitsangaben inner join [VERAG].[dbo].[tblDakosy_NCTSOut] on ncts_Id = nctsSA_NctsId "
sqlStrSUB &= " WHERE cast([ncts_Trans_DatumZeit] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStrSUB &= whereBRG
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
sqlStrSUB &= firmaStr
' sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStrSUB &= " order by cast([ncts_Trans_DatumZeit] as date),ncts_ObjectName"
End Select
' MsgBox(sqlStr)
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
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
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Dim nr As Integer = 1
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
summeSiBetr += CDbl(Fields.Item("GarantieWert").Value)
lblLKW.Text = CStr(Fields.Item("Kennzeichen").Value)
lblNr.Text = anzLkw & "."
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)
If SUB_DATA IsNot Nothing Then
Dim subrpt As New subrptKontrolleLKW_Dakosy
subrpt.Kennzeichen = Fields.Item("Kennzeichen").Value
subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
Dim dt As DataTable = SUB_DATA.Clone
dt.Rows.Clear()
'For Each c As DataColumn In dt.Columns
'c.AllowDBNull = True
'Next
For Each r In SUB_DATA.Rows
If r("AnmeldungsDatum") = subrpt.AnmeldungsDatum And r("Kennzeichen") = subrpt.Kennzeichen Then
' dt.Rows.Add(r)
dt.ImportRow(r)
End If
Next
subrpt.DataSource = dt
Me.SubReport.Report = subrpt
AddHandler Me.SubReport.Report.ReportEnd, Sub()
anzT += DirectCast(Me.SubReport.Report, subrptKontrolleLKW_Dakosy).AnzT
End Sub
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
lblAnzLKWs.Text = anzLkw
lblAnzT.Text = anzT
End Sub
End Class

543
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW_NCTSTR.Designer.vb generated Normal file
View File

File diff suppressed because one or more lines are too long

351
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb Normal file
View File

@@ -0,0 +1,351 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptKontrolleLKW_NCTSTR
Public datVon As Date
Public datBis As Date
Public FIRMA As String = "ATILLA"
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 GRN As String = "" '"05DE0000000009345," 'default brg
Public erstelltVon As String = ""
Dim groupKz = True 'Es kann nach Kennzeichen groupiert werden
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "T-Kontrolle Dakosy "
'lblHeader.Text = Me.Name
'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
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
'Dim brg_UNISPED As String = "17DE0000000071270"
'Dim brg_DE_IMEX As String =
' Dim brg_DE_ATILLA As String = "20AT520000G000092"
Dim firmaStr = ""
If FIRMA = "VERIMEX_MAVI" Then
firmaStr = " AND [ncts_Partnersystem] IN('MAVI') "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("VERIMEX_MAVI")
Label10.Text = " Auswertung MAVI"
ElseIf FIRMA = "VERIMEX_OREGON" Then
firmaStr = " AND [ncts_Partnersystem] IN('OREGON') "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("VERIMEX_OREGON")
Label10.Text = " Auswertung OREGON"
ElseIf FIRMA = "VERIMEX_ATEZ" Then
firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("VERIMEX_ATEZ")
Label10.Text = " Auswertung ATEZ"
ElseIf FIRMA = "ATEZ" Then
firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') "
Label10.Text = " Auswertung ATEZ"
ElseIf FIRMA = "MIC_UNISPED" Then
firmaStr = " AND [ncts_Partnersystem] IN('MIC') AND ncts_firma='UNISPED' "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("MIC_UNISPED")
Label10.Text = " Auswertung UNISPED"
ElseIf FIRMA = "MIC_AWOR" Then
firmaStr = " AND [ncts_Partnersystem] IN('MIC') AND ncts_firma='AWOR' "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("MIC_AWOR")
Label10.Text = " Auswertung AWOR"
groupKz = False
End If
If True Then '"OREGON"
End If
' If FIRMA = "ATILLA" Then operatorID = "'5','6'"
Dim sqlStr As String = " SELECT " & If(Not groupKz, " ncts_id, ", "") & " isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen, cast(ncts_Eroeffnung as date) as AnmeldungsDatum,COUNT(*) ,isnull(SUM(nctsSA_AbgabenBetrag),0) as GarantieWert,isnull(SUM(ncts_VERAG_WeiterverrechungSatz),0) ncts_VERAG_WeiterverrechungSatz FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
sqlStr &= " WHERE cast (ncts_Eroeffnung as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
If GRN <> "" Then
sqlStr &= " AND nctsSA_GRN IN ( '" & GRN & "' ) "
Else
sqlStr &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
End If
sqlStr &= " AND ncts_status BETWEEN 50 AND 60 "
'sqlStr &= " AND ncts_status BETWEEN 50 AND 80 "
sqlStr &= firmaStr
' sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStr &= " group by cast(ncts_Eroeffnung as date),ncts_Befoerderungsmittel_KennzeichenAbgang" & If(Not groupKz, ", ncts_id ", "") '--> wenn nciht nach Kennezcihen groupioert werden kann, einfach die ID hinzuf<75>gen--> nur mehr einzelene Zeilen m<>glich
sqlStr &= " order by cast(ncts_Eroeffnung as date)"
' MsgBox(sqlStr)
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
Dim sqlStrSUB As String = " SELECT *, isnull(nctsSA_AbgabenBetrag,0) as GarantieWert,isnull(ncts_Befoerderungsmittel_KennzeichenAbgang,'') as Kennzeichen,cast(ncts_Eroeffnung as date) as AnmeldungsDatum,cast(ncts_Ankunft as date) as ncts_Ankunft,cast(ncts_Erledigung as date) as ncts_Erledigung,ncts_VERAG_WeiterverrechungSatz FROM tblNCTS_TR_Sicherheitsangaben inner join tblNCTS_TR on ncts_Id = nctsSA_NctsId "
sqlStrSUB &= " WHERE cast(ncts_Eroeffnung as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
If GRN <> "" Then
sqlStr &= " AND nctsSA_GRN IN ( '" & GRN & "' ) "
Else
sqlStr &= " AND nctsSA_GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
End If
sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 60 "
'sqlStrSUB &= " AND ncts_status BETWEEN 50 AND 80 "
sqlStrSUB &= firmaStr
' sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
sqlStrSUB &= " order by cast(ncts_Eroeffnung as date),ncts_ObjectName"
' MsgBox(sqlStr)
' MsgBox(sqlStrSUB)
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
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Dim nr As Integer = 1
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
summeSiBetr += CDbl(Fields.Item("GarantieWert").Value)
lblLKW.Text = CStr(Fields.Item("Kennzeichen").Value)
lblNr.Text = anzLkw & "."
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)
' MsgBox(Fields.Item("ncts_id").Value)
If SUB_DATA IsNot Nothing Then
Dim subrpt As New subrptKontrolleLKW_Dakosy
subrpt.Kennzeichen = Fields.Item("Kennzeichen").Value
subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
subrpt.ncts_id = If(Fields.Item("ncts_id") Is Nothing, -1, Fields.Item("ncts_id").Value)
Dim dt As DataTable = SUB_DATA.Clone
dt.Rows.Clear()
'For Each c As DataColumn In dt.Columns
'c.AllowDBNull = True
'Next
For Each r In SUB_DATA.Rows
Dim pruefNctsId = False
If Not groupKz Then
If r("ncts_id") = subrpt.ncts_id Then
pruefNctsId = True
End If
End If
If r("AnmeldungsDatum") = subrpt.AnmeldungsDatum And ((r("Kennzeichen") = "" And pruefNctsId) Or (r("Kennzeichen") <> "" And r("Kennzeichen") = subrpt.Kennzeichen)) Then
' dt.Rows.Add(r)
' If groupKz Or (r("ncts_id") = subrpt.ncts_id) Then End If
dt.ImportRow(r)
End If
Next
subrpt.DataSource = dt
Me.SubReport.Report = subrpt
AddHandler Me.SubReport.Report.ReportEnd, Sub()
anzT += DirectCast(Me.SubReport.Report, subrptKontrolleLKW_Dakosy).AnzT
End Sub
End If
If LIST_NCTSABR IsNot Nothing Then
'Spezial
Dim SpezialFound = False
Dim AllSpezial = True
If SUB_DATA IsNot Nothing Then
For Each r In SUB_DATA.Rows
'Dim LKW_Kz_Pruef = True 'OB nach LKW gesplittet werden kann, oder dieses Feld immer leer ist.
'If Not groupKz Then
' If r("ncts_id") = Fields.Item("ncts_id").Value Then
' LKW_Kz_Pruef = True
' Else
' LKW_Kz_Pruef = False
' End If
'End If
Dim pruefNctsId = False
If Not groupKz Then
If r("ncts_id") = Fields.Item("ncts_id").Value Then
pruefNctsId = True
End If
End If
If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And ((r("Kennzeichen") = "" And pruefNctsId) Or (r("Kennzeichen") <> "" And r("Kennzeichen") = Fields.Item("Kennzeichen").Value)) Then
If r("ncts_VERAG_WeiterverrechungSatz") IsNot DBNull.Value And r("ncts_VERAG_WeiterverrechungSatz") IsNot Nothing Then
SpezialFound = True 'Kennzeichen, dass spezial
Dim VERAG_WeiterverrechungSatz As Double = CDbl(r("ncts_VERAG_WeiterverrechungSatz"))
Dim L As New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg(-1)
L.abrg_Partner = FIRMA
L.abrg_artAbrechnung = "SPEZIAL"
L.abrg_GarantiewertBis = CDbl(r("GarantieWert"))
L.abrg_bertrag = VERAG_WeiterverrechungSatz
L.abrg_prozent = Nothing
L._ANZAHL = 1
L._BETRAG = VERAG_WeiterverrechungSatz
LIST_NCTSABR.LIST.Add(L)
Else
AllSpezial = False ' Es sind nicht alle spezial
End If
End If
Next
End If
If Not SpezialFound OrElse Not AllSpezial Then
'per LKW
For Each l In LIST_NCTSABR.LIST
Dim GarantieWertLKW As Double = CDbl(Fields.Item("GarantieWert").Value)
Select Case l.abrg_artAbrechnung
Case "LKW"
If GarantieWertLKW < l.abrg_GarantiewertBis Then
l._ANZAHL += 1 : Exit For
End If
'Case "Versandschein"
' If SUB_DATA IsNot Nothing Then
' For Each r In SUB_DATA.Rows
' Dim GarantieWertSND As Double = CDbl(r("GarantieWert"))
' If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And r("Kennzeichen") = Fields.Item("Kennzeichen").Value Then
' If GarantieWertSND < l.abrg_GarantiewertBis Then
' l._ANZAHL += 1
' End If
' End If
' Next
' End If
Case "%" 'LKW
If GarantieWertLKW < l.abrg_GarantiewertBis Then
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 If
End Select
Next
End If
'per VERSANDSCHEIN
If SUB_DATA IsNot Nothing Then
For Each r In SUB_DATA.Rows
'Dim next_SND = False
For Each l In LIST_NCTSABR.LIST
'If Not next_SND Then
Select Case l.abrg_artAbrechnung
Case "Versandschein"
Dim GarantieWertSND As Double = CDbl(r("GarantieWert"))
Dim pruefNctsId = False
If Not groupKz Then
If r("ncts_id") = Fields.Item("ncts_id").Value Then
pruefNctsId = True
End If
End If
If r("ncts_VERAG_WeiterverrechungSatz") Is DBNull.Value Or r("ncts_VERAG_WeiterverrechungSatz") Is Nothing Then 'Wenn nicht durch Speziel-Satz verrechnet
If r("AnmeldungsDatum") = Fields.Item("AnmeldungsDatum").Value And ((r("Kennzeichen") = "" And pruefNctsId) Or (r("Kennzeichen") <> "" And r("Kennzeichen") = Fields.Item("Kennzeichen").Value)) Then
If GarantieWertSND < l.abrg_GarantiewertBis Then
l._ANZAHL += 1
'next_SND = True
Exit For
End If
End If
End If
End Select
' End If
Next
Next
End If
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
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

532
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW_TELOTEC.Designer.vb generated Normal file
View File

@@ -0,0 +1,532 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptKontrolleLKW_TELOTEC
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptKontrolleLKW_TELOTEC))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzLKWs = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBezugsnummer, Me.Line, Me.lblSBValue, Me.Label2, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblMRNValue, Me.lblBuergschaft, Me.Label4, Me.Label9, Me.lblGestDatValue})
Me.PageHeader.Height = 0.1903543!
Me.PageHeader.Name = "PageHeader"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1895669!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.2307087!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "LKW-Kz"
Me.lblBezugsnummer.Top = 0.0007874016!
Me.lblBezugsnummer.Width = 0.8492126!
'
'Line
'
Me.Line.Height = 0.00008200109!
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!
Me.Line.X2 = 7.677083!
Me.Line.Y1 = 0.1901575!
Me.Line.Y2 = 0.1902395!
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 4.396851!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblSBValue.Text = "Sachbearb."
Me.lblSBValue.Top = 0.0007874016!
Me.lblSBValue.Width = 0.7681097!
'
'Label2
'
Me.Label2.Height = 0.1377953!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.220867!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label2.Text = "Sicherheit"
Me.Label2.Top = 0.0007874016!
Me.Label2.Width = 0.7972444!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.9177166!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0007874016!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 3.199213!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.002165282!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.959056!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblMRNValue.Text = "CRN"
Me.lblMRNValue.Top = 0.003346407!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 5.125984!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: bold"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0007874072!
Me.lblBuergschaft.Width = 1.16811!
'
'Label4
'
Me.Label4.Height = 0.1377953!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.888189!
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!
Me.Label4.Width = 0.7972444!
'
'Label9
'
Me.Label9.Height = 0.1895669!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "Nr"
Me.Label9.Top = 0.0003937008!
Me.Label9.Width = 0.2035433!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 3.790158!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.001181102!
Me.lblGestDatValue.Width = 0.6299216!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNr, Me.lblSiBetragValue, Me.lblLKW, Me.SubReport})
Me.Detail.Height = 0.1464567!
Me.Detail.Name = "Detail"
'
'lblNr
'
Me.lblNr.Height = 0.1374016!
Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 8pt; font-weight: normal"
Me.lblNr.Text = "500."
Me.lblNr.Top = 0.008661418!
Me.lblNr.Width = 0.2657481!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 6.695276!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.008661417!
Me.lblSiBetragValue.Width = 0.9901576!
'
'lblLKW
'
Me.lblLKW.Height = 0.1374016!
Me.lblLKW.HyperLink = Nothing
Me.lblLKW.Left = 0.2307087!
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 8pt; font-weight: bold"
Me.lblLKW.Text = "LKW"
Me.lblLKW.Top = 0.009055119!
Me.lblLKW.Width = 1.05315!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.1374016!
Me.SubReport.Left = 0.9177166!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.008661418!
Me.SubReport.Width = 6.100394!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2250984!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.131473!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02490158!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.067693!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02490158!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.212992!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.02509842!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
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!
Me.Line2.X2 = 7.677083!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
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"
Me.lblText1.Top = 0.0472441!
Me.lblText1.Width = 4.000394!
'
'Label6
'
Me.Label6.Height = 0.1374017!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.0000004023314!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal"
Me.Label6.Text = "Zeitraum:"
Me.Label6.Top = 0.4555119!
Me.Label6.Width = 2.437795!
'
'Label7
'
Me.Label7.Height = 0.1374017!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.437796!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: normal"
Me.Label7.Text = "B<EFBFBD>rgschaft:"
Me.Label7.Top = 0.4555119!
Me.Label7.Width = 2.437795!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label6, Me.Label7, Me.Label10})
Me.ReportHeader1.Height = 0.7207352!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Label10
'
Me.Label10.Height = 0.4082677!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 2.816142!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-weight: bold"
Me.Label10.Text = "ZOLL AT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten aus TELOTEC / E-ZOLL"
Me.Label10.Top = 0.0472441!
Me.Label10.Width = 2.059449!
'
'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.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe LKWs:"
Me.Label1.Top = 0.3129922!
Me.Label1.Width = 0.8141733!
'
'Label3
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.0000002533197!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Versandscheine:"
Me.Label3.Top = 0.4795276!
Me.Label3.Width = 1.283858!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 4.997245!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.Label5.Text = "Summe Sicherheitsbetrag:"
Me.Label5.Top = 0.3129922!
Me.Label5.Width = 1.470867!
'
'lblSummeSiBetr
'
Me.lblSummeSiBetr.Height = 0.1377953!
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.622048!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" &
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.3125984!
Me.lblSummeSiBetr.Width = 1.063386!
'
'lblAnzLKWs
'
Me.lblAnzLKWs.Height = 0.1374017!
Me.lblAnzLKWs.HyperLink = Nothing
Me.lblAnzLKWs.Left = 1.283858!
Me.lblAnzLKWs.Name = "lblAnzLKWs"
Me.lblAnzLKWs.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzLKWs.Text = "0"
Me.lblAnzLKWs.Top = 0.3129922!
Me.lblAnzLKWs.Width = 0.5122049!
'
'lblAnzT
'
Me.lblAnzT.Height = 0.1374017!
Me.lblAnzT.HyperLink = Nothing
Me.lblAnzT.Left = 1.283858!
Me.lblAnzT.Name = "lblAnzT"
Me.lblAnzT.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzT.Text = "0"
Me.lblAnzT.Top = 0.4795276!
Me.lblAnzT.Width = 0.5122049!
'
'rptKontrolleLKW_TELOTEC
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.673228!
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.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeSiBetr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzLKWs As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzT As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

187
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW_TELOTEC.vb Normal file
View File

@@ -0,0 +1,187 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptKontrolleLKW_TELOTEC
Public datVon As Date
Public datBis As Date
Public FIRMA As String = "ATILLA"
Public BRG As String = ""
Dim operatorID = "1"
Dim kundenSQL As New kundenSQL
Dim SUB_DATA As DataTable = 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
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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-BRG")
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "Auswertung offene Antr<74>ge mit Vorauszahlung"
'lblHeader.Text = Me.Name
'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
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim whereBRG = " AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
If BRG <> "" Then
whereBRG = " AND GRN IN ( '" & BRG & "') "
End If
Dim StatVon As String = "50"
Dim StatBis As String = "60"
'If FIRMA = "DURMAZ" Then mandant = "SUW"
Dim sqlStr As String = "SELECT isnull([Transp_CrossIdnt],'X') as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum ,COUNT(*) ,SUM(GVal) as GarantieWert
FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
WHERE [tblTelotec_Anmeldung].[Hea_AccDT] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1
" & whereBRG & "
AND tblTelotec_Anmeldung. [Mandant_ID]='" & FIRMA & "'
group by cast(Hea_AccDT as date),[Transp_CrossIdnt]
ORDER BY cast(Hea_AccDT as date)"
'Dim sqlStr As String = "SELECT [Transp_CrossIdnt] as Kennzeichen,cast(dec_CreateDate as date) AnmeldungsDatum ,COUNT(*) ,SUM(GVal) as GarantieWert
' FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
' WHERE [tblTelotec_Anmeldung].[CtrlRslt_DLimit] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1
' AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' )
' AND tblTelotec_Anmeldung. [Mandant_ID]='" & FIRMA & "'
' group by cast(dec_CreateDate as date),[Transp_CrossIdnt]
' ORDER BY cast(dec_CreateDate as date)"
'Dim sqlStr As String = " SELECT DepIdnt, vw.AnmeldungsDatum,COUNT(*) ,SUM(GarantieWert) as GarantieWert FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Daten<65>bernahme as vw"
'sqlStr &= " inner join [ezoll].[dbo].[zsAnmTransp] on [zsAnmTransp].AnmID=vw.AnmID and vw.OperatorID=[zsAnmTransp].OperatorID"
'sqlStr &= " WHERE cast (vw.[AnmeldungsDatum] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
'sqlStr &= " AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
'sqlStr &= " and vw.OperatorId IN (" & operatorID & ")"
'sqlStr &= " group by vw.AnmeldungsDatum,Kennzeichen"
'sqlStr &= " order by vw.AnmeldungsDatum"
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 1000)
Dim sqlStrSUB As String = " SELECT isnull([Transp_CrossIdnt],'X') as Kennzeichen,cast(Hea_AccDT as date) AnmeldungsDatum, *
FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
WHERE [tblTelotec_Anmeldung].[Hea_AccDT] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1
" & whereBRG & "
AND tblTelotec_Anmeldung. [Mandant_ID]='" & FIRMA & "'
ORDER BY cast(Hea_AccDT as date)"
'Dim sqlStrSUB As String = " SELECT [Transp_CrossIdnt] as Kennzeichen,cast(dec_CreateDate as date) AnmeldungsDatum, *
' FROM tblTelotec_Sicherheit inner join [tblTelotec_Anmeldung] on telanm_id = telgrt_telanmId
' WHERE [tblTelotec_Anmeldung].[CtrlRslt_DLimit] BETWEEN '" & datVon.ToShortDateString & " 00:00:00' AND '" & datBis.ToShortDateString & " 23:23:59' AND telanm_Status BETWEEN '" & StatVon & "' and '" & StatBis & "' AND [telnam_aktuellsteNachricht]=1
' AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' )
' AND tblTelotec_Anmeldung. [Mandant_ID]='" & FIRMA & "'
' ORDER BY cast(dec_CreateDate as date)"
'Dim sqlStrSUB As String = " SELECT * FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Daten<65>bernahme as vw"
'sqlStrSUB &= " inner join [zsAnmTransp] on [zsAnmTransp].AnmID=vw.AnmID and vw.OperatorID=[zsAnmTransp].OperatorID"
'sqlStrSUB &= " inner join [zzPersonal] on PersonalID =[zsAnmTransp].GeaendertVon"
'sqlStrSUB &= " WHERE cast (vw.[AnmeldungsDatum] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
'sqlStrSUB &= " AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
'sqlStrSUB &= " and vw.OperatorId IN (" & operatorID & ")"
'sqlStrSUB &= " order by vw.AnmeldungsDatum"
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
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Dim nr As Integer = 1
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
Dim GarantieWert As Double = If(Fields.Item("GarantieWert").Value Is DBNull.Value, 0, CDbl(Fields.Item("GarantieWert").Value))
summeSiBetr += GarantieWert
lblLKW.Text = CStr(Fields.Item("Kennzeichen").Value)
lblNr.Text = anzLkw & "."
lblSiBetragValue.Text = "<EFBFBD> " & GarantieWert.ToString("N2", CultureInfo.InvariantCulture)
If SUB_DATA IsNot Nothing Then
Dim subrpt As New subrptKontrolleLKW_Telotec
subrpt.Kennzeichen = Fields.Item("Kennzeichen").Value
subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
Dim dt As DataTable = SUB_DATA.Clone
dt.Rows.Clear()
'For Each c As DataColumn In dt.Columns
'c.AllowDBNull = True
'Next
For Each r In SUB_DATA.Rows
If r("AnmeldungsDatum") = subrpt.AnmeldungsDatum And r("Kennzeichen") = subrpt.Kennzeichen Then
' dt.Rows.Add(r)
dt.ImportRow(r)
End If
Next
subrpt.DataSource = dt
Me.SubReport.Report = subrpt
AddHandler Me.SubReport.Report.ReportEnd, Sub()
anzT += DirectCast(Me.SubReport.Report, subrptKontrolleLKW_Telotec).AnzT
End Sub
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
lblAnzLKWs.Text = anzLkw
lblAnzT.Text = anzT
End Sub
End Class

532
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW_Zolaris.Designer.vb generated Normal file
View File

@@ -0,0 +1,532 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptKontrolleLKW_Zolaris
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptKontrolleLKW_Zolaris))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLKW = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzLKWs = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblBezugsnummer, Me.Line, Me.lblSBValue, Me.Label2, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblMRNValue, Me.lblBuergschaft, Me.Label4, Me.Label9, Me.lblGestDatValue})
Me.PageHeader.Height = 0.1903543!
Me.PageHeader.Name = "PageHeader"
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1895669!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.2307087!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "LKW-Kz"
Me.lblBezugsnummer.Top = 0.0007874016!
Me.lblBezugsnummer.Width = 0.8492126!
'
'Line
'
Me.Line.Height = 0.00008200109!
Me.Line.Left = 0.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.X2 = 7.677083!
Me.Line.Y1 = 0.1901575!
Me.Line.Y2 = 0.1902395!
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 4.396851!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblSBValue.Text = "Sachbearb."
Me.lblSBValue.Top = 0.0007874016!
Me.lblSBValue.Width = 0.7681097!
'
'Label2
'
Me.Label2.Height = 0.1377953!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 6.220867!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label2.Text = "Sicherheit"
Me.Label2.Top = 0.0007874016!
Me.Label2.Width = 0.7972444!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.9177166!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0007874016!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 3.199213!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.002165282!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.959056!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblMRNValue.Text = "CRN"
Me.lblMRNValue.Top = 0.003346407!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 5.125984!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: bold"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0007874072!
Me.lblBuergschaft.Width = 1.16811!
'
'Label4
'
Me.Label4.Height = 0.1377953!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 6.888189!
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.Width = 0.7972444!
'
'Label9
'
Me.Label9.Height = 0.1895669!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.0!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "Nr"
Me.Label9.Top = 0.0003937008!
Me.Label9.Width = 0.2035433!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 3.790158!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.001181102!
Me.lblGestDatValue.Width = 0.6299216!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblNr, Me.lblSiBetragValue, Me.lblLKW, Me.SubReport})
Me.Detail.Height = 0.1464567!
Me.Detail.Name = "Detail"
'
'lblNr
'
Me.lblNr.Height = 0.1374016!
Me.lblNr.HyperLink = Nothing
Me.lblNr.Left = 0.0!
Me.lblNr.Name = "lblNr"
Me.lblNr.Style = "font-size: 8pt; font-weight: normal"
Me.lblNr.Text = "500."
Me.lblNr.Top = 0.008661418!
Me.lblNr.Width = 0.2657481!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 6.695276!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.008661417!
Me.lblSiBetragValue.Width = 0.9901576!
'
'lblLKW
'
Me.lblLKW.Height = 0.1374016!
Me.lblLKW.HyperLink = Nothing
Me.lblLKW.Left = 0.2307087!
Me.lblLKW.Name = "lblLKW"
Me.lblLKW.Style = "font-size: 8pt; font-weight: bold"
Me.lblLKW.Text = "LKW"
Me.lblLKW.Top = 0.009055119!
Me.lblLKW.Width = 1.05315!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.1374016!
Me.SubReport.Left = 0.9177166!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.008661418!
Me.SubReport.Width = 6.100394!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2250984!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.131473!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02490158!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.067693!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02490158!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.212992!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.02509842!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0.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.X2 = 7.677083!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527887!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.0!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0.0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.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"
Me.lblText1.Top = 0.0472441!
Me.lblText1.Width = 4.000394!
'
'Label6
'
Me.Label6.Height = 0.1374017!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.0000004023314!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal"
Me.Label6.Text = "Zeitraum:"
Me.Label6.Top = 0.4555119!
Me.Label6.Width = 2.437795!
'
'Label7
'
Me.Label7.Height = 0.1374017!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.437796!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: normal"
Me.Label7.Text = "B<EFBFBD>rgschaft:"
Me.Label7.Top = 0.4555119!
Me.Label7.Width = 2.437795!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label6, Me.Label7, Me.Label10})
Me.ReportHeader1.Height = 0.7207352!
Me.ReportHeader1.Name = "ReportHeader1"
'
'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.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe LKWs:"
Me.Label1.Top = 0.3129922!
Me.Label1.Width = 0.8141733!
'
'Label3
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0.0000002533197!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Versandscheine:"
Me.Label3.Top = 0.4795276!
Me.Label3.Width = 1.283858!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 4.997245!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.Label5.Text = "Summe Sicherheitsbetrag:"
Me.Label5.Top = 0.3129922!
Me.Label5.Width = 1.470867!
'
'lblSummeSiBetr
'
Me.lblSummeSiBetr.Height = 0.1377953!
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.622048!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" & _
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.3125984!
Me.lblSummeSiBetr.Width = 1.063386!
'
'lblAnzLKWs
'
Me.lblAnzLKWs.Height = 0.1374017!
Me.lblAnzLKWs.HyperLink = Nothing
Me.lblAnzLKWs.Left = 1.283858!
Me.lblAnzLKWs.Name = "lblAnzLKWs"
Me.lblAnzLKWs.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzLKWs.Text = "0"
Me.lblAnzLKWs.Top = 0.3129922!
Me.lblAnzLKWs.Width = 0.5122049!
'
'lblAnzT
'
Me.lblAnzT.Height = 0.1374017!
Me.lblAnzT.HyperLink = Nothing
Me.lblAnzT.Left = 1.283858!
Me.lblAnzT.Name = "lblAnzT"
Me.lblAnzT.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzT.Text = "0"
Me.lblAnzT.Top = 0.4795276!
Me.lblAnzT.Width = 0.5122049!
'
'Label10
'
Me.Label10.Height = 0.4082677!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 2.909843!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-weight: bold"
Me.Label10.Text = "ZOLL AT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Daten aus ZOLARIS / E-ZOLL"
Me.Label10.Top = 0.0472441!
Me.Label10.Width = 1.965748!
'
'rptKontrolleLKW_Zolaris
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.673228!
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.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLKW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzLKWs, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblLKW As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeSiBetr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzLKWs As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzT As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

166
SDL/ARConverterBackup2/Reports/Zoll/rptKontrolleLKW_Zolaris.vb Normal file
View File

@@ -0,0 +1,166 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptKontrolleLKW_Zolaris
Public datVon As Date
Public datBis As Date
Public BRG As String = ""
Public FIRMA As String = "ATILLA"
Public EZOLL_SRV As String = "EZOLL"
Dim operatorID = "1"
Dim kundenSQL As New kundenSQL
Dim SUB_DATA As DataTable = 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
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "Auswertung offene Antr<74>ge mit Vorauszahlung"
'lblHeader.Text = Me.Name
'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
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim whereBRG = " AND GRN IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) "
If BRG <> "" Then
whereBRG = " AND GRN IN ( '" & BRG & "') "
End If
'If FIRMA = "DURMAZ" Then mandant = "SUW"
If FIRMA = "ATILLA" Then operatorID = "'5','6'"
If FIRMA = "DURMAZ" Then operatorID = "'8'"
Dim whereOperator = " and vw.OperatorId IN (" & operatorID & ") "
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Or BRG = "17DE0000000071270" Or BRG = "05AT500000G000EU9" Then
' EZOLL_SRV = "EZOLL_UNISPED" --> Stimmt gar nciht, wenn ATILLA das VERAG DHF nutzt
' whereOperator = " "
End If
Dim sqlStr As String = " SELECT DepIdnt, vw.AnmeldungsDatum,COUNT(*) ,SUM(GarantieWert) as GarantieWert FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Daten<65>bernahme as vw"
sqlStr &= " inner join [ezoll].[dbo].[zsAnmTransp] on [zsAnmTransp].AnmID=vw.AnmID and vw.OperatorID=[zsAnmTransp].OperatorID"
sqlStr &= " WHERE cast (vw.[AnmeldungsDatum] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStr &= whereBRG
sqlStr &= whereOperator
sqlStr &= " group by vw.AnmeldungsDatum,DepIdnt"
sqlStr &= " order by vw.AnmeldungsDatum"
' MsgBox(sqlStr)
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, EZOLL_SRV, 1000)
Dim sqlStrSUB As String = " SELECT * FROM ezoll.dbo.vwVERAG_Zolaris_EZoll_NCTS_Daten<65>bernahme as vw"
sqlStrSUB &= " inner join [zsAnmTransp] on [zsAnmTransp].AnmID=vw.AnmID and vw.OperatorID=[zsAnmTransp].OperatorID"
sqlStrSUB &= " inner join [zzPersonal] on PersonalID =[zsAnmTransp].GeaendertVon and [zzPersonal].[KzAktiv] is not null "
sqlStrSUB &= " WHERE cast (vw.[AnmeldungsDatum] as date) BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "'"
sqlStrSUB &= whereBRG
sqlStrSUB &= whereOperator
sqlStrSUB &= " order by vw.AnmeldungsDatum"
SUB_DATA = kundenSQL.loadDgvBySql(sqlStrSUB, EZOLL_SRV, 1000)
lblText1.Text = lblText1.Text & " - " & FIRMA
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
Label7.Text = "" '"B<>rgschaft: " & brg
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Dim nr As Integer = 1
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
summeSiBetr += CDbl(Fields.Item("GarantieWert").Value)
lblLKW.Text = CStr(Fields.Item("DepIdnt").Value)
lblNr.Text = anzLkw & "."
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("GarantieWert").Value).ToString("N2", CultureInfo.InvariantCulture)
If SUB_DATA IsNot Nothing Then
Dim subrpt As New subrptKontrolleLKW_Zolaris
subrpt.Kennzeichen = Fields.Item("DepIdnt").Value
subrpt.AnmeldungsDatum = Fields.Item("AnmeldungsDatum").Value
Dim dt As DataTable = SUB_DATA.Clone
dt.Rows.Clear()
'For Each c As DataColumn In dt.Columns
'c.AllowDBNull = True
'Next
For Each r In SUB_DATA.Rows
If r("AnmeldungsDatum") = subrpt.AnmeldungsDatum And r("DepIdnt") = subrpt.Kennzeichen Then
' dt.Rows.Add(r)
dt.ImportRow(r)
End If
Next
subrpt.DataSource = dt
Me.SubReport.Report = subrpt
AddHandler Me.SubReport.Report.ReportEnd, Sub()
anzT += DirectCast(Me.SubReport.Report, subrptKontrolleLKW_Zolaris).AnzT
End Sub
End If
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
lblAnzLKWs.Text = anzLkw
lblAnzT.Text = anzT
End Sub
End Class

187
SDL/ARConverterBackup2/Reports/Zoll/rptMRNDruck.Designer.vb generated Normal file
View File

@@ -0,0 +1,187 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptMRNDruck
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(rptMRNDruck))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.lblMRN = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.picMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2, Me.lblSachbearbeiter})
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.002362!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.02480315!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.07283465!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02480315!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 2.790945!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt; text-align: center"
Me.Label8.Text = "VERAG Spedition "
Me.Label8.Top = 0.02519685!
Me.Label8.Width = 1.870472!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0!
Me.Line2.Width = 7.480315!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.480315!
Me.Line2.Y1 = 0!
Me.Line2.Y2 = 0!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.2!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "font-size: 8pt"
Me.lblSachbearbeiter.Text = "-"
Me.lblSachbearbeiter.Top = 0.05!
Me.lblSachbearbeiter.Width = 1.130708!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblMRN, Me.picMRN})
Me.ReportHeader1.Height = 2.309859!
Me.ReportHeader1.Name = "ReportHeader1"
'
'lblMRN
'
Me.lblMRN.Height = 0.7704724!
Me.lblMRN.HyperLink = Nothing
Me.lblMRN.Left = 0.5657481!
Me.lblMRN.Name = "lblMRN"
Me.lblMRN.Style = "font-size: 15pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblMRN.Text = "MRN: XXXXXX"
Me.lblMRN.Top = 0.8543308!
Me.lblMRN.Width = 5.134646!
'
'picMRN
'
Me.picMRN.Height = 0.4169292!
Me.picMRN.HyperLink = Nothing
Me.picMRN.ImageData = Nothing
Me.picMRN.Left = 0.5657481!
Me.picMRN.Name = "picMRN"
Me.picMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picMRN.Top = 0.4374016!
Me.picMRN.Width = 3.436615!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptMRNDruck
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Portrait
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.ScriptLanguage = "VB.NET"
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.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblMRN As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents picMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Public WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

10
SDL/ARConverterBackup2/Reports/Zoll/rptMRNDruck.vb Normal file
View File

@@ -0,0 +1,10 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports VERAG_PROG_ALLGEMEIN
Public Class rptMRNDruck
Private Sub rptMRNDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

608
SDL/ARConverterBackup2/Reports/Zoll/rptTGestellungskontrolle.Designer.vb generated Normal file
View File

@@ -0,0 +1,608 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptTGestellungskontrolle
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptTGestellungskontrolle))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStatus = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeOffenerSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblArbeitsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnnahme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestellung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzAbf = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblArbeitsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzAbf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label2, Me.Label11, Me.lblStatus, Me.lblSummeOffenerSachbearbeiter, Me.Label4, Me.lblBezugsnummer, Me.lblArbeitsnummer, Me.lblAnnahme, Me.lblGestellung, Me.Label9, Me.Line1})
Me.PageHeader.Height = 0.186554!
Me.PageHeader.Name = "PageHeader"
'
'Label2
'
Me.Label2.Height = 0.1480315!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.423622!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold"
Me.Label2.Text = "MRN"
Me.Label2.Top = 0.03110239!
Me.Label2.Width = 1.212598!
'
'Label11
'
Me.Label11.Height = 0.1480315!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 4.633858!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold"
Me.Label11.Text = "B<EFBFBD>rgschaft"
Me.Label11.Top = 0.02874016!
Me.Label11.Width = 1.183071!
'
'lblStatus
'
Me.lblStatus.Height = 0.1478346!
Me.lblStatus.HyperLink = Nothing
Me.lblStatus.Left = 0!
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Style = "font-size: 8pt; font-weight: bold"
Me.lblStatus.Text = "St."
Me.lblStatus.Top = 0.03031497!
Me.lblStatus.Width = 0.2074803!
'
'lblSummeOffenerSachbearbeiter
'
Me.lblSummeOffenerSachbearbeiter.Height = 0.1480315!
Me.lblSummeOffenerSachbearbeiter.HyperLink = Nothing
Me.lblSummeOffenerSachbearbeiter.Left = 3.915747!
Me.lblSummeOffenerSachbearbeiter.Name = "lblSummeOffenerSachbearbeiter"
Me.lblSummeOffenerSachbearbeiter.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffenerSachbearbeiter.Text = "Sachbearb."
Me.lblSummeOffenerSachbearbeiter.Top = 0.02874016!
Me.lblSummeOffenerSachbearbeiter.Width = 0.7181101!
'
'Label4
'
Me.Label4.Height = 0.1480315!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 7.076378!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Sicherheit"
Me.Label4.Top = 0.02874016!
Me.Label4.Width = 0.6047239!
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1478346!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.4551182!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "Bezugsnummer"
Me.lblBezugsnummer.Top = 0.03031496!
Me.lblBezugsnummer.Width = 0.968504!
'
'lblArbeitsnummer
'
Me.lblArbeitsnummer.Height = 0.1480315!
Me.lblArbeitsnummer.HyperLink = Nothing
Me.lblArbeitsnummer.Left = 5.816929!
Me.lblArbeitsnummer.Name = "lblArbeitsnummer"
Me.lblArbeitsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblArbeitsnummer.Text = "Empf<EFBFBD>nger"
Me.lblArbeitsnummer.Top = 0.03051182!
Me.lblArbeitsnummer.Width = 1.198425!
'
'lblAnnahme
'
Me.lblAnnahme.Height = 0.1478347!
Me.lblAnnahme.HyperLink = Nothing
Me.lblAnnahme.Left = 2.658267!
Me.lblAnnahme.Name = "lblAnnahme"
Me.lblAnnahme.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnnahme.Text = "Annahme"
Me.lblAnnahme.Top = 0.02992126!
Me.lblAnnahme.Width = 0.6299213!
'
'lblGestellung
'
Me.lblGestellung.Height = 0.1478347!
Me.lblGestellung.HyperLink = Nothing
Me.lblGestellung.Left = 3.288189!
Me.lblGestellung.Name = "lblGestellung"
Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestellung.Text = "Gest.Frist"
Me.lblGestellung.Top = 0.02913386!
Me.lblGestellung.Width = 0.6125984!
'
'Label9
'
Me.Label9.Height = 0.1478346!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.1562992!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "NL"
Me.Label9.Top = 0.02952756!
Me.Label9.Width = 0.2909448!
'
'Line1
'
Me.Line1.Height = 0.00008200109!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1795276!
Me.Line1.Width = 7.677084!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084!
Me.Line1.Y1 = 0.1795276!
Me.Line1.Y2 = 0.1796096!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblMRNValue, Me.lblStatValue, Me.lblSBValue, Me.lblSiBetragValue, Me.lblBezugsnrValue, Me.lblEmpfaenger, Me.lblAnDatValue, Me.lblGestDatValue, Me.Label10, Me.lblBuergschaft})
Me.Detail.Height = 0.1411417!
Me.Detail.Name = "Detail"
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.423621!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = -2.220446E-16!
Me.lblMRNValue.Width = 1.212598!
'
'lblStatValue
'
Me.lblStatValue.Height = 0.1374016!
Me.lblStatValue.HyperLink = Nothing
Me.lblStatValue.Left = 0!
Me.lblStatValue.Name = "lblStatValue"
Me.lblStatValue.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto"
Me.lblStatValue.Text = "00"
Me.lblStatValue.Top = -2.793968E-9!
Me.lblStatValue.Width = 0.2074803!
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 3.915747!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblSBValue.Text = "Sachbearbeiter"
Me.lblSBValue.Top = 2.793968E-9!
Me.lblSBValue.Width = 0.7181101!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 6.879922!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0!
Me.lblSiBetragValue.Width = 0.8011808!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.4551181!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = -5.587935E-9!
Me.lblBezugsnrValue.Width = 0.968504!
'
'lblEmpfaenger
'
Me.lblEmpfaenger.Height = 0.1375984!
Me.lblEmpfaenger.HyperLink = Nothing
Me.lblEmpfaenger.Left = 5.816929!
Me.lblEmpfaenger.Name = "lblEmpfaenger"
Me.lblEmpfaenger.Style = "font-size: 8pt; font-weight: normal"
Me.lblEmpfaenger.Text = "Empf<EFBFBD>nger"
Me.lblEmpfaenger.Top = 0!
Me.lblEmpfaenger.Width = 1.198425!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 2.658267!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 2.793968E-9!
Me.lblAnDatValue.Width = 0.6299214!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 3.288189!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 2.793968E-9!
Me.lblGestDatValue.Width = 0.6275587!
'
'Label10
'
Me.Label10.Height = 0.1374016!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.1562992!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto"
Me.Label10.Text = "SUW"
Me.Label10.Top = -2.793968E-9!
Me.Label10.Width = 0.2909449!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 4.633858!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: normal"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 2.793968E-9!
Me.lblBuergschaft.Width = 1.183071!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2048064!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.199213!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.05669292!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.02598425!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.05669292!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.213015!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.05688977!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.05708662!
Me.Line2.Width = 7.677084!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084!
Me.Line2.Y1 = 0.05708662!
Me.Line2.Y2 = 0.05716864!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label6, Me.Label7})
Me.ReportHeader1.Height = 0.7625!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.932283!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(10) & "NCTS Gestellungskontrolle"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.000394!
'
'Label6
'
Me.Label6.Height = 0.1374017!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.0000004172325!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal"
Me.Label6.Text = "Zeitraum:"
Me.Label6.Top = 0.5000001!
Me.Label6.Width = 2.437795!
'
'Label7
'
Me.Label7.Height = 0.1374017!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.437796!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: normal"
Me.Label7.Text = "B<EFBFBD>rgschaft:"
Me.Label7.Top = 0.5000001!
Me.Label7.Width = 3.479527!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label1, Me.Label3, Me.Label5, Me.lblSummeSiBetr, Me.lblAnzAbf, Me.lblAnzT})
Me.ReportFooter1.Height = 0.4748033!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe Abfertigungen:"
Me.Label1.Top = 0.1708661!
Me.Label1.Width = 1.18937!
'
'Label3
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Positionen:"
Me.Label3.Top = 0.3374016!
Me.Label3.Visible = False
Me.Label3.Width = 1.18937!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 5.146851!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.Label5.Text = "Summe Sicherheitsbetrag:"
Me.Label5.Top = 0.1708662!
Me.Label5.Width = 1.470867!
'
'lblSummeSiBetr
'
Me.lblSummeSiBetr.Height = 0.1377953!
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.617717!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" &
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.1704725!
Me.lblSummeSiBetr.Width = 1.063386!
'
'lblAnzAbf
'
Me.lblAnzAbf.Height = 0.1374017!
Me.lblAnzAbf.HyperLink = Nothing
Me.lblAnzAbf.Left = 1.18937!
Me.lblAnzAbf.Name = "lblAnzAbf"
Me.lblAnzAbf.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzAbf.Text = "0"
Me.lblAnzAbf.Top = 0.1708661!
Me.lblAnzAbf.Width = 0.5122048!
'
'lblAnzT
'
Me.lblAnzT.Height = 0.1374017!
Me.lblAnzT.HyperLink = Nothing
Me.lblAnzT.Left = 1.18937!
Me.lblAnzT.Name = "lblAnzT"
Me.lblAnzT.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzT.Text = "0"
Me.lblAnzT.Top = 0.3374016!
Me.lblAnzT.Visible = False
Me.lblAnzT.Width = 0.5122048!
'
'rptTGestellungskontrolle
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
Me.ScriptLanguage = "VB.NET"
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.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblArbeitsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzAbf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblStatus As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeOffenerSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblArbeitsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnnahme As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestellung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblStatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeSiBetr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzAbf As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzT As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

105
SDL/ARConverterBackup2/Reports/Zoll/rptTGestellungskontrolle.vb Normal file
View File

@@ -0,0 +1,105 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptTGestellungskontrolle
Public datVon As Date
Public datBis As Date
Public statVon As String = "50"
Public statBis As String = "53"
Public brg As String = "" 'default brg
Public nl As String = ""
Public sqlStr As String = ""
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "Auswertung offene Antr<74>ge mit Vorauszahlung"
'lblHeader.Text = Me.Name
'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
' Dim sqlStrOLD As String = " SELECT count(*) as [Anzahl Verz], max(veopos_stat) as Status, max(veoant_beznr) as Bezugsnummer,max(veoant_lfdnr) as LfdNr,max(veoant_anzpos)as Pos,max(veoant_arbnr)as ArbNr,max(veoant_mrn) as MRN,max(veoant_andat) as Antragsdatum,max(veoant_sb) as Sachbearbeiter,max(veoant_wgdat) as Gestellungsdatum,sum(veoerz_sicbtg) as [Sichertheits-Betrag], max(veoerz_sicbsc) as Buergschaft " &
'" FROM tblZabis_Atlas_NCTS " &
'" WHERE ( veoant_andat BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "') " &
'" AND veoant_stat IN (50,53,60) " &
'" AND veoerz_sicbsc = '" & brg & "' " &
'" AND basman_nl='SUW' " &
'" AND veoant_beznr LIKE 'DU%' " &
'" GROUP BY veoant_beznr " &
'" ORDER BY Antragsdatum "
' MsgBox(sqlStr)
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 600)
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
Label7.Text = "B<EFBFBD>rgschaft: " & brg
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
lblAnDatValue.Text = CStr(Fields.Item("Antragsdatum").Value)
' lblAnzTValue.Text = CStr(Fields.Item("Anzahl Verz").Value)
Label10.Text = CStr(Fields.Item("Niederlassung").Value)
' lblEmpfaenger.Text = CStr(Fields.Item("ArbNr").Value)
lblEmpfaenger.Text = CStr(Fields.Item("Empf").Value)
lblBezugsnrValue.Text = CStr(Fields.Item("Bezugsnummer").Value)
lblGestDatValue.Text = CStr(Fields.Item("Gestellungsdatum").Value)
lblMRNValue.Text = CStr(Fields.Item("MRN").Value)
lblSBValue.Text = CStr(Fields.Item("Sachbearbeiter").Value)
lblBuergschaft.Text = CStr(Fields.Item("Buergschaft").Value)
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("Sichertheits-Betrag").Value).ToString("N2", CultureInfo.InvariantCulture)
lblStatValue.Text = CStr(Fields.Item("Status").Value)
' anzT += CInt(lblAnzTValue.Text)
summeSiBetr += CDbl(Fields.Item("Sichertheits-Betrag").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = System.Drawing.Color.White
Else
Detail.BackColor = System.Drawing.Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
lblAnzAbf.Text = anzLkw
lblAnzT.Text = anzT
End Sub
End Class

610
SDL/ARConverterBackup2/Reports/Zoll/rptTGestellungskontrolleDY.Designer.vb generated Normal file
View File

@@ -0,0 +1,610 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptTGestellungskontrolleDY
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.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(rptTGestellungskontrolleDY))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStatus = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeOffenerSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblArbeitsnummer = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnnahme = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestellung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblStatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEmpfaenger = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportInfo1 = New GrapeCity.ActiveReports.SectionReportModel.ReportInfo()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSummeSiBetr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzAbf = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnzT = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblArbeitsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblStatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEmpfaenger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzAbf, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label2, Me.Label11, Me.lblStatus, Me.lblSummeOffenerSachbearbeiter, Me.Label4, Me.lblBezugsnummer, Me.lblArbeitsnummer, Me.lblAnnahme, Me.lblGestellung, Me.Label9, Me.Line1})
Me.PageHeader.Height = 0.186554!
Me.PageHeader.Name = "PageHeader"
'
'Label2
'
Me.Label2.Height = 0.1480315!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.423623!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 8pt; font-weight: bold"
Me.Label2.Text = "MRN"
Me.Label2.Top = 0.03110239!
Me.Label2.Width = 1.212598!
'
'Label11
'
Me.Label11.Height = 0.1480315!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 4.559843!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-size: 8pt; font-weight: bold"
Me.Label11.Text = "B<EFBFBD>rgschaft"
Me.Label11.Top = 0.02874016!
Me.Label11.Width = 1.183071!
'
'lblStatus
'
Me.lblStatus.Height = 0.1478346!
Me.lblStatus.HyperLink = Nothing
Me.lblStatus.Left = 0!
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Style = "font-size: 8pt; font-weight: bold"
Me.lblStatus.Text = "St."
Me.lblStatus.Top = 0.03031497!
Me.lblStatus.Width = 0.2074803!
'
'lblSummeOffenerSachbearbeiter
'
Me.lblSummeOffenerSachbearbeiter.Height = 0.1480315!
Me.lblSummeOffenerSachbearbeiter.HyperLink = Nothing
Me.lblSummeOffenerSachbearbeiter.Left = 3.893701!
Me.lblSummeOffenerSachbearbeiter.Name = "lblSummeOffenerSachbearbeiter"
Me.lblSummeOffenerSachbearbeiter.Style = "font-size: 8pt; font-weight: bold"
Me.lblSummeOffenerSachbearbeiter.Text = "Sachbearb."
Me.lblSummeOffenerSachbearbeiter.Top = 0.02874016!
Me.lblSummeOffenerSachbearbeiter.Width = 0.666142!
'
'Label4
'
Me.Label4.Height = 0.1480315!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 7.072441!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.Label4.Text = "Sicherheit"
Me.Label4.Top = 0.02874016!
Me.Label4.Width = 0.6047239!
'
'lblBezugsnummer
'
Me.lblBezugsnummer.Height = 0.1478346!
Me.lblBezugsnummer.HyperLink = Nothing
Me.lblBezugsnummer.Left = 0.4551182!
Me.lblBezugsnummer.Name = "lblBezugsnummer"
Me.lblBezugsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnummer.Text = "Bezugsnummer"
Me.lblBezugsnummer.Top = 0.03031496!
Me.lblBezugsnummer.Width = 0.968504!
'
'lblArbeitsnummer
'
Me.lblArbeitsnummer.Height = 0.1480315!
Me.lblArbeitsnummer.HyperLink = Nothing
Me.lblArbeitsnummer.Left = 5.742914!
Me.lblArbeitsnummer.Name = "lblArbeitsnummer"
Me.lblArbeitsnummer.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblArbeitsnummer.Style = "font-size: 8pt; font-weight: bold"
Me.lblArbeitsnummer.Text = "Empf<EFBFBD>nger"
Me.lblArbeitsnummer.Top = 0.03070866!
Me.lblArbeitsnummer.Width = 1.27244!
'
'lblAnnahme
'
Me.lblAnnahme.Height = 0.1478347!
Me.lblAnnahme.HyperLink = Nothing
Me.lblAnnahme.Left = 2.636221!
Me.lblAnnahme.Name = "lblAnnahme"
Me.lblAnnahme.Style = "font-size: 8pt; font-weight: bold"
Me.lblAnnahme.Text = "Annahme"
Me.lblAnnahme.Top = 0.02992126!
Me.lblAnnahme.Width = 0.6299213!
'
'lblGestellung
'
Me.lblGestellung.Height = 0.1478347!
Me.lblGestellung.HyperLink = Nothing
Me.lblGestellung.Left = 3.266143!
Me.lblGestellung.Name = "lblGestellung"
Me.lblGestellung.Style = "font-size: 8pt; font-weight: bold"
Me.lblGestellung.Text = "Gest.Frist"
Me.lblGestellung.Top = 0.02913386!
Me.lblGestellung.Width = 0.6125984!
'
'Label9
'
Me.Label9.Height = 0.1478346!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 0.1562992!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: bold"
Me.Label9.Text = "NL"
Me.Label9.Top = 0.02952756!
Me.Label9.Width = 0.2909448!
'
'Line1
'
Me.Line1.Height = 0.00008200109!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.1795276!
Me.Line1.Width = 7.677084!
Me.Line1.X1 = 0!
Me.Line1.X2 = 7.677084!
Me.Line1.Y1 = 0.1795276!
Me.Line1.Y2 = 0.1796096!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblMRNValue, Me.lblStatValue, Me.lblSBValue, Me.lblSiBetragValue, Me.lblBezugsnrValue, Me.lblEmpfaenger, Me.lblAnDatValue, Me.lblGestDatValue, Me.Label10, Me.lblBuergschaft})
Me.Detail.Height = 0.1411417!
Me.Detail.Name = "Detail"
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.423622!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.003149607!
Me.lblMRNValue.Width = 1.212598!
'
'lblStatValue
'
Me.lblStatValue.Height = 0.1374016!
Me.lblStatValue.HyperLink = Nothing
Me.lblStatValue.Left = 0!
Me.lblStatValue.Name = "lblStatValue"
Me.lblStatValue.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto"
Me.lblStatValue.Text = "00"
Me.lblStatValue.Top = 0.0003937008!
Me.lblStatValue.Width = 0.2074803!
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 3.893701!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblSBValue.Text = "Sachbearbeiter"
Me.lblSBValue.Top = 2.793968E-9!
Me.lblSBValue.Width = 0.666142!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 6.875985!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0!
Me.lblSiBetragValue.Width = 0.8011808!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.4551181!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: bold"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0003937008!
Me.lblBezugsnrValue.Width = 0.968504!
'
'lblEmpfaenger
'
Me.lblEmpfaenger.Height = 0.1375984!
Me.lblEmpfaenger.HyperLink = Nothing
Me.lblEmpfaenger.Left = 5.742914!
Me.lblEmpfaenger.Name = "lblEmpfaenger"
Me.lblEmpfaenger.Padding = New GrapeCity.ActiveReports.PaddingEx(3, 0, 0, 0)
Me.lblEmpfaenger.Style = "font-size: 8pt; font-weight: normal"
Me.lblEmpfaenger.Text = "Empf"
Me.lblEmpfaenger.Top = 0.003543307!
Me.lblEmpfaenger.Width = 1.27244!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 2.636221!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.003149609!
Me.lblAnDatValue.Width = 0.6299214!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 3.266143!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 4.656613E-9!
Me.lblGestDatValue.Width = 0.6275587!
'
'Label10
'
Me.Label10.Height = 0.1374016!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.1562992!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 8pt; font-weight: normal; text-align: left; text-justify: auto"
Me.Label10.Text = "SUW"
Me.Label10.Top = 0.0003937008!
Me.Label10.Width = 0.2909449!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 4.559843!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: normal"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.003149607!
Me.lblBuergschaft.Width = 1.183071!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2048064!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 4.199213!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.05669292!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.02598425!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.05669292!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.2!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.213015!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG Spedition AG"
Me.Label8.Top = 0.05688977!
Me.Label8.Width = 1.130708!
'
'Line2
'
Me.Line2.Height = 0.00008201972!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.05708662!
Me.Line2.Width = 7.677084!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.677084!
Me.Line2.Y1 = 0.05708662!
Me.Line2.Y2 = 0.05716864!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Label6, Me.Label7})
Me.ReportHeader1.Height = 0.7625!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.932283!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'lblText1
'
Me.lblText1.Height = 0.4082677!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-weight: bold"
Me.lblText1.Text = "Auswertung" & Global.Microsoft.VisualBasic.ChrW(10) & "NCTS Gestellungskontrolle"
Me.lblText1.Top = 0.09173229!
Me.lblText1.Width = 4.000394!
'
'Label6
'
Me.Label6.Height = 0.1374017!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.0000004172325!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 8pt; font-weight: normal"
Me.Label6.Text = "Zeitraum:"
Me.Label6.Top = 0.5000001!
Me.Label6.Width = 2.437795!
'
'Label7
'
Me.Label7.Height = 0.1374017!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 2.437796!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 8pt; font-weight: normal"
Me.Label7.Text = "B<EFBFBD>rgschaft:"
Me.Label7.Top = 0.5000001!
Me.Label7.Width = 3.479527!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label1, Me.Label3, Me.Label5, Me.lblSummeSiBetr, Me.lblAnzAbf, Me.lblAnzT})
Me.ReportFooter1.Height = 0.4748033!
Me.ReportFooter1.Name = "ReportFooter1"
'
'Label1
'
Me.Label1.Height = 0.1374017!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal"
Me.Label1.Text = "Summe Abfertigungen:"
Me.Label1.Top = 0.1708661!
Me.Label1.Width = 1.18937!
'
'Label3
'
Me.Label3.Height = 0.1374017!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 0!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal"
Me.Label3.Text = "Summe Positionen:"
Me.Label3.Top = 0.3374016!
Me.Label3.Visible = False
Me.Label3.Width = 1.18937!
'
'Label5
'
Me.Label5.Height = 0.1374017!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 5.146851!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.Label5.Text = "Summe Sicherheitsbetrag:"
Me.Label5.Top = 0.1708662!
Me.Label5.Width = 1.470867!
'
'lblSummeSiBetr
'
Me.lblSummeSiBetr.Height = 0.1377953!
Me.lblSummeSiBetr.HyperLink = Nothing
Me.lblSummeSiBetr.Left = 6.617717!
Me.lblSummeSiBetr.Name = "lblSummeSiBetr"
Me.lblSummeSiBetr.Style = "font-size: 8.25pt; font-weight: bold; text-align: right; text-decoration: underli" &
"ne"
Me.lblSummeSiBetr.Text = "Sicherheit"
Me.lblSummeSiBetr.Top = 0.1704725!
Me.lblSummeSiBetr.Width = 1.063386!
'
'lblAnzAbf
'
Me.lblAnzAbf.Height = 0.1374017!
Me.lblAnzAbf.HyperLink = Nothing
Me.lblAnzAbf.Left = 1.18937!
Me.lblAnzAbf.Name = "lblAnzAbf"
Me.lblAnzAbf.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzAbf.Text = "0"
Me.lblAnzAbf.Top = 0.1708661!
Me.lblAnzAbf.Width = 0.5122048!
'
'lblAnzT
'
Me.lblAnzT.Height = 0.1374017!
Me.lblAnzT.HyperLink = Nothing
Me.lblAnzT.Left = 1.18937!
Me.lblAnzT.Name = "lblAnzT"
Me.lblAnzT.Style = "font-size: 8pt; font-weight: bold; text-align: right"
Me.lblAnzT.Text = "0"
Me.lblAnzT.Top = 0.3374016!
Me.lblAnzT.Visible = False
Me.lblAnzT.Width = 0.5122048!
'
'rptTGestellungskontrolleDY
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.677166!
Me.ScriptLanguage = "VB.NET"
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.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatus, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeOffenerSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblArbeitsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnnahme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestellung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblStatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEmpfaenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ReportInfo1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSummeSiBetr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzAbf, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzT, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblStatus As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeOffenerSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnnahme As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestellung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblStatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSummeSiBetr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzAbf As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnzT As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblArbeitsnummer As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblEmpfaenger As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

110
SDL/ARConverterBackup2/Reports/Zoll/rptTGestellungskontrolleDY.vb Normal file
View File

@@ -0,0 +1,110 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class rptTGestellungskontrolleDY
Public datVon As Date
Public datBis As Date
Public FIRMA As String
Public statVon As String = "50"
Public statBis As String = "53"
Public brg As String = "" 'default brg
Public nl As String = ""
Public sqlStr As String = ""
Public erstelltVon As String = ""
Private Sub PageFooter1_Format(sender As System.Object, e As System.EventArgs) Handles PageFooter.Format
lblDetails.Text = String.Format("erstellt am {0} um {1} von {2}", DateTime.Now.ToShortDateString(), DateTime.Now.ToShortTimeString(), erstelltVon)
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
'''''''' ADD AT RUNTIME:
'd.Location = New Point(2, 0)
'd.Text = "asd"
'Me.Detail.Controls.Add(d)
Me.Name = "Gestellungskontrolle Dakosy"
'lblHeader.Text = Me.Name
'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
' Dim sqlStrOLD As String = " SELECT count(*) as [Anzahl Verz], max(veopos_stat) as Status, max(veoant_beznr) as Bezugsnummer,max(veoant_lfdnr) as LfdNr,max(veoant_anzpos)as Pos,max(veoant_arbnr)as ArbNr,max(veoant_mrn) as MRN,max(veoant_andat) as Antragsdatum,max(veoant_sb) as Sachbearbeiter,max(veoant_wgdat) as Gestellungsdatum,sum(veoerz_sicbtg) as [Sichertheits-Betrag], max(veoerz_sicbsc) as Buergschaft " &
'" FROM tblZabis_Atlas_NCTS " &
'" WHERE ( veoant_andat BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "') " &
'" AND veoant_stat IN (50,53,60) " &
'" AND veoerz_sicbsc = '" & brg & "' " &
'" AND basman_nl='SUW' " &
'" AND veoant_beznr LIKE 'DU%' " &
'" GROUP BY veoant_beznr " &
'" ORDER BY Antragsdatum "
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "FMZOLL", 600)
Label6.Text = "Zeitraum: von " & datVon.ToShortDateString & " bis " & datBis.ToShortDateString
Label7.Text = "B<EFBFBD>rgschaft: " & brg
End Sub
Dim dummycount As Integer = 0
Dim anzLkw As Integer = 0
Dim anzT As Integer = 0
Dim summeSiBetr As Double = 0
Private Sub Detail1_Format(sender As System.Object, e As System.EventArgs) Handles Detail.Format
dummycount = dummycount + 1
anzLkw += 1
lblAnDatValue.Text = If(Fields.Item("Antragsdatum").Value Is DBNull.Value, "", CStr(Fields.Item("Antragsdatum").Value))
' lblAnzTValue.Text = CStr(Fields.Item("Anzahl Verz").Value)
Label10.Text = CStr(Fields.Item("Niederlassung").Value)
' lblEmpfaenger.Text = CStr(Fields.Item("ArbNr").Value)
lblEmpfaenger.Text = CStr(Fields.Item("Empfaenger").Value)
lblBezugsnrValue.Text = CStr(Fields.Item("Bezugsnummer").Value)
If Fields.Item("Gestellungsdatum").Value IsNot Nothing AndAlso Fields.Item("Gestellungsdatum").Value Is DBNull.Value Then
lblGestDatValue.Text = ""
Else
lblGestDatValue.Text = CStr(Fields.Item("Gestellungsdatum").Value)
End If
lblMRNValue.Text = CStr(Fields.Item("MRN").Value)
lblSBValue.Text = CStr(Fields.Item("Sachbearbeiter").Value)
lblBuergschaft.Text = CStr(Fields.Item("Buergschaft").Value)
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("Sichertheits-Betrag").Value).ToString("N2", CultureInfo.InvariantCulture)
lblStatValue.Text = CStr(Fields.Item("Status").Value)
' anzT += CInt(lblAnzTValue.Text)
summeSiBetr += CDbl(Fields.Item("Sichertheits-Betrag").Value)
'Abwechselnd grauen und wei<65>en Hintergrund
If (dummycount Mod 2) = 0 Then
Detail.BackColor = Color.White
Else
Detail.BackColor = Color.WhiteSmoke
End If
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblSummeSiBetr.Text = "<EFBFBD> " & summeSiBetr.ToString("N2", CultureInfo.InvariantCulture)
lblAnzAbf.Text = anzLkw
lblAnzT.Text = anzT
End Sub
End Class

165
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW.Designer.vb generated Normal file
View File

@@ -0,0 +1,165 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptKontrolleLKW
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))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0.0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSBValue, Me.lblSiBetragValue, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblGestDatValue, Me.lblMRNValue, Me.lblBuergschaft})
Me.Detail.Height = 0.1405511!
Me.Detail.Name = "Detail"
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 3.479134!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblSBValue.Text = "Sachbearbeiter"
Me.lblSBValue.Top = 0.0!
Me.lblSBValue.Width = 0.76811!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 5.30315!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.0!
Me.lblSiBetragValue.Width = 0.7972445!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.0!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 2.281496!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.001377882!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 2.880315!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.0003937008!
Me.lblGestDatValue.Width = 0.5988189!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.041339!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.002559008!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 4.208268!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: normal"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0!
Me.lblBuergschaft.Width = 1.16811!
'
'PageFooter
'
Me.PageFooter.Height = 0.0!
Me.PageFooter.Name = "PageFooter"
'
'subrptDurmazKontrolleLKW
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.100394!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
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.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

102
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW.vb Normal file
View File

@@ -0,0 +1,102 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class subrptKontrolleLKW
Public kennzeichen As String
Public veoant_lfdnr As String
Public veoant_korant As String
Public veoant_andat As String
Public datVon As Date
Public FIRMA = "DURMAZ"
Public datBis As Date
Public AnzT = 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
If False Then
Dim brg_AT As String = "05AT510000G000FP7"
Dim brg_DE As String = "05DE0000000009345"
Dim brg_DE_NEU As String = "17DE0000000071678"
Dim sqlStr As String = " SELECT max(ant.veoant_beznr) as BezugsNr, max(ant.veoant_arbnr) as ArbNr, max(ant.veoant_mrn) as MRN, max(ant.veoant_anzpos) as Pos, min(ant.veoant_andat) as AnDat, max(ant.veoant_wgdat) as GestllungsDat, max(ant.veoant_sb) as Sachbearbeiter, sum(erz.veoerz_sicbtg) as Sicherheitsbetrag, max(erz.veoerz_sicbsc) as Brg " &
" FROM dbo.veoant AS ant INNER JOIN " &
" dbo.veopos AS pos ON ant.basman_nr = pos.basman_nr AND ant.basman_nl = pos.basman_nl AND ant.veoant_beznr = pos.veoant_beznr AND ant.veoant_lfdnr = pos.veoant_lfdnr AND " &
" ant.veoant_korant = pos.veoant_korant LEFT OUTER JOIN " &
" dbo.veoerz AS erz ON pos.basman_nr = erz.basman_nr AND pos.basman_nl = erz.basman_nl AND pos.veoant_beznr = erz.veoant_beznr AND pos.veoant_lfdnr = erz.veoant_lfdnr AND " &
" pos.veopos_posnr = erz.veopos_posnr And pos.veoant_korant = erz.veoant_korant " &
" WHERE ant.basman_nr ='VERA' " &
" AND ant.basman_nl ='SUW' " &
" AND ant.veoant_bfabkz='" & kennzeichen & "' " &
" AND ant.veoant_lfdnr='" & veoant_lfdnr & "' " &
" AND ant.veoant_korant='" & veoant_korant & "' " &
" AND ant.veoant_andat='" & veoant_andat & "' " &
" AND erz.veoerz_sicbsc IN ( '" & brg_AT & "' , '" & brg_DE & "' , '" & brg_DE_NEU & "' ) " &
" and erz.veoerz_typ=2 " &
" AND ( ant.veoant_andat BETWEEN '" & datVon.ToShortDateString & "' AND '" & datBis.ToShortDateString & "') " &
" AND ant.veoant_stat IN (50,53,60) "
If FIRMA = "DURMAZ" Then
sqlStr &= " AND ant.veoant_beznr LIKE 'DU%' "
ElseIf FIRMA = "ATILLA" Then
sqlStr &= " AND ant.veoant_beznr NOT LIKE 'DU%' "
End If
sqlStr &= " group by veoant_mrn"
Dim kundenSQL As New kundenSQL
Me.DataSource = kundenSQL.loadDgvBySql(sqlStr, "ATLAS", 1000)
End If
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
lblBezugsnrValue.Text = nullStr(Fields.Item("BezugsNr").Value)
'lblArbNrValue.Text = nullStr(Fields.Item("ArbNr").Value)
lblMRNValue.Text = nullStr(Fields.Item("MRN").Value)
'.Text = nullStr(Fields.Item("Pos").Value)
lblAnDatValue.Text = nullStr(Fields.Item("AnDat").Value)
lblGestDatValue.Text = nullStr(Fields.Item("GestllungsDat").Value)
lblSBValue.Text = nullStr(Fields.Item("Sachbearbeiter").Value)
lblBuergschaft.Text = nullStr(Fields.Item("Brg").Value)
If Not Fields.Item("Sicherheitsbetrag").Value Is DBNull.Value Then
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("Sicherheitsbetrag").Value).ToString("N2", CultureInfo.InvariantCulture)
End If
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
Function nullStr(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CStr(o)
Catch ex As Exception
Return ""
End Try
End Function
End Class

163
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW_Dakosy.Designer.vb generated Normal file
View File

@@ -0,0 +1,163 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptKontrolleLKW_Dakosy
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()
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSBValue, Me.lblSiBetragValue, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblGestDatValue, Me.lblMRNValue, Me.lblBuergschaft})
Me.Detail.Height = 0.1405511!
Me.Detail.Name = "Detail"
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 3.494882!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblSBValue.Text = "Sachbearbeiter"
Me.lblSBValue.Top = 0!
Me.lblSBValue.Width = 0.7291343!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 5.30315!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0!
Me.lblSiBetragValue.Width = 0.7972445!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0!
Me.lblBezugsnrValue.Width = 1.072441!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 2.297244!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.001377882!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 2.896063!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.0003937008!
Me.lblGestDatValue.Width = 0.5988189!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.041339!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.002559008!
Me.lblMRNValue.Width = 1.427559!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 4.208268!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: normal"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0!
Me.lblBuergschaft.Width = 1.16811!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'subrptKontrolleLKW_Dakosy
'
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.100394!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
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.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

88
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW_Dakosy.vb Normal file
View File

@@ -0,0 +1,88 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class subrptKontrolleLKW_Dakosy
Public Kennzeichen As String
' Public OperatorId As Integer
Public AnmeldungsDatum As Date
Public ncts_id As Integer
Public AnzT = 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
lblBezugsnrValue.Text = nullStr(Fields.Item("ncts_ObjectName").Value)
'lblArbNrValue.Text = nullStr(Fields.Item("ArbNr").Value)
lblMRNValue.Text = nullStr(Fields.Item("ncts_MRN").Value)
'.Text = nullStr(Fields.Item("Pos").Value)
If Fields.Item("ncts_Eroeffnung") IsNot Nothing AndAlso Fields.Item("ncts_Eroeffnung").Value IsNot DBNull.Value Then
lblAnDatValue.Text = nullDat(Fields.Item("ncts_Eroeffnung").Value)
Else
lblAnDatValue.Text = nullDat(Fields.Item("ncts_Trans_DatumZeit").Value)
End If
If Fields.Item("ncts_Ankunft") IsNot Nothing AndAlso Fields.Item("ncts_Ankunft").Value IsNot DBNull.Value Then
lblGestDatValue.Text = nullDat(Fields.Item("ncts_Ankunft").Value)
Else
lblGestDatValue.Text = nullDat(Fields.Item("ncts_GestelltAm").Value)
End If
' lblAnDatValue.Text = nullDat(Fields.Item("ncts_Trans_DatumZeit").Value)
lblSBValue.Text = nullStr(Fields.Item("ncts_Bearbeiter").Value)
lblBuergschaft.Text = nullStr(Fields.Item("nctsSA_GRN").Value)
If Not Fields.Item("nctsSA_AbgabenBetrag").Value Is DBNull.Value Then
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("nctsSA_AbgabenBetrag").Value).ToString("N2", CultureInfo.InvariantCulture)
End If
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
Function nullStr(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CStr(o)
Catch ex As Exception
Return ""
End Try
End Function
Function nullDat(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CDate(o).ToShortDateString
Catch ex As Exception
Return ""
End Try
End Function
End Class

165
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW_NCTSTR.Designer.vb generated Normal file
View File

@@ -0,0 +1,165 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptKontrolleLKW_NCTSTR
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))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0.0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSBValue, Me.lblSiBetragValue, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblGestDatValue, Me.lblMRNValue, Me.lblBuergschaft})
Me.Detail.Height = 0.1405511!
Me.Detail.Name = "Detail"
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 3.479134!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblSBValue.Text = "Sachbearbeiter"
Me.lblSBValue.Top = 0.0!
Me.lblSBValue.Width = 0.76811!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 5.30315!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.0!
Me.lblSiBetragValue.Width = 0.7972445!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.0!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 2.281496!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.001377882!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 2.880315!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.0003937008!
Me.lblGestDatValue.Width = 0.5988189!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.041339!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.002559008!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 4.208268!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: normal"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0!
Me.lblBuergschaft.Width = 1.16811!
'
'PageFooter
'
Me.PageFooter.Height = 0.0!
Me.PageFooter.Name = "PageFooter"
'
'subrptDurmazKontrolleLKW
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.100394!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
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.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

74
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW_NCTSTR.vb Normal file
View File

@@ -0,0 +1,74 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class subrptKontrolleLKW_NCTSTR
Public Kennzeichen As String
' Public OperatorId As Integer
Public AnmeldungsDatum As Date
Public AnzT = 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
lblBezugsnrValue.Text = nullStr(Fields.Item("ncts_ObjectName").Value)
'lblArbNrValue.Text = nullStr(Fields.Item("ArbNr").Value)
lblMRNValue.Text = nullStr(Fields.Item("ncts_MRN").Value)
'.Text = nullStr(Fields.Item("Pos").Value)
lblAnDatValue.Text = nullDat(Fields.Item("ncts_Trans_DatumZeit").Value)
lblGestDatValue.Text = nullDat(Fields.Item("ncts_GestelltAm").Value)
lblSBValue.Text = nullStr(Fields.Item("ncts_Bearbeiter").Value)
lblBuergschaft.Text = nullStr(Fields.Item("nctsSA_GRN").Value)
If Not Fields.Item("nctsSA_AbgabenBetrag").Value Is DBNull.Value Then
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("nctsSA_AbgabenBetrag").Value).ToString("N2", CultureInfo.InvariantCulture)
End If
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
Function nullStr(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CStr(o)
Catch ex As Exception
Return ""
End Try
End Function
Function nullDat(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CDate(o).ToShortDateString
Catch ex As Exception
Return ""
End Try
End Function
End Class

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

@@ -0,0 +1,320 @@
<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()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAbrechnugnsart = New GrapeCity.ActiveReports.SectionReportModel.Label()
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.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAbrechnugnsart, 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 = 1.487008!
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 = 2.976378!
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 = 4.017717!
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 = 5.059056!
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.lblAbrechnugnsart})
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 = 1.487008!
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 = 2.976378!
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 = 4.017717!
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 = 5.059056!
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.Label6, 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.00000005960464!
Me.Line.Left = 0!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 0.7811024!
Me.Line.Width = 6.100394!
Me.Line.X1 = 0!
Me.Line.X2 = 6.100394!
Me.Line.Y1 = 0.7811024!
Me.Line.Y2 = 0.7811024!
'
'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 = 5.059055!
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 = 4.016536!
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 = 5.059055!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.2204725!
Me.Line2.Width = 1.041339!
Me.Line2.X1 = 5.059055!
Me.Line2.X2 = 6.100394!
Me.Line2.Y1 = 0.2204725!
Me.Line2.Y2 = 0.2204725!
'
'Label6
'
Me.Label6.Height = 0.2208662!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.Label6.Text = "Abrechnugsart"
Me.Label6.Top = 0.5602363!
Me.Label6.Width = 1.48937!
'
'lblAbrechnugnsart
'
Me.lblAbrechnugnsart.Height = 0.168504!
Me.lblAbrechnugnsart.HyperLink = Nothing
Me.lblAbrechnugnsart.Left = 0!
Me.lblAbrechnugnsart.Name = "lblAbrechnugnsart"
Me.lblAbrechnugnsart.Style = "font-size: 9pt; font-weight: normal; ddo-char-set: 1"
Me.lblAbrechnugnsart.Text = "per Versandschein"
Me.lblAbrechnugnsart.Top = 0!
Me.lblAbrechnugnsart.Width = 1.48937!
'
'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.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAbrechnugnsart, 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
Private WithEvents lblAbrechnugnsart As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

72
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb Normal file
View File

@@ -0,0 +1,72 @@
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)
lblAbrechnugnsart.Text = "per LKW"
Case "Versandschein"
lblEinzelpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("EINZALBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("GESAMTBETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblAbrechnugnsart.Text = "per Versandschein"
Case "%"
lblEinzelpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblAbrechnugnsart.Text = "% vom Sicherheit"
Case "SPEZIAL"
lblGarantieBis.Text = "<EFBFBD> " & CDbl(Fields.Item("GARANTIEBIS").Value).ToString("N2", CultureInfo.InvariantCulture)
lblEinzelpreis.Text = ""
lblGesamtpreis.Text = "<EFBFBD> " & CDbl(Fields.Item("BETRAG").Value).ToString("N2", CultureInfo.InvariantCulture)
lblAbrechnugnsart.Text = "Spezial"
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

165
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW_Telotec.Designer.vb generated Normal file
View File

@@ -0,0 +1,165 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptKontrolleLKW_Telotec
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_Telotec))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblSBValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSiBetragValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBezugsnrValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblAnDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGestDatValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMRNValue = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBuergschaft = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
CType(Me.lblSBValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0.0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSBValue, Me.lblSiBetragValue, Me.lblBezugsnrValue, Me.lblAnDatValue, Me.lblGestDatValue, Me.lblMRNValue, Me.lblBuergschaft})
Me.Detail.Height = 0.1405511!
Me.Detail.Name = "Detail"
'
'lblSBValue
'
Me.lblSBValue.Height = 0.1379921!
Me.lblSBValue.HyperLink = Nothing
Me.lblSBValue.Left = 3.479134!
Me.lblSBValue.Name = "lblSBValue"
Me.lblSBValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblSBValue.Text = "Sachbearbeiter"
Me.lblSBValue.Top = 0.0!
Me.lblSBValue.Width = 0.76811!
'
'lblSiBetragValue
'
Me.lblSiBetragValue.Height = 0.1377953!
Me.lblSiBetragValue.HyperLink = Nothing
Me.lblSiBetragValue.Left = 5.30315!
Me.lblSiBetragValue.Name = "lblSiBetragValue"
Me.lblSiBetragValue.Style = "font-size: 8pt; font-weight: normal; text-align: right"
Me.lblSiBetragValue.Text = "Sicherheit"
Me.lblSiBetragValue.Top = 0.0!
Me.lblSiBetragValue.Width = 0.7972445!
'
'lblBezugsnrValue
'
Me.lblBezugsnrValue.Height = 0.1374016!
Me.lblBezugsnrValue.HyperLink = Nothing
Me.lblBezugsnrValue.Left = 0.0!
Me.lblBezugsnrValue.Name = "lblBezugsnrValue"
Me.lblBezugsnrValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblBezugsnrValue.Text = "Bezugsnummer"
Me.lblBezugsnrValue.Top = 0.0!
Me.lblBezugsnrValue.Width = 1.041339!
'
'lblAnDatValue
'
Me.lblAnDatValue.Height = 0.1377953!
Me.lblAnDatValue.HyperLink = Nothing
Me.lblAnDatValue.Left = 2.281496!
Me.lblAnDatValue.Name = "lblAnDatValue"
Me.lblAnDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblAnDatValue.Text = "Annahme"
Me.lblAnDatValue.Top = 0.001377882!
Me.lblAnDatValue.Width = 0.5988194!
'
'lblGestDatValue
'
Me.lblGestDatValue.Height = 0.1377953!
Me.lblGestDatValue.HyperLink = Nothing
Me.lblGestDatValue.Left = 2.880315!
Me.lblGestDatValue.Name = "lblGestDatValue"
Me.lblGestDatValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblGestDatValue.Text = "Gestellung"
Me.lblGestDatValue.Top = 0.0003937008!
Me.lblGestDatValue.Width = 0.5988189!
'
'lblMRNValue
'
Me.lblMRNValue.Height = 0.1379921!
Me.lblMRNValue.HyperLink = Nothing
Me.lblMRNValue.Left = 1.041339!
Me.lblMRNValue.Name = "lblMRNValue"
Me.lblMRNValue.Style = "font-size: 8pt; font-weight: normal"
Me.lblMRNValue.Text = "MRN"
Me.lblMRNValue.Top = 0.002559008!
Me.lblMRNValue.Width = 1.240158!
'
'lblBuergschaft
'
Me.lblBuergschaft.Height = 0.1379921!
Me.lblBuergschaft.HyperLink = Nothing
Me.lblBuergschaft.Left = 4.208268!
Me.lblBuergschaft.Name = "lblBuergschaft"
Me.lblBuergschaft.Style = "font-size: 8pt; font-weight: normal"
Me.lblBuergschaft.Text = "Brg"
Me.lblBuergschaft.Top = 0.0!
Me.lblBuergschaft.Width = 1.16811!
'
'PageFooter
'
Me.PageFooter.Height = 0.0!
Me.PageFooter.Name = "PageFooter"
'
'subrptDurmazKontrolleLKW
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.100394!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.PageFooter)
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.lblSBValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSiBetragValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBezugsnrValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGestDatValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMRNValue, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBuergschaft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblSBValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblSiBetragValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBezugsnrValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblAnDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGestDatValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMRNValue As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblBuergschaft As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

66
SDL/ARConverterBackup2/Reports/Zoll/subrptKontrolleLKW_Telotec.vb Normal file
View File

@@ -0,0 +1,66 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Imports System.Globalization
Public Class subrptKontrolleLKW_Telotec
Public Kennzeichen As String
' Public OperatorId As Integer
Public AnmeldungsDatum As Date
Public AnzT = 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
lblBezugsnrValue.Text = nullStr(Fields.Item("telanm_BezugsNr").Value)
'lblArbNrValue.Text = nullStr(Fields.Item("ArbNr").Value)
lblMRNValue.Text = nullStr(Fields.Item("telanm_CRN").Value)
'.Text = nullStr(Fields.Item("Pos").Value)
lblAnDatValue.Text = nullStr(Fields.Item("dec_CreateDate").Value)
lblGestDatValue.Text = nullStr(Fields.Item("Hea_WoffD").Value)
lblSBValue.Text = nullStr(Fields.Item("Represent_Na").Value)
lblBuergschaft.Text = nullStr(Fields.Item("GRN").Value)
If Not Fields.Item("GVal").Value Is DBNull.Value Then
lblSiBetragValue.Text = "<EFBFBD> " & CDbl(Fields.Item("GVal").Value).ToString("N2", CultureInfo.InvariantCulture)
End If
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
Function nullStr(o As Object) As String
Try
If o Is DBNull.Value Then Return ""
Return CStr(o)
Catch ex As Exception
Return ""
End Try
End Function
End Class

Some files were not shown because too many files have changed in this diff Show More