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

Revert "commit"

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-10-02 08:59:41 +00:00
parent 298156bc8d
commit a39d888c67
2987 changed files with 174 additions and 13775 deletions
Download Patch File Download Diff File Expand all files Collapse all files

336
SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb generated Normal file
View File

@@ -0,0 +1,336 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTIR
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.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()
Me.lblAnzahl = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.AutoScroll = True
Me.Panel1.Location = New System.Drawing.Point(0, 96)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(868, 679)
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(888, 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.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.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, 781)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(888, 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
'
'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.DropDownWidth = 250
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(642, 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(540, 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(785, 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
'
Me.UsrCntlTIR1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.UsrCntlTIR1.AutoScroll = True
Me.UsrCntlTIR1.BackColor = System.Drawing.Color.White
Me.UsrCntlTIR1.Location = New System.Drawing.Point(0, 46)
Me.UsrCntlTIR1.Name = "UsrCntlTIR1"
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!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.ClientSize = New System.Drawing.Size(888, 850)
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.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents UsrCntlTIR1 As usrcntlTIR
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 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

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

File diff suppressed because it is too large Load Diff

258
SDL/Formulare/CARNET-TIR/frmTIR.vb Normal file
View File

@@ -0,0 +1,258 @@
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
Me.Height = Screen.FromPoint(Cursor.Position).WorkingArea.Size.Height
Me.Top = 0
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")
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
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.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.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(3).Value & vbNewLine, "")
rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(4).Value & vbNewLine, "")
End If
Next
rpt.txtSumme.Text = lblEigenmasse.Text
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.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.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 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(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 = gewicht & " kg"
lblAnzahl.Text = colli
End Sub
End Class

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

@@ -0,0 +1,355 @@
<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_alt))
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.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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(883, 635)
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(903, 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, 673)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(903, 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.DropDownWidth = 250
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(800, 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
'
Me.UsrCntlTIR1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.UsrCntlTIR1.AutoScroll = True
Me.UsrCntlTIR1.BackColor = System.Drawing.Color.White
Me.UsrCntlTIR1.Location = New System.Drawing.Point(8, 3)
Me.UsrCntlTIR1.Name = "UsrCntlTIR1"
Me.UsrCntlTIR1.Size = New System.Drawing.Size(875, 632)
Me.UsrCntlTIR1.TabIndex = 0
'
'frmTIR_alt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.ClientSize = New System.Drawing.Size(903, 742)
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_alt"
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

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

@@ -0,0 +1,168 @@
Imports GrapeCity.ActiveReports
Public Class frmTIR_alt
Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Height = Screen.FromPoint(Cursor.Position).WorkingArea.Size.Height
Me.Top = 0
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_alt(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.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.txtGesamtpaketName1.Text = If(UsrCntlTIR1.txtGesamtpaketName1.Text, "")
rpt.txtGesamtpaketName2.Text = If(UsrCntlTIR1.txtGesamtpaketName2.Text, "")
rpt.txtGesamtpaketName3.Text = If(UsrCntlTIR1.txtGesamtpaketName3.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
rpt.txtSumme.Text = lblEigenmasse.Text
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.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.txtGesamtpaketName1.Text = "1"
UsrCntlTIR1.txtGesamtpaketName2.Text = "2"
UsrCntlTIR1.txtGesamtpaketName3.Text = "3"
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

601
SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb generated Normal file
View File

@@ -0,0 +1,601 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptTIR
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtAbfahrsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBestimmungsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFahrzeug = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZusDok = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName4 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
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()
CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName5, System.ComponentModel.ISupportInitialize).BeginInit()
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
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'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.TextBox1})
Me.ReportHeader1.Height = 11.42519!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtAbfahrsland
'
Me.txtAbfahrsland.CanGrow = False
Me.txtAbfahrsland.DataField = ""
Me.txtAbfahrsland.DistinctField = ""
Me.txtAbfahrsland.Height = 0.431!
Me.txtAbfahrsland.Left = 1.987!
Me.txtAbfahrsland.Name = "txtAbfahrsland"
Me.txtAbfahrsland.Style = "color: Black"
Me.txtAbfahrsland.SummaryGroup = ""
Me.txtAbfahrsland.Text = "Abfahrsland"
Me.txtAbfahrsland.Top = 1.683!
Me.txtAbfahrsland.Width = 1.092!
'
'txtGesamtpaket1
'
Me.txtGesamtpaket1.CanGrow = False
Me.txtGesamtpaket1.DataField = ""
Me.txtGesamtpaket1.DistinctField = ""
Me.txtGesamtpaket1.Height = 0.1968504!
Me.txtGesamtpaket1.Left = 0.479!
Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
Me.txtGesamtpaket1.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket1.SummaryGroup = ""
Me.txtGesamtpaket1.Text = "Gesamtpaket1"
Me.txtGesamtpaket1.Top = 8.120001!
Me.txtGesamtpaket1.Width = 1.415!
'
'txtMain1
'
Me.txtMain1.CanGrow = False
Me.txtMain1.DataField = ""
Me.txtMain1.DistinctField = ""
Me.txtMain1.Height = 3.743!
Me.txtMain1.Left = 0.479!
Me.txtMain1.Name = "txtMain1"
Me.txtMain1.Style = "color: Black"
Me.txtMain1.SummaryGroup = ""
Me.txtMain1.Text = "Main1"
Me.txtMain1.Top = 3.51!
Me.txtMain1.Width = 1.415!
'
'txtAbgangszollstelle1
'
Me.txtAbgangszollstelle1.CanGrow = False
Me.txtAbgangszollstelle1.DataField = ""
Me.txtAbgangszollstelle1.DistinctField = ""
Me.txtAbgangszollstelle1.Height = 0.1574803!
Me.txtAbgangszollstelle1.Left = 0.479!
Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
Me.txtAbgangszollstelle1.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle1.SummaryGroup = ""
Me.txtAbgangszollstelle1.Text = "Abgangszollstelle1"
Me.txtAbgangszollstelle1.Top = 0.9030001!
Me.txtAbgangszollstelle1.Width = 1.269984!
'
'txtAbgangszollstelle2
'
Me.txtAbgangszollstelle2.CanGrow = False
Me.txtAbgangszollstelle2.DataField = ""
Me.txtAbgangszollstelle2.DistinctField = ""
Me.txtAbgangszollstelle2.Height = 0.1574803!
Me.txtAbgangszollstelle2.Left = 0.479!
Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
Me.txtAbgangszollstelle2.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle2.SummaryGroup = ""
Me.txtAbgangszollstelle2.Text = "Abgangszollstelle2"
Me.txtAbgangszollstelle2.Top = 1.235!
Me.txtAbgangszollstelle2.Width = 1.269984!
'
'txtAbgangszollstelle3
'
Me.txtAbgangszollstelle3.CanGrow = False
Me.txtAbgangszollstelle3.DataField = ""
Me.txtAbgangszollstelle3.DistinctField = ""
Me.txtAbgangszollstelle3.Height = 0.1574803!
Me.txtAbgangszollstelle3.Left = 0.479!
Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
Me.txtAbgangszollstelle3.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle3.SummaryGroup = ""
Me.txtAbgangszollstelle3.Text = "Abgangszollstelle3"
Me.txtAbgangszollstelle3.Top = 1.526!
Me.txtAbgangszollstelle3.Width = 1.269984!
'
'txtAbgangszollstelle4
'
Me.txtAbgangszollstelle4.CanGrow = False
Me.txtAbgangszollstelle4.DataField = ""
Me.txtAbgangszollstelle4.DistinctField = ""
Me.txtAbgangszollstelle4.Height = 0.1574803!
Me.txtAbgangszollstelle4.Left = 0.479!
Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
Me.txtAbgangszollstelle4.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle4.SummaryGroup = ""
Me.txtAbgangszollstelle4.Text = "Abgangszollstelle4"
Me.txtAbgangszollstelle4.Top = 1.834!
Me.txtAbgangszollstelle4.Width = 1.269984!
'
'txtAbgangszollstelle5
'
Me.txtAbgangszollstelle5.CanGrow = False
Me.txtAbgangszollstelle5.DataField = ""
Me.txtAbgangszollstelle5.DistinctField = ""
Me.txtAbgangszollstelle5.Height = 0.1574803!
Me.txtAbgangszollstelle5.Left = 0.479!
Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
Me.txtAbgangszollstelle5.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle5.SummaryGroup = ""
Me.txtAbgangszollstelle5.Text = "Abgangszollstelle5"
Me.txtAbgangszollstelle5.Top = 2.114!
Me.txtAbgangszollstelle5.Width = 1.269984!
'
'txtAbgangszollstelle6
'
Me.txtAbgangszollstelle6.CanGrow = False
Me.txtAbgangszollstelle6.DataField = ""
Me.txtAbgangszollstelle6.DistinctField = ""
Me.txtAbgangszollstelle6.Height = 0.1574803!
Me.txtAbgangszollstelle6.Left = 0.479!
Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
Me.txtAbgangszollstelle6.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle6.SummaryGroup = ""
Me.txtAbgangszollstelle6.Text = "Abgangszollstelle6"
Me.txtAbgangszollstelle6.Top = 2.412!
Me.txtAbgangszollstelle6.Width = 1.269984!
'
'txtAbgangszollstelle7
'
Me.txtAbgangszollstelle7.CanGrow = False
Me.txtAbgangszollstelle7.DataField = ""
Me.txtAbgangszollstelle7.DistinctField = ""
Me.txtAbgangszollstelle7.Height = 0.1574803!
Me.txtAbgangszollstelle7.Left = 0.479!
Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
Me.txtAbgangszollstelle7.Style = "color: Black; text-align: left; text-justify: auto; vertical-align: middle"
Me.txtAbgangszollstelle7.SummaryGroup = ""
Me.txtAbgangszollstelle7.Text = "Abgangszollstelle7"
Me.txtAbgangszollstelle7.Top = 2.74!
Me.txtAbgangszollstelle7.Width = 1.269984!
'
'txtBestimmungsland
'
Me.txtBestimmungsland.CanGrow = False
Me.txtBestimmungsland.DataField = ""
Me.txtBestimmungsland.DistinctField = ""
Me.txtBestimmungsland.Height = 0.4309999!
Me.txtBestimmungsland.Left = 3.079!
Me.txtBestimmungsland.Name = "txtBestimmungsland"
Me.txtBestimmungsland.Style = "color: Black"
Me.txtBestimmungsland.SummaryGroup = ""
Me.txtBestimmungsland.Text = "Bestimmungsland"
Me.txtBestimmungsland.Top = 1.683!
Me.txtBestimmungsland.Width = 1.078!
'
'txtFahrzeug
'
Me.txtFahrzeug.CanGrow = False
Me.txtFahrzeug.DataField = ""
Me.txtFahrzeug.DistinctField = ""
Me.txtFahrzeug.Height = 0.4849999!
Me.txtFahrzeug.Left = 1.987!
Me.txtFahrzeug.Name = "txtFahrzeug"
Me.txtFahrzeug.Style = "color: Black"
Me.txtFahrzeug.SummaryGroup = ""
Me.txtFahrzeug.Text = "Fahrzeug"
Me.txtFahrzeug.Top = 2.412!
Me.txtFahrzeug.Width = 2.434!
'
'txtZusDok
'
Me.txtZusDok.CanGrow = False
Me.txtZusDok.DataField = ""
Me.txtZusDok.DistinctField = ""
Me.txtZusDok.Height = 0.6260002!
Me.txtZusDok.Left = 4.588!
Me.txtZusDok.Name = "txtZusDok"
Me.txtZusDok.Style = "color: Black"
Me.txtZusDok.SummaryGroup = ""
Me.txtZusDok.Text = "ZusDok"
Me.txtZusDok.Top = 2.271!
Me.txtZusDok.Width = 2.389!
'
'txtMain2
'
Me.txtMain2.CanGrow = False
Me.txtMain2.DataField = ""
Me.txtMain2.DistinctField = ""
Me.txtMain2.Height = 3.743!
Me.txtMain2.Left = 1.894!
Me.txtMain2.Name = "txtMain2"
Me.txtMain2.Style = "color: Black"
Me.txtMain2.SummaryGroup = ""
Me.txtMain2.Text = "Main2"
Me.txtMain2.Top = 3.51!
Me.txtMain2.Width = 3.499!
'
'txtMain3
'
Me.txtMain3.CanGrow = False
Me.txtMain3.DataField = ""
Me.txtMain3.DistinctField = ""
Me.txtMain3.Height = 3.743!
Me.txtMain3.Left = 5.455!
Me.txtMain3.Name = "txtMain3"
Me.txtMain3.Style = "color: Black"
Me.txtMain3.SummaryGroup = ""
Me.txtMain3.Text = "Main3"
Me.txtMain3.Top = 3.51!
Me.txtMain3.Width = 1.28!
'
'txtGesamtpaketName1
'
Me.txtGesamtpaketName1.CanGrow = False
Me.txtGesamtpaketName1.DataField = ""
Me.txtGesamtpaketName1.DistinctField = ""
Me.txtGesamtpaketName1.Height = 0.1968504!
Me.txtGesamtpaketName1.Left = 1.894!
Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
Me.txtGesamtpaketName1.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName1.SummaryGroup = ""
Me.txtGesamtpaketName1.Text = "GesamtpaketName1"
Me.txtGesamtpaketName1.Top = 8.12!
Me.txtGesamtpaketName1.Width = 0.4770002!
'
'txtGesamtpaket2
'
Me.txtGesamtpaket2.CanGrow = False
Me.txtGesamtpaket2.DataField = ""
Me.txtGesamtpaket2.DistinctField = ""
Me.txtGesamtpaket2.Height = 0.1968504!
Me.txtGesamtpaket2.Left = 0.4790001!
Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
Me.txtGesamtpaket2.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket2.SummaryGroup = ""
Me.txtGesamtpaket2.Text = "Gesamtpaket2"
Me.txtGesamtpaket2.Top = 8.399001!
Me.txtGesamtpaket2.Width = 1.415!
'
'txtGesamtpaketName2
'
Me.txtGesamtpaketName2.CanGrow = False
Me.txtGesamtpaketName2.DataField = ""
Me.txtGesamtpaketName2.DistinctField = ""
Me.txtGesamtpaketName2.Height = 0.1968504!
Me.txtGesamtpaketName2.Left = 1.894!
Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
Me.txtGesamtpaketName2.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName2.SummaryGroup = ""
Me.txtGesamtpaketName2.Text = "GesamtpaketName2"
Me.txtGesamtpaketName2.Top = 8.399!
Me.txtGesamtpaketName2.Width = 0.4770003!
'
'txtGesamtpaket3
'
Me.txtGesamtpaket3.CanGrow = False
Me.txtGesamtpaket3.DataField = ""
Me.txtGesamtpaket3.DistinctField = ""
Me.txtGesamtpaket3.Height = 0.1968504!
Me.txtGesamtpaket3.Left = 0.4790001!
Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
Me.txtGesamtpaket3.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket3.SummaryGroup = ""
Me.txtGesamtpaket3.Text = "Gesamtpaket3"
Me.txtGesamtpaket3.Top = 8.711001!
Me.txtGesamtpaket3.Width = 1.415!
'
'txtGesamtpaketName3
'
Me.txtGesamtpaketName3.CanGrow = False
Me.txtGesamtpaketName3.DataField = ""
Me.txtGesamtpaketName3.DistinctField = ""
Me.txtGesamtpaketName3.Height = 0.1968504!
Me.txtGesamtpaketName3.Left = 1.894!
Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
Me.txtGesamtpaketName3.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName3.SummaryGroup = ""
Me.txtGesamtpaketName3.Text = "GesamtpaketName3"
Me.txtGesamtpaketName3.Top = 8.711!
Me.txtGesamtpaketName3.Width = 0.4770003!
'
'txtGesamtpaket7
'
Me.txtGesamtpaket7.CanGrow = False
Me.txtGesamtpaket7.DataField = ""
Me.txtGesamtpaket7.DistinctField = ""
Me.txtGesamtpaket7.Height = 0.1968504!
Me.txtGesamtpaket7.Left = 2.572!
Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
Me.txtGesamtpaket7.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket7.SummaryGroup = ""
Me.txtGesamtpaket7.Text = "Gesamtpaket7"
Me.txtGesamtpaket7.Top = 8.711!
Me.txtGesamtpaket7.Width = 1.372!
'
'txtGesamtpaketName7
'
Me.txtGesamtpaketName7.CanGrow = False
Me.txtGesamtpaketName7.DataField = ""
Me.txtGesamtpaketName7.DistinctField = ""
Me.txtGesamtpaketName7.Height = 0.1968508!
Me.txtGesamtpaketName7.Left = 3.944!
Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
Me.txtGesamtpaketName7.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName7.SummaryGroup = ""
Me.txtGesamtpaketName7.Text = "GesamtpaketName7"
Me.txtGesamtpaketName7.Top = 8.711!
Me.txtGesamtpaketName7.Width = 0.4770002!
'
'txtGesamtpaket4
'
Me.txtGesamtpaket4.CanGrow = False
Me.txtGesamtpaket4.DataField = ""
Me.txtGesamtpaket4.DistinctField = ""
Me.txtGesamtpaket4.Height = 0.1968504!
Me.txtGesamtpaket4.Left = 2.572!
Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
Me.txtGesamtpaket4.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket4.SummaryGroup = ""
Me.txtGesamtpaket4.Text = "Gesamtpaket4"
Me.txtGesamtpaket4.Top = 7.838!
Me.txtGesamtpaket4.Width = 1.372!
'
'txtGesamtpaketName4
'
Me.txtGesamtpaketName4.CanGrow = False
Me.txtGesamtpaketName4.DataField = ""
Me.txtGesamtpaketName4.DistinctField = ""
Me.txtGesamtpaketName4.Height = 0.1968504!
Me.txtGesamtpaketName4.Left = 3.944!
Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
Me.txtGesamtpaketName4.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName4.SummaryGroup = ""
Me.txtGesamtpaketName4.Text = "GesamtpaketName4"
Me.txtGesamtpaketName4.Top = 7.838!
Me.txtGesamtpaketName4.Width = 0.4770003!
'
'txtGesamtpaket5
'
Me.txtGesamtpaket5.CanGrow = False
Me.txtGesamtpaket5.DataField = ""
Me.txtGesamtpaket5.DistinctField = ""
Me.txtGesamtpaket5.Height = 0.1968504!
Me.txtGesamtpaket5.Left = 2.572!
Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
Me.txtGesamtpaket5.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket5.SummaryGroup = ""
Me.txtGesamtpaket5.Text = "Gesamtpaket5"
Me.txtGesamtpaket5.Top = 8.120001!
Me.txtGesamtpaket5.Width = 1.372!
'
'txtGesamtpaketName5
'
Me.txtGesamtpaketName5.CanGrow = False
Me.txtGesamtpaketName5.DataField = ""
Me.txtGesamtpaketName5.DistinctField = ""
Me.txtGesamtpaketName5.Height = 0.1968504!
Me.txtGesamtpaketName5.Left = 3.944!
Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
Me.txtGesamtpaketName5.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaketName5.SummaryGroup = ""
Me.txtGesamtpaketName5.Text = "GesamtpaketName5"
Me.txtGesamtpaketName5.Top = 8.120001!
Me.txtGesamtpaketName5.Width = 0.4770003!
'
'txtGesamtpaket6
'
Me.txtGesamtpaket6.CanGrow = False
Me.txtGesamtpaket6.DataField = ""
Me.txtGesamtpaket6.DistinctField = ""
Me.txtGesamtpaket6.Height = 0.1968504!
Me.txtGesamtpaket6.Left = 2.572!
Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
Me.txtGesamtpaket6.Style = "color: Black; text-align: left; vertical-align: middle"
Me.txtGesamtpaket6.SummaryGroup = ""
Me.txtGesamtpaket6.Text = "Gesamtpaket6"
Me.txtGesamtpaket6.Top = 8.399!
Me.txtGesamtpaket6.Width = 1.372!
'
'txtGesamtpaketName6
'
Me.txtGesamtpaketName6.CanGrow = False
Me.txtGesamtpaketName6.DataField = ""
Me.txtGesamtpaketName6.DistinctField = ""
Me.txtGesamtpaketName6.Height = 0.1968504!
Me.txtGesamtpaketName6.Left = 3.944!
Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
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!
'
'txtSumme
'
Me.txtSumme.CanGrow = False
Me.txtSumme.DistinctField = ""
Me.txtSumme.Height = 0.2330003!
Me.txtSumme.Left = 5.455!
Me.txtSumme.Name = "txtSumme"
Me.txtSumme.Style = "color: Black; font-weight: bold; text-decoration: underline"
Me.txtSumme.SummaryGroup = ""
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!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
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(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()
CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName5, System.ComponentModel.ISupportInitialize).EndInit()
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
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents txtAbfahrsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBestimmungsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFahrzeug As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZusDok As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName4 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName5 As GrapeCity.ActiveReports.SectionReportModel.TextBox
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

126
SDL/Formulare/CARNET-TIR/rptTIR.resx Normal file
View File

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

15
SDL/Formulare/CARNET-TIR/rptTIR.vb Normal file
View File

@@ -0,0 +1,15 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptTIR
Sub New(RandOben As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
RandOben = RandOben / 10 'mm
Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
End Sub
Private Sub rptTIR_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

384
SDL/Formulare/CARNET-TIR/rptTIR_alt.Designer.vb generated Normal file
View File

@@ -0,0 +1,384 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Public Class rptTIR_alt
Inherits GrapeCity.ActiveReports.SectionReport
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
End If
MyBase.Dispose(disposing)
End Sub
'NOTE: The following procedure is required by the ActiveReports Designer
'It can be modified using the ActiveReports Designer.
'Do not modify it using the code editor.
Private WithEvents Detail As GrapeCity.ActiveReports.SectionReportModel.Detail
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.Detail = New GrapeCity.ActiveReports.SectionReportModel.Detail()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.txtAbfahrsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtAbgangszollstelle3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtBestimmungsland = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtFahrzeug = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtZusDok = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtMain3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaket3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtGesamtpaketName3 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.txtSumme = 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()
CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
'
'Detail
'
Me.Detail.Height = 0!
Me.Detail.Name = "Detail"
'
'ReportHeader1
'
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtAbfahrsland, Me.txtGesamtpaket1, Me.txtMain1, Me.txtAbgangszollstelle1, Me.txtAbgangszollstelle2, Me.txtAbgangszollstelle3, Me.txtBestimmungsland, Me.txtFahrzeug, Me.txtZusDok, Me.txtMain2, Me.txtMain3, Me.txtGesamtpaketName1, Me.txtGesamtpaket2, Me.txtGesamtpaketName2, Me.txtGesamtpaket3, Me.txtGesamtpaketName3, Me.txtSumme})
Me.ReportHeader1.Height = 11.42519!
Me.ReportHeader1.Name = "ReportHeader1"
'
'txtAbfahrsland
'
Me.txtAbfahrsland.CanGrow = False
Me.txtAbfahrsland.DataField = ""
Me.txtAbfahrsland.DistinctField = ""
Me.txtAbfahrsland.Height = 0.2639999!
Me.txtAbfahrsland.Left = 4.15!
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"
Me.txtAbfahrsland.Top = 2.351!
Me.txtAbfahrsland.Width = 1.582!
'
'txtGesamtpaket1
'
Me.txtGesamtpaket1.CanGrow = False
Me.txtGesamtpaket1.DataField = ""
Me.txtGesamtpaket1.DistinctField = ""
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"
Me.txtGesamtpaket1.Top = 7.818!
Me.txtGesamtpaket1.Width = 1.936!
'
'txtMain1
'
Me.txtMain1.CanGrow = False
Me.txtMain1.DataField = ""
Me.txtMain1.DistinctField = ""
Me.txtMain1.Height = 3.191!
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"
Me.txtMain1.Top = 4.01!
Me.txtMain1.Width = 1.936!
'
'txtAbgangszollstelle1
'
Me.txtAbgangszollstelle1.CanGrow = False
Me.txtAbgangszollstelle1.DataField = ""
Me.txtAbgangszollstelle1.DistinctField = ""
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"
Me.txtAbgangszollstelle1.Top = 0.601!
Me.txtAbgangszollstelle1.Width = 1.676!
'
'txtAbgangszollstelle2
'
Me.txtAbgangszollstelle2.CanGrow = False
Me.txtAbgangszollstelle2.DataField = ""
Me.txtAbgangszollstelle2.DistinctField = ""
Me.txtAbgangszollstelle2.Height = 0.1574803!
Me.txtAbgangszollstelle2.Left = 2.415!
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"
Me.txtAbgangszollstelle2.Top = 0.601!
Me.txtAbgangszollstelle2.Width = 1.593!
'
'txtAbgangszollstelle3
'
Me.txtAbgangszollstelle3.CanGrow = False
Me.txtAbgangszollstelle3.DataField = ""
Me.txtAbgangszollstelle3.DistinctField = ""
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"
Me.txtAbgangszollstelle3.Top = 0.8700001!
Me.txtAbgangszollstelle3.Width = 1.676!
'
'txtBestimmungsland
'
Me.txtBestimmungsland.CanGrow = False
Me.txtBestimmungsland.DataField = ""
Me.txtBestimmungsland.DistinctField = ""
Me.txtBestimmungsland.Height = 0.2640001!
Me.txtBestimmungsland.Left = 5.732!
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"
Me.txtBestimmungsland.Top = 2.351!
Me.txtBestimmungsland.Width = 1.297!
'
'txtFahrzeug
'
Me.txtFahrzeug.CanGrow = False
Me.txtFahrzeug.DataField = ""
Me.txtFahrzeug.DistinctField = ""
Me.txtFahrzeug.Height = 0.4849999!
Me.txtFahrzeug.Left = 0.479!
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"
Me.txtFahrzeug.Top = 2.766!
Me.txtFahrzeug.Width = 2.434!
'
'txtZusDok
'
Me.txtZusDok.CanGrow = False
Me.txtZusDok.DataField = ""
Me.txtZusDok.DistinctField = ""
Me.txtZusDok.Height = 0.756!
Me.txtZusDok.Left = 4.15!
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"
Me.txtZusDok.Top = 2.766!
Me.txtZusDok.Width = 2.879!
'
'txtMain2
'
Me.txtMain2.CanGrow = False
Me.txtMain2.DataField = ""
Me.txtMain2.DistinctField = ""
Me.txtMain2.Height = 3.191!
Me.txtMain2.Left = 2.739!
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"
Me.txtMain2.Top = 4.01!
Me.txtMain2.Width = 3.144!
'
'txtMain3
'
Me.txtMain3.CanGrow = False
Me.txtMain3.DataField = ""
Me.txtMain3.DistinctField = ""
Me.txtMain3.Height = 3.191!
Me.txtMain3.Left = 6.007!
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"
Me.txtMain3.Top = 4.01!
Me.txtMain3.Width = 0.7279992!
'
'txtGesamtpaketName1
'
Me.txtGesamtpaketName1.CanGrow = False
Me.txtGesamtpaketName1.DataField = ""
Me.txtGesamtpaketName1.DistinctField = ""
Me.txtGesamtpaketName1.Height = 0.1968504!
Me.txtGesamtpaketName1.Left = 2.509!
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"
Me.txtGesamtpaketName1.Top = 7.818!
Me.txtGesamtpaketName1.Width = 0.4770002!
'
'txtGesamtpaket2
'
Me.txtGesamtpaket2.CanGrow = False
Me.txtGesamtpaket2.DataField = ""
Me.txtGesamtpaket2.DistinctField = ""
Me.txtGesamtpaket2.Height = 0.1968504!
Me.txtGesamtpaket2.Left = 0.479!
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"
Me.txtGesamtpaket2.Top = 8.139!
Me.txtGesamtpaket2.Width = 1.936!
'
'txtGesamtpaketName2
'
Me.txtGesamtpaketName2.CanGrow = False
Me.txtGesamtpaketName2.DataField = ""
Me.txtGesamtpaketName2.DistinctField = ""
Me.txtGesamtpaketName2.Height = 0.1968504!
Me.txtGesamtpaketName2.Left = 2.509!
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"
Me.txtGesamtpaketName2.Top = 8.139!
Me.txtGesamtpaketName2.Width = 0.4770003!
'
'txtGesamtpaket3
'
Me.txtGesamtpaket3.CanGrow = False
Me.txtGesamtpaket3.DataField = ""
Me.txtGesamtpaket3.DistinctField = ""
Me.txtGesamtpaket3.Height = 0.1968504!
Me.txtGesamtpaket3.Left = 0.479!
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"
Me.txtGesamtpaket3.Top = 8.472!
Me.txtGesamtpaket3.Width = 1.936!
'
'txtGesamtpaketName3
'
Me.txtGesamtpaketName3.CanGrow = False
Me.txtGesamtpaketName3.DataField = ""
Me.txtGesamtpaketName3.DistinctField = ""
Me.txtGesamtpaketName3.Height = 0.1968504!
Me.txtGesamtpaketName3.Left = 2.509!
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"
Me.txtGesamtpaketName3.Top = 8.472!
Me.txtGesamtpaketName3.Width = 0.4770003!
'
'ReportFooter1
'
Me.ReportFooter1.Height = 0!
Me.ReportFooter1.Name = "ReportFooter1"
'
'txtSumme
'
Me.txtSumme.CanGrow = False
Me.txtSumme.DistinctField = ""
Me.txtSumme.Height = 0.2330003!
Me.txtSumme.Left = 6.007!
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.201!
Me.txtSumme.Width = 0.7279994!
'
'rptTIR_alt
'
Me.PageSettings.Margins.Bottom = 0!
Me.PageSettings.Margins.Left = 0.3937008!
Me.PageSettings.Margins.Right = 0.3937008!
Me.PageSettings.Margins.Top = 0.3937008!
Me.PageSettings.PaperHeight = 11.0!
Me.PageSettings.PaperWidth = 8.5!
Me.PrintWidth = 7.480315!
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))
CType(Me.txtAbfahrsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAbgangszollstelle3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtBestimmungsland, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFahrzeug, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtZusDok, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtMain3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaket3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtGesamtpaketName3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtSumme, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit()
End Sub
Private WithEvents ReportHeader1 As GrapeCity.ActiveReports.SectionReportModel.ReportHeader
Private WithEvents ReportFooter1 As GrapeCity.ActiveReports.SectionReportModel.ReportFooter
Public WithEvents txtAbfahrsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtAbgangszollstelle3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtBestimmungsland As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtFahrzeug As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtZusDok As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtMain3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName1 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName2 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaket3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtGesamtpaketName3 As GrapeCity.ActiveReports.SectionReportModel.TextBox
Public WithEvents txtSumme As GrapeCity.ActiveReports.SectionReportModel.TextBox
End Class

126
SDL/Formulare/CARNET-TIR/rptTIR_alt.resx Normal file
View File

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

15
SDL/Formulare/CARNET-TIR/rptTIR_alt.vb Normal file
View File

@@ -0,0 +1,15 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptTIR_alt
Sub New(RandOben As Double)
' Dieser Aufruf ist f<>r den Designer erforderlich.
InitializeComponent()
RandOben = RandOben / 10 'mm
Me.PageSettings.Margins.Top = (RandOben / (2.54)) 'cm in ZOLL
End Sub
Private Sub rptTIR_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
End Sub
End Class

540
SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb generated Normal file
View File

@@ -0,0 +1,540 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlTIR
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 DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.txtFahrzeug1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtZusDocument = 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.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()
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
'
'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 = ""
'
'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.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"
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
'
'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 = "Empfänger"
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"
Me.DataGridViewTextBoxColumn2.Width = 50
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Ware"
Me.DataGridViewTextBoxColumn3.MaxInputLength = 250
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 320
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.HeaderText = "Gewicht"
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.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)
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.txtZusDocument)
Me.Controls.Add(Me.txtFahrzeug1)
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 txtFahrzeug1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtZusDocument 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 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
Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn
End Class

