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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Formulare/Einheitspapier/usrCntlEinheitspapier.Designer.vb generated
View File

@@ -113,7 +113,7 @@ Partial Class usrCntlEinheitspapier
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Button3.BackgroundImage = Global.SDL.My.Resources.search
Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(243, 337)
@@ -125,7 +125,7 @@ Partial Class usrCntlEinheitspapier
'Button1
'
Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Button1.BackgroundImage = Global.SDL.My.Resources.search
Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(427, 337)
@@ -137,7 +137,7 @@ Partial Class usrCntlEinheitspapier
'Button2
'
Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.Button2.BackgroundImage = Global.SDL.My.Resources.search
Me.Button2.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(427, 264)
@@ -421,7 +421,7 @@ Partial Class usrCntlEinheitspapier
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Einheitspapier_0777_kurz
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Einheitspapier_0777_kurz
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Dock = System.Windows.Forms.DockStyle.Top
Me.pic.Location = New System.Drawing.Point(0, 0)

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

@@ -63,15 +63,17 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Shape2 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmail = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirma_UNISPED = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesColli = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesGewicht = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox10 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtEmail = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtDW = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line1 = New GrapeCity.ActiveReports.SectionReportModel.Line()
CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -104,13 +106,14 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirma_UNISPED, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesColli, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
@@ -298,7 +301,7 @@ Partial Public Class rptLaufzettelZollDE
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, 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.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape1, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, 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.ReportHeader1.Height = 2.227953!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -587,48 +590,6 @@ Partial Public Class rptLaufzettelZollDE
Me.TextBox2.Top = 1.886614!
Me.TextBox2.Width = 0.5295277!
'
'txtGesColli
'
Me.txtGesColli.Height = 0.1574803!
Me.txtGesColli.Left = 5.889763!
Me.txtGesColli.Name = "txtGesColli"
Me.txtGesColli.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtGesColli.Text = "0 Pk"
Me.txtGesColli.Top = 1.403937!
Me.txtGesColli.Width = 1.628347!
'
'TextBox6
'
Me.TextBox6.Height = 0.1574803!
Me.TextBox6.Left = 5.057481!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
Me.TextBox6.Text = "Colli:"
Me.TextBox6.Top = 1.403937!
Me.TextBox6.Width = 1.12441!
'
'txtGesGewicht
'
Me.txtGesGewicht.Height = 0.1574803!
Me.txtGesGewicht.Left = 5.889369!
Me.txtGesGewicht.Name = "txtGesGewicht"
Me.txtGesGewicht.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtGesGewicht.Text = "0.000 kg"
Me.txtGesGewicht.Top = 1.561417!
Me.txtGesGewicht.Width = 1.628347!
'
'TextBox10
'
Me.TextBox10.Height = 0.1574803!
Me.TextBox10.Left = 5.057481!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
Me.TextBox10.Text = "Gewicht:"
Me.TextBox10.Top = 1.561417!
Me.TextBox10.Width = 1.12441!
'
'txtEmail
'
Me.txtEmail.Height = 0.1574803!
@@ -663,10 +624,68 @@ Partial Public Class rptLaufzettelZollDE
Me.txtFirmeninfo_rontoffice.Visible = False
Me.txtFirmeninfo_rontoffice.Width = 6.67165!
'
'txtFirma_UNISPED
'
Me.txtFirma_UNISPED.Height = 0.5000001!
Me.txtFirma_UNISPED.Left = 0.4775591!
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!
'
'txtGesColli
'
Me.txtGesColli.Height = 0.1574803!
Me.txtGesColli.Left = 5.874016!
Me.txtGesColli.Name = "txtGesColli"
Me.txtGesColli.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtGesColli.Text = "0 Pk"
Me.txtGesColli.Top = 0.08700788!
Me.txtGesColli.Visible = False
Me.txtGesColli.Width = 1.628347!
'
'TextBox6
'
Me.TextBox6.Height = 0.1574803!
Me.TextBox6.Left = 5.789766!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
Me.TextBox6.Text = "Colli:"
Me.TextBox6.Top = 0.08700788!
Me.TextBox6.Visible = False
Me.TextBox6.Width = 1.12441!
'
'txtGesGewicht
'
Me.txtGesGewicht.Height = 0.1574803!
Me.txtGesGewicht.Left = 5.873622!
Me.txtGesGewicht.Name = "txtGesGewicht"
Me.txtGesGewicht.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" &
"-char-set: 1"
Me.txtGesGewicht.Text = "0.000 kg"
Me.txtGesGewicht.Top = 0.2444879!
Me.txtGesGewicht.Visible = False
Me.txtGesGewicht.Width = 1.628347!
'
'TextBox10
'
Me.TextBox10.Height = 0.1574803!
Me.TextBox10.Left = 5.789766!
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1"
Me.TextBox10.Text = "Gewicht:"
Me.TextBox10.Top = 0.2444879!
Me.TextBox10.Visible = False
Me.TextBox10.Width = 1.12441!
'
'ReportFooter1
'
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3})
Me.ReportFooter1.Height = 0.5570866!
Me.ReportFooter1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.TextBox3, Me.txtGesColli, Me.TextBox6, Me.txtGesGewicht, Me.TextBox10, Me.Line1})
Me.ReportFooter1.Height = 0.5570867!
Me.ReportFooter1.KeepTogether = True
Me.ReportFooter1.Name = "ReportFooter1"
Me.ReportFooter1.PrintAtBottom = True
@@ -674,13 +693,26 @@ Partial Public Class rptLaufzettelZollDE
'TextBox3
'
Me.TextBox3.Height = 0.4700788!
Me.TextBox3.Left = 0.4314961!
Me.TextBox3.Left = 0.3937008!
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1"
Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessene Frist von mehr als 8 Ta" &
"gen - EU Auslieferung." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vielen Dank!"
Me.TextBox3.Top = 0.08700788!
Me.TextBox3.Width = 7.18504!
Me.TextBox3.Width = 4.43504!
'
'Line1
'
Me.Line1.Height = 0.00008203834!
Me.Line1.Left = 0.3937008!
Me.Line1.LineWeight = 1.0!
Me.Line1.Name = "Line1"
Me.Line1.Top = 0.02362205!
Me.Line1.Width = 7.086612!
Me.Line1.X1 = 0.3937008!
Me.Line1.X2 = 7.480313!
Me.Line1.Y1 = 0.02362205!
Me.Line1.Y2 = 0.02370409!
'
'rptLaufzettelZollDE
'
@@ -735,13 +767,14 @@ Partial Public Class rptLaufzettelZollDE
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirma_UNISPED, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesColli, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesGewicht, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtDW, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFirmeninfo_rontoffice, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
@@ -750,8 +783,6 @@ Partial Public Class rptLaufzettelZollDE
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
Public WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
Private WithEvents TextBox8 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmaInfo_VERAG As GrapeCity.ActiveReports.SectionReportModel.TextBox
@@ -799,4 +830,8 @@ Partial Public Class rptLaufzettelZollDE
Public WithEvents SubReport As GrapeCity.ActiveReports.SectionReportModel.SubReport
Private WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmeninfo_rontoffice As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
Public WithEvents txtFirma_UNISPED As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

