Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

This commit is contained in:
2025-08-18 08:40:39 +02:00
247 changed files with 78342 additions and 196 deletions

View File

@@ -0,0 +1,948 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptKostenstellen
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(rptKostenstellen))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblVon = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBis = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblBetrag01 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag03 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag06 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag09 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag05 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag08 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag04 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag07 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblBetrag02 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
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.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKassenbuchNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGeschaeftsjahr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMandantNiederlassung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblFilterTxt = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtFilter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.lblFiliale = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox15 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox17 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox18 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox19 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox20 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox21 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox22 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox23 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblSumme06 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lblSumme01 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme03 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme09 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme05 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme08 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme04 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme07 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSumme02 = 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.lblVon, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag01, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag03, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag06, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag09, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag05, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag08, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag04, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag07, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblBetrag02, 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.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFilterTxt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFilter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFiliale, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox19, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox20, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme06, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme01, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme03, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme09, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme05, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme08, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme04, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme07, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSumme02, 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.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblVon, Me.lblBis, Me.lblBetrag01, Me.lblBetrag03, Me.lblBetrag12, Me.lblBetrag06, Me.lblBetrag09, Me.lblBetrag10, Me.lblBetrag05, Me.lblBetrag08, Me.lblBetrag04, Me.lblBetrag11, Me.lblBetrag07, Me.lblBetrag02})
Me.Detail.Height = 0.1795276!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'lblVon
'
Me.lblVon.Height = 0.1795276!
Me.lblVon.HyperLink = Nothing
Me.lblVon.Left = 0.005118111!
Me.lblVon.Name = "lblVon"
Me.lblVon.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.lblVon.Text = "-"
Me.lblVon.Top = 0!
Me.lblVon.Width = 0.6822835!
'
'lblBis
'
Me.lblBis.Height = 0.1795276!
Me.lblBis.HyperLink = Nothing
Me.lblBis.Left = 0.6874017!
Me.lblBis.Name = "lblBis"
Me.lblBis.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblBis.Text = "-"
Me.lblBis.Top = 0!
Me.lblBis.Width = 1.61811!
'
'lblBetrag01
'
Me.lblBetrag01.Height = 0.1795276!
Me.lblBetrag01.Left = 2.305512!
Me.lblBetrag01.Name = "lblBetrag01"
Me.lblBetrag01.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag01.Text = "10.000.000"
Me.lblBetrag01.Top = 0!
Me.lblBetrag01.Width = 0.7480315!
'
'lblBetrag03
'
Me.lblBetrag03.Height = 0.1795276!
Me.lblBetrag03.Left = 3.801575!
Me.lblBetrag03.Name = "lblBetrag03"
Me.lblBetrag03.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag03.Text = Nothing
Me.lblBetrag03.Top = 0!
Me.lblBetrag03.Width = 0.7480315!
'
'lblBetrag12
'
Me.lblBetrag12.Height = 0.1795276!
Me.lblBetrag12.Left = 10.54606!
Me.lblBetrag12.Name = "lblBetrag12"
Me.lblBetrag12.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag12.Text = Nothing
Me.lblBetrag12.Top = 3.72529E-9!
Me.lblBetrag12.Width = 0.7480315!
'
'lblBetrag06
'
Me.lblBetrag06.Height = 0.1795276!
Me.lblBetrag06.Left = 6.062993!
Me.lblBetrag06.Name = "lblBetrag06"
Me.lblBetrag06.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag06.Text = Nothing
Me.lblBetrag06.Top = 0!
Me.lblBetrag06.Width = 0.7480315!
'
'lblBetrag09
'
Me.lblBetrag09.Height = 0.1795276!
Me.lblBetrag09.Left = 8.307088!
Me.lblBetrag09.Name = "lblBetrag09"
Me.lblBetrag09.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag09.Text = Nothing
Me.lblBetrag09.Top = 0!
Me.lblBetrag09.Width = 0.7480315!
'
'lblBetrag10
'
Me.lblBetrag10.Height = 0.1795276!
Me.lblBetrag10.Left = 9.05512!
Me.lblBetrag10.Name = "lblBetrag10"
Me.lblBetrag10.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag10.Text = Nothing
Me.lblBetrag10.Top = 0!
Me.lblBetrag10.Width = 0.7480315!
'
'lblBetrag05
'
Me.lblBetrag05.Height = 0.1795276!
Me.lblBetrag05.Left = 5.314961!
Me.lblBetrag05.Name = "lblBetrag05"
Me.lblBetrag05.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag05.Text = Nothing
Me.lblBetrag05.Top = 0!
Me.lblBetrag05.Width = 0.7480315!
'
'lblBetrag08
'
Me.lblBetrag08.Height = 0.1795276!
Me.lblBetrag08.Left = 7.559056!
Me.lblBetrag08.Name = "lblBetrag08"
Me.lblBetrag08.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag08.Text = Nothing
Me.lblBetrag08.Top = 0!
Me.lblBetrag08.Width = 0.7480315!
'
'lblBetrag04
'
Me.lblBetrag04.Height = 0.1795276!
Me.lblBetrag04.Left = 4.566929!
Me.lblBetrag04.Name = "lblBetrag04"
Me.lblBetrag04.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag04.Text = Nothing
Me.lblBetrag04.Top = 0!
Me.lblBetrag04.Width = 0.7480315!
'
'lblBetrag11
'
Me.lblBetrag11.Height = 0.1795276!
Me.lblBetrag11.Left = 9.803151!
Me.lblBetrag11.Name = "lblBetrag11"
Me.lblBetrag11.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag11.Text = Nothing
Me.lblBetrag11.Top = 0!
Me.lblBetrag11.Width = 0.7480315!
'
'lblBetrag07
'
Me.lblBetrag07.Height = 0.1795276!
Me.lblBetrag07.Left = 6.811025!
Me.lblBetrag07.Name = "lblBetrag07"
Me.lblBetrag07.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag07.Text = Nothing
Me.lblBetrag07.Top = 0!
Me.lblBetrag07.Width = 0.7480315!
'
'lblBetrag02
'
Me.lblBetrag02.Height = 0.1795276!
Me.lblBetrag02.Left = 3.053544!
Me.lblBetrag02.Name = "lblBetrag02"
Me.lblBetrag02.Style = "font-size: 8pt; text-align: right; ddo-char-set: 1"
Me.lblBetrag02.Text = Nothing
Me.lblBetrag02.Top = 0!
Me.lblBetrag02.Width = 0.7480315!
'
'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.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG Spediton AG"
Me.Label28.Top = 0.08622044!
Me.Label28.Width = 2.649606!
'
'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 = 11.29921!
Me.Line2.X1 = 0!
Me.Line2.X2 = 11.29921!
Me.Line2.Y1 = 0.03070866!
Me.Line2.Y2 = 0.03070866!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622046!
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.Label3, Me.lblUeberschrift, Me.Label1, Me.Label9, Me.lblSachbearbeiter, Me.lblKassenbuchNr, Me.lblGeschaeftsjahr, Me.lblMandantNiederlassung, Me.lblFilterTxt, Me.txtFilter})
Me.ReportHeader1.Height = 1.05315!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 9.09567!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.198425!
'
'Label3
'
Me.Label3.Height = 0.1377953!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 1.421085E-14!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:"
Me.Label3.Top = 0.3830709!
Me.Label3.Width = 2.607087!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "Kostenstellenbericht 01.10.2016 bis 31.10.2016"
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 5.032284!
'
'Label1
'
Me.Label1.Height = 0.1377952!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 2.607087!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.Label1.Text = ""
Me.Label1.Top = 0.3830709!
Me.Label1.Width = 1.212598!
'
'Label9
'
Me.Label9.Height = 0.1377952!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 3.819686!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.Label9.Text = ""
Me.Label9.Top = 0.3830709!
Me.Label9.Width = 1.212598!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
""
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.5208663!
Me.lblSachbearbeiter.Width = 2.607087!
'
'lblKassenbuchNr
'
Me.lblKassenbuchNr.Height = 0.1759843!
Me.lblKassenbuchNr.HyperLink = Nothing
Me.lblKassenbuchNr.Left = 2.607087!
Me.lblKassenbuchNr.Name = "lblKassenbuchNr"
Me.lblKassenbuchNr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblKassenbuchNr.Text = ""
Me.lblKassenbuchNr.Top = 0.5208663!
Me.lblKassenbuchNr.Width = 1.212598!
'
'lblGeschaeftsjahr
'
Me.lblGeschaeftsjahr.Height = 0.1759843!
Me.lblGeschaeftsjahr.HyperLink = Nothing
Me.lblGeschaeftsjahr.Left = 3.819686!
Me.lblGeschaeftsjahr.Name = "lblGeschaeftsjahr"
Me.lblGeschaeftsjahr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblGeschaeftsjahr.Text = ""
Me.lblGeschaeftsjahr.Top = 0.5208663!
Me.lblGeschaeftsjahr.Width = 1.212598!
'
'lblMandantNiederlassung
'
Me.lblMandantNiederlassung.Height = 0.1759843!
Me.lblMandantNiederlassung.HyperLink = Nothing
Me.lblMandantNiederlassung.Left = 5.032284!
Me.lblMandantNiederlassung.Name = "lblMandantNiederlassung"
Me.lblMandantNiederlassung.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: righ" &
"t"
Me.lblMandantNiederlassung.Text = ""
Me.lblMandantNiederlassung.Top = 0.5208663!
Me.lblMandantNiederlassung.Width = 6.272048!
'
'lblFilterTxt
'
Me.lblFilterTxt.Height = 0.1377953!
Me.lblFilterTxt.HyperLink = Nothing
Me.lblFilterTxt.Left = 0.01023626!
Me.lblFilterTxt.Name = "lblFilterTxt"
Me.lblFilterTxt.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblFilterTxt.Text = "Filter:"
Me.lblFilterTxt.Top = 0.7673229!
Me.lblFilterTxt.Visible = False
Me.lblFilterTxt.Width = 2.607087!
'
'txtFilter
'
Me.txtFilter.CanShrink = True
Me.txtFilter.Height = 0.1480315!
Me.txtFilter.Left = 0!
Me.txtFilter.Name = "txtFilter"
Me.txtFilter.Style = "font-size: 8pt; ddo-char-set: 1"
Me.txtFilter.Text = "-"
Me.txtFilter.Top = 0.9051182!
Me.txtFilter.Visible = False
Me.txtFilter.Width = 7.475197!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFiliale, Me.Label5, Me.TextBox12, Me.TextBox13, Me.TextBox14, Me.TextBox15, Me.TextBox16, Me.TextBox17, Me.TextBox18, Me.TextBox19, Me.TextBox20, Me.TextBox21, Me.TextBox22, Me.TextBox23})
Me.GroupHeader1.Height = 0.4984253!
Me.GroupHeader1.KeepTogether = True
Me.GroupHeader1.Name = "GroupHeader1"
'
'lblFiliale
'
Me.lblFiliale.Height = 0.1759843!
Me.lblFiliale.HyperLink = Nothing
Me.lblFiliale.Left = 0.00511811!
Me.lblFiliale.Name = "lblFiliale"
Me.lblFiliale.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.lblFiliale.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
""
Me.lblFiliale.Text = "4801 Suben Export T<>rkei"
Me.lblFiliale.Top = 0.1035433!
Me.lblFiliale.Width = 11.2941!
'
'Label5
'
Me.Label5.Height = 0.1795276!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.6874017!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label5.Text = "Kostenstelle"
Me.Label5.Top = 0.3188977!
Me.Label5.Width = 1.61811!
'
'TextBox12
'
Me.TextBox12.Height = 0.1795276!
Me.TextBox12.Left = 2.305512!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox12.Text = "J<EFBFBD>nner"
Me.TextBox12.Top = 0.3188977!
Me.TextBox12.Width = 0.7480313!
'
'TextBox13
'
Me.TextBox13.Height = 0.1795276!
Me.TextBox13.Left = 3.801575!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox13.Text = "M<EFBFBD>rz"
Me.TextBox13.Top = 0.3188977!
Me.TextBox13.Width = 0.7480313!
'
'TextBox14
'
Me.TextBox14.Height = 0.1795276!
Me.TextBox14.Left = 10.54606!
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox14.Text = "Dezember"
Me.TextBox14.Top = 0.3188977!
Me.TextBox14.Width = 0.7480313!
'
'TextBox15
'
Me.TextBox15.Height = 0.1795276!
Me.TextBox15.Left = 6.062993!
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox15.Text = "Juni"
Me.TextBox15.Top = 0.3188977!
Me.TextBox15.Width = 0.7480313!
'
'TextBox16
'
Me.TextBox16.Height = 0.1795276!
Me.TextBox16.Left = 8.30709!
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox16.Text = "September"
Me.TextBox16.Top = 0.3188977!
Me.TextBox16.Width = 0.7480313!
'
'TextBox17
'
Me.TextBox17.Height = 0.1795276!
Me.TextBox17.Left = 9.055119!
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox17.Text = "Oktober"
Me.TextBox17.Top = 0.3188977!
Me.TextBox17.Width = 0.7480313!
'
'TextBox18
'
Me.TextBox18.Height = 0.1795276!
Me.TextBox18.Left = 5.314961!
Me.TextBox18.Name = "TextBox18"
Me.TextBox18.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox18.Text = "Mai"
Me.TextBox18.Top = 0.3188977!
Me.TextBox18.Width = 0.7480313!
'
'TextBox19
'
Me.TextBox19.Height = 0.1795276!
Me.TextBox19.Left = 7.559056!
Me.TextBox19.Name = "TextBox19"
Me.TextBox19.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox19.Text = "August"
Me.TextBox19.Top = 0.3188977!
Me.TextBox19.Width = 0.7480313!
'
'TextBox20
'
Me.TextBox20.Height = 0.1795276!
Me.TextBox20.Left = 4.566929!
Me.TextBox20.Name = "TextBox20"
Me.TextBox20.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox20.Text = "April"
Me.TextBox20.Top = 0.3188977!
Me.TextBox20.Width = 0.7480313!
'
'TextBox21
'
Me.TextBox21.Height = 0.1795276!
Me.TextBox21.Left = 9.803153!
Me.TextBox21.Name = "TextBox21"
Me.TextBox21.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox21.Text = "November"
Me.TextBox21.Top = 0.3188977!
Me.TextBox21.Width = 0.7480313!
'
'TextBox22
'
Me.TextBox22.Height = 0.1795276!
Me.TextBox22.Left = 6.811026!
Me.TextBox22.Name = "TextBox22"
Me.TextBox22.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox22.Text = "Juli"
Me.TextBox22.Top = 0.3188977!
Me.TextBox22.Width = 0.7480313!
'
'TextBox23
'
Me.TextBox23.Height = 0.1795276!
Me.TextBox23.Left = 3.053544!
Me.TextBox23.Name = "TextBox23"
Me.TextBox23.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.TextBox23.Text = "Februar"
Me.TextBox23.Top = 0.3188977!
Me.TextBox23.Width = 0.7480313!
'
'GroupFooter1
'
Me.GroupFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSumme06, Me.Line1, Me.lblSumme01, Me.lblSumme03, Me.lblSumme12, Me.lblSumme09, Me.lblSumme10, Me.lblSumme05, Me.lblSumme08, Me.lblSumme04, Me.lblSumme11, Me.lblSumme07, Me.lblSumme02})
Me.GroupFooter1.Height = 0.2916667!
Me.GroupFooter1.Name = "GroupFooter1"
'
'lblSumme06
'
Me.lblSumme06.Height = 0.1795276!
Me.lblSumme06.Left = 6.062993!
Me.lblSumme06.Name = "lblSumme06"
Me.lblSumme06.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme06.Text = Nothing
Me.lblSumme06.Top = 0.007874016!
Me.lblSumme06.Width = 0.7480313!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 2.300394!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 3.72529E-9!
Me.Line1.Width = 8.998816!
Me.Line1.X1 = 2.300394!
Me.Line1.X2 = 11.29921!
Me.Line1.Y1 = 3.72529E-9!
Me.Line1.Y2 = 3.72529E-9!
'
'lblSumme01
'
Me.lblSumme01.Height = 0.1795276!
Me.lblSumme01.Left = 2.305512!
Me.lblSumme01.Name = "lblSumme01"
Me.lblSumme01.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme01.Text = "10.000.000"
Me.lblSumme01.Top = 0.007874016!
Me.lblSumme01.Width = 0.7480313!
'
'lblSumme03
'
Me.lblSumme03.Height = 0.1795276!
Me.lblSumme03.Left = 3.801575!
Me.lblSumme03.Name = "lblSumme03"
Me.lblSumme03.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme03.Text = Nothing
Me.lblSumme03.Top = 0.007874016!
Me.lblSumme03.Width = 0.7480313!
'
'lblSumme12
'
Me.lblSumme12.Height = 0.1795276!
Me.lblSumme12.Left = 10.54606!
Me.lblSumme12.Name = "lblSumme12"
Me.lblSumme12.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme12.Text = Nothing
Me.lblSumme12.Top = 0.00787402!
Me.lblSumme12.Width = 0.7480313!
'
'lblSumme09
'
Me.lblSumme09.Height = 0.1795276!
Me.lblSumme09.Left = 8.30709!
Me.lblSumme09.Name = "lblSumme09"
Me.lblSumme09.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme09.Text = Nothing
Me.lblSumme09.Top = 0.007874016!
Me.lblSumme09.Width = 0.7480313!
'
'lblSumme10
'
Me.lblSumme10.Height = 0.1795276!
Me.lblSumme10.Left = 9.055119!
Me.lblSumme10.Name = "lblSumme10"
Me.lblSumme10.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme10.Text = Nothing
Me.lblSumme10.Top = 0.007874016!
Me.lblSumme10.Width = 0.7480313!
'
'lblSumme05
'
Me.lblSumme05.Height = 0.1795276!
Me.lblSumme05.Left = 5.314961!
Me.lblSumme05.Name = "lblSumme05"
Me.lblSumme05.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme05.Text = Nothing
Me.lblSumme05.Top = 0.007874016!
Me.lblSumme05.Width = 0.7480313!
'
'lblSumme08
'
Me.lblSumme08.Height = 0.1795276!
Me.lblSumme08.Left = 7.559056!
Me.lblSumme08.Name = "lblSumme08"
Me.lblSumme08.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme08.Text = Nothing
Me.lblSumme08.Top = 0.007874016!
Me.lblSumme08.Width = 0.7480313!
'
'lblSumme04
'
Me.lblSumme04.Height = 0.1795276!
Me.lblSumme04.Left = 4.566929!
Me.lblSumme04.Name = "lblSumme04"
Me.lblSumme04.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme04.Text = Nothing
Me.lblSumme04.Top = 0.007874016!
Me.lblSumme04.Width = 0.7480313!
'
'lblSumme11
'
Me.lblSumme11.Height = 0.1795276!
Me.lblSumme11.Left = 9.803153!
Me.lblSumme11.Name = "lblSumme11"
Me.lblSumme11.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme11.Text = Nothing
Me.lblSumme11.Top = 0.007874016!
Me.lblSumme11.Width = 0.7480313!
'
'lblSumme07
'
Me.lblSumme07.Height = 0.1795276!
Me.lblSumme07.Left = 6.811026!
Me.lblSumme07.Name = "lblSumme07"
Me.lblSumme07.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme07.Text = Nothing
Me.lblSumme07.Top = 0.007874016!
Me.lblSumme07.Width = 0.7480313!
'
'lblSumme02
'
Me.lblSumme02.Height = 0.1795276!
Me.lblSumme02.Left = 3.053544!
Me.lblSumme02.Name = "lblSumme02"
Me.lblSumme02.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblSumme02.Text = Nothing
Me.lblSumme02.Top = 0.007874016!
Me.lblSumme02.Width = 0.7480313!
'
'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 = "FIRMA"
Me.lblFirma.Top = 0.1019685!
Me.lblFirma.Width = 11.29409!
'
'GroupFooter2
'
Me.GroupFooter2.Height = 0!
Me.GroupFooter2.Name = "GroupFooter2"
Me.GroupFooter2.NewPage = GrapeCity.ActiveReports.SectionReportModel.NewPage.After
'
'rptKostenstellen
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.1968504!
Me.PageSettings.Margins.Right = 0.1968504!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.Orientation = GrapeCity.ActiveReports.Document.Section.PageOrientation.Landscape
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 11.29921!
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.lblVon, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag01, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag03, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag06, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag09, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag05, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag08, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag04, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag07, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblBetrag02, 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.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFilterTxt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFilter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFiliale, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox19, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox20, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme06, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme01, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme03, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme09, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme05, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme08, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme04, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme07, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSumme02, 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 Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKassenbuchNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGeschaeftsjahr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMandantNiederlassung As GrapeCity.ActiveReports.SectionReportModel.Label
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 lblSachbearbeiter 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 lblVon As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblBis As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFiliale As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblFilterTxt As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtFilter As GrapeCity.ActiveReports.SectionReportModel.TextBox
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
Public WithEvents lblBetrag01 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox15 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox17 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox18 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox19 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox20 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox21 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox22 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox23 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme01 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag03 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag06 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag09 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag05 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag08 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag04 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag07 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblBetrag02 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme06 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme03 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme09 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme05 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme08 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme04 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme07 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSumme02 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

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

View File

