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
2021-06-24 23:05:48 +02:00
parent e625acc609
commit f2f992547d
134 changed files with 72921 additions and 2011 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/Formulare/KDFormulare/FormulareBaukasten/rptDispoHaftListe.Designer.vb generated
View File

@@ -482,7 +482,7 @@ Partial Public Class rptDispoHaftListe
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
"ddo-char-set: 1"
Me.TextBox8.Text = "Abfertigung / Yapilan Islem" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungen / Gönderici"
Me.TextBox8.Text = "Abfertigungsart / Zoll-Agent" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Yapilan Islem / Gümrükleme Ajentasi"
Me.TextBox8.Top = 4.001182!
Me.TextBox8.Width = 1.130709!
'
@@ -545,7 +545,7 @@ Partial Public Class rptDispoHaftListe
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " &
"ddo-char-set: 1"
Me.TextBox4.Text = "Absender" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anmerkung"
Me.TextBox4.Text = "Absender / Gönderici" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungsdaten / Mal bilgileri"
Me.TextBox4.Top = 4.001182!
Me.TextBox4.Width = 1.511024!
'
@@ -802,7 +802,7 @@ Partial Public Class rptDispoHaftListe
Me.PageSettings.Margins.Top = 0.1968504!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.981886!
Me.PrintWidth = 7.780266!
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.PageHeader)
Me.Sections.Add(Me.Detail)

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

@@ -69,6 +69,7 @@ Partial Public Class rptLaufzettelZollDE
Me.txtFirmeninfo_rontoffice = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFirma_UNISPED = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.SubReport1 = New GrapeCity.ActiveReports.SectionReportModel.SubReport()
Me.TextBox7 = 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()
@@ -113,6 +114,7 @@ Partial Public Class rptLaufzettelZollDE
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.TextBox7, 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()
@@ -315,7 +317,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.txtEmail, Me.txtDW, Me.txtFirmeninfo_rontoffice, Me.txtFirma_UNISPED, Me.SubReport1})
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.ReportHeader1.Height = 2.227953!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -348,7 +350,7 @@ Partial Public Class rptLaufzettelZollDE
Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG"
Me.txtFirmaInfo_VERAG.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +4" &
"3 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " eu@verag.ag"
"3 77 11 / 27 88 quickstop@verag.ag"
Me.txtFirmaInfo_VERAG.Top = 0!
Me.txtFirmaInfo_VERAG.Width = 6.67165!
'
@@ -662,6 +664,18 @@ Partial Public Class rptLaufzettelZollDE
Me.SubReport1.Visible = False
Me.SubReport1.Width = 7.197245!
'
'TextBox7
'
Me.TextBox7.Height = 0.5000001!
Me.TextBox7.Left = 0.4775591!
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204"
Me.TextBox7.Text = "D 92726 Waidhaus " & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +49 9652 81450 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Am Autohof 3" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +" &
"43 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & " waidhaus@verag.ag"
Me.TextBox7.Top = 0!
Me.TextBox7.Visible = False
Me.TextBox7.Width = 6.67165!
'
'txtGesColli
'
Me.txtGesColli.Height = 0.1574803!
@@ -798,6 +812,7 @@ Partial Public Class rptLaufzettelZollDE
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.TextBox7, 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()
@@ -855,7 +870,6 @@ Partial Public Class rptLaufzettelZollDE
Public WithEvents txtEmail As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtDW As GrapeCity.ActiveReports.SectionReportModel.TextBox
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
@@ -863,4 +877,6 @@ Partial Public Class rptLaufzettelZollDE
Public WithEvents txtFirma_UNISPED As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport1 As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents txtPos As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

21
SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb generated
View File

@@ -46,6 +46,7 @@ Partial Public Class rptPreislisten
Me.TextBox4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -75,6 +76,7 @@ Partial Public Class rptPreislisten
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -275,7 +277,7 @@ Partial Public Class rptPreislisten
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6})
Me.ReportHeader1.Height = 2.176378!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -312,6 +314,7 @@ Partial Public Class rptPreislisten
Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43" &
" 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & " eu@verag.ag"
Me.txtFirmaInfo_VERAG.Top = 0!
Me.txtFirmaInfo_VERAG.Visible = False
Me.txtFirmaInfo_VERAG.Width = 3.592911!
'
'picVERAG
@@ -405,6 +408,18 @@ Partial Public Class rptPreislisten
Me.Line9.Y1 = 0.6181103!
Me.Line9.Y2 = 0.6181923!
'
'TextBox6
'
Me.TextBox6.Height = 0.5000001!
Me.TextBox6.Left = 3.138189!
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
Me.TextBox6.Text = "DE-83435 Bad Reichenhall " & Global.Microsoft.VisualBasic.ChrW(9) & " +49 8651 99624911" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Reichenhalle" &
"rstrasse 62 import@ambarlog.com "
Me.TextBox6.Top = 0!
Me.TextBox6.Visible = False
Me.TextBox6.Width = 3.592911!
'
'ReportFooter1
'
Me.ReportFooter1.CanShrink = True
@@ -425,7 +440,7 @@ Partial Public Class rptPreislisten
'
'Line
'
Me.Line.Height = 0.0001809597!
Me.Line.Height = 0.0001811981!
Me.Line.Left = 0.02362209!
Me.Line.LineWeight = 1.0!
Me.Line.Name = "Line"
@@ -584,6 +599,7 @@ Partial Public Class rptPreislisten
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).EndInit()
@@ -635,4 +651,5 @@ Partial Public Class rptPreislisten
Public WithEvents txtFirmaInfo_IMEX As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

