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

NEU

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-09-19 17:25:22 +02:00
parent c7ff55bbae
commit d29dc72b22
44 changed files with 3715 additions and 1390 deletions
Download Patch File Download Diff File Expand all files Collapse all files

229
Aviso/Anhänge/frmAddSendnung.Designer.vb generated Normal file
View File

@@ -0,0 +1,229 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmAddSendnung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAddSendnung))
Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtEmpfaenger = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.txtGewicht = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.txtColli = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rtbWarenbezeichnung = New System.Windows.Forms.RichTextBox()
Me.Label23 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'cboAbfertigungsart
'
Me.cboAbfertigungsart._allowedValuesFreiText = Nothing
Me.cboAbfertigungsart._allowFreiText = False
Me.cboAbfertigungsart._value = ""
Me.cboAbfertigungsart.BackColor = System.Drawing.Color.White
Me.cboAbfertigungsart.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboAbfertigungsart.FormattingEnabled = True
Me.cboAbfertigungsart.Location = New System.Drawing.Point(12, 29)
Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
Me.cboAbfertigungsart.Size = New System.Drawing.Size(359, 24)
Me.cboAbfertigungsart.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(10, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(109, 17)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Abfertigungsart:"
'
'txtEmpfaenger
'
Me.txtEmpfaenger._AllowSetValue = True
Me.txtEmpfaenger._autoSizeGross = True
Me.txtEmpfaenger._display_Name1 = False
Me.txtEmpfaenger._displayAVISO_Email = False
Me.txtEmpfaenger._displayFullName = False
Me.txtEmpfaenger._displayWoelflKd = False
Me.txtEmpfaenger._hideIfListEmpty = True
Me.txtEmpfaenger._loadKdData = True
Me.txtEmpfaenger._ValueKdAndName = False
Me.txtEmpfaenger.CharacterCasing = System.Windows.Forms.CharacterCasing.Upper
Me.txtEmpfaenger.dgvpos = "LEFT"
Me.txtEmpfaenger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtEmpfaenger.KdName = Nothing
Me.txtEmpfaenger.KdNr = "-1"
Me.txtEmpfaenger.kdNrField = Nothing
Me.txtEmpfaenger.KdNrNullInt = Nothing
Me.txtEmpfaenger.Location = New System.Drawing.Point(12, 84)
Me.txtEmpfaenger.Name = "txtEmpfaenger"
Me.txtEmpfaenger.nurAktive = True
Me.txtEmpfaenger.searchActive = True
Me.txtEmpfaenger.Size = New System.Drawing.Size(359, 23)
Me.txtEmpfaenger.TabIndex = 3
Me.txtEmpfaenger.usrcntl = Nothing
'
'txtGewicht
'
Me.txtGewicht._DateTimeOnly = False
Me.txtGewicht._numbersOnly = False
Me.txtGewicht._numbersOnlyKommastellen = ""
Me.txtGewicht._Prozent = False
Me.txtGewicht._ShortDateNew = False
Me.txtGewicht._ShortDateOnly = False
Me.txtGewicht._TimeOnly = False
Me.txtGewicht._value = Nothing
Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True
Me.txtGewicht.ForeColor = System.Drawing.Color.Black
Me.txtGewicht.Location = New System.Drawing.Point(152, 165)
Me.txtGewicht.MaxLineLength = -1
Me.txtGewicht.MaxLines_Warning = ""
Me.txtGewicht.MaxLines_Warning_Label = Nothing
Me.txtGewicht.Name = "txtGewicht"
Me.txtGewicht.Size = New System.Drawing.Size(60, 20)
Me.txtGewicht.TabIndex = 9
Me.txtGewicht.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(9, 117)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(100, 13)
Me.Label19.TabIndex = 4
Me.Label19.Text = "Warenbezeichnung"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(10, 168)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(73, 13)
Me.Label17.TabIndex = 6
Me.Label17.Text = "Colli/Gewicht:"
'
'txtColli
'
Me.txtColli._DateTimeOnly = False
Me.txtColli._numbersOnly = False
Me.txtColli._numbersOnlyKommastellen = ""
Me.txtColli._Prozent = False
Me.txtColli._ShortDateNew = False
Me.txtColli._ShortDateOnly = False
Me.txtColli._TimeOnly = False
Me.txtColli._value = Nothing
Me.txtColli._Waehrung = False
Me.txtColli._WaehrungZeichen = True
Me.txtColli.ForeColor = System.Drawing.Color.Black
Me.txtColli.Location = New System.Drawing.Point(84, 165)
Me.txtColli.MaxLineLength = -1
Me.txtColli.MaxLines_Warning = ""
Me.txtColli.MaxLines_Warning_Label = Nothing
Me.txtColli.Name = "txtColli"
Me.txtColli.Size = New System.Drawing.Size(46, 20)
Me.txtColli.TabIndex = 7
Me.txtColli.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'rtbWarenbezeichnung
'
Me.rtbWarenbezeichnung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.rtbWarenbezeichnung.Cursor = System.Windows.Forms.Cursors.IBeam
Me.rtbWarenbezeichnung.Location = New System.Drawing.Point(12, 133)
Me.rtbWarenbezeichnung.MaxLength = 500
Me.rtbWarenbezeichnung.Name = "rtbWarenbezeichnung"
Me.rtbWarenbezeichnung.Size = New System.Drawing.Size(359, 32)
Me.rtbWarenbezeichnung.TabIndex = 5
Me.rtbWarenbezeichnung.Text = ""
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Location = New System.Drawing.Point(129, 168)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(23, 13)
Me.Label23.TabIndex = 8
Me.Label23.Text = "Pk."
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label2.Location = New System.Drawing.Point(10, 64)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(81, 17)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Empfänger:"
'
'btn
'
Me.btn.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(12, 197)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(359, 52)
Me.btn.TabIndex = 10
Me.btn.Text = "OK"
Me.btn.UseVisualStyleBackColor = True
'
'frmAddSendnung
'
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(389, 261)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtGewicht)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.txtColli)
Me.Controls.Add(Me.rtbWarenbezeichnung)
Me.Controls.Add(Me.Label23)
Me.Controls.Add(Me.txtEmpfaenger)
Me.Controls.Add(Me.cboAbfertigungsart)
Me.Controls.Add(Me.Label1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmAddSendnung"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Sendnung hinzufügen"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cboAbfertigungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label1 As Label
Friend WithEvents txtEmpfaenger As VERAG_PROG_ALLGEMEIN.KdSearchBox
Friend WithEvents txtGewicht As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label19 As Label
Friend WithEvents Label17 As Label
Friend WithEvents txtColli As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rtbWarenbezeichnung As RichTextBox
Friend WithEvents Label23 As Label
Friend WithEvents Label2 As Label
Friend WithEvents btn As Button
End Class

1253
Aviso/Anhänge/frmAddSendnung.resx Normal file
View File

File diff suppressed because it is too large Load Diff

38
Aviso/Anhänge/frmAddSendnung.vb Normal file
View File

@@ -0,0 +1,38 @@
Public Class frmAddSendnung
Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim AvisoId As Integer
Sub New(AvisoId)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AvisoId = AvisoId
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
txtEmpfaenger.initKdBox(Me)
txtEmpfaenger.usrcntlWIDTH = 360
txtEmpfaenger.usrcntlHEIGHT = 100
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
Sendung.tblSnd_Abfertigungsart_ID = cboAbfertigungsart._value
Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
Sendung.tblSnd_Colli = txtColli.Text
Sendung.tblSnd_Gewicht = txtGewicht.Text
Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
If Sendung.SAVE Then
Me.DialogResult = DialogResult.OK
Else
Me.DialogResult = DialogResult.None
End If
End Sub
End Class

684
Aviso/frmSendungAnhangImport.Designer.vb → Aviso/Anhänge/frmSendungAnhangImport.Designer.vb generated
View File

@@ -26,35 +26,39 @@ Partial Class frmSendungAnhangImport
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSendungAnhangImport))
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel() Me.flpnlAviso = New System.Windows.Forms.FlowLayoutPanel()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel() Me.flpnlSendungen = New System.Windows.Forms.FlowLayoutPanel()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.pnlAnfuegen = New System.Windows.Forms.Panel() Me.pnlAnfuegen = New System.Windows.Forms.Panel()
Me.btnAnfuegenAll = New System.Windows.Forms.Button() Me.btnAnfuegenAll = New System.Windows.Forms.Button()
Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label7 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnAnfuegen = New System.Windows.Forms.Button() Me.btnAnfuegen = New System.Windows.Forms.Button()
Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.cbxDelPDF = New System.Windows.Forms.CheckBox() Me.cbxDelPDF = New System.Windows.Forms.CheckBox()
Me.btn = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DateiScannenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AusZwischenablageeinfügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
Me.Button5 = New System.Windows.Forms.Button()
Me.PdfViewer = New Spire.PdfViewer.Forms.PdfViewer()
Me.WebBrowser = New System.Windows.Forms.WebBrowser()
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument() Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
Me.Button1 = New System.Windows.Forms.Button()
Me.cboSendungen = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cboArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtSeiten = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.UsrCntlSendungAnhangElement1 = New AVISO.usrCntlSendungAnhangElement()
Me.UsrCntlSendungAnhangElement2 = New AVISO.usrCntlSendungAnhangElement()
Me.flpnlAviso.SuspendLayout() Me.flpnlAviso.SuspendLayout()
Me.pnlAnfuegen.SuspendLayout() Me.pnlAnfuegen.SuspendLayout()
Me.cntxt.SuspendLayout() Me.cntxt.SuspendLayout()
@@ -72,6 +76,8 @@ Partial Class frmSendungAnhangImport
' '
'flpnlAviso 'flpnlAviso
' '
Me.flpnlAviso.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.flpnlAviso.AutoScroll = True Me.flpnlAviso.AutoScroll = True
Me.flpnlAviso.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.flpnlAviso.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement1) Me.flpnlAviso.Controls.Add(Me.UsrCntlSendungAnhangElement1)
@@ -79,8 +85,360 @@ Partial Class frmSendungAnhangImport
Me.flpnlAviso.FlowDirection = System.Windows.Forms.FlowDirection.TopDown Me.flpnlAviso.FlowDirection = System.Windows.Forms.FlowDirection.TopDown
Me.flpnlAviso.Location = New System.Drawing.Point(15, 30) Me.flpnlAviso.Location = New System.Drawing.Point(15, 30)
Me.flpnlAviso.Name = "flpnlAviso" Me.flpnlAviso.Name = "flpnlAviso"
Me.flpnlAviso.Size = New System.Drawing.Size(200, 661) Me.flpnlAviso.Size = New System.Drawing.Size(200, 825)
Me.flpnlAviso.TabIndex = 1 Me.flpnlAviso.TabIndex = 7
'
'flpnlSendungen
'
Me.flpnlSendungen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.flpnlSendungen.AutoScroll = True
Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlSendungen.Location = New System.Drawing.Point(1073, 62)
Me.flpnlSendungen.Name = "flpnlSendungen"
Me.flpnlSendungen.Size = New System.Drawing.Size(230, 731)
Me.flpnlSendungen.TabIndex = 11
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(221, 182)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 13)
Me.Label1.TabIndex = 10
Me.Label1.Text = "Vorschau:"
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(1070, 14)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(65, 13)
Me.Label2.TabIndex = 6
Me.Label2.Text = "Sendungen:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(221, 14)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Import:"
'
'pnlAnfuegen
'
Me.pnlAnfuegen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlAnfuegen.BackColor = System.Drawing.Color.FloralWhite
Me.pnlAnfuegen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegenAll)
Me.pnlAnfuegen.Controls.Add(Me.txtDateiname)
Me.pnlAnfuegen.Controls.Add(Me.Label7)
Me.pnlAnfuegen.Controls.Add(Me.MyTextBox2)
Me.pnlAnfuegen.Controls.Add(Me.Label6)
Me.pnlAnfuegen.Controls.Add(Me.Label5)
Me.pnlAnfuegen.Controls.Add(Me.cboArt)
Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegen)
Me.pnlAnfuegen.Controls.Add(Me.txtSeiten)
Me.pnlAnfuegen.Controls.Add(Me.Label4)
Me.pnlAnfuegen.Controls.Add(Me.cbxDelPDF)
Me.pnlAnfuegen.Location = New System.Drawing.Point(221, 30)
Me.pnlAnfuegen.Name = "pnlAnfuegen"
Me.pnlAnfuegen.Size = New System.Drawing.Size(846, 142)
Me.pnlAnfuegen.TabIndex = 8
'
'btnAnfuegenAll
'
Me.btnAnfuegenAll.BackColor = System.Drawing.Color.Wheat
Me.btnAnfuegenAll.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegenAll.Location = New System.Drawing.Point(527, 47)
Me.btnAnfuegenAll.Name = "btnAnfuegenAll"
Me.btnAnfuegenAll.Size = New System.Drawing.Size(273, 56)
Me.btnAnfuegenAll.TabIndex = 8
Me.btnAnfuegenAll.Text = ">> Ganzes Dokument anfügen >>"
Me.btnAnfuegenAll.UseVisualStyleBackColor = False
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 14)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(35, 13)
Me.Label7.TabIndex = 0
Me.Label7.Text = "Datei:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 112)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(53, 13)
Me.Label6.TabIndex = 9
Me.Label6.Text = "Sendung:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(3, 83)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(23, 13)
Me.Label5.TabIndex = 5
Me.Label5.Text = "Art:"
'
'btnAnfuegen
'
Me.btnAnfuegen.BackColor = System.Drawing.Color.Wheat
Me.btnAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegen.Location = New System.Drawing.Point(316, 47)
Me.btnAnfuegen.Name = "btnAnfuegen"
Me.btnAnfuegen.Size = New System.Drawing.Size(205, 56)
Me.btnAnfuegen.TabIndex = 7
Me.btnAnfuegen.Text = ">> Anfügen >>"
Me.btnAnfuegen.UseVisualStyleBackColor = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 55)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(40, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Seiten:"
'
'cbxDelPDF
'
Me.cbxDelPDF.AutoSize = True
Me.cbxDelPDF.Checked = True
Me.cbxDelPDF.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDelPDF.Location = New System.Drawing.Point(316, 31)
Me.cbxDelPDF.Name = "cbxDelPDF"
Me.cbxDelPDF.Size = New System.Drawing.Size(244, 17)
Me.cbxDelPDF.TabIndex = 2
Me.cbxDelPDF.Text = "angefügte Dateien aus Original PDF entfernen"
Me.cbxDelPDF.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.ContextMenuStrip = Me.cntxt
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(71, 3)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 25)
Me.btn.TabIndex = 3
Me.btn.Text = "Hinzufügen"
Me.btn.UseVisualStyleBackColor = True
'
'cntxt
'
Me.cntxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem, Me.DateiScannenToolStripMenuItem, Me.AusZwischenablageeinfügenToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(250, 70)
'
'DateiHochladenToolStripMenuItem
'
Me.DateiHochladenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.DateiHochladenToolStripMenuItem.Text = "Datei hochladen..."
'
'DateiScannenToolStripMenuItem
'
Me.DateiScannenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.scanner
Me.DateiScannenToolStripMenuItem.Name = "DateiScannenToolStripMenuItem"
Me.DateiScannenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.DateiScannenToolStripMenuItem.Text = "Datei scannen..."
'
'AusZwischenablageeinfügenToolStripMenuItem
'
Me.AusZwischenablageeinfügenToolStripMenuItem.Name = "AusZwischenablageeinfügenToolStripMenuItem"
Me.AusZwischenablageeinfügenToolStripMenuItem.Size = New System.Drawing.Size(249, 22)
Me.AusZwischenablageeinfügenToolStripMenuItem.Text = "Aus Zwischenablage (einfügen)..."
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(152, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(63, 25)
Me.Button2.TabIndex = 4
Me.Button2.Text = "Löschen"
Me.Button2.UseVisualStyleBackColor = True
'
'pnl
'
Me.pnl.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.Button5)
Me.pnl.Controls.Add(Me.PdfViewer)
Me.pnl.Controls.Add(Me.WebBrowser)
Me.pnl.Location = New System.Drawing.Point(221, 198)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(846, 657)
Me.pnl.TabIndex = 12
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(766, 3)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(75, 23)
Me.Button5.TabIndex = 2
Me.Button5.UseVisualStyleBackColor = True
Me.Button5.Visible = False
'
'PdfViewer
'
Me.PdfViewer.Dock = System.Windows.Forms.DockStyle.Fill
Me.PdfViewer.FindTextHighLightColor = System.Drawing.Color.FromArgb(CType(CType(200, Byte), Integer), CType(CType(153, Byte), Integer), CType(CType(193, Byte), Integer), CType(CType(218, Byte), Integer))
Me.PdfViewer.IgnoreCase = False
Me.PdfViewer.IsToolBarVisible = True
Me.PdfViewer.Location = New System.Drawing.Point(0, 0)
Me.PdfViewer.MultiPagesThreshold = 60
Me.PdfViewer.Name = "PdfViewer"
Me.PdfViewer.Size = New System.Drawing.Size(844, 655)
Me.PdfViewer.TabIndex = 0
Me.PdfViewer.Threshold = 60
Me.PdfViewer.ViewerBackgroundColor = System.Drawing.Color.FromArgb(CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer), CType(CType(229, Byte), Integer))
'
'WebBrowser
'
Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser.Location = New System.Drawing.Point(0, 0)
Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser.Name = "WebBrowser"
Me.WebBrowser.Size = New System.Drawing.Size(844, 655)
Me.WebBrowser.TabIndex = 1
'
'Button3
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.BackColor = System.Drawing.Color.Wheat
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(1073, 799)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(230, 56)
Me.Button3.TabIndex = 13
Me.Button3.Text = "<< zurück <<"
Me.Button3.UseVisualStyleBackColor = False
'
'Button4
'
Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Location = New System.Drawing.Point(1240, 2)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(63, 25)
Me.Button4.TabIndex = 2
Me.Button4.Text = "Löschen"
Me.Button4.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.ContextMenuStrip = Me.cntxt
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(1125, 2)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 25)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Hinzufügen"
Me.Button1.UseVisualStyleBackColor = True
'
'cboSendungen
'
Me.cboSendungen._allowedValuesFreiText = Nothing
Me.cboSendungen._allowFreiText = False
Me.cboSendungen._value = ""
Me.cboSendungen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboSendungen.DropDownWidth = 450
Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSendungen.FormattingEnabled = True
Me.cboSendungen.Location = New System.Drawing.Point(1073, 30)
Me.cboSendungen.Name = "cboSendungen"
Me.cboSendungen.Size = New System.Drawing.Size(230, 28)
Me.cboSendungen.TabIndex = 9
'
'txtDateiname
'
Me.txtDateiname._DateTimeOnly = False
Me.txtDateiname._numbersOnly = False
Me.txtDateiname._numbersOnlyKommastellen = ""
Me.txtDateiname._Prozent = False
Me.txtDateiname._ShortDateNew = False
Me.txtDateiname._ShortDateOnly = False
Me.txtDateiname._TimeOnly = False
Me.txtDateiname._value = ""
Me.txtDateiname._Waehrung = False
Me.txtDateiname._WaehrungZeichen = True
Me.txtDateiname.ForeColor = System.Drawing.Color.Black
Me.txtDateiname.Location = New System.Drawing.Point(62, 11)
Me.txtDateiname.MaxLineLength = -1
Me.txtDateiname.MaxLines_Warning = ""
Me.txtDateiname.MaxLines_Warning_Label = Nothing
Me.txtDateiname.Name = "txtDateiname"
Me.txtDateiname.ReadOnly = True
Me.txtDateiname.Size = New System.Drawing.Size(738, 20)
Me.txtDateiname.TabIndex = 1
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = False
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(62, 109)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.ReadOnly = True
Me.MyTextBox2.Size = New System.Drawing.Size(738, 20)
Me.MyTextBox2.TabIndex = 10
'
'cboArt
'
Me.cboArt._allowedValuesFreiText = Nothing
Me.cboArt._allowFreiText = False
Me.cboArt._value = ""
Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboArt.FormattingEnabled = True
Me.cboArt.Location = New System.Drawing.Point(62, 75)
Me.cboArt.Name = "cboArt"
Me.cboArt.Size = New System.Drawing.Size(248, 28)
Me.cboArt.TabIndex = 6
'
'txtSeiten
'
Me.txtSeiten._DateTimeOnly = False
Me.txtSeiten._numbersOnly = False
Me.txtSeiten._numbersOnlyKommastellen = ""
Me.txtSeiten._Prozent = False
Me.txtSeiten._ShortDateNew = False
Me.txtSeiten._ShortDateOnly = False
Me.txtSeiten._TimeOnly = False
Me.txtSeiten._value = ""
Me.txtSeiten._Waehrung = False
Me.txtSeiten._WaehrungZeichen = True
Me.txtSeiten.BackColor = System.Drawing.Color.White
Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSeiten.ForeColor = System.Drawing.Color.Black
Me.txtSeiten.Location = New System.Drawing.Point(62, 47)
Me.txtSeiten.MaxLineLength = -1
Me.txtSeiten.MaxLines_Warning = ""
Me.txtSeiten.MaxLines_Warning_Label = Nothing
Me.txtSeiten.Name = "txtSeiten"
Me.txtSeiten.Size = New System.Drawing.Size(248, 26)
Me.txtSeiten.TabIndex = 4
' '
'UsrCntlSendungAnhangElement1 'UsrCntlSendungAnhangElement1
' '
@@ -112,309 +470,13 @@ Partial Class frmSendungAnhangImport
Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64) Me.UsrCntlSendungAnhangElement2.Size = New System.Drawing.Size(130, 64)
Me.UsrCntlSendungAnhangElement2.TabIndex = 1 Me.UsrCntlSendungAnhangElement2.TabIndex = 1
' '
'WebBrowser1
'
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser1.Location = New System.Drawing.Point(0, 0)
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.Size = New System.Drawing.Size(736, 491)
Me.WebBrowser1.TabIndex = 2
'
'flpnlSendungen
'
Me.flpnlSendungen.AutoScroll = True
Me.flpnlSendungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.flpnlSendungen.Location = New System.Drawing.Point(965, 62)
Me.flpnlSendungen.Name = "flpnlSendungen"
Me.flpnlSendungen.Size = New System.Drawing.Size(200, 630)
Me.flpnlSendungen.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(221, 182)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(55, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Vorschau:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(962, 14)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(65, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Sendungen:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(221, 14)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(39, 13)
Me.Label3.TabIndex = 5
Me.Label3.Text = "Import:"
'
'pnlAnfuegen
'
Me.pnlAnfuegen.BackColor = System.Drawing.Color.FloralWhite
Me.pnlAnfuegen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegenAll)
Me.pnlAnfuegen.Controls.Add(Me.txtDateiname)
Me.pnlAnfuegen.Controls.Add(Me.Label7)
Me.pnlAnfuegen.Controls.Add(Me.MyTextBox2)
Me.pnlAnfuegen.Controls.Add(Me.Label6)
Me.pnlAnfuegen.Controls.Add(Me.Label5)
Me.pnlAnfuegen.Controls.Add(Me.cboArt)
Me.pnlAnfuegen.Controls.Add(Me.btnAnfuegen)
Me.pnlAnfuegen.Controls.Add(Me.txtSeiten)
Me.pnlAnfuegen.Controls.Add(Me.Label4)
Me.pnlAnfuegen.Controls.Add(Me.cbxDelPDF)
Me.pnlAnfuegen.Location = New System.Drawing.Point(221, 30)
Me.pnlAnfuegen.Name = "pnlAnfuegen"
Me.pnlAnfuegen.Size = New System.Drawing.Size(737, 142)
Me.pnlAnfuegen.TabIndex = 3
'
'btnAnfuegenAll
'
Me.btnAnfuegenAll.BackColor = System.Drawing.Color.Wheat
Me.btnAnfuegenAll.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegenAll.Location = New System.Drawing.Point(524, 47)
Me.btnAnfuegenAll.Name = "btnAnfuegenAll"
Me.btnAnfuegenAll.Size = New System.Drawing.Size(200, 56)
Me.btnAnfuegenAll.TabIndex = 16
Me.btnAnfuegenAll.Text = ">> Ganzes Dokument anfügen >>"
Me.btnAnfuegenAll.UseVisualStyleBackColor = False
'
'txtDateiname
'
Me.txtDateiname._DateTimeOnly = False
Me.txtDateiname._numbersOnly = False
Me.txtDateiname._numbersOnlyKommastellen = ""
Me.txtDateiname._Prozent = False
Me.txtDateiname._ShortDateNew = False
Me.txtDateiname._ShortDateOnly = False
Me.txtDateiname._TimeOnly = False
Me.txtDateiname._value = ""
Me.txtDateiname._Waehrung = False
Me.txtDateiname._WaehrungZeichen = True
Me.txtDateiname.ForeColor = System.Drawing.Color.Black
Me.txtDateiname.Location = New System.Drawing.Point(62, 11)
Me.txtDateiname.MaxLineLength = -1
Me.txtDateiname.MaxLines_Warning = ""
Me.txtDateiname.MaxLines_Warning_Label = Nothing
Me.txtDateiname.Name = "txtDateiname"
Me.txtDateiname.ReadOnly = True
Me.txtDateiname.Size = New System.Drawing.Size(662, 20)
Me.txtDateiname.TabIndex = 14
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 14)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(35, 13)
Me.Label7.TabIndex = 13
Me.Label7.Text = "Datei:"
'
'MyTextBox2
'
Me.MyTextBox2._DateTimeOnly = False
Me.MyTextBox2._numbersOnly = False
Me.MyTextBox2._numbersOnlyKommastellen = ""
Me.MyTextBox2._Prozent = False
Me.MyTextBox2._ShortDateNew = False
Me.MyTextBox2._ShortDateOnly = False
Me.MyTextBox2._TimeOnly = False
Me.MyTextBox2._value = ""
Me.MyTextBox2._Waehrung = False
Me.MyTextBox2._WaehrungZeichen = True
Me.MyTextBox2.ForeColor = System.Drawing.Color.Black
Me.MyTextBox2.Location = New System.Drawing.Point(62, 109)
Me.MyTextBox2.MaxLineLength = -1
Me.MyTextBox2.MaxLines_Warning = ""
Me.MyTextBox2.MaxLines_Warning_Label = Nothing
Me.MyTextBox2.Name = "MyTextBox2"
Me.MyTextBox2.ReadOnly = True
Me.MyTextBox2.Size = New System.Drawing.Size(662, 20)
Me.MyTextBox2.TabIndex = 12
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 112)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(53, 13)
Me.Label6.TabIndex = 11
Me.Label6.Text = "Sendung:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(3, 83)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(23, 13)
Me.Label5.TabIndex = 10
Me.Label5.Text = "Art:"
'
'cboArt
'
Me.cboArt._allowedValuesFreiText = Nothing
Me.cboArt._allowFreiText = False
Me.cboArt._value = ""
Me.cboArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboArt.FormattingEnabled = True
Me.cboArt.Location = New System.Drawing.Point(62, 75)
Me.cboArt.Name = "cboArt"
Me.cboArt.Size = New System.Drawing.Size(248, 28)
Me.cboArt.TabIndex = 9
'
'btnAnfuegen
'
Me.btnAnfuegen.BackColor = System.Drawing.Color.Wheat
Me.btnAnfuegen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnAnfuegen.Location = New System.Drawing.Point(316, 47)
Me.btnAnfuegen.Name = "btnAnfuegen"
Me.btnAnfuegen.Size = New System.Drawing.Size(205, 56)
Me.btnAnfuegen.TabIndex = 8
Me.btnAnfuegen.Text = ">> Anfügen >>"
Me.btnAnfuegen.UseVisualStyleBackColor = False
'
'txtSeiten
'
Me.txtSeiten._DateTimeOnly = False
Me.txtSeiten._numbersOnly = False
Me.txtSeiten._numbersOnlyKommastellen = ""
Me.txtSeiten._Prozent = False
Me.txtSeiten._ShortDateNew = False
Me.txtSeiten._ShortDateOnly = False
Me.txtSeiten._TimeOnly = False
Me.txtSeiten._value = ""
Me.txtSeiten._Waehrung = False
Me.txtSeiten._WaehrungZeichen = True
Me.txtSeiten.BackColor = System.Drawing.Color.White
Me.txtSeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSeiten.ForeColor = System.Drawing.Color.Black
Me.txtSeiten.Location = New System.Drawing.Point(62, 47)
Me.txtSeiten.MaxLineLength = -1
Me.txtSeiten.MaxLines_Warning = ""
Me.txtSeiten.MaxLines_Warning_Label = Nothing
Me.txtSeiten.Name = "txtSeiten"
Me.txtSeiten.Size = New System.Drawing.Size(248, 26)
Me.txtSeiten.TabIndex = 7
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(3, 55)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(40, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Seiten:"
'
'cbxDelPDF
'
Me.cbxDelPDF.AutoSize = True
Me.cbxDelPDF.Checked = True
Me.cbxDelPDF.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxDelPDF.Location = New System.Drawing.Point(316, 31)
Me.cbxDelPDF.Name = "cbxDelPDF"
Me.cbxDelPDF.Size = New System.Drawing.Size(244, 17)
Me.cbxDelPDF.TabIndex = 15
Me.cbxDelPDF.Text = "angefügte Dateien aus Original PDF entfernen"
Me.cbxDelPDF.UseVisualStyleBackColor = True
'
'btn
'
Me.btn.ContextMenuStrip = Me.cntxt
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(71, 3)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(75, 25)
Me.btn.TabIndex = 6
Me.btn.Text = "Hinzufügen"
Me.btn.UseVisualStyleBackColor = True
'
'cntxt
'
Me.cntxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem, Me.DateiScannenToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(170, 48)
'
'DateiHochladenToolStripMenuItem
'
Me.DateiHochladenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.pdf11
Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem"
Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.DateiHochladenToolStripMenuItem.Text = "Datei hochladen..."
'
'DateiScannenToolStripMenuItem
'
Me.DateiScannenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.scanner
Me.DateiScannenToolStripMenuItem.Name = "DateiScannenToolStripMenuItem"
Me.DateiScannenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
Me.DateiScannenToolStripMenuItem.Text = "Datei scannen..."
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(152, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(63, 25)
Me.Button2.TabIndex = 7
Me.Button2.Text = "Löschen"
Me.Button2.UseVisualStyleBackColor = True
'
'pnl
'
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.WebBrowser1)
Me.pnl.Location = New System.Drawing.Point(221, 198)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(738, 493)
Me.pnl.TabIndex = 8
'
'Button3
'
Me.Button3.BackColor = System.Drawing.Color.Wheat
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(1171, 78)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(187, 56)
Me.Button3.TabIndex = 18
Me.Button3.Text = "<< zurück <<"
Me.Button3.UseVisualStyleBackColor = False
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Location = New System.Drawing.Point(1102, 2)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(63, 25)
Me.Button4.TabIndex = 19
Me.Button4.Text = "Löschen"
Me.Button4.UseVisualStyleBackColor = True
'
'cboSendungen
'
Me.cboSendungen._allowedValuesFreiText = Nothing
Me.cboSendungen._allowFreiText = False
Me.cboSendungen._value = ""
Me.cboSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboSendungen.FormattingEnabled = True
Me.cboSendungen.Location = New System.Drawing.Point(965, 30)
Me.cboSendungen.Name = "cboSendungen"
Me.cboSendungen.Size = New System.Drawing.Size(393, 28)
Me.cboSendungen.TabIndex = 16
'
'frmSendungAnhangImport 'frmSendungAnhangImport
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1370, 698) Me.ClientSize = New System.Drawing.Size(1309, 860)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button4) Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3) Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.cboSendungen) Me.Controls.Add(Me.cboSendungen)
@@ -445,7 +507,6 @@ Partial Class frmSendungAnhangImport
Friend WithEvents lbl As Label Friend WithEvents lbl As Label
Friend WithEvents flpnlAviso As FlowLayoutPanel Friend WithEvents flpnlAviso As FlowLayoutPanel
Friend WithEvents WebBrowser1 As WebBrowser
Friend WithEvents flpnlSendungen As FlowLayoutPanel Friend WithEvents flpnlSendungen As FlowLayoutPanel
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
@@ -474,4 +535,9 @@ Partial Class frmSendungAnhangImport
Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Button4 As Button Friend WithEvents Button4 As Button
Friend WithEvents PrintDocument1 As Printing.PrintDocument Friend WithEvents PrintDocument1 As Printing.PrintDocument
Friend WithEvents PdfViewer As Spire.PdfViewer.Forms.PdfViewer
Friend WithEvents WebBrowser As WebBrowser
Friend WithEvents Button1 As Button
Friend WithEvents Button5 As Button
Friend WithEvents AusZwischenablageeinfügenToolStripMenuItem As ToolStripMenuItem
End Class End Class