@@ -0,0 +1,727 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptCheckliste
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(rptCheckliste))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.lblText1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblFirma = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUID = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblEORI = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblInfo = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.cbxUID = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxEORI = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.Label11 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.cbxCMR = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxLieferschein = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxPackliste = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxCMRVers = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxCMRFracht = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.Label12 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.cbxVerzollt = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxCMRVersendung = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.Label13 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.cbxRG_UID = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxRGVersendung = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.Label14 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.cbxPassport = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxT1 = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.Label15 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.cbxUEBER_Bestimmungsort = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxUEBER_CMR = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxUEBER_Zollanm = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.cbxUEBER_AURATR = New GrapeCity.ActiveReports.SectionReportModel.CheckBox()
Me.Label17 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label18 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label19 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
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.Label16 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxUID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxEORI, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxCMR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxLieferschein, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxPackliste, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxCMRVers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxCMRFracht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxVerzollt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxCMRVersendung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxRG_UID, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxRGVersendung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxPassport, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxT1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxUEBER_Bestimmungsort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxUEBER_CMR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxUEBER_Zollanm, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.cbxUEBER_AURATR, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label19, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, 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.Label16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.lblText1, Me.Line3})
Me.PageHeader.Height = 0.5000001!
Me.PageHeader.Name = "PageHeader"
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 4.212599!
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.3464567!
Me.lblText1.HyperLink = Nothing
Me.lblText1.Left = 0.02598425!
Me.lblText1.Name = "lblText1"
Me.lblText1.Style = "font-size: 18pt; font-weight: bold"
Me.lblText1.Text = "Checkliste"
Me.lblText1.Top = 0.1535433!
Me.lblText1.Width = 4.000394!
'
'Line3
'
Me.Line3.Height = 0.00008195639!
Me.Line3.Left = 0!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0.5000001!
Me.Line3.Width = 6.889764!
Me.Line3.X1 = 0!
Me.Line3.X2 = 6.889764!
Me.Line3.Y1 = 0.5000001!
Me.Line3.Y2 = 0.5000821!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblFirma, Me.Label2, Me.lblUID, Me.Label4, Me.lblEORI, Me.lblInfo, Me.Label10, Me.cbxUID, Me.cbxEORI, Me.Label11, Me.cbxCMR, Me.cbxLieferschein, Me.cbxPackliste, Me.cbxCMRVers, Me.cbxCMRFracht, Me.Label12, Me.cbxVerzollt, Me.cbxCMRVersendung, Me.Label13, Me.cbxRG_UID, Me.cbxRGVersendung, Me.Label14, Me.cbxPassport, Me.cbxT1, Me.Label15, Me.cbxUEBER_Bestimmungsort, Me.cbxUEBER_CMR, Me.cbxUEBER_Zollanm, Me.cbxUEBER_AURATR, Me.Label17, Me.Label18, Me.Label19, Me.Label1, Me.Line1, Me.SubReport})
Me.Detail.Height = 8.342126!
Me.Detail.Name = "Detail"
'
'lblFirma
'
Me.lblFirma.Height = 0.7728347!
Me.lblFirma.HyperLink = Nothing
Me.lblFirma.Left = 0.02598425!
Me.lblFirma.Name = "lblFirma"
Me.lblFirma.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; ddo-char-s" &
"et: 0"
Me.lblFirma.Text = "Z1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Z2" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Z3"
Me.lblFirma.Top = 0.207874!
Me.lblFirma.Width = 3.918898!
'
'Label2
'
Me.Label2.Height = 0.1921262!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 0.02598425!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: normal; ddo-char" &
"-set: 0"
Me.Label2.Text = "UID-Nr.:"
Me.Label2.Top = 0.9807085!
Me.Label2.Width = 1.583465!
'
'lblUID
'
Me.lblUID.Height = 0.1996062!
Me.lblUID.HyperLink = Nothing
Me.lblUID.Left = 0.02598413!
Me.lblUID.Name = "lblUID"
Me.lblUID.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; ddo-char-s" &
"et: 0"
Me.lblUID.Text = "AT123"
Me.lblUID.Top = 1.172835!
Me.lblUID.Width = 1.854331!
'
'Label4
'
Me.Label4.Height = 0.1921262!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 1.880315!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: normal; ddo-char" &
"-set: 0"
Me.Label4.Text = "EORI-Nr.:"
Me.Label4.Top = 0.9807087!
Me.Label4.Width = 1.583465!
'
'lblEORI
'
Me.lblEORI.Height = 0.1996063!
Me.lblEORI.HyperLink = Nothing
Me.lblEORI.Left = 1.880315!
Me.lblEORI.Name = "lblEORI"
Me.lblEORI.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; ddo-char-s" &
"et: 0"
Me.lblEORI.Text = "AT123"
Me.lblEORI.Top = 1.172834!
Me.lblEORI.Width = 2.332284!
'
'lblInfo
'
Me.lblInfo.Height = 2.787008!
Me.lblInfo.HyperLink = Nothing
Me.lblInfo.Left = 3.984646!
Me.lblInfo.Name = "lblInfo"
Me.lblInfo.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: normal; ddo-char" &
"-set: 0"
Me.lblInfo.Text = "Z1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Z2" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Z3"
Me.lblInfo.Top = 0.2055118!
Me.lblInfo.Width = 2.891733!
'
'Label10
'
Me.Label10.Height = 0.2519686!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 0.02598426!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-family: Microsoft Sans Serif; font-size: 14pt; font-weight: bold; text-decor" &
"ation: underline; ddo-char-set: 0"
Me.Label10.Text = "Alle Bedingungen m<>ssen erf<72>llt sein:"
Me.Label10.Top = 3.338189!
Me.Label10.Width = 5.396063!
'
'cbxUID
'
Me.cbxUID.Height = 0.2!
Me.cbxUID.Left = 0.02598426!
Me.cbxUID.Name = "cbxUID"
Me.cbxUID.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxUID.Style = "font-size: 12pt"
Me.cbxUID.Text = "UID - Pr<50>fung - Ausdruck / g<>ltig"
Me.cbxUID.Top = 3.683071!
Me.cbxUID.Width = 3.502362!
'
'cbxEORI
'
Me.cbxEORI.Height = 0.2!
Me.cbxEORI.Left = 0.02598425!
Me.cbxEORI.Name = "cbxEORI"
Me.cbxEORI.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxEORI.Style = "font-size: 12pt"
Me.cbxEORI.Text = "EORI - Pr<50>fung - Ausdruck / g<>ltig"
Me.cbxEORI.Top = 3.925985!
Me.cbxEORI.Width = 3.502362!
'
'Label11
'
Me.Label11.Height = 0.2102363!
Me.Label11.HyperLink = Nothing
Me.Label11.Left = 0.02598426!
Me.Label11.Name = "Label11"
Me.Label11.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; text-decor" &
"ation: underline; ddo-char-set: 0"
Me.Label11.Text = "Versendungsbeleg:"
Me.Label11.Top = 4.333071!
Me.Label11.Width = 1.583465!
'
'cbxCMR
'
Me.cbxCMR.Height = 0.2!
Me.cbxCMR.Left = 0.02598426!
Me.cbxCMR.Name = "cbxCMR"
Me.cbxCMR.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxCMR.Style = "font-size: 12pt"
Me.cbxCMR.Text = "CMR Original / Zweitst<73>ck"
Me.cbxCMR.Top = 4.566929!
Me.cbxCMR.Width = 2.291733!
'
'cbxLieferschein
'
Me.cbxLieferschein.Height = 0.2!
Me.cbxLieferschein.Left = 0.02598426!
Me.cbxLieferschein.Name = "cbxLieferschein"
Me.cbxLieferschein.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxLieferschein.Style = "font-size: 12pt"
Me.cbxLieferschein.Text = "Lieferschein Original"
Me.cbxLieferschein.Top = 5.285039!
Me.cbxLieferschein.Width = 2.291733!
'
'cbxPackliste
'
Me.cbxPackliste.Height = 0.192126!
Me.cbxPackliste.Left = 0.02598425!
Me.cbxPackliste.Name = "cbxPackliste"
Me.cbxPackliste.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxPackliste.Style = "font-size: 12pt"
Me.cbxPackliste.Text = "Packliste Original"
Me.cbxPackliste.Top = 5.532284!
Me.cbxPackliste.Width = 2.291733!
'
'cbxCMRVers
'
Me.cbxCMRVers.Height = 0.2!
Me.cbxCMRVers.Left = 0.4188977!
Me.cbxCMRVers.Name = "cbxCMRVers"
Me.cbxCMRVers.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxCMRVers.Style = "font-size: 12pt"
Me.cbxCMRVers.Text = "mit Versenderbest<73>tigung"
Me.cbxCMRVers.Top = 4.8063!
Me.cbxCMRVers.Width = 2.291733!
'
'cbxCMRFracht
'
Me.cbxCMRFracht.Height = 0.2!
Me.cbxCMRFracht.Left = 0.4188977!
Me.cbxCMRFracht.Name = "cbxCMRFracht"
Me.cbxCMRFracht.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxCMRFracht.Style = "font-size: 12pt"
Me.cbxCMRFracht.Text = "mit Frachtf<74>hrerbest<73>tigung"
Me.cbxCMRFracht.Top = 5.045669!
Me.cbxCMRFracht.Width = 2.291733!
'
'Label12
'
Me.Label12.Height = 0.2102363!
Me.Label12.HyperLink = Nothing
Me.Label12.Left = 3.699213!
Me.Label12.Name = "Label12"
Me.Label12.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; text-decor" &
"ation: underline; ddo-char-set: 0"
Me.Label12.Text = "Auf CMR"
Me.Label12.Top = 4.333071!
Me.Label12.Width = 1.583465!
'
'cbxVerzollt
'
Me.cbxVerzollt.Height = 0.2!
Me.cbxVerzollt.Left = 3.699213!
Me.cbxVerzollt.Name = "cbxVerzollt"
Me.cbxVerzollt.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxVerzollt.Style = "font-size: 12pt"
Me.cbxVerzollt.Text = "VERZOLLT Stempel"
Me.cbxVerzollt.Top = 4.56693!
Me.cbxVerzollt.Width = 2.291733!
'
'cbxCMRVersendung
'
Me.cbxCMRVersendung.Height = 0.2!
Me.cbxCMRVersendung.Left = 3.699213!
Me.cbxCMRVersendung.Name = "cbxCMRVersendung"
Me.cbxCMRVersendung.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxCMRVersendung.Style = "font-size: 12pt"
Me.cbxCMRVersendung.Text = "Versendung als ig-Lieferung / Stempel"
Me.cbxCMRVersendung.Top = 4.806301!
Me.cbxCMRVersendung.Width = 3.177165!
'
'Label13
'
Me.Label13.Height = 0.2102363!
Me.Label13.HyperLink = Nothing
Me.Label13.Left = 0.02598425!
Me.Label13.Name = "Label13"
Me.Label13.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; text-decor" &
"ation: underline; ddo-char-set: 0"
Me.Label13.Text = "Auf Rechnung"
Me.Label13.Top = 5.961024!
Me.Label13.Width = 1.583465!
'
'cbxRG_UID
'
Me.cbxRG_UID.Height = 0.2!
Me.cbxRG_UID.Left = 0.02598425!
Me.cbxRG_UID.Name = "cbxRG_UID"
Me.cbxRG_UID.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxRG_UID.Style = "font-size: 12pt"
Me.cbxRG_UID.Text = "UID-Nummer des Empf<70>ngers"
Me.cbxRG_UID.Top = 6.430315!
Me.cbxRG_UID.Width = 2.774016!
'
'cbxRGVersendung
'
Me.cbxRGVersendung.Height = 0.2!
Me.cbxRGVersendung.Left = 0.02598425!
Me.cbxRGVersendung.Name = "cbxRGVersendung"
Me.cbxRGVersendung.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxRGVersendung.Style = "font-size: 12pt"
Me.cbxRGVersendung.Text = "Versendung als ig-Lieferung / Stempel"
Me.cbxRGVersendung.Top = 6.194882!
Me.cbxRGVersendung.Width = 3.166929!
'
'Label14
'
Me.Label14.Height = 0.2102363!
Me.Label14.HyperLink = Nothing
Me.Label14.Left = 3.699213!
Me.Label14.Name = "Label14"
Me.Label14.Style = "font-family: Microsoft Sans Serif; font-size: 12pt; font-weight: bold; text-decor" &
"ation: underline; ddo-char-set: 0"
Me.Label14.Text = "Sonstiges"
Me.Label14.Top = 5.961024!
Me.Label14.Width = 1.583465!
'
'cbxPassport
'
Me.cbxPassport.Height = 0.2!
Me.cbxPassport.Left = 3.699213!
Me.cbxPassport.Name = "cbxPassport"
Me.cbxPassport.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxPassport.Style = "font-size: 12pt"
Me.cbxPassport.Text = "Fahrer Passkopie"
Me.cbxPassport.Top = 6.194882!
Me.cbxPassport.Width = 2.291733!
'
'cbxT1
'
Me.cbxT1.Height = 0.2!
Me.cbxT1.Left = 3.699213!
Me.cbxT1.Name = "cbxT1"
Me.cbxT1.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxT1.Style = "font-size: 12pt"
Me.cbxT1.Text = "T1 oder TIR-CARNET - Kopie"
Me.cbxT1.Top = 6.430315!
Me.cbxT1.Width = 3.177165!
'
'Label15
'
Me.Label15.Height = 0.2622049!
Me.Label15.HyperLink = Nothing
Me.Label15.Left = 0.02598425!
Me.Label15.Name = "Label15"
Me.Label15.Style = "font-family: Microsoft Sans Serif; font-size: 14pt; font-weight: bold; text-decor" &
"ation: underline; ddo-char-set: 0"
Me.Label15.Text = "<EFBFBD>BEREINSTIMMUNG NOTWENDIG:"
Me.Label15.Top = 6.98189!
Me.Label15.Width = 2.781496!
'
'cbxUEBER_Bestimmungsort
'
Me.cbxUEBER_Bestimmungsort.Height = 0.2!
Me.cbxUEBER_Bestimmungsort.Left = 0.02598425!
Me.cbxUEBER_Bestimmungsort.Name = "cbxUEBER_Bestimmungsort"
Me.cbxUEBER_Bestimmungsort.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxUEBER_Bestimmungsort.Style = "font-size: 12pt"
Me.cbxUEBER_Bestimmungsort.Text = "Bestimmungsort in der Lieferkondition"
Me.cbxUEBER_Bestimmungsort.Top = 7.50315!
Me.cbxUEBER_Bestimmungsort.Width = 3.958662!
'
'cbxUEBER_CMR
'
Me.cbxUEBER_CMR.Height = 0.2!
Me.cbxUEBER_CMR.Left = 0.02598425!
Me.cbxUEBER_CMR.Name = "cbxUEBER_CMR"
Me.cbxUEBER_CMR.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxUEBER_CMR.Style = "font-size: 12pt"
Me.cbxUEBER_CMR.Text = "Empfangsort CMR / Lieferschein / Packliste"
Me.cbxUEBER_CMR.Top = 7.267716!
Me.cbxUEBER_CMR.Width = 3.958662!
'
'cbxUEBER_Zollanm
'
Me.cbxUEBER_Zollanm.Height = 0.2000005!
Me.cbxUEBER_Zollanm.Left = 0.02598425!
Me.cbxUEBER_Zollanm.Name = "cbxUEBER_Zollanm"
Me.cbxUEBER_Zollanm.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxUEBER_Zollanm.Style = "font-size: 12pt"
Me.cbxUEBER_Zollanm.Text = "Feld 8 - Zollanmeldung"
Me.cbxUEBER_Zollanm.Top = 7.973623!
Me.cbxUEBER_Zollanm.Width = 2.992914!
'
'cbxUEBER_AURATR
'
Me.cbxUEBER_AURATR.Height = 0.2!
Me.cbxUEBER_AURATR.Left = 0.02598429!
Me.cbxUEBER_AURATR.Name = "cbxUEBER_AURATR"
Me.cbxUEBER_AURATR.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.cbxUEBER_AURATR.Style = "font-size: 12pt"
Me.cbxUEBER_AURATR.Text = "EUR 1 / ATR (Feld 5 oder Feld 6)"
Me.cbxUEBER_AURATR.Top = 7.738188!
Me.cbxUEBER_AURATR.Width = 3.385827!
'
'Label17
'
Me.Label17.Height = 0.168504!
Me.Label17.HyperLink = Nothing
Me.Label17.Left = 4.267717!
Me.Label17.Name = "Label17"
Me.Label17.Style = "font-family: Microsoft Sans Serif; font-size: 10pt; font-weight: normal; text-ali" &
"gn: center; ddo-char-set: 0"
Me.Label17.Text = "Unterschrift des Sachbearbeiters"
Me.Label17.Top = 8.173622!
Me.Label17.Width = 2.437795!
'
'Label18
'
Me.Label18.Height = 0.168504!
Me.Label18.HyperLink = Nothing
Me.Label18.Left = 4.267717!
Me.Label18.Name = "Label18"
Me.Label18.Style = "font-family: Microsoft Sans Serif; font-size: 10pt; font-weight: normal; text-ali" &
"gn: center; ddo-char-set: 0"
Me.Label18.Text = ".................................................................."
Me.Label18.Top = 8.040157!
Me.Label18.Width = 2.437795!
'
'Label19
'
Me.Label19.Height = 0.168504!
Me.Label19.HyperLink = Nothing
Me.Label19.Left = 4.267717!
Me.Label19.Name = "Label19"
Me.Label19.Style = "font-family: Microsoft Sans Serif; font-size: 10pt; font-weight: normal; text-ali" &
"gn: center; ddo-char-set: 0"
Me.Label19.Text = "SB-Name"
Me.Label19.Top = 7.973621!
Me.Label19.Width = 2.437795!
'
'Label1
'
Me.Label1.Height = 0.1661417!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 3.984646!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-family: Microsoft Sans Serif; font-size: 10pt; font-weight: normal; text-dec" &
"oration: underline; ddo-char-set: 0"
Me.Label1.Text = "Info:"
Me.Label1.Top = 0.03937007!
Me.Label1.Width = 1.583465!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 3.143701!
Me.Line1.Width = 6.889764!
Me.Line1.X1 = 0!
Me.Line1.X2 = 6.889764!
Me.Line1.Y1 = 3.143701!
Me.Line1.Y2 = 3.143701!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2, Me.Label16})
Me.PageFooter.Height = 0.8906825!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo1.Height = 0.196063!
Me.ReportInfo1.Left = 3.411811!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo1.Top = 0.6940945!
Me.ReportInfo1.Width = 3.478!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.02598449!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.6901575!
Me.lblDetails.Width = 3.187031!
'
'Label8
'
Me.Label8.Height = 0.196063!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 3.736615!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 8pt"
Me.Label8.Text = "VERAG"
Me.Label8.Top = 0.6944882!
Me.Label8.Width = 0.9224403!
'
'Line2
'
Me.Line2.Height = 0.0000821352!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.6901575!
Me.Line2.Width = 6.889764!
Me.Line2.X1 = 0!
Me.Line2.X2 = 6.889764!
Me.Line2.Y1 = 0.6901575!
Me.Line2.Y2 = 0.6902396!
'
'Label16
'
Me.Label16.Height = 0.638189!
Me.Label16.HyperLink = Nothing
Me.Label16.Left = 0.02598425!
Me.Label16.Name = "Label16"
Me.Label16.Style = "font-family: Microsoft Sans Serif; font-size: 18pt; font-weight: bold; text-decor" &
"ation: none; ddo-char-set: 0"
Me.Label16.Text = "Bei Nicht-<2D>bereinstimmung: Abfertigung verweigern !!!!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mit VERAG Fiskal-Abteilun" &
"g Kontakt aufnehmen."
Me.Label16.Top = 0!
Me.Label16.Width = 6.679529!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 1.461811!
Me.SubReport.Left = 0.02598426!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 1.68189!
Me.SubReport.Width = 3.918898!
'
'rptCheckliste
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.1968504!
Me.PageSettings.Margins.Left = 0.5905512!
Me.PageSettings.Margins.Right = 0.5905512!
Me.PageSettings.Margins.Top = 0.5905512!
Me.PageSettings.MirrorMargins = True
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.889764!
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.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblText1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblFirma, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblEORI, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblInfo, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxUID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxEORI, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxCMR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxLieferschein, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxPackliste, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxCMRVers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxCMRFracht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxVerzollt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxCMRVersendung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxRG_UID, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxRGVersendung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxPassport, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxT1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxUEBER_Bestimmungsort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxUEBER_CMR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxUEBER_Zollanm, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.cbxUEBER_AURATR, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label19, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, 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.Label16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblText1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents ReportInfo1 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label11 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label12 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label13 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label14 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label15 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label17 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label18 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents lblFirma As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblUID As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblEORI As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblInfo As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents cbxUID As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxEORI As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxCMR As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxLieferschein As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxPackliste As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxCMRVers As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxCMRFracht As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxVerzollt As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxCMRVersendung As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxRG_UID As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxRGVersendung As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxPassport As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxT1 As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxUEBER_Bestimmungsort As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxUEBER_CMR As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxUEBER_Zollanm As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents cbxUEBER_AURATR As GrapeCity.ActiveReports.SectionReportModel.CheckBox
Public WithEvents Label19 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label16 As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptCheckliste
End Class

View File

@@ -0,0 +1,105 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptVM
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(subRptVM))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtBez = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.txtOfferte = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.txtBez, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtBez, Me.txtDatum})
Me.Detail.Height = 0.2208662!
Me.Detail.Name = "Detail"
'
'txtBez
'
Me.txtBez.Height = 0.2208662!
Me.txtBez.Left = 0!
Me.txtBez.Name = "txtBez"
Me.txtBez.Style = "font-size: 10pt; ddo-char-set: 1"
Me.txtBez.Text = Nothing
Me.txtBez.Top = 0!
Me.txtBez.Width = 2.668898!
'
'txtDatum
'
Me.txtDatum.CanGrow = False
Me.txtDatum.Height = 0.2208662!
Me.txtDatum.Left = 2.668898!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.txtDatum.Style = "font-size: 10pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtDatum.Text = Nothing
Me.txtDatum.Top = 0!
Me.txtDatum.Width = 1.261024!
'
'GroupHeader1
'
Me.GroupHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtOfferte})
Me.GroupHeader1.Height = 0.3251476!
Me.GroupHeader1.Name = "GroupHeader1"
'
'txtOfferte
'
Me.txtOfferte.Height = 0.1688976!
Me.txtOfferte.Left = 0!
Me.txtOfferte.Name = "txtOfferte"
Me.txtOfferte.Style = "font-size: 12pt; font-weight: bold; text-decoration: underline; ddo-char-set: 1"
Me.txtOfferte.Text = "Vollmachten:"
Me.txtOfferte.Top = 0!
Me.txtOfferte.Width = 2.668898!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subRptVM
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 3.92979!
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.txtBez, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtOfferte, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtBez As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents txtOfferte As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents GroupFooter1 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
End Class

View File

@@ -0,0 +1,40 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptVM
Dim Kdnr As Integer
Sub New(Kdnr As Integer)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.Kdnr = Kdnr
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
If Me.Fields.Item("kdvma_Bezeichnung") IsNot Nothing AndAlso Me.Fields.Item("kdvma_Bezeichnung").Value IsNot Nothing Then txtBez.Text = Me.Fields.Item("kdvma_Bezeichnung").Value.ToString
'If Me.Fields.Item("kdvm_erhalten_Datum") IsNot Nothing AndAlso Me.Fields.Item("kdvm_erhalten_Datum").Value IsNot Nothing Then txtDatum.Text = Me.Fields.Item("kdvm_erhalten_Datum").Value.ToString
If Me.Fields.Item("kdvm_erhalten_Datum") IsNot Nothing AndAlso Me.Fields.Item("kdvm_erhalten_Datum").Value IsNot Nothing Then
txtDatum.Text = If(IsDate(Me.Fields.Item("kdvm_erhalten_Datum").Value.ToString), CDate(Me.Fields.Item("kdvm_erhalten_Datum").Value.ToString).ToShortDateString, Me.Fields.Item("kdvm_erhalten_Datum").Value.ToString)
End If
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If Kdnr <= 0 Then Exit Sub
Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : where = " AND art.kdvma_Firma='IMEX' "
Case Else : where = " AND art.kdvma_Firma<>'IMEX' "
End Select
Me.DataSource = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info " &
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & Kdnr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 AND abf.[kdvm_erhalten]=1 " & where &
" ORDER BY art.kdvma_id", "FMZOLL")
End Sub
End Class

View File

@@ -0,0 +1,492 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptFaktRechnungAn
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(rptFaktRechnungAn))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Label5 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label2 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label4 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label6 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label10 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnungsAn = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblRechnungsadresse = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKdNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblPercent = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label28 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
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.Label3 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblUeberschrift = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label9 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSachbearbeiter = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblKassenbuchNr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblGeschaeftsjahr = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblMandantNiederlassung = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.lblGesAnzahl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label7 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblLand = New GrapeCity.ActiveReports.SectionReportModel.Label()
CType(Me.Label5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnungsAn, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblRechnungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblPercent, 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.Label3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblGesAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblLand, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label5, Me.Label2, Me.Label4, Me.Label6, Me.Label10, Me.Label7})
Me.PageHeader.Height = 0.2500001!
Me.PageHeader.Name = "PageHeader"
'
'Label5
'
Me.Label5.Height = 0.1795276!
Me.Label5.HyperLink = Nothing
Me.Label5.Left = 0.01023626!
Me.Label5.Name = "Label5"
Me.Label5.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label5.Text = "Anzahl"
Me.Label5.Top = 0.07047245!
Me.Label5.Width = 0.4944885!
'
'Label2
'
Me.Label2.Height = 0.1795276!
Me.Label2.HyperLink = Nothing
Me.Label2.Left = 1.883071!
Me.Label2.Name = "Label2"
Me.Label2.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label2.Text = "Rechnung an"
Me.Label2.Top = 0.07047245!
Me.Label2.Width = 2.434252!
'
'Label4
'
Me.Label4.Height = 0.1795276!
Me.Label4.HyperLink = Nothing
Me.Label4.Left = 4.317323!
Me.Label4.Name = "Label4"
Me.Label4.Style = "font-size: 9pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.Label4.Text = "Adresse"
Me.Label4.Top = 0.07047245!
Me.Label4.Width = 2.686221!
'
'Label6
'
Me.Label6.Height = 0.1795276!
Me.Label6.HyperLink = Nothing
Me.Label6.Left = 0.5149606!
Me.Label6.Name = "Label6"
Me.Label6.Style = "font-size: 9pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label6.Text = "Kunden-Nr."
Me.Label6.Top = 0.07047245!
Me.Label6.Width = 0.8318899!
'
'Label10
'
Me.Label10.Height = 0.1795276!
Me.Label10.HyperLink = Nothing
Me.Label10.Left = 7.003544!
Me.Label10.Name = "Label10"
Me.Label10.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.Label10.Text = "%"
Me.Label10.Top = 0.07047245!
Me.Label10.Width = 0.4716539!
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblAnzahl, Me.lblRechnungsAn, Me.lblRechnungsadresse, Me.lblKdNr, Me.lblPercent, Me.lblLand})
Me.Detail.Height = 0.1795276!
Me.Detail.Name = "Detail"
'
'lblAnzahl
'
Me.lblAnzahl.Height = 0.1795276!
Me.lblAnzahl.HyperLink = Nothing
Me.lblAnzahl.Left = 0.005118111!
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblAnzahl.Text = "Anzahl"
Me.lblAnzahl.Top = 0!
Me.lblAnzahl.Width = 0.4944885!
'
'lblRechnungsAn
'
Me.lblRechnungsAn.Height = 0.1795276!
Me.lblRechnungsAn.HyperLink = Nothing
Me.lblRechnungsAn.Left = 1.883071!
Me.lblRechnungsAn.Name = "lblRechnungsAn"
Me.lblRechnungsAn.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblRechnungsAn.Text = "Rechnung an"
Me.lblRechnungsAn.Top = 0!
Me.lblRechnungsAn.Width = 2.429134!
'
'lblRechnungsadresse
'
Me.lblRechnungsadresse.Height = 0.1795276!
Me.lblRechnungsadresse.HyperLink = Nothing
Me.lblRechnungsadresse.Left = 4.317323!
Me.lblRechnungsadresse.Name = "lblRechnungsadresse"
Me.lblRechnungsadresse.Style = "font-size: 9pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.lblRechnungsadresse.Text = "Adresse"
Me.lblRechnungsadresse.Top = 0!
Me.lblRechnungsadresse.Width = 2.686221!
'
'lblKdNr
'
Me.lblKdNr.Height = 0.1795276!
Me.lblKdNr.HyperLink = Nothing
Me.lblKdNr.Left = 0.5098422!
Me.lblKdNr.Name = "lblKdNr"
Me.lblKdNr.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.lblKdNr.Text = "Kunden-Nr."
Me.lblKdNr.Top = 0!
Me.lblKdNr.Width = 0.8318896!
'
'lblPercent
'
Me.lblPercent.Height = 0.1795276!
Me.lblPercent.HyperLink = Nothing
Me.lblPercent.Left = 7.003544!
Me.lblPercent.Name = "lblPercent"
Me.lblPercent.Style = "font-size: 9pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.lblPercent.Text = "%"
Me.lblPercent.Top = 0!
Me.lblPercent.Width = 0.4716539!
'
'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.13937!
Me.Label28.Name = "Label28"
Me.Label28.Style = "font-size: 8pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label28.Text = "VERAG Spediton AG"
Me.Label28.Top = 0.08622041!
Me.Label28.Width = 2.649606!
'
'Line2
'
Me.Line2.Height = 0!
Me.Line2.Left = 0!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.03070863!
Me.Line2.Width = 7.480313!
Me.Line2.X1 = 0!
Me.Line2.X2 = 7.480313!
Me.Line2.Y1 = 0.03070863!
Me.Line2.Y2 = 0.03070863!
'
'ReportInfo2
'
Me.ReportInfo2.FormatString = "Seite {PageNumber} von {PageCount} Seiten "
Me.ReportInfo2.Height = 0.1330709!
Me.ReportInfo2.Left = 5.04252!
Me.ReportInfo2.Name = "ReportInfo2"
Me.ReportInfo2.Style = "font-size: 8pt; text-align: right"
Me.ReportInfo2.Top = 0.08622047!
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.08622041!
Me.lblDat.Width = 2.649606!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picVERAG, Me.Label3, Me.lblUeberschrift, Me.Label1, Me.Label9, Me.lblSachbearbeiter, Me.lblKassenbuchNr, Me.lblGeschaeftsjahr, Me.lblMandantNiederlassung})
Me.ReportHeader1.Height = 0.6968506!
Me.ReportHeader1.Name = "ReportHeader1"
'
'picVERAG
'
Me.picVERAG.Height = 0.4169292!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.281889!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.198425!
'
'Label3
'
Me.Label3.Height = 0.1377953!
Me.Label3.HyperLink = Nothing
Me.Label3.Left = 1.421085E-14!
Me.Label3.Name = "Label3"
Me.Label3.Style = "font-size: 8pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.Label3.Text = "Sachbearbeiter:"
Me.Label3.Top = 0.3830709!
Me.Label3.Width = 2.607087!
'
'lblUeberschrift
'
Me.lblUeberschrift.Height = 0.2311024!
Me.lblUeberschrift.HyperLink = Nothing
Me.lblUeberschrift.Left = 0.01023622!
Me.lblUeberschrift.Name = "lblUeberschrift"
Me.lblUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.lblUeberschrift.Text = "Rechnungsanschrift Bericht 01.10.2016 bis 31.10.2016"
Me.lblUeberschrift.Top = 0.1338583!
Me.lblUeberschrift.Width = 5.032284!
'
'Label1
'
Me.Label1.Height = 0.1377952!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 2.607087!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.Label1.Text = ""
Me.Label1.Top = 0.3830709!
Me.Label1.Width = 1.212598!
'
'Label9
'
Me.Label9.Height = 0.1377952!
Me.Label9.HyperLink = Nothing
Me.Label9.Left = 3.819686!
Me.Label9.Name = "Label9"
Me.Label9.Style = "font-size: 8pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.Label9.Text = ""
Me.Label9.Top = 0.3830709!
Me.Label9.Width = 1.212598!
'
'lblSachbearbeiter
'
Me.lblSachbearbeiter.Height = 0.1759843!
Me.lblSachbearbeiter.HyperLink = Nothing
Me.lblSachbearbeiter.Left = 0!
Me.lblSachbearbeiter.Name = "lblSachbearbeiter"
Me.lblSachbearbeiter.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: left" &
""
Me.lblSachbearbeiter.Text = "Hanslmayr Hubert (SUB)"
Me.lblSachbearbeiter.Top = 0.5208663!
Me.lblSachbearbeiter.Width = 2.607087!
'
'lblKassenbuchNr
'
Me.lblKassenbuchNr.Height = 0.1759843!
Me.lblKassenbuchNr.HyperLink = Nothing
Me.lblKassenbuchNr.Left = 2.607087!
Me.lblKassenbuchNr.Name = "lblKassenbuchNr"
Me.lblKassenbuchNr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblKassenbuchNr.Text = ""
Me.lblKassenbuchNr.Top = 0.5208663!
Me.lblKassenbuchNr.Width = 1.212598!
'
'lblGeschaeftsjahr
'
Me.lblGeschaeftsjahr.Height = 0.1759843!
Me.lblGeschaeftsjahr.HyperLink = Nothing
Me.lblGeschaeftsjahr.Left = 3.819686!
Me.lblGeschaeftsjahr.Name = "lblGeschaeftsjahr"
Me.lblGeschaeftsjahr.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: cent" &
"er"
Me.lblGeschaeftsjahr.Text = ""
Me.lblGeschaeftsjahr.Top = 0.5208663!
Me.lblGeschaeftsjahr.Width = 1.212598!
'
'lblMandantNiederlassung
'
Me.lblMandantNiederlassung.Height = 0.1759843!
Me.lblMandantNiederlassung.HyperLink = Nothing
Me.lblMandantNiederlassung.Left = 5.032284!
Me.lblMandantNiederlassung.Name = "lblMandantNiederlassung"
Me.lblMandantNiederlassung.Style = "background-color: Gainsboro; font-size: 10pt; font-weight: bold; text-align: righ" &
"t"
Me.lblMandantNiederlassung.Text = ""
Me.lblMandantNiederlassung.Top = 0.5208663!
Me.lblMandantNiederlassung.Width = 2.448032!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblGesAnzahl, Me.Label8})
Me.ReportFooter1.Height = 0.3334646!
Me.ReportFooter1.Name = "ReportFooter1"
'
'lblGesAnzahl
'
Me.lblGesAnzahl.Height = 0.1795276!
Me.lblGesAnzahl.HyperLink = Nothing
Me.lblGesAnzahl.Left = 0.01535433!
Me.lblGesAnzahl.Name = "lblGesAnzahl"
Me.lblGesAnzahl.Style = "font-size: 9pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.lblGesAnzahl.Text = "Anzahl"
Me.lblGesAnzahl.Top = 0.153937!
Me.lblGesAnzahl.Width = 0.4944882!
'
'Label8
'
Me.Label8.Height = 0.1795276!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.5149606!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 9pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label8.Text = "Gesamt"
Me.Label8.Top = 0.157874!
Me.Label8.Width = 0.6393701!
'
'Label7
'
Me.Label7.Height = 0.1795276!
Me.Label7.HyperLink = Nothing
Me.Label7.Left = 1.346851!
Me.Label7.Name = "Label7"
Me.Label7.Style = "font-size: 9pt; font-weight: bold; text-align: center; ddo-char-set: 1"
Me.Label7.Text = "Land"
Me.Label7.Top = 0.07047245!
Me.Label7.Width = 0.4736221!
'
'lblLand
'
Me.lblLand.DataField = ""
Me.lblLand.Height = 0.1795276!
Me.lblLand.HyperLink = Nothing
Me.lblLand.Left = 1.346851!
Me.lblLand.Name = "lblLand"
Me.lblLand.Style = "color: Black; font-size: 9pt; font-weight: normal; text-align: center; ddo-char-s" &
"et: 1"
Me.lblLand.Text = "Land"
Me.lblLand.Top = 0!
Me.lblLand.Width = 0.4736221!
'
'rptFaktRechnungAn
'
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
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.Label5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnungsAn, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblRechnungsadresse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKdNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblPercent, 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.Label3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblUeberschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSachbearbeiter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblKassenbuchNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGeschaeftsjahr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblMandantNiederlassung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblGesAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblLand, 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 Label3 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label9 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblKassenbuchNr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblGeschaeftsjahr As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents lblMandantNiederlassung As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label28 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportInfo2 As GrapeCity.ActiveReports.SectionReportModel.ReportInfo
Private WithEvents Label5 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label2 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label4 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label6 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnungsAn As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblRechnungsadresse As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblKdNr As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents lblUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSachbearbeiter As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblDat As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label10 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblPercent As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblGesAnzahl As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents Label7 As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblLand As GrapeCity.ActiveReports.SectionReportModel.Label
End Class

View File

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

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,24 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptRechnungDruck
Dim _LAN = ""
Sub New()
InitializeComponent()
End Sub
Sub New(_LAN)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck")
End If
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,27 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSammelRechnungAnlagenDruck
Public _LAN = ""
Sub New()
InitializeComponent()
End Sub
Sub New(_LAN)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
End If
End Sub
Private Sub GroupFooter4_Format(sender As Object, e As EventArgs) Handles GroupFooter4.Format
End Sub
End Class

View File

@@ -0,0 +1,165 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptSammelRechnungAnlagenDruck_Leistungen
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(rptSammelRechnungAnlagenDruck_Leistungen))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.lblSteuerfrei = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblSteuerpflichtig = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.txtAbfertigungsart = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.GroupHeader4 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupFooter4 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Line18 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lblSteuerfrei, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblSteuerfrei, Me.lblSteuerpflichtig, Me.txtAbfertigungsart})
Me.Detail.Height = 0.1338583!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'lblSteuerfrei
'
Me.lblSteuerfrei.Height = 0.1338583!
Me.lblSteuerfrei.HyperLink = Nothing
Me.lblSteuerfrei.Left = 3.655119!
Me.lblSteuerfrei.Name = "lblSteuerfrei"
Me.lblSteuerfrei.Style = "color: #202020; font-size: 8pt; font-style: italic; font-weight: normal; text-ali" &
"gn: right; ddo-char-set: 1"
Me.lblSteuerfrei.Text = "999.999,99"
Me.lblSteuerfrei.Top = 0!
Me.lblSteuerfrei.Width = 1.207481!
'
'lblSteuerpflichtig
'
Me.lblSteuerpflichtig.Height = 0.1338583!
Me.lblSteuerpflichtig.HyperLink = Nothing
Me.lblSteuerpflichtig.Left = 2.447638!
Me.lblSteuerpflichtig.Name = "lblSteuerpflichtig"
Me.lblSteuerpflichtig.Style = "color: #202020; font-size: 8pt; font-style: italic; font-weight: normal; text-ali" &
"gn: right; ddo-char-set: 1"
Me.lblSteuerpflichtig.Text = "999.999,99"
Me.lblSteuerpflichtig.Top = 0!
Me.lblSteuerpflichtig.Width = 1.20748!
'
'txtAbfertigungsart
'
Me.txtAbfertigungsart.Height = 0.1338583!
Me.txtAbfertigungsart.Left = 0.005119062!
Me.txtAbfertigungsart.Name = "txtAbfertigungsart"
Me.txtAbfertigungsart.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0)
Me.txtAbfertigungsart.Style = "color: #202020; font-size: 8pt; font-style: italic; ddo-char-set: 1"
Me.txtAbfertigungsart.Text = "-"
Me.txtAbfertigungsart.Top = 0!
Me.txtAbfertigungsart.Width = 2.44252!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'GroupHeader4
'
Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line4})
Me.GroupHeader4.Height = 0!
Me.GroupHeader4.KeepTogether = True
Me.GroupHeader4.Name = "GroupHeader4"
'
'Line4
'
Me.Line4.Height = 0!
Me.Line4.Left = 0.005118111!
Me.Line4.LineColor = System.Drawing.Color.DarkGray
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Visible = False
Me.Line4.Width = 4.852363!
Me.Line4.X1 = 0.005118111!
Me.Line4.X2 = 4.857481!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0!
'
'GroupFooter4
'
Me.GroupFooter4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Line18})
Me.GroupFooter4.Height = 0.1875001!
Me.GroupFooter4.Name = "GroupFooter4"
'
'Line18
'
Me.Line18.Height = 0!
Me.Line18.Left = 0.03444719!
Me.Line18.LineColor = System.Drawing.Color.FromArgb(CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer), CType(CType(169, Byte), Integer))
Me.Line18.LineWeight = 1.0!
Me.Line18.Name = "Line18"
Me.Line18.Top = 0.09375003!
Me.Line18.Width = 4.852365!
Me.Line18.X1 = 0.03444719!
Me.Line18.X2 = 4.886813!
Me.Line18.Y1 = 0.09375003!
Me.Line18.Y2 = 0.09375003!
'
'rptSammelRechnungAnlagenDruck_Leistungen
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937008!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 4.92126!
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.GroupHeader4)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.GroupFooter4)
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.lblSteuerfrei, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSteuerpflichtig, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents GroupHeader4 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents GroupFooter4 As GrapeCity.ActiveReports.SectionReportModel.GroupFooter
Public WithEvents lblSteuerfrei As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents lblSteuerpflichtig As GrapeCity.ActiveReports.SectionReportModel.Label
Public WithEvents txtAbfertigungsart As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line18 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