52
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -94,6 +94,12 @@
Case "ATILLA"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition GmbH", "ATILLA"))
cboFirma.changeItem("ATILLA")
Case "AMBAR"
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR"))
cboFirma.changeItem("AMBAR")
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
Case Else
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
@@ -156,7 +162,7 @@
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
@@ -256,7 +262,45 @@
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
cboFirma.changeItem("AG")
End Select
Case "AMBAR"
Select Case MyComboBox1._value
Case "VZ"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
Case "T1"
DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1
Case "EUST"
DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
DataGridView.Rows.Add(cnt, "440", "P.P./Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
End Select
@@ -279,7 +323,7 @@
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
@@ -384,7 +428,7 @@
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))

3
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb generated
View File

@@ -118,6 +118,7 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(254, 110)
Me.txtAdresse2.MaxLength = 60
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
@@ -139,6 +140,7 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(254, 91)
Me.txtAdresse1.MaxLength = 40
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
@@ -227,6 +229,7 @@ Partial Class usrcntlVerzollungsunterlagen
Me.txtAdresse3._WaehrungZeichen = True
Me.txtAdresse3.ForeColor = System.Drawing.Color.Black
Me.txtAdresse3.Location = New System.Drawing.Point(254, 129)
Me.txtAdresse3.MaxLength = 60
Me.txtAdresse3.MaxLineLength = -1
Me.txtAdresse3.MaxLines_Warning = ""
Me.txtAdresse3.MaxLines_Warning_Label = Nothing

10
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.vb
View File

@@ -116,6 +116,7 @@
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR"))
cboFirma.changeItem("AG")
' cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
@@ -124,8 +125,9 @@
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : cboFiliale._allowedValuesFreiText = {"5501"}
Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"}
Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"}
Case "UNISPED" : cboFiliale._allowedValuesFreiText = {"5601"} : cboFirma.changeItem("UNISPED") : cboFirma.Enabled = False
Case "ATILLA" : cboFiliale._allowedValuesFreiText = {"4801"} : cboFirma.changeItem("ATILLA") : cboFirma.Enabled = False
Case "AMBAR" : cboFiliale._allowedValuesFreiText = {"5701"} : cboFirma.changeItem("AMBAR") : cboFirma.Enabled = False
End Select
txtBearbeiter.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, "")
@@ -253,6 +255,9 @@
cPostversand.post_ReferenzPaketdienst = txtRefNr.Text
cPostversand.post_RgEmpfaenger_KdNr = kdRgEmpfaenger.KdNr
cPostversand.post_RgEmpfaenger_Name = kdRgEmpfaenger.Text
If cPostversand.post_RgEmpfaenger_Name.length > 40 Then
cPostversand.post_RgEmpfaenger_Name = cPostversand.post_RgEmpfaenger_Name.ToString.Substring(0, 40)
End If
cPostversand.post_KdAuftrNrAvisierer = Me.txtAvisiererAuftragsNr.Text
'VK.vk_Rolle = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(ROLLE)
@@ -421,6 +426,7 @@
Select Case cboFirma._value
Case "IMEX" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value
Case "UNISPED" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value
Case "AMBAR" : txtFirma._UseFIRMA = cboFirma._value : KdInAuftrag._UseFIRMA = cboFirma._value
Case Else : txtFirma._UseFIRMA = "VERAG" : KdInAuftrag._UseFIRMA = "VERAG"
End Select
End Sub

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

