frmHauotfensterNew

This commit is contained in:
2026-01-14 08:41:23 +01:00
parent e6f557a4c2
commit 3b8623f46f
42 changed files with 6037 additions and 2964 deletions

View File

@@ -0,0 +1,532 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmEintragSammelakt
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()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmEintragSammelakt))
Me.btnOK = New System.Windows.Forms.Button()
Me.lblErfAm = New System.Windows.Forms.Label()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.txtInfo = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblLkwKennzeichen = New System.Windows.Forms.Label()
Me.txtÄnderungen = New System.Windows.Forms.TextBox()
Me.lblAenderungen = New System.Windows.Forms.Label()
Me.dtpDatum = New System.Windows.Forms.DateTimePicker()
Me.txtLKW_Nr = New System.Windows.Forms.TextBox()
Me.lblStatus = New System.Windows.Forms.Label()
Me.lblStatus2 = New System.Windows.Forms.Label()
Me.lblAktenuebersicht = New System.Windows.Forms.Label()
Me.grpAviso = New System.Windows.Forms.GroupBox()
Me.lblErr_Kunde = New System.Windows.Forms.Label()
Me.lblErr_Aktentyp = New System.Windows.Forms.Label()
Me.lblErr_LKW = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.kdAuftraggeber = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.clmnPfad = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.btnAuftraggeber = New System.Windows.Forms.Button()
Me.lblErrFmZollKdNr = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblErrErfasstDat = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.grpAviso.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnOK.Location = New System.Drawing.Point(21, 489)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(271, 45)
Me.btnOK.TabIndex = 24
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'lblErfAm
'
Me.lblErfAm.AutoSize = True
Me.lblErfAm.Location = New System.Drawing.Point(220, 12)
Me.lblErfAm.Name = "lblErfAm"
Me.lblErfAm.Size = New System.Drawing.Size(59, 13)
Me.lblErfAm.TabIndex = 2
Me.lblErfAm.Text = "Erfasst am:"
'
'btnAbbruch
'
Me.btnAbbruch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAbbruch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAbbruch.Location = New System.Drawing.Point(298, 489)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(111, 45)
Me.btnAbbruch.TabIndex = 27
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'txtInfo
'
Me.txtInfo.AcceptsReturn = True
Me.txtInfo.Location = New System.Drawing.Point(424, 356)
Me.txtInfo.MaxLength = 240
Me.txtInfo.Multiline = True
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtInfo.Size = New System.Drawing.Size(360, 75)
Me.txtInfo.TabIndex = 25
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(421, 340)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(25, 13)
Me.Label3.TabIndex = 21
Me.Label3.Text = "Info"
'
'lblLkwKennzeichen
'
Me.lblLkwKennzeichen.AutoSize = True
Me.lblLkwKennzeichen.Location = New System.Drawing.Point(6, 77)
Me.lblLkwKennzeichen.Name = "lblLkwKennzeichen"
Me.lblLkwKennzeichen.Size = New System.Drawing.Size(96, 13)
Me.lblLkwKennzeichen.TabIndex = 11
Me.lblLkwKennzeichen.Text = "Aktenbezeichnung"
'
'txtÄnderungen
'
Me.txtÄnderungen.AcceptsReturn = True
Me.txtÄnderungen.BackColor = System.Drawing.SystemColors.Info
Me.txtÄnderungen.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtÄnderungen.Location = New System.Drawing.Point(424, 466)
Me.txtÄnderungen.MaxLength = 0
Me.txtÄnderungen.Multiline = True
Me.txtÄnderungen.Name = "txtÄnderungen"
Me.txtÄnderungen.ReadOnly = True
Me.txtÄnderungen.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtÄnderungen.Size = New System.Drawing.Size(360, 68)
Me.txtÄnderungen.TabIndex = 13
Me.txtÄnderungen.TabStop = False
'
'lblAenderungen
'
Me.lblAenderungen.AutoSize = True
Me.lblAenderungen.Location = New System.Drawing.Point(421, 450)
Me.lblAenderungen.Name = "lblAenderungen"
Me.lblAenderungen.Size = New System.Drawing.Size(65, 13)
Me.lblAenderungen.TabIndex = 12
Me.lblAenderungen.Text = "Änderungen"
'
'dtpDatum
'
Me.dtpDatum.CustomFormat = "dd.MM.yyyy HH:mm"
Me.dtpDatum.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtpDatum.Location = New System.Drawing.Point(285, 7)
Me.dtpDatum.Name = "dtpDatum"
Me.dtpDatum.Size = New System.Drawing.Size(130, 20)
Me.dtpDatum.TabIndex = 0
'
'txtLKW_Nr
'
Me.txtLKW_Nr.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKW_Nr.Location = New System.Drawing.Point(108, 69)
Me.txtLKW_Nr.MaxLength = 30
Me.txtLKW_Nr.Name = "txtLKW_Nr"
Me.txtLKW_Nr.Size = New System.Drawing.Size(289, 26)
Me.txtLKW_Nr.TabIndex = 15
'
'lblStatus
'
Me.lblStatus.BackColor = System.Drawing.Color.LemonChiffon
Me.lblStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblStatus.ForeColor = System.Drawing.Color.Green
Me.lblStatus.Location = New System.Drawing.Point(516, 7)
Me.lblStatus.Name = "lblStatus"
Me.lblStatus.Size = New System.Drawing.Size(268, 20)
Me.lblStatus.TabIndex = 4
Me.lblStatus.Text = "freigegeben"
'
'lblStatus2
'
Me.lblStatus2.AutoSize = True
Me.lblStatus2.Location = New System.Drawing.Point(430, 12)
Me.lblStatus2.Name = "lblStatus2"
Me.lblStatus2.Size = New System.Drawing.Size(80, 13)
Me.lblStatus2.TabIndex = 3
Me.lblStatus2.Text = "aktueller Status"
'
'lblAktenuebersicht
'
Me.lblAktenuebersicht.AutoSize = True
Me.lblAktenuebersicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAktenuebersicht.Location = New System.Drawing.Point(12, 11)
Me.lblAktenuebersicht.Name = "lblAktenuebersicht"
Me.lblAktenuebersicht.Size = New System.Drawing.Size(130, 20)
Me.lblAktenuebersicht.TabIndex = 1
Me.lblAktenuebersicht.Text = "Aktenübersicht"
'
'grpAviso
'
Me.grpAviso.Controls.Add(Me.lblErr_Kunde)
Me.grpAviso.Controls.Add(Me.lblErr_Aktentyp)
Me.grpAviso.Controls.Add(Me.lblErr_LKW)
Me.grpAviso.Controls.Add(Me.Label5)
Me.grpAviso.Controls.Add(Me.Label4)
Me.grpAviso.Controls.Add(Me.Label1)
Me.grpAviso.Controls.Add(Me.MyComboBox1)
Me.grpAviso.Controls.Add(Me.PictureBox1)
Me.grpAviso.Controls.Add(Me.kdAuftraggeber)
Me.grpAviso.Controls.Add(Me.dgvAnhaenge)
Me.grpAviso.Controls.Add(Me.txtLKW_Nr)
Me.grpAviso.Controls.Add(Me.btnAuftraggeber)
Me.grpAviso.Controls.Add(Me.lblLkwKennzeichen)
Me.grpAviso.Location = New System.Drawing.Point(12, 49)
Me.grpAviso.Name = "grpAviso"
Me.grpAviso.Size = New System.Drawing.Size(403, 434)
Me.grpAviso.TabIndex = 7
Me.grpAviso.TabStop = False
Me.grpAviso.Text = "CBAM"
'
'lblErr_Kunde
'
Me.lblErr_Kunde.AutoSize = True
Me.lblErr_Kunde.ForeColor = System.Drawing.Color.Red
Me.lblErr_Kunde.Location = New System.Drawing.Point(105, 124)
Me.lblErr_Kunde.Name = "lblErr_Kunde"
Me.lblErr_Kunde.Size = New System.Drawing.Size(130, 13)
Me.lblErr_Kunde.TabIndex = 61
Me.lblErr_Kunde.Text = "Kunde darf nicht leer sein!"
Me.lblErr_Kunde.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Kunde.Visible = False
'
'lblErr_Aktentyp
'
Me.lblErr_Aktentyp.AutoSize = True
Me.lblErr_Aktentyp.ForeColor = System.Drawing.Color.Red
Me.lblErr_Aktentyp.Location = New System.Drawing.Point(105, 13)
Me.lblErr_Aktentyp.Name = "lblErr_Aktentyp"
Me.lblErr_Aktentyp.Size = New System.Drawing.Size(141, 13)
Me.lblErr_Aktentyp.TabIndex = 60
Me.lblErr_Aktentyp.Text = "Aktentyp darf nicht leer sein!"
Me.lblErr_Aktentyp.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_Aktentyp.Visible = False
'
'lblErr_LKW
'
Me.lblErr_LKW.AutoSize = True
Me.lblErr_LKW.ForeColor = System.Drawing.Color.Red
Me.lblErr_LKW.Location = New System.Drawing.Point(105, 58)
Me.lblErr_LKW.Name = "lblErr_LKW"
Me.lblErr_LKW.Size = New System.Drawing.Size(188, 13)
Me.lblErr_LKW.TabIndex = 54
Me.lblErr_LKW.Text = "Aktenbezeichnung darf nicht leer sein!"
Me.lblErr_LKW.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErr_LKW.Visible = False
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(6, 132)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(53, 13)
Me.Label5.TabIndex = 59
Me.Label5.Text = "Anhänge:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(6, 35)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(59, 13)
Me.Label4.TabIndex = 58
Me.Label4.Text = "Akten-Typ:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(6, 104)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(41, 13)
Me.Label1.TabIndex = 57
Me.Label1.Text = "Kunde:"
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(108, 27)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(198, 28)
Me.MyComboBox1.TabIndex = 56
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.AVISO.My.Resources.Resources.cbam_s
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(312, 9)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(85, 58)
Me.PictureBox1.TabIndex = 48
Me.PictureBox1.TabStop = False
'
'kdAuftraggeber
'
Me.kdAuftraggeber._AlleFirmenCLUSTER = False
Me.kdAuftraggeber._AllowSetValue = True
Me.kdAuftraggeber._autoSizeGross = False
Me.kdAuftraggeber._display_Name1 = False
Me.kdAuftraggeber._displayAVISO_Email = True
Me.kdAuftraggeber._displayFullName = False
Me.kdAuftraggeber._displayWoelflKd = False
Me.kdAuftraggeber._hideIfListEmpty = True
Me.kdAuftraggeber._loadKdData = False
Me.kdAuftraggeber._searchName1 = True
Me.kdAuftraggeber._UseFIRMA = ""
Me.kdAuftraggeber._ValueKdAndName = True
Me.kdAuftraggeber.dgvpos = "LEFT"
Me.kdAuftraggeber.KdName = ""
Me.kdAuftraggeber.KdNr = "-1"
Me.kdAuftraggeber.kdNrField = Nothing
Me.kdAuftraggeber.KdNrNullInt = Nothing
Me.kdAuftraggeber.Location = New System.Drawing.Point(108, 101)
Me.kdAuftraggeber.Name = "kdAuftraggeber"
Me.kdAuftraggeber.nurAktive = False
Me.kdAuftraggeber.searchActive = True
Me.kdAuftraggeber.Size = New System.Drawing.Size(258, 20)
Me.kdAuftraggeber.TabIndex = 42
Me.kdAuftraggeber.TIMER_SEARCH = True
Me.kdAuftraggeber.usrcntl = Nothing
'
'dgvAnhaenge
'
Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvAnhaenge.AllowUserToAddRows = False
Me.dgvAnhaenge.AllowUserToDeleteRows = False
Me.dgvAnhaenge.AllowUserToResizeColumns = False
Me.dgvAnhaenge.AllowUserToResizeRows = False
Me.dgvAnhaenge.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvAnhaenge.ColumnHeadersVisible = False
Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName, Me.clmnPfad})
Me.dgvAnhaenge.Location = New System.Drawing.Point(9, 148)
Me.dgvAnhaenge.Name = "dgvAnhaenge"
Me.dgvAnhaenge.ReadOnly = True
Me.dgvAnhaenge.RowHeadersVisible = False
Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvAnhaenge.Size = New System.Drawing.Size(388, 286)
Me.dgvAnhaenge.TabIndex = 17
'
'columnName
'
Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.columnName.HeaderText = "Name"
Me.columnName.Name = "columnName"
Me.columnName.ReadOnly = True
'
'clmnPfad
'
Me.clmnPfad.HeaderText = "Pfad"
Me.clmnPfad.Name = "clmnPfad"
Me.clmnPfad.ReadOnly = True
Me.clmnPfad.Visible = False
'
'btnAuftraggeber
'
Me.btnAuftraggeber.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnAuftraggeber.Enabled = False
Me.btnAuftraggeber.FlatAppearance.BorderSize = 0
Me.btnAuftraggeber.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAuftraggeber.Image = CType(resources.GetObject("btnAuftraggeber.Image"), System.Drawing.Image)
Me.btnAuftraggeber.Location = New System.Drawing.Point(372, 97)
Me.btnAuftraggeber.Name = "btnAuftraggeber"
Me.btnAuftraggeber.Size = New System.Drawing.Size(25, 24)
Me.btnAuftraggeber.TabIndex = 43
Me.btnAuftraggeber.TabStop = False
Me.btnAuftraggeber.Tag = "Kunde hinzufügen"
Me.btnAuftraggeber.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnAuftraggeber.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.btnAuftraggeber.UseVisualStyleBackColor = True
'
'lblErrFmZollKdNr
'
Me.lblErrFmZollKdNr.AutoSize = True
Me.lblErrFmZollKdNr.ForeColor = System.Drawing.Color.Red
Me.lblErrFmZollKdNr.Location = New System.Drawing.Point(591, 372)
Me.lblErrFmZollKdNr.Name = "lblErrFmZollKdNr"
Me.lblErrFmZollKdNr.Size = New System.Drawing.Size(156, 26)
Me.lblErrFmZollKdNr.TabIndex = 26
Me.lblErrFmZollKdNr.Text = "Wenn möglich bitte die FM-Zoll " & Global.Microsoft.VisualBasic.ChrW(10) & "Zuordnung mit KdNr eintragen!"
Me.lblErrFmZollKdNr.Visible = False
'
'Button3
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button3.Location = New System.Drawing.Point(424, 49)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(359, 37)
Me.Button3.TabIndex = 11
Me.Button3.Text = "Weiter zu den Unterakten"
Me.Button3.UseVisualStyleBackColor = True
'
'cboFirma
'
Me.cboFirma._allowedValuesFreiText = Nothing
Me.cboFirma._allowFreiText = False
Me.cboFirma._value = ""
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Location = New System.Drawing.Point(285, 28)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(130, 21)
Me.cboFirma.TabIndex = 6
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(220, 31)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(43, 13)
Me.Label2.TabIndex = 5
Me.Label2.Text = "FIRMA:"
'
'lblErrErfasstDat
'
Me.lblErrErfasstDat.AutoSize = True
Me.lblErrErfasstDat.ForeColor = System.Drawing.Color.Red
Me.lblErrErfasstDat.Location = New System.Drawing.Point(139, 5)
Me.lblErrErfasstDat.Name = "lblErrErfasstDat"
Me.lblErrErfasstDat.Size = New System.Drawing.Size(85, 26)
Me.lblErrErfasstDat.TabIndex = 52
Me.lblErrErfasstDat.Text = "Darf nicht in der " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Zukunft liegen!"
Me.lblErrErfasstDat.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblErrErfasstDat.Visible = False
'
'Label12
'
Me.Label12.BackColor = System.Drawing.Color.Transparent
Me.Label12.Location = New System.Drawing.Point(421, 432)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(372, 18)
Me.Label12.TabIndex = 29
Me.Label12.Text = "Achtung: im Feld Info nur allgemeine Infos erfassen. "
'
'Panel1
'
Me.Panel1.Location = New System.Drawing.Point(424, 92)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(358, 245)
Me.Panel1.TabIndex = 53
'
'frmEintragAvisoCBAM
'
Me.AcceptButton = Me.btnOK
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(792, 564)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cboFirma)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.grpAviso)
Me.Controls.Add(Me.lblAktenuebersicht)
Me.Controls.Add(Me.lblStatus)
Me.Controls.Add(Me.lblStatus2)
Me.Controls.Add(Me.lblErfAm)
Me.Controls.Add(Me.txtÄnderungen)
Me.Controls.Add(Me.dtpDatum)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.lblAenderungen)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.txtInfo)
Me.Controls.Add(Me.lblErrFmZollKdNr)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.lblErrErfasstDat)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmEintragAvisoCBAM"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Sammelaktakt erfassen/bearbeiten"
Me.grpAviso.ResumeLayout(False)
Me.grpAviso.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents lblErfAm As System.Windows.Forms.Label
Friend WithEvents btnAbbruch As System.Windows.Forms.Button
Friend WithEvents txtInfo As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents lblLkwKennzeichen As System.Windows.Forms.Label
Friend WithEvents txtÄnderungen As System.Windows.Forms.TextBox
Friend WithEvents lblAenderungen As System.Windows.Forms.Label
Friend WithEvents txtLKW_Nr As System.Windows.Forms.TextBox
Friend WithEvents txtDatum As System.Windows.Forms.TextBox
Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents lblStatus2 As System.Windows.Forms.Label
Friend WithEvents dtpDatum As System.Windows.Forms.DateTimePicker
Friend WithEvents lblAktenuebersicht As System.Windows.Forms.Label
Friend WithEvents grpAviso As System.Windows.Forms.GroupBox
Friend WithEvents lblErrFmZollKdNr As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents btnAuftraggeber As System.Windows.Forms.Button
Friend WithEvents kdAuftraggeber As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents columnName As DataGridViewTextBoxColumn
Friend WithEvents clmnPfad As DataGridViewTextBoxColumn
Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label2 As Label
Friend WithEvents lblErrErfasstDat As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label1 As Label
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label12 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents lblErr_Kunde As Label
Friend WithEvents lblErr_Aktentyp As Label
Friend WithEvents lblErr_LKW As Label
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -0,0 +1,597 @@
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Public Class frmEintragSammelakt
' Public frmHilf As frmMain
Dim Firmen As New cFirmenDAL
Dim AvisoDAL As New cAvisoDAL
Dim myAviso As New cAviso
Dim AVISOFUNC As New AvisoStatusFunctions
Dim ADMIN As New cADMIN
Dim hÄnderung As Boolean = False
Dim Neuanlage As Boolean = False
Public EingangsDatum As Date = CDate("01.01.1990")
Dim hStatus As Integer
Dim showSendungsdetails As Boolean = False
Dim hAdresse As String = ""
Dim hCC As String = ""
Public aktiv As Boolean = False
Public ATT As List(Of String)
Dim PROG As New cProgramFunctions
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public FIRMA_TMP As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Public Sub New()
InitializeComponent()
Icon = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.GetProgrammIcon
End Sub
Private Sub frmEintragAviso_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
'Escape händisch abfangen und auf Abbruch-Taste legen
If e.KeyCode = Keys.Escape Then
btnAbbruch.PerformClick()
End If
If e.KeyCode = Keys.Return Then
e.Handled = True
End If
End Sub
Sub initAttachment()
If ATT Is Nothing Then dgvAnhaenge.Visible = False : Exit Sub
dgvAnhaenge.Rows.Clear()
If ATT.Count = 0 Then
' btnSaveAttachments.Enabled = False
Else
dgvAnhaenge.Visible = True
For Each a In ATT
Dim display = a
If a.Contains("\") Then
Dim sp = a.Split("\")
display = sp(sp.Count - 1)
End If
dgvAnhaenge.Rows.Add({display, a})
Next
End If
dgvAnhaenge.ClearSelection()
End Sub
Private Sub frmEintragAviso_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
' MsgBox("Keine Berechtigung!")
' Me.Close()
'End If
Me.CenterToParent()
btnOK.Enabled = False
kdAuftraggeber.initKdBox(Me)
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CBAM", "CBAM"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EUDR", "EUDR"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FGAS", "FGAS"))
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLLBERATUNG", "COMPLIANCE"))
MyComboBox1.changeItem("")
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
ATILLA_NEUERAKTENDECKEL = True
End If
' SDL.cProgramFunctions.initDrucker(cboPrinter)
cboFirma.Items.Clear()
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
cboFirma.changeItem(FIRMA_TMP)
cboFirma.Enabled = False
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
cboFirma.Enabled = True
End If
AddHandler kdAuftraggeber.PropertyChanged, Sub()
If kdAuftraggeber.KdNr_value > 0 Then
btnAuftraggeber.Enabled = True
Else
btnAuftraggeber.Enabled = False
End If
End Sub
btnOK.Enabled = True
Dim bearb As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me.FindForm)
If cGlobal.Aktive_ID = 0 Then
'es erfolgt eine Neuanlage
Neuanlage = True
Me.Text = "Neuanlage LKW-Aviso"
dtpDatum.Value = Now
If Not bearb Then dtpDatum.Enabled = False
txtÄnderungen.Text = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter
lblStatus.Text = "Neuanlage"
kdAuftraggeber.Text = ""
Else
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
Me.Close()
End If
Me.Text = "Änderung LKW-Aviso"
'If myAviso.Status = cGlobal.Status_Ankunft Or myAviso.Status = cGlobal.Status_Freigegeben Then datVoraussichtlichesEintreffen.Visible = False
'txtInfo.Visible = False
'Label3.Visible = False
''ausgewählter Datensatz wird geladen
'Button3.Visible = False
myAviso = AvisoDAL.LesenAviso(cGlobal.Aktive_ID, "")
'Werte(zuweisen)
dtpDatum.Value = myAviso.Datum
If Not bearb Then dtpDatum.Enabled = False
If myAviso.Auftraggeber_KdNr > 0 Then
kdAuftraggeber.KdNr = myAviso.Auftraggeber_KdNr
Else
kdAuftraggeber.Text = myAviso.Auftraggeber
End If
txtInfo.Text = myAviso.Info.Trim
txtLKW_Nr.Text = myAviso.LKW_Nr
txtÄnderungen.Text = myAviso.Änderungen.Trim
hStatus = myAviso.Status
If myAviso.Status <> cGlobal.Status_Erfasst Then txtInfo.Enabled = False
'optOhneAviso.Checked = txtÄnderungen.Text.Contains("Neuanlage Ankunft ohne Aviso")
'Status anzeigen
Select Case hStatus
Case cGlobal.Status_Ankunft
lblStatus.Text = "Ankunft"
If myAviso.Ankunft <> LeerDatum Then lblStatus.Text += " " & Format(myAviso.Ankunft, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Blue
Case cGlobal.Status_Erfasst
lblStatus.Text = "erfasst"
lblStatus.ForeColor = Color.Red
Case cGlobal.Status_Freigegeben
lblStatus.Text = "Freigabe " & Format(myAviso.Freigabe, "dd.MM. HH:mm")
lblStatus.ForeColor = Color.Green
btnOK.Enabled = bearb
Case cGlobal.Status_NichtEingetroffen
lblStatus.Text = "LKW nicht eingetroffen"
lblStatus.ForeColor = Color.DarkGray
btnOK.Enabled = bearb
Case cGlobal.Status_Vorbereitet
lblStatus.Text = "Vorbereitet"
lblStatus.ForeColor = Color.Brown
btnOK.Enabled = bearb
Case cGlobal.Status_Vorgeschrieben
lblStatus.Text = "Vorgeschrieben"
lblStatus.ForeColor = Color.Purple
btnOK.Enabled = bearb
Case Else
lblStatus.Text = ""
End Select
lblStatus.Text = " " & lblStatus.Text & " " 'für bessere farbliche Hervorhebung
cboFirma.changeItem("")
cboFirma.changeItem(myAviso.FIRMA)
End If
If bearb Then Me.Text += " (Verwaltung)"
hÄnderung = False
dtpDatum.Enabled = bearb 'nur Administrator darf Erfassungsdatum ändern/bearbeiten
'If Neuanlage Then
' dtpAvisoEingangDatum.Value = Now.Date
' dtpAvisoEingangZeit.Value = LeerDatum
'Else
' dtpAvisoEingangDatum.Enabled = bearb
' dtpAvisoEingangZeit.Enabled = bearb
'End If
initAttachment()
End Sub
Private Sub dgvAnhaenge_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvAnhaenge.KeyDown
If e.KeyCode = Keys.Delete Then
If dgvAnhaenge.SelectedRows.Count > 0 Then
For Each row In dgvAnhaenge.SelectedRows.Cast(Of DataGridViewRow)().OrderByDescending(Function(dgvr) dgvr.Index)
ATT.RemoveAt(row.Index)
Next
'ATT.RemoveAt(dgvAnhaenge.SelectedRows(0).Index) 'Inex-Rows = Index-Att
initAttachment()
End If
End If
End Sub
Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Handles btnAbbruch.Click
Me.Close()
End Sub
Private Sub txtFeld_GotFocus(sender As Object, e As System.EventArgs) Handles txtLKW_Nr.GotFocus
CType(sender, TextBox).SelectAll()
End Sub
Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
Try
If Not aktiv Then Exit Sub
lblErrErfasstDat.Visible = False
lblErr_Aktentyp.Visible = False
lblErr_Kunde.Visible = False
lblErr_LKW.Visible = False
If FIRMA_TMP = "VERIMEX" Then
If cboFirma._value = "" Then
MsgBox("Firma auswählen!", vbInformation)
cboFirma.Focus()
Exit Sub
End If
End If
If dtpDatum.Enabled AndAlso CDate(dtpDatum.Value) > Now Then
lblErrErfasstDat.Visible = True
dtpDatum.Focus()
Exit Sub
End If
If MyComboBox1._value.Trim = "" Then
' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
lblErr_Aktentyp.Visible = True
MyComboBox1.Focus()
Exit Sub
End If
If txtLKW_Nr.Text.Trim = "" Then
' MsgBox("Bitte die LKW-Nummer eingegeben.", vbInformation)
lblErr_LKW.Visible = True
txtLKW_Nr.Focus()
Exit Sub
End If
If kdAuftraggeber.KdNr_value <= 0 Then
lblErr_Kunde.Visible = True
kdAuftraggeber.Focus()
Exit Sub
End If
If Neuanlage Then
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
Dim hLKWCheck2 As String = AvisoDAL.Suche_LKWStatus(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
If hLKWCheck2 <> "" Then
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck2 & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Aviso-Eintrag")
If antwort = vbNo Then
Exit Sub
End If
End If
If hLKWCheck2 = "" Then
'jetzt eine Prüfung, ob dieser LKW bereits vor kurzem erfasst wurde
Dim hLKWCheck As String = AvisoDAL.Suche_LKW(txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", ""))
If hLKWCheck <> "" Then
Dim antwort As MsgBoxResult = MsgBox(hLKWCheck & vbCrLf & vbCrLf & "Wollen Sie den Eintrag trotzdem speichern?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
"Aviso-Eintrag")
If antwort = vbNo Then
Exit Sub
End If
End If
End If
End If
Me.Cursor = Cursors.WaitCursor
Dim aendart As String = ""
Dim aendText As String = ""
'Werte zuweisen
myAviso.Telefonisch = ""
myAviso.Datum = dtpDatum.Value
myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "").Replace("-", "")
If kdAuftraggeber.KdNr_value > 0 Then
myAviso.Auftraggeber = IIf(kdAuftraggeber.KdName <> "", kdAuftraggeber.KdName, kdAuftraggeber.Text)
myAviso.Auftraggeber_KdNr = kdAuftraggeber.KdNr_value
Else
myAviso.Auftraggeber = kdAuftraggeber.Text
myAviso.Auftraggeber_KdNr = -1
End If
If myAviso.Auftraggeber.Length > 50 Then myAviso.Auftraggeber = myAviso.Auftraggeber.Substring(0, 50)
myAviso.Frächter = myAviso.Auftraggeber
myAviso.Frächter_KdNr = myAviso.Auftraggeber_KdNr
myAviso.Grenzstelle = ""
myAviso.Info = ""
If Neuanlage Then
myAviso.letzterMitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter
myAviso.TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
End If
If Neuanlage Then
myAviso.Änderungen = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
aendart = "Neuanlage"
aendText = "Neuanlage von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
Else
myAviso.Änderungen = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & myAviso.Änderungen
aendart = "Änderung per Eingabefenster"
aendText = "Änderung per Eingabefenster von " & cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")
End If
Dim DatAnkunftNow = AVISOFUNC.getAnkunftDateNow()
myAviso.Status = cGlobal.Status_Ankunft
myAviso.Status = cGlobal.Status_Erfasst
myAviso.Ankunft = LeerDatum
myAviso.Freigabe = LeerDatum
myAviso.Vorbereitet = LeerDatum
myAviso.Vorgeschrieben = LeerDatum
myAviso.Dauer = 0
myAviso.FIRMA = If(cboFirma._value <> "", cboFirma._value, FIRMA_TMP)
myAviso.Cluster = If(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, "")
Dim tmpId = AvisoDAL.SpeichernAviso(myAviso)
myAviso.AvisoID = tmpId
AvisoDAL.addAenderung(tmpId, aendart, aendText)
'Infotext als Vermerk:
If txtInfo.Text.Trim <> "" Then
If txtInfo.Text.Length <= 80 Then
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Trim, 46)
ElseIf txtInfo.Text.Length <= 160 Then
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
ElseIf txtInfo.Text.Length <= 240 Then
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(0, 80), 46)
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(80, 80), 46)
AvisoStatusFunctions.insertVermerkAllg(tmpId, txtInfo.Text.Substring(160, 80), 46)
End If
End If
Me.Cursor = Cursors.Default
'Jetzt wird Fenster geschlossen
Me.Close()
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = tmpId
frmHauptfenster.setAktDetails(tmpId, showSendungsdetails)
If showSendungsdetails Then
End If
Catch ex As Exception
Me.Cursor = Cursors.Default
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
''threadsicherer Aufruf
'Delegate Sub setCboEntryCallback(i As String)
'Private Sub setCboEntry(i As String)
' Try
' If Me.InvokeRequired Then
' Dim d As New setCboEntryCallback(AddressOf setCboEntry)
' Me.Invoke(d, New Object() {i})
' Else
' cboPrinter.Items.Add(i)
' End If
' Catch ex As Exception
' End Try
'End Sub
''threadsicherer Aufruf
'Delegate Sub setCboSelectedCallback(standardDrucker As String)
'Private Sub setCboSelected(standardDrucker As String)
' If Me.InvokeRequired Then
' Dim d As New setCboSelectedCallback(AddressOf setCboSelected)
' Me.Invoke(d, New Object() {standardDrucker})
' Else
' Dim found As Boolean = False
' ' For Each i In cboPrinter.Items
' 'If i.ToString.ToUpper.Contains("TALLY") Then
' 'found = True
' ' cboPrinter.SelectedItem = i : Exit For
' ' End If
' ' Next
' If found = False Then 'Falls kein TALLY, Standarddrucker
' cboPrinter.SelectedIndex = 0
' For Each i In cboPrinter.Items
' If i.ToString = standardDrucker Then
' cboPrinter.SelectedItem = i
' Exit For
' End If
' Next
' End If
' End If
'End Sub
Private Function Platzhalter_ersetzen(hText As String, hLKW As String, hGrenzstelle As String) As String
If hText = "" Then
Platzhalter_ersetzen = hText
Exit Function
End If
'hier werden alle möglichen Platzhalter ersetzt
hText = hText.Replace("%LKW%", hLKW)
If hGrenzstelle <> "" Then
Dim Standorte As New cStandorteDAL
Dim Standort As New cStandort
Standort = Standorte.LesenStandort(0, hGrenzstelle, "")
If Not IsNothing(Standort) Then
hGrenzstelle = Standort.Standort_Text.Trim
End If
End If
hText = hText.Replace("%Standort%", hGrenzstelle)
hText = hText.Replace("%Uhrzeit%", Format(Now, "HH:mm"))
hText = hText.Replace("&", "und")
Platzhalter_ersetzen = hText
End Function
Private Sub txtLKW_Nr_TextChanged(sender As Object, e As EventArgs) Handles txtLKW_Nr.Leave
txtLKW_Nr.Text = txtLKW_Nr.Text.ToUpper
End Sub
Private Sub frmEintragAviso_Shown(sender As Object, e As EventArgs) Handles Me.Shown
'dtpAvisoEingangZeit.Focus()
aktiv = True
'If EingangsDatum > CDate("01.01.1990") Then
' dtpAvisoEingangDatum.Value = EingangsDatum
' dtpAvisoEingangZeit.Value = EingangsDatum
'End If
VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If StartFromOUTLOOK Then
MsgBox("Diese Funktion ist im Outlook Addin nicht verfügbar!")
Exit Sub
End If
' Me.showSendungsdetails = True
btnOK.PerformClick()
'If dgvSendungen.SelectedRows.Count > 0 Then
'sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
'End If
If myAviso.AvisoID > 0 Then
If Process.GetCurrentProcess().ProcessName.ToUpper() = "AVISO" Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim frmSendungsdetails As New frmSendungsdetailsNEU(myAviso.AvisoID, -1)
frmSendungsdetails.ShowDialog(frmGrayOut)
frmGrayOut.Close()
Else
VERAG_PROG_ALLGEMEIN.cProgramFunctions.SendMessageToAviso("OpenAvisoSnd_" & myAviso.AvisoID)
End If
End If
'initDgvSendungen()
End Sub
Private Sub btnAuftraggeber_Click(sender As Object, e As EventArgs) Handles btnAuftraggeber.Click
If kdAuftraggeber.KdNr > 0 Then
Me.Cursor = Cursors.WaitCursor
AVISOFUNC.showKd(kdAuftraggeber.KdNr)
Me.Cursor = Cursors.Default
End If
End Sub
Private Sub dgvAnhaenge_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAnhaenge.CellDoubleClick, dgvAnhaenge.CellContentDoubleClick
Try
If dgvAnhaenge.SelectedRows.Count > 0 Then
If dgvAnhaenge.SelectedRows(0).Cells(1).Value <> "" Then
Process.Start(dgvAnhaenge.SelectedRows(0).Cells(1).Value)
End If
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
Select Case MyComboBox1._value
Case "CBAM"
PictureBox1.BackgroundImage = My.Resources.cbam_s
Case "EUDR"
PictureBox1.BackgroundImage = My.Resources.eudr
Case "FGAS"
PictureBox1.BackgroundImage = My.Resources.fgas_s
Case "COMPLIANCE"
PictureBox1.BackgroundImage = My.Resources.compliance_s
Case Else
PictureBox1.BackgroundImage = Nothing
End Select
End Sub
End Class