19457
SDL/Formulare/CARNET-TIR/usrcntlTIR.resx Normal file
View File

File diff suppressed because it is too large Load Diff

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

@@ -0,0 +1,20 @@
Public Class usrcntlTIR
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
cbxAbgangszollstelle1._value = "SUBEN"
End Sub
Private Sub dgvGegenstände_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGegenstände.CellValueChanged
RaiseEvent DGVchanged()
End Sub
End Class

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

@@ -0,0 +1,337 @@
<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_alt))
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.txtGesamtpaket1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaket2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtGesamtpaket3 = 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.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(857, 1278)
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(431, 259)
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(195, 21)
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(644, 259)
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(195, 21)
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(17, 308)
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(396, 49)
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(431, 308)
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(408, 86)
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(39, 83)
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, 22)
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(240, 55)
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, 22)
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(39, 55)
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, 22)
Me.txtAbgangszollstelle1.TabIndex = 506
Me.txtAbgangszollstelle1.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(39, 906)
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(213, 21)
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(39, 944)
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(213, 21)
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(40, 984)
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(212, 21)
Me.txtGesamtpaket3.TabIndex = 513
Me.txtGesamtpaket3.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(267, 906)
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(55, 21)
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(267, 944)
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(55, 21)
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(267, 984)
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(55, 21)
Me.txtGesamtpaketName3.TabIndex = 520
Me.txtGesamtpaketName3.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(14, 450)
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(727, 398)
Me.dgvGegenstände.TabIndex = 525
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.HeaderText = "Container Laderaum"
Me.DataGridViewTextBoxColumn1.MaxInputLength = 156
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.Width = 200
'
'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 = 325
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.HeaderText = "Bruttogew."
Me.DataGridViewTextBoxColumn4.MaxInputLength = 90
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
'
'usrcntlTIR_alt
'
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.txtGesamtpaketName3)
Me.Controls.Add(Me.txtGesamtpaketName2)
Me.Controls.Add(Me.txtGesamtpaketName1)
Me.Controls.Add(Me.txtGesamtpaket3)
Me.Controls.Add(Me.txtGesamtpaket2)
Me.Controls.Add(Me.txtGesamtpaket1)
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_alt"
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 txtGesamtpaket1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaket2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
Public WithEvents txtGesamtpaket3 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 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

9535
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