0
Aviso/frmSendungAnhangImport.resx → Aviso/Anhänge/frmSendungAnhangImport.resx
View File

497
Aviso/frmSendungAnhangImport.vb → Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -1,17 +1,19 @@
 
Imports iTextSharp.text.pdf 'Imports iTextSharp.text.pdf
Imports iTextSharp.text 'Imports iTextSharp.text
Imports System.IO Imports System.IO
Imports GrapeCity.Documents.Pdf 'Imports GrapeCity.Documents.Pdf
Imports Spire.Pdf
Public Class frmSendungAnhangImport Public Class frmSendungAnhangImport
Public AvisoId As Integer Public AvisoId As Integer
Public SendungsId As Integer
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
Dim CURRENT_INDEX As Integer Dim CURRENT_INDEX As Integer
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim BrowserLoaded = True Dim BrowserLoaded = True
@@ -24,6 +26,16 @@ Public Class frmSendungAnhangImport
'Dim f As New GroupDocs.Viewer 'Dim f As New GroupDocs.Viewer
End Sub End Sub
Sub New(AvisoId, SendungsId)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.AvisoId = AvisoId
Me.SendungsId = SendungsId
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
'Dim f As New GroupDocs.Viewer
End Sub
Sub initElement(USRCNTL As usrCntlSendungAnhangElement) Sub initElement(USRCNTL As usrCntlSendungAnhangElement)
@@ -40,10 +52,10 @@ Public Class frmSendungAnhangImport
USRCNTL.ACTIVE = True USRCNTL.ACTIVE = True
'WebBrowser1.Navigate(USRCNTL.FILE_PATH) 'WebBrowser1.Navigate(USRCNTL.FILE_PATH)
If File.Exists(USRCNTL.FILE_PATH) Then If File.Exists(USRCNTL.FILE_PATH) Then
initLocationViewer(USRCNTL.FILE_PATH) initLocationViewer(USRCNTL.FILE_PATH, USRCNTL.FILE_TYPE)
Else Else
initLocationViewer("") initLocationViewer("", "PDF")
End If End If
' PdfViewer.DocumentLoaded += New EventHandler(AddressOf radPdfViewer1_DocumentLoaded) ' PdfViewer.DocumentLoaded += New EventHandler(AddressOf radPdfViewer1_DocumentLoaded)
@@ -53,6 +65,11 @@ Public Class frmSendungAnhangImport
' End If ' End If
End Sub End Sub
AddHandler USRCNTL.ME_DELETE, Sub(docId, anhId)
deleteElement(docId, anhId)
initFlpANH_LIST()
End Sub
AddHandler USRCNTL.KeyDown, Sub(ob As Object, ev As KeyEventArgs) AddHandler USRCNTL.KeyDown, Sub(ob As Object, ev As KeyEventArgs)
If ev.KeyCode = Keys.Delete Then If ev.KeyCode = Keys.Delete Then
deleteActiveElement(getAcitvePnl()) deleteActiveElement(getAcitvePnl())
@@ -60,12 +77,18 @@ Public Class frmSendungAnhangImport
End Sub End Sub
End Sub End Sub
Sub initLocationViewer(loc) Sub initLocationViewer(loc, typ)
If WebBrowser1.Url.AbsoluteUri <> loc Then PdfViewer.CloseDocument()
WebBrowser1.Navigate(loc) WebBrowser.Navigate("")
BrowserLoaded = False If typ = "PDF" Then
WebBrowser.Visible = False
PdfViewer.Visible = (loc <> "")
PdfViewer.LoadFromFile(loc)
ElseIf typ = "BILD" Then
PdfViewer.Visible = False
WebBrowser.Visible = (loc <> "")
WebBrowser.Navigate(loc)
End If End If
If loc = "" Then BrowserLoaded = True
End Sub End Sub
Function getAcitvePnl() As FlowLayoutPanel Function getAcitvePnl() As FlowLayoutPanel
@@ -77,33 +100,42 @@ Public Class frmSendungAnhangImport
Next Next
Return Nothing Return Nothing
End Function End Function
Function getAcitveCntl() As usrCntlSendungAnhangElement
Public Function ExtractPdfPages(ByVal SourceFile As String, ByVal TargetFile As String, ByVal IntStr As Integer, ByVal IntEnd As Integer) For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
Try If u.ACTIVE Then Return u
Dim impPage As pdf.PdfImportedPage = Nothing Next
Dim Reader As New PdfReader(SourceFile) For Each u As usrCntlSendungAnhangElement In flpnlSendungen.Controls
If u.ACTIVE Then Return u
Dim srcDoc As New Document(Reader.GetPageSizeWithRotation(IntStr)) Next
Dim PdfCopyProvider As New PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create)) Return Nothing
PdfCopyProvider.SetFullCompression()
srcDoc.Open()
For X = IntStr To IntEnd
impPage = PdfCopyProvider.GetImportedPage(Reader, X)
' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
PdfCopyProvider.SetPageSize(New Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height))
' ----- PDF Seite in das neue Dokument einfügen
PdfCopyProvider.AddPage(impPage)
Next
' ----- neues PDF Dokument und den Reader schließen
srcDoc.Close()
Reader.Close()
Catch ex As Exception
Throw ex
End Try
End Function End Function
'Public Function ExtractPdfPages(ByVal SourceFile As String, ByVal TargetFile As String, ByVal IntStr As Integer, ByVal IntEnd As Integer)
' Try
' Dim impPage As pdf.PdfImportedPage = Nothing
' Dim Reader As New PdfReader(SourceFile)
' Dim srcDoc As New Document(Reader.GetPageSizeWithRotation(IntStr))
' Dim PdfCopyProvider As New PdfCopy(srcDoc, New System.IO.FileStream(TargetFile, System.IO.FileMode.Create))
' PdfCopyProvider.SetFullCompression()
' srcDoc.Open()
' For X = IntStr To IntEnd
' impPage = PdfCopyProvider.GetImportedPage(Reader, X)
' ' ----- Ermitteln der Seitenauflösung und setzen für die neue Seite
' PdfCopyProvider.SetPageSize(New Rectangle(0.0F, 0.0F, impPage.Width, impPage.Height))
' ' ----- PDF Seite in das neue Dokument einfügen
' PdfCopyProvider.AddPage(impPage)
' Next
' ' ----- neues PDF Dokument und den Reader schließen
' srcDoc.Close()
' Reader.Close()
' Catch ex As Exception
' Throw ex
' End Try
'End Function
Dim tmpPageMove = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAnfuegen.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAnfuegen.Click
If txtSeiten.Text = "" Then Exit Sub If txtSeiten.Text = "" Then Exit Sub
' If cboArt._value = "" Then Exit Sub ' If cboArt._value = "" Then Exit Sub
@@ -135,7 +167,8 @@ Public Class frmSendungAnhangImport
Dim PagesLeft = 0 Dim PagesLeft = 0
If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then If removePagesFromPdf_Spire(u.FILE_PATH, TMP_Path_New, getPagesFromText(), PagesLeft, False) Then
If PagesLeft = 0 Then If PagesLeft = 0 Then
delFromDS(u.FILE_DOCID) 'delFromDS(u.FILE_DOCID)
deleteElement(u.FILE_DOCID, u.FILE_ANHID, False)
flpnlAviso.Controls.Remove(u) flpnlAviso.Controls.Remove(u)
Else Else
Dim destPath = "" Dim destPath = ""
@@ -147,19 +180,43 @@ Public Class frmSendungAnhangImport
End If End If
End If End If
initLocationViewer("") initLocationViewer("", "PDF")
If flpnlAviso.Controls.Count > 0 Then
DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End If End If
'------------- '-------------
End If End If
Next Next
clearPnlAnfuegen() clearPnlAnfuegen()
' initSendungen() ' initSendungen()
Dim CurrentPageNumber = PdfViewer.CurrentPageNumber
Dim pages = getPagesFromText()
Dim cntl = getAcitveCntl()
initFlpANH_LIST() initFlpANH_LIST()
If flpnlAviso.Controls.Count > 0 Then
If Not setAvtive(flpnlAviso, CurrentPageNumber, pages, cntl) Then
DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End If
End Sub End Sub
Function setAvtive(pnl, CurrentPageNumber, listDelPages, u) As Boolean
For Each p As usrCntlSendungAnhangElement In flpnlAviso.Controls
If p Is u Then
p.ACTIVE = True
Dim newCurrentPageNumber = CurrentPageNumber
For Each s In getPagesFromText() ' vorheirge Seiten, die gelöscht wurden werden abgezogen
If s < CurrentPageNumber Then CurrentPageNumber -= 1
Next
If newCurrentPageNumber > 0 Then PdfViewer.GoToPage(newCurrentPageNumber)
Return True
End If
Next
Return False
End Function
Private Sub Button1_ClickALL(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click Private Sub Button1_ClickALL(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click
If cboSendungen._value = "" Then Exit Sub If cboSendungen._value = "" Then Exit Sub
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls
@@ -179,8 +236,8 @@ Public Class frmSendungAnhangImport
ANH.anh_SendungsId = SendngsId ANH.anh_SendungsId = SendngsId
ANH.SAVE() 'Eintrag wird überschreiben ANH.SAVE() 'Eintrag wird überschreiben
flpnlAviso.Controls.Remove(u) flpnlAviso.Controls.Remove(u)
If cbxDelPDF.Checked Then tryDelete(u.FILE_PATH) ' If cbxDelPDF.Checked Then tryDelete(u.FILE_PATH)
initLocationViewer("") initLocationViewer("", "PDF")
If flpnlAviso.Controls.Count > 0 Then If flpnlAviso.Controls.Count > 0 Then
DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me() DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If End If
@@ -197,11 +254,19 @@ Public Class frmSendungAnhangImport
End Sub End Sub
Sub clearPnlAnfuegen() Sub clearPnlAnfuegen()
MyTextBox2.Text = ""
txtDateiname.Text = "" txtDateiname.Text = ""
txtSeiten.Text = "" txtSeiten.Text = ""
cboArt.Text = "" cboArt.Text = ""
txtSeiten.Focus() txtSeiten.Focus()
Dim u As usrCntlSendungAnhangElement = getAcitveCntl()
If u IsNot Nothing Then
txtDateiname.Text = u.FILE_NAME
Else
txtDateiname.Text = ""
End If
MyTextBox2.Text = cboSendungen.Text
End Sub End Sub
Sub tryDelete(TMP_Path_New) Sub tryDelete(TMP_Path_New)
@@ -212,70 +277,70 @@ Public Class frmSendungAnhangImport
End Try End Try
End Sub End Sub
Public Sub DeletePages(ByVal pageRange As String, ByVal SourcePdfPath As String, ByVal OutputPdfPath As String, ByVal Optional Password As String = "") 'Public Sub DeletePages(ByVal pageRange As String, ByVal SourcePdfPath As String, ByVal OutputPdfPath As String, ByVal Optional Password As String = "")
Dim pagesToDelete As New List(Of Integer) ' Dim pagesToDelete As New List(Of Integer)
If pageRange.IndexOf(",") <> -1 Then ' If pageRange.IndexOf(",") <> -1 Then
Dim tmpHold As String() = pageRange.Split(","c) ' Dim tmpHold As String() = pageRange.Split(","c)
For Each nonconseq As String In tmpHold ' For Each nonconseq As String In tmpHold
If nonconseq.IndexOf("-") <> -1 Then ' If nonconseq.IndexOf("-") <> -1 Then
Dim rangeHold As String() = nonconseq.Split("-"c) ' Dim rangeHold As String() = nonconseq.Split("-"c)
For i As Integer = Convert.ToInt32(rangeHold(0)) To Convert.ToInt32(rangeHold(1)) ' For i As Integer = Convert.ToInt32(rangeHold(0)) To Convert.ToInt32(rangeHold(1))
pagesToDelete.Add(i) ' pagesToDelete.Add(i)
Next ' Next
Else ' Else
pagesToDelete.Add(Convert.ToInt32(nonconseq)) ' pagesToDelete.Add(Convert.ToInt32(nonconseq))
End If ' End If
Next ' Next
Else ' Else
If pageRange.IndexOf("-") <> -1 Then ' If pageRange.IndexOf("-") <> -1 Then
Dim rangeHold As String() = pageRange.Split("-"c) ' Dim rangeHold As String() = pageRange.Split("-"c)
For i As Integer = Convert.ToInt32(rangeHold(0)) To Convert.ToInt32(rangeHold(1)) ' For i As Integer = Convert.ToInt32(rangeHold(0)) To Convert.ToInt32(rangeHold(1))
pagesToDelete.Add(i) ' pagesToDelete.Add(i)
Next ' Next
Else ' Else
pagesToDelete.Add(Convert.ToInt32(pageRange)) ' pagesToDelete.Add(Convert.ToInt32(pageRange))
End If ' End If
End If ' End If
Dim doc As Document = New Document() ' Dim doc As Document = New Document()
Dim reader As PdfReader = New PdfReader(SourcePdfPath, New System.Text.ASCIIEncoding().GetBytes(Password)) ' Dim reader As PdfReader = New PdfReader(SourcePdfPath, New System.Text.ASCIIEncoding().GetBytes(Password))
Using memoryStream As MemoryStream = New MemoryStream() ' Using memoryStream As MemoryStream = New MemoryStream()
Dim writer As PdfWriter = PdfWriter.GetInstance(doc, memoryStream) ' Dim writer As PdfWriter = PdfWriter.GetInstance(doc, memoryStream)
doc.Open() ' doc.Open()
doc.AddDocListener(writer) ' doc.AddDocListener(writer)
For p As Integer = 1 To reader.NumberOfPages ' For p As Integer = 1 To reader.NumberOfPages
If pagesToDelete.FindIndex(Function(s) s = p) <> -1 Then ' If pagesToDelete.FindIndex(Function(s) s = p) <> -1 Then
Continue For ' Continue For
End If ' End If
doc.SetPageSize(reader.GetPageSize(p)) ' doc.SetPageSize(reader.GetPageSize(p))
doc.NewPage() ' doc.NewPage()
Dim cb As PdfContentByte = writer.DirectContent ' Dim cb As PdfContentByte = writer.DirectContent
Dim pageImport As pdf.PdfImportedPage = writer.GetImportedPage(reader, p) ' Dim pageImport As pdf.PdfImportedPage = writer.GetImportedPage(reader, p)
Dim rot As Integer = reader.GetPageRotation(p) ' Dim rot As Integer = reader.GetPageRotation(p)
If rot = 90 OrElse rot = 270 Then ' If rot = 90 OrElse rot = 270 Then
cb.AddTemplate(pageImport, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(p).Height) ' cb.AddTemplate(pageImport, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(p).Height)
Else ' Else
cb.AddTemplate(pageImport, 1.0F, 0, 0, 1.0F, 0, 0) ' cb.AddTemplate(pageImport, 1.0F, 0, 0, 1.0F, 0, 0)
End If ' End If
Next ' Next
reader.Close() ' reader.Close()
File.WriteAllBytes(OutputPdfPath, memoryStream.ToArray()) ' File.WriteAllBytes(OutputPdfPath, memoryStream.ToArray())
doc.Close() ' doc.Close()
End Using ' End Using
End Sub 'End Sub
Function getPagesFromText() As List(Of Integer) Function getPagesFromText() As List(Of Integer)
@@ -311,7 +376,7 @@ Public Class frmSendungAnhangImport
Try Try
PagesLeft = 0 PagesLeft = 0
Dim pdf As New Spire.Pdf.PdfDocument() Dim pdf As New PdfDocument()
pdf.LoadFromFile(sourceFile) pdf.LoadFromFile(sourceFile)
' Dim r As PdfReader = New PdfReader(sourceFile) ' Dim r As PdfReader = New PdfReader(sourceFile)
Dim pagesToKeep As New List(Of Integer) Dim pagesToKeep As New List(Of Integer)
@@ -328,13 +393,14 @@ Public Class frmSendungAnhangImport
Next Next
Dim pdf1 As New Spire.Pdf.PdfDocument() Dim pdf1 As New PdfDocument()
Dim page As Spire.Pdf.PdfPageBase Dim page As PdfPageBase
For Each p In pagesToKeep For Each p In pagesToKeep
Dim pageInt = p - 1 ' Nciht SeitenNr. sonder Aufzählung ' Dim pageInt = p - 1 ' Nciht SeitenNr. sonder Aufzählung
Dim pageInt = p
If pageInt >= 0 And pageInt < pdf.Pages.Count Then If pageInt >= 0 And pageInt < pdf.Pages.Count Then
page = pdf1.Pages.Add(pdf.Pages(p).Size, New Spire.Pdf.Graphics.PdfMargins(0)) page = pdf1.Pages.Add(pdf.Pages(p).Size, New Graphics.PdfMargins(0))
pdf.Pages(p).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0)) pdf.Pages(p).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
PagesLeft += 1 PagesLeft += 1
End If End If
@@ -356,16 +422,16 @@ Public Class frmSendungAnhangImport
Try Try
Dim pdf As New Spire.Pdf.PdfDocument() Dim pdf As New PdfDocument()
pdf.LoadFromFile(sourceFile) pdf.LoadFromFile(sourceFile)
Dim pdf1 As New Spire.Pdf.PdfDocument() Dim pdf1 As New PdfDocument()
Dim page As Spire.Pdf.PdfPageBase Dim page As PdfPageBase
For Each p In pagesToExtract For Each p In pagesToExtract
Dim pageInt = p - 1 ' Nciht SeitenNr. sonder Aufzählung Dim pageInt = p - 1 ' Nciht SeitenNr. sonder Aufzählung
If pageInt >= 0 And pageInt < pdf.Pages.Count Then If pageInt >= 0 And pageInt < pdf.Pages.Count Then
page = pdf1.Pages.Add(pdf.Pages(pageInt).Size, New Spire.Pdf.Graphics.PdfMargins(0)) page = pdf1.Pages.Add(pdf.Pages(pageInt).Size, New Graphics.PdfMargins(0))
pdf.Pages(pageInt).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0)) pdf.Pages(pageInt).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
End If End If
Next Next
@@ -373,12 +439,12 @@ Public Class frmSendungAnhangImport
'MsgBox("P: " &pdf.Pages.Count) 'MsgBox("P: " &pdf.Pages.Count)
'Dim pdf1 As New Spire.Pdf.PdfDocument() 'Dim pdf1 As New PdfDocument()
''Dim page As New Spire.Pdf.PdfPageBase ''Dim page As New PdfPageBase
''For i As Integer = 0 To 4 ''For i As Integer = 0 To 4
'For Each p In pagesToKeep 'For Each p In pagesToKeep
' pdf1.Pages.Add(pdf.Pages(p).Size, New Spire.Pdf.Graphics.PdfMargins(0)) ' pdf1.Pages.Add(pdf.Pages(p).Size, New Graphics.PdfMargins(0))
' 'Dim page = ' 'Dim page =
' 'pdf.Pages(p).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0)) ' 'pdf.Pages(p).CreateTemplate().Draw(page, New System.Drawing.PointF(0, 0))
' MsgBox(p) ' MsgBox(p)
@@ -414,44 +480,44 @@ Public Class frmSendungAnhangImport
Return True Return True
End Function End Function
Public Sub removePagesFromPdf(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer) 'Public Sub removePagesFromPdf(ByVal sourceFile As String, ByVal destinationFile As String, pagesToDelete As List(Of Integer), ByRef PagesLeft As Integer)
Try ' Try
PagesLeft = 0 ' PagesLeft = 0
Dim r As PdfReader = New PdfReader(sourceFile) ' Dim r As PdfReader = New PdfReader(sourceFile)
Dim pagesToKeep As New List(Of Integer) ' Dim pagesToKeep As New List(Of Integer)
For p = 1 To r.NumberOfPages ' For p = 1 To r.NumberOfPages
Dim del = False ' Dim del = False
For Each i In pagesToDelete ' For Each i In pagesToDelete
If p = i Then ' If p = i Then
del = True : Exit For ' del = True : Exit For
End If ' End If
Next ' Next
If Not del Then ' If Not del Then
pagesToKeep.Add(p) ' pagesToKeep.Add(p)
End If ' End If
Next ' Next
Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None) ' Using fs As FileStream = New FileStream(destinationFile, FileMode.Create, FileAccess.Write, FileShare.None)
Using doc As Document = New Document() ' Using doc As Document = New Document()
Using w As PdfWriter = PdfWriter.GetInstance(doc, fs) ' Using w As PdfWriter = PdfWriter.GetInstance(doc, fs)
doc.Open() ' doc.Open()
For Each page As Integer In pagesToKeep ' For Each page As Integer In pagesToKeep
doc.NewPage() ' doc.NewPage()
w.DirectContent.AddTemplate(w.GetImportedPage(r, page), 0, 0) ' w.DirectContent.AddTemplate(w.GetImportedPage(r, page), 0, 0)
PagesLeft += 1 ' PagesLeft += 1
Next ' Next
doc.Close() ' doc.Close()
End Using ' End Using
End Using ' End Using
End Using ' End Using
Catch ex As Exception ' Catch ex As Exception
End Try ' End Try
End Sub 'End Sub
Private Sub txtSeiten_TextChanged(sender As Object, e As EventArgs) Handles txtSeiten.TextChanged Private Sub txtSeiten_TextChanged(sender As Object, e As EventArgs) Handles txtSeiten.TextChanged
txtSeiten.BackColor = Color.White txtSeiten.BackColor = Color.White
If txtSeiten.Text = "" Then Exit Sub If txtSeiten.Text = "" Then Exit Sub
@@ -490,35 +556,60 @@ Public Class frmSendungAnhangImport
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
deleteActiveElement(flpnlAviso) deleteActiveElement(flpnlAviso)
End Sub End Sub
Sub deleteActiveElement(flpnl As FlowLayoutPanel) Sub deleteActiveElement(flpnl As FlowLayoutPanel)
If flpnl Is Nothing Then Exit Sub If flpnl Is Nothing Then Exit Sub
For Each u As usrCntlSendungAnhangElement In flpnl.Controls For Each u As usrCntlSendungAnhangElement In flpnl.Controls
If u.ACTIVE Then If u.ACTIVE Then
If vbYes = MsgBox("Möchten Sie das Element löschen?", vbYesNoCancel) Then If deleteElement(u.FILE_DOCID, u.FILE_ANHID) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(u.FILE_DOCID) flpnl.Controls.Remove(u)
If DS.DELETE_COMPLETE Then initLocationViewer("", "PDF")
flpnl.Controls.Remove(u) If flpnl.Controls.Count > 0 Then
initLocationViewer("") DirectCast(flpnl.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
If flpnl.Controls.Count > 0 Then
DirectCast(flpnl.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End If End If
End If End If
End If End If
Next Next
End Sub End Sub
Function deleteElement(FILE_DOCID, FILE_ANHID, Optional showMessage = True) As Boolean
If Not showMessage OrElse vbYes = MsgBox("Möchten Sie das Element löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
If DS.DELETE_COMPLETE AndAlso VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.DELETE(FILE_ANHID) Then
Return True
End If
End If
Return False
End Function
Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmSendungAnhangImport_Load(sender As Object, e As EventArgs) Handles Me.Load
WebBrowser1.Navigate("")
Me.Height = Screen.PrimaryScreen.WorkingArea.Height
Me.Top = 0
Try
DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(0).Visible = False
DirectCast(PdfViewer.Controls(0).Controls(0).Controls(0), ToolStrip).Items(1).Visible = False
Catch ex As Exception
End Try
PdfViewer.CanSave = False
'WebBrowser1.Navigate("")
flpnlAviso.Controls.Clear() flpnlAviso.Controls.Clear()
flpnlSendungen.Controls.Clear() flpnlSendungen.Controls.Clear()
cboArt.Items.Clear() cboArt.Items.Clear()
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR", "ATR")) cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR", "ATR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung")) cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR")) cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag")) cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste")) cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Packliste", "Packliste"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag", "Auftrag"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges")) cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sonstiges", "Sonstiges"))
initSendungen() initSendungen()
@@ -541,8 +632,13 @@ Public Class frmSendungAnhangImport
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId) 'LÄDT alle SENDUNGSDATEN
Dim cnt = 1 Dim cnt = 1
For Each s In SENDUNG_LIST For Each s In SENDUNG_LIST
cboSendungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(cnt & ". " & s.tblSnd_Empfaenger & " (" & s.tblSnd_Abfertigungsart_ID & ")", s.tblSnd_SendungID)) Dim abfertigungsArt = SQL.getValueTxtBySql("SELECT isnull([Abfertigungsbezeichnung],'') FROM [Abfertigungsarten] WHERE Abfertigungsart='" & s.tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
Dim empfTmp = If(s.tblSnd_Empfaenger.Length > 15, s.tblSnd_Empfaenger.Substring(0, 15), s.tblSnd_Empfaenger)
cboSendungen.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(cnt & ". " & empfTmp & " (" & abfertigungsArt & ")", s.tblSnd_SendungID))
cnt += 1
Next Next
If SendungsId > 0 Then cboSendungen.changeItem(SendungsId)
End Sub End Sub
Private Sub cboSendungen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSendungen.SelectedIndexChanged Private Sub cboSendungen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSendungen.SelectedIndexChanged
@@ -561,7 +657,7 @@ Public Class frmSendungAnhangImport
' VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Sendungs-Anhänge ' VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Sendungs-Anhänge
'End If 'End If
VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge.LOAD_LIST_ByAviso(ANH_LIST, AvisoId) 'LÄDT alle Aviso-Anhänge
flpnlSendungen.Controls.Clear flpnlSendungen.Controls.Clear()
flpnlAviso.Controls.Clear() flpnlAviso.Controls.Clear()
For Each a In ANH_LIST For Each a In ANH_LIST
@@ -585,6 +681,7 @@ Public Class frmSendungAnhangImport
flpnlAviso.Controls.Add(USRCNTL) flpnlAviso.Controls.Add(USRCNTL)
End If End If
Next Next
initLocationViewer("", "PDF")
End Sub End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnAnfuegenAll.Click
@@ -593,7 +690,7 @@ Public Class frmSendungAnhangImport
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
If cboSendungen._value = "" Then Exit Sub If cboSendungen._value = "" Then Exit Sub
For Each u As usrCntlSendungAnhangElement In flpnlAviso.Controls For Each u As usrCntlSendungAnhangElement In flpnlSendungen.Controls
If u.ACTIVE Then If u.ACTIVE Then
Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(u.FILE_ANHID) Dim ANH = New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(u.FILE_ANHID)
@@ -619,7 +716,7 @@ Public Class frmSendungAnhangImport
Function saveChangeToDS_daId(daId, sourcePath, ByRef destPath) As Boolean Function saveChangeToDS_daId(daId, sourcePath, ByRef destPath) As Boolean
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False If Not DS.uploadDataToDATENSERVER(sourcePath,,, False) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
destPath = DS.GET_TOP1_PATH destPath = DS.GET_TOP1_PATH
@@ -693,17 +790,22 @@ Public Class frmSendungAnhangImport
Dim fi As New FileInfo(F_listItem) Dim fi As New FileInfo(F_listItem)
Dim filename = fi.Name Dim filename = fi.Name
' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(filename, fi.Extension,, False, "SendungsAnhaenge") If filename = "" Then
' MsgBox(TMP_Path) MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & F_listItem)
' File.Copy(F_listItem, TMP_Path) Else
Dim da_id = -1
' Dim TMP_Path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(filename, fi.Extension,, False, "SendungsAnhaenge")
' MsgBox(TMP_Path)
' File.Copy(F_listItem, TMP_Path)
Dim da_id = -1
Dim anhId = -1 Dim anhId = -1
Dim destPath = "" Dim destPath = ""
Dim Typ = "" Dim Typ = ""
If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
If saveToDS(AvisoId, fi.Name, F_listItem, "", Typ, da_id, anhId, destPath) Then If saveToDS(AvisoId, filename, F_listItem, "", Typ, da_id, anhId, destPath) Then
addUsrcnlToPnl(destPath, da_id, anhId, filename, Typ) addUsrcnlToPnl(destPath, da_id, anhId, filename, Typ)
End If
End If End If
End If End If
Next Next
@@ -729,9 +831,9 @@ Public Class frmSendungAnhangImport
End Sub End Sub
Public Shared Function getFileTypeValid(extension, ByRef Typ) As Boolean Public Shared Function getFileTypeValid(extension, ByRef Typ) As Boolean
Select Case extension Select Case extension.ToString.Replace(".", "").ToUpper
Case "PDF" : Typ = "PDF" Case "PDF" : Typ = "PDF"
Case "XLS", "XLXS" : Typ = "EXCEL" Case "XLS", "XLM", "XLSM", "XLSX", "CSV" : Typ = "EXCEL"
Case "DOC", "DOCX" : Typ = "WORD" Case "DOC", "DOCX" : Typ = "WORD"
Case "TXT" : Typ = "TEXT" Case "TXT" : Typ = "TEXT"
Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD" Case "JPEG", "JPG", "GIF", "TFF" : Typ = "BILD"
@@ -741,9 +843,7 @@ Public Class frmSendungAnhangImport
Return True Return True
End Function End Function
Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional ByRef anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
Public Shared Function saveToDS(AvisoId, fileName, sourcePath, Art, Typ, Optional ByRef da_id = -1, Optional anhId = -1, Optional ByRef destPath = "", Optional SendungsId = Nothing) As Boolean
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.sss"), "", fileName, -1, False) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", AvisoId, Now.ToString("ddMMyy_HHmmss.sss"), "", fileName, -1, False)
If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False If Not DS.uploadDataToDATENSERVER(sourcePath) Then MsgBox("Fehler beim Speichern: Datenserver!") : Return False
If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False If DS.da_id <= 0 Then MsgBox("Keine DocId!") : Return False
@@ -755,7 +855,76 @@ Public Class frmSendungAnhangImport
Return True Return True
End Function End Function
Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
BrowserLoaded = True BrowserLoaded = True
End Sub End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
Dim f As New frmAddSendnung(AvisoId)
f.ShowDialog(Me)
initSendungen()
initFlpANH_LIST()
End Sub
Private Sub AusZwischenablageeinfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AusZwischenablageeinfügenToolStripMenuItem.Click
Dim data As IDataObject = Clipboard.GetDataObject
If True Then 'data.GetDataPresent(DataFormats.FileDrop) Then
For Each s As String In My.Computer.Clipboard.GetFileDropList() 'GetData(DataFormats.) 'data.GetData(DataFormats.FileDrop) 'DataFormats.FileDrop)
' Dim F_listItem As String = Path.Combine("c:\mynewpath", Path.GetFileName(s))
' File.Copy(s, newFile)
' MsgBox(s)
If IO.File.Exists(s) Then
Dim fi As New FileInfo(s)
Dim filename = fi.Name
If filename = "" Then
MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & s)
Else
Dim da_id = -1
Dim anhId = -1
Dim destPath = ""
Dim Typ = ""
If getFileTypeValid(fi.Extension.Replace(".", ""), Typ) Then
If saveToDS(AvisoId, filename, s, "", Typ, da_id, anhId, destPath) Then
addUsrcnlToPnl(destPath, da_id, anhId, filename, Typ)
End If
End If
End If
End If
Next
If flpnlAviso.Controls.Count > 0 Then DirectCast(flpnlAviso.Controls(0), usrCntlSendungAnhangElement).CLICK_Me()
End If
End Sub
Private Sub txtSeiten_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSeiten.PreviewKeyDown, cboArt.PreviewKeyDown
If e.Modifiers = Keys.Control Then
If e.KeyCode = Keys.PageDown Then
cboSendungen.SelectedIndex = cboSendungen.SelectedIndex + 1
End If
If e.KeyCode = Keys.PageUp Then
cboSendungen.SelectedIndex = cboSendungen.SelectedIndex - 1
End If
Else
If e.KeyCode = Keys.PageDown Then
PdfViewer.GoToPage(PdfViewer.CurrentPageNumber + 1)
End If
If e.KeyCode = Keys.PageUp Then
PdfViewer.GoToPage(PdfViewer.CurrentPageNumber - 1)
End If
End If
End Sub
'Dim angle = 0
'Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
' angle += 90
' If angle > 270 Then
' angle = 0
' End If
' PdfViewer.Rotate(angle)
'End Sub
End Class End Class

