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

ActiveReports

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-08-14 11:32:13 +02:00
parent 0ca060b7c0
commit 93fd68c058
35 changed files with 8571 additions and 11127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

403
UID/ARConverterBackup/Reports/TransportAuftrag/rptTransportauftrag.Designer.vb generated Normal file
View File

File diff suppressed because one or more lines are too long

119
UID/ARConverterBackup/Reports/TransportAuftrag/rptTransportauftrag.vb Normal file
View File

@@ -0,0 +1,119 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptTransportauftrag
Property Printauftrag As cDispoAuftraege = Nothing
Property printTrip As cTrips = Nothing
Property Standort As String = "4819"
' Property CMR As New List(Of cCMRLadeliste)
Dim auftraglist As New List(Of cDispoAuftraege)
Dim FrachtPostHeader As String = ""
Private Sub rptTransportauftrag_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
If Not printTrip Is Nothing Then
For Each ding As DataRow In printTrip.trip_Aufträge.Rows
Dim toadd As New cDispoAuftraege
toadd.atr_id = ding.Item("atr_id")
toadd.LOAD()
FrachtPostHeader &= ", " & toadd.atr_frachtpos
auftraglist.Add(toadd)
Next
Else
FrachtPostHeader &= ", " & Printauftrag.atr_frachtpos
auftraglist.Add(Printauftrag)
End If
' Me.DataSource = auftraglist
End Sub
' Public Shared Standort As String = "4819"
Private Sub PageHeader_Format(sender As Object, e As EventArgs) Handles PageHeader.Format
txtDatum.Text = Date.Now.Day & "." & Date.Now.Month & "." & Date.Now.Year
txtSachbearbeiter.Text = "Sachbearbeiter: " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Dim FilialNr = ""
If Standort = "4807" Or Standort = "VERAG AG" Then
Picture1.Image = My.Resources.Verag_AG_Logo
FilialNr = "4807"
txtVerag.Text = "VERAG Spedition AG"
txtVeragAnschrift.Text = "AT 4975 - Suben 100" & vbCrLf &
"Tel. +43 77 11 / 27 77 - 31" & vbCrLf &
"Fax +43 77 11 / 27 88" & vbCrLf &
"dispo@verag.ag" & vbCrLf &
vbCrLf &
"FN:  216714y" & vbCrLf &
"UID : ATU 53187000"
ElseIf Standort = "4819" Or Standort = "VERAG GmbH" Then
FilialNr = "4819"
Picture1.Image = My.Resources.Verag_Spedition_GMBH_Logo
txtVerag.Text = "VERAG Spedition GmbH"
txtVeragAnschrift.Text = "Hartham 6" & vbCrLf &
"D 94152 Neuhaus am Inn" & vbCrLf &
"Tel. +49 8503 / 923675" & vbCrLf &
"dispo-de@verag.ag" & vbCrLf &
"UID: DE813570890" & vbCrLf &
vbCrLf '&
'"Abrechnungspartner: " & vbCrLf &
'"VERAG Spedition AG in" & vbCrLf &
'"A-4975 Suben, Nr. 100"
ElseIf Standort = "5701" Or Standort = "AMBAR" Then
FilialNr = "5701"
txtVerag.Text = "AMBAR Logistic Services GmbH"
txtVeragAnschrift.Text = "Reichenhallerstrasse 62" & vbCrLf &
"D 83435 Bad Reichenhall" & vbCrLf &
"Tel. +49 8651 99624911 " & vbCrLf &
"dispo@ambarlog.com" & vbCrLf &
"UID: DE309105428" & vbCrLf
Picture1.Image = My.Resources.ambar_simple
TextBox2.Text = TextBox2.Text.Replace("Österreichischen", "Deutschen")
End If
txtFrachtposition.Text = FilialNr & "/" & FrachtPostHeader.Substring(1)
If auftraglist(0).atr_TransportauftragArt = "NACH" Then
txtAnFirma.Text = auftraglist(0).atr_frachtfAb_firma
txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtfAb_str & " " & auftraglist(0).atr_frachtfAb_strnr
txtAnFirmaOrt.Text = auftraglist(0).atr_frachtfAb_land & " " & auftraglist(0).atr_frachtfAb_plz & " " & auftraglist(0).atr_frachtfAb_ort
txtAnAnsprechperson.Text = auftraglist(0).atr_frachtfAb_anspr
txtKennzeichen.Text = auftraglist(0).atr_frachtfAb_lkwKz
txtLKWArt.Text = auftraglist(0).atr_frachtfAb_lkwArt
ElseIf auftraglist(0).atr_TransportauftragArt = "VOR" Then
txtAnFirma.Text = auftraglist(0).atr_frachtf_firma
txtAnFirmaStrasse.Text = auftraglist(0).atr_frachtf_str & " " & auftraglist(0).atr_frachtf_strnr
txtAnFirmaOrt.Text = auftraglist(0).atr_frachtf_land & " " & auftraglist(0).atr_frachtf_plz & " " & auftraglist(0).atr_frachtf_ort
txtAnAnsprechperson.Text = auftraglist(0).atr_frachtf_anspr
txtKennzeichen.Text = auftraglist(0).atr_lkwKz
txtLKWArt.Text = auftraglist(0).atr_lkwArt
End If
End Sub
Private Sub PageFooter_Format(sender As Object, e As EventArgs) Handles PageFooter.Format
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
Dim subdet As New subrptTrip
subdet.auftraglist = auftraglist
'subdet.CMR = CMR
Me.SubDetail.Report = subdet
'For i = 1 To 2
' Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
' subrpt_Ladestelle.Printauftrag = Printauftrag
' Dim subrpt_Ladung As New subrptTransportauftragLadung
' subrpt_Ladung.CMR = CMR
' Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
' Me.subrptTransportauftragLadung.Report = subrpt_Ladung
' txtBemerkung.Text = Printauftrag.atr_bemerkung
' txtVerzollungsadresse.Text = Printauftrag.atr_verzollungsadresse
' txtFrachtkosten.Text = Printauftrag.atr_frachtkosten
'Next
End Sub
End Class