View File

@@ -0,0 +1,37 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class usrCntlHauptakt_CBAM
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()
Me.SuspendLayout()
'
'usrCntlHauptakt_CBAM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Name = "usrCntlHauptakt_CBAM"
Me.Size = New System.Drawing.Size(358, 245)
Me.ResumeLayout(False)
End Sub
End Class

View File

@@ -0,0 +1,120 @@
<?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>
</root>

View File

@@ -0,0 +1,3 @@
Public Class usrCntlHauptakt_CBAM
End Class

View File

@@ -559,6 +559,12 @@
<Compile Include="ADMIN\frmZuordnungKd.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="AktenErfassung\usrCntlHauptakt_CBAM.Designer.vb">
<DependentUpon>usrCntlHauptakt_CBAM.vb</DependentUpon>
</Compile>
<Compile Include="AktenErfassung\usrCntlHauptakt_CBAM.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Anhänge\frmAddSendnung.Designer.vb">
<DependentUpon>frmAddSendnung.vb</DependentUpon>
</Compile>
@@ -797,6 +803,12 @@
<Compile Include="frmATZollEingereichtSetzen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="AktenErfassung\frmEintragSammelakt.designer.vb">
<DependentUpon>frmEintragSammelakt.vb</DependentUpon>
</Compile>
<Compile Include="AktenErfassung\frmEintragSammelakt.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEintragTvNew.Designer.vb">
<DependentUpon>frmEintragTvNew.vb</DependentUpon>
</Compile>
@@ -989,16 +1001,16 @@
<Compile Include="frmDruck.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEintragAviso.designer.vb">
<Compile Include="AktenErfassung\frmEintragAviso.designer.vb">
<DependentUpon>frmEintragAviso.vb</DependentUpon>
</Compile>
<Compile Include="frmEintragAviso.vb">
<Compile Include="AktenErfassung\frmEintragAviso.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEintragAvisoInfo.designer.vb">
<Compile Include="AktenErfassung\frmEintragAvisoInfo.designer.vb">
<DependentUpon>frmEintragAvisoInfo.vb</DependentUpon>
</Compile>
<Compile Include="frmEintragAvisoInfo.vb">
<Compile Include="AktenErfassung\frmEintragAvisoInfo.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmEintragKW.designer.vb">
@@ -1006,6 +1018,7 @@
</Compile>
<Compile Include="frmEintragKW.vb">
<SubType>Form</SubType>
<Generator>v</Generator>
</Compile>
<Compile Include="frmEintragOptionen.designer.vb">
<DependentUpon>frmEintragOptionen.vb</DependentUpon>
@@ -1258,6 +1271,12 @@
<Compile Include="usrcntlFrachtkostenberechnung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlHauptfenster_Suche_AVISO.Designer.vb">
<DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlHauptfenster_Suche_AVISO.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
<DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
</Compile>
@@ -1312,6 +1331,9 @@
<EmbeddedResource Include="ADMIN\frmZuordnungKd.resx">
<DependentUpon>frmZuordnungKd.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AktenErfassung\usrCntlHauptakt_CBAM.resx">
<DependentUpon>usrCntlHauptakt_CBAM.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Anhänge\frmAddSendnung.resx">
<DependentUpon>frmAddSendnung.vb</DependentUpon>
</EmbeddedResource>
@@ -1415,6 +1437,9 @@
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="AktenErfassung\frmEintragSammelakt.resx">
<DependentUpon>frmEintragSammelakt.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEintragTvNew.resx">
<DependentUpon>frmEintragTvNew.vb</DependentUpon>
</EmbeddedResource>
@@ -1514,10 +1539,10 @@
<EmbeddedResource Include="frmDruck.resx">
<DependentUpon>frmDruck.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEintragAviso.resx">
<EmbeddedResource Include="AktenErfassung\frmEintragAviso.resx">
<DependentUpon>frmEintragAviso.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEintragAvisoInfo.resx">
<EmbeddedResource Include="AktenErfassung\frmEintragAvisoInfo.resx">
<DependentUpon>frmEintragAvisoInfo.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmEintragKW.resx">
@@ -1648,6 +1673,9 @@
<EmbeddedResource Include="usrcntlFrachtkostenberechnung.resx">
<DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlHauptfenster_Suche_AVISO.resx">
<DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">
<DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
</EmbeddedResource>
@@ -1783,6 +1811,7 @@
<ItemGroup>
<Content Include="aviso.ico" />
<Content Include="My Project\aktAlt.jpg" />
<None Include="Resources\zollberatung_s.png" />
<None Include="Resources\ZwAbEinfuegen.png" />
<None Include="Resources\unisped_aeo_DE.jpg" />
<None Include="Resources\Unisped_DE_logo.jpg" />
@@ -1837,6 +1866,10 @@
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\Declarant.png" />
<None Include="Resources\cbam_s.png" />
<None Include="Resources\compliance_s.png" />
<None Include="Resources\eudr.png" />
<None Include="Resources\fgas_s.png" />
<Content Include="Resources\FO.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.0.0")>
<Assembly: AssemblyFileVersion("4.2.0.0")>
<Assembly: AssemblyVersion("4.2.0.3")>
<Assembly: AssemblyFileVersion("4.2.0.3")>