@@ -17,6 +17,8 @@ Public Class frmFormulare
Event ShownFIN()
Dim KdNr As Integer = 0
Public printed As Boolean = False
Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
Sub New()
@@ -440,8 +442,12 @@ Public Class frmFormulare
c = New usrcntlVorauskasse
Else
c = New usrcntlVorauskasse(param)
If param.Length > 3 Then AVISO = param(3)
End If
' Dim c As New usrcntlVorauskasse(param(0))
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Vorauskasse"
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
@@ -985,8 +991,25 @@ Public Class frmFormulare
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & tX.txt_text & cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig) & "</div>"
Mail.Subject = tX.txt_betreff.Replace("%LKW%", "")
Dim TextHTML = ""
TextHTML &= tX.txt_text
TextHTML &= cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig, True, True)
TextHTML &= "<br>"
TextHTML &= "Mit freundlichen Grüßen<br>"
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
TextHTML &= "<br>"
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
Mail.Subject = tX.txt_betreff
If AVISO IsNot Nothing Then
Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr)
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
End If
Mail.Subject = Mail.Subject.Replace("%LKW%", "")
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "")
End If
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
@@ -1815,7 +1838,13 @@ Public Class FormularManagerNEU
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "SBG" : ort = "Bad Reichenhall"
Case "WAI" : ort = "Waidhaus"
Case "WAI"
ort = "Waidhaus"
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.TextBox7.Visible = True
If AVISO.ImEx = "EXPORT" Then rpt.TextBox3.Visible = False
rpt.picVERAG.Image = My.Resources.Verag_Spedition_GMBH_Logo
Case "NKD" : ort = "Nickelsdorf"
Case "NEU" : ort = "Neuhaus am Inn"
End Select
@@ -3399,12 +3428,21 @@ Public Class FormularManagerNEU
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_IMEX.Visible = True
rpt.TextBox6.Visible = False
Case "AMBAR"
rpt.txtFirmenkennung.Text = "Ambar Logistic Services GmbH"
rpt.picVERAG.Image = My.Resources.ambar_simple
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_IMEX.Visible = False
rpt.TextBox6.Visible = True
Case "ATILLA"
rpt.txtFirmenkennung.Text = "ATILLA Spedition GmbH"
rpt.picVERAG.Image = My.Resources.Atilla
rpt.txtFirmaInfo_VERAG.Visible = False
rpt.txtFirmaInfo_ATILLA.Visible = True
Case Else 'Nix
rpt.TextBox6.Visible = False
Case Else 'Nix
rpt.txtFirmaInfo_VERAG.Visible = True
End Select
rpt.DataSource = dt
@@ -3650,6 +3688,7 @@ Public Class FormularManagerNEU
nameDispo = "VerzollungsunterlagenAG2"
Select Case usrCntl.cboFirma._value
Case "IMEX" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "IMEX"
Case "AMBAR" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "AMBAR"
Case "UNISPED" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "UNISPED"
Case "CS" : nameDispo = "VerzollungsunterlagenCS"
Case Else : nameDispo = "VerzollungsunterlagenAG2"
@@ -3799,6 +3838,7 @@ Public Class FormularManagerNEU
Select Case usrCntl.cboFiliale._value
Case "5501" : Firma_idI_Sig_AT = 20 : Firma_idI_Sig_DE = 20 : Firma_idI_Sig_EV = 20 : SonderUID_AT = "DE295575575" : SonderUID_DE = "DE295575575" : Postfach_DE = "IMEX CUSTOMS SERVICE GMBH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
Case "5601" : Firma_idI_Sig_AT = 23 : Firma_idI_Sig_DE = 22 : Firma_idI_Sig_EV = 23 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "UNISPED Speditions GmbH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
Case "5701" : Firma_idI_Sig_AT = 24 : Firma_idI_Sig_DE = 24 : Firma_idI_Sig_EV = 24 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "AMBAR Logistic Services GmbH<br>Reichenhallerstraße 62<br>D 83435 BAD REICHENHALL<br>"
Case Else : Firma_idI_Sig_AT = 11 : Firma_idI_Sig_DE = 99 : Firma_idI_Sig_EV = 11 ' VERAG
End Select
@@ -4068,6 +4108,14 @@ Public Class FormularManagerNEU
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case "AMBAR"
MailHTMLText &= "Ambar Logistic Services GmbH <br>"
MailHTMLText &= "Reichenhallerstrasse 62</b><br>"
MailHTMLText &= "DE-83435 Bad Reichenhall </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>"
@@ -4101,6 +4149,14 @@ Public Class FormularManagerNEU
MailHTMLText &= "Vielen Dank im Voraus.<br>"
MailHTMLText &= "<br>"
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case "AMBAR"
MailHTMLText &= "Ambar Logistic Services GmbH <br>"
MailHTMLText &= "Reichenhallerstrasse 62</b><br>"
MailHTMLText &= "DE-83435 Bad Reichenhall </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>"
@@ -4134,6 +4190,8 @@ Public Class FormularManagerNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case "AMBAR"
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
@@ -4161,6 +4219,8 @@ Public Class FormularManagerNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case "AMBAR"
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
@@ -4180,6 +4240,8 @@ Public Class FormularManagerNEU
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
Case "AMBAR"
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
@@ -4303,8 +4365,8 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 216, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 265, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso", listTowrite)
'End Select
' End If
@@ -4313,6 +4375,29 @@ Public Class FormularManagerNEU
End Function
Shared Function zumZOLL_AVISO_WAI(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim top = 0
' If AVISO.Grenzstelle = "WAI" Then
' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 55, 23, 65, 8, "bold", 15, , iTextSharp.text.Element.ALIGN_CENTER))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 150, 32, 45, 10, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))
'If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
'If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "zumZoll_Aviso_WAI", listTowrite)
'End Select
' End If
' End If
Return ""
End Function
Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager