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

Creditsafe_API

Browse Source
This commit is contained in:
d.breimaier
2023-03-28 16:48:20 +02:00
parent 5d088a3d87
commit ad459e0765
22 changed files with 1479 additions and 494 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb generated
View File

@@ -35,8 +35,6 @@ Partial Class frmTIR
Me.Label5 = New System.Windows.Forms.Label()
Me.btnDelete = New System.Windows.Forms.Button()
Me.lblGedruckt = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtSuchbegriff = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.cboPrinter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -44,6 +42,8 @@ Partial Class frmTIR
Me.Label6 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.UsrCntlTIR1 = New SDL.usrcntlTIR()
Me.lblAnzahl = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
@@ -134,12 +134,12 @@ Partial Class frmTIR
'Panel3
'
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel3.Controls.Add(Me.lblAnzahl)
Me.Panel3.Controls.Add(Me.Label4)
Me.Panel3.Controls.Add(Me.cboAbriss777)
Me.Panel3.Controls.Add(Me.Label5)
Me.Panel3.Controls.Add(Me.btnDelete)
Me.Panel3.Controls.Add(Me.lblGedruckt)
Me.Panel3.Controls.Add(Me.Label2)
Me.Panel3.Controls.Add(Me.txtSuchbegriff)
Me.Panel3.Controls.Add(Me.Button2)
Me.Panel3.Controls.Add(Me.Label1)
Me.Panel3.Controls.Add(Me.cboPrinter)
@@ -196,42 +196,6 @@ Partial Class frmTIR
Me.lblGedruckt.Text = "gedruckt"
Me.lblGedruckt.Visible = False
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(320, 7)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(137, 13)
Me.Label2.TabIndex = 8
Me.Label2.Text = "Speichern als (Suchbegriff):"
Me.Label2.Visible = False
'
'txtSuchbegriff
'
Me.txtSuchbegriff._DateTimeOnly = False
Me.txtSuchbegriff._numbersOnly = False
Me.txtSuchbegriff._numbersOnlyKommastellen = ""
Me.txtSuchbegriff._numbersOnlyTrennzeichen = True
Me.txtSuchbegriff._Prozent = False
Me.txtSuchbegriff._ShortDateNew = False
Me.txtSuchbegriff._ShortDateOnly = False
Me.txtSuchbegriff._TimeOnly = False
Me.txtSuchbegriff._TimeOnly_Seconds = False
Me.txtSuchbegriff._value = Nothing
Me.txtSuchbegriff._Waehrung = False
Me.txtSuchbegriff._WaehrungZeichen = True
Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black
Me.txtSuchbegriff.Location = New System.Drawing.Point(464, 4)
Me.txtSuchbegriff.MaxLength = 80
Me.txtSuchbegriff.MaxLineLength = -1
Me.txtSuchbegriff.MaxLines_Warning = ""
Me.txtSuchbegriff.MaxLines_Warning_Label = Nothing
Me.txtSuchbegriff.Name = "txtSuchbegriff"
Me.txtSuchbegriff.Size = New System.Drawing.Size(243, 20)
Me.txtSuchbegriff.TabIndex = 9
Me.txtSuchbegriff.Visible = False
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -269,7 +233,7 @@ Partial Class frmTIR
'
Me.lblEigenmasse.AutoSize = True
Me.lblEigenmasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblEigenmasse.Location = New System.Drawing.Point(117, 4)
Me.lblEigenmasse.Location = New System.Drawing.Point(642, 4)
Me.lblEigenmasse.Name = "lblEigenmasse"
Me.lblEigenmasse.Size = New System.Drawing.Size(32, 13)
Me.lblEigenmasse.TabIndex = 5
@@ -278,7 +242,7 @@ Partial Class frmTIR
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(15, 4)
Me.Label6.Location = New System.Drawing.Point(540, 4)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(87, 13)
Me.Label6.TabIndex = 4
@@ -307,6 +271,25 @@ Partial Class frmTIR
Me.UsrCntlTIR1.Size = New System.Drawing.Size(885, 735)
Me.UsrCntlTIR1.TabIndex = 0
'
'lblAnzahl
'
Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAnzahl.Location = New System.Drawing.Point(185, 4)
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(14, 13)
Me.lblAnzahl.TabIndex = 17
Me.lblAnzahl.Text = "0"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(95, 4)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(67, 13)
Me.Label4.TabIndex = 16
Me.Label4.Text = "Summe Colli:"
'
'frmTIR
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -342,12 +325,12 @@ Partial Class frmTIR
Friend WithEvents Label5 As Label
Friend WithEvents btnDelete As Button
Friend WithEvents lblGedruckt As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtSuchbegriff As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Button2 As Button
Friend WithEvents Label1 As Label
Friend WithEvents cboPrinter As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblEigenmasse As Label
Friend WithEvents Label6 As Label
Friend WithEvents Button1 As Button
Friend WithEvents lblAnzahl As Label
Friend WithEvents Label4 As Label
End Class

124
SDL/Formulare/CARNET-TIR/frmTIR.vb
View File