View File

@@ -458,6 +458,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property cbam_s() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cbam_s", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -468,6 +478,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property compliance_s() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("compliance_s", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -648,6 +668,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property eudr() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("eudr", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -688,6 +718,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property fgas_s() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("fgas_s", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -2024,6 +2064,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Public ReadOnly Property zollberatung_s() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("zollberatung_s", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

View File

@@ -118,9 +118,15 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -193,18 +199,21 @@
<data name="VZ_HINDERNISS___ZOLLBESCHAU___PROTOKOLL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\vz hinderniss - zollbeschau - protokoll.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abfetigungTR_aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="digitalerAkt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="qr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -241,15 +250,15 @@
<data name="mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\parkplatz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="rhenus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rhenus.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow-left-a.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -298,6 +307,9 @@
<data name="vorauszahlung11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Unisped_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -328,8 +340,8 @@
<data name="gear2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="qr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GVMS-image" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\GVMS-image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -358,9 +370,6 @@
<data name="personCheck_gray_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck_gray_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ge_transport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ge_transport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -388,6 +397,12 @@
<data name="IMEX_LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="weiterleiten_small1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\weiterleiten_small.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -409,6 +424,9 @@
<data name="DGS_Instructions_Export" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\resources\dgs_instructions_export.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -421,9 +439,6 @@
<data name="fragezeichen1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fragezeichen1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll_m" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll_mm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -433,9 +448,6 @@
<data name="digitalerAkt_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\digitalerAkt_small.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="personCheck" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\personCheck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -448,6 +460,9 @@
<data name="vorauszahlung2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="dakosy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\dakosy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -466,6 +481,9 @@
<data name="Unisped_DE_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_DE_logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories0" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories0.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -493,15 +511,9 @@
<data name="wheel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\wheel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warning2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warning2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fakturiertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fakturiertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -556,29 +568,29 @@
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ImageIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ImageIcon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sprinter_white" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sprinter_white.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vermerk" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerk.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Declarant" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_3s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\3s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zeus" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zeus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="qr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -619,8 +631,8 @@
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="AMB" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\AMB.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -649,23 +661,23 @@
<data name="beleg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vermerkBtn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vermerkBtn.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="statusBtn_vorbereitet_Aktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_Aktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="memories2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\memories2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\image_443x282.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorgeschrieben_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorgeschrieben_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="truck_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\truck_black.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passport" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passport.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="word1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\word.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -673,11 +685,14 @@
<data name="evolog" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asdadasda5sd" xml:space="preserve">
<value />
</data>
<data name="abklaerungTR_Inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abklaerungTR_Inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="speditionsbuchAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\speditionsbuchAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="atr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\atr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -691,19 +706,19 @@
<data name="abfetigungTR_inaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\Diverses\miniButtons\abfetigungTR_inaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="qr_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\qr_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="cbam_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cbam_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asdadasda5sd" xml:space="preserve">
<value />
<data name="compliance_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compliance_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Declarant" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Declarant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="eudr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\eudr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="statusBtn_vorbereitet_InAktiv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statusBtn_vorbereitet_InAktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="fgas_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fgas_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Transcode" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Transcode.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="zollberatung_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zollberatung_s.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Aviso/Resources/cbam_s.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 15 KiB

