Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL
This commit is contained in:
@@ -113,6 +113,20 @@ Public Class cRKSV
|
||||
KBEntryGB = New cKassenbuch("LOAD", BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, cRKSV.getGJ_FIRMA(BELEG.BelegDat, Firma), j1)
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Shared Function getZahlungsmittel(BELEG As EABeleg, PERSONAL As cPersonal, Firma As String) As String
|
||||
Dim zm = SQL.getValueTxtBySql("SELECT [Finanzwege] FROM [tblKassenbuch] " &
|
||||
" WHERE [Mandant]='" & PERSONAL.Mandant & "' AND [Niederlassung]='" & PERSONAL.Niederlassung & "' AND [Benutzer]='" & PERSONAL.ID & "' AND [Geschäftsjahr]='" & cRKSV.getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND [BelegNr] ='" & BELEG.BelegNr & "' and Steuer <=0 AND Soll <> 0", "FMZOLL")
|
||||
|
||||
|
||||
If zm Is DBNull.Value Or zm = Nothing Then
|
||||
Return "-"
|
||||
End If
|
||||
|
||||
Return zm
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getDEP(ByVal kasse_id As Integer, ByRef exportResult As String) As Boolean
|
||||
|
||||
Dim KASSE As New cRKSV_Kasse(kasse_id)
|
||||
@@ -918,7 +932,8 @@ Public Class cRKSV
|
||||
Shared Function STORNO(BELEG As EABeleg, ByVal grund As String, Firma As String, Optional stornoGegenbuchen As Boolean = False) As EABeleg
|
||||
If (Not BELEG.gebuchtStorno) Or stornoGegenbuchen Then
|
||||
' MsgBox("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ(BELEG.BelegDat) & "' AND BelegNr='" & BELEG.BelegNr & "'")
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND BelegNr='" & BELEG.BelegNr & "'", "FMZOLL")
|
||||
'Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND BelegNr='" & BELEG.BelegNr & "'", "FMZOLL")
|
||||
Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblKassenbuch WHERE [Mandant]='" & BELEG.Mandant & "' AND Niederlassung='" & BELEG.Niederlassung & "' AND Benutzer='" & BELEG.Benutzer & "' AND Geschäftsjahr='" & getGJ_FIRMA(BELEG.BelegDat, Firma) & "' AND rksv_BelegId='" & BELEG.rksv_BelegId & "'", "FMZOLL")
|
||||
' Dim GJ = New cGeschaeftsjahr(BELEG.Mandant, BELEG.Niederlassung, BELEG.Benutzer, getGJ(BELEG.BelegDat))
|
||||
If dt IsNot Nothing Then
|
||||
For Each r In dt.Rows
|
||||
@@ -2287,6 +2302,7 @@ Public Class cRKSV
|
||||
' EINTRAG: Umbuchung bei EC-Zahlung
|
||||
'################
|
||||
If Finanzwege = "EC" Then
|
||||
Dim BelegNrEC = -1
|
||||
|
||||
For i = 0 To 1
|
||||
|
||||
@@ -2295,28 +2311,25 @@ Public Class cRKSV
|
||||
If i = 0 Then
|
||||
|
||||
KBEntryEC.Konto = POSFIBU
|
||||
BelegNrEC = getNewBelegNr(BELEG, Firma) '& KBEntryEC.Belegart 'zur Generierung von eigenem Buchungssatz
|
||||
Else
|
||||
KBEntryEC.Konto = PERSONAL.KassenbuchNr
|
||||
End If
|
||||
|
||||
If i = 0 Then
|
||||
KBEntryEC.Buchungstext = "-"
|
||||
Else
|
||||
KBEntryEC.Buchungstext = "Umbuchung Kassa/Bankomat"
|
||||
End If
|
||||
KBEntryEC.Buchungstext = "Umb. BK/KASSA"
|
||||
|
||||
KBEntryEC.Buchungsdatum = Now.ToShortDateString
|
||||
KBEntryEC.BelegDat = BELEG.BelegDat.ToShortDateString
|
||||
KBEntryEC.BelegNr = BELEG.BelegNr
|
||||
KBEntryEC.Belegart = BELEG.Belegart
|
||||
If KBEntryEC.Belegart = 1 Then
|
||||
KBEntryEC.Belegart = 3
|
||||
KBEntryEC.BelegNr = BelegNrEC
|
||||
If BELEG.Belegart = 1 Then
|
||||
If i = 0 Then
|
||||
KBEntryEC.Soll = Bruttobetrag
|
||||
Else
|
||||
KBEntryEC.Haben = Bruttobetrag
|
||||
End If
|
||||
|
||||
ElseIf KBEntryEC.Belegart = 2 Then
|
||||
ElseIf BELEG.Belegart = 2 Then
|
||||
If i = 0 Then
|
||||
KBEntryEC.Haben = Bruttobetrag
|
||||
Else
|
||||
|
||||
@@ -27,6 +27,8 @@ Public Class cRKSV_POS
|
||||
Property pos_storno As Object = Nothing
|
||||
Property pos_wartezeit As Object = Nothing
|
||||
Property pos_FIBU As Object = Nothing
|
||||
Property pos_XML As Object = Nothing
|
||||
Property pos_Protokollpfad As Object = Nothing
|
||||
|
||||
Public hasEntry = False
|
||||
|
||||
@@ -71,6 +73,8 @@ Public Class cRKSV_POS
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_storno", pos_storno))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_wartezeit", pos_wartezeit))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_FIBU", pos_FIBU))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_XML", pos_XML))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("pos_Protokollpfad", pos_Protokollpfad))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
342
SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb
generated
Normal file
342
SDL/Formulare/CARNET-TIR/frmTIR.Designer.vb
generated
Normal file
@@ -0,0 +1,342 @@
|
||||
<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.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()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 96)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(853, 961)
|
||||
Me.Panel1.TabIndex = 0
|
||||
'
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.Panel2.Controls.Add(Me.Label3)
|
||||
Me.Panel2.Controls.Add(Me.cboFirma)
|
||||
Me.Panel2.Controls.Add(Me.btnNeu)
|
||||
Me.Panel2.Controls.Add(Me.Label13)
|
||||
Me.Panel2.Controls.Add(Me.btnLaden)
|
||||
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(865, 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, 1058)
|
||||
Me.Panel3.Name = "Panel3"
|
||||
Me.Panel3.Size = New System.Drawing.Size(865, 69)
|
||||
Me.Panel3.TabIndex = 5
|
||||
'
|
||||
'cboAbriss777
|
||||
'
|
||||
Me.cboAbriss777._allowedValuesFreiText = Nothing
|
||||
Me.cboAbriss777._allowFreiText = True
|
||||
Me.cboAbriss777._value = ""
|
||||
Me.cboAbriss777.FormattingEnabled = True
|
||||
Me.cboAbriss777.Location = New System.Drawing.Point(250, 41)
|
||||
Me.cboAbriss777.Name = "cboAbriss777"
|
||||
Me.cboAbriss777.Size = New System.Drawing.Size(55, 21)
|
||||
Me.cboAbriss777.TabIndex = 15
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(185, 44)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(38, 13)
|
||||
Me.Label5.TabIndex = 14
|
||||
Me.Label5.Text = "Abriss:"
|
||||
'
|
||||
'btnDelete
|
||||
'
|
||||
Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnDelete.Location = New System.Drawing.Point(323, 41)
|
||||
Me.btnDelete.Name = "btnDelete"
|
||||
Me.btnDelete.Size = New System.Drawing.Size(108, 24)
|
||||
Me.btnDelete.TabIndex = 12
|
||||
Me.btnDelete.Text = "Vorlage löschen"
|
||||
Me.btnDelete.UseVisualStyleBackColor = True
|
||||
Me.btnDelete.Visible = False
|
||||
'
|
||||
'lblGedruckt
|
||||
'
|
||||
Me.lblGedruckt.AutoSize = True
|
||||
Me.lblGedruckt.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblGedruckt.ForeColor = System.Drawing.Color.Green
|
||||
Me.lblGedruckt.Location = New System.Drawing.Point(91, 20)
|
||||
Me.lblGedruckt.Name = "lblGedruckt"
|
||||
Me.lblGedruckt.Size = New System.Drawing.Size(71, 17)
|
||||
Me.lblGedruckt.TabIndex = 11
|
||||
Me.lblGedruckt.Text = "gedruckt"
|
||||
Me.lblGedruckt.Visible = False
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(320, 7)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(137, 13)
|
||||
Me.Label2.TabIndex = 8
|
||||
Me.Label2.Text = "Speichern als (Suchbegriff):"
|
||||
Me.Label2.Visible = False
|
||||
'
|
||||
'txtSuchbegriff
|
||||
'
|
||||
Me.txtSuchbegriff._DateTimeOnly = False
|
||||
Me.txtSuchbegriff._numbersOnly = False
|
||||
Me.txtSuchbegriff._numbersOnlyKommastellen = ""
|
||||
Me.txtSuchbegriff._numbersOnlyTrennzeichen = True
|
||||
Me.txtSuchbegriff._Prozent = False
|
||||
Me.txtSuchbegriff._ShortDateNew = False
|
||||
Me.txtSuchbegriff._ShortDateOnly = False
|
||||
Me.txtSuchbegriff._TimeOnly = False
|
||||
Me.txtSuchbegriff._TimeOnly_Seconds = False
|
||||
Me.txtSuchbegriff._value = Nothing
|
||||
Me.txtSuchbegriff._Waehrung = False
|
||||
Me.txtSuchbegriff._WaehrungZeichen = True
|
||||
Me.txtSuchbegriff.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtSuchbegriff.Location = New System.Drawing.Point(464, 4)
|
||||
Me.txtSuchbegriff.MaxLength = 80
|
||||
Me.txtSuchbegriff.MaxLineLength = -1
|
||||
Me.txtSuchbegriff.MaxLines_Warning = ""
|
||||
Me.txtSuchbegriff.MaxLines_Warning_Label = Nothing
|
||||
Me.txtSuchbegriff.Name = "txtSuchbegriff"
|
||||
Me.txtSuchbegriff.Size = New System.Drawing.Size(243, 20)
|
||||
Me.txtSuchbegriff.TabIndex = 9
|
||||
Me.txtSuchbegriff.Visible = False
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Location = New System.Drawing.Point(464, 41)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(82, 24)
|
||||
Me.Button2.TabIndex = 10
|
||||
Me.Button2.Text = "Speichern"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
Me.Button2.Visible = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(15, 25)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(48, 13)
|
||||
Me.Label1.TabIndex = 6
|
||||
Me.Label1.Text = "Drucker:"
|
||||
'
|
||||
'cboPrinter
|
||||
'
|
||||
Me.cboPrinter._allowedValuesFreiText = Nothing
|
||||
Me.cboPrinter._allowFreiText = False
|
||||
Me.cboPrinter._value = ""
|
||||
Me.cboPrinter.FormattingEnabled = True
|
||||
Me.cboPrinter.Location = New System.Drawing.Point(18, 41)
|
||||
Me.cboPrinter.Name = "cboPrinter"
|
||||
Me.cboPrinter.Size = New System.Drawing.Size(144, 21)
|
||||
Me.cboPrinter.TabIndex = 7
|
||||
'
|
||||
'lblEigenmasse
|
||||
'
|
||||
Me.lblEigenmasse.AutoSize = True
|
||||
Me.lblEigenmasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblEigenmasse.Location = New System.Drawing.Point(117, 4)
|
||||
Me.lblEigenmasse.Name = "lblEigenmasse"
|
||||
Me.lblEigenmasse.Size = New System.Drawing.Size(32, 13)
|
||||
Me.lblEigenmasse.TabIndex = 5
|
||||
Me.lblEigenmasse.Text = "0 kg"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(15, 4)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(87, 13)
|
||||
Me.Label6.TabIndex = 4
|
||||
Me.Label6.Text = "Summe Gewicht:"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Location = New System.Drawing.Point(745, 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.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(853, 1011)
|
||||
Me.UsrCntlTIR1.TabIndex = 0
|
||||
'
|
||||
'frmTIR
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(865, 1127)
|
||||
Me.Controls.Add(Me.UsrCntlTIR1)
|
||||
Me.Controls.Add(Me.Panel3)
|
||||
Me.Controls.Add(Me.Panel2)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmTIR"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "CARNET TIR"
|
||||
Me.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 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.resx
Normal file
6334
SDL/Formulare/CARNET-TIR/frmTIR.resx
Normal file
File diff suppressed because it is too large
Load Diff
181
SDL/Formulare/CARNET-TIR/frmTIR.vb
Normal file
181
SDL/Formulare/CARNET-TIR/frmTIR.vb
Normal file
@@ -0,0 +1,181 @@
|
||||
Imports GrapeCity.ActiveReports
|
||||
|
||||
Public Class frmTIR
|
||||
|
||||
|
||||
Private Sub frmTIR_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
AddHandler UsrCntlTIR1.DGVchanged, AddressOf UsrCntlTIR1_SomethChanged
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
|
||||
btnLaden.Visible = False
|
||||
End If
|
||||
|
||||
lblGedruckt.Visible = False
|
||||
|
||||
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0", "0"))
|
||||
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("12", "12"))
|
||||
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("14", "14"))
|
||||
cboAbriss777.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17", "17"))
|
||||
cboAbriss777.changeItem("12")
|
||||
|
||||
cProgramFunctions.initDrucker(cboPrinter, "TALLY")
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub print_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim rpt As New rptTIR(cboAbriss777._value)
|
||||
|
||||
Dim anzahl_778 As Integer = 0
|
||||
|
||||
rpt.txtAbgangszollstelle1.Text = If(UsrCntlTIR1.txtAbgangszollstelle1.Text, "")
|
||||
rpt.txtAbgangszollstelle2.Text = If(UsrCntlTIR1.txtAbgangszollstelle2.Text, "")
|
||||
rpt.txtAbgangszollstelle3.Text = If(UsrCntlTIR1.txtAbgangszollstelle3.Text, "")
|
||||
rpt.txtAbgangszollstelle4.Text = If(UsrCntlTIR1.txtAbgangszollstelle4.Text, "")
|
||||
rpt.txtAbgangszollstelle5.Text = If(UsrCntlTIR1.txtAbgangszollstelle5.Text, "")
|
||||
rpt.txtAbgangszollstelle6.Text = If(UsrCntlTIR1.txtAbgangszollstelle6.Text, "")
|
||||
rpt.txtAbgangszollstelle7.Text = If(UsrCntlTIR1.txtAbgangszollstelle7.Text, "")
|
||||
|
||||
rpt.txtAbfahrsland.Text = If(UsrCntlTIR1.txtAbfahrtsland.Text, "")
|
||||
rpt.txtBestimmungsland.Text = If(UsrCntlTIR1.txtBestimmungsland.Text, "")
|
||||
rpt.txtFahrzeug.Text = If(UsrCntlTIR1.txtFahrzeug1.Text, "")
|
||||
rpt.txtZusDok.Text = If(UsrCntlTIR1.txtZusDocument.Text, "")
|
||||
|
||||
|
||||
|
||||
|
||||
rpt.txtGesamtpaket1.Text = If(UsrCntlTIR1.txtGesamtpaket1.Text, "")
|
||||
rpt.txtGesamtpaket2.Text = If(UsrCntlTIR1.txtGesamtpaket2.Text, "")
|
||||
rpt.txtGesamtpaket3.Text = If(UsrCntlTIR1.txtGesamtpaket3.Text, "")
|
||||
rpt.txtGesamtpaket4.Text = If(UsrCntlTIR1.txtGesamtpaket4.Text, "")
|
||||
rpt.txtGesamtpaket5.Text = If(UsrCntlTIR1.txtGesamtpaket5.Text, "")
|
||||
rpt.txtGesamtpaket6.Text = If(UsrCntlTIR1.txtGesamtpaket6.Text, "")
|
||||
rpt.txtGesamtpaket7.Text = If(UsrCntlTIR1.txtGesamtpaket7.Text, "")
|
||||
|
||||
|
||||
rpt.txtGesamtpaketName1.Text = If(UsrCntlTIR1.txtGesamtpaketName1.Text, "")
|
||||
rpt.txtGesamtpaketName2.Text = If(UsrCntlTIR1.txtGesamtpaketName2.Text, "")
|
||||
rpt.txtGesamtpaketName3.Text = If(UsrCntlTIR1.txtGesamtpaketName3.Text, "")
|
||||
rpt.txtGesamtpaketName4.Text = If(UsrCntlTIR1.txtGesamtpaketName4.Text, "")
|
||||
rpt.txtGesamtpaketName5.Text = If(UsrCntlTIR1.txtGesamtpaketName5.Text, "")
|
||||
rpt.txtGesamtpaketName6.Text = If(UsrCntlTIR1.txtGesamtpaketName6.Text, "")
|
||||
rpt.txtGesamtpaketName7.Text = If(UsrCntlTIR1.txtGesamtpaketName7.Text, "")
|
||||
|
||||
rpt.txtMain1.Text = ""
|
||||
rpt.txtMain2.Text = ""
|
||||
rpt.txtMain3.Text = ""
|
||||
|
||||
|
||||
For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
|
||||
If r IsNot Nothing Then
|
||||
|
||||
rpt.txtMain1.Text &= If(r.Cells(0).Value <> "", r.Cells(0).Value & vbNewLine, "")
|
||||
rpt.txtMain2.Text &= If(r.Cells(1).Value <> "", r.Cells(1).Value & " ", "")
|
||||
rpt.txtMain2.Text &= If(r.Cells(2).Value <> "", r.Cells(2).Value & vbNewLine, "")
|
||||
rpt.txtMain3.Text &= If(r.Cells(3).Value <> "", r.Cells(3).Value & vbNewLine, "")
|
||||
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Try
|
||||
rpt.Run(False)
|
||||
rpt.Document.Printer.PrinterName = cboPrinter._value
|
||||
rpt.Document.Print(CBool(cboPrinter.Text = ""), False)
|
||||
rpt.Dispose()
|
||||
lblGedruckt.Visible = True
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
|
||||
|
||||
For Each c As Control In UsrCntlTIR1.Controls
|
||||
If TypeOf c Is RichTextBox Then
|
||||
c.Text = ""
|
||||
End If
|
||||
|
||||
If TypeOf c Is DataGridView Then
|
||||
Dim dgv As DataGridView = c
|
||||
dgv.Rows.Clear()
|
||||
For i As Integer = 0 To 10
|
||||
dgv.Rows.Add("", "", "", "")
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
lblGedruckt.Visible = False
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles btnLaden.Click
|
||||
|
||||
UsrCntlTIR1.txtAbgangszollstelle1.Text = "Testtext1"
|
||||
UsrCntlTIR1.txtAbgangszollstelle2.Text = "Testtext2"
|
||||
UsrCntlTIR1.txtAbgangszollstelle3.Text = "Testtext3"
|
||||
UsrCntlTIR1.txtAbgangszollstelle4.Text = "Testtext4"
|
||||
UsrCntlTIR1.txtAbgangszollstelle5.Text = "Testtext5"
|
||||
UsrCntlTIR1.txtAbgangszollstelle6.Text = "Testtext6"
|
||||
UsrCntlTIR1.txtAbgangszollstelle7.Text = "Testtext7"
|
||||
|
||||
UsrCntlTIR1.txtAbfahrtsland.Text = "TestABFL"
|
||||
UsrCntlTIR1.txtBestimmungsland.Text = "TestBESTL"
|
||||
UsrCntlTIR1.txtFahrzeug1.Text = "XXXXXXX" & vbNewLine & "Fahrezeug 1"
|
||||
UsrCntlTIR1.txtZusDocument.Text = "Testtext1"
|
||||
|
||||
UsrCntlTIR1.dgvGegenstände.Rows.Clear()
|
||||
|
||||
For i As Integer = 0 To 10
|
||||
If i < 4 Then
|
||||
UsrCntlTIR1.dgvGegenstände.Rows.Add(i & "-Test", "Testtext", "Text", i & "")
|
||||
Else
|
||||
UsrCntlTIR1.dgvGegenstände.Rows.Add("", "", "", "")
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
UsrCntlTIR1.txtGesamtpaket1.Text = "Paket1"
|
||||
UsrCntlTIR1.txtGesamtpaket2.Text = "Paket2"
|
||||
UsrCntlTIR1.txtGesamtpaket3.Text = "Paket3"
|
||||
UsrCntlTIR1.txtGesamtpaket4.Text = "Paket4"
|
||||
UsrCntlTIR1.txtGesamtpaket5.Text = "Paket5"
|
||||
UsrCntlTIR1.txtGesamtpaket6.Text = "Paket6"
|
||||
UsrCntlTIR1.txtGesamtpaket7.Text = "Paket7"
|
||||
|
||||
|
||||
UsrCntlTIR1.txtGesamtpaketName1.Text = "1"
|
||||
UsrCntlTIR1.txtGesamtpaketName2.Text = "2"
|
||||
UsrCntlTIR1.txtGesamtpaketName3.Text = "3"
|
||||
UsrCntlTIR1.txtGesamtpaketName4.Text = "4"
|
||||
UsrCntlTIR1.txtGesamtpaketName5.Text = "5"
|
||||
UsrCntlTIR1.txtGesamtpaketName6.Text = "6"
|
||||
UsrCntlTIR1.txtGesamtpaketName7.Text = "7"
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub UsrCntlTIR1_SomethChanged() Handles UsrCntlTIR1.DGVchanged
|
||||
|
||||
Dim count As Double = 0
|
||||
|
||||
For Each r As DataGridViewRow In UsrCntlTIR1.dgvGegenstände.Rows
|
||||
|
||||
If r IsNot Nothing And IsNumeric(r.Cells(3).Value) Then
|
||||
count += CDbl(r.Cells(3).Value)
|
||||
End If
|
||||
|
||||
|
||||
Next
|
||||
|
||||
lblEigenmasse.Text = count & " kg"
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
566
SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb
generated
Normal file
566
SDL/Formulare/CARNET-TIR/rptTIR.Designer.vb
generated
Normal file
@@ -0,0 +1,566 @@
|
||||
<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.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
|
||||
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, 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.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 = 4.212!
|
||||
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 = 4.212!
|
||||
Me.txtMain2.Left = 1.749!
|
||||
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.644!
|
||||
'
|
||||
'txtMain3
|
||||
'
|
||||
Me.txtMain3.CanGrow = False
|
||||
Me.txtMain3.DataField = ""
|
||||
Me.txtMain3.DistinctField = ""
|
||||
Me.txtMain3.Height = 4.212!
|
||||
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!
|
||||
'
|
||||
'ReportFooter1
|
||||
'
|
||||
Me.ReportFooter1.Height = 0!
|
||||
Me.ReportFooter1.Name = "ReportFooter1"
|
||||
'
|
||||
'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.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, 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
|
||||
End Class
|
||||
126
SDL/Formulare/CARNET-TIR/rptTIR.resx
Normal file
126
SDL/Formulare/CARNET-TIR/rptTIR.resx
Normal 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
15
SDL/Formulare/CARNET-TIR/rptTIR.vb
Normal 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
|
||||
542
SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb
generated
Normal file
542
SDL/Formulare/CARNET-TIR/usrcntlTIR.Designer.vb
generated
Normal file
@@ -0,0 +1,542 @@
|
||||
<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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.txtAbfahrtsland = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtBestimmungsland = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtFahrzeug1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtZusDocument = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtAbgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtAbgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtAbgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtAbgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtAbgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtAbgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtAbgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaket1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaket2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaket3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaket6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaket5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaket4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaket7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaketName1 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaketName2 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaketName3 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaketName7 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaketName6 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaketName5 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.txtGesamtpaketName4 = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
|
||||
Me.dgvGegenstände = New System.Windows.Forms.DataGridView()
|
||||
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.dgvGegenstände, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(0, 3)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(859, 1264)
|
||||
Me.PictureBox1.TabIndex = 0
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'txtAbfahrtsland
|
||||
'
|
||||
Me.txtAbfahrtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtAbfahrtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtAbfahrtsland.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbfahrtsland.Location = New System.Drawing.Point(207, 173)
|
||||
Me.txtAbfahrtsland.MaxLineLength = 40
|
||||
Me.txtAbfahrtsland.MaxLines_Warning = "4"
|
||||
Me.txtAbfahrtsland.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbfahrtsland.Name = "txtAbfahrtsland"
|
||||
Me.txtAbfahrtsland.Size = New System.Drawing.Size(126, 65)
|
||||
Me.txtAbfahrtsland.TabIndex = 499
|
||||
Me.txtAbfahrtsland.Text = ""
|
||||
'
|
||||
'txtBestimmungsland
|
||||
'
|
||||
Me.txtBestimmungsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtBestimmungsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtBestimmungsland.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtBestimmungsland.Location = New System.Drawing.Point(339, 173)
|
||||
Me.txtBestimmungsland.MaxLineLength = 40
|
||||
Me.txtBestimmungsland.MaxLines_Warning = "4"
|
||||
Me.txtBestimmungsland.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBestimmungsland.Name = "txtBestimmungsland"
|
||||
Me.txtBestimmungsland.Size = New System.Drawing.Size(126, 65)
|
||||
Me.txtBestimmungsland.TabIndex = 500
|
||||
Me.txtBestimmungsland.Text = ""
|
||||
'
|
||||
'txtFahrzeug1
|
||||
'
|
||||
Me.txtFahrzeug1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtFahrzeug1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtFahrzeug1.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtFahrzeug1.Location = New System.Drawing.Point(207, 264)
|
||||
Me.txtFahrzeug1.MaxLineLength = 40
|
||||
Me.txtFahrzeug1.MaxLines_Warning = "4"
|
||||
Me.txtFahrzeug1.MaxLines_Warning_Label = Nothing
|
||||
Me.txtFahrzeug1.Name = "txtFahrzeug1"
|
||||
Me.txtFahrzeug1.Size = New System.Drawing.Size(258, 60)
|
||||
Me.txtFahrzeug1.TabIndex = 501
|
||||
Me.txtFahrzeug1.Text = ""
|
||||
'
|
||||
'txtZusDocument
|
||||
'
|
||||
Me.txtZusDocument.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtZusDocument.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtZusDocument.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtZusDocument.Location = New System.Drawing.Point(476, 243)
|
||||
Me.txtZusDocument.MaxLineLength = 40
|
||||
Me.txtZusDocument.MaxLines_Warning = "4"
|
||||
Me.txtZusDocument.MaxLines_Warning_Label = Nothing
|
||||
Me.txtZusDocument.Name = "txtZusDocument"
|
||||
Me.txtZusDocument.Size = New System.Drawing.Size(368, 81)
|
||||
Me.txtZusDocument.TabIndex = 502
|
||||
Me.txtZusDocument.Text = ""
|
||||
'
|
||||
'txtAbgangszollstelle3
|
||||
'
|
||||
Me.txtAbgangszollstelle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtAbgangszollstelle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtAbgangszollstelle3.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbgangszollstelle3.Location = New System.Drawing.Point(27, 160)
|
||||
Me.txtAbgangszollstelle3.MaxLineLength = 40
|
||||
Me.txtAbgangszollstelle3.MaxLines_Warning = "4"
|
||||
Me.txtAbgangszollstelle3.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbgangszollstelle3.Name = "txtAbgangszollstelle3"
|
||||
Me.txtAbgangszollstelle3.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtAbgangszollstelle3.TabIndex = 504
|
||||
Me.txtAbgangszollstelle3.Text = ""
|
||||
'
|
||||
'txtAbgangszollstelle2
|
||||
'
|
||||
Me.txtAbgangszollstelle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtAbgangszollstelle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtAbgangszollstelle2.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbgangszollstelle2.Location = New System.Drawing.Point(27, 122)
|
||||
Me.txtAbgangszollstelle2.MaxLineLength = 40
|
||||
Me.txtAbgangszollstelle2.MaxLines_Warning = "4"
|
||||
Me.txtAbgangszollstelle2.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbgangszollstelle2.Name = "txtAbgangszollstelle2"
|
||||
Me.txtAbgangszollstelle2.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtAbgangszollstelle2.TabIndex = 505
|
||||
Me.txtAbgangszollstelle2.Text = ""
|
||||
'
|
||||
'txtAbgangszollstelle1
|
||||
'
|
||||
Me.txtAbgangszollstelle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtAbgangszollstelle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtAbgangszollstelle1.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbgangszollstelle1.Location = New System.Drawing.Point(27, 88)
|
||||
Me.txtAbgangszollstelle1.MaxLineLength = 40
|
||||
Me.txtAbgangszollstelle1.MaxLines_Warning = "4"
|
||||
Me.txtAbgangszollstelle1.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbgangszollstelle1.Name = "txtAbgangszollstelle1"
|
||||
Me.txtAbgangszollstelle1.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtAbgangszollstelle1.TabIndex = 506
|
||||
Me.txtAbgangszollstelle1.Text = ""
|
||||
'
|
||||
'txtAbgangszollstelle4
|
||||
'
|
||||
Me.txtAbgangszollstelle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtAbgangszollstelle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtAbgangszollstelle4.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbgangszollstelle4.Location = New System.Drawing.Point(27, 194)
|
||||
Me.txtAbgangszollstelle4.MaxLineLength = 40
|
||||
Me.txtAbgangszollstelle4.MaxLines_Warning = "4"
|
||||
Me.txtAbgangszollstelle4.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbgangszollstelle4.Name = "txtAbgangszollstelle4"
|
||||
Me.txtAbgangszollstelle4.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtAbgangszollstelle4.TabIndex = 507
|
||||
Me.txtAbgangszollstelle4.Text = ""
|
||||
'
|
||||
'txtAbgangszollstelle5
|
||||
'
|
||||
Me.txtAbgangszollstelle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtAbgangszollstelle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtAbgangszollstelle5.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbgangszollstelle5.Location = New System.Drawing.Point(27, 228)
|
||||
Me.txtAbgangszollstelle5.MaxLineLength = 40
|
||||
Me.txtAbgangszollstelle5.MaxLines_Warning = "4"
|
||||
Me.txtAbgangszollstelle5.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbgangszollstelle5.Name = "txtAbgangszollstelle5"
|
||||
Me.txtAbgangszollstelle5.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtAbgangszollstelle5.TabIndex = 508
|
||||
Me.txtAbgangszollstelle5.Text = ""
|
||||
'
|
||||
'txtAbgangszollstelle6
|
||||
'
|
||||
Me.txtAbgangszollstelle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtAbgangszollstelle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtAbgangszollstelle6.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbgangszollstelle6.Location = New System.Drawing.Point(27, 264)
|
||||
Me.txtAbgangszollstelle6.MaxLineLength = 40
|
||||
Me.txtAbgangszollstelle6.MaxLines_Warning = "4"
|
||||
Me.txtAbgangszollstelle6.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbgangszollstelle6.Name = "txtAbgangszollstelle6"
|
||||
Me.txtAbgangszollstelle6.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtAbgangszollstelle6.TabIndex = 509
|
||||
Me.txtAbgangszollstelle6.Text = ""
|
||||
'
|
||||
'txtAbgangszollstelle7
|
||||
'
|
||||
Me.txtAbgangszollstelle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtAbgangszollstelle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtAbgangszollstelle7.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAbgangszollstelle7.Location = New System.Drawing.Point(27, 298)
|
||||
Me.txtAbgangszollstelle7.MaxLineLength = 40
|
||||
Me.txtAbgangszollstelle7.MaxLines_Warning = "4"
|
||||
Me.txtAbgangszollstelle7.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAbgangszollstelle7.Name = "txtAbgangszollstelle7"
|
||||
Me.txtAbgangszollstelle7.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtAbgangszollstelle7.TabIndex = 510
|
||||
Me.txtAbgangszollstelle7.Text = ""
|
||||
'
|
||||
'txtGesamtpaket1
|
||||
'
|
||||
Me.txtGesamtpaket1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaket1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaket1.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaket1.Location = New System.Drawing.Point(25, 908)
|
||||
Me.txtGesamtpaket1.MaxLineLength = 40
|
||||
Me.txtGesamtpaket1.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaket1.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaket1.Name = "txtGesamtpaket1"
|
||||
Me.txtGesamtpaket1.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtGesamtpaket1.TabIndex = 511
|
||||
Me.txtGesamtpaket1.Text = ""
|
||||
'
|
||||
'txtGesamtpaket2
|
||||
'
|
||||
Me.txtGesamtpaket2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaket2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaket2.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaket2.Location = New System.Drawing.Point(25, 939)
|
||||
Me.txtGesamtpaket2.MaxLineLength = 40
|
||||
Me.txtGesamtpaket2.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaket2.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaket2.Name = "txtGesamtpaket2"
|
||||
Me.txtGesamtpaket2.Size = New System.Drawing.Size(167, 28)
|
||||
Me.txtGesamtpaket2.TabIndex = 512
|
||||
Me.txtGesamtpaket2.Text = ""
|
||||
'
|
||||
'txtGesamtpaket3
|
||||
'
|
||||
Me.txtGesamtpaket3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaket3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaket3.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaket3.Location = New System.Drawing.Point(25, 970)
|
||||
Me.txtGesamtpaket3.MaxLineLength = 40
|
||||
Me.txtGesamtpaket3.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaket3.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaket3.Name = "txtGesamtpaket3"
|
||||
Me.txtGesamtpaket3.Size = New System.Drawing.Size(167, 23)
|
||||
Me.txtGesamtpaket3.TabIndex = 513
|
||||
Me.txtGesamtpaket3.Text = ""
|
||||
'
|
||||
'txtGesamtpaket6
|
||||
'
|
||||
Me.txtGesamtpaket6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaket6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaket6.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaket6.Location = New System.Drawing.Point(259, 939)
|
||||
Me.txtGesamtpaket6.MaxLineLength = 40
|
||||
Me.txtGesamtpaket6.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaket6.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaket6.Name = "txtGesamtpaket6"
|
||||
Me.txtGesamtpaket6.Size = New System.Drawing.Size(166, 28)
|
||||
Me.txtGesamtpaket6.TabIndex = 516
|
||||
Me.txtGesamtpaket6.Text = ""
|
||||
'
|
||||
'txtGesamtpaket5
|
||||
'
|
||||
Me.txtGesamtpaket5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaket5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaket5.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaket5.Location = New System.Drawing.Point(259, 908)
|
||||
Me.txtGesamtpaket5.MaxLineLength = 40
|
||||
Me.txtGesamtpaket5.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaket5.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaket5.Name = "txtGesamtpaket5"
|
||||
Me.txtGesamtpaket5.Size = New System.Drawing.Size(166, 28)
|
||||
Me.txtGesamtpaket5.TabIndex = 515
|
||||
Me.txtGesamtpaket5.Text = ""
|
||||
'
|
||||
'txtGesamtpaket4
|
||||
'
|
||||
Me.txtGesamtpaket4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaket4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaket4.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaket4.Location = New System.Drawing.Point(259, 877)
|
||||
Me.txtGesamtpaket4.MaxLineLength = 40
|
||||
Me.txtGesamtpaket4.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaket4.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaket4.Name = "txtGesamtpaket4"
|
||||
Me.txtGesamtpaket4.Size = New System.Drawing.Size(166, 28)
|
||||
Me.txtGesamtpaket4.TabIndex = 514
|
||||
Me.txtGesamtpaket4.Text = ""
|
||||
'
|
||||
'txtGesamtpaket7
|
||||
'
|
||||
Me.txtGesamtpaket7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaket7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaket7.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaket7.Location = New System.Drawing.Point(259, 970)
|
||||
Me.txtGesamtpaket7.MaxLineLength = 40
|
||||
Me.txtGesamtpaket7.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaket7.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaket7.Name = "txtGesamtpaket7"
|
||||
Me.txtGesamtpaket7.Size = New System.Drawing.Size(166, 23)
|
||||
Me.txtGesamtpaket7.TabIndex = 517
|
||||
Me.txtGesamtpaket7.Text = ""
|
||||
'
|
||||
'txtGesamtpaketName1
|
||||
'
|
||||
Me.txtGesamtpaketName1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaketName1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaketName1.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaketName1.Location = New System.Drawing.Point(198, 908)
|
||||
Me.txtGesamtpaketName1.MaxLineLength = 40
|
||||
Me.txtGesamtpaketName1.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaketName1.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaketName1.Name = "txtGesamtpaketName1"
|
||||
Me.txtGesamtpaketName1.Size = New System.Drawing.Size(44, 28)
|
||||
Me.txtGesamtpaketName1.TabIndex = 518
|
||||
Me.txtGesamtpaketName1.Text = ""
|
||||
'
|
||||
'txtGesamtpaketName2
|
||||
'
|
||||
Me.txtGesamtpaketName2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaketName2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaketName2.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaketName2.Location = New System.Drawing.Point(198, 939)
|
||||
Me.txtGesamtpaketName2.MaxLineLength = 40
|
||||
Me.txtGesamtpaketName2.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaketName2.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaketName2.Name = "txtGesamtpaketName2"
|
||||
Me.txtGesamtpaketName2.Size = New System.Drawing.Size(44, 28)
|
||||
Me.txtGesamtpaketName2.TabIndex = 519
|
||||
Me.txtGesamtpaketName2.Text = ""
|
||||
'
|
||||
'txtGesamtpaketName3
|
||||
'
|
||||
Me.txtGesamtpaketName3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaketName3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaketName3.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaketName3.Location = New System.Drawing.Point(198, 970)
|
||||
Me.txtGesamtpaketName3.MaxLineLength = 40
|
||||
Me.txtGesamtpaketName3.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaketName3.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaketName3.Name = "txtGesamtpaketName3"
|
||||
Me.txtGesamtpaketName3.Size = New System.Drawing.Size(44, 23)
|
||||
Me.txtGesamtpaketName3.TabIndex = 520
|
||||
Me.txtGesamtpaketName3.Text = ""
|
||||
'
|
||||
'txtGesamtpaketName7
|
||||
'
|
||||
Me.txtGesamtpaketName7.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaketName7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaketName7.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaketName7.Location = New System.Drawing.Point(431, 970)
|
||||
Me.txtGesamtpaketName7.MaxLineLength = 40
|
||||
Me.txtGesamtpaketName7.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaketName7.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaketName7.Name = "txtGesamtpaketName7"
|
||||
Me.txtGesamtpaketName7.Size = New System.Drawing.Size(44, 23)
|
||||
Me.txtGesamtpaketName7.TabIndex = 523
|
||||
Me.txtGesamtpaketName7.Text = ""
|
||||
'
|
||||
'txtGesamtpaketName6
|
||||
'
|
||||
Me.txtGesamtpaketName6.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaketName6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaketName6.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaketName6.Location = New System.Drawing.Point(431, 939)
|
||||
Me.txtGesamtpaketName6.MaxLineLength = 40
|
||||
Me.txtGesamtpaketName6.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaketName6.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaketName6.Name = "txtGesamtpaketName6"
|
||||
Me.txtGesamtpaketName6.Size = New System.Drawing.Size(44, 28)
|
||||
Me.txtGesamtpaketName6.TabIndex = 522
|
||||
Me.txtGesamtpaketName6.Text = ""
|
||||
'
|
||||
'txtGesamtpaketName5
|
||||
'
|
||||
Me.txtGesamtpaketName5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaketName5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaketName5.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaketName5.Location = New System.Drawing.Point(431, 908)
|
||||
Me.txtGesamtpaketName5.MaxLineLength = 40
|
||||
Me.txtGesamtpaketName5.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaketName5.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaketName5.Name = "txtGesamtpaketName5"
|
||||
Me.txtGesamtpaketName5.Size = New System.Drawing.Size(44, 28)
|
||||
Me.txtGesamtpaketName5.TabIndex = 521
|
||||
Me.txtGesamtpaketName5.Text = ""
|
||||
'
|
||||
'txtGesamtpaketName4
|
||||
'
|
||||
Me.txtGesamtpaketName4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.txtGesamtpaketName4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
|
||||
Me.txtGesamtpaketName4.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGesamtpaketName4.Location = New System.Drawing.Point(431, 877)
|
||||
Me.txtGesamtpaketName4.MaxLineLength = 40
|
||||
Me.txtGesamtpaketName4.MaxLines_Warning = "4"
|
||||
Me.txtGesamtpaketName4.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGesamtpaketName4.Name = "txtGesamtpaketName4"
|
||||
Me.txtGesamtpaketName4.Size = New System.Drawing.Size(44, 28)
|
||||
Me.txtGesamtpaketName4.TabIndex = 524
|
||||
Me.txtGesamtpaketName4.Text = ""
|
||||
'
|
||||
'dgvGegenstände
|
||||
'
|
||||
Me.dgvGegenstände.AllowUserToAddRows = False
|
||||
Me.dgvGegenstände.AllowUserToDeleteRows = False
|
||||
Me.dgvGegenstände.AllowUserToOrderColumns = True
|
||||
Me.dgvGegenstände.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
Me.dgvGegenstände.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvGegenstände.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4})
|
||||
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
||||
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.dgvGegenstände.DefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.dgvGegenstände.GridColor = System.Drawing.Color.Gray
|
||||
Me.dgvGegenstände.Location = New System.Drawing.Point(17, 387)
|
||||
Me.dgvGegenstände.Name = "dgvGegenstände"
|
||||
Me.dgvGegenstände.RowHeadersVisible = False
|
||||
Me.dgvGegenstände.RowTemplate.Height = 20
|
||||
Me.dgvGegenstände.Size = New System.Drawing.Size(673, 450)
|
||||
Me.dgvGegenstände.TabIndex = 525
|
||||
'
|
||||
'DataGridViewTextBoxColumn1
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn1.HeaderText = "Container Laderaum"
|
||||
Me.DataGridViewTextBoxColumn1.MaxInputLength = 156
|
||||
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
|
||||
Me.DataGridViewTextBoxColumn1.Width = 166
|
||||
'
|
||||
'DataGridViewTextBoxColumn2
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
|
||||
Me.DataGridViewTextBoxColumn2.MaxInputLength = 50
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'DataGridViewTextBoxColumn3
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn3.HeaderText = "Art des Gegenstandes"
|
||||
Me.DataGridViewTextBoxColumn3.MaxInputLength = 250
|
||||
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
|
||||
Me.DataGridViewTextBoxColumn3.Width = 320
|
||||
'
|
||||
'DataGridViewTextBoxColumn4
|
||||
'
|
||||
Me.DataGridViewTextBoxColumn4.HeaderText = "Bruttogew."
|
||||
Me.DataGridViewTextBoxColumn4.MaxInputLength = 90
|
||||
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
|
||||
Me.DataGridViewTextBoxColumn4.Width = 90
|
||||
'
|
||||
'usrcntlTIR
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.dgvGegenstände)
|
||||
Me.Controls.Add(Me.txtGesamtpaketName4)
|
||||
Me.Controls.Add(Me.txtGesamtpaketName7)
|
||||
Me.Controls.Add(Me.txtGesamtpaketName6)
|
||||
Me.Controls.Add(Me.txtGesamtpaketName5)
|
||||
Me.Controls.Add(Me.txtGesamtpaketName3)
|
||||
Me.Controls.Add(Me.txtGesamtpaketName2)
|
||||
Me.Controls.Add(Me.txtGesamtpaketName1)
|
||||
Me.Controls.Add(Me.txtGesamtpaket7)
|
||||
Me.Controls.Add(Me.txtGesamtpaket6)
|
||||
Me.Controls.Add(Me.txtGesamtpaket5)
|
||||
Me.Controls.Add(Me.txtGesamtpaket4)
|
||||
Me.Controls.Add(Me.txtGesamtpaket3)
|
||||
Me.Controls.Add(Me.txtGesamtpaket2)
|
||||
Me.Controls.Add(Me.txtGesamtpaket1)
|
||||
Me.Controls.Add(Me.txtAbgangszollstelle7)
|
||||
Me.Controls.Add(Me.txtAbgangszollstelle6)
|
||||
Me.Controls.Add(Me.txtAbgangszollstelle5)
|
||||
Me.Controls.Add(Me.txtAbgangszollstelle4)
|
||||
Me.Controls.Add(Me.txtAbgangszollstelle1)
|
||||
Me.Controls.Add(Me.txtAbgangszollstelle2)
|
||||
Me.Controls.Add(Me.txtAbgangszollstelle3)
|
||||
Me.Controls.Add(Me.txtZusDocument)
|
||||
Me.Controls.Add(Me.txtFahrzeug1)
|
||||
Me.Controls.Add(Me.txtBestimmungsland)
|
||||
Me.Controls.Add(Me.txtAbfahrtsland)
|
||||
Me.Controls.Add(Me.PictureBox1)
|
||||
Me.Name = "usrcntlTIR"
|
||||
Me.Size = New System.Drawing.Size(860, 1272)
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.dgvGegenstände, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Public WithEvents txtAbfahrtsland As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtBestimmungsland As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtFahrzeug1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtZusDocument As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtAbgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtAbgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtAbgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtAbgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtAbgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtAbgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtAbgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaket1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaket2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaket3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaket6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaket5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaket4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaket7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaketName1 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaketName2 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaketName3 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaketName7 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaketName6 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaketName5 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents txtGesamtpaketName4 As VERAG_PROG_ALLGEMEIN.MyRichTextBox
|
||||
Public WithEvents dgvGegenstände As DataGridView
|
||||
Friend WithEvents DataGridViewTextBoxColumn1 As DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn2 As DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn3 As DataGridViewTextBoxColumn
|
||||
Friend WithEvents DataGridViewTextBoxColumn4 As DataGridViewTextBoxColumn
|
||||
End Class
|
||||
19454
SDL/Formulare/CARNET-TIR/usrcntlTIR.resx
Normal file
19454
SDL/Formulare/CARNET-TIR/usrcntlTIR.resx
Normal file
File diff suppressed because it is too large
Load Diff
20
SDL/Formulare/CARNET-TIR/usrcntlTIR.vb
Normal file
20
SDL/Formulare/CARNET-TIR/usrcntlTIR.vb
Normal 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
|
||||
|
||||
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
|
||||
@@ -531,6 +531,24 @@
|
||||
<Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\CARNET-TIR\frmTIR.Designer.vb">
|
||||
<DependentUpon>frmTIR.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\CARNET-TIR\frmTIR.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\CARNET-TIR\usrcntlTIR.Designer.vb">
|
||||
<DependentUpon>usrcntlTIR.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\CARNET-TIR\usrcntlTIR.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\CARNET-TIR\rptTIR.Designer.vb">
|
||||
<DependentUpon>rptTIR.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\CARNET-TIR\rptTIR.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_EUSTBerechnen.Designer.vb">
|
||||
<DependentUpon>frmVorauskasse_EUSTBerechnen.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -2824,6 +2842,15 @@
|
||||
<EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.resx">
|
||||
<DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\CARNET-TIR\frmTIR.resx">
|
||||
<DependentUpon>frmTIR.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\CARNET-TIR\usrcntlTIR.resx">
|
||||
<DependentUpon>usrcntlTIR.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\CARNET-TIR\rptTIR.resx">
|
||||
<DependentUpon>rptTIR.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\frmVorauskasse_EUSTBerechnen.resx">
|
||||
<DependentUpon>frmVorauskasse_EUSTBerechnen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -195,11 +195,12 @@ Partial Public Class rptKassenbuchBuchhaltung
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.DataField = ""
|
||||
Me.Label7.Height = 0.1377953!
|
||||
Me.Label7.HyperLink = Nothing
|
||||
Me.Label7.Left = 3.327!
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Style = "font-size: 7pt; font-weight: bold; text-align: left"
|
||||
Me.Label7.Style = "color: Black; font-size: 7pt; font-weight: bold; text-align: center"
|
||||
Me.Label7.Text = "ZM"
|
||||
Me.Label7.Top = 0.004!
|
||||
Me.Label7.Width = 0.4400001!
|
||||
|
||||
@@ -118,7 +118,7 @@
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<data name="lblJournalNr.Style" xml:space="preserve">
|
||||
<value>border-top-width: 1px; border-top-style: : : : : : : : : : : : : solid; border-top-color: gray; border-right-width: 1px; border-right-style: solid; border-right-color: gray; border-bottom-width: 1px; border-bottom-style: : : : : : : : : : : : : solid; border-bottom-color: gray; border-left-width: 1px; border-left-style: : : : : : : : : : : : : solid; border-left-color: gray; font-size: 7pt; text-align: right; ddo-char-set: 1</value>
|
||||
<value>border-top-width: 1px; border-top-style: : : : : : : : : : : : : : solid; border-top-color: gray; border-right-width: 1px; border-right-style: solid; border-right-color: gray; border-bottom-width: 1px; border-bottom-style: : : : : : : : : : : : : : solid; border-bottom-color: gray; border-left-width: 1px; border-left-style: : : : : : : : : : : : : : solid; border-left-color: gray; font-size: 7pt; text-align: right; ddo-char-set: 1</value>
|
||||
</data>
|
||||
<metadata name="$this.ScriptEditorPositionForUndo" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>0, 0</value>
|
||||
|
||||
@@ -30,5 +30,7 @@ Public Class rptKassenbuchBuchhaltung
|
||||
c.Border.Color = Color.Gray
|
||||
End Sub
|
||||
|
||||
Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
38
SDL/kassenbuch/frmBelegNeu.Designer.vb
generated
38
SDL/kassenbuch/frmBelegNeu.Designer.vb
generated
@@ -141,6 +141,8 @@ Partial Class frmBelegNeu
|
||||
Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.Label28 = New System.Windows.Forms.Label()
|
||||
Me.lblZahlungsmittel = New System.Windows.Forms.Label()
|
||||
CType(Me.dgvBelegPos, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.pnlData.SuspendLayout()
|
||||
@@ -410,7 +412,7 @@ Partial Class frmBelegNeu
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label12.Location = New System.Drawing.Point(352, 87)
|
||||
Me.Label12.Location = New System.Drawing.Point(352, 101)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label12.TabIndex = 13
|
||||
@@ -420,7 +422,7 @@ Partial Class frmBelegNeu
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label16.Location = New System.Drawing.Point(352, 67)
|
||||
Me.Label16.Location = New System.Drawing.Point(352, 81)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(84, 13)
|
||||
Me.Label16.TabIndex = 11
|
||||
@@ -642,6 +644,8 @@ Partial Class frmBelegNeu
|
||||
'pnlData
|
||||
'
|
||||
Me.pnlData.BackColor = System.Drawing.Color.FromArgb(CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer), CType(CType(244, Byte), Integer))
|
||||
Me.pnlData.Controls.Add(Me.Label28)
|
||||
Me.pnlData.Controls.Add(Me.lblZahlungsmittel)
|
||||
Me.pnlData.Controls.Add(Me.txtzuKassieren)
|
||||
Me.pnlData.Controls.Add(Me.Label22)
|
||||
Me.pnlData.Controls.Add(Me.cbxSplittung)
|
||||
@@ -866,7 +870,7 @@ Partial Class frmBelegNeu
|
||||
Me.lblErr_steuer.AutoSize = True
|
||||
Me.lblErr_steuer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblErr_steuer.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblErr_steuer.Location = New System.Drawing.Point(376, 48)
|
||||
Me.lblErr_steuer.Location = New System.Drawing.Point(376, 62)
|
||||
Me.lblErr_steuer.Name = "lblErr_steuer"
|
||||
Me.lblErr_steuer.Size = New System.Drawing.Size(244, 13)
|
||||
Me.lblErr_steuer.TabIndex = 9
|
||||
@@ -936,7 +940,7 @@ Partial Class frmBelegNeu
|
||||
Me.txtSteuersatz._Waehrung = False
|
||||
Me.txtSteuersatz._WaehrungZeichen = True
|
||||
Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtSteuersatz.Location = New System.Drawing.Point(441, 84)
|
||||
Me.txtSteuersatz.Location = New System.Drawing.Point(441, 98)
|
||||
Me.txtSteuersatz.MaxLineLength = -1
|
||||
Me.txtSteuersatz.MaxLines_Warning = ""
|
||||
Me.txtSteuersatz.MaxLines_Warning_Label = Nothing
|
||||
@@ -952,7 +956,7 @@ Partial Class frmBelegNeu
|
||||
Me.cboSteuerschlüssel._value = ""
|
||||
Me.cboSteuerschlüssel.CausesValidation = False
|
||||
Me.cboSteuerschlüssel.FormattingEnabled = True
|
||||
Me.cboSteuerschlüssel.Location = New System.Drawing.Point(441, 64)
|
||||
Me.cboSteuerschlüssel.Location = New System.Drawing.Point(441, 78)
|
||||
Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel"
|
||||
Me.cboSteuerschlüssel.Size = New System.Drawing.Size(179, 21)
|
||||
Me.cboSteuerschlüssel.TabIndex = 20
|
||||
@@ -1708,6 +1712,28 @@ Partial Class frmBelegNeu
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'Label28
|
||||
'
|
||||
Me.Label28.AutoSize = True
|
||||
Me.Label28.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label28.Location = New System.Drawing.Point(406, 38)
|
||||
Me.Label28.Name = "Label28"
|
||||
Me.Label28.Size = New System.Drawing.Size(78, 13)
|
||||
Me.Label28.TabIndex = 46
|
||||
Me.Label28.Text = "Zahlungsmittel:"
|
||||
'
|
||||
'lblZahlungsmittel
|
||||
'
|
||||
Me.lblZahlungsmittel.AutoSize = True
|
||||
Me.lblZahlungsmittel.BackColor = System.Drawing.Color.Transparent
|
||||
Me.lblZahlungsmittel.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblZahlungsmittel.Location = New System.Drawing.Point(494, 35)
|
||||
Me.lblZahlungsmittel.Name = "lblZahlungsmittel"
|
||||
Me.lblZahlungsmittel.Size = New System.Drawing.Size(14, 17)
|
||||
Me.lblZahlungsmittel.TabIndex = 47
|
||||
Me.lblZahlungsmittel.Text = "-"
|
||||
'
|
||||
'frmBelegNeu
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
|
||||
@@ -1853,4 +1879,6 @@ Partial Class frmBelegNeu
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents Label27 As Label
|
||||
Friend WithEvents Label26 As Label
|
||||
Friend WithEvents Label28 As Label
|
||||
Friend WithEvents lblZahlungsmittel As Label
|
||||
End Class
|
||||
|
||||
@@ -159,6 +159,9 @@
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>86</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
|
||||
@@ -302,7 +302,7 @@ Public Class frmBelegNeu
|
||||
AddHandler EasyZVT_Worker.DoWork, New ComponentModel.DoWorkEventHandler(AddressOf EasyZVT_Async)
|
||||
AddHandler EasyZVT_Worker.RunWorkerCompleted, New System.ComponentModel.RunWorkerCompletedEventHandler(AddressOf EasyZVT_OnCompleted)
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("Kassenbuch_POS_Terminalzahlungen", Me) = 0 Then
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kassenbuch_POS_Terminalzahlungen", Me) Then
|
||||
btnPOS.Enabled = False
|
||||
End If
|
||||
|
||||
@@ -314,6 +314,7 @@ Public Class frmBelegNeu
|
||||
Sub init()
|
||||
'lblRgNr.Text = "12345 / TR"
|
||||
lblBelegDatum.Text = BELEG.BelegDat.ToShortDateString
|
||||
lblZahlungsmittel.Text = cRKSV.getZahlungsmittel(BELEG, PERSONAL, PERSONAL.cRKSV_Kasse.rksv_firma)
|
||||
lblkundeKdNr.Text = IIf(BELEG.KundenNr > 0, BELEG.KundenNr, "")
|
||||
kdkunde.Text = BELEG.Ordnungsbegriff
|
||||
If BELEG.KundenNr > 0 Then kdkunde.KdNr = BELEG.KundenNr
|
||||
@@ -1357,6 +1358,8 @@ Public Class frmBelegNeu
|
||||
MsgBox(response)
|
||||
If returnCode = 0 Then 'Zahlung wurde erfolgreich durchgeführt
|
||||
setRKSV()
|
||||
Else
|
||||
Me.Cursor = Cursors.Default
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1430,6 +1433,16 @@ Public Class frmBelegNeu
|
||||
ZVTKey.SetValue("ComSpeed", CInt(posTerminal.pos_comspeed), RegistryValueKind.DWord)
|
||||
ZVTKey.SetValue("ComStop", CInt(posTerminal.pos_comstop), RegistryValueKind.DWord)
|
||||
ZVTKey.SetValue("Lizenz", posTerminal.pos_lizenz, RegistryValueKind.String)
|
||||
|
||||
If posTerminal.pos_Protokollpfad <> "" Then
|
||||
ZVTKey.SetValue("Protokollpfad", posTerminal.pos_Protokollpfad, RegistryValueKind.String)
|
||||
End If
|
||||
|
||||
If posTerminal.pos_XML And posTerminal.pos_Protokollpfad <> "" Then
|
||||
ZVTKey.SetValue("Ausgabepfad", posTerminal.pos_Protokollpfad, RegistryValueKind.String)
|
||||
End If
|
||||
|
||||
|
||||
If Funktion = 0 Or Funktion = 4 Then
|
||||
ZVTKey.SetValue("Betrag", Betrag * 100, RegistryValueKind.DWord) 'CENTbeträge 1€ --> 100 CENT
|
||||
End If
|
||||
@@ -1451,6 +1464,7 @@ Public Class frmBelegNeu
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show("Das Schreiben der Parameter ist fehlgeschlagen: " & ex.Message)
|
||||
Me.Cursor = Cursors.Default
|
||||
Exit Sub
|
||||
End Try
|
||||
ZVTKey.Close()
|
||||
@@ -1629,7 +1643,7 @@ Public Class frmBelegNeu
|
||||
|
||||
Select Case BELEG.Belegart
|
||||
Case "1"
|
||||
If cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
|
||||
If True Then 'cRKSV.printKundenBeleg(BELEG, KASSE, PERSONAL, cboPrinter.SelectedItem.ToString, cbxBelegOffnen.Checked) Then
|
||||
'WARTEN
|
||||
printErfolgreich = True
|
||||
End If
|
||||
|
||||
@@ -1,4 +1,5 @@
|
||||
Imports SDL.RKSVServer
|
||||
Imports DocumentFormat.OpenXml.Drawing
|
||||
Imports SDL.RKSVServer
|
||||
|
||||
Public Class frmKassenbuch
|
||||
Dim SQL As New SQL
|
||||
@@ -917,8 +918,21 @@ Public Class frmKassenbuch
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim zahlungsmittel = cRKSV.getZahlungsmittel(BELEGTmp, PERSONAL, PERSONAL.cRKSV_Kasse.rksv_firma)
|
||||
|
||||
If zahlungsmittel = "EC" Then
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("POS_Zahlungen_stornieren", Me) Then
|
||||
If Not vbYes = MsgBox("Dieser Beleg wurde mittels EC gezahlt, Zahlung muss ebenfalls manuell auf Terminal storniert werden!", vbYesNoCancel) Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Else
|
||||
MsgBox("Der aktuelle Benutzer ist nicht berechtigt EC-Zahlungen zu stornieren!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'NUR KB
|
||||
@@ -982,7 +996,7 @@ Public Class frmKassenbuch
|
||||
|
||||
Dim PERSONALTmp As cPersonal = FMZOLL_SQL.getPersonalById(BELEGTmp.Benutzer)
|
||||
If master_Kasse = False Then
|
||||
If BELEGTmp.Benutzer <> PERSONAL.ID Then MsgBox("Der Beleg wurde von einem anderen Beutzer erstellt. " & vbNewLine & " Bitte wenden Sie sich an: '" & PERSONALTmp.Name & "'.") : Exit Sub
|
||||
If BELEGTmp.Benutzer <> PERSONAL.ID And Not zahlungsmittel = "EC" Then MsgBox("Der Beleg wurde von einem anderen Beutzer erstellt. " & vbNewLine & " Bitte wenden Sie sich an: '" & PERSONALTmp.Name & "'.") : Exit Sub
|
||||
End If
|
||||
Dim grund = InputBox("Möchten Sie den Beleg wirklich storinieren?" & vbNewLine & vbNewLine & "Betrag: " & BELEGTmp.rksv_umsatz & vbNewLine & "Datum: " & BELEGTmp.BelegDat & vbNewLine & vbNewLine & "Bitte geben Sie einen Stornogrund an:" & vbNewLine, "Storno")
|
||||
If grund = "" Then
|
||||
@@ -1054,7 +1068,6 @@ Public Class frmKassenbuch
|
||||
Case Else
|
||||
cRKSV.printKundenBeleg(BELEGTmp, KASSETmp, PERSONALTmp, "", False) 'Beleg drucken
|
||||
End Select
|
||||
|
||||
MsgBox("Beleg storniert!")
|
||||
'Dim frmBeleg As New frmBelegNeu(PERSONAL, PERSONAL.Mandant, PERSONAL.Niederlassung, dt.Rows(0)("Benutzer"), dt.Rows(0)("BelegNr"), dt.Rows(0)("BelegDat"))
|
||||
' frmBeleg.ShowDialog(Me)
|
||||
@@ -1066,6 +1079,9 @@ Public Class frmKassenbuch
|
||||
Else
|
||||
MsgBox("Keine Daten gefunden!")
|
||||
End If
|
||||
init()
|
||||
Else
|
||||
MsgBox("Keine Daten gefunden!")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
93
SDL/kassenbuch/frmPOSTerminal.Designer.vb
generated
93
SDL/kassenbuch/frmPOSTerminal.Designer.vb
generated
@@ -71,6 +71,8 @@ Partial Class frmPOSTerminal
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.txtFIBU = New System.Windows.Forms.TextBox()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.Label23 = New System.Windows.Forms.Label()
|
||||
@@ -93,8 +95,11 @@ Partial Class frmPOSTerminal
|
||||
Me.btn_Autorisierung = New System.Windows.Forms.Button()
|
||||
Me.txt_Betrag = New System.Windows.Forms.TextBox()
|
||||
Me.lblWarning = New System.Windows.Forms.Label()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.txtFIBU = New System.Windows.Forms.TextBox()
|
||||
Me.Label25 = New System.Windows.Forms.Label()
|
||||
Me.txtPfad = New System.Windows.Forms.TextBox()
|
||||
Me.Label26 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.btnPfad = New VERAG_PROG_ALLGEMEIN.FlatButton()
|
||||
CType(Me.dgvTerminals, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
@@ -538,6 +543,11 @@ Partial Class frmPOSTerminal
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.btnPfad)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox1)
|
||||
Me.TabPage1.Controls.Add(Me.Label26)
|
||||
Me.TabPage1.Controls.Add(Me.Label25)
|
||||
Me.TabPage1.Controls.Add(Me.txtPfad)
|
||||
Me.TabPage1.Controls.Add(Me.Label24)
|
||||
Me.TabPage1.Controls.Add(Me.txtFIBU)
|
||||
Me.TabPage1.Controls.Add(Me.Label16)
|
||||
@@ -571,6 +581,22 @@ Partial Class frmPOSTerminal
|
||||
Me.TabPage1.Text = "Allgemein"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label24
|
||||
'
|
||||
Me.Label24.AutoSize = True
|
||||
Me.Label24.Location = New System.Drawing.Point(8, 280)
|
||||
Me.Label24.Name = "Label24"
|
||||
Me.Label24.Size = New System.Drawing.Size(62, 13)
|
||||
Me.Label24.TabIndex = 149
|
||||
Me.Label24.Text = "FIBU Konto"
|
||||
'
|
||||
'txtFIBU
|
||||
'
|
||||
Me.txtFIBU.Location = New System.Drawing.Point(135, 277)
|
||||
Me.txtFIBU.Name = "txtFIBU"
|
||||
Me.txtFIBU.Size = New System.Drawing.Size(67, 20)
|
||||
Me.txtFIBU.TabIndex = 150
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.Label15)
|
||||
@@ -806,21 +832,55 @@ Partial Class frmPOSTerminal
|
||||
Me.lblWarning.TabIndex = 150
|
||||
Me.lblWarning.Text = "Warning"
|
||||
'
|
||||
'Label24
|
||||
'Label25
|
||||
'
|
||||
Me.Label24.AutoSize = True
|
||||
Me.Label24.Location = New System.Drawing.Point(8, 280)
|
||||
Me.Label24.Name = "Label24"
|
||||
Me.Label24.Size = New System.Drawing.Size(62, 13)
|
||||
Me.Label24.TabIndex = 149
|
||||
Me.Label24.Text = "FIBU Konto"
|
||||
Me.Label25.AutoSize = True
|
||||
Me.Label25.Location = New System.Drawing.Point(8, 306)
|
||||
Me.Label25.Name = "Label25"
|
||||
Me.Label25.Size = New System.Drawing.Size(76, 13)
|
||||
Me.Label25.TabIndex = 151
|
||||
Me.Label25.Text = "Protokollpfad *"
|
||||
'
|
||||
'txtFIBU
|
||||
'txtPfad
|
||||
'
|
||||
Me.txtFIBU.Location = New System.Drawing.Point(135, 277)
|
||||
Me.txtFIBU.Name = "txtFIBU"
|
||||
Me.txtFIBU.Size = New System.Drawing.Size(190, 20)
|
||||
Me.txtFIBU.TabIndex = 150
|
||||
Me.txtPfad.Location = New System.Drawing.Point(135, 303)
|
||||
Me.txtPfad.Name = "txtPfad"
|
||||
Me.txtPfad.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtPfad.TabIndex = 152
|
||||
'
|
||||
'Label26
|
||||
'
|
||||
Me.Label26.AutoSize = True
|
||||
Me.Label26.Location = New System.Drawing.Point(134, 326)
|
||||
Me.Label26.Name = "Label26"
|
||||
Me.Label26.Size = New System.Drawing.Size(308, 13)
|
||||
Me.Label26.TabIndex = 153
|
||||
Me.Label26.Text = "* wenn leer, Protokolldateien unter Dokumente\GUB\ZVTLOG\"
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(345, 302)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(113, 17)
|
||||
Me.CheckBox1.TabIndex = 154
|
||||
Me.CheckBox1.Text = "als XML speichern"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnPfad
|
||||
'
|
||||
Me.btnPfad.allowBorder = False
|
||||
Me.btnPfad.BackgroundImage = Global.SDL.My.Resources.Resources.stift
|
||||
Me.btnPfad.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.btnPfad.FlatAppearance.BorderSize = 0
|
||||
Me.btnPfad.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnPfad.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnPfad.Location = New System.Drawing.Point(318, 306)
|
||||
Me.btnPfad.Name = "btnPfad"
|
||||
Me.btnPfad.Size = New System.Drawing.Size(21, 17)
|
||||
Me.btnPfad.TabIndex = 155
|
||||
Me.btnPfad.UseVisualStyleBackColor = True
|
||||
Me.btnPfad.Visible = False
|
||||
'
|
||||
'frmPOSTerminal
|
||||
'
|
||||
@@ -920,4 +980,9 @@ Partial Class frmPOSTerminal
|
||||
Friend WithEvents txt_Kartentyp As TextBox
|
||||
Friend WithEvents Label24 As Label
|
||||
Friend WithEvents txtFIBU As TextBox
|
||||
Friend WithEvents CheckBox1 As CheckBox
|
||||
Friend WithEvents Label26 As Label
|
||||
Friend WithEvents Label25 As Label
|
||||
Friend WithEvents txtPfad As TextBox
|
||||
Friend WithEvents btnPfad As VERAG_PROG_ALLGEMEIN.FlatButton
|
||||
End Class
|
||||
|
||||
@@ -69,6 +69,16 @@ Public Class frmPOSTerminal
|
||||
ZVTKey.SetValue("ComStop", CInt(cbx_ComStop.Text), RegistryValueKind.DWord)
|
||||
ZVTKey.SetValue("Lizenz", txt_Lizenz.Text, RegistryValueKind.String)
|
||||
|
||||
If txtPfad.Text <> "" Then
|
||||
ZVTKey.SetValue("Protokollpfad", txtPfad.Text, RegistryValueKind.String)
|
||||
End If
|
||||
|
||||
|
||||
If CheckBox1.Checked And txtPfad.Text <> "" Then
|
||||
ZVTKey.SetValue("Ausgabepfad", txtPfad.Text, RegistryValueKind.String)
|
||||
End If
|
||||
|
||||
|
||||
Select Case Funktion
|
||||
Case 0, 4
|
||||
Betrag = CInt("0" & txt_Betrag.Text)
|
||||
@@ -319,11 +329,8 @@ Public Class frmPOSTerminal
|
||||
|
||||
.Columns.Clear()
|
||||
|
||||
.SET_SQL("SELECT [pos_id],[pos_aktiv],[pos_kassennr],[pos_bezeichnung] ,[pos_kasse] ,[pos_com]
|
||||
,[pos_baudrate] ,[pos_comspeed] ,[pos_comstop] ,[pos_ip] ,[pos_port] ,[pos_typ]
|
||||
,[pos_lizenz] ,[pos_kassendruck] ,[pos_demoausdruck]
|
||||
,[pos_demodummyausdruck] ,[pos_pin] ,[pos_händerbeleg_drucken] ,[pos_storno] ,[pos_wartezeit],[pos_fibu]
|
||||
FROM [VERAG].[dbo].[tblRKSV_POS] WHERE [pos_kasse] =" & kassenID, "FMZOLL")
|
||||
.SET_SQL("SELECT [pos_id],[pos_aktiv],[pos_kassennr],[pos_bezeichnung] ,[pos_kasse]
|
||||
,[pos_ip] FROM [VERAG].[dbo].[tblRKSV_POS] WHERE [pos_kasse] =" & kassenID, "FMZOLL")
|
||||
|
||||
.LOAD()
|
||||
|
||||
@@ -338,30 +345,17 @@ Public Class frmPOSTerminal
|
||||
.Columns("pos_kassennr").HeaderText = "K-Nr"
|
||||
.Columns("pos_aktiv").Width = 25
|
||||
.Columns("pos_aktiv").HeaderText = ""
|
||||
.Columns("pos_kassendruck").Visible = False
|
||||
.Columns("pos_kasse").Visible = False
|
||||
.Columns("pos_com").Visible = False
|
||||
.Columns("pos_baudrate").Visible = False
|
||||
.Columns("pos_comspeed").Visible = False
|
||||
.Columns("pos_comstop").Visible = False
|
||||
.Columns("pos_port").Visible = False
|
||||
.Columns("pos_typ").Visible = False
|
||||
.Columns("pos_lizenz").Visible = False
|
||||
.Columns("pos_kassendruck").Visible = False
|
||||
.Columns("pos_demoausdruck").Visible = False
|
||||
.Columns("pos_demodummyausdruck").Visible = False
|
||||
.Columns("pos_pin").Visible = False
|
||||
.Columns("pos_händerbeleg_drucken").Visible = False
|
||||
.Columns("pos_storno").Visible = False
|
||||
.Columns("pos_wartezeit").Visible = False
|
||||
.Columns("pos_ip").HeaderText = "IP-Adresse"
|
||||
.Columns("pos_ip").Width = 100
|
||||
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub frmPOSTerminal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
Try
|
||||
btnPfad.Visible = True
|
||||
Text = kasse & " - POS Terminal einstellen "
|
||||
lblWarning.Text = ""
|
||||
btnNew.Enabled = False
|
||||
@@ -398,6 +392,10 @@ Public Class frmPOSTerminal
|
||||
cbx_ComStop.Text = currentPOS.pos_comstop
|
||||
txt_Lizenz.Text = currentPOS.pos_lizenz
|
||||
txtFIBU.Text = currentPOS.pos_FIBU
|
||||
txtPfad.Text = currentPOS.pos_Protokollpfad
|
||||
CheckBox1.Checked = currentPOS.pos_XML
|
||||
|
||||
|
||||
If currentPOS.pos_kassendruck Then
|
||||
cbx_Kassedruck.Checked = True
|
||||
Else
|
||||
@@ -459,6 +457,8 @@ Public Class frmPOSTerminal
|
||||
currentPOS.pos_comstop = cbx_ComStop.Text
|
||||
currentPOS.pos_lizenz = txt_Lizenz.Text
|
||||
currentPOS.pos_FIBU = txtFIBU.Text
|
||||
currentPOS.pos_Protokollpfad = txtPfad.Text
|
||||
currentPOS.pos_XML = CheckBox1.Checked
|
||||
If cbx_Kassedruck.Checked Then
|
||||
currentPOS.pos_kassendruck = True
|
||||
Else
|
||||
@@ -710,5 +710,22 @@ Public Class frmPOSTerminal
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub btnPfad_Click(sender As Object, e As EventArgs) Handles btnPfad.Click
|
||||
Dim dialog As New FolderBrowserDialog()
|
||||
If txtPfad.Text = "" Then
|
||||
dialog.RootFolder = Environment.SpecialFolder.Desktop
|
||||
dialog.SelectedPath = "C:\"
|
||||
dialog.Description = "Pfad für Protokolldatei auswählen"
|
||||
|
||||
Else
|
||||
dialog.SelectedPath = txtPfad.Text
|
||||
dialog.Description = "Pfad für Protokolldatei auswählen"
|
||||
|
||||
End If
|
||||
|
||||
If dialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
|
||||
txtPfad.Text = dialog.SelectedPath
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user