193
UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadestelle.Designer.vb generated Normal file
View File

@@ -0,0 +1,193 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptTransportauftragLadestelle
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
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(subrptTransportauftragLadestelle))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtLadestelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEntLadestelle = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtRefNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLadeSttermin = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEntLadeStTermin = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLadeoeffzeiten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEntLadeoeffzeiten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtLadestAnspr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEntLadestAnspr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtLadestelle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEntLadestelle, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtRefNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLadeSttermin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEntLadeStTermin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLadeoeffzeiten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEntLadeoeffzeiten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtLadestAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEntLadestAnspr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.CanShrink = True
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtLadestelle, Me.txtEntLadestelle, Me.txtRefNr, Me.txtLadeSttermin, Me.txtEntLadeStTermin, Me.txtLadeoeffzeiten, Me.txtEntLadeoeffzeiten, Me.txtLadestAnspr, Me.txtEntLadestAnspr, Me.Line1})
Me.Detail.Height = 1.041667!
Me.Detail.Name = "Detail"
'
'txtLadestelle
'
Me.txtLadestelle.Height = 0.472441!
Me.txtLadestelle.Left = 0.09842519!
Me.txtLadestelle.Name = "txtLadestelle"
Me.txtLadestelle.Text = "txtLadestelle"
Me.txtLadestelle.Top = 0!
Me.txtLadestelle.Width = 2.086614!
'
'txtEntLadestelle
'
Me.txtEntLadestelle.Height = 0.472441!
Me.txtEntLadestelle.Left = 3.740158!
Me.txtEntLadestelle.Name = "txtEntLadestelle"
Me.txtEntLadestelle.Text = "txtEntLadestelle"
Me.txtEntLadestelle.Top = 0!
Me.txtEntLadestelle.Width = 2.085433!
'
'txtRefNr
'
Me.txtRefNr.CanShrink = True
Me.txtRefNr.Height = 0.2224412!
Me.txtRefNr.Left = 0.0984252!
Me.txtRefNr.Name = "txtRefNr"
Me.txtRefNr.Style = "font-family: Arial Narrow; font-size: 9.75pt; font-weight: bold"
Me.txtRefNr.Text = "txtRefNr"
Me.txtRefNr.Top = 0.7539371!
Me.txtRefNr.Width = 3.244882!
'
'txtLadeSttermin
'
Me.txtLadeSttermin.CanShrink = True
Me.txtLadeSttermin.DataField = ""
Me.txtLadeSttermin.DistinctField = ""
Me.txtLadeSttermin.Height = 0.1110236!
Me.txtLadeSttermin.Left = 0.6102363!
Me.txtLadeSttermin.Name = "txtLadeSttermin"
Me.txtLadeSttermin.Style = "background-color: WhiteSmoke; color: Black; font-family: Arial; font-size: 9.75pt" &
"; font-weight: bold; text-align: center; vertical-align: middle"
Me.txtLadeSttermin.SummaryGroup = ""
Me.txtLadeSttermin.Text = "txtLadeSttermin"
Me.txtLadeSttermin.Top = 0.472441!
Me.txtLadeSttermin.Width = 1.574803!
'
'txtEntLadeStTermin
'
Me.txtEntLadeStTermin.Height = 0.1110236!
Me.txtEntLadeStTermin.Left = 4.250788!
Me.txtEntLadeStTermin.Name = "txtEntLadeStTermin"
Me.txtEntLadeStTermin.Style = "background-color: WhiteSmoke; color: Black; font-family: Arial; font-size: 9.75pt" &
"; font-weight: bold; text-align: center; vertical-align: middle"
Me.txtEntLadeStTermin.Text = "txtEntLadeStTermin"
Me.txtEntLadeStTermin.Top = 0.472441!
Me.txtEntLadeStTermin.Width = 1.574803!
'
'txtLadeoeffzeiten
'
Me.txtLadeoeffzeiten.Height = 0.472441!
Me.txtLadeoeffzeiten.Left = 1.673228!
Me.txtLadeoeffzeiten.Name = "txtLadeoeffzeiten"
Me.txtLadeoeffzeiten.Style = "font-size: 8.25pt; text-align: right"
Me.txtLadeoeffzeiten.Text = "txtLadeoeffzeiten"
Me.txtLadeoeffzeiten.Top = 0!
Me.txtLadeoeffzeiten.Width = 1.811024!
'
'txtEntLadeoeffzeiten
'
Me.txtEntLadeoeffzeiten.Height = 0.472441!
Me.txtEntLadeoeffzeiten.Left = 5.472441!
Me.txtEntLadeoeffzeiten.Name = "txtEntLadeoeffzeiten"
Me.txtEntLadeoeffzeiten.Style = "font-size: 8.25pt; text-align: right"
Me.txtEntLadeoeffzeiten.Text = "txtEntLadeoeffzeiten"
Me.txtEntLadeoeffzeiten.Top = 0!
Me.txtEntLadeoeffzeiten.Width = 1.811024!
'
'txtLadestAnspr
'
Me.txtLadestAnspr.CanShrink = True
Me.txtLadestAnspr.Height = 0.1704724!
Me.txtLadestAnspr.Left = 0.0984252!
Me.txtLadestAnspr.Name = "txtLadestAnspr"
Me.txtLadestAnspr.Text = "txtLadestAnspr"
Me.txtLadestAnspr.Top = 0.5834646!
Me.txtLadestAnspr.Width = 3.244881!
'
'txtEntLadestAnspr
'
Me.txtEntLadestAnspr.CanShrink = True
Me.txtEntLadestAnspr.Height = 0.1704724!
Me.txtEntLadestAnspr.Left = 3.740158!
Me.txtEntLadestAnspr.Name = "txtEntLadestAnspr"
Me.txtEntLadestAnspr.Text = "txtEntLadestAnspr"
Me.txtEntLadestAnspr.Top = 0.5834646!
Me.txtEntLadestAnspr.Width = 3.228346!
'
'Line1
'
Me.Line1.Height = 0.472441!
Me.Line1.Left = 3.641732!
Me.Line1.LineColor = System.Drawing.Color.Gray
Me.Line1.LineStyle = GrapeCity.ActiveReports.SectionReportModel.LineStyle.Dash
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 7.450581E-9!
Me.Line1.Width = 0!
Me.Line1.X1 = 3.641732!
Me.Line1.X2 = 3.641732!
Me.Line1.Y1 = 7.450581E-9!
Me.Line1.Y2 = 0.472441!
'
'subrptTransportauftragLadestelle
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.283465!
Me.ScriptLanguage = "VB.NET"
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.txtLadestelle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEntLadestelle, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtRefNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLadeSttermin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEntLadeStTermin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLadeoeffzeiten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEntLadeoeffzeiten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtLadestAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEntLadestAnspr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtLadestelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEntLadestelle As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtRefNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLadeSt_termin As TextBox
Private WithEvents txtEntLadeSt_termin As TextBox
Private WithEvents txtLadeSttermin As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEntLadeStTermin As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLadeoeffzeiten As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEntLadeoeffzeiten As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtLadestAnspr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtEntLadestAnspr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
End Class