@@ -1,7 +1,14 @@
Imports GrapeCity.ActiveReports
Imports System.Windows.Media
Imports com.sun.jndi.toolkit
Imports com.sun.org.apache.bcel.internal.classfile
Imports com.sun.org.apache.xml.internal.utils
Imports GrapeCity.ActiveReports
Imports VERAG_PROG_ALLGEMEIN
Public Class frmTIR
Dim dt As DataTable
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -23,6 +30,59 @@ Public Class frmTIR
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17", "17"))
cboAbriss777.changeItem("12")
Dim sql_einheiten As String = "SELECT [Code] ,[Code] + ', ' + [Description] as Verpackungsart FROM tbl_DY_ZollDE_C0017_PackstueckeVerpackungsarten where (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())"
Dim dt_einheiten As DataTable
dt_einheiten = SQL.loadDgvBySql(sql_einheiten, "FMZOLL", 100, True)
Dim sql_zollstellen As String = "SELECT [Description] FROM tbl_DY_ZollDE_C0141_Zollstellen where (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE())"
Dim dt_zollstellen As DataTable
dt_zollstellen = SQL.loadDgvBySql(sql_zollstellen, "FMZOLL", 100, True)
dt_zollstellen.Columns.Add("")
Dim sql_laender As String = "Select [Description] FROM tbl_DY_ZollDE_C0008_LaenderFull where (StartDate Is null Or StartDate< GETDATE()) And (EndDate Is null Or EndDate> GETDATE())"
Dim dt_laender As DataTable
dt_laender = SQL.loadDgvBySql(sql_laender, "FMZOLL", 100, True)
dt_laender.Columns.Add("")
Dim combo As DataGridViewComboBoxColumn = New DataGridViewComboBoxColumn()
combo.DataSource = dt_einheiten
combo.DataPropertyName = "Einheit"
combo.ValueMember = dt_einheiten.Columns("Verpackungsart").ToString
combo.DisplayMember = dt_einheiten.Columns("Verpackungsart").ToString
combo.Name = "Einheit"
combo.Width = 50
combo.DropDownWidth = 300
UsrCntlTIR1.dgvGegenstände.Columns.Insert(2, combo)
For Each c As Control In UsrCntlTIR1.Controls
If c.Name.ToLower.Contains("cbxabgangszollstelle") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then
Dim cbx = DirectCast(c, MyComboBox)
cbx.AutoCompleteSource = AutoCompleteSource.ListItems
cbx.AutoCompleteMode = AutoCompleteMode.Suggest
cbx.Items.AddRange(dt_zollstellen.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray())
End If
If c.Name.ToLower.Contains("cbxabfahrtsland") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then
Dim cbx = DirectCast(c, MyComboBox)
cbx.AutoCompleteSource = AutoCompleteSource.ListItems
cbx.AutoCompleteMode = AutoCompleteMode.Suggest
cbx.Items.AddRange(dt_laender.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray())
End If
If c.Name.ToLower.Contains("cbxankunftsland") And c.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyComboBox" Then
Dim cbx = DirectCast(c, MyComboBox)
cbx.AutoCompleteSource = AutoCompleteSource.ListItems
cbx.AutoCompleteMode = AutoCompleteMode.Suggest
cbx.Items.AddRange(dt_laender.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray())
End If
Next
cProgramFunctions.initDrucker(cboPrinter, "TALLY")
End Sub
@@ -33,16 +93,16 @@ Public Class frmTIR
Dim anzahl_778 As Integer = 0
rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.txtAbgangszollstelle1.Text, "")
rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.txtAbgangszollstelle2.Text, "")
rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.txtAbgangszollstelle3.Text, "")
rpt.txtAbgangszollstelle4.Text = If(UsrCntlTIR1.txtAbgangszollstelle4.Text, "")
rpt.txtAbgangszollstelle5.Text = If(UsrCntlTIR1.txtAbgangszollstelle5.Text, "")
rpt.txtAbgangszollstelle6.Text = If(UsrCntlTIR1.txtAbgangszollstelle6.Text, "")
rpt.txtAbgangszollstelle7.Text = If(UsrCntlTIR1.txtAbgangszollstelle7.Text, "")
rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.cbxAbgangszollstelle1.Text, "")
rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.cbxAbgangszollstelle2.Text, "")
rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.cbxAbgangszollstelle3.Text, "")
rpt.txtAbgangszollstelle4.Text = If(UsrCntlTIR1.cbxAbgangszollstelle4.Text, "")
rpt.txtAbgangszollstelle5.Text = If(UsrCntlTIR1.cbxAbgangszollstelle5.Text, "")
rpt.txtAbgangszollstelle6.Text = If(UsrCntlTIR1.cbxAbgangszollstelle6.Text, "")
rpt.txtAbgangszollstelle7.Text = If(UsrCntlTIR1.cbxAbgangszollstelle7.Text, "")
rpt.txtAbfahrsland.Text = If(UsrCntlTIR1.cbxAbfahrtsland.Text, "")
rpt.txtAbfahrsland.Text = If(UsrCntlTIR1.txtAbfahrtsland.Text, "")
rpt.txtBestimmungsland.Text = If(UsrCntlTIR1.txtBestimmungsland.Text, "")
rpt.txtFahrzeug.Text = If(UsrCntlTIR1.txtFahrzeug1.Text, "")
rpt.txtZusDok.Text = If(UsrCntlTIR1.txtZusDocument.Text, "")
@@ -76,8 +136,8 @@ Public Class frmTIR
rpt.txtMain1.Text &= If(r.Cells(0).Value <> "", r.Cells(0).Value & vbNewLine, "")
rpt.txtMain2.Text &= If(r.Cells(1).Value <> "", r.Cells(1).Value & " ", "")
rpt.txtMain2.Text &= If(r.Cells(2).Value <> "", r.Cells(2).Value & vbNewLine, "")
rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(3).Value & vbNewLine, "")
rpt.txtMain2.Text &= If(r.Cells(2).Value <> "", r.Cells(3).Value & vbNewLine, "")
rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(4).Value & vbNewLine, "")
End If
@@ -106,11 +166,17 @@ Public Class frmTIR
c.Text = ""
End If
If TypeOf c Is DataGridView Then
Dim dgv As DataGridView = c
dgv.Rows.Clear()
For i As Integer = 0 To 10
dgv.Rows.Add("", "", "", "")
dgv.Rows.Add("", "", "", "", "", "")
Next
End If
@@ -122,16 +188,16 @@ Public Class frmTIR
Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles btnLaden.Click
UsrCntlTIR1.txtAbgangszollstelle1.Text = "Testtext1"
UsrCntlTIR1.txtAbgangszollstelle2.Text = "Testtext2"
UsrCntlTIR1.txtAbgangszollstelle3.Text = "Testtext3"
UsrCntlTIR1.txtAbgangszollstelle4.Text = "Testtext4"
UsrCntlTIR1.txtAbgangszollstelle5.Text = "Testtext5"
UsrCntlTIR1.txtAbgangszollstelle6.Text = "Testtext6"
UsrCntlTIR1.txtAbgangszollstelle7.Text = "Testtext7"
UsrCntlTIR1.cbxAbgangszollstelle1.Text = "Testtext1"
UsrCntlTIR1.cbxAbgangszollstelle2.Text = "Testtext2"
UsrCntlTIR1.cbxAbgangszollstelle3.Text = "Testtext3"
UsrCntlTIR1.cbxAbgangszollstelle4.Text = "Testtext4"
UsrCntlTIR1.cbxAbgangszollstelle5.Text = "Testtext5"
UsrCntlTIR1.cbxAbgangszollstelle6.Text = "Testtext6"
UsrCntlTIR1.cbxAbgangszollstelle7.Text = "Testtext7"
UsrCntlTIR1.cbxAbfahrtsland.Text = "TestABFL"
UsrCntlTIR1.txtAbfahrtsland.Text = "TestABFL"
UsrCntlTIR1.txtBestimmungsland.Text = "TestBESTL"
UsrCntlTIR1.txtFahrzeug1.Text = "XXXXXXX" & vbNewLine & "Fahrezeug 1"
UsrCntlTIR1.txtZusDocument.Text = "Testtext1"
@@ -169,18 +235,24 @@ Public Class frmTIR
Private Sub UsrCntlTIR1_SomethChanged() Handles UsrCntlTIR1.DGVchanged
Dim count As Double = 0
Dim gewicht As Double = 0
Dim colli As Double = 0
For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
If r IsNot Nothing And IsNumeric(r.Cells(3).Value) Then
count += CDbl(r.Cells(3).Value)
If r IsNot Nothing And IsNumeric(r.Cells(4).Value) Then
gewicht += CDbl(r.Cells(4).Value)
End If
If r IsNot Nothing And IsNumeric(r.Cells(1).Value) Then
colli += CDbl(r.Cells(1).Value)
End If
Next
lblEigenmasse.Text = count & " kg"
lblEigenmasse.Text = gewicht & " kg"
lblAnzahl.Text = colli
End Sub
End Class