18
SDL/Formulare/KDFormulare/FormulareBaukasten/rptVerpflichtungserklaerung.Designer.vb generated
View File

@@ -80,6 +80,7 @@ Partial Public Class rptVerpflichtungserklaerung
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()
@@ -117,6 +118,7 @@ Partial Public Class rptVerpflichtungserklaerung
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
@@ -255,7 +257,7 @@ Partial Public Class rptVerpflichtungserklaerung
'
'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.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"
'
@@ -767,6 +769,18 @@ Partial Public Class rptVerpflichtungserklaerung
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
@@ -825,6 +839,7 @@ Partial Public Class rptVerpflichtungserklaerung
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
@@ -889,4 +904,5 @@ Partial Public Class rptVerpflichtungserklaerung
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

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

@@ -37,10 +37,11 @@ Partial Public Class rptVerpflichtungserklaerungNeu
Me.Shape19 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox28 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox29 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
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()
@@ -54,6 +55,7 @@ Partial Public Class rptVerpflichtungserklaerungNeu
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
@@ -73,7 +75,7 @@ Partial Public Class rptVerpflichtungserklaerungNeu
'
'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.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"
'
@@ -245,11 +247,6 @@ Partial Public Class rptVerpflichtungserklaerungNeu
Me.TextBox29.Top = 3.827!
Me.TextBox29.Width = 6.99291!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'txtFirmaInfo_ATILLA
'
Me.txtFirmaInfo_ATILLA.Height = 0.5000001!
@@ -285,6 +282,23 @@ Partial Public Class rptVerpflichtungserklaerungNeu
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
@@ -319,6 +333,7 @@ Partial Public Class rptVerpflichtungserklaerungNeu
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
@@ -344,4 +359,5 @@ Partial Public Class rptVerpflichtungserklaerungNeu
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

126
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.Designer.vb generated
View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class subRptLaufzettelZollDE_ATA
Partial Public Class subRptLaufzettelZollDE_ATZOLL
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
@@ -15,98 +15,30 @@ Partial Public Class subRptLaufzettelZollDE_ATA
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_ATA))
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptLaufzettelZollDE_ATZOLL))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
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.txtATZOLL = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.lblSieheFremdspedition = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
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.txtATZOLL, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition})
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtATZOLL})
Me.Detail.Height = 0.4483269!
Me.Detail.Name = "Detail"
'
'picBarcodeATAMRN
'txtATZOLL
'
Me.picBarcodeATAMRN.Height = 0.2188976!
Me.picBarcodeATAMRN.HyperLink = Nothing
Me.picBarcodeATAMRN.ImageData = 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.1669292!
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 = 2.167323!
'
'txtColli
'
Me.txtColli.Height = 0.1669291!
Me.txtColli.Left = 3.755906!
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.4437006!
'
'TextBox1
'
Me.TextBox1.Height = 0.1669292!
Me.TextBox1.Left = 3.561024!
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!
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
'
@@ -118,19 +50,7 @@ Partial Public Class subRptLaufzettelZollDE_ATA
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'lblSieheFremdspedition
'
Me.lblSieheFremdspedition.Height = 0.1669292!
Me.lblSieheFremdspedition.Left = 3.561024!
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.2188977!
Me.lblSieheFremdspedition.Visible = False
Me.lblSieheFremdspedition.Width = 1.667323!
'
'subRptLaufzettelZollDE_ATA
'subRptLaufzettelZollDE_ATZOLL
'
Me.MasterReport = False
Me.PageSettings.PaperHeight = 11.0!
@@ -145,23 +65,11 @@ Partial Public Class subRptLaufzettelZollDE_ATA
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.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.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
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 txtATZOLL As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

62
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATA.vb
View File

@@ -1,66 +1,6 @@
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
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ATA = ATA
Me.Fremdspedition = Fremdspedition
' 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.Visible = False
txtATAMRN.Text = ""
If Fremdspedition Then
lblSieheFremdspedition.Visible = True
TextBox3.Visible = False
TextBox1.Visible = False
txtColli.Visible = False
txtGewicht.Visible = False
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
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7)
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6)
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.Visible = True
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"
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
Public Class subRptLaufzettelZollDE_ATZOLL
End Class

199
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.Designer.vb generated Normal file
View File

@@ -0,0 +1,199 @@
<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()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(subRptLaufzettelZollDE_ATA))
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
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.txtVorpapier = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.GroupHeader1 = New GrapeCity.ActiveReports.SectionReportModel.GroupHeader()
Me.GroupFooter1 = New GrapeCity.ActiveReports.SectionReportModel.GroupFooter()
Me.txtATNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
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.txtVorpapier, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtATNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.picBarcodeATAMRN, Me.txtATAMRN, Me.txtColli, Me.TextBox1, Me.txtGewicht, Me.TextBox3, Me.lblSieheFremdspedition, Me.txtVorpapier, Me.txtATNr})
Me.Detail.Height = 0.4483269!
Me.Detail.Name = "Detail"
'
'picBarcodeATAMRN
'
Me.picBarcodeATAMRN.Height = 0.2188976!
Me.picBarcodeATAMRN.HyperLink = Nothing
Me.picBarcodeATAMRN.ImageData = 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.1669292!
Me.lblSieheFremdspedition.Left = 3.561024!
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.2188977!
Me.lblSieheFremdspedition.Visible = False
Me.lblSieheFremdspedition.Width = 1.667323!
'
'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!
'
'GroupHeader1
'
Me.GroupHeader1.Height = 0!
Me.GroupHeader1.Name = "GroupHeader1"
'
'GroupFooter1
'
Me.GroupFooter1.Height = 0!
Me.GroupFooter1.Name = "GroupFooter1"
'
'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!
'
'subRptLaufzettelZollDE_ATA
'
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.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.txtVorpapier, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtATNr, 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
End Class