33
Aviso/Anhänge/usrCntlSendungAnhangElement.Designer.vb generated
View File

@@ -22,27 +22,46 @@ Partial Class usrCntlSendungAnhangElement
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.pic = New System.Windows.Forms.PictureBox() Me.pic = New System.Windows.Forms.PictureBox()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxt.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'pic 'pic
' '
Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.pic.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.pdf Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.docAllgemein
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.ContextMenuStrip = Me.cntxt
Me.pic.Location = New System.Drawing.Point(3, 0) Me.pic.Location = New System.Drawing.Point(3, 0)
Me.pic.Name = "pic" Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(174, 43) Me.pic.Size = New System.Drawing.Size(174, 43)
Me.pic.TabIndex = 0 Me.pic.TabIndex = 0
Me.pic.TabStop = False Me.pic.TabStop = False
' '
'cntxt
'
Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem})
Me.cntxt.Name = "cntxt"
Me.cntxt.Size = New System.Drawing.Size(181, 70)
'
'UmbenennenToolStripMenuItem
'
Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
Me.UmbenennenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.UmbenennenToolStripMenuItem.Text = "Umbenennen"
'
'lbl 'lbl
' '
Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.lbl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lbl.ContextMenuStrip = Me.cntxt
Me.lbl.Location = New System.Drawing.Point(4, 46) Me.lbl.Location = New System.Drawing.Point(4, 46)
Me.lbl.Name = "lbl" Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(173, 18) Me.lbl.Size = New System.Drawing.Size(173, 18)
@@ -50,20 +69,32 @@ Partial Class usrCntlSendungAnhangElement
Me.lbl.Text = "NAME" Me.lbl.Text = "NAME"
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
' '
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Image = Global.AVISO.My.Resources.Resources.del
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.LöschenToolStripMenuItem.Text = "Löschen"
'
'usrCntlSendungAnhangElement 'usrCntlSendungAnhangElement
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ContextMenuStrip = Me.cntxt
Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.pic) Me.Controls.Add(Me.pic)
Me.Name = "usrCntlSendungAnhangElement" Me.Name = "usrCntlSendungAnhangElement"
Me.Size = New System.Drawing.Size(180, 64) Me.Size = New System.Drawing.Size(180, 64)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.cntxt.ResumeLayout(False)
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
Friend WithEvents pic As PictureBox Friend WithEvents pic As PictureBox
Friend WithEvents lbl As Label Friend WithEvents lbl As Label
Friend WithEvents cntxt As ContextMenuStrip
Friend WithEvents UmbenennenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
End Class End Class