83
SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb generated
View File

@@ -45,8 +45,9 @@ Partial Public Class rptTIR
Me.txtGesamtpaketName5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.txtSumme = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -76,6 +77,7 @@ Partial Public Class rptTIR
CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
@@ -85,7 +87,7 @@ Partial Public Class rptTIR
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6, Me.txtSumme})
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtAbgangszollstelle4, Me.txtAbgangszollstelle5, Me.txtAbgangszollstelle6, Me.txtAbgangszollstelle7, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtGesamtpaket7, Me.txtGesamtpaketName7, Me.txtGesamtpaket4, Me.txtGesamtpaketName4, Me.txtGesamtpaket5, Me.txtGesamtpaketName5, Me.txtGesamtpaket6, Me.txtGesamtpaketName6, Me.txtSumme, Me.TextBox1})
Me.ReportHeader1.Height = 11.42519!
Me.ReportHeader1.Name = "ReportHeader1"
'
@@ -97,7 +99,6 @@ Partial Public Class rptTIR
Me.txtAbfahrsland.Height = 0.431!
Me.txtAbfahrsland.Left = 1.987!
Me.txtAbfahrsland.Name = "txtAbfahrsland"
Me.txtAbfahrsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbfahrsland.Style = "color: Black"
Me.txtAbfahrsland.SummaryGroup = ""
Me.txtAbfahrsland.Text = "Abfahrsland"
@@ -112,7 +113,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaket1.Height = 0.1968504!
Me.txtGesamtpaket1.Left = 0.479!
Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
Me.txtGesamtpaket1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket1.SummaryGroup = ""
Me.txtGesamtpaket1.Text = "Gesamtpaket1"
@@ -124,10 +124,9 @@ Partial Public Class rptTIR
Me.txtMain1.CanGrow = False
Me.txtMain1.DataField = ""
Me.txtMain1.DistinctField = ""
Me.txtMain1.Height = 3.889!
Me.txtMain1.Height = 3.743!
Me.txtMain1.Left = 0.479!
Me.txtMain1.Name = "txtMain1"
Me.txtMain1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtMain1.Style = "color: Black"
Me.txtMain1.SummaryGroup = ""
Me.txtMain1.Text = "Main1"
@@ -142,7 +141,6 @@ Partial Public Class rptTIR
Me.txtAbgangszollstelle1.Height = 0.1574803!
Me.txtAbgangszollstelle1.Left = 0.479!
Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
Me.txtAbgangszollstelle1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle1.SummaryGroup = ""
Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1"
@@ -157,7 +155,6 @@ Partial Public Class rptTIR
Me.txtAbgangszollstelle2.Height = 0.1574803!
Me.txtAbgangszollstelle2.Left = 0.479!
Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
Me.txtAbgangszollstelle2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle2.SummaryGroup = ""
Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2"
@@ -172,7 +169,6 @@ Partial Public Class rptTIR
Me.txtAbgangszollstelle3.Height = 0.1574803!
Me.txtAbgangszollstelle3.Left = 0.479!
Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
Me.txtAbgangszollstelle3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle3.SummaryGroup = ""
Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3"
@@ -187,7 +183,6 @@ Partial Public Class rptTIR
Me.txtAbgangszollstelle4.Height = 0.1574803!
Me.txtAbgangszollstelle4.Left = 0.479!
Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
Me.txtAbgangszollstelle4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle4.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle4.SummaryGroup = ""
Me.txtAbgangszollstelle4.Text = "Abgangszollstelle4"
@@ -202,7 +197,6 @@ Partial Public Class rptTIR
Me.txtAbgangszollstelle5.Height = 0.1574803!
Me.txtAbgangszollstelle5.Left = 0.479!
Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
Me.txtAbgangszollstelle5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle5.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle5.SummaryGroup = ""
Me.txtAbgangszollstelle5.Text = "Abgangszollstelle5"
@@ -217,7 +211,6 @@ Partial Public Class rptTIR
Me.txtAbgangszollstelle6.Height = 0.1574803!
Me.txtAbgangszollstelle6.Left = 0.479!
Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
Me.txtAbgangszollstelle6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle6.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle6.SummaryGroup = ""
Me.txtAbgangszollstelle6.Text = "Abgangszollstelle6"
@@ -232,7 +225,6 @@ Partial Public Class rptTIR
Me.txtAbgangszollstelle7.Height = 0.1574803!
Me.txtAbgangszollstelle7.Left = 0.479!
Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
Me.txtAbgangszollstelle7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtAbgangszollstelle7.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle7.SummaryGroup = ""
Me.txtAbgangszollstelle7.Text = "Abgangszollstelle7"
@@ -247,7 +239,6 @@ Partial Public Class rptTIR
Me.txtBestimmungsland.Height = 0.4309999!
Me.txtBestimmungsland.Left = 3.079!
Me.txtBestimmungsland.Name = "txtBestimmungsland"
Me.txtBestimmungsland.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtBestimmungsland.Style = "color: Black"
Me.txtBestimmungsland.SummaryGroup = ""
Me.txtBestimmungsland.Text = "Bestimmungsland"
@@ -262,7 +253,6 @@ Partial Public Class rptTIR
Me.txtFahrzeug.Height = 0.4849999!
Me.txtFahrzeug.Left = 1.987!
Me.txtFahrzeug.Name = "txtFahrzeug"
Me.txtFahrzeug.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtFahrzeug.Style = "color: Black"
Me.txtFahrzeug.SummaryGroup = ""
Me.txtFahrzeug.Text = "Fahrzeug"
@@ -277,7 +267,6 @@ Partial Public Class rptTIR
Me.txtZusDok.Height = 0.6260002!
Me.txtZusDok.Left = 4.588!
Me.txtZusDok.Name = "txtZusDok"
Me.txtZusDok.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtZusDok.Style = "color: Black"
Me.txtZusDok.SummaryGroup = ""
Me.txtZusDok.Text = "ZusDok"
@@ -289,10 +278,9 @@ Partial Public Class rptTIR
Me.txtMain2.CanGrow = False
Me.txtMain2.DataField = ""
Me.txtMain2.DistinctField = ""
Me.txtMain2.Height = 3.889!
Me.txtMain2.Height = 3.743!
Me.txtMain2.Left = 1.894!
Me.txtMain2.Name = "txtMain2"
Me.txtMain2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtMain2.Style = "color: Black"
Me.txtMain2.SummaryGroup = ""
Me.txtMain2.Text = "Main2"
@@ -304,10 +292,9 @@ Partial Public Class rptTIR
Me.txtMain3.CanGrow = False
Me.txtMain3.DataField = ""
Me.txtMain3.DistinctField = ""
Me.txtMain3.Height = 3.889!
Me.txtMain3.Height = 3.743!
Me.txtMain3.Left = 5.455!
Me.txtMain3.Name = "txtMain3"
Me.txtMain3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtMain3.Style = "color: Black"
Me.txtMain3.SummaryGroup = ""
Me.txtMain3.Text = "Main3"
@@ -322,7 +309,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaketName1.Height = 0.1968504!
Me.txtGesamtpaketName1.Left = 1.894!
Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
Me.txtGesamtpaketName1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName1.SummaryGroup = ""
Me.txtGesamtpaketName1.Text = "GesamtpaketName1"
@@ -337,7 +323,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaket2.Height = 0.1968504!
Me.txtGesamtpaket2.Left = 0.4790001!
Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
Me.txtGesamtpaket2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket2.SummaryGroup = ""
Me.txtGesamtpaket2.Text = "Gesamtpaket2"
@@ -352,7 +337,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaketName2.Height = 0.1968504!
Me.txtGesamtpaketName2.Left = 1.894!
Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
Me.txtGesamtpaketName2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName2.SummaryGroup = ""
Me.txtGesamtpaketName2.Text = "GesamtpaketName2"
@@ -367,7 +351,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaket3.Height = 0.1968504!
Me.txtGesamtpaket3.Left = 0.4790001!
Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
Me.txtGesamtpaket3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket3.SummaryGroup = ""
Me.txtGesamtpaket3.Text = "Gesamtpaket3"
@@ -382,7 +365,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaketName3.Height = 0.1968504!
Me.txtGesamtpaketName3.Left = 1.894!
Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
Me.txtGesamtpaketName3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName3.SummaryGroup = ""
Me.txtGesamtpaketName3.Text = "GesamtpaketName3"
@@ -397,7 +379,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaket7.Height = 0.1968504!
Me.txtGesamtpaket7.Left = 2.572!
Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
Me.txtGesamtpaket7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket7.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket7.SummaryGroup = ""
Me.txtGesamtpaket7.Text = "Gesamtpaket7"
@@ -412,7 +393,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaketName7.Height = 0.1968508!
Me.txtGesamtpaketName7.Left = 3.944!
Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
Me.txtGesamtpaketName7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName7.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName7.SummaryGroup = ""
Me.txtGesamtpaketName7.Text = "GesamtpaketName7"
@@ -427,7 +407,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaket4.Height = 0.1968504!
Me.txtGesamtpaket4.Left = 2.572!
Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
Me.txtGesamtpaket4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket4.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket4.SummaryGroup = ""
Me.txtGesamtpaket4.Text = "Gesamtpaket4"
@@ -442,7 +421,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaketName4.Height = 0.1968504!
Me.txtGesamtpaketName4.Left = 3.944!
Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
Me.txtGesamtpaketName4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName4.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName4.SummaryGroup = ""
Me.txtGesamtpaketName4.Text = "GesamtpaketName4"
@@ -457,7 +435,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaket5.Height = 0.1968504!
Me.txtGesamtpaket5.Left = 2.572!
Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
Me.txtGesamtpaket5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket5.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket5.SummaryGroup = ""
Me.txtGesamtpaket5.Text = "Gesamtpaket5"
@@ -472,7 +449,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaketName5.Height = 0.1968504!
Me.txtGesamtpaketName5.Left = 3.944!
Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
Me.txtGesamtpaketName5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName5.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName5.SummaryGroup = ""
Me.txtGesamtpaketName5.Text = "GesamtpaketName5"
@@ -487,7 +463,6 @@ Partial Public Class rptTIR
Me.txtGesamtpaket6.Height = 0.1968504!
Me.txtGesamtpaket6.Left = 2.572!
Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
Me.txtGesamtpaket6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaket6.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket6.SummaryGroup = ""
Me.txtGesamtpaket6.Text = "Gesamtpaket6"
@@ -502,18 +477,12 @@ Partial Public Class rptTIR
Me.txtGesamtpaketName6.Height = 0.1968504!
Me.txtGesamtpaketName6.Left = 3.944!
Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
Me.txtGesamtpaketName6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtGesamtpaketName6.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName6.SummaryGroup = ""
Me.txtGesamtpaketName6.Text = "GesamtpaketName6"
Me.txtGesamtpaketName6.Top = 8.399!
Me.txtGesamtpaketName6.Width = 0.4770003!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'txtSumme
'
Me.txtSumme.CanGrow = False
@@ -521,13 +490,30 @@ Partial Public Class rptTIR
Me.txtSumme.Height = 0.2330003!
Me.txtSumme.Left = 5.455!
Me.txtSumme.Name = "txtSumme"
Me.txtSumme.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx)
Me.txtSumme.Style = "color: Black; font-weight: bold; text-decoration: underline"
Me.txtSumme.SummaryGroup = ""
Me.txtSumme.Text = "Summe"
Me.txtSumme.Top = 7.399!
Me.txtSumme.Text = "Summe Gewicht"
Me.txtSumme.Top = 7.253!
Me.txtSumme.Width = 1.28!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.DistinctField = ""
Me.TextBox1.Height = 0.2330003!
Me.TextBox1.Left = 1.894!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "color: Black; font-weight: bold; text-decoration: underline"
Me.TextBox1.SummaryGroup = ""
Me.TextBox1.Text = "Summe Anzahl"
Me.TextBox1.Top = 7.253!
Me.TextBox1.Width = 1.28!
'
'rptTIR
'
Me.PageSettings.Margins.Bottom = 0!
@@ -537,15 +523,16 @@ Partial Public Class rptTIR
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
Me.Script = "public void ActiveReport_ReportStart()" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "{" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "}" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Sections.Add(Me.ReportHeader1)
Me.Sections.Add(Me.Detail)
Me.Sections.Add(Me.ReportFooter1)
Me.StyleSheet.Add(CType(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"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" &
"lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule))
Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule))
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.txtAbfahrsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -575,6 +562,7 @@ Partial Public Class rptTIR
CType(Me.txtGesamtpaket6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
@@ -609,4 +597,5 @@ Partial Public Class rptTIR
Public WithEvents txtGesamtpaket6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents TextBox1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

330
SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb generated
View File

@@ -23,19 +23,10 @@ Partial Class usrcntlTIR
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlTIR))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.txtAbfahrtsland = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtBestimmungsland = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtFahrzeug1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtZusDocument = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtAbgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtAbgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtAbgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtAbgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtAbgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtAbgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtAbgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaket1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaket2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaket3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
@@ -51,6 +42,16 @@ Partial Class usrcntlTIR
Me.txtGesamtpaketName5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaketName4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.dgvGegenstände = New System.Windows.Forms.DataGridView()
Me.cbxAbgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAbgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAbgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAbfahrtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAnkunftsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAbgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAbgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAbgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxAbgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Zollamt = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -68,34 +69,6 @@ Partial Class usrcntlTIR
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'txtAbfahrtsland
'
Me.txtAbfahrtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAbfahrtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbfahrtsland.ForeColor = System.Drawing.Color.Black
Me.txtAbfahrtsland.Location = New System.Drawing.Point(207, 173)
Me.txtAbfahrtsland.MaxLineLength = 40
Me.txtAbfahrtsland.MaxLines_Warning = "4"
Me.txtAbfahrtsland.MaxLines_Warning_Label = Nothing
Me.txtAbfahrtsland.Name = "txtAbfahrtsland"
Me.txtAbfahrtsland.Size = New System.Drawing.Size(126, 65)
Me.txtAbfahrtsland.TabIndex = 499
Me.txtAbfahrtsland.Text = ""
'
'txtBestimmungsland
'
Me.txtBestimmungsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtBestimmungsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtBestimmungsland.ForeColor = System.Drawing.Color.Black
Me.txtBestimmungsland.Location = New System.Drawing.Point(339, 173)
Me.txtBestimmungsland.MaxLineLength = 40
Me.txtBestimmungsland.MaxLines_Warning = "4"
Me.txtBestimmungsland.MaxLines_Warning_Label = Nothing
Me.txtBestimmungsland.Name = "txtBestimmungsland"
Me.txtBestimmungsland.Size = New System.Drawing.Size(126, 65)
Me.txtBestimmungsland.TabIndex = 500
Me.txtBestimmungsland.Text = ""
'
'txtFahrzeug1
'
Me.txtFahrzeug1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -124,104 +97,6 @@ Partial Class usrcntlTIR
Me.txtZusDocument.TabIndex = 502
Me.txtZusDocument.Text = ""
'
'txtAbgangszollstelle3
'
Me.txtAbgangszollstelle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAbgangszollstelle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbgangszollstelle3.ForeColor = System.Drawing.Color.Black
Me.txtAbgangszollstelle3.Location = New System.Drawing.Point(27, 160)
Me.txtAbgangszollstelle3.MaxLineLength = 40
Me.txtAbgangszollstelle3.MaxLines_Warning = "4"
Me.txtAbgangszollstelle3.MaxLines_Warning_Label = Nothing
Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
Me.txtAbgangszollstelle3.Size = New System.Drawing.Size(167, 28)
Me.txtAbgangszollstelle3.TabIndex = 504
Me.txtAbgangszollstelle3.Text = ""
'
'txtAbgangszollstelle2
'
Me.txtAbgangszollstelle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAbgangszollstelle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbgangszollstelle2.ForeColor = System.Drawing.Color.Black
Me.txtAbgangszollstelle2.Location = New System.Drawing.Point(27, 122)
Me.txtAbgangszollstelle2.MaxLineLength = 40
Me.txtAbgangszollstelle2.MaxLines_Warning = "4"
Me.txtAbgangszollstelle2.MaxLines_Warning_Label = Nothing
Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
Me.txtAbgangszollstelle2.Size = New System.Drawing.Size(167, 28)
Me.txtAbgangszollstelle2.TabIndex = 505
Me.txtAbgangszollstelle2.Text = ""
'
'txtAbgangszollstelle1
'
Me.txtAbgangszollstelle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAbgangszollstelle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbgangszollstelle1.ForeColor = System.Drawing.Color.Black
Me.txtAbgangszollstelle1.Location = New System.Drawing.Point(27, 88)
Me.txtAbgangszollstelle1.MaxLineLength = 40
Me.txtAbgangszollstelle1.MaxLines_Warning = "4"
Me.txtAbgangszollstelle1.MaxLines_Warning_Label = Nothing
Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
Me.txtAbgangszollstelle1.Size = New System.Drawing.Size(167, 28)
Me.txtAbgangszollstelle1.TabIndex = 506
Me.txtAbgangszollstelle1.Text = ""
'
'txtAbgangszollstelle4
'
Me.txtAbgangszollstelle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAbgangszollstelle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbgangszollstelle4.ForeColor = System.Drawing.Color.Black
Me.txtAbgangszollstelle4.Location = New System.Drawing.Point(27, 194)
Me.txtAbgangszollstelle4.MaxLineLength = 40
Me.txtAbgangszollstelle4.MaxLines_Warning = "4"
Me.txtAbgangszollstelle4.MaxLines_Warning_Label = Nothing
Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
Me.txtAbgangszollstelle4.Size = New System.Drawing.Size(167, 28)
Me.txtAbgangszollstelle4.TabIndex = 507
Me.txtAbgangszollstelle4.Text = ""
'
'txtAbgangszollstelle5
'
Me.txtAbgangszollstelle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAbgangszollstelle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbgangszollstelle5.ForeColor = System.Drawing.Color.Black
Me.txtAbgangszollstelle5.Location = New System.Drawing.Point(27, 228)
Me.txtAbgangszollstelle5.MaxLineLength = 40
Me.txtAbgangszollstelle5.MaxLines_Warning = "4"
Me.txtAbgangszollstelle5.MaxLines_Warning_Label = Nothing
Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
Me.txtAbgangszollstelle5.Size = New System.Drawing.Size(167, 28)
Me.txtAbgangszollstelle5.TabIndex = 508
Me.txtAbgangszollstelle5.Text = ""
'
'txtAbgangszollstelle6
'
Me.txtAbgangszollstelle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAbgangszollstelle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbgangszollstelle6.ForeColor = System.Drawing.Color.Black
Me.txtAbgangszollstelle6.Location = New System.Drawing.Point(27, 264)
Me.txtAbgangszollstelle6.MaxLineLength = 40
Me.txtAbgangszollstelle6.MaxLines_Warning = "4"
Me.txtAbgangszollstelle6.MaxLines_Warning_Label = Nothing
Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
Me.txtAbgangszollstelle6.Size = New System.Drawing.Size(167, 28)
Me.txtAbgangszollstelle6.TabIndex = 509
Me.txtAbgangszollstelle6.Text = ""
'
'txtAbgangszollstelle7
'
Me.txtAbgangszollstelle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtAbgangszollstelle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtAbgangszollstelle7.ForeColor = System.Drawing.Color.Black
Me.txtAbgangszollstelle7.Location = New System.Drawing.Point(27, 298)
Me.txtAbgangszollstelle7.MaxLineLength = 40
Me.txtAbgangszollstelle7.MaxLines_Warning = "4"
Me.txtAbgangszollstelle7.MaxLines_Warning_Label = Nothing
Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
Me.txtAbgangszollstelle7.Size = New System.Drawing.Size(167, 28)
Me.txtAbgangszollstelle7.TabIndex = 510
Me.txtAbgangszollstelle7.Text = ""
'
'txtGesamtpaket1
'
Me.txtGesamtpaket1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
@@ -425,15 +300,15 @@ Partial Class usrcntlTIR
Me.dgvGegenstände.AllowUserToOrderColumns = True
Me.dgvGegenstände.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.dgvGegenstände.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGegenstände.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4})
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvGegenstände.DefaultCellStyle = DataGridViewCellStyle1
Me.dgvGegenstände.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.Zollamt, Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4})
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvGegenstände.DefaultCellStyle = DataGridViewCellStyle6
Me.dgvGegenstände.GridColor = System.Drawing.Color.Gray
Me.dgvGegenstände.Location = New System.Drawing.Point(17, 387)
Me.dgvGegenstände.Name = "dgvGegenstände"
@@ -442,9 +317,130 @@ Partial Class usrcntlTIR
Me.dgvGegenstände.Size = New System.Drawing.Size(673, 450)
Me.dgvGegenstände.TabIndex = 525
'
'cbxAbgangszollstelle1
'
Me.cbxAbgangszollstelle1._allowedValuesFreiText = Nothing
Me.cbxAbgangszollstelle1._allowFreiText = False
Me.cbxAbgangszollstelle1._value = ""
Me.cbxAbgangszollstelle1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbxAbgangszollstelle1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbxAbgangszollstelle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAbgangszollstelle1.FormattingEnabled = True
Me.cbxAbgangszollstelle1.Location = New System.Drawing.Point(27, 88)
Me.cbxAbgangszollstelle1.Name = "cbxAbgangszollstelle1"
Me.cbxAbgangszollstelle1.Size = New System.Drawing.Size(165, 21)
Me.cbxAbgangszollstelle1.TabIndex = 529
'
'cbxAbgangszollstelle2
'
Me.cbxAbgangszollstelle2._allowedValuesFreiText = Nothing
Me.cbxAbgangszollstelle2._allowFreiText = True
Me.cbxAbgangszollstelle2._value = ""
Me.cbxAbgangszollstelle2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cbxAbgangszollstelle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAbgangszollstelle2.FormattingEnabled = True
Me.cbxAbgangszollstelle2.Location = New System.Drawing.Point(27, 125)
Me.cbxAbgangszollstelle2.Name = "cbxAbgangszollstelle2"
Me.cbxAbgangszollstelle2.Size = New System.Drawing.Size(165, 21)
Me.cbxAbgangszollstelle2.TabIndex = 530
'
'cbxAbgangszollstelle3
'
Me.cbxAbgangszollstelle3._allowedValuesFreiText = Nothing
Me.cbxAbgangszollstelle3._allowFreiText = True
Me.cbxAbgangszollstelle3._value = ""
Me.cbxAbgangszollstelle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAbgangszollstelle3.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxAbgangszollstelle3.FormattingEnabled = True
Me.cbxAbgangszollstelle3.Location = New System.Drawing.Point(27, 161)
Me.cbxAbgangszollstelle3.Name = "cbxAbgangszollstelle3"
Me.cbxAbgangszollstelle3.Size = New System.Drawing.Size(165, 21)
Me.cbxAbgangszollstelle3.TabIndex = 531
'
'cbxAbfahrtsland
'
Me.cbxAbfahrtsland._allowedValuesFreiText = Nothing
Me.cbxAbfahrtsland._allowFreiText = False
Me.cbxAbfahrtsland._value = ""
Me.cbxAbfahrtsland.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.cbxAbfahrtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAbfahrtsland.DropDownWidth = 200
Me.cbxAbfahrtsland.FormattingEnabled = True
Me.cbxAbfahrtsland.Location = New System.Drawing.Point(207, 204)
Me.cbxAbfahrtsland.Name = "cbxAbfahrtsland"
Me.cbxAbfahrtsland.Size = New System.Drawing.Size(109, 21)
Me.cbxAbfahrtsland.TabIndex = 532
'
'cbxAnkunftsland
'
Me.cbxAnkunftsland._allowedValuesFreiText = Nothing
Me.cbxAnkunftsland._allowFreiText = False
Me.cbxAnkunftsland._value = ""
Me.cbxAnkunftsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAnkunftsland.DropDownWidth = 200
Me.cbxAnkunftsland.FormattingEnabled = True
Me.cbxAnkunftsland.Location = New System.Drawing.Point(345, 204)
Me.cbxAnkunftsland.Name = "cbxAnkunftsland"
Me.cbxAnkunftsland.Size = New System.Drawing.Size(110, 21)
Me.cbxAnkunftsland.TabIndex = 533
'
'cbxAbgangszollstelle6
'
Me.cbxAbgangszollstelle6._allowedValuesFreiText = Nothing
Me.cbxAbgangszollstelle6._allowFreiText = True
Me.cbxAbgangszollstelle6._value = ""
Me.cbxAbgangszollstelle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAbgangszollstelle6.FormattingEnabled = True
Me.cbxAbgangszollstelle6.Location = New System.Drawing.Point(27, 266)
Me.cbxAbgangszollstelle6.Name = "cbxAbgangszollstelle6"
Me.cbxAbgangszollstelle6.Size = New System.Drawing.Size(165, 21)
Me.cbxAbgangszollstelle6.TabIndex = 536
'
'cbxAbgangszollstelle5
'
Me.cbxAbgangszollstelle5._allowedValuesFreiText = Nothing
Me.cbxAbgangszollstelle5._allowFreiText = True
Me.cbxAbgangszollstelle5._value = ""
Me.cbxAbgangszollstelle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAbgangszollstelle5.FormattingEnabled = True
Me.cbxAbgangszollstelle5.Location = New System.Drawing.Point(27, 230)
Me.cbxAbgangszollstelle5.Name = "cbxAbgangszollstelle5"
Me.cbxAbgangszollstelle5.Size = New System.Drawing.Size(165, 21)
Me.cbxAbgangszollstelle5.TabIndex = 535
'
'cbxAbgangszollstelle4
'
Me.cbxAbgangszollstelle4._allowedValuesFreiText = Nothing
Me.cbxAbgangszollstelle4._allowFreiText = True
Me.cbxAbgangszollstelle4._value = ""
Me.cbxAbgangszollstelle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAbgangszollstelle4.FormattingEnabled = True
Me.cbxAbgangszollstelle4.Location = New System.Drawing.Point(27, 193)
Me.cbxAbgangszollstelle4.Name = "cbxAbgangszollstelle4"
Me.cbxAbgangszollstelle4.Size = New System.Drawing.Size(165, 21)
Me.cbxAbgangszollstelle4.TabIndex = 534
'
'cbxAbgangszollstelle7
'
Me.cbxAbgangszollstelle7._allowedValuesFreiText = Nothing
Me.cbxAbgangszollstelle7._allowFreiText = True
Me.cbxAbgangszollstelle7._value = ""
Me.cbxAbgangszollstelle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.cbxAbgangszollstelle7.FormattingEnabled = True
Me.cbxAbgangszollstelle7.Location = New System.Drawing.Point(27, 303)
Me.cbxAbgangszollstelle7.Name = "cbxAbgangszollstelle7"
Me.cbxAbgangszollstelle7.Size = New System.Drawing.Size(165, 21)
Me.cbxAbgangszollstelle7.TabIndex = 537
'
'Zollamt
'
Me.Zollamt.HeaderText = "Zollamt"
Me.Zollamt.Name = "Zollamt"
Me.Zollamt.Width = 50
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Container Laderaum"
Me.DataGridViewTextBoxColumn1.HeaderText = "Empfänger"
Me.DataGridViewTextBoxColumn1.MaxInputLength = 156
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Width = 166
@@ -454,17 +450,18 @@ Partial Class usrcntlTIR
Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
Me.DataGridViewTextBoxColumn2.MaxInputLength = 50
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.Width = 50
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Art des Gegenstandes"
Me.DataGridViewTextBoxColumn3.HeaderText = "Ware"
Me.DataGridViewTextBoxColumn3.MaxInputLength = 250
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 320
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.HeaderText = "Bruttogew."
Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht"
Me.DataGridViewTextBoxColumn4.MaxInputLength = 90
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.Width = 90
@@ -473,6 +470,15 @@ Partial Class usrcntlTIR
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.cbxAbgangszollstelle7)
Me.Controls.Add(Me.cbxAbgangszollstelle6)
Me.Controls.Add(Me.cbxAbgangszollstelle5)
Me.Controls.Add(Me.cbxAbgangszollstelle4)
Me.Controls.Add(Me.cbxAnkunftsland)
Me.Controls.Add(Me.cbxAbfahrtsland)
Me.Controls.Add(Me.cbxAbgangszollstelle3)
Me.Controls.Add(Me.cbxAbgangszollstelle2)
Me.Controls.Add(Me.cbxAbgangszollstelle1)
Me.Controls.Add(Me.dgvGegenstände)
Me.Controls.Add(Me.txtGesamtpaketName4)
Me.Controls.Add(Me.txtGesamtpaketName7)
@@ -488,17 +494,8 @@ Partial Class usrcntlTIR
Me.Controls.Add(Me.txtGesamtpaket3)
Me.Controls.Add(Me.txtGesamtpaket2)
Me.Controls.Add(Me.txtGesamtpaket1)
Me.Controls.Add(Me.txtAbgangszollstelle7)
Me.Controls.Add(Me.txtAbgangszollstelle6)
Me.Controls.Add(Me.txtAbgangszollstelle5)
Me.Controls.Add(Me.txtAbgangszollstelle4)
Me.Controls.Add(Me.txtAbgangszollstelle1)
Me.Controls.Add(Me.txtAbgangszollstelle2)
Me.Controls.Add(Me.txtAbgangszollstelle3)
Me.Controls.Add(Me.txtZusDocument)
Me.Controls.Add(Me.txtFahrzeug1)
Me.Controls.Add(Me.txtBestimmungsland)
Me.Controls.Add(Me.txtAbfahrtsland)
Me.Controls.Add(Me.PictureBox1)
Me.Name = "usrcntlTIR"
Me.Size = New System.Drawing.Size(860, 1272)
@@ -509,17 +506,8 @@ Partial Class usrcntlTIR
End Sub
Friend WithEvents PictureBox1 As PictureBox
Public WithEvents txtAbfahrtsland As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtBestimmungsland As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtFahrzeug1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtZusDocument As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtAbgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtAbgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtAbgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtAbgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtAbgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtAbgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtAbgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaket1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaket2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaket3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
@@ -535,6 +523,16 @@ Partial Class usrcntlTIR
Public WithEvents txtGesamtpaketName5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaketName4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents dgvGegenstände As DataGridView
Friend WithEvents cbxAbgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAbgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAbgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAbfahrtsland As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAnkunftsland As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAbgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAbgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAbgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxAbgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Zollamt As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn

5
SDL/Formulare/CARNET-TIR/usrcntlTIR.resx
View File

@@ -127,7 +127,7 @@
i44l3CfclrZsyQ8mi5xWvKbYyq2YP/dULwwv2NNxpctsZYxxJplCw2CFJXIU6JLVFsUlJvvRCv4W3z8l
LkNcS5jiGGEZC933o/7gd7duprenmBSOQvWT5721Q80WfG163ueh530dQegRLuySf/kABt9F3yxpbfvQ
uA5nlyXN2IbzDWh+yOuO7kshmcFMBl5P5JtS0HQN9bPF3n72Ob6DhHQ1cQW7e9CRley5Cu+uLe/tzzN+
f0S/AXdfcqnO5vvHAAAACXBIWXMAAA7CAAAOwgEVKEqAAAAAB3RJTUUH5wMPCREIioV7sQAA/iBJREFU
f0S/AXdfcqnO5vvHAAAACXBIWXMAAA6/AAAOvwE4BVMkAAAAB3RJTUUH5wMPCREIioV7sQAA/iBJREFU
eF7svQd4HUd2JfxLa+9Ee5ztXXvXm+y1vbYn55ykUc4SSQVKlEgFSqQCRVHMOeecQBIESYAAiMicM0ES
IAAi55zjQ873P+dW13uNhwcKGsmztnfe952v+1VXVw731K26/f991K+1o/Z3WtprvtnQUvFudWPx0sqG
omXVzaVL69orl9R3Vi1p6qpe3N7bsLB3wLNgQFrmA/OAOf3imY3rLJHWmcAM4ENgGtw+6B/wTO3ta3q/
@@ -19439,6 +19439,9 @@
idhk3hPvDU6/N/j7l3/5fwCC4tlmQEaMlwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="Zollamt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<metadata name="DataGridViewTextBoxColumn1.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>

2
SDL/Formulare/CARNET-TIR/usrcntlTIR.vb
View File

@@ -8,7 +8,7 @@
dgvGegenstände.Rows.Add("", "", "", "")
Next
txtAbgangszollstelle1.Text = "SUBEN"
cbxAbgangszollstelle1._value = "SUBEN"
End Sub