BIN
Aviso/Resources/eudr.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 492 KiB

BIN
Aviso/Resources/fgas_s.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 13 KiB

View File

@@ -79,6 +79,7 @@ Partial Class frmHauptfenster
Me.RoutenverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnhangsartenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SpireLizenzPrüfenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.FirmaWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -115,6 +116,7 @@ Partial Class frmHauptfenster
Me.GesendeteSMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MRNBarcodedruckToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NewsletterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
Me.tool_BRGXLS = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
@@ -299,7 +301,6 @@ Partial Class frmHauptfenster
Me.picAVISOMessenger = New System.Windows.Forms.PictureBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.pnl = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
@@ -412,12 +413,12 @@ Partial Class frmHauptfenster
Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlLeft = New System.Windows.Forms.Panel()
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.NewsletterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button9 = New System.Windows.Forms.Button()
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -753,6 +754,12 @@ Partial Class frmHauptfenster
Me.SpireLizenzPrüfenToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
Me.SpireLizenzPrüfenToolStripMenuItem.Text = "Spire-Lizenz prüfen"
'
'UNBescheinigungAusTFEinlesenToolStripMenuItem
'
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Name = "UNBescheinigungAusTFEinlesenToolStripMenuItem"
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Text = "UN-Bescheinigung aus TF einlesen"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
@@ -979,6 +986,12 @@ Partial Class frmHauptfenster
Me.MRNBarcodedruckToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.MRNBarcodedruckToolStripMenuItem.Text = "MRN Barcodedruck"
'
'NewsletterToolStripMenuItem
'
Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem"
Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.NewsletterToolStripMenuItem.Text = "Newsletter"
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
@@ -1127,13 +1140,6 @@ Partial Class frmHauptfenster
'
Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem"
Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.VerträgeToolStripMenuItem.Text = "Verträge"
'
'VerträgeToolStripMenuItem
'
Me.VerträgeToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.spedbuch_small
Me.VerträgeToolStripMenuItem.Name = "VerträgeToolStripMenuItem"
Me.VerträgeToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.VerträgeToolStripMenuItem.Text = "Verträge"
'
@@ -2464,6 +2470,7 @@ Partial Class frmHauptfenster
'
'pnlLinksOben
'
Me.pnlLinksOben.Controls.Add(Me.Button9)
Me.pnlLinksOben.Controls.Add(Me.Label22)
Me.pnlLinksOben.Controls.Add(Me.btnE_Aviso)
Me.pnlLinksOben.Controls.Add(Me.btnNeu)
@@ -2591,15 +2598,6 @@ Partial Class frmHauptfenster
Me.SplitContainer3.SplitterDistance = 99
Me.SplitContainer3.TabIndex = 3
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(99, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'pnl
'
Me.pnl.Controls.Add(Me.Button10)
@@ -3956,15 +3954,6 @@ Partial Class frmHauptfenster
Me.pnlLeft.TabIndex = 88
Me.pnlLeft.Visible = False
'
'UsrCntlBenachrichtigungen2
'
Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51)
Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243)
Me.UsrCntlBenachrichtigungen2.TabIndex = 1
'
'Panel5
'
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
@@ -3993,15 +3982,40 @@ Partial Class frmHauptfenster
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'NewsletterToolStripMenuItem
'UNBescheinigungAusTFEinlesenToolStripMenuItem
'Button9
'
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Name = "UNBescheinigungAusTFEinlesenToolStripMenuItem"
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Size = New System.Drawing.Size(257, 22)
Me.UNBescheinigungAusTFEinlesenToolStripMenuItem.Text = "UN-Bescheinigung aus TF einlesen"
Me.NewsletterToolStripMenuItem.Name = "NewsletterToolStripMenuItem"
Me.NewsletterToolStripMenuItem.Size = New System.Drawing.Size(391, 30)
Me.NewsletterToolStripMenuItem.Text = "Newsletter"
Me.Button9.ContextMenuStrip = Me.cntxtAtilla
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button9.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button9.ForeColor = System.Drawing.Color.Black
Me.Button9.Image = CType(resources.GetObject("Button9.Image"), System.Drawing.Image)
Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button9.Location = New System.Drawing.Point(127, 4)
Me.Button9.MaximumSize = New System.Drawing.Size(121, 34)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(40, 34)
Me.Button9.TabIndex = 12
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.UseVisualStyleBackColor = True
Me.Button9.Visible = False
'
'UsrCntlBenachrichtigungen1
'
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(99, 300)
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
'
'UsrCntlBenachrichtigungen2
'
Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 51)
Me.UsrCntlBenachrichtigungen2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(252, 243)
Me.UsrCntlBenachrichtigungen2.TabIndex = 1
'
'frmHauptfenster
'
@@ -4464,4 +4478,5 @@ Partial Class frmHauptfenster
Friend WithEvents VerträgeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NewsletterToolStripMenuItem As ToolStripMenuItem
Friend WithEvents UNBescheinigungAusTFEinlesenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button9 As Button
End Class