3
Aviso/Anhänge/usrCntlSendungAnhangElement.resx
View File

@@ -117,4 +117,7 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="cntxt.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root> </root>

71
Aviso/Anhänge/usrCntlSendungAnhangElement.vb
View File

@@ -7,7 +7,7 @@ Public Class usrCntlSendungAnhangElement
' Property FILE_NAME = "" ' Property FILE_NAME = ""
Property FILE_PATH Property FILE_PATH
Property FILE_TYPE 'Property FILE_TYPE
Property FILE_PAGES Property FILE_PAGES
Property FILE_DOCID Property FILE_DOCID
@@ -15,6 +15,7 @@ Public Class usrCntlSendungAnhangElement
Public Event ME_CLICK() Public Event ME_CLICK()
Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged 'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
@@ -61,6 +62,31 @@ Public Class usrCntlSendungAnhangElement
End Set End Set
End Property End Property
Private FILE_TYPE_Value As String = False
Public Property FILE_TYPE As String
Get
Return Me.FILE_TYPE_Value
End Get
Set(ByVal value As String)
If Not (value = FILE_TYPE) Then
Me.FILE_TYPE_Value = value
Select Case value
Case "PDF" : pic.BackgroundImage = My.Resources.pdf
Case "EXCEL" : pic.BackgroundImage = My.Resources.Excel_2013_logo_155x110
Case "WORD" : pic.BackgroundImage = My.Resources.word
Case "BILD" : pic.BackgroundImage = My.Resources.ImageIcon
Case "TEXT" : pic.BackgroundImage = My.Resources.android_note
Case Else : pic.BackgroundImage = My.Resources.docAllgemein
End Select
' NotifyPropertyChanged("FILE_TYPE")
End If
End Set
End Property
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
RaiseEvent ME_CLICK() RaiseEvent ME_CLICK()
End Sub End Sub
@@ -69,6 +95,47 @@ Public Class usrCntlSendungAnhangElement
End Sub End Sub
Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick
Process.Start(Me.FILE_PATH) If IO.File.Exists(Me.FILE_PATH) Then
Process.Start(Me.FILE_PATH) 'damit Orginial bearbeitet werden kann
End If
Exit Sub
'Dim p = New System.Diagnostics.Process()
'p.StartInfo.FileName = Me.FILE_PATH
'' p.StartInfo.Arguments = "/c echo Foo && echo Bar"
'p.StartInfo.RedirectStandardOutput = False
'p.StartInfo.UseShellExecute = False
'p.StartInfo.CreateNoWindow = True
'p.Start()
Exit Sub
Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
If ds IsNot Nothing Then
ds.OPEN_SINGLE()
End If
End Sub
Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
Dim bez = InputBox("Bitte geben Sie den neuen Dateinamen ein:")
If bez <> "" Then
Try
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
ANH.anh_Name = bez
ANH.SAVE()
FILE_NAME = bez
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
RaiseEvent ME_DELETE(FILE_DOCID, FILE_ANHID)
End Sub
Private Sub cntxt_Opening(sender As Object, e As CancelEventArgs) Handles cntxt.Opening
CLICK_Me()
End Sub End Sub
End Class End Class

38
Aviso/App.config
View File

@@ -1,15 +1,15 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/> <section name="AVISO.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient"/> <add name="AVISO.My.MySettings.AVISO_ConnectionString_TEST" connectionString="Data Source=192.168.0.90\DEVSQL;Initial Catalog=AVISO_new;Integrated Security=false;User ID=sa;Password=BmWr501956;" providerName="System.Data.SqlClient" />
</connectionStrings> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7" />
</startup> </startup>
<userSettings> <userSettings>
@@ -21,43 +21,43 @@
<value>200, 200</value> <value>200, 200</value>
</setting> </setting>
<setting name="s" serializeAs="String"> <setting name="s" serializeAs="String">
<value/> <value />
</setting> </setting>
</AVISO.My.MySettings> </AVISO.My.MySettings>
</userSettings> </userSettings>
<system.serviceModel> <system.serviceModel>
<bindings> <bindings>
<basicHttpBinding> <basicHttpBinding>
<binding name="BasicHttpBinding_IRKSVWcf"/> <binding name="BasicHttpBinding_IRKSVWcf" />
</basicHttpBinding> </basicHttpBinding>
</bindings> </bindings>
<client> <client>
<endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf"/> <endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" />
</client> </client>
</system.serviceModel> </system.serviceModel>
<runtime> <runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1"> <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral"/> <assemblyIdentity name="DocumentFormat.OpenXml" publicKeyToken="31bf3856ad364e35" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0"/> <bindingRedirect oldVersion="0.0.0.0-2.5.5631.0" newVersion="2.5.5631.0" />
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral"/> <assemblyIdentity name="WindowsBase" publicKeyToken="31bf3856ad364e35" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0"/> <bindingRedirect oldVersion="0.0.0.0-4.0.0.0" newVersion="4.0.0.0" />
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral"/> <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0"/> <bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral"/> <assemblyIdentity name="Aspose.PDF" publicKeyToken="716fcc553a201e56" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-19.3.0.0" newVersion="19.3.0.0"/> <bindingRedirect oldVersion="0.0.0.0-19.3.0.0" newVersion="19.3.0.0" />
<publisherPolicy apply="no"/> <publisherPolicy apply="no" />
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Aspose.Imaging" publicKeyToken="716fcc553a201e56" culture="neutral"/> <assemblyIdentity name="Aspose.Imaging" publicKeyToken="716fcc553a201e56" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-19.4.0.0" newVersion="19.4.0.0"/> <bindingRedirect oldVersion="0.0.0.0-19.4.0.0" newVersion="19.4.0.0" />
<publisherPolicy apply="no"/> <publisherPolicy apply="no" />
</dependentAssembly> </dependentAssembly>
</assemblyBinding> </assemblyBinding>
</runtime> </runtime>

43
Aviso/Aviso.vbproj
View File

@@ -17,7 +17,7 @@
<TargetFrameworkProfile> <TargetFrameworkProfile>
</TargetFrameworkProfile> </TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper> <IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl> <PublishUrl>D:\Andreas\Programmierung\VB\OutlookAddIN\BEREITSTELLUNG\</PublishUrl>
<Install>true</Install> <Install>true</Install>
<InstallFrom>Disk</InstallFrom> <InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled> <UpdateEnabled>false</UpdateEnabled>
@@ -97,10 +97,6 @@
<HintPath>..\packages\esendex-dotnet-sdk.3.4.0\lib\net35\com.esendex.sdk.dll</HintPath> <HintPath>..\packages\esendex-dotnet-sdk.3.4.0\lib\net35\com.esendex.sdk.dll</HintPath>
<Private>True</Private> <Private>True</Private>
</Reference> </Reference>
<Reference Include="ComponentPro.Pdf, Version=7.1.40.232, Culture=neutral, PublicKeyToken=0efede2d78b28dff, processorArchitecture=MSIL" />
<Reference Include="ComponentPro.PdfInspector, Version=7.1.40.232, Culture=neutral, PublicKeyToken=0efede2d78b28dff" />
<Reference Include="ComponentPro.PdfViewer, Version=7.1.40.232, Culture=neutral, PublicKeyToken=0efede2d78b28dff, processorArchitecture=MSIL" />
<Reference Include="ComponentPro.Windows.Common, Version=7.1.40.232, Culture=neutral, PublicKeyToken=0efede2d78b28dff" />
<Reference Include="DocumentFormat.OpenXml, Version=2.5.5631.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL"> <Reference Include="DocumentFormat.OpenXml, Version=2.5.5631.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\Open XML SDK\V2.5\lib\DocumentFormat.OpenXml.dll</HintPath> <HintPath>C:\Program Files (x86)\Open XML SDK\V2.5\lib\DocumentFormat.OpenXml.dll</HintPath>
@@ -129,9 +125,6 @@
<Reference Include="GrapeCity.Documents.Pdf, Version=2.2.0.315, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL"> <Reference Include="GrapeCity.Documents.Pdf, Version=2.2.0.315, Culture=neutral, PublicKeyToken=d55d733d2bfd5065, processorArchitecture=MSIL">
<HintPath>..\packages\GrapeCity.Documents.Pdf.2.2.0.315\lib\net461\GrapeCity.Documents.Pdf.dll</HintPath> <HintPath>..\packages\GrapeCity.Documents.Pdf.2.2.0.315\lib\net461\GrapeCity.Documents.Pdf.dll</HintPath>
</Reference> </Reference>
<Reference Include="GroupDocs.Viewer, Version=19.8.0.0, Culture=neutral, PublicKeyToken=716fcc553a201e56, processorArchitecture=MSIL">
<HintPath>..\packages\GroupDocs.Viewer.19.8.0\lib\GroupDocs.Viewer.dll</HintPath>
</Reference>
<Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL"> <Reference Include="itextsharp, Version=5.5.5.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\itextsharp.dll</HintPath> <HintPath>..\..\..\dll\itextsharp.dll</HintPath>
@@ -164,11 +157,14 @@
<Reference Include="NumericBox"> <Reference Include="NumericBox">
<HintPath>..\..\..\dll\NumericBox.dll</HintPath> <HintPath>..\..\..\dll\NumericBox.dll</HintPath>
</Reference> </Reference>
<Reference Include="Spire.Pdf"> <Reference Include="Spire.License, Version=1.3.7.46, Culture=neutral, PublicKeyToken=b1144360237c8b3f, processorArchitecture=MSIL">
<HintPath>..\..\..\dll\PDF Spire\Spire.Pdf.dll</HintPath> <HintPath>..\packages\Spire.PDFViewer.4.5.1\lib\net46\Spire.License.dll</HintPath>
</Reference> </Reference>
<Reference Include="Spire.PdfViewer.Forms"> <Reference Include="Spire.Pdf, Version=5.5.2.2046, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<HintPath>..\..\..\dll\PDF Spire\Spire.PdfViewer.Forms.dll</HintPath> <HintPath>..\packages\Spire.PDFViewer.4.5.1\lib\net46\Spire.Pdf.dll</HintPath>
</Reference>
<Reference Include="Spire.PdfViewer.Forms, Version=4.5.1.3046, Culture=neutral, PublicKeyToken=663f351905198cb3, processorArchitecture=MSIL">
<HintPath>..\packages\Spire.PDFViewer.4.5.1\lib\net46\Spire.PdfViewer.Forms.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Buffers, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL"> <Reference Include="System.Buffers, Version=4.0.2.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
@@ -227,6 +223,12 @@
<Compile Include="ADMIN\frmZuordnungKd.vb"> <Compile Include="ADMIN\frmZuordnungKd.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Anhänge\frmAddSendnung.Designer.vb">
<DependentUpon>frmAddSendnung.vb</DependentUpon>
</Compile>
<Compile Include="Anhänge\frmAddSendnung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Anhänge\usrCntlSendungAnhangElement.Designer.vb"> <Compile Include="Anhänge\usrCntlSendungAnhangElement.Designer.vb">
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon> <DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
</Compile> </Compile>
@@ -592,10 +594,10 @@
<Compile Include="rptLKWBericht.vb"> <Compile Include="rptLKWBericht.vb">
<SubType>Component</SubType> <SubType>Component</SubType>
</Compile> </Compile>
<Compile Include="frmSendungAnhangImport.Designer.vb"> <Compile Include="Anhänge\frmSendungAnhangImport.Designer.vb">
<DependentUpon>frmSendungAnhangImport.vb</DependentUpon> <DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="frmSendungAnhangImport.vb"> <Compile Include="Anhänge\frmSendungAnhangImport.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="Settings.vb" /> <Compile Include="Settings.vb" />
@@ -664,6 +666,9 @@
<EmbeddedResource Include="ADMIN\frmZuordnungKd.resx"> <EmbeddedResource Include="ADMIN\frmZuordnungKd.resx">
<DependentUpon>frmZuordnungKd.vb</DependentUpon> <DependentUpon>frmZuordnungKd.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Anhänge\frmAddSendnung.resx">
<DependentUpon>frmAddSendnung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx"> <EmbeddedResource Include="Anhänge\usrCntlSendungAnhangElement.resx">
<DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon> <DependentUpon>usrCntlSendungAnhangElement.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -834,7 +839,7 @@
<EmbeddedResource Include="rptLKWBericht.resx"> <EmbeddedResource Include="rptLKWBericht.resx">
<DependentUpon>rptLKWBericht.vb</DependentUpon> <DependentUpon>rptLKWBericht.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmSendungAnhangImport.resx"> <EmbeddedResource Include="Anhänge\frmSendungAnhangImport.resx">
<DependentUpon>frmSendungAnhangImport.vb</DependentUpon> <DependentUpon>frmSendungAnhangImport.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="usrcntlAktDetailsATILLANeu.resx"> <EmbeddedResource Include="usrcntlAktDetailsATILLANeu.resx">
@@ -951,6 +956,14 @@
<ItemGroup> <ItemGroup>
<Content Include="aviso.ico" /> <Content Include="aviso.ico" />
<Content Include="My Project\aktAlt.jpg" /> <Content Include="My Project\aktAlt.jpg" />
<None Include="Resources\email.png" />
<None Include="Resources\pdfprint1.png" />
<None Include="Resources\pdfprint.png" />
<None Include="Resources\Unisped_logo.jpg" />
<None Include="Resources\ambar_simple.png" />
<None Include="Resources\docAllgemein.png" />
<EmbeddedResource Include="My Project\license.elic.xml" />
<None Include="Resources\license.elic.xml" />
<None Include="Resources\scanner.png" /> <None Include="Resources\scanner.png" />
<None Include="Resources\parkplatz.jpg" /> <None Include="Resources\parkplatz.jpg" />
<None Include="Resources\igl.png" /> <None Include="Resources\igl.png" />

