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

altes TIR

Browse Source
This commit is contained in:
d.breimaier
2023-03-17 09:35:44 +01:00
parent 75ca763856
commit 57d25467a3
6 changed files with 26884 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

353
SDL/Formulare/CARNET-TIR/frmTIR_alt.Designer.vb generated Normal file
View File

@@ -0,0 +1,353 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmTIR_alt
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTIR))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnNeu = New System.Windows.Forms.Button()
Me.Label13 = New System.Windows.Forms.Label()
Me.btnLaden = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.cboAbriss777 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
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()
Me.lblEigenmasse = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.UsrCntlTIR1 = New SDL.usrcntlTIR_alt()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.AutoScroll = True
Me.Panel1.Controls.Add(Me.UsrCntlTIR1)
Me.Panel1.Location = New System.Drawing.Point(0, 38)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(853, 961)
Me.Panel1.TabIndex = 0
'
'Panel2
'
Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel2.Controls.Add(Me.Label3)
Me.Panel2.Controls.Add(Me.cboFirma)
Me.Panel2.Controls.Add(Me.btnNeu)
Me.Panel2.Controls.Add(Me.Label13)
Me.Panel2.Controls.Add(Me.btnLaden)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(873, 40)
Me.Panel2.TabIndex = 1
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(293, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(134, 20)
Me.Label3.TabIndex = 7
Me.Label3.Text = "9999/99999999"
Me.Label3.Visible = False
'
'cboFirma
'
Me.cboFirma._allowedValuesFreiText = Nothing
Me.cboFirma._allowFreiText = False
Me.cboFirma._value = ""
Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboFirma.Enabled = False
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Location = New System.Drawing.Point(575, 7)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(109, 24)
Me.cboFirma.TabIndex = 5
Me.cboFirma.Visible = False
'
'btnNeu
'
Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeu.Location = New System.Drawing.Point(690, 7)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(82, 23)
Me.btnNeu.TabIndex = 4
Me.btnNeu.Text = "Neu"
Me.btnNeu.UseVisualStyleBackColor = True
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(14, 7)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(114, 20)
Me.Label13.TabIndex = 0
Me.Label13.Text = "CARNET TIR"
'
'btnLaden
'
Me.btnLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLaden.Location = New System.Drawing.Point(778, 8)
Me.btnLaden.Name = "btnLaden"
Me.btnLaden.Size = New System.Drawing.Size(82, 23)
Me.btnLaden.TabIndex = 2
Me.btnLaden.Text = "Laden"
Me.btnLaden.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
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)
Me.Panel3.Controls.Add(Me.lblEigenmasse)
Me.Panel3.Controls.Add(Me.Label6)
Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel3.Location = New System.Drawing.Point(0, 712)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(873, 69)
Me.Panel3.TabIndex = 5
'
'cboAbriss777
'
Me.cboAbriss777._allowedValuesFreiText = Nothing
Me.cboAbriss777._allowFreiText = True
Me.cboAbriss777._value = ""
Me.cboAbriss777.FormattingEnabled = True
Me.cboAbriss777.Location = New System.Drawing.Point(250, 41)
Me.cboAbriss777.Name = "cboAbriss777"
Me.cboAbriss777.Size = New System.Drawing.Size(55, 21)
Me.cboAbriss777.TabIndex = 15
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(185, 44)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(38, 13)
Me.Label5.TabIndex = 14
Me.Label5.Text = "Abriss:"
'
'btnDelete
'
Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDelete.Location = New System.Drawing.Point(323, 41)
Me.btnDelete.Name = "btnDelete"
Me.btnDelete.Size = New System.Drawing.Size(108, 24)
Me.btnDelete.TabIndex = 12
Me.btnDelete.Text = "Vorlage löschen"
Me.btnDelete.UseVisualStyleBackColor = True
Me.btnDelete.Visible = False
'
'lblGedruckt
'
Me.lblGedruckt.AutoSize = True
Me.lblGedruckt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblGedruckt.ForeColor = System.Drawing.Color.Green
Me.lblGedruckt.Location = New System.Drawing.Point(91, 20)
Me.lblGedruckt.Name = "lblGedruckt"
Me.lblGedruckt.Size = New System.Drawing.Size(71, 17)
Me.lblGedruckt.TabIndex = 11
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
Me.Button2.Location = New System.Drawing.Point(464, 41)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(82, 24)
Me.Button2.TabIndex = 10
Me.Button2.Text = "Speichern"
Me.Button2.UseVisualStyleBackColor = True
Me.Button2.Visible = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(15, 25)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 6
Me.Label1.Text = "Drucker:"
'
'cboPrinter
'
Me.cboPrinter._allowedValuesFreiText = Nothing
Me.cboPrinter._allowFreiText = False
Me.cboPrinter._value = ""
Me.cboPrinter.FormattingEnabled = True
Me.cboPrinter.Location = New System.Drawing.Point(18, 41)
Me.cboPrinter.Name = "cboPrinter"
Me.cboPrinter.Size = New System.Drawing.Size(144, 21)
Me.cboPrinter.TabIndex = 7
'
'lblEigenmasse
'
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.Name = "lblEigenmasse"
Me.lblEigenmasse.Size = New System.Drawing.Size(32, 13)
Me.lblEigenmasse.TabIndex = 5
Me.lblEigenmasse.Text = "0 kg"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(15, 4)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(87, 13)
Me.Label6.TabIndex = 4
Me.Label6.Text = "Summe Gewicht:"
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(770, 14)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(98, 48)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Drucken"
Me.Button1.UseVisualStyleBackColor = True
'
'UsrCntlTIR1_alt
'
Me.UsrCntlTIR1.AutoScroll = True
Me.UsrCntlTIR1.BackColor = System.Drawing.Color.White
Me.UsrCntlTIR1.Location = New System.Drawing.Point(0, 3)
Me.UsrCntlTIR1.Name = "UsrCntlTIR1"
Me.UsrCntlTIR1.Size = New System.Drawing.Size(865, 670)
Me.UsrCntlTIR1.TabIndex = 0
'
'frmTIR
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(865, 781)
Me.AutoScroll = True
Me.ClientSize = New System.Drawing.Size(873, 1127)
Me.Controls.Add(Me.UsrCntlTIR1)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmTIR"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "CARNET TIR"
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents UsrCntlTIR1 As usrcntlTIR_alt
Friend WithEvents Panel1 As Panel
Friend WithEvents Panel2 As Panel
Friend WithEvents Label3 As Label
Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnNeu As Button
Friend WithEvents Label13 As Label
Friend WithEvents btnLaden As Button
Friend WithEvents Panel3 As Panel
Friend WithEvents cboAbriss777 As VERAG_PROG_ALLGEMEIN.MyComboBox
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
End Class