85
UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadestelle.vb Normal file
View File

@@ -0,0 +1,85 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptTransportauftragLadestelle
'Property auftraglist As New List(Of cDispoAuftraege)
Property Printauftrag As cDispoAuftraege = Nothing
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
''//LADESTELLE
txtLadestelle.Text = Printauftrag.atr_ladest_firma & vbCrLf &
Printauftrag.atr_ladest_str & " " & Printauftrag.atr_ladest_strnr & vbCrLf &
Printauftrag.atr_ladest_land & " " & Printauftrag.atr_ladest_plz & " " & Printauftrag.atr_ladest_ort
If Printauftrag.atr_ladest_termin = "1" Then
txtLadeSttermin.Text = "Termin " & Printauftrag.atr_ladest_terminDat & vbCrLf & "von " & Printauftrag.atr_ladest_terminVon & " bis " & Printauftrag.atr_ladest_terminBis
Else
txtLadeSttermin.Text = "" : txtLadeSttermin.BackColor = Color.Transparent
End If
txtLadestAnspr.Text = ""
txtLadestAnspr.Text = Printauftrag.atr_ladest_anspr
Try
If Printauftrag.avisolade(1).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(1).ToString
If Printauftrag.avisolade(2).ToString <> "" Then txtLadestAnspr.Text &= vbCrLf & Printauftrag.avisolade(2).ToString
Catch
End Try
txtLadeoeffzeiten.Text = Printauftrag.oezlade
''//ENTLADESTELLE
txtEntLadestelle.Text = Printauftrag.atr_entladest_firma & vbCrLf &
Printauftrag.atr_entladest_str & " " & Printauftrag.atr_entladest_strnr & vbCrLf &
Printauftrag.atr_entladest_land & " " & Printauftrag.atr_entladest_plz & " " & Printauftrag.atr_entladest_ort
If Printauftrag.atr_entladest_termin = "1" Then
txtEntLadeStTermin.Text = "Termin " & Printauftrag.atr_entladest_terminDat & vbCrLf & "von " & Printauftrag.atr_entladest_terminVon & " bis " & Printauftrag.atr_entladest_terminBis
Else
txtEntLadeStTermin.Text = "" : txtEntLadeStTermin.BackColor = Color.Transparent
End If
txtEntLadestAnspr.Text = ""
Try
If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "0" Then txtEntLadestAnspr.Text = "Avisieren:" & vbCrLf
If Printauftrag.avisoentlade(0).ToString <> "" And Printauftrag.avisoentlade(0) = "1" Then txtEntLadestAnspr.Text = "Ankunftsaviso:" & vbCrLf
Catch ex As Exception
End Try
txtEntLadestAnspr.Text &= frmAuftragNEU.printAuftrag.atr_entladest_anspr
Try
If Printauftrag.avisoentlade(1).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(1).ToString 'TELNummer
If Printauftrag.avisoentlade(2).ToString <> "" Then txtEntLadestAnspr.Text &= vbCrLf & Printauftrag.avisoentlade(2).ToString 'EMailAdresse
Catch
End Try
txtEntLadeoeffzeiten.Text = Printauftrag.oezentlade
''//REFNr.
If Printauftrag.atr_ladest_refNr = "" Then
txtRefNr.Text = ""
Else
txtRefNr.Text = "RefNr.: " & Printauftrag.atr_ladest_refNr
End If
End Sub
Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
If txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height > txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height Then
Line1.Y2 = txtLadestelle.Size.Height + txtLadeSttermin.Size.Height + txtLadestAnspr.Size.Height
Else
Line1.Y2 = txtEntLadestelle.Size.Height + txtEntLadeStTermin.Size.Height + txtEntLadestAnspr.Size.Height
End If
'Line1.Y2 = "20"
End Sub
End Class

138
UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadung.Designer.vb generated Normal file
View File

@@ -0,0 +1,138 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class subrptTransportauftragLadung
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
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(subrptTransportauftragLadung))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtZeichen = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAnzahl = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtArt = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBezeichnung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtStatNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBruttoKG = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtUmfang = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtZeichen, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtArt, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBezeichnung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtStatNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBruttoKG, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtUmfang, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtZeichen, Me.txtAnzahl, Me.txtArt, Me.txtBezeichnung, Me.txtStatNr, Me.txtBruttoKG, Me.txtUmfang})
Me.Detail.Height = 0.2499999!
Me.Detail.Name = "Detail"
'
'txtZeichen
'
Me.txtZeichen.Height = 0.2!
Me.txtZeichen.Left = 0.001181103!
Me.txtZeichen.Name = "txtZeichen"
Me.txtZeichen.Style = "font-size: 8.25pt; font-weight: normal; text-align: center"
Me.txtZeichen.Text = "Zeichen/Nr."
Me.txtZeichen.Top = 0!
Me.txtZeichen.Width = 0.6889764!
'
'txtAnzahl
'
Me.txtAnzahl.Height = 0.2!
Me.txtAnzahl.Left = 0.6901575!
Me.txtAnzahl.Name = "txtAnzahl"
Me.txtAnzahl.Style = "font-size: 8.25pt; font-weight: normal; text-align: center"
Me.txtAnzahl.Text = "Anzahl"
Me.txtAnzahl.Top = 0!
Me.txtAnzahl.Width = 0.6692914!
'
'txtArt
'
Me.txtArt.Height = 0.2!
Me.txtArt.Left = 1.359449!
Me.txtArt.Name = "txtArt"
Me.txtArt.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtArt.Text = "Art"
Me.txtArt.Top = 0!
Me.txtArt.Width = 1.0!
'
'txtBezeichnung
'
Me.txtBezeichnung.Height = 0.2!
Me.txtBezeichnung.Left = 2.359449!
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtBezeichnung.Text = "Bezeichnung"
Me.txtBezeichnung.Top = 0!
Me.txtBezeichnung.Width = 2.438976!
'
'txtStatNr
'
Me.txtStatNr.Height = 0.2!
Me.txtStatNr.Left = 4.798426!
Me.txtStatNr.Name = "txtStatNr"
Me.txtStatNr.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtStatNr.Text = "Stat.Nr."
Me.txtStatNr.Top = 0!
Me.txtStatNr.Width = 0.8645674!
'
'txtBruttoKG
'
Me.txtBruttoKG.Height = 0.2!
Me.txtBruttoKG.Left = 5.652757!
Me.txtBruttoKG.Name = "txtBruttoKG"
Me.txtBruttoKG.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtBruttoKG.Text = "Brutto Kg"
Me.txtBruttoKG.Top = 0!
Me.txtBruttoKG.Width = 0.8645674!
'
'txtUmfang
'
Me.txtUmfang.Height = 0.2!
Me.txtUmfang.Left = 6.517323!
Me.txtUmfang.Name = "txtUmfang"
Me.txtUmfang.Style = "font-size: 8.25pt; font-weight: normal"
Me.txtUmfang.Text = "Umfang"
Me.txtUmfang.Top = 0!
Me.txtUmfang.Width = 0.7661417!
'
'subrptTransportauftragLadung
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.283465!
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.txtZeichen, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahl, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtArt, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBezeichnung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtStatNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBruttoKG, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtUmfang, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents txtZeichen As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtAnzahl As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtArt As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtBezeichnung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtStatNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtBruttoKG As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtUmfang As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

