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