6334
SDL/Formulare/CARNET-TIR/frmTIR_alt.resx Normal file
View File

File diff suppressed because it is too large Load Diff

181
SDL/Formulare/CARNET-TIR/frmTIR_alt.vb Normal file
View File

@@ -0,0 +1,181 @@
Imports GrapeCity.ActiveReports
Public Class frmTIR_alt
Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AddHandler UsrCntlTIR1.DGVchanged, AddressOf UsrCntlTIR1_SomethChanged
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
btnLaden.Visible = False
End If
lblGedruckt.Visible = False
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0", "0"))
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12", "12"))
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14", "14"))
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17", "17"))
cboAbriss777.changeItem("12")
cProgramFunctions.initDrucker(cboPrinter, "TALLY")
End Sub
Private Sub print_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Cursor = Cursors.WaitCursor
Dim rpt As New rptTIR(cboAbriss777._value)
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.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, "")
rpt.txtGesamtpaket1.Text = If(UsrCntlTIR1.txtGesamtpaket1.Text, "")
rpt.txtGesamtpaket2.Text = If(UsrCntlTIR1.txtGesamtpaket2.Text, "")
rpt.txtGesamtpaket3.Text = If(UsrCntlTIR1.txtGesamtpaket3.Text, "")
rpt.txtGesamtpaket4.Text = If(UsrCntlTIR1.txtGesamtpaket4.Text, "")
rpt.txtGesamtpaket5.Text = If(UsrCntlTIR1.txtGesamtpaket5.Text, "")
rpt.txtGesamtpaket6.Text = If(UsrCntlTIR1.txtGesamtpaket6.Text, "")
rpt.txtGesamtpaket7.Text = If(UsrCntlTIR1.txtGesamtpaket7.Text, "")
rpt.txtGesamtpaketName1.Text = If(UsrCntlTIR1.txtGesamtpaketName1.Text, "")
rpt.txtGesamtpaketName2.Text = If(UsrCntlTIR1.txtGesamtpaketName2.Text, "")
rpt.txtGesamtpaketName3.Text = If(UsrCntlTIR1.txtGesamtpaketName3.Text, "")
rpt.txtGesamtpaketName4.Text = If(UsrCntlTIR1.txtGesamtpaketName4.Text, "")
rpt.txtGesamtpaketName5.Text = If(UsrCntlTIR1.txtGesamtpaketName5.Text, "")
rpt.txtGesamtpaketName6.Text = If(UsrCntlTIR1.txtGesamtpaketName6.Text, "")
rpt.txtGesamtpaketName7.Text = If(UsrCntlTIR1.txtGesamtpaketName7.Text, "")
rpt.txtMain1.Text = ""
rpt.txtMain2.Text = ""
rpt.txtMain3.Text = ""
For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
If r IsNot Nothing Then
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, "")
End If
Next
Try
rpt.Run(False)
rpt.Document.Printer.PrinterName = cboPrinter._value
rpt.Document.Print(CBool(cboPrinter.Text = ""), False)
rpt.Dispose()
lblGedruckt.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Cursor = Cursors.Default
End Sub
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
For Each c As Control In UsrCntlTIR1.Controls
If TypeOf c Is RichTextBox Then
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("", "", "", "")
Next
End If
Next
lblGedruckt.Visible = False
End Sub
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.txtAbfahrtsland.Text = "TestABFL"
UsrCntlTIR1.txtBestimmungsland.Text = "TestBESTL"
UsrCntlTIR1.txtFahrzeug1.Text = "XXXXXXX" & vbNewLine & "Fahrezeug 1"
UsrCntlTIR1.txtZusDocument.Text = "Testtext1"
UsrCntlTIR1.dgvGegenstände.Rows.Clear()
For i As Integer = 0 To 10
If i < 4 Then
UsrCntlTIR1.dgvGegenstände.Rows.Add(i & "-Test", "Testtext", "Text", i & "")
Else
UsrCntlTIR1.dgvGegenstände.Rows.Add("", "", "", "")
End If
Next
UsrCntlTIR1.txtGesamtpaket1.Text = "Paket1"
UsrCntlTIR1.txtGesamtpaket2.Text = "Paket2"
UsrCntlTIR1.txtGesamtpaket3.Text = "Paket3"
UsrCntlTIR1.txtGesamtpaket4.Text = "Paket4"
UsrCntlTIR1.txtGesamtpaket5.Text = "Paket5"
UsrCntlTIR1.txtGesamtpaket6.Text = "Paket6"
UsrCntlTIR1.txtGesamtpaket7.Text = "Paket7"
UsrCntlTIR1.txtGesamtpaketName1.Text = "1"
UsrCntlTIR1.txtGesamtpaketName2.Text = "2"
UsrCntlTIR1.txtGesamtpaketName3.Text = "3"
UsrCntlTIR1.txtGesamtpaketName4.Text = "4"
UsrCntlTIR1.txtGesamtpaketName5.Text = "5"
UsrCntlTIR1.txtGesamtpaketName6.Text = "6"
UsrCntlTIR1.txtGesamtpaketName7.Text = "7"
End Sub
Private Sub UsrCntlTIR1_SomethChanged() Handles UsrCntlTIR1.DGVchanged
Dim count 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)
End If
Next
lblEigenmasse.Text = count & " kg"
End Sub
End Class