36
UID/ARConverterBackup/Reports/TransportAuftrag/subrptTransportauftragLadung.vb Normal file
View File

@@ -0,0 +1,36 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptTransportauftragLadung
Property PrintAuftrag As cDispoAuftraege = Nothing
Private Sub subrptTransportauftragLadung_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
Me.DataSource = PrintAuftrag.LADUNGEN
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
Try
txtZeichen.Text = Fields.Item("lad_ZeNr").Value
txtAnzahl.Text = Fields.Item("lad_Anzahl").Value
txtArt.Text = Fields.Item("lad_Art").Value
txtBezeichnung.Text = Fields.Item("lad_Bezeichnung").Value
txtStatNr.Text = Fields.Item("lad_StatNr").Value
txtBruttoKG.Text = Fields.Item("lad_BruttoKg").Value
txtUmfang.Text = Fields.Item("lad_Umfang").Value
'txtZeichen.Text = Fields.Item("ZeNr").Value
'txtAnzahl.Text = Fields.Item("AnzPack").Value
'txtArt.Text = Fields.Item("Art").Value
'txtBezeichnung.Text = Fields.Item("Bez").Value
'txtStatNr.Text = Fields.Item("Stat").Value
'txtBruttoKG.Text = Fields.Item("BruttoKg").Value
'txtUmfang.Text = Fields.Item("Umfang").Value
'txtAnzahl.Text = Fields.Item("Anzahl").Value
Catch ex As Exception
'MsgBox(ex.Message)
MsgBox("Keine Ladung vorhanden:" & PrintAuftrag.atr_frachtpos)
End Try
End Sub
End Class

363
UID/ARConverterBackup/Reports/TransportAuftrag/subrptTrip.Designer.vb generated Normal file
View File