View File

@@ -0,0 +1,60 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSammelRechnungAnlagenDruck_Leistungen
dim _LAN = ""
Dim RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang = Nothing
Sub New(_LAN As String, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
Me.RECHNUNG = RECHNUNG
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck")
End If
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
txtAbfertigungsart.Text = ""
lblSteuerfrei.Text = ""
lblSteuerpflichtig.Text = ""
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1)
If Me.Fields.Item("clmnAnzahl") IsNot Nothing AndAlso Me.Fields.Item("clmnAnzahl").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnAnzahl").Value.ToString & "x "
If Me.Fields.Item("clmnLeistung") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistung").Value IsNot Nothing Then txtAbfertigungsart.Text &= Me.Fields.Item("clmnLeistung").Value.ToString
If Me.Fields.Item("clmnLeistungsNr") IsNot Nothing AndAlso Me.Fields.Item("clmnLeistungsNr").Value IsNot Nothing Then txtAbfertigungsart.Text &= " (" & Me.Fields.Item("clmnLeistungsNr").Value.ToString & ") "
If Me.Fields.Item("clmnSteuerfreierBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerfreierBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value) <> 0 Then
lblSteuerfrei.Text = CDbl(Me.Fields.Item("clmnSteuerfreierBetrag").Value.ToString * vorzeichen).ToString("N2")
End If
If Me.Fields.Item("clmnSteuerpflichtigerBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value) <> 0 Then
lblSteuerpflichtig.Text = CDbl(Me.Fields.Item("clmnSteuerpflichtigerBetrag").Value.ToString * vorzeichen).ToString("N2")
End If
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
If RECHNUNG Is Nothing Then Exit Sub
Dim dt As New DataTable
dt.Columns.Add("clmnLeistung")
dt.Columns.Add("clmnSteuerfreierBetrag")
dt.Columns.Add("clmnSteuerpflichtigerBetrag")
dt.Columns.Add("clmnAnzahl")
dt.Columns.Add("clmnLeistungsNr")
RECHNUNG.ORDER_POSITIONEN()
For Each POS In RECHNUNG.POSITIONEN
dt.Rows.Add(POS.LeistungsBez, POS.SteuerfreierBetrag, POS.SteuerpflichtigerBetrag, POS.Anzahl, POS.LeistungsNr)
Next
Me.DataSource = dt
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,24 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSammelRechnungAnlagenDruck_MDM
Public _LAN = ""
Sub New()
InitializeComponent()
End Sub
Sub New(_LAN)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
End If
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,24 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptSammelRechnungDruck
Dim _LAN = ""
Sub New()
InitializeComponent()
End Sub
Sub New(_LAN)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me._LAN = _LAN
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
If _LAN.replace("DE", "") <> "" Then
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptRechnungDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptRechnungDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck")
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck")
End If
End Sub
End Class

View File

@@ -0,0 +1,601 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptTIR
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.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtAbfahrsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBestimmungsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFahrzeug = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZusDok = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6, Me.txtSumme, Me.TextBox1})
Me.ReportHeader1.Height = 11.42519!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtAbfahrsland
'
Me.txtAbfahrsland.CanGrow = False
Me.txtAbfahrsland.DataField = ""
Me.txtAbfahrsland.DistinctField = ""
Me.txtAbfahrsland.Height = 0.431!
Me.txtAbfahrsland.Left = 1.987!
Me.txtAbfahrsland.Name = "txtAbfahrsland"
Me.txtAbfahrsland.Style = "color: Black"
Me.txtAbfahrsland.SummaryGroup = ""
Me.txtAbfahrsland.Text = "Abfahrsland"
Me.txtAbfahrsland.Top = 1.683!
Me.txtAbfahrsland.Width = 1.092!
'
'txtGesamtpaket1
'
Me.txtGesamtpaket1.CanGrow = False
Me.txtGesamtpaket1.DataField = ""
Me.txtGesamtpaket1.DistinctField = ""
Me.txtGesamtpaket1.Height = 0.1968504!
Me.txtGesamtpaket1.Left = 0.479!
Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket1.SummaryGroup = ""
Me.txtGesamtpaket1.Text = "Gesamtpaket1"
Me.txtGesamtpaket1.Top = 8.120001!
Me.txtGesamtpaket1.Width = 1.415!
'
'txtMain1
'
Me.txtMain1.CanGrow = False
Me.txtMain1.DataField = ""
Me.txtMain1.DistinctField = ""
Me.txtMain1.Height = 3.743!
Me.txtMain1.Left = 0.479!
Me.txtMain1.Name = "txtMain1"
Me.txtMain1.Style = "color: Black"
Me.txtMain1.SummaryGroup = ""
Me.txtMain1.Text = "Main1"
Me.txtMain1.Top = 3.51!
Me.txtMain1.Width = 1.415!
'
'txtAbgangszollstelle1
'
Me.txtAbgangszollstelle1.CanGrow = False
Me.txtAbgangszollstelle1.DataField = ""
Me.txtAbgangszollstelle1.DistinctField = ""
Me.txtAbgangszollstelle1.Height = 0.1574803!
Me.txtAbgangszollstelle1.Left = 0.479!
Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle1.SummaryGroup = ""
Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1"
Me.txtAbgangszollstelle1.Top = 0.9030001!
Me.txtAbgangszollstelle1.Width = 1.269984!
'
'txtAbgangszollstelle2
'
Me.txtAbgangszollstelle2.CanGrow = False
Me.txtAbgangszollstelle2.DataField = ""
Me.txtAbgangszollstelle2.DistinctField = ""
Me.txtAbgangszollstelle2.Height = 0.1574803!
Me.txtAbgangszollstelle2.Left = 0.479!
Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle2.SummaryGroup = ""
Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2"
Me.txtAbgangszollstelle2.Top = 1.235!
Me.txtAbgangszollstelle2.Width = 1.269984!
'
'txtAbgangszollstelle3
'
Me.txtAbgangszollstelle3.CanGrow = False
Me.txtAbgangszollstelle3.DataField = ""
Me.txtAbgangszollstelle3.DistinctField = ""
Me.txtAbgangszollstelle3.Height = 0.1574803!
Me.txtAbgangszollstelle3.Left = 0.479!
Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle3.SummaryGroup = ""
Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3"
Me.txtAbgangszollstelle3.Top = 1.526!
Me.txtAbgangszollstelle3.Width = 1.269984!
'
'txtAbgangszollstelle4
'
Me.txtAbgangszollstelle4.CanGrow = False
Me.txtAbgangszollstelle4.DataField = ""
Me.txtAbgangszollstelle4.DistinctField = ""
Me.txtAbgangszollstelle4.Height = 0.1574803!
Me.txtAbgangszollstelle4.Left = 0.479!
Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
Me.txtAbgangszollstelle4.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle4.SummaryGroup = ""
Me.txtAbgangszollstelle4.Text = "Abgangszollstelle4"
Me.txtAbgangszollstelle4.Top = 1.834!
Me.txtAbgangszollstelle4.Width = 1.269984!
'
'txtAbgangszollstelle5
'
Me.txtAbgangszollstelle5.CanGrow = False
Me.txtAbgangszollstelle5.DataField = ""
Me.txtAbgangszollstelle5.DistinctField = ""
Me.txtAbgangszollstelle5.Height = 0.1574803!
Me.txtAbgangszollstelle5.Left = 0.479!
Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
Me.txtAbgangszollstelle5.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle5.SummaryGroup = ""
Me.txtAbgangszollstelle5.Text = "Abgangszollstelle5"
Me.txtAbgangszollstelle5.Top = 2.114!
Me.txtAbgangszollstelle5.Width = 1.269984!
'
'txtAbgangszollstelle6
'
Me.txtAbgangszollstelle6.CanGrow = False
Me.txtAbgangszollstelle6.DataField = ""
Me.txtAbgangszollstelle6.DistinctField = ""
Me.txtAbgangszollstelle6.Height = 0.1574803!
Me.txtAbgangszollstelle6.Left = 0.479!
Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
Me.txtAbgangszollstelle6.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle6.SummaryGroup = ""
Me.txtAbgangszollstelle6.Text = "Abgangszollstelle6"
Me.txtAbgangszollstelle6.Top = 2.412!
Me.txtAbgangszollstelle6.Width = 1.269984!
'
'txtAbgangszollstelle7
'
Me.txtAbgangszollstelle7.CanGrow = False
Me.txtAbgangszollstelle7.DataField = ""
Me.txtAbgangszollstelle7.DistinctField = ""
Me.txtAbgangszollstelle7.Height = 0.1574803!
Me.txtAbgangszollstelle7.Left = 0.479!
Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
Me.txtAbgangszollstelle7.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle7.SummaryGroup = ""
Me.txtAbgangszollstelle7.Text = "Abgangszollstelle7"
Me.txtAbgangszollstelle7.Top = 2.74!
Me.txtAbgangszollstelle7.Width = 1.269984!
'
'txtBestimmungsland
'
Me.txtBestimmungsland.CanGrow = False
Me.txtBestimmungsland.DataField = ""
Me.txtBestimmungsland.DistinctField = ""
Me.txtBestimmungsland.Height = 0.4309999!
Me.txtBestimmungsland.Left = 3.079!
Me.txtBestimmungsland.Name = "txtBestimmungsland"
Me.txtBestimmungsland.Style = "color: Black"
Me.txtBestimmungsland.SummaryGroup = ""
Me.txtBestimmungsland.Text = "Bestimmungsland"
Me.txtBestimmungsland.Top = 1.683!
Me.txtBestimmungsland.Width = 1.078!
'
'txtFahrzeug
'
Me.txtFahrzeug.CanGrow = False
Me.txtFahrzeug.DataField = ""
Me.txtFahrzeug.DistinctField = ""
Me.txtFahrzeug.Height = 0.4849999!
Me.txtFahrzeug.Left = 1.987!
Me.txtFahrzeug.Name = "txtFahrzeug"
Me.txtFahrzeug.Style = "color: Black"
Me.txtFahrzeug.SummaryGroup = ""
Me.txtFahrzeug.Text = "Fahrzeug"
Me.txtFahrzeug.Top = 2.412!
Me.txtFahrzeug.Width = 2.434!
'
'txtZusDok
'
Me.txtZusDok.CanGrow = False
Me.txtZusDok.DataField = ""
Me.txtZusDok.DistinctField = ""
Me.txtZusDok.Height = 0.6260002!
Me.txtZusDok.Left = 4.588!
Me.txtZusDok.Name = "txtZusDok"
Me.txtZusDok.Style = "color: Black"
Me.txtZusDok.SummaryGroup = ""
Me.txtZusDok.Text = "ZusDok"
Me.txtZusDok.Top = 2.271!
Me.txtZusDok.Width = 2.389!
'
'txtMain2
'
Me.txtMain2.CanGrow = False
Me.txtMain2.DataField = ""
Me.txtMain2.DistinctField = ""
Me.txtMain2.Height = 3.743!
Me.txtMain2.Left = 1.894!
Me.txtMain2.Name = "txtMain2"
Me.txtMain2.Style = "color: Black"
Me.txtMain2.SummaryGroup = ""
Me.txtMain2.Text = "Main2"
Me.txtMain2.Top = 3.51!
Me.txtMain2.Width = 3.499!
'
'txtMain3
'
Me.txtMain3.CanGrow = False
Me.txtMain3.DataField = ""
Me.txtMain3.DistinctField = ""
Me.txtMain3.Height = 3.743!
Me.txtMain3.Left = 5.455!
Me.txtMain3.Name = "txtMain3"
Me.txtMain3.Style = "color: Black"
Me.txtMain3.SummaryGroup = ""
Me.txtMain3.Text = "Main3"
Me.txtMain3.Top = 3.51!
Me.txtMain3.Width = 1.28!
'
'txtGesamtpaketName1
'
Me.txtGesamtpaketName1.CanGrow = False
Me.txtGesamtpaketName1.DataField = ""
Me.txtGesamtpaketName1.DistinctField = ""
Me.txtGesamtpaketName1.Height = 0.1968504!
Me.txtGesamtpaketName1.Left = 1.894!
Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName1.SummaryGroup = ""
Me.txtGesamtpaketName1.Text = "GesamtpaketName1"
Me.txtGesamtpaketName1.Top = 8.12!
Me.txtGesamtpaketName1.Width = 0.4770002!
'
'txtGesamtpaket2
'
Me.txtGesamtpaket2.CanGrow = False
Me.txtGesamtpaket2.DataField = ""
Me.txtGesamtpaket2.DistinctField = ""
Me.txtGesamtpaket2.Height = 0.1968504!
Me.txtGesamtpaket2.Left = 0.4790001!
Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket2.SummaryGroup = ""
Me.txtGesamtpaket2.Text = "Gesamtpaket2"
Me.txtGesamtpaket2.Top = 8.399001!
Me.txtGesamtpaket2.Width = 1.415!
'
'txtGesamtpaketName2
'
Me.txtGesamtpaketName2.CanGrow = False
Me.txtGesamtpaketName2.DataField = ""
Me.txtGesamtpaketName2.DistinctField = ""
Me.txtGesamtpaketName2.Height = 0.1968504!
Me.txtGesamtpaketName2.Left = 1.894!
Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName2.SummaryGroup = ""
Me.txtGesamtpaketName2.Text = "GesamtpaketName2"
Me.txtGesamtpaketName2.Top = 8.399!
Me.txtGesamtpaketName2.Width = 0.4770003!
'
'txtGesamtpaket3
'
Me.txtGesamtpaket3.CanGrow = False
Me.txtGesamtpaket3.DataField = ""
Me.txtGesamtpaket3.DistinctField = ""
Me.txtGesamtpaket3.Height = 0.1968504!
Me.txtGesamtpaket3.Left = 0.4790001!
Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket3.SummaryGroup = ""
Me.txtGesamtpaket3.Text = "Gesamtpaket3"
Me.txtGesamtpaket3.Top = 8.711001!
Me.txtGesamtpaket3.Width = 1.415!
'
'txtGesamtpaketName3
'
Me.txtGesamtpaketName3.CanGrow = False
Me.txtGesamtpaketName3.DataField = ""
Me.txtGesamtpaketName3.DistinctField = ""
Me.txtGesamtpaketName3.Height = 0.1968504!
Me.txtGesamtpaketName3.Left = 1.894!
Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName3.SummaryGroup = ""
Me.txtGesamtpaketName3.Text = "GesamtpaketName3"
Me.txtGesamtpaketName3.Top = 8.711!
Me.txtGesamtpaketName3.Width = 0.4770003!
'
'txtGesamtpaket7
'
Me.txtGesamtpaket7.CanGrow = False
Me.txtGesamtpaket7.DataField = ""
Me.txtGesamtpaket7.DistinctField = ""
Me.txtGesamtpaket7.Height = 0.1968504!
Me.txtGesamtpaket7.Left = 2.572!
Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
Me.txtGesamtpaket7.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket7.SummaryGroup = ""
Me.txtGesamtpaket7.Text = "Gesamtpaket7"
Me.txtGesamtpaket7.Top = 8.711!
Me.txtGesamtpaket7.Width = 1.372!
'
'txtGesamtpaketName7
'
Me.txtGesamtpaketName7.CanGrow = False
Me.txtGesamtpaketName7.DataField = ""
Me.txtGesamtpaketName7.DistinctField = ""
Me.txtGesamtpaketName7.Height = 0.1968508!
Me.txtGesamtpaketName7.Left = 3.944!
Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
Me.txtGesamtpaketName7.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName7.SummaryGroup = ""
Me.txtGesamtpaketName7.Text = "GesamtpaketName7"
Me.txtGesamtpaketName7.Top = 8.711!
Me.txtGesamtpaketName7.Width = 0.4770002!
'
'txtGesamtpaket4
'
Me.txtGesamtpaket4.CanGrow = False
Me.txtGesamtpaket4.DataField = ""
Me.txtGesamtpaket4.DistinctField = ""
Me.txtGesamtpaket4.Height = 0.1968504!
Me.txtGesamtpaket4.Left = 2.572!
Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
Me.txtGesamtpaket4.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket4.SummaryGroup = ""
Me.txtGesamtpaket4.Text = "Gesamtpaket4"
Me.txtGesamtpaket4.Top = 7.838!
Me.txtGesamtpaket4.Width = 1.372!
'
'txtGesamtpaketName4
'
Me.txtGesamtpaketName4.CanGrow = False
Me.txtGesamtpaketName4.DataField = ""
Me.txtGesamtpaketName4.DistinctField = ""
Me.txtGesamtpaketName4.Height = 0.1968504!
Me.txtGesamtpaketName4.Left = 3.944!
Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
Me.txtGesamtpaketName4.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName4.SummaryGroup = ""
Me.txtGesamtpaketName4.Text = "GesamtpaketName4"
Me.txtGesamtpaketName4.Top = 7.838!
Me.txtGesamtpaketName4.Width = 0.4770003!
'
'txtGesamtpaket5
'
Me.txtGesamtpaket5.CanGrow = False
Me.txtGesamtpaket5.DataField = ""
Me.txtGesamtpaket5.DistinctField = ""
Me.txtGesamtpaket5.Height = 0.1968504!
Me.txtGesamtpaket5.Left = 2.572!
Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
Me.txtGesamtpaket5.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket5.SummaryGroup = ""
Me.txtGesamtpaket5.Text = "Gesamtpaket5"
Me.txtGesamtpaket5.Top = 8.120001!
Me.txtGesamtpaket5.Width = 1.372!
'
'txtGesamtpaketName5
'
Me.txtGesamtpaketName5.CanGrow = False
Me.txtGesamtpaketName5.DataField = ""
Me.txtGesamtpaketName5.DistinctField = ""
Me.txtGesamtpaketName5.Height = 0.1968504!
Me.txtGesamtpaketName5.Left = 3.944!
Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
Me.txtGesamtpaketName5.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName5.SummaryGroup = ""
Me.txtGesamtpaketName5.Text = "GesamtpaketName5"
Me.txtGesamtpaketName5.Top = 8.120001!
Me.txtGesamtpaketName5.Width = 0.4770003!
'
'txtGesamtpaket6
'
Me.txtGesamtpaket6.CanGrow = False
Me.txtGesamtpaket6.DataField = ""
Me.txtGesamtpaket6.DistinctField = ""
Me.txtGesamtpaket6.Height = 0.1968504!
Me.txtGesamtpaket6.Left = 2.572!
Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
Me.txtGesamtpaket6.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket6.SummaryGroup = ""
Me.txtGesamtpaket6.Text = "Gesamtpaket6"
Me.txtGesamtpaket6.Top = 8.399!
Me.txtGesamtpaket6.Width = 1.372!
'
'txtGesamtpaketName6
'
Me.txtGesamtpaketName6.CanGrow = False
Me.txtGesamtpaketName6.DataField = ""
Me.txtGesamtpaketName6.DistinctField = ""
Me.txtGesamtpaketName6.Height = 0.1968504!
Me.txtGesamtpaketName6.Left = 3.944!
Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
Me.txtGesamtpaketName6.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName6.SummaryGroup = ""
Me.txtGesamtpaketName6.Text = "GesamtpaketName6"
Me.txtGesamtpaketName6.Top = 8.399!
Me.txtGesamtpaketName6.Width = 0.4770003!
'
'txtSumme
'
Me.txtSumme.CanGrow = False
Me.txtSumme.DistinctField = ""
Me.txtSumme.Height = 0.2330003!
Me.txtSumme.Left = 5.455!
Me.txtSumme.Name = "txtSumme"
Me.txtSumme.Style = "color: Black; font-weight: bold; text-decoration: underline"
Me.txtSumme.SummaryGroup = ""
Me.txtSumme.Text = "Summe Gewicht"
Me.txtSumme.Top = 7.253!
Me.txtSumme.Width = 1.28!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.DistinctField = ""
Me.TextBox1.Height = 0.2330003!
Me.TextBox1.Left = 1.894!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "color: Black; font-weight: bold; text-decoration: underline"
Me.TextBox1.SummaryGroup = ""
Me.TextBox1.Text = "Summe Anzahl"
Me.TextBox1.Top = 7.253!
Me.TextBox1.Width = 1.28!
'
'rptTIR
'
Me.PageSettings.Margins.Bottom = 0!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.Script = "public void ActiveReport_ReportStart()" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "{" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "}" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.Detail)
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.txtAbfahrsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, 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
Public WithEvents txtAbfahrsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBestimmungsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFahrzeug As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZusDok As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,15 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptTIR
Sub New(RandOben As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
RandOben = RandOben / 10 'mm
Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
End Sub
Private Sub rptTIR_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

View File

@@ -0,0 +1,384 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptTIR_alt
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.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtAbfahrsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBestimmungsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFahrzeug = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZusDok = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.txtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtSumme})
Me.ReportHeader1.Height = 11.42519!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtAbfahrsland
'
Me.txtAbfahrsland.CanGrow = False
Me.txtAbfahrsland.DataField = ""
Me.txtAbfahrsland.DistinctField = ""
Me.txtAbfahrsland.Height = 0.2639999!
Me.txtAbfahrsland.Left = 4.15!
Me.txtAbfahrsland.Name = "txtAbfahrsland"
Me.txtAbfahrsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbfahrsland.Style = "color: Black"
Me.txtAbfahrsland.SummaryGroup = ""
Me.txtAbfahrsland.Text = "Abfahrsland"
Me.txtAbfahrsland.Top = 2.351!
Me.txtAbfahrsland.Width = 1.582!
'
'txtGesamtpaket1
'
Me.txtGesamtpaket1.CanGrow = False
Me.txtGesamtpaket1.DataField = ""
Me.txtGesamtpaket1.DistinctField = ""
Me.txtGesamtpaket1.Height = 0.1968504!
Me.txtGesamtpaket1.Left = 0.479!
Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
Me.txtGesamtpaket1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket1.SummaryGroup = ""
Me.txtGesamtpaket1.Text = "Gesamtpaket1"
Me.txtGesamtpaket1.Top = 7.818!
Me.txtGesamtpaket1.Width = 1.936!
'
'txtMain1
'
Me.txtMain1.CanGrow = False
Me.txtMain1.DataField = ""
Me.txtMain1.DistinctField = ""
Me.txtMain1.Height = 3.191!
Me.txtMain1.Left = 0.479!
Me.txtMain1.Name = "txtMain1"
Me.txtMain1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtMain1.Style = "color: Black"
Me.txtMain1.SummaryGroup = ""
Me.txtMain1.Text = "Main1"
Me.txtMain1.Top = 4.01!
Me.txtMain1.Width = 1.936!
'
'txtAbgangszollstelle1
'
Me.txtAbgangszollstelle1.CanGrow = False
Me.txtAbgangszollstelle1.DataField = ""
Me.txtAbgangszollstelle1.DistinctField = ""
Me.txtAbgangszollstelle1.Height = 0.1574803!
Me.txtAbgangszollstelle1.Left = 0.479!
Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
Me.txtAbgangszollstelle1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle1.SummaryGroup = ""
Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1"
Me.txtAbgangszollstelle1.Top = 0.601!
Me.txtAbgangszollstelle1.Width = 1.676!
'
'txtAbgangszollstelle2
'
Me.txtAbgangszollstelle2.CanGrow = False
Me.txtAbgangszollstelle2.DataField = ""
Me.txtAbgangszollstelle2.DistinctField = ""
Me.txtAbgangszollstelle2.Height = 0.1574803!
Me.txtAbgangszollstelle2.Left = 2.415!
Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
Me.txtAbgangszollstelle2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle2.SummaryGroup = ""
Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2"
Me.txtAbgangszollstelle2.Top = 0.601!
Me.txtAbgangszollstelle2.Width = 1.593!
'
'txtAbgangszollstelle3
'
Me.txtAbgangszollstelle3.CanGrow = False
Me.txtAbgangszollstelle3.DataField = ""
Me.txtAbgangszollstelle3.DistinctField = ""
Me.txtAbgangszollstelle3.Height = 0.1574803!
Me.txtAbgangszollstelle3.Left = 0.479!
Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
Me.txtAbgangszollstelle3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle3.SummaryGroup = ""
Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3"
Me.txtAbgangszollstelle3.Top = 0.8700001!
Me.txtAbgangszollstelle3.Width = 1.676!
'
'txtBestimmungsland
'
Me.txtBestimmungsland.CanGrow = False
Me.txtBestimmungsland.DataField = ""
Me.txtBestimmungsland.DistinctField = ""
Me.txtBestimmungsland.Height = 0.2640001!
Me.txtBestimmungsland.Left = 5.732!
Me.txtBestimmungsland.Name = "txtBestimmungsland"
Me.txtBestimmungsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtBestimmungsland.Style = "color: Black"
Me.txtBestimmungsland.SummaryGroup = ""
Me.txtBestimmungsland.Text = "Bestimmungsland"
Me.txtBestimmungsland.Top = 2.351!
Me.txtBestimmungsland.Width = 1.297!
'
'txtFahrzeug
'
Me.txtFahrzeug.CanGrow = False
Me.txtFahrzeug.DataField = ""
Me.txtFahrzeug.DistinctField = ""
Me.txtFahrzeug.Height = 0.4849999!
Me.txtFahrzeug.Left = 0.479!
Me.txtFahrzeug.Name = "txtFahrzeug"
Me.txtFahrzeug.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtFahrzeug.Style = "color: Black"
Me.txtFahrzeug.SummaryGroup = ""
Me.txtFahrzeug.Text = "Fahrzeug"
Me.txtFahrzeug.Top = 2.766!
Me.txtFahrzeug.Width = 2.434!
'
'txtZusDok
'
Me.txtZusDok.CanGrow = False
Me.txtZusDok.DataField = ""
Me.txtZusDok.DistinctField = ""
Me.txtZusDok.Height = 0.756!
Me.txtZusDok.Left = 4.15!
Me.txtZusDok.Name = "txtZusDok"
Me.txtZusDok.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtZusDok.Style = "color: Black"
Me.txtZusDok.SummaryGroup = ""
Me.txtZusDok.Text = "ZusDok"
Me.txtZusDok.Top = 2.766!
Me.txtZusDok.Width = 2.879!
'
'txtMain2
'
Me.txtMain2.CanGrow = False
Me.txtMain2.DataField = ""
Me.txtMain2.DistinctField = ""
Me.txtMain2.Height = 3.191!
Me.txtMain2.Left = 2.739!
Me.txtMain2.Name = "txtMain2"
Me.txtMain2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtMain2.Style = "color: Black"
Me.txtMain2.SummaryGroup = ""
Me.txtMain2.Text = "Main2"
Me.txtMain2.Top = 4.01!
Me.txtMain2.Width = 3.144!
'
'txtMain3
'
Me.txtMain3.CanGrow = False
Me.txtMain3.DataField = ""
Me.txtMain3.DistinctField = ""
Me.txtMain3.Height = 3.191!
Me.txtMain3.Left = 6.007!
Me.txtMain3.Name = "txtMain3"
Me.txtMain3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtMain3.Style = "color: Black"
Me.txtMain3.SummaryGroup = ""
Me.txtMain3.Text = "Main3"
Me.txtMain3.Top = 4.01!
Me.txtMain3.Width = 0.7279992!
'
'txtGesamtpaketName1
'
Me.txtGesamtpaketName1.CanGrow = False
Me.txtGesamtpaketName1.DataField = ""
Me.txtGesamtpaketName1.DistinctField = ""
Me.txtGesamtpaketName1.Height = 0.1968504!
Me.txtGesamtpaketName1.Left = 2.509!
Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
Me.txtGesamtpaketName1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName1.SummaryGroup = ""
Me.txtGesamtpaketName1.Text = "GesamtpaketName1"
Me.txtGesamtpaketName1.Top = 7.818!
Me.txtGesamtpaketName1.Width = 0.4770002!
'
'txtGesamtpaket2
'
Me.txtGesamtpaket2.CanGrow = False
Me.txtGesamtpaket2.DataField = ""
Me.txtGesamtpaket2.DistinctField = ""
Me.txtGesamtpaket2.Height = 0.1968504!
Me.txtGesamtpaket2.Left = 0.479!
Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
Me.txtGesamtpaket2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket2.SummaryGroup = ""
Me.txtGesamtpaket2.Text = "Gesamtpaket2"
Me.txtGesamtpaket2.Top = 8.139!
Me.txtGesamtpaket2.Width = 1.936!
'
'txtGesamtpaketName2
'
Me.txtGesamtpaketName2.CanGrow = False
Me.txtGesamtpaketName2.DataField = ""
Me.txtGesamtpaketName2.DistinctField = ""
Me.txtGesamtpaketName2.Height = 0.1968504!
Me.txtGesamtpaketName2.Left = 2.509!
Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
Me.txtGesamtpaketName2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName2.SummaryGroup = ""
Me.txtGesamtpaketName2.Text = "GesamtpaketName2"
Me.txtGesamtpaketName2.Top = 8.139!
Me.txtGesamtpaketName2.Width = 0.4770003!
'
'txtGesamtpaket3
'
Me.txtGesamtpaket3.CanGrow = False
Me.txtGesamtpaket3.DataField = ""
Me.txtGesamtpaket3.DistinctField = ""
Me.txtGesamtpaket3.Height = 0.1968504!
Me.txtGesamtpaket3.Left = 0.479!
Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
Me.txtGesamtpaket3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket3.SummaryGroup = ""
Me.txtGesamtpaket3.Text = "Gesamtpaket3"
Me.txtGesamtpaket3.Top = 8.472!
Me.txtGesamtpaket3.Width = 1.936!
'
'txtGesamtpaketName3
'
Me.txtGesamtpaketName3.CanGrow = False
Me.txtGesamtpaketName3.DataField = ""
Me.txtGesamtpaketName3.DistinctField = ""
Me.txtGesamtpaketName3.Height = 0.1968504!
Me.txtGesamtpaketName3.Left = 2.509!
Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
Me.txtGesamtpaketName3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName3.SummaryGroup = ""
Me.txtGesamtpaketName3.Text = "GesamtpaketName3"
Me.txtGesamtpaketName3.Top = 8.472!
Me.txtGesamtpaketName3.Width = 0.4770003!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'txtSumme
'
Me.txtSumme.CanGrow = False
Me.txtSumme.DistinctField = ""
Me.txtSumme.Height = 0.2330003!
Me.txtSumme.Left = 6.007!
Me.txtSumme.Name = "txtSumme"
Me.txtSumme.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtSumme.Style = "color: Black; font-weight: bold; text-decoration: underline"
Me.txtSumme.SummaryGroup = ""
Me.txtSumme.Text = "Summe"
Me.txtSumme.Top = 7.201!
Me.txtSumme.Width = 0.7279994!
'
'rptTIR_alt
'
Me.PageSettings.Margins.Bottom = 0!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(CType(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"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSumme, 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
Public WithEvents txtAbfahrsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBestimmungsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFahrzeug As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZusDok As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,15 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptTIR_alt
Sub New(RandOben As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
RandOben = RandOben / 10 'mm
Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
End Sub
Private Sub rptTIR_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

File diff suppressed because one or more lines are too long

View File

@@ -0,0 +1,241 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptCMR
Sub New()
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(CMR As cCMR)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
' MsgBox(CMR.CMR_Absender_1 & CMR.CMR_Absender_2 & CMR.CMR_Absender_3 & CMR.CMR_Absender_4)
Dim vbNewLine1 = Environment.NewLine
txtAbsender.Text = If(CMR.CMR_Absender_1, "")
txtAbsender.Text &= If(CMR.CMR_Absender_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Absender_2, "")
txtAbsender.Text &= If(CMR.CMR_Absender_3 IsNot Nothing, vbNewLine1 & CMR.CMR_Absender_3, "")
txtAbsender.Text &= If(CMR.CMR_Absender_4 IsNot Nothing, vbNewLine1 & CMR.CMR_Absender_4, "")
txtEmpf<EFBFBD>nger.Text = If(CMR.CMR_Empf<EFBFBD>nger_1, "")
txtEmpf<EFBFBD>nger.Text &= If(CMR.CMR_Empf<EFBFBD>nger_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Empf<EFBFBD>nger_2, "")
txtEmpf<EFBFBD>nger.Text &= If(CMR.CMR_Empf<EFBFBD>nger_3 IsNot Nothing, vbNewLine1 & CMR.CMR_Empf<EFBFBD>nger_3, "")
txtEmpf<EFBFBD>nger.Text &= If(CMR.CMR_Empf<EFBFBD>nger_4 IsNot Nothing, vbNewLine1 & CMR.CMR_Empf<EFBFBD>nger_4, "")
txtFrachtf<EFBFBD>hrer.Text = If(CMR.CMR_Frachtf<EFBFBD>hrer_1, "")
txtFrachtf<EFBFBD>hrer.Text &= If(CMR.CMR_Frachtf<EFBFBD>hrer_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Frachtf<EFBFBD>hrer_2, "")
txtFrachtf<EFBFBD>hrer.Text &= If(CMR.CMR_Frachtf<EFBFBD>hrer_3 IsNot Nothing, vbNewLine1 & CMR.CMR_Frachtf<EFBFBD>hrer_3, "")
txtFrachtf<EFBFBD>hrer.Text &= If(CMR.CMR_Frachtf<EFBFBD>hrer_4 IsNot Nothing, vbNewLine1 & CMR.CMR_Frachtf<EFBFBD>hrer_4, "")
txtNachfolgendeFrachtf<EFBFBD>hrer.Text = If(CMR.CMR_Nachf_Frachtf<EFBFBD>hrer_1, "")
txtNachfolgendeFrachtf<EFBFBD>hrer.Text &= If(CMR.CMR_Nachf_Frachtf<EFBFBD>hrer_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Nachf_Frachtf<EFBFBD>hrer_2, "")
txtNachfolgendeFrachtf<EFBFBD>hrer.Text &= If(CMR.CMR_Nachf_Frachtf<EFBFBD>hrer_3 IsNot Nothing, vbNewLine1 & CMR.CMR_Nachf_Frachtf<EFBFBD>hrer_3, "")
txtNachfolgendeFrachtf<EFBFBD>hrer.Text &= If(CMR.CMR_Nachf_Frachtf<EFBFBD>hrer_4 IsNot Nothing, vbNewLine1 & CMR.CMR_Nachf_Frachtf<EFBFBD>hrer_4, "")
txtAuslieferungsort.Text = If(CMR.CMR_Auslieferung_Ort, "")
txtAuslieferungsLand.Text = If(CMR.CMR_Auslieferung_Land, "")
txtOrt.Text = If(CMR.CMR_<EFBFBD>bernahme_Ort, "")
txtLand.Text = If(CMR.CMR_<EFBFBD>bernahme_Land, "")
txtDatum.Text = If(CMR.CMR_<EFBFBD>bernahme_Datum, "")
txtBeigef<EFBFBD>gteDok.Text = If(CMR.CMR_Dokumente_1, "")
txtBeigef<EFBFBD>gteDok.Text &= If(CMR.CMR_Dokumente_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Dokumente_2, "")
txtBeigef<EFBFBD>gteDok.Text &= If(CMR.CMR_Dokumente_3 IsNot Nothing, vbNewLine1 & CMR.CMR_Dokumente_3, "")
txtVorbehalteundBemerkungen.Text = If(CMR.CMR_Bemerkungen_1, "")
txtVorbehalteundBemerkungen.Text &= If(CMR.CMR_Bemerkungen_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Bemerkungen_2, "")
txtVorbehalteundBemerkungen.Text &= If(CMR.CMR_Bemerkungen_3 IsNot Nothing, vbNewLine1 & CMR.CMR_Bemerkungen_3, "")
txtVorbehalteundBemerkungen.Text &= If(CMR.CMR_Bemerkungen_4 IsNot Nothing, vbNewLine1 & CMR.CMR_Bemerkungen_4, "")
txtVorbehalteundBemerkungen.Text &= If(CMR.CMR_Bemerkungen_5 IsNot Nothing, vbNewLine1 & CMR.CMR_Bemerkungen_5, "")
txtAnweisungenDesAbsenders.Text = If(CMR.CMR_Anweisungen_1, "")
txtAnweisungenDesAbsenders.Text &= If(CMR.CMR_Anweisungen_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Anweisungen_2, "")
txtAnweisungenDesAbsenders.Text &= If(CMR.CMR_Anweisungen_3 IsNot Nothing, vbNewLine1 & CMR.CMR_Anweisungen_3, "")
txtAnweisungenDesAbsenders.Text &= If(CMR.CMR_Anweisungen_4 IsNot Nothing, vbNewLine1 & CMR.CMR_Anweisungen_4, "")
txtAusgefertigtIn.Text = If(CMR.CMR_Ausgefertigt_in, "")
txtAusgefertigtam.Text = If(CMR.CMR_Ausgefertigt_am, "")
txtBesondereVereinbarungen.Text = If(CMR.CMR_Vereinbarungen_1, "")
txtBesondereVereinbarungen.Text &= If(CMR.CMR_Vereinbarungen_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Vereinbarungen_2, "")
txtUnterschriftAbsender.Text = If(CMR.CMR_Stempel_Absender_1, "")
txtUnterschriftAbsender.Text &= If(CMR.CMR_Stempel_Absender_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Stempel_Absender_2, "")
txtUnterschriftFrachtf<EFBFBD>hrer.Text = If(CMR.CMR_Stempel_Frachtf<EFBFBD>hrer_1, "")
txtUnterschriftFrachtf<EFBFBD>hrer.Text &= If(CMR.CMR_Stempel_Frachtf<EFBFBD>hrer_2 IsNot Nothing, vbNewLine1 & CMR.CMR_Stempel_Frachtf<EFBFBD>hrer_2, "")
txtKfz.Text = If(CMR.CMR_Kennzeichen_Kfz, "")
txtKfzKg.Text = If(CMR.CMR_Nutzlast_Kfz, "")
txtAnh<EFBFBD>nger.Text = If(CMR.CMR_Kennzeichen_Anh<EFBFBD>nger, "")
txtAnh<EFBFBD>ngerKg.Text = If(CMR.CMR_Nutzlast_Anh<EFBFBD>nger, "")
If CMR._kurz Then
Dim sRptKurz = New subrptLadungKurz
If CMR.CMRPos.Count > 0 Then
' sRptKurz.txtZeichen1.Text = CMR.CMRPos(0).Zeichen
sRptKurz.txtAnzahl1.Text = CMR.CMRPos(0).Anzahl
sRptKurz.txtArtVerpackung1.Text = CMR.CMRPos(0).Art
sRptKurz.txtBezeichnung1.Text = CMR.CMRPos(0).Bezeichnung
' sRptKurz.txtStatNr1.Text = CMR.CMRPos(0).StatistikNr
sRptKurz.txtBruttoGewicht1.Text = CMR.CMRPos(0).Bruttogewicht
' sRptKurz.txtUmfang1.Text = CMR.CMRPos(0).Umfang
End If
If CMR.CMRPos.Count > 1 Then
' sRptKurz.txtZeichen2.Text = CMR.CMRPos(1).Zeichen
sRptKurz.txtAnzahl2.Text = CMR.CMRPos(1).Anzahl
sRptKurz.txtArtVerpackung2.Text = CMR.CMRPos(1).Art
sRptKurz.txtBezeichnung2.Text = CMR.CMRPos(1).Bezeichnung
' sRptKurz.txtStatNr2.Text = CMR.CMRPos(1).StatistikNr
sRptKurz.txtBruttoGewicht2.Text = CMR.CMRPos(1).Bruttogewicht
' sRptKurz.txtUmfang2.Text = CMR.CMRPos(1).Umfang
End If
If CMR.CMRPos.Count > 2 Then
'sRptKurz.txtZeichen3.Text = CMR.CMRPos(2).Zeichen
sRptKurz.txtAnzahl3.Text = CMR.CMRPos(2).Anzahl
sRptKurz.txtArtVerpackung3.Text = CMR.CMRPos(2).Art
sRptKurz.txtBezeichnung3.Text = CMR.CMRPos(2).Bezeichnung
' sRptKurz.txtStatNr3.Text = CMR.CMRPos(2).StatistikNr
sRptKurz.txtBruttoGewicht3.Text = CMR.CMRPos(2).Bruttogewicht
' sRptKurz.txtUmfang3.Text = CMR.CMRPos(2).Umfang
End If
If CMR.CMRPos.Count > 3 Then
'sRptKurz.txtZeichen4.Text = CMR.CMRPos(3).Zeichen
sRptKurz.txtAnzahl4.Text = CMR.CMRPos(3).Anzahl
sRptKurz.txtArtVerpackung4.Text = CMR.CMRPos(3).Art
sRptKurz.txtBezeichnung4.Text = CMR.CMRPos(3).Bezeichnung
' sRptKurz.txtStatNr4.Text = CMR.CMRPos(3).StatistikNr
sRptKurz.txtBruttoGewicht4.Text = CMR.CMRPos(3).Bruttogewicht
' sRptKurz.txtUmfang4.Text = CMR.CMRPos(3).Umfang
End If
If CMR.CMRPos.Count > 4 Then
' sRptKurz.txtZeichen5.Text = CMR.CMRPos(4).Zeichen
sRptKurz.txtAnzahl5.Text = CMR.CMRPos(4).Anzahl
sRptKurz.txtArtVerpackung5.Text = CMR.CMRPos(4).Art
sRptKurz.txtBezeichnung5.Text = CMR.CMRPos(4).Bezeichnung
' sRptKurz.txtStatNr5.Text = CMR.CMRPos(4).StatistikNr
sRptKurz.txtBruttoGewicht5.Text = CMR.CMRPos(4).Bruttogewicht
'sRptKurz.txtUmfang5.Text = CMR.CMRPos(4).Umfang
End If
If CMR.CMRPos.Count > 5 Then
' sRptKurz.txtZeichen6.Text = CMR.CMRPos(5).Zeichen
sRptKurz.txtAnzahl6.Text = CMR.CMRPos(5).Anzahl
sRptKurz.txtArtVerpackung6.Text = CMR.CMRPos(5).Art
sRptKurz.txtBezeichnung6.Text = CMR.CMRPos(5).Bezeichnung
' sRptKurz.txtStatNr6.Text = CMR.CMRPos(5).StatistikNr
sRptKurz.txtBruttoGewicht6.Text = CMR.CMRPos(5).Bruttogewicht
' sRptKurz.txtUmfang6.Text = CMR.CMRPos(5).Umfang
End If
If CMR.CMRPos.Count > 6 Then
' sRptKurz.txtZeichen7.Text = CMR.CMRPos(6).Zeichen
sRptKurz.txtAnzahl7.Text = CMR.CMRPos(6).Anzahl
sRptKurz.txtArtVerpackung7.Text = CMR.CMRPos(6).Art
sRptKurz.txtBezeichnung7.Text = CMR.CMRPos(6).Bezeichnung
' sRptKurz.txtStatNr7.Text = CMR.CMRPos(6).StatistikNr
sRptKurz.txtBruttoGewicht7.Text = CMR.CMRPos(6).Bruttogewicht
' sRptKurz.txtUmfang7.Text = CMR.CMRPos(6).Umfang
End If
srptLadung.Report = sRptKurz
Else
Dim sRpt = New subrptLadung
If CMR.CMRPos.Count > 0 Then
sRpt.txtZeichen1.Text = CMR.CMRPos(0).Zeichen
sRpt.txtAnzahl1.Text = CMR.CMRPos(0).Anzahl
sRpt.txtArtVerpackung1.Text = CMR.CMRPos(0).Art
sRpt.txtBezeichnung1.Text = CMR.CMRPos(0).Bezeichnung
sRpt.txtStatNr1.Text = CMR.CMRPos(0).StatistikNr
sRpt.txtBruttoGewicht1.Text = CMR.CMRPos(0).Bruttogewicht
sRpt.txtUmfang1.Text = CMR.CMRPos(0).Umfang
End If
If CMR.CMRPos.Count > 1 Then
sRpt.txtZeichen2.Text = CMR.CMRPos(1).Zeichen
sRpt.txtAnzahl2.Text = CMR.CMRPos(1).Anzahl
sRpt.txtArtVerpackung2.Text = CMR.CMRPos(1).Art
sRpt.txtBezeichnung2.Text = CMR.CMRPos(1).Bezeichnung
sRpt.txtStatNr2.Text = CMR.CMRPos(1).StatistikNr
sRpt.txtBruttoGewicht2.Text = CMR.CMRPos(1).Bruttogewicht
sRpt.txtUmfang2.Text = CMR.CMRPos(1).Umfang
End If
If CMR.CMRPos.Count > 2 Then
sRpt.txtZeichen3.Text = CMR.CMRPos(2).Zeichen
sRpt.txtAnzahl3.Text = CMR.CMRPos(2).Anzahl
sRpt.txtArtVerpackung3.Text = CMR.CMRPos(2).Art
sRpt.txtBezeichnung3.Text = CMR.CMRPos(2).Bezeichnung
sRpt.txtStatNr3.Text = CMR.CMRPos(2).StatistikNr
sRpt.txtBruttoGewicht3.Text = CMR.CMRPos(2).Bruttogewicht
sRpt.txtUmfang3.Text = CMR.CMRPos(2).Umfang
End If
If CMR.CMRPos.Count > 3 Then
sRpt.txtZeichen4.Text = CMR.CMRPos(3).Zeichen
sRpt.txtAnzahl4.Text = CMR.CMRPos(3).Anzahl
sRpt.txtArtVerpackung4.Text = CMR.CMRPos(3).Art
sRpt.txtBezeichnung4.Text = CMR.CMRPos(3).Bezeichnung
sRpt.txtStatNr4.Text = CMR.CMRPos(3).StatistikNr
sRpt.txtBruttoGewicht4.Text = CMR.CMRPos(3).Bruttogewicht
sRpt.txtUmfang4.Text = CMR.CMRPos(3).Umfang
End If
If CMR.CMRPos.Count > 4 Then
sRpt.txtZeichen5.Text = CMR.CMRPos(4).Zeichen
sRpt.txtAnzahl5.Text = CMR.CMRPos(4).Anzahl
sRpt.txtArtVerpackung5.Text = CMR.CMRPos(4).Art
sRpt.txtBezeichnung5.Text = CMR.CMRPos(4).Bezeichnung
sRpt.txtStatNr5.Text = CMR.CMRPos(4).StatistikNr
sRpt.txtBruttoGewicht5.Text = CMR.CMRPos(4).Bruttogewicht
sRpt.txtUmfang5.Text = CMR.CMRPos(4).Umfang
End If
If CMR.CMRPos.Count > 5 Then
sRpt.txtZeichen6.Text = CMR.CMRPos(5).Zeichen
sRpt.txtAnzahl6.Text = CMR.CMRPos(5).Anzahl
sRpt.txtArtVerpackung6.Text = CMR.CMRPos(5).Art
sRpt.txtBezeichnung6.Text = CMR.CMRPos(5).Bezeichnung
sRpt.txtStatNr6.Text = CMR.CMRPos(5).StatistikNr
sRpt.txtBruttoGewicht6.Text = CMR.CMRPos(5).Bruttogewicht
sRpt.txtUmfang6.Text = CMR.CMRPos(5).Umfang
End If
If CMR.CMRPos.Count > 6 Then
sRpt.txtZeichen7.Text = CMR.CMRPos(6).Zeichen
sRpt.txtAnzahl7.Text = CMR.CMRPos(6).Anzahl
sRpt.txtArtVerpackung7.Text = CMR.CMRPos(6).Art
sRpt.txtBezeichnung7.Text = CMR.CMRPos(6).Bezeichnung
sRpt.txtStatNr7.Text = CMR.CMRPos(6).StatistikNr
sRpt.txtBruttoGewicht7.Text = CMR.CMRPos(6).Bruttogewicht
sRpt.txtUmfang7.Text = CMR.CMRPos(6).Umfang
End If
srptLadung.Report = sRpt
End If
End Sub
End Class

View File

@@ -0,0 +1,751 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptLadung
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(subrptLadung))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtZeichen1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZeichen2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZeichen3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZeichen4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZeichen5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZeichen6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZeichen7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtZeichen1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZeichen2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZeichen3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZeichen4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZeichen5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZeichen6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZeichen7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtZeichen1, Me.txtAnzahl1, Me.txtArtVerpackung1, Me.txtBezeichnung1, Me.TextBox4, Me.txtStatNr1, Me.txtBruttoGewicht1, Me.txtUmfang1, Me.txtZeichen2, Me.txtAnzahl2, Me.txtArtVerpackung2, Me.txtBezeichnung2, Me.txtStatNr2, Me.txtBruttoGewicht2, Me.txtUmfang2, Me.txtZeichen3, Me.txtAnzahl3, Me.txtArtVerpackung3, Me.txtBezeichnung3, Me.txtStatNr3, Me.txtBruttoGewicht3, Me.txtUmfang3, Me.txtZeichen4, Me.txtAnzahl4, Me.txtArtVerpackung4, Me.txtBezeichnung4, Me.txtStatNr4, Me.txtBruttoGewicht4, Me.txtUmfang4, Me.txtZeichen5, Me.txtAnzahl5, Me.txtArtVerpackung5, Me.txtBezeichnung5, Me.txtStatNr5, Me.txtBruttoGewicht5, Me.txtUmfang5, Me.txtZeichen6, Me.txtAnzahl6, Me.txtArtVerpackung6, Me.txtBezeichnung6, Me.txtStatNr6, Me.txtBruttoGewicht6, Me.txtUmfang6, Me.txtZeichen7, Me.txtAnzahl7, Me.txtArtVerpackung7, Me.txtBezeichnung7, Me.txtStatNr7, Me.txtBruttoGewicht7, Me.txtUmfang7})
Me.Detail.Height = 1.182284!
Me.Detail.Name = "Detail"
'
'txtZeichen1
'
Me.txtZeichen1.Height = 0.1688978!
Me.txtZeichen1.Left = 0.0000005960464!
Me.txtZeichen1.Name = "txtZeichen1"
Me.txtZeichen1.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtZeichen1.Text = Nothing
Me.txtZeichen1.Top = 0.0!
Me.txtZeichen1.Width = 0.9374011!
'
'txtAnzahl1
'
Me.txtAnzahl1.Height = 0.1688979!
Me.txtAnzahl1.Left = 0.9913391!
Me.txtAnzahl1.Name = "txtAnzahl1"
Me.txtAnzahl1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtAnzahl1.Text = Nothing
Me.txtAnzahl1.Top = 0.0!
Me.txtAnzahl1.Width = 1.155906!
'
'txtArtVerpackung1
'
Me.txtArtVerpackung1.Height = 0.1688979!
Me.txtArtVerpackung1.Left = 2.147245!
Me.txtArtVerpackung1.Name = "txtArtVerpackung1"
Me.txtArtVerpackung1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung1.Text = Nothing
Me.txtArtVerpackung1.Top = 0.0!
Me.txtArtVerpackung1.Width = 1.179528!
'
'txtBezeichnung1
'
Me.txtBezeichnung1.Height = 0.1688979!
Me.txtBezeichnung1.Left = 3.326772!
Me.txtBezeichnung1.Name = "txtBezeichnung1"
Me.txtBezeichnung1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung1.Text = Nothing
Me.txtBezeichnung1.Top = 0.0!
Me.txtBezeichnung1.Width = 1.710236!
'
'TextBox4
'
Me.TextBox4.Height = 0.1688979!
Me.TextBox4.Left = 5.037009!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox4.Text = "TESTASDASD"
Me.TextBox4.Top = 0.0!
Me.TextBox4.Width = 0.0000002384186!
'
'txtStatNr1
'
Me.txtStatNr1.Height = 0.1688977!
Me.txtStatNr1.Left = 5.037009!
Me.txtStatNr1.Name = "txtStatNr1"
Me.txtStatNr1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtStatNr1.Text = Nothing
Me.txtStatNr1.Top = 0.0!
Me.txtStatNr1.Width = 0.6220472!
'
'txtBruttoGewicht1
'
Me.txtBruttoGewicht1.Height = 0.1688977!
Me.txtBruttoGewicht1.Left = 5.659056!
Me.txtBruttoGewicht1.Name = "txtBruttoGewicht1"
Me.txtBruttoGewicht1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht1.Text = Nothing
Me.txtBruttoGewicht1.Top = 0.0!
Me.txtBruttoGewicht1.Width = 0.9244092!
'
'txtUmfang1
'
Me.txtUmfang1.Height = 0.1688977!
Me.txtUmfang1.Left = 6.583465!
Me.txtUmfang1.Name = "txtUmfang1"
Me.txtUmfang1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtUmfang1.Text = Nothing
Me.txtUmfang1.Top = 0.0!
Me.txtUmfang1.Width = 0.5492129!
'
'txtZeichen2
'
Me.txtZeichen2.Height = 0.1688979!
Me.txtZeichen2.Left = 0.000001192093!
Me.txtZeichen2.Name = "txtZeichen2"
Me.txtZeichen2.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtZeichen2.Text = Nothing
Me.txtZeichen2.Top = 0.1688981!
Me.txtZeichen2.Width = 0.9374011!
'
'txtAnzahl2
'
Me.txtAnzahl2.Height = 0.1688979!
Me.txtAnzahl2.Left = 0.99134!
Me.txtAnzahl2.Name = "txtAnzahl2"
Me.txtAnzahl2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtAnzahl2.Text = Nothing
Me.txtAnzahl2.Top = 0.1688981!
Me.txtAnzahl2.Width = 1.155906!
'
'txtArtVerpackung2
'
Me.txtArtVerpackung2.Height = 0.1688979!
Me.txtArtVerpackung2.Left = 2.147245!
Me.txtArtVerpackung2.Name = "txtArtVerpackung2"
Me.txtArtVerpackung2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung2.Text = Nothing
Me.txtArtVerpackung2.Top = 0.1688981!
Me.txtArtVerpackung2.Width = 1.179528!
'
'txtBezeichnung2
'
Me.txtBezeichnung2.Height = 0.1688979!
Me.txtBezeichnung2.Left = 3.326773!
Me.txtBezeichnung2.Name = "txtBezeichnung2"
Me.txtBezeichnung2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung2.Text = Nothing
Me.txtBezeichnung2.Top = 0.1688981!
Me.txtBezeichnung2.Width = 1.710236!
'
'txtStatNr2
'
Me.txtStatNr2.Height = 0.1688977!
Me.txtStatNr2.Left = 5.037009!
Me.txtStatNr2.Name = "txtStatNr2"
Me.txtStatNr2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtStatNr2.Text = Nothing
Me.txtStatNr2.Top = 0.1688981!
Me.txtStatNr2.Width = 0.6220472!
'
'txtBruttoGewicht2
'
Me.txtBruttoGewicht2.Height = 0.1688977!
Me.txtBruttoGewicht2.Left = 5.659057!
Me.txtBruttoGewicht2.Name = "txtBruttoGewicht2"
Me.txtBruttoGewicht2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht2.Text = Nothing
Me.txtBruttoGewicht2.Top = 0.1688981!
Me.txtBruttoGewicht2.Width = 0.924409!
'
'txtUmfang2
'
Me.txtUmfang2.Height = 0.1688977!
Me.txtUmfang2.Left = 6.583465!
Me.txtUmfang2.Name = "txtUmfang2"
Me.txtUmfang2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtUmfang2.Text = Nothing
Me.txtUmfang2.Top = 0.1688981!
Me.txtUmfang2.Width = 0.5492129!
'
'txtZeichen3
'
Me.txtZeichen3.Height = 0.1688979!
Me.txtZeichen3.Left = 0.000001192093!
Me.txtZeichen3.Name = "txtZeichen3"
Me.txtZeichen3.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtZeichen3.Text = Nothing
Me.txtZeichen3.Top = 0.3377962!
Me.txtZeichen3.Width = 0.9374011!
'
'txtAnzahl3
'
Me.txtAnzahl3.Height = 0.1688979!
Me.txtAnzahl3.Left = 0.99134!
Me.txtAnzahl3.Name = "txtAnzahl3"
Me.txtAnzahl3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtAnzahl3.Text = Nothing
Me.txtAnzahl3.Top = 0.3377962!
Me.txtAnzahl3.Width = 1.155906!
'
'txtArtVerpackung3
'
Me.txtArtVerpackung3.Height = 0.1688979!
Me.txtArtVerpackung3.Left = 2.147245!
Me.txtArtVerpackung3.Name = "txtArtVerpackung3"
Me.txtArtVerpackung3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung3.Text = Nothing
Me.txtArtVerpackung3.Top = 0.3377962!
Me.txtArtVerpackung3.Width = 1.179528!
'
'txtBezeichnung3
'
Me.txtBezeichnung3.Height = 0.1688979!
Me.txtBezeichnung3.Left = 3.326773!
Me.txtBezeichnung3.Name = "txtBezeichnung3"
Me.txtBezeichnung3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung3.Text = Nothing
Me.txtBezeichnung3.Top = 0.3377962!
Me.txtBezeichnung3.Width = 1.710236!
'
'txtStatNr3
'
Me.txtStatNr3.Height = 0.1688977!
Me.txtStatNr3.Left = 5.037009!
Me.txtStatNr3.Name = "txtStatNr3"
Me.txtStatNr3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtStatNr3.Text = Nothing
Me.txtStatNr3.Top = 0.3377962!
Me.txtStatNr3.Width = 0.6220472!
'
'txtBruttoGewicht3
'
Me.txtBruttoGewicht3.Height = 0.1688977!
Me.txtBruttoGewicht3.Left = 5.659057!
Me.txtBruttoGewicht3.Name = "txtBruttoGewicht3"
Me.txtBruttoGewicht3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht3.Text = Nothing
Me.txtBruttoGewicht3.Top = 0.3377962!
Me.txtBruttoGewicht3.Width = 0.924409!
'
'txtUmfang3
'
Me.txtUmfang3.Height = 0.1688977!
Me.txtUmfang3.Left = 6.583465!
Me.txtUmfang3.Name = "txtUmfang3"
Me.txtUmfang3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtUmfang3.Text = Nothing
Me.txtUmfang3.Top = 0.3377962!
Me.txtUmfang3.Width = 0.5492129!
'
'txtZeichen4
'
Me.txtZeichen4.Height = 0.1688979!
Me.txtZeichen4.Left = 0.0000005960464!
Me.txtZeichen4.Name = "txtZeichen4"
Me.txtZeichen4.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtZeichen4.Text = Nothing
Me.txtZeichen4.Top = 0.5066929!
Me.txtZeichen4.Width = 0.9374011!
'
'txtAnzahl4
'
Me.txtAnzahl4.Height = 0.1688979!
Me.txtAnzahl4.Left = 0.9913391!
Me.txtAnzahl4.Name = "txtAnzahl4"
Me.txtAnzahl4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtAnzahl4.Text = Nothing
Me.txtAnzahl4.Top = 0.5066929!
Me.txtAnzahl4.Width = 1.155906!
'
'txtArtVerpackung4
'
Me.txtArtVerpackung4.Height = 0.1688979!
Me.txtArtVerpackung4.Left = 2.147245!
Me.txtArtVerpackung4.Name = "txtArtVerpackung4"
Me.txtArtVerpackung4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung4.Text = Nothing
Me.txtArtVerpackung4.Top = 0.5066929!
Me.txtArtVerpackung4.Width = 1.179528!
'
'txtBezeichnung4
'
Me.txtBezeichnung4.Height = 0.1688979!
Me.txtBezeichnung4.Left = 3.326773!
Me.txtBezeichnung4.Name = "txtBezeichnung4"
Me.txtBezeichnung4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung4.Text = Nothing
Me.txtBezeichnung4.Top = 0.5066929!
Me.txtBezeichnung4.Width = 1.710236!
'
'txtStatNr4
'
Me.txtStatNr4.Height = 0.1688977!
Me.txtStatNr4.Left = 5.037009!
Me.txtStatNr4.Name = "txtStatNr4"
Me.txtStatNr4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtStatNr4.Text = Nothing
Me.txtStatNr4.Top = 0.5066929!
Me.txtStatNr4.Width = 0.6220472!
'
'txtBruttoGewicht4
'
Me.txtBruttoGewicht4.Height = 0.1688977!
Me.txtBruttoGewicht4.Left = 5.659057!
Me.txtBruttoGewicht4.Name = "txtBruttoGewicht4"
Me.txtBruttoGewicht4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht4.Text = Nothing
Me.txtBruttoGewicht4.Top = 0.5066929!
Me.txtBruttoGewicht4.Width = 0.924409!
'
'txtUmfang4
'
Me.txtUmfang4.Height = 0.1688977!
Me.txtUmfang4.Left = 6.583465!
Me.txtUmfang4.Name = "txtUmfang4"
Me.txtUmfang4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtUmfang4.Text = Nothing
Me.txtUmfang4.Top = 0.5066929!
Me.txtUmfang4.Width = 0.5492129!
'
'txtZeichen5
'
Me.txtZeichen5.Height = 0.1688979!
Me.txtZeichen5.Left = 0.0000005960464!
Me.txtZeichen5.Name = "txtZeichen5"
Me.txtZeichen5.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtZeichen5.Text = Nothing
Me.txtZeichen5.Top = 0.675591!
Me.txtZeichen5.Width = 0.9374011!
'
'txtAnzahl5
'
Me.txtAnzahl5.Height = 0.1688979!
Me.txtAnzahl5.Left = 0.9913391!
Me.txtAnzahl5.Name = "txtAnzahl5"
Me.txtAnzahl5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtAnzahl5.Text = Nothing
Me.txtAnzahl5.Top = 0.675591!
Me.txtAnzahl5.Width = 1.155906!
'
'txtArtVerpackung5
'
Me.txtArtVerpackung5.Height = 0.1688979!
Me.txtArtVerpackung5.Left = 2.147245!
Me.txtArtVerpackung5.Name = "txtArtVerpackung5"
Me.txtArtVerpackung5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung5.Text = Nothing
Me.txtArtVerpackung5.Top = 0.675591!
Me.txtArtVerpackung5.Width = 1.179528!
'
'txtBezeichnung5
'
Me.txtBezeichnung5.Height = 0.1688979!
Me.txtBezeichnung5.Left = 3.326773!
Me.txtBezeichnung5.Name = "txtBezeichnung5"
Me.txtBezeichnung5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung5.Text = Nothing
Me.txtBezeichnung5.Top = 0.675591!
Me.txtBezeichnung5.Width = 1.710236!
'
'txtStatNr5
'
Me.txtStatNr5.Height = 0.1688977!
Me.txtStatNr5.Left = 5.037009!
Me.txtStatNr5.Name = "txtStatNr5"
Me.txtStatNr5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtStatNr5.Text = Nothing
Me.txtStatNr5.Top = 0.675591!
Me.txtStatNr5.Width = 0.6220472!
'
'txtBruttoGewicht5
'
Me.txtBruttoGewicht5.Height = 0.1688977!
Me.txtBruttoGewicht5.Left = 5.659057!
Me.txtBruttoGewicht5.Name = "txtBruttoGewicht5"
Me.txtBruttoGewicht5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht5.Text = Nothing
Me.txtBruttoGewicht5.Top = 0.675591!
Me.txtBruttoGewicht5.Width = 0.924409!
'
'txtUmfang5
'
Me.txtUmfang5.Height = 0.1688977!
Me.txtUmfang5.Left = 6.583465!
Me.txtUmfang5.Name = "txtUmfang5"
Me.txtUmfang5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtUmfang5.Text = Nothing
Me.txtUmfang5.Top = 0.675591!
Me.txtUmfang5.Width = 0.5492129!
'
'txtZeichen6
'
Me.txtZeichen6.Height = 0.1688979!
Me.txtZeichen6.Left = 0.0000005960464!
Me.txtZeichen6.Name = "txtZeichen6"
Me.txtZeichen6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtZeichen6.Text = Nothing
Me.txtZeichen6.Top = 0.8444891!
Me.txtZeichen6.Width = 0.9374011!
'
'txtAnzahl6
'
Me.txtAnzahl6.Height = 0.1688979!
Me.txtAnzahl6.Left = 0.9913391!
Me.txtAnzahl6.Name = "txtAnzahl6"
Me.txtAnzahl6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtAnzahl6.Text = Nothing
Me.txtAnzahl6.Top = 0.8444891!
Me.txtAnzahl6.Width = 1.155906!
'
'txtArtVerpackung6
'
Me.txtArtVerpackung6.Height = 0.1688979!
Me.txtArtVerpackung6.Left = 2.147245!
Me.txtArtVerpackung6.Name = "txtArtVerpackung6"
Me.txtArtVerpackung6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung6.Text = Nothing
Me.txtArtVerpackung6.Top = 0.8444891!
Me.txtArtVerpackung6.Width = 1.179528!
'
'txtBezeichnung6
'
Me.txtBezeichnung6.Height = 0.1688979!
Me.txtBezeichnung6.Left = 3.326773!
Me.txtBezeichnung6.Name = "txtBezeichnung6"
Me.txtBezeichnung6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung6.Text = Nothing
Me.txtBezeichnung6.Top = 0.8444891!
Me.txtBezeichnung6.Width = 1.710236!
'
'txtStatNr6
'
Me.txtStatNr6.Height = 0.1688977!
Me.txtStatNr6.Left = 5.037009!
Me.txtStatNr6.Name = "txtStatNr6"
Me.txtStatNr6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtStatNr6.Text = Nothing
Me.txtStatNr6.Top = 0.8444891!
Me.txtStatNr6.Width = 0.6220472!
'
'txtBruttoGewicht6
'
Me.txtBruttoGewicht6.Height = 0.1688977!
Me.txtBruttoGewicht6.Left = 5.659057!
Me.txtBruttoGewicht6.Name = "txtBruttoGewicht6"
Me.txtBruttoGewicht6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht6.Text = Nothing
Me.txtBruttoGewicht6.Top = 0.8444891!
Me.txtBruttoGewicht6.Width = 0.924409!
'
'txtUmfang6
'
Me.txtUmfang6.Height = 0.1688977!
Me.txtUmfang6.Left = 6.583465!
Me.txtUmfang6.Name = "txtUmfang6"
Me.txtUmfang6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtUmfang6.Text = Nothing
Me.txtUmfang6.Top = 0.8444891!
Me.txtUmfang6.Width = 0.5492129!
'
'txtZeichen7
'
Me.txtZeichen7.Height = 0.1688979!
Me.txtZeichen7.Left = 0.0000005960464!
Me.txtZeichen7.Name = "txtZeichen7"
Me.txtZeichen7.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtZeichen7.Text = Nothing
Me.txtZeichen7.Top = 1.013386!
Me.txtZeichen7.Width = 0.9374011!
'
'txtAnzahl7
'
Me.txtAnzahl7.Height = 0.1688979!
Me.txtAnzahl7.Left = 0.9913391!
Me.txtAnzahl7.Name = "txtAnzahl7"
Me.txtAnzahl7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtAnzahl7.Text = Nothing
Me.txtAnzahl7.Top = 1.013386!
Me.txtAnzahl7.Width = 1.155906!
'
'txtArtVerpackung7
'
Me.txtArtVerpackung7.Height = 0.1688979!
Me.txtArtVerpackung7.Left = 2.147245!
Me.txtArtVerpackung7.Name = "txtArtVerpackung7"
Me.txtArtVerpackung7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung7.Text = Nothing
Me.txtArtVerpackung7.Top = 1.013386!
Me.txtArtVerpackung7.Width = 1.179528!
'
'txtBezeichnung7
'
Me.txtBezeichnung7.Height = 0.1688979!
Me.txtBezeichnung7.Left = 3.326773!
Me.txtBezeichnung7.Name = "txtBezeichnung7"
Me.txtBezeichnung7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung7.Text = Nothing
Me.txtBezeichnung7.Top = 1.013386!
Me.txtBezeichnung7.Width = 1.710236!
'
'txtStatNr7
'
Me.txtStatNr7.Height = 0.1688977!
Me.txtStatNr7.Left = 5.037009!
Me.txtStatNr7.Name = "txtStatNr7"
Me.txtStatNr7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtStatNr7.Text = Nothing
Me.txtStatNr7.Top = 1.013386!
Me.txtStatNr7.Width = 0.6220472!
'
'txtBruttoGewicht7
'
Me.txtBruttoGewicht7.Height = 0.1688977!
Me.txtBruttoGewicht7.Left = 5.659057!
Me.txtBruttoGewicht7.Name = "txtBruttoGewicht7"
Me.txtBruttoGewicht7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht7.Text = Nothing
Me.txtBruttoGewicht7.Top = 1.013386!
Me.txtBruttoGewicht7.Width = 0.924409!
'
'txtUmfang7
'
Me.txtUmfang7.Height = 0.1688977!
Me.txtUmfang7.Left = 6.583465!
Me.txtUmfang7.Name = "txtUmfang7"
Me.txtUmfang7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtUmfang7.Text = Nothing
Me.txtUmfang7.Top = 1.013386!
Me.txtUmfang7.Width = 0.5492129!
'
'subrptLadung
'
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 = 7.132678!
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.txtZeichen1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZeichen2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZeichen3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZeichen4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZeichen5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZeichen6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZeichen7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZeichen1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtStatNr1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUmfang1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZeichen2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtStatNr2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUmfang2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZeichen3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtStatNr3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUmfang3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZeichen4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtStatNr4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUmfang4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZeichen5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtStatNr5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUmfang5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZeichen6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtStatNr6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUmfang6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZeichen7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtStatNr7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUmfang7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,9 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptLadung
End Class

View File

@@ -0,0 +1,457 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptLadungKurz
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(subrptLadungKurz))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtAnzahl1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArtVerpackung7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoGewicht7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAnzahl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArtVerpackung7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoGewicht7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAnzahl1, Me.txtArtVerpackung1, Me.txtBezeichnung1, Me.TextBox4, Me.txtBruttoGewicht1, Me.txtAnzahl2, Me.txtArtVerpackung2, Me.txtBezeichnung2, Me.txtBruttoGewicht2, Me.txtAnzahl3, Me.txtArtVerpackung3, Me.txtBezeichnung3, Me.txtBruttoGewicht3, Me.txtAnzahl4, Me.txtArtVerpackung4, Me.txtBezeichnung4, Me.txtBruttoGewicht4, Me.txtAnzahl5, Me.txtArtVerpackung5, Me.txtBezeichnung5, Me.txtBruttoGewicht5, Me.txtAnzahl6, Me.txtArtVerpackung6, Me.txtBezeichnung6, Me.txtBruttoGewicht6, Me.txtAnzahl7, Me.txtArtVerpackung7, Me.txtBezeichnung7, Me.txtBruttoGewicht7})
Me.Detail.Height = 1.182284!
Me.Detail.Name = "Detail"
'
'txtAnzahl1
'
Me.txtAnzahl1.Height = 0.1688979!
Me.txtAnzahl1.Left = 0.0!
Me.txtAnzahl1.Name = "txtAnzahl1"
Me.txtAnzahl1.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtAnzahl1.Text = Nothing
Me.txtAnzahl1.Top = 0.0!
Me.txtAnzahl1.Width = 1.155906!
'
'txtArtVerpackung1
'
Me.txtArtVerpackung1.Height = 0.1688979!
Me.txtArtVerpackung1.Left = 1.155906!
Me.txtArtVerpackung1.Name = "txtArtVerpackung1"
Me.txtArtVerpackung1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung1.Text = Nothing
Me.txtArtVerpackung1.Top = 0.0!
Me.txtArtVerpackung1.Width = 0.7003934!
'
'txtBezeichnung1
'
Me.txtBezeichnung1.Height = 0.1688979!
Me.txtBezeichnung1.Left = 1.856299!
Me.txtBezeichnung1.Name = "txtBezeichnung1"
Me.txtBezeichnung1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung1.Text = Nothing
Me.txtBezeichnung1.Top = 0.0!
Me.txtBezeichnung1.Width = 3.88622!
'
'TextBox4
'
Me.TextBox4.Height = 0.1688979!
Me.TextBox4.Left = 5.037009!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.TextBox4.Text = "TESTASDASD"
Me.TextBox4.Top = 0.0!
Me.TextBox4.Width = 0.0000002384186!
'
'txtBruttoGewicht1
'
Me.txtBruttoGewicht1.Height = 0.1688977!
Me.txtBruttoGewicht1.Left = 5.74252!
Me.txtBruttoGewicht1.Name = "txtBruttoGewicht1"
Me.txtBruttoGewicht1.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht1.Text = Nothing
Me.txtBruttoGewicht1.Top = 0.0!
Me.txtBruttoGewicht1.Width = 1.390157!
'
'txtAnzahl2
'
Me.txtAnzahl2.Height = 0.1688979!
Me.txtAnzahl2.Left = 0.0000008940697!
Me.txtAnzahl2.Name = "txtAnzahl2"
Me.txtAnzahl2.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtAnzahl2.Text = Nothing
Me.txtAnzahl2.Top = 0.1688981!
Me.txtAnzahl2.Width = 1.155906!
'
'txtArtVerpackung2
'
Me.txtArtVerpackung2.Height = 0.1688979!
Me.txtArtVerpackung2.Left = 1.155906!
Me.txtArtVerpackung2.Name = "txtArtVerpackung2"
Me.txtArtVerpackung2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung2.Text = Nothing
Me.txtArtVerpackung2.Top = 0.1688981!
Me.txtArtVerpackung2.Width = 0.7003934!
'
'txtBezeichnung2
'
Me.txtBezeichnung2.Height = 0.1688979!
Me.txtBezeichnung2.Left = 1.8563!
Me.txtBezeichnung2.Name = "txtBezeichnung2"
Me.txtBezeichnung2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung2.Text = Nothing
Me.txtBezeichnung2.Top = 0.1688981!
Me.txtBezeichnung2.Width = 3.88622!
'
'txtBruttoGewicht2
'
Me.txtBruttoGewicht2.Height = 0.1688977!
Me.txtBruttoGewicht2.Left = 5.742521!
Me.txtBruttoGewicht2.Name = "txtBruttoGewicht2"
Me.txtBruttoGewicht2.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht2.Text = Nothing
Me.txtBruttoGewicht2.Top = 0.1688981!
Me.txtBruttoGewicht2.Width = 1.390156!
'
'txtAnzahl3
'
Me.txtAnzahl3.Height = 0.1688979!
Me.txtAnzahl3.Left = 0.0000008940697!
Me.txtAnzahl3.Name = "txtAnzahl3"
Me.txtAnzahl3.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtAnzahl3.Text = Nothing
Me.txtAnzahl3.Top = 0.3377962!
Me.txtAnzahl3.Width = 1.155906!
'
'txtArtVerpackung3
'
Me.txtArtVerpackung3.Height = 0.1688979!
Me.txtArtVerpackung3.Left = 1.155906!
Me.txtArtVerpackung3.Name = "txtArtVerpackung3"
Me.txtArtVerpackung3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung3.Text = Nothing
Me.txtArtVerpackung3.Top = 0.3377962!
Me.txtArtVerpackung3.Width = 0.7003934!
'
'txtBezeichnung3
'
Me.txtBezeichnung3.Height = 0.1688979!
Me.txtBezeichnung3.Left = 1.8563!
Me.txtBezeichnung3.Name = "txtBezeichnung3"
Me.txtBezeichnung3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung3.Text = Nothing
Me.txtBezeichnung3.Top = 0.3377962!
Me.txtBezeichnung3.Width = 3.88622!
'
'txtBruttoGewicht3
'
Me.txtBruttoGewicht3.Height = 0.1688977!
Me.txtBruttoGewicht3.Left = 5.742521!
Me.txtBruttoGewicht3.Name = "txtBruttoGewicht3"
Me.txtBruttoGewicht3.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht3.Text = Nothing
Me.txtBruttoGewicht3.Top = 0.3377962!
Me.txtBruttoGewicht3.Width = 1.390156!
'
'txtAnzahl4
'
Me.txtAnzahl4.Height = 0.1688979!
Me.txtAnzahl4.Left = 0.0!
Me.txtAnzahl4.Name = "txtAnzahl4"
Me.txtAnzahl4.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtAnzahl4.Text = Nothing
Me.txtAnzahl4.Top = 0.5066929!
Me.txtAnzahl4.Width = 1.155906!
'
'txtArtVerpackung4
'
Me.txtArtVerpackung4.Height = 0.1688979!
Me.txtArtVerpackung4.Left = 1.155906!
Me.txtArtVerpackung4.Name = "txtArtVerpackung4"
Me.txtArtVerpackung4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung4.Text = Nothing
Me.txtArtVerpackung4.Top = 0.5066929!
Me.txtArtVerpackung4.Width = 0.7003934!
'
'txtBezeichnung4
'
Me.txtBezeichnung4.Height = 0.1688979!
Me.txtBezeichnung4.Left = 1.8563!
Me.txtBezeichnung4.Name = "txtBezeichnung4"
Me.txtBezeichnung4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung4.Text = Nothing
Me.txtBezeichnung4.Top = 0.5066929!
Me.txtBezeichnung4.Width = 3.88622!
'
'txtBruttoGewicht4
'
Me.txtBruttoGewicht4.Height = 0.1688977!
Me.txtBruttoGewicht4.Left = 5.742521!
Me.txtBruttoGewicht4.Name = "txtBruttoGewicht4"
Me.txtBruttoGewicht4.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht4.Text = Nothing
Me.txtBruttoGewicht4.Top = 0.5066929!
Me.txtBruttoGewicht4.Width = 1.390156!
'
'txtAnzahl5
'
Me.txtAnzahl5.Height = 0.1688979!
Me.txtAnzahl5.Left = 0.0!
Me.txtAnzahl5.Name = "txtAnzahl5"
Me.txtAnzahl5.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtAnzahl5.Text = Nothing
Me.txtAnzahl5.Top = 0.675591!
Me.txtAnzahl5.Width = 1.155906!
'
'txtArtVerpackung5
'
Me.txtArtVerpackung5.Height = 0.1688979!
Me.txtArtVerpackung5.Left = 1.155906!
Me.txtArtVerpackung5.Name = "txtArtVerpackung5"
Me.txtArtVerpackung5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung5.Text = Nothing
Me.txtArtVerpackung5.Top = 0.675591!
Me.txtArtVerpackung5.Width = 0.7003934!
'
'txtBezeichnung5
'
Me.txtBezeichnung5.Height = 0.1688979!
Me.txtBezeichnung5.Left = 1.8563!
Me.txtBezeichnung5.Name = "txtBezeichnung5"
Me.txtBezeichnung5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung5.Text = Nothing
Me.txtBezeichnung5.Top = 0.675591!
Me.txtBezeichnung5.Width = 3.88622!
'
'txtBruttoGewicht5
'
Me.txtBruttoGewicht5.Height = 0.1688977!
Me.txtBruttoGewicht5.Left = 5.742521!
Me.txtBruttoGewicht5.Name = "txtBruttoGewicht5"
Me.txtBruttoGewicht5.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht5.Text = Nothing
Me.txtBruttoGewicht5.Top = 0.675591!
Me.txtBruttoGewicht5.Width = 1.390156!
'
'txtAnzahl6
'
Me.txtAnzahl6.Height = 0.1688979!
Me.txtAnzahl6.Left = 0.0!
Me.txtAnzahl6.Name = "txtAnzahl6"
Me.txtAnzahl6.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtAnzahl6.Text = Nothing
Me.txtAnzahl6.Top = 0.8444891!
Me.txtAnzahl6.Width = 1.155906!
'
'txtArtVerpackung6
'
Me.txtArtVerpackung6.Height = 0.1688979!
Me.txtArtVerpackung6.Left = 1.155906!
Me.txtArtVerpackung6.Name = "txtArtVerpackung6"
Me.txtArtVerpackung6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung6.Text = Nothing
Me.txtArtVerpackung6.Top = 0.8444891!
Me.txtArtVerpackung6.Width = 0.7003934!
'
'txtBezeichnung6
'
Me.txtBezeichnung6.Height = 0.1688979!
Me.txtBezeichnung6.Left = 1.8563!
Me.txtBezeichnung6.Name = "txtBezeichnung6"
Me.txtBezeichnung6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung6.Text = Nothing
Me.txtBezeichnung6.Top = 0.8444891!
Me.txtBezeichnung6.Width = 3.88622!
'
'txtBruttoGewicht6
'
Me.txtBruttoGewicht6.Height = 0.1688977!
Me.txtBruttoGewicht6.Left = 5.742521!
Me.txtBruttoGewicht6.Name = "txtBruttoGewicht6"
Me.txtBruttoGewicht6.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht6.Text = Nothing
Me.txtBruttoGewicht6.Top = 0.8444891!
Me.txtBruttoGewicht6.Width = 1.390156!
'
'txtAnzahl7
'
Me.txtAnzahl7.Height = 0.1688979!
Me.txtAnzahl7.Left = 0.0!
Me.txtAnzahl7.Name = "txtAnzahl7"
Me.txtAnzahl7.Style = "font-size: 8pt; font-weight: bold; text-align: right; ddo-char-set: 1"
Me.txtAnzahl7.Text = Nothing
Me.txtAnzahl7.Top = 1.013386!
Me.txtAnzahl7.Width = 1.155906!
'
'txtArtVerpackung7
'
Me.txtArtVerpackung7.Height = 0.1688979!
Me.txtArtVerpackung7.Left = 1.155906!
Me.txtArtVerpackung7.Name = "txtArtVerpackung7"
Me.txtArtVerpackung7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtArtVerpackung7.Text = Nothing
Me.txtArtVerpackung7.Top = 1.013386!
Me.txtArtVerpackung7.Width = 0.7003934!
'
'txtBezeichnung7
'
Me.txtBezeichnung7.Height = 0.1688979!
Me.txtBezeichnung7.Left = 1.8563!
Me.txtBezeichnung7.Name = "txtBezeichnung7"
Me.txtBezeichnung7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBezeichnung7.Text = Nothing
Me.txtBezeichnung7.Top = 1.013386!
Me.txtBezeichnung7.Width = 3.88622!
'
'txtBruttoGewicht7
'
Me.txtBruttoGewicht7.Height = 0.1688977!
Me.txtBruttoGewicht7.Left = 5.742521!
Me.txtBruttoGewicht7.Name = "txtBruttoGewicht7"
Me.txtBruttoGewicht7.Style = "font-size: 8pt; font-weight: bold; ddo-char-set: 1"
Me.txtBruttoGewicht7.Text = Nothing
Me.txtBruttoGewicht7.Top = 1.013386!
Me.txtBruttoGewicht7.Width = 1.390156!
'
'subrptLadungKurz
'
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 = 7.132678!
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.txtAnzahl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArtVerpackung7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoGewicht7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnzahl7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtArtVerpackung7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBezeichnung7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBruttoGewicht7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,12 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptLadungKurz
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,20 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptEinheitspapier0735
Sub New(RandOben As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
RandOben = RandOben / 10 'mm
Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub rptEinheitspapier0735_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,16 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptEinheitspapier0736
Sub New(RandOben As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
RandOben = RandOben / 10 'mm
Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
End Sub
Private Sub rptEinheitspapier0777_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

View File

@@ -0,0 +1,679 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptEinheitspapier0777
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(rptEinheitspapier0777))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtAnmelder = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnmeldung1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnmeldung2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWtNr1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVordrucke1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVordrucke2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPositionen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbfertigungsnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFiliale = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUnternummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPackst<EFBFBD>cke = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWarenbezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBesondereVermerke = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWtNr2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWtNr3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWtNr4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWtNr5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUrsprungsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerfahren1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerfahren2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEigenmasse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtSummarischeAnmeldung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBesondereMasseinheit = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtKontingent = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPraeferenz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAngabenVerbuchungszwecke = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtOrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDatum = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUnterschrift = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVertreter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnmelderVertreterNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpf<EFBFBD>nger = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmpf<EFBFBD>ngerNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBemessungsgrundlage = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.txtAnmelder, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmeldung1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmeldung2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWtNr1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVordrucke1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVordrucke2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFiliale, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUnternummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPackst<EFBFBD>cke, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBesondereVermerke, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWtNr2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWtNr3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWtNr4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWtNr5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUrsprungsland, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerfahren1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerfahren2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEigenmasse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSummarischeAnmeldung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBesondereMasseinheit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtKontingent, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPraeferenz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAngabenVerbuchungszwecke, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtOrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUnterschrift, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnmelderVertreterNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpf<EFBFBD>nger, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmpf<EFBFBD>ngerNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBemessungsgrundlage, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Height = 0.0!
Me.Detail.Name = "Detail"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAnmelder, Me.txtAnmeldung1, Me.txtAnmeldung2, Me.txtWtNr1, Me.txtVordrucke1, Me.txtVordrucke2, Me.txtPositionen, Me.txtAbfertigungsnummer, Me.txtFiliale, Me.txtUnternummer, Me.TextBox10, Me.txtPackst<EFBFBD>cke, Me.txtWarenbezeichnung, Me.txtBesondereVermerke, Me.txtWtNr2, Me.txtWtNr3, Me.txtWtNr4, Me.txtWtNr5, Me.txtUrsprungsland, Me.txtVerfahren1, Me.txtVerfahren2, Me.txtEigenmasse, Me.txtSummarischeAnmeldung, Me.txtBesondereMasseinheit, Me.txtKontingent, Me.txtPraeferenz, Me.txtPosNr, Me.txtAngabenVerbuchungszwecke, Me.txtOrt, Me.txtDatum, Me.txtUnterschrift, Me.txtVertreter, Me.txtAnmelderVertreterNr, Me.txtEmpf<EFBFBD>nger, Me.txtEmpf<EFBFBD>ngerNr, Me.txtBemessungsgrundlage})
Me.ReportHeader1.Height = 11.42519!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtAnmelder
'
Me.txtAnmelder.CanGrow = False
Me.txtAnmelder.DataField = ""
Me.txtAnmelder.DistinctField = ""
Me.txtAnmelder.Height = 0.472441!
Me.txtAnmelder.Left = 0.3937008!
Me.txtAnmelder.Name = "txtAnmelder"
Me.txtAnmelder.Style = "color: Black"
Me.txtAnmelder.SummaryGroup = ""
Me.txtAnmelder.Text = "Anmelder"
Me.txtAnmelder.Top = 2.637795!
Me.txtAnmelder.Width = 1.770079!
'
'txtAnmeldung1
'
Me.txtAnmeldung1.CanGrow = False
Me.txtAnmeldung1.DistinctField = ""
Me.txtAnmeldung1.Height = 0.2362205!
Me.txtAnmeldung1.Left = 3.992126!
Me.txtAnmeldung1.Name = "txtAnmeldung1"
Me.txtAnmeldung1.Style = "color: Black; text-align: center; text-justify: auto; vertical-align: middle"
Me.txtAnmeldung1.SummaryGroup = ""
Me.txtAnmeldung1.Text = "XX"
Me.txtAnmeldung1.Top = 0.4803145!
Me.txtAnmeldung1.Width = 0.3937008!
'
'txtAnmeldung2
'
Me.txtAnmeldung2.CanGrow = False
Me.txtAnmeldung2.DistinctField = ""
Me.txtAnmeldung2.Height = 0.2362205!
Me.txtAnmeldung2.Left = 4.366142!
Me.txtAnmeldung2.Name = "txtAnmeldung2"
Me.txtAnmeldung2.Style = "color: Black; text-align: center; text-justify: auto; vertical-align: middle"
Me.txtAnmeldung2.SummaryGroup = ""
Me.txtAnmeldung2.Text = "XX"
Me.txtAnmeldung2.Top = 0.4803145!
Me.txtAnmeldung2.Width = 0.2362205!
'
'txtWtNr1
'
Me.txtWtNr1.CanGrow = False
Me.txtWtNr1.DistinctField = ""
Me.txtWtNr1.Height = 0.1968504!
Me.txtWtNr1.Left = 4.92126!
Me.txtWtNr1.Name = "txtWtNr1"
Me.txtWtNr1.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtWtNr1.SummaryGroup = ""
Me.txtWtNr1.Text = "00000001"
Me.txtWtNr1.Top = 4.610236!
Me.txtWtNr1.Width = 0.8661417!
'
'txtVordrucke1
'
Me.txtVordrucke1.CanGrow = False
Me.txtVordrucke1.DistinctField = ""
Me.txtVordrucke1.Height = 0.1968504!
Me.txtVordrucke1.Left = 3.992126!
Me.txtVordrucke1.Name = "txtVordrucke1"
Me.txtVordrucke1.Style = "color: Black; text-align: center; text-justify: auto; vertical-align: middle"
Me.txtVordrucke1.SummaryGroup = ""
Me.txtVordrucke1.Text = "1"
Me.txtVordrucke1.Top = 0.9133854!
Me.txtVordrucke1.Width = 0.3149606!
'
'txtVordrucke2
'
Me.txtVordrucke2.CanGrow = False
Me.txtVordrucke2.DistinctField = ""
Me.txtVordrucke2.Height = 0.1968504!
Me.txtVordrucke2.Left = 4.291339!
Me.txtVordrucke2.Name = "txtVordrucke2"
Me.txtVordrucke2.Style = "color: Black; text-align: center; text-justify: auto; vertical-align: middle"
Me.txtVordrucke2.SummaryGroup = ""
Me.txtVordrucke2.Text = "1"
Me.txtVordrucke2.Top = 0.9133854!
Me.txtVordrucke2.Width = 0.3149606!
'
'txtPositionen
'
Me.txtPositionen.CanGrow = False
Me.txtPositionen.DistinctField = ""
Me.txtPositionen.Height = 0.1968504!
Me.txtPositionen.Left = 3.992126!
Me.txtPositionen.Name = "txtPositionen"
Me.txtPositionen.Style = "color: Black; text-align: center; text-justify: auto; vertical-align: middle"
Me.txtPositionen.SummaryGroup = ""
Me.txtPositionen.Text = "1"
Me.txtPositionen.Top = 1.248031!
Me.txtPositionen.Width = 0.6299211!
'
'txtAbfertigungsnummer
'
Me.txtAbfertigungsnummer.CanGrow = False
Me.txtAbfertigungsnummer.DistinctField = ""
Me.txtAbfertigungsnummer.Height = 0.1968504!
Me.txtAbfertigungsnummer.Left = 5.888978!
Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
Me.txtAbfertigungsnummer.Style = "color: Black; text-align: center; text-justify: auto; vertical-align: middle"
Me.txtAbfertigungsnummer.SummaryGroup = ""
Me.txtAbfertigungsnummer.Text = "17000000"
Me.txtAbfertigungsnummer.Top = 1.248031!
Me.txtAbfertigungsnummer.Width = 0.7393703!
'
'txtFiliale
'
Me.txtFiliale.CanGrow = False
Me.txtFiliale.DistinctField = ""
Me.txtFiliale.Height = 0.1968504!
Me.txtFiliale.Left = 5.393702!
Me.txtFiliale.Name = "txtFiliale"
Me.txtFiliale.Style = "color: Black; text-align: center; text-justify: auto; vertical-align: middle"
Me.txtFiliale.SummaryGroup = ""
Me.txtFiliale.Text = "4803"
Me.txtFiliale.Top = 1.248031!
Me.txtFiliale.Width = 0.4952757!
'
'txtUnternummer
'
Me.txtUnternummer.CanGrow = False
Me.txtUnternummer.DistinctField = ""
Me.txtUnternummer.Height = 0.1968504!
Me.txtUnternummer.Left = 6.628347!
Me.txtUnternummer.Name = "txtUnternummer"
Me.txtUnternummer.Style = "color: Black; text-align: center; text-justify: auto; vertical-align: middle"
Me.txtUnternummer.SummaryGroup = ""
Me.txtUnternummer.Text = "00"
Me.txtUnternummer.Top = 1.248031!
Me.txtUnternummer.Width = 0.3854327!
'
'TextBox10
'
Me.TextBox10.CanGrow = False
Me.TextBox10.DistinctField = ""
Me.TextBox10.Height = 0.3149606!
Me.TextBox10.Left = 6.102363!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "color: Black; font-size: 14pt; text-align: center; text-justify: auto; vertical-a" & _
"lign: middle; ddo-char-set: 1"
Me.TextBox10.SummaryGroup = ""
Me.TextBox10.Text = "17000000"
Me.TextBox10.Top = 0.4212595!
Me.TextBox10.Visible = False
Me.TextBox10.Width = 1.181102!
'
'txtPackst<73>cke
'
Me.txtPackst<EFBFBD>cke.CanGrow = False
Me.txtPackst<EFBFBD>cke.DistinctField = ""
Me.txtPackst<EFBFBD>cke.Height = 0.3937008!
Me.txtPackst<EFBFBD>cke.Left = 0.3937013!
Me.txtPackst<EFBFBD>cke.Name = "txtPackst<EFBFBD>cke"
Me.txtPackst<EFBFBD>cke.Style = "color: Black"
Me.txtPackst<EFBFBD>cke.SummaryGroup = ""
Me.txtPackst<EFBFBD>cke.Text = "Packst<EFBFBD>cke"
Me.txtPackst<EFBFBD>cke.Top = 4.610236!
Me.txtPackst<EFBFBD>cke.Width = 3.937008!
'
'txtWarenbezeichnung
'
Me.txtWarenbezeichnung.CanGrow = False
Me.txtWarenbezeichnung.DistinctField = ""
Me.txtWarenbezeichnung.Height = 0.984252!
Me.txtWarenbezeichnung.Left = 0.3937013!
Me.txtWarenbezeichnung.Name = "txtWarenbezeichnung"
Me.txtWarenbezeichnung.Style = "color: Black"
Me.txtWarenbezeichnung.SummaryGroup = ""
Me.txtWarenbezeichnung.Text = "Warenbezeichnung"
Me.txtWarenbezeichnung.Top = 5.023623!
Me.txtWarenbezeichnung.Width = 4.488189!
'
'txtBesondereVermerke
'
Me.txtBesondereVermerke.CanGrow = False
Me.txtBesondereVermerke.DistinctField = ""
Me.txtBesondereVermerke.Height = 0.7874016!
Me.txtBesondereVermerke.Left = 0.3937008!
Me.txtBesondereVermerke.Name = "txtBesondereVermerke"
Me.txtBesondereVermerke.Style = "color: Black"
Me.txtBesondereVermerke.SummaryGroup = ""
Me.txtBesondereVermerke.Text = "Besondere Vermerke"
Me.txtBesondereVermerke.Top = 6.0!
Me.txtBesondereVermerke.Width = 4.488189!
'
'txtWtNr2
'
Me.txtWtNr2.CanGrow = False
Me.txtWtNr2.DistinctField = ""
Me.txtWtNr2.Height = 0.1968509!
Me.txtWtNr2.Left = 5.795276!
Me.txtWtNr2.Name = "txtWtNr2"
Me.txtWtNr2.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtWtNr2.SummaryGroup = ""
Me.txtWtNr2.Text = "90"
Me.txtWtNr2.Top = 4.610236!
Me.txtWtNr2.Width = 0.3401575!
'
'txtWtNr3
'
Me.txtWtNr3.CanGrow = False
Me.txtWtNr3.DistinctField = ""
Me.txtWtNr3.Height = 0.1968504!
Me.txtWtNr3.Left = 6.110237!
Me.txtWtNr3.Name = "txtWtNr3"
Me.txtWtNr3.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtWtNr3.SummaryGroup = ""
Me.txtWtNr3.Text = "0001"
Me.txtWtNr3.Top = 4.610236!
Me.txtWtNr3.Width = 0.472441!
'
'txtWtNr4
'
Me.txtWtNr4.CanGrow = False
Me.txtWtNr4.DistinctField = ""
Me.txtWtNr4.Height = 0.1968504!
Me.txtWtNr4.Left = 6.618111!
Me.txtWtNr4.Name = "txtWtNr4"
Me.txtWtNr4.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtWtNr4.SummaryGroup = ""
Me.txtWtNr4.Text = "001"
Me.txtWtNr4.Top = 4.610236!
Me.txtWtNr4.Width = 0.472441!
'
'txtWtNr5
'
Me.txtWtNr5.CanGrow = False
Me.txtWtNr5.DistinctField = ""
Me.txtWtNr5.Height = 0.1968504!
Me.txtWtNr5.Left = 7.125986!
Me.txtWtNr5.Name = "txtWtNr5"
Me.txtWtNr5.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtWtNr5.SummaryGroup = ""
Me.txtWtNr5.Text = "001"
Me.txtWtNr5.Top = 4.610236!
Me.txtWtNr5.Width = 0.2755905!
'
'txtUrsprungsland
'
Me.txtUrsprungsland.CanGrow = False
Me.txtUrsprungsland.DistinctField = ""
Me.txtUrsprungsland.Height = 0.1968504!
Me.txtUrsprungsland.Left = 4.968504!
Me.txtUrsprungsland.Name = "txtUrsprungsland"
Me.txtUrsprungsland.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtUrsprungsland.SummaryGroup = ""
Me.txtUrsprungsland.Text = "AT"
Me.txtUrsprungsland.Top = 4.956692!
Me.txtUrsprungsland.Width = 0.3149606!
'
'txtVerfahren1
'
Me.txtVerfahren1.CanGrow = False
Me.txtVerfahren1.DistinctField = ""
Me.txtVerfahren1.Height = 0.1968504!
Me.txtVerfahren1.Left = 4.92126!
Me.txtVerfahren1.Name = "txtVerfahren1"
Me.txtVerfahren1.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtVerfahren1.SummaryGroup = ""
Me.txtVerfahren1.Text = "4000"
Me.txtVerfahren1.Top = 5.287401!
Me.txtVerfahren1.Width = 0.472441!
'
'txtVerfahren2
'
Me.txtVerfahren2.CanGrow = False
Me.txtVerfahren2.DistinctField = ""
Me.txtVerfahren2.Height = 0.1968504!
Me.txtVerfahren2.Left = 5.393702!
Me.txtVerfahren2.Name = "txtVerfahren2"
Me.txtVerfahren2.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtVerfahren2.SummaryGroup = ""
Me.txtVerfahren2.Text = "000"
Me.txtVerfahren2.Top = 5.287403!
Me.txtVerfahren2.Width = 0.3543307!
'
'txtEigenmasse
'
Me.txtEigenmasse.CanGrow = False
Me.txtEigenmasse.DistinctField = ""
Me.txtEigenmasse.Height = 0.1968504!
Me.txtEigenmasse.Left = 5.826773!
Me.txtEigenmasse.Name = "txtEigenmasse"
Me.txtEigenmasse.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtEigenmasse.SummaryGroup = ""
Me.txtEigenmasse.Text = "0000 kg"
Me.txtEigenmasse.Top = 5.287403!
Me.txtEigenmasse.Width = 1.181102!
'
'txtSummarischeAnmeldung
'
Me.txtSummarischeAnmeldung.CanGrow = False
Me.txtSummarischeAnmeldung.DistinctField = ""
Me.txtSummarischeAnmeldung.Height = 0.1968504!
Me.txtSummarischeAnmeldung.Left = 4.92126!
Me.txtSummarischeAnmeldung.Name = "txtSummarischeAnmeldung"
Me.txtSummarischeAnmeldung.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtSummarischeAnmeldung.SummaryGroup = ""
Me.txtSummarischeAnmeldung.Text = "Sum Anmeldung"
Me.txtSummarischeAnmeldung.Top = 5.614173!
Me.txtSummarischeAnmeldung.Width = 2.480315!
'
'txtBesondereMasseinheit
'
Me.txtBesondereMasseinheit.CanGrow = False
Me.txtBesondereMasseinheit.DistinctField = ""
Me.txtBesondereMasseinheit.Height = 0.1968504!
Me.txtBesondereMasseinheit.Left = 4.92126!
Me.txtBesondereMasseinheit.Name = "txtBesondereMasseinheit"
Me.txtBesondereMasseinheit.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtBesondereMasseinheit.SummaryGroup = ""
Me.txtBesondereMasseinheit.Text = "Bes ma<6D>einheit"
Me.txtBesondereMasseinheit.Top = 5.952756!
Me.txtBesondereMasseinheit.Width = 1.220472!
'
'txtKontingent
'
Me.txtKontingent.CanGrow = False
Me.txtKontingent.DistinctField = ""
Me.txtKontingent.Height = 0.1968504!
Me.txtKontingent.Left = 7.007874!
Me.txtKontingent.Name = "txtKontingent"
Me.txtKontingent.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtKontingent.SummaryGroup = ""
Me.txtKontingent.Text = "xxxx"
Me.txtKontingent.Top = 5.287403!
Me.txtKontingent.Width = 0.4724407!
'
'txtPraeferenz
'
Me.txtPraeferenz.CanGrow = False
Me.txtPraeferenz.DistinctField = ""
Me.txtPraeferenz.Height = 0.1968504!
Me.txtPraeferenz.Left = 7.007874!
Me.txtPraeferenz.Name = "txtPraeferenz"
Me.txtPraeferenz.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtPraeferenz.SummaryGroup = ""
Me.txtPraeferenz.Text = "400"
Me.txtPraeferenz.Top = 4.956692!
Me.txtPraeferenz.Width = 0.4724407!
'
'txtPosNr
'
Me.txtPosNr.CanGrow = False
Me.txtPosNr.DistinctField = ""
Me.txtPosNr.Height = 0.1968504!
Me.txtPosNr.Left = 4.405512!
Me.txtPosNr.Name = "txtPosNr"
Me.txtPosNr.Style = "color: Black; text-align: center; vertical-align: middle"
Me.txtPosNr.SummaryGroup = ""
Me.txtPosNr.Text = "90"
Me.txtPosNr.Top = 4.610236!
Me.txtPosNr.Width = 0.2362205!
'
'txtAngabenVerbuchungszwecke
'
Me.txtAngabenVerbuchungszwecke.CanGrow = False
Me.txtAngabenVerbuchungszwecke.DistinctField = ""
Me.txtAngabenVerbuchungszwecke.Height = 0.7259844!
Me.txtAngabenVerbuchungszwecke.Left = 4.015749!
Me.txtAngabenVerbuchungszwecke.Name = "txtAngabenVerbuchungszwecke"
Me.txtAngabenVerbuchungszwecke.Style = "color: Black"
Me.txtAngabenVerbuchungszwecke.SummaryGroup = ""
Me.txtAngabenVerbuchungszwecke.Text = "AngabenVerbuchungszwecke"
Me.txtAngabenVerbuchungszwecke.Top = 7.787401!
Me.txtAngabenVerbuchungszwecke.Width = 3.464567!
'
'txtOrt
'
Me.txtOrt.CanGrow = False
Me.txtOrt.DistinctField = ""
Me.txtOrt.Height = 0.2755905!
Me.txtOrt.Left = 5.0!
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtOrt.SummaryGroup = ""
Me.txtOrt.Text = "Ortsangabe"
Me.txtOrt.Top = 10.24409!
Me.txtOrt.Width = 1.220472!
'
'txtDatum
'
Me.txtDatum.CanGrow = False
Me.txtDatum.DistinctField = ""
Me.txtDatum.Height = 0.2755906!
Me.txtDatum.Left = 6.259843!
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtDatum.SummaryGroup = ""
Me.txtDatum.Text = "01.01.2017"
Me.txtDatum.Top = 10.24409!
Me.txtDatum.Width = 1.220472!
'
'txtUnterschrift
'
Me.txtUnterschrift.CanGrow = False
Me.txtUnterschrift.DistinctField = ""
Me.txtUnterschrift.Height = 0.7086614!
Me.txtUnterschrift.Left = 5.0!
Me.txtUnterschrift.Name = "txtUnterschrift"
Me.txtUnterschrift.Style = "color: Black; text-align: left; vertical-align: top"
Me.txtUnterschrift.SummaryGroup = ""
Me.txtUnterschrift.Text = "Unterschrift"
Me.txtUnterschrift.Top = 10.60236!
Me.txtUnterschrift.Width = 2.480316!
'
'txtVertreter
'
Me.txtVertreter.CanGrow = False
Me.txtVertreter.DistinctField = ""
Me.txtVertreter.Height = 0.472441!
Me.txtVertreter.Left = 2.204725!
Me.txtVertreter.Name = "txtVertreter"
Me.txtVertreter.Style = "color: Black"
Me.txtVertreter.SummaryGroup = ""
Me.txtVertreter.Text = "Vertreter"
Me.txtVertreter.Top = 2.637795!
Me.txtVertreter.Width = 1.771654!
'
'txtAnmelderVertreterNr
'
Me.txtAnmelderVertreterNr.CanGrow = False
Me.txtAnmelderVertreterNr.DistinctField = ""
Me.txtAnmelderVertreterNr.Height = 0.1574803!
Me.txtAnmelderVertreterNr.Left = 1.92559!
Me.txtAnmelderVertreterNr.Name = "txtAnmelderVertreterNr"
Me.txtAnmelderVertreterNr.Style = "color: Black; text-align: right; text-justify: auto; vertical-align: middle"
Me.txtAnmelderVertreterNr.SummaryGroup = ""
Me.txtAnmelderVertreterNr.Text = "AnmelderVertreterNr"
Me.txtAnmelderVertreterNr.Top = 2.496063!
Me.txtAnmelderVertreterNr.Width = 1.905118!
'
'txtEmpf<70>nger
'
Me.txtEmpf<EFBFBD>nger.CanGrow = False
Me.txtEmpf<EFBFBD>nger.DistinctField = ""
Me.txtEmpf<EFBFBD>nger.Height = 0.7122047!
Me.txtEmpf<EFBFBD>nger.Left = 0.392126!
Me.txtEmpf<EFBFBD>nger.Name = "txtEmpf<EFBFBD>nger"
Me.txtEmpf<EFBFBD>nger.Style = "color: Black"
Me.txtEmpf<EFBFBD>nger.SummaryGroup = ""
Me.txtEmpf<EFBFBD>nger.Text = "Empf<EFBFBD>nger"
Me.txtEmpf<EFBFBD>nger.Top = 1.692913!
Me.txtEmpf<EFBFBD>nger.Width = 3.623622!
'
'txtEmpf<70>ngerNr
'
Me.txtEmpf<EFBFBD>ngerNr.CanGrow = False
Me.txtEmpf<EFBFBD>ngerNr.DistinctField = ""
Me.txtEmpf<EFBFBD>ngerNr.Height = 0.1574803!
Me.txtEmpf<EFBFBD>ngerNr.Left = 1.924016!
Me.txtEmpf<EFBFBD>ngerNr.Name = "txtEmpf<EFBFBD>ngerNr"
Me.txtEmpf<EFBFBD>ngerNr.Style = "color: Black; text-align: right; text-justify: auto; vertical-align: middle"
Me.txtEmpf<EFBFBD>ngerNr.SummaryGroup = ""
Me.txtEmpf<EFBFBD>ngerNr.Text = "Empf<EFBFBD>ngerNr"
Me.txtEmpf<EFBFBD>ngerNr.Top = 1.535432!
Me.txtEmpf<EFBFBD>ngerNr.Width = 1.905118!
'
'txtBemessungsgrundlage
'
Me.txtBemessungsgrundlage.CanGrow = False
Me.txtBemessungsgrundlage.DistinctField = ""
Me.txtBemessungsgrundlage.Height = 1.259843!
Me.txtBemessungsgrundlage.Left = 0.5708662!
Me.txtBemessungsgrundlage.Name = "txtBemessungsgrundlage"
Me.txtBemessungsgrundlage.Style = "color: Black; text-align: right"
Me.txtBemessungsgrundlage.SummaryGroup = ""
Me.txtBemessungsgrundlage.Text = "Bemessungsgrundlage"
Me.txtBemessungsgrundlage.Top = 6.968503!
Me.txtBemessungsgrundlage.Width = 1.043307!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'rptEinheitspapier0777
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.0!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.Detail)
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.txtAnmelder, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmeldung1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmeldung2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWtNr1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVordrucke1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVordrucke2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPositionen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbfertigungsnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFiliale, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUnternummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPackst<EFBFBD>cke, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWarenbezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBesondereVermerke, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWtNr2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWtNr3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWtNr4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWtNr5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUrsprungsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerfahren1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerfahren2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEigenmasse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSummarischeAnmeldung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBesondereMasseinheit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtKontingent, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPraeferenz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPosNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAngabenVerbuchungszwecke, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtOrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatum, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUnterschrift, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVertreter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnmelderVertreterNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpf<EFBFBD>nger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmpf<EFBFBD>ngerNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBemessungsgrundlage, 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
Public WithEvents txtAnmelder As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnmeldung1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnmeldung2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWtNr1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVordrucke1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVordrucke2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtPositionen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbfertigungsnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFiliale As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUnternummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtPackst<EFBFBD>cke As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWarenbezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBesondereVermerke As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWtNr2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWtNr3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWtNr4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWtNr5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUrsprungsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVerfahren1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVerfahren2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEigenmasse As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSummarischeAnmeldung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBesondereMasseinheit As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtKontingent As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtPraeferenz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAngabenVerbuchungszwecke As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtOrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtDatum As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtUnterschrift As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVertreter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAnmelderVertreterNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEmpf<EFBFBD>nger As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtEmpf<EFBFBD>ngerNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBemessungsgrundlage As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,15 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptEinheitspapier0777
Sub New(RandOben As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
RandOben = RandOben / 10 'mm
Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
End Sub
Private Sub rptEinheitspapier0777_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,15 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptEinheitspapier0778
Sub New(RandOben As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
RandOben = RandOben / 10 'mm
Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
End Sub
Private Sub rptEinheitspapier0777_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

File diff suppressed because one or more lines are too long

View File

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

File diff suppressed because one or more lines are too long

View File

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

View File

@@ -0,0 +1,655 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptPreislisten
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(rptPreislisten))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = 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.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.Label8 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.lblDetails = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtFirmaInfo_IMEX = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_ATILLA = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_VERAG = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Shape8 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox17 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtVorlageKredit = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZahlungsziel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZahlungsziel2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtClearing = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmenkennung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.SubReport2 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZahlungsziel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZahlungsziel2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtClearing, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmenkennung, 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.txtLeistung, Me.TextBox3, Me.txtNr, Me.txtPreis, Me.Line3, Me.Line4, Me.Line5, Me.Line6, Me.Line7, Me.Line8})
Me.Detail.Height = 0.2397638!
Me.Detail.Name = "Detail"
'
'txtLeistung
'
Me.txtLeistung.Height = 0.2362205!
Me.txtLeistung.Left = 0.7874016!
Me.txtLeistung.Name = "txtLeistung"
Me.txtLeistung.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.txtLeistung.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtLeistung.Text = Nothing
Me.txtLeistung.Top = 0.003543306!
Me.txtLeistung.Width = 3.937008!
'
'TextBox3
'
Me.TextBox3.Height = 0.1968504!
Me.TextBox3.Left = 5.511811!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-weight: bold; text-align: center"
Me.TextBox3.Text = Nothing
Me.TextBox3.Top = 0!
Me.TextBox3.Width = 1.552362!
'
'txtNr
'
Me.txtNr.Height = 0.2362205!
Me.txtNr.Left = 0!
Me.txtNr.Name = "txtNr"
Me.txtNr.Style = "font-size: 11pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.txtNr.Text = "1"
Me.txtNr.Top = 0!
Me.txtNr.Width = 0.7874016!
'
'txtPreis
'
Me.txtPreis.Height = 0.2362205!
Me.txtPreis.Left = 4.757874!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 20, 0)
Me.txtPreis.Style = "font-size: 11pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.txtPreis.Text = "€ 100,00"
Me.txtPreis.Top = 0.003543307!
Me.txtPreis.Width = 1.552362!
'
'Line3
'
Me.Line3.Height = 0.2362205!
Me.Line3.Left = 0!
Me.Line3.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0!
Me.Line3.Width = 0!
Me.Line3.X1 = 0!
Me.Line3.X2 = 0!
Me.Line3.Y1 = 0!
Me.Line3.Y2 = 0.2362205!
'
'Line4
'
Me.Line4.Height = 0.1968504!
Me.Line4.Left = 7.512205!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 0!
Me.Line4.X1 = 7.512205!
Me.Line4.X2 = 7.512205!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0.1968504!
'
'Line5
'
Me.Line5.Height = 0!
Me.Line5.Left = 0!
Me.Line5.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line5.LineWeight = 1.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 0.2362205!
Me.Line5.Width = 6.299212!
Me.Line5.X1 = 6.299212!
Me.Line5.X2 = 0!
Me.Line5.Y1 = 0.2362205!
Me.Line5.Y2 = 0.2362205!
'
'Line6
'
Me.Line6.Height = 0.2362205!
Me.Line6.Left = 0.7874016!
Me.Line6.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line6.LineWeight = 1.0!
Me.Line6.Name = "Line6"
Me.Line6.Top = 0!
Me.Line6.Width = 0!
Me.Line6.X1 = 0.7874016!
Me.Line6.X2 = 0.7874016!
Me.Line6.Y1 = 0!
Me.Line6.Y2 = 0.2362205!
'
'Line7
'
Me.Line7.Height = 0.2362205!
Me.Line7.Left = 6.299212!
Me.Line7.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 0!
Me.Line7.X1 = 6.299212!
Me.Line7.X2 = 6.299212!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0.2362205!
'
'Line8
'
Me.Line8.Height = 0.2362205!
Me.Line8.Left = 4.72441!
Me.Line8.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line8.LineWeight = 1.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0!
Me.Line8.Width = 0!
Me.Line8.X1 = 4.72441!
Me.Line8.X2 = 4.72441!
Me.Line8.Y1 = 0!
Me.Line8.Y2 = 0.2362205!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Label8, Me.lblDetails, Me.Line2, Me.Label1})
Me.PageFooter.Height = 0.3271654!
Me.PageFooter.Name = "PageFooter"
'
'Label8
'
Me.Label8.Height = 0.3141733!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 7.5pt; text-align: center; ddo-char-set: 0"
Me.Label8.Text = resources.GetString("Label8.Text")
Me.Label8.Top = 0.01299213!
Me.Label8.Width = 6.775615!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02490158!
Me.lblDetails.Width = 3.120078!
'
'Line2
'
Me.Line2.Height = 0.00008204021!
Me.Line2.Left = 0.00551182!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02519685!
Me.Line2.Width = 7.086614!
Me.Line2.X1 = 0.00551182!
Me.Line2.X2 = 7.092126!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527889!
'
'Label1
'
Me.Label1.Height = 0.2!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.005488008!
Me.Label1.Name = "Label1"
Me.Label1.Style = "font-size: 8pt"
Me.Label1.Text = ""
Me.Label1.Top = 0.01250004!
Me.Label1.Width = 3.120079!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6})
Me.ReportHeader1.Height = 2.176378!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtFirmaInfo_IMEX
'
Me.txtFirmaInfo_IMEX.Height = 0.5000001!
Me.txtFirmaInfo_IMEX.Left = 2.699606!
Me.txtFirmaInfo_IMEX.Name = "txtFirmaInfo_IMEX"
Me.txtFirmaInfo_IMEX.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
Me.txtFirmaInfo_IMEX.Text = " A-4975 Suben " & Global.Microsoft.VisualBasic.ChrW(9) & " Tel. +43 77 11 / 31630 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.imex-group.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben" &
" 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 11 / 31630-1 " & Global.Microsoft.VisualBasic.ChrW(9) & "info@imex-group.at"
Me.txtFirmaInfo_IMEX.Top = 0!
Me.txtFirmaInfo_IMEX.Visible = False
Me.txtFirmaInfo_IMEX.Width = 4.013188!
'
'txtFirmaInfo_ATILLA
'
Me.txtFirmaInfo_ATILLA.Height = 0.5000001!
Me.txtFirmaInfo_ATILLA.Left = 2.846851!
Me.txtFirmaInfo_ATILLA.Name = "txtFirmaInfo_ATILLA"
Me.txtFirmaInfo_ATILLA.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
Me.txtFirmaInfo_ATILLA.Text = " A-4975 Suben " & Global.Microsoft.VisualBasic.ChrW(9) & " Tel. +43 77 11 / 2845-0 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fa" &
"x +43 77 11 / 2846 " & Global.Microsoft.VisualBasic.ChrW(9) & "atilla@verag.ag"
Me.txtFirmaInfo_ATILLA.Top = 0!
Me.txtFirmaInfo_ATILLA.Visible = False
Me.txtFirmaInfo_ATILLA.Width = 3.884448!
'
'txtFirmaInfo_VERAG
'
Me.txtFirmaInfo_VERAG.Height = 0.5000001!
Me.txtFirmaInfo_VERAG.Left = 3.120079!
Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG"
Me.txtFirmaInfo_VERAG.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43" &
" 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & " eu@verag.ag"
Me.txtFirmaInfo_VERAG.Top = 0!
Me.txtFirmaInfo_VERAG.Visible = False
Me.txtFirmaInfo_VERAG.Width = 3.592911!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
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.677166!
'
'Shape8
'
Me.Shape8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Shape8.Height = 0.2881889!
Me.Shape8.Left = 0!
Me.Shape8.LineWeight = 0!
Me.Shape8.Name = "Shape8"
Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape8.Top = 1.884646!
Me.Shape8.Width = 6.299212!
'
'TextBox8
'
Me.TextBox8.Height = 0.2196842!
Me.TextBox8.Left = 0!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 16pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.TextBox8.Text = "Unsere"
Me.TextBox8.Top = 0.9452757!
Me.TextBox8.Width = 1.492914!
'
'TextBox1
'
Me.TextBox1.Height = 0.4177166!
Me.TextBox1.Left = 0!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 28pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.TextBox1.Text = "Verzollungspreise"
Me.TextBox1.Top = 1.164961!
Me.TextBox1.Width = 4.649213!
'
'TextBox2
'
Me.TextBox2.Height = 0.2881891!
Me.TextBox2.Left = 0.7874015!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.TextBox2.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: left; vertical-alig" &
"n: middle; ddo-char-set: 1"
Me.TextBox2.Text = "Leistung"
Me.TextBox2.Top = 1.888189!
Me.TextBox2.Width = 3.509843!
'
'TextBox4
'
Me.TextBox4.Height = 0.2881891!
Me.TextBox4.Left = 0!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
"ign: middle; ddo-char-set: 1"
Me.TextBox4.Text = "Pos"
Me.TextBox4.Top = 1.884646!
Me.TextBox4.Width = 0.7874016!
'
'TextBox5
'
Me.TextBox5.Height = 0.2881891!
Me.TextBox5.Left = 4.757874!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
"ign: middle; ddo-char-set: 1"
Me.TextBox5.Text = "Preis"
Me.TextBox5.Top = 1.888189!
Me.TextBox5.Width = 1.552362!
'
'Line9
'
Me.Line9.Height = 0.00008201599!
Me.Line9.Left = 0!
Me.Line9.LineWeight = 1.0!
Me.Line9.Name = "Line9"
Me.Line9.Top = 0.6181103!
Me.Line9.Width = 7.086613!
Me.Line9.X1 = 0!
Me.Line9.X2 = 7.086613!
Me.Line9.Y1 = 0.6181103!
Me.Line9.Y2 = 0.6181923!
'
'TextBox6
'
Me.TextBox6.Height = 0.5000001!
Me.TextBox6.Left = 3.138189!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
Me.TextBox6.Text = "DE-83435 Bad Reichenhall " & Global.Microsoft.VisualBasic.ChrW(9) & " +49 8651 99624911" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Reichenhalle" &
"rstrasse 62 import@ambarlog.com "
Me.TextBox6.Top = 0!
Me.TextBox6.Visible = False
Me.TextBox6.Width = 3.592911!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.txtVorlageKredit, Me.txtZahlungsziel, Me.txtZahlungsziel2, Me.txtClearing, Me.TextBox12, Me.txtFirmenkennung, Me.SubReport, Me.SubReport2})
Me.ReportFooter1.Height = 4.128265!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox16
'
Me.TextBox16.Height = 0.1677164!
Me.TextBox16.Left = 0.02362205!
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.TextBox16.Text = "Ort & Datum"
Me.TextBox16.Top = 3.96063!
Me.TextBox16.Width = 2.559055!
'
'Line
'
Me.Line.Height = 0.0001811981!
Me.Line.Left = 0.02362205!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 3.96063!
Me.Line.Width = 2.559054!
Me.Line.X1 = 0.02362205!
Me.Line.X2 = 2.582676!
Me.Line.Y1 = 3.96063!
Me.Line.Y2 = 3.960811!
'
'TextBox17
'
Me.TextBox17.Height = 0.1677164!
Me.TextBox17.Left = 3.411811!
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 1"
Me.TextBox17.Text = "Zur Kenntnis genommen (Stempel, Unterschrift)"
Me.TextBox17.Top = 3.960631!
Me.TextBox17.Width = 3.310236!
'
'Line1
'
Me.Line1.Height = 0.000180006!
Me.Line1.Left = 3.411811!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 3.960631!
Me.Line1.Width = 3.319292!
Me.Line1.X1 = 3.411811!
Me.Line1.X2 = 6.731103!
Me.Line1.Y1 = 3.960631!
Me.Line1.Y2 = 3.960811!
'
'txtVorlageKredit
'
Me.txtVorlageKredit.Height = 0.1677164!
Me.txtVorlageKredit.Left = 0!
Me.txtVorlageKredit.Name = "txtVorlageKredit"
Me.txtVorlageKredit.Style = "font-size: 9pt; font-style: italic; font-weight: normal; text-align: right; ddo-c" &
"har-set: 1"
Me.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fallen [PosVorlage] und [PosKred" &
"it] weg.)"
Me.txtVorlageKredit.Top = 0!
Me.txtVorlageKredit.Width = 6.310238!
'
'txtZahlungsziel
'
Me.txtZahlungsziel.Height = 0.2720473!
Me.txtZahlungsziel.Left = 0.01102362!
Me.txtZahlungsziel.Name = "txtZahlungsziel"
Me.txtZahlungsziel.Style = "font-size: 14pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtZahlungsziel.Text = "Wir haben [Zahlungsziel] Tage Zahlungsziel"
Me.txtZahlungsziel.Top = 0.6728347!
Me.txtZahlungsziel.Width = 4.88189!
'
'txtZahlungsziel2
'
Me.txtZahlungsziel2.Height = 0.8244092!
Me.txtZahlungsziel2.Left = 0.01102362!
Me.txtZahlungsziel2.Name = "txtZahlungsziel2"
Me.txtZahlungsziel2.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtZahlungsziel2.Text = "Bei Zahlung innerhalb [Zahlungsziel] Tagen kann die Kreditaufwendung ([PosKredit]" &
") in Abzug gebracht werden (ausgenommen bei Vorkassenberechnungen)." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Wir behal" &
"ten uns Preisanpassungen vor."
Me.txtZahlungsziel2.Top = 1.011024!
Me.txtZahlungsziel2.Width = 6.68189!
'
'txtClearing
'
Me.txtClearing.Height = 0.1992126!
Me.txtClearing.Left = 2.458268!
Me.txtClearing.Name = "txtClearing"
Me.txtClearing.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtClearing.Text = "Für die Abklärung der Auftragslage stellen wir Ihnen einmalig Clearingkosten in R" &
"echnung . (Dieser Betrag wird bei weiteren Aufträgen nicht mehr verrechnet.)"
Me.txtClearing.Top = 3.625984!
Me.txtClearing.Visible = False
Me.txtClearing.Width = 3.937008!
'
'TextBox12
'
Me.TextBox12.Height = 0.9830709!
Me.TextBox12.Left = 0!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "font-size: 10pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.TextBox12.Text = "Wir bedanken uns für Ihren Auftrag und freuen uns auf eine gute Zusammenarbeit." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) &
"" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mit freundlichen Grüßen"
Me.TextBox12.Top = 1.835433!
Me.TextBox12.Width = 6.692914!
'
'txtFirmenkennung
'
Me.txtFirmenkennung.Height = 0.2409448!
Me.txtFirmenkennung.Left = 2.220446E-16!
Me.txtFirmenkennung.Name = "txtFirmenkennung"
Me.txtFirmenkennung.Style = "font-size: 11pt; font-weight: bold; text-align: left; ddo-char-set: 1"
Me.txtFirmenkennung.Text = "VERAG Spedition AG"
Me.txtFirmenkennung.Top = 3.05827!
Me.txtFirmenkennung.Width = 6.692914!
'
'SubReport
'
Me.SubReport.CloseBorder = False
Me.SubReport.Height = 0.1456693!
Me.SubReport.Left = 0!
Me.SubReport.Name = "SubReport"
Me.SubReport.Report = Nothing
Me.SubReport.ReportName = "SubReport1"
Me.SubReport.Top = 0.346063!
Me.SubReport.Width = 6.722048!
'
'SubReport2
'
Me.SubReport2.CloseBorder = False
Me.SubReport2.Height = 0.1456694!
Me.SubReport2.Left = 0!
Me.SubReport2.Name = "SubReport2"
Me.SubReport2.Report = Nothing
Me.SubReport2.ReportName = "SubReport2"
Me.SubReport2.Top = 0.5192913!
Me.SubReport2.Width = 6.722048!
'
'rptPreislisten
'
Me.PageSettings.Margins.Bottom = 0.3937007!
Me.PageSettings.Margins.Left = 0.7874016!
Me.PageSettings.Margins.Right = 0.3937007!
Me.PageSettings.Margins.Top = 0.3937007!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.733071!
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: 0", "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.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblDetails, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZahlungsziel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZahlungsziel2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtClearing, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmenkennung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents lblDetails As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox17 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Shape8 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtVorlageKredit As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZahlungsziel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZahlungsziel2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtClearing As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line9 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtFirmaInfo_VERAG As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents txtFirmenkennung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmaInfo_IMEX As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

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

View File

@@ -0,0 +1,908 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptVerpflichtungserklaerung
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(rptVerpflichtungserklaerung))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtMRN1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMRN2 = 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.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.Shape7 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.txtFirmaInfo_ATILLA = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_VERAG = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_IMEX = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Shape = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.txt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape4 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape6 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape8 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeVerpfl = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Shape16 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Shape9 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape10 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape11 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox12 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape12 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape13 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape14 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox15 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox17 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Shape15 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox18 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFraechter = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLKWKennz = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFahrername = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPassnummer = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtWohnort = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMobilTel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAvisoId = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDatumOrt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirma_UNISPED = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtMRN1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMRN2, 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.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLKWKennz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFahrername, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPassnummer, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtWohnort, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMobilTel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAvisoId, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDatumOrt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirma_UNISPED, 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.txtMRN1, Me.txtMRN2, Me.Line3, Me.Line4, Me.Line5, Me.Line6})
Me.Detail.Height = 0.2073382!
Me.Detail.Name = "Detail"
'
'txtMRN1
'
Me.txtMRN1.Height = 0.1968504!
Me.txtMRN1.Left = 0.4255911!
Me.txtMRN1.Name = "txtMRN1"
Me.txtMRN1.Style = "font-weight: bold; text-align: center"
Me.txtMRN1.Text = Nothing
Me.txtMRN1.Top = 0!
Me.txtMRN1.Width = 3.543307!
'
'txtMRN2
'
Me.txtMRN2.Height = 0.1968504!
Me.txtMRN2.Left = 3.968898!
Me.txtMRN2.Name = "txtMRN2"
Me.txtMRN2.Style = "font-weight: bold; text-align: center"
Me.txtMRN2.Text = Nothing
Me.txtMRN2.Top = 0!
Me.txtMRN2.Width = 3.543307!
'
'Line3
'
Me.Line3.Height = 0.1968504!
Me.Line3.Left = 0.431103!
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0!
Me.Line3.Width = 0!
Me.Line3.X1 = 0.431103!
Me.Line3.X2 = 0.431103!
Me.Line3.Y1 = 0!
Me.Line3.Y2 = 0.1968504!
'
'Line4
'
Me.Line4.Height = 0.1968504!
Me.Line4.Left = 7.512205!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 0!
Me.Line4.X1 = 7.512205!
Me.Line4.X2 = 7.512205!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0.1968504!
'
'Line5
'
Me.Line5.Height = 0!
Me.Line5.Left = 0.4311024!
Me.Line5.LineWeight = 1.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 0.1968504!
Me.Line5.Width = 7.086615!
Me.Line5.X1 = 7.517717!
Me.Line5.X2 = 0.4311024!
Me.Line5.Y1 = 0.1968504!
Me.Line5.Y2 = 0.1968504!
'
'Line6
'
Me.Line6.Height = 0.1968504!
Me.Line6.Left = 3.968898!
Me.Line6.LineWeight = 1.0!
Me.Line6.Name = "Line6"
Me.Line6.Top = 0.003543307!
Me.Line6.Width = 0!
Me.Line6.X1 = 3.968898!
Me.Line6.X2 = 3.968898!
Me.Line6.Y1 = 0.003543307!
Me.Line6.Y2 = 0.2003937!
'
'PageFooter
'
Me.PageFooter.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.ReportInfo1, Me.lblDetails, Me.Label8, Me.Line2})
Me.PageFooter.Height = 0.2665355!
Me.PageFooter.Name = "PageFooter"
'
'ReportInfo1
'
Me.ReportInfo1.FormatString = " {PageNumber} von {PageCount}"
Me.ReportInfo1.Height = 0.2!
Me.ReportInfo1.Left = 6.340552!
Me.ReportInfo1.Name = "ReportInfo1"
Me.ReportInfo1.Style = "font-size: 6.75pt; text-align: right; ddo-char-set: 204"
Me.ReportInfo1.Top = 0.02480315!
Me.ReportInfo1.Width = 1.134299!
'
'lblDetails
'
Me.lblDetails.Height = 0.2!
Me.lblDetails.HyperLink = Nothing
Me.lblDetails.Left = 0.388189!
Me.lblDetails.Name = "lblDetails"
Me.lblDetails.Style = "font-size: 8pt"
Me.lblDetails.Text = ""
Me.lblDetails.Top = 0.02490158!
Me.lblDetails.Width = 3.120078!
'
'Label8
'
Me.Label8.Height = 0.2413386!
Me.Label8.HyperLink = Nothing
Me.Label8.Left = 0.3937008!
Me.Label8.Name = "Label8"
Me.Label8.Style = "font-size: 6.75pt; ddo-char-set: 204"
Me.Label8.Text = resources.GetString("Label8.Text")
Me.Label8.Top = 0.02519685!
Me.Label8.Width = 6.325591!
'
'Line2
'
Me.Line2.Height = 0.00008204021!
Me.Line2.Left = 0.3937008!
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0.02519685!
Me.Line2.Width = 7.086615!
Me.Line2.X1 = 0.3937008!
Me.Line2.X2 = 7.480315!
Me.Line2.Y1 = 0.02519685!
Me.Line2.Y2 = 0.02527889!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape7, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.Shape, Me.txt, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.TextBox3, Me.Shape4, Me.TextBox4, Me.TextBox5, Me.Shape6, Me.TextBox6, Me.Shape8, Me.TextBox8, Me.picBarcodeVerpfl, Me.TextBox7, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED})
Me.ReportHeader1.Height = 5.05!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Shape7
'
Me.Shape7.Height = 4.092126!
Me.Shape7.Left = 0.4311022!
Me.Shape7.LineWeight = 2.0!
Me.Shape7.Name = "Shape7"
Me.Shape7.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape7.Top = 0.5354331!
Me.Shape7.Width = 7.086611!
'
'txtFirmaInfo_ATILLA
'
Me.txtFirmaInfo_ATILLA.Height = 0.5000001!
Me.txtFirmaInfo_ATILLA.Left = 0.4775591!
Me.txtFirmaInfo_ATILLA.Name = "txtFirmaInfo_ATILLA"
Me.txtFirmaInfo_ATILLA.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmaInfo_ATILLA.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 2845" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 11 / 284" &
"6" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "atilla@verag.ag"
Me.txtFirmaInfo_ATILLA.Top = 0!
Me.txtFirmaInfo_ATILLA.Visible = False
Me.txtFirmaInfo_ATILLA.Width = 6.67165!
'
'txtFirmaInfo_VERAG
'
Me.txtFirmaInfo_VERAG.Height = 0.5000001!
Me.txtFirmaInfo_VERAG.Left = 0.4775605!
Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG"
Me.txtFirmaInfo_VERAG.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +4" &
"3 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " eu@verag.ag"
Me.txtFirmaInfo_VERAG.Top = 0!
Me.txtFirmaInfo_VERAG.Width = 6.67165!
'
'txtFirmaInfo_IMEX
'
Me.txtFirmaInfo_IMEX.Height = 0.5000001!
Me.txtFirmaInfo_IMEX.Left = 0.4775591!
Me.txtFirmaInfo_IMEX.Name = "txtFirmaInfo_IMEX"
Me.txtFirmaInfo_IMEX.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmaInfo_IMEX.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31630 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.imex-group.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 1" &
"1 / 31630-1" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " info@imex-group.at"
Me.txtFirmaInfo_IMEX.Top = 0!
Me.txtFirmaInfo_IMEX.Visible = False
Me.txtFirmaInfo_IMEX.Width = 6.67165!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.096456!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'Shape
'
Me.Shape.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape.Height = 0.1968504!
Me.Shape.Left = 0.4311022!
Me.Shape.LineWeight = 2.0!
Me.Shape.Name = "Shape"
Me.Shape.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape.Top = 0.5354331!
Me.Shape.Width = 7.086611!
'
'txt
'
Me.txt.Height = 0.1574803!
Me.txt.Left = 0.477559!
Me.txt.Name = "txt"
Me.txt.Style = "font-weight: bold"
Me.txt.Text = "D (Austria)"
Me.txt.Top = 0.5519688!
Me.txt.Width = 6.99291!
'
'TextBox1
'
Me.TextBox1.Height = 0.8039368!
Me.TextBox1.Left = 0.478!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-family: Arial; font-size: 8pt; text-justify: auto; white-space: inherit; ddo" &
"-char-set: 1; ddo-wrap-mode: inherit"
Me.TextBox1.Text = resources.GetString("TextBox1.Text")
Me.TextBox1.Top = 0.738!
Me.TextBox1.Width = 6.99291!
'
'Shape2
'
Me.Shape2.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape2.Height = 0.1968504!
Me.Shape2.Left = 0.4311022!
Me.Shape2.LineWeight = 2.0!
Me.Shape2.Name = "Shape2"
Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape2.Top = 1.546063!
Me.Shape2.Width = 7.086611!
'
'TextBox2
'
Me.TextBox2.Height = 0.1574803!
Me.TextBox2.Left = 0.477559!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-weight: bold"
Me.TextBox2.Text = "TR (Türkiye)"
Me.TextBox2.Top = 1.562598!
Me.TextBox2.Width = 6.99291!
'
'TextBox3
'
Me.TextBox3.Height = 0.8039368!
Me.TextBox3.Left = 0.477559!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-family: Arial; font-size: 8pt; ddo-char-set: 1"
Me.TextBox3.Text = resources.GetString("TextBox3.Text")
Me.TextBox3.Top = 1.769292!
Me.TextBox3.Width = 6.99291!
'
'Shape4
'
Me.Shape4.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape4.Height = 0.1968504!
Me.Shape4.Left = 0.4311022!
Me.Shape4.LineWeight = 2.0!
Me.Shape4.Name = "Shape4"
Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape4.Top = 2.573229!
Me.Shape4.Width = 7.086611!
'
'TextBox4
'
Me.TextBox4.Height = 0.1574803!
Me.TextBox4.Left = 0.477559!
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-weight: bold"
Me.TextBox4.Text = "SC / HR / BHI"
Me.TextBox4.Top = 2.589764!
Me.TextBox4.Width = 6.99291!
'
'TextBox5
'
Me.TextBox5.Height = 0.8039368!
Me.TextBox5.Left = 0.477559!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "font-family: Arial; font-size: 8pt; font-weight: normal; ddo-char-set: 1"
Me.TextBox5.Text = resources.GetString("TextBox5.Text")
Me.TextBox5.Top = 2.796457!
Me.TextBox5.Width = 6.99291!
'
'Shape6
'
Me.Shape6.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape6.Height = 0.1968504!
Me.Shape6.Left = 0.4311022!
Me.Shape6.LineWeight = 2.0!
Me.Shape6.Name = "Shape6"
Me.Shape6.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape6.Top = 3.600394!
Me.Shape6.Width = 7.086611!
'
'TextBox6
'
Me.TextBox6.Height = 0.1574803!
Me.TextBox6.Left = 0.4775591!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "font-weight: bold"
Me.TextBox6.Text = "EN"
Me.TextBox6.Top = 3.61693!
Me.TextBox6.Width = 6.99291!
'
'Shape8
'
Me.Shape8.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape8.Height = 0.2362205!
Me.Shape8.Left = 0.4311022!
Me.Shape8.LineWeight = 3.0!
Me.Shape8.Name = "Shape8"
Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape8.Top = 4.81378!
Me.Shape8.Width = 7.086611!
'
'TextBox8
'
Me.TextBox8.Height = 0.2196842!
Me.TextBox8.Left = 0.4775591!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-weight: bold; text-align: center; vertical-align: middle"
Me.TextBox8.Text = "Verpflichtungserklärung zu folgenden T1/T2 MRN:"
Me.TextBox8.Top = 4.830316!
Me.TextBox8.Width = 6.99291!
'
'picBarcodeVerpfl
'
Me.picBarcodeVerpfl.Height = 2.234646!
Me.picBarcodeVerpfl.HyperLink = Nothing
Me.picBarcodeVerpfl.ImageData = Nothing
Me.picBarcodeVerpfl.Left = 0.1003935!
Me.picBarcodeVerpfl.Name = "picBarcodeVerpfl"
Me.picBarcodeVerpfl.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picBarcodeVerpfl.Top = 0.5354331!
Me.picBarcodeVerpfl.Width = 0.2755905!
'
'TextBox7
'
Me.TextBox7.Height = 0.7719999!
Me.TextBox7.Left = 0.478!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.TextBox7.Text = resources.GetString("TextBox7.Text")
Me.TextBox7.Top = 3.827!
Me.TextBox7.Width = 6.99291!
'
'txtFirmeninfo_rontoffice
'
Me.txtFirmeninfo_rontoffice.Height = 0.5000001!
Me.txtFirmeninfo_rontoffice.Left = 0.4775591!
Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice"
Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " &
" suben@front-office.eu"
Me.txtFirmeninfo_rontoffice.Top = 0!
Me.txtFirmeninfo_rontoffice.Visible = False
Me.txtFirmeninfo_rontoffice.Width = 6.67165!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape16, Me.Shape9, Me.TextBox10, Me.Shape10, Me.TextBox11, Me.Shape11, Me.TextBox12, Me.Shape12, Me.TextBox13, Me.Shape13, Me.TextBox14, Me.Shape14, Me.TextBox15, Me.TextBox16, Me.Line, Me.TextBox17, Me.Line1, Me.Shape15, Me.TextBox18, Me.txtFraechter, Me.txtLKWKennz, Me.txtFahrername, Me.txtPassnummer, Me.txtWohnort, Me.txtMobilTel, Me.txtAvisoId, Me.txtDatumOrt})
Me.ReportFooter1.Height = 4.408267!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'Shape16
'
Me.Shape16.Height = 3.149607!
Me.Shape16.Left = 0.3937008!
Me.Shape16.LineWeight = 3.0!
Me.Shape16.Name = "Shape16"
Me.Shape16.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape16.Top = 0.2007874!
Me.Shape16.Width = 7.086615!
'
'Shape9
'
Me.Shape9.Height = 0.472441!
Me.Shape9.Left = 0.3937008!
Me.Shape9.Name = "Shape9"
Me.Shape9.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape9.Top = 0.2007874!
Me.Shape9.Width = 7.086614!
'
'TextBox10
'
Me.TextBox10.Height = 0.1677164!
Me.TextBox10.Left = 0.4456677!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox10.Text = "(D) Frächter | (TR) Transport Şirketi | (SC/HR/BIH) Autoprijevoznik | (EN) " &
"Hauliers:"
Me.TextBox10.Top = 0.2346456!
Me.TextBox10.Width = 7.034646!
'
'Shape10
'
Me.Shape10.Height = 0.472441!
Me.Shape10.Left = 0.3937008!
Me.Shape10.Name = "Shape10"
Me.Shape10.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape10.Top = 0.6732277!
Me.Shape10.Width = 7.086614!
'
'TextBox11
'
Me.TextBox11.Height = 0.1677164!
Me.TextBox11.Left = 0.4456676!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox11.Text = "(D) LKW-Kennz. | (TR) Kamyonun plakası | (SC/HR/BIH) Registarska oznaka teret" &
"nog vozila | (EN) Plate number:"
Me.TextBox11.Top = 0.7070869!
Me.TextBox11.Width = 7.034646!
'
'Shape11
'
Me.Shape11.Height = 0.472441!
Me.Shape11.Left = 0.3937008!
Me.Shape11.Name = "Shape11"
Me.Shape11.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape11.Top = 1.145669!
Me.Shape11.Width = 7.086614!
'
'TextBox12
'
Me.TextBox12.Height = 0.1677164!
Me.TextBox12.Left = 0.4456676!
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox12.Text = "(D) Fahrername | (TR) Şöförün tam adı ve soyadı | (SC/HR/BIH) Puno ime i prez" &
"ime vozača | (EN) Driver name :"
Me.TextBox12.Top = 1.179528!
Me.TextBox12.Width = 7.034646!
'
'Shape12
'
Me.Shape12.Height = 0.472441!
Me.Shape12.Left = 0.3937008!
Me.Shape12.Name = "Shape12"
Me.Shape12.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape12.Top = 1.61811!
Me.Shape12.Width = 7.086614!
'
'TextBox13
'
Me.TextBox13.Height = 0.1677164!
Me.TextBox13.Left = 0.4456676!
Me.TextBox13.Name = "TextBox13"
Me.TextBox13.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox13.Text = "(D) Pass-Nummer | (TR) Pasaport numarası | (SC/HR/BIH) Broj putovnice | (EN" &
") Passport number :"
Me.TextBox13.Top = 1.651968!
Me.TextBox13.Width = 7.034646!
'
'Shape13
'
Me.Shape13.Height = 0.7874016!
Me.Shape13.Left = 0.3937008!
Me.Shape13.Name = "Shape13"
Me.Shape13.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape13.Top = 2.090551!
Me.Shape13.Width = 7.086614!
'
'TextBox14
'
Me.TextBox14.Height = 0.1677164!
Me.TextBox14.Left = 0.4456676!
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox14.Text = "(D) Wohnort | (TR) Posta kodu- Oturduğu yer | (SC/HR/BIH) Poštanski broj i me" &
"s | (EN) Address:"
Me.TextBox14.Top = 2.12441!
Me.TextBox14.Width = 7.034646!
'
'Shape14
'
Me.Shape14.Height = 0.472441!
Me.Shape14.Left = 0.3937008!
Me.Shape14.Name = "Shape14"
Me.Shape14.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape14.Top = 2.877953!
Me.Shape14.Width = 7.086614!
'
'TextBox15
'
Me.TextBox15.Height = 0.1677164!
Me.TextBox15.Left = 0.4456676!
Me.TextBox15.Name = "TextBox15"
Me.TextBox15.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox15.Text = "Mobil-Tel.Nr.:"
Me.TextBox15.Top = 2.911811!
Me.TextBox15.Width = 7.034646!
'
'TextBox16
'
Me.TextBox16.Height = 0.1677164!
Me.TextBox16.Left = 0.3937008!
Me.TextBox16.Name = "TextBox16"
Me.TextBox16.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 204"
Me.TextBox16.Text = "Ort & Datum"
Me.TextBox16.Top = 4.24055!
Me.TextBox16.Width = 2.559055!
'
'Line
'
Me.Line.Height = 0.0001788139!
Me.Line.Left = 0.3937008!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
Me.Line.Top = 4.24055!
Me.Line.Width = 2.559054!
Me.Line.X1 = 0.3937008!
Me.Line.X2 = 2.952755!
Me.Line.Y1 = 4.24055!
Me.Line.Y2 = 4.240729!
'
'TextBox17
'
Me.TextBox17.Height = 0.1677164!
Me.TextBox17.Left = 4.161023!
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Style = "font-size: 9pt; font-weight: normal; text-align: center; ddo-char-set: 204"
Me.TextBox17.Text = "Unterschrift"
Me.TextBox17.Top = 4.24055!
Me.TextBox17.Width = 3.319292!
'
'Line1
'
Me.Line1.Height = 0.0001788139!
Me.Line1.Left = 4.161023!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 4.24055!
Me.Line1.Width = 3.319292!
Me.Line1.X1 = 4.161023!
Me.Line1.X2 = 7.480315!
Me.Line1.Y1 = 4.24055!
Me.Line1.Y2 = 4.240729!
'
'Shape15
'
Me.Shape15.Height = 0.4157483!
Me.Shape15.Left = 0.3937008!
Me.Shape15.Name = "Shape15"
Me.Shape15.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape15.Top = 3.350394!
Me.Shape15.Width = 2.559055!
'
'TextBox18
'
Me.TextBox18.Height = 0.1677164!
Me.TextBox18.Left = 0.4456677!
Me.TextBox18.Name = "TextBox18"
Me.TextBox18.Style = "font-size: 8.25pt; font-weight: normal; text-align: left; ddo-char-set: 204"
Me.TextBox18.Text = "LKW-Id:"
Me.TextBox18.Top = 3.384251!
Me.TextBox18.Width = 7.034646!
'
'txtFraechter
'
Me.txtFraechter.Height = 0.2362205!
Me.txtFraechter.Left = 0.4456693!
Me.txtFraechter.Name = "txtFraechter"
Me.txtFraechter.Style = "font-weight: bold; text-justify: auto; vertical-align: middle"
Me.txtFraechter.Text = "-"
Me.txtFraechter.Top = 0.4023622!
Me.txtFraechter.Width = 7.034646!
'
'txtLKWKennz
'
Me.txtLKWKennz.Height = 0.2362205!
Me.txtLKWKennz.Left = 0.4456693!
Me.txtLKWKennz.Name = "txtLKWKennz"
Me.txtLKWKennz.Style = "font-weight: bold; text-justify: auto; vertical-align: middle"
Me.txtLKWKennz.Text = "-"
Me.txtLKWKennz.Top = 0.8748031!
Me.txtLKWKennz.Width = 7.034646!
'
'txtFahrername
'
Me.txtFahrername.Height = 0.2362205!
Me.txtFahrername.Left = 0.4456693!
Me.txtFahrername.Name = "txtFahrername"
Me.txtFahrername.Style = "font-weight: bold; text-justify: auto; vertical-align: middle"
Me.txtFahrername.Text = "-"
Me.txtFahrername.Top = 1.347244!
Me.txtFahrername.Width = 7.034646!
'
'txtPassnummer
'
Me.txtPassnummer.Height = 0.2362205!
Me.txtPassnummer.Left = 0.4401575!
Me.txtPassnummer.Name = "txtPassnummer"
Me.txtPassnummer.Style = "font-weight: bold; text-justify: auto; vertical-align: middle"
Me.txtPassnummer.Text = "-"
Me.txtPassnummer.Top = 1.819685!
Me.txtPassnummer.Width = 7.034646!
'
'txtWohnort
'
Me.txtWohnort.Height = 0.5381888!
Me.txtWohnort.Left = 0.4401575!
Me.txtWohnort.Name = "txtWohnort"
Me.txtWohnort.Style = "font-weight: bold; text-justify: auto; vertical-align: top"
Me.txtWohnort.Text = "-"
Me.txtWohnort.Top = 2.292126!
Me.txtWohnort.Width = 7.034646!
'
'txtMobilTel
'
Me.txtMobilTel.Height = 0.2362205!
Me.txtMobilTel.Left = 0.4401575!
Me.txtMobilTel.Name = "txtMobilTel"
Me.txtMobilTel.Style = "font-weight: bold; text-justify: auto; vertical-align: middle"
Me.txtMobilTel.Text = "-"
Me.txtMobilTel.Top = 3.079527!
Me.txtMobilTel.Width = 7.034646!
'
'txtAvisoId
'
Me.txtAvisoId.Height = 0.1968504!
Me.txtAvisoId.Left = 0.4456693!
Me.txtAvisoId.Name = "txtAvisoId"
Me.txtAvisoId.Style = "font-weight: bold; text-justify: auto; vertical-align: middle"
Me.txtAvisoId.Text = "-"
Me.txtAvisoId.Top = 3.551969!
Me.txtAvisoId.Width = 2.465354!
'
'txtDatumOrt
'
Me.txtDatumOrt.Height = 0.1968504!
Me.txtDatumOrt.Left = 0.3937008!
Me.txtDatumOrt.Name = "txtDatumOrt"
Me.txtDatumOrt.Style = "font-weight: bold; text-align: center; text-justify: auto; vertical-align: middle" &
""
Me.txtDatumOrt.Text = "-"
Me.txtDatumOrt.Top = 4.008267!
Me.txtDatumOrt.Width = 2.559055!
'
'txtFirma_UNISPED
'
Me.txtFirma_UNISPED.Height = 0.5000001!
Me.txtFirma_UNISPED.Left = 0.4779528!
Me.txtFirma_UNISPED.Name = "txtFirma_UNISPED"
Me.txtFirma_UNISPED.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirma_UNISPED.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 2677-0" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.unisped.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "office@uni" &
"sped.at"
Me.txtFirma_UNISPED.Top = 0!
Me.txtFirma_UNISPED.Visible = False
Me.txtFirma_UNISPED.Width = 6.67165!
'
'rptVerpflichtungserklaerung
'
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.874016!
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: 0", "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.txtMRN1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMRN2, 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.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeVerpfl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFraechter, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLKWKennz, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFahrername, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPassnummer, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtWohnort, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMobilTel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAvisoId, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDatumOrt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirma_UNISPED, 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 Label8 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents Shape9 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape10 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape11 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox12 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape12 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox13 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape13 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape14 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox15 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents TextBox17 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Shape15 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox18 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
Public WithEvents txtFraechter As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtLKWKennz As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFahrername As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtPassnummer As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtWohnort As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMobilTel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAvisoId As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtDatumOrt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMRN1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMRN2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents Line6 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Shape16 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape8 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents picBarcodeVerpfl As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents txtFirmaInfo_VERAG As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents txtFirmaInfo_IMEX As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape7 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents txt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape2 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape4 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape6 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirma_UNISPED As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

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