542
SDL/Formulare/CARNET-TIR/usrcntlTIR_alt.Designer.vb generated Normal file
View File

@@ -0,0 +1,542 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlTIR_alt
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<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()
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()
Me.txtGesamtpaket6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaket5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaket4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaket7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaketName1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaketName2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaketName3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaketName7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaketName6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaketName5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaketName4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.dgvGegenstände = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvGegenstände, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(859, 1264)
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))
Me.txtFahrzeug1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtFahrzeug1.ForeColor = System.Drawing.Color.Black
Me.txtFahrzeug1.Location = New System.Drawing.Point(207, 264)
Me.txtFahrzeug1.MaxLineLength = 40
Me.txtFahrzeug1.MaxLines_Warning = "4"
Me.txtFahrzeug1.MaxLines_Warning_Label = Nothing
Me.txtFahrzeug1.Name = "txtFahrzeug1"
Me.txtFahrzeug1.Size = New System.Drawing.Size(258, 60)
Me.txtFahrzeug1.TabIndex = 501
Me.txtFahrzeug1.Text = ""
'
'txtZusDocument
'
Me.txtZusDocument.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtZusDocument.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtZusDocument.ForeColor = System.Drawing.Color.Black
Me.txtZusDocument.Location = New System.Drawing.Point(476, 243)
Me.txtZusDocument.MaxLineLength = 40
Me.txtZusDocument.MaxLines_Warning = "4"
Me.txtZusDocument.MaxLines_Warning_Label = Nothing
Me.txtZusDocument.Name = "txtZusDocument"
Me.txtZusDocument.Size = New System.Drawing.Size(368, 81)
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))
Me.txtGesamtpaket1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaket1.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaket1.Location = New System.Drawing.Point(25, 908)
Me.txtGesamtpaket1.MaxLineLength = 40
Me.txtGesamtpaket1.MaxLines_Warning = "4"
Me.txtGesamtpaket1.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
Me.txtGesamtpaket1.Size = New System.Drawing.Size(167, 28)
Me.txtGesamtpaket1.TabIndex = 511
Me.txtGesamtpaket1.Text = ""
'
'txtGesamtpaket2
'
Me.txtGesamtpaket2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaket2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaket2.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaket2.Location = New System.Drawing.Point(25, 939)
Me.txtGesamtpaket2.MaxLineLength = 40
Me.txtGesamtpaket2.MaxLines_Warning = "4"
Me.txtGesamtpaket2.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
Me.txtGesamtpaket2.Size = New System.Drawing.Size(167, 28)
Me.txtGesamtpaket2.TabIndex = 512
Me.txtGesamtpaket2.Text = ""
'
'txtGesamtpaket3
'
Me.txtGesamtpaket3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaket3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaket3.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaket3.Location = New System.Drawing.Point(25, 970)
Me.txtGesamtpaket3.MaxLineLength = 40
Me.txtGesamtpaket3.MaxLines_Warning = "4"
Me.txtGesamtpaket3.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
Me.txtGesamtpaket3.Size = New System.Drawing.Size(167, 23)
Me.txtGesamtpaket3.TabIndex = 513
Me.txtGesamtpaket3.Text = ""
'
'txtGesamtpaket6
'
Me.txtGesamtpaket6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaket6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaket6.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaket6.Location = New System.Drawing.Point(259, 939)
Me.txtGesamtpaket6.MaxLineLength = 40
Me.txtGesamtpaket6.MaxLines_Warning = "4"
Me.txtGesamtpaket6.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
Me.txtGesamtpaket6.Size = New System.Drawing.Size(166, 28)
Me.txtGesamtpaket6.TabIndex = 516
Me.txtGesamtpaket6.Text = ""
'
'txtGesamtpaket5
'
Me.txtGesamtpaket5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaket5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaket5.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaket5.Location = New System.Drawing.Point(259, 908)
Me.txtGesamtpaket5.MaxLineLength = 40
Me.txtGesamtpaket5.MaxLines_Warning = "4"
Me.txtGesamtpaket5.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
Me.txtGesamtpaket5.Size = New System.Drawing.Size(166, 28)
Me.txtGesamtpaket5.TabIndex = 515
Me.txtGesamtpaket5.Text = ""
'
'txtGesamtpaket4
'
Me.txtGesamtpaket4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaket4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaket4.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaket4.Location = New System.Drawing.Point(259, 877)
Me.txtGesamtpaket4.MaxLineLength = 40
Me.txtGesamtpaket4.MaxLines_Warning = "4"
Me.txtGesamtpaket4.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
Me.txtGesamtpaket4.Size = New System.Drawing.Size(166, 28)
Me.txtGesamtpaket4.TabIndex = 514
Me.txtGesamtpaket4.Text = ""
'
'txtGesamtpaket7
'
Me.txtGesamtpaket7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaket7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaket7.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaket7.Location = New System.Drawing.Point(259, 970)
Me.txtGesamtpaket7.MaxLineLength = 40
Me.txtGesamtpaket7.MaxLines_Warning = "4"
Me.txtGesamtpaket7.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
Me.txtGesamtpaket7.Size = New System.Drawing.Size(166, 23)
Me.txtGesamtpaket7.TabIndex = 517
Me.txtGesamtpaket7.Text = ""
'
'txtGesamtpaketName1
'
Me.txtGesamtpaketName1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaketName1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaketName1.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaketName1.Location = New System.Drawing.Point(198, 908)
Me.txtGesamtpaketName1.MaxLineLength = 40
Me.txtGesamtpaketName1.MaxLines_Warning = "4"
Me.txtGesamtpaketName1.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
Me.txtGesamtpaketName1.Size = New System.Drawing.Size(44, 28)
Me.txtGesamtpaketName1.TabIndex = 518
Me.txtGesamtpaketName1.Text = ""
'
'txtGesamtpaketName2
'
Me.txtGesamtpaketName2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaketName2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaketName2.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaketName2.Location = New System.Drawing.Point(198, 939)
Me.txtGesamtpaketName2.MaxLineLength = 40
Me.txtGesamtpaketName2.MaxLines_Warning = "4"
Me.txtGesamtpaketName2.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
Me.txtGesamtpaketName2.Size = New System.Drawing.Size(44, 28)
Me.txtGesamtpaketName2.TabIndex = 519
Me.txtGesamtpaketName2.Text = ""
'
'txtGesamtpaketName3
'
Me.txtGesamtpaketName3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaketName3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaketName3.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaketName3.Location = New System.Drawing.Point(198, 970)
Me.txtGesamtpaketName3.MaxLineLength = 40
Me.txtGesamtpaketName3.MaxLines_Warning = "4"
Me.txtGesamtpaketName3.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
Me.txtGesamtpaketName3.Size = New System.Drawing.Size(44, 23)
Me.txtGesamtpaketName3.TabIndex = 520
Me.txtGesamtpaketName3.Text = ""
'
'txtGesamtpaketName7
'
Me.txtGesamtpaketName7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaketName7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaketName7.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaketName7.Location = New System.Drawing.Point(431, 970)
Me.txtGesamtpaketName7.MaxLineLength = 40
Me.txtGesamtpaketName7.MaxLines_Warning = "4"
Me.txtGesamtpaketName7.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
Me.txtGesamtpaketName7.Size = New System.Drawing.Size(44, 23)
Me.txtGesamtpaketName7.TabIndex = 523
Me.txtGesamtpaketName7.Text = ""
'
'txtGesamtpaketName6
'
Me.txtGesamtpaketName6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaketName6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaketName6.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaketName6.Location = New System.Drawing.Point(431, 939)
Me.txtGesamtpaketName6.MaxLineLength = 40
Me.txtGesamtpaketName6.MaxLines_Warning = "4"
Me.txtGesamtpaketName6.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
Me.txtGesamtpaketName6.Size = New System.Drawing.Size(44, 28)
Me.txtGesamtpaketName6.TabIndex = 522
Me.txtGesamtpaketName6.Text = ""
'
'txtGesamtpaketName5
'
Me.txtGesamtpaketName5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaketName5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaketName5.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaketName5.Location = New System.Drawing.Point(431, 908)
Me.txtGesamtpaketName5.MaxLineLength = 40
Me.txtGesamtpaketName5.MaxLines_Warning = "4"
Me.txtGesamtpaketName5.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
Me.txtGesamtpaketName5.Size = New System.Drawing.Size(44, 28)
Me.txtGesamtpaketName5.TabIndex = 521
Me.txtGesamtpaketName5.Text = ""
'
'txtGesamtpaketName4
'
Me.txtGesamtpaketName4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.txtGesamtpaketName4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtGesamtpaketName4.ForeColor = System.Drawing.Color.Black
Me.txtGesamtpaketName4.Location = New System.Drawing.Point(431, 877)
Me.txtGesamtpaketName4.MaxLineLength = 40
Me.txtGesamtpaketName4.MaxLines_Warning = "4"
Me.txtGesamtpaketName4.MaxLines_Warning_Label = Nothing
Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
Me.txtGesamtpaketName4.Size = New System.Drawing.Size(44, 28)
Me.txtGesamtpaketName4.TabIndex = 524
Me.txtGesamtpaketName4.Text = ""
'
'dgvGegenstände
'
Me.dgvGegenstände.AllowUserToAddRows = False
Me.dgvGegenstände.AllowUserToDeleteRows = False
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.GridColor = System.Drawing.Color.Gray
Me.dgvGegenstände.Location = New System.Drawing.Point(17, 387)
Me.dgvGegenstände.Name = "dgvGegenstände"
Me.dgvGegenstände.RowHeadersVisible = False
Me.dgvGegenstände.RowTemplate.Height = 20
Me.dgvGegenstände.Size = New System.Drawing.Size(673, 450)
Me.dgvGegenstände.TabIndex = 525
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Container Laderaum"
Me.DataGridViewTextBoxColumn1.MaxInputLength = 156
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Width = 166
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
Me.DataGridViewTextBoxColumn2.MaxInputLength = 50
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Art des Gegenstandes"
Me.DataGridViewTextBoxColumn3.MaxInputLength = 250
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 320
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.HeaderText = "Bruttogew."
Me.DataGridViewTextBoxColumn4.MaxInputLength = 90
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
Me.DataGridViewTextBoxColumn4.Width = 90
'
'usrcntlTIR
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.dgvGegenstände)
Me.Controls.Add(Me.txtGesamtpaketName4)
Me.Controls.Add(Me.txtGesamtpaketName7)
Me.Controls.Add(Me.txtGesamtpaketName6)
Me.Controls.Add(Me.txtGesamtpaketName5)
Me.Controls.Add(Me.txtGesamtpaketName3)
Me.Controls.Add(Me.txtGesamtpaketName2)
Me.Controls.Add(Me.txtGesamtpaketName1)
Me.Controls.Add(Me.txtGesamtpaket7)
Me.Controls.Add(Me.txtGesamtpaket6)
Me.Controls.Add(Me.txtGesamtpaket5)
Me.Controls.Add(Me.txtGesamtpaket4)
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)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvGegenstände, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
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
Public WithEvents txtGesamtpaket6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaket5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaket4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaket7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaketName1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaketName2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaketName3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaketName7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaketName6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaketName5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaketName4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents dgvGegenstände As DataGridView
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn
End Class

19454
SDL/Formulare/CARNET-TIR/usrcntlTIR_alt.resx Normal file
View File

File diff suppressed because it is too large Load Diff

20
SDL/Formulare/CARNET-TIR/usrcntlTIR_alt.vb Normal file
View File

@@ -0,0 +1,20 @@
Public Class usrcntlTIR_alt
Public Event DGVchanged()
Private Sub usrcntlTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i As Integer = 0 To 10
dgvGegenstände.Rows.Add("", "", "", "")
Next
txtAbgangszollstelle1.Text = "SUBEN"
End Sub
Private Sub dgvGegenstände_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGegenstände.CellValueChanged
RaiseEvent DGVchanged()
End Sub
End Class