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

LZ klipp

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-27 08:13:47 +02:00
parent 1d714b5eb3
commit 5a68a36e4a
5 changed files with 220 additions and 126 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb generated
View File

@@ -80,13 +80,14 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.Shape6 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.Shape7 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox13 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox15 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.TextBox17 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -136,6 +137,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.picBarcodeMRN, 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, System.ComponentModel.ISupportInitialize).BeginInit()
'
'PageHeader
@@ -333,7 +335,7 @@ Partial Public Class rptLaufzettelZollDE
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1, Me.TextBox7, Me.txtFirmaInfo_VERAG, Me.TextBox11, Me.txtFirmeninfo_ambar})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_IMEX, Me.picVERAG, Me.TextBox8, Me.Shape3, Me.Shape4, Me.Shape5, Me.TextBox4, Me.TextBox9, Me.txtLKW, Me.TextBox12, Me.txtLKWId, Me.TextBox14, Me.txtSB, Me.TextBox18, Me.txtDatum, Me.TextBox25, Me.txtGrenzstelle, Me.TextBox27, Me.txtFraechter, Me.TextBox32, Me.TextBox5, Me.TextBox1, Me.Shape2, Me.TextBox2, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1, Me.TextBox7, Me.txtFirmaInfo_VERAG, Me.TextBox11, Me.txtFirmeninfo_ambar, Me.TextBox17})
Me.ReportHeader1.Height = 2.227953!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -802,11 +804,6 @@ Partial Public Class rptLaufzettelZollDE
Me.GroupHeader1.Height = 0.4023623!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'Shape6
'
Me.Shape6.Height = 0.4023622!
@@ -874,6 +871,23 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox16.Top = 0.01653543!
Me.TextBox16.Width = 0.9429134!
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'TextBox17
'
Me.TextBox17.Height = 0.5000001!
Me.TextBox17.Left = 0.4405512!
Me.TextBox17.Name = "TextBox17"
Me.TextBox17.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.TextBox17.Text = "D-01665 Klipphausen" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +49 8503/7973999-550 " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Am Bahndamm 3" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " klipphausen@" &
"front-office.eu"
Me.TextBox17.Top = 0!
Me.TextBox17.Visible = False
Me.TextBox17.Width = 6.67165!
'
'rptLaufzettelZollDE
'
Me.MasterReport = False
@@ -946,6 +960,7 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.picBarcodeMRN, 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, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -1017,4 +1032,5 @@ Partial Public Class rptLaufzettelZollDE
Public WithEvents TextBox16 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents picBarcodeMRN As GrapeCity.ActiveReports.SectionReportModel.Picture
Public WithEvents GroupHeader1 As GrapeCity.ActiveReports.SectionReportModel.GroupHeader
Public WithEvents TextBox17 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

3
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -3078,6 +3078,7 @@ Public Class FormularManagerNEU
Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS"
Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL"
Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD"
Case "KLIPP" : rpt.txtGrenzstelle.Text = "KLIPPHAUSEN (DRESDEN)"
Case "DTB", "FO_WIHD" : rpt.txtGrenzstelle.Text = "DETTELBACH"
Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "")
End Select
@@ -3584,6 +3585,8 @@ Public Class FormularManagerNEU
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
Case "KLIPP" : ort = "Klipphausen" ': rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal
End Select
rpt.TextBox32.Text = "Avisierer (*):"
rpt.txtFraechter.Text = AVISO.Auftraggeber