View File

@@ -0,0 +1,363 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class rptVerpflichtungserklaerungNeu
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(rptVerpflichtungserklaerungNeu))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.picVERAG = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.Shape3 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox21 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox22 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape5 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox23 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox24 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape17 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox25 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox26 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape18 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox27 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape19 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox28 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox29 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_ATILLA = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_VERAG = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmaInfo_IMEX = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.txtFirma_UNISPED = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox25, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox26, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox27, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox29, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirma_UNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
'
Me.PageHeader.Height = 0!
Me.PageHeader.Name = "PageHeader"
'
'Detail
'
Me.Detail.Height = 0.2073381!
Me.Detail.Name = "Detail"
'
'PageFooter
'
Me.PageFooter.Height = 0.2604167!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.picVERAG, Me.Shape3, Me.TextBox21, Me.TextBox22, Me.Shape5, Me.TextBox23, Me.TextBox24, Me.Shape17, Me.TextBox25, Me.TextBox26, Me.Shape18, Me.TextBox27, Me.Shape19, Me.TextBox28, Me.TextBox29, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.txtFirmaInfo_IMEX, Me.txtFirma_UNISPED})
Me.ReportHeader1.Height = 5.05!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Shape1
'
Me.Shape1.Height = 4.092126!
Me.Shape1.Left = 0.4299213!
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.5354331!
Me.Shape1.Width = 7.086611!
'
'picVERAG
'
Me.picVERAG.Height = 0.5000001!
Me.picVERAG.HyperLink = Nothing
Me.picVERAG.ImageBase64String = resources.GetString("picVERAG.ImageBase64String")
Me.picVERAG.Left = 5.095276!
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picVERAG.Top = 0!
Me.picVERAG.Width = 2.677166!
'
'Shape3
'
Me.Shape3.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape3.Height = 0.1968504!
Me.Shape3.Left = 0.4299213!
Me.Shape3.LineWeight = 2.0!
Me.Shape3.Name = "Shape3"
Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape3.Top = 0.5354331!
Me.Shape3.Width = 7.086611!
'
'TextBox21
'
Me.TextBox21.Height = 0.1574803!
Me.TextBox21.Left = 0.476378!
Me.TextBox21.Name = "TextBox21"
Me.TextBox21.Style = "font-weight: bold"
Me.TextBox21.Text = "D (Austria)"
Me.TextBox21.Top = 0.5519688!
Me.TextBox21.Width = 6.99291!
'
'TextBox22
'
Me.TextBox22.Height = 0.8039368!
Me.TextBox22.Left = 0.4768191!
Me.TextBox22.Name = "TextBox22"
Me.TextBox22.Style = "font-family: Arial; font-size: 8pt; text-justify: auto; white-space: inherit; ddo" &
"-char-set: 1; ddo-wrap-mode: inherit"
Me.TextBox22.Text = resources.GetString("TextBox22.Text")
Me.TextBox22.Top = 0.738!
Me.TextBox22.Width = 6.99291!
'
'Shape5
'
Me.Shape5.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape5.Height = 0.1968504!
Me.Shape5.Left = 0.4299213!
Me.Shape5.LineWeight = 2.0!
Me.Shape5.Name = "Shape5"
Me.Shape5.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape5.Top = 1.546063!
Me.Shape5.Width = 7.086611!
'
'TextBox23
'
Me.TextBox23.Height = 0.1574803!
Me.TextBox23.Left = 0.476378!
Me.TextBox23.Name = "TextBox23"
Me.TextBox23.Style = "font-weight: bold"
Me.TextBox23.Text = "TR (Türkiye)"
Me.TextBox23.Top = 1.562598!
Me.TextBox23.Width = 6.99291!
'
'TextBox24
'
Me.TextBox24.Height = 0.8039368!
Me.TextBox24.Left = 0.476378!
Me.TextBox24.Name = "TextBox24"
Me.TextBox24.Style = "font-family: Arial; font-size: 8pt; ddo-char-set: 1"
Me.TextBox24.Text = resources.GetString("TextBox24.Text")
Me.TextBox24.Top = 1.769292!
Me.TextBox24.Width = 6.99291!
'
'Shape17
'
Me.Shape17.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape17.Height = 0.1968504!
Me.Shape17.Left = 0.4299213!
Me.Shape17.LineWeight = 2.0!
Me.Shape17.Name = "Shape17"
Me.Shape17.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape17.Top = 2.573229!
Me.Shape17.Width = 7.086611!
'
'TextBox25
'
Me.TextBox25.Height = 0.1574803!
Me.TextBox25.Left = 0.476378!
Me.TextBox25.Name = "TextBox25"
Me.TextBox25.Style = "font-weight: bold"
Me.TextBox25.Text = "SC / HR / BHI"
Me.TextBox25.Top = 2.589764!
Me.TextBox25.Width = 6.99291!
'
'TextBox26
'
Me.TextBox26.Height = 0.8039368!
Me.TextBox26.Left = 0.476378!
Me.TextBox26.Name = "TextBox26"
Me.TextBox26.Style = "font-family: Arial; font-size: 8pt; font-weight: normal; ddo-char-set: 1"
Me.TextBox26.Text = resources.GetString("TextBox26.Text")
Me.TextBox26.Top = 2.796457!
Me.TextBox26.Width = 6.99291!
'
'Shape18
'
Me.Shape18.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape18.Height = 0.1968504!
Me.Shape18.Left = 0.4299213!
Me.Shape18.LineWeight = 2.0!
Me.Shape18.Name = "Shape18"
Me.Shape18.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape18.Top = 3.600394!
Me.Shape18.Width = 7.086611!
'
'TextBox27
'
Me.TextBox27.Height = 0.1574803!
Me.TextBox27.Left = 0.4763782!
Me.TextBox27.Name = "TextBox27"
Me.TextBox27.Style = "font-weight: bold"
Me.TextBox27.Text = "EN"
Me.TextBox27.Top = 3.61693!
Me.TextBox27.Width = 6.99291!
'
'Shape19
'
Me.Shape19.BackColor = System.Drawing.Color.FromArgb(CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer), CType(CType(220, Byte), Integer))
Me.Shape19.Height = 0.2362205!
Me.Shape19.Left = 0.4299213!
Me.Shape19.LineWeight = 3.0!
Me.Shape19.Name = "Shape19"
Me.Shape19.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape19.Top = 4.81378!
Me.Shape19.Width = 7.086611!
'
'TextBox28
'
Me.TextBox28.Height = 0.2196842!
Me.TextBox28.Left = 0.4763782!
Me.TextBox28.Name = "TextBox28"
Me.TextBox28.Style = "font-weight: bold; text-align: center; vertical-align: middle"
Me.TextBox28.Text = "Verpflichtungserklärung zu folgenden T1/T2 MRN:"
Me.TextBox28.Top = 4.830315!
Me.TextBox28.Width = 6.99291!
'
'TextBox29
'
Me.TextBox29.Height = 0.772!
Me.TextBox29.Left = 0.4768191!
Me.TextBox29.Name = "TextBox29"
Me.TextBox29.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: middle; dd" &
"o-char-set: 1"
Me.TextBox29.Text = resources.GetString("TextBox29.Text")
Me.TextBox29.Top = 3.827!
Me.TextBox29.Width = 6.99291!
'
'txtFirmaInfo_ATILLA
'
Me.txtFirmaInfo_ATILLA.Height = 0.5000001!
Me.txtFirmaInfo_ATILLA.Left = 0.4299213!
Me.txtFirmaInfo_ATILLA.Name = "txtFirmaInfo_ATILLA"
Me.txtFirmaInfo_ATILLA.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmaInfo_ATILLA.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 2845" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 11 / 284" &
"6" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "atilla@verag.ag"
Me.txtFirmaInfo_ATILLA.Top = 0!
Me.txtFirmaInfo_ATILLA.Visible = False
Me.txtFirmaInfo_ATILLA.Width = 6.67165!
'
'txtFirmaInfo_VERAG
'
Me.txtFirmaInfo_VERAG.Height = 0.5000001!
Me.txtFirmaInfo_VERAG.Left = 0.4299226!
Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG"
Me.txtFirmaInfo_VERAG.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +4" &
"3 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " eu@verag.ag"
Me.txtFirmaInfo_VERAG.Top = 0!
Me.txtFirmaInfo_VERAG.Width = 6.67165!
'
'txtFirmaInfo_IMEX
'
Me.txtFirmaInfo_IMEX.Height = 0.5000001!
Me.txtFirmaInfo_IMEX.Left = 0.4299213!
Me.txtFirmaInfo_IMEX.Name = "txtFirmaInfo_IMEX"
Me.txtFirmaInfo_IMEX.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmaInfo_IMEX.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31630 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.imex-group.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 1" &
"1 / 31630-1" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " info@imex-group.at"
Me.txtFirmaInfo_IMEX.Top = 0!
Me.txtFirmaInfo_IMEX.Visible = False
Me.txtFirmaInfo_IMEX.Width = 6.67165!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'txtFirma_UNISPED
'
Me.txtFirma_UNISPED.Height = 0.5000001!
Me.txtFirma_UNISPED.Left = 0.4299213!
Me.txtFirma_UNISPED.Name = "txtFirma_UNISPED"
Me.txtFirma_UNISPED.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirma_UNISPED.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 2677-0" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.unisped.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "office@uni" &
"sped.at"
Me.txtFirma_UNISPED.Top = 0!
Me.txtFirma_UNISPED.Visible = False
Me.txtFirma_UNISPED.Width = 6.67165!
'
'rptVerpflichtungserklaerungNeu
'
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.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.874016!
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.picVERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox25, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox26, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox27, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox29, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_ATILLA, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_VERAG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmaInfo_IMEX, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirma_UNISPED, 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 Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape3 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox21 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox22 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape5 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox23 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox24 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape17 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox25 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox26 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape18 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox27 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape19 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox28 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox29 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents picVERAG As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmaInfo_VERAG As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmaInfo_IMEX As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFirma_UNISPED As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,6 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptVerpflichtungserklaerungNeu
End Class

View File

@@ -0,0 +1,75 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptLaufzettelZollDE_ATZOLL
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(subRptLaufzettelZollDE_ATZOLL))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtATZOLL = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
CType(Me.txtATZOLL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtATZOLL})
Me.Detail.Height = 0.4483269!
Me.Detail.Name = "Detail"
'
'txtATZOLL
'
Me.txtATZOLL.Height = 0.1669292!
Me.txtATZOLL.Left = 3.515748!
Me.txtATZOLL.Name = "txtATZOLL"
Me.txtATZOLL.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.txtATZOLL.Text = "AT-ZOLL"
Me.txtATZOLL.Top = 0.1354331!
Me.txtATZOLL.Width = 1.759844!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'subRptLaufzettelZollDE_ATZOLL
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 5.275591!
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.txtATZOLL, 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
Public WithEvents txtATZOLL As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,6 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptLaufzettelZollDE_ATZOLL
End Class

View File

@@ -0,0 +1,242 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptLaufzettelZollDE_ATA
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.txtVorpapier = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungspreisHeader = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRechnungspreis = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeATAMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.lblSieheFremdspedition = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtATNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtVorpapier, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungspreisHeader, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRechnungspreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATNr, 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.txtVorpapier, Me.txtRechnungspreisHeader, Me.txtRechnungspreis, Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition, Me.txtATNr, Me.TextBox2})
Me.Detail.Height = 0.4484253!
Me.Detail.Name = "Detail"
'
'txtVorpapier
'
Me.txtVorpapier.Height = 0.1669292!
Me.txtVorpapier.Left = 2.448425!
Me.txtVorpapier.Name = "txtVorpapier"
Me.txtVorpapier.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.txtVorpapier.Text = "VORPAPIER"
Me.txtVorpapier.Top = 0.2188977!
Me.txtVorpapier.Visible = False
Me.txtVorpapier.Width = 2.779922!
'
'txtRechnungspreisHeader
'
Me.txtRechnungspreisHeader.Height = 0.1669292!
Me.txtRechnungspreisHeader.Left = 3.501969!
Me.txtRechnungspreisHeader.Name = "txtRechnungspreisHeader"
Me.txtRechnungspreisHeader.Style = "font-size: 7pt; text-align: left; vertical-align: bottom; ddo-char-set: 1"
Me.txtRechnungspreisHeader.Text = "Rechnungspreis:"
Me.txtRechnungspreisHeader.Top = 0.2188977!
Me.txtRechnungspreisHeader.Visible = False
Me.txtRechnungspreisHeader.Width = 0.9181101!
'
'txtRechnungspreis
'
Me.txtRechnungspreis.Height = 0.1669291!
Me.txtRechnungspreis.Left = 4.420079!
Me.txtRechnungspreis.Name = "txtRechnungspreis"
Me.txtRechnungspreis.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: right; vertica" &
"l-align: bottom; ddo-char-set: 1"
Me.txtRechnungspreis.Text = Nothing
Me.txtRechnungspreis.Top = 0.2188977!
Me.txtRechnungspreis.Visible = False
Me.txtRechnungspreis.Width = 0.8082676!
'
'picBarcodeATAMRN
'
Me.picBarcodeATAMRN.Height = 0.2188976!
Me.picBarcodeATAMRN.HyperLink = Nothing
Me.picBarcodeATAMRN.ImageBytes = Nothing
Me.picBarcodeATAMRN.Left = 0!
Me.picBarcodeATAMRN.Name = "picBarcodeATAMRN"
Me.picBarcodeATAMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft
Me.picBarcodeATAMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picBarcodeATAMRN.Top = 0!
Me.picBarcodeATAMRN.Visible = False
Me.picBarcodeATAMRN.Width = 3.561024!
'
'txtATAMRN
'
Me.txtATAMRN.Height = 0.1669291!
Me.txtATAMRN.Left = 0!
Me.txtATAMRN.Name = "txtATAMRN"
Me.txtATAMRN.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" &
"r-set: 1"
Me.txtATAMRN.Text = "ATC:"
Me.txtATAMRN.Top = 0.2188977!
Me.txtATAMRN.Width = 3.561024!
'
'txtColli
'
Me.txtColli.Height = 0.1669291!
Me.txtColli.Left = 3.641339!
Me.txtColli.Name = "txtColli"
Me.txtColli.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 2, 0)
Me.txtColli.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: right; vertica" &
"l-align: bottom; ddo-char-set: 1"
Me.txtColli.Text = Nothing
Me.txtColli.Top = 0.05196851!
Me.txtColli.Width = 0.5582681!
'
'TextBox1
'
Me.TextBox1.Height = 0.1669292!
Me.TextBox1.Left = 3.501969!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 7pt; text-align: left; vertical-align: bottom; ddo-char-set: 1"
Me.TextBox1.Text = "Colli:"
Me.TextBox1.Top = 0.05196851!
Me.TextBox1.Width = 0.2645671!
'
'txtGewicht
'
Me.txtGewicht.Height = 0.1669291!
Me.txtGewicht.Left = 4.420079!
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: right; vertica" &
"l-align: bottom; ddo-char-set: 1"
Me.txtGewicht.Text = Nothing
Me.txtGewicht.Top = 0.05196851!
Me.txtGewicht.Width = 0.8082676!
'
'TextBox3
'
Me.TextBox3.Height = 0.1669292!
Me.TextBox3.Left = 4.199603!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 7pt; text-align: left; vertical-align: bottom; ddo-char-set: 1"
Me.TextBox3.Text = "Gewicht:"
Me.TextBox3.Top = 0.05196851!
Me.TextBox3.Width = 0.406693!
'
'lblSieheFremdspedition
'
Me.lblSieheFremdspedition.Height = 0.1669291!
Me.lblSieheFremdspedition.Left = 1.834646!
Me.lblSieheFremdspedition.Name = "lblSieheFremdspedition"
Me.lblSieheFremdspedition.Style = "font-size: 8pt; font-style: italic; font-weight: bold; text-align: left; vertical" &
"-align: top; ddo-char-set: 1"
Me.lblSieheFremdspedition.Text = "siehe Fremdspedition"
Me.lblSieheFremdspedition.Top = 0.05196851!
Me.lblSieheFremdspedition.Visible = False
Me.lblSieheFremdspedition.Width = 1.667323!
'
'txtATNr
'
Me.txtATNr.Height = 0.25!
Me.txtATNr.Left = 0!
Me.txtATNr.Name = "txtATNr"
Me.txtATNr.Style = "font-size: 15pt; font-weight: bold; text-align: left; vertical-align: top; ddo-ch" &
"ar-set: 1"
Me.txtATNr.Text = "ATC:"
Me.txtATNr.Top = 0!
Me.txtATNr.Visible = False
Me.txtATNr.Width = 3.561024!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox2
'
Me.TextBox2.Height = 0.03149614!
Me.TextBox2.Left = 3.501969!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 7pt; text-align: left; vertical-align: bottom; ddo-char-set: 1"
Me.TextBox2.Top = 0.4169292!
Me.TextBox2.Visible = False
Me.TextBox2.Width = 1.726378!
'
'subRptLaufzettelZollDE_ATA
'
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 5.275591!
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.txtVorpapier, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungspreisHeader, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRechnungspreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeATAMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.lblSieheFremdspedition, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATNr, 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 picBarcodeATAMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtColli As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtGewicht As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents lblSieheFremdspedition As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtVorpapier As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtATNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtRechnungspreisHeader As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtRechnungspreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,111 @@
Imports System.Globalization
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptLaufzettelZollDE_ATA
Dim ATA As New List(Of VERAG_PROG_ALLGEMEIN.cSendHandling)
Dim Fremdspedition As Boolean
Dim Vorpapier As String
Dim Rechnungspreis As Object = Nothing
Dim Handelsrechnung As Object = Nothing
Dim Rechnungswaehrung As Object = Nothing
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean, Vorpapier As String, Rechnungspreis As Object, Rechnungswaehrung As Object, Handelsrechnung As Object)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ATA = ATA
Me.Fremdspedition = Fremdspedition
Me.Vorpapier = Vorpapier
Me.Rechnungspreis = Rechnungspreis
Me.Handelsrechnung = Handelsrechnung
Me.Rechnungswaehrung = Rechnungswaehrung
' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
picBarcodeATAMRN.Image = Nothing
picBarcodeATAMRN.Visible = False
txtATAMRN.Text = ""
txtVorpapier.Text = ""
If Fremdspedition Then
lblSieheFremdspedition.Visible = True
TextBox3.Visible = False
TextBox1.Visible = False
txtColli.Visible = False
txtGewicht.Visible = False
Else
'txtVorpapier.Text = Vorpapier
'txtVorpapier.Visible = True
If Rechnungspreis IsNot Nothing AndAlso IsNumeric(Rechnungspreis) Then
txtRechnungspreisHeader.Visible = True
txtRechnungspreis.Visible = True
' txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString(".00") & " " & If(Rechnungswaehrung, "")
txtRechnungspreis.Text = CDbl(Rechnungspreis).ToString("N2", CultureInfo.CurrentCulture) & " " & If(Rechnungswaehrung, "")
End If
End If
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("ATA").Value
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
barcodeString = barcodeString.Replace(" ", "")
barcodeString = barcodeString.Replace("/", "")
barcodeString = barcodeString.Replace("-", "")
Dim ACD = ""
Dim monat = ""
If barcodeString.Length > 13 Then monat = barcodeString.Substring(11, 2)
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7) : ACD = "A"
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) : ACD = "C"
If barcodeString.StartsWith("ATD") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) : ACD = "D"
If ACD <> "" Then 'ATA/C/D
txtATNr.Visible = True
If IsNumeric(barcodeString) Then barcodeString = CInt(barcodeString).ToString()
txtATNr.Value = ACD & " " & barcodeString & " / " & monat
picBarcodeATAMRN.Visible = False
ElseIf ATAMRN.Length > 10 Then 'grobe Pr<50>fung der L<>nge, ob es eine g<>ltige ATA Nr sein kann..
txtATNr.Visible = False
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.Visible = True
End If
End If
txtColli.Text = ""
txtGewicht.Text = ""
If Me.Fields.Item("Colli").Value IsNot Nothing Then txtColli.Text = CDbl(Me.Fields.Item("Colli").Value).ToString("N0") & " Pk"
If Me.Fields.Item("Gewicht").Value IsNot Nothing Then txtGewicht.Text = CDbl(Me.Fields.Item("Gewicht").Value).ToString("N1") & " kg"
If If(Handelsrechnung, "") <> "" Then
TextBox2.Text = "Handelsrg.: " & Handelsrechnung
TextBox2.Visible = True
End If
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("ATA", System.Type.GetType("System.String"))
dt.Columns.Add("Colli", System.Type.GetType("System.String"))
dt.Columns.Add("Gewicht", System.Type.GetType("System.String"))
For Each s In ATA
dt.Rows.Add({s.sndhdg_nr, s.sndhdg_colli, s.sndhdg_gewicht})
Next
Me.DataSource = dt
End Sub
End Class

View File

@@ -0,0 +1,179 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptLaufzettelZollDE_Vorpapier
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.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Shape4 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanGrow = False
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape2, Me.txtATAMRN, Me.txtNr, Me.picBarcodeMRN, Me.TextBox1})
Me.Detail.Height = 0.2732284!
Me.Detail.Name = "Detail"
'
'Shape2
'
Me.Shape2.Height = 0.2732284!
Me.Shape2.Left = 0.007874017!
Me.Shape2.Name = "Shape2"
Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape2.Top = 0!
Me.Shape2.Width = 7.086614!
'
'txtATAMRN
'
Me.txtATAMRN.CanGrow = False
Me.txtATAMRN.Height = 0.2094488!
Me.txtATAMRN.Left = 0.3248032!
Me.txtATAMRN.Name = "txtATAMRN"
Me.txtATAMRN.Style = "font-size: 12pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtATAMRN.Text = "T1"
Me.txtATAMRN.Top = 0.03543307!
Me.txtATAMRN.Width = 3.050787!
'
'txtNr
'
Me.txtNr.CanGrow = False
Me.txtNr.Height = 0.2094488!
Me.txtNr.Left = 0.04488189!
Me.txtNr.Name = "txtNr"
Me.txtNr.Style = "font-size: 12pt; font-weight: normal; text-align: left; vertical-align: middle; d" &
"do-char-set: 1"
Me.txtNr.Text = "1"
Me.txtNr.Top = 0.03543307!
Me.txtNr.Width = 0.2799213!
'
'picBarcodeMRN
'
Me.picBarcodeMRN.Height = 0.2188976!
Me.picBarcodeMRN.HyperLink = Nothing
Me.picBarcodeMRN.ImageBytes = Nothing
Me.picBarcodeMRN.Left = 2.358662!
Me.picBarcodeMRN.Name = "picBarcodeMRN"
Me.picBarcodeMRN.PictureAlignment = GrapeCity.ActiveReports.SectionReportModel.PictureAlignment.TopLeft
Me.picBarcodeMRN.SizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
Me.picBarcodeMRN.Top = 0.02598425!
Me.picBarcodeMRN.Visible = False
Me.picBarcodeMRN.Width = 3.102756!
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.2094488!
Me.TextBox1.Left = 3.955118!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: right; vertical-align: middle; dd" &
"o-char-set: 1"
Me.TextBox1.Text = Nothing
Me.TextBox1.Top = 0.03543307!
Me.TextBox1.Width = 3.050787!
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape4, Me.TextBox8, Me.TextBox2})
Me.ReportHeader1.Height = 0.2890584!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Shape4
'
Me.Shape4.BackColor = System.Drawing.Color.FromArgb(CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(245, Byte), Integer))
Me.Shape4.Height = 0.2161417!
Me.Shape4.Left = 0.007874017!
Me.Shape4.Name = "Shape4"
Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape4.Top = 0.07283465!
Me.Shape4.Width = 7.086614!
'
'TextBox8
'
Me.TextBox8.Height = 0.1460631!
Me.TextBox8.Left = 0.04488189!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
"ddo-char-set: 1"
Me.TextBox8.Text = "Vorpapier(e):"
Me.TextBox8.Top = 0.1035433!
Me.TextBox8.Width = 1.130709!
'
'TextBox2
'
Me.TextBox2.Height = 0.1460631!
Me.TextBox2.Left = 5.875197!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Style = "font-size: 6.5pt; font-weight: normal; text-align: right; vertical-align: middle;" &
" ddo-char-set: 1"
Me.TextBox2.Text = "ATB-Gestellung:"
Me.TextBox2.Top = 0.1035433!
Me.TextBox2.Width = 1.130709!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0.08333333!
Me.ReportFooter1.Name = "ReportFooter1"
'
'subRptLaufzettelZollDE_Vorpapier
'
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.094488!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.Detail)
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.txtATAMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtATAMRN As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Friend WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape2 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Shape4 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents picBarcodeMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