View File

@@ -187,6 +187,14 @@
<metadata name="cntxtAtilla.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1158, 17</value>
</metadata>
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
zULyAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnNeu.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m

View File

@@ -255,6 +255,7 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
StartPipeListener()
End If
Button9.Visible = True 'CBAM..
End If
'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
@@ -5296,4 +5297,26 @@ ELSE_ATILLA:
Dim f As New SDL.frmNewsletter
f.Show(Me)
End Sub
Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click
Try
Me.Cursor = Cursors.WaitCursor
gridAviso.ClearSelection()
gridMyAviso.ClearSelection()
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
Dim f As New frmEintragSammelakt
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
If Not f.IsDisposed And f IsNot Nothing And Not frmGrayOut.IsDisposed And frmGrayOut IsNot Nothing Then
f.ShowDialog(frmGrayOut)
End If
frmGrayOut.Close()
btnRefresh.PerformClick() 'Aviso_anzeigen("")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, "LOG")
End Try
Me.Cursor = Cursors.Default
End Sub
End Class

File diff suppressed because it is too large Load Diff

View File

@@ -167,9 +167,6 @@
<metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>364, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
</metadata>
<data name="btnZertifikate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt
@@ -203,9 +200,6 @@
zULyAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>453, 17</value>
</metadata>
<data name="Button8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -249,6 +243,12 @@
sDvNfNUAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>659, 17</value>
</metadata>
@@ -283,14 +283,14 @@
<metadata name="ColorDialog.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1400, 17</value>
</metadata>
<metadata name="ctxtFarben.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="cntVerag.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="UidAbfrageService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>126, 56</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>25</value>
<value>113</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