126
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.resx Normal file
View File

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

89
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb Normal file
View File

@@ -0,0 +1,89 @@
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
Sub New(ATA As List(Of VERAG_PROG_ALLGEMEIN.cSendHandling), Fremdspedition As Boolean, Vorpapier As String)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
Me.ATA = ATA
Me.Fremdspedition = Fremdspedition
Me.Vorpapier = Vorpapier
' 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
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
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
Dim ACD = ""
Dim monat = ""
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 ATAMRN.Length > 13 Then monat = ATAMRN.Substring(11, 2)
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
Else
txtATNr.Visible = False
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 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"
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

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlVerpflichtungserklärungFahrer.vb
View File

@@ -219,7 +219,7 @@
DyPos = CInt(SENDUNG.AbfertigungsNr.ToString.Substring(2))
End If
Dim dt As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select [ncts_Id] FROM [tblDakosy_NCTSOut] WHERE (ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & DyPos & "' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & DyPos & "') AND ncts_Status between '50' and '60' ORDER BY ncts_ObjectName", "FMZOLL")
Dim dt As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("Select [ncts_Id] FROM [tblDakosy_NCTSOut] WHERE (ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & SENDUNG.AbfertigungsNr & "%' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "/" & DyPos & "' OR ncts_ObjectName LIKE '%" & SENDUNG.FilialenNr & "-" & DyPos & "' OR ncts_ObjectName='" & SENDUNG.tblSnd_DakosyRef & "') AND ncts_Status between '50' and '60' ORDER BY ncts_ObjectName", "FMZOLL")
' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
For Each row As DataRow In dt.Rows
Dim DY As New DAKOSY_Worker.cDakosyNCTSOut(row("ncts_Id"))

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb
View File

@@ -100,11 +100,13 @@
If cboTEXT._value = "DE_FISKAL" Then
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Französisch", "FR"))
cboSprache.changeItem("EN")
Else
cboSprache.Items.Clear()
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
'cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Französisch", "FR")) ??
cboSprache.changeItem("DE")
End If

4
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_Verbringsungsnachweis.vb
View File

@@ -75,14 +75,12 @@
If KdNR > 0 Then txtFirma.KdNr = KdNR
If VBNr > 0 Then txtvbnr.Text = VBNr
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal (direkt)", "AT_FISKAL_DIREKT"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal (indirekt)", "AT_FISKAL_INDIREKT"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal (GB)", "DE_FISKAL_GB"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal (FR)", "DE_FISKAL_FR"))
cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal (TR)", "DE_FISKAL_TR"))
End Sub

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_AT.vb
View File

@@ -62,7 +62,7 @@
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_AT_EV.vb
View File

@@ -62,7 +62,7 @@
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_AT_Fiskal.vb
View File

@@ -62,7 +62,7 @@
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE.vb
View File

@@ -62,7 +62,7 @@
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click

2
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE_Fiskal.vb
View File