View File

@@ -0,0 +1,73 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subRptLaufzettelZollDE_Vorpapier
Dim VP As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier)
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim cnt = 1
Sub New(VP As List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier))
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.VP = VP
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
txtATAMRN.Text = ""
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("MRN").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("MRN").Value
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
ATAMRN = ATAMRN.Replace("XXXX", "")
picBarcodeMRN.Image = Nothing
picBarcodeMRN.Visible = False
Try
If ATAMRN.Length > 10 And ATAMRN.Length < 50 Then
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 20)
picBarcodeMRN.Image = barcodeATA
picBarcodeMRN.Visible = True
End If
If ATAMRN <> "" Then
' Dim ATB = SQL.DLookup("tblSnd_ATB_Nr", "tblSendungen", "'" & ATAMRN.Trim & "' IN (tblSnd_Vorpapier,tblSnd_Vorpapier2,tblSnd_Vorpapier3) and tblSnd_Abfertigungsart_ID=44", "AVISO", "")
Dim ATB = SQL.DLookup("tblSnd_ATB_Nr", "tblSendungen", " tblSnd_ATB_T1= '" & ATAMRN.Trim & "' and tblSnd_Abfertigungsart_ID=44", "AVISO", "")
If ATB <> "" Then
TextBox1.Text = ATB
'<27>berschreiben mit ATB-Barcode
Dim barcodeATB As Image = Code128Rendering.MakeBarcodeImage(ATB, 1, True, 20)
picBarcodeMRN.Image = barcodeATB
picBarcodeMRN.Visible = True
picBarcodeMRN.Location = New PointF(picBarcodeMRN.Location.X - 0.5, picBarcodeMRN.Location.Y)
ATAMRN = "(" & ATAMRN & ")"
txtATAMRN.Font = New Document.Drawing.Font("Microsoft Sans Serif", 10, GrapeCity.ActiveReports.Document.Drawing.FontStyle.Regular) ' kleiner schreiben
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
txtATAMRN.Text = ATAMRN
txtNr.Text = cnt
cnt += 1
End If
End Sub
Private Sub rptAuswertung_ReportStart(sender As System.Object, e As System.EventArgs) Handles MyBase.ReportStart
Dim dt As New DataTable
dt.Columns.Add("MRN", System.Type.GetType("System.String"))
For Each s In VP
dt.Rows.Add({s.vp_Nr})
Next
Me.DataSource = dt
End Sub
End Class

View File

@@ -0,0 +1,250 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptPreislisten
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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subrptPreislisten))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLeistung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtPreis = 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.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line8 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Shape8 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.txtLeistung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, 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.txtLeistung, Me.TextBox3, Me.txtPreis, Me.Line3, Me.Line4, Me.Line5, Me.Line7, Me.Line8})
Me.Detail.Height = 0.2397638!
Me.Detail.Name = "Detail"
'
'txtLeistung
'
Me.txtLeistung.Height = 0.2362205!
Me.txtLeistung.Left = 0.7874016!
Me.txtLeistung.Name = "txtLeistung"
Me.txtLeistung.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.txtLeistung.Style = "font-size: 11pt; font-weight: normal; text-align: left; ddo-char-set: 1"
Me.txtLeistung.Text = Nothing
Me.txtLeistung.Top = 0.003543306!
Me.txtLeistung.Width = 3.937008!
'
'TextBox3
'
Me.TextBox3.Height = 0.1968504!
Me.TextBox3.Left = 5.511811!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-weight: bold; text-align: center"
Me.TextBox3.Text = Nothing
Me.TextBox3.Top = 0!
Me.TextBox3.Width = 1.552362!
'
'txtPreis
'
Me.txtPreis.Height = 0.2362205!
Me.txtPreis.Left = 4.757874!
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Padding = New GrapeCity.ActiveReports.PaddingEx(0, 0, 20, 0)
Me.txtPreis.Style = "font-size: 11pt; font-weight: normal; text-align: right; ddo-char-set: 1"
Me.txtPreis.Text = "€ 100,00"
Me.txtPreis.Top = 0.003543307!
Me.txtPreis.Width = 1.552362!
'
'Line3
'
Me.Line3.Height = 0.2362205!
Me.Line3.Left = 0!
Me.Line3.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 0!
Me.Line3.Width = 0!
Me.Line3.X1 = 0!
Me.Line3.X2 = 0!
Me.Line3.Y1 = 0!
Me.Line3.Y2 = 0.2362205!
'
'Line4
'
Me.Line4.Height = 0.1968504!
Me.Line4.Left = 7.512205!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 0!
Me.Line4.X1 = 7.512205!
Me.Line4.X2 = 7.512205!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0.1968504!
'
'Line5
'
Me.Line5.Height = 0!
Me.Line5.Left = 0!
Me.Line5.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line5.LineWeight = 1.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 0.2362205!
Me.Line5.Width = 6.299212!
Me.Line5.X1 = 6.299212!
Me.Line5.X2 = 0!
Me.Line5.Y1 = 0.2362205!
Me.Line5.Y2 = 0.2362205!
'
'Line7
'
Me.Line7.Height = 0.2362205!
Me.Line7.Left = 6.299212!
Me.Line7.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 0!
Me.Line7.X1 = 6.299212!
Me.Line7.X2 = 6.299212!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0.2362205!
'
'Line8
'
Me.Line8.Height = 0.2362205!
Me.Line8.Left = 4.72441!
Me.Line8.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line8.LineWeight = 1.0!
Me.Line8.Name = "Line8"
Me.Line8.Top = 0!
Me.Line8.Width = 0!
Me.Line8.X1 = 4.72441!
Me.Line8.X2 = 4.72441!
Me.Line8.Y1 = 0!
Me.Line8.Y2 = 0.2362205!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape8, Me.TextBox2, Me.TextBox5})
Me.ReportHeader1.Height = 0.291732!
Me.ReportHeader1.Name = "ReportHeader1"
'
'Shape8
'
Me.Shape8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Shape8.Height = 0.2881889!
Me.Shape8.Left = 0!
Me.Shape8.LineWeight = 0!
Me.Shape8.Name = "Shape8"
Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape8.Top = 0!
Me.Shape8.Width = 6.299212!
'
'TextBox2
'
Me.TextBox2.Height = 0.2881891!
Me.TextBox2.Left = 0.7874015!
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Padding = New GrapeCity.ActiveReports.PaddingEx(5, 0, 0, 0)
Me.TextBox2.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: left; vertical-alig" &
"n: middle; ddo-char-set: 1"
Me.TextBox2.Text = "Zusätzliche Leistungen"
Me.TextBox2.Top = 0.0035429!
Me.TextBox2.Width = 3.509843!
'
'TextBox5
'
Me.TextBox5.Height = 0.2881891!
Me.TextBox5.Left = 4.757874!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "color: White; font-size: 12pt; font-weight: bold; text-align: center; vertical-al" &
"ign: middle; ddo-char-set: 1"
Me.TextBox5.Text = "Preis"
Me.TextBox5.Top = 0.0035429!
Me.TextBox5.Width = 1.552362!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'subrptPreislisten
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937007!
Me.PageSettings.Margins.Left = 0.7874016!
Me.PageSettings.Margins.Right = 0.3937007!
Me.PageSettings.Margins.Top = 0.3937007!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.722048!
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.txtLeistung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtPreis, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtPreis As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtLeistung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents Line8 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Shape8 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents TextBox2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
End Class

View File

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

View File

@@ -0,0 +1,191 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptPreislisten_Zoll
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(subrptPreislisten_Zoll))
Me.PageHeader = New GrapeCity.ActiveReports.SectionReportModel.PageHeader()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.Line4 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.lbl = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.Label1 = New GrapeCity.ActiveReports.SectionReportModel.Label()
Me.PageFooter = New GrapeCity.ActiveReports.SectionReportModel.PageFooter()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.Line5 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line7 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.Line2 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.lbl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Label1, 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.Line4, Me.lbl, Me.Label1, Me.Line5, Me.Line7, Me.Line1, Me.Line2})
Me.Detail.Height = 0.9272637!
Me.Detail.Name = "Detail"
'
'Line4
'
Me.Line4.Height = 0.1968504!
Me.Line4.Left = 7.512205!
Me.Line4.LineWeight = 1.0!
Me.Line4.Name = "Line4"
Me.Line4.Top = 0!
Me.Line4.Width = 0!
Me.Line4.X1 = 7.512205!
Me.Line4.X2 = 7.512205!
Me.Line4.Y1 = 0!
Me.Line4.Y2 = 0.1968504!
'
'lbl
'
Me.lbl.Height = 0.2!
Me.lbl.HyperLink = Nothing
Me.lbl.Left = 0.08346457!
Me.lbl.Name = "lbl"
Me.lbl.Style = "font-size: 9.75pt; font-weight: bold"
Me.lbl.Text = "Generelle Einverständniserklärung - Zollpflichtige Abgaben"
Me.lbl.Top = 0.03622048!
Me.lbl.Width = 4.229134!
'
'Label1
'
Me.Label1.Height = 0.5334646!
Me.Label1.HyperLink = Nothing
Me.Label1.Left = 0.08346457!
Me.Label1.Name = "Label1"
Me.Label1.Style = ""
Me.Label1.Text = resources.GetString("Label1.Text")
Me.Label1.Top = 0.2362205!
Me.Label1.Width = 6.142914!
'
'PageFooter
'
Me.PageFooter.Height = 0!
Me.PageFooter.Name = "PageFooter"
'
'ReportHeader1
'
Me.ReportHeader1.Height = 0!
Me.ReportHeader1.Name = "ReportHeader1"
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
'
'Line5
'
Me.Line5.Height = 0!
Me.Line5.Left = 0.000001192093!
Me.Line5.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line5.LineWeight = 1.0!
Me.Line5.Name = "Line5"
Me.Line5.Top = 0.7696851!
Me.Line5.Width = 6.299212!
Me.Line5.X1 = 6.299213!
Me.Line5.X2 = 0.000001192093!
Me.Line5.Y1 = 0.7696851!
Me.Line5.Y2 = 0.7696851!
'
'Line7
'
Me.Line7.Height = 0.7696851!
Me.Line7.Left = 6.299213!
Me.Line7.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line7.LineWeight = 1.0!
Me.Line7.Name = "Line7"
Me.Line7.Top = 0!
Me.Line7.Width = 0!
Me.Line7.X1 = 6.299213!
Me.Line7.X2 = 6.299213!
Me.Line7.Y1 = 0!
Me.Line7.Y2 = 0.7696851!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.00000166893!
Me.Line1.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0!
Me.Line1.Width = 6.299212!
Me.Line1.X1 = 6.299213!
Me.Line1.X2 = 0.00000166893!
Me.Line1.Y1 = 0!
Me.Line1.Y2 = 0!
'
'Line2
'
Me.Line2.Height = 0.7696854!
Me.Line2.Left = 0!
Me.Line2.LineColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line2.LineWeight = 1.0!
Me.Line2.Name = "Line2"
Me.Line2.Top = 0!
Me.Line2.Width = 0!
Me.Line2.X1 = 0!
Me.Line2.X2 = 0!
Me.Line2.Y1 = 0!
Me.Line2.Y2 = 0.7696854!
'
'subrptPreislisten_Zoll
'
Me.MasterReport = False
Me.PageSettings.Margins.Bottom = 0.3937007!
Me.PageSettings.Margins.Left = 0.7874016!
Me.PageSettings.Margins.Right = 0.3937007!
Me.PageSettings.Margins.Top = 0.3937007!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 6.722048!
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.lbl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Label1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents Line4 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Private WithEvents lbl As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Label1 As GrapeCity.ActiveReports.SectionReportModel.Label
Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line7 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents Line2 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

View File

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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