@@ -0,0 +1,363 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subrptTrip
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
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(subrptTrip))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.txtFrachtPosNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape1 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.subrptTransportauftragLadung = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox9 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox11 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.subrptTransportauftragLadestelle = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.txtBemTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBemerkung = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerzollTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtVerzollungsadresse = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtkoTitel = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFrachtkosten = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox14 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line3 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.txtEnd = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtFrachtPosNr, 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.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBemTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerzollTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtkoTitel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFrachtkosten, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEnd, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.BackColor = System.Drawing.Color.White
Me.Detail.CanShrink = True
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFrachtPosNr, Me.Shape1, Me.subrptTransportauftragLadung, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.TextBox8, Me.TextBox9, Me.TextBox10, Me.TextBox11, Me.subrptTransportauftragLadestelle, Me.txtBemTitel, Me.txtBemerkung, Me.txtVerzollTitel, Me.txtVerzollungsadresse, Me.txtFrachtkoTitel, Me.txtFrachtkosten, Me.TextBox14, Me.Line3, Me.TextBox1, Me.Line1, Me.txtEnd})
Me.Detail.Height = 2.644619!
Me.Detail.KeepTogether = True
Me.Detail.Name = "Detail"
'
'txtFrachtPosNr
'
Me.txtFrachtPosNr.DistinctField = ""
Me.txtFrachtPosNr.Height = 0.2519685!
Me.txtFrachtPosNr.Left = 0!
Me.txtFrachtPosNr.Name = "txtFrachtPosNr"
Me.txtFrachtPosNr.Style = "background-color: WhiteSmoke; color: Black; font-size: 12pt; font-weight: bold; t" &
"ext-align: center; vertical-align: middle"
Me.txtFrachtPosNr.SummaryGroup = ""
Me.txtFrachtPosNr.Text = "Frachtposition:"
Me.txtFrachtPosNr.Top = 0!
Me.txtFrachtPosNr.Width = 7.480316!
'
'Shape1
'
Me.Shape1.Height = 2.407874!
Me.Shape1.Left = 0!
Me.Shape1.Name = "Shape1"
Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing)
Me.Shape1.Top = 0!
Me.Shape1.Width = 7.480316!
'
'subrptTransportauftragLadung
'
Me.subrptTransportauftragLadung.CanShrink = False
Me.subrptTransportauftragLadung.CloseBorder = False
Me.subrptTransportauftragLadung.Height = 0.4212599!
Me.subrptTransportauftragLadung.Left = 0.09842544!
Me.subrptTransportauftragLadung.Name = "subrptTransportauftragLadung"
Me.subrptTransportauftragLadung.Report = Nothing
Me.subrptTransportauftragLadung.ReportName = "subrptTransportauftragLadung"
Me.subrptTransportauftragLadung.Top = 1.399213!
Me.subrptTransportauftragLadung.Width = 7.283465!
'
'TextBox5
'
Me.TextBox5.Height = 0.2!
Me.TextBox5.Left = 0.09842544!
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox5.Text = "Zeichen/Nr."
Me.TextBox5.Top = 1.199213!
Me.TextBox5.Width = 0.6889764!
'
'TextBox6
'
Me.TextBox6.Height = 0.2!
Me.TextBox6.Left = 0.7885829!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox6.Text = "Anzahl"
Me.TextBox6.Top = 1.199213!
Me.TextBox6.Width = 0.6692914!
'
'TextBox7
'
Me.TextBox7.Height = 0.2!
Me.TextBox7.Left = 1.457874!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox7.Text = "Art"
Me.TextBox7.Top = 1.199213!
Me.TextBox7.Width = 1.0!
'
'TextBox8
'
Me.TextBox8.Height = 0.2!
Me.TextBox8.Left = 2.457874!
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox8.Text = "Bezeichnung"
Me.TextBox8.Top = 1.199213!
Me.TextBox8.Width = 2.438976!
'
'TextBox9
'
Me.TextBox9.Height = 0.2!
Me.TextBox9.Left = 4.896852!
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox9.Text = "Stat.Nr."
Me.TextBox9.Top = 1.199213!
Me.TextBox9.Width = 0.8645674!
'
'TextBox10
'
Me.TextBox10.Height = 0.2!
Me.TextBox10.Left = 5.751184!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox10.Text = "Brutto Kg"
Me.TextBox10.Top = 1.199213!
Me.TextBox10.Width = 0.8645674!
'
'TextBox11
'
Me.TextBox11.Height = 0.2!
Me.TextBox11.Left = 6.615747!
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Style = "background-color: WhiteSmoke; font-size: 8.25pt; font-weight: bold"
Me.TextBox11.Text = "Umfang"
Me.TextBox11.Top = 1.199213!
Me.TextBox11.Width = 0.7661417!
'
'subrptTransportauftragLadestelle
'
Me.subrptTransportauftragLadestelle.CloseBorder = False
Me.subrptTransportauftragLadestelle.Height = 0.4606299!
Me.subrptTransportauftragLadestelle.Left = 0.09842544!
Me.subrptTransportauftragLadestelle.Name = "subrptTransportauftragLadestelle"
Me.subrptTransportauftragLadestelle.Report = Nothing
Me.subrptTransportauftragLadestelle.ReportName = "subrptTransportauftragLadestelle"
Me.subrptTransportauftragLadestelle.Top = 0.4677163!
Me.subrptTransportauftragLadestelle.Width = 7.283465!
'
'txtBemTitel
'
Me.txtBemTitel.CanShrink = True
Me.txtBemTitel.Height = 0.1181102!
Me.txtBemTitel.Left = 0.0984252!
Me.txtBemTitel.Name = "txtBemTitel"
Me.txtBemTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtBemTitel.Text = "Bemerkung:"
Me.txtBemTitel.Top = 1.946851!
Me.txtBemTitel.Width = 1.312205!
'
'txtBemerkung
'
Me.txtBemerkung.CanShrink = True
Me.txtBemerkung.Height = 0.1181101!
Me.txtBemerkung.Left = 1.41063!
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Text = "txtBemerkung"
Me.txtBemerkung.Top = 1.946851!
Me.txtBemerkung.Width = 5.97126!
'
'txtVerzollTitel
'
Me.txtVerzollTitel.CanShrink = True
Me.txtVerzollTitel.Height = 0.1181101!
Me.txtVerzollTitel.Left = 0.0984252!
Me.txtVerzollTitel.Name = "txtVerzollTitel"
Me.txtVerzollTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtVerzollTitel.Text = "Verzollungsadresse:"
Me.txtVerzollTitel.Top = 2.064961!
Me.txtVerzollTitel.Width = 1.312205!
'
'txtVerzollungsadresse
'
Me.txtVerzollungsadresse.CanShrink = True
Me.txtVerzollungsadresse.Height = 0.1181102!
Me.txtVerzollungsadresse.Left = 1.41063!
Me.txtVerzollungsadresse.Name = "txtVerzollungsadresse"
Me.txtVerzollungsadresse.Text = "txtVerzollungsadresse"
Me.txtVerzollungsadresse.Top = 2.064961!
Me.txtVerzollungsadresse.Width = 5.97126!
'
'txtFrachtkoTitel
'
Me.txtFrachtkoTitel.CanShrink = True
Me.txtFrachtkoTitel.Height = 0.1181102!
Me.txtFrachtkoTitel.Left = 0.0984252!
Me.txtFrachtkoTitel.Name = "txtFrachtkoTitel"
Me.txtFrachtkoTitel.Style = "font-size: 9pt; font-weight: bold; ddo-char-set: 1"
Me.txtFrachtkoTitel.Text = "Frachtkosten:"
Me.txtFrachtkoTitel.Top = 2.183071!
Me.txtFrachtkoTitel.Width = 1.312205!
'
'txtFrachtkosten
'
Me.txtFrachtkosten.CanShrink = True
Me.txtFrachtkosten.Height = 0.1181099!
Me.txtFrachtkosten.Left = 1.41063!
Me.txtFrachtkosten.Name = "txtFrachtkosten"
Me.txtFrachtkosten.Text = "txtFrachtkosten"
Me.txtFrachtkosten.Top = 2.183071!
Me.txtFrachtkosten.Width = 5.97126!
'
'TextBox14
'
Me.TextBox14.DistinctField = ""
Me.TextBox14.Height = 0.2!
Me.TextBox14.Left = 0.09842543!
Me.TextBox14.Name = "TextBox14"
Me.TextBox14.Style = "color: Black; font-family: Arial Narrow; font-size: 12pt; font-weight: bold; text" &
"-align: left; text-decoration: none; vertical-align: middle"
Me.TextBox14.SummaryGroup = ""
Me.TextBox14.Text = "Ladestelle:"
Me.TextBox14.Top = 0.2677163!
Me.TextBox14.Width = 3.641732!
'
'Line3
'
Me.Line3.Height = 0!
Me.Line3.Left = 0.8645672!
Me.Line3.LineColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line3.LineWeight = 1.0!
Me.Line3.Name = "Line3"
Me.Line3.Top = 1.882284!
Me.Line3.Width = 5.751181!
Me.Line3.X1 = 0.8645672!
Me.Line3.X2 = 6.615748!
Me.Line3.Y1 = 1.882284!
Me.Line3.Y2 = 1.882284!
'
'TextBox1
'
Me.TextBox1.DistinctField = ""
Me.TextBox1.Height = 0.2!
Me.TextBox1.Left = 3.740158!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "color: Black; font-family: Arial Narrow; font-size: 12pt; font-weight: bold; text" &
"-align: left; text-decoration: none; vertical-align: middle"
Me.TextBox1.SummaryGroup = ""
Me.TextBox1.Text = "Entladestelle:"
Me.TextBox1.Top = 0.2677163!
Me.TextBox1.Width = 3.641732!
'
'Line1
'
Me.Line1.Height = 0!
Me.Line1.Left = 0.8645672!
Me.Line1.LineColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 1.06378!
Me.Line1.Width = 5.751181!
Me.Line1.X1 = 0.8645672!
Me.Line1.X2 = 6.615748!
Me.Line1.Y1 = 1.06378!
Me.Line1.Y2 = 1.06378!
'
'txtEnd
'
Me.txtEnd.Height = 0.1066929!
Me.txtEnd.Left = 0.0984252!
Me.txtEnd.Name = "txtEnd"
Me.txtEnd.Style = "text-align: center; vertical-align: middle"
Me.txtEnd.Text = Nothing
Me.txtEnd.Top = 2.301181!
Me.txtEnd.Width = 7.283465!
'
'subrptTrip
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480319!
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.txtFrachtPosNr, 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.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBemTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBemerkung, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerzollTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtkoTitel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFrachtkosten, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEnd, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents subrptTransportauftragLadung As GrapeCity.ActiveReports.SectionReportModel.SubReport
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 TextBox9 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox10 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox11 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents subrptTransportauftragLadestelle As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents txtBemTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtBemerkung As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVerzollTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtVerzollungsadresse As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtkoTitel As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents txtFrachtkosten As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox14 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Line3 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtFrachtPosNr As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Private WithEvents Shape1 As GrapeCity.ActiveReports.SectionReportModel.Shape
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Private WithEvents txtEnd As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