4
Aviso/My Project/AssemblyInfo.vb
View File

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

101
Aviso/My Project/Resources.Designer.vb generated
View File

@@ -129,6 +129,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ambar_simple() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ambar_simple", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -349,6 +359,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property docAllgemein() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("docAllgemein", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -369,6 +389,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property email() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("email", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -379,6 +409,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Excel_2013_logo_155x110() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Excel_2013_logo_155x110", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -419,6 +459,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property hdfesdfsdfsdfsdaf2() As String
Get
Return ResourceManager.GetString("hdfesdfsdfsdfsdaf2", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -449,6 +498,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ImageIcon() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ImageIcon", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -679,6 +738,26 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property pdfprint() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("pdfprint", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property pdfprint1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("pdfprint1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@@ -989,6 +1068,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Unisped_logo() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Unisped_logo", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 4.0 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 4.0 ähnelt.
'''</summary> '''</summary>
@@ -1039,7 +1128,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 3.3.2.2 ähnelt. ''' Sucht eine lokalisierte Zeichenfolge, die 3.3.2.5 ähnelt.
'''</summary> '''</summary>
Friend ReadOnly Property Version() As String Friend ReadOnly Property Version() As String
Get Get
@@ -1164,6 +1253,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property word1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("word1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

72
Aviso/My Project/Resources.resx
View File

@@ -148,6 +148,9 @@
<data name="els" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="els" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\els.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\els.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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>
<data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="spedbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\spedbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -172,8 +175,8 @@
<data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="zoll_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\zoll1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="auftrag3" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\auftrag3.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="igl" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\igl.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -193,6 +196,9 @@
<data name="android-add-contact" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="android-add-contact" 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> <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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>
</data>
<data name="android_note" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="android_note" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\android-note.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -208,20 +214,23 @@
<data name="NDK" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\NDK.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="tranparent30Perc" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="tranparent30Perc" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tranparent30Perc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\tranparent30Perc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="tts" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="tts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\tts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="noAviso_s1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\noAviso_s1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="android_clock" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\android-clock.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="parkplatz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>..\Resources\parkplatz.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> </data>
<data name="personInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\personInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -232,6 +241,9 @@
<data name="kasse1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\kasse1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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="printer" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="printer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\printer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -265,8 +277,8 @@
<data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Atilla" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Atilla.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\scanner.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="fremdSped" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="fremdSped" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\fremdSped.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -274,12 +286,12 @@
<data name="handy1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="handy1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\handy1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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="plus" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\plus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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="bundesanzeiger" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="bundesanzeiger" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bundesanzeiger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\bundesanzeiger.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -289,6 +301,9 @@
<data name="cartable_ouvert" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="cartable_ouvert" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cartable_ouvert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\cartable_ouvert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Excel_2013_logo_155x110" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plus1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="plus1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plus1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\plus1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -301,8 +316,8 @@
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="auftrag3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\auftrag3.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="abgeklaertInaktiv" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\abgeklaertInaktiv.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -319,14 +334,14 @@
<data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Aviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Aviso.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="image_443x282" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="docAllgemein" 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> <value>..\Resources\docAllgemein.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="akt_ATILLA" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\akt_ATILLA.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Version" xml:space="preserve"> <data name="Version" xml:space="preserve">
<value>3.3.2.2</value> <value>3.3.2.5</value>
</data> </data>
<data name="Verag_AG_Logopng" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\Verag-AG-Logopng.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -346,6 +361,9 @@
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="pdfprint" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdfprint.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"> <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> <value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -394,6 +412,9 @@
<data name="disconnect" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="disconnect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\disconnect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\disconnect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="pdfprint1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdfprint1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="UpdaterVersion" xml:space="preserve"> <data name="UpdaterVersion" xml:space="preserve">
<value>4.0</value> <value>4.0</value>
</data> </data>
@@ -418,6 +439,9 @@
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="MUSTER" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\MUSTER.nlc;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="evolog" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\evolog.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -445,8 +469,8 @@
<data name="stift2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="stift2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\stift.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="arrow_left_a" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="search" 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> <value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="vorauszahlung2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\vorauszahlung2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -457,7 +481,13 @@
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="scanner" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="ambar_simple" 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> <value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="hdfesdfsdfsdfsdaf2" xml:space="preserve">
<value />
</data> </data>
</root> </root>

24
Aviso/My Project/license.elic.xml Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<License Key="AAEA4ntefEpzSywzIrB1dHRM7C6h6Nsn2sYvcXJNIA6FsmqQCaeptK1e4d6q+o76ymXZPk8ckHWhlikSMIjsCQ/My5ty75NnBikL4MadZGorQYNOcIRK9Kfccke0TAqCilotrOQB5jScLOFL65oHzJoQbKdg4mx2dBgPiVzLUmzBeUTx5OQguU15g7tirjDkGEdfenCVvGq19aav/xmgma1L+IAsRyKkzLH0+yBsy3Ta7u2pVXF6kiH2BaJj0qi/5kmNWcu9bxWvApxCa20ShIY9QUIN7RqvQZ4orc3/+IF+8q4VtBomcLJ7ZYHlWPVfNovMUKU62qIjD274kFGQlDpeIJ1w8VEXqsov25WugggbDpheZcEBOAGuOGKeOM53TRF4EwTWB2fvGLw1E7o5HqxrID4PcDtSnq+sAv/NRU3+0Sr1YHhD7Cvk4TH9qwcsp27Pbm0zX5+ylm7kUHC6ZVko88MiQbP/SCFe+JL32HtuD0d1XbeLw1vntsPzlo+TWCsFRnPBWHvYmhFl3Sv6jXVW/tMTFYSU3z4nInGswCLBAUgajSLLcXJI5LTDAzya9cpl5Sw5s543RsrrktILANcRYtO3giNP6G5Wn95Kq+gkfQ/W29Zx/P5+WGylUyPQXkCweIAkAkdPZGxZdhkRWsWTuKGo+JcsA/U/NH8u6lK4lEepNaaRNffXzOQXwGC3z9gIzsIklUSKU104FJXZgsmrCwI68JuH7r/TFl2ekzfPSUcPzfR1i+x175q+Mb9tQMNfUYZ+NSPy5DFvVju0+VFdua/1S811zsk47D3lAYHhC7lnoPTGCJv6SekLLRiD7eM7B7QDcdSP6bFmwTl8St40PeHZRb4YJwuqmI/d2l8RRMFQz14nB7PYkFvD5FQ/Ts22/bh3pEd7Zy7/k1EiOpX8DcpO9zn25vPLlkQqRw0QtnUMx9K7LDwYkz+LFokERjLIRImkLGfskZf5ojgR7JQE4GDk9gu4AyjLTJELQzah0fHM/Mchn74Onr95Vh64uqNgOV/2MZLBJZTXRSENXFiyoO3y6IfgPe5vpVUPnl+Yngn6BdQB9BE3wmLWw25kyByliJsEfIuBYFGIvA5t9NSyBdmtW2g1fHGgcxDtn1g5H8Rmk79dMdUFr4tIQ+qvNS6CGvozSdG/C7D3JhRm01C+a+1ZyovuGHmREtj9VrmCmbYohmqZ34mH9L6kAfNmBOes2+eb8LjbMCNnAUAU5fhRqYIDyCa8wDvsuWy7dwwXj7PPeqY6fLitcSsJNHkS2iUUXJk3RqjsnwAqNFIqX1P3TIFuzJbXAkdjEetgsn3setPcUA/Kxaakx1p2K2BZ1Mzf+mnk8ugGPzJihyxIEKmXtacYtwO8yTGR49TQRGVFPwTbePdd5zDSbohXhl02oEmg8FDuhkktFUlHtBoHYtlVazlbXWKcliNXdzdGtXJYtEf4ULtv1pQclzGIDUyr2yRot6cB0wX9lVO6iHHQeRtFr1eLURLO" Version="1.3">
<Type>Runtime</Type>
<Username>VERAG Spedition AG</Username>
<Email>al@verag.ag</Email>
<Organization>VERAG Spedition AG</Organization>
<LicensedDate>2019-09-12T00:00:00Z</LicensedDate>
<ExpiredDate>2020-09-12T00:00:00Z</ExpiredDate>
<Products>
<Product>
<Name>Spire.PDF Platinum</Name>
<Version>5.8</Version>
<Subscription>
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
<NumberOfPermittedSite>1</NumberOfPermittedSite>
</Subscription>
</Product>
</Products>
<Issuer>
<Name>e-iceblue</Name>
<Email>sales@e-iceblue.com</Email>
<Url>http://www.e-iceblue.com</Url>
</Issuer>
</License>

7
Aviso/My Project/licenses.licx
View File

@@ -1,4 +1,5 @@
GrapeCity.ActiveReports.Export.Excel.Section.XlsExport, GrapeCity.ActiveReports.Export.Excel.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
Spire.PdfViewer.Forms.PdfDocumentViewer, Spire.PdfViewer.Forms, Version=4.5.1.3046, Culture=neutral, PublicKeyToken=663f351905198cb3
GrapeCity.ActiveReports.Export.Excel.Section.XlsExport, GrapeCity.ActiveReports.Export.Excel.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff

BIN
Aviso/Resources/Excel_2013_logo-155x110.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.6 KiB

BIN
Aviso/Resources/ImageIcon.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.8 KiB

BIN
Aviso/Resources/Unisped_logo.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 121 KiB

BIN
Aviso/Resources/ambar_simple.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 79 KiB

BIN
Aviso/Resources/docAllgemein.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 68 KiB

BIN
Aviso/Resources/email.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.4 KiB

24
Aviso/Resources/license.elic.xml Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<License Key="AAEA4ntefEpzSywzIrB1dHRM7C6h6Nsn2sYvcXJNIA6FsmqQCaeptK1e4d6q+o76ymXZPk8ckHWhlikSMIjsCQ/My5ty75NnBikL4MadZGorQYNOcIRK9Kfccke0TAqCilotrOQB5jScLOFL65oHzJoQbKdg4mx2dBgPiVzLUmzBeUTx5OQguU15g7tirjDkGEdfenCVvGq19aav/xmgma1L+IAsRyKkzLH0+yBsy3Ta7u2pVXF6kiH2BaJj0qi/5kmNWcu9bxWvApxCa20ShIY9QUIN7RqvQZ4orc3/+IF+8q4VtBomcLJ7ZYHlWPVfNovMUKU62qIjD274kFGQlDpeIJ1w8VEXqsov25WugggbDpheZcEBOAGuOGKeOM53TRF4EwTWB2fvGLw1E7o5HqxrID4PcDtSnq+sAv/NRU3+0Sr1YHhD7Cvk4TH9qwcsp27Pbm0zX5+ylm7kUHC6ZVko88MiQbP/SCFe+JL32HtuD0d1XbeLw1vntsPzlo+TWCsFRnPBWHvYmhFl3Sv6jXVW/tMTFYSU3z4nInGswCLBAUgajSLLcXJI5LTDAzya9cpl5Sw5s543RsrrktILANcRYtO3giNP6G5Wn95Kq+gkfQ/W29Zx/P5+WGylUyPQXkCweIAkAkdPZGxZdhkRWsWTuKGo+JcsA/U/NH8u6lK4lEepNaaRNffXzOQXwGC3z9gIzsIklUSKU104FJXZgsmrCwI68JuH7r/TFl2ekzfPSUcPzfR1i+x175q+Mb9tQMNfUYZ+NSPy5DFvVju0+VFdua/1S811zsk47D3lAYHhC7lnoPTGCJv6SekLLRiD7eM7B7QDcdSP6bFmwTl8St40PeHZRb4YJwuqmI/d2l8RRMFQz14nB7PYkFvD5FQ/Ts22/bh3pEd7Zy7/k1EiOpX8DcpO9zn25vPLlkQqRw0QtnUMx9K7LDwYkz+LFokERjLIRImkLGfskZf5ojgR7JQE4GDk9gu4AyjLTJELQzah0fHM/Mchn74Onr95Vh64uqNgOV/2MZLBJZTXRSENXFiyoO3y6IfgPe5vpVUPnl+Yngn6BdQB9BE3wmLWw25kyByliJsEfIuBYFGIvA5t9NSyBdmtW2g1fHGgcxDtn1g5H8Rmk79dMdUFr4tIQ+qvNS6CGvozSdG/C7D3JhRm01C+a+1ZyovuGHmREtj9VrmCmbYohmqZ34mH9L6kAfNmBOes2+eb8LjbMCNnAUAU5fhRqYIDyCa8wDvsuWy7dwwXj7PPeqY6fLitcSsJNHkS2iUUXJk3RqjsnwAqNFIqX1P3TIFuzJbXAkdjEetgsn3setPcUA/Kxaakx1p2K2BZ1Mzf+mnk8ugGPzJihyxIEKmXtacYtwO8yTGR49TQRGVFPwTbePdd5zDSbohXhl02oEmg8FDuhkktFUlHtBoHYtlVazlbXWKcliNXdzdGtXJYtEf4ULtv1pQclzGIDUyr2yRot6cB0wX9lVO6iHHQeRtFr1eLURLO" Version="1.3">
<Type>Runtime</Type>
<Username>VERAG Spedition AG</Username>
<Email>al@verag.ag</Email>
<Organization>VERAG Spedition AG</Organization>
<LicensedDate>2019-09-12T00:00:00Z</LicensedDate>
<ExpiredDate>2020-09-12T00:00:00Z</ExpiredDate>
<Products>
<Product>
<Name>Spire.PDF Platinum</Name>
<Version>5.8</Version>
<Subscription>
<NumberOfPermittedDeveloper>1</NumberOfPermittedDeveloper>
<NumberOfPermittedSite>1</NumberOfPermittedSite>
</Subscription>
</Product>
</Products>
<Issuer>
<Name>e-iceblue</Name>
<Email>sales@e-iceblue.com</Email>
<Url>http://www.e-iceblue.com</Url>
</Issuer>
</License>

BIN
Aviso/Resources/pdfprint.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 48 KiB

BIN
Aviso/Resources/pdfprint1.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 48 KiB

31
Aviso/frmAddSendungsvermerkShort.Designer.vb generated
View File

@@ -27,6 +27,7 @@ Partial Class frmAddSendungsvermerkShort
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.pnlMain = New System.Windows.Forms.Panel() Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnlSendungsVermker = New System.Windows.Forms.Panel() Me.pnlSendungsVermker = New System.Windows.Forms.Panel()
Me.optUeberwachungsdok = New System.Windows.Forms.CheckBox()
Me.lblErrSpedition = New System.Windows.Forms.Label() Me.lblErrSpedition = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.lblErrGrund = New System.Windows.Forms.Label() Me.lblErrGrund = New System.Windows.Forms.Label()
@@ -63,7 +64,7 @@ Partial Class frmAddSendungsvermerkShort
Me.PictureBox4 = New System.Windows.Forms.PictureBox() Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.optUeberwachungsdok = New System.Windows.Forms.CheckBox() Me.cbxRgBest = New System.Windows.Forms.CheckBox()
Me.pnlMain.SuspendLayout() Me.pnlMain.SuspendLayout()
Me.pnlSendungsVermker.SuspendLayout() Me.pnlSendungsVermker.SuspendLayout()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -89,6 +90,7 @@ Partial Class frmAddSendungsvermerkShort
' '
Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White
Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlSendungsVermker.Controls.Add(Me.cbxRgBest)
Me.pnlSendungsVermker.Controls.Add(Me.optUeberwachungsdok) Me.pnlSendungsVermker.Controls.Add(Me.optUeberwachungsdok)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrSpedition) Me.pnlSendungsVermker.Controls.Add(Me.lblErrSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.Label2) Me.pnlSendungsVermker.Controls.Add(Me.Label2)
@@ -131,6 +133,16 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlSendungsVermker.Size = New System.Drawing.Size(434, 388) Me.pnlSendungsVermker.Size = New System.Drawing.Size(434, 388)
Me.pnlSendungsVermker.TabIndex = 0 Me.pnlSendungsVermker.TabIndex = 0
' '
'optUeberwachungsdok
'
Me.optUeberwachungsdok.AutoSize = True
Me.optUeberwachungsdok.Location = New System.Drawing.Point(270, 138)
Me.optUeberwachungsdok.Name = "optUeberwachungsdok"
Me.optUeberwachungsdok.Size = New System.Drawing.Size(114, 17)
Me.optUeberwachungsdok.TabIndex = 85
Me.optUeberwachungsdok.Text = "Ü-Dok. angefodert"
Me.optUeberwachungsdok.UseVisualStyleBackColor = True
'
'lblErrSpedition 'lblErrSpedition
' '
Me.lblErrSpedition.AutoSize = True Me.lblErrSpedition.AutoSize = True
@@ -523,15 +535,15 @@ Partial Class frmAddSendungsvermerkShort
Me.Panel4.Size = New System.Drawing.Size(434, 0) Me.Panel4.Size = New System.Drawing.Size(434, 0)
Me.Panel4.TabIndex = 1 Me.Panel4.TabIndex = 1
' '
'optUeberwachungsdok 'cbxRgBest
' '
Me.optUeberwachungsdok.AutoSize = True Me.cbxRgBest.AutoSize = True
Me.optUeberwachungsdok.Location = New System.Drawing.Point(270, 138) Me.cbxRgBest.Location = New System.Drawing.Point(270, 161)
Me.optUeberwachungsdok.Name = "optUeberwachungsdok" Me.cbxRgBest.Name = "cbxRgBest"
Me.optUeberwachungsdok.Size = New System.Drawing.Size(114, 17) Me.cbxRgBest.Size = New System.Drawing.Size(146, 17)
Me.optUeberwachungsdok.TabIndex = 85 Me.cbxRgBest.TabIndex = 86
Me.optUeberwachungsdok.Text = "Ü-Dok. angefodert" Me.cbxRgBest.Text = "Rechnungsbestät. angef."
Me.optUeberwachungsdok.UseVisualStyleBackColor = True Me.cbxRgBest.UseVisualStyleBackColor = True
' '
'frmAddSendungsvermerkShort 'frmAddSendungsvermerkShort
' '
@@ -594,4 +606,5 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents optUeberwachungsdok As System.Windows.Forms.CheckBox Friend WithEvents optUeberwachungsdok As System.Windows.Forms.CheckBox
Friend WithEvents cbxRgBest As CheckBox
End Class End Class

3
Aviso/frmAddSendungsvermerkShort.vb
View File

@@ -95,6 +95,8 @@ Public Class frmAddSendungsvermerkShort
Me.Text = "AKT " & myAviso.LKW_Nr & "" Me.Text = "AKT " & myAviso.LKW_Nr & ""
' optKeineAuswahl.Checked = True ' optKeineAuswahl.Checked = True
' optDokumente.Focus() ' optDokumente.Focus()
End Sub End Sub
@@ -136,6 +138,7 @@ Public Class frmAddSendungsvermerkShort
If cbxATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATR für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 7) If cbxATR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "ATR für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 7)
If cbxVollmacht.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Vollmacht für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 9) If cbxVollmacht.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Vollmacht für Sendung '" & txtSendung.Text.Trim & "' fehlt - angefordert", 9)
If cbxCMR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "CMR für Fiskal VZ bei Sendung '" & txtSendung.Text.Trim & "' angefordert", 11) If cbxCMR.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "CMR für Fiskal VZ bei Sendung '" & txtSendung.Text.Trim & "' angefordert", 11)
If cbxRgBest.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Rechnungsbestätigung bei Sendung '" & txtSendung.Text.Trim & "' angefordert", 55)
If optUeberwachungsdok.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Ü-Dok bei Sendung '" & txtSendung.Text.Trim & "' angefordert", 53) If optUeberwachungsdok.Checked Then insertSendungsVermerk(SendungID, myAviso.AvisoID, "Ü-Dok bei Sendung '" & txtSendung.Text.Trim & "' angefordert", 53)

257
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -24,12 +24,12 @@ Partial Class frmHauptfenster
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem() Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem() Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -172,7 +172,6 @@ Partial Class frmHauptfenster
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.btnWichtige = New System.Windows.Forms.Button() Me.btnWichtige = New System.Windows.Forms.Button()
Me.lblAnzahl = New System.Windows.Forms.Label()
Me.btnWichtigeStandort = New System.Windows.Forms.Button() Me.btnWichtigeStandort = New System.Windows.Forms.Button()
Me.btnMinimieren = New System.Windows.Forms.Button() Me.btnMinimieren = New System.Windows.Forms.Button()
Me.lblSuche = New System.Windows.Forms.Label() Me.lblSuche = New System.Windows.Forms.Label()
@@ -185,7 +184,6 @@ Partial Class frmHauptfenster
Me.lblVersion = New System.Windows.Forms.Label() Me.lblVersion = New System.Windows.Forms.Label()
Me.pnlLinksOben = New System.Windows.Forms.Panel() Me.pnlLinksOben = New System.Windows.Forms.Panel()
Me.btnNeu = New System.Windows.Forms.Button() Me.btnNeu = New System.Windows.Forms.Button()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel6 = New System.Windows.Forms.Panel() Me.Panel6 = New System.Windows.Forms.Panel()
Me.lblMeineAviso = New System.Windows.Forms.Label() Me.lblMeineAviso = New System.Windows.Forms.Label()
Me.lblAkte = New System.Windows.Forms.Label() Me.lblAkte = New System.Windows.Forms.Label()
@@ -205,7 +203,6 @@ Partial Class frmHauptfenster
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlDetailsLinks = New System.Windows.Forms.Panel() Me.pnlDetailsLinks = New System.Windows.Forms.Panel()
Me.splitMain = New System.Windows.Forms.SplitContainer() Me.splitMain = New System.Windows.Forms.SplitContainer()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.lklErweitereSuche = New System.Windows.Forms.LinkLabel() Me.lklErweitereSuche = New System.Windows.Forms.LinkLabel()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
@@ -213,7 +210,6 @@ Partial Class frmHauptfenster
Me.cboGrenzstelle = New System.Windows.Forms.ComboBox() Me.cboGrenzstelle = New System.Windows.Forms.ComboBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.pnlTime = New System.Windows.Forms.Panel() Me.pnlTime = New System.Windows.Forms.Panel()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlSearch = New System.Windows.Forms.Panel() Me.pnlSearch = New System.Windows.Forms.Panel()
Me.Label15 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label()
Me.txtlkwId = New System.Windows.Forms.TextBox() Me.txtlkwId = New System.Windows.Forms.TextBox()
@@ -230,7 +226,6 @@ Partial Class frmHauptfenster
Me.Button4 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label()
Me.txtEmpfänger = New System.Windows.Forms.TextBox() Me.txtEmpfänger = New System.Windows.Forms.TextBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox() Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
@@ -241,7 +236,6 @@ Partial Class frmHauptfenster
Me.timerStandzeit = New System.Windows.Forms.Timer(Me.components) Me.timerStandzeit = New System.Windows.Forms.Timer(Me.components)
Me.Label9 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label()
Me.TimerUPDATE = New System.Windows.Forms.Timer(Me.components) Me.TimerUPDATE = New System.Windows.Forms.Timer(Me.components)
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlOptionen = New System.Windows.Forms.Panel() Me.pnlOptionen = New System.Windows.Forms.Panel()
Me.btnKasse_User = New System.Windows.Forms.Button() Me.btnKasse_User = New System.Windows.Forms.Button()
@@ -251,6 +245,11 @@ Partial Class frmHauptfenster
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.BundesanzeigerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BundesanzeigerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.EUTaricToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.conMenuAviso.SuspendLayout() Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.Top.SuspendLayout() Me.Top.SuspendLayout()
@@ -261,7 +260,6 @@ Partial Class frmHauptfenster
Me.pnlLinks.SuspendLayout() Me.pnlLinks.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlLinksOben.SuspendLayout() Me.pnlLinksOben.SuspendLayout()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel6.SuspendLayout() Me.Panel6.SuspendLayout()
Me.tbcntrAviso.SuspendLayout() Me.tbcntrAviso.SuspendLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -273,12 +271,13 @@ Partial Class frmHauptfenster
Me.splitMain.Panel1.SuspendLayout() Me.splitMain.Panel1.SuspendLayout()
Me.splitMain.Panel2.SuspendLayout() Me.splitMain.Panel2.SuspendLayout()
Me.splitMain.SuspendLayout() Me.splitMain.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.pnlTime.SuspendLayout() Me.pnlTime.SuspendLayout()
Me.pnlSearch.SuspendLayout() Me.pnlSearch.SuspendLayout()
Me.pnlOptionen.SuspendLayout() Me.pnlOptionen.SuspendLayout()
Me.cntxt.SuspendLayout() Me.cntxt.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'mnuInfo 'mnuInfo
@@ -1403,16 +1402,6 @@ Partial Class frmHauptfenster
Me.btnWichtige.Text = "WICHTIG" Me.btnWichtige.Text = "WICHTIG"
Me.btnWichtige.UseVisualStyleBackColor = True Me.btnWichtige.UseVisualStyleBackColor = True
' '
'lblAnzahl
'
Me.lblAnzahl.AutoSize = True
Me.lblAnzahl.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblAnzahl.Location = New System.Drawing.Point(854, 32)
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(154, 13)
Me.lblAnzahl.TabIndex = 5
Me.lblAnzahl.Text = "123 ausgewählt / 1254 gesamt"
'
'btnWichtigeStandort 'btnWichtigeStandort
' '
Me.btnWichtigeStandort.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnWichtigeStandort.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1576,25 +1565,6 @@ Partial Class frmHauptfenster
Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNeu.UseVisualStyleBackColor = True Me.btnNeu.UseVisualStyleBackColor = True
' '
'gridMyAviso
'
Me.gridMyAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridMyAviso.AllowUserToAddRows = False
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.Size = New System.Drawing.Size(650, 207)
Me.gridMyAviso.TabIndex = 0
'
'Panel6 'Panel6
' '
Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Panel6.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -1847,58 +1817,6 @@ Partial Class frmHauptfenster
Me.splitMain.SplitterDistance = 360 Me.splitMain.SplitterDistance = 360
Me.splitMain.TabIndex = 0 Me.splitMain.TabIndex = 0
' '
'gridAviso
'
Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle4
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 208)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(720, 152)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -1914,7 +1832,6 @@ Partial Class frmHauptfenster
Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.Label3) Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.btnWichtige) Me.Panel1.Controls.Add(Me.btnWichtige)
Me.Panel1.Controls.Add(Me.lblAnzahl)
Me.Panel1.Controls.Add(Me.btnWichtigeStandort) Me.Panel1.Controls.Add(Me.btnWichtigeStandort)
Me.Panel1.Controls.Add(Me.btnAlleAnzeigen) Me.Panel1.Controls.Add(Me.btnAlleAnzeigen)
Me.Panel1.Controls.Add(Me.lblSuche) Me.Panel1.Controls.Add(Me.lblSuche)
@@ -1999,22 +1916,6 @@ Partial Class frmHauptfenster
Me.pnlTime.Size = New System.Drawing.Size(274, 57) Me.pnlTime.Size = New System.Drawing.Size(274, 57)
Me.pnlTime.TabIndex = 12 Me.pnlTime.TabIndex = 12
' '
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(3, 3)
Me.MyComboBox1.MaxLength = 4
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(98, 21)
Me.MyComboBox1.TabIndex = 7
'
'pnlSearch 'pnlSearch
' '
Me.pnlSearch.Controls.Add(Me.Label15) Me.pnlSearch.Controls.Add(Me.Label15)
@@ -2201,20 +2102,6 @@ Partial Class frmHauptfenster
Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23) Me.txtEmpfänger.Size = New System.Drawing.Size(236, 23)
Me.txtEmpfänger.TabIndex = 5 Me.txtEmpfänger.TabIndex = 5
' '
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 300
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(389, 11)
Me.cboFiliale.MaxLength = 4
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(70, 24)
Me.cboFiliale.TabIndex = 3
'
'txtAbfertigungsnummer 'txtAbfertigungsnummer
' '
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -2294,17 +2181,6 @@ Partial Class frmHauptfenster
' '
Me.TimerUPDATE.Interval = 900000 Me.TimerUPDATE.Interval = 900000
' '
'UsrCntlTestsystem1
'
Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'ToolStripMenuItem1 'ToolStripMenuItem1
' '
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
@@ -2403,6 +2279,118 @@ Partial Class frmHauptfenster
Me.EUTaricToolStripMenuItem.Size = New System.Drawing.Size(157, 22) Me.EUTaricToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.EUTaricToolStripMenuItem.Text = "EU-Taric" Me.EUTaricToolStripMenuItem.Text = "EU-Taric"
' '
'UsrCntlTestsystem1
'
Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'gridAviso
'
Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle3.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle4
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 208)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle6
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(720, 152)
Me.gridAviso.TabIndex = 1
Me.gridAviso.TabStop = False
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(3, 3)
Me.MyComboBox1.MaxLength = 4
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(98, 21)
Me.MyComboBox1.TabIndex = 7
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
Me.cboFiliale._allowFreiText = False
Me.cboFiliale._value = ""
Me.cboFiliale.DropDownWidth = 300
Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(389, 11)
Me.cboFiliale.MaxLength = 4
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(70, 24)
Me.cboFiliale.TabIndex = 3
'
'gridMyAviso
'
Me.gridMyAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridMyAviso.AllowUserToAddRows = False
Me.gridMyAviso.AllowUserToDeleteRows = False
Me.gridMyAviso.AllowUserToOrderColumns = True
Me.gridMyAviso.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
Me.gridMyAviso.Name = "gridMyAviso"
Me.gridMyAviso.ReadOnly = True
Me.gridMyAviso.RowHeadersVisible = False
Me.gridMyAviso.Size = New System.Drawing.Size(650, 207)
Me.gridMyAviso.TabIndex = 0
'
'frmHauptfenster 'frmHauptfenster
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2439,7 +2427,6 @@ Partial Class frmHauptfenster
Me.pnlLinks.PerformLayout() Me.pnlLinks.PerformLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlLinksOben.ResumeLayout(False) Me.pnlLinksOben.ResumeLayout(False)
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel6.ResumeLayout(False) Me.Panel6.ResumeLayout(False)
Me.Panel6.PerformLayout() Me.Panel6.PerformLayout()
Me.tbcntrAviso.ResumeLayout(False) Me.tbcntrAviso.ResumeLayout(False)
@@ -2454,7 +2441,6 @@ Partial Class frmHauptfenster
Me.splitMain.Panel2.ResumeLayout(False) Me.splitMain.Panel2.ResumeLayout(False)
CType(Me.splitMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.splitMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.splitMain.ResumeLayout(False) Me.splitMain.ResumeLayout(False)
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
Me.pnlTime.ResumeLayout(False) Me.pnlTime.ResumeLayout(False)
@@ -2463,6 +2449,8 @@ Partial Class frmHauptfenster
Me.pnlSearch.PerformLayout() Me.pnlSearch.PerformLayout()
Me.pnlOptionen.ResumeLayout(False) Me.pnlOptionen.ResumeLayout(False)
Me.cntxt.ResumeLayout(False) Me.cntxt.ResumeLayout(False)
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.gridMyAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -2523,7 +2511,6 @@ Partial Class frmHauptfenster
Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents btnWichtige As System.Windows.Forms.Button Friend WithEvents btnWichtige As System.Windows.Forms.Button
Friend WithEvents lblAnzahl As System.Windows.Forms.Label
Friend WithEvents btnWichtigeStandort As System.Windows.Forms.Button Friend WithEvents btnWichtigeStandort As System.Windows.Forms.Button
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents btnMinimieren As System.Windows.Forms.Button Friend WithEvents btnMinimieren As System.Windows.Forms.Button

141
Aviso/frmHauptfenster.vb
View File

@@ -133,11 +133,12 @@ Public Class frmHauptfenster
' FIMRA_COLOR = Color.FromArgb(0, 54, 128) ' FIMRA_COLOR = Color.FromArgb(0, 54, 128)
' ' FIMRA_COLOR = Color.Red ' ' FIMRA_COLOR = Color.Red
' Case Else ' Case Else
' FIMRA_COLOR = Color.FromArgb(0, 54, 128) ' FIMRA_COLOR = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
'End Select 'End Select
'Panel1.BackColor = FIMRA_COLOR
'Panel6.BackColor = FIMRA_COLOR Panel1.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
'pnlSearch.BackColor = FIMRA_COLOR Panel6.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
pnlSearch.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
UpdateUpdater.Interval = 5000 UpdateUpdater.Interval = 5000
UpdateUpdater.Enabled = True UpdateUpdater.Enabled = True
@@ -158,7 +159,11 @@ Public Class frmHauptfenster
cboGrenzstelle.SelectedIndex = 0 cboGrenzstelle.SelectedIndex = 0
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "IMEX" Case "ATILLA" ' Case "VERAG", "IMEX"
lklErweitereSuche.Visible = False
MDMParkplatzkartenToolStripMenuItem.Visible = False
Case Else
'AVISO vom PC übernehmen 'AVISO vom PC übernehmen
Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName() Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
@@ -171,9 +176,6 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung <> "QS" Then
cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung cboGrenzstelle.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
End If End If
Case Else
lklErweitereSuche.Visible = False
MDMParkplatzkartenToolStripMenuItem.Visible = False
End Select End Select
@@ -502,34 +504,21 @@ Public Class frmHauptfenster
pnlDetailsRechts.Visible = True pnlDetailsRechts.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" 'Case "VERAG"
If pnlDetailsRechts.Controls.Count = 0 Then ' If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetails(id) ' Dim usrCntl As New usrcntlAktDetails(id)
usrCntl.Dock = DockStyle.Fill ' usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl) ' pnlDetailsRechts.Controls.Add(usrCntl)
Else ' Else
If reloadIfSameId Then ' If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id) ' DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
Else ' Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then ' If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id) ' DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
End If ' End If
End If ' End If
End If ' End If
Case "IMEX"
If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetails(id)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
End If
End If
End If
Case "ATILLA" Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
@@ -549,6 +538,20 @@ Public Class frmHauptfenster
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).reload(id) DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).reload(id)
End If End If
End If End If
Case Else
If pnlDetailsRechts.Controls.Count = 0 Then
Dim usrCntl As New usrcntlAktDetails(id)
usrCntl.Dock = DockStyle.Fill
pnlDetailsRechts.Controls.Add(usrCntl)
Else
If reloadIfSameId Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
Else
If DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID <> id Then
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).reload(id)
End If
End If
End If
End Select End Select
@@ -692,7 +695,7 @@ Public Class frmHauptfenster
'Anzeige der Anzahl gewählter Datensätze 'Anzeige der Anzahl gewählter Datensätze
VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl = gridAviso.RowCount
'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl 'If AnzahlAuswahl > AnzahlAlle Then AnzahlAlle = AnzahlAuswahl
lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt" ' lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt"
hMerkZeit = Now hMerkZeit = Now
lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm") lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm")
@@ -1197,7 +1200,8 @@ Public Class frmHauptfenster
selectRow(avisoidTmp) selectRow(avisoidTmp)
Try Try
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "IMEX" Case "ATILLA"
Case Else ' "VERAG", "IMEX"
DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp) DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails).openSnd(sndidTmp)
End Select End Select
Catch ex As Exception Catch ex As Exception
@@ -1575,15 +1579,7 @@ Public Class frmHauptfenster
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If End If
End If End If
Case "IMEX"
Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
Case "ATILLA" Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", Me.FindForm) Then
Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu) Dim usrcntl As usrcntlAktDetailsATILLANeu = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu)
@@ -1604,7 +1600,15 @@ Public Class frmHauptfenster
End If End If
End If End If
End If End If
Case Else
Dim usrcntl As usrcntlAktDetails = DirectCast(pnlDetailsRechts.Controls(0), usrcntlAktDetails)
If aktWithoutCheckTime Or usrcntl.AvisoID <> tmpid Then
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
Else
If DateDiff(DateInterval.Second, usrcntl.aktiv, Now) > 60 Then 'Wenn die Details länger als 60 Sek inaktiv sind (Prüfung durch click und keydown)
Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
End If
End If
End Select End Select
End If End If
@@ -2719,9 +2723,13 @@ Public Class AvisoStatusFunctions
Else Else
Aviso.Ankunft = Now Aviso.Ankunft = Now
End If End If
If Aviso.Grenzstelle.Replace("???", "") <> "" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
If Aviso.Grenzstelle.Replace("???", "") <> "" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
End If
End If End If
Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft Aviso.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft
Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.Änderungen = "auf ANKUNFT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
@@ -3429,9 +3437,11 @@ Public Class AvisoStatusFunctions
Aviso.Änderungen = "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE" & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.Änderungen = "LKW ist fertig - nicht gesetzt, deshalb automatisch gesetzt mit FREIGABE" & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
End If End If
If Aviso.Grenzstelle.Replace("???", "") <> "" Then 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
End If ' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' End If
'End If
tmpid = AvisoDAL.SpeichernAviso(Aviso) tmpid = AvisoDAL.SpeichernAviso(Aviso)
AvisoDAL.addAenderung(tmpid, "auf FREIGABE gesetzt", "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm")) AvisoDAL.addAenderung(tmpid, "auf FREIGABE gesetzt", "auf FREIGABE gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
If Not Aviso.LKW_fertig Then If Not Aviso.LKW_fertig Then
@@ -3569,9 +3579,12 @@ Public Class AvisoStatusFunctions
End If End If
'Status ist Ankunft, Vorbereitet, Vorgeschrieben oder Erfasst - aktiver Mitarbeiter wird geändert 'Status ist Ankunft, Vorbereitet, Vorgeschrieben oder Erfasst - aktiver Mitarbeiter wird geändert
Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter Aviso.letzterMitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter
If Aviso.Grenzstelle.Replace("???", "") <> "" Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG 'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Then
End If ' If Aviso.Grenzstelle.Replace("???", "") <> "" Then
' If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG <> "" Then Aviso.Grenzstelle = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
' End If
'End If
Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen)) Aviso.Änderungen = "Akt übernommen von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & vbCrLf & Trim(VarToStr(Aviso.Änderungen))
Dim tmpid = AvisoDAL.SpeichernAviso(Aviso) Dim tmpid = AvisoDAL.SpeichernAviso(Aviso)
@@ -3580,14 +3593,10 @@ Public Class AvisoStatusFunctions
Try Try
If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then If frmHauptfenster.pnlDetailsRechts.Controls.Count > 0 Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" 'Case "VERAG"
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then ' If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2) ' DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
End If ' End If
Case "IMEX"
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
End If
Case "ATILLA" Case "ATILLA"
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY", "AVISO") Then
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLANeu).AvisoID = AvisoID Then
@@ -3598,6 +3607,10 @@ Public Class AvisoStatusFunctions
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).showInfo("Akt übernommen", 2) DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetailsATILLA).showInfo("Akt übernommen", 2)
End If End If
End If End If
Case Else
If DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).AvisoID = AvisoID Then
DirectCast(frmHauptfenster.pnlDetailsRechts.Controls(0), usrcntlAktDetails).showInfo("Akt übernommen", 2)
End If
End Select End Select
End If End If

64
Aviso/frmLogin.designer.vb generated
View File

@@ -29,10 +29,8 @@ Partial Class frmLogin
Me.btnOK = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button()
Me.txtSachbear = New System.Windows.Forms.TextBox() Me.txtSachbear = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.lblTESTSYSTEM = New System.Windows.Forms.Label() Me.lblTESTSYSTEM = New System.Windows.Forms.Label()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VERAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -51,6 +49,8 @@ Partial Class frmLogin
Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.ContextMenuStrip2.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout()
@@ -122,20 +122,6 @@ Partial Class frmLogin
Me.Panel1.Size = New System.Drawing.Size(306, 218) Me.Panel1.Size = New System.Drawing.Size(306, 218)
Me.Panel1.TabIndex = 0 Me.Panel1.TabIndex = 0
' '
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.Cursor = System.Windows.Forms.Cursors.Hand
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = CType(resources.GetObject("FlatButton1.Image"), System.Drawing.Image)
Me.FlatButton1.Location = New System.Drawing.Point(267, -1)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(38, 35)
Me.FlatButton1.TabIndex = 0
Me.FlatButton1.UseVisualStyleBackColor = True
'
'lblTESTSYSTEM 'lblTESTSYSTEM
' '
Me.lblTESTSYSTEM.AutoSize = True Me.lblTESTSYSTEM.AutoSize = True
@@ -160,22 +146,6 @@ Partial Class frmLogin
Me.Panel2.Size = New System.Drawing.Size(304, 22) Me.Panel2.Size = New System.Drawing.Size(304, 22)
Me.Panel2.TabIndex = 8 Me.Panel2.TabIndex = 8
' '
'FlatButton2
'
Me.FlatButton2.allowBorder = False
Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.wheel
Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton2.ContextMenuStrip = Me.ContextMenuStrip2
Me.FlatButton2.Cursor = System.Windows.Forms.Cursors.Hand
Me.FlatButton2.FlatAppearance.BorderSize = 0
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton2.ForeColor = System.Drawing.Color.Black
Me.FlatButton2.Location = New System.Drawing.Point(283, 2)
Me.FlatButton2.Name = "FlatButton2"
Me.FlatButton2.Size = New System.Drawing.Size(18, 18)
Me.FlatButton2.TabIndex = 13
Me.FlatButton2.UseVisualStyleBackColor = True
'
'ContextMenuStrip2 'ContextMenuStrip2
' '
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.TESTSYSTEMToolStripMenuItem, Me.UpdateToolStripMenuItem1}) Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.TESTSYSTEMToolStripMenuItem, Me.UpdateToolStripMenuItem1})
@@ -308,6 +278,36 @@ Partial Class frmLogin
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(112, 22) Me.ToolStripMenuItem1.Size = New System.Drawing.Size(112, 22)
Me.ToolStripMenuItem1.Text = "Update" Me.ToolStripMenuItem1.Text = "Update"
' '
'FlatButton1
'
Me.FlatButton1.allowBorder = False
Me.FlatButton1.Cursor = System.Windows.Forms.Cursors.Hand
Me.FlatButton1.FlatAppearance.BorderSize = 0
Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton1.ForeColor = System.Drawing.Color.Black
Me.FlatButton1.Image = CType(resources.GetObject("FlatButton1.Image"), System.Drawing.Image)
Me.FlatButton1.Location = New System.Drawing.Point(267, -1)
Me.FlatButton1.Name = "FlatButton1"
Me.FlatButton1.Size = New System.Drawing.Size(38, 35)
Me.FlatButton1.TabIndex = 0
Me.FlatButton1.UseVisualStyleBackColor = True
'
'FlatButton2
'
Me.FlatButton2.allowBorder = False
Me.FlatButton2.BackgroundImage = Global.AVISO.My.Resources.Resources.wheel
Me.FlatButton2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton2.ContextMenuStrip = Me.ContextMenuStrip2
Me.FlatButton2.Cursor = System.Windows.Forms.Cursors.Hand
Me.FlatButton2.FlatAppearance.BorderSize = 0
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton2.ForeColor = System.Drawing.Color.Black
Me.FlatButton2.Location = New System.Drawing.Point(283, 2)
Me.FlatButton2.Name = "FlatButton2"
Me.FlatButton2.Size = New System.Drawing.Size(18, 18)
Me.FlatButton2.TabIndex = 13
Me.FlatButton2.UseVisualStyleBackColor = True
'
'frmLogin 'frmLogin
' '
Me.AcceptButton = Me.btnOK Me.AcceptButton = Me.btnOK

18
Aviso/frmLogin.vb
View File

@@ -32,7 +32,19 @@ Public Class frmLogin
End If End If
End If End If
If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG")) Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor
Label3.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor
Select Case firma
Case "VERAG" : firma = "ATILLA"
Case "ATILLA" : firma = "IMEX"
Case "IMEX" : firma = "UNISPED"
Case "UNISPED" : firma = "AMBAR"
Case "AMBAR" : firma = "VERAG"
End Select
' firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG"))
initstart() initstart()
If Environment.MachineName = "YLPS023046" Then If Environment.MachineName = "YLPS023046" Then
txtSachbear.Text = "ADMIN" txtSachbear.Text = "ADMIN"
@@ -142,6 +154,10 @@ Public Class frmLogin
' cGlobal.ConnStrADMIN = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.ADMINConnectionString ' cGlobal.ConnStrADMIN = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.ADMINConnectionString
picLogin.Image = My.Resources.IMEX_LOGO_simple picLogin.Image = My.Resources.IMEX_LOGO_simple
' If TESTSYSTEM Then cGlobal.ConnStr = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.AVISOConnectionStringTEST ' If TESTSYSTEM Then cGlobal.ConnStr = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.AVISOConnectionStringTEST
Case "UNISPED"
picLogin.Image = My.Resources.Unisped_logo
Case "AMBAR"
picLogin.Image = My.Resources.ambar_simple
End Select End Select
'DEV FMZOLL 'DEV FMZOLL

931
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

39
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -118,6 +118,28 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<metadata name="cntxtAnh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>496, 17</value>
</metadata>
<data name="Button20.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<data name="Button19.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button19.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -134,20 +156,6 @@
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg== mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value> </value>
</data> </data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl iVBORw0KGgoAAAANSUhEUgAAADIAAAAyCAYAAAAeP4ixAAAABGdBTUEAALGPC/xhBQAACQpJREFUaEPl
@@ -470,9 +478,6 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value> <value>174, 17</value>
</metadata> </metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

164
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5,6 +5,7 @@ Imports System.Drawing.Printing
Imports System.Management Imports System.Management
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports iTextSharp.text.pdf Imports iTextSharp.text.pdf
Imports Microsoft.Office.Interop
Public Class frmSendungsdetailsNEU Public Class frmSendungsdetailsNEU
Public AvisoId As Integer Public AvisoId As Integer
@@ -90,13 +91,13 @@ Public Class frmSendungsdetailsNEU
Next Next
SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung() SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
End Sub End Sub
Function SAVE_ME() As Boolean Function SAVE_ME() As Boolean
If AVISO.Abgeschlossen Then If AVISO.Abgeschlossen Then
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.") 'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
Return True Return True
End If End If
SAVE_ME = True SAVE_ME = True
For Each s In SENDUNG_LIST For Each s In SENDUNG_LIST
If s.SAVE() = False Then SAVE_ME = False If s.SAVE() = False Then SAVE_ME = False
@@ -202,7 +203,19 @@ Public Class frmSendungsdetailsNEU
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
pnlFremd.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
cbxFremdspedition.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
AVISO = AvisoDAL.LesenAviso(AvisoId, "") AVISO = AvisoDAL.LesenAviso(AvisoId, "")
If AVISO.Grenzstelle.Replace("???", "") = "" Then
lblGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
Else
lblGrenze.Text = AVISO.Grenzstelle
End If
If AVISO.Abgeschlossen Then If AVISO.Abgeschlossen Then
Label8.Visible = True Label8.Visible = True
End If End If
@@ -489,16 +502,16 @@ Public Class frmSendungsdetailsNEU
Try Try
pic.Visible = False pic.Visible = False
ToolTip.SetToolTip(pic, "") ToolTip.SetToolTip(pic, "")
Dim InfoText = "" Dim InfoText = ""
If kdSearch.KdData_ADRESSEN IsNot Nothing Then If kdSearch.KdData_ADRESSEN IsNot Nothing Then
If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then
InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine
End If
End If End If
End If
If kdSearch.KdData_KUNDE IsNot Nothing Then If kdSearch.KdData_KUNDE IsNot Nothing Then
If kdSearch.KdData_KUNDE.Abfertigungsverbot Then If kdSearch.KdData_KUNDE.Abfertigungsverbot Then
pic.Visible = True pic.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine
@@ -520,7 +533,7 @@ Public Class frmSendungsdetailsNEU
End If End If
ToolTip.SetToolTip(pic, InfoText.Trim) ToolTip.SetToolTip(pic, InfoText.Trim)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)
@@ -573,10 +586,10 @@ Public Class frmSendungsdetailsNEU
' If Not da.RowState = DataRowState.Deleted Then ' If Not da.RowState = DataRowState.Deleted Then
Dim pos As Integer = CURRENT_INDEX 'SENDUNG_LIST.IndexOf(SENDUNG_LIST(b.value)) ')bsSendungen.Position Dim pos As Integer = CURRENT_INDEX 'SENDUNG_LIST.IndexOf(SENDUNG_LIST(b.value)) ')bsSendungen.Position
b.pnl.BackColor = IIf(b.value = pos, Color.FromArgb(0, 54, 128), Color.LightGray) b.pnl.BackColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor, Color.LightGray)
b.lblAbfBez.ForeColor = IIf(b.value = pos, Color.White, Color.Black) b.lblAbfBez.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
b.lblAuftr.ForeColor = IIf(b.value = pos, Color.White, Color.Black) b.lblAuftr.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
b.lblNr.ForeColor = IIf(b.value = pos, Color.White, Color.Black) b.lblNr.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
' Dim r As DataRow = AVISO_newDataSet.tblSendungen.Rows(b.value) ' Dim r As DataRow = AVISO_newDataSet.tblSendungen.Rows(b.value)
' MsgBox(da("tblSnd_PosUnterNr") & ". ") ' MsgBox(da("tblSnd_PosUnterNr") & ". ")
@@ -2417,9 +2430,19 @@ Public Class frmSendungsdetailsNEU
End Sub End Sub
Sub initAnhang() Sub initAnhang()
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN anh_SendungsId is null THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ] ,anh_SendungsId FROM [tblAvisoAnhaenge]
WHERE [anh_SendungsId]='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "' WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
order by [anh_Reihenfolge],[anh_id]" ORDER BY anh_SendungsId desc,
case
when [anh_Art] ='ATR' then 0
when [anh_Art] ='Rechnung' then 1
when [anh_Art] ='CMR' then 2
when [anh_Art] ='Ausfuhr' then 3
when [anh_Art] ='Packliste' then 4
when [anh_Art] ='Auftrag' then 5
when [anh_Art] ='Sonstiges' then 6
when [anh_Art] ='' then 7
END, [anh_Reihenfolge],[anh_id]"
dgvAnhang.DataSource = SQL.loadDgvBySql(hSQL, "AVISO") dgvAnhang.DataSource = SQL.loadDgvBySql(hSQL, "AVISO")
@@ -2428,8 +2451,8 @@ Public Class frmSendungsdetailsNEU
If dgvAnhang.RowCount = 0 Then dgvAnhang.Columns.Clear() : Exit Sub If dgvAnhang.RowCount = 0 Then dgvAnhang.Columns.Clear() : Exit Sub
With dgvAnhang With dgvAnhang
.RowTemplate.Height = 30
.RowTemplate.MinimumHeight = 40 '.RowTemplate.MinimumHeight = 30
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigen .Columns("anh_id").Visible = False 'VermerkID nicht anzeigen
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen .Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
@@ -2447,6 +2470,7 @@ Public Class frmSendungsdetailsNEU
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End With End With
End Sub End Sub
Private Sub btnAutomatischeNacherfassung_Click(sender As Object, e As EventArgs) Handles btnAutomatischeNacherfassung.Click Private Sub btnAutomatischeNacherfassung_Click(sender As Object, e As EventArgs) Handles btnAutomatischeNacherfassung.Click
' ZollSystem: 0=ATLAS 1= EZOLL ' ZollSystem: 0=ATLAS 1= EZOLL
@@ -3004,7 +3028,7 @@ Public Class frmSendungsdetailsNEU
Dim frMZA As New SDL.frmZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) Dim frMZA As New SDL.frmZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
' Dim u As New SDL.usrCntlATLAS_EZA(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.EZA, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "") ' Dim u As New SDL.usrCntlATLAS_EZA(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.EZA, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
' u.Dock = DockStyle.Fill ' u.Dock = DockStyle.Fill
frMZA.ShowDialog(Me) frMZA.Show(Me)
initdgvZollAnmeldungen() initdgvZollAnmeldungen()
'tbZollabfertigung.Controls.Clear() 'tbZollabfertigung.Controls.Clear()
' tbZollabfertigung.Controls.Add(u) ' tbZollabfertigung.Controls.Add(u)
@@ -3014,7 +3038,7 @@ Public Class frmSendungsdetailsNEU
Me.loadDataInLIST() : SAVE_ME() Me.loadDataInLIST() : SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
frMZA.ShowDialog(Me) frMZA.Show(Me)
initdgvZollAnmeldungen() initdgvZollAnmeldungen()
End Sub End Sub
@@ -3022,7 +3046,7 @@ Public Class frmSendungsdetailsNEU
Me.loadDataInLIST() : SAVE_ME() Me.loadDataInLIST() : SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("T2", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) Dim frMZA As New SDL.frmZollanmeldung("T2", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
frMZA.ShowDialog(Me) frMZA.Show(Me)
initdgvZollAnmeldungen() initdgvZollAnmeldungen()
End Sub End Sub
@@ -3030,7 +3054,7 @@ Public Class frmSendungsdetailsNEU
Me.loadDataInLIST() : SAVE_ME() Me.loadDataInLIST() : SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("AES", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) Dim frMZA As New SDL.frmZollanmeldung("AES", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
frMZA.ShowDialog(Me) frMZA.Show(Me)
initdgvZollAnmeldungen() initdgvZollAnmeldungen()
End Sub End Sub
@@ -3045,7 +3069,7 @@ Public Class frmSendungsdetailsNEU
Me.loadDataInLIST() : SAVE_ME() Me.loadDataInLIST() : SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("ÜT", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy")) Dim frMZA As New SDL.frmZollanmeldung("ÜT", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
frMZA.ShowDialog(Me) frMZA.Show(Me)
initdgvZollAnmeldungen() initdgvZollAnmeldungen()
End Sub End Sub
@@ -3128,7 +3152,93 @@ Public Class frmSendungsdetailsNEU
End Sub End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Dim f As New frmSendungAnhangImport(AvisoId) loadDataInLIST()
f.Show(Me) SAVE_ME()
Dim f As New frmSendungAnhangImport(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
f.ShowDialog(Me)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'LÄDT alle SENDUNGSDATEN
initDataBinding()
'frmSendungsdetails_Load(Me, New EventArgs)
End Sub End Sub
Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)})
Next
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
cntxtAnh.Show(Cursor.Position)
End Sub
Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click
If dgvAnhang.SelectedRows.Count >= 1 Then
Dim f As New List(Of String)
'For Each SI In MyListBox1.SelectedItems
' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem)
' For Each ii In ds.DATA_LIST.LIST
' If ii.coll_id = item.Value Then
' 'Dim f() As String = {ii.coll_pfad}
' If ii.coll_pfad <> "" Then
' f(cnt) = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung)
' cnt += 1
' 'Exit For
' End If
' End If
' Next
'Next
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
f.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
Next
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
Exit Sub
End If
End Sub
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
If dgvAnhang.SelectedRows.Count >= 1 Then
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
'For Each SI In MyListBox1.SelectedItems
' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem)
' For Each ii In ds.DATA_LIST.LIST
' If ii.coll_id = item.Value Then
' If ii.coll_pfad <> "" Then
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
' End If
' End If
' Next
'Next
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
End Try
End Sub
'Private Sub dgvAnhang_MouseClick(sender As Object, e As MouseEventArgs) Handles dgvAnhang.MouseClick
' If e.Button = MouseButtons.Right Then
' e.
' End If
'End Sub
End Class End Class

1
Aviso/packages.config
View File

@@ -7,6 +7,7 @@
<package id="GroupDocs.Viewer" version="19.8.0" targetFramework="net461" /> <package id="GroupDocs.Viewer" version="19.8.0" targetFramework="net461" />
<package id="Newtonsoft.Json" version="10.0.3" targetFramework="net45" /> <package id="Newtonsoft.Json" version="10.0.3" targetFramework="net45" />
<package id="Portable.BouncyCastle" version="1.8.2" targetFramework="net461" /> <package id="Portable.BouncyCastle" version="1.8.2" targetFramework="net461" />
<package id="Spire.PDFViewer" version="4.5.1" targetFramework="net47" />
<package id="System.Buffers" version="4.4.0" targetFramework="net461" /> <package id="System.Buffers" version="4.4.0" targetFramework="net461" />
<package id="System.Memory" version="4.5.0" targetFramework="net461" /> <package id="System.Memory" version="4.5.0" targetFramework="net461" />
<package id="System.Numerics.Vectors" version="4.4.0" targetFramework="net461" /> <package id="System.Numerics.Vectors" version="4.4.0" targetFramework="net461" />

212
Aviso/usrcntlAktDetails.Designer.vb generated
View File

@@ -23,17 +23,17 @@ Partial Class usrcntlAktDetails
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlAktDetails))
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlDetailsRechts = New System.Windows.Forms.Panel() Me.pnlDetailsRechts = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
@@ -62,10 +62,10 @@ Partial Class usrcntlAktDetails
Me.btn = New System.Windows.Forms.Button() Me.btn = New System.Windows.Forms.Button()
Me.dgvSendungen = New System.Windows.Forms.DataGridView() Me.dgvSendungen = New System.Windows.Forms.DataGridView()
Me.Panel7 = New System.Windows.Forms.Panel() Me.Panel7 = New System.Windows.Forms.Panel()
Me.Button18 = New System.Windows.Forms.Button()
Me.Panel4 = New System.Windows.Forms.Panel() Me.Panel4 = New System.Windows.Forms.Panel()
Me.btnKasse_User = New System.Windows.Forms.Button() Me.btnKasse_User = New System.Windows.Forms.Button()
Me.btnKasse_LG = New System.Windows.Forms.Button() Me.btnKasse_LG = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.gridVermerke = New System.Windows.Forms.DataGridView() Me.gridVermerke = New System.Windows.Forms.DataGridView()
Me.pnlVermerkeTop = New System.Windows.Forms.Panel() Me.pnlVermerkeTop = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
@@ -77,6 +77,7 @@ Partial Class usrcntlAktDetails
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.tbAnhang = New System.Windows.Forms.TabPage()
Me.addVermerk = New System.Windows.Forms.Button() Me.addVermerk = New System.Windows.Forms.Button()
Me.Panel8 = New System.Windows.Forms.Panel() Me.Panel8 = New System.Windows.Forms.Panel()
Me.Button7 = New System.Windows.Forms.Button() Me.Button7 = New System.Windows.Forms.Button()
@@ -131,7 +132,7 @@ Partial Class usrcntlAktDetails
Me.btnLöschen = New System.Windows.Forms.Button() Me.btnLöschen = New System.Windows.Forms.Button()
Me.btnÄndern = New System.Windows.Forms.Button() Me.btnÄndern = New System.Windows.Forms.Button()
Me.btnTV = New System.Windows.Forms.Button() Me.btnTV = New System.Windows.Forms.Button()
Me.tbAnhang = New System.Windows.Forms.TabPage() Me.Button9 = New System.Windows.Forms.Button()
Me.pnlDetailsRechts.SuspendLayout() Me.pnlDetailsRechts.SuspendLayout()
Me.Panel3.SuspendLayout() Me.Panel3.SuspendLayout()
CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -207,6 +208,7 @@ Partial Class usrcntlAktDetails
' '
'SplitContainer.Panel2 'SplitContainer.Panel2
' '
Me.SplitContainer.Panel2.Controls.Add(Me.Button18)
Me.SplitContainer.Panel2.Controls.Add(Me.Panel4) Me.SplitContainer.Panel2.Controls.Add(Me.Panel4)
Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke) Me.SplitContainer.Panel2.Controls.Add(Me.gridVermerke)
Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop) Me.SplitContainer.Panel2.Controls.Add(Me.pnlVermerkeTop)
@@ -542,44 +544,44 @@ Partial Class usrcntlAktDetails
Me.dgvSendungen.AllowUserToAddRows = False Me.dgvSendungen.AllowUserToAddRows = False
Me.dgvSendungen.AllowUserToDeleteRows = False Me.dgvSendungen.AllowUserToDeleteRows = False
Me.dgvSendungen.AllowUserToResizeRows = False Me.dgvSendungen.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle11.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvSendungen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White Me.dgvSendungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle12.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle12.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2 Me.dgvSendungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12
Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.dgvSendungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle3 Me.dgvSendungen.DefaultCellStyle = DataGridViewCellStyle13
Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSendungen.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvSendungen.Location = New System.Drawing.Point(0, 0) Me.dgvSendungen.Location = New System.Drawing.Point(0, 0)
Me.dgvSendungen.MultiSelect = False Me.dgvSendungen.MultiSelect = False
Me.dgvSendungen.Name = "dgvSendungen" Me.dgvSendungen.Name = "dgvSendungen"
Me.dgvSendungen.ReadOnly = True Me.dgvSendungen.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvSendungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle14
Me.dgvSendungen.RowHeadersVisible = False Me.dgvSendungen.RowHeadersVisible = False
Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.dgvSendungen.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle5 Me.dgvSendungen.RowsDefaultCellStyle = DataGridViewCellStyle15
Me.dgvSendungen.RowTemplate.Height = 20 Me.dgvSendungen.RowTemplate.Height = 20
Me.dgvSendungen.RowTemplate.ReadOnly = True Me.dgvSendungen.RowTemplate.ReadOnly = True
Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvSendungen.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -601,17 +603,32 @@ Partial Class usrcntlAktDetails
Me.Panel7.Size = New System.Drawing.Size(0, 30) Me.Panel7.Size = New System.Drawing.Size(0, 30)
Me.Panel7.TabIndex = 15 Me.Panel7.TabIndex = 15
' '
'Button18
'
Me.Button18.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button18.Image = CType(resources.GetObject("Button18.Image"), System.Drawing.Image)
Me.Button18.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button18.Location = New System.Drawing.Point(446, 153)
Me.Button18.Name = "Button18"
Me.Button18.Size = New System.Drawing.Size(129, 34)
Me.Button18.TabIndex = 103
Me.Button18.Text = "Import-Assistent ..."
Me.Button18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button18.UseVisualStyleBackColor = True
Me.Button18.Visible = False
'
'Panel4 'Panel4
' '
Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Panel4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel4.BackColor = System.Drawing.Color.Black Me.Panel4.BackColor = System.Drawing.Color.Black
Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel4.Controls.Add(Me.Button9)
Me.Panel4.Controls.Add(Me.btnKasse_User) Me.Panel4.Controls.Add(Me.btnKasse_User)
Me.Panel4.Controls.Add(Me.btnKasse_LG) Me.Panel4.Controls.Add(Me.btnKasse_LG)
Me.Panel4.Controls.Add(Me.Button9)
Me.Panel4.Location = New System.Drawing.Point(376, 26) Me.Panel4.Location = New System.Drawing.Point(376, 26)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(93, 66) Me.Panel4.Size = New System.Drawing.Size(93, 105)
Me.Panel4.TabIndex = 102 Me.Panel4.TabIndex = 102
Me.Panel4.Visible = False Me.Panel4.Visible = False
' '
@@ -626,7 +643,7 @@ Partial Class usrcntlAktDetails
Me.btnKasse_User.Name = "btnKasse_User" Me.btnKasse_User.Name = "btnKasse_User"
Me.btnKasse_User.Size = New System.Drawing.Size(88, 36) Me.btnKasse_User.Size = New System.Drawing.Size(88, 36)
Me.btnKasse_User.TabIndex = 4 Me.btnKasse_User.TabIndex = 4
Me.btnKasse_User.Text = "alle Sendugnen" Me.btnKasse_User.Text = "alle Sendg. PDF"
Me.btnKasse_User.UseVisualStyleBackColor = False Me.btnKasse_User.UseVisualStyleBackColor = False
' '
'btnKasse_LG 'btnKasse_LG
@@ -644,65 +661,49 @@ Partial Class usrcntlAktDetails
Me.btnKasse_LG.Text = "Standard" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)" Me.btnKasse_LG.Text = "Standard" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(nur T1/T2)"
Me.btnKasse_LG.UseVisualStyleBackColor = False Me.btnKasse_LG.UseVisualStyleBackColor = False
' '
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.White
Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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(3, 65)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(108, 28)
Me.Button9.TabIndex = 100
Me.Button9.TabStop = False
Me.Button9.Text = "TV-Hinweis"
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.UseVisualStyleBackColor = False
'
'gridVermerke 'gridVermerke
' '
Me.gridVermerke.AllowUserToAddRows = False Me.gridVermerke.AllowUserToAddRows = False
Me.gridVermerke.AllowUserToDeleteRows = False Me.gridVermerke.AllowUserToDeleteRows = False
Me.gridVermerke.AllowUserToResizeRows = False Me.gridVermerke.AllowUserToResizeRows = False
DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure DataGridViewCellStyle16.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.gridVermerke.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
Me.gridVermerke.BackgroundColor = System.Drawing.Color.White Me.gridVermerke.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle17.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7 Me.gridVermerke.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing Me.gridVermerke.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle8 Me.gridVermerke.DefaultCellStyle = DataGridViewCellStyle18
Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill Me.gridVermerke.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridVermerke.Location = New System.Drawing.Point(0, 30) Me.gridVermerke.Location = New System.Drawing.Point(0, 30)
Me.gridVermerke.MultiSelect = False Me.gridVermerke.MultiSelect = False
Me.gridVermerke.Name = "gridVermerke" Me.gridVermerke.Name = "gridVermerke"
Me.gridVermerke.ReadOnly = True Me.gridVermerke.ReadOnly = True
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.gridVermerke.RowHeadersDefaultCellStyle = DataGridViewCellStyle19
Me.gridVermerke.RowHeadersVisible = False Me.gridVermerke.RowHeadersVisible = False
Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.gridVermerke.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle10 Me.gridVermerke.RowsDefaultCellStyle = DataGridViewCellStyle20
Me.gridVermerke.RowTemplate.Height = 20 Me.gridVermerke.RowTemplate.Height = 20
Me.gridVermerke.RowTemplate.ReadOnly = True Me.gridVermerke.RowTemplate.ReadOnly = True
Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False] Me.gridVermerke.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
@@ -837,6 +838,16 @@ Partial Class usrcntlAktDetails
Me.TabPage3.Text = "Sendungsvermerke" Me.TabPage3.Text = "Sendungsvermerke"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'tbAnhang
'
Me.tbAnhang.Location = New System.Drawing.Point(4, 30)
Me.tbAnhang.Name = "tbAnhang"
Me.tbAnhang.Padding = New System.Windows.Forms.Padding(3)
Me.tbAnhang.Size = New System.Drawing.Size(563, 0)
Me.tbAnhang.TabIndex = 3
Me.tbAnhang.Text = "Anhang"
Me.tbAnhang.UseVisualStyleBackColor = True
'
'addVermerk 'addVermerk
' '
Me.addVermerk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.addVermerk.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1560,15 +1571,19 @@ Partial Class usrcntlAktDetails
Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnTV.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTV.UseVisualStyleBackColor = False Me.btnTV.UseVisualStyleBackColor = False
' '
'tbAnhang 'Button9
' '
Me.tbAnhang.Location = New System.Drawing.Point(4, 30) Me.Button9.BackColor = System.Drawing.Color.White
Me.tbAnhang.Name = "tbAnhang" Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.tbAnhang.Padding = New System.Windows.Forms.Padding(3) Me.Button9.ForeColor = System.Drawing.Color.Black
Me.tbAnhang.Size = New System.Drawing.Size(563, 0) Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.tbAnhang.TabIndex = 3 Me.Button9.Location = New System.Drawing.Point(2, 66)
Me.tbAnhang.Text = "Anhang" Me.Button9.Margin = New System.Windows.Forms.Padding(0)
Me.tbAnhang.UseVisualStyleBackColor = True Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(88, 36)
Me.Button9.TabIndex = 5
Me.Button9.Text = "alle Sendg. Mail"
Me.Button9.UseVisualStyleBackColor = False
' '
'usrcntlAktDetails 'usrcntlAktDetails
' '
@@ -1720,6 +1735,7 @@ Partial Class usrcntlAktDetails
Friend WithEvents Panel4 As Panel Friend WithEvents Panel4 As Panel
Friend WithEvents btnKasse_User As Button Friend WithEvents btnKasse_User As Button
Friend WithEvents btnKasse_LG As Button Friend WithEvents btnKasse_LG As Button
Friend WithEvents Button9 As Button
Friend WithEvents tbAnhang As TabPage Friend WithEvents tbAnhang As TabPage
Friend WithEvents Button18 As Button
Friend WithEvents Button9 As Button
End Class End Class

18
Aviso/usrcntlAktDetails.resx
View File

@@ -118,20 +118,12 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="Button18.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
vAAADrwBlbxySQAAAkRJREFUOE9joClQ3/CaV37+fQ4olzSgvfqhm+bqh6+A+IbKymeiIDGNlY8CNVc9 kEEKgCAQRfVKeaaOEXSL6hbRNrC9dQ3PUd/IxagLGcZFA48PjjyYrzCd1vqWAC7TTog8wFiBTUUR7Igw
OqK9/IksWBEuoLv+kW76oZf/9NY++q+5GohXPTptvO5xhemGR380Vj96h9UAkFOBkhM0Vz3cr7Hq4bbo fK6ZIRVFsGsolKCtEFl7cmneGpBEuIGeyZoJJSBCpAcXE18Sindow4LJngklIELk8j1wmEpC8Q5PMDNx
/S/+L7vz6b8W0AB9oEGbHnz5H7//5U/t1Y+DtFa95IFqgwCLzY+kTTc8vqS95tF/baAGkCaQzVlHXv1v mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
v/Du/0aQ5gMvIa6B4O+aq+8bQrUzMBivf5z+5Mvv/9///Pv/5vuf/3c//vp/+tWP/7uefP2/8u7n/9Ov
fQQbVHbyzX+3bU/BFmitfhgK1c7AYL7hcerzr7//9116D5a03Pjkv9f2Z/9j97/8n3/s9f/6M2//T77y
4f+nX3//rwIaCHKF2uqH/lDtDAzOm5/Eg1wwCagIyZkYGOSyFXcgBqjOv+QN1Y4wYMpVwgYsBxqgAwwr
scjSAKBWFrABNmvvRzz49IugAY8+//6/8NYnsAE8ejaZQK0SYAPU65ZGg0yfRsAAkCthBnBpWpQCtWqC
DRDySg46+uL7/w8///4/8/rH/+2Pv/5ffPvT//7L7/9XnX77P/XQq/+Bu57/fwWModk3Pv7XXHz9C7Ow
lB9QqzjYAAYVFXax0OIM6aTGHpPqGUt9J2/al7HuzNWGk8/fTrv6/t+ae5//H3z27f+19z//N559+4/X
wqsQqAuUGiFhgAQYoZiJgSGUmcHenkXYyoqX1yVSVSKp3k48piaC1y7YEyjPC8QYmskADAwACfSzwjHl
AmsAAAAASUVORK5CYII=
</value> </value>
</data> </data>
<data name="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="addVermerk.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

91
Aviso/usrcntlAktDetails.vb
View File

@@ -131,6 +131,9 @@ Public Class usrcntlAktDetails
timerAktUebernommen.Interval = 1500 timerAktUebernommen.Interval = 1500
timer.Interval = 100 timer.Interval = 100
reload(AvisoID) reload(AvisoID)
pnl.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
txtLKW_Nr.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
txtLKW_Nr.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor
If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then If My.Computer.Screen.WorkingArea.Width < 1300 Or VERAG_PROG_ALLGEMEIN.cAllgemein.dpi > 96 Then
@@ -141,7 +144,7 @@ Public Class usrcntlAktDetails
' btnVorgeschrieben.AutoSize = False ' btnVorgeschrieben.AutoSize = False
' btnFreigabe.AutoSize = False ' btnFreigabe.AutoSize = False
btnAnkunft.Text = "ANKUNFT." btnAnkunft.Text = "ANKUNFT"
btnErfasst.Text = "ERFASST" btnErfasst.Text = "ERFASST"
btnVorbereitet.Text = "VORB.QS" btnVorbereitet.Text = "VORB.QS"
btnVorgeschrieben.Text = "VORGESCHR." btnVorgeschrieben.Text = "VORGESCHR."
@@ -176,9 +179,9 @@ Public Class usrcntlAktDetails
btnVorbereitet.Visible = True btnVorbereitet.Visible = True
End If End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then 'If VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME <> "ADMIN" Then
tbcntlVermerke.TabPages.Remove(tbAnhang) ' tbcntlVermerke.TabPages.Remove(tbAnhang)
End If 'End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
Button8.Text = "Gest.Liste" Button8.Text = "Gest.Liste"
@@ -478,11 +481,11 @@ Public Class usrcntlAktDetails
' If setAkive_AuswahlID() = -1 Then Exit Sub ' If setAkive_AuswahlID() = -1 Then Exit Sub
If AvisoID <= 0 Then Exit Sub If AvisoID <= 0 Then Exit Sub
Button18.Visible = False
Select Case tbcntlVermerke.SelectedIndex Select Case tbcntlVermerke.SelectedIndex
Case 0, 1, 2 : Vermerke_anzeigen2(rowindex) Case 0, 1, 2 : Vermerke_anzeigen2(rowindex)
Case 3 Case 3
Button18.Visible = True
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0 WHERE [anh_AvisoId]='" & AvisoID & "' AND isnull(anh_SendungsId,0) <=0
order by [anh_Reihenfolge],[anh_id]" order by [anh_Reihenfolge],[anh_id]"
@@ -626,36 +629,43 @@ Public Class usrcntlAktDetails
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex) init = True 'Vermerke_anzeigen(e.RowIndex)
' initDgvSendungen() ' initDgvSendungen()
Case "3" Case "3"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 4 myVermerk.VermerkCodeId = 4
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "5" Case "5"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 6 myVermerk.VermerkCodeId = 6
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "7" Case "7"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 8 myVermerk.VermerkCodeId = 8
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "9" Case "9"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 10 myVermerk.VermerkCodeId = 10
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "11" Case "11"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 12 myVermerk.VermerkCodeId = 12
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "13" Case "13"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 14 myVermerk.VermerkCodeId = 14
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "17" Case "17"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.VermerkCodeId = 18 myVermerk.VermerkCodeId = 18
@@ -664,26 +674,31 @@ Public Class usrcntlAktDetails
' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID) ' avisoAktualisierenAktiveIdBehalten(myVermerk.AvisoID)
'Vermerke_aktualisieren() 'Vermerke_aktualisieren()
init = True ' Vermerke_anzeigen(e.RowIndex) init = True ' Vermerke_anzeigen(e.RowIndex)
Case "19" Case "19"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("eingereicht", "fertig")
myVermerk.VermerkCodeId = 20 myVermerk.VermerkCodeId = 20
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "25" Case "25"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 30 myVermerk.VermerkCodeId = 30
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "31" Case "31"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("in Vorbereitung", "Vorbereitung abgeschl.")
myVermerk.VermerkCodeId = 32 myVermerk.VermerkCodeId = 32
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "33" Case "33"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 34 myVermerk.VermerkCodeId = 34
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "36" Case "36"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten") myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 37 myVermerk.VermerkCodeId = 37
@@ -696,6 +711,12 @@ Public Class usrcntlAktDetails
VermerkeDAL.SpeichernVermerk(myVermerk) VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen() init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
Case "55"
myVermerk.Hinweis_Vermerk = CStr(gridVermerke.Rows(e.RowIndex).Cells("Hinweis_Vermerk").Value).Replace("angefordert", "erhalten")
myVermerk.VermerkCodeId = 56
VermerkeDAL.SpeichernVermerk(myVermerk)
init = True 'Vermerke_anzeigen(e.RowIndex)': initDgvSendungen()
End Select End Select
loaded = False loaded = False
@@ -797,6 +818,11 @@ Public Class usrcntlAktDetails
optionCell.Value = "Ü-Dok erhalten" optionCell.Value = "Ü-Dok erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen." optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Ü-Dok erhalten' einzutragen."
End If End If
Case 55
If Not existCodeInGridVermerke(56, CStr(r.Cells("Hinweis_Vermerk").Value)) Then
optionCell.Value = "Rg-Best. erhalten"
optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk 'Rg-Best. erhalten' einzutragen."
End If
End Select End Select
End If End If
Next Next
@@ -951,11 +977,24 @@ Public Class usrcntlAktDetails
If dgvSendungen.SelectedRows.Count > 0 Then If dgvSendungen.SelectedRows.Count > 0 Then
sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
End If End If
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
'Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
'Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
'frmSendungsdetails.ShowDialog(frmGrayOut)
'frmGrayOut.Close()
'If Not Application.OpenForms.Item("frmSendungsdetails") Is Nothing Then
' Application.OpenForms.Item("frmSendungsdetails").BringToFront()
' MsgBox("Sendugns-Fenster bereits geöffnet!")
' Exit Sub
'Else
' Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
' frmSendungsdetails.Show(Me)
'End If
Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId) Dim frmSendungsdetails As New frmSendungsdetailsNEU(AvisoID, sendId)
frmSendungsdetails.ShowDialog(frmGrayOut) frmSendungsdetails.ShowDialog(Me)
frmGrayOut.Close()
initDgvSendungen() initDgvSendungen()
@@ -1509,7 +1548,6 @@ Public Class usrcntlAktDetails
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If FUNC.AktUebernehmen(AvisoID) Then If FUNC.AktUebernehmen(AvisoID) Then
frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID) frmHauptfenster.Details_anzeigen(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID)
@@ -1902,23 +1940,32 @@ Public Class usrcntlAktDetails
Case "IMEX" Case "IMEX"
Process.Start(path) Process.Start(path)
Case Else Case Else
Try If sender Is Button9 Then
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
' Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
Mail.Display()
Catch ex As Exception
MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!")
Process.Start(path) Process.Start(path)
End Try Else
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
Mail.Subject = "Dispoliste LKW-Nr: " & AVISO.LKW_Nr
' Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & RECHNUNG.RechnungsNr & "."
Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Dispoliste.pdf")
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
Process.Start(path)
End Try
End If
End Select End Select
End If End If
Panel4.Visible = False Panel4.Visible = False
End Sub End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Dim f As New frmSendungAnhangImport(AvisoID)
f.Show(Me)
End Sub
End Class End Class

BIN
Diverses/Excel_2013_logo-155x110.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.6 KiB

BIN
Diverses/docAllgemein.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 68 KiB

2
Gemeinsames/App.config
View File

@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/>
</startup> </startup>
</configuration> </configuration>

4
Gemeinsames/Gemeinsames.vbproj
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform> <Platform Condition=" '$(Platform)' == '' ">x86</Platform>
@@ -14,7 +14,7 @@
<AssemblyName>Gemeinsames</AssemblyName> <AssemblyName>Gemeinsames</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>Windows</MyType> <MyType>Windows</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion> <TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<TargetFrameworkProfile> <TargetFrameworkProfile>
</TargetFrameworkProfile> </TargetFrameworkProfile>
<IsWebBootstrapper>false</IsWebBootstrapper> <IsWebBootstrapper>false</IsWebBootstrapper>

2
Gemeinsames/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

6
Gemeinsames/My Project/Settings.Designer.vb generated
View File

@@ -15,21 +15,21 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings" #Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then If My.Application.SaveMySettingsOnExit Then
My.Settings.Save() My.Settings.Save()
End If End If