File diff suppressed because it is too large Load Diff

View File

@@ -41,6 +41,17 @@ Public Class frmLogin
End If
e.Handled = True
End If
If e.Modifiers = Keys.Control And e.KeyCode = Keys.N Then
VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN = Not VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN
If VERAG_PROG_ALLGEMEIN.cAllgemein.NEWLOGIN Then
Panel1.BackColor = Color.GreenYellow
Panel1.ForeColor = Color.White
Else
Panel1.BackColor = Color.White
Panel1.ForeColor = Color.FromArgb(0, 54, 128)
End If
e.Handled = True
End If
If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor

View File

@@ -469,6 +469,8 @@ Public Class frmSendungsdetailsNEU
FlowLayoutPanel.Visible = False
End If
Try
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
@@ -509,6 +511,17 @@ Public Class frmSendungsdetailsNEU
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN
If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then
If vbYes = MsgBox("Der Sammelakt enthält keine Sendungen, möchten Sie die erste Sendung anlegen?", vbYesNoCancel) Then
ADD_SND(False)
Else
Me.Close()
Exit Sub
End If
End If
Dim sbWhere = ""
Dim QSwhere = ""
@@ -1179,44 +1192,7 @@ Public Class frmSendungsdetailsNEU
'b_add.Font.FontFamily, 14, FontStyle.Bold)
b_add.BackColor = Color.LightGray()
AddHandler b_add.Click, Sub(send As Object, ev As EventArgs)
If AVISO.Abgeschlossen Then Exit Sub
' Dim currentHisId = 0
' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try
' currentHisId += 1
Dim filiale_tmp As Integer = 0
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : filiale_tmp = 5501
Case "UNISPED" : filiale_tmp = 5601
Case "AMBAR" : filiale_tmp = 5701
Case "FRONTOFFICE" : filiale_tmp = 0 '5801
Case "VERIMEX" : filiale_tmp = 0 '6001
Case Else
Select Case AVISO.Grenzstelle
Case "SUB" : filiale_tmp = 4803
Case "SBG" : filiale_tmp = 5003
Case "WAI" : filiale_tmp = 5103
Case "NKD" : filiale_tmp = 5303
Case "SFD" : filiale_tmp = 4839
End Select
End Select
' loadDataInLIST()
If SAVE_ME() Then 'aktuelle Änderungen sichern
' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
' SENDUNG_LIST.Add(NEW_SND)
NEW_SND.SAVE(False) 'Insert neue Sendung
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden
' initDataBinding()
LAST_SENDUNG(False) 'letzte Sendung
initButtons()
End If
ADD_SND()
End Sub
FlowLayoutPanel.Controls.Add(b_add)
@@ -1232,6 +1208,52 @@ Public Class frmSendungsdetailsNEU
End Sub
Public Sub ADD_SND(Optional initAfter = True)
If AVISO.Abgeschlossen Then Exit Sub
' Dim currentHisId = 0
' Try : currentHisId = AVISO_newDataSet.tblSendungen.Select("tblSnd_PosUnterNr=MAX(tblSnd_PosUnterNr)")(0).Item("tblSnd_PosUnterNr") : Catch : End Try
' currentHisId += 1
Dim filiale_tmp As Integer = 0
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX" : filiale_tmp = 5501
Case "UNISPED" : filiale_tmp = 5601
Case "AMBAR" : filiale_tmp = 5701
Case "FRONTOFFICE" : filiale_tmp = 0 '5801
Case "VERIMEX" : filiale_tmp = 0 '6001
Case Else
Select Case AVISO.Grenzstelle
Case "SUB" : filiale_tmp = 4803
Case "SBG" : filiale_tmp = 5003
Case "WAI" : filiale_tmp = 5103
Case "NKD" : filiale_tmp = 5303
Case "SFD" : filiale_tmp = 4839
End Select
End Select
If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then 'Wenn noch keine Senungenen, nciht speichern
If Not SAVE_ME() Then Exit Sub 'Speichern, sonst abbruch
End If
' loadDataInLIST()
'If SAVE_ME() Then 'aktuelle Änderungen sichern
' Dim abfnr_tmp As Integer = IIf(filiale_tmp > 0, ADMIN.getMaxPosNrIncrement(filiale_tmp, Now.Year), 0)
Dim NEW_SND As New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SENDUNG_LIST.Count + 1, filiale_tmp, Nothing, 0, 0) 'Neue Sendung erstellen
' SENDUNG_LIST.Add(NEW_SND)
NEW_SND.SAVE(False) 'Insert neue Sendung
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'Alle Sendungen neu laden
' initDataBinding()
If initAfter Then LAST_SENDUNG(False) 'letzte Sendung
initButtons()
'End If
End Sub
Public Sub Duplicate(index)
' loadDataInLIST()
SAVE_ME()

File diff suppressed because it is too large Load Diff

View File

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

File diff suppressed because it is too large Load Diff