@@ -62,7 +62,7 @@
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = If(ADRESSE.Ansprechpartner, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click

110
SDL/Formulare/KDFormulare/frmFormulare.Designer.vb generated
View File

@@ -38,6 +38,9 @@ Partial Class frmFormulare
Me.pnlBody = New System.Windows.Forms.Panel()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.pnlBottom = New System.Windows.Forms.Panel()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.cboTextKonserveSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label5 = New System.Windows.Forms.Label()
@@ -47,9 +50,6 @@ Partial Class frmFormulare
Me.btnPrint = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btn = New System.Windows.Forms.Button()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
Me.pnlBody.SuspendLayout()
Me.pnlBottom.SuspendLayout()
@@ -231,57 +231,97 @@ Partial Class frmFormulare
Me.pnlBottom.Size = New System.Drawing.Size(1326, 61)
Me.pnlBottom.TabIndex = 2
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(889, 31)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(48, 13)
Me.Label8.TabIndex = 31
Me.Label8.Text = "Drucker:"
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(943, 7)
Me.txtEmail.MaxLength = 200
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(191, 20)
Me.txtEmail.TabIndex = 30
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(889, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(39, 13)
Me.Label7.TabIndex = 29
Me.Label7.Text = "E-Mail:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(553, 10)
Me.Label6.Location = New System.Drawing.Point(516, 12)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(75, 13)
Me.Label6.TabIndex = 1
Me.Label6.Text = "Textkonserve:"
Me.Label6.Visible = False
'
'cboTextKonserveSprache
'
Me.cboTextKonserveSprache._allowedValuesFreiText = Nothing
Me.cboTextKonserveSprache._allowFreiText = False
Me.cboTextKonserveSprache._value = ""
Me.cboTextKonserveSprache.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboTextKonserveSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTextKonserveSprache.DropDownWidth = 300
Me.cboTextKonserveSprache.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.cboTextKonserveSprache.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTextKonserveSprache.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboTextKonserveSprache.FormattingEnabled = True
Me.cboTextKonserveSprache.Location = New System.Drawing.Point(647, 28)
Me.cboTextKonserveSprache.Location = New System.Drawing.Point(610, 31)
Me.cboTextKonserveSprache.Name = "cboTextKonserveSprache"
Me.cboTextKonserveSprache.Size = New System.Drawing.Size(191, 21)
Me.cboTextKonserveSprache.Size = New System.Drawing.Size(191, 24)
Me.cboTextKonserveSprache.TabIndex = 4
Me.cboTextKonserveSprache.Visible = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(553, 31)
Me.Label5.Location = New System.Drawing.Point(516, 36)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(50, 13)
Me.Label5.TabIndex = 3
Me.Label5.Text = "Sprache:"
Me.Label5.Visible = False
'
'cboTextkonserve
'
Me.cboTextkonserve._allowedValuesFreiText = Nothing
Me.cboTextkonserve._allowFreiText = False
Me.cboTextkonserve._value = ""
Me.cboTextkonserve.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboTextkonserve.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTextkonserve.DropDownWidth = 300
Me.cboTextkonserve.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.cboTextkonserve.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboTextkonserve.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboTextkonserve.FormattingEnabled = True
Me.cboTextkonserve.Location = New System.Drawing.Point(647, 7)
Me.cboTextkonserve.Location = New System.Drawing.Point(610, 7)
Me.cboTextkonserve.Name = "cboTextkonserve"
Me.cboTextkonserve.Size = New System.Drawing.Size(191, 21)
Me.cboTextkonserve.Size = New System.Drawing.Size(191, 24)
Me.cboTextkonserve.TabIndex = 2
Me.cboTextkonserve.Visible = False
'
'txtErr
'
@@ -350,46 +390,6 @@ Partial Class frmFormulare
Me.btn.TabIndex = 6
Me.btn.UseVisualStyleBackColor = True
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(943, 7)
Me.txtEmail.MaxLength = 200
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(191, 20)
Me.txtEmail.TabIndex = 30
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(889, 10)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(39, 13)
Me.Label7.TabIndex = 29
Me.Label7.Text = "E-Mail:"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(889, 31)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(48, 13)
Me.Label8.TabIndex = 31
Me.Label8.Text = "Drucker:"
'
'frmFormulare
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

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

@@ -518,6 +518,9 @@ Public Class frmFormulare
AddHandler Me.ShownFIN, Sub()
c.initAVISOID()
End Sub
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Dispoliste"
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
MyFlowLayoutPanel1.Controls.Add(c)
End If
@@ -940,9 +943,11 @@ Public Class frmFormulare
Mail = outl.CreateItem(0)
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon
'End If
If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & tX.txt_text & cFakturierung.getSignature() & "</div>"
Mail.Subject = tX.txt_betreff.Replace("%LKW%", "")
End If
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
Mail.Display()
@@ -1446,6 +1451,7 @@ Public Class FormularManagerNEU
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("%Firma%", "VERAG Spedition AG")
rpt.TextBox3.Text = rpt.TextBox3.Text.Replace("%Firma%", "VERAG Spedition AG")
@@ -1640,11 +1646,15 @@ Public Class FormularManagerNEU
Return LaufzettelZollDE(AVISO, SENDUNG_LIST)
End Function
Shared gesColli As Double = 0
Shared gesGewicht As Double = 0
Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim tmpPath = ""
Try
Dim rpt As New rptLaufzettelZollDE
gesColli = 0
gesGewicht = 0
rpt.txtLKW.Text = AVISO.LKW_Nr
rpt.txtLKWId.Text = AVISO.AvisoID
@@ -1671,6 +1681,13 @@ Public Class FormularManagerNEU
rpt.txtFirmaInfo_IMEX.Visible = True
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
rpt.TextBox32.Text = "Avisierer (*):"
rpt.txtFraechter.Text = AVISO.Auftraggeber
Case "UNISPED"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirma_UNISPED.Visible = True
rpt.picVERAG.Image = My.Resources.Unisped_logo
rpt.TextBox32.Text = "Avisierer (*):"
rpt.txtFraechter.Text = AVISO.Auftraggeber
' rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
@@ -1696,6 +1713,7 @@ Public Class FormularManagerNEU
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
rpt.TextBox32.Text = "Avisierer (*):"
rpt.txtFraechter.Text = AVISO.Auftraggeber
@@ -1715,23 +1733,22 @@ Public Class FormularManagerNEU
' tb.Columns.Add("AbfArt", GetType(String))
Dim cnt = 1
Dim gesColli As Double = 0
Dim gesGewicht As Double = 0
For Each s In SENDUNGEN
'Ä tb.Rows.Add(cnt, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID)
tb.Rows.Add(SENDUNGEN.IndexOf(s))
If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli
If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
'If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli
'If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
cnt += 1
Next
Try
rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
'Try
' rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
' rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
'Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
'End Try
'MsgBox(tb.Rows.Count)
@@ -1741,6 +1758,12 @@ Public Class FormularManagerNEU
AddHandler rpt.Detail.Format, Sub()
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ZOLLANMELDUNG.getDataByBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef) ' Die weiteren Daten werden hier geladen
rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1
@@ -1749,7 +1772,7 @@ Public Class FormularManagerNEU
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
Else
rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
rpt.txtPosNr.Text &= vbnewline & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
rpt.txtPosNr.Text &= vbNewLine & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(SND.FilialenNr, False)
If SND.tblSnd_Abfertigungsart_ID > 0 Then
Select Case SND.tblSnd_Abfertigungsart_ID
@@ -1805,26 +1828,55 @@ Public Class FormularManagerNEU
End If
End If
If ATAMRN_List.Count = 0 Then
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
If ATAMRN_List.Count = 0 Then 'kein Handling
'Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
'ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString)
Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
'Dim Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
'Dim Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
'ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef)
Dim Colli As Double = 0
Dim Gewicht As Double = 0
If ZOLLANMELDUNG.num_Colli > 0 Then
Colli = ZOLLANMELDUNG.num_Colli
Else
Colli = CDbl(If(IsNumeric(If(SND.tblSnd_Colli, "")), SND.tblSnd_Colli, 0))
End If
If ZOLLANMELDUNG.num_Gewicht > 0 Then
Gewicht = CDbl(ZOLLANMELDUNG.num_Gewicht)
Else
Gewicht = CDbl(If(IsNumeric(If(SND.tblSnd_Gewicht, "")), SND.tblSnd_Gewicht, 0))
End If
ATAMRN_List.Add(New VERAG_PROG_ALLGEMEIN.cSendHandling(-1, "", ATAMRN, Colli, Gewicht))
End If
If isATZollWithoutUeT(SND, ZOLLANMELDUNG) Then ' prüfen, ob AT-Zoll ohne Ü-T1 --> dann kein Eintrag!
' rpt.Detail.Visible = False
Dim SubRpt As New subRptLaufzettelZollDE_ATZOLL
rpt.SubReport.Report = SubRpt
Else
rpt.Detail.Visible = True
For Each a In ATAMRN_List
gesColli += a.sndhdg_colli
gesGewicht += a.sndhdg_gewicht
Next
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition, ZOLLANMELDUNG.Vorpapier)
rpt.SubReport.Report = SubRpt
Dim SubRpt As New subRptLaufzettelZollDE_ATA(ATAMRN_List, SND.tblSnd_Fremdspedition)
rpt.SubReport.Report = SubRpt
End If
rpt.txtAnmerkung.Visible = False
'If ATAMRN_List.Count = 0 Then
'If ATAMRN_List.Count = 0 Then
' rpt.txtAnmerkung.Text = ""
' Dim colliGewicht = ""
@@ -1836,16 +1888,37 @@ Public Class FormularManagerNEU
' rpt.txtAnmerkung.Visible = False
'End If
End Sub
AddHandler rpt.ReportFooter1.Format, Sub()
Try
rpt.txtGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
rpt.txtGesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
AddHandler rpt.Detail.BeforePrint, Sub()
rpt.Shape8.Height = rpt.Detail.Height
rpt.Shape10.Height = rpt.Detail.Height
rpt.Shape11.Height = rpt.Detail.Height
End Sub
'AddHandler rpt.ReportFooter1.Format, Sub()
' End Sub
If printReportElsePDF Then 'NUR DRUCK!!
rpt.Run(False)
@@ -1876,6 +1949,21 @@ Public Class FormularManagerNEU
End Try
Return tmpPath
End Function
Shared Function isATZollWithoutUeT(SND As VERAG_PROG_ALLGEMEIN.cSendungen, ZOLLANMELDUNG As DAKOSY_Worker.cZollsysteme_Aktenbeschriftung) As Boolean
If SND IsNot Nothing And ZOLLANMELDUNG IsNot Nothing Then
Select Case SND.tblSnd_Abfertigungsart_ID
Case 38, 26 'AT
If Not ZOLLANMELDUNG.isUeT1 Then
Return True
End If
End Select
End If
Return False
End Function
Shared Function DispoListe(usrCntl As usrCntlDispoliste) As String
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
@@ -2089,6 +2177,10 @@ Public Class FormularManagerNEU
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_ATILLA.Visible = True
rpt.picVERAG.Image = My.Resources.Atilla
Case "UNISPED"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirma_UNISPED.Visible = True
rpt.picVERAG.Image = My.Resources.Unisped_logo
Case "FRONTOFFICE"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmeninfo_rontoffice.Visible = True
@@ -2098,6 +2190,7 @@ Public Class FormularManagerNEU
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
End Select
@@ -2271,6 +2364,7 @@ Public Class FormularManagerNEU
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
@@ -3176,27 +3270,77 @@ Public Class FormularManagerNEU
MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
MailHTMLText_STBFA = "<div style=""font-family:Calibri, Arial"">"
Mail_Subject_STBFA = "Meldung innergemeinschaftlicher Erwerb" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender<br>"
MailHTMLText_STBFA &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Freundlichen Grüßen<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
Select Case usrCntl.cboSprache._value
Case "DE", ""
Mail_Subject_STBFA = "Meldung innergemeinschaftlicher Erwerb" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Sehr geehrte Damen und Herren,<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender<br>"
MailHTMLText_STBFA &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Freundlichen Grüßen<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
Case "EN"
Mail_Subject_STBFA = "Notification of intra-Community acquisition" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Dear Sir Or Madam!<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "We would like to inform you, that we made the customs clearance and subsequent intra-Community supply of goods for the company above-mentioned. (Code 4200). <br>"
MailHTMLText_STBFA &= "The documents are attached.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "This intra-Community acquisition has to be reported to the tax office.<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Best regards <br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
Case "FR"
Mail_Subject_STBFA = "Notification of intra-Community acquisition" & posNr
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
MailHTMLText_STBFA &= "</table></b>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Mesdames, Messieurs!<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Nous vous informons par la présente que, pour la société nommée ci-dessus, nous avons effectué un dédouanement suivi de la livraison intercommunautaire (procédure 4200) selon les documents ci-joints. <br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Ceci doit être déclaré au service fiscal comme ""acquisition intercommunautaire"".<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "Cordialemen <br>"
MailHTMLText_STBFA &= "<br>"
MailHTMLText_STBFA &= "<br>"
End Select
Select Case usrCntl.cboTEXT._value
@@ -3282,7 +3426,7 @@ Public Class FormularManagerNEU
Case "DE_FISKAL"
bool_StbFA = True
Select Case usrCntl.cboSprache._value
Case "EN"
Case "EN", "FR"
Mail_Subject = "intra-community acquisition" & posNr
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
@@ -3303,6 +3447,7 @@ Public Class FormularManagerNEU
MailHTMLText &= cFakturierung.getSignature("EN", 99)
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99)
End Select
Case "EV"
@@ -3380,13 +3525,25 @@ Public Class FormularManagerNEU
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Bitte den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse senden:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= "IMEX Customs Service GmbH<br>"
MailHTMLText &= "Suben 15</b><br>"
MailHTMLText &= "AT-4975 Suben </b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
Case "AT_FISKAL_INDIREKT"
@@ -3401,14 +3558,24 @@ Public Class FormularManagerNEU
MailHTMLText &= "<br>"
MailHTMLText &= "<b>Wir bitten Sie den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse zu senden:<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn<br>"
MailHTMLText &= "</b><br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= "IMEX Customs Service GmbH<br>"
MailHTMLText &= "Suben 15</b><br>"
MailHTMLText &= "AT-4975 Suben </b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= "Verag Customs Service GmbH<br>"
MailHTMLText &= "Postfach 1013<br>"
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 11, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
Case "DE_FISKAL_GB"
@@ -3430,9 +3597,12 @@ Public Class FormularManagerNEU
MailHTMLText &= "Thanks in advance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("GB", 99)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= cFakturierung.getSignature("GB", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
Case "DE_FISKAL_FR"
@@ -3454,7 +3624,32 @@ Public Class FormularManagerNEU
MailHTMLText &= "Merci d'avance.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("FR", 99)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= cFakturierung.getSignature("FR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
Case "DE_FISKAL_TR"
Mail_Subject = "Teslimat Belgesini | Nr.: " & VBNW_Nr
MailHTMLText &= "Merhabalar,<br>"
MailHTMLText &= "<br>"
MailHTMLText &= "Ekte göndermis oldugum Teslimat Belgesini, yükü teslim aldiginiza dair onaylayip, <br>"
MailHTMLText &= "bana ACILEN geri gönderiniz lütfen.<br>"
MailHTMLText &= "<br>"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case Else
MailHTMLText &= cFakturierung.getSignature("TR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
End Select
End Select
@@ -3721,7 +3916,10 @@ Public Class FormularManagerNEU
'cVorauskasse.vk_BH_Sachbearbeiter = usrCntl.XXXXXXX
'cVorauskasse.vk_BH_Bemerkung = usrCntl.XXXXXXX
'cVorauskasse.vk_BH_DatumGeldeingang = usrCntl.XXXXXXX
If usrCntl.SENDUNG IsNot Nothing Then
cVorauskasse.vk_SendungId = usrCntl.SENDUNG.tblSnd_SendungID
cVorauskasse.vk_AvisoId = usrCntl.SENDUNG.tblSnd_AvisoID
End If
usrCntl.getValues(cVorauskasse)
If cVorauskasse.SAVE Then
@@ -3729,8 +3927,8 @@ Public Class FormularManagerNEU
usrCntl.lblCRsaved.ForeColor = Color.Green
' VSQL.doSQL("UPDATE Kunden SET Bonität='" & cVorauskasse.ba_BonitaetsIndex & "', Bonitätsdatum='" & cVorauskasse.ba_Datum & "', Höchstkredit=" & If(cVorauskasse.ba_Hoechstkredit Is Nothing, "null", "'" & cVorauskasse.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cVorauskasse.ba_KundenNr & "'", "FMZOLL")
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13)
cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13,,, cVorauskasse.vk_VermerkId)
cVorauskasse.SAVE() 'VermerkId speichern
Return True
Else
Return False