73
UID/ARConverterBackup/Reports/TransportAuftrag/subrptTrip.vb Normal file
View File

@@ -0,0 +1,73 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class subrptTrip
Dim i As Integer = 0
Property auftraglist As New List(Of cDispoAuftraege)
Private Sub subrptTrip_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
DataSource = auftraglist
End Sub
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
' txtBemTitel.Visible = True : txtVerzollTitel.Visible = True : txtFrachtkoTitel.Visible = True
Line3.Visible = True
Shape1.Height = 0
Dim subrpt_Ladestelle As New subrptTransportauftragLadestelle
subrpt_Ladestelle.Printauftrag = auftraglist(i)
Dim subrpt_Ladung As New subrptTransportauftragLadung
'subrpt_Ladung.DataSource = auftraglist(i).LADUNGEN
subrpt_Ladung.PrintAuftrag = auftraglist(i)
Me.subrptTransportauftragLadestelle.Report = subrpt_Ladestelle
Me.subrptTransportauftragLadung.Report = subrpt_Ladung
txtFrachtPosNr.Text = "Frachtposition: " & auftraglist(i).atr_frachtpos
txtBemerkung.Text = auftraglist(i).atr_bemerkung
'If auftraglist(i).atr_bemerkung = "" Then txtBemTitel.Visible = False
txtVerzollungsadresse.Text = auftraglist(i).atr_verzollungsadresse
'If auftraglist(i).atr_verzollungsadresse = "" Then txtVerzollTitel.Visible = False
txtFrachtkosten.Text = auftraglist(i).atr_frachtkosten
'If auftraglist(i).atr_frachtkosten = "" Then txtFrachtkoTitel.Visible = False
If auftraglist(i).atr_bemerkung.ToString.Length = 0 Then txtBemerkung.Text = "---"
If auftraglist(i).atr_verzollungsadresse.ToString.Length = 0 Then txtVerzollungsadresse.Text = "---"
If auftraglist(i).atr_frachtkosten.ToString.Length = 0 Then txtFrachtkosten.Text = "---"
i = i + 1
End Sub
Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
Dim dh As Integer = Detail.Height
If Not txtBemerkung.Text = "" Or Not txtVerzollungsadresse.Text = "" Or Not txtFrachtkosten.Text = "" Then
Shape1.Height = Detail.Height - 0.1
Line3.Visible = True
Else
Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
Line3.Visible = False
End If
End Sub
Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint
End Sub
Private Sub Detail_Disposed(sender As Object, e As EventArgs) Handles Detail.Disposed
' Detail.Height = dh + 0.3